X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fcount1_call.casl;fp=as%2FFUNC%2Fcount1_call.casl;h=0000000000000000000000000000000000000000;hb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;hp=b9cd3473d3f625a29a0c9217823778d6f6840cb7;hpb=85744703060a90c21ee325d3a692f80233bc281f;p=YACASL2.git

diff --git a/as/FUNC/count1_call.casl b/as/FUNC/count1_call.casl
deleted file mode 100644
index b9cd347..0000000
--- a/as/FUNC/count1_call.casl
+++ /dev/null
@@ -1,15 +0,0 @@
-;; 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