CASLファイルとテストの整理

[YACASL2.git] / as / misc / count1_call.casl

diff --git a/as/misc/count1_call.casl b/as/misc/count1_call.casl
new file mode 100644 (file)
index 0000000..b9cd347
--- /dev/null
+++ b/as/misc/count1_call.casl
@@ -0,0 +1,15 @@
+;; count1.casl（「アセンブラ言語の仕様」プログラム例）を呼び出し、出力結果を表示
+;; 使い方: casl2 count1_call.casl count1.casl outa.casl
+MAIN    START
+        LAD     GR2,0
+LOOP    CPA     GR2,MAX         ; ループ開始。GR2がMAXの値になったらループ脱出
+        JZE     FIN             ; ↓
+        LD      GR1,GR2         ; GR1にVALの値をロード
+        CALL    COUNT1          ; COUNT1を呼び出す。出力はGR0に格納
+        LD      GR1,GR0         ; GR1にGR0の値をコピー
+        CALL    OUTA            ; OUTAを呼び出す
+        LAD     GR2,1,GR2       ; GR2 <= GR2 + 1
+        JUMP    LOOP            ; ループ終端
+FIN     RET
+MAX     DC      256
+        END