"FILE5149725" PRG GARTHE'S EQUIPMENT SHOPPE
#$EA | 234 | EOR all bytes against 11101010
8 blocks; 1841 bytes (70EA TO 781B Inclusive 9A00 - A131 memory)
This is the subroutine that handles Garth's Equipment Shoppe.
I wonder where the item/inventory list is exactly...
Code: Select all
.C:9a00 A2 15 LDX #$15
.C:9a02 20 1B 08 JSR $081B Display picture #$15
.C:9a05 A9 9E LDA #$9E
.C:9a07 85 59 STA $59
.C:9a09 A9 6B LDA #$6B
.C:9a0b 85 58 STA $58
.C:9a0d 20 0F 08 JSR $080F Display caption "The Shoppe"
.C:9a10 20 E1 08 JSR $08E1
.C:9a13 A5 EB LDA $EB Get time of day
.C:9a15 F0 0D BEQ $9A24 Daytime? Go $9a24
.C:9a17 A0 9E LDY #$9E
.C:9a19 A2 FD LDX #$FD
.C:9a1b 20 06 08 JSR $0806 We're closed GTFO.
.C:9a1e 20 78 08 JSR $0878
.C:9a21 4C 35 9A JMP $9A35
.C:9a24 A0 9E LDY #$9E
.C:9a26 A2 76 LDX #$76
.C:9a28 20 06 08 JSR $0806 "Welcome to Garth's, oh..."
.C:9a2b 20 78 08 JSR $0878 Get keypress
.C:9a2e 20 87 08 JSR $0887 Evaluate keypress
.C:9a31 C9 C5 CMP #$C5
.C:9a33 D0 30 BNE $9A65 Exit? No? Go $9a65
.C:9a35 A6 24 LDX $24 Begin exit routine
.C:9a37 BD 61 9A LDA $9A61,X
.C:9a3a 85 24 STA $24 Spin party 180 degrees
.C:9a3c 20 49 9A JSR $9A49
.C:9a3f A9 00 LDA #$00
.C:9a41 85 2F STA $2F I don't even know what this is.
.C:9a43 20 E1 08 JSR $08E1
.C:9a46 4C 00 90 JMP $9000 Back to main program.
.C:9a49 A5 24 LDA $24
.C:9a4b F0 0B BEQ $9A58
.C:9a4d C9 01 CMP #$01
.C:9a4f F0 0D BEQ $9A5E
.C:9a51 C9 02 CMP #$02
.C:9a53 F0 06 BEQ $9A5B
.C:9a55 C6 29 DEC $29 Move party 1 square west
.C:9a57 60 RTS
.C:9a58 E6 28 INC $28 Move party 1 square north
.C:9a5a 60 RTS
.C:9a5b C6 28 DEC $28 Move party 1 square south
.C:9a5d 60 RTS
.C:9a5e E6 29 INC $29 Move party 1 square take a wild guess
.C:9a60 60 RTS
.C:9a61 02 JAM Data array - S W N E
.C:9a62 03 00 SLO ($00,X)
.C:9a64 01
.C:9a65 C9 B0 CMP #$B0
.C:9a67 90 C2 BCC $9A2B
.C:9a69 C9 B7 CMP #$B7
.C:9a6b B0 BE BCS $9A2B
.C:9a6d 38 SEC
.C:9a6e E9 B0 SBC #$B0
.C:9a70 0A ASL A
.C:9a71 AA TAX
.C:9a72 BD 26 A1 LDA $A126,X
.C:9a75 85 9B STA $9B
.C:9a77 BD 27 A1 LDA $A127,X
.C:9a7a 85 9C STA $9C
.C:9a7c A0 00 LDY #$00
.C:9a7e B1 9B LDA ($9B),Y
.C:9a80 F0 A9 BEQ $9A2B
.C:9a82 20 08 9D JSR $9D08
.C:9a85 20 19 9D JSR $9D19
.C:9a88 20 78 08 JSR $0878 Get keypress
.C:9a8b 20 87 08 JSR $0887 Evaluate keypress
.C:9a8e C9 C5 CMP #$C5
.C:9a90 D0 03 BNE $9A95 Exit? No? Go $9a95
.C:9a92 4C 10 9A JMP $9A10
.C:9a95 C9 C9 CMP #$C9
.C:9a97 D0 03 BNE $9A9C Identify? No? Go $9a9c
.C:9a99 4C 85 9C JMP $9C85
.C:9a9c C9 D3 CMP #$D3
.C:9a9e D0 03 BNE $9AA3 Sell? No? Go $9aa3
.C:9aa0 4C 00 9C JMP $9C00
.C:9aa3 C9 C2 CMP #$C2
.C:9aa5 F0 0A BEQ $9AB1 Buy? Yes Go $9ab1
.C:9aa7 C9 D0 CMP #$D0
.C:9aa9 D0 DD BNE $9A88 Poo good? No? Go $9a88
.C:9aab 20 69 08 JSR $0869
.C:9aae 4C 82 9A JMP $9A82
.C:9ab1 20 44 9D JSR $9D44
.C:9ab4 90 03 BCC $9AB9
.C:9ab6 4C 10 9A JMP $9A10
.C:9ab9 A9 01 LDA #$01
.C:9abb 85 FF STA $FF
.C:9abd 20 E1 08 JSR $08E1
.C:9ac0 A9 03 LDA #$03
.C:9ac2 85 54 STA $54
.C:9ac4 A9 10 LDA #$10
.C:9ac6 85 55 STA $55
.C:9ac8 A9 00 LDA #$00
.C:9aca 85 76 STA $76
.C:9acc A5 FF LDA $FF
.C:9ace 85 6B STA $6B
.C:9ad0 A6 6B LDX $6B
.C:9ad2 BD 00 B5 LDA $B500,X
.C:9ad5 F0 3F BEQ $9B16
.C:9ad7 A5 76 LDA $76
.C:9ad9 18 CLC
.C:9ada 69 B1 ADC #$B1
.C:9adc 20 03 08 JSR $0803
.C:9adf A6 6B LDX $6B
.C:9ae1 20 26 09 JSR $0926
.C:9ae4 A0 38 LDY #$38
.C:9ae6 B1 9B LDA ($9B),Y
.C:9ae8 A8 TAY
.C:9ae9 A5 9E LDA $9E
.C:9aeb 39 E5 A0 AND $A0E5,Y
.C:9aee D0 04 BNE $9AF4
.C:9af0 A9 DE LDA #$DE
.C:9af2 D0 02 BNE $9AF6
.C:9af4 A9 AE LDA #$AE
.C:9af6 20 03 08 JSR $0803
.C:9af9 A2 00 LDX #$00
.C:9afb A5 6B LDA $6B
.C:9afd 20 32 09 JSR $0932
.C:9b00 20 62 9D JSR $9D62
.C:9b03 A5 55 LDA $55
.C:9b05 C9 27 CMP #$27
.C:9b07 F0 08 BEQ $9B11
.C:9b09 A9 A0 LDA #$A0
.C:9b0b 20 03 08 JSR $0803
.C:9b0e 4C 03 9B JMP $9B03
.C:9b11 20 0C 08 JSR $080C
.C:9b14 E6 76 INC $76
.C:9b16 E6 6B INC $6B
.C:9b18 A5 76 LDA $76
.C:9b1a C9 09 CMP #$09
.C:9b1c 90 B2 BCC $9AD0
.C:9b1e A0 A0 LDY #$A0
.C:9b20 A2 DD LDX #$DD
.C:9b22 20 06 08 JSR $0806 " Gold: "
.C:9b25 A0 24 LDY #$24
.C:9b27 20 2A 08 JSR $082A
.C:9b2a A9 10 LDA #$10
.C:9b2c 85 55 STA $55
.C:9b2e A9 0E LDA #$0E
.C:9b30 85 54 STA $54
.C:9b32 A0 9F LDY #$9F
.C:9b34 A2 CC LDX #$CC
.C:9b36 20 06 08 JSR $0806 "P)urc F)orw B)ack"
.C:9b39 20 78 08 JSR $0878 Get keypress
.C:9b3c 20 87 08 JSR $0887 Evaluate keypress
.C:9b3f C9 D0 CMP #$D0
.C:9b41 F0 2B BEQ $9B6E Purc? Go $9b6e
.C:9b43 C9 C6 CMP #$C6
.C:9b45 F0 17 BEQ $9B5E Forw? Go $9b5e
.C:9b47 C9 C2 CMP #$C2
.C:9b49 F0 03 BEQ $9B4E Bacl? Go $9b4e
.C:9b4b 4C 82 9A JMP $9A82
.C:9b4e A6 FF LDX $FF
.C:9b50 CA DEX
.C:9b51 BD 00 B5 LDA $B500,X
.C:9b54 F0 FA BEQ $9B50
.C:9b56 86 FF STX $FF
.C:9b58 20 D6 9D JSR $9DD6
.C:9b5b 4C C0 9A JMP $9AC0
.C:9b5e A6 FF LDX $FF
.C:9b60 E8 INX
.C:9b61 BD 00 B5 LDA $B500,X
.C:9b64 F0 FA BEQ $9B60
.C:9b66 86 FF STX $FF
.C:9b68 20 91 9D JSR $9D91
.C:9b6b 4C C0 9A JMP $9AC0
.C:9b6e A9 10 LDA #$10
.C:9b70 85 55 STA $55
.C:9b72 A0 9F LDY #$9F
.C:9b74 A2 DE LDX #$DE
.C:9b76 20 06 08 JSR $0806 "Purchase #(1-9) "
.C:9b79 A9 10 LDA #$10
.C:9b7b 85 55 STA $55
.C:9b7d 20 78 08 JSR $0878 Get keypress
.C:9b80 C9 B1 CMP #$B1
.C:9b82 90 A6 BCC $9B2A
.C:9b84 C9 BA CMP #$BA
.C:9b86 B0 A2 BCS $9B2A
.C:9b88 38 SEC
.C:9b89 E9 B1 SBC #$B1
.C:9b8b 85 97 STA $97
.C:9b8d A6 FF LDX $FF
.C:9b8f A0 00 LDY #$00
.C:9b91 C4 97 CPY $97
.C:9b93 F0 09 BEQ $9B9E
.C:9b95 C8 INY
.C:9b96 E8 INX
.C:9b97 BD 00 B5 LDA $B500,X
.C:9b9a F0 FA BEQ $9B96
.C:9b9c D0 F3 BNE $9B91
.C:9b9e BD F0 9F LDA $9FF0,X
.C:9ba1 86 70 STX $70
.C:9ba3 AA TAX
.C:9ba4 A0 24 LDY #$24
.C:9ba6 20 1E 08 JSR $081E
.C:9ba9 90 0F BCC $9BBA
.C:9bab A0 A0 LDY #$A0
.C:9bad A2 B9 LDX #$B9
.C:9baf 20 06 08 JSR $0806 "Not enough gold."
.C:9bb2 A9 0A LDA #$0A
.C:9bb4 20 1A 09 JSR $091A
.C:9bb7 4C 2A 9B JMP $9B2A
.C:9bba A9 00 LDA #$00
.C:9bbc 85 73 STA $73
.C:9bbe 20 0B 09 JSR $090B
.C:9bc1 A5 9B LDA $9B
.C:9bc3 85 6E STA $6E
.C:9bc5 A5 9C LDA $9C
.C:9bc7 85 6F STA $6F
.C:9bc9 20 60 08 JSR $0860
.C:9bcc 90 0F BCC $9BDD
.C:9bce A0 A0 LDY #$A0
.C:9bd0 A2 F2 LDX #$F2
.C:9bd2 20 06 08 JSR $0806 "All full! "
.C:9bd5 A9 0A LDA #$0A
.C:9bd7 20 1A 09 JSR $091A
.C:9bda 4C 2A 9B JMP $9B2A
.C:9bdd A0 24 LDY #$24
.C:9bdf 20 24 08 JSR $0824
.C:9be2 A0 A0 LDY #$A0
.C:9be4 A2 CB LDX #$CB
.C:9be6 20 06 08 JSR $0806 "Done! "
.C:9be9 A9 0A LDA #$0A
.C:9beb 20 1A 09 JSR $091A
.C:9bee A6 70 LDX $70
.C:9bf0 BD 00 B5 LDA $B500,X
.C:9bf3 C9 FE CMP #$FE
.C:9bf5 B0 06 BCS $9BFD
.C:9bf7 DE 00 B5 DEC $B500,X
.C:9bfa 20 53 9D JSR $9D53
.C:9bfd 4C C0 9A JMP $9AC0
.C:9c00 20 1D 9E JSR $9E1D
.C:9c03 A9 0C LDA #$0C
.C:9c05 85 54 STA $54
.C:9c07 A9 10 LDA #$10
.C:9c09 85 55 STA $55
.C:9c0b A0 9F LDY #$9F
.C:9c0d A2 BB LDX #$BB
.C:9c0f 20 06 08 JSR $0806 "You have "
.C:9c12 20 42 08 JSR $0842
.C:9c15 20 2D 08 JSR $082D
.C:9c18 A0 9F LDY #$9F
.C:9c1a A2 C5 LDX #$C5
.C:9c1c 20 06 08 JSR $0806 " gold."
.C:9c1f A9 0E LDA #$0E
.C:9c21 85 54 STA $54
.C:9c23 A9 10 LDA #$10
.C:9c25 85 55 STA $55
.C:9c27 A0 A1 LDY #$A1
.C:9c29 A2 04 LDX #$04
.C:9c2b 20 06 08 JSR $0806 "Select item #(1-8):"
.C:9c2e 20 78 08 JSR $0878 Get keypress
.C:9c31 C9 B1 CMP #$B1
.C:9c33 90 14 BCC $9C49
.C:9c35 C9 B9 CMP #$B9
.C:9c37 B0 10 BCS $9C49
.C:9c39 38 SEC
.C:9c3a E9 B1 SBC #$B1
.C:9c3c 0A ASL A
.C:9c3d 18 CLC
.C:9c3e 69 51 ADC #$51
.C:9c40 A8 TAY
.C:9c41 85 71 STA $71
.C:9c43 C6 71 DEC $71
.C:9c45 B1 9B LDA ($9B),Y
.C:9c47 D0 03 BNE $9C4C
.C:9c49 4C 82 9A JMP $9A82
.C:9c4c A8 TAY
.C:9c4d 85 70 STA $70
.C:9c4f BE F0 9F LDX $9FF0,Y
.C:9c52 20 1E 08 JSR $081E
.C:9c55 20 71 9D JSR $9D71
.C:9c58 A5 9B LDA $9B
.C:9c5a 18 CLC
.C:9c5b 69 24 ADC #$24
.C:9c5d 85 67 STA $67
.C:9c5f A5 9C LDA $9C
.C:9c61 85 68 STA $68
.C:9c63 20 39 08 JSR $0839
.C:9c66 A4 71 LDY $71
.C:9c68 20 A5 08 JSR $08A5
.C:9c6b 20 44 9D JSR $9D44
.C:9c6e B0 0F BCS $9C7F
.C:9c70 A6 70 LDX $70
.C:9c72 BD 00 B5 LDA $B500,X
.C:9c75 C9 FE CMP #$FE
.C:9c77 B0 06 BCS $9C7F
.C:9c79 FE 00 B5 INC $B500,X
.C:9c7c 20 53 9D JSR $9D53
.C:9c7f 20 48 08 JSR $0848
.C:9c82 4C 00 9C JMP $9C00
.C:9c85 20 1D 9E JSR $9E1D
.C:9c88 A9 0C LDA #$0C
.C:9c8a 85 54 STA $54
.C:9c8c A9 10 LDA #$10
.C:9c8e 85 55 STA $55
.C:9c90 A0 9F LDY #$9F
.C:9c92 A2 BB LDX #$BB
.C:9c94 20 06 08 JSR $0806 "You have "
.C:9c97 20 42 08 JSR $0842
.C:9c9a 20 2D 08 JSR $082D
.C:9c9d A0 9F LDY #$9F
.C:9c9f A2 C5 LDX #$C5
.C:9ca1 20 06 08 JSR $0806 " gold."
.C:9ca4 A9 0E LDA #$0E
.C:9ca6 85 54 STA $54
.C:9ca8 A9 10 LDA #$10
.C:9caa 85 55 STA $55
.C:9cac A0 A1 LDY #$A1
.C:9cae A2 15 LDX #$15
.C:9cb0 20 06 08 JSR $0806 "Identify #(1-8):"
.C:9cb3 20 78 08 JSR $0878 Get keypress
.C:9cb6 C9 B1 CMP #$B1
.C:9cb8 90 12 BCC $9CCC
.C:9cba C9 B9 CMP #$B9
.C:9cbc B0 0E BCS $9CCC
.C:9cbe 38 SEC
.C:9cbf E9 B1 SBC #$B1
.C:9cc1 0A ASL A
.C:9cc2 18 CLC
.C:9cc3 69 51 ADC #$51
.C:9cc5 A8 TAY
.C:9cc6 84 73 STY $73
.C:9cc8 B1 9B LDA ($9B),Y
.C:9cca D0 03 BNE $9CCF
.C:9ccc 4C 82 9A JMP $9A82
.C:9ccf A8 TAY
.C:9cd0 BE F0 9F LDX $9FF0,Y
.C:9cd3 20 1E 08 JSR $081E
.C:9cd6 20 71 9D JSR $9D71
.C:9cd9 A0 24 LDY #$24
.C:9cdb 20 21 08 JSR $0821
.C:9cde 90 17 BCC $9CF7
.C:9ce0 A9 0E LDA #$0E
.C:9ce2 85 54 STA $54
.C:9ce4 A9 10 LDA #$10
.C:9ce6 85 55 STA $55
.C:9ce8 A0 A0 LDY #$A0
.C:9cea A2 B9 LDX #$B9
.C:9cec 20 06 08 JSR $0806 "Not enough gold."
.C:9cef A9 0A LDA #$0A
.C:9cf1 20 1A 09 JSR $091A
.C:9cf4 4C 85 9C JMP $9C85
.C:9cf7 A0 24 LDY #$24
.C:9cf9 20 24 08 JSR $0824
.C:9cfc A4 73 LDY $73
.C:9cfe 88 DEY
.C:9cff B1 9B LDA ($9B),Y
.C:9d01 29 0F AND #$0F
.C:9d03 91 9B STA ($9B),Y
.C:9d05 4C 85 9C JMP $9C85
.C:9d08 20 E1 08 JSR $08E1
.C:9d0b A0 9F LDY #$9F
.C:9d0d A2 58 LDX #$58
.C:9d0f 20 06 08 JSR $0806 "Greetings, "
.C:9d12 A6 9B LDX $9B
.C:9d14 A4 9C LDY $9C
.C:9d16 4C 06 08 JMP $0806 [CHARACTER NAME]
.C:9d19 A0 9F LDY #$9F
.C:9d1b A2 64 LDX #$64
.C:9d1d 20 06 08 JSR $0806 ". Would you like to:"
.C:9d20 A9 07 LDA #$07
.C:9d22 85 54 STA $54
.C:9d24 A9 10 LDA #$10
.C:9d26 85 55 STA $55
.C:9d28 A0 9F LDY #$9F
.C:9d2a A2 79 LDX #$79
.C:9d2c 20 06 08 JSR $0806 "(B)uy an Item[CR]..."
.C:9d2f A0 9F LDY #$9F
.C:9d31 A2 BB LDX #$BB
.C:9d33 20 06 08 JSR $0806 "You have "
.C:9d36 20 42 08 JSR $0842
.C:9d39 20 2D 08 JSR $082D
.C:9d3c A0 9F LDY #$9F
.C:9d3e A2 C5 LDX #$C5
.C:9d40 20 06 08 JSR $0806 " gold."
.C:9d43 60 RTS
.C:9d44 A9 B5 LDA #$B5
.C:9d46 85 5F STA $5F
.C:9d48 A9 02 LDA #$02
.C:9d4a 85 5C STA $5C
.C:9d4c A9 13 LDA #$13
.C:9d4e 85 5D STA $5D
.C:9d50 4C C9 08 JMP $08C9
.C:9d53 A9 B5 LDA #$B5
.C:9d55 85 5F STA $5F
.C:9d57 A9 02 LDA #$02
.C:9d59 85 5C STA $5C
.C:9d5b A9 13 LDA #$13
.C:9d5d 85 5D STA $5D
.C:9d5f 4C CC 08 JMP $08CC
.C:9d62 A9 21 LDA #$21
.C:9d64 85 55 STA $55
.C:9d66 A4 6B LDY $6B
.C:9d68 BE F0 9F LDX $9FF0,Y
.C:9d6b 20 1E 08 JSR $081E
.C:9d6e 4C 2D 08 JMP $082D
.C:9d71 A2 00 LDX #$00
.C:9d73 BD 80 03 LDA $0380,X
.C:9d76 4A LSR A
.C:9d77 9D 80 03 STA $0380,X
.C:9d7a 90 0F BCC $9D8B
.C:9d7c E8 INX
.C:9d7d E0 0C CPX #$0C
.C:9d7f F0 09 BEQ $9D8A
.C:9d81 BD 80 03 LDA $0380,X
.C:9d84 18 CLC
.C:9d85 69 0A ADC #$0A
.C:9d87 9D 80 03 STA $0380,X
.C:9d8a CA DEX
.C:9d8b E8 INX
.C:9d8c E0 0C CPX #$0C
.C:9d8e 90 E3 BCC $9D73
.C:9d90 60 RTS
.C:9d91 A9 00 LDA #$00
.C:9d93 A2 18 LDX #$18
.C:9d95 48 PHA
.C:9d96 BD 00 B6 LDA $B600,X
.C:9d99 18 CLC
.C:9d9a 69 88 ADC #$88
.C:9d9c 85 50 STA $50
.C:9d9e BD 00 B7 LDA $B700,X
.C:9da1 69 00 ADC #$00
.C:9da3 85 51 STA $51
.C:9da5 E8 INX
.C:9da6 BD 00 B6 LDA $B600,X
.C:9da9 18 CLC
.C:9daa 69 88 ADC #$88
.C:9dac 85 56 STA $56
.C:9dae BD 00 B7 LDA $B700,X
.C:9db1 69 00 ADC #$00
.C:9db3 85 57 STA $57
.C:9db5 A0 00 LDY #$00
.C:9db7 B1 56 LDA ($56),Y
.C:9db9 91 50 STA ($50),Y
.C:9dbb 98 TYA
.C:9dbc 18 CLC
.C:9dbd 69 08 ADC #$08
.C:9dbf A8 TAY
.C:9dc0 C0 B0 CPY #$B0
.C:9dc2 90 F3 BCC $9DB7
.C:9dc4 E0 60 CPX #$60
.C:9dc6 90 CE BCC $9D96
.C:9dc8 A0 10 LDY #$10
.C:9dca 20 9C 08 JSR $089C
.C:9dcd 68 PLA
.C:9dce 18 CLC
.C:9dcf 69 01 ADC #$01
.C:9dd1 C9 08 CMP #$08
.C:9dd3 90 BE BCC $9D93
.C:9dd5 60 RTS
.C:9dd6 A9 00 LDA #$00
.C:9dd8 A2 5E LDX #$5E
.C:9dda 48 PHA
.C:9ddb BD 00 B6 LDA $B600,X
.C:9dde 18 CLC
.C:9ddf 69 88 ADC #$88
.C:9de1 85 50 STA $50
.C:9de3 BD 00 B7 LDA $B700,X
.C:9de6 69 00 ADC #$00
.C:9de8 85 51 STA $51
.C:9dea E8 INX
.C:9deb BD 00 B6 LDA $B600,X
.C:9dee 18 CLC
.C:9def 69 88 ADC #$88
.C:9df1 85 56 STA $56
.C:9df3 BD 00 B7 LDA $B700,X
.C:9df6 69 00 ADC #$00
.C:9df8 85 57 STA $57
.C:9dfa A0 00 LDY #$00
.C:9dfc B1 50 LDA ($50),Y
.C:9dfe 91 56 STA ($56),Y
.C:9e00 98 TYA
.C:9e01 18 CLC
.C:9e02 69 08 ADC #$08
.C:9e04 A8 TAY
.C:9e05 C0 B0 CPY #$B0
.C:9e07 90 F3 BCC $9DFC
.C:9e09 CA DEX
.C:9e0a CA DEX
.C:9e0b E0 17 CPX #$17
.C:9e0d B0 CC BCS $9DDB
.C:9e0f A0 10 LDY #$10
.C:9e11 20 9C 08 JSR $089C
.C:9e14 68 PLA
.C:9e15 18 CLC
.C:9e16 69 01 ADC #$01
.C:9e18 C9 08 CMP #$08
.C:9e1a 90 BC BCC $9DD8
.C:9e1c 60 RTS
.C:9e1d 20 E1 08 JSR $08E1
.C:9e20 A9 00 LDA #$00
.C:9e22 85 6B STA $6B
.C:9e24 A5 6B LDA $6B
.C:9e26 0A ASL A
.C:9e27 18 CLC
.C:9e28 69 50 ADC #$50
.C:9e2a A8 TAY
.C:9e2b B1 9B LDA ($9B),Y
.C:9e2d 85 73 STA $73
.C:9e2f C8 INY
.C:9e30 B1 9B LDA ($9B),Y
.C:9e32 F0 36 BEQ $9E6A
.C:9e34 85 70 STA $70
.C:9e36 A5 6B LDA $6B
.C:9e38 18 CLC
.C:9e39 69 B1 ADC #$B1
.C:9e3b 20 03 08 JSR $0803
.C:9e3e A9 AE LDA #$AE
.C:9e40 20 03 08 JSR $0803
.C:9e43 A6 73 LDX $73
.C:9e45 A5 70 LDA $70
.C:9e47 20 32 09 JSR $0932
.C:9e4a A9 21 LDA #$21
.C:9e4c 85 55 STA $55
.C:9e4e A4 70 LDY $70
.C:9e50 BE F0 9F LDX $9FF0,Y
.C:9e53 20 1E 08 JSR $081E
.C:9e56 20 71 9D JSR $9D71
.C:9e59 20 2D 08 JSR $082D
.C:9e5c 20 0C 08 JSR $080C
.C:9e5f E6 6B INC $6B
.C:9e61 A5 6B LDA $6B
.C:9e63 C9 08 CMP #$08
.C:9e65 B0 03 BCS $9E6A
.C:9e67 4C 24 9E JMP $9E24
.C:9e6a 60 RTS
.C:9e6b D4 E8 NOOP $E8,X [T][h]
.C:9e6d E5 A0 SBC $A0 [e][_]
.C:9e6f D3 E8 DCP ($E8),Y [S][h]
.C:9e71 EF F0 F0 ISB $F0F0 [o][p][p]
.C:9e74 E5 DC SBC $DC [e][EOT]
.C:9e76 D7 E5 DCP $E5,X [W][e]
.C:9e78 EC E3 EF CPX $EFE3 [l][c][o]
.C:9e7b ED E5 A0 SBC $A0E5 [m][e][_]
.C:9e7e F4 EF NOOP $EF,X [t][o]
.C:9e80 A0 C7 LDY #$C7 [_][G]
.C:9e82 E1 F2 SBC ($F2,X) [a][r]
.C:9e84 F4 E8 NOOP $E8,X [t][h]
.C:9e86 A7 F3 LAX $F3 ['][s]
.C:9e88 A0 C5 LDY #$C5 [_][E]
.C:9e8a F1 F5 SBC ($F5),Y [q][u]
.C:9e8c E9 F0 SBC #$F0 [i][p]
.C:9e8e ED E5 EE SBC $EEE5 [m][e][n]
.C:9e91 F4 A0 NOOP $A0,X [t][_]
.C:9e93 D3 E8 DCP ($E8),Y [S][h]
.C:9e95 EF F0 F0 ISB $F0F0 [o][p][p]
.C:9e98 E5 AC SBC $AC [e][,]
.C:9e9a A0 EF LDY #$EF [_][o]
.C:9e9c E8 INX [h]
.C:9e9d A0 F7 LDY #$F7 [_][w]
.C:9e9f E5 E1 SBC $E1 [e][a]
.C:9ea1 EC F4 E8 CPX $E8F4 [l][t][h]
.C:9ea4 F9 A0 F4 SBC $F4A0,Y [y][_][t]
.C:9ea7 F2 JAM [r]
.C:9ea8 E1 F6 SBC ($F6,X) [a][v]
.C:9eaa E5 EC SBC $EC [e][l]
.C:9eac EC E5 F2 CPX $F2E5 [l][e][r]
.C:9eaf F3 A1 ISB ($A1),Y [s][!]
.C:9eb1 00 BRK [CR]
.C:9eb2 00 BRK [CR]
.C:9eb3 D7 E8 DCP $E8,X [W][h]
.C:9eb5 E9 E3 SBC #$E3 [i][c]
.C:9eb7 E8 INX [h]
.C:9eb8 A0 EF LDY #$EF [_][o]
.C:9eba E6 A0 INC $A0 [f][_]
.C:9ebc F9 EF F5 SBC $F5EF,Y [y][o][u]
.C:9ebf A0 E9 LDY #$E9 [_][i]
.C:9ec1 F3 A0 ISB ($A0),Y [s][_]
.C:9ec3 E9 EE SBC #$EE [i][n]
.C:9ec5 F4 E5 NOOP $E5,X [t][e]
.C:9ec7 F2 JAM [r]
.C:9ec8 E5 F3 SBC $F3 [e][s]
.C:9eca F4 E5 NOOP $E5,X [t][e]
.C:9ecc E4 A0 CPX $A0 [d][_]
.C:9ece E9 EE SBC #$EE [i][n]
.C:9ed0 A0 ED LDY #$ED [_][m]
.C:9ed2 F9 A0 E6 SBC $E6A0,Y [y][_][f]
.C:9ed5 E9 EE SBC #$EE [i][n]
.C:9ed7 E5 A0 SBC $A0 [e][_]
.C:9ed9 F7 E1 ISB $E1,X [w][a]
.C:9edb F2 JAM [r]
.C:9edc E5 F3 SBC $F3 [e][s]
.C:9ede BF 00 A3 LAX $A300,Y [?][CR][#]
.C:9ee1 A8 TAY [(]
.C:9ee2 B0 AD BCS $9E91 [0][-]
.C:9ee4 B6 A9 LDX $A9,Y [6][)]
.C:9ee6 A0 EF LDY #$EF [_][o]
.C:9ee8 F2 JAM [r]
.C:9ee9 00 BRK [CR]
.C:9eea A0 A8 LDY #$A8 [_][(
.C:9eec C5 A9 CMP $A9 [E][)]
.C:9eee F8 SED [x]
.C:9eef E9 F4 SBC #$F4 [i][t]
.C:9ef1 A0 F4 LDY #$F4 [_][t]
.C:9ef3 E8 INX [h]
.C:9ef4 E5 A0 SBC $A0 [e][_]
.C:9ef6 F3 E8 ISB ($E8),Y [s][h]
.C:9ef8 EF F0 F0 ISB $F0F0 [o][p][p]
.C:9efb E5 FF SBC $FF [e][Input]
.C:9efd D3 EF DCP ($EF),Y [S][o]
.C:9eff F2 JAM [r]
.C:9f00 F2 JAM [r]
.C:9f01 F9 AC A0 SBC $A0AC,Y [y][,][_]
.C:9f04 E6 F2 INC $F2 [f][r]
.C:9f06 E9 E5 SBC #$E5 [i][e]
.C:9f08 EE E4 F3 INC $F3E4 [n][d][s]
.C:9f0b AC A0 C7 LDY $C7A0 [,][_][G]
.C:9f0e E1 F2 SBC ($F2,X) [a][r]
.C:9f10 F4 E8 NOOP $E8,X [t][e]
.C:9f12 A7 F3 LAX $F3 ['][s]
.C:9f14 A0 D3 LDY #$D3 [_][S]
.C:9f16 E8 INX [h]
.C:9f17 EF F0 F0 ISB $F0F0 [o][p][p]
.C:9f1a E5 A0 SBC $A0 [e][_]
.C:9f1c E9 F3 SBC #$F3 [i][s]
.C:9f1e A0 E3 LDY #$E3 [_][c]
.C:9f20 EC EF F3 CPX $F3EF [l][o][s]
.C:9f23 E5 E4 SBC $E4 [e][d]
.C:9f25 AE A0 C3 LDX $C3A0 [.][_][C]
.C:9f28 EF ED E5 ISB $E5ED [o][m][e]
.C:9f2b A0 E2 LDY #$E2 [_][b]
.C:9f2d E1 E3 SBC ($E3,X) [a][c]
.C:9f2f EB A0 USBC #$A0 [k][_]
.C:9f31 E9 EE SBC #$EE [i][n]
.C:9f33 A0 F4 LDY #$F4 [_][t]
.C:9f35 E8 INX [h]
.C:9f36 E5 A0 SBC $A0 [e][_]
.C:9f38 ED EF F2 SBC $F2EF [m][o][r]
.C:9f3b EE E9 EE INC $EEE9 [n][i][n]
.C:9f3e E7 AE ISB $AE [g][.]
.C:9f40 00 BRK [CR]
.C:9f41 00 BRK [CR]
.C:9f42 A8 TAY [(]
.C:9f43 D0 F2 BNE $9F37 [P][r]
.C:9f45 E5 F3 SBC $F3 [e][s]
.C:9f47 F3 A0 ISB ($A0),Y [s][_]
.C:9f49 E1 A0 SBC ($A0,X) [a][_]
.C:9f4b EB E5 USBC #$E5 [k][e]
.C:9f4d F9 A0 F4 SBC $F4A0,Y [y][_][t]
.C:9f50 EF A0 E5 ISB $E5A0 [o][_][e]
.C:9f53 F8 SED [x]
.C:9f54 E9 F4 SBC #$F4 [i][t]
.C:9f56 A9 DC LDA #$DC [)][EOT]
.C:9f58 C7 F2 DCP $F2 [G][r]
.C:9f5a E5 E5 SBC $E5 [e][e]
.C:9f5c F4 E9 NOOP $E9,X [t][i]
.C:9f5e EE E7 F3 INC $F3E7 [n][g][s]
.C:9f61 AC A0 FF LDY $FFA0 [,][_][Input]
.C:9f64 AE A0 D7 LDX $D7A0 [.][_][W]
.C:9f67 EF F5 EC ISB $ECF5 [o][u][l]
.C:9f6a E4 A0 CPX $A0 [d][_]
.C:9f6c F9 EF F5 SBC $F5EF,Y [y][o][u]
.C:9f6f A0 EC LDY #$EC [_][l]
.C:9f71 E9 EB SBC #$EB [i][k]
.C:9f73 E5 A0 SBC $A0 [e][_]
.C:9f75 F4 EF NOOP $EF,X [t][o]
.C:9f77 BA TSX [:]
.C:9f78 FF A8 C2 ISB $C2A8,X [Input][(][B]
.C:9f7b A9 F5 LDA #$F5 [)][u]
.C:9f7d F9 A0 E1 SBC $E1A0,Y [y][_][a]
.C:9f80 EE A0 E9 INC $E9A0 [n][_][i]
.C:9f83 F4 E5 NOOP $E5,X [t][e]
.C:9f85 ED 00 A8 SBC $A800 [m][CR][(]
.C:9f88 D3 A9 DCP ($A9),Y [S][)]
.C:9f8a E5 EC SBC $EC [e][l]
.C:9f8c EC A0 E1 CPX $E1A0 [l][_][a]
.C:9f8f EE A0 E9 INC $E9A0 [n][_][i]
.C:9f92 F4 E5 NOOP $E5,X [t][e]
.C:9f94 ED 00 A8 SBC $A800 [m][CR][(]
.C:9f97 C9 A9 CMP #$A9 [I][)]
.C:9f99 E4 E5 CPX $E5 [d][e]
.C:9f9b EE F4 E9 INC $E9F4 [n][t][i]
.C:9f9e E6 F9 INC $F9 [f][y]
.C:9fa0 A0 E9 LDY #$E9 [_][i]
.C:9fa2 F4 E5 NOOP $E5,X [t][e]
.C:9fa4 ED 00 A8 SBC $A800 [m][CR][(]
.C:9fa7 D0 A9 BNE $9F52 [P][)]
.C:9fa9 EF EF EC ISB $ECEF [o][o][l]
.C:9fac A0 E7 LDY #$E7 [_][g]
.C:9fae EF EC E4 ISB $E4EC [o][l][d]
.C:9fb1 00 BRK [CR]
.C:9fb2 A8 TAY [(]
.C:9fb3 C5 A9 CMP $A9 [E][)]
.C:9fb5 F8 SED [x]
.C:9fb6 E9 F4 SBC #$F4 [i][t]
.C:9fb8 00 BRK [CR]
.C:9fb9 00 BRK [CR]
.C:9fba FF D9 EF ISB $EFD9,X [Input][Y][o]
.C:9fbd F5 A0 SBC $A0,X [u][_]
.C:9fbf E8 INX [h]
.C:9fc0 E1 F6 SBC ($F6,X) [a][v]
.C:9fc2 E5 A0 SBC $A0 [e][_]
.C:9fc4 FF A0 E7 ISB $E7A0,X [Input][g]
.C:9fc7 EF EC E4 ISB $E4EC [o][l][d]
.C:9fca AE FF D0 LDX $D0FF [.][Input][P]
.C:9fcd A9 F5 LDA #$F5 [)][u]
.C:9fcf F2 JAM [r]
.C:9fd0 E3 A0 ISB ($A0,X) [c][_]
.C:9fd2 C6 A9 DEC $A9 [F][)]
.C:9fd4 EF F2 F7 ISB $F7F2 [o][r][w]
.C:9fd7 A0 C2 LDY #$C2 [_][B]
.C:9fd9 A9 E1 LDA #$E1 [)][a]
.C:9fdb E3 EB ISB ($EB,X) [c][k]
.C:9fdd FF D0 F5 ISB $F5D0,X [Input][P][u]
.C:9fe0 F2 JAM [r]
.C:9fe1 E3 E8 ISB ($E8,X) [c][h]
.C:9fe3 E1 F3 SBC ($F3,X) [a][s]
.C:9fe5 E5 A0 SBC $A0 [e][_]
.C:9fe7 A3 A8 LAX ($A8,X) [#][(]
.C:9fe9 B1 AD LDA ($AD),Y [1][-]
.C:9feb B9 A9 A0 LDA $A0A9,Y [9][)][_]
.C:9fee A0 FF LDY #$FF [_][Input]
.C:9ff0 00 BRK
.C:9ff1 28 PLP
.C:9ff2 78 SEI
.C:9ff3 41 19 EOR ($19,X)
.C:9ff5 11 39 ORA ($39),Y
.C:9ff7 12 JAM
.C:9ff8 31 11 AND ($11),Y
.C:9ffa 21 0A AND ($0A,X)
.C:9ffc 39 79 1A AND $1A79,Y
.C:9fff 3A NOOP
.C:a000 21 29 AND ($29,X)
.C:a002 41 21 EOR ($21,X)
.C:a004 69 69 ADC #$69
.C:a006 69 1A ADC #$1A
.C:a008 22 JAM
.C:a009 2A ROL A
.C:a00a 4A LSR A
.C:a00b 2A ROL A
.C:a00c 32 JAM
.C:a00d 3A NOOP
.C:a00e 62 JAM
.C:a00f 0B 12 ANC #$12
.C:a011 1A NOOP
.C:a012 22 JAM
.C:a013 1A NOOP
.C:a014 1A NOOP
.C:a015 13 1A SLO ($1A),Y
.C:a017 0B 3A ANC #$3A
.C:a019 0A ASL A
.C:a01a 6A ROR A
.C:a01b 32 JAM
.C:a01c 3A NOOP
.C:a01d 22 JAM
.C:a01e 0B 2A ANC #$2A
.C:a020 32 JAM
.C:a021 2A ROL A
.C:a022 2A ROL A
.C:a023 1A NOOP
.C:a024 22 JAM
.C:a025 2A ROL A
.C:a026 22 JAM
.C:a027 32 JAM
.C:a028 32 JAM
.C:a029 0B 42 ANC #$42
.C:a02b 13 42 SLO ($42),Y
.C:a02d 22 JAM
.C:a02e 42 JAM
.C:a02f 62 JAM
.C:a030 82 0B NOOP #$0B
.C:a032 13 13 SLO ($13),Y
.C:a034 2B 33 ANC #$33
.C:a036 5A NOOP
.C:a037 7A NOOP
.C:a038 23 43 RLA ($43,X)
.C:a03a 1B 3B 0C SLO $0C3B,Y
.C:a03d 63 62 RRA ($62,X)
.C:a03f 0B 42 ANC #$42
.C:a041 5A NOOP
.C:a042 1A NOOP
.C:a043 32 JAM
.C:a044 43 23 SRE ($23,X)
.C:a046 4B 63 ASR #$63
.C:a048 23 7B RLA ($7B,X)
.C:a04a 23 24 RLA ($24,X)
.C:a04c 43 73 SRE ($73,X)
.C:a04e 33 24 RLA ($24),Y
.C:a050 14 14 NOOP $14,X
.C:a052 33 33 RLA ($33),Y
.C:a054 24 34 BIT $34
.C:a056 0C 33 0C NOOP $0C33
.C:a059 33 1B RLA ($1B),Y
.C:a05b 2C 44 1B BIT $1B44
.C:a05e 7B 2C 2A RRA $2A2C,Y
.C:a061 0D 2A 2A ORA $2A2A
.C:a064 2A ROL A
.C:a065 0B 62 ANC #$62
.C:a067 2C 2C 2C BIT $2C2C
.C:a06a 2C 2C 2C BIT $2C2C
.C:a06d 2C 15 64 BIT $6415
.C:a070 00 BRK [CR]
.C:a071 00 BRK [CR]
.C:a072 C9 EE CMP #$EE [I][n]
.C:a074 F3 E5 ISB ($E5),Y [s][e]
.C:a076 F2 JAM [r]
.C:a077 F4 A0 NOOP $A0,X [t][_]
.C:a079 F4 E8 NOOP $E8,X [t][h]
.C:a07b E5 A0 SBC $A0 [e][_]
.C:a07d C3 C8 DCP ($C8,X) [C][H]
.C:a07f C1 D2 CMP ($D2,X) [A][R]
.C:a081 C1 C3 CMP ($C3,X) [A][C]
.C:a083 D4 C5 NOOP $C5,X [T][E]
.C:a085 D2 JAM [R]
.C:a086 A0 E4 LDY #$E4 [_][d]
.C:a088 E9 F3 SBC #$F3 [i][s]
.C:a08a EB A0 USBC #$A0 [k][_]
.C:a08c E9 EE SBC #$EE [i][n]
.C:a08e A0 F4 LDY #$F4 [_][t]
.C:a090 E8 INX [h]
.C:a091 E5 A0 SBC $A0 [e][_]
.C:a093 E4 F2 CPX $F2 [d][r]
.C:a095 E9 F6 SBC #$F6 [i][v]
.C:a097 E5 A0 SBC $A0 [e][_]
.C:a099 E1 EE SBC ($EE,X) [a][n]
.C:a09b E4 A0 CPX $A0 [d][_]
.C:a09d F0 F2 BEQ $A091 [p][r]
.C:a09f E5 F3 SBC $F3 [e][s]
.C:a0a1 F3 A0 ISB ($A0),Y [s][_]
.C:a0a3 E1 A0 SBC ($A0,X) [a][_]
.C:a0a5 EB E5 USBC #$E5 [k][e]
.C:a0a7 F9 AE A0 SBC $A0AE,Y [y][.][_]
.C:a0aa DB BC AD DCP $ADBC,Y [[][<][-]
.C:a0ad DD A0 F4 CMP $F4A0,X []][_][t]
.C:a0b0 EF A0 E1 ISB $E1A0 [o][_][a]
.C:a0b3 E2 EF NOOP #$EF [b][o]
.C:a0b5 F2 JAM [r]
.C:a0b6 F4 AE NOOP $AE,X [t][.]
.C:a0b8 DC CE EF NOOP $EFCE,X [EOT][N][o]
.C:a0bb F4 A0 NOOP $A0,X [t][_]
.C:a0bd E5 EE SBC $EE [e][n]
.C:a0bf EF F5 E7 ISB $E7F5 [o][u][g]
.C:a0c2 E8 INX [h]
.C:a0c3 A0 E7 LDY #$E7 [_][g]
.C:a0c5 EF EC E4 ISB $E4EC [o][l][d]
.C:a0c8 AE A0 FF LDX $FFA0 [.][_][Input]
.C:a0cb C4 EF CPY $EF [D][o]
.C:a0cd EE 12 A1 INC $A112 [n][e][!]
.C:a0d0 A0 A0 LDY #$A0 [_][_]
.C:a0d2 A0 A0 LDY #$A0 [_][_]
.C:a0d4 A0 A0 LDY #$A0 [_][_]
.C:a0d6 A0 12 LDY #$12 [_][]
.C:a0d8 A0 A0 LDY #$A0 [_][_]
.C:a0da A0 A0 LDY #$A0 [_][_]
.C:a0dc FF 00 C7 ISB $C700,X [Input][CR][G]
.C:a0df EF EC E4 ISB $E4EC [o][l][d]
.C:a0e2 A0 BA LDY #$BA [_][:]
.C:a0e4 FF 80 40 ISB $4080,X [Input]
.C:a0e7 40 RTI
.C:a0e8 40 RTI
.C:a0e9 40 RTI
.C:a0ea 10 08 BPL $A0F4
.C:a0ec 04 02 NOOP $02
.C:a0ee 01 20 ORA ($20,X)
.C:a0f0 00 BRK
.C:a0f1 00 BRK
.C:a0f2 C1 EC CMP ($EC,X) [A][l]
.C:a0f4 EC A0 E6 CPX $E6A0 [l][_][f]
.C:a0f7 F5 EC SBC $EC,X [u][l]
.C:a0f9 EC A1 A0 CPX $A0A1 [l][!][_]
.C:a0fc A0 A0 LDY #$A0 [_][_]
.C:a0fe A0 A0 LDY #$A0 [_][_]
.C:a100 A0 A0 LDY #$A0 [_][_]
.C:a102 A0 FF LDY #$FF [_][Input]
.C:a104 D3 E5 DCP ($E5),Y [S][e]
.C:a106 EC EC A0 CPX $A0EC [l][l][_]
.C:a109 E9 F4 SBC #$F4 [i][t]
.C:a10b E5 ED SBC $ED [e][m]
.C:a10d A0 A3 LDY #$A3 [_][#]
.C:a10f A8 TAY [(]
.C:a110 B1 AD LDA ($AD),Y [1][-]
.C:a112 B8 CLV [8]
.C:a113 A9 DC LDA #$DC [)][EOT]
.C:a115 C9 E4 CMP #$E4 [I][d]
.C:a117 E5 EE SBC $EE [e][n]
.C:a119 F4 E9 NOOP $E9,X [t][i]
.C:a11b E6 F9 INC $F9 [f][y]
.C:a11d A0 A0 LDY #$A0 [_][_]
.C:a11f A3 A8 LAX ($A8,X) [#][(]
.C:a121 B1 AD LDA ($AD),Y [1][-]
.C:a123 B8 CLV [8]
.C:a124 A9 DC LDA #$DC [)][EOT]
.C:a126 00 BRK
.C:a127 B8 CLV
.C:a128 80 B8 NOOP #$B8
.C:a12a 00 BRK
.C:a12b B9 80 B9 LDA $B980,Y
.C:a12e 00 BRK
.C:a12f BA TSX
.C:a130 80 BA NOOP #$BA