+++ /dev/null
-MAIN START
- LD GR1,XMAX
-LOOPX CPA GR1,XMIN
- JMI FIN
- OUT SEP,SLEN
- LD GR2,YMIN
-LOOPY CPL GR2,YMAX
- JPL XNEXT
- CALL OUTL
- PUSH 0,GR1
- LD GR1,GR2
- CALL OUTL
- POP GR1
- CALL DIVL
- JOV WOV
- PUSH 0,GR1
- LD GR1,GR0
- CALL OUTL
- LD GR1,GR3
- CALL OUTL
- POP GR1
-YNEXT OUT SEP,SLEN
- LAD GR2,1,GR2
- JUMP LOOPY
-WOV OUT Y0MSG,YLEN
- JUMP YNEXT
-XNEXT LAD GR1,-1,GR1
- JUMP LOOPX
-FIN RET
-XMAX DC 100
-XMIN DC 0
-YMAX DC 10
-YMIN DC 0
-SEP DC '--------------------'
-SLEN DC 20
-Y0MSG DC 'Error: div by 0'
-YLEN DC 15
- END