Conan (1984)(Datasoft) - Side A

0x12000.asm

 ORG $A000
 JMP BEGIN
SHL EQU $A07F
SHH EQU $A080
STORD STY $B3F0
 TAY
 LDA $B5FF,Y
 STA $1C
 LDA $B67F,Y
 STA $1D
 LDY #$00
 STY $B3F7
 LDA ($1C),Y
 STA $B3F1
 STA $B3F3
 INY
 LDA ($1C),Y
 STA $B3F4
 STX $B3F5
 BPL NODDR
 INC $B3F7
 AND #$7F
 STA $B3F4
 L

0x1C000.asm

 ORG $A000
SHL EQU $A082
SHH EQU $A083
 JMP BEGIN
DBHA STY $B3F0
 TAY
 LDA $B5FF,Y
 STA $1C
 LDA $B67F,Y
 STA $1D
 LDY #$00
 STY $B3F7
 LDA ($1C),Y
 STA $B3F1
 STA $B3F3
 INY
 LDA ($1C),Y
 STA $B3F4
 STX $B3F5
 BPL NODDR
 INC $B3F7
 AND #$7F
 STA $B3F4
 LDA $B200,X
 ASL
 CLC
 ADC #$02
 TAY
 LDA ($1C),Y
 STA SHL
 INY
 LDA ($1C),Y
 STA SHH
 JMP START1
NODDR LDA $AF00,X
 ASL
 CLC
 ADC #$02
 TAY
 LDA ($1C),Y
 STA SHL
 INY
 LDA ($1C),Y
 STA SHH
START1 LDY $B3F0
 LDA $B400,Y
 STA $1C
 LDA $B500,Y
 STA $1D
 LDX $B3F5
 LDY $B3F7
 BEQ NOD2
 LDA $B000,X
 TAY
 JMP START
NOD2 LDA $B100,X
 TAY
START CPY #$28
 BCS NODR
 LDA ($1C),Y
 TAX
COLLBA LDA $FFFF
 CMP ($1C),Y
 BEQ PLOT
 CPX #$0
 BEQ PLOT
 JMP NODR
PLOT EOR ($1C),Y
 STA ($1C),Y
NODR INC SHL
 BNE OB
 INC SHH
OB INY
 CPY #$4A
 BNE NOY
 LDY #$00
NOY DEC $B3F1
 BNE START
 LDX $B3F3
 STX $B3F1
 DEC $B3F4
 BEQ DONE
 INC $B3F0
 JMP START1
DONE RTS
BEGIN LDX $34F
 BNE ALDY
 JSR DETHDAT
ALDY JSR GETKEY
 JSR BIRD
 JSR OPENDOR
 JSR MANBA
 JSR SPLUP
 JSR CLOUDS
 RTS
GETKEY LDX $300
 CPX #$7E
 BCC NOKEY
 CPX #$D0
 BCS NOKEY
 LDX $301
 CPX #$98
 BCC NOKEY
 CPX #$C0
 BCS NOKEY
 LDX $36E
 BNE NOKEY
 INC $36E
 LDX #$1
 JSR DRAWOB
 LDX #$85
 LDY #$9F
 LDA #$27
 JSR $AE00
NOKEY RTS
OPENDOR LDX $36E
 BEQ NOKEY
 LDX $300
 CPX #$2E
 BCS NO

0x1C560.asm

 TAY
START2 CPY #$28
 BCS NODR2
 LDA $FFFF
 EOR ($1C),Y
 STA ($1C),Y
NODR2 INC SHL2
 BNE OB2
 INC SHH2
OB2 INY
 CPY #$4A
 BNE NOY23
 LDY #$00
NOY23 DEC $B3F1
 BNE START2
 LDX $B3F3
 STX $B3F1
 DEC $B3F4
 BEQ ONE2
 INC $B3F0
 JMP START212
ONE2 RTS
BEGIN JSR LEDSP
 JSR LEDGE
 JSR GEYSER
 JSR SETDATA
 JSR MANONLED
 JSR DOING
 JSR BOANG
 JSR LAVWADE
 JSR CRETDEAT
 JSR SPLASH
 JSR GEM
 JSR GETGEM
 JSR PLAGEM
 J