* * Lode Runner * (c) 1983, Broderbund Software * (s) 2014, Brutal Deluxe Software * mx %11 org $6000 lst off *--------------------------------------- use LR.Equates use LR.Monitor *--------------------------------------- L6000 JSR L87A2 LDA #$01 JSR L6359 L6008 JSR L7A51 LDA #L0F00-1 STA L6030+2 LDY #$00 STY $86 STY $A7 STY $96 LDA #$20 STA $1F STA $87 L6023 JSR L7A31 LDY #$00 L6028 INC L6030+1 BNE L6030 INC L6030+2 L6030 LDA L6028 BEQ L603F BPL L603C STA ($0C),Y INY BPL L6028 L603C TAY BPL L6028 L603F INC $86 LDY $86 CPY #$C0 BCC L6023 STA TXTPAGE1 STA HIRES STA MIXCLR STA TXTCLR JMP L618E L6056 LDA #$00 STA $8E STA $8F STA $90 STA $91 STA $97 STA $A5 STA $53 STA $AB STA $A8 LDA #>L9B00 STA $A9 LDA #$05 STA $98 LDA $A7 LSR BEQ L6099 LDA #$01 JSR L6359 CMP #$00 BNE L6086 JSR L8106 JMP L6008 L6086 LDA $1FFF BNE L6091 LDA $36 LDX $37 BNE L6095 L6091 LDA $38 LDX $39 L6095 STA $24 STX $25 L6099 JSR L79AD STA TXTPAGE1 L609F LDX #$01 JSR L6238 LDA #$00 STA $9E STA $9F LDA $A7 LSR BEQ L60BF JSR L869F LDA $00 STA $85 LDA $01 STA $86 LDA #$09 JSR L8700 L60BF LDX #$00 STX $9C STX $54 LDA $97 CLC ADC $8D TAY LDX L6214,Y LDA L6CA7,X STA $60 LDA L6CA7+1,X STA $61 LDA L6CA7+2,X STA $62 LDY $97 LDA L621D,Y STA $5F L60E4 JSR L64BD LDA $9A BEQ L613F JSR L8811 LDA $93 BNE L60F5 JSR L8631 L60F5 LDA $01 BNE L6107 LDA $03 CMP #$02 BNE L6107 LDA $93 BEQ L611A CMP #$FF BEQ L611A L6107 JSR L75F4 LDA $9A BEQ L613F JSR L8811 JSR L6C82 LDA $9A BEQ L613F BNE L60E4 L611A INC $A6 INC $96 INC $98 BNE L6124 DEC $98 L6124 LDX #$0F STX $5C L6128 LDY #$01 LDA #$00 JSR L7A92 JSR L622A JSR L622A JSR L622A DEC $5C BNE L6128 L613C JMP L609F L613F DEC $98 JSR L7A70 JSR L87E1 HEX 02400240035003500460046005700570 HEX 068006800790079008A008A009B009B0 HEX 0AC00AC00BD00BD00CE00CE00DF00DF0 HEX 00 L6178 JSR L8811 BCS L6178 LDA $A7 LSR BEQ L61D0 LDA $98 BNE L613C JSR L84C8 JSR L8B1A BCS L61F6 L618E JSR L869F LDX #$FF LDY #$FF LDA #$03 STA $86 L6199 LDA $95 CMP #$CB BEQ L61A9 LDA BUTN1 BMI L6201 LDA BUTN0 BMI L6201 L61A9 LDA KBD BMI L61F6 DEX BNE L6199 DEY BNE L6199 DEC $86 BNE L6199 LDA $A7 BNE L61DE LDX #$01 STX $A7 STX $A6 STX $AC STX $9D LDX $99 STX L61D0+1 STA $99 JMP L6056 L61D0 LDA #$00 STA $99 LDA KBD LDX $AC BEQ L61F6 JMP L618E L61DE CMP #$01 BNE L61F3 BEQ L61E9 L61E4 LDA #$01 JSR L6359 L61E9 JSR L786B LDA #$02 STA $A7 JMP L618E L61F3 JMP L6008 L61F6 STA KBDSTROBE CMP #$85 ; Ctrl-E BEQ L6211 CMP #$8D ; Return BEQ L61E4 L6201 LDX #$00 STX $96 INX STX $A6 STX $9D LDA #$02 STA $A7 JMP L6056 L6211 JMP L7B84 ; Jump to the Editor L6214 HEX 000306090C0F121518 L621D HEX 26262E4447494A4B4C4D4E4F50 L622A LDA $5C ASL ASL ASL ASL LDX #$06 JSR L87D5 JMP L8811 L6238 STX $A2 LDX #$FF STX $00 INX STX $A3 STX $93 STX $8D STX $19 STX $A0 STX $92 STX $1A STX $86 TXA LDX #$1E L6252 STA L0CE0,X DEX BPL L6252 LDX #$05 L625A STA L0C98,X DEX BPL L625A LDA #$01 STA $9A JSR L630E LDY $86 L6269 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDA #$00 STA $85 L627E LDA $1A LSR LDY $92 LDA L0D00,Y BCS L628C AND #$0F BPL L6292 L628C LSR LSR LSR LSR INC $92 L6292 INC $1A LDY $85 CMP #$0A BCC L629C LDA #$00 L629C STA ($06),Y STA ($08),Y INC $85 LDA $85 CMP #$1C BCC L627E INC $86 LDY $86 CPY #$10 BCC L6269 JSR L63B3 BCC L62C3 LDA $96 BEQ L62C4 LDX #$00 STX $96 INC $97 DEX JMP L6238 L62C3 RTS L62C4 JMP L6008 L62C7 LDA #$00 STA $92 STA $1A STA $86 L62CF LDY $86 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY #$00 STY $85 L62DF LDA $1A LSR LDA ($06),Y BCS L62EA STA $1E BPL L62F7 L62EA ASL ASL ASL ASL ORA $1E LDY $92 STA $0D00,Y INC $92 L62F7 INC $1A INC $85 LDY $85 CPY #$1C BCC L62DF INC $86 LDA $86 CMP #$10 BCC L62CF LDA #$02 JMP L630E L630E STA LB7F4 LDA $A7 LSR BEQ L6345 LDA $96 LSR LSR LSR LSR CLC ADC #$03 STA LB7EC LDA $96 AND #$0F STA LB7ED LDA #$00 STA LB7F0 LDA #$0D STA LB7F0+1 LDA #$00 STA LB7EB L6338 LDY #$E8 LDA #$B7 JSR $0023 BCC L6344 JMP L6008 L6344 RTS L6345 LDA $A6 CLC ADC #$9E STA $0D LDY #$00 STY $0C L6350 LDA ($0C),Y STA $0D00,Y INY BNE L6350 RTS L6359 STA LB7F4 LDA #$0C STA LB7EC LDA #$0F STA LB7ED LDA #$00 STA LB7F0 LDA #$1F STA LB7F0+1 LDA #$00 STA LB7EB LDY #$E8 LDA #$B7 JSR L63A5 BCC L6381 JMP L6008 L6381 LDY #$0A LDA #$00 STA $50 L6387 LDA L1FF4,Y EOR L63A8,Y ORA $50 STA $50 DEY BPL L6387 LDA $50 BEQ L639B LDA #$00 RTS L639B LDA #$01 LDX $1FFF BNE L63A4 LDA #$FF L63A4 RTS L63A5 JMP ($0036) L63A8 ASC "LODE RUNNER" L63B3 LDY #$0F STY $86 L63B7 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDY #$1B STY $85 L63CC LDA ($06),Y LDX $A2 BEQ L63EE CMP #$06 BNE L63F0 LDX $A3 CPX #$2D BCS L63E8 INC $A3 INX LDA $86 STA L0C30,X TYA STA L0C00,X L63E8 LDA #$00 STA ($06),Y STA ($08),Y L63EE BEQ L6450 L63F0 CMP #$07 BNE L63F8 INC $93 BNE L6450 L63F8 CMP #$08 BNE L642A LDX $8D CPX #$05 BCS L63E8 INC $8D INX TYA STA L0C60,X LDA $86 STA L0C68,X LDA #$00 STA L0C70,X STA L0C88,X LDA #$02 STA L0C78,X STA L0C80,X LDA #$00 STA ($08),Y LDA #$08 BNE L6450 L6426 BPL L63B7 L6428 BPL L63CC L642A CMP #$09 BNE L644A LDX $00 BPL L63E8 STY $00 LDX $86 STX $01 LDX #$02 STX $02 STX $03 LDX #$08 STX $04 LDA #$00 STA ($08),Y LDA #$09 BNE L6450 L644A CMP #$05 BNE L6450 LDA #$01 L6450 JSR L82B0 DEC $85 LDY $85 BPL L6428 DEC $86 LDY $86 BPL L6426 LDA $A2 BEQ L6469 LDA $00 BPL L648B SEC RTS L6469 LDA #$20 STA $0F LDA #$40 STA $0D LDA #$00 STA $0E STA $0C TAY L6478 LDA ($0C),Y STA ($0E),Y INY BNE L6478 INC $0F INC $0D LDX $0D CPX #$60 BCC L6478 CLC RTS L648B JSR L88A2 LDY #$0F STY $86 L6492 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY #$1B STY $85 L64A0 LDA ($06),Y CMP #$09 BEQ L64AA CMP #$08 BNE L64AF L64AA LDA #$00 JSR L82B0 L64AF DEC $85 LDY $85 BPL L64A0 DEC $86 LDY $86 BPL L6492 CLC RTS L64BD LDA #$01 STA $94 LDA $9C BEQ L64CD BPL L64CA JMP L67E7 L64CA JMP L68AD L64CD LDY $01 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $00 LDA ($08),Y CMP #$03 BEQ L6522 CMP #$04 BNE L64EB LDA $03 CMP #$02 BEQ L6522 L64EB LDA $03 CMP #$02 BCC L6525 LDY $01 CPY #$0F BEQ L6522 LDA L1C05+1,Y STA $06 STA $08 LDA L1C15+1,Y STA $07 LDA L1C25+1,Y STA $09 LDY $00 LDA ($06),Y CMP #$00 BEQ L6525 CMP #$08 BEQ L6522 LDA ($08),Y CMP #$01 BEQ L6522 CMP #$02 BEQ L6522 CMP #$03 BNE L6525 L6522 JMP L6584 L6525 LDA #$00 STA $9B JSR L6B85 JSR L8336 LDA #$07 LDX $05 BMI L6537 LDA #$0F L6537 STA $04 JSR L6C13 INC $03 LDA $03 CMP #$05 BCS L654A JSR L6B9D JMP L6C02 L654A LDA #$00 STA $03 LDY $01 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDY $00 LDA ($08),Y CMP #$01 BNE L656B LDA #$00 L656B STA ($06),Y INC $01 LDY $01 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $00 LDA #$09 STA ($06),Y JMP L6C02 L6584 LDA $9B BNE L658F LDA #$64 LDX #$08 JSR L87BA L658F LDA #$20 STA $A4 STA $9B JSR L6A12 LDA $9E CMP #$C9 ; I BNE L65A4 JSR L66BD BCS L65C2 RTS L65A4 CMP #$CB ; K BNE L65AE JSR L6766 BCS L65C2 RTS L65AE CMP #$D5 ; U BNE L65B8 JSR L67DB BCS L65C2 RTS L65B8 CMP #$CF ; O BNE L65C2 JSR L68A1 BCS L65C2 RTS L65C2 LDA $9F CMP #$CA ; J BNE L65CB JMP L65D3 L65CB CMP #$CC ; L BNE L65D2 JMP L6645 L65D2 RTS L65D3 LDY $01 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDX $02 CPX #$03 BCS L6600 LDY $00 BEQ L65FF DEY LDA ($06),Y CMP #$02 BEQ L65FF CMP #$01 BEQ L65FF CMP #$05 BNE L6600 L65FF RTS L6600 JSR L6B85 JSR L8336 LDA #$FF STA $05 JSR L6C26 DEC $02 BPL L662A LDY $00 LDA ($08),Y CMP #$01 BNE L661B LDA #$00 L661B STA ($06),Y DEC $00 DEY LDA #$09 STA ($06),Y LDA #$04 STA $02 BNE L662D L662A JSR L6B9D L662D LDY $00 LDA ($08),Y CMP #$04 BEQ L663B LDA #$00 LDX #$02 BNE L663F L663B LDA #$03 LDX #$05 L663F JSR L6BF4 JMP L6C02 L6645 LDY $01 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDX $02 CPX #$02 BCC L6674 LDY $00 CPY #$1B BEQ L6673 INY LDA ($06),Y CMP #$02 BEQ L6673 CMP #$01 BEQ L6673 CMP #$05 BNE L6674 L6673 RTS L6674 JSR L6B85 JSR L8336 LDA #$01 STA $05 JSR L6C26 INC $02 LDA $02 CMP #$05 BCC L66A2 LDY $00 LDA ($08),Y CMP #$01 BNE L6693 LDA #$00 L6693 STA ($06),Y INC $00 INY LDA #$09 STA ($06),Y LDA #$00 STA $02 BEQ L66A5 L66A2 JSR L6B9D L66A5 LDY $00 LDA ($08),Y CMP #$04 BEQ L66B3 LDA #$08 LDX #$0A BNE L66B7 L66B3 LDA #$0B LDX #$0D L66B7 JSR L6BF4 JMP L6C02 L66BD LDY $01 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $00 LDA ($08),Y CMP #$03 BEQ L66ED LDY $03 CPY #$03 BCC L66EB LDY $01 LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $00 LDA ($08),Y CMP #$03 BEQ L6711 L66EB SEC RTS L66ED LDY $03 CPY #$03 BCS L6711 LDY $01 BEQ L66EB LDA $1C04,Y STA $06 LDA $1C14,Y STA $07 LDY $00 LDA ($06),Y CMP #$01 BEQ L66EB CMP #$02 BEQ L66EB CMP #$05 BEQ L66EB L6711 JSR L6B85 JSR L8336 LDY $01 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 JSR L6C13 DEC $03 BPL L6757 LDY $00 LDA ($08),Y CMP #$01 BNE L673B LDA #$00 L673B STA ($06),Y DEC $01 LDY $01 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $00 LDA #$09 STA ($06),Y LDA #$04 STA $03 BNE L675A L6757 JSR L6B9D L675A LDA #$10 LDX #$11 JSR L6BF4 JSR L6C02 CLC RTS L6766 LDY $03 CPY #$02 BCC L678A LDY $01 CPY #$0F BCS L6788 LDA L1C05+1,Y STA $06 LDA L1C15+1,Y STA $07 LDY $00 LDA ($06),Y CMP #$02 BEQ L6788 CMP #$01 BNE L678A L6788 SEC RTS L678A JSR L6B85 JSR L8336 LDY $01 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 JSR L6C13 INC $03 LDA $03 CMP #$05 BCC L67D5 LDY $00 LDA ($08),Y CMP #$01 BNE L67B8 LDA #$00 L67B8 STA ($06),Y INC $01 LDY $01 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $00 LDA #$09 STA ($06),Y LDA #$00 STA $03 JMP L675A L67D5 JMP L6757 L67D8 JMP L6892 L67DB LDA #$FF STA $9C STA $9E STA $9F LDA #$00 STA $A0 L67E7 LDY $01 CPY #$0F BCS L67D8 INY JSR L884B LDY $00 BEQ L67D8 DEY LDA ($06),Y CMP #$01 BNE L67D8 LDY $01 JSR L884B LDY $00 DEY LDA ($06),Y CMP #$00 BNE L686E JSR L6B85 JSR L8336 JSR L6C13 JSR L6C26 LDY $A0 LDA L699E,Y LDX L69AB,Y JSR L87D5 LDX $A0 LDA #$00 CPX #$06 BCS L682B LDA #$06 L682B STA $04 JSR L6C02 LDX $A0 CPX #$0C BEQ L6898 CPX #$00 BEQ L684C LDA L6979,X PHA LDX $00 DEX LDY $01 JSR L885D PLA JSR L8336 LDX $A0 L684C LDA L697A,X PHA LDX $00 DEX STX $85 LDY $01 STY $86 JSR L885D PLA JSR L83A7 LDX $A0 LDA L6992,X INC $86 JSR L82AA INC $A0 CLC RTS L686E LDY $01 INY STY $86 LDY $00 DEY STY $85 LDA #$01 JSR L82AA LDX $A0 BEQ L6892 DEX LDA L697A,X PHA LDY $01 LDX $00 DEX JSR L885D PLA JSR L8336 L6892 LDA #$00 STA $9C SEC RTS L6898 LDX $00 DEX JMP L6C39 L689E JMP L695C L68A1 LDA #$01 STA $9C STA $9E STA $9F LDA #$0C STA $A0 L68AD LDY $01 CPY #$0F BCS L689E INY JSR L884B LDY $00 CPY #$1B BCS L689E INY LDA ($06),Y CMP #$01 BNE L689E LDY $01 JSR L884B LDY $00 INY LDA ($06),Y CMP #$00 BNE L6936 JSR L6B85 JSR L8336 JSR L6C13 JSR L6C26 LDY $A0 LDA L6992,Y LDX L699F,Y JSR L87D5 LDX $A0 LDA #$08 CPX #$12 BCS L68F3 LDA #$0E L68F3 STA $04 JSR L6C02 LDX $A0 CPX #$18 BEQ L6962 CPX #$0C BEQ L6914 LDA L6979,X PHA LDX $00 INX LDY $01 JSR L885D PLA JSR L8336 LDX $A0 L6914 LDA L697A,X PHA LDX $00 INX STX $85 LDY $01 STY $86 JSR L885D PLA JSR L83A7 INC $86 LDX $A0 LDA L6986,X JSR L82AA INC $A0 CLC RTS L6936 LDY $01 INY STY $86 LDY $00 INY STY $85 LDA #$01 JSR L82AA LDX $A0 CPX #$0C BEQ L695C DEX LDA L697A,X PHA LDX $00 INX LDY $01 JSR L885D PLA JSR L8336 L695C LDA #$00 STA $9C SEC RTS L6962 LDX $00 INX JMP L6C39 L6968 DB $0B DB $0C DB $0D DB $18 DB $19 DB $1A DB $0F DB $13 DB $09 DB $10 DB $11 DB $15 DB $16 DB $17 DB $25 DB $14 DB $0E L6979 DB $12 L697A DB $1B DB $1B DB $1C DB $1C DB $1D DB $1D DB $1E DB $1E DB $00 DB $00 DB $00 DB $00 L6986 DB $26 DB $26 DB $27 DB $27 DB $1D DB $1D DB $1E DB $1E DB $00 DB $00 DB $00 DB $00 L6992 DB $1F DB $1F DB $20 DB $20 DB $21 DB $21 DB $22 DB $22 DB $23 DB $23 DB $24 DB $24 L699E DB $20 L699F DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $20 DB $24 DB $24 DB $24 DB $24 DB $24 L69AB DB $04 DB $04 DB $04 DB $04 DB $04 DB $04 DB $04 DB $04 DB $03 DB $03 DB $02 DB $02 DB $01 L69B8 LDA KBD BMI L69CD LDA $95 CMP #$CB BEQ L69D6 LDA BUTN1 BMI L69CD LDA BUTN0 BPL L69D6 L69CD LSR $AC LSR $9A LDA #$01 STA $98 RTS L69D6 LDA $AB BNE L69F2 LDY #$00 LDA ($A8),Y STA $AA INY LDA ($A8),Y STA $AB LDA $A8 CLC ADC #$02 STA $A8 LDA $A9 ADC #$00 STA $A9 L69F2 LDA $AA AND #$0F TAX LDA L6A0B,X STA $9E LDA $AA LSR LSR LSR LSR TAX LDA L6A0B,X STA $9F DEC $AB RTS L6A0B ASC "IJKLOU " L6A12 LDA $A7 CMP #$01 BEQ L69B8 LDX KBD STX KBDSTROBE STX $1E BMI L6A2B LDA $95 CMP #$CB ; K BEQ L6A55 L6A28 JMP L6AD0 L6A2B CPX #$A0 BCS L6A49 STX $1E LDY #$FF L6A33 INY LDA L6B59,Y BEQ L6A49 CMP $1E BNE L6A33 TYA ASL TAY LDA L6B67+1,Y PHA LDA L6B67,Y PHA RTS L6A49 LDA $95 CMP #$CA ; J BEQ L6A28 LDX $1E STX $9E STX $9F L6A55 RTS L6A56 INC $98 INC $A6 INC $96 LSR $9A LSR $9D RTS L6A61 INC $98 BNE L6A67 DEC $98 L6A67 JSR L7A70 LSR $9D JMP L6A12 INC $97 INC $98 LSR $9A RTS L6A76 JSR L86A8 CMP #$9B BNE L6A76 JMP L6A12 L6A80 LDA #$01 STA $98 L6A84 LSR $9A RTS L6A87 LDA $99 EOR #$FF STA $99 JMP L6A12 L6A90 LDA #$CA STA $95 JMP L6A12 L6A97 LDA #$CB STA $95 JMP L6A12 L6A9E LDA L6B81 LDX L6B82 STA L6B82 STX L6B81 JMP L6A12 L6AAD LDA L6B83 LDX L6B84 STA L6B84 STX L6B83 JMP L6A12 L6ABC LDA $8C BEQ L6ACD DEC $8C JMP L6A12 L6AC5 LDA $8C CMP #$0F BEQ L6ACD INC $8C L6ACD JMP L6A12 L6AD0 LDA BUTN1 BPL L6AD9 LDA #$D5 BNE L6AE0 L6AD9 LDA BUTN0 BPL L6AE5 LDA #$CF L6AE0 STA $9E STA $9F RTS L6AE5 JSR L8746 LDY $65 LDA L6B82 CMP #$2E BEQ L6AFA CPY L6B82 BCS L6B03 LDA #$CC BNE L6B1E L6AFA CPY L6B82 BCC L6B03 LDA #$CC BNE L6B1E L6B03 LDA L6B81 CMP #$2E BEQ L6B13 CPY L6B81 BCS L6B1C LDA #$CA BNE L6B1E L6B13 CPY L6B81 BCC L6B1C LDA #$CA BNE L6B1E L6B1C LDA #$C0 L6B1E STA $9F LDY $66 LDA L6B83 CMP #$2E BEQ L6B32 CPY L6B83 BCS L6B3B LDA #$C9 BNE L6B56 L6B32 CPY L6B83 BCC L6B3B LDA #$C9 BNE L6B56 L6B3B LDA L6B84 CMP #$2E BEQ L6B4B CPY L6B84 BCS L6B54 LDA #$CB BNE L6B56 L6B4B CPY L6B84 BCC L6B54 LDA #$CB BNE L6B56 L6B54 LDA #$C0 L6B56 STA $9E RTS L6B59 HEX 9E809B9281938A8B889598998D00 L6B67 DA L6A56-1 ; DA L6A61-1 ; DA L6A76-1 ; DA L6A80-1 ; DA L6A84-1 ; DA L6A87-1 ; DA L6A90-1 ; DA L6A97-1 ; DA L6AC5-1 ; DA L6ABC-1 ; DA L6A9E-1 ; DA L6AAD-1 ; DA L77AC-1 ; L6B81 DB $12 L6B82 DB $2E L6B83 DB $12 L6B84 DB $2E L6B85 LDX $00 LDY $02 JSR L888F STX $1E LDY $01 LDX $03 JSR L887C LDX $04 LDA L6968,X LDX $1E RTS L6B9D LDA $02 CMP #$02 BNE L6BF3 LDA $03 CMP #$02 BNE L6BF3 LDY $01 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $00 LDA ($08),Y CMP #$07 BNE L6BF3 LSR $94 DEC $93 LDY $01 STY $86 LDY $00 STY $85 LDA #$00 STA ($08),Y JSR L82B0 LDY $86 LDX $85 JSR L885D LDA #$07 JSR L8336 LDY #$02 LDA #$50 JSR L7A92 JSR L87E1 HEX 07450655054404540343025300 L6BF3 RTS L6BF4 INC $04 CMP $04 BCC L6BFD L6BFA STA $04 RTS L6BFD CPX $04 BCC L6BFA RTS L6C02 JSR L6B85 JSR L83A7 LDA $52 BEQ L6C12 LDA $94 BEQ L6C12 LSR $9A L6C12 RTS L6C13 LDA $02 CMP #$02 BCC L6C20 BEQ L6C25 DEC $02 JMP L6B9D L6C20 INC $02 JMP L6B9D L6C25 RTS L6C26 LDA $03 CMP #$02 BCC L6C33 BEQ L6C38 DEC $03 JMP L6B9D L6C33 INC $03 JMP L6B9D L6C38 RTS L6C39 LDA #$00 STA $9C LDY $01 INY STX $85 STY $86 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDA #$00 LDY $85 STA ($06),Y JSR L82AA LDA #$00 JSR L82B0 DEC $86 LDA #$00 JSR L82AA INC $86 LDX #$FF L6C67 INX CPX #$1E BEQ L6C81 LDA L0CE0,X BNE L6C67 LDA $86 STA L0CC0,X LDA $85 STA L0CA0,X LDA #$B4 STA L0CE0,X SEC L6C81 RTS L6C82 LDX $8D BEQ L6CA6 INC $64 LDY $64 CPY #$03 BCC L6C92 LDY #$00 STY $64 L6C92 LDA |$0060,Y STA $63 L6C97 LSR $63 BCC L6CA2 JSR L6CDB LDA $9A BEQ L6CA6 L6CA2 LDA $63 BNE L6C97 L6CA6 RTS L6CA7 HEX 000000 HEX 000101 HEX 010101 HEX 010301 HEX 010303 HEX 030303 HEX 030307 HEX 030707 HEX 070707 HEX 07070F HEX 070F0F HEX 0F0F0F L6CCB HEX 082B2C3031323628292A2D2E2F353334 L6CDB INC $19 LDX $8D CPX $19 BCS L6CE7 LDX #$01 STX $19 L6CE7 JSR L75CE LDA $16 BMI L6D08 BEQ L6D08 DEC $16 LDY $16 CPY #$0D BCS L6CFB JMP L6E65 L6CFB LDX $19 LDA L0C98,X BEQ L6D05 JMP L75A8 L6D05 JMP L6DB7 L6D08 LDY $13 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $12 LDA ($08),Y CMP #$03 BEQ L6D61 CMP #$04 BNE L6D26 LDA $18 CMP #$02 BEQ L6D61 L6D26 LDA $18 CMP #$02 BCC L6D64 LDY $13 CPY #$0F BEQ L6D61 LDA L1C05+1,Y STA $06 STA $08 LDA L1C25+1,Y STA $09 LDA L1C15+1,Y STA $07 LDY $12 LDA ($06),Y CMP #$00 BEQ L6D64 CMP #$09 BEQ L6D64 CMP #$08 BEQ L6D61 LDA ($08),Y CMP #$01 BEQ L6D61 CMP #$02 BEQ L6D61 CMP #$03 BNE L6D64 L6D61 JMP L6E85 L6D64 JSR L74DF JSR L8336 JSR L7582 LDA #$06 LDY $15 BMI L6D75 LDA #$0D L6D75 STA $14 INC $18 LDA $18 CMP #$05 BCS L6DC0 LDA $18 CMP #$02 BNE L6DB7 JSR L74F7 LDY $13 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $12 LDA ($08),Y CMP #$01 BNE L6DB7 LDA $16 BPL L6DA2 DEC $93 L6DA2 LDA $5F STA $16 LDY #$00 LDA #$75 JSR L7A92 JSR L87E1 HEX 06200430024000 L6DB7 JSR L74DF JSR L83A7 JMP L75A8 L6DC0 LDA #$00 STA $18 LDY $13 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDY $12 LDA ($08),Y CMP #$01 BNE L6DE1 LDA #$00 L6DE1 STA ($06),Y INC $13 LDY $13 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDY $12 LDA ($06),Y CMP #$09 BNE L6E02 LSR $9A L6E02 LDA ($08),Y CMP #$01 BNE L6E58 LDA $16 BPL L6E58 LDY $13 DEY STY $86 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDY $12 STY $85 LDA ($08),Y CMP #$00 BEQ L6E31 DEC $93 JMP L6E46 L6E31 LDA #$07 STA ($06),Y STA ($08),Y JSR L82B0 LDY $86 LDX $85 JSR L885D LDA #$07 JSR L83A7 L6E46 LDY $13 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDA #$00 STA $16 LDY $12 L6E58 LDA #$08 STA ($06),Y JSR L74DF JSR L83A7 JMP L75A8 L6E65 CPY #$07 BCC L6E85 JSR L74DF JSR L8336 LDY $16 LDA L6E76+2,Y STA $17 L6E76 JSR L74DF JSR L83A7 JMP L75A8 L6E7F HEX 020102030201 L6E85 LDX $12 LDY $13 JSR L70D8 ASL TAY LDA L6E97+1,Y PHA LDA L6E97,Y PHA RTS L6E97 DA L75A8-1 DA L6FBC-1 DA L7047-1 DA L6EAC-1 DA L6F39-1 L6EA1 LDA $16 BEQ L6EA9 BMI L6EA9 INC $16 L6EA9 JMP L75A8 L6EAC LDY $18 CPY #$03 BCS L6ED5 LDY $13 BEQ L6EA1 DEY LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $12 LDA ($06),Y CMP #$01 BEQ L6EA1 CMP #$02 BEQ L6EA1 CMP #$05 BEQ L6EA1 CMP #$08 BEQ L6EA1 L6ED5 JSR L74DF JSR L8336 JSR L7582 LDY $13 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 DEC $18 BPL L6F26 JSR L753E LDY $12 LDA ($08),Y CMP #$01 BNE L6F02 LDA #$00 L6F02 STA ($06),Y DEC $13 LDY $13 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $12 LDA ($06),Y CMP #$09 BNE L6F1C LSR $9A L6F1C LDA #$08 STA ($06),Y LDA #$04 STA $18 BNE L6F29 L6F26 JSR L74F7 L6F29 LDA #$0E LDX #$0F JSR L7574 JSR L74DF JSR L83A7 JMP L75A8 L6F39 LDY $18 CPY #$02 BCC L6F63 LDY $13 CPY #$0F BCS L6F60 INY LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $12 LDA ($06),Y CMP #$02 BEQ L6F60 CMP #$08 BEQ L6F60 CMP #$01 BNE L6F63 L6F60 JMP L75A8 L6F63 JSR L74DF JSR L8336 JSR L7582 LDY $13 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 INC $18 LDA $18 CMP #$05 BCC L6FB9 JSR L753E LDY $12 LDA ($08),Y CMP #$01 BNE L6F94 LDA #$00 L6F94 STA ($06),Y INC $13 LDY $13 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $12 LDA ($06),Y CMP #$09 BNE L6FAE LSR $9A L6FAE LDA #$08 STA ($06),Y LDA #$00 STA $18 JMP L6F29 L6FB9 JMP L6F26 L6FBC LDY $13 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDX $17 CPX #$03 BCS L6FF1 LDY $12 BEQ L6FEE DEY LDA ($06),Y CMP #$08 BEQ L6FEE CMP #$02 BEQ L6FEE CMP #$01 BEQ L6FEE LDA ($08),Y CMP #$05 BNE L6FF1 L6FEE JMP L75A8 L6FF1 JSR L74DF JSR L8336 JSR L7595 LDA #$FF STA $15 DEC $17 BPL L7026 JSR L753E LDY $12 LDA ($08),Y CMP #$01 BNE L700F LDA #$00 L700F STA ($06),Y DEC $12 DEY LDA ($06),Y CMP #$09 BNE L701C LSR $9A L701C LDA #$08 STA ($06),Y LDA #$04 STA $17 BNE L7029 L7026 JSR L74F7 L7029 LDY $12 LDA ($08),Y CMP #$04 BEQ L7037 LDA #$00 LDX #$02 BNE L703B L7037 LDA #$03 LDX #$05 L703B JSR L7574 JSR L74DF JSR L83A7 JMP L75A8 L7047 LDY $13 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDX $17 CPX #$02 BCC L707E LDY $12 CPY #$1B BEQ L707B INY LDA ($06),Y CMP #$08 BEQ L707B CMP #$02 BEQ L707B CMP #$01 BEQ L707B LDA ($08),Y CMP #$05 BNE L707E L707B JMP L75A8 L707E JSR L74DF JSR L8336 JSR L7595 LDA #$01 STA $15 INC $17 LDA $17 CMP #$05 BCC L70B7 JSR L753E LDY $12 LDA ($08),Y CMP #$01 BNE L70A0 LDA #$00 L70A0 STA ($06),Y INC $12 INY LDA ($06),Y CMP #$09 BNE L70AD LSR $9A L70AD LDA #$08 STA ($06),Y LDA #$00 STA $17 BEQ L70BA L70B7 JSR L74F7 L70BA LDY $12 LDA ($08),Y CMP #$04 BEQ L70C8 LDA #$07 LDX #$09 BNE L70CC L70C8 LDA #$0A LDX #$0C L70CC JSR L7574 JSR L74DF JSR L83A7 JMP L75A8 L70D8 STX $55 STY $56 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $55 LDA ($08),Y CMP #$01 BNE L70F7 LDA $16 BEQ L70F7 BMI L70F7 LDA #$03 RTS L70F7 LDY $56 CPY $01 BEQ L7100 JMP L7186 L7100 LDY $55 STY $57 CPY $00 BCS L7147 L7108 INC $57 LDY $56 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $57 LDA ($08),Y CMP #$03 BEQ L713E CMP #$04 BEQ L713E LDY $56 CPY #$0F BEQ L713E LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $57 LDA ($08),Y CMP #$00 BEQ L7186 CMP #$05 BEQ L7186 L713E LDY $57 CPY $00 BNE L7108 LDA #$02 RTS L7147 DEC $57 LDY $56 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $57 LDA ($08),Y CMP #$03 BEQ L717D CMP #$04 BEQ L717D LDY $56 CPY #$0F BEQ L717D LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $57 LDA ($08),Y CMP #$00 BEQ L7186 CMP #$05 BEQ L7186 L717D LDY $57 CPY $00 BNE L7147 LDA #$01 RTS L7186 LDA #$00 STA $58 LDA #$FF STA $59 LDX $55 LDY $56 JSR L743E JSR L7275 JSR L71A2 JSR L720C LDA $58 RTS L71A1 RTS L71A2 LDY $5A CPY $55 BEQ L71A1 LDY $56 CPY #$0F BEQ L71DA LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $5A LDA ($08),Y CMP #$01 BEQ L71DA CMP #$02 BEQ L71DA LDX $5A LDY $56 JSR L739D LDX $5A JSR L72D4 CMP $59 BCS L71DA STA $59 LDA #$01 STA $58 L71DA LDY $56 BEQ L7206 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $5A LDA ($08),Y CMP #$03 BNE L7206 LDY $56 LDX $5A JSR L7300 LDX $5A JSR L72D4 CMP $59 BCS L7206 STA $59 LDA #$01 STA $58 L7206 INC $5A JMP L71A2 L720B RTS L720C LDY $5B CPY $55 BEQ L720B LDY $56 CPY #$0F BEQ L7244 LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $5B LDA ($08),Y CMP #$01 BEQ L7244 CMP #$02 BEQ L7244 LDX $5B LDY $56 JSR L739D LDX $5B JSR L72D4 CMP $59 BCS L7244 STA $59 LDA #$02 STA $58 L7244 LDY $56 BEQ L7270 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $5B LDA ($08),Y CMP #$03 BNE L7270 LDY $56 LDX $5B JSR L7300 LDX $5B JSR L72D4 CMP $59 BCS L7270 STA $59 LDA #$02 STA $58 L7270 DEC $5B JMP L720C L7275 LDY $56 CPY #$0F BEQ L72A7 LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $55 LDA ($08),Y CMP #$01 BEQ L72A7 CMP #$02 BEQ L72A7 LDX $55 LDY $56 JSR L739D LDX $55 JSR L72D4 CMP $59 BCS L72A7 STA $59 LDA #$04 STA $58 L72A7 LDY $56 BEQ L72D3 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $55 LDA ($08),Y CMP #$03 BNE L72D3 LDX $55 LDY $56 JSR L7300 LDX $55 JSR L72D4 CMP $59 BCS L72D3 STA $59 LDA #$03 STA $58 L72D3 RTS L72D4 STA $1A CMP $01 BNE L72EB CPX $12 BCC L72E3 TXA SEC SBC $12 RTS L72E3 STX $1A LDA $12 SEC SBC $1A RTS L72EB BCC L72F4 SEC SBC $01 CLC ADC #$C8 RTS L72F4 LDA $01 SEC SBC $1A CLC ADC #$64 RTS L72FD LDA $5E RTS L7300 STY $5E STX $5D L7304 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $5D LDA ($08),Y CMP #$03 BNE L72FD DEC $5E LDY $5D BEQ L734A DEY LDA ($08),Y CMP #$01 BEQ L7340 CMP #$02 BEQ L7340 CMP #$03 BEQ L7340 LDY $5E LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $5D DEY LDA ($08),Y CMP #$04 BNE L734A L7340 LDY $5E STY $5C CPY $01 BCC L7397 BEQ L7397 L734A LDY $5D CPY #$1B BEQ L738C LDY $5E LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $5D INY LDA ($08),Y CMP #$01 BEQ L7382 CMP #$02 BEQ L7382 CMP #$03 BEQ L7382 LDY $5E LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $5D INY LDA ($08),Y CMP #$04 BNE L738C L7382 LDY $5E STY $5C CPY $01 BCC L7397 BEQ L7397 L738C LDY $5E CPY #$01 BCC L7395 JMP L7304 L7395 TYA RTS L7397 LDA $5C RTS L739A LDA $5E RTS L739D STY $5E STX $5D L73A1 LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $5D LDA ($08),Y CMP #$01 BEQ L739A CMP #$02 BEQ L739A LDY $5E LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $5D LDA ($08),Y CMP #$00 BEQ L742D CPY #$00 BEQ L73FB DEY LDA ($08),Y CMP #$04 BEQ L73F3 LDY $5E LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $5D DEY LDA ($08),Y CMP #$01 BEQ L73F3 CMP #$02 BEQ L73F3 CMP #$03 BNE L73FB L73F3 LDY $5E STY $5C CPY $01 BCS L743B L73FB LDY $5D CPY #$1B BCS L742D INY LDA ($08),Y CMP #$04 BEQ L7425 LDY $5E LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $5D INY LDA ($08),Y CMP #$01 BEQ L7425 CMP #$03 BEQ L7425 CMP #$02 BNE L742D L7425 LDY $5E STY $5C CPY $01 BCS L743B L742D INC $5E LDY $5E CPY #$10 BCS L7438 JMP L73A1 L7438 LDA #$0F RTS L743B LDA $5C RTS L743E STX $5A STX $5B STY $1B L7444 LDA $5A BEQ L7490 LDY $1B LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $5A DEY LDA ($06),Y CMP #$01 BEQ L7490 CMP #$02 BEQ L7490 CMP #$03 BEQ L748A CMP #$04 BEQ L748A LDY $1B CPY #$0F BEQ L748A LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $5A DEY LDA ($08),Y CMP #$01 BEQ L748A CMP #$02 BEQ L748A CMP #$03 BNE L748E L748A DEC $5A BPL L7444 L748E DEC $5A L7490 LDA $5B CMP #$1B BEQ L74DE LDY $1B LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $5B INY LDA ($06),Y CMP #$01 BEQ L74DE CMP #$02 BEQ L74DE CMP #$03 BEQ L74D8 CMP #$04 BEQ L74D8 LDY $1B CPY #$0F BEQ L74D8 LDA L1C05+1,Y STA $08 LDA L1C25+1,Y STA $09 LDY $5B INY LDA ($08),Y CMP #$01 BEQ L74D8 CMP #$02 BEQ L74D8 CMP #$03 BNE L74DC L74D8 INC $5B BPL L7490 L74DC INC $5B L74DE RTS L74DF LDX $12 LDY $17 JSR L888F STX $1E LDY $13 LDX $18 JSR L887C LDX $14 LDA L6CCB,X LDX $1E RTS L74F7 LDA $17 CMP #$02 BNE L753D LDA $18 CMP #$02 BNE L753D LDY $13 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $12 LDA ($08),Y CMP #$07 BNE L753D LDA $16 BMI L753D LDA #$FF SEC SBC $53 STA $16 LDA #$00 STA ($08),Y LDY $13 STY $86 LDY $12 STY $85 JSR L82B0 LDY $86 LDX $85 JSR L885D LDA #$07 JMP L8336 L753D RTS L753E LDA $16 BPL L7573 INC $16 BNE L7573 LDY $13 STY $86 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $12 STY $85 LDA ($08),Y CMP #$00 BNE L7571 LDA #$07 STA ($08),Y JSR L82B0 LDY $86 LDX $85 JSR L885D LDA #$07 JMP L83A7 L7571 DEC $16 L7573 RTS L7574 INC $14 CMP $14 BCC L757D L757A STA $14 RTS L757D CPX $14 BCC L757A RTS L7582 LDA $17 CMP #$02 BCC L758F BEQ L7594 DEC $17 JMP L74F7 L758F INC $17 JMP L74F7 L7594 RTS L7595 LDA $18 CMP #$02 BCC L75A2 BEQ L75A7 DEC $18 JMP L74F7 L75A2 INC $18 JMP L74F7 L75A7 RTS L75A8 LDX $19 LDA $12 STA L0C60,X LDA $13 STA L0C68,X LDA $17 STA L0C78,X LDA $18 STA L0C80,X LDA $16 STA L0C70,X LDA $15 STA L0C90,X LDA $14 STA L0C88,X RTS L75CE LDX $19 LDA L0C60,X STA $12 LDA L0C68,X STA $13 LDA L0C78,X STA $17 LDA L0C80,X STA $18 LDA L0C88,X STA $14 LDA L0C90,X STA $15 LDA L0C70,X STA $16 RTS L75F4 JSR L7716 INC $53 LDA $53 CMP #$1C BCC L7603 LDA #$00 STA $53 L7603 LDX #$1E L7605 LDA L0CE0,X STX $88 BNE L760F JMP L770D L760F DEC L0CE0,X BEQ L7641 LDA L0CA0,X STA $85 LDA L0CC0,X STA $86 LDA L0CE0,X CMP #$14 BNE L7639 LDA #$37 L7627 JSR L82B0 LDX $85 LDY $86 JSR L885D LDA #$00 JSR L8336 L7636 JMP L770D L7639 CMP #$0A BNE L7636 LDA #$38 BNE L7627 L7641 LDX $88 LDY L0CC0,X STY $86 LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDY L0CA0,X STY $85 LDA ($06),Y CMP #$00 BNE L7667 JMP L7701 L7667 CMP #$09 BNE L766D LSR $9A L766D CMP #$08 BEQ L767A CMP #$07 BNE L7677 DEC $93 L7677 JMP L7701 L767A LDA #$01 STA ($06),Y STA ($08),Y JSR L82AA LDA #$01 JSR L82B0 LDX $8D L768A LDA L0C60,X CMP $85 BNE L76FE LDA L0C68,X CMP $86 BNE L76FE LDA L0C70,X BPL L769F DEC $93 L769F LDA #$7F STA L0C70,X STX $19 JSR L75CE JSR L74DF JSR L8336 LDX $19 LDY #$01 STY $86 L76B5 LDY $86 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY $53 L76C3 LDA ($08),Y CMP #$00 BEQ L76D9 INC $53 LDY $53 CPY #$1C BCC L76C3 INC $86 LDA #$00 STA $53 BEQ L76B5 L76D9 TYA STA L0C60,X LDA $86 STA L0C68,X LDA #$14 STA L0C98,X LDA #$02 STA L0C80,X STA L0C78,X LDA #$00 STA L0C88,X LDY #$00 LDA #$75 JSR L7A92 JMP L770D L76FE DEX BNE L768A L7701 LDA #$01 STA ($06),Y JSR L82AA LDA #$01 JSR L82B0 L770D LDX $88 DEX BMI L7715 JMP L7605 L7715 RTS L7716 LDX $8D BEQ L7715 LDA $19 PHA L771D LDA L0C98,X BEQ L7765 STX $19 JSR L75CE LDA #$7F STA L0C70,X LDA L0C60,X STA $85 LDA L0C68,X STA $86 DEC L0C98,X BEQ L776C LDA L0C98,X CMP #$13 BNE L7752 LDA #$39 JSR L82B0 JSR L74DF LDA #$39 JSR L83A7 JMP L7763 L7752 CMP #$0A BNE L7765 LDA #$3A JSR L82B0 JSR L74DF LDA #$3A JSR L83A7 L7763 LDX $19 L7765 DEX BNE L771D PLA STA $19 RTS L776C LDY $86 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDX $19 INC L0C98,X LDY $85 LDA ($06),Y BNE L7765 LDA #$08 STA ($06),Y LDA #$00 JSR L82B0 LDA #$00 LDX $19 STA L0C70,X STA L0C98,X LDA #$08 JSR L82AA JSR L87E1 HEX 027C03780474057000 LDX $19 JMP L7765 L77AC JSR L786B LDX #$FF LDY #$FF LDA #$04 STA $A1 L77B7 LDA $95 CMP #$CB ; K BEQ L77C7 LDA BUTN1 BMI L77D6 LDA BUTN0 BMI L77D6 L77C7 LDA KBD BMI L77D6 DEX BNE L77B7 DEY BNE L77B7 DEC $A1 BNE L77B7 L77D6 STA KBDSTROBE STA TXTPAGE1 JSR L7A57 LDY #$0F STY $86 L77E3 LDA L1C05,Y STA $08 LDA L1C25,Y STA $09 LDY #$1B STY $85 L77F1 LDA ($08),Y CMP #$05 BNE L77F9 LDA #$01 L77F9 JSR L82B0 DEC $85 LDY $85 BPL L77F1 DEC $86 LDY $86 BPL L77E3 LDX #$1E L780A STX $88 LDA L0CE0,X BEQ L7838 LDY L0CC0,X STY $86 LDY L0CA0,X STY $85 CMP #$15 BCC L7827 LDA #$00 JSR L82B0 JMP L7838 L7827 CMP #$0B BCC L7833 LDA #$37 JSR L82B0 JMP L7838 L7833 LDA #$38 JSR L82B0 L7838 LDX $88 DEX BPL L780A LDX $8D BEQ L7868 L7841 LDA L0C98,X STX $88 BEQ L7863 LDY L0C60,X STY $85 LDY L0C68,X STY $86 CMP #$14 BCS L7863 CMP #$0B BCC L785E LDA #$39 BNE L7860 L785E LDA #$3A L7860 JSR L82B0 L7863 LDX $88 DEX BNE L7841 L7868 JMP L6A12 L786B JSR L7A57 LDA #$40 STA $87 LDA #$00 STA $85 STA $86 JSR L86E0 ASC " LODE RUNNER HIGH SCORES"8D8D8D ASC " INITIALS LEVEL SCORE"8D ASC " -------- ----- --------"8D00 LDA #$01 STA $55 L78D4 CMP #$0A BNE L78E5 LDA #$01 JSR L7B15 LDA #$00 JSR L7B15 JMP L78EF L78E5 LDA #$A0 JSR L7B64 LDA $55 JSR L7B15 L78EF JSR L86E0 ASC ". "00 LDX $55 LDY L79A2,X STY $56 LDA L1F03,Y BNE L7907 JMP L798C L7907 LDY $56 LDA L1F00,Y JSR L7B64 LDY $56 LDA L1F01,Y JSR L7B64 LDY $56 LDA L1F02,Y JSR L7B64 JSR L86E0 ASC " "00 LDY $56 LDA L1F03,Y JSR L7AF8 LDA $89 JSR L7B15 LDA $8A JSR L7B15 LDA $8B JSR L7B15 JSR L86E0 ASC " "00 LDY $56 LDA L1F04,Y JSR L7AE9 LDA $8A JSR L7B15 LDA $8B JSR L7B15 LDY $56 LDA L1F05,Y JSR L7AE9 LDA $8A JSR L7B15 LDA $8B JSR L7B15 LDY $56 LDA L1F06,Y JSR L7AE9 LDA $8A JSR L7B15 LDA $8B JSR L7B15 LDY $56 LDA L1F07,Y JSR L7AE9 LDA $8A JSR L7B15 LDA $8B JSR L7B15 L798C JSR L7B7D INC $55 LDA $55 CMP #$0B BCS L799A JMP L78D4 L799A STA TXTPAGE2 LDA #$20 STA $87 RTS L79A2 HEX 0000081018202830384048 ; LOGO POINTER L79AD JSR L7A51 JSR L7A57 L79B3 LDY #$27 LDA $87 CMP #$40 BEQ L79DD L79BB LDA #$AA STA $2350,Y STA $2750,Y STA $2B50,Y STA $2F50,Y DEY LDA #$D5 STA $2350,Y STA $2750,Y STA $2B50,Y STA $2F50,Y DEY BPL L79BB BMI L79FD L79DD LDA #$AA STA $4350,Y STA $4750,Y STA $4B50,Y STA $4F50,Y DEY LDA #$D5 STA $4350,Y STA $4750,Y STA $4B50,Y STA $4F50,Y DEY BPL L79DD L79FD LDA #$10 STA $86 LDA #$00 STA $85 JSR L86E0 ASC "SCORE MEN LEVEL "00 JSR L7A70 JSR L7A8C LDA #$00 TAY JMP L7A92 L7A31 LDA L1A85,Y STA $0C LDA L1B45,Y ORA $1F STA $0D RTS L7A3E LDA L1A85,Y STA $0C STA $0E LDA L1B45,Y ORA #$20 STA $0D EOR #$60 STA $0F RTS L7A51 LDA #$20 LDX #$40 BNE L7A5B L7A57 LDA #$40 LDX #$60 L7A5B STA $0B LDA #$00 STA $0A TAY LDA #$80 L7A64 STA ($0A),Y INY BNE L7A64 INC $0B CPX $0B BNE L7A64 RTS L7A70 LDA $98 LDX #$10 L7A74 STX $85 JSR L7AF8 LDA #$10 STA $86 LDA $89 JSR L7B15 LDA $8A JSR L7B15 LDA $8B JMP L7B15 L7A8C LDA $A6 LDX #$19 BNE L7A74 L7A92 CLC SED ADC $8E STA $8E TYA ADC $8F STA $8F LDA #$00 ADC $90 STA $90 LDA #$00 ADC $91 STA $91 CLD LDA #$05 STA $85 LDA #$10 STA $86 LDA $91 JSR L7AE9 LDA $8B JSR L7B15 LDA $90 JSR L7AE9 LDA $8A JSR L7B15 LDA $8B JSR L7B15 LDA $8F JSR L7AE9 LDA $8A JSR L7B15 LDA $8B JSR L7B15 LDA $8E JSR L7AE9 LDA $8A JSR L7B15 LDA $8B JMP L7B15 L7AE9 STA $8A AND #$0F STA $8B LDA $8A LSR LSR LSR LSR STA $8A RTS L7AF8 LDX #$00 STX $8A STX $89 L7AFE CMP #100 BCC L7B08 INC $89 SBC #100 BNE L7AFE L7B08 CMP #10 BCC L7B12 INC $8A SBC #10 BNE L7B08 L7B12 STA $8B RTS L7B15 CLC ADC #$3B LDX $87 CPX #$40 BEQ L7B24 JSR L82AA INC $85 RTS L7B24 JSR L82B0 INC $85 RTS L7B2A CMP #$C1 ; A BCC L7B32 CMP #$DB ; Z+1 BCC L7B60 L7B32 LDX #$7C CMP #$A0 BEQ L7B5F LDX #$DB CMP #$BE BEQ L7B5F INX CMP #$AE BEQ L7B5F INX CMP #$A8 BEQ L7B5F INX CMP #$A9 BEQ L7B5F INX CMP #$AF BEQ L7B5F INX CMP #$AD BEQ L7B5F INX CMP #$BC BEQ L7B5F LDA #$10 RTS L7B5F TXA L7B60 SEC SBC #$7C RTS L7B64 CMP #$8D BEQ L7B7D JSR L7B2A LDX $87 CPX #$40 BEQ L7B77 JSR L82AA INC $85 RTS L7B77 JSR L82B0 INC $85 RTS L7B7D INC $86 LDA #$00 STA $85 RTS *--------------------------------------- * The Level Editor *--------------------------------------- L7B84 LDA #$00 STA $8E STA $8F STA $90 STA $91 LDA $36 STA $24 LDA $37 STA $25 LDA #$05 STA $98 STA $A7 LDA $95 STA L7C76+1 LDA #$CB STA $95 STA TXTPAGE1 LDA $96 CMP #maxLEVEL BCC L7BB2 LDA #$00 STA $96 L7BB2 JSR L7A51 LDA #$20 STA $87 LDA #$00 STA $85 STA $86 JSR L86E0 ASC " LODE RUNNER BOARD EDITOR"8D ASC "----------------------------"8D ASC " ABORTS ANY COMMAND"8D00 L7C16 LDA $86 CMP #$09 BCS L7BB2 JSR L86E0 ASC 8D ASC "COMMAND>"00 JSR L823D LDX #$00 L7C2E LDY L7C4D,X BEQ L7C3B CMP L7C4D,X BEQ L7C41 INX BNE L7C2E L7C3B JSR L86CE JMP L7C16 L7C41 TXA ASL TAX LDA L7C54+1,X PHA LDA L7C54,X PHA RTS L7C4D ASC "PCEMIS"00 L7C54 DA L7C60-1 ; Play level DA L7C8E-1 ; Clear level DA L7CBC-1 ; Edit level DA L7CD8-1 ; Move level DA L7D5D-1 ; Initialize DA L7E75-1 ; clear Score file L7C60 JSR L86E0 ASC 8D ASC ">>PLAY LEVEL"00 JSR L817B BCS L7C8B L7C76 LDA #$00 STA $95 LDA #$03 STA $A7 LDA #$01 STA $9D LDA $96 BEQ L7C88 LSR $9D L7C88 JMP L6056 L7C8B JMP L7C3B L7C8E JSR L86E0 ASC 8D ASC ">>CLEAR LEVEL"00 JSR L817B BCS L7CB9 JSR L807F LDY #$00 TYA L7CAB STA $0D00,Y INY BNE L7CAB LDA #$02 JSR L630E JMP L7C16 L7CB9 JMP L7C3B L7CBC JSR L86E0 ASC 8D ASC ">>EDIT LEVEL"00 JSR L817B BCS L7CD5 JMP L7F01 L7CD5 JMP L7C3B L7CD8 JSR L86E0 ASC 8D ASC ">>MOVE LEVEL"00 JSR L817B BCS L7D5A STY L824F JSR L86E0 ASC " TO LEVEL"00 JSR L817B BCS L7D5A STY L8250 JSR L86E0 ASC 8D ASC " SOURCE DISKETTE"00 JSR L823D JSR L807F LDA L824F STA $96 LDA #$01 JSR L630E JSR L86E0 ASC 8D ASC " DESTINATION DISKETTE"00 JSR L823D JSR L807F LDA L8250 STA $96 LDA #$02 JSR L630E JMP L7C16 L7D5A JMP L7C3B L7D5D JSR L86E0 ASC 8D ASC ">>INITIALIZE"8D ASC " THIS FORMATS THE DISKETTE"8D ASC " FOR USER CREATED LEVELS."8D ASC " (CAUTION. IT ERASES THE"8D ASC " ENTIRE DISKETTE FIRST)"8D8D ASC " ARE YOU SURE (Y/N) "00 JSR L823D CMP #$D9 ; Y BNE L7E72 NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP LDA $96 PHA LDA #$04 JSR L630E LDA #$B2 STA LB7F0 LDA #$1D STA LB7F0+1 LDA #$00 STA LB7ED STA LB7EC LDA #$02 STA LB7F4 JSR L6338 LDA #$E0 STA $96 LDA #$01 JSR L630E LDY #$37 L7E33 LDA L8251,Y STA $0D00,Y DEY BPL L7E33 LDA #$02 JSR L630E LDA #$EF STA $96 LDA #$01 JSR L630E LDY #$20 L7E4C LDA L8289,Y STA L0D0B,Y DEY BPL L7E4C LDA #$02 JSR L630E LDA #$01 JSR L6359 LDY #$0A L7E61 LDA L63A8,Y STA $1FF4,Y DEY BPL L7E61 LDA #$02 JSR L6359 PLA STA $96 L7E72 JMP L7C16 L7E75 JSR L86E0 ASC 8D ASC ">>CLEAR SCORE FILE"8D ASC " THIS CLEARS THE HIGH"8D ASC " SCORE FILE OF ALL"8D ASC " ENTRIES."8D8D ASC " ARE YOU SURE (Y/N) "00 JSR L823D CMP #$D9 BNE L7EFE LDA #$01 JSR L6359 CMP #$00 BNE L7EEF JSR L8106 JMP L7BB2 L7EEF LDY #$4F LDA #$00 L7EF3 STA L1F00,Y DEY BPL L7EF3 LDA #$02 JSR L6359 L7EFE JMP L7C16 L7F01 JSR L7A57 LDA #$40 STA $87 JSR L79B3 LDA #$20 STA $87 JSR L807F LDX #$01 STX $AD DEX JSR L6238 BCC L7F1F JMP L7C3B L7F1F LDA #$00 STA $85 STA $86 L7F25 JSR L814B CMP #$BA BCS L7F54 CMP #$B0 BCC L7F54 AND #$0F STA $1E LDY $86 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $85 LDA $1E EOR ($06),Y BEQ L7F4A LSR $AD L7F4A LDA $1E STA ($06),Y JSR L82AA JMP L7F25 L7F54 STA $1E LDY #$FF L7F58 INY LDA L8162,Y BEQ L7F6E CMP $1E BNE L7F58 TYA ASL TAY LDA L816B+1,Y PHA LDA L816B,Y PHA RTS L7F6E JSR L86CE JMP L7F25 L7F74 LDA $86 BEQ L7F6E DEC $86 BPL L7F25 L7F7C LDA $85 BEQ L7F6E DEC $85 BPL L7F25 L7F84 LDA $85 CMP #$1B BCS L7F6E INC $85 BNE L7F25 L7F8E LDA $86 CMP #$0F BCS L7F6E INC $86 BNE L7F25 L7F98 LDA $86 PHA LDA $85 PHA LDA #$01 JSR L6359 CMP #$00 BNE L7FAD JSR L8106 JMP L7FC5 L7FAD CMP #$01 BNE L7FB7 JSR L8098 JMP L7FC5 L7FB7 JSR L62C7 PLA STA $85 PLA STA $86 LDA #$01 STA $AD RTS L7FC5 LDA #$00 STA $85 STA $86 JMP L7F25 L7FCE JSR L7F98 JMP L7F25 L7FD4 LDA $96 CMP #maxLEVEL-1 ; 150-1 L7FD8 BEQ L7F6E JSR L7FF8 INC $96 INC $A6 JMP L7F01 L7FE4 LDA $96 BEQ L7FD8 JSR L7FF8 DEC $A6 DEC $96 JMP L7F01 L7FF2 JSR L7FF8 JMP L7BB2 L7FF8 LDA $AD BNE L8075 JSR L7A57 LDA #$40 STA $87 LDA #$00 STA $85 STA $86 JSR L86E0 ASC "LEVEL HAS BEEN CHANGED BUT"8D ASC "NOT SAVED. DO YOU WISH TO"8D ASC "SAVE MODIFIED LEVEL (Y/N) "00 JSR L86CE STA TXTPAGE2 L8062 LDA #$00 JSR L85F3 STA KBDSTROBE CMP #$CE BEQ L8075 CMP #$D9 BNE L8062 JSR L7F98 L8075 STA TXTPAGE1 LDA #$00 STA $85 STA $86 RTS L807F LDA #$01 JSR L6359 CMP #$00 BNE L808E JSR L8106 JMP L7BB2 L808E CMP #$01 BNE L8105 JSR L8098 JMP L7BB2 L8098 JSR L7A57 LDA #$40 STA $87 LDA #$00 STA $85 STA $86 JSR L86E0 ASC "USER NOT ALLOWED TO"8D ASC "MANIPULATE MASTER DISKETTE."00 L80D8 JSR L86E0 ASC 8D8D ASC "HIT A KEY TO CONTINUE "00 JSR L86CE STA TXTPAGE2 LDA #$00 JSR L85F3 STA KBDSTROBE STA TXTPAGE1 L8105 RTS L8106 JSR L7A57 LDA #$40 STA $87 LDA #$00 STA $85 STA $86 JSR L86E0 ASC "DISKETTE IN DRIVE IS NOT A"8D ASC "LODE RUNNER DATA DISK."00 JMP L80D8 L814B LDY $86 LDA L1C05,Y STA $06 LDA L1C15,Y STA $07 LDY $85 LDA ($06),Y JSR L8700 STA KBDSTROBE RTS L8162 ASC "JIKM" HEX 9395889100 L816B DA L7F7C-1 ; move left DA L7F74-1 ; move up DA L7F84-1 ; move down DA L7F8E-1 ; move right DA L7FCE-1 ; DA L7FD4-1 ; DA L7FE4-1 ; DA L7FF2-1 ; L817B LDY $96 INY TYA JSR L7AF8 LDA $85 STA L824E LDY #$00 L8189 LDA |$0089,Y STY L824D JSR L7B15 LDY L824D INY CPY #$03 BCC L8189 LDA L824E STA $85 LDY #$00 STY L824D L81A4 LDX L824D LDA $89,X CLC ADC #$3B JSR L8700 STA KBDSTROBE CMP #$8D BEQ L820D CMP #$88 BNE L81C7 LDX L824D BEQ L8207 DEC L824D DEC $85 JMP L81A4 L81C7 CMP #$95 BNE L81DA LDX L824D CPX #$02 BEQ L8207 INC $85 INC L824D JMP L81A4 L81DA CMP #$9B BNE L81E1 JMP L7C16 L81E1 CMP #$B0 BCC L8207 CMP #$BA BCS L8207 SEC SBC #$B0 LDY L824D STA |$0089,Y JSR L7B15 INC L824D LDA L824D CMP #$03 BCC L81A4 DEC L824D DEC $85 JMP L81A4 L8207 JSR L86CE JMP L81A4 L820D LDA L824E CLC ADC #$03 STA $85 LDA #$00 LDX $89 BEQ L8223 CLC L821C ADC #$64 BCS L823C DEX BNE L821C L8223 LDX $8A BEQ L822F CLC L8228 ADC #$0A BCS L823C DEX BNE L8228 L822F CLC ADC $8B BCS L823C STA $A6 TAY DEY STY $96 CPY #maxLEVEL L823C RTS L823D LDA #$00 JSR L8700 STA KBDSTROBE CMP #$9B BNE L824C JMP L7C16 L824C RTS L824D RTS L824E DB $85 L824F DB $0F L8250 DB $60 L8251 HEX 02110F040000FE000000000000000000 HEX 00000000000000000000000000000000 HEX 000000000000007A0000000000000000 HEX FFFF0000230F0001 L8289 HEX 220F8888888888888888CCCFC4C5A0D2 HEX D5CECEC5D2A0C4C1D4C1A0C4C9D3CBA0 HEX A0 *--------------------------------------- * PRINT CHAR *--------------------------------------- L82AA STA $1E LDA #$20 BNE L82B4 L82B0 STA $1E LDA #$40 L82B4 STA $1F LDY $86 JSR L885D STY $1B LDX $85 JSR L8868 STA $1C STX $71 LDA L8328,X STA $50 LDA L832F,X STA $51 JSR L8438 LDA #$0B STA $1D LDX #$00 LDA $71 CMP #$05 BCS L8301 L82DF LDY $1B JSR L7A31 LDY $1C LDA ($0C),Y AND $50 ORA $DF,X STA ($0C),Y INX INY LDA ($0C),Y AND $51 ORA $DF,X STA ($0C),Y INX INX INC $1B DEC $1D BNE L82DF RTS L8301 LDY $1B JSR L7A31 LDY $1C LDA ($0C),Y AND $50 ORA $DF,X STA ($0C),Y INX INY LDA $DF,X STA ($0C),Y INX INY LDA ($0C),Y AND $51 ORA $DF,X STA ($0C),Y INX INC $1B DEC $1D BNE L8301 RTS L8328 HEX 000103070F1F3F L832F HEX F8F0E0C080FEFC L8336 STY $1B STA $1E JSR L8872 STA $1C STX $71 JSR L8438 LDX #$0B STX $1D LDX #$00 LDA $71 CMP #$05 BCS L8376 L8350 LDY $1B JSR L7A3E LDY $1C LDA $DF,X EOR #$7F AND ($0C),Y ORA ($0E),Y STA ($0C),Y INX INY LDA $DF,X EOR #$7F AND ($0C),Y ORA ($0E),Y STA ($0C),Y INX INX INC $1B DEC $1D BNE L8350 RTS L8376 LDY $1B JSR L7A3E LDY $1C LDA $DF,X EOR #$7F AND ($0C),Y ORA ($0E),Y STA ($0C),Y INX INY LDA $DF,X EOR #$7F AND ($0C),Y ORA ($0E),Y STA ($0C),Y INX INY LDA $DF,X EOR #$7F AND ($0C),Y ORA ($0E),Y STA ($0C),Y INX INC $1B DEC $1D BNE L8376 RTS L83A7 STY $1B STA $1E JSR L8872 STA $1C STX $71 JSR L8438 LDA #$0B STA $1D LDX #$00 STX $52 LDA $71 CMP #$05 BCS L83F5 L83C3 LDY $1B JSR L7A3E LDY $1C LDA ($0C),Y EOR ($0E),Y AND $DF,X ORA $52 STA $52 LDA $DF,X ORA ($0C),Y STA ($0C),Y INX INY LDA ($0C),Y EOR ($0E),Y AND $DF,X ORA $52 STA $52 LDA $DF,X ORA ($0C),Y STA ($0C),Y INX INX INC $1B DEC $1D BNE L83C3 RTS L83F5 LDY $1B JSR L7A3E LDY $1C LDA ($0C),Y EOR ($0E),Y AND $DF,X ORA $52 STA $52 LDA $DF,X ORA ($0C),Y STA ($0C),Y INX INY LDA ($0C),Y EOR ($0E),Y AND $DF,X ORA $52 STA $52 LDA $DF,X ORA ($0C),Y STA ($0C),Y INX INY LDA ($0C),Y EOR ($0E),Y AND $DF,X ORA $52 STA $52 LDA $DF,X ORA ($0C),Y STA ($0C),Y INX INC $1B DEC $1D BNE L83F5 RTS L8438 LDA #$0B STA $1D LDA #LAD00 STA $0B LDA L84C1,X STA L845A+2 STA L8466+2 STA L848B+2 STA L8497+2 LDX #$00 L8455 LDY $1E LDA ($0A),Y TAY L845A LDA LA000,Y STA L846F+1 CLC ADC #$01 STA L8474+1 L8466 LDA LA080,Y STA L846F+2 STA L8474+2 L846F LDA LA000 STA $DF,X L8474 LDA LA000 STA $E0,X LDA $0A CLC ADC #$68 STA $0A LDA $0B ADC #$00 STA $0B LDY $1E LDA ($0A),Y TAY L848B LDA LA000,Y STA L84A0+1 CLC ADC #$01 STA L84A7+1 L8497 LDA LA080,Y STA L84A0+2 STA L84A7+2 L84A0 LDA LA000 ORA $E0,X STA $E0,X L84A7 LDA LA000 STA $E1,X LDA $0A CLC ADC #$68 STA $0A LDA $0B ADC #$00 STA $0B INX INX INX DEC $1D BNE L8455 RTS L84C1 DB >LA200 ; LOGO POINTER DB >LA300 DB >LA400 DB >LA500 DB >LA600 DB >LA700 DB >LA800 L84C8 LDA $9D BEQ L8514 LDA $8E ORA $8F ORA $90 ORA $91 BEQ L8514 LDA #$01 JSR L6359 BEQ L8514 LDY #$01 L84DF LDX L79A2,Y LDA $A6 CMP L1F03,X BCC L850F BNE L8515 LDA $91 CMP L1F04,X BCC L850F BNE L8515 LDA $90 CMP L1F05,X BCC L850F BNE L8515 LDA $8F CMP L1F06,X BCC L850F BNE L8515 LDA $8E CMP L1F07,X BCC L850F BNE L8515 L850F INY CPY #$0B BCC L84DF L8514 RTS L8515 CPY #$0A BEQ L8536 STY $56 LDY #$09 L851D LDX L79A2,Y LDA #$08 STA $1D L8524 LDA L1F00,X STA L1F08,X INX DEC $1D BNE L8524 CPY $56 BEQ L8536 DEY BNE L851D L8536 LDX L79A2,Y LDA #$A0 STA L1F00,X STA L1F01,X STA L1F02,X LDA $A6 STA L1F03,X LDA $91 STA L1F04,X LDA $90 STA L1F05,X LDA $8F STA L1F06,X LDA $8E STA L1F07,X STY $69 LDA L79A2,Y STA L8582+1 STA L85C9+1 JSR L786B LDA #$40 STA $87 LDA $69 CLC ADC #$04 STA $86 LDA #$07 STA $85 LDX #$00 STX L824D L857F LDX L824D L8582 LDA L1F00,X JSR L7B2A JSR L85F3 STA KBDSTROBE CMP #$8D BEQ L85E7 CMP #$88 BNE L85A3 LDX L824D BEQ L85E1 DEC L824D DEC $85 JMP L857F L85A3 CMP #$95 BNE L85B6 LDX L824D CPX #$02 BEQ L85E1 INC $85 INC L824D JMP L857F L85B6 CMP #$AE BEQ L85C6 CMP #$A0 BEQ L85C6 CMP #$C1 BCC L85E1 CMP #$DB BCS L85E1 L85C6 LDY L824D L85C9 STA L1F00,Y JSR L7B64 INC L824D LDA L824D CMP #$03 BCC L857F DEC L824D DEC $85 JMP L857F L85E1 JSR L86CE JMP L857F L85E7 LDA #$20 STA $87 LDA #$02 JSR L6359 JMP L618E L85F3 STA L8745 L85F6 LDA #$68 STA $A1 LDA L8745 BNE L8601 LDA #$0A L8601 JSR L82B0 L8604 LDA KBD BMI L8628 JSR L876D DEC $A1 BNE L8604 LDA #$00 JSR L82B0 LDA #$68 STA $A1 L8619 LDA KBD BMI L8628 JSR L876D DEC $A1 BNE L8619 JMP L85F6 L8628 PHA LDA L8745 JSR L82B0 PLA RTS L8631 LDA #$00 STA L0C00 LDX $A3 STX L869E L863B LDX L869E BEQ L8696 LDA L0C00,X BMI L8690 STA $85 LDA L0C30,X STA $86 TAY LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 LDY $85 LDA ($08),Y BNE L868B LDA #$03 STA ($08),Y LDA ($06),Y BNE L8670 LDA #$03 STA ($06),Y L8670 LDA #$03 JSR L82B0 LDX $85 LDY $86 JSR L885D LDA #$03 JSR L83A7 LDX L869E LDA #$FF STA L0C00,X BMI L8690 L868B LDA #$01 STA L0C00 L8690 DEC L869E JMP L863B L8696 LDA L0C00 BNE L869D DEC $93 L869D RTS L869E DB $00 L869F STA KBDSTROBE LDA KBD BMI L869F RTS L86A8 LDA KBD BPL L86A8 STA KBDSTROBE RTS L86B1 LDA L86BE,X TAX L86B5 LDY #$B4 L86B7 DEY BNE L86B7 DEX BNE L86B5 RTS L86BE HEX 020406080A0C0E10121416181A1C1E20 MX %11 L86CE LDY #$C0 L86D0 LDX #$80 L86D2 DEX BNE L86D2 LDA $99 BEQ L86DC LDA SPKR L86DC DEY BNE L86D0 RTS L86E0 PLA STA $10 PLA STA $11 BNE L86F1 L86E8 LDY #$00 LDA ($10),Y BEQ L86F9 JSR L7B64 L86F1 INC $10 BNE L86E8 INC $11 BNE L86E8 L86F9 LDA $11 PHA LDA $10 PHA RTS L8700 STA L8745 L8703 LDA #$68 STA $A1 LDA #$00 LDX L8745 BNE L8710 LDA #$0A L8710 JSR L82AA L8713 LDA KBD BMI L873C JSR L876D BCS L873C DEC $A1 BNE L8713 LDA L8745 JSR L82AA LDA #$68 STA $A1 L872B LDA KBD BMI L873C JSR L876D BCS L873C DEC $A1 BNE L872B JMP L8703 L873C PHA LDA L8745 JSR L82AA PLA RTS L8745 DB $06 L8746 LDA #$00 STA $65 STA $66 LDA PTRIG L874F LDX #$01 L8751 LDA $C064,X BPL L8769 INC $65,X L8758 DEX BPL L8751 LDA PADDL0 ORA PADDL1 BPL L876C LDA $65 ORA $66 BPL L874F L8769 NOP BPL L8758 L876C RTS L876D LDA $95 CMP #$CB ; K BEQ L8798 JSR L8746 LDA $65 CMP #$12 BCC L8796 CMP #$3B BCS L8796 LDA $66 CMP #$12 BCC L8796 CMP #$3B BCS L8796 LDA BUTN1 BMI L8796 LDA BUTN0 BMI L8796 CLC RTS L8796 SEC RTS L8798 LDX #$02 L879A DEY BNE L879A DEX BNE L879A CLC RTS L87A2 LDA PTRIG LDX #$10 L87A7 LDA PADDL0 ORA PADDL1 BPL L87B9 DEY BNE L87A7 DEX BNE L87A7 LDA #$CB STA $95 L87B9 RTS L87BA STA $0A STX $0B L87BE LDA $99 BEQ L87C5 LDA SPKR L87C5 DEY BNE L87CC DEC $0B BEQ L87D4 L87CC DEX BNE L87C5 LDX $0A JMP L87BE L87D4 RTS L87D5 INC $54 LDY $54 STA L0E80,Y TXA STA L0E00,Y RTS L87E1 PLA STA $10 PLA STA $11 BNE L8802 L87E9 LDY #$00 LDA ($10),Y BEQ L880A INC $54 LDX $54 STA L0E00,X INY LDA ($10),Y STA L0E80,X INC $10 BNE L8802 INC $11 L8802 INC $10 BNE L87E9 INC $11 BNE L87E9 L880A LDA $11 PHA LDA $10 PHA RTS L8811 LDY $54 BEQ L8832 LDA L0E80,Y LDX L0E00,Y JSR L87BA LDY $54 DEC $54 LDA $8C SEC SBC L0E00,Y BEQ L8830 BCC L8830 TAX JSR L86B5 L8830 SEC RTS L8832 LDA $9B BNE L8844 LDA $A4 LSR INC $A4 LDX $8C INX INX JSR L87BA CLC RTS L8844 LDX $8C JSR L86B1 CLC RTS L884B LDA L1C05,Y STA $06 STA $08 LDA L1C15,Y STA $07 LDA L1C25,Y STA $09 RTS L885D LDA L1C51,Y PHA LDA L1C35,X TAX PLA TAY RTS L8868 LDA L1C62,X PHA LDA L1C7E,X TAX PLA RTS L8872 LDA L1C9A,X PHA LDA L1D26,X TAX PLA RTS L887C TXA PHA JSR L885D PLA TAX TYA CLC ADC L888A,X TAY RTS L888A HEX FBFD000204 L888F TYA PHA JSR L885D PLA TAY TXA CLC ADC L889D,Y TAX RTS L889D HEX FEFF000102 L88A2 LDA #$58 STA $73 LDA #$8C STA $74 LDA $A5 BEQ L88BD LDX #$AA STX $6D LDX #$00 STX $72 L88B6 JSR L88D7 DEC $6D BNE L88B6 L88BD LDA #$01 STA $6D STA $A5 STA $72 JSR L7A70 JSR L7A8C L88CB JSR L88D7 INC $6D LDA $6D CMP #$AA BNE L88CB RTS L88D7 LDA $6D STA $69 LDA #$00 STA $6A STA $67 STA $68 LDA $69 ASL STA $6B LDA $6A ROL STA $6C LDA #$03 SEC SBC $6B STA $6B LDA #$00 SBC $6C STA $6C LDA $73 SEC SBC $6D STA $75 LDA #$00 SBC #$00 STA $79 LDA $73 STA $76 STA $77 LDA #$00 STA $7A STA $7B LDA $73 CLC ADC $6D STA $78 LDA #$00 ADC #$00 STA $7C LDA $74 SEC SBC $6D TAX LDA #$00 SBC #$00 JSR L8A45 STY $7D STA $81 LDX $74 LDA #$00 JSR L8A45 STY $7E STY $7F STA $82 STA $83 LDA $74 CLC ADC $6D TAX LDA #$00 ADC #$00 JSR L8A45 STY $80 STA $84 L8951 LDA $68 CMP $6A BCC L896F BEQ L8969 L8959 LDA $67 CMP $69 BNE L8968 LDA $68 CMP $6A BNE L8968 JMP L8A69 L8968 RTS L8969 LDA $67 CMP $69 BCS L8959 L896F JSR L8A69 LDA $6C BPL L89A7 LDA $67 ASL STA $6F LDA $68 ROL STA $70 LDA $6F ASL STA $6F LDA $70 ROL STA $70 LDA $6B CLC ADC $6F STA $6F LDA $6C ADC $70 STA $70 LDA #$06 CLC ADC $6F STA $6B LDA #$00 ADC $70 STA $6C JMP L8A14 L89A7 LDA $67 SEC SBC $69 STA $6F LDA $68 SBC $6A STA $70 LDA $6F ASL STA $6F LDA $70 ROL STA $70 LDA $6F ASL STA $6F LDA $70 ROL STA $70 LDA $6F CLC ADC #$10 STA $6F LDA $70 ADC #$00 STA $70 LDA $6F CLC ADC $6B STA $6B LDA $70 ADC $6C STA $6C LDA $69 PHP DEC $69 PLP BNE L89EC DEC $6A L89EC INC $75 BNE L89F2 INC $79 L89F2 DEC $84 BPL L89FC LDA #$06 STA $84 DEC $80 L89FC INC $81 LDA $81 CMP #$07 BNE L8A0A LDA #$00 STA $81 INC $7D L8A0A DEC $78 LDA $78 CMP #$FF BNE L8A14 DEC $7C L8A14 INC $67 BNE L8A1A INC $68 L8A1A INC $83 LDA $83 CMP #$07 BNE L8A28 LDA #$00 STA $83 INC $7F L8A28 DEC $76 LDA $76 CMP #$FF BNE L8A32 DEC $7A L8A32 INC $77 BNE L8A38 INC $7B L8A38 DEC $82 BPL L8A42 LDA #$06 STA $82 DEC $7E L8A42 JMP L8951 L8A45 STX $6F LDY #$08 SEC SBC #$07 L8A4C PHP ROL $70 ASL $6F ROL PLP BCC L8A5A SBC #$07 JMP L8A5C L8A5A ADC #$07 L8A5C DEY BNE L8A4C BCS L8A64 ADC #$07 CLC L8A64 ROL $70 LDY $70 RTS L8A69 LDY $7C BNE L8A8C LDY $78 CPY #$B0 BCS L8A8C JSR L7A3E LDY $7F CPY #$28 BCS L8A81 LDX $83 JSR L8AF6 L8A81 LDY $7E CPY #$28 BCS L8A8C LDX $82 JSR L8AF6 L8A8C LDY $79 BNE L8AAF LDY $75 CPY #$B0 BCS L8AAF JSR L7A3E LDY $7F CPY #$28 BCS L8AA4 LDX $83 JSR L8AF6 L8AA4 LDY $7E CPY #$28 BCS L8AAF LDX $82 JSR L8AF6 L8AAF LDY $7B BNE L8AD2 LDY $77 CPY #$B0 BCS L8AD2 JSR L7A3E LDY $80 CPY #$28 BCS L8AC7 LDX $84 JSR L8AF6 L8AC7 LDY $7D CPY #$28 BCS L8AD2 LDX $81 JSR L8AF6 L8AD2 LDY $7A BNE L8AF5 LDY $76 CPY #$B0 BCS L8AF5 JSR L7A3E LDY $80 CPY #$28 BCS L8AEA LDX $84 JSR L8AF6 L8AEA LDY $7D CPY #$28 BCS L8AF5 LDX $81 JMP L8AF6 L8AF5 RTS L8AF6 LDA $72 BNE L8B02 LDA ($0C),Y AND L8B0C,X STA ($0C),Y RTS L8B02 LDA ($0E),Y AND L8B13,X ORA ($0C),Y STA ($0C),Y RTS L8B0C HEX F0F0F0F08F8F8F L8B13 HEX 8F8F8F8FF0F0F0 L8B1A LDA #$01 STA L8D4B LDA #$20 STA $1F L8B23 JSR L8BCF JSR L8BBE JSR L8BAD JSR L8B9C JSR L8B8B JSR L8B7A JSR L8B8B JSR L8B9C JSR L8BAD JSR L8BBE JSR L8BCF JSR L8C24 JSR L8C13 JSR L8C02 JSR L8BF1 JSR L8BE0 JSR L8BF1 JSR L8C02 JSR L8C13 JSR L8C24 LDA L8D4B CMP #$64 BCC L8B23 JSR L8BCF JSR L8BBE JSR L8BAD JSR L8B9C JSR L8B8B JSR L8B7A CLC RTS L8B7A JSR L8CE5 HEX 000102030405060708090A020100 L8B8B JSR L8CE5 HEX 0000010203040507090A02010000 L8B9C JSR L8CE5 HEX 00000001020304090A0201000000 L8BAD JSR L8CE5 HEX 000000000102030A020100000000 L8BBE JSR L8CE5 HEX 000000000001030A010000000000 L8BCF JSR L8CE5 HEX 0000000000000101000000000000 L8BE0 JSR L8CE5 HEX 0001020A09080706050403020100 L8BF1 JSR L8CE5 HEX 000001020A090705040302010000 L8C02 JSR L8CE5 HEX 00000001020A0904030201000000 L8C13 JSR L8CE5 HEX 0000000001020A03020100000000 L8C24 JSR L8CE5 HEX 0000000000010A03010000000000 L8C35 HEX 8080808080808080808080808080 L8C43 HEX C0AAD5AAD5AAD5AAD5AAD5AAD580 L8C51 HEX 9080808080808080808080808082 L8C5F HEX 90AAD1A2D5A885A8C5A2D4A29582 L8C6D HEX 908291A2C5A88088C5A294A09082 L8C7B HEX 908290A2C4A88088C5A294A09082 L8C89 HEX 908290A2C4A88188C4A2D4A09582 L8C97 HEX 90A2D1A2C4888088C4A284A08582 L8CA5 HEX 908291A2C4888088C4AA84A08582 L8CB3 HEX 908291A2C4888088C48A84A09182 L8CC1 HEX 90AA91A2C4A885A88582D4A29182 L8CCF DA L8C35-$D DA L8C43-$D DA L8C51-$D DA L8C5F-$D DA L8C6D-$D DA L8C7B-$D DA L8C89-$D DA L8C97-$D DA L8CA5-$D DA L8CB3-$D DA L8CC1-$D L8CE5 PLA STA $0A PLA STA $0B LDY #$50 STY $86 BNE L8D12 L8CF1 JSR L7A31 LDY #$00 LDA ($0A),Y ASL TAX LDA L8CCF,X STA L8D08+1 LDA L8CCF+1,X STA L8D08+2 LDY #$0D L8D08 LDA L8D08,Y STA ($0C),Y INY CPY #$1B BCC L8D08 L8D12 JSR L8D4C INC $86 LDY $86 CPY #$5F BCC L8CF1 LDX L8D4B LDY #$FF L8D22 DEY BNE L8D22 DEX BNE L8D22 INC L8D4B LDA $95 CMP #$CB ; K BEQ L8D3B LDA BUTN1 BMI L8D41 LDA BUTN0 BMI L8D41 L8D3B LDA KBD BMI L8D41 RTS L8D41 PLA PLA SEC LDA KBD STA KBDSTROBE RTS L8D4B DB $9D L8D4C INC $0A BNE L8D52 INC $0B L8D52 RTS ds \ L8E00 LDA #$44 ; MASTER DISKETTE STA $0478 LDA #$00 JSR LB9A0 NOP NOP NOP NOP NOP NOP LDA #$20 STA $4F L8E14 DEY BNE L8E20 DEC $4F BNE L8E20 JMP LBEAF NOP NOP L8E20 LDA $C08C,X BPL L8E20 L8E25 CMP #$D4 BNE L8E14 NOP L8E2A LDA $C08C,X BPL L8E2A L8E2F CMP #$D5 BNE L8E25 NOP L8E34 LDA $C08C,X BPL L8E34 CMP #$D6 BNE L8E2F LDA $C088,X JSR L8098 JMP L7BB2 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 JMP LB7B5 ds \ *--------------------------------------- put LR.Tables put LR.RWTS