EDTASM+/01.01.00 PAGE 1 2000 00100 ORG $2000 2000 1A 50 00110 ORCC #$50 00120 00130 ** SETUP ** 2002 B6 FF03 00140 LDA $FF03 2005 8A 04 00150 ORA #4 2007 B7 FF03 00160 STA $FF03 00170 200A CC 3031 00180 LDD #$3031 200D FD FFA2 00190 STD $FFA2 2010 CC 3233 00200 LDD #$3233 2013 FD FFA4 00210 STD $FFA4 2016 CE 4000 00220 LDU #$4000 2019 86 A0 00230 LDA #160 201B F6 0404 00240 LDB $404 201E 3D 00250 MUL 201F 33 CB 00260 LEAU D,U 2021 4F 00270 CLRA 2022 F6 0403 00280 LDB $403 2025 33 CB 00290 LEAU D,U 00300 00310 00320 ** PUT THE ADDRESS IN 'X' 2027 8E 4000 00330 LDX #$4000 202A B6 0402 00340 LDA $402 202D C6 A0 00350 LDB #160 202F 3D 00360 MUL 2030 30 8B 00370 LEAX D,X 2032 F6 0401 00380 LDB $401 2035 4F 00390 CLRA 2036 30 8B 00400 LEAX D,X 00410 00420 ** PUT THE DATA IN 'Y' 2038 108E 0E00 00430 LDY #$0E00 203C B6 0400 00440 LDA $400 203F C6 8A 00450 LDB #06*23 2041 3D 00460 MUL 2042 31 AB 00470 LEAY D,Y 2044 31 AB 00480 LEAY D,Y 00490 00500 * MOVE DATA FROM ,Y TO ,X 2046 B6 FF03 00510 WAIT LDA $FF03 2049 84 80 00520 ANDA #$80 204B 27 F9 00530 BEQ WAIT 00540 204D 86 17 00550 LDA #23 204F C6 0C 00560 LOOPA LDB #12 2051 6F C0 00570 LOOPB CLR ,U+ 2053 5A 00580 DECB 2054 26 FB 00590 BNE LOOPB 2056 33 C9 0094 00600 LEAU 160-12,U 205A 4A 00610 DECA 205B 26 F2 00620 BNE LOOPA 00630 205D 86 17 00640 LDA #23 EDTASM+/01.01.00 PAGE 2 205F B7 2087 00650 STA CNTR 2062 C6 0C 00660 LOOP1 LDB #12 2064 A6 A0 00670 LOOP2 LDA ,Y+ 2066 A7 80 00680 STA ,X+ 2068 5A 00690 DECB 2069 26 F9 00700 BNE LOOP2 206B 30 89 0094 00710 LEAX 160-12,X 206F 7A 2087 00720 DEC CNTR 2072 26 EE 00730 BNE LOOP1 00740 2074 CC 3A3B 00750 LDD #$3A3B 2077 FD FFA2 00760 STD $FFA2 207A CC 3C3D 00770 LDD #$3C3D 207D FD FFA4 00780 STD $FFA4 2080 FC 0401 00790 LDD $401 2083 FD 0403 00800 STD $403 2086 39 00810 RTS 2087 12 00820 CNTR NOP MISSING END STATEMENT 00001 TOTAL ERRORS EDTASM+/01.01.00 PAGE 3 CNTR 2087 LOOP1 2062 LOOP2 2064 LOOPA 204F LOOPB 2051 WAIT 2046