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

diff --git a/as/FUNC/mula_call.casl b/as/FUNC/mula_call.casl
deleted file mode 100644
index 6fa37b6..0000000
--- a/as/FUNC/mula_call.casl
+++ /dev/null
@@ -1,37 +0,0 @@
-MAIN    START
-        LAD     GR3,0           ; Xのインデックス
-LOOPX   CPA     GR3,XCNT
-        JZE     FIN
-        LD      GR1,X,GR3
-        LAD     GR4,0           ; Yのインデックス
-LOOPY   CPA     GR4,YCNT
-        JZE     XNEXT
-        LD      GR2,Y,GR4
-        CALL    OUTA
-        PUSH    0,GR1
-        LD      GR1,GR2
-        CALL    OUTA
-        POP     GR1
-        CALL    MULA
-        JOV     WOV
-        PUSH    0,GR1
-        LD      GR1,GR0
-        CALL    OUTA
-        POP     GR1
-YNEXT   OUT     SEP,SLEN
-        LAD     GR4,1,GR4
-        JUMP    LOOPY
-WOV     OUT     YOMSG,YLEN
-        JUMP    YNEXT
-XNEXT   LAD     GR3,1,GR3
-        JUMP    LOOPX
-FIN     RET
-X       DC      0,1,2,127,128,151,217,255,256,257,32767,-32768,-32767,-257,-256,-255,-217,-151,-128,-127,-2,-1
-Y       DC      0,1,2,127,128,151,217,255,256,257,32767,-32768,-32767,-257,-256,-255,-217,-151,-128,-127,-2,-1
-XCNT    DC      22
-YCNT    DC      22
-SEP     DC      '--------------------'
-SLEN    DC      20
-YOMSG   DC      'Warning: overflow'
-YLEN    DC      17
-        END