CASLファイルの構成変更。casllibとmiscを分離

[YACASL2.git] / as / misc / mula_timestab.casl

diff --git a/as/misc/mula_timestab.casl b/as/misc/mula_timestab.casl
new file mode 100644 (file)
index 0000000..016cf1a
--- /dev/null
+++ b/as/misc/mula_timestab.casl
@@ -0,0 +1,33 @@
+MAIN    START
+        LAD     GR1,0
+        SUBA    GR1,XMAX
+LOOPX   CPA     GR1,XMAX
+        JPL     FIN
+        OUT     SEP,SLEN
+        CALL    OUTA
+        OUT     SEP,SLEN
+        LAD     GR2,0
+        SUBA    GR2,YMAX
+LOOPY   CPA     GR2,YMAX
+        JPL     XNEXT
+        CALL    MULA
+        JOV     WOV
+        PUSH    0,GR1
+        LD      GR1,GR0
+        CALL    OUTA
+        POP     GR1
+YNEXT   OUT     SEP,SLEN        
+        LAD     GR2,1,GR2
+        JUMP    LOOPY
+WOV     OUT     YOMSG,YLEN
+        JUMP    YNEXT
+XNEXT   LAD     GR1,1,GR1
+        JUMP    LOOPX
+FIN     RET
+XMAX    DC      9
+YMAX    DC      9
+SEP     DC      '--------------------'
+SLEN    DC      20
+YOMSG   DC      'Warning: overflow'
+YLEN    DC      17        
+        END