.gitignoreの推敲
[YACASL2.git] / as / app / mula_timestab.casl
1 MAIN    START
2         LAD     GR1,0
3         SUBA    GR1,XMAX
4 LOOPX   CPA     GR1,XMAX
5         JPL     FIN
6         OUT     SEP,SLEN
7         CALL    OUTA
8         OUT     SEP,SLEN
9         LAD     GR2,0
10         SUBA    GR2,YMAX
11 LOOPY   CPA     GR2,YMAX
12         JPL     XNEXT
13         CALL    MULA
14         JOV     WOV
15         PUSH    0,GR1
16         LD      GR1,GR0
17         CALL    OUTA
18         POP     GR1
19 YNEXT   OUT     SEP,SLEN        
20         LAD     GR2,1,GR2
21         JUMP    LOOPY
22 WOV     OUT     YOMSG,YLEN
23         JUMP    YNEXT
24 XNEXT   LAD     GR1,1,GR1
25         JUMP    LOOPX
26 FIN     RET
27 XMAX    DC      9
28 YMAX    DC      9
29 SEP     DC      '--------------------'
30 SLEN    DC      20
31 YOMSG   DC      'Warning: overflow'
32 YLEN    DC      17        
33         END