アセンブラファイルとテストの整理

[YACASL2.git] / as / muls_p.casl

diff --git a/as/muls_p.casl b/as/muls_p.casl
deleted file mode 100644 (file)
index 457f236..0000000
--- a/as/muls_p.casl
+++ /dev/null
@@ -1,42 +0,0 @@
-;./casl2 as/muls.casl as/itoa.casl 
-MAIN   START
-       LAD     GR1,X
-       LD      GR2,Y
-    LAD GR3,A
-    CALL MULS
-    LAD GR2,A
-    LD GR1,0,GR2
-    CALL ITOA
-    LD GR1,1,GR2
-    CALL ITOA    
-       RET
-X      DC      10,50
-Y      DC      4
-A   DS  2
-       END
-MULS    START              ; 32ビット×16ビット→32ビット
-        RPUSH
-        LAD   GR6,0        ; 積 上位語の初期化
-        LAD   GR7,0        ; 積 下位語の初期化
-        LD    GR4,0,GR1    ; 被乗数 上位語の取出し
-        LD    GR5,1,GR1    ; 被乗数 下位語の取出し
-LP      SRL   GR2,1        ; 乗数を１ビット右にシフト
-        JOV   ADD32
-        JZE   FIN
-        JUMP  NEXT         ; 加算処理をスキップ
-ADD32   ADDL  GR6,GR4      ; 32ビット＋32ビット→32ビット
-        ADDL  GR7,GR5
-        JOV   ADJ1
-        JUMP  NEXT 
-ADJ1    ADDL  GR6,=1       ; けた上げ処理
-NEXT    SLL   GR4,1        ; 被乗数(32ビット)を１ビット左にシフト
-        SLL   GR5,1
-        JOV   ADJ2
-        JUMP  LP
-ADJ2    OR    GR4,=1
-        JUMP  LP
-FIN     ST    GR6,0,GR3    ; 乗算結果の格納
-        ST    GR7,1,GR3
-        RPOP
-        RET
-        END