BTII - Garthe's Equipment Shoppe

Any developer realated stuff
Post Reply
User avatar
Darendor
Posts: 1502
Joined: Wed Jan 14, 2009 1:53 am
Location: Red Deer, Alberta, Canada

BTII - Garthe's Equipment Shoppe

Post by Darendor »

BT2 Character Disk
"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
User avatar
Darendor
Posts: 1502
Joined: Wed Jan 14, 2009 1:53 am
Location: Red Deer, Alberta, Canada

Re: BTII - Garthe's Equipment Shoppe

Post by Darendor »

Could it be that the shoppe's inventory is held in a seperate file?

The reason I ask is because my particular copy of the Character disk has Garthe's Shoppe with a Sword of Zar in it, and the hex # for the Sword of Zar happens to be #$71.

Thing is, scanning the code for the shop event doesn't reveal #$71 anywhere in it - at least, not where it could be a data byte.

Hmmm.
Post Reply