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