X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=as%2Fcasl2lib%2Fsample%2Fcall_mull.casl;h=3a41303e47d83ff90830d54b3da1657a524bd2a4;hb=5be8def29beb565c49e7268f71add4a7758ba77b;hp=6085ce16a59c98e26da651f23a9870c0cf3ceef9;hpb=0b153de269505fe25552d3f1ee2a21dc049239c3;p=YACASL2.git

diff --git a/as/casl2lib/sample/call_mull.casl b/as/casl2lib/sample/call_mull.casl
index 6085ce1..3a41303 100644
--- a/as/casl2lib/sample/call_mull.casl
+++ b/as/casl2lib/sample/call_mull.casl
@@ -12,25 +12,17 @@ LOOPY   CPA     GR5,YCNT        ; (GR5 = YCNT)の場合、ループ脱出
         LD      GR1,GR2         ; ↓
         CALL    OUTL            ; ↓
         POP     GR1             ; ↓
-        CALL    MULL            ; GR0 <- GR1 * GR2
+        CALL    MULL            ; GR3 <- GR1 * GR2
         JOV     WOV             ; オーバーフローの場合は、WOVへジャンプ
-        PUSH    0,GR1           ; GR0の数値を出力
-        LD      GR1,GR0         ; ↓
+        PUSH    0,GR1           ; GR3の数値を出力
+        LD      GR1,GR3         ; ↓
         CALL    OUTL            ; ↓
         POP     GR1             ; ↓
 YNEXT   OUT     SEP,SLEN        ; 区切り線を出力
         LAD     GR5,1,GR5       ; GR5 <- GR5 + 1
         JUMP    LOOPY           ; LOOPYへジャンプ
 WOV     OUT     YOMSG,YLEN      ; オーバーフローした場合のメッセージを表示
-        PUSH    0,GR1           ; GR0の数値を出力
-        LD      GR1,GR0         ; ↓
-        CALL    OUTL            ; ↓
-        POP     GR1             ; ↓
-        PUSH    0,GR1           ; GR3の数値を出力
-        LD      GR1,GR3         ; ↓
-        CALL    OUTL            ; ↓
-        POP     GR3             ; ↓
-        JUMP    YNEXT           ; YNEXTへジャンプ
+        OUT     SEP,SLEN        ; 区切り線を出力
 XNEXT   LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
         JUMP    LOOPX           ; LOOPXへジャンプ
 FIN     RET