01070 E0A2 A6 00 LDA A 0,X
01080 E0A4 08 INX
01090 E0A5 20 C4 BRA OUTHR
01100 E0A7 BD E1AC WAIT JSP INEEE
01110 E0AA 81 0D CMP A #$0D
01120 E0AC 27 03 BEQ *+5
01130 E0AE 7E E0E3 JMP CONTRL
01140 E0B1 CE E17D WAIT2 LDX #CRLF
01150 E0B4 BD E07E WAIT1 JSR PDATA1
01160 E0B7 39 RTS
01170 E0B8 FF F012 PORTAC STX XTEMP
01180 E0BB CE F500 LDX #ACIAS
01190 E0BE FF F018 STX OUTADD
01200 E0C1 FF F016 STX INADD
01210 E0C4 FE F012 LDX XTEMP
01220 E0C7 39 RTS
01230 E0C8 8D D4 OUT4HS BSR OUT2H
01240 E0CA 8D D2 OUT2HS BSR OUT2H
01250 E0CC 86 20 OUTS LDA A #$20
01260 E0CE 20 A5 BRA OUTCH
01270 E0D0 8E F072 START LDS #STACK
01280 E0D3 BF F008 STS SP
01290 E0D6 CE E133 LDX #SFE1
01300 E0D9 FF F014 STX SWI
01310 E0DC 86 13 LDA A #$13
01320 E0DE B7 F500 STA A ACIAS
01330 E0E1 01 NOP
01340 E0E2 01 NOP
01350 E0E3 86 11 CONTRL LDA A #$11
01360 E0E5 B7 F500 STA A ACIAS
01370 E0E8 7F F01A CLR OUTSW
01380 E0EB BE F008 LDS SP
01390 E0EE CE E172 LDX #MCLOFF
01400 E0F1 8D 92 BSR PDATAC
01410 E0F3 BD E1AC JSR INEEE
01420 F0F6 16 TAB
01430 E0F7 8D D3 BSR OUTS
01440 E0F9 C1 4C CMP 3 #'L
01450 E0FB 27 69 BEQ TAPE
01460 E0FD C1 4D CMP B #'M
01470 E0FF 27 68 BEQ MEMORY
01480 E101 C1 50 CMP B #'P
01490 E103 27 61 BEQ TAPF
01500 E105 C1 52 CMP B #'R
01510 E107 27 36 BEQ PRINT
01520 E109 C1 43 CMP B #'C
01530 E10B 27 5F BEQ CHECK
01540 E10D C1 54 CMP B #'T
01550 E10F 27 5E BEQ TYPE
01560 E111 C1 47 CMP B #'G
01570 E113 27 0A BEQ GO
01580 E115 B6 E400 LDA A PRMNXT
01590 E118 81 7E CMP A #$7E
01600 E11A 26 C7 BNE CONTRL
01610 E11C 7E E400 JMP PRMNXT
01620 E11F BD E318 GO JSR INPUT1
01630 E122 30 TSX
01640 E123 B6 F01E LDA A ENDA
01650 E126 A7 05 STA A 5,X
01660 E128 B6 F01F LDA A ENDA+1
01670 E12B A7 06 STA A 6,X
01680 E12D 3B RTI
01690 E12E FE F014 SFE LDX SWI
01700 E131 6E 00 JMP 0,X
01710 E133 BF F008 SFE1 STS SP
01720 E136 30 TSX
01730 E137 6D 06 TST 6,X
01740 E139 26 02 BNE *+4
01750 E13B 6A 05 DEC 5,X
01760 E13D 6A 06 DEC 6,X
01770 E13F BD E0B8 PRINT JSR PORTAC
01780 E142 FE F008 LDX SP
01790 E145 08 INX
01800 E146 C6 03 LDA B #3
01810 E148 BD E0CA PRINT1 JSR OUT2HS
01820 E14B 5A DEC B
01830 E14C 26 FA BNE PRINT1
01840 E14E BD E0C8 JSR OUT4HS
01850 E151 BD E0C8 JSR OUT4HS
01860 E154 CE F008 LDX #SP
01870 E157 BD E0C8 JSR OUT4HS
01880 E15A 20 87 BRA CONTRL
01890 E15C FE F016 LOADI LDX INADD
01900 E15F 86 55 LDA A #$55
01910 E161 A7 00 STA A 0,X
01920 E163 86 11 LDA A #$11
01930 E165 39 RTS
01940 E166 7E E3B6 TAPE JMP TAPEIO
01950 E169 7E E212 MEMORY JMP CHANGE
01960 E16C 7E E31F CHECK JMP CKSUM
01970 E16F 7E E34F TYPE JMP LISTER
01980 E172 13 MCLOFF FCB $13
01990 E173 0D MCL FCB $0D,$0A,$14,0,0,0,0,0,*,4
E174 0A
E175 14
E176 00
E177 00
E178 00
E179 00
E17A 00
E17B 2A
E17C 04
02000 E17D 0D CRLF FCB $0D,$0A,0,0,0,0,0,0,4
E17E 0A
E17F 00
E180 00
E181 00
E182 00
E183 00
E184 00
E185 04
02010 E186 0D MTAPE1 FCB $0D,$0A,0,0,0,0,0,0,S,1,4
E187 0A
E188 00
E189 00
E18A 00
E18B 00
E18C 00
E18D 00
E18E 53
E18F 31
E190 04
02020 E191 20 ECHO FCB $20,$20,'E,'C,'H,'O,'?,$20,4
E192 20
E193 45
E194 43
E195 48
E196 4F
F197 3F
E198 20
E199 04
02030 E19A FE F016 ACIN LDX INADD
02040 E19D 20 03 BRA *+5
02050 E19F FE F018 ACOUT LDX OUTADD
02060 E1A2 86 13 LDA A #$13
02070 E1A4 A7 00 STA A 0,X
02080 E1A6 86 11 LDA A #$11
02090 E1A8 A7 00 STA A 0,X
02100 E1AA 39 RTS
02110 E1AB 00 FCB 0
02120 E1AC FF F012 INEEE STX XTEMP
02130 E1AF CE F500 LDX #ACIAS
02140 E1B2 20 06 BRA *+8
02150 E1B4 FF F012 IN2 STX XTEMP
02160 E1B7 FE F016 LDX INADD
02170 E1BA 8D 08 IN3 BSR INCHP
02180 E1BC 84 7F AND A #$7F
02190 E1BE 81 7F CMP A #$7F
02200 E1C0 27 F8 BEQ IN3
02210 E1C2 20 18 BRA OUT2+3
02220 E1C4 A6 00 INCHP LDA A 0,X
02230 E1C6 47 ASR A
02240 E1C7 24 FB BCC INCHP
02250 E1C9 A6 01 LDA A 1,X
02260 E1CB 39 RTS
02270 E1CC 00 FCB 0,0
E1CD 00
02280 E1CE 7E E0E3 QUIT JMP CONTRL
02290 E1D1 FF F012 OUTEFE STX XTEMP
02300 E1D4 CE F500 LDX #ACIAS
02310 E1D7 20 06 BRA *+8
02320 E1D9 FF F012 OUT2 STX XTEMP