3 LOOPX CPA GR3,XCNT ; (GR3 = XCNT)の場合、ループ脱出
5 LD GR1,X,GR3 ; GR1に、(X+GR3)番地の値を転送
7 LOOPY CPA GR4,YCNT ; (GR4 = YCNT)の場合、ループ脱出
9 LD GR2,Y,GR4 ; GR2に、(X+GR4)番地の値を転送
10 OUT SEP,SLEN ; 区切り線を出力
12 PUSH 0,GR1 ; GR2の数値を出力
16 CALL MULL ; GR0 <- GR1 * GR2
17 JOV WOV ; オーバーフローの場合は、WOVへジャンプ
18 PUSH 0,GR1 ; GR0の数値を出力
22 YNEXT OUT SEP,SLEN ; 区切り線を出力
23 LAD GR4,1,GR4 ; GR4 <- GR4 + 1
24 JUMP LOOPY ; LOOPYへジャンプ
25 WOV OUT YOMSG,YLEN ; オーバーフローした場合のメッセージを表示
26 JUMP YNEXT ; YNEXTへジャンプ
27 XNEXT LAD GR3,1,GR3 ; GR3 <- GR3 + 1
28 JUMP LOOPX ; LOOPXへジャンプ
30 X DC 0,1,2,127,128,255,256,257,32767,#8000,#FFFF
31 Y DC 0,1,2,127,128,255,256,257,32767,#8000,#FFFF
34 SEP DC '--------------------'
36 YOMSG DC 'Warning: overflow'