CALL  START              ;＜CALL.CAS＞
      LAD    GR2,0       ; GR2は指標レジスタ
LP    LD     GR1,SUU,GR2 ;数値の取出し
      CALL   SUB         ;サブルーチンコール
      LAD    GR2,1,GR2   ;カウントアップ
      CPA    GR2,=4      ;終わり？
      JMI    LP
      RET                ;終了
SUU   DC     5,1,8,3
      END
SUB   START              ;サブルーチン
      OR     GR1,=#0030  ;文字コードに変換
      ST     GR1,MOJI    ;格納
      OUT    MOJI,LEN    ;出力
      RET                ;戻る
MOJI  DS     1
LEN   DC     1
      END