TSTIO  START
       IN    BUF,N
       XOR   GR0,GR0      ; 0 → GR0 (加算集計用)
       LAD   GR1,1        ; 1 → GR1 (増減用)
       XOR   GR2,GR2      ; 0 → GR2 (インデックスレジスタ)
       LD    GR3,N        ; 文字数 → GR3 (ループカウンタ)
                          ; 文字数＝0の場合も有り得る
LOOP                      ; BUFの内容を順に加算
       ADDL  GR2,GR1      ; インデックスレジスタを＋1
       SUBA  GR3,GR1      ; ループカウンタを −1
       JNZ   LOOP         ; if ループカウンタ≠0 goto LOOP
LAST   ST    GR0,RSLT
       RET
RSLT   DS     1
BUF                       ; 入出力バッファ
N                         ; 文字数格納場所
       END