Code: Select all
.C:4c6c A0 72 LDY #$72
.C:4c6e A2 83 LDX #$83
.C:4c70 20 33 0B JSR $0B33 " casts a spell "
.C:4c73 A5 D0 LDA $D0
.C:4c75 30 17 BMI $4C8E
.C:4c77 20 F4 54 JSR $54F4
.C:4c7a B0 12 BCS $4C8E
.C:4c7c 20 86 51 JSR $5186
.C:4c7f 90 0D BCC $4C8E
.C:4c81 A0 74 LDY #$74
.C:4c83 A2 38 LDX #$38
.C:4c85 20 33 0B JSR $0B33 "but it fizzled!"
.C:4c88 20 B3 11 JSR $11B3
.C:4c8b 4C 68 1D JMP $1D68
.C:4c8e A5 CA LDA $CA
.C:4c90 C9 15 CMP #$15 Edge of dungeon?
.C:4c92 F0 0D BEQ $4CA1 Yes? Go $4ca1
.C:4c94 A5 F3 LDA $F3
.C:4c96 F0 09 BEQ $4CA1
.C:4c98 A5 CA LDA $CA
.C:4c9a C9 50 CMP #$50
.C:4c9c B0 03 BCS $4CA1
.C:4c9e 4C 81 4C JMP $4C81
.C:4ca1 A5 CA LDA $CA
.C:4ca3 A8 TAY
.C:4ca4 C9 50 CMP #$50
.C:4ca6 90 18 BCC $4CC0
.C:4ca8 C9 60 CMP #$60
.C:4caa 90 0B BCC $4CB7
.C:4cac C9 62 CMP #$62
.C:4cae 90 0A BCC $4CBA
.C:4cb0 C9 70 CMP #$70
.C:4cb2 90 09 BCC $4CBD
.C:4cb4 4C B9 52 JMP $52B9
.C:4cb7 4C C8 57 JMP $57C8
.C:4cba 4C D1 4C JMP $4CD1
.C:4cbd 4C DF 4D JMP $4DDF
.C:4cc0 0A ASL A
.C:4cc1 AA TAX
.C:4cc2 BD F3 7A LDA $7AF3,X
.C:4cc5 8D CF 4C STA $4CCF
.C:4cc8 BD F4 7A LDA $7AF4,X
.C:4ccb 8D D0 4C STA $4CD0
.C:4cce 4C AC 5B JMP $5BAC
.C:4cd1 BE 5D 78 LDX $785D,Y
.C:4cd4 BD 69 79 LDA $7969,X
.C:4cd7 8D 16 4D STA $4D16
.C:4cda BD 45 79 LDA $7945,X
.C:4cdd 85 D8 STA $D8
.C:4cdf BD 5D 79 LDA $795D,X
.C:4ce2 8D 10 4D STA $4D10
.C:4ce5 BD 51 79 LDA $7951,X
.C:4ce8 8D FB 4C STA $4CFB
.C:4ceb C9 FF CMP #$FF
.C:4ced F0 0D BEQ $4CFC
.C:4cef 20 2C 44 JSR $442C
.C:4cf2 A5 5A LDA $5A 27 Decimal
.C:4cf4 29 0F AND #$0F Spell point cost for APAR (15)
.C:4cf6 18 CLC
.C:4cf7 69 01 ADC #$01
.C:4cf9 18 CLC
.C:4cfa 69 50 ADC #$50
.C:4cfc 85 7C STA $7C
.C:4cfe AD 10 4D LDA $4D10
.C:4d01 F0 10 BEQ $4D13
.C:4d03 C9 FF CMP #$FF
.C:4d05 F0 0A BEQ $4D11
.C:4d07 A5 5B LDA $5B 225 Decimal
.C:4d09 29 0F AND #$0F Spell point cost for APAR (15)
.C:4d0b 18 CLC
.C:4d0c 69 01 ADC #$01
.C:4d0e 18 CLC
.C:4d0f 69 50 ADC #$50
.C:4d11 85 CE STA $CE
.C:4d13 A2 02 LDX #$02
.C:4d15 A9 74 LDA #$74
.C:4d17 9D 10 04 STA $0410,X
.C:4d1a 9D 38 04 STA $0438,X
.C:4d1d CA DEX
.C:4d1e 10 F5 BPL $4D15
.C:4d20 A0 72 LDY #$72
.C:4d22 A2 98 LDX #$98
.C:4d24 20 33 0B JSR $0B33 "...[CR][CR]"
.C:4d27 4C 88 4C JMP $4C88
.C:4d2a A5 44 LDA $44
.C:4d2c 30 0F BMI $4D3D
.C:4d2e 20 F4 54 JSR $54F4
.C:4d31 B0 1E BCS $4D51
.C:4d33 A0 74 LDY #$74
.C:4d35 A2 38 LDX #$38
.C:4d37 20 33 0B JSR $0B33 "but it fizzled!"
.C:4d3a 4C 88 4C JMP $4C88
.C:4d3d 29 7F AND #$7F
.C:4d3f AA TAX
.C:4d40 BD 5C 6F LDA $6F5C,X
.C:4d43 85 67 STA $67
.C:4d45 BD 60 6F LDA $6F60,X
.C:4d48 85 68 STA $68
.C:4d4a A0 1E LDY #$1E
.C:4d4c B1 67 LDA ($67),Y
.C:4d4e 4C 55 4D JMP $4D55
.C:4d51 A0 3A LDY #$3A
.C:4d53 B1 67 LDA ($67),Y
.C:4d55 A2 00 LDX #$00
.C:4d57 A4 CA LDY $CA
.C:4d59 C0 37 CPY #$37
.C:4d5b D0 02 BNE $4D5F
.C:4d5d A2 08 LDX #$08
.C:4d5f DD B3 71 CMP $71B3,X
.C:4d62 F0 0C BEQ $4D70
.C:4d64 E8 INX
.C:4d65 E0 10 CPX #$10
.C:4d67 F0 04 BEQ $4D6D
.C:4d69 E0 08 CPX #$08
.C:4d6b D0 F2 BNE $4D5F
.C:4d6d 4C 33 4D JMP $4D33
.C:4d70 A5 CA LDA $CA
.C:4d72 C9 37 CMP #$37
.C:4d74 D0 69 BNE $4DDF
.C:4d76 A9 00 LDA #$00
.C:4d78 85 C8 STA $C8
.C:4d7a 20 2C 44 JSR $442C
.C:4d7d A5 5A LDA $5A
.C:4d7f 29 03 AND #$03
.C:4d81 C9 02 CMP #$02
.C:4d83 B0 06 BCS $4D8B
.C:4d85 AA TAX
.C:4d86 BD 78 79 LDA $7978,X
.C:4d89 85 C8 STA $C8
.C:4d8b 4C C8 57 JMP $57C8
.C:4d8e A5 D0 LDA $D0
.C:4d90 30 4D BMI $4DDF
.C:4d92 20 F4 54 JSR $54F4
.C:4d95 B0 48 BCS $4DDF
.C:4d97 A4 CA LDY $CA
.C:4d99 BE 5D 78 LDX $785D,Y
.C:4d9c 8E C9 4D STX $4DC9
.C:4d9f A9 00 LDA #$00
.C:4da1 85 45 STA $45
.C:4da3 85 46 STA $46
.C:4da5 85 C8 STA $C8
.C:4da7 A0 22 LDY #$22
.C:4da9 B1 6E LDA ($6E),Y
.C:4dab 85 51 STA $51
.C:4dad C8 INY
.C:4dae B1 6E LDA ($6E),Y
.C:4db0 85 50 STA $50
.C:4db2 20 2C 44 JSR $442C
.C:4db5 A5 5A LDA $5A
.C:4db7 29 03 AND #$03
.C:4db9 18 CLC
.C:4dba 69 01 ADC #$01
.C:4dbc 18 CLC
.C:4dbd 65 45 ADC $45
.C:4dbf 85 45 STA $45
.C:4dc1 90 02 BCC $4DC5
.C:4dc3 E6 46 INC $46
.C:4dc5 CA DEX
.C:4dc6 D0 EA BNE $4DB2
.C:4dc8 A2 01 LDX #$01
.C:4dca A5 50 LDA $50
.C:4dcc 38 SEC
.C:4dcd E9 01 SBC #$01
.C:4dcf 85 50 STA $50
.C:4dd1 B0 02 BCS $4DD5
.C:4dd3 C6 51 DEC $51
.C:4dd5 A5 51 LDA $51
.C:4dd7 D0 D9 BNE $4DB2
.C:4dd9 A5 50 LDA $50
.C:4ddb D0 D5 BNE $4DB2
.C:4ddd F0 23 BEQ $4E02
.C:4ddf A4 CA LDY $CA
.C:4de1 BE 5D 78 LDX $785D,Y
.C:4de4 A9 00 LDA #$00
.C:4de6 85 45 STA $45
.C:4de8 85 46 STA $46
.C:4dea 85 C8 STA $C8
.C:4dec 20 2C 44 JSR $442C
.C:4def A5 5A LDA $5A
.C:4df1 29 03 AND #$03
.C:4df3 18 CLC
.C:4df4 69 01 ADC #$01
.C:4df6 18 CLC
.C:4df7 65 45 ADC $45
.C:4df9 85 45 STA $45
.C:4dfb 90 02 BCC $4DFF
.C:4dfd E6 46 INC $46
.C:4dff CA DEX
.C:4e00 D0 EA BNE $4DEC
.C:4e02 A5 D0 LDA $D0
.C:4e04 30 0F BMI $4E15
.C:4e06 A5 44 LDA $44
.C:4e08 30 0B BMI $4E15
.C:4e0a 20 F4 54 JSR $54F4
.C:4e0d 90 06 BCC $4E15
.C:4e0f A0 4E LDY #$4E
.C:4e11 A9 01 LDA #$01
.C:4e13 91 67 STA ($67),Y
.C:4e15 A5 44 LDA $44
.C:4e17 30 28 BMI $4E41
.C:4e19 0A ASL A
.C:4e1a A8 TAY
.C:4e1b B9 0B 0A LDA $0A0B,Y
.C:4e1e 8D 2A 4E STA $4E2A
.C:4e21 B9 0C 0A LDA $0A0C,Y
.C:4e24 8D 2B 4E STA $4E2B
.C:4e27 A2 3E LDX #$3E
.C:4e29 BD 80 B8 LDA $B880,X
.C:4e2c C9 03 CMP #$03
.C:4e2e 90 27 BCC $4E57
.C:4e30 C9 06 CMP #$06
.C:4e32 B0 23 BCS $4E57
.C:4e34 C9 03 CMP #$03
.C:4e36 D0 1C BNE $4E54
.C:4e38 A5 C8 LDA $C8
.C:4e3a C9 05 CMP #$05
.C:4e3c F0 23 BEQ $4E61
.C:4e3e 4C 20 4D JMP $4D20
.C:4e41 29 7F AND #$7F
.C:4e43 AA TAX
.C:4e44 BD 5C 6F LDA $6F5C,X
.C:4e47 85 67 STA $67
.C:4e49 BD 60 6F LDA $6F60,X
.C:4e4c 85 68 STA $68
.C:4e4e A0 14 LDY #$14
.C:4e50 B1 67 LDA ($67),Y
.C:4e52 D0 03 BNE $4E57
.C:4e54 4C 20 4D JMP $4D20
.C:4e57 A5 C8 LDA $C8
.C:4e59 C9 05 CMP #$05
.C:4e5b D0 04 BNE $4E61
.C:4e5d A5 D0 LDA $D0
.C:4e5f 10 F3 BPL $4E54
.C:4e61 A0 73 LDY #$73
.C:4e63 A2 F7 LDX #$F7
.C:4e65 20 33 0B JSR $0B33 "at "
.C:4e68 20 06 90 JSR $9006 Exit?