"FILE3131655" PRG Review Board
#$EA | 234 | EOR all bytes against 11101010
10 blocks; 2506 bytes (70EA to 7AB4 Inclusive; 9A00 - A3CA)
The file containing the Review Board.
Code: Select all
.C:9a00 A2 16 LDX #$16
.C:9a02 20 1B 08 JSR $081B Display picture #$16
.C:9a05 20 E1 08 JSR $08E1
.C:9a08 A5 EB LDA $EB Get time of day
.C:9a0a F0 0D BEQ $9A19 Daytime? Yes? Go $9a19
.C:9a0c A0 9E LDY #$9E
.C:9a0e A2 C9 LDX #$C9
.C:9a10 20 06 08 JSR $0806 We're closed GTFO.
.C:9a13 20 78 08 JSR $0878 Get keypress
.C:9a16 4C 4D 9A JMP $9A4D
.C:9a19 A0 9F LDY #$9F
.C:9a1b A2 41 LDX #$41
.C:9a1d 20 06 08 JSR $0806 "Thou standeth before the..."
.C:9a20 A9 9E LDA #$9E
.C:9a22 85 59 STA $59
.C:9a24 A9 BC LDA #$BC
.C:9a26 85 58 STA $58
.C:9a28 20 0F 08 JSR $080F Display "Review Board" caption
.C:9a2b 20 93 08 JSR $0893
.C:9a2e 20 78 08 JSR $0878 Get keypress
.C:9a31 20 87 08 JSR $0887 Evaluate keypress
.C:9a34 C9 C1 CMP #$C1
.C:9a36 F0 45 BEQ $9A7D Advancement? Go $9a7d
.C:9a38 C9 D3 CMP #$D3
.C:9a3a D0 03 BNE $9A3F Spell acquiring? No? Go $9a3f
.C:9a3c 4C 78 9C JMP $9C78
.C:9a3f C9 C5 CMP #$C5
.C:9a41 D0 03 BNE $9A46 Exit? No? Go $9a46
.C:9a43 4C 4D 9A JMP $9A4D
.C:9a46 C9 C3 CMP #$C3
.C:9a48 D0 E4 BNE $9A2E Class change? Go $9a2e
.C:9a4a 4C 5E 9D JMP $9D5E
.C:9a4d A6 24 LDX $24 Begin exit routine
.C:9a4f BD 79 9A LDA $9A79,X
.C:9a52 85 24 STA $24 Spin party 180 degrees
.C:9a54 20 61 9A JSR $9A61
.C:9a57 A9 00 LDA #$00
.C:9a59 85 2F STA $2F
.C:9a5b 20 E1 08 JSR $08E1
.C:9a5e 4C 00 90 JMP $9000 Back to main program.
.C:9a61 A5 24 LDA $24
.C:9a63 F0 0B BEQ $9A70
.C:9a65 C9 01 CMP #$01
.C:9a67 F0 0D BEQ $9A76
.C:9a69 C9 02 CMP #$02
.C:9a6b F0 06 BEQ $9A73
.C:9a6d C6 29 DEC $29 Move party 1 square west
.C:9a6f 60 RTS
.C:9a70 E6 28 INC $28 Move party 1 square north
.C:9a72 60 RTS
.C:9a73 C6 28 DEC $28 Move party 1 square south
.C:9a75 60 RTS
.C:9a76 E6 29 INC $29 Move party 1 square east
.C:9a78 60 RTS
.C:9a79 02 JAM Data field...
.C:9a7a 03 00 SLO ($00,X)
.C:9a7c 01 20 ORA ($20,X)
.C:9a7e E1 08 SBC ($08,X)
.C:9a80 A0 9F LDY #$9F
.C:9a82 A2 F7 LDX #$F7
.C:9a84 20 06 08 JSR $0806 "The Guild leaders prepare to..."
.C:9a87 A0 9F LDY #$9F
.C:9a89 A2 D9 LDX #$D9
.C:9a8b 20 06 08 JSR $0806 "Who shall be reviewed?"
.C:9a8e 20 8D 08 JSR $088D
.C:9a91 B0 0A BCS $9A9D
.C:9a93 84 9B STY $9B
.C:9a95 85 9C STA $9C
.C:9a97 A0 00 LDY #$00
.C:9a99 B1 9B LDA ($9B),Y
.C:9a9b D0 03 BNE $9AA0
.C:9a9d 4C 05 9A JMP $9A05
.C:9aa0 A0 38 LDY #$38
.C:9aa2 B1 9B LDA ($9B),Y
.C:9aa4 C9 0B CMP #$0B
.C:9aa6 B0 F5 BCS $9A9D
.C:9aa8 20 E1 08 JSR $08E1
.C:9aab A0 A0 LDY #$A0
.C:9aad A2 28 LDX #$28
.C:9aaf 20 06 08 JSR $0806 "The Guild leaders deem that..."
.C:9ab2 A6 9B LDX $9B
.C:9ab4 A4 9C LDY $9C
.C:9ab6 20 06 08 JSR $0806 [CHARACTER NAME]
.C:9ab9 A0 22 LDY #$22
.C:9abb B1 9B LDA ($9B),Y
.C:9abd 85 64 STA $64
.C:9abf C8 INY
.C:9ac0 B1 9B LDA ($9B),Y
.C:9ac2 85 63 STA $63
.C:9ac4 20 6C 08 JSR $086C
.C:9ac7 90 36 BCC $9AFF
.C:9ac9 A0 A0 LDY #$A0
.C:9acb A2 6C LDX #$6C
.C:9acd 20 06 08 JSR $0806 " still needeth "
.C:9ad0 A0 14 LDY #$14
.C:9ad2 20 27 08 JSR $0827
.C:9ad5 20 2D 08 JSR $082D
.C:9ad8 A5 55 LDA $55
.C:9ada C9 26 CMP #$26
.C:9adc 90 0A BCC $9AE8
.C:9ade A0 A0 LDY #$A0
.C:9ae0 A2 7D LDX #$7D
.C:9ae2 20 06 08 JSR $0806 " experience points prior to..."
.C:9ae5 4C EF 9A JMP $9AEF
.C:9ae8 A0 A0 LDY #$A0
.C:9aea A2 7C LDX #$7C
.C:9aec 20 06 08 JSR $0806 "experience points prior to..."
.C:9aef A0 A3 LDY #$A3
.C:9af1 A2 42 LDX #$42
.C:9af3 20 06 08 JSR $0806 "[CR][CR]Press Any Key..."
.C:9af6 20 48 08 JSR $0848
.C:9af9 20 78 08 JSR $0878 Get keypress
.C:9afc 4C 7D 9A JMP $9A7D
.C:9aff A0 A0 LDY #$A0
.C:9b01 A2 45 LDX #$45
.C:9b03 20 06 08 JSR $0806 " hath earned a level of..."
.C:9b06 A0 23 LDY #$23
.C:9b08 B1 9B LDA ($9B),Y
.C:9b0a 18 CLC
.C:9b0b 69 01 ADC #$01
.C:9b0d 91 9B STA ($9B),Y
.C:9b0f 48 PHA
.C:9b10 88 DEY
.C:9b11 B1 9B LDA ($9B),Y
.C:9b13 69 00 ADC #$00
.C:9b15 91 9B STA ($9B),Y
.C:9b17 A0 20 LDY #$20
.C:9b19 91 9B STA ($9B),Y
.C:9b1b C8 INY
.C:9b1c 68 PLA
.C:9b1d 91 9B STA ($9B),Y
.C:9b1f A0 10 LDY #$10
.C:9b21 A2 00 LDX #$00
.C:9b23 B1 9B LDA ($9B),Y
.C:9b25 DD 74 9C CMP $9C74,X
.C:9b28 D0 22 BNE $9B4C
.C:9b2a C8 INY
.C:9b2b E8 INX
.C:9b2c E0 04 CPX #$04
.C:9b2e 90 F3 BCC $9B23
.C:9b30 A5 9B LDA $9B
.C:9b32 18 CLC
.C:9b33 69 50 ADC #$50
.C:9b35 8D 44 9B STA $9B44
.C:9b38 A5 9C LDA $9C
.C:9b3a 69 00 ADC #$00
.C:9b3c 8D 45 9B STA $9B45
.C:9b3f A0 10 LDY #$10
.C:9b41 A2 04 LDX #$04
.C:9b43 B9 00 10 LDA $1000,Y
.C:9b46 91 9B STA ($9B),Y
.C:9b48 C8 INY
.C:9b49 CA DEX
.C:9b4a D0 F7 BNE $9B43
.C:9b4c 20 5A 08 JSR $085A
.C:9b4f 20 90 08 JSR $0890
.C:9b52 A0 38 LDY #$38
.C:9b54 B1 9B LDA ($9B),Y
.C:9b56 AA TAX
.C:9b57 A5 5A LDA $5A
.C:9b59 3D CE 9F AND $9FCE,X
.C:9b5c 85 97 STA $97
.C:9b5e AD B3 03 LDA $03B3
.C:9b61 38 SEC
.C:9b62 E9 0E SBC #$0E
.C:9b64 B0 02 BCS $9B68
.C:9b66 A9 00 LDA #$00
.C:9b68 18 CLC
.C:9b69 65 97 ADC $97
.C:9b6b 18 CLC
.C:9b6c 69 01 ADC #$01
.C:9b6e 85 97 STA $97
.C:9b70 A0 33 LDY #$33
.C:9b72 B1 9B LDA ($9B),Y
.C:9b74 18 CLC
.C:9b75 65 97 ADC $97
.C:9b77 91 9B STA ($9B),Y
.C:9b79 88 DEY
.C:9b7a B1 9B LDA ($9B),Y
.C:9b7c 69 00 ADC #$00
.C:9b7e 91 9B STA ($9B),Y
.C:9b80 88 DEY
.C:9b81 C0 30 CPY #$30
.C:9b83 B0 ED BCS $9B72
.C:9b85 A0 38 LDY #$38
.C:9b87 B1 9B LDA ($9B),Y
.C:9b89 F0 66 BEQ $9BF1
.C:9b8b C9 0A CMP #$0A
.C:9b8d F0 06 BEQ $9B95
.C:9b8f C9 05 CMP #$05
.C:9b91 F0 35 BEQ $9BC8
.C:9b93 B0 5C BCS $9BF1
.C:9b95 20 90 08 JSR $0890
.C:9b98 A5 5A LDA $5A
.C:9b9a 29 03 AND #$03
.C:9b9c 85 97 STA $97
.C:9b9e AD B1 03 LDA $03B1
.C:9ba1 38 SEC
.C:9ba2 E9 0E SBC #$0E
.C:9ba4 B0 02 BCS $9BA8
.C:9ba6 A9 00 LDA #$00
.C:9ba8 18 CLC
.C:9ba9 65 97 ADC $97
.C:9bab 18 CLC
.C:9bac 69 01 ADC #$01
.C:9bae 85 97 STA $97
.C:9bb0 A0 37 LDY #$37
.C:9bb2 B1 9B LDA ($9B),Y
.C:9bb4 18 CLC
.C:9bb5 65 97 ADC $97
.C:9bb7 91 9B STA ($9B),Y
.C:9bb9 88 DEY
.C:9bba B1 9B LDA ($9B),Y
.C:9bbc 69 00 ADC #$00
.C:9bbe 91 9B STA ($9B),Y
.C:9bc0 88 DEY
.C:9bc1 C0 34 CPY #$34
.C:9bc3 B0 ED BCS $9BB2
.C:9bc5 4C 1D 9C JMP $9C1D
.C:9bc8 A0 44 LDY #$44
.C:9bca AD B2 03 LDA $03B2
.C:9bcd 38 SEC
.C:9bce E9 0E SBC #$0E
.C:9bd0 B0 02 BCS $9BD4
.C:9bd2 A9 00 LDA #$00
.C:9bd4 85 97 STA $97
.C:9bd6 20 90 08 JSR $0890
.C:9bd9 A5 5A LDA $5A
.C:9bdb 29 07 AND #$07
.C:9bdd 18 CLC
.C:9bde 65 97 ADC $97
.C:9be0 18 CLC
.C:9be1 71 9B ADC ($9B),Y
.C:9be3 90 02 BCC $9BE7
.C:9be5 A9 FF LDA #$FF
.C:9be7 91 9B STA ($9B),Y
.C:9be9 C8 INY
.C:9bea C0 47 CPY #$47
.C:9bec 90 E8 BCC $9BD6
.C:9bee 4C 1D 9C JMP $9C1D
.C:9bf1 C9 08 CMP #$08
.C:9bf3 D0 04 BNE $9BF9
.C:9bf5 A0 48 LDY #$48
.C:9bf7 D0 D1 BNE $9BCA
.C:9bf9 C9 00 CMP #$00
.C:9bfb F0 08 BEQ $9C05
.C:9bfd C9 07 CMP #$07
.C:9bff F0 04 BEQ $9C05
.C:9c01 C9 09 CMP #$09
.C:9c03 D0 18 BNE $9C1D
.C:9c05 A0 22 LDY #$22
.C:9c07 B1 9B LDA ($9B),Y
.C:9c09 D0 0C BNE $9C17
.C:9c0b C8 INY
.C:9c0c B1 9B LDA ($9B),Y
.C:9c0e 38 SEC
.C:9c0f E9 01 SBC #$01
.C:9c11 4A LSR A
.C:9c12 4A LSR A
.C:9c13 C9 08 CMP #$08
.C:9c15 90 02 BCC $9C19
.C:9c17 A9 07 LDA #$07
.C:9c19 A0 4F LDY #$4F
.C:9c1b 91 9B STA ($9B),Y
.C:9c1d 20 90 08 JSR $0890
.C:9c20 A5 5A LDA $5A
.C:9c22 29 07 AND #$07
.C:9c24 C9 05 CMP #$05
.C:9c26 90 03 BCC $9C2B
.C:9c28 38 SEC
.C:9c29 E9 05 SBC #$05
.C:9c2b AA TAX
.C:9c2c A0 00 LDY #$00
.C:9c2e BD B0 03 LDA $03B0,X
.C:9c31 C9 12 CMP #$12
.C:9c33 90 0F BCC $9C44
.C:9c35 E8 INX
.C:9c36 C8 INY
.C:9c37 E0 05 CPX #$05
.C:9c39 D0 02 BNE $9C3D
.C:9c3b A2 00 LDX #$00
.C:9c3d C0 05 CPY #$05
.C:9c3f 90 ED BCC $9C2E
.C:9c41 4C EF 9A JMP $9AEF
.C:9c44 FE B0 03 INC $03B0,X
.C:9c47 86 65 STX $65
.C:9c49 20 57 08 JSR $0857
.C:9c4c A0 13 LDY #$13
.C:9c4e A2 03 LDX #$03
.C:9c50 BD B8 03 LDA $03B8,X
.C:9c53 91 9B STA ($9B),Y
.C:9c55 88 DEY
.C:9c56 CA DEX
.C:9c57 10 F7 BPL $9C50
.C:9c59 A0 A0 LDY #$A0
.C:9c5b A2 A5 LDX #$A5
.C:9c5d 20 06 08 JSR $0806 "+1 to "
.C:9c60 A6 65 LDX $65
.C:9c62 A9 AC LDA #$AC
.C:9c64 18 CLC
.C:9c65 7D DE A0 ADC $A0DE,X
.C:9c68 AA TAX
.C:9c69 A9 A0 LDA #$A0
.C:9c6b 69 00 ADC #$00
.C:9c6d A8 TAY
.C:9c6e 20 06 08 JSR $0806 [Random Attribute]
.C:9c71 4C EF 9A JMP $9AEF
.C:9c74 08 PHP
.C:9c75 41 08 EOR ($08,X)
.C:9c77 40 RTI
.C:9c78 20 E1 08 JSR $08E1
.C:9c7b A0 A2 LDY #$A2
.C:9c7d A2 E1 LDX #$E1
.C:9c7f 20 06 08 JSR $0806 "Who seeks knowledge of the..."
.C:9c82 20 8D 08 JSR $088D
.C:9c85 B0 0A BCS $9C91
.C:9c87 84 9B STY $9B
.C:9c89 85 9C STA $9C
.C:9c8b A0 00 LDY #$00
.C:9c8d B1 9B LDA ($9B),Y
.C:9c8f D0 03 BNE $9C94
.C:9c91 4C 05 9A JMP $9A05
.C:9c94 A0 38 LDY #$38
.C:9c96 B1 9B LDA ($9B),Y
.C:9c98 F0 08 BEQ $9CA2
.C:9c9a C9 0A CMP #$0A
.C:9c9c F0 18 BEQ $9CB6
.C:9c9e C9 05 CMP #$05
.C:9ca0 90 14 BCC $9CB6
.C:9ca2 A0 A3 LDY #$A3
.C:9ca4 A2 12 LDX #$12
.C:9ca6 20 06 08 JSR $0806 "Thou art not a spell caster!"
.C:9ca9 A0 A3 LDY #$A3
.C:9cab A2 42 LDX #$42
.C:9cad 20 06 08 JSR $0806 "[CR][CR]Press Any Key..."
.C:9cb0 20 78 08 JSR $0878 Get keypress
.C:9cb3 4C 05 9A JMP $9A05
.C:9cb6 AA TAX
.C:9cb7 85 72 STA $72
.C:9cb9 BC 2F A3 LDY $A32F,X
.C:9cbc B1 9B LDA ($9B),Y
.C:9cbe 85 97 STA $97
.C:9cc0 C9 07 CMP #$07
.C:9cc2 90 0A BCC $9CCE
.C:9cc4 A0 A1 LDY #$A1
.C:9cc6 A2 E3 LDX #$E3
.C:9cc8 20 06 08 JSR $0806 "Thou art at thy highest level..."
.C:9ccb 4C A9 9C JMP $9CA9
.C:9cce A0 22 LDY #$22
.C:9cd0 B1 9B LDA ($9B),Y
.C:9cd2 D0 17 BNE $9CEB
.C:9cd4 C8 INY
.C:9cd5 B1 9B LDA ($9B),Y
.C:9cd7 18 CLC
.C:9cd8 69 01 ADC #$01
.C:9cda 4A LSR A
.C:9cdb C5 97 CMP $97
.C:9cdd F0 02 BEQ $9CE1
.C:9cdf B0 0A BCS $9CEB
.C:9ce1 A0 A2 LDY #$A2
.C:9ce3 A2 13 LDX #$13
.C:9ce5 20 06 08 JSR $0806 "Thou cannot acquire new spells..."
.C:9ce8 4C A9 9C JMP $9CA9
.C:9ceb A5 72 LDA $72
.C:9ced 0A ASL A
.C:9cee AA TAX
.C:9cef BC A8 A3 LDY $A3A8,X
.C:9cf2 BD A7 A3 LDA $A3A7,X
.C:9cf5 AA TAX
.C:9cf6 20 06 08 JSR $0806 {Print class for character}
.C:9cf9 A0 A2 LDY #$A2
.C:9cfb A2 A4 LDX #$A4
.C:9cfd 20 06 08 JSR $0806 " spell level "
.C:9d00 A5 97 LDA $97
.C:9d02 18 CLC
.C:9d03 69 B1 ADC #$B1
.C:9d05 20 03 08 JSR $0803
.C:9d08 A0 A2 LDY #$A2
.C:9d0a A2 B2 LDX #$B2
.C:9d0c 20 06 08 JSR $0806 " will cost thee "
.C:9d0f A4 97 LDY $97
.C:9d11 C8 INY
.C:9d12 BE 3A A3 LDX $A33A,Y
.C:9d15 A0 24 LDY #$24
.C:9d17 20 1E 08 JSR $081E
.C:9d1a 08 PHP
.C:9d1b 20 2D 08 JSR $082D
.C:9d1e 28 PLP
.C:9d1f 90 0A BCC $9D2B
.C:9d21 A0 A2 LDY #$A2
.C:9d23 A2 37 LDX #$37
.C:9d25 20 06 08 JSR $0806 " in gold. The Spell Sages refuse..."
.C:9d28 4C A9 9C JMP $9CA9
.C:9d2b A0 A2 LDY #$A2
.C:9d2d A2 C3 LDX #$C3
.C:9d2f 20 06 08 JSR $0806 " in gold. Will you pay?"
.C:9d32 20 78 08 JSR $0878 Get keypress
.C:9d35 20 87 08 JSR $0887 Evaluate keypress
.C:9d38 C9 D9 CMP #$D9
.C:9d3a F0 07 BEQ $9D43 Yes? Go $9d43
.C:9d3c C9 CE CMP #$CE
.C:9d3e D0 F2 BNE $9D32 No? No? Go $9d32
.C:9d40 4C 05 9A JMP $9A05
.C:9d43 A0 24 LDY #$24
.C:9d45 20 24 08 JSR $0824
.C:9d48 A0 A2 LDY #$A2
.C:9d4a A2 78 LDX #$78
.C:9d4c 20 06 08 JSR $0806 "[CR][CR]The Spell Sages have..."
.C:9d4f A6 72 LDX $72
.C:9d51 BC 2F A3 LDY $A32F,X
.C:9d54 B1 9B LDA ($9B),Y
.C:9d56 18 CLC
.C:9d57 69 01 ADC #$01
.C:9d59 91 9B STA ($9B),Y
.C:9d5b 4C A9 9C JMP $9CA9
.C:9d5e 20 E1 08 JSR $08E1
.C:9d61 A0 A0 LDY #$A0
.C:9d63 A2 E3 LDX #$E3
.C:9d65 20 06 08 JSR $0806 "Which mage seeks to change..."
.C:9d68 20 8D 08 JSR $088D
.C:9d6b B0 2C BCS $9D99
.C:9d6d 84 9B STY $9B
.C:9d6f 85 9C STA $9C
.C:9d71 A0 00 LDY #$00
.C:9d73 B1 9B LDA ($9B),Y
.C:9d75 F0 22 BEQ $9D99
.C:9d77 A0 38 LDY #$38
.C:9d79 B1 9B LDA ($9B),Y
.C:9d7b F0 08 BEQ $9D85
.C:9d7d C9 0A CMP #$0A
.C:9d7f F0 1B BEQ $9D9C
.C:9d81 C9 05 CMP #$05
.C:9d83 90 17 BCC $9D9C
.C:9d85 A0 A3 LDY #$A3
.C:9d87 A2 12 LDX #$12
.C:9d89 20 06 08 JSR $0806 "Thou art not a spell caster!"
.C:9d8c A0 A3 LDY #$A3
.C:9d8e A2 42 LDX #$42
.C:9d90 20 06 08 JSR $0806 "[CR][CR]Press Any Key..."
.C:9d93 20 78 08 JSR $0878 Get keypress
.C:9d96 20 48 08 JSR $0848
.C:9d99 4C 05 9A JMP $9A05
.C:9d9c AA TAX
.C:9d9d BC 2F A3 LDY $A32F,X
.C:9da0 B1 9B LDA ($9B),Y
.C:9da2 C9 03 CMP #$03
.C:9da4 B0 0A BCS $9DB0
.C:9da6 A0 A1 LDY #$A1
.C:9da8 A2 10 LDX #$10
.C:9daa 20 06 08 JSR $0806 "[CR][CR]Thou must know at least..."
.C:9dad 4C 8C 9D JMP $9D8C
.C:9db0 20 E1 08 JSR $08E1
.C:9db3 A6 9B LDX $9B
.C:9db5 A4 9C LDY $9C
.C:9db7 20 06 08 JSR $0806 [CHARACTER NAME]
.C:9dba 20 0C 08 JSR $080C
.C:9dbd 20 54 08 JSR $0854
.C:9dc0 20 0C 08 JSR $080C
.C:9dc3 A2 00 LDX #$00
.C:9dc5 86 6B STX $6B
.C:9dc7 A0 40 LDY #$40
.C:9dc9 B1 9B LDA ($9B),Y
.C:9dcb F0 18 BEQ $9DE5
.C:9dcd E6 6B INC $6B
.C:9dcf C8 INY
.C:9dd0 E8 INX
.C:9dd1 E0 04 CPX #$04
.C:9dd3 D0 02 BNE $9DD7
.C:9dd5 A0 64 LDY #$64
.C:9dd7 E0 05 CPX #$05
.C:9dd9 90 EE BCC $9DC9
.C:9ddb A0 A1 LDY #$A1
.C:9ddd A2 7E LDX #$7E
.C:9ddf 20 06 08 JSR $0806 "Thou cannot change to an old..."
.C:9de2 4C 8C 9D JMP $9D8C
.C:9de5 E0 03 CPX #$03
.C:9de7 D0 09 BNE $9DF2
.C:9de9 A5 6B LDA $6B
.C:9deb C9 02 CMP #$02
.C:9ded 90 24 BCC $9E13
.C:9def 4C FC 9D JMP $9DFC
.C:9df2 E0 04 CPX #$04
.C:9df4 D0 06 BNE $9DFC
.C:9df6 A5 6B LDA $6B
.C:9df8 C9 04 CMP #$04
.C:9dfa 90 17 BCC $9E13
.C:9dfc 8A TXA
.C:9dfd 48 PHA
.C:9dfe 98 TYA
.C:9dff 48 PHA
.C:9e00 BD DE A1 LDA $A1DE,X
.C:9e03 18 CLC
.C:9e04 69 A4 ADC #$A4
.C:9e06 AA TAX
.C:9e07 A9 A1 LDA #$A1
.C:9e09 69 00 ADC #$00
.C:9e0b A8 TAY
.C:9e0c 20 06 08 JSR $0806 {# Experience Points to go?}
.C:9e0f 68 PLA
.C:9e10 A8 TAY
.C:9e11 68 PLA
.C:9e12 AA TAX
.C:9e13 E8 INX
.C:9e14 C8 INY
.C:9e15 E0 04 CPX #$04
.C:9e17 D0 02 BNE $9E1B
.C:9e19 A0 64 LDY #$64
.C:9e1b E0 05 CPX #$05
.C:9e1d F0 08 BEQ $9E27
.C:9e1f B1 9B LDA ($9B),Y
.C:9e21 F0 C2 BEQ $9DE5
.C:9e23 E6 6B INC $6B
.C:9e25 D0 EC BNE $9E13
.C:9e27 20 0C 08 JSR $080C
.C:9e2a 20 0C 08 JSR $080C
.C:9e2d A0 A3 LDY #$A3
.C:9e2f A2 BD LDX #$BD
.C:9e31 20 06 08 JSR $0806 "(RET to abort)"
.C:9e34 20 78 08 JSR $0878 Get keypress
.C:9e37 20 87 08 JSR $0887 Evaluate keypress
.C:9e3a C9 8D CMP #$8D
.C:9e3c D0 03 BNE $9E41 RETURN? No? Go $9e41
.C:9e3e 4C 05 9A JMP $9A05
.C:9e41 C9 D3 CMP #$D3
.C:9e43 D0 04 BNE $9E49 Sorcerer? No? GO $9e49
.C:9e45 A0 40 LDY #$40
.C:9e47 D0 1E BNE $9E67 Check for requisite spell levels
.C:9e49 C9 C3 CMP #$C3
.C:9e4b D0 04 BNE $9E51 Conjuror? No? Go $9e51
.C:9e4d A0 41 LDY #$41
.C:9e4f D0 16 BNE $9E67 Check for requisite spell levels
.C:9e51 C9 CD CMP #$CD
.C:9e53 D0 04 BNE $9E59 Magician? No? Go $9e59
.C:9e55 A0 42 LDY #$42
.C:9e57 D0 0E BNE $9E67 Check for requisite spell levels
.C:9e59 C9 C1 CMP #$C1
.C:9e5b D0 04 BNE $9E61 Archmage? No? Go $9e61
.C:9e5d A0 64 LDY #$64
.C:9e5f D0 06 BNE $9E67 Check for requisite spell levels
.C:9e61 C9 D7 CMP #$D7
.C:9e63 D0 CF BNE $9E34 Wizard? No? Go $9e34
.C:9e65 A0 43 LDY #$43
.C:9e67 B1 9B LDA ($9B),Y Check for requisite spell levels
.C:9e69 D0 C9 BNE $9E34
.C:9e6b C0 43 CPY #$43
.C:9e6d D0 08 BNE $9E77
.C:9e6f A5 6B LDA $6B
.C:9e71 C9 02 CMP #$02
.C:9e73 90 BF BCC $9E34
.C:9e75 B0 0A BCS $9E81
.C:9e77 C0 64 CPY #$64
.C:9e79 D0 06 BNE $9E81
.C:9e7b A5 6B LDA $6B
.C:9e7d C9 04 CMP #$04
.C:9e7f 90 B3 BCC $9E34
.C:9e81 A9 01 LDA #$01
.C:9e83 91 9B STA ($9B),Y
.C:9e85 98 TYA
.C:9e86 38 SEC
.C:9e87 E9 3E SBC #$3E
.C:9e89 C9 26 CMP #$26
.C:9e8b D0 04 BNE $9E91
.C:9e8d A9 0A LDA #$0A
.C:9e8f D0 06 BNE $9E97
.C:9e91 C9 05 CMP #$05
.C:9e93 D0 02 BNE $9E97
.C:9e95 A9 01 LDA #$01
.C:9e97 A0 38 LDY #$38
.C:9e99 91 9B STA ($9B),Y
.C:9e9b A0 23 LDY #$23
.C:9e9d A9 01 LDA #$01
.C:9e9f 91 9B STA ($9B),Y
.C:9ea1 88 DEY
.C:9ea2 A9 00 LDA #$00
.C:9ea4 91 9B STA ($9B),Y
.C:9ea6 88 DEY
.C:9ea7 C0 1F CPY #$1F
.C:9ea9 D0 F2 BNE $9E9D
.C:9eab 91 9B STA ($9B),Y
.C:9ead 88 DEY
.C:9eae C0 14 CPY #$14
.C:9eb0 B0 F9 BCS $9EAB
.C:9eb2 A0 A1 LDY #$A1
.C:9eb4 A2 76 LDX #$76
.C:9eb6 20 06 08 JSR $0806 "[CR][CR]Done!"
.C:9eb9 4C 8C 9D JMP $9D8C
.C:9ebc D2 JAM [R]
.C:9ebd E5 F6 SBC $F6 [e][v]
.C:9ebf E9 E5 SBC #$E5 [i][e]
.C:9ec1 F7 A0 ISB $A0,X [w][_]
.C:9ec3 C2 EF NOOP #$EF [B][o]
.C:9ec5 E1 F2 SBC ($F2,X) [a][r]
.C:9ec7 E4 FF CPX $FF [d][Input]
.C:9ec9 D4 E8 NOOP $E8,X [T][h]
.C:9ecb E5 A0 SBC $A0 [e][_]
.C:9ecd D2 JAM [R]
.C:9ece E5 F6 SBC $F6 [e][v]
.C:9ed0 E9 E5 SBC #$E5 [i][e]
.C:9ed2 F7 A0 ISB $A0,X [w][_]
.C:9ed4 C2 EF NOOP #$EF [B][o]
.C:9ed6 E1 F2 SBC ($F2,X) [a][r]
.C:9ed8 E4 A0 CPX $A0 [d][_]
.C:9eda E9 F3 SBC #$F3 [i][s]
.C:9edc A0 E3 LDY #$E3 [_][c]
.C:9ede EC EF F3 CPX $F3EF [l][o][s]
.C:9ee1 E5 E4 SBC $E4 [e][d]
.C:9ee3 A0 E6 LDY #$E6 [_][f]
.C:9ee5 EF F2 A0 ISB $A0F2 [o][r][_]
.C:9ee8 F4 E8 NOOP $E8,X [t][h]
.C:9eea E5 A0 SBC $A0 [e][_]
.C:9eec E5 F6 SBC $F6 [e][v]
.C:9eee E5 EE SBC $EE [e][n]
.C:9ef0 E9 EE SBC #$EE [i][n]
.C:9ef2 E7 AE ISB $AE [g][.]
.C:9ef4 A0 D4 LDY #$D4 [_][T]
.C:9ef6 E8 INX [h]
.C:9ef7 E5 A0 SBC $A0 [e][_]
.C:9ef9 C7 F5 DCP $F5 [G][u]
.C:9efb E9 EC SBC #$EC [i][l]
.C:9efd E4 A0 CPX $A0 [d][_]
.C:9eff EC E5 E1 CPX $E1E5 [l][e][a]
.C:9f02 E4 E5 CPX $E5 [d][e]
.C:9f04 F2 JAM [r]
.C:9f05 F3 A0 ISB ($A0),Y [s][_]
.C:9f07 F7 E9 ISB $E9,X [w][i]
.C:9f09 EC EC A0 CPX $A0EC [l][l][_]
.C:9f0c ED E5 E5 SBC $E5E5 [m][e][e]
.C:9f0f F4 A0 NOOP $A0,X [t][_]
.C:9f11 F7 E9 ISB $E9,X [w][i]
.C:9f13 F4 E8 NOOP $E8,X [t][h]
.C:9f15 A0 F9 LDY #$F9 [_][y]
.C:9f17 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9f1a E9 EE SBC #$EE [i][n]
.C:9f1c A0 F4 LDY #$F4 [_][t]
.C:9f1e E8 INX [h]
.C:9f1f E5 A0 SBC $A0 [e][_]
.C:9f21 ED EF F2 SBC $F2EF [m][o][r]
.C:9f24 EE E9 EE INC $EEE9 [n][i][n]
.C:9f27 E7 AE ISB $AE [g][.]
.C:9f29 00 BRK [CR]
.C:9f2a 00 BRK [CR]
.C:9f2b A8 TAY [(]
.C:9f2c D0 F2 BNE $9F20 [P][r]
.C:9f2e E5 F3 SBC $F3 [e][s]
.C:9f30 F3 A0 ISB ($A0),Y [s][_]
.C:9f32 E1 A0 SBC ($A0,X) [a][_]
.C:9f34 EB E5 USBC #$E5 [k][e]
.C:9f36 F9 A0 F4 SBC $F4A0,Y [y][_][t]
.C:9f39 EF A0 E5 ISB $E5A0 [o][_][e]
.C:9f3c F8 SED [x]
.C:9f3d E9 F4 SBC #$F4 [i][t]
.C:9f3f A9 DC LDA #$DC [)][EOT]
.C:9f41 D4 E8 NOOP $E8,X [T][h]
.C:9f43 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9f46 F3 F4 ISB ($F4),Y [s][t]
.C:9f48 E1 EE SBC ($EE,X) [a][n]
.C:9f4a E4 E5 CPX $E5 [d][e]
.C:9f4c F4 E8 NOOP $E8,X [t][h]
.C:9f4e A0 E2 LDY #$E2 [_][b]
.C:9f50 E5 E6 SBC $E6 [e][f]
.C:9f52 EF F2 E5 ISB $E5F2 [o][r][e]
.C:9f55 A0 F4 LDY #$F4 [_][T]
.C:9f57 E8 INX [h]
.C:9f58 E5 A0 SBC $A0 [e][_]
.C:9f5a C2 EF NOOP #$EF [B][o]
.C:9f5c E1 F2 SBC ($F2,X) [a][r]
.C:9f5e E4 A0 CPX $A0 [d][_]
.C:9f60 EF E6 A0 ISB $A0E6 [o][f][_]
.C:9f63 D2 JAM [R]
.C:9f64 E5 F6 SBC $F6 [e][v]
.C:9f66 E9 E5 SBC #$E5 [i][e]
.C:9f68 F7 AE ISB $AE,X [w][.]
.C:9f6a A0 D7 LDY #$D7 [_][W]
.C:9f6c EF F5 EC ISB $ECF5 [o][u][l]
.C:9f6f E4 F3 CPX $F3 [d][s]
.C:9f71 F4 A0 NOOP $A0,X [t][_]
.C:9f73 F4 E8 NOOP $E8,X [t][h]
.C:9f75 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9f78 EC E9 EB CPX $EBE9 [l][i][k]
.C:9f7b E5 A0 SBC $A0 [e][_]
.C:9f7d F4 EF NOOP $EF,X [t][o]
.C:9f7f A0 E2 LDY #$E2 [_][b]
.C:9f81 E5 A0 SBC $A0 [e][_]
.C:9f83 F2 JAM [r]
.C:9f84 E5 F6 SBC $F6 [e][v]
.C:9f86 E9 E5 SBC #$E5 [i][e]
.C:9f88 F7 E5 ISB $E5,X [w][e]
.C:9f8a E4 A0 CPX $A0 [d][_]
.C:9f8c E6 EF INC $EF [f][o]
.C:9f8e F2 JAM [r]
.C:9f8f 00 BRK [CR]
.C:9f90 00 BRK [CR]
.C:9f91 A8 TAY [(]
.C:9f92 C1 A9 CMP ($A9,X) [A][)]
.C:9f94 E4 F6 CPX $F6 [d][v]
.C:9f96 E1 EE SBC ($EE,X) [a][n]
.C:9f98 E3 E5 ISB ($E5,X) [c][e]
.C:9f9a ED E5 EE SBC $EEE5 [m][e][n]
.C:9f9d F4 00 NOOP $00,X [t][CR]
.C:9f9f A8 TAY [(]
.C:9fa0 D3 A9 DCP ($A9),Y [S][)]
.C:9fa2 F0 E5 BEQ $9F89 [p][e]
.C:9fa4 EC EC A0 CPX $A0EC [l][l][_]
.C:9fa7 C1 E3 CMP ($E3,X) [A][c]
.C:9fa9 F1 F5 SBC ($F5),Y [q][u]
.C:9fab E9 F2 SBC #$F2 [i][r]
.C:9fad E9 EE SBC #$EE [i][n]
.C:9faf E7 00 ISB $00 [g][CR]
.C:9fb1 A8 TAY [(]
.C:9fb2 C3 A9 DCP ($A9,X) [C][)]
.C:9fb4 EC E1 F3 CPX $F3E1 [l][a][s]
.C:9fb7 F3 A0 ISB ($A0),Y [s][_]
.C:9fb9 C3 E8 DCP ($E8,X) [C][h]
.C:9fbb E1 EE SBC ($EE,X) [a][n]
.C:9fbd E7 E5 ISB $E5 [g][e]
.C:9fbf 00 BRK [CR]
.C:9fc0 A8 TAY [(]
.C:9fc1 C5 A9 CMP $A9 [E][)]
.C:9fc3 F8 SED [x]
.C:9fc4 E9 F4 SBC #$F4 [i][t]
.C:9fc6 A0 D2 LDY #$D2 [_][R]
.C:9fc8 E5 F6 SBC $F6 [e][v]
.C:9fca E9 E5 SBC #$E5 [i][e]
.C:9fcc F7 FF ISB $FF,X [w][Input]
.C:9fce 0F 07 07 SLO $0707 Data field...
.C:9fd1 03 03 SLO ($03,X)
.C:9fd3 07 0F SLO $0F
.C:9fd5 0F 0F 07 SLO $070F
.C:9fd8 07
.C:9fd9 D7 [W]
.C:9fda E8 INX [h]
.C:9fdb EF A0 F3 ISB $F3A0 [o][_][s]
.C:9fde E8 INX [h]
.C:9fdf E1 EC SBC ($EC,X) [a][l]
.C:9fe1 EC A0 E2 CPX $E2A0 [l][_][b]
.C:9fe4 E5 A0 SBC $A0 [e][_]
.C:9fe6 F2 JAM [r]
.C:9fe7 E5 F6 SBC $F6 [e][v]
.C:9fe9 E9 E5 SBC #$E5 [i][e]
.C:9feb F7 E5 ISB $E5,X [w][e]
.C:9fed E4 BF CPX $BF [d][?]
.C:9fef A0 A3 LDY #$A3 [_][#]
.C:9ff1 A8 TAY [(]
.C:9ff2 B0 AD BCS $9FA1 [0][-]
.C:9ff4 B6 A9 LDX $A9,Y [6][)]
.C:9ff6 FF D4 E8 ISB $E8D4,X [Input][T][h]
.C:9ff9 E5 A0 SBC $A0 [e][_]
.C:9ffb C7 F5 DCP $F5 [G][u]
.C:9ffd E9 EC SBC #$EC [i][l]
.C:9fff E4 A0 CPX $A0 [d][_]
.C:a001 EC E5 E1 CPX $E1E5 [l][e][a]
.C:a004 E4 E5 CPX $E5 [d][e]
.C:a006 F2 JAM [r]
.C:a007 F3 A0 ISB ($A0),Y [s][_]
.C:a009 F0 F2 BEQ $9FFD [p][r]
.C:a00b E5 F0 SBC $F0 [e][p]
.C:a00d E1 F2 SBC ($F2,X) [a][r]
.C:a00f E5 A0 SBC $A0 [e][_]
.C:a011 F4 EF NOOP $EF,X [t][o]
.C:a013 A0 F7 LDY #$F7 [_][w]
.C:a015 E5 E9 SBC $E9 [e][i]
.C:a017 E7 E8 ISB $E8 [g][h]
.C:a019 A0 F4 LDY #$F4 [_][t]
.C:a01b E8 INX [h]
.C:a01c F9 A0 ED SBC $EDA0,Y [y][_][m]
.C:a01f E5 F2 SBC $F2 [e][r]
.C:a021 E9 F4 SBC #$F4 [i][t]
.C:a023 F3 AE ISB ($AE),Y [s][.]
.C:a025 00 BRK [CR]
.C:a026 00 BRK [CR]
.C:a027 FF D4 E8 ISB $E8D4,X [Input][T][h]
.C:a02a E5 A0 SBC $A0 [e][_]
.C:a02c C7 F5 DCP $F5 [G][u]
.C:a02e E9 EC SBC #$EC [i][l]
.C:a030 E4 A0 CPX $A0 [d][_]
.C:a032 EC E5 E1 CPX $E1E5 [l][e][a]
.C:a035 E4 E5 CPX $E5 [d][e]
.C:a037 F2 JAM [r]
.C:a038 F3 A0 ISB ($A0),Y [s][_]
.C:a03a E4 E5 CPX $E5 [d][e]
.C:a03c E5 ED SBC $ED [e][m]
.C:a03e A0 F4 LDY #$F4 [_][t]
.C:a040 E8 INX [h]
.C:a041 E1 F4 SBC ($F4,X) [a][t]
.C:a043 A0 FF LDY #$FF [_][Input]
.C:a045 A0 E8 LDY #$E8 [_][h]
.C:a047 E1 F4 SBC ($F4,X) [a][t]
.C:a049 E8 INX [h]
.C:a04a A0 E5 LDY #$E5 [_][e]
.C:a04c E1 F2 SBC ($F2,X) [a][r]
.C:a04e EE E5 E4 INC $E4E5 [n][e][d]
.C:a051 A0 E1 LDY #$E1 [_][a]
.C:a053 A0 EC LDY #$EC [_][l]
.C:a055 E5 F6 SBC $F6 [e][v]
.C:a057 E5 EC SBC $EC [e][l]
.C:a059 A0 EF LDY #$EF [_][o]
.C:a05b E6 A0 INC $A0 [f][_]
.C:a05d E1 E4 SBC ($E4,X) [a][d]
.C:a05f F6 E1 INC $E1,X [v][a]
.C:a061 EE E3 E5 INC $E5E3 [n][c][e]
.C:a064 ED E5 EE SBC $EEE5 [m][e][n]
.C:a067 F4 AE NOOP $AE,X [t][.]
.C:a069 AE AE FF LDX $FFAE [.][.][Input]
.C:a06c A0 F3 LDY #$F3 [_][s]
.C:a06e F4 E9 NOOP $E9,X [t][i]
.C:a070 EC EC A0 CPX $A0EC [l][l][_]
.C:a073 EE E5 E5 INC $E5E5 [n][e][e]
.C:a076 E4 E5 CPX $E5 [d][e]
.C:a078 F4 E8 NOOP $E8,X [t][h]
.C:a07a A0 FF LDY #$FF [_][Input]
.C:a07c A0 E5 LDY #$E5 [_][e]
.C:a07e F8 SED [x]
.C:a07f F0 E5 BEQ $A066 [p][e]
.C:a081 F2 JAM [r]
.C:a082 E9 E5 SBC #$E5 [i][e]
.C:a084 EE E3 E5 INC $E5E3 [n][c][e]
.C:a087 A0 F0 LDY #$F0 [_][p]
.C:a089 EF E9 EE ISB $EEE9 [o][i][n]
.C:a08c F4 F3 NOOP $F3,X [t][s]
.C:a08e A0 F0 LDY #$F0 [_][p]
.C:a090 F2 JAM [r]
.C:a091 E9 EF SBC #$EF [i][o]
.C:a093 F2 JAM [r]
.C:a094 A0 F4 LDY #$F4 [_][t]
.C:a096 EF A0 E1 ISB $E1A0 [o][_][a]
.C:a099 E4 F6 CPX $F6 [d][v]
.C:a09b E1 EE SBC ($EE,X) [a][n]
.C:a09d E3 E5 ISB ($E5,X) [c][e]
.C:a09f ED E5 EE SBC $EEE5 [m][e][n]
.C:a0a2 F4 AE NOOP $AE,X [t][.]
.C:a0a4 FF AB B1 ISB $B1AB,X [Input][+][1]
.C:a0a7 A0 F4 LDY #$F4 [_][t]
.C:a0a9 EF A0 FF ISB $FFA0 [o][_][Input]
.C:a0ac F3 F4 ISB ($F4),Y [s][t]
.C:a0ae F2 JAM [r]
.C:a0af E5 EE SBC $EE [e][n]
.C:a0b1 E7 F4 ISB $F4 [g][t]
.C:a0b3 E8 INX [h]
.C:a0b4 FF E9 EE ISB $EEE9,X [Input][i][n]
.C:a0b7 F4 E5 NOOP $E5,X [t][e]
.C:a0b9 EC EC E9 CPX $E9EC [l][l][i]
.C:a0bc E7 E5 ISB $E5 [g][e]
.C:a0be EE E3 E5 INC $E5E3 [n][c][e]
.C:a0c1 FF E4 E5 ISB $E5E4,X [Input][d][e]
.C:a0c4 F8 SED [x]
.C:a0c5 F4 E5 NOOP $E5,X [t][e]
.C:a0c7 F2 JAM [r]
.C:a0c8 E9 F4 SBC #$F4 [i][t]
.C:a0ca F9 FF E3 SBC $E3FF,Y [y][Input][c]
.C:a0cd EF A0 F3 ISB $F3A0 [o][_][s]
.C:a0d0 F4 E9 NOOP $E9,X [t][i]
.C:a0d2 F4 F5 NOOP $F5,X [t][u]
.C:a0d4 F4 E9 NOOP $E9,X [t][i]
.C:a0d6 EF A0 FF ISB $FFA0 [o][_][Input] "Co stitutio "???
.C:a0d9 EC F5 E3 CPX $E3F5 [l][u][c]
.C:a0dc EB FF USBC #$FF [k][Input]
.C:a0de 00 BRK Table...
.C:a0df 09 16 ORA #$16
.C:a0e1 20 2D
.C:a0e3 D7 [W]
.C:a0e4 E8 INX [h]
.C:a0e5 E9 E3 SBC #$E3 [i][c]
.C:a0e7 E8 INX [h]
.C:a0e8 A0 ED LDY #$ED [_][m]
.C:a0ea E1 E7 SBC ($E7,X) [a][g]
.C:a0ec E5 A0 SBC $A0 [e][_]
.C:a0ee F3 E5 ISB ($E5),Y [s][e]
.C:a0f0 E5 EB SBC $EB [e][k]
.C:a0f2 F3 A0 ISB ($A0),Y [s][_]
.C:a0f4 F4 EF NOOP $EF,X [t][o]
.C:a0f6 A0 E3 LDY #$E3 [_][c]
.C:a0f8 E8 INX [h]
.C:a0f9 E1 EE SBC ($EE,X) [a][n]
.C:a0fb E7 E5 ISB $E5 [g][e]
.C:a0fd A0 E8 LDY #$E8 [_][h]
.C:a0ff E9 F3 SBC #$F3 [i][s]
.C:a101 A0 E3 LDY #$E3 [_][c]
.C:a103 EC E1 F3 CPX $F3E1 [l][a][s]
.C:a106 F3 BF ISB ($BF),Y [s][?]
.C:a108 A0 A3 LDY #$A3 [_][#]
.C:a10a A8 TAY [(]
.C:a10b B0 AD BCS $A0BA [0][-]
.C:a10d B6 A9 LDX $A9,Y [6][)]
.C:a10f FF 00 00 ISB $0000,X [Input][CR][CR]
.C:a112 D4 E8 NOOP $E8,X [T][h]
.C:a114 EF F5 A0 ISB $A0F5 [o][u][_]
.C:a117 ED F5 F3 SBC $F3F5 [m][u][s]t
.C:a11a F4 A0 NOOP $A0,X [t][_]
.C:a11c EB EE USBC #$EE [k][n]
.C:a11e EF F7 A0 ISB $A0F7 [o][w][_]
.C:a121 E1 F4 SBC ($F4,X) [a][t]
.C:a123 A0 EC LDY #$EC [_][l]
.C:a125 E5 E1 SBC $E1 [e][a]
.C:a127 F3 F4 ISB ($F4),Y [s][t]
.C:a129 A0 B3 LDY #$B3 [_][3]
.C:a12b A0 F3 LDY #$F3 [_][s]
.C:a12d F0 E5 BEQ $A114 [p][e]
.C:a12f EC EC A0 CPX $A0EC [l][l][_]
.C:a132 EC E5 F6 CPX $F6E5 [l][e][v]
.C:a135 E5 EC SBC $EC [e][l]
.C:a137 F3 A0 ISB ($A0),Y [s][_]
.C:a139 E9 EE SBC #$EE [i][n]
.C:a13b A0 F9 LDY #$F9 [_][y]
.C:a13d EF F5 F2 ISB $F2F5 [o][u][r]
.C:a140 A0 F0 LDY #$F0 [_][p]
.C:a142 F2 JAM [r]
.C:a143 E5 F3 SBC $F3 [e][s]
.C:a145 E5 EE SBC $EE [e][n]
.C:a147 F4 A0 NOOP $A0,X [t][_]
.C:a149 E1 F2 SBC ($F2,X) [a][r]
.C:a14b F4 A0 NOOP $A0,X [t][_]
.C:a14d E6 E9 INC $E9 [f][i]
.C:a14f F2 JAM [r]
.C:a150 F3 F4 ISB ($F4),Y [s][t]
.C:a152 AE FF 00 LDX $00FF [.][Input][CR]
.C:a155 00 BRK [CR]
.C:a156 D7 E8 DCP $E8,X [W][h]
.C:a158 E9 E3 SBC #$E3 [i][c]
.C:a15a E8 INX [h]
.C:a15b A0 E3 LDY #$E3 [_][c]
.C:a15d EC E1 F3 CPX $F3E1 [l][a][s]
.C:a160 F3 A0 ISB ($A0),Y [s][_]
.C:a162 F7 E9 ISB $E9,X [w][i]
.C:a164 EC F4 A0 CPX $A0F4 [l][t][_]
.C:a167 F4 E8 NOOP $E8,X [t][h]
.C:a169 EF F5 A0 ISB $A0F5 [o][u][_]
.C:a16c E2 E5 NOOP #$E5 [b][e]
.C:a16e E3 EF ISB ($EF,X) [c][o]
.C:a170 ED E5 BF SBC $BFE5 [m][e][?]
.C:a173 00 BRK [CR]
.C:a174 00 BRK [CR]
.C:a175 FF 00 00 ISB $0000,X [Input][CR][CR]
.C:a178 C4 EF CPY $EF [D][o]
.C:a17a EE E5 A1 INC $A1E5 [n][e][!]
.C:a17d FF 00 00 ISB $0000,X [Input][CR][CR]
.C:a180 D4 E8 NOOP $E8,X [T][h]
.C:a182 EF F5 A0 ISB $A0F5 [o][u][_]
.C:a185 E3 E1 ISB ($E1,X) [c][a]
.C:a187 EE EE EF INC $EFEE [n][n][o]
.C:a18a F4 A0 NOOP $A0,X [t][_]
.C:a18c E3 E8 ISB ($E8,X) [c][h]
.C:a18e E1 EE SBC ($EE,X) [a][n]
.C:a190 E7 E5 ISB $E5 [g][e]
.C:a192 A0 F4 LDY #$F4 [_][t]
.C:a194 EF A0 E1 ISB $E1A0 [o][_][a]
.C:a197 EE A0 EF INC $EFA0 [n][_][o]
.C:a19a EC E4 A0 CPX $A0E4 [l][d][_]
.C:a19d E3 EC ISB ($EC,X) [c][l]
.C:a19f E1 F3 SBC ($F3,X) [a][s]
.C:a1a1 F3 A1 ISB ($A1),Y [s][!]
.C:a1a3 FF A8 D3 ISB $D3A8,X [Input][(][S]
.C:a1a6 A9 EF LDA #$EF [)][o]
.C:a1a8 F2 JAM [r]
.C:a1a9 E3 E5 ISB ($E5,X) [c][e]
.C:a1ab F2 JAM [r]
.C:a1ac E5 F2 SBC $F2 [e][r]
.C:a1ae 00 BRK [CR]
.C:a1af FF A8 C3 ISB $C3A8,X [Input][(][C]
.C:a1b2 A9 EF LDA #$EF [)][o]
.C:a1b4 EE EA F5 INC $F5EA [n][j][u]
.C:a1b7 F2 JAM [r]
.C:a1b8 E5 F2 SBC $F2 [e][r]
.C:a1ba 00 BRK [CR]
.C:a1bb FF A8 CD ISB $CDA8,X [Input][(][M]
.C:a1be A9 E1 LDA #$E1 [)][a]
.C:a1c0 E7 E9 ISB $E9 [g][i]
.C:a1c2 E3 E9 ISB ($E9,X) [c][i]
.C:a1c4 E1 EE SBC ($EE,X) [a][n]
.C:a1c6 00 BRK [CR]
.C:a1c7 FF A8 D7 ISB $D7A8,X [Input][(][W]
.C:a1ca A9 E9 LDA #$E9 [)][i]
.C:a1cc FA NOOP [z]
.C:a1cd E1 F2 SBC ($F2,X) [a][r]
.C:a1cf E4 00 CPX $00 [d][CR]
.C:a1d1 FF A8 C1 ISB $C1A8,X [Input][(][A]
.C:a1d4 A9 F2 LDA #$F2 [)][r]
.C:a1d6 E3 E8 ISB ($E8,X) [c][h]
.C:a1d8 ED E1 E7 SBC $E7E1 [m][a][g]
.C:a1db E5 00 SBC $00 [e][CR]
.C:a1dd FF [Input]
.C:a1de 00 0C ISB $0C00,X Data field
.C:a1e0 18 CLC
.C:a1e1 24 2E BIT $2E
.C:a1e3 D4 E8 NOOP $E8,X [T][h]
.C:a1e5 EF F5 A0 ISB $A0F5 [o][u][_]
.C:a1e8 E1 F2 SBC ($F2,X) [a][r]
.C:a1ea F4 A0 NOOP $A0,X [t][_]
.C:a1ec E1 F4 SBC ($F4,X) [a][t]
.C:a1ee A0 F4 LDY #$F4 [_][t]
.C:a1f0 E8 INX [h]
.C:a1f1 F9 A0 E8 SBC $E8A0,Y [y][_][h]
.C:a1f4 E9 E7 SBC #$E7 [i][g]
.C:a1f6 E8 INX [h]
.C:a1f7 E5 F3 SBC $F3 [e][s]
.C:a1f9 F4 A0 NOOP $A0,X [t][_]
.C:a1fb EC E5 F6 CPX $F6E5 [l][e][v]
.C:a1fe E5 EC SBC $EC [e][l]
.C:a200 A0 EF LDY #$EF [_][o]
.C:a202 E6 A0 INC $A0 [f][_]
.C:a204 F3 F0 ISB ($F0),Y [s][p]
.C:a206 E5 EC SBC $EC [e][l]
.C:a208 EC A0 E1 CPX $E1A0 [l][_][a]
.C:a20b E2 E9 NOOP #$E9 [b][i]
.C:a20d EC E9 F4 CPX $F4E9 [l][i][t]
.C:a210 F9 AE FF SBC $FFAE,Y [y][.][Input]
.C:a213 D4 E8 NOOP $E8,X [T][h]
.C:a215 EF F5 A0 ISB $A0F5 [o][u][_]
.C:a218 E3 E1 ISB ($E1,X) [c][a]
.C:a21a EE EE EF INC $EFEE [n][n][o]
.C:a21d F4 A0 NOOP $A0,X [t][_]
.C:a21f E1 E3 SBC ($E3,X) [a][c]
.C:a221 F1 F5 SBC ($F5),Y [q][u]
.C:a223 E9 F2 SBC #$F2 [i][r]
.C:a225 E5 A0 SBC $A0 [e][_]
.C:a227 EE E5 F7 INC $F7E5 [n][e][w]
.C:a22a A0 F3 LDY #$F3 [_][s]
.C:a22c F0 E5 BEQ $A213 [p][e]
.C:a22e EC EC F3 CPX $F3EC [l][l][s]
.C:a231 A0 F9 LDY #$F9 [_][y]
.C:a233 E5 F4 SBC $F4 [e][t]
.C:a235 AE FF A0 LDX $A0FF [.][Input][_]
.C:a238 E9 EE SBC #$EE [i][n]
.C:a23a A0 E7 LDY #$E7 [_][g]
.C:a23c EF EC E4 ISB $E4EC [o][l][d]
.C:a23f AE A0 D4 LDX $D4A0 [.][_][T]
.C:a242 E8 INX [h]
.C:a243 E5 A0 SBC $A0 [e][_]
.C:a245 D3 F0 DCP ($F0),Y [S][p]
.C:a247 E5 EC SBC $EC [e][l]
.C:a249 EC A0 D3 CPX $D3A0 [l][_][S]
.C:a24c E1 E7 SBC ($E7,X) [a][g]
.C:a24e E5 F3 SBC $F3 [e][s]
.C:a250 A0 F2 LDY #$F2 [_][r]
.C:a252 E5 E6 SBC $E6 [e][f]
.C:a254 F5 F3 SBC $F3,X [u][s]
.C:a256 E5 A0 SBC $A0 [e][_]
.C:a258 F4 EF NOOP $EF,X [t][o]
.C:a25a A0 F4 LDY #$F4 [_][t]
.C:a25c E5 E1 SBC $E1 [e][a]
.C:a25e E3 E8 ISB ($E8,X) [c][h]
.C:a260 A0 F9 LDY #$F9 [_][y]
.C:a262 EF F5 A0 ISB $A0F5 [o][u]
.C:a265 F5 EE SBC $EE,X [u][n]
.C:a267 F4 E9 NOOP $E9,X [t][i]
.C:a269 EC A0 F9 CPX $F9A0 [l][_][y]
.C:a26c EF F5 A0 ISB $A0F5 [o][u][_]
.C:a26f E3 E1 ISB ($E1,X) [c][a]
.C:a271 EE A0 F0 INC $F0A0 [n][_][p]
.C:a274 E1 F9 SBC ($F9,X) [a][y]
.C:a276 A1 FF LDA ($FF,X) [!][Input]
.C:a278 00 BRK [CR]
.C:a279 00 BRK [CR]
.C:a27a D4 E8 NOOP $E8,X [T][h]
.C:a27c E5 A0 SBC $A0 [e][_]
.C:a27e D3 F0 DCP ($F0),Y [S][p]
.C:a280 E5 EC SBC $EC [e][l]
.C:a282 EC A0 D3 CPX $D3A0 [l][_][S]
.C:a285 E1 E7 SBC ($E7,X) [a][g]
.C:a287 E5 F3 SBC $F3 [e][s]
.C:a289 A0 E8 LDY #$E8 [_][h]
.C:a28b E1 F6 SBC ($F6,X) [a][v]
.C:a28d E5 A0 SBC $A0 [e][_]
.C:a28f F4 E1 NOOP $E1,X [t][a]
.C:a291 F5 E7 SBC $E7,X [u][g]
.C:a293 E8 INX [h]
.C:a294 F4 A0 NOOP $A0,X [t][_]
.C:a296 F9 EF F5 SBC $F5EF,Y [y][o][u]
.C:a299 A0 F4 LDY #$F4 [_][t]
.C:a29b E8 INX [h]
.C:a29c E5 A0 SBC $A0 [e][_]
.C:a29e EC EF F2 CPX $F2EF [l][o][r]
.C:a2a1 E5 AE SBC $AE [e][.]
.C:a2a3 FF A0 F3 ISB $F3A0,X [Input][_][s]
.C:a2a6 F0 E5 BEQ $A28D [p][e]
.C:a2a8 EC EC A0 CPX $A0EC [l][l][_]
.C:a2ab EC E5 F6 CPX $F6E5 [l][e][v]
.C:a2ae E5 EC SBC $EC [e][l]
.C:a2b0 A0 FF LDY #$FF [_][Input]
.C:a2b2 A0 F7 LDY #$F7 [_][w]
.C:a2b4 E9 EC SBC #$EC [i][l]
.C:a2b6 EC A0 E3 CPX $E3A0 [l][_][c]
.C:a2b9 EF F3 F4 ISB $F4F3 [o][s][t]
.C:a2bc A0 F4 LDY #$F4 [_][t]
.C:a2be E8 INX [h]
.C:a2bf E5 E5 SBC $E5 [e][e]
.C:a2c1 A0 FF LDY #$FF [_][Input]
.C:a2c3 A0 E9 LDY #$E9 [_][i]
.C:a2c5 EE A0 E7 INC $E7A0 [n][_][g]
.C:a2c8 EF EC E4 ISB $E4EC [o][l][d]
.C:a2cb AE A0 D7 LDX $D7A0 [.][_][W]
.C:a2ce E9 EC SBC #$EC [i][l]
.C:a2d0 EC A0 F9 CPX $F9A0 [l][_][y]
.C:a2d3 EF F5 A0 ISB $A0F5 [o][u][_]
.C:a2d6 F0 E1 BEQ $A2B9 [p][a]
.C:a2d8 F9 A0 A8 SBC $A8A0,Y [y][_][(]
.C:a2db D9 AD CE CMP $CEAD,Y [Y][-][N]
.C:a2de A9 BF LDA #$BF [)][?]
.C:a2e0 FF D7 E8 ISB $E8D7,X [Input][W][h]
.C:a2e3 EF A0 F3 ISB $F3A0 [o][_][s]
.C:a2e6 E5 E5 SBC $E5 [e][e]
.C:a2e8 EB F3 USBC #$F3 [k][s]
.C:a2ea A0 EB LDY #$EB [_][k]
.C:a2ec EE EF F7 INC $F7EF [n][o][w]
.C:a2ef EC E5 E4 CPX $E4E5 [l][e][d]
.C:a2f2 E7 E5 ISB $E5 [g][e]
.C:a2f4 A0 EF LDY #$EF [_][o]
.C:a2f6 E6 A0 INC $A0 [f][_]
.C:a2f8 F4 E8 NOOP $E8,X [t][h]
.C:a2fa E5 A0 SBC $A0 [e][_]
.C:a2fc ED F9 F3 SBC $F3F9 [m][y][s]
.C:a2ff F4 E9 NOOP $E9,X [t][i]
.C:a301 E3 A0 ISB ($A0,X) [c][_]
.C:a303 E1 F2 SBC ($F2,X) [a][r]
.C:a305 F4 F3 NOOP $F3,X [t][s]
.C:a307 BF A0 A3 LAX $A3A0,Y [?][_][#]
.C:a30a A8 TAY [(]
.C:a30b B0 AD BCS $A2BA [0][-]
.C:a30d B6 A9 LDX $A9,Y [6][)]
.C:a30f 00 BRK [CR]
.C:a310 00 BRK [CR]
.C:a311 FF D4 E8 ISB $E8D4,X [Input][T][h]
.C:a314 EF F5 A0 ISB $A0F5 [o][u][_]
.C:a317 E1 F2 SBC ($F2,X) [a][r]
.C:a319 F4 A0 NOOP $A0,X [t][_]
.C:a31b EE EF F4 INC $F4EF [n][o][t]
.C:a31e A0 E1 LDY #$E1 [_][a]
.C:a320 A0 F3 LDY #$F3 [_][s]
.C:a322 F0 E5 BEQ $A309 [p][e]
.C:a324 EC EC A0 CPX $A0EC [l][l][_]
.C:a327 E3 E1 ISB ($E1,X) [c][a]
.C:a329 F3 F4 ISB ($F4),Y [s][t]
.C:a32b E5 F2 SBC $F2 [e][r]
.C:a32d A1 FF LDA ($FF,X) [!][Input]
.C:a32f 00 BRK
.C:a330 43 40 SRE ($40,X)
.C:a332 41 42 EOR ($42,X)
.C:a334 00 BRK
.C:a335 00 BRK
.C:a336 00 BRK
.C:a337 00 BRK
.C:a338 00 BRK
.C:a339 64 00 NOOP $00
.C:a33b 00 BRK
.C:a33c 0B 13 ANC #$13
.C:a33e 23 3B RLA ($3B,X)
.C:a340 53 14 SRE ($14),Y
.C:a342 00 BRK [CR]
.C:a343 00 BRK [CR]
.C:a344 D0 F2 BNE $A338 [P][r]
.C:a346 E5 F3 SBC $F3 [e][s]
.C:a348 F3 A0 ISB ($A0),Y [s][_]
.C:a34a C1 EE CMP ($EE,X) [A][n]
.C:a34c F9 A0 CB SBC $CBA0,Y [y][_][K]
.C:a34f E5 F9 SBC $F9 [e][y]
.C:a351 AE AE AE LDX $AEAE [.][.][.]
.C:a354 FF D7 E1 ISB $E1D7,X [Input][W][a]
.C:a357 F2 JAM [r]
.C:a358 F2 JAM [r]
.C:a359 E9 EF SBC #$EF [i][o]
.C:a35b F2 JAM [r]
.C:a35c DC D7 E9 NOOP $E9D7,X [EOT][W][i]
.C:a35f FA NOOP [z]
.C:a360 E1 F2 SBC ($F2,X) [a][r]
.C:a362 E4 DC CPX $DC [d][EOT]
.C:a364 D3 EF DCP ($EF),Y [S][o]
.C:a366 F2 JAM [r]
.C:a367 E3 E5 ISB ($E5,X) [c][e]
.C:a369 F2 JAM [r]
.C:a36a E5 F2 SBC $F2 [e][r]
.C:a36c DC C3 EF NOOP $EFC3,X [EOT][C][o]
.C:a36f EE EA F5 INC $F5EA [n][j][u]
.C:a372 F2 JAM [r]
.C:a373 E5 F2 SBC $F2 [e][r]
.C:a375 DC CD E1 NOOP $E1CD,X [EOT][M][a]
.C:a378 E7 E9 ISB $E9 [g][i]
.C:a37a E3 E9 ISB ($E9,X) [c][i]
.C:a37c E1 EE SBC ($EE,X) [a][n]
.C:a37e DC D2 EF NOOP $EFD2,X [EOT][R][o]
.C:a381 E7 F5 ISB $F5 [g][u]
.C:a383 E5 DC SBC $DC [e][EOT]
.C:a385 C2 E1 NOOP #$E1 [B][a]
.C:a387 F2 JAM [r]
.C:a388 E4 DC CPX $DC [d][EOT]
.C:a38a D0 E1 BNE $A36D [P][a]
.C:a38c EC E1 E4 CPX $E4E1 [l][a][d]
.C:a38f E9 EE SBC #$EE [i][n]
.C:a391 DC C8 F5 NOOP $F5C8,X [EOT][H][u]
.C:a394 EE F4 E5 INC $E5F4 [n][t][e]
.C:a397 F2 JAM [r]
.C:a398 DC CD EF NOOP $EFCD,X [EOT][N]
.C:a39b EE EB DC INC $DCEB [n][k][EOT]
.C:a39e C1 F2 CMP ($F2,X) [A][r]
.C:a3a0 E3 E8 ISB ($E8,X) [c][h]
.C:a3a2 ED E1 E7 SBC $E7E1 [m][a][g]
.C:a3a5 E5 DC SBC $DC [e][EOT]
.C:a3a7 55 A3 EOR $A3,X Table...
.C:a3a9 5D A3 64 EOR $64A3,X
.C:a3ac A3 6D LAX ($6D,X)
.C:a3ae A3 76 LAX ($76,X)
.C:a3b0 A3 7F LAX ($7F,X)
.C:a3b2 A3 85 LAX ($85,X)
.C:a3b4 A3 8A LAX ($8A,X)
.C:a3b6 A3 92 LAX ($92,X)
.C:a3b8 A3 99 LAX ($99,X)
.C:a3ba A3 9E LAX ($9E,X)
.C:a3bc A3
.C:a3bd A8 LAX ($A8,X) [(]
.C:a3be D2 JAM [R]
.C:a3bf C5 D4 CMP $D4 [E][T]
.C:a3c1 A9 A0 LDA #$A0 [)][_]
.C:a3c3 F4 EF NOOP $EF,X [t][Input]
.C:a3c5 A0 E1 LDY #$E1 [_][a]
.C:a3c7 E2 EF NOOP #$EF [b][o]
.C:a3c9 F2 JAM [r]
.C:a3ca F4 FF NOOP $FF,X [t][Input]