TRIAN2  START              ;三角形の出力 [a11.cas]
READ    IN     N,LEN       ;長さを読み込む
        LD     GR1,N
        AND    GR1,=#000F  ;数字に変換
        JZE    OWARI       ;ゼロならば終了
        ST     GR1,N
        LD     GR0,=' '    ;空白をGR0に入れる
        LAD    GR1,-1,GR1  ;1減算
LB1     SUBA   GR1,=1      ;1減算 [  a  ]
        JMI    NEXT
        ST     GR0,WK,GR1  ;空白を格納
        JUMP   LB1
NEXT    LD     GR0,='*'    ;'*'をGR0に入れる [  b  ]
        LD     GR1,N
LB2     SUBA   GR1,=1      ;1減算
        JMI    READ
        ST     GR0,WK,GR1  ;'*'を格納 [  c  ]
        OUT    WK,N        ;出力
        JUMP   LB2
OWARI   RET
LEN     DS     1
WK      DS     10
N       DS     256
        END