X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fmula_timestab.casl;fp=as%2FFUNC%2Fmula_timestab.casl;h=0000000000000000000000000000000000000000;hb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;hp=016cf1acd95b0e1960bee2a6c426b55bfb60f543;hpb=85744703060a90c21ee325d3a692f80233bc281f;p=YACASL2.git diff --git a/as/FUNC/mula_timestab.casl b/as/FUNC/mula_timestab.casl deleted file mode 100644 index 016cf1a..0000000 --- a/as/FUNC/mula_timestab.casl +++ /dev/null @@ -1,33 +0,0 @@ -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