"FILE6095010" PRG Adventurer's Guild?
#$EA | 234 | EOR all bytes against 11101010
15 blocks; 3789 bytes (70EA to 7FB7 Inclusive; 9A00 - A8CD)
The Adventurer's Guild file.
The code at the very beginning has an unclear purpose. $9A78 is when the
code "starts". Or something.
Starting at $A79F, there are 3 text strings with no "DC" end character: "The Princess", "No Cheating!", and "Doppleganger". They aren't referenced anywhere within the file.
Also intriguing is this code snippet:
Code: Select all
.C:9e20 99 00 08 STA $0800,Y
.C:9e23 C8 INY
.C:9e24 D0 FA BNE $9E20
.C:9e26 EE 22 9E INC $9E22
.C:9e29 AD 22 9E LDA $9E22
.C:9e2c C9 20 CMP #$20
.C:9e2e D0 05 BNE $9E35
.C:9e30 A9 40 LDA #$40
.C:9e32 8D 22 9E STA $9E22
.C:9e35 CA DEX
.C:9e36 D0 E8 BNE $9E20
Code: Select all
.C:9a00 A2 03 LDX #$03
.C:9a02 B5 78 LDA $78,X
.C:9a04 F0 04 BEQ $9A0A
.C:9a06 A9 01 LDA #$01
.C:9a08 95 78 STA $78,X
.C:9a0a CA DEX
.C:9a0b 10 F5 BPL $9A02
.C:9a0d 85 CE STA $CE
.C:9a0f A9 01 LDA #$01
.C:9a11 85 DA STA $DA
.C:9a13 A6 7C LDX $7C
.C:9a15 F0 02 BEQ $9A19
.C:9a17 85 7C STA $7C
.C:9a19 A9 06 LDA #$06
.C:9a1b 85 44 STA $44
.C:9a1d A5 44 LDA $44
.C:9a1f 0A ASL A
.C:9a20 AA TAX
.C:9a21 BD 81 A7 LDA $A781,X
.C:9a24 85 50 STA $50
.C:9a26 BD 82 A7 LDA $A782,X
.C:9a29 85 51 STA $51
.C:9a2b A0 00 LDY #$00
.C:9a2d B1 50 LDA ($50),Y
.C:9a2f F0 43 BEQ $9A74
.C:9a31 A0 0B LDY #$0B
.C:9a33 B1 50 LDA ($50),Y
.C:9a35 D9 9F A7 CMP $A79F,Y
.C:9a38 D0 19 BNE $9A53
.C:9a3a 88 DEY
.C:9a3b 10 F6 BPL $9A33
.C:9a3d A0 14 LDY #$14
.C:9a3f B1 50 LDA ($50),Y
.C:9a41 10 31 BPL $9A74
.C:9a43 A9 00 LDA #$00
.C:9a45 91 50 STA ($50),Y
.C:9a47 A0 0B LDY #$0B
.C:9a49 B9 AB A7 LDA $A7AB,Y
.C:9a4c 91 50 STA ($50),Y
.C:9a4e 88 DEY
.C:9a4f 10 F8 BPL $9A49
.C:9a51 30 21 BMI $9A74
.C:9a53 A0 4D LDY #$4D
.C:9a55 B1 50 LDA ($50),Y
.C:9a57 F0 1B BEQ $9A74
.C:9a59 A0 0E LDY #$0E
.C:9a5b B9 B7 A7 LDA $A7B7,Y
.C:9a5e 91 50 STA ($50),Y
.C:9a60 88 DEY
.C:9a61 10 F8 BPL $9A5B
.C:9a63 A9 00 LDA #$00
.C:9a65 A0 24 LDY #$24
.C:9a67 91 50 STA ($50),Y
.C:9a69 C8 INY
.C:9a6a C0 30 CPY #$30
.C:9a6c D0 F9 BNE $9A67
.C:9a6e A0 50 LDY #$50
.C:9a70 C0 60 CPY #$60
.C:9a72 90 F3 BCC $9A67
.C:9a74 C6 44 DEC $44
.C:9a76 10 A5 BPL $9A1D
.C:9a78 E6 C1 INC $C1 Pause time?
.C:9a7a A2 19 LDX #$19
.C:9a7c 20 1B 08 JSR $081B Display picture #$19
.C:9a7f 20 E1 08 JSR $08E1 Clear text window.
.C:9a82 A0 A2 LDY #$A2
.C:9a84 A2 BF LDX #$BF
.C:9a86 20 06 08 JSR $0806 "Thou art in the Guild of..."
.C:9a89 A9 A2 LDA #$A2
.C:9a8b 85 59 STA $59
.C:9a8d A9 B5 LDA #$B5
.C:9a8f 85 58 STA $58
.C:9a91 20 0F 08 JSR $080F Display "The Guild" caption
.C:9a94 20 78 08 JSR $0878 Get keypress
.C:9a97 20 87 08 JSR $0887 Evaluate keypress
.C:9a9a C9 C3 CMP #$C3
.C:9a9c F0 71 BEQ $9B0F Check roster? Go $9b0f
.C:9a9e C9 D2 CMP #$D2
.C:9aa0 D0 03 BNE $9AA5 Remove member? No? Go $9aa5
.C:9aa2 4C B5 9F JMP $9FB5
.C:9aa5 C9 C1 CMP #$C1
.C:9aa7 D0 03 BNE $9AAC Add member? No? Go $9aac
.C:9aa9 4C 53 9E JMP $9E53
.C:9aac C9 C4 CMP #$C4
.C:9aae D0 03 BNE $9AB3 Disk options? No? Go $9ab3
.C:9ab0 4C 35 9B JMP $9B35
.C:9ab3 C9 CE CMP #$CE
.C:9ab5 F0 52 BEQ $9B09 New order? Go 9b09
.C:9ab7 C9 C5 CMP #$C5
.C:9ab9 D0 3D BNE $9AF8 Exit? No? Go $9af8
.C:9abb 20 05 A2 JSR $A205
.C:9abe B0 D4 BCS $9A94 Any other key, go back to $9a94
.C:9ac0 A6 24 LDX $24 Begin exit routine
.C:9ac2 BD F4 9A LDA $9AF4,X
.C:9ac5 85 24 STA $24 Spin party 180 degrees
.C:9ac7 20 DC 9A JSR $9ADC
.C:9aca A9 1F LDA #$1F
.C:9acc 85 EC STA $EC
.C:9ace A9 00 LDA #$00
.C:9ad0 85 EB STA $EB
.C:9ad2 85 42 STA $42
.C:9ad4 85 2F STA $2F
.C:9ad6 20 E1 08 JSR $08E1 Clear text window.
.C:9ad9 4C 00 90 JMP $9000 Back to main program.
.C:9adc A5 24 LDA $24
.C:9ade F0 0B BEQ $9AEB Facing north? Go $9aeb
.C:9ae0 C9 01 CMP #$01
.C:9ae2 F0 0D BEQ $9AF1 Facing east? Go $9af1
.C:9ae4 C9 02 CMP #$02
.C:9ae6 F0 06 BEQ $9AEE Facing south? Go $9aee
.C:9ae8 C6 29 DEC $29 Move party 1 square west
.C:9aea 60 RTS
.C:9aeb E6 28 INC $28 Move party 1 square north
.C:9aed 60 RTS
.C:9aee C6 28 DEC $28 Move party 1 square south
.C:9af0 60 RTS
.C:9af1 E6 29 INC $29 Move party 1 square east
.C:9af3 60 RTS
.C:9af4 02 JAM Data field...
.C:9af5 03 00 SLO ($00,X)
.C:9af7 01 C9 ORA ($C9,X)
.C:9af9 B0 90 BCS $9A8B
.C:9afb 98 TYA
.C:9afc C9 B7 CMP #$B7
.C:9afe B0 94 BCS $9A94
.C:9b00 38 SEC
.C:9b01 E9 B0 SBC #$B0
.C:9b03 20 51 08 JSR $0851
.C:9b06 4C 78 9A JMP $9A78
.C:9b09 20 4E 08 JSR $084E
.C:9b0c 4C 7F 9A JMP $9A7F
.C:9b0f 20 1A 9B JSR $9B1A
.C:9b12 B0 03 BCS $9B17
.C:9b14 20 12 08 JSR $0812
.C:9b17 4C 7F 9A JMP $9A7F
.C:9b1a A9 80 LDA #$80
.C:9b1c 20 2F 09 JSR $092F
.C:9b1f 90 10 BCC $9B31
.C:9b21 A0 A3 LDY #$A3
.C:9b23 A2 B8 LDX #$B8
.C:9b25 20 06 08 JSR $0806 "[CR][CR]Insert CHARACTER disk..."
.C:9b28 20 78 08 JSR $0878 Get keypress
.C:9b2b C9 9B CMP #$9B
.C:9b2d F0 04 BEQ $9B33 <- pressed? Go $9b33
.C:9b2f D0 E9 BNE $9B1A
.C:9b31 18 CLC
.C:9b32 60 RTS
.C:9b33 38 SEC
.C:9b34 60 RTS
.C:9b35 20 E1 08 JSR $08E1 Clear text window.
.C:9b38 A0 A3 LDY #$A3
.C:9b3a A2 4C LDX #$4C
.C:9b3c 20 06 08 JSR $0806 "Disk Options:..."
.C:9b3f 20 78 08 JSR $0878 Get keypress
.C:9b42 20 87 08 JSR $0887 Evaluate keypress
.C:9b45 C9 C3 CMP #$C3
.C:9b47 F0 23 BEQ $9B6C Create member? Go $9b6c
.C:9b49 C9 C5 CMP #$C5
.C:9b4b D0 03 BNE $9B50 Exit? No? Go $9b50
.C:9b4d 4C 7F 9A JMP $9A7F
.C:9b50 C9 CC CMP #$CC
.C:9b52 D0 03 BNE $9B57 Leave game? No? Go $9b57
.C:9b54 4C EA 9D JMP $9DEA
.C:9b57 C9 D3 CMP #$D3
.C:9b59 D0 03 BNE $9B5E Save party? No? Go 9b5e
.C:9b5b 4C 7D A0 JMP $A07D
.C:9b5e C9 D2 CMP #$D2
.C:9b60 D0 03 BNE $9B65 Rename member? No? Go $9b65
.C:9b62 4C 4F A1 JMP $A14F
.C:9b65 C9 C4 CMP #$C4
.C:9b67 D0 D6 BNE $9B3F Delete member? No? Go $9b3f
.C:9b69 4C 98 9D JMP $9D98
.C:9b6c 20 E1 08 JSR $08E1 Clear text window.
.C:9b6f A2 00 LDX #$00
.C:9b71 8A TXA
.C:9b72 9D 00 B4 STA $B400,X
.C:9b75 E8 INX
.C:9b76 10 FA BPL $9B72
.C:9b78 A0 A4 LDY #$A4
.C:9b7a A2 F5 LDX #$F5
.C:9b7c 20 06 08 JSR $0806 "Select a race..."
.C:9b7f 20 78 08 JSR $0878 Get keypress
.C:9b82 C9 9B CMP #$9B
.C:9b84 F0 AF BEQ $9B35 <- pressed? Go $9b35
.C:9b86 C9 B1 CMP #$B1
.C:9b88 90 F5 BCC $9B7F If number less than 1, go $9b7f
.C:9b8a C9 B8 CMP #$B8
.C:9b8c B0 F1 BCS $9B7F If number more than 8, go $9b7f
.C:9b8e 38 SEC
.C:9b8f E9 B1 SBC #$B1
.C:9b91 8D 39 B4 STA $B439
.C:9b94 AA TAX
.C:9b95 BD 77 A7 LDA $A777,X
.C:9b98 85 71 STA $71
.C:9b9a 20 93 08 JSR $0893
.C:9b9d A0 00 LDY #$00
.C:9b9f 20 90 08 JSR $0890
.C:9ba2 A6 71 LDX $71
.C:9ba4 A5 5A LDA $5A
.C:9ba6 29 07 AND #$07
.C:9ba8 18 CLC
.C:9ba9 7D C2 A4 ADC $A4C2,X
.C:9bac C9 13 CMP #$13
.C:9bae 90 02 BCC $9BB2
.C:9bb0 A9 12 LDA #$12
.C:9bb2 99 B0 03 STA $03B0,Y
.C:9bb5 E6 71 INC $71
.C:9bb7 C8 INY
.C:9bb8 C0 05 CPY #$05
.C:9bba 90 E3 BCC $9B9F
.C:9bbc 20 90 08 JSR $0890
.C:9bbf A5 5B LDA $5B
.C:9bc1 29 0F AND #$0F
.C:9bc3 18 CLC
.C:9bc4 69 04 ADC #$04
.C:9bc6 8D 31 B4 STA $B431
.C:9bc9 8D 33 B4 STA $B433
.C:9bcc 8D B5 03 STA $03B5
.C:9bcf 20 E1 08 JSR $08E1 Clear text window.
.C:9bd2 A0 A5 LDY #$A5
.C:9bd4 A2 76 LDX #$76
.C:9bd6 20 06 08 JSR $0806 "Character X"
.C:9bd9 A9 01 LDA #$01
.C:9bdb 20 66 08 JSR $0866
.C:9bde AE 39 B4 LDX $B439
.C:9be1 8A TXA
.C:9be2 F0 08 BEQ $9BEC
.C:9be4 A9 00 LDA #$00
.C:9be6 18 CLC
.C:9be7 69 0A ADC #$0A
.C:9be9 CA DEX
.C:9bea D0 FA BNE $9BE6
.C:9bec AA TAX
.C:9bed 85 65 STA $65
.C:9bef A0 00 LDY #$00
.C:9bf1 BD 7C A4 LDA $A47C,X
.C:9bf4 F0 2B BEQ $9C21
.C:9bf6 A9 A8 LDA #$A8
.C:9bf8 20 03 08 JSR $0803
.C:9bfb 98 TYA
.C:9bfc 18 CLC
.C:9bfd 69 B0 ADC #$B0
.C:9bff 20 03 08 JSR $0803
.C:9c02 A9 A9 LDA #$A9
.C:9c04 20 03 08 JSR $0803
.C:9c07 E6 55 INC $55
.C:9c09 98 TYA
.C:9c0a 48 PHA
.C:9c0b 8A TXA
.C:9c0c 48 PHA
.C:9c0d 98 TYA
.C:9c0e 0A ASL A
.C:9c0f A8 TAY
.C:9c10 BE 5D A4 LDX $A45D,Y
.C:9c13 B9 5E A4 LDA $A45E,Y
.C:9c16 A8 TAY
.C:9c17 20 06 08 JSR $0806 [CHOSEN RACE]
.C:9c1a 20 0C 08 JSR $080C
.C:9c1d 68 PLA
.C:9c1e AA TAX
.C:9c1f 68 PLA
.C:9c20 A8 TAY
.C:9c21 E8 INX
.C:9c22 C8 INY
.C:9c23 C0 0A CPY #$0A
.C:9c25 90 CA BCC $9BF1
.C:9c27 A9 0E LDA #$0E
.C:9c29 85 54 STA $54
.C:9c2b A0 A5 LDY #$A5
.C:9c2d A2 67 LDX #$67
.C:9c2f 20 06 08 JSR $0806 "<- to abort"
.C:9c32 20 78 08 JSR $0878 Get keypress
.C:9c35 C9 9B CMP #$9B
.C:9c37 D0 03 BNE $9C3C <- pressed? No? Go $9c3c
.C:9c39 4C 6C 9B JMP $9B6C
.C:9c3c C9 B0 CMP #$B0
.C:9c3e 90 F2 BCC $9C32
.C:9c40 C9 BA CMP #$BA
.C:9c42 B0 EE BCS $9C32
.C:9c44 38 SEC
.C:9c45 E9 B0 SBC #$B0
.C:9c47 A8 TAY
.C:9c48 18 CLC
.C:9c49 65 65 ADC $65
.C:9c4b AA TAX
.C:9c4c BD 7C A4 LDA $A47C,X
.C:9c4f F0 E1 BEQ $9C32
.C:9c51 8C 38 B4 STY $B438
.C:9c54 B9 71 A4 LDA $A471,Y
.C:9c57 8D 3A B4 STA $B43A
.C:9c5a C0 03 CPY #$03
.C:9c5c F0 17 BEQ $9C75
.C:9c5e C0 04 CPY #$04
.C:9c60 F0 1A BEQ $9C7C
.C:9c62 C0 05 CPY #$05
.C:9c64 F0 1D BEQ $9C83
.C:9c66 C0 06 CPY #$06
.C:9c68 F0 26 BEQ $9C90
.C:9c6a C0 08 CPY #$08
.C:9c6c D0 27 BNE $9C95
.C:9c6e A9 05 LDA #$05
.C:9c70 8D 48 B4 STA $B448
.C:9c73 D0 20 BNE $9C95
.C:9c75 A9 01 LDA #$01
.C:9c77 8D 41 B4 STA $B441
.C:9c7a D0 19 BNE $9C95
.C:9c7c A9 01 LDA #$01
.C:9c7e 8D 42 B4 STA $B442
.C:9c81 D0 12 BNE $9C95
.C:9c83 A9 14 LDA #$14
.C:9c85 8D 44 B4 STA $B444
.C:9c88 8D 45 B4 STA $B445
.C:9c8b 8D 46 B4 STA $B446
.C:9c8e D0 05 BNE $9C95
.C:9c90 A9 01 LDA #$01
.C:9c92 8D 49 B4 STA $B449
.C:9c95 20 57 08 JSR $0857
.C:9c98 A2 13 LDX #$13
.C:9c9a A0 03 LDY #$03
.C:9c9c B9 B8 03 LDA $03B8,Y
.C:9c9f 9D 00 B4 STA $B400,X
.C:9ca2 CA DEX
.C:9ca3 88 DEY
.C:9ca4 10 F6 BPL $9C9C
.C:9ca6 20 90 08 JSR $0890
.C:9ca9 A5 5A LDA $5A
.C:9cab 29 7F AND #$7F
.C:9cad 18 CLC
.C:9cae 69 64 ADC #$64
.C:9cb0 85 63 STA $63
.C:9cb2 A9 00 LDA #$00
.C:9cb4 69 00 ADC #$00
.C:9cb6 85 64 STA $64
.C:9cb8 20 33 08 JSR $0833
.C:9cbb A9 B4 LDA #$B4
.C:9cbd 85 68 STA $68
.C:9cbf A9 24 LDA #$24
.C:9cc1 85 67 STA $67
.C:9cc3 20 39 08 JSR $0839
.C:9cc6 A9 01 LDA #$01
.C:9cc8 8D 21 B4 STA $B421
.C:9ccb 8D 23 B4 STA $B423
.C:9cce AD 38 B4 LDA $B438
.C:9cd1 C9 03 CMP #$03
.C:9cd3 90 11 BCC $9CE6
.C:9cd5 C9 05 CMP #$05
.C:9cd7 B0 0D BCS $9CE6
.C:9cd9 A5 5B LDA $5B
.C:9cdb 29 0F AND #$0F
.C:9cdd 18 CLC
.C:9cde 69 08 ADC #$08
.C:9ce0 8D 35 B4 STA $B435
.C:9ce3 8D 37 B4 STA $B437
.C:9ce6 20 E1 08 JSR $08E1 Clear text window.
.C:9ce9 A0 A4 LDY #$A4
.C:9ceb A2 E5 LDX #$E5
.C:9ced 20 06 08 JSR $0806 "Enter name --"
.C:9cf0 20 36 08 JSR $0836 Prompt for keyboard input
.C:9cf3 90 03 BCC $9CF8
.C:9cf5 4C 35 9B JMP $9B35
.C:9cf8 AD 34 03 LDA $0334
.C:9cfb C9 AA CMP #$AA
.C:9cfd D0 05 BNE $9D04
.C:9cff A9 D8 LDA #$D8
.C:9d01 8D 34 03 STA $0334
.C:9d04 20 1A 9B JSR $9B1A
.C:9d07 B0 EC BCS $9CF5
.C:9d09 20 15 08 JSR $0815
.C:9d0c B0 14 BCS $9D22
.C:9d0e A0 A6 LDY #$A6
.C:9d10 A2 52 LDX #$52
.C:9d12 20 06 08 JSR $0806 "[CR][CR]There is already a ..."
.C:9d15 A0 A4 LDY #$A4
.C:9d17 A2 01 LDX #$01
.C:9d19 20 06 08 JSR $0806 "[CR][CR]Press Any Key..."
.C:9d1c 20 78 08 JSR $0878 Get keypress
.C:9d1f 4C E6 9C JMP $9CE6
.C:9d22 20 18 08 JSR $0818
.C:9d25 90 14 BCC $9D3B
.C:9d27 A0 A5 LDY #$A5
.C:9d29 A2 BF LDX #$BF
.C:9d2b 20 06 08 JSR $0806 "[CR][CR]The roster is already..."
.C:9d2e A0 A4 LDY #$A4
.C:9d30 A2 01 LDX #$01
.C:9d32 20 06 08 JSR $0806 "[CR][CR]Press Any Key..."
.C:9d35 20 78 08 JSR $0878 Get keypress
.C:9d38 4C 35 9B JMP $9B35
.C:9d3b A0 00 LDY #$00
.C:9d3d 8E 5D 9D STX $9D5D
.C:9d40 B9 34 03 LDA $0334,Y
.C:9d43 59 CF A7 EOR $A7CF,Y
.C:9d46 9D 00 B5 STA $B500,X
.C:9d49 C8 INY
.C:9d4a E8 INX
.C:9d4b C0 10 CPY #$10
.C:9d4d 90 F1 BCC $9D40
.C:9d4f B9 00 B4 LDA $B400,Y
.C:9d52 59 CF A7 EOR $A7CF,Y
.C:9d55 9D 00 B5 STA $B500,X
.C:9d58 E8 INX
.C:9d59 C8 INY
.C:9d5a 10 F3 BPL $9D4F
.C:9d5c A2 00 LDX #$00
.C:9d5e A0 00 LDY #$00
.C:9d60 A9 00 LDA #$00
.C:9d62 5D 34 03 EOR $0334,X
.C:9d65 E8 INX
.C:9d66 C8 INY
.C:9d67 C0 0F CPY #$0F
.C:9d69 90 F7 BCC $9D62
.C:9d6b C9 00 CMP #$00
.C:9d6d D0 0E BNE $9D7D
.C:9d6f 8A TXA
.C:9d70 18 CLC
.C:9d71 69 61 ADC #$61
.C:9d73 AA TAX
.C:9d74 BD 00 B5 LDA $B500,X
.C:9d77 18 CLC
.C:9d78 69 01 ADC #$01
.C:9d7a 9D 00 B5 STA $B500,X
.C:9d7d AE 5D 9D LDX $9D5D
.C:9d80 20 38 A1 JSR $A138
.C:9d83 99 00 B5 STA $B500,Y
.C:9d86 20 CC 08 JSR $08CC
.C:9d89 90 0A BCC $9D95
.C:9d8b A0 A6 LDY #$A6
.C:9d8d A2 E1 LDX #$E1
.C:9d8f 20 06 08 JSR $0806 "[CR][CR]There has been a write..."
.C:9d92 20 78 08 JSR $0878 Get keypress
.C:9d95 4C 35 9B JMP $9B35
.C:9d98 20 E1 08 JSR $08E1 Clear text window.
.C:9d9b A0 A6 LDY #$A6
.C:9d9d A2 CE LDX #$CE
.C:9d9f 20 06 08 JSR $0806 "Delete Character[CR][CR]"
.C:9da2 A0 A4 LDY #$A4
.C:9da4 A2 E5 LDX #$E5
.C:9da6 20 06 08 JSR $0806 "Enter name --"
.C:9da9 20 36 08 JSR $0836 Prompt for keyboard input
.C:9dac 90 03 BCC $9DB1
.C:9dae 4C 35 9B JMP $9B35
.C:9db1 20 1A 9B JSR $9B1A
.C:9db4 B0 F8 BCS $9DAE
.C:9db6 20 15 08 JSR $0815
.C:9db9 90 14 BCC $9DCF
.C:9dbb A0 A6 LDY #$A6
.C:9dbd A2 8F LDX #$8F
.C:9dbf 20 06 08 JSR $0806 "[CR][CR]There's no one here..."
.C:9dc2 A0 A4 LDY #$A4
.C:9dc4 A2 01 LDX #$01
.C:9dc6 20 06 08 JSR $0806 "[CR][CR]Press Any Key..."
.C:9dc9 20 78 08 JSR $0878 Get keypress
.C:9dcc 4C 35 9B JMP $9B35
.C:9dcf A9 00 LDA #$00
.C:9dd1 9D 00 B5 STA $B500,X
.C:9dd4 A9 B5 LDA #$B5
.C:9dd6 85 5F STA $5F
.C:9dd8 20 CC 08 JSR $08CC
.C:9ddb 90 0A BCC $9DE7
.C:9ddd A0 A6 LDY #$A6
.C:9ddf A2 E1 LDX #$E1
.C:9de1 20 06 08 JSR $0806 "[CR][CR]There has been a write..."
.C:9de4 20 78 08 JSR $0878 Get keypress
.C:9de7 4C 35 9B JMP $9B35
.C:9dea 20 E1 08 JSR $08E1 Clear text window.
.C:9ded A0 A5 LDY #$A5
.C:9def A2 82 LDX #$82
.C:9df1 20 06 08 JSR $0806 "Press RETURN to save off all..."
.C:9df4 20 78 08 JSR $0878 Get keypress
.C:9df7 C9 8D CMP #$8D
.C:9df9 F0 03 BEQ $9DFE RETURN pressed? Go $9dfe
.C:9dfb 4C 35 9B JMP $9B35
.C:9dfe 20 1A 9B JSR $9B1A
.C:9e01 B0 F8 BCS $9DFB
.C:9e03 AD 00 B8 LDA $B800
.C:9e06 F0 08 BEQ $9E10
.C:9e08 A9 00 LDA #$00
.C:9e0a 20 F3 9F JSR $9FF3
.C:9e0d 4C 03 9E JMP $9E03
.C:9e10 78 SEI
.C:9e11 A9 31 LDA #$31
.C:9e13 8D 14 03 STA $0314
.C:9e16 A9 EA LDA #$EA
.C:9e18 8D 15 03 STA $0315
.C:9e1b A0 00 LDY #$00
.C:9e1d A2 68 LDX #$68
.C:9e1f 98 TYA
.C:9e20 99 00 08 STA $0800,Y
.C:9e23 C8 INY
.C:9e24 D0 FA BNE $9E20
.C:9e26 EE 22 9E INC $9E22
.C:9e29 AD 22 9E LDA $9E22
.C:9e2c C9 20 CMP #$20
.C:9e2e D0 05 BNE $9E35
.C:9e30 A9 40 LDA #$40
.C:9e32 8D 22 9E STA $9E22
.C:9e35 CA DEX
.C:9e36 D0 E8 BNE $9E20
.C:9e38 A2 07 LDX #$07
.C:9e3a BD 4B 9E LDA $9E4B,X
.C:9e3d 9D 00 08 STA $0800,X
.C:9e40 CA DEX
.C:9e41 10 F7 BPL $9E3A
.C:9e43 A9 03 LDA #$03
.C:9e45 8D 20 D0 STA $D020
.C:9e48 4C 00 08 JMP $0800 Reset machine???
.C:9e4b A9 37 LDA #$37
.C:9e4d 85 01 STA $01
.C:9e4f 58 CLI
.C:9e50 6C FC FF JMP ($FFFC)
.C:9e53 20 C0 08 JSR $08C0
.C:9e56 90 03 BCC $9E5B
.C:9e58 4C 94 9A JMP $9A94
.C:9e5b 20 E1 08 JSR $08E1 Clear text window.
.C:9e5e A0 A7 LDY #$A7
.C:9e60 A2 0E LDX #$0E
.C:9e62 20 06 08 JSR $0806 "Load Character--"
.C:9e65 A0 A4 LDY #$A4
.C:9e67 A2 E5 LDX #$E5
.C:9e69 20 06 08 JSR $0806 "Enter name--"
.C:9e6c 20 36 08 JSR $0836 Prompt for keyboard input
.C:9e6f 90 03 BCC $9E74
.C:9e71 4C 7F 9A JMP $9A7F
.C:9e74 20 33 A2 JSR $A233
.C:9e77 90 0A BCC $9E83
.C:9e79 A0 A6 LDY #$A6
.C:9e7b A2 B1 LDX #$B1
.C:9e7d 20 06 08 JSR $0806 "[CR][CR]He's already in the party."
.C:9e80 4C 94 9E JMP $9E94
.C:9e83 20 1A 9B JSR $9B1A
.C:9e86 B0 E9 BCS $9E71
.C:9e88 20 15 08 JSR $0815
.C:9e8b 90 14 BCC $9EA1
.C:9e8d A0 A6 LDY #$A6
.C:9e8f A2 8F LDX #$8F
.C:9e91 20 06 08 JSR $0806 "[CR][CR]There's no one here named..."
.C:9e94 A0 A4 LDY #$A4
.C:9e96 A2 01 LDX #$01
.C:9e98 20 06 08 JSR $0806 [CR][CR]Press Any Key..."
.C:9e9b 20 78 08 JSR $0878 Get keypress
.C:9e9e 4C 7F 9A JMP $9A7F
.C:9ea1 AD 34 03 LDA $0334
.C:9ea4 C9 AA CMP #$AA
.C:9ea6 F0 6D BEQ $9F15
.C:9ea8 20 C0 08 JSR $08C0
.C:9eab 20 38 A1 JSR $A138
.C:9eae D9 00 B5 CMP $B500,Y
.C:9eb1 D0 DA BNE $9E8D
.C:9eb3 8E FE 9E STX $9EFE
.C:9eb6 20 83 A2 JSR $A283
.C:9eb9 B0 0A BCS $9EC5
.C:9ebb A0 A6 LDY #$A6
.C:9ebd A2 1B LDX #$1B
.C:9ebf 20 06 08 JSR $0806 "[CR][CR]Only one Destiny Knight..."
.C:9ec2 4C 94 9E JMP $9E94
.C:9ec5 A0 00 LDY #$00
.C:9ec7 BD 00 B5 LDA $B500,X
.C:9eca 59 CF A7 EOR $A7CF,Y
.C:9ecd 91 9B STA ($9B),Y
.C:9ecf C0 38 CPY #$38
.C:9ed1 D0 06 BNE $9ED9
.C:9ed3 8D CE A7 STA $A7CE
.C:9ed6 4C F9 9E JMP $9EF9
.C:9ed9 C0 3E CPY #$3E
.C:9edb D0 0C BNE $9EE9
.C:9edd AD CE A7 LDA $A7CE
.C:9ee0 C9 0B CMP #$0B
.C:9ee2 90 15 BCC $9EF9
.C:9ee4 A9 03 LDA #$03
.C:9ee6 4C F3 9E JMP $9EF3
.C:9ee9 C0 24 CPY #$24
.C:9eeb 90 0C BCC $9EF9
.C:9eed C0 30 CPY #$30
.C:9eef B0 08 BCS $9EF9
.C:9ef1 A9 00 LDA #$00
.C:9ef3 59 CF A7 EOR $A7CF,Y
.C:9ef6 9D 00 B5 STA $B500,X
.C:9ef9 E8 INX
.C:9efa C8 INY
.C:9efb 10 CA BPL $9EC7
.C:9efd A2 00 LDX #$00
.C:9eff 20 38 A1 JSR $A138
.C:9f02 99 00 B5 STA $B500,Y
.C:9f05 20 CC 08 JSR $08CC
.C:9f08 90 05 BCC $9F0F
.C:9f0a A9 00 LDA #$00
.C:9f0c A8 TAY
.C:9f0d 91 9B STA ($9B),Y
.C:9f0f 20 48 08 JSR $0848
.C:9f12 4C 7F 9A JMP $9A7F
.C:9f15 A0 00 LDY #$00
.C:9f17 BD 00 B5 LDA $B500,X
.C:9f1a 59 CF A7 EOR $A7CF,Y
.C:9f1d 99 00 B4 STA $B400,Y
.C:9f20 E8 INX
.C:9f21 C8 INY
.C:9f22 10 F3 BPL $9F17
.C:9f24 A2 FF LDX #$FF
.C:9f26 E8 INX
.C:9f27 E0 07 CPX #$07
.C:9f29 F0 E7 BEQ $9F12
.C:9f2b BC C7 A7 LDY $A7C7,X
.C:9f2e B9 00 B4 LDA $B400,Y
.C:9f31 F0 F3 BEQ $9F26
.C:9f33 A2 00 LDX #$00
.C:9f35 B9 00 B4 LDA $B400,Y
.C:9f38 9D 34 03 STA $0334,X
.C:9f3b A9 00 LDA #$00
.C:9f3d 99 00 B4 STA $B400,Y
.C:9f40 C8 INY
.C:9f41 E8 INX
.C:9f42 E0 10 CPX #$10
.C:9f44 90 EF BCC $9F35
.C:9f46 20 33 A2 JSR $A233
.C:9f49 B0 D9 BCS $9F24
.C:9f4b 20 15 08 JSR $0815
.C:9f4e B0 D4 BCS $9F24
.C:9f50 20 C0 08 JSR $08C0
.C:9f53 B0 BD BCS $9F12
.C:9f55 20 38 A1 JSR $A138
.C:9f58 D9 00 B5 CMP $B500,Y
.C:9f5b D0 C7 BNE $9F24
.C:9f5d 8E 9E 9F STX $9F9E
.C:9f60 20 83 A2 JSR $A283
.C:9f63 90 AD BCC $9F12
.C:9f65 A0 00 LDY #$00
.C:9f67 BD 00 B5 LDA $B500,X
.C:9f6a 59 CF A7 EOR $A7CF,Y
.C:9f6d 91 9B STA ($9B),Y
.C:9f6f C0 38 CPY #$38
.C:9f71 D0 06 BNE $9F79
.C:9f73 8D CE A7 STA $A7CE
.C:9f76 4C 99 9F JMP $9F99
.C:9f79 C0 3E CPY #$3E
.C:9f7b D0 0C BNE $9F89
.C:9f7d AD CE A7 LDA $A7CE
.C:9f80 C9 0B CMP #$0B
.C:9f82 90 15 BCC $9F99
.C:9f84 A9 03 LDA #$03
.C:9f86 4C 93 9F JMP $9F93
.C:9f89 C0 24 CPY #$24
.C:9f8b 90 0C BCC $9F99
.C:9f8d C0 30 CPY #$30
.C:9f8f B0 08 BCS $9F99
.C:9f91 A9 00 LDA #$00
.C:9f93 59 CF A7 EOR $A7CF,Y
.C:9f96 9D 00 B5 STA $B500,X
.C:9f99 E8 INX
.C:9f9a C8 INY
.C:9f9b 10 CA BPL $9F67
.C:9f9d A2 00 LDX #$00
.C:9f9f 20 38 A1 JSR $A138
.C:9fa2 99 00 B5 STA $B500,Y
.C:9fa5 20 CC 08 JSR $08CC
.C:9fa8 90 05 BCC $9FAF
.C:9faa A9 00 LDA #$00
.C:9fac A8 TAY
.C:9fad 91 9B STA ($9B),Y
.C:9faf 20 48 08 JSR $0848
.C:9fb2 4C 24 9F JMP $9F24
.C:9fb5 AD 00 B8 LDA $B800
.C:9fb8 D0 03 BNE $9FBD
.C:9fba 4C 94 9A JMP $9A94
.C:9fbd 20 E1 08 JSR $08E1 Clear text window.
.C:9fc0 A0 A7 LDY #$A7
.C:9fc2 A2 4A LDX #$4A
.C:9fc4 20 06 08 JSR $0806 "Drop character number (0-6)..."
.C:9fc7 20 78 08 JSR $0878 Get keypress
.C:9fca C9 B0 CMP #$B0
.C:9fcc B0 03 BCS $9FD1
.C:9fce 4C 7F 9A JMP $9A7F
.C:9fd1 C9 B7 CMP #$B7
.C:9fd3 B0 F2 BCS $9FC7
.C:9fd5 38 SEC
.C:9fd6 E9 B0 SBC #$B0
.C:9fd8 48 PHA
.C:9fd9 A5 F6 LDA $F6
.C:9fdb F0 03 BEQ $9FE0
.C:9fdd 20 BA 08 JSR $08BA
.C:9fe0 20 1A 9B JSR $9B1A
.C:9fe3 B0 0A BCS $9FEF
.C:9fe5 68 PLA
.C:9fe6 20 F3 9F JSR $9FF3
.C:9fe9 20 48 08 JSR $0848
.C:9fec 4C 7F 9A JMP $9A7F
.C:9fef 68 PLA
.C:9ff0 4C 7F 9A JMP $9A7F
.C:9ff3 0A ASL A
.C:9ff4 48 PHA
.C:9ff5 AA TAX
.C:9ff6 BD 81 A7 LDA $A781,X
.C:9ff9 85 9B STA $9B
.C:9ffb BD 82 A7 LDA $A782,X
.C:9ffe 85 9C STA $9C
.C:a000 A0 00 LDY #$00
.C:a002 B1 9B LDA ($9B),Y
.C:a004 D0 04 BNE $A00A
.C:a006 68 PLA
.C:a007 4C 7C A0 JMP $A07C
.C:a00a B1 9B LDA ($9B),Y
.C:a00c 99 34 03 STA $0334,Y
.C:a00f C8 INY
.C:a010 C0 10 CPY #$10
.C:a012 90 F6 BCC $A00A
.C:a014 20 15 08 JSR $0815
.C:a017 90 05 BCC $A01E
.C:a019 20 18 08 JSR $0818
.C:a01c B0 2C BCS $A04A
.C:a01e A0 00 LDY #$00
.C:a020 8E 30 A0 STX $A030
.C:a023 B1 9B LDA ($9B),Y
.C:a025 59 CF A7 EOR $A7CF,Y
.C:a028 9D 00 B5 STA $B500,X
.C:a02b E8 INX
.C:a02c C8 INY
.C:a02d 10 F4 BPL $A023
.C:a02f A2 00 LDX #$00
.C:a031 20 38 A1 JSR $A138
.C:a034 99 00 B5 STA $B500,Y
.C:a037 A9 B5 LDA #$B5
.C:a039 85 5F STA $5F
.C:a03b 20 CC 08 JSR $08CC
.C:a03e 90 0A BCC $A04A
.C:a040 A0 A6 LDY #$A6
.C:a042 A2 E1 LDX #$E1
.C:a044 20 06 08 JSR $0806 "[CR][CR]There has been a write..."
.C:a047 20 78 08 JSR $0878 Get keypress
.C:a04a 68 PLA
.C:a04b C9 0C CMP #$0C
.C:a04d B0 24 BCS $A073
.C:a04f AA TAX
.C:a050 BD 81 A7 LDA $A781,X
.C:a053 85 9B STA $9B
.C:a055 BD 82 A7 LDA $A782,X
.C:a058 85 9C STA $9C
.C:a05a BD 83 A7 LDA $A783,X
.C:a05d 85 50 STA $50
.C:a05f BD 84 A7 LDA $A784,X
.C:a062 85 51 STA $51
.C:a064 A0 00 LDY #$00
.C:a066 B1 50 LDA ($50),Y
.C:a068 91 9B STA ($9B),Y
.C:a06a C8 INY
.C:a06b 10 F9 BPL $A066
.C:a06d E8 INX
.C:a06e E8 INX
.C:a06f E0 0C CPX #$0C
.C:a071 90 DD BCC $A050
.C:a073 A0 00 LDY #$00
.C:a075 98 TYA
.C:a076 99 00 BB STA $BB00,Y
.C:a079 C8 INY
.C:a07a 10 FA BPL $A076
.C:a07c 60 RTS
.C:a07d 20 E1 08 JSR $08E1 Clear text window.
.C:a080 A0 A4 LDY #$A4
.C:a082 A2 E5 LDX #$E5
.C:a084 20 06 08 JSR $0806 "Enter name--"
.C:a087 20 36 08 JSR $0836 Prompt for keyboard input
.C:a08a 90 03 BCC $A08F
.C:a08c 4C 35 9B JMP $9B35
.C:a08f A2 FE LDX #$FE
.C:a091 AD 34 03 LDA $0334
.C:a094 C9 AA CMP #$AA
.C:a096 F0 10 BEQ $A0A8
.C:a098 BD 34 03 LDA $0334,X
.C:a09b 9D 35 03 STA $0335,X
.C:a09e CA DEX
.C:a09f E0 FF CPX #$FF
.C:a0a1 D0 F5 BNE $A098
.C:a0a3 A9 AA LDA #$AA
.C:a0a5 8D 34 03 STA $0334
.C:a0a8 20 1A 9B JSR $9B1A
.C:a0ab B0 16 BCS $A0C3
.C:a0ad 20 15 08 JSR $0815
.C:a0b0 B0 14 BCS $A0C6
.C:a0b2 A0 A6 LDY #$A6
.C:a0b4 A2 52 LDX #$52
.C:a0b6 20 06 08 JSR $0806 "[CR][CR]There is already a character..."
.C:a0b9 A0 A4 LDY #$A4
.C:a0bb A2 01 LDX #$01
.C:a0bd 20 06 08 JSR $0806 "[CR][CR]Press Any Key..."
.C:a0c0 20 78 08 JSR $0878 Get keypress
.C:a0c3 4C 35 9B JMP $9B35
.C:a0c6 20 18 08 JSR $0818
.C:a0c9 90 14 BCC $A0DF
.C:a0cb A0 A5 LDY #$A5
.C:a0cd A2 C0 LDX #$C0
.C:a0cf 20 06 08 JSR $0806 "[CR]The roster is already full..."
.C:a0d2 A0 A4 LDY #$A4
.C:a0d4 A2 01 LDX #$01
.C:a0d6 20 C0 08 JSR $08C0 ??????????
.C:a0d9 20 78 08 JSR $0878 Get keypress
.C:a0dc 4C 35 9B JMP $9B35
.C:a0df 8E 00 A1 STX $A100
.C:a0e2 A0 00 LDY #$00
.C:a0e4 B9 34 03 LDA $0334,Y
.C:a0e7 59 CF A7 EOR $A7CF,Y
.C:a0ea 9D 00 B5 STA $B500,X
.C:a0ed E8 INX
.C:a0ee C8 INY
.C:a0ef C0 10 CPY #$10
.C:a0f1 90 F1 BCC $A0E4
.C:a0f3 A9 00 LDA #$00
.C:a0f5 85 44 STA $44
.C:a0f7 A8 TAY
.C:a0f8 0A ASL A
.C:a0f9 0A ASL A
.C:a0fa 0A ASL A
.C:a0fb 18 CLC
.C:a0fc 69 10 ADC #$10
.C:a0fe 18 CLC
.C:a0ff 69 00 ADC #$00
.C:a101 AA TAX
.C:a102 B9 81 A7 LDA $A781,Y
.C:a105 85 9B STA $9B
.C:a107 B9 82 A7 LDA $A782,Y
.C:a10a 85 9C STA $9C
.C:a10c A0 00 LDY #$00
.C:a10e B1 9B LDA ($9B),Y
.C:a110 5D CF A7 EOR $A7CF,X
.C:a113 9D 00 B5 STA $B500,X
.C:a116 C8 INY
.C:a117 E8 INX
.C:a118 C0 10 CPY #$10
.C:a11a 90 F2 BCC $A10E
.C:a11c E6 44 INC $44
.C:a11e E6 44 INC $44
.C:a120 A5 44 LDA $44
.C:a122 C9 0E CMP #$0E
.C:a124 90 D1 BCC $A0F7
.C:a126 20 CC 08 JSR $08CC
.C:a129 90 0A BCC $A135
.C:a12b A0 A6 LDY #$A6
.C:a12d A2 E1 LDX #$E1
.C:a12f 20 06 08 JSR $0806 "[CR][CR]There has been a write..."
.C:a132 20 78 08 JSR $0878 Get keypress
.C:a135 4C 35 9B JMP $9B35
.C:a138 8E 4D A1 STX $A14D
.C:a13b A0 00 LDY #$00
.C:a13d 98 TYA
.C:a13e 5D 00 B5 EOR $B500,X
.C:a141 E8 INX
.C:a142 C8 INY
.C:a143 C0 7E CPY #$7E
.C:a145 D0 F7 BNE $A13E
.C:a147 E8 INX
.C:a148 48 PHA
.C:a149 8A TXA
.C:a14a A8 TAY
.C:a14b 68 PLA
.C:a14c A2 00 LDX #$00
.C:a14e 60 RTS
.C:a14f 20 E1 08 JSR $08E1
.C:a152 A0 A7 LDY #$A7
.C:a154 A2 1F LDX #$1F
.C:a156 20 06 08 JSR $0806 "Rename Character[CR][CR]"
.C:a159 A0 A4 LDY #$A4
.C:a15b A2 E5 LDX #$E5
.C:a15d 20 06 08 JSR $0806 "Enter name--"
.C:a160 20 36 08 JSR $0836 Prompt for keyboard input
.C:a163 90 03 BCC $A168
.C:a165 4C 7F 9A JMP $9A7F
.C:a168 20 33 A2 JSR $A233
.C:a16b B0 0A BCS $A177
.C:a16d A0 A6 LDY #$A6
.C:a16f A2 8F LDX #$8F
.C:a171 20 06 08 JSR $0806 "[CR][CR]There's no one here named that."
.C:a174 4C A4 A1 JMP $A1A4
.C:a177 A5 9B LDA $9B
.C:a179 85 6E STA $6E
.C:a17b A5 9C LDA $9C
.C:a17d 85 6F STA $6F
.C:a17f A0 A7 LDY #$A7
.C:a181 A2 32 LDX #$32
.C:a183 20 06 08 JSR $0806 "[CR][CR]Change his name to:"
.C:a186 20 36 08 JSR $0836 Prompt for keyboard input
.C:a189 B0 DA BCS $A165
.C:a18b 8E C3 A1 STX $A1C3
.C:a18e 20 33 A2 JSR $A233
.C:a191 B0 0A BCS $A19D
.C:a193 20 1A 9B JSR $9B1A
.C:a196 B0 CD BCS $A165
.C:a198 20 15 08 JSR $0815
.C:a19b B0 14 BCS $A1B1
.C:a19d A0 A6 LDY #$A6
.C:a19f A2 52 LDX #$52
.C:a1a1 20 06 08 JSR $0806 "[CR][CR]There is already a character..."
.C:a1a4 A0 A4 LDY #$A4
.C:a1a6 A2 01 LDX #$01
.C:a1a8 20 06 08 JSR $0806 "[CR][CR]Press Any Key..."
.C:a1ab 20 78 08 JSR $0878 Get keypress
.C:a1ae 4C 7F 9A JMP $9A7F
.C:a1b1 A0 0F LDY #$0F
.C:a1b3 B1 6E LDA ($6E),Y
.C:a1b5 99 8F A7 STA $A78F,Y
.C:a1b8 88 DEY
.C:a1b9 10 F8 BPL $A1B3
.C:a1bb C8 INY
.C:a1bc B9 34 03 LDA $0334,Y
.C:a1bf 91 6E STA ($6E),Y
.C:a1c1 C8 INY
.C:a1c2 C0 00 CPY #$00
.C:a1c4 B0 04 BCS $A1CA
.C:a1c6 C0 0F CPY #$0F
.C:a1c8 90 F2 BCC $A1BC
.C:a1ca A9 FF LDA #$FF
.C:a1cc 91 6E STA ($6E),Y
.C:a1ce C8 INY
.C:a1cf C0 10 CPY #$10
.C:a1d1 90 F7 BCC $A1CA
.C:a1d3 88 DEY
.C:a1d4 B9 8F A7 LDA $A78F,Y
.C:a1d7 99 34 03 STA $0334,Y
.C:a1da 88 DEY
.C:a1db 10 F7 BPL $A1D4
.C:a1dd 20 15 08 JSR $0815
.C:a1e0 B0 1D BCS $A1FF
.C:a1e2 8A TXA
.C:a1e3 48 PHA
.C:a1e4 A0 00 LDY #$00
.C:a1e6 B1 6E LDA ($6E),Y
.C:a1e8 5D CF A7 EOR $A7CF,X
.C:a1eb 9D 00 B5 STA $B500,X
.C:a1ee E8 INX
.C:a1ef C8 INY
.C:a1f0 C0 10 CPY #$10
.C:a1f2 90 F2 BCC $A1E6
.C:a1f4 68 PLA
.C:a1f5 AA TAX
.C:a1f6 20 38 A1 JSR $A138
.C:a1f9 99 00 B5 STA $B500,Y
.C:a1fc 20 CC 08 JSR $08CC
.C:a1ff 20 48 08 JSR $0848
.C:a202 4C 7F 9A JMP $9A7F
.C:a205 A2 0C LDX #$0C
.C:a207 BD 81 A7 LDA $A781,X
.C:a20a 85 6E STA $6E
.C:a20c BD 82 A7 LDA $A782,X
.C:a20f 85 6F STA $6F
.C:a211 A0 00 LDY #$00
.C:a213 B1 6E LDA ($6E),Y
.C:a215 F0 12 BEQ $A229
.C:a217 A0 3E LDY #$3E
.C:a219 B1 6E LDA ($6E),Y
.C:a21b C9 03 CMP #$03
.C:a21d 90 10 BCC $A22F
.C:a21f C9 06 CMP #$06
.C:a221 B0 0C BCS $A22F
.C:a223 A0 4D LDY #$4D
.C:a225 B1 6E LDA ($6E),Y
.C:a227 D0 06 BNE $A22F
.C:a229 CA DEX
.C:a22a CA DEX
.C:a22b 10 DA BPL $A207
.C:a22d 38 SEC
.C:a22e 60 RTS
.C:a22f 8A TXA
.C:a230 4A LSR A
.C:a231 18 CLC
.C:a232 60 RTS
.C:a233 A9 06 LDA #$06
.C:a235 85 97 STA $97
.C:a237 A9 B8 LDA #$B8
.C:a239 85 9C STA $9C
.C:a23b A9 00 LDA #$00
.C:a23d 85 9B STA $9B
.C:a23f A0 00 LDY #$00
.C:a241 B9 34 03 LDA $0334,Y
.C:a244 C9 BD CMP #$BD
.C:a246 F0 17 BEQ $A25F
.C:a248 C9 FF CMP #$FF
.C:a24a F0 15 BEQ $A261
.C:a24c D1 9B CMP ($9B),Y
.C:a24e F0 0A BEQ $A25A
.C:a250 C9 C0 CMP #$C0
.C:a252 90 2D BCC $A281
.C:a254 09 20 ORA #$20
.C:a256 D1 9B CMP ($9B),Y
.C:a258 D0 16 BNE $A270
.C:a25a C8 INY
.C:a25b C0 0F CPY #$0F
.C:a25d 90 E2 BCC $A241
.C:a25f 38 SEC
.C:a260 60 RTS
.C:a261 A9 FF LDA #$FF
.C:a263 D1 9B CMP ($9B),Y
.C:a265 D0 1A BNE $A281
.C:a267 E8 INX
.C:a268 C8 INY
.C:a269 C0 0F CPY #$0F
.C:a26b 90 F6 BCC $A263
.C:a26d 4C 5F A2 JMP $A25F
.C:a270 A5 9B LDA $9B
.C:a272 18 CLC
.C:a273 69 80 ADC #$80
.C:a275 85 9B STA $9B
.C:a277 A5 9C LDA $9C
.C:a279 69 00 ADC #$00
.C:a27b 85 9C STA $9C
.C:a27d C6 97 DEC $97
.C:a27f 10 BE BPL $A23F
.C:a281 18 CLC
.C:a282 60 RTS
.C:a283 8E AD A2 STX $A2AD
.C:a286 A0 00 LDY #$00
.C:a288 A9 00 LDA #$00
.C:a28a 5D 00 B5 EOR $B500,X
.C:a28d E8 INX
.C:a28e C8 INY
.C:a28f C0 0F CPY #$0F
.C:a291 90 F7 BCC $A28A
.C:a293 48 PHA
.C:a294 8A TXA
.C:a295 18 CLC
.C:a296 69 61 ADC #$61
.C:a298 AA TAX
.C:a299 68 PLA
.C:a29a DD 00 B5 CMP $B500,X
.C:a29d D0 0D BNE $A2AC
.C:a29f A9 06 LDA #$06
.C:a2a1 85 44 STA $44
.C:a2a3 20 3E 09 JSR $093E
.C:a2a6 90 08 BCC $A2B0
.C:a2a8 C6 44 DEC $44
.C:a2aa 10 F7 BPL $A2A3
.C:a2ac A2 00 LDX #$00
.C:a2ae 38 SEC
.C:a2af 60 RTS
.C:a2b0 AE AD A2 LDX $A2AD
.C:a2b3 18 CLC
.C:a2b4 60 RTS