TRIAN1 START              ;三角形の出力 [a01.cas]
       IN     N,LEN       ;行数の入力
       LD     GR0,N
       SUBA   GR0,='0'    ; [  a  ]
       LAD    GR1,1
TOP    CPA    GR1,GR0     ;終了判定
       JPL    FIN
       ST     GR1,LEN     ;長さを格納 [  b  ]
       OUT    ST,LEN      ;出力
       ADDA   GR1,=1      ;GR1に1加算
       JUMP   TOP
FIN    RET
LEN    DS     1
ST     DC     '**********'
N      DS     256
       END