情報処理試験の問題とプログラムファイルを外部に分離

[YACASL2.git] / as / exam_fe / 2018_04 / mult.casl

diff --git a/as/exam_fe/2018_04/mult.casl b/as/exam_fe/2018_04/mult.casl
deleted file mode 100644 (file)
index 255cd5a..0000000
--- a/as/exam_fe/2018_04/mult.casl
+++ /dev/null
@@ -1,20 +0,0 @@
-MULT   START
-       RPUSH
-       LAD     GR2,CTBL
-       CALL    GETWD
-       LD      GR4,0,GR2    ; GR4 ← 被乗数
-       LD      GR5,1,GR2    ; GR5 ← 乗数
-       LD      GR0,=0
-       LD      GR5,GR5
-LP     JZE     FIN
-       LD      GR3,GR5
-       AND     GR3,=#0001   ; 乗数の最下位ビットのチェック
-       JZE     NEXT
-       ADDL    GR0,GR4
-NEXT   SLL     GR4,1        ; 被乗数を1ビット左論理シフト
-       SRL     GR5,1
-       JUMP    LP
-FIN    RPOP
-       RET
-CTBL   DS      3            ; GETWD用管理テーブル
-       END