Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
antoine-source/ultima2/ULTIMA.II.S

4981 lines
95 KiB
ArmAsm
Raw Permalink Blame History

*
* Ultima II: The Revenge of the Enchanteress
*
* (c) 1982, Sierra On-Line
* (s) 2020, John Disam
*
TYP BIN
ORG $5000
MX %11
LST OFF
*----------------------------
UPDATE = $0240 ; CALL UPDATE
PRINTSTR = $402C ; PRINT C STRING
KBD EQU $C000
KBDSTROBE EQU $C010
SPKR EQU $C030
TXTCLR EQU $C050
TXTSET EQU $C051
MIXSET EQU $C053
HIRES EQU $C057
PRNTAX EQU $F941
HOME EQU $FC58
PRBYTE EQU $FDDA
COUT EQU $FDED
*----------------------------
L5000 JSR HOME
LDY #$0C
LDX #$0A
JSR $458A
JSR PRINTSTR
ASC "(INSERT PLAYER DISK)"00
BIT KBDSTROBE
L5025 LDA KBD
CMP #$9B
BNE L5025
BIT KBDSTROBE
JSR PRINTSTR
ASC 0D
ASC 04
ASC "BLOAD PLAYER"0D00
LDA $4E00
BNE L5076
JSR HOME
LDY #$0C
LDX #$0A
JSR $458A
JSR PRINTSTR
ASC "NO CHARACTER ON DISK"00
L5069 LDA KBD
CMP #$9B
BNE L5069
BIT KBDSTROBE
JMP L5000
L5076 JSR L6706
BIT KBDSTROBE
LDA $4E11
ASL
CLC
ADC #$78
STA $11
LDA #$00
STA $D9
STA $DA
STA $DB
STA $DC
LDA $4E24
STA $00
LDA $4E25
STA $01
LDA $4E33
BEQ L50AF
LDA $4E34
STA $F4
LDA $4E35
STA $F5
JSR $437B
LDA #$50
STA ($06),Y
L50AF LDX #$FF
LDA #$FF
L50B3 DEX
STA $4B00,X
STA $4C00,X
BNE L50B3
JSR UPDATE
LDA MIXSET
LDA HIRES
LDA TXTCLR
JSR HOME
LDA #$FF
STA $10
JSR $44DE
L50D2 LDA $4E14
CMP #$04
BCC L50DC
JMP L6CCE
L50DC JSR PRINTSTR
ASC "CMD: "00
JSR L6900
JSR L6900
JSR L6900
JSR L6900
JSR L6855
LDA #$00
STA $F2
LDA #$E8
STA $F3
LDA $DC
BEQ L511A
LDA #$14
STA $FC
L5104 JSR PRINTSTR
ASC "Z"00
LDX #$FF
L510B DEX
NOP
NOP
NOP
NOP
NOP
BNE L510B
DEC $FC
BNE L5104
JMP L528B
L511A LDA KBD
BMI L5175
INC $F2
BNE L511A
LDA $11
CMP #$26
BNE L512C
JSR $43E9
L512C JSR UPDATE
JSR L6900
JSR L6900
JSR L6900
JSR L6900
JSR L6855
INC $4E
INC $F3
BNE L511A
INC $4F
LDA #$00
STA $FB
JSR PRINTSTR
ASC "PASS"00
L5152 SED
SEC
LDA $4E1F
SBC #$0A
STA $4E1F
LDA $4E1E
SBC #$00
STA $4E1E
LDA $4E1D
SBC #$00
STA $4E1D
CLD
BCS L5172
JMP L6703
L5172 JMP L528B
L5175 STA $4E27
STA KBDSTROBE
LDA $4E27
CMP #$A0
BNE L5191
LDA #$00
STA $FB
JSR PRINTSTR
ASC "PASS"00
JMP L5152
L5191 CMP #$8D
BNE L51B1
DEC $01
JSR PRINTSTR
ASC "NORTH"00
LDA $13
JSR L69D3
CMP #$00
BEQ L51AE
INC $01
JMP L5225
L51AE JMP L520F
L51B1 CMP #$AF ; /
BNE L51D1
INC $01
JSR PRINTSTR
ASC "SOUTH"00
LDA $14
JSR L69D3
CMP #$00
BEQ L51CE
DEC $01
JMP L5225
L51CE JMP L520F
L51D1 CMP #$88
BNE L51F0
DEC $00
JSR PRINTSTR
ASC "WEST"00
LDA $16
JSR L69D3
CMP #$00
BEQ L51ED
INC $00
JMP L5225
L51ED JMP L520F
L51F0 CMP #$95
BNE L5218
INC $00
JSR PRINTSTR
ASC "EAST"00
LDA $15
JSR L69D3
CMP #$00
BEQ L520C
DEC $00
JMP L5225
L520C JMP L520F
L520F LDA $FB
EOR #$FF
STA $FB
JMP L528B
L5218 PHA
LDA #$00
STA $FB
PLA
L521E CMP #$C1
BCS L523C
JMP L66EA
L5225 JSR PRINTSTR
ASC "--INVALID MOVE!"8700
JMP L528B
L523C CMP #$DB
BCC L5243
JMP L66EA
L5243 SEC
SBC #$C1
ASL
TAY
LDA L5257,Y
STA L5254+1
LDA L5257+1,Y
STA L5254+2
L5254 JMP $FFFF
L5257 DA L6F8B ; A
DA L729D ; B
DA L7407 ; C
DA L75B5 ; D
DA L75EE ; E
DA L7816 ; F
DA L7884 ; G
DA L79A1 ; H
DA L79B3 ; I
DA L79F8 ; J
DA L7A0D ; K
DA L7ACE ; L
DA L7D75 ; M
DA L7DB1 ; N
DA L7E0D ; O
DA L7F69 ; P
DA L7F74 ; Q
DA L7FFB ; R
DA L80BE ; S
DA L81C7 ; T
DA L8426 ; U
DA L849F ; V
DA L850C ; W
DA L85D8 ; X
DA L8634 ; Y
DA L865E ; Z
L528B LDA #$8D
JSR COUT
LDA #$00
STA $F3
STA $F1
STA $F2
LDA $4E14
BEQ L52C0
CMP #$01
BNE L52A4
JMP L5723
L52A4 CMP #$02
BNE L52AB
JMP L5723
L52AB CMP #$03
BNE L52B2
JMP L5723
L52B2 CMP #$04
BNE L52B9
JMP L5809
L52B9 CMP #$05
BNE L52C0
JMP L5809
L52C0 LDX #$1F
L52C2 LDA $4D60,X
BEQ L52E6
LDA $11
CMP #$22
BNE L52EC
LDA $FB
BPL L52EC
LDA $4D60,X
CMP #$48
BEQ L52EC
CMP #$3C
BEQ L52EC
CMP #$2C
BEQ L52EC
LDA $11
CMP #$22
BNE L52EC
L52E6 DEX
BNE L52C2
JMP L5472
L52EC JSR $401B
STX $FA
LDA $17
JSR $44D4
CMP #$03
BCS L5334
LDA $18
JSR $44D4
CMP #$03
BCS L5334
JSR $4592
LDX $FA
CMP #$20
BCS L5334
LDA $4D60,X
CMP #$34
BNE L5319
JSR L55A1
JMP L5334
L5319 CMP #$38
BNE L5323
JSR L55EF
JMP L5334
L5323 CMP #$F8
BNE L532D
JSR L563C
JMP L5334
L532D CMP #$3C
BNE L5334
JSR L5668
L5334 LDX $FA
JSR $4000
LDA $4D40,X
CMP #$0F
BCS L534E
SEC
LDA #$00
SBC $17
STA $17
SEC
LDA #$00
SBC $18
STA $18
L534E CLC
LDA $4D00,X
ADC $17
AND #$3F
CMP $00
BEQ L535D
JMP L65E9
L535D CLC
LDA $4D20,X
ADC $18
AND #$3F
CMP $01
BEQ L536C
JMP L65E9
L536C INC $F1
STX $FC
LDA $4D60,X
CMP #$FC
BNE L537A
JSR L56E7
L537A JSR $4592
LDX $FC
CMP #$00
BMI L539D
AND #$07
CMP $4E2C
BCC L539D
INC $F2
LDA $4D40,X
LSR
LSR
SEC
ADC $F3
LDY $12
CPY #$06
BNE L539B
ASL
L539B STA $F3
L539D LDA $4E14
BEQ L53A5
JMP L573E
L53A5 JMP L52E6
L53A8 JSR UPDATE
L53AB LDA $F1
BEQ L53D0
LDA #$7E
STA $A0
LDA #$00
STA $A1
LDA #$6F
STA $A2
JSR $43AF
DEC $F1
DEC $F2
BMI L53AB
JSR $45E1
JSR $4419
JSR $45E1
JMP L53AB
L53D0 LDA $F3
BEQ L5409
JSR $4592
AND $F3
AND #$77
CLC
ADC #$01
STA $F3
SED
SEC
LDA $4E1C
SBC $F3
STA $4E1C
LDA $4E1B
SBC #$00
STA $4E1B
CLD
BCC L5437
LDA $4E14
BEQ L5409
STA $F3
SED
SEC
LDA $4E1B
SBC $F3
STA $4E1B
CLD
BCC L5437
L5409 JSR $44DE
LDA #$04
STA $10
LDA $4E14
BNE L541C
LDA #$FF
STA $10
JSR L6C3C
L541C LDA $DA
BEQ L5422
DEC $DA
L5422 LDA $DB
BEQ L5428
DEC $DB
L5428 LDA $DC
BEQ L542E
DEC $DC
L542E LDA $D9
BEQ L5434
DEC $D9
L5434 JMP L50D2
L5437 LDA #$00
STA $4E1B
STA $4E1C
STA $4E1D
STA $4E1E
STA $4E1F
STA $4E20
STA $4E21
STA $4E22
STA $4E23
JSR $44DE
JSR PRINTSTR
ASC 8D8D8D00
JSR $4084
JSR PRINTSTR
ASC " IS DEAD!"8D00
L546F JMP L546F
L5472 LDX #$1F
L5474 LDA $4D60,X
BEQ L547F
DEX
BNE L5474
JMP L53A8
L547F STX $F0
JSR $4592
CMP #$3F
BCC L548B
JMP L53A8
L548B LDX $F0
STA $4D00,X
STA $F4
JSR $4592
AND #$3F
BCC L549C
JMP L53A8
L549C LDX $F0
STA $4D20,X
STA $F5
JSR $437B
LDX $F0
STA $4D80,X
INC $4E2A
LDA $4E2A
LSR
BCS L54CC
LSR
BCS L54E2
LSR
BCS L54F8
LSR
BCS L550E
LSR
BCS L5533
LSR
BCS L552A
LSR
BCS L552D
LSR
BCS L5530
JMP L558B
L54CC LDA $4D80,X
CMP #$08
BNE L5524
LDA #$30
STA ($06),Y
STA $4D60,X
LDA #$10
STA $4D40,X
JMP L53A8
L54E2 LDA $4D80,X
CMP #$08
BNE L5524
LDA #$FC
STA ($06),Y
STA $4D60,X
LDA #$20
STA $4D40,X
JMP L53A8
L54F8 LDA $4D80,X
CMP #$08
BNE L5524
LDA #$34
STA ($06),Y
STA $4D60,X
LDA #$40
STA $4D40,X
JMP L53A8
L550E LDA $4D80,X
CMP #$00
BNE L5524
LDA #$2C
STA ($06),Y
STA $4D60,X
LDA #$40
STA $4D40,X
JMP L53A8
L5524 DEC $4E2A
JMP L53A8
L552A JMP L5549
L552D JMP L555F
L5530 JMP L5575
L5533 LDA $4D80,X
CMP #$08
BNE L5524
LDA #$F0
STA ($06),Y
STA $4D60,X
LDA #$80
STA $4D40,X
JMP L53A8
L5549 LDA $4D80,X
CMP #$00
BNE L5524
LDA #$48
STA ($06),Y
STA $4D60,X
LDA #$A0
STA $4D40,X
JMP L53A8
L555F LDA $4D80,X
CMP #$08
BNE L5524
LDA #$38
STA ($06),Y
STA $4D60,X
LDA #$C0
STA $4D40,X
JMP L53A8
L5575 LDA $4D80,X
CMP #$08
BNE L5524
LDA #$F8
STA ($06),Y
STA $4D60,X
LDA #$E0
STA $4D40,X
JMP L53A8
L558B LDA $4D80,X
CMP #$08
BNE L5524
LDA #$3C
STA ($06),Y
STA $4D60,X
LDA #$FF
STA $4D40,X
JMP L53A8
L55A1 JSR PRINTSTR
ASC "LEGS PARALIZED!"0D00
JSR $404D
JSR $44A7
JSR $404D
LDA $4EA3
BEQ L55E7
JSR $4592
CMP #$40
BCC L55E7
JSR PRINTSTR
ASC "SAVED BY MAGICAL BOOTS!"8D00
RTS
L55E7 JSR $4592
AND #$0F
STA $DA
RTS
L55EF JSR PRINTSTR
ASC "ARMS PARALIZED!"0D00
JSR $404D
JSR $44A7
JSR $404D
LDA $4EA4
BEQ L5634
JSR $4592
CMP #$40
BCC L5634
JSR PRINTSTR
ASC "SAVED BY MAGICAL CLOAK"8D00
RTS
L5634 JSR $4592
AND #$0F
STA $DB
RTS
L563C JSR PRINTSTR
ASC "MAGIC MISSILE!"0D00
JSR $404D
JSR $44A7
JSR $404D
INC $F1
INC $F1
INC $F2
INC $F2
CLC
LDA $F3
ADC #$40
STA $F3
RTS
L5668 JSR PRINTSTR
ASC "SLEEP SPELL!"0D00
JSR $404D
JSR $44A7
JSR $404D
LDA $4EAE
BEQ L56A2
JSR $4592
CMP #$40
BCC L56A2
JSR PRINTSTR
ASC "SAVED BY IDOL!"8D00
RTS
L56A2 JSR $4592
AND #$0F
STA $DC
RTS
L56AA JSR PRINTSTR
ASC "MINAX CRIES: DIE FOOL!"8D00
LDA #$00
STA $17
STA $18
JSR $459D
JSR $4419
JSR $459D
SED
SEC
LDA $4E1B
SBC #$01
STA $4E1B
CLD
BCS L56E6
BCS L56E6
JMP L5437
L56E6 RTS
L56E7 JSR $4592
CMP #$40
BCC L56EF
RTS
L56EF JSR $4592
AND #$0F
TAX
LDA $4EA0,X
BEQ L5722
SED
SEC
LDA $4EA0,X
SBC #$01
STA $4EA0,X
CLD
JSR PRINTSTR
ASC "A THIEF STOLE SOMETHING!"8D00
L5722 RTS
L5723 LDX #$1F
L5725 STX $F6
LDA $4D60,X
BEQ L573E
LDA $4DA0,X
BEQ L573E
BMI L573E
CMP #$03
BCS L5773
CMP #$02
BEQ L576A
JMP L5770
L573E LDA $4D60,X
CMP #$40
BNE L5762
LDA $4D00,X
SEC
SBC $00
JSR $44D4
CMP #$04
BCS L5762
LDA $4D20,X
SEC
SBC $01
JSR $44D4
CMP #$04
BCS L5762
JSR L56AA
L5762 LDX $F6
DEX
BPL L5725
JMP L53A8
L576A JSR $4000
JMP L65E9
L5770 JMP L52EC
L5773 LDX $F6
LDA $4DC0,X
STA $17
LDA $4DE0,X
STA $18
JSR $4592
CMP #$40
BCS L57A0
JSR $4592
JSR $44BD
LDX $F6
STA $4DC0,X
STA $17
JSR $4592
JSR $44BD
LDX $F6
STA $4DE0,X
STA $18
L57A0 LDX $F6
CLC
LDA $4D00,X
ADC $17
AND #$3F
STA $F4
CMP #$04
BCS L57B3
JMP L573E
L57B3 CMP #$3C
BCC L57BA
JMP L573E
L57BA CMP $00
BNE L57C1
JMP L573E
L57C1 CLC
LDA $4D20,X
ADC $18
AND #$3F
STA $F5
CMP #$04
BCS L57D2
JMP L573E
L57D2 CMP #$3C
BCC L57D9
JMP L573E
L57D9 CMP $01
BNE L57E0
JMP L573E
L57E0 JSR $437B
CMP #$70
BEQ L57EE
CMP #$08
BEQ L57EE
JMP L573E
L57EE LDX $F6
JMP L669B
L57F3 LDA $4E14
BNE L57F9
RTS
L57F9 LDX #$07
LDA #$01
L57FD STA $4DA0,X
DEX
BPL L57FD
LDX $F1
STA $4DA0,X
RTS
L5809 JSR L5A74
LDX #$1F
STX $F0
L5810 LDA $4D60,X
BNE L581E
L5815 DEC $F0
LDX $F0
BNE L5810
JMP L58D5
L581E LDX $F0
JSR L5AE0
LDA $4D40,X
CMP #$0F
BCS L5838
SEC
LDA #$00
SBC $17
STA $17
SEC
LDA #$00
SBC $18
STA $18
L5838 LDA $17
BEQ L5863
CLC
ADC $4D00,X
STA $F4
LDA $4D20,X
STA $F5
LDA $F4
CMP $00
BNE L5856
LDA $F5
CMP $01
BNE L5856
JMP L5951
L5856 JSR L5A53
BEQ L5891
CMP #$FF
BEQ L5863
AND #$7F
BNE L5891
L5863 LDA $18
BEQ L588E
CLC
ADC $4D20,X
STA $F5
LDA $4D00,X
STA $F4
LDA $F4
CMP $00
BNE L5881
LDA $F5
CMP $01
BNE L5881
JMP L5951
L5881 JSR L5A53
BEQ L5891
CMP #$FF
BEQ L588E
AND #$7F
BNE L5891
L588E JMP L5815
L5891 JSR L5A5D
AND #$07
BEQ L589B
JMP L5815
L589B LDA $F4
STA $4DC0,X
LDA $F5
STA $4DE0,X
LDA $4D00,X
STA $F4
LDA $4D20,X
STA $F5
JSR L5A5D
LDA ($06),Y
AND #$F0
STA ($06),Y
LDA $4DC0,X
STA $F4
STA $4D00,X
LDA $4DE0,X
STA $F5
STA $4D20,X
JSR L5A5D
LDA ($06),Y
ORA $4D60,X
STA ($06),Y
JMP L5815
L58D5 LDA $FB
BNE L58EE
JSR L5917
JSR PRINTSTR
ASC "IT'S DARK!"8D00
JMP L5909
L58EE DEC $FB
BNE L5909
JSR PRINTSTR
ASC "TORCH BURNED OUT!"878D00
L5909 JSR $8900
LDA #$10
JSR L592E
JSR $44DE
JMP L50D2
L5917 LDA #$3F ; DARKNESS
STA $07
LDA #$00
STA $06
TAY
L5920 STA ($06),Y
DEY
BNE L5920
DEC $07
LDX $07
CPX #$20
BCS L5920
RTS
L592E STA $F1
SED
SEC
LDA $4E1F
SBC $F1
STA $4E1F
LDA $4E1E
SBC #$00
STA $4E1E
LDA $4E1D
SBC #$00
STA $4E1D
CLD
BCS L5950
JMP L5437
L5950 RTS
L5951 JSR $4592
CMP #$40
BCS L597C
LDX $F0
LDA $F6
CMP $4D80,X
BEQ L5964
JMP L5815
L5964 LDA $4D60,X
CMP #$02
BNE L596E
JMP L59CF
L596E CMP #$05
BNE L5975
JMP L59F8
L5975 CMP #$07
BNE L597C
JMP L5A2B
L597C LDX $F0
LDA $F6
CMP $4D80,X
BEQ L5988
JMP L5815
L5988 JSR $43AF
JSR $4592
BMI L5997
AND #$07
CMP $4E2C
BCS L599A
L5997 JMP L5815
L599A JSR $404D
JSR $4419
JSR $404D
JSR $4592
AND #$77
STA $F1
LDA $F6
ASL
ASL
AND #$77
SED
ADC $F1
STA $F1
SEC
LDA $4E1C
SBC $F1
STA $4E1C
LDA $4E1B
SBC #$00
STA $4E1B
CLD
BCS L59CC
JMP L5437
L59CC JMP L5815
L59CF LDA $FB
BEQ L59F5
JSR PRINTSTR
ASC "YOUR TORCH IS BLOWN OUT!"878D00
LDA #$00
STA $FB
L59F5 JMP L5815
L59F8 JSR PRINTSTR
ASC "A GREMLIN STOLE SOME FOOD!"878D00
SED
SEC
LDA $4E1D
SBC #$01
STA $4E1D
CLD
BCC L5A28
JMP L5815
L5A28 JMP L5437
L5A2B JSR PRINTSTR
ASC "YOU FEEL A STRONG MAGIC!"878D00
JSR $4592
AND #$07
STA $DC
JMP L5815
L5A53 LDA $F6
CMP $4D80,X
BEQ L5A5D
LDA #$FF
RTS
L5A5D LDA $4D80,X
L5A60 CLC
ADC #$10
STA $07
LDA $F5
ASL
ASL
ASL
ASL
ADC $F4
STA $06
LDY #$00
LDA ($06),Y
RTS
L5A74 LDX #$1F
L5A76 STX $F0
LDA $4D60,X
BEQ L5A83
L5A7D LDX $F0
DEX
BNE L5A76
RTS
L5A83 JSR $4592
LDX $F0
AND #$07
ASL
ORA #$01
STA $4D00,X
STA $F4
JSR $4592
LDX $F0
AND #$07
ASL
ORA #$01
STA $4D20,X
STA $F5
TXA
LSR
STA $4D80,X
JSR L5A5D
BNE L5A7D
JSR $4592
LDX $F0
AND #$07
CMP #$07
BEQ L5ABE
ASL
CMP $4D80,X
BEQ L5AC1
BCC L5AC1
L5ABE JMP L5A7D
L5AC1 LSR
ADC #$01
STA $4D60,X
ASL
ADC $4D80,X
ASL
ASL
ASL
ORA #$10
STA $4D40,X
JSR L5A5D
LDA ($06),Y
ORA $4D60,X
STA ($06),Y
JMP L5A7D
L5AE0 LDA $00
SEC
SBC $4D00,X
JSR $44BD
STA $17
LDA $01
SEC
SBC $4D20,X
JSR $44BD
STA $18
RTS
L5AF7 TAY
LDA #$00
STA $FC
LDA #$4F
STA $FD
LDX #$00
L5B02 LDA ($FC,X)
BEQ L5B0C
L5B06 JSR L5B20
JMP L5B02
L5B0C DEY
BEQ L5B12
JMP L5B06
L5B12 JSR L5B20
LDA ($FC,X)
BEQ L5B1F
JSR COUT
JMP L5B12
L5B1F RTS
L5B20 LDA $FC
CLC
ADC #$01
STA $FC
LDA $FD
ADC #$00
STA $FD
RTS
L5B2E LDA $00
CMP #$20
BCC L5B3D
LDA $01
CMP #$20
BCC L5B46
JMP L5B60
L5B3D LDA $01
CMP #$20
BCC L5B53
JMP L5B6D
L5B46 LDA $4E14
CMP #$02
BNE L5B50
JMP L6268
L5B50 JMP L5D1B
L5B53 LDA $4E14
CMP #$02
BNE L5B5D
JMP L6384
L5B5D JMP L6036
L5B60 LDA $4E14
CMP #$02
BNE L5B6A
JMP L6495
L5B6A JMP L5DBC
L5B6D LDA $4E14
CMP #$02
BNE L5B77
JMP L5B7A
L5B77 JMP L5F17
L5B7A JSR PRINTSTR
ASC "WELCOME TO THE PUB!"0D
ASC "1-BUY, 2-TIP --- "00
JSR L653E
CMP #$01
BEQ L5BB1
CMP #$02
BEQ L5BE3
JMP L528B
L5BB1 LDA #$05
STA $FD
LDA #$00
STA $FC
JSR L655D
JSR PRINTSTR
ASC "HERE, HAVE A STRONG ONE!"0D00
JSR $4592
AND #$03
LDA #$01
JMP L5C12
L5BE3 JSR PRINTSTR
ASC "TIP HOW MUCH? "00
JSR L653E
STA $F6
STA $FD
LDA #$00
STA $FC
JSR L655D
JSR $4592
JSR $44BD
CLC
ADC $F6
CMP #$0A
BCC L5C12
LDA #$00
L5C12 STA $F6
JSR PRINTSTR
ASC "THE BARKEEP SAYS:"0D00
LDA $F6
TAY
INY
LDA #<L5C3E
STA $FC
LDA #>L5C3E
STA $FD
LDX #$00
JSR L5B02
JMP L528B
L5C3E ASC 00
ASC "CAUGH..."00
ASC "ISN'T THIS A GREAT GAME?"00
ASC "HHMMM..."00
ASC "SOME FIGHTERS WEAR MAGIC HELMS!"00
ASC "AVIATORS USE SKULL KEYS!"00
ASC "SAYLORS WEAR BLUE TASSLES!"00
ASC "MAGES CARRY WANDS OR STAFFS!"00
ASC "GUARDS CARRY KEYS!"00
ASC "ANKHS OPEN SPACE!"00
ASC "PLANES NEED BRASS BUTTONS!"00
L5D1B JSR PRINTSTR
ASC "THE FOOD HERE COSTS "00
LDA #$03
JSR L65A9
LDA $FC
LDX $FD
JSR PRNTAX
JSR PRINTSTR
ASC 8D
ASC "PER 100, WANT ONE? "00
L5D57 LDA KBD
BPL L5D57
BIT KBDSTROBE
CMP #$D9
BEQ L5D6C
JSR PRINTSTR
ASC "NO"00
JMP L528B
L5D6C JSR PRINTSTR
ASC "YES,"8D
ASC "NO ONIONS AND TO GO PLEASE!"8D00
JSR L655D
SED
CLC
LDA $4E1D
ADC #$01
STA $4E1D
CLD
JSR PRINTSTR
ASC "THANK YOU, COME AGAIN!"00
JMP L528B
L5DBC LDA $4E11
CMP #$01
BEQ L5DE3
JSR $4084
JSR PRINTSTR
ASC " YOU ARE NOT A CLERIC!"00
JMP L528B
L5DE3 JSR PRINTSTR
ASC "WELCOME "00
LDA $4E10
CMP #$01
BEQ L5E05
JSR PRINTSTR
ASC "BROTHER "00
JMP L5E10
L5E05 JSR PRINTSTR
ASC "SISTER "00
L5E10 JSR $4084
JSR PRINTSTR
ASC 8D
ASC "1-LIGHT, 2-L.D., 3-L.U.,"8D
ASC "4-PASS 5-SURFACE, 6-PRAYER."8D
ASC "YOUR INTEREST? "00
JSR L653E
BEQ L5E68
CMP #$07
BCS L5E68
JMP L5E88
L5E68 JSR PRINTSTR
ASC "FOLLOW THE LIGHT, FRIEND!"00
JMP L528B
L5E88 STA $F0
JSR PRINTSTR
ASC "FIVE "00
LDA $F0
CLC
ADC #$24
JSR $409C
JSR PRINTSTR
ASC "S FOR "00
LDA $F0
JSR L65A9
LDA $FC
LDX $FD
JSR PRNTAX
JSR PRINTSTR
ASC 8D
ASC "YES, FRIEND? "00
L5EC3 LDA KBD
BPL L5EC3
BIT KBDSTROBE
CMP #$D9
BEQ L5EED
JSR PRINTSTR
ASC "NO"8D
ASC "I'M SORRY, GOOD DAY."00
JMP L528B
L5EED JSR PRINTSTR
ASC "YES,"8D
ASC "I WILL TAKE 5!"00
JSR L655D
LDX $F0
LDA $4E80,X
CLC
SED
ADC #$05
CLD
STA $4E80,X
JMP L528B
L5F17 JSR $4084
LDA $4E11
CMP #$02
BEQ L5F3E
JSR PRINTSTR
ASC " YOU ARE NOT A WIZARD!"00
JMP L528B
L5F3E JSR PRINTSTR
ASC " MUSERREF OLDUM!"8D
ASC "1-LIGHT, 2-L.D., 3-L.U.,"8D
ASC "4-M.M., 5-BLINK, 6-KILL,"8D
ASC "BIR IKI UC...? "00
JSR L653E
BEQ L5FA0
CMP #$07
BCS L5FA0
JMP L5FB5
L5FA0 JSR PRINTSTR
ASC 8D
ASC "UGURLA OLSUN!"00
JMP L528B
L5FB5 CMP #$04
BCC L5FBC
CLC
ADC #$03
L5FBC STA $F0
JSR PRINTSTR
ASC "FIVE "00
LDA $F0
CLC
ADC #$24
JSR $409C
JSR PRINTSTR
ASC "S FOR "00
LDA $F0
JSR L65A9
LDA $FC
LDX $FD
JSR PRNTAX
JSR PRINTSTR
ASC 8D
ASC "LUTFEN EVET? "00
L5FF7 LDA KBD
BPL L5FF7
BIT KBDSTROBE
CMP #$D9 ; Y
BEQ L600D
JSR PRINTSTR
ASC "NO!"00
JMP L5FA0
L600D JSR PRINTSTR
ASC "YES"8D00
JSR L655D
SED
CLC
LDX $F0
LDA $4E80,X
ADC #$05
STA $4E80,X
CLD
JSR PRINTSTR
ASC "GULE GULE!"00
JMP L528B
L6036 JSR PRINTSTR
ASC "TIME AND TRAVEL MADE ME WISE,"0D
ASC "PRECIOUS GOLD, A CLUE IT BUYS!HOW MUCH "
ASC "WILL YOU PAY *100?"00
JSR L653E
STA $F0
STA $FC
LDA #$00
STA $FD
JSR L655D
LDY $F0
INY
LDA #<L60B5
STA $FC
LDA #>L60B5
STA $FD
LDX #$00
JSR L5B02
JMP L528B
JMP L528B
L60B5 ASC 00
ASC "ASK ME NO QUESTIONS,"8D
ASC "I'LL TELL YOU NO LIES."00
ASC "THE QUEEN IS THE KING"8D
ASC "AND THE KING IS A SPY."00
ASC "THE EVIL MEN DO"8D
ASC "IS A HORRABLE THING."00
ASC "BUT DISPELLING MEANS"8D
ASC "THAT YOU MUST HAVE THE RING."00
ASC "JUST WHERE IT IS,"8D
ASC "I CANNOT SAY."00
ASC "BUT I'LL TELL YOU RIGHT NOW,"8D
ASC "THERE IS NO OTHER WAY."00
ASC "I HEAR IN A TOWN"8D
ASC "WHERE THE WATER RUNS FREE."00
ASC "THERE IS AN OLD MAN"8D
ASC "LIVING UNDER A TREE."00
ASC "HE HAS NOT A NAME"8D
ASC "BUT HE DOES HAVE A CLUE"00
ASC "MAYHAPS IF YOU FIND HIM,"8D
ASC "HE'LL TELL IT TO YOU!"00
L6268 JSR PRINTSTR
ASC " THE ARMOUR SHOPPE:"0D
ASC "1-CLOTH, 2-LEATHER, 3-CHAIN,"0D
ASC "4-PLATE, 5-REFLECT, 6-POWER,"0D
ASC "YOUR INTEREST? "00
JSR L653E
BEQ L62D9
CMP #$07
BCS L62D9
JMP L62F7
L62D9 JSR PRINTSTR
ASC "THANKS FOR COMING BY..."00
JMP L528B
L62F7 STA $F0
JSR PRINTSTR
ASC "AH! YES! "00
LDA $F0
CLC
ADC #$1D
JSR $409C
JSR PRINTSTR
ASC 0D
ASC "FOR YOU ONLY "00
LDA $F0
ASL
JSR L65A9
LDA $FC
LDX $FD
JSR PRNTAX
JSR PRINTSTR
ASC 0D
ASC "HOW 'BOUT IT? "00
L6340 LDA KBD
BPL L6340
BIT KBDSTROBE
STA $F2
JSR COUT
LDA #$8D
JSR COUT
LDA $F2
CMP #$D9
BEQ L6368
JSR PRINTSTR
ASC "OH, WELL."00
JMP L528B
L6368 JSR L655D
JSR PRINTSTR
ASC "SOLD!"00
LDX $F0
LDA $4E60,X
SED
CLC
ADC #$01
CLD
STA $4E60,X
JMP L528B
L6384 JSR PRINTSTR
ASC " THE WEAPONS SHOPPE:"0D
ASC "1-DA, 2-MA, 3-AX, 4-BO,"0D
ASC "5-SW, 6-GR, 7-LI, 8-PH."0D
ASC "YOUR INTEREST? "00
JSR L653E
BEQ L63E9
CMP #$09
BEQ L63E9
JMP L6407
L63E9 JSR PRINTSTR
ASC "THANKS FOR COMING BY..."00
JMP L528B
L6407 STA $F0
JSR PRINTSTR
ASC "AH! YES! A "00
LDA $F0
CLC
ADC #$13
JSR $409C
JSR PRINTSTR
ASC 0D
ASC "FOR YOU ONLY "00
LDA $F0
JSR L65A9
LDA $FC
LDX $FD
JSR PRNTAX
JSR PRINTSTR
ASC 0D
ASC "HOW 'BOUT IT? "00
L6451 LDA KBD
BPL L6451
BIT KBDSTROBE
STA $F2
JSR COUT
LDA #$8D
JSR COUT
LDA $F2
CMP #$D9 ; Y
BEQ L6479
JSR PRINTSTR
ASC "OH, WELL."00
JMP L528B
L6479 JSR L655D
JSR PRINTSTR
ASC "SOLD!"00
LDX $F0
LDA $4E40,X
SED
CLC
ADC #$01
CLD
STA $4E40,X
JMP L528B
L6495 JSR PRINTSTR
ASC "WELCOME, TO THE TRANSPORT"0D
ASC "SHOPPE. I SELL YOU HORSE "00
LDA #$04
JSR L65A9
LDA $FC
LDX $FD
JSR PRNTAX
JSR PRINTSTR
ASC 0D
ASC "GOLD, DEAL, OK? --- "00
L64F1 LDA KBD
BPL L64F1
PHA
JSR COUT
LDA #$8D
JSR COUT
PLA
BIT KBDSTROBE
CMP #$D9 ; Y
BEQ L651F
JSR PRINTSTR
ASC 0D
ASC "O.K. BYE THEN..."00
JMP L528B
L651F JSR L655D
JSR PRINTSTR
ASC 8D
ASC "RIDE SWIFTLY!"00
LDA #$22
STA $11
JMP L528B
JMP L528B
L653E LDA KBD
CMP #$B0
BCC L653E
CMP #$BA
BCS L653E
SEC
SBC #$B0
TAX
CLC
ADC #$B0
JSR COUT
LDA #$8D
JSR COUT
BIT KBDSTROBE
TXA
RTS
L655D SED
SEC
LDA $4E23
SBC $FD
STA $4E23
LDA $4E22
SBC $FC
STA $4E22
BCS L65A5
CLC
LDA $4E23
ADC $FD
STA $4E23
LDA $4E22
ADC $FC
STA $4E22
CLD
PLA
PLA
JSR PRINTSTR
ASC "YOU DONT HAVE THAT MUCH!"8700
JMP L528B
L65A5 CLD
LDA #$00
RTS
L65A9 CLC
ADC #$08
STA $F1
LDA #$00
STA $FC
STA $FA
LDA #$04
STA $FD
STA $FB
LDA $4E1A
ADC $4E18
LDY #$00
L65C2 INY
LSR
BNE L65C2
LDA $F1
STY $F1
SEC
SBC $F1
TAX
SED
L65CF CLC
LDA $FB
ADC $FD
LDY $FD
STY $FB
STA $FD
LDA $FA
ADC $FC
LDY $FC
STY $FA
STA $FC
DEX
BNE L65CF
CLD
RTS
L65E9 LDA $4D40,X
CMP #$10
BCS L65F3
INC $4D40,X
L65F3 CLC
LDA $4D00,X
ADC $17
AND #$3F
STA $F4
CLC
LDA $4D20,X
ADC $18
AND #$3F
STA $F5
JSR $437B
JSR L6648
BNE L6612
JMP L669B
L6612 LDA $18
BEQ L6626
LDA $4D00,X
STA $F4
JSR $437B
JSR L6648
BNE L6626
JMP L669B
L6626 CLC
LDA $4D00,X
ADC $17
AND #$3F
STA $F4
LDA $4D20,X
STA $F5
JSR $437B
JSR L6648
BEQ L669B
L663D LDA $4E14
BEQ L6645
JMP L573E
L6645 JMP L52E6
L6648 STA $F0
LDA $D9
BEQ L6651
JMP L6698
L6651 LDA $4D60,X
CMP #$2C
BEQ L667F
CMP #$48
BEQ L667F
CMP #$78
BCS L6666
LDA $F0
CMP #$5C
BEQ L6688
L6666 LDA $F0
CMP #$10
BEQ L6698
CMP #$04
BEQ L6698
CMP #$00
BEQ L6698
CMP #$14
BCC L6688
CMP #$70
BEQ L6688
JMP L6698
L667F LDA $F0
CMP #$00
BNE L6698
JMP L6688
L6688 LDA $4E14
BEQ L6695
LDA $F4
BEQ L6698
LDA $F5
BEQ L6698
L6695 LDA #$00
RTS
L6698 LDA #$FF
RTS
L669B LDA $00
CMP $F4
BNE L66AA
LDA $01
CMP $F5
BNE L66AA
JMP L663D
L66AA LDA $F4
STA $FC
LDA $F5
STA $FD
LDA $4D00,X
STA $F4
LDA $4D20,X
STA $F5
JSR $437B
LDA $4D80,X
LDY #$00
STA ($06),Y
LDA $FC
STA $F4
STA $4D00,X
LDA $FD
STA $F5
STA $4D20,X
JSR $437B
STA $4D80,X
LDA $4D60,X
STA ($06),Y
LDA $4E14
BEQ L66E7
JMP L573E
L66E7 JMP L52E6
L66EA JSR PRINTSTR
ASC 87
ASC "-ILLEGAL COMMAND!"00
JMP L528B
L6703 JMP L5437
L6706 CLC
LDA $4E13
ADC #$B0
STA L6721+$B
STA L672F+$B
LDA $4E14
ADC #$B0
STA L6721+$C
STA L672F+$C
JSR PRINTSTR
ASC 0D
L6721 ASC 04
ASC "BLOAD MAP FF"0D
L672F ASC 04
ASC "BLOAD MON FF"0D00
RTS
L673F CLC
LDA $4E13
ADC #$B0
STA L6754+$B
LDA $4E14
ADC #$B0
STA L6754+$C
JSR PRINTSTR
ASC 0D
L6754 ASC 04
ASC "BLOAD TLK FF"0D00
RTS
L6764 LDA $4E37
BEQ L676A
RTS
L676A CLC
LDA $4E13
ADC #$B0
STA L678F+$B
STA L67AB+$B
LDA $4E14
ADC #$B0
STA L678F+$C
STA L67AB+$C
LDA $00
STA $4E24
LDA $01
STA $4E25
JSR PRINTSTR
ASC 0D
L678F ASC 04
ASC "BSAVE MAP FF,A$1000,L$1000"0D
L67AB ASC 04
ASC "BSAVE MON FF,A$4D00,L$100"0D00
JSR PRINTSTR
ASC 04
ASC "BSAVE PLAYER,A$4E00,L$100"0D00
RTS
L67E7 LDA #$00
STA $F0
STA $F1
STA $17
STA $18
L67F1 LDA KBD
BMI L6811
NOP
NOP
NOP
NOP
NOP
INC $F0
BNE L67F1
INC $F1
BNE L67F1
PLA
PLA
JSR PRINTSTR
ASC 87
ASC "PASS"00
JMP L528B
L6811 BIT KBDSTROBE
CMP #$8D
BEQ L6827
CMP #$AF
BEQ L6833
CMP #$95
BEQ L683F
CMP #$88
BEQ L684A
JMP L67F1
L6827 JSR PRINTSTR
ASC "NORTH"00
DEC $18
RTS
L6833 JSR PRINTSTR
ASC "SOUTH"00
INC $18
RTS
L683F JSR PRINTSTR
ASC "EAST"00
INC $17
RTS
L684A JSR PRINTSTR
ASC "WEST"00
DEC $17
RTS
L6855 LDX #$2E
L6857 LDA $0800,X
STA $F1
LDA $0880,X
STA $F0
LDA $F1
STA $0880,X
LDA $0900,X
STA $F1
LDA $F0
STA $0900,X
LDA $0980,X
STA $F0
LDA $F1
STA $0980,X
LDA $0A00,X
STA $F1
LDA $F0
STA $0A00,X
LDA $0A80,X
STA $F0
LDA $F1
STA $0A80,X
LDA $0B00,X
STA $F1
LDA $F0
STA $0B00,X
LDA $0B80,X
STA $F0
LDA $F1
STA $0B80,X
LDA $0C00,X
STA $F1
LDA $F0
STA $0C00,X
LDA $0C80,X
STA $F0
LDA $F1
STA $0C80,X
LDA $0D00,X
STA $F1
LDA $F0
STA $0D00,X
LDA $0D80,X
STA $F0
LDA $F1
STA $0D80,X
LDA $0E00,X
STA $F1
LDA $F0
STA $0E00,X
LDA $0E80,X
STA $F0
LDA $F1
STA $0E80,X
LDA $0F00,X
STA $F1
LDA $F0
STA $0F00,X
LDA $0F80,X
STA $F0
LDA $F1
STA $0F80,X
LDA $F0
STA $0800,X
INX
CPX #$30
BCS L68FF
JMP L6857
L68FF RTS
L6900 LDX #$00
L6902 LDA $0800,X
STA $F1
LDA $0880,X
STA $F0
LDA $F1
STA $0880,X
LDA $0900,X
STA $F1
LDA $F0
STA $0900,X
LDA $0980,X
STA $F0
LDA $F1
STA $0980,X
LDA $0A00,X
STA $F1
LDA $F0
STA $0A00,X
LDA $0A80,X
STA $F0
LDA $F1
STA $0A80,X
LDA $0B00,X
STA $F1
LDA $F0
STA $0B00,X
LDA $0B80,X
STA $F0
LDA $F1
STA $0B80,X
LDA $0C00,X
STA $F1
LDA $F0
STA $0C00,X
LDA $0C80,X
STA $F0
LDA $F1
STA $0C80,X
LDA $0D00,X
STA $F1
LDA $F0
STA $0D00,X
LDA $0D80,X
STA $F0
LDA $F1
STA $0D80,X
LDA $0E00,X
STA $F1
LDA $F0
STA $0E00,X
LDA $0E80,X
STA $F0
LDA $F1
STA $0E80,X
LDA $0F00,X
STA $F1
LDA $F0
STA $0F00,X
LDA $0F80,X
STA $F0
LDA $F1
STA $0F80,X
LDA $F0
STA $0800,X
INX
CPX #$02
BCS L69AA
JMP L6902
L69AA RTS
L69AB CLC
LDA $00
ADC $17
STA $F4
CLC
LDA $01
ADC $18
STA $F5
LDX #$1F
L69BB LDA $4D60,X
BEQ L69CF
LDA $4D00,X
CMP $F4
BNE L69CF
LDA $4D20,X
CMP $F5
BNE L69CF
RTS
L69CF DEX
BNE L69BB
RTS
L69D3 STA $FA
LDA $4E14
BEQ L6A36
LDA $00
CMP #$40
BCS L69E9
LDA $01
CMP #$40
BCS L69E9
JMP L6A36
L69E9 LDA $4E24
STA $00
LDA $4E25
STA $01
LDA #$00
STA $4E14
JSR L6706
LDA $4E37
BEQ L6A14
LDA $4E34
STA $F4
LDA $4E35
STA $F5
JSR $437B
LDA #$50
STA ($06),Y
JMP L528B
L6A14 JSR PRINTSTR
ASC 04
ASC "BSAVE PLAYER,A$4E00,L$100"8D00
JMP L528B
L6A36 LDA $FA
AND #$7F
CMP #$02
BNE L6A56
SED
SEC
LDA $4E1C
SBC #$05
STA $4E1C
LDA $4E1B
SBC #$00
STA $4E1B
CLD
BCS L6A56
JMP L5437
L6A56 CMP #$2E
BNE L6ABF
LDA $4EA0
BEQ L6A83
JSR PRINTSTR
ASC 8D
ASC "RING PROTECTS FROM FIELD!"00
JSR $4419
JMP L6ABF
L6A83 JSR PRINTSTR
ASC 8D
ASC "FIELD CAUSES 1000 DAMAGE!"00
LDA #$00
STA $17
STA $18
JSR $459D
JSR $4419
JSR $459D
SED
LDA $4E1B
SBC #$10
STA $4E1B
CLD
BCS L6ABF
JMP L5437
L6ABF LDA $DA
BEQ L6AD7
JSR PRINTSTR
ASC "--PARALIZED!"0D00
LDA #$FF
RTS
L6AD7 LDA $11
CMP #$28
BNE L6AE0
JMP L6B6C
L6AE0 CMP #$26
BNE L6AE7
JMP L6B76
L6AE7 CMP #$24
BNE L6AEE
JMP L6B88
L6AEE CMP #$22
BNE L6B02
JSR $43E9
LDX #$FF
L6AF7 LDY #$20
L6AF9 DEY
BNE L6AF9
DEX
BNE L6AF7
JMP L6B95
L6B02 JSR $43E9
LDX #$FF
L6B07 LDY #$20
L6B09 DEY
BNE L6B09
DEX
BNE L6B07
JSR $43E9
SED
SEC
LDA $4E1F
SBC #$19
STA $4E1F
LDA $4E1E
SBC #$00
STA $4E1E
LDA $4E1D
SBC #$00
STA $4E1D
CLD
BCS L6B32
JMP L6703
L6B32 LDA $FA
AND #$7F
CMP #$60
BNE L6B3D
JMP L6BDA
L6B3D CMP #$00
BEQ L6B70
CMP #$08
BEQ L6B70
CMP #$22
BEQ L6B73
CMP #$24
BEQ L6B73
CMP #$26
BEQ L6B73
CMP #$28
BEQ L6B73
CMP #$2A
BEQ L6B73
CMP #$2C
BEQ L6B73
CMP #$2E
BEQ L6B73
CMP #$38
BEQ L6B73
CMP #$16
BCS L6B70
JMP L6B73
L6B6C JSR L6B70
RTS
L6B70 LDA #$FF
RTS
L6B73 JMP L6BCB
L6B76 JSR L6B95
CMP #$FF
BEQ L6B70
LDA $FA
AND #$7F
CMP #$06
BEQ L6B70
JMP L6B73
L6B88 LDA $FA
CMP #$00
BEQ L6B73
CMP #$80
BEQ L6B73
JMP L6B70
L6B95 SED
SEC
LDA $4E1F
SBC #$19
STA $4E1F
LDA $4E1E
SBC #$00
STA $4E1E
LDA $4E1D
SBC #$00
STA $4E1D
CLD
BCS L6BB5
JMP L6703
L6BB5 JSR L6B02
CMP #$FF
BEQ L6B70
LDA $FA
AND #$7F
CMP #$02
BEQ L6B70
CMP #$60
BEQ L6B70
JMP L6B73
L6BCB LDA $00
AND #$3F
STA $00
LDA $01
AND #$3F
STA $01
LDA #$00
RTS
L6BDA LDA $11
STA $F0
LDA $00
STA $F4
LDA $01
STA $F5
JSR $437B
LDA $4E3A
STA ($06),Y
CLC
LSR
STA $11
JSR UPDATE
LDA $F0
STA $11
JSR $442A
LDA $00
STA $4E24
LDA $01
STA $4E25
JSR L6764
LDA $4E38
LSR
CMP $4E13
BCC L6C15
CLC
ADC #$01
L6C15 STA $4E13
JSR L6706
CLC
LDA $4E13
ASL
ASL
ASL
ADC $4E38
TAX
LDA L6CA6,X
STA $00
INX
LDA L6CA6,X
STA $01
JSR UPDATE
JSR $442A
PLA
PLA
JMP L528B
L6C3C LDA $4E37
BEQ L6C42
RTS
L6C42 DEC $4E39
BEQ L6C48
RTS
L6C48 CLC
LDA $4E13
ASL
ASL
ASL
STA $F0
ADC $4E38
TAX
LDA L6CA6,X
STA $F4
INX
LDA L6CA6,X
STA $F5
JSR $437B
CMP #$C0
BNE L6C6E
LDY #$00
LDA $4E3A
STA ($06),Y
L6C6E LDA #$08
STA $4E39
INC $4E38
INC $4E38
LDA $4E38
AND #$07
STA $4E38
CLC
ADC $F0
TAX
LDA L6CA6,X
STA $F4
INX
LDA L6CA6,X
STA $F5
JSR $437B
CMP #$14
BCC L6C98
RTS
L6C98 STA $4E3A
LDY #$00
LDA #$C0
STA ($06),Y
LDA $F4
LDX $F5
RTS
L6CA6 DA $381D
DA $381F
DA $3821
DA $3823
DA $0822
DA $1C2F
DA $3824
DA $2514
DA $1010
DA $1830
DA $182A
DA $3413
DA $3438
DA $0C1C
DA $1721
DA $3414
DA $1712
DA $2232
DA $1834
DA $0B08
L6CCE LDA $DC
BEQ L6CF2
JSR PRINTSTR
ASC "CMD: "00
LDA #$14
STA $FC
L6CDF JSR PRINTSTR
ASC "Z"00
LDX #$FF
L6CE6 DEX
BNE L6CE6
DEC $FC
BNE L6CDF
DEC $DC
JMP L528B
L6CF2 JSR PRINTSTR
ASC "CMD: "00
LDX #$FF
LDY #$FF
L6CFF LDA KBD
BMI L6D21
PHA
PLA
PHA
PLA
PHA
PLA
PHA
PLA
PHA
PLA
PHA
PLA
DEX
BNE L6CFF
DEY
BNE L6CFF
JSR PRINTSTR
ASC "PASS"00
JMP L528B
L6D21 BIT KBDSTROBE
CMP #$8D
BNE L6D2B
JMP L6D4A
L6D2B CMP #$88
BNE L6D32
JMP L6DFC
L6D32 CMP #$95
BNE L6D39
JMP L6E22
L6D39 CMP #$AF
BNE L6D40
JMP L6E49
L6D40 CMP #$A0
BNE L6D47
JMP L6E80
L6D47 JMP L521E
L6D4A JSR PRINTSTR
ASC "ADVANCE"00
LDA $13
AND #$0F
BEQ L6D6C
L6D5B JSR PRINTSTR
ASC "-BLOCKED!"8700
JMP L528B
L6D6C LDA $13
CMP #$80
BEQ L6D5B
CLC
LDA $00
ADC $02
AND #$3F
STA $00
CLC
LDA $01
ADC $03
AND #$3F
STA $01
JSR $4592
CMP $F6
BCC L6D8E
JMP L528B
L6D8E JSR L5917
LDA #$00
STA $FB
JSR PRINTSTR
ASC 8D
ASC "ARGH! A TRAP!"8D00
LDA #$10
STA $F0
L6DAC LDY #$10
L6DAE BIT SPKR
LDX $F0
L6DB3 DEX
BNE L6DB3
DEY
BNE L6DAE
INC $F0
BNE L6DAC
JSR $4419
JSR $4419
JSR $4419
JSR $4419
LDA $4E30
BNE L6DD1
JMP L5437
L6DD1 JSR PRINTSTR
ASC "ESCAPED! BY USE OF TOOLS!"00
SED
SEC
LDA $4E30
SBC #$01
STA $4E30
CLD
JMP L528B
L6DFC JSR PRINTSTR
ASC "TURN LEFT"00
LDA $03
BEQ L6E16
STA $02
LDA #$00
STA $03
JMP L528B
L6E16 SEC
SBC $02
STA $03
LDA #$00
STA $02
JMP L528B
L6E22 JSR PRINTSTR
ASC "TURN RIGHT"00
LDA $02
BEQ L6E3D
STA $03
LDA #$00
STA $02
JMP L528B
L6E3D SEC
SBC $03
STA $02
LDA #$00
STA $03
JMP L528B
L6E49 JSR PRINTSTR
ASC "RETREAT"00
LDA $14
AND #$8F
BEQ L6E6B
JSR PRINTSTR
ASC "-BLOCKED!"8700
JMP L528B
L6E6B LDA $00
SEC
SBC $02
AND #$3F
STA $00
LDA $01
SEC
SBC $03
AND #$3F
STA $01
JMP L528B
L6E80 JSR PRINTSTR
ASC "PASS"00
JMP L528B
L6E8B LDA #$00
STA L6F89
STA L6F8A
STA $17
STA $18
JSR L5917
L6E9A LDA L6F89
CLC
ADC $17
AND #$3F
STA $F4
LDA L6F8A
CLC
ADC $18
AND #$3F
STA $F5
JSR $437B
BNE L6EB6
JMP L6F5C
L6EB6 CMP #$10
BEQ L6ED5
CMP #$78
BCC L6EC2
CMP #$F0
BCC L6ED5
L6EC2 CMP #$08
BEQ L6EFF
CMP #$0C
BEQ L6EF1
CMP #$04
BEQ L6F10
CMP #$70
BEQ L6F21
JMP L6F40
L6ED5 LDX #$00
LDY #$00
JSR L6F72
LDX #$00
LDY #$01
JSR L6F72
LDX #$02
LDY #$01
JSR L6F72
LDX #$02
LDY #$00
JSR L6F72
L6EF1 LDX #$01
LDY #$01
JSR L6F72
LDX #$03
LDY #$00
JSR L6F72
L6EFF LDX #$01
LDY #$00
JSR L6F72
LDX #$03
LDY #$01
JSR L6F72
JMP L6F5C
L6F10 LDX #$01
LDY #$00
JSR L6F72
LDX #$03
LDY #$00
JSR L6F72
JMP L6F5C
L6F21 LDX #$00
LDY #$00
JSR L6F72
LDX #$00
LDY #$01
JSR L6F72
LDX #$02
LDY #$00
JSR L6F72
LDX #$02
LDY #$01
JSR L6F72
JMP L6F5C
L6F40 LDX #$01
LDY #$00
JSR L6F72
LDX #$02
LDY #$00
JSR L6F72
LDX #$02
LDY #$01
JSR L6F72
LDX #$01
LDY #$01
JSR L6F72
L6F5C INC $17
LDA $17
AND #$3F
STA $17
BEQ L6F69
L6F66 JMP L6E9A
L6F69 INC $18
LDA $18
CMP #$40
BCC L6F66
RTS
L6F72 STX $02
STY $03
LDA $17
ASL
ASL
ADC $02
STA $F0
LDA $18
ASL
ADC $03
STA $F1
JSR $4713
RTS
L6F89 HEX 53
L6F8A HEX 4E
L6F8B JSR PRINTSTR
ASC "ATTACK--"00
LDA $4E14
CMP #$04
BCC L6FA1
JMP L719A
L6FA1 LDA $DB
BEQ L6FB7
JSR PRINTSTR
ASC "PARALIZED!"8700
JMP L528B
L6FB7 JSR L67E7
JSR $44B2
JSR L69AB
STX $F1
CPX #$00
BNE L6FC9
JMP L718D
L6FC9 JSR $4592
LSR
CMP $4E16
BCC L6FD5
JMP L718D
L6FD5 JSR $459D
JSR L57F3
JSR PRINTSTR
ASC "--HIT!!!"00
JSR $4408
LDA $4E2B
ASL
ASL
ASL
ADC $4E15
LSR
LSR
STA $F0
LDX $F1
L6FF9 SEC
LDA $4D40,X
SBC $F0
BCC L7061
STA $4D40,X
JSR $459D
LDA $4D60,X
CMP #$40
BEQ L7011
JMP L528B
L7011 JSR $404D
JSR $442A
JSR $404D
LDX $F1
LDA $4D00,X
STA $F4
LDA $4D20,X
STA $F5
JSR $437B
LDA $4D80,X
STA ($06),Y
LDA $F4
STA $4D20,X
LDA $F5
STA $4D00,X
STA $F4
LDA $4D20,X
STA $F5
JSR $437B
LDA $4D60,X
STA ($06),Y
LDA #$84
STA $4DA0,X
JSR PRINTSTR
ASC 8D
ASC "SHE'S GONE!!!"00
JMP L528B
L7061 LDA $4D00,X
STA $F4
LDA $4D20,X
STA $F5
JSR $437B
LDY #$00
LDA $4D80,X
STA ($06),Y
LDA $4D60,X
CMP #$40
BNE L708D
JSR PRINTSTR
ASC 8D04
ASC "BRUN END"8D
JMP L528B
L708D CMP #$60
BNE L709F
SED
CLC
LDA $4E2F
ADC #$02
STA $4E2F
CLD
JMP L711B
L709F CMP #$FC
BNE L70CF
STX $F0
JSR $4592
CMP #$40
BCS L70B7
SED
CLC
LDA $4E30
ADC #$01
STA $4E30
CLD
L70B7 JSR $4592
AND #$0F
BEQ L70CA
TAX
SED
CLC
LDA $4EA0,X
ADC #$01
STA $4EA0,X
CLD
L70CA LDX $F0
JMP L711B
L70CF CMP #$F0
BNE L70FE
STX $F0
JSR $4592
CMP #$40
BCS L70E7
SED
CLC
LDA $4EA5
ADC #$01
STA $4EA5
CLD
L70E7 LDX $F0
JSR $4592
AND #$03
ADC #$01
SED
CLC
ADC $4E2E
STA $4E2E
CLD
LDX $F0
JMP L711B
L70FE CMP #$F8
BNE L711B
STX $F0
JSR $4592
AND #$01
TAX
INX
SED
CLC
LDA $4EA0,X
ADC #$01
STA $4EA0,X
CLD
LDX $F0
JMP L711B
L711B LDA #$00
STA $4D80,X
STA $4D40,X
STA $4D00,X
STA $4D20,X
STA $4D60,X
JSR PRINTSTR
ASC 0D
ASC "KILLED--GOLD+"00
JSR $4592
AND #$17
ORA #$01
STA $F0
JSR PRBYTE
SED
CLC
LDA $4E23
ADC $F0
STA $4E23
LDA $4E22
ADC #$00
STA $4E22
CLD
JSR PRINTSTR
ASC "--EXP.+"00
JSR $4592
AND #$03
ADC #$01
STA $F0
JSR PRBYTE
SED
CLC
LDA $4E21
ADC $F0
STA $4E21
LDA $4E20
ADC #$00
STA $4E20
CLD
JSR $459D
JMP L528B
L718D JSR PRINTSTR
ASC "--MISS"00
JMP L528B
L719A JSR $44B2
LDA $00
CLC
ADC $02
STA $F4
LDA $01
CLC
ADC $03
STA $F5
LDA $F6
JSR L5A60
AND #$07
BNE L71B7
JMP L7292
L71B7 LDX #$1F
STX $F0
L71BB LDA $4D00,X
CMP $F4
BNE L71D3
LDA $4D20,X
CMP $F5
BNE L71D3
LDA $4D80,X
CMP $F6
BNE L71D3
JMP L71DC
L71D3 DEC $F0
LDX $F0
BNE L71BB
JMP L7292
L71DC JSR $4592
LSR
CMP $4E16
BCC L71E8
JMP L7292
L71E8 JSR PRINTSTR
ASC "HIT!"00
JSR $459D
JSR $4408
JSR $459D
LDA $4E2B
ASL
ASL
ASL
ADC $4E15
LSR
LSR
LDX $F0
STA $F1
LDA $4D40,X
SEC
SBC $F1
BCC L7216
STA $4D40,X
JMP L528B
L7216 LDA #$00
STA $4D40,X
STA $4D60,X
STA $4D80,X
LDA $4D00,X
STA $F4
LDA $4D20,X
STA $F5
LDA $F6
JSR L5A60
LDA ($06),Y
AND #$F0
STA ($06),Y
JSR PRINTSTR
ASC 8D
ASC "KILLED--GOLD+"00
JSR $4592
AND #$17
ORA #$01
STA $F1
JSR PRBYTE
SED
CLC
LDA $4E23
ADC $F1
STA $4E23
LDA $4E22
ADC #$00
STA $4E22
CLD
JSR PRINTSTR
ASC "--EXP.+"00
JSR $4592
AND #$07
STA $F1
JSR PRBYTE
SED
CLC
LDA $4E21
ADC $F1
STA $4E21
LDA $4E20
ADC #$00
STA $4E20
CLD
JMP L528B
L7292 JSR PRINTSTR
ASC "MISS"00
JMP L528B
L729D JSR PRINTSTR
ASC "BOARD"00
LDA $4E14
CMP #$04
BCC L72C5
L72AD JSR PRINTSTR
ASC 8D
ASC 87
ASC "THINK AGAIN "00
JSR $4084
JMP L528B
L72C5 LDA $11
CMP #$78
BCC L72AD
LDA $00
STA $F4
LDA $01
STA $F5
JSR $437B
LDA $12
CMP #$22
BEQ L72FF
CMP #$24
BEQ L72F6
CMP #$26
BEQ L72F9
CMP #$28
BEQ L72FC
JSR PRINTSTR
ASC " WHAT?"8700
JMP L528B
L72F6 JMP L7316
L72F9 JMP L736E
L72FC JMP L73B2
L72FF JSR PRINTSTR
ASC " HORSE"00
LDA #$08
LDX #$00
STA ($06,X)
LDA #$22
STA $11
JMP L528B
L7316 LDA $4EAC
BNE L7356
JSR PRINTSTR
ASC " SHIP"8D
ASC "THE CREW OF THIS SHIP"8D
ASC "WILL NOT LET YOU BOARD!"8700
JMP L528B
L7356 JSR PRINTSTR
ASC " FRIGATE"00
LDA #$00
TAY
STA ($06),Y
LDA #$24
STA $11
JMP L528B
L736E LDA $4EA9
BNE L739B
JSR PRINTSTR
ASC " PLANE"8D
ASC "STRANGE YOU CAN'T GET IN!"8700
JMP L528B
L739B JSR PRINTSTR
ASC " PLANE"00
LDA #$08
LDY #$00
STA ($06),Y
LDA #$26
STA $11
JMP L528B
L73B2 JSR PRINTSTR
ASC " ROCKET"00
LDA $4EA7
BNE L73FA
JSR PRINTSTR
ASC "A METALIC VOICE COMMANDS:"8D
ASC "YOU MUST HAVE AN ANKH!"8700
JMP L528B
L73FA LDA #$08
LDY #$00
STA ($06),Y
LDA #$28
STA $11
JMP L528B
L7407 JSR PRINTSTR
ASC "CAST-"00
LDA $4E2D
CLC
ADC #$24
JSR $409C
LDA $4EA1
CLC
ADC $4EA2
BNE L7440
JSR PRINTSTR
ASC 8D
ASC "NEED WAND OR STAFF!"00
JSR $4399
JMP L528B
L7440 LDA $4E2D
BNE L7448
JMP L528B
L7448 TAX
LDA $4E80,X
BNE L7462
JSR PRINTSTR
ASC 8D
ASC "NO SPELL!"00
JSR $4399
JMP L528B
L7462 JSR $44A7
LDX $4E2D
SED
SEC
LDA $4E80,X
SBC #$01
STA $4E80,X
CLD
LDA $4E14
CMP #$04
BCS L748C
JSR PRINTSTR
ASC "-FAILED!"00
JSR $4399
JMP L528B
L748C LDA $4E2D
BNE L7494
JMP L528B
L7494 CMP #$01
BEQ L74C3
CMP #$02
BEQ L74CA
CMP #$03
BEQ L74F6
CMP #$04
BEQ L750E
CMP #$05
BEQ L74B7
CMP #$06
BEQ L74BA
CMP #$07
BEQ L74BD
CMP #$08
BNE L74C0
JMP L7559
L74B7 JMP L7531
L74BA JMP L7534
L74BD JMP L753C
L74C0 JMP L7580
L74C3 LDA #$96
STA $FB
JMP L528B
L74CA LDA $4E14
CMP #$04
BEQ L74FD
L74D1 LDA $F6
CMP #$0F
BCC L74E9
L74D7 JSR PRINTSTR
ASC "-FAILED!"00
JSR $4399
JMP L528B
L74E9 CLC
ADC #$01
JSR L5A60
BNE L74D7
INC $F6
JMP L7A42
L74F6 LDA $4E14
CMP #$04
BEQ L74D1
L74FD LDA $F6
BEQ L7531
SEC
SBC #$01
JSR L5A60
BNE L74D7
DEC $F6
JMP L7A42
L750E CLC
LDA $00
ADC $02
AND #$0F
BEQ L74D7
STA $F4
LDA $01
ADC $03
AND #$0F
BEQ L74D7
STA $F5
LDA $F6
JSR L5A60
BPL L74D7
LDA #$00
STA ($06),Y
JMP L528B
L7531 JMP L7A58
L7534 JSR $4592
BMI L74D7
JMP L7580
L753C JSR L758B
BEQ L74D7
LDA $4E20
ASL
ADC #$1E
STA $F1
LDA $4D40,X
SBC $F1
STA $4D40,X
BCS L7556
JMP L7216
L7556 JMP L528B
L7559 JSR $4592
AND #$0F
ORA #$01
STA $F4
JSR $4592
AND #$0F
ORA #$01
STA $F5
LDA $F6
JSR L5A60
BEQ L7575
JMP L74D7
L7575 LDA $F4
STA $00
LDA $F5
STA $01
JMP L528B
L7580 JSR L758B
BNE L7588
JMP L74D7
L7588 JMP L7216
L758B LDX #$1F
L758D LDA $4D60,X
BNE L7598
L7592 DEX
BNE L758D
LDA #$00
RTS
L7598 LDA $4D80,X
CMP $F6
BNE L7592
LDA $00
CLC
ADC $02
CMP $4D00,X
BNE L7592
LDA $01
CLC
ADC $03
CMP $4D20,X
BNE L7592
TXA
RTS
L75B5 JSR PRINTSTR
ASC "DESCEND"00
LDA $4E14
CMP #$05
BEQ L75D9
CMP #$04
BEQ L75D9
L75CB JSR PRINTSTR
ASC "-WHAT?"8700
JMP L528B
L75D9 LDA $12
AND #$20
BEQ L75CB
LDA $4E14
CMP #$04
BNE L75E9
JMP L7A3E
L75E9 INC $F6
JMP L7A42
L75EE JSR PRINTSTR
ASC "ENTER"00
LDA $4E14
BEQ L7609
JSR PRINTSTR
ASC " WHAT?"00
JMP L528B
L7609 LDA $11
CMP #$78
BCS L7625
JSR PRINTSTR
ASC "-ONLY ON FOOT!"8700
JMP L528B
L7625 LDA $12
LSR
SEC
SBC #$05
BNE L7630
JMP L7660
L7630 SBC #$01
BNE L7637
JMP L7693
L7637 SBC #$01
BNE L763E
JMP L76C3
L763E SBC #$01
BNE L7645
JMP L7709
L7645 SBC #$01
BNE L764C
JMP L773B
L764C SBC #$01
BNE L7653
JMP L7781
L7653 JSR PRINTSTR
ASC " WHAT?"00
JMP L528B
L7660 JSR PRINTSTR
ASC "-VILLAGE"00
LDA $00
STA $4E24
LDA $01
STA $4E25
JSR L6764
LDA #$1F
STA $00
LDA #$3E
STA $01
LDA #$01
STA $4E14
JSR L6706
JSR L673F
LDA #$04
STA $10
JMP L528B
L7693 JSR PRINTSTR
ASC "-TOWN"00
LDA $00
STA $4E24
LDA $01
STA $4E25
JSR L6764
LDA #$1F
STA $00
LDA #$3E
STA $01
LDA #$02
STA $4E14
JSR L6706
JSR L673F
LDA #$04
STA $10
JMP L528B
L76C3 JSR PRINTSTR
ASC "-TOWER"00
LDA $00
STA $4E24
LDA $01
STA $4E25
JSR L6764
LDA #$00
STA $F6
STA $03
LDA #$01
STA $02
LDA #$05
STA $00
STA $01
LDA #$04
STA $4E14
JSR L6706
JSR PRINTSTR
ASC 04
ASC "BLOAD MONSTERS!"00
JMP L528B
L7709 JSR PRINTSTR
ASC "-CASTLE"00
LDA $00
STA $4E24
LDA $01
STA $4E25
JSR L6764
LDA #$1F
STA $00
LDA #$3E
STA $01
LDA #$03
STA $4E14
JSR L6706
JSR L673F
LDA #$04
STA $10
JMP L528B
L773B JSR PRINTSTR
ASC "-DUNGEON"00
LDA $00
STA $4E24
LDA $01
STA $4E25
JSR L6764
LDA #$00
STA $F6
STA $03
LDA #$01
STA $02
LDA #$05
STA $00
STA $01
STA $4E14
JSR L6706
JSR PRINTSTR
ASC 04
ASC "BLOAD MONSTERS!"00
JMP L528B
L7781 JSR PRINTSTR
ASC "-THE SIGN READS:"0D00
LDX $4E13
BEQ L77BA
DEX
BEQ L77CF
DEX
BEQ L77EA
DEX
BEQ L7800
JSR PRINTSTR
ASC "ANOS: 2112 A.D."00
JMP L528B
L77BA JSR PRINTSTR
ASC "ANOS: LEGENDS!"00
JMP L528B
L77CF JSR PRINTSTR
ASC "ANOS: 9,000,000 B.C."00
JMP L528B
L77EA JSR PRINTSTR
ASC "ANOS: 1423 B.C."00
JMP L528B
L7800 JSR PRINTSTR
ASC "ANOS: 1990 A.D."00
JMP L528B
L7816 JSR PRINTSTR
ASC "FIRE"00
LDA $11
CMP #$24
BEQ L7832
JSR PRINTSTR
ASC " WHAT?"8700
JMP L528B
L7832 JSR PRINTSTR
ASC " DIRECT-"00
JSR L67E7
JSR L7862
JSR L69AB
STX $F1
CPX #$00
BNE L7850
JMP L718D
L7850 JSR $4592
ORA #$20
STA $F0
JSR $459D
JSR $4408
LDX $F1
JMP L6FF9
L7862 LDX #$01
L7864 TXA
TAY
L7866 DEY
NOP
NOP
NOP
NOP
BNE L7866
BIT SPKR
INX
BNE L7864
RTS
L7874 LDA $00
STA $F4
LDA $01
STA $F5
JSR $437B
LDA #$08
STA ($06),Y
RTS
L7884 JSR PRINTSTR
ASC "GET"00
LDA $4E14
CMP #$04
BCC L7895
JMP L7902
L7895 LDA $12
CMP #$2A
BEQ L78DE
CMP #$2C
BEQ L78AC
JSR PRINTSTR
ASC " WHAT?"00
JMP L528B
L78AC JSR PRINTSTR
ASC " WEAPON"00
JSR L7874
JSR $4592
AND #$07
BEQ L78D0
TAX
SED
CLC
LDA $4E40,X
ADC #$01
STA $4E40,X
CLD
JMP L528B
L78D0 JSR PRINTSTR
ASC " EMPTY!"00
JMP L528B
L78DE JSR PRINTSTR
ASC " ARMOUR"00
JSR L7874
JSR $4592
AND #$03
BEQ L78D0
TAX
SED
CLC
LDA $4E60,X
ADC #$01
STA $4E60,X
CLD
JMP L528B
L7902 LDA $12
CMP #$40
BEQ L7915
JSR PRINTSTR
ASC " WHAT?"00
JMP L528B
L7915 JSR PRINTSTR
ASC "CHEST!"8D
ASC "IT CONTAINS "00
LDA $00
STA $F4
LDA $01
STA $F5
LDA $F6
JSR L5A60
LDA #$00
STA ($06),Y
LDA $F6
CMP #$0F
BEQ L7983
JSR $4592
CMP #$40
BCC L7972
JSR PRINTSTR
ASC "GOLD!"00
JSR $4592
AND #$1F
ADC $F6
ADC $F6
AND #$77
SED
CLC
ADC $4E23
STA $4E23
LDA $4E22
ADC #$00
STA $4E22
CLD
JMP L528B
L7972 LDA $F6
LSR
BCC L797A
JMP L78DE
L797A JSR PRINTSTR
ASC "A "00
JMP L78AC
L7983 JSR PRINTSTR
ASC "TRI-LITHIUM!"00
SED
CLC
LDA $4EAF
ADC #$01
STA $4EAF
CLD
JMP L528B
L79A1 JSR PRINTSTR
ASC "HYPER WHAT?"00
JMP L528B
L79B3 JSR PRINTSTR
ASC "IGNITE TORCH"00
LDA $4E14
CMP #$04
BCS L79CD
JMP L528B
L79CD LDA $4E2E
BNE L79E6
JSR PRINTSTR
ASC 8D
ASC "NONE OWNED!"8700
JMP L528B
L79E6 SED
SEC
LDA $4E2E
SBC #$01
STA $4E2E
CLD
LDA #$96
STA $FB
JMP L528B
L79F8 JSR PRINTSTR
ASC "JUMP...WHEE..."00
JMP L528B
L7A0D JSR PRINTSTR
ASC "KLIMB"00
LDA $4E14
CMP #$05
BEQ L7A2E
CMP #$04
BEQ L7A2E
L7A21 JSR PRINTSTR
ASC "-WHAT?"00
JMP L528B
L7A2E LDA $12
AND #$10
BEQ L7A21
LDA $4E14
CMP #$04
BNE L7A3E
JMP L75E9
L7A3E DEC $F6
BMI L7A58
L7A42 JSR PRINTSTR
ASC 8D
ASC "TO LEVEL "00
LDA $F6
JSR PRBYTE
JMP L528B
L7A58 LDA $4E24
STA $00
LDA $4E25
STA $01
LDX #$00
LDA #$FF
L7A66 STA $4B00,X
STA $4C00,X
DEX
BNE L7A66
LDA #$00
STA $4E14
JSR L6706
JSR PRINTSTR
ASC 04
ASC "BLOAD SHAPES"8D00
LDA $4E24
STA $00
LDA $4E25
STA $01
LDA $4E37
BEQ L7AAC
LDA $4E34
STA $F4
LDA $4E35
STA $F5
JSR $437B
LDA #$50
STA ($06),Y
JMP L528B
L7AAC JSR PRINTSTR
ASC 04
ASC "BSAVE PLAYER,A$4E00,L$100"8D00
JMP L528B
L7ACE LDA $11
CMP #$26
BNE L7AD7
JMP L7C1B
L7AD7 CMP #$28
BEQ L7AEE
JSR PRINTSTR
ASC "LAUNCH WHAT?"00
JMP L528B
L7AEE JSR PRINTSTR
ASC "LAUNCH--ROCKET"00
LDA $4EAF
BNE L7B3D
JSR PRINTSTR
ASC 8D
ASC "A METALLIC VOICE SAYS:"8D
ASC "SHIP INCAPABLE OF LAUNCH!"00
JMP L528B
L7B3D JSR PRINTSTR
ASC 8D
ASC "PREPARE FOR LAUNCH!"8D
ASC 04
ASC "BLOAD STARS.OBJ"8D00
LDA $4E37
BNE L7B83
LDA $4E14
BNE L7B83
LDA $00
STA $4E34
LDA $01
STA $4E35
LDA #$01
STA $4E33
JSR L6764
L7B83 JSR $8900
JSR L6706
JSR PRINTSTR
ASC 04
ASC "BLOAD DNGDRAW.OBJ"0D00
LDX #$00
LDA #$FF
L7BA4 STA $4B00,X
STA $4C00,X
DEX
BNE L7BA4
STX $00
STX $01
STA $10
JSR PRINTSTR
ASC "(PRESS ANY KEY)"00
LDA KBDSTROBE
L7BC9 LDA $01
CLC
ADC #$02
AND #$3F
STA $01
AND #$07
BNE L7BDD
LDA $00
CLC
ADC #$01
STA $00
L7BDD JSR UPDATE
LDA KBD
BPL L7BC9
BIT KBDSTROBE
LDA $00
STA $F4
LDA $01
STA $F5
JSR $437B
AND #$7F
CMP #$08
BEQ L7BFC
JMP L5437
L7BFC LDA $4E37
BNE L7C09
LDA #$00
STA $4E33
JMP L528B
L7C09 LDA $00
STA $4E34
LDA $01
STA $4E35
LDA #$01
STA $4E33
JMP L528B
L7C1B JSR PRINTSTR
ASC "LAUNCH--PLANE"00
LDA $4EAB
BNE L7C65
JSR PRINTSTR
ASC 8D
ASC "FUNNY THIS PLANE IS"8D
ASC "MISSING A BRASS BUTTON!"8700
JMP L528B
L7C65 LDA #$00
STA $F2
LDA #$FF
STA $F3
JSR PRINTSTR
ASC 0D
ASC "CMD: "00
L7C77 JSR $43E9
LDA KBD
BIT KBDSTROBE
CMP #$8D
BNE L7C87
JMP L7CCE
L7C87 CMP #$AF
BNE L7C8E
JMP L7CE8
L7C8E CMP #$95
BNE L7C95
JMP L7D02
L7C95 CMP #$88
BNE L7C9C
JMP L7D1B
L7C9C CMP #$CC ; L
BNE L7CA3
JMP L7D34
L7CA3 CLC
LDA $00
ADC $F2
AND #$3F
STA $00
CLC
LDA $01
ADC $F3
AND #$3F
STA $01
LDA $4E14
BEQ L7CC8
LDA $00
BEQ L7CC5
LDA $01
BEQ L7CC5
JMP L7CC8
L7CC5 JMP L69E9
L7CC8 JSR UPDATE
JMP L7C77
L7CCE LDA #$00
STA $F2
LDA #$FF
STA $F3
JSR PRINTSTR
ASC "NORTH"0D
ASC "CMD: "00
JMP L7CA3
L7CE8 LDA #$00
STA $F2
LDA #$01
STA $F3
JSR PRINTSTR
ASC "SOUTH"0D
ASC "CMD: "00
JMP L7CA3
L7D02 LDA #$01
STA $F2
LDA #$00
STA $F3
JSR PRINTSTR
ASC "EAST"0D
ASC "CMD: "00
JMP L7CA3
L7D1B LDA #$FF
STA $F2
LDA #$00
STA $F3
JSR PRINTSTR
ASC "WEST"0D
ASC "CMD: "00
JMP L7CA3
L7D34 LDA $00
STA $F4
LDA $01
STA $F5
JSR $437B
CMP #$08
BNE L7D55
JSR PRINTSTR
ASC "LAND PLANE."00
JMP L528B
L7D55 JSR PRINTSTR
ASC "LAND--NOT HERE!!!!!"0D
ASC "CMD: "00
JMP L7CA3
L7D75 JSR PRINTSTR
ASC "MAGIC SPELL READY #"00
JSR L653E
STA $4E2D
JSR PRINTSTR
ASC "SPELL READY => "00
LDA $4E2D
CLC
ADC #$24
JSR $409C
JMP L528B
L7DB1 JSR PRINTSTR
ASC "NEGATE TIME"00
LDA $4EAD
BNE L7DE5
JSR PRINTSTR
ASC " HOW?"8D
ASC "YOU'RE NOT EINSTEIN"00
JMP L528B
L7DE5 SED
SEC
LDA $4EAD
SBC #$01
STA $4EAD
CLD
JSR PRINTSTR
ASC 8D
ASC "YOU RUB A COIN..."00
LDA #$14
STA $D9
JMP L528B
L7E0D JSR PRINTSTR
ASC "OFFER GOLD DIRECT-"00
JSR L67E7
JSR L69AB
STX $F0
LDA #$8D
JSR COUT
CPX #$00
BNE L7E49
JSR PRINTSTR
ASC "OFFER TO WHOM?"00
JMP L528B
L7E49 JSR PRINTSTR
ASC "HOW MUCH (*100) ? "00
JSR L653E
STA $FC
LDA #$00
STA $FD
JSR L655D
LDX $F0
LDA $4DA0,X
BPL L7E83
LDA $4E14
CMP #$02
BNE L7E83
LDA $4E13
CMP #$03
BNE L7E83
JMP L7E9E
L7E83 JSR PRINTSTR
ASC "THANK YOU VERY MUCH!"00
JMP L528B
L7E9E LDX $F0
LDA $4DA0,X
CMP #$81
BEQ L7EB2
CMP #$82
BEQ L7ED4
CMP #$83
BEQ L7F12
JMP L7F3A
L7EB2 LDA $FC
CMP #$05
BCC L7E83
JSR PRINTSTR
ASC "ENILNO IS YOURS!"00
LDA #$01
STA $4E49
JMP L528B
L7ED4 LDA $FC
CMP #$05
BCC L7E83
LDA $4E36
BNE L7EF4
JSR PRINTSTR
ASC "EARN THE RING!"00
JMP L528B
L7EF4 JSR PRINTSTR
ASC "THE RING IS YOURS!"00
LDA #$01
STA $4EA0
JMP L528B
L7F12 JSR $4592
AND #$07
SED
CLC
TAX
INX
LDA $4E40,X
ADC #$01
STA $4E40,X
CLD
JSR PRINTSTR
ASC "HERE TAKE THIS!"00
JMP L528B
L7F3A JSR $4592
AND #$07
CMP #$06
BCC L7F46
JMP L7E83
L7F46 TAX
INX
SED
CLC
LDA $4E15,X
ADC $FC
ADC $FC
ADC $FC
ADC $FC
STA $4E15,X
CLD
JSR PRINTSTR
ASC "ALAKAZAM!"00
JMP L528B
L7F69 JSR PRINTSTR
ASC "PASS"00
JMP L528B
L7F74 JSR PRINTSTR
ASC "QUIT OR SAVE GAME."00
LDA $4E14
BEQ L7FA6
JSR PRINTSTR
ASC 8D
ASC "ONLY OUTDOORS!"8700
JMP L528B
L7FA6 LDA $4E37
BEQ L7FC2
JSR PRINTSTR
ASC 8D
ASC "ONLY ON EARTH!"8700
JMP L528B
L7FC2 LDA $11
CMP #$78
BCS L7FDE
JSR PRINTSTR
ASC 8D
ASC "ONLY ON FOOT!"8700
JMP L528B
L7FDE JSR PRINTSTR
ASC 8D
ASC "ONE MOMENT PLEASE!"00
JSR L6764
JMP L528B
L7FFB JSR PRINTSTR
ASC "READY WEAPON:"0D
ASC "1-DA, 2-MA, 3-AX, 4-BO,"0D
ASC "5-SW, 6-GR, 7-LI, 8-PH."0D
ASC "9-QU, WHICH? "00
JSR L653E
STA $F0
CLC
ADC #$13
JSR $409C
LDX $F0
LDA $4E40,X
BNE L8073
LDA $F0
BEQ L8073
JSR PRINTSTR
ASC " NOT OWNED!"8700
JMP L528B
L8073 LDA $F0
ASL
ASL
ASL
CMP $4E16
BCC L80AB
JSR PRINTSTR
ASC " <-THOU ART NOT "8D
ASC "AGILE ENOUGH TO WIELD!"00
JMP L528B
L80AB JSR PRINTSTR
ASC " READY."00
LDA $F0
STA $4E2B
JMP L528B
L80BE JSR PRINTSTR
ASC "STEAL DIRECT-"00
JSR L67E7
CLC
LDA $00
ADC $17
STA $F4
CLC
LDA $01
ADC $18
STA $F5
LDA #$8D
JSR COUT
JSR $437B
BMI L80EE
CMP #$7C
BNE L8106
L80EE CLC
LDA $F4
ADC $17
STA $F4
CLC
LDA $F5
ADC $18
STA $F5
JSR $437B
CMP #$68
BNE L8106
JMP L811F
L8106 JSR PRINTSTR
ASC "NO LUCK!"00
JSR $4592
AND #$07
BNE L811C
JSR L57F3
L811C JMP L528B
L811F LDA $4E11
CMP #$03
BEQ L812B
JSR $4592
BMI L8106
L812B JSR $4592
BMI L8106
LDA $4DA0
CMP #$01
BEQ L8106
LDA $4E14
CMP #$01
BEQ L8151
CMP #$02
BNE L8106
LDA $01
CMP #$20
BCS L8106
LDA $00
CMP #$20
BCS L817A
JMP L81A0
L8151 LDA $01
CMP #$20
BCS L8106
LDA $00
CMP #$20
BCC L8106
JSR PRINTSTR
ASC "STEAL FOOD!"00
SED
CLC
LDA $4E1D
ADC #$01
STA $4E1D
CLD
JMP L528B
L817A JSR PRINTSTR
ASC "STEAL ARMOUR!"00
JSR $4592
AND #$03
TAX
INX
SED
CLC
LDA $4E60,X
ADC #$01
STA $4E60,X
CLD
JMP L528B
L81A0 JSR PRINTSTR
ASC "STEAL WEAPONS!"00
JSR $4592
AND #$07
TAX
INX
SED
CLC
LDA $4E40,X
ADC #$01
STA $4E40,X
CLD
JMP L528B
L81C7 JSR PRINTSTR
ASC "TRANSACT-"00
JSR L67E7
JSR L69AB
STX $F1
LDA #$8D
JSR COUT
LDA $4E14
BEQ L820B
CPX #$00
BNE L8225
JSR $437B
BMI L81F3
CMP #$7C
BNE L820B
L81F3 CLC
LDA $F4
ADC $17
STA $F4
CLC
LDA $F5
ADC $18
STA $F5
JSR $437B
CMP #$68
BNE L820B
JMP L5B2E
L820B JSR PRINTSTR
ASC "FUNNY, NO RESPONSE!"00
JMP L528B
L8225 LDA $4DA0,X
CMP #$80
BCC L822F
JMP L8369
L822F LDA $4D60,X
CMP #$6C
BNE L8239
JMP L839B
L8239 LDA $4D60,X
CMP #$60
BNE L8264
JSR PRINTSTR
ASC "A GUARD SAYS:"0D
ASC "PAY YOUR TAXES!"00
JMP L528B
L8264 CMP #$64
BNE L8288
JSR PRINTSTR
ASC "A JESTER SINGS:"0D
ASC "HO HO HO!"00
JMP L528B
L8288 CMP #$68
BNE L82BB
JSR PRINTSTR
ASC "A MERCHANT SAYS:"0D
ASC "WILL YOU BUY MY APPLES?"00
JMP L528B
L82BB CMP #$F0
BNE L82E4
JSR PRINTSTR
ASC "A FIGHTER SAYS:"0D
ASC "UGH, ME TOUGH!"00
JMP L528B
L82E4 CMP #$F4
BNE L8306
JSR PRINTSTR
ASC "A CLERIC SAYS:"0D
ASC "BELIEVE!"00
JMP L528B
L8306 CMP #$F8
BNE L8335
JSR PRINTSTR
ASC "A WIZARD SAYS:"0D
ASC "HEX-E-POO-HEX-ON-YOU!"00
JMP L528B
L8335 CMP #$FC
BNE L8366
JSR PRINTSTR
ASC "A THIEF SAYS:"0D
ASC "PSST, WANNA BUY A WATCH?"00
JMP L528B
L8366 JMP L820B
L8369 SEC
SBC #$80
JSR L5AF7
LDY #$07
L8371 INC $4E
BNE L8371
INC $4F
BNE L8371
DEY
BNE L8371
LDX $F1
LDA $4E37
CMP #$09
BNE L8398
LDA $4E14
CMP #$03
BNE L8398
LDA $4DA0,X
CMP #$81
BNE L8398
LDA #$01
STA $4E36
L8398 JMP L528B
L839B JSR PRINTSTR
ASC "WELCOME MY CHILD "00
JSR $4084
JSR PRINTSTR
ASC 8D
ASC "FIRST MY 50 G.P. TRIBUTE!"8D00
LDA #$50
STA $FD
LDA #$00
STA $FC
JSR L655D
JSR PRINTSTR
ASC "AND FOR IT I RAISE THEE "00
LDA $4E1B
LDX #$03
CMP #$50
BCC L8410
LDX #$02
CMP #$75
BCC L8410
LDX #$01
CMP #$99
BCC L8410
LDX #$00
L8410 STX $F0
TXA
LDX #$00
JSR PRNTAX
SED
CLC
LDA $4E1B
ADC $F0
STA $4E1B
CLD
JMP L528B
L8426 JSR PRINTSTR
ASC "UNLOCK DIRECTION-"00
JSR L67E7
LDA $17
BNE L8459
L8442 JSR PRINTSTR
ASC 8D
ASC "NO DOOR THERE!"8700
JMP L528B
L8459 LDA $01
STA $F5
LDA $00
CLC
ADC $17
STA $F4
JSR $437B
CMP #$A0
BNE L8442
LDA $4E2F
BNE L848A
JSR PRINTSTR
ASC 8D
ASC "NO KEYS THAT FIT!"8700
JMP L528B
L848A SED
SEC
LDA $4E2F
SBC #$01
STA $4E2F
CLD
LDA $12
ASL
LDX #$00
STA ($06,X)
JMP L528B
L849F LDA $4EA5
BNE L84B5
L84A4 JSR PRINTSTR
ASC "VIEW WHAT?"00
JMP L528B
L84B5 LDA $4E14
CMP #$04
BCS L84A4
JSR PRINTSTR
ASC "VIEW"8D
ASC "WITH MAGICAL HELM!"00
SED
SEC
LDA $4EA5
SBC #$01
STA $4EA5
CLD
LDA #$20
STA $F4
STA $F5
JSR L6E8B
BIT KBDSTROBE
L84EE LDA KBD
BPL L84EE
BIT KBDSTROBE
LDX #$FF
LDA #$FF
L84FA STA $4B00,X
STA $4C00,X
DEX
BNE L84FA
STA $4B00
STA $4C00
JMP L528B
L850C JSR PRINTSTR
ASC "WEAR ARMOUR:"0D
ASC "1-CLOTH, 2-LEATHER, 3-CHAIN,"0D
ASC "4-PLATE, 5-REFLECT, 6-POWER,"0D
ASC "WHICH? "00
JSR L653E
STA $F0
CMP #$07
BCC L856B
LDA #$00
STA $F0
L856B CLC
ADC #$1D
JSR $409C
LDX $F0
LDA $4E60,X
BNE L858E
LDA $F0
BEQ L858E
JSR PRINTSTR
ASC " NOT OWNED!"00
JMP L528B
L858E LDA $F0
ASL
ASL
ASL
CMP $4E15
BCC L85C5
JSR PRINTSTR
ASC " <-THOU ART NOT"0D
ASC "STRONG ENOUGH TO WEAR!"00
JMP L528B
L85C5 JSR PRINTSTR
ASC " READY."00
LDA $F0
STA $4E2C
JMP L528B
L85D8 JSR PRINTSTR
ASC "X-IT"00
LDA $11
CMP #$78
BCC L85F4
JSR PRINTSTR
ASC " WHAT?"8700
JMP L528B
L85F4 LDA $00
STA $F4
LDA $01
STA $F5
JSR $437B
LDA $12
CMP #$04
BEQ L8621
CMP #$00
BNE L860F
LDA $11
CMP #$24
BEQ L8621
L860F JSR PRINTSTR
ASC "-NOT HERE!"8700
JMP L528B
L8621 LDA $11
ASL
LDY #$00
STA ($06),Y
LDA $4E11
ASL
CLC
ADC #$78
STA $11
JMP L528B
L8634 JSR PRINTSTR
ASC "YELL WHAT?"8D00
L8643 LDA KBD
BPL L8643
CMP #$8D
BEQ L8655
JSR COUT
BIT KBDSTROBE
JMP L8643
L8655 JSR COUT
BIT KBDSTROBE
JMP L528B
L865E LDA #$28
STA $21
JSR HOME
LDA TXTSET
JSR $4084
JSR PRINTSTR
ASC 8D
ASC "A LEVEL "00
LDA $4E20
JSR PRBYTE
LDA #$A0
JSR COUT
LDA $4E10
JSR $4069
LDA #$A0
JSR COUT
LDA $4E12
CLC
ADC #$44
JSR $409C
LDA #$A0
JSR COUT
LDA $4E11
CLC
ADC #$48
JSR $409C
LDA #$8D
JSR COUT
LDA #$8D
JSR COUT
JSR PRINTSTR
ASC "WEAPON: "00
LDA $4E2B
CLC
ADC #$13
JSR $409C
LDX #$1B
LDY #$03
JSR $458A
JSR PRINTSTR
ASC "TORCHES-"00
LDA $4E2E
JSR PRBYTE
LDX #$00
LDY #$04
JSR $458A
JSR PRINTSTR
ASC "ARMOUR: "00
LDA $4E2C
CLC
ADC #$1D
JSR $409C
LDX #$1E
LDY #$04
JSR $458A
JSR PRINTSTR
ASC "KEYS-"00
LDA $4E2F
JSR PRBYTE
LDX #$01
LDY #$05
JSR $458A
JSR PRINTSTR
ASC "SPELL: "00
LDA $4E2D
CLC
ADC #$24
JSR $409C
LDX #$1D
LDY #$05
JSR $458A
JSR PRINTSTR
ASC "TOOLS-"00
LDA $4E30
JSR PRBYTE
LDX #$00
LDY #$07
JSR $458A
LDA #$3E
JSR $409C
LDA #$AD
JSR COUT
LDA $4E15
JSR PRBYTE
LDX #$01
LDY #$08
JSR $458A
LDA #$3F
JSR $409C
LDA #$AD
JSR COUT
LDA $4E16
JSR PRBYTE
LDX #$0E
LDY #$07
JSR $458A
LDA #$40
JSR $409C
LDA #$AD
JSR COUT
LDA $4E17
JSR PRBYTE
LDX #$0D
LDY #$08
JSR $458A
LDA #$41
JSR $409C
LDA #$AD
JSR COUT
LDA $4E18
JSR PRBYTE
LDX #$1F
LDY #$07
JSR $458A
LDA #$42
JSR $409C
LDA #$AD
JSR COUT
LDA $4E19
JSR PRBYTE
LDX #$1A
LDY #$08
JSR $458A
LDA #$43
JSR $409C
LDA #$AD
JSR COUT
LDA $4E1A
JSR PRBYTE
LDX #$00
LDY #$0A
JSR $458A
JSR PRINTSTR
ASC "WEAPONS: "00
LDX #$01
L87E1 LDA $4E40,X
BEQ L8802
STX $F0
TXA
CLC
ADC #$13
JSR $409C
JSR PRINTSTR
ASC "S-"00
LDX $F0
LDA $4E40,X
JSR PRBYTE
LDA #$A0
JSR COUT
L8802 INX
CPX #$0A
BCC L87E1
LDX #$00
LDY #$0D
JSR $458A
JSR PRINTSTR
ASC "ARMOUR: "00
LDX #$01
L881C LDA $4E60,X
BEQ L883C
STX $F0
TXA
CLC
ADC #$1D
JSR $409C
JSR PRINTSTR
ASC "-"00
LDX $F0
LDA $4E60,X
JSR PRBYTE
LDA #$A0
JSR COUT
L883C INX
CPX #$07
BCC L881C
LDX #$00
LDY #$0F
JSR $458A
JSR PRINTSTR
ASC "SPELLS: "00
LDX #$01
L8856 LDA $4E80,X
BEQ L8877
STX $F0
TXA
CLC
ADC #$24
JSR $409C
JSR PRINTSTR
ASC "S-"00
LDX $F0
LDA $4E80,X
JSR PRBYTE
LDA #$A0
JSR COUT
L8877 INX
CPX #$0A
BCC L8856
LDX #$00
LDY #$11
JSR $458A
JSR PRINTSTR
ASC "ITEMS: "00
LDX #$00
L8890 LDA $4EA0,X
BEQ L88B1
STX $F0
TXA
CLC
ADC #$2E
JSR $409C
JSR PRINTSTR
ASC "S-"00
LDX $F0
LDA $4EA0,X
JSR PRBYTE
LDA #$A0
JSR COUT
L88B1 INX
CPX #$10
BCC L8890
LDX #$00
L88B8 LDA KBD
BPL L88B8
BIT KBDSTROBE
JSR HOME
LDA TXTCLR
LDA HIRES
JSR $44DE
JMP L528B
Reference in New Issue View Git Blame Copy Permalink