TRIAN3  START               ;三角形の出力 [b01.cas]
        IN     N,LEN        ;長さを読み込む
        LD     GR1,N
        AND    GR1,=#000F   ;数字に変換
        LD     GR2,GR1      ;GR2:右
        ST     GR2,N        ;出力長を格納 [  a  ]
        SUBA   GR1,=1       ;GR1:左
        LD     GR0,='*'     ;GR0に'*'を入れる
        ST     GR0,WK,GR1   ;'*'を格納
PRT     OUT    WK,N         ;出力
        SUBA   GR1,=1       ;GR1-1 → GR1
        JMI    FIN
        ST     GR0,WK,GR1   ;左 [  b  ]
        ST     GR0,WK,GR2   ;右
        ADDA   GR2,=1       ;GR2+1 → GR2
        ST     GR2,N        ;GR2をNに格納
        JUMP   PRT
FIN     RET
N       DS     1
LEN     DS     1
WK      DC     '                    '
        END