Merge branch 'master' of dragon:/home/dav/yacasl2
[YACASL2.git] / test / system / casl2 / lib_divl / divl.casl
1 MAIN    START
2         LD      GR1,XMAX
3 LOOPX   CPA     GR1,XMIN
4         JMI     FIN
5         OUT     SEP,SLEN
6         LD      GR2,YMIN
7 LOOPY   CPL     GR2,YMAX
8         JPL     XNEXT
9         CALL    OUTL
10         PUSH    0,GR1
11         LD      GR1,GR2
12         CALL    OUTL
13         POP     GR1
14         CALL    DIVL
15         JOV     WOV
16         PUSH    0,GR1
17         LD      GR1,GR0
18         CALL    OUTL
19         LD      GR1,GR3
20         CALL    OUTL
21         POP     GR1
22 YNEXT   OUT     SEP,SLEN
23         LAD     GR2,1,GR2
24         JUMP    LOOPY
25 WOV     OUT     Y0MSG,YLEN
26         JUMP    YNEXT
27 XNEXT   LAD     GR1,-1,GR1
28         JUMP    LOOPX
29 FIN     RET
30 XMAX    DC      100
31 XMIN    DC      0
32 YMAX    DC      10
33 YMIN    DC      0
34 SEP     DC      '--------------------'
35 SLEN    DC      20
36 Y0MSG   DC      'Error: div by 0'
37 YLEN    DC      15
38         END