Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 1 00100 ****************************** 00110 * Color Legends Driver V 1.3 * 00120 * (C) 1988 By Mike Pepe and * 00130 * Radical Vision Systems, Inc* 00140 * * 00150 * This driver is designed to * 00160 * Work with * 00170 * COLOR LEGENDS BBS 2.0 Only!* 00180 * It is NOT a replacement for* 00190 * "REMOTE2" * 00200 ****************************** 00210 00220 TITLE Color Legends Driver 01.03 00230 A2C7 00240 ORG $A2C7 A2C7 25 00250 FCB $25 A2F7 00260 ORG $A2F7 A2F7 25 00270 FCB $25 A000 00280 ORG $A000 A000 0F5F 00290 FDB GETKY 00300 F7B0 00310 ORG $F7B0 F7B0 7E 0ECA 00320 JMP PRINT 00330 00340 00350 **** Driver Working Variables **** 00360 F7B3 CF 00370 TONE FCB $CF BELL TONE 0400 00380 STRLEN EQU $400 USR0 STRING LENGTH 0401 00390 COLS EQU $401 COLUMNS ENTERED USR0 0402 00400 STRTGL EQU $402 ASTERISKS ONLY OUTPUT 0403 00410 UPCTGL EQU $403 UPPERCASE ONLY INPUT 0404 00420 STRLOC EQU $404 STRING VARPTR LOCATION 0406 00430 MDMOPT EQU $406 MODEM OUTPUT TOGGLE 0407 00440 LNFTGL EQU $407 LINEFEED TOGGLE 0408 00450 MDMINP EQU $408 MODEM INPUT TOGGLE 00460 0410 00470 CARDRP EQU $410 CARRIER DROP DETECTOR 00480 0500 00490 MEMPAG EQU $500 RAM TEXT PAGE NUMBER 0501 00500 TXTNUM EQU $501 STRING # (0-63) 00510 050C 00520 EDTLEN EQU $50C EDITOR LINE LENGTH 00530 050E 00540 EDTCOL EQU $50E EDITOR COLUMN COUNTER 050F 00550 EDTLIN EQU $50F EDITOR LINE COUNTER 00560 00570 **** Main Program begins here **** 00580 0E00 00590 ORG $E00 00600 0E00 0E08 00610 DFUSR0 FDB USR0 modem I/O 0E02 0FB0 00620 DFUSR1 FDB USR1 RAM->string 0E04 0FE1 00630 DFUSR2 FDB USR2 string->RAM 0E06 1011 00640 DFUSR3 FDB EDITOR Legends editor 3.0 Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 2 00650 00660 00670 ********************** 00680 * Modem I/O Routines * 00690 ********************** 00700 0E08 BD B3ED 00710 USR0 JSR $B3ED get function 0E0B 1083 0000 00720 CMPD #0 is it 0? 0E0F 1027 0095 00730 LBEQ INKEY yes, do an inkey 0E13 34 76 00740 PSHS A,B,X,Y,U save the registers 0E15 FD 0404 00750 STD STRLOC save the varptr in STRLOC 0E18 1F 01 00760 TFR D,X put it into X 0E1A A6 84 00770 LDA ,X get the str length 0E1C B7 0400 00780 STA STRLEN put it in STRLEN 0E1F 7F 0401 00790 CLR COLS start at column 0 0E22 EC 02 00800 LDD 2,X get string location 0E24 1F 01 00810 TFR D,X put it back in X 0E26 AD 9F A000 00820 USR100 JSR [$A000] get a keypress/modem 0E2A 7D 0410 00830 TST CARDRP are we checking carriers? 0E2D 27 15 00840 BEQ USR150 no check, skip around 0E2F 34 04 00850 PSHS B save B 0E31 F6 FF21 00860 LDB $FF21 get carrier 0E34 C4 80 00870 ANDB #$80 0 or 1?? 0E36 27 0A 00890 BEQ USR149 0=Carrier present 0E38 35 04 00900 PULS B restore B 0E3A CC FFFF 00910 LDD #-1 Send a -1 0E3D BD B4F4 00920 JSR $B4F4 back to basic 0E40 35 F6 00930 PULS A,B,X,Y,U,PC and return! 0E42 35 04 00940 USR149 PULS B restore B 0E44 4D 00950 USR150 TSTA check A 0E45 27 DF 00960 BEQ USR100 0, try again 0E47 81 08 00970 CMPA #8 Backspace? 0E49 27 3D 00980 BEQ USRBCK yes, doa backspace 0E4B 81 0D 00990 CMPA #13 Return? 0E4D 27 4F 01000 BEQ USREND yes, return sub. 0E4F 7D 0403 01010 TST UPCTGL Uppercase only? 0E52 27 06 01020 BEQ USR200 nope, go around 0E54 81 61 01030 CMPA #'a is it lower? 0E56 25 16 01040 BLO USR300 no, don't bother 0E58 84 DF 01050 ANDA #$DF yes, make upper 0E5A F6 0401 01060 USR200 LDB COLS get the chars in 0E5D F1 0400 01070 CMPB STRLEN are we at the length? 0E60 26 0C 01080 BNE USR300 no, save it 0E62 86 07 01090 LDA #7 make a bell 0E64 34 16 01100 PSHS A,B,X save these 0E66 AD 9F A002 01110 JSR [$A002] send a beep 0E6A 35 16 01120 PULS A,B,X restore them 0E6C 20 B8 01130 BRA USR100 get more keys 01140 0E6E A7 80 01150 USR300 STA ,X+ save and inc. X 0E70 7C 0401 01160 INC COLS string length + 1 0E73 7D 0402 01170 TST STRTGL are we sending *'s? 0E76 27 06 01180 BEQ USR400 no, go around 0E78 81 07 01190 CMPA #7 if it's a beep 0E7A 27 02 01200 BEQ USR400 don't bother Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 3 0E7C 86 2A 01210 LDA #'* get a * char 0E7E 34 16 01220 USR400 PSHS A,B,X save regs 0E80 AD 9F A002 01230 JSR [$A002] print a * 0E84 35 16 01240 PULS A,B,X restore regs 0E86 20 9E 01250 BRA USR100 get more keys 01260 0E88 7D 0401 01270 USRBCK TST COLS check for 1st column 0E8B 27 99 01280 BEQ USR100 don't backspace if 1st 0E8D 7A 0401 01290 DEC COLS string length down 1 0E90 6F 82 01300 CLR ,-X clear the old char 0E92 34 16 01310 PSHS A,B,X save regs 0E94 86 08 01320 LDA #8 send a B.S. 0E96 AD 9F A002 01330 JSR [$A002] print it 0E9A 35 16 01340 PULS A,B,X restore regs 0E9C 20 88 01350 BRA USR100 get more keys 01360 0E9E BE 0404 01370 USREND LDX STRLOC get the varptr loc 0EA1 B6 0401 01380 LDA COLS get the columns 0EA4 A7 84 01390 STA ,X set proper length 0EA6 35 F6 01400 PULS A,B,X,Y,U,PC restore & return 01410 0EA8 12 01420 INKEY NOP padding 0EA9 AD 9F A000 01430 INK100 JSR [$A000] get a key 0EAD 7D 0410 01440 TST CARDRP are we doing carrier? 0EB0 27 0E 01450 BEQ INK999 no, go around 0EB2 F6 FF21 01460 LDB $FF21 check carrier 0EB5 C4 80 01470 ANDB #$80 logical 1 or 0 0EB7 27 07 01480 BEQ INK999 Modem ok, continue 0EB9 CC FFFF 01490 LDD #-1 send a #-1 0EBC BD B4F4 01500 JSR $B4F4 to basic 0EBF 39 01510 RTS return! 01520 01530 0EC0 4D 01540 INK999 TSTA check A 0EC1 27 E6 01550 BEQ INK100 go back for more 0EC3 5F 01560 CLRB set B to 0 0EC4 1E 89 01570 EXG A,B put the char in B, 0 in A 0EC6 BD B4F4 01580 JSR $B4F4 send to basic 0EC9 39 01590 RTS return 01600 01610 0ECA 1A 50 01620 PRINT ORCC #$50 mask interrupts 0ECC C6 21 01630 LDB #$21 BRN opcode 0ECE F7 A2C7 01640 STB $A2C7 patch basic so 0ED1 F7 A2F7 01650 STB $A2F7 it sends over modem 0ED4 7D 0406 01660 TST MDMOPT output to modem? 0ED7 27 03 01670 BEQ NON100 nope, just screen 0ED9 BD A2BF 01680 JSR $A2BF send a char to modem 0EDC 81 0C 01690 NON100 CMPA #12 a CHR$(12)? 0EDE 27 1F 01700 BEQ CLRSCN clear the screen 0EE0 81 07 01710 CMPA #07 a CHR$(7)? 0EE2 27 3E 01720 BEQ BEEP make a beep 0EE4 81 0D 01730 CMPA #13 a CHR$(13)? 0EE6 27 03 01740 BEQ LF make a CR + LF 0EE8 7E F7B4 01750 GOBCK JMP $F7B4 go thru PRINT Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 4 0EEB 7D 0407 01760 LF TST LNFTGL send CR + LF? 0EEE 27 F8 01770 BEQ GOBCK no, just CR 0EF0 86 0D 01780 LDA #13 send CR 0EF2 BD A2BF 01790 JSR $A2BF 0EF5 86 0A 01800 LDA #10 send LF 0EF7 BD A2BF 01810 JSR $A2BF 0EFA 86 0D 01820 LDA #13 but print a CR 0EFC 7E F7B4 01830 JMP $F7B4 on screen 01840 01850 0EFF 34 16 01860 CLRSCN PSHS D,X save D&X 0F01 CC 2000 01870 LDD #$2000 a blank space 0F04 8E 2280 01880 LDX #$2000+(4*160) RAM location 0F07 ED 81 01890 CLR100 STD ,X++ clear a char 0F09 8C 3180 01900 CMPX #$2000+(28*160) done w/ this? 0F0C 26 F9 01910 BNE CLR100 nope, go on 0F0E 8E 2280 01920 LDX #$2000+(4*160) 4 lines down, 0F11 BF FE00 01930 STX $FE00 screen window 0F14 7F FE02 01940 CLR $FE02 0 Columns 0F17 86 04 01950 LDA #4 0F19 B7 FE03 01960 STA $FE03 4 Rows down 0F1C 35 16 01970 PULS D,X restore D&X 0F1E 4F 01980 CLRA set A to 0 0F1F 7E F7B4 01990 JMP $F7B4 exit thru PRINT 02000 0F22 34 16 02010 BEEP PSHS D,X save D & X 0F24 B6 FF01 02020 LDA $FF01 Set CoCo PIA 0F27 84 F7 02030 ANDA #$F7 to direct DAC 0F29 B7 FF01 02040 STA $FF01 output to 0F2C B6 FF03 02050 LDA $FF03 the CoCo's 0F2F 84 F7 02060 ANDA #$F7 speaker 0F31 B7 FF03 02070 STA $FF03 0F34 B6 FF23 02080 LDA $FF23 0F37 8A 08 02090 ORA #8 0F39 B7 FF23 02100 STA $FF23 02110 0F3C 8E 0019 02120 LDX #25 25 iterations 0F3F B6 F7B3 02130 BEEP1 LDA TONE get the delay tone 0F42 86 02 02140 LDA #2 set bottom of sq. wave 0F44 B7 FF20 02150 STA $FF20 make it so 0F47 4A 02160 BEEP2 DECA do a time delay 0F48 26 FD 02170 BNE BEEP2 to give a tone 0F4A C6 FF 02180 LDB #$FF set top of sq. wave 0F4C F7 FF20 02190 STB $FF20 make it so 0F4F B6 F7B3 02200 BEEP3 LDA TONE wait out the top 0F52 4A 02210 BEEP4 DECA do a time delay 0F53 26 FD 02220 BNE BEEP4 0F55 30 1F 02230 LEAX -1,X are we done? 0F57 26 E6 02240 BNE BEEP1 nope, go back 0F59 35 16 02250 PULS D,X restore regs 0F5B 4F 02260 CLRA CHR$(0) 0F5C 7E F7B4 02270 JMP $F7B4 exit thru print 02280 02290 0F5F 1A 50 02300 GETKY ORCC #$50 mask interrupts Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 5 02310 0F61 7D 0408 02320 TST MDMINP input from modem? 0F64 27 07 02330 BEQ KEYBD nope, just screen 02340 0F66 B6 FF22 02350 LDA $FF22 check modem input 0F69 84 01 02360 ANDA #1 normalize 0F6B 27 07 02370 BEQ MODEM yes, a start bit 02380 0F6D BD A1CB 02390 KEYBD JSR $A1CB check keyboard 0F70 12 02400 NOCAR NOP pad 0F71 39 02410 RTS return to basic 0F72 4F 02420 NONE CLRA none, clear A 0F73 39 02430 RTS return 02440 0F74 34 14 02450 MODEM PSHS X,B save X & B 0F76 8D 26 02460 BSR HFBIT wait 1/2 bit time 0F78 8D 2D 02470 BSR WHBIT wait 1 bit time 0F7A C6 08 02480 LDB #8 do 8 bits 0F7C 4F 02490 CLRA make a 0 0F7D 34 02 02500 PSHS A put on stack 0F7F B6 FF22 02510 GETBIT LDA $FF22 get the bit 0F82 44 02520 LSRA put it in C 0F83 66 E4 02530 ROR ,S put C on stack 0F85 8D 20 02540 BSR WHBIT wait 1 bit time 0F87 5A 02550 DECB dec bit count 0F88 26 F5 02560 BNE GETBIT not done, go more 0F8A A6 E0 02570 LDA ,S+ get the char 0F8C 8D 19 02580 BSR WHBIT wait out stop bit 0F8E 81 0D 02590 CMPA #13 is it a CR? 0F90 27 09 02600 BEQ GET999 yes, exit 0F92 81 08 02610 CMPA #8 is it a BS? 0F94 27 05 02620 BEQ GET999 yes, exit 0F96 81 20 02630 CMPA #32 is it a space? 0F98 24 01 02640 BHS GET999 or higher- exit 0F9A 4F 02650 CLRA clear it out 0F9B 4D 02660 GET999 TSTA test A 0F9C 35 94 02670 PULS B,X,PC restore & return 02680 0F9E 12 02690 HFBIT NOP pad 0F9F 8E 0055 02700 LDX #0085 wait 85 times 0FA2 30 1F 02710 HF100 LEAX -1,X count 0FA4 26 FC 02720 BNE HF100 untill done 0FA6 39 02730 RTS return 02740 0FA7 12 02750 WHBIT NOP pad 0FA8 8E 00AA 02760 LDX #0170 170 times 0FAB 30 1F 02770 WH100 LEAX -1,X countdown 0FAD 26 FC 02780 BNE WH100 until done 0FAF 39 02790 RTS return 02800 02810 02820 02830 ******************************* 02840 * Store RAM into a string * 02850 ******************************* Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 6 02860 0FB0 1A 50 02870 USR1 ORCC #$50 mask interrupts 0FB2 BD B3ED 02880 JSR $B3ED get function 0FB5 1F 02 02890 TFR D,Y put the varptr in Y 0FB7 AE 22 02900 LDX 2,Y get string loc.in X 0FB9 5F 02910 CLRB B=0 02920 0FBA 86 30 02930 LDA #$30 Base page=$60000 0FBC BB 0500 02940 ADDA MEMPAG offset this page 0FBF B7 FFA1 02950 STA $FFA1 page it in $2000 02960 0FC2 B6 0501 02970 LDA TXTNUM get the string # 0FC5 C6 80 02980 LDB #128 128 bytes a string 0FC7 3D 02990 MUL get the location 0FC8 1F 03 03000 TFR D,U put it into U 0FCA 33 C9 2000 03010 LEAU $2000,U add $2000 base RAM to it 03020 0FCE 5F 03030 CLRB B=0 03040 0FCF A6 C0 03050 COM100 LDA ,U+ get the character 0FD1 27 05 03060 BEQ COM999 it's 0, stop 0FD3 5C 03070 INCB inc length 0FD4 A7 80 03080 STA ,X+ put it in RAM 0FD6 20 F7 03090 BRA COM100 continue 03100 0FD8 12 03110 COM999 NOP pad 0FD9 86 39 03120 LDA #$39 restore basic 0FDB B7 FFA1 03130 STA $FFA1 page it in 0FDE E7 A4 03140 STB ,Y put the length 0FE0 39 03150 RTS return 03160 03170 ************************* 03180 * Put a string into RAM * 03190 ************************* 03200 0FE1 1A 50 03210 USR2 ORCC #$50 0FE3 BD B3ED 03220 JSR $B3ED 0FE6 1F 02 03230 TFR D,Y 0FE8 AE 22 03240 LDX 2,Y 0FEA 5F 03250 CLRB 03260 0FEB 86 30 03270 LDA #$30 0FED BB 0500 03280 ADDA MEMPAG 0FF0 B7 FFA1 03290 STA $FFA1 03300 0FF3 B6 0501 03310 LDA TXTNUM 0FF6 C6 80 03320 LDB #128 0FF8 3D 03330 MUL 0FF9 1F 03 03340 TFR D,U U IS ACTUAL MEM POINTER 0FFB 33 C9 2000 03350 LEAU $2000,U ADJUST U 03360 0FFF E6 A4 03370 LDB ,Y 03380 1001 A6 80 03390 COM200 LDA ,X+ 1003 27 04 03400 BEQ COM000 Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 7 1005 A7 C0 03410 STA ,U+ 1007 20 F8 03420 BRA COM200 03430 1009 6F C0 03440 COM000 CLR ,U+ 100B 86 39 03450 LDA #$39 100D B7 FFA1 03460 STA $FFA1 1010 39 03470 RTS 03480 03490 03500 ******************************* 03510 * Color Legends Editor V. 3.0 * 03520 ******************************* 03530 1011 1A 50 03540 EDITOR ORCC #$50 1013 BD B3ED 03550 JSR $B3ED 1016 1083 0000 03560 CMPD #0 101A 1027 0147 03570 LBEQ ECLEAR 03580 101E 4F 03590 CLRA 101F B7 050E 03600 STA EDTCOL 03610 1022 B6 050F 03620 EDLINE LDA EDTLIN 1025 C6 80 03630 LDB #128 1027 3D 03640 MUL 1028 1F 03 03650 TFR D,U 102A 33 C9 2000 03660 LEAU $2000,U 102E 5F 03670 CLRB 03680 102F 34 76 03690 PSHS A,B,X,Y,U 1031 86 0D 03700 LDA #13 1033 AD 9F A002 03710 JSR [$A002] 1037 B6 050F 03720 LDA EDTLIN 103A 81 17 03730 CMPA #23 103C 24 56 03740 BHS NOROOM 03750 103E 35 76 03760 PULS A,B,X,Y,U 03770 03780 1040 34 44 03790 INCHAR PSHS B,U 1042 AD 9F A000 03800 JSR [$A000] 1046 35 44 03810 PULS B,U 03820 1048 7D 0410 03830 TST CARDRP 104B 27 14 03840 BEQ INC100 104D 34 02 03850 PSHS A 104F B6 FF21 03860 LDA $FF21 1052 84 80 03870 ANDA #$80 1054 27 09 03890 BEQ INC050 1056 35 02 03900 PULS A 1058 CC FFFF 03910 LDD #-1 105B BD B4F4 03920 JSR $B4F4 105E 39 03930 RTS 03940 105F 35 02 03950 INC050 PULS A 03960 Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 8 1061 4D 03970 INC100 TSTA 1062 27 DC 03980 BEQ INCHAR 03990 1064 81 08 04000 KEYCHK CMPA #8 1066 27 3A 04010 BEQ EBACK 1068 81 0D 04020 CMPA #13 106A 27 60 04030 BEQ NXTLIN 04040 106C 7D 050E 04050 TST EDTCOL 106F 26 08 04060 BNE MAIN 04070 1071 81 2F 04080 CMPA #'/ 1073 27 26 04090 BEQ BASIC 1075 81 2E 04100 CMPA #'. 1077 27 22 04110 BEQ BASIC 04120 1079 BD 1153 04130 MAIN JSR MEMIN 107C A7 C0 04140 STA ,U+ 107E BD 115C 04150 JSR MEMOUT 1081 5C 04160 INCB 1082 F7 050E 04170 STB EDTCOL 1085 F1 050C 04180 CMPB EDTLEN 1088 27 5A 04190 BEQ WRAP 04200 04210 108A 34 76 04220 PSHS A,B,X,Y,U 108C AD 9F A002 04230 JSR [$A002] 1090 35 76 04240 PULS A,B,X,Y,U 1092 20 AC 04250 BRA INCHAR 04260 1094 CC 0001 04270 NOROOM LDD #$1 1097 BD B4F4 04280 JSR $B4F4 109A 39 04290 RTS 04300 109B CC 0000 04310 BASIC LDD #$0 109E BD B4F4 04320 JSR $B4F4 10A1 39 04330 RTS 04340 10A2 7D 050E 04350 EBACK TST EDTCOL 10A5 26 0C 04360 BNE EBK100 10A7 86 07 04370 LDA #7 10A9 34 06 04380 PSHS A,B 10AB AD 9F A002 04390 JSR [$A002] 10AF 35 06 04400 PULS A,B 10B1 20 8D 04410 BRA INCHAR 04420 10B3 5A 04430 EBK100 DECB 10B4 F7 050E 04440 STB EDTCOL 10B7 BD 1153 04450 JSR MEMIN 10BA 6F C2 04460 CLR ,-U 10BC BD 115C 04470 JSR MEMOUT 04480 10BF 86 08 04490 LDA #8 10C1 34 06 04500 PSHS A,B 10C3 AD 9F A002 04510 JSR [$A002] Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 9 10C7 35 06 04520 PULS A,B 10C9 16 FF74 04530 LBRA INCHAR 04540 10CC B6 050F 04550 NXTLIN LDA EDTLIN 10CF 4C 04560 INCA 10D0 B7 050F 04570 STA EDTLIN 10D3 7F 050E 04580 CLR EDTCOL 04590 10D6 81 17 04600 CMPA #23 10D8 24 C1 04610 BHS BASIC 10DA 16 FF45 04620 LBRA EDLINE 04630 10DD CC 0001 04640 LDD #1 10E0 BD B4F4 04650 JSR $B4F4 10E3 39 04660 RTS 04670 10E4 12 04680 WRAP NOP 04690 10E5 5F 04700 CLRB 10E6 B6 050C 04710 LDA EDTLEN 10E9 44 04720 LSRA 10EA 8E 0000 04730 LDX #0000 10ED 30 86 04740 LEAX A,X 10EF BD 1153 04750 FNDSPC JSR MEMIN 10F2 A6 C2 04760 LDA ,-U 10F4 BD 115C 04770 JSR MEMOUT 10F7 5C 04780 INCB 04790 10F8 81 20 04800 CMPA #32 10FA 27 06 04810 BEQ GOSPC 10FC 30 1F 04820 LEAX -1,X 10FE 26 EF 04830 BNE FNDSPC 04840 1100 20 CA 04850 BRA NXTLIN 04860 1102 5A 04870 GOSPC DECB 1103 27 C7 04880 BEQ NXTLIN 1105 86 08 04890 SPACE LDA #8 1107 AD 9F A002 04900 JSR [$A002] 110B 5A 04910 DECB 110C 26 F7 04920 BNE SPACE 110E 86 0D 04930 LDA #13 1110 AD 9F A002 04940 JSR [$A002] 1114 33 41 04950 LEAU 1,U 1116 1F 32 04960 TFR U,Y 1118 BD 1153 04970 JSR MEMIN 111B 6F 5F 04980 CLR -1,U 111D BD 115C 04990 JSR MEMOUT 05000 1120 34 06 05010 PSHS A,B 1122 7C 050F 05020 INC EDTLIN 1125 B6 050F 05030 LDA EDTLIN 1128 C6 80 05040 LDB #128 112A 3D 05050 MUL 112B 1F 03 05060 TFR D,U Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 10 112D 33 C9 2000 05070 LEAU $2000,U 1131 35 06 05080 PULS A,B 1133 5F 05090 CLRB 1134 BD 1153 05100 COPY JSR MEMIN 1137 A6 A0 05110 LDA ,Y+ 1139 27 0F 05120 BEQ WRAPUP 113B A7 C0 05130 STA ,U+ 113D BD 115C 05140 JSR MEMOUT 1140 AD 9F A002 05150 JSR [$A002] 1144 BD 1153 05160 JSR MEMIN 1147 5C 05170 INCB 1148 20 EA 05180 BRA COPY 05190 114A F7 050E 05200 WRAPUP STB EDTCOL 114D BD 115C 05210 JSR MEMOUT 05220 1150 16 FEED 05230 LBRA INCHAR 05240 1153 34 02 05250 MEMIN PSHS A 1155 86 33 05260 LDA #$33 1157 B7 FFA1 05270 STA $FFA1 115A 35 82 05280 PULS A,PC 115C 34 02 05290 MEMOUT PSHS A 115E 86 39 05300 LDA #$39 1160 B7 FFA1 05310 STA $FFA1 1163 35 82 05320 PULS A,PC 05330 1165 86 33 05340 ECLEAR LDA #$33 1167 B7 FFA1 05350 STA $FFA1 116A CC 0000 05360 LDD #$0000 116D 8E 2000 05370 LDX #$2000 05380 1170 ED 81 05390 EC100 STD ,X++ 1172 8C 4000 05400 CMPX #$4000 1175 26 F9 05410 BNE EC100 1177 86 39 05420 LDA #$39 1179 B7 FFA1 05430 STA $FFA1 117C 39 05440 RTS 05450 MISSING END STATEMENT 00001 TOTAL ERRORS Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 11 BASIC 109B BEEP 0F22 BEEP1 0F3F BEEP2 0F47 BEEP3 0F4F BEEP4 0F52 CARDRP 0410 CLR100 0F07 CLRSCN 0EFF COLS 0401 COM000 1009 COM100 0FCF COM200 1001 COM999 0FD8 COPY 1134 DFUSR0 0E00 DFUSR1 0E02 DFUSR2 0E04 DFUSR3 0E06 EBACK 10A2 EBK100 10B3 EC100 1170 ECLEAR 1165 EDITOR 1011 EDLINE 1022 EDTCOL 050E EDTLEN 050C EDTLIN 050F FNDSPC 10EF GET999 0F9B GETBIT 0F7F GETKY 0F5F GOBCK 0EE8 GOSPC 1102 HF100 0FA2 HFBIT 0F9E INC050 105F INC100 1061 INCHAR 1040 INK100 0EA9 INK999 0EC0 INKEY 0EA8 KEYBD 0F6D KEYCHK 1064 LF 0EEB LNFTGL 0407 MAIN 1079 MDMINP 0408 MDMOPT 0406 MEMIN 1153 MEMOUT 115C MEMPAG 0500 MODEM 0F74 NOCAR 0F70 NON100 0EDC Color Legends Driver 01.03 EDTASM+/01.01.00 PAGE 12 NONE 0F72 NOROOM 1094 NXTLIN 10CC PRINT 0ECA SPACE 1105 STRLEN 0400 STRLOC 0404 STRTGL 0402 TONE F7B3 TXTNUM 0501 UPCTGL 0403 USR0 0E08 USR1 0FB0 USR100 0E26 USR149 0E42 USR150 0E44 USR2 0FE1 USR200 0E5A USR300 0E6E USR400 0E7E USRBCK 0E88 USREND 0E9E WH100 0FAB WHBIT 0FA7 WRAP 10E4 WRAPUP 114A