ソースコードで、モードを表す構造体メンバーの名前とコメントを修正
[YACASL2.git] / as / FUNC / count1_call.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