EDTASM+/01.01.00 PAGE 1 0500 00100 ORG $500 0500 1A 50 00110 ORCC #$50 00120 0502 AD 9F A000 00130 BEGIN JSR [$A000] 00140 0506 CE 05A1 00150 LDU #ANTAB 0509 81 03 00160 CMPA #3 050B 1027 0091 00170 LBEQ EXIT 050F 7A 05C7 00180 DEC DELAY 0512 26 61 00190 BNE KEYQ 0514 86 04 00200 LDA #04 0516 B7 05C7 00210 STA DELAY 00220 00230 0519 B6 0155 00240 LDA 341 051C 81 F7 00250 CMPA #247 051E 26 21 00260 BNE KEY2 00270 0520 B6 05C1 00280 LDA XX 0523 34 02 00290 PSHS A 0525 F6 05C5 00300 LDB PICT 0528 58 00310 LSLB 0529 A6 C5 00320 LDA B,U 052B AB E0 00330 ADDA ,S+ 052D B7 05C1 00340 STA XX 00350 0530 B6 05C2 00360 LDA YY 0533 34 02 00370 PSHS A 00380 0535 F6 05C5 00390 LDB PICT 0538 58 00400 LSLB 0539 5C 00410 INCB 053A A6 C5 00420 LDA B,U 053C AB E0 00430 ADDA ,S+ 053E B7 05C2 00440 STA YY 00450 00460 0541 B6 05C3 00470 KEY2 LDA XP 0544 BB 05C1 00480 ADDA XX 00490 0547 81 00 00500 CMPA #000 0549 22 04 00510 BHI KEY3 054B 86 9E 00520 LDA #158 054D 20 06 00530 BRA KEY5 00540 054F 81 9F 00550 KEY3 CMPA #159 0551 25 02 00560 BLO KEY5 0553 86 00 00570 LDA #000 00580 0555 B7 05C3 00590 KEY5 STA XP 00600 0558 B6 05C4 00610 LDA YP 055B BB 05C2 00620 ADDA YY 00630 055E 81 10 00640 CMPA #16 EDTASM+/01.01.00 PAGE 2 0560 24 04 00650 BHS KEY6 0562 86 B4 00660 LDA #180 0564 20 06 00670 BRA KEY8 00680 0566 81 B4 00690 KEY6 CMPA #180 0568 23 02 00700 BLS KEY8 056A 86 10 00710 LDA #16 00720 056C B7 05C4 00730 KEY8 STA YP 00740 056F FC 05C3 00750 LDD XP 0572 FD 0401 00760 STD $401 0575 BD 2000 00770 KEYQ JSR $2000 0578 7A 05C6 00780 DEC DEL2 057B 26 20 00790 BNE KEYX 057D 86 05 00800 LDA #5 057F B7 05C6 00810 STA DEL2 00820 0582 F6 05C5 00830 LDB PICT 0585 B6 0157 00840 LDA 343 0588 81 F7 00850 CMPA #247 058A 26 01 00860 BNE KEY9 058C 5A 00870 DECB 058D B6 0158 00880 KEY9 LDA 344 0590 81 F7 00890 CMPA #247 0592 26 01 00900 BNE KEYA 0594 5C 00910 INCB 0595 C4 0F 00920 KEYA ANDB #$0F 0597 F7 0400 00930 STB $400 059A F7 05C5 00940 STB PICT 059D 16 FF62 00950 KEYX LBRA BEGIN 00960 05A0 39 00970 EXIT RTS 00980 05A1 00 00990 ANTAB FCB 0 05A2 FE 01000 FCB -2 05A3 01 01010 FCB 1 05A4 FE 01020 FCB -2 05A5 02 01030 FCB 2 05A6 FE 01040 FCB -2 05A7 02 01050 FCB 2 05A8 FF 01060 FCB -1 05A9 02 01070 FCB 2 05AA 00 01080 FCB 0 05AB 02 01090 FCB 2 05AC 01 01100 FCB 1 05AD 02 01110 FCB 2 05AE 02 01120 FCB 2 05AF 01 01130 FCB 1 05B0 02 01140 FCB 2 05B1 00 01150 FCB 0 05B2 01 01160 FCB 1 05B3 FF 01170 FCB -1 05B4 02 01180 FCB 2 05B5 FE 01190 FCB -2 EDTASM+/01.01.00 PAGE 3 05B6 02 01200 FCB 2 05B7 FE 01210 FCB -2 05B8 01 01220 FCB 1 05B9 FE 01230 FCB -2 05BA 00 01240 FCB 0 05BB FE 01250 FCB -2 05BC FF 01260 FCB -1 05BD FE 01270 FCB -2 05BE FE 01280 FCB -2 05BF FF 01290 FCB -1 05C0 FE 01300 FCB -2 01310 05C1 00 01320 XX FCB 00 05C2 00 01330 YY FCB 00 05C3 50 01340 XP FCB 80 05C4 50 01350 YP FCB 80 05C5 00 01360 PICT FCB 00 05C6 05 01370 DEL2 FCB 5 05C7 00 01380 DELAY FCB 0 MISSING END STATEMENT 00001 TOTAL ERRORS EDTASM+/01.01.00 PAGE 4 ANTAB 05A1 BEGIN 0502 DEL2 05C6 DELAY 05C7 EXIT 05A0 KEY2 0541 KEY3 054F KEY5 0555 KEY6 0566 KEY8 056C KEY9 058D KEYA 0595 KEYQ 0575 KEYX 059D PICT 05C5 XP 05C3 XX 05C1 YP 05C4 YY 05C2