4000- AD 00 BF LDA $BF00 4003- C9 4C CMP #$4C 4005- F0 27 BEQ $402E 4007- 20 8D 44 JSR $448D 400A- 8D 8D 87 STA $878D 400D- BF ??? 400E- C5 D2 CMP $D2 4010- D2 CF CMP ($CF) 4012- D2 A0 CMP ($A0) 4014- A0 D2 LDY #$D2 4016- D5 CE CMP $CE,X 4018- A0 D5 LDY #$D5 401A- CE C4 C5 DEC $C5C4 401D- D2 A0 CMP ($A0) 401F- D0 D2 BNE $3FF3 4021- CF ??? 4022- C4 CF CPY $CF 4024- D3 ??? 4025- A0 CF LDY #$CF 4027- CE CC D9 DEC $D9CC 402A- 00 BRK 402B- 4C D0 03 JMP $03D0 402E- AD 00 C0 LDA $C000 r:KBD w:CLR80COL 4031- 2C 10 C0 BIT $C010 r:KBDSTRB 4034- 49 DC EOR #$DC 4036- 49 CD EOR #$CD 4038- C9 95 CMP #$95 403A- F0 03 BEQ $403F 403C- 4C 45 41 JMP $4145 403F- 20 58 FC JSR $FC58 F8ROM:HOME 4042- A9 00 LDA #$00 4044- 85 01 STA $01 4046- A9 04 LDA #$04 4048- 85 02 STA $02 404A- A9 0A LDA #$0A 404C- 85 00 STA $00 404E- 20 AE EF JSR $EFAE 4051- A9 AE LDA #$AE 4053- A4 A1 LDY $A1 4055- 91 01 STA ($01),Y 4057- C6 00 DEC $00 4059- D0 F3 BNE $404E 405B- E6 02 INC $02 405D- A5 02 LDA $02 405F- C9 08 CMP #$08 4061- D0 E7 BNE $404A 4063- A2 09 LDX #$09 4065- 20 59 F2 JSR $F259 4068- A2 07 LDX #$07 406A- 20 EA F7 JSR $F7EA 406D- 20 8D 44 JSR $448D 4070- D0 F2 BNE $4064 4072- EF ??? 4073- C4 CF CPY $CF 4075- D3 ??? 4076- A0 C3 LDY #$C3 4078- E8 INX 4079- E5 E1 SBC $E1 407B- F4 ??? 407C- A0 A6 LDY #$A6 407E- A0 C3 LDY #$C3 4080- F2 E1 SBC ($E1) 4082- E3 ??? 4083- EB ??? 4084- E5 F2 SBC $F2 4086- A0 F6 LDY #$F6 4088- B1 AE LDA ($AE),Y 408A- B0 00 BCS $408C 408C- A2 0A LDX #$0A 408E- 20 59 F2 JSR $F259 4091- A2 11 LDX #$11 4093- 20 EA F7 JSR $F7EA 4096- 20 8D 44 JSR $448D 4099- E2 ??? 409A- F9 A0 AD SBC $ADA0,Y 409D- C4 C3 CPY $C3 409F- AD 00 A2 LDA $A200 40A2- 0E 20 59 ASL $5920 40A5- F2 A2 SBC ($A2) 40A7- 0B ??? 40A8- 20 EA F7 JSR $F7EA 40AB- 20 8D 44 JSR $448D 40AE- D3 ??? 40AF- E8 INX 40B0- EF ??? 40B1- EF ??? 40B2- F4 ??? 40B3- E9 EE SBC #$EE 40B5- E7 ??? 40B6- A0 D3 LDY #$D3 40B8- F4 ??? 40B9- E1 F2 SBC ($F2,X) 40BB- A0 B2 LDY #$B2 40BD- B1 ED LDA ($ED),Y 40BF- E7 ??? 40C0- 00 BRK 40C1- A2 0F LDX #$0F 40C3- 20 59 F2 JSR $F259 40C6- A2 0E LDX #$0E 40C8- 20 EA F7 JSR $F7EA 40CB- 20 8D 44 JSR $448D 40CE- B2 B0 LDA ($B0) 40D0- B6 AF LDX $AF,Y 40D2- B8 CLV 40D3- B3 ??? 40D4- B8 CLV 40D5- AD B7 B6 LDA $B6B7 40D8- B8 CLV 40D9- B6 00 LDX $00,Y 40DB- A2 18 LDX #$18 40DD- 20 59 F2 JSR $F259 40E0- A2 10 LDX #$10 40E2- 20 EA F7 JSR $F7EA 40E5- 20 8D 44 JSR $448D 40E8- B0 B5 BCS $409F 40EA- AF ??? 40EB- B3 ??? 40EC- B1 AF LDA ($AF),Y 40EE- B8 CLV 40EF- B9 00 A9 LDA $A900,Y 40F2- 00 BRK 40F3- A2 FF LDX #$FF 40F5- A0 DA LDY #$DA 40F7- 8D 4C 90 STA $904C 40FA- 8E 9B 1C STX $1C9B 40FD- 8C 9C 1C STY $1C9C 4100- AD 4C 90 LDA $904C 4103- AE 9C 1C LDX $1C9C 4106- 20 1F 41 JSR $411F 4109- AD 00 C0 LDA $C000 r:KBD w:CLR80COL 410C- 30 0B BMI $4119 410E- EE 4C 90 INC $904C 4111- AD 4C 90 LDA $904C 4114- CD 9B 1C CMP $1C9B 4117- 90 E7 BCC $4100 4119- 2C 10 C0 BIT $C010 r:KBDSTRB 411C- 4C 45 41 JMP $4145 411F- 8D 83 70 STA $7083 4122- 8E 84 70 STX $7084 4125- AE 85 70 LDX $7085 4128- BC 00 FA LDY $FA00,X 412B- 88 DEY 412C- D0 FD BNE $412B 412E- AD 30 C0 LDA $C030 rw:SPKR 4131- AC 83 70 LDY $7083 4134- F0 03 BEQ $4139 4136- 88 DEY 4137- D0 FD BNE $4136 4139- AD 30 C0 LDA $C030 rw:SPKR 413C- CE 85 70 DEC $7085 413F- CE 84 70 DEC $7084 4142- D0 E1 BNE $4125 4144- 60 RTS 4145- AD B3 44 LDA $44B3 4148- F0 17 BEQ $4161 414A- 2C 52 C0 BIT $C052 rw:MIXCLR 414D- 2C 54 C0 BIT $C054 rw:TXTPAGE1 4150- 2C 57 C0 BIT $C057 rw:HIRES 4153- 2C 50 C0 BIT $C050 rw:TXTCLR 4156- 2C 10 C0 BIT $C010 r:KBDSTRB 4159- AD 00 C0 LDA $C000 r:KBD w:CLR80COL 415C- 10 FB BPL $4159 415E- 2C 51 C0 BIT $C051 rw:TXTSET 4161- A9 00 LDA #$00 4163- 85 22 STA $22 4165- 20 58 FC JSR $FC58 F8ROM:HOME 4168- 20 8D 44 JSR $448D 416B- 20 20 20 JSR $2020 416E- 20 20 20 JSR $2020 4171- 20 20 20 JSR $2020 4174- 20 20 20 JSR $2020 4177- 20 20 20 JSR $2020 417A- 20 20 20 JSR $2020 417D- 20 20 20 JSR $2020 4180- 20 20 20 JSR $2020 4183- 20 20 20 JSR $2020 4186- 20 20 20 JSR $2020 4189- 20 20 20 JSR $2020 418C- 20 20 20 JSR $2020 418F- 20 20 20 JSR $2020 4192- 20 20 20 JSR $2020 4195- 20 20 20 JSR $2020 4198- 20 20 20 JSR $2020 419B- 20 20 20 JSR $2020 419E- 20 20 20 JSR $2020 41A1- 20 20 20 JSR $2020 41A4- 20 20 20 JSR $2020 41A7- 20 20 20 JSR $2020 41AA- 20 20 20 JSR $2020 41AD- 20 20 20 JSR $2020 41B0- 20 20 20 JSR $2020 41B3- 20 20 20 JSR $2020 41B6- 20 20 20 JSR $2020 41B9- 20 20 20 JSR $2020 41BC- 20 20 20 JSR $2020 41BF- 20 20 20 JSR $2020 41C2- 20 20 20 JSR $2020 41C5- 20 20 20 JSR $2020 41C8- 20 20 20 JSR $2020 41CB- 20 20 20 JSR $2020 41CE- 20 20 20 JSR $2020 41D1- 20 20 20 JSR $2020 41D4- 20 20 20 JSR $2020 41D7- 20 20 20 JSR $2020 41DA- 20 20 20 JSR $2020 41DD- 20 20 20 JSR $2020 41E0- 20 20 20 JSR $2020 41E3- 20 20 20 JSR $2020 41E6- 20 20 20 JSR $2020 41E9- 20 20 20 JSR $2020 41EC- 20 20 20 JSR $2020 41EF- 20 20 20 JSR $2020 41F2- 20 20 20 JSR $2020 41F5- 20 20 20 JSR $2020 41F8- 20 20 20 JSR $2020 41FB- 20 20 20 JSR $2020 41FE- 20 20 20 JSR $2020 4201- 20 20 20 JSR $2020 4204- 20 20 20 JSR $2020 4207- 20 20 20 JSR $2020 420A- 20 AD AD JSR $ADAD 420D- AD AD AD LDA $ADAD 4210- AD AD AD LDA $ADAD 4213- AD AD AD LDA $ADAD 4216- AD AD AD LDA $ADAD 4219- AD AD AD LDA $ADAD 421C- AD AD AD LDA $ADAD 421F- AD AD AD LDA $ADAD 4222- AD AD AD LDA $ADAD 4225- AD AD AD LDA $ADAD 4228- AD AD AD LDA $ADAD 422B- AD AD AD LDA $ADAD 422E- AD AD AD LDA $ADAD 4231- AD AD A0 LDA $A0AD 4234- A0 C3 LDY #$C3 4236- F2 E5 SBC ($E5) 4238- E1 F4 SBC ($F4,X) 423A- E5 E4 SBC $E4 423C- A0 F7 LDY #$F7 423E- E9 F4 SBC #$F4 4240- E8 INX 4241- A0 D0 LDY #$D0 4243- F2 EF SBC ($EF) 4245- C4 CF CPY $CF 4247- D3 ??? 4248- A0 C3 LDY #$C3 424A- E8 INX 424B- E5 E1 SBC $E1 424D- F4 ??? 424E- A0 CD LDY #$CD 4250- E1 EB SBC ($EB,X) 4252- E5 F2 SBC $F2 4254- A0 F6 LDY #$F6 4256- B1 AE LDA ($AE),Y 4258- B0 A0 BCS $41FA 425A- A0 A0 LDY #$A0 425C- A0 A0 LDY #$A0 425E- C3 ??? 425F- E1 EC SBC ($EC,X) 4261- EC A0 D3 CPX $D3A0 4264- E8 INX 4265- EF ??? 4266- EF ??? 4267- F4 ??? 4268- E9 EE SBC #$EE 426A- E7 ??? 426B- A0 D3 LDY #$D3 426D- F4 ??? 426E- E1 F2 SBC ($F2,X) 4270- A0 E1 LDY #$E1 4272- F4 ??? 4273- A0 B2 LDY #$B2 4275- B0 B6 BCS $422D 4277- AF ??? 4278- B8 CLV 4279- B3 ??? 427A- B8 CLV 427B- AD B7 B6 LDA $B6B7 427E- B8 CLV 427F- B6 A0 LDX $A0,Y 4281- A0 A0 LDY #$A0 4283- AD AD AD LDA $ADAD 4286- AD AD AD LDA $ADAD 4289- AD AD AD LDA $ADAD 428C- AD AD AD LDA $ADAD 428F- AD AD AD LDA $ADAD 4292- AD AD AD LDA $ADAD 4295- AD AD AD LDA $ADAD 4298- AD AD AD LDA $ADAD 429B- AD AD AD LDA $ADAD 429E- AD AD AD LDA $ADAD 42A1- AD AD AD LDA $ADAD 42A4- AD AD AD LDA $ADAD 42A7- AD AD AD LDA $ADAD 42AA- AD 00 A9 LDA $A900 42AD- 04 85 TSB $85 42AF- 22 ??? 42B0- 20 8D 44 JSR $448D 42B3- 8D 8D 8D STA $8D8D 42B6- A0 A0 LDY #$A0 42B8- A0 A0 LDY #$A0 42BA- A0 A0 LDY #$A0 42BC- A0 BC LDY #$BC 42BE- C9 EE CMP #$EE 42C0- F3 ??? 42C1- E5 F2 SBC $F2 42C3- F4 ??? 42C4- A0 E4 LDY #$E4 42C6- E9 F3 SBC #$F3 42C8- EB ??? 42C9- A0 E1 LDY #$E1 42CB- EE E4 A0 INC $A0E4 42CE- E8 INX 42CF- E9 F4 SBC #$F4 42D1- A0 E1 LDY #$E1 42D3- A0 EB LDY #$EB 42D5- E5 F9 SBC $F9 42D7- BE 8D 00 LDX $008D,Y 42DA- 2C 10 C0 BIT $C010 r:KBDSTRB 42DD- AD 00 C0 LDA $C000 r:KBD w:CLR80COL 42E0- C9 80 CMP #$80 42E2- 30 F9 BMI $42DD 42E4- 2C 10 C0 BIT $C010 r:KBDSTRB 42E7- 20 8D 44 JSR $448D 42EA- 8D 8D D3 STA $D38D 42ED- E3 ??? 42EE- E1 EE SBC ($EE,X) 42F0- EE E9 EE INC $EEE9 42F3- E7 ??? 42F4- A0 E4 LDY #$E4 42F6- E9 F3 SBC #$F3 42F8- EB ??? 42F9- AE AE AE LDX $AEAE 42FC- 00 BRK 42FD- 4C 47 43 JMP $4347 4300- A9 B4 LDA #$B4 4302- 85 00 STA $00 4304- A9 44 LDA #$44 4306- 85 01 STA $01 4308- A9 03 LDA #$03 430A- 8D 00 03 STA $0300 430D- AD 30 BF LDA $BF30 4310- 8D 01 03 STA $0301 4313- A9 00 LDA #$00 4315- 8D 02 03 STA $0302 4318- A9 10 LDA #$10 431A- 8D 03 03 STA $0303 431D- A0 04 LDY #$04 431F- B1 00 LDA ($00),Y 4321- 8D 04 03 STA $0304 4324- C8 INY 4325- B1 00 LDA ($00),Y 4327- 8D 05 03 STA $0305 432A- 20 00 BF JSR $BF00 P8:READ_BLOCK(3:Unit/1,Buff,BlkNum) 432D- 80 $80 432E- 00 03 $0300 4330- 90 03 BCC $4335 4332- 4C ED 43 JMP $43ED 4335- A0 02 LDY #$02 4337- B1 00 LDA ($00),Y 4339- 18 CLC 433A- 69 00 ADC #$00 433C- 85 02 STA $02 433E- C8 INY 433F- B1 00 LDA ($00),Y 4341- 69 10 ADC #$10 4343- 85 03 STA $03 4345- 18 CLC 4346- 60 RTS 4347- 20 00 43 JSR $4300 434A- A0 00 LDY #$00 434C- B1 02 LDA ($02),Y 434E- AC B2 44 LDY $44B2 4351- D1 00 CMP ($00),Y 4353- D0 08 BNE $435D 4355- 20 6A 43 JSR $436A 4358- B0 34 BCS $438E 435A- 4C 4A 43 JMP $434A 435D- EE B2 44 INC $44B2 4360- AD B2 44 LDA $44B2 4363- C9 02 CMP #$02 4365- D0 E0 BNE $4347 4367- 4C 24 44 JMP $4424 436A- A5 00 LDA $00 436C- 18 CLC 436D- 69 06 ADC #$06 436F- 85 00 STA $00 4371- A5 01 LDA $01 4373- 69 00 ADC #$00 4375- 85 01 STA $01 4377- A0 00 LDY #$00 4379- B1 00 LDA ($00),Y 437B- C9 DC CMP #$DC 437D- F0 03 BEQ $4382 437F- 4C 1D 43 JMP $431D 4382- C8 INY 4383- B1 00 LDA ($00),Y 4385- C9 DC CMP #$DC 4387- F0 03 BEQ $438C 4389- 4C 1D 43 JMP $431D 438C- 38 SEC 438D- 60 RTS 438E- AD B2 44 LDA $44B2 4391- F0 22 BEQ $43B5 4393- 20 8D 44 JSR $448D 4396- E3 ??? 4397- F5 F2 SBC $F2,X 4399- F2 E5 SBC ($E5) 439B- EE F4 EC INC $ECF4 439E- F9 A0 EE SBC $EEA0,Y 43A1- EF ??? 43A2- F4 ??? 43A3- A0 E9 LDY #$E9 43A5- EE F3 F4 INC $F4F3 43A8- E1 EC SBC ($EC,X) 43AA- EC E5 E4 CPX $E4E5 43AD- AE 00 CE LDX $CE00 43B0- B2 44 LDA ($44) 43B2- 4C D1 43 JMP $43D1 43B5- 20 8D 44 JSR $448D 43B8- E3 ??? 43B9- F5 F2 SBC $F2,X 43BB- F2 E5 SBC ($E5) 43BD- EE F4 EC INC $ECF4 43C0- F9 A0 E9 SBC $E9A0,Y 43C3- EE F3 F4 INC $F4F3 43C6- E1 EC SBC ($EC,X) 43C8- EC E5 E4 CPX $E4E5 43CB- AE 8D 00 LDX $008D 43CE- EE B2 44 INC $44B2 43D1- 20 00 43 JSR $4300 43D4- AC B2 44 LDY $44B2 43D7- B1 00 LDA ($00),Y 43D9- A0 00 LDY #$00 43DB- 91 02 STA ($02),Y 43DD- 20 00 BF JSR $BF00 P8:WRITE_BLOCK(3:Unit/1,Buff,BlkNum) 43E0- 81 $81 43E1- 00 03 $0300 43E3- B0 08 BCS $43ED 43E5- 20 6A 43 JSR $436A 43E8- B0 7A BCS $4464 43EA- 4C D4 43 JMP $43D4 43ED- 85 00 STA $00 43EF- 20 8D 44 JSR $448D 43F2- 8D 8D CD STA $CD8D 43F5- CC C9 A0 CPY $A0C9 43F8- C5 F2 CMP $F2 43FA- F2 EF SBC ($EF) 43FC- F2 A0 SBC ($A0) 43FE- A4 00 LDY $00 4400- A5 00 LDA $00 4402- 20 DA FD JSR $FDDA F8ROM:PRBYTE 4405- 20 8D 44 JSR $448D 4408- A0 AD LDY #$AD 440A- AD A0 D0 LDA $D0A0 440D- F2 EF SBC ($EF) 440F- E7 ??? 4410- F2 E1 SBC ($E1) 4412- ED A0 D4 SBC $D4A0 4415- E5 F2 SBC $F2 4417- ED E9 EE SBC $EEE9 441A- E1 F4 SBC ($F4,X) 441C- E5 E4 SBC $E4 441E- 8D 8D 00 STA $008D 4421- 4C D0 03 JMP $03D0 4424- 20 8D 44 JSR $448D 4427- E5 F2 SBC $F2 4429- F2 EF SBC ($EF) 442B- F2 A1 SBC ($A1) 442D- 8D 8D D4 STA $D48D 4430- E8 INX 4431- E9 F3 SBC #$F3 4433- A0 E9 LDY #$E9 4435- F3 ??? 4436- A0 EE LDY #$EE 4438- EF ??? 4439- F4 ??? 443A- A0 F4 LDY #$F4 443C- E8 INX 443D- E5 A0 SBC $A0 443F- E3 ??? 4440- EF ??? 4441- F2 F2 SBC ($F2) 4443- E5 E3 SBC $E3 4445- F4 ??? 4446- A0 E4 LDY #$E4 4448- E9 F3 SBC #$F3 444A- EB ??? 444B- AE 8D D0 LDX $D08D 444E- F2 EF SBC ($EF) 4450- E7 ??? 4451- F2 E1 SBC ($E1) 4453- ED A0 D4 SBC $D4A0 4456- E5 F2 SBC $F2 4458- ED E9 EE SBC $EEE9 445B- E1 F4 SBC ($F4,X) 445D- E5 E4 SBC $E4 445F- AE 8D 8D LDX $8D8D 4462- 00 BRK 4463- 60 RTS 4464- 20 8D 44 JSR $448D 4467- 8D 8D A0 STA $A08D 446A- A0 A0 LDY #$A0 446C- A0 A0 LDY #$A0 446E- A0 A0 LDY #$A0 4470- AD A5 BE LDA $BEA5 4473- A0 C3 LDY #$C3 4475- E8 INX 4476- E1 EE SBC ($EE,X) 4478- E7 ??? 4479- E5 F3 SBC $F3 447B- A0 C3 LDY #$C3 447D- EF ??? 447E- ED F0 EC SBC $ECF0 4481- E5 F4 SBC $F4 4483- E5 E4 SBC $E4 4485- A0 BC LDY #$BC 4487- A5 AD LDA $AD 4489- 8D 8D 00 STA $008D 448C- 60 RTS 448D- 68 PLA 448E- 85 FE STA $FE 4490- 68 PLA 4491- 85 FF STA $FF 4493- A0 01 LDY #$01 4495- B1 FE LDA ($FE),Y 4497- F0 0A BEQ $44A3 4499- 20 ED FD JSR $FDED F8ROM:COUT 449C- C8 INY 449D- D0 F6 BNE $4495 449F- E6 FF INC $FF 44A1- D0 F2 BNE $4495 44A3- 18 CLC 44A4- 98 TYA 44A5- 65 FE ADC $FE 44A7- 85 FE STA $FE 44A9- A5 FF LDA $FF 44AB- 69 00 ADC #$00 44AD- 48 PHA 44AE- A5 FE LDA $FE 44B0- 48 PHA 44B1- 60 RTS 44B2- 00 BRK 44B3- 00 BRK 44B4- 10 00 BPL $44B6 44B6- FE 01 00 INC $0001,X 44B9- 00 BRK 44BA- 10 20 BPL $44DC 44BC- FF ??? 44BD- 01 00 ORA ($00,X) 44BF- 00 BRK 44C0- DC ??? 44C1- DC ???