as/app/test/count1/count1.casl

   1 ;; count1.casl（「アセンブラ言語の仕様」プログラム例）を呼び出し、出力結果を表示
   2 ;; 使い方: casl2 count1_call.casl count1.casl outa.casl
   3 MAIN    START
   4         LAD     GR2,0
   5 LOOP    CPA     GR2,MAX         ; ループ開始。GR2がMAXの値になったらループ脱出
   6         JZE     FIN             ; ↓
   7         LD      GR1,GR2         ; GR1にVALの値をロード
   8         CALL    COUNT1          ; COUNT1を呼び出す。出力はGR0に格納
   9         LD      GR1,GR0         ; GR1にGR0の値をコピー
  10         CALL    OUTA            ; OUTAを呼び出す
  11         LAD     GR2,1,GR2       ; GR2 <= GR2 + 1
  12         JUMP    LOOP            ; ループ終端
  13 FIN     RET
  14 MAX     DC      256
  15         END