X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fmull_timestab.casl;fp=as%2FFUNC%2Fmull_timestab.casl;h=6ca13489028dd70bfd60a7a88caa2d11c0447112;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=0000000000000000000000000000000000000000;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git

diff --git a/as/FUNC/mull_timestab.casl b/as/FUNC/mull_timestab.casl
new file mode 100644
index 0000000..6ca1348
--- /dev/null
+++ b/as/FUNC/mull_timestab.casl
@@ -0,0 +1,27 @@
+MAIN    START
+        LD      GR1,XMIN
+LOOPX   CPL     GR1,XMAX
+        JPL     FIN
+        OUT     SEP,SLEN
+        CALL    OUTL
+        OUT     SEP,SLEN        
+        LD      GR2,YMIN
+LOOPY   CPL     GR2,YMAX
+        JPL     XNEXT
+        CALL    MULL
+        PUSH    0,GR1
+        LD      GR1,GR0
+        CALL    OUTL
+        POP     GR1
+        LAD     GR2,1,GR2
+        JUMP    LOOPY
+XNEXT   LAD     GR1,1,GR1
+        JUMP    LOOPX
+FIN     RET
+XMIN    DC      0        
+XMAX    DC      19
+YMIN    DC      0        
+YMAX    DC      19
+SEP     DC      '--------------------'
+SLEN    DC      20
+        END