main.asm

;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; Main routine
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;

;
; **** ZP FIELDS ****
;
f3C = $3C
f4C = $4C
f95 = $95
f96 = $96
f97 = $97
fFF = $FF
;
; **** ZP ABSOLUTE ADRESSES ****
;
a01 = $01
a05 = $05
a13 = $13
a3C = $3C
a5D = $5D
a5E = $5E
a5F = $5F
a60 = $60
aA5 = $A5
aAE = $AE
aC5 = $C5
aDA = $DA
aE6 = $E6
;
; **** ZP POINTERS ****
;
p22 = $22                       ;sprite to create: X lo
p24 = $24                       ;rows that trigger sprite type init
p26 = $26                       ;sprite to create: X hi
p28 = $28                       ;what sprite type to create at row
p2A = $2A
p5D = $5D
p5F = $5F
p83 = $83
pA9 = $A9
pD0 = $D0
pD2 = $D2
pF7 = $F7
pFB = $FB
pFC = $FC
pFD = $FD
;
; **** FIELDS ****
;
f0000 = $0000
f00A2 = $00A2
fD040 = $D040
fDB48 = $DB48
fDB98 = $DB98
fDBDA = $DBDA
fE087 = $E087
fE348 = $E348
fE398 = $E398
fE3F8 = $E3F8
fE6DC = $E6DC
fEFBA = $EFBA
;
; **** ABSOLUTE ADRESSES ****
;
a0014 = $0014
a0019 = $0019                   ;Stores current hero animation, but seems unused
a001A = $001A
a0022 = $0022
a0023 = $0023
a0024 = $0024
a0025 = $0025
a0026 = $0026
a0027 = $0027
a0028 = $0028
a0029 = $0029
a002A = $002A
a002B = $002B
a003D = $003D
a003F = $003F
a0041 = $0041
a004B = $004B                   ;4b-5a Related to sprite Y pos, used in raster multiplexer
a004C = $004C
a004E = $004E
a0053 = $0053
a0054 = $0054
a0055 = $0055
a0056 = $0056
a0057 = $0057
a0058 = $0058
a0059 = $0059
a005A = $005A
a00A7 = $00A7
VIC_SPRITE_IDX = $00A8          ;Index used for sprite pos (e.g: $D000,idx) in raster intr.
a00C9 = $00C9
a00D7 = $00D7
a00F7 = $00F7
a00F8 = $00F8
a00FB = $00FB
a00FC = $00FC
a00FD = $00FD
a00FE = $00FE
a0400 = $0400
a0401 = $0401
V_SCROLL_BIT_IDX = $0402        ;pixels scrolled vertically: 0-7
V_SCROLL_ROW_IDX = $0403        ;index to the row in the level: 0 means end of scroll (top of map)
V_SCROLL_DELTA = $0404          ;How many pixels needs to get scrolled. $0: no scroll needed, $ff: -1 one pixel
a0405 = $0405
IRQ_ADDR_LO = $0406
IRQ_ADDR_HI = $0407
GAME_TICK = $040A               ;Incremented from main loop
RASTER_TICK = $040B             ;Incremeted from raster routine
SPRITES_X_HI00 = $040D          ;MSB for X pos
SPRITES_X_HI01 = $040E
SPRITES_X_HI04 = $0411
SPRITES_X_HI05 = $0412
SPRITES_X_LO00 = $041D          ;LSB for X pos
SPRITES_X_LO01 = $041E
SPRITES_X_LO04 = $0421
SPRITES_X_LO05 = $0422
SPRITES_Y00 = $042D
SPRITES_Y01 = $042E
SPRITES_Y04 = $0431
SPRITES_Y05 = $0432
SPRITES_BKG_PRI00 = $043D
SPRITES_BKG_PRI01 = $043E
SPRITES_BKG_PRI04 = $0441
SPRITES_BKG_PRI05 = $0442
SPRITES_COLOR00 = $044D         ;primary color of sprite
SPRITES_COLOR01 = $044E
SPRITES_COLOR04 = $0451
SPRITES_COLOR05 = $0452
SPRITES_PTR00 = $045D           ;frame to be used by sprite
SPRITES_PTR01 = $045E
SPRITES_PTR04 = $0461
SPRITES_PTR05 = $0462
SPRITES_DELTA_X00 = $046D       ;pixels to move horizontally for hero (neg or pos)
SPRITES_DELTA_X01 = $046E
SPRITES_DELTA_X04 = $0471
SPRITES_DELTA_X05 = $0472
SPRITES_DELTA_Y00 = $047D       ;pixels to move vertically for hero (neg or pos)
SPRITES_DELTA_Y01 = $047E
SPRITES_DELTA_Y04 = $0481
SPRITES_DELTA_Y05 = $0482
SPRITES_TYPE00 = $048D
SPRITES_TYPE01 = $048E
SPRITES_TYPE04 = $0491
SPRITES_TYPE05 = $0492
SPRITES_COUNTER00 = $049D       ;TICK and COUNTER are the same, but using different
                                ; names since they are not contiguous in memory
SPRITES_COUNTER03 = $04A0       ;referenced in throw grenade
a04A1 = $04A1                   ;Used to link sprites together (?)
a04AC = $04AC                   ;Used as index to delta_tbl, and index to anim frames (?)
SPRITES_TICK05 = $04B7
SPRITES_RASTER_Y00 = $04C2      ;Raster Intr. uses values from here instead of SPRITES_Y00
FIRE_COOLDOWN = $04DF           ;reset with $ff
HERO_ANIM_MOV_IDX = $04E0       ;Movement anim for hero: left,right,up,down,diagoanly,etc.
                                ; See: SOLDIER_ANIM_FRAMES_HI/LO
a04E1 = $04E1                   ;Bullet speed idx (???)
BKG_COLOR0 = $04E2
BKG_COLOR1 = $04E3
BKG_COLOR2 = $04E4
COUNTER1 = $04E6
a04E7 = $04E7
TRIGGER_ROW_IDX = $04E8         ;If equal to row index, create object
a04E9 = $04E9                   ;unused
a04EA = $04EA
a04EC = $04EC
a04ED = $04ED
a04EE = $04EE                   ;Hero is moving up (unused)
ENEMIES_IN_FORT = $04EF         ;How many enemies are inside the fort/warehouse
TMP_SPRITE_X_LO = $04F0         ;Temp sprite-X LSB for current sprite
TMP_SPRITE_Y = $04F1            ;ditto for Y
TMP_SPRITE_X_HI = $04F2         ;ditto for X MSB
LEVEL_NR = $04F3
a04F4 = $04F4                   ;Seems to be a delay or something related to enemies inside
IS_LEVEL_COMPLETE = $04F5       ;0: game in progress, 1:lvl complete. Exit animation finished (unused apparently)
IS_ANIM_EXIT_DOOR = $04F7       ;1: hero goes to exit door animation in progress
SCORE_LSB = $04F8
SCORE_MSB = $04F9
a04FD = $04FD
GRENADES = $04FF
LIVES = $0500
a0501 = $0501
a0502 = $0502
IS_HERO_DEAD = $0503            ;0: hero alive, 1:was shot, 2:fell down in trench
a0504 = $0504
HISCORE_IS_BULLET_ANIM = $0505  ;1: if the bullet in hiscore is being animated
HISCORE_NAME = $0506            ;8 chars reserved for the hiscore name ($0506-$050E)
HISCORE_NAME_IDX = $050F        ;Index to the hiscore name
HISCORE_SELECTED_CHAR = $0510   ;Selected char in hiscore
HISCORE_IS_CHAR_ANIM = $0511    ;1: if the selected char in hiscore is being animated
HISCORE_ANIM_CHAR_COUNTER = $0512       ;Counter to the selected char animation in hiscore
aE34E = $E34E
aE34F = $E34F
aE350 = $E350
aE351 = $E351
aE359 = $E359
aE35A = $E35A
aE361 = $E361
aE362 = $E362
aE36A = $E36A
aE36B = $E36B
aE36C = $E36C
aE36D = $E36D
aE3F9 = $E3F9
aE3FA = $E3FA
aE3FB = $E3FB
aE3FC = $E3FC
aE3FD = $E3FD
aE3FE = $E3FE
aE3FF = $E3FF
aECEC = $ECEC
aFFC0 = $FFC0
;
; **** POINTERS ****
;
pD800 = $D800
pD829 = $D829
pD882 = $D882
pE000 = $E000
pE029 = $E029
pE082 = $E082
;
; **** EXTERNAL JUMPS ****
;
e03F0 = $03F0
eF00A = $F00A
;
; **** PREDEFINED LABELS ****
;

        * = $0800

        .BYTE $00,$0B,$08,$0A,$00,$9E,$32,$30
        .BYTE $36,$31,$00,$00,$00

        LDA #$00     ;#%00000000
        TAY
        STA aA5
        STA aAE
        LDA #$09     ;#%00001001
        JSR s0828
        JSR s083D
        JSR eF00A   ; set charset: copy from e000-efff to d000-dfff
        JSR s083D
        JSR s0828
        JMP BOOT

s0828   LDA #$01     ;#%00000001
        TAX
        TAY
        NOP
        NOP
        NOP
        LDA #$00     ;#%00000000
        NOP
        NOP
        NOP
        LDA #$00     ;#%00000000
        LDX #$FF     ;#%11111111
        LDY #$FF     ;#%11111111
        JMP e03F0

s083D   SEI
b083E   LDA a01
        EOR #$02     ;#%00000010
        STA a01
        RTS

        ; TODO: unused, remove
        .BYTE $E0,$09,$D0,$F5,$20,$AD,$35,$20
        .BYTE $57,$0A,$20

;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
BOOT    ;$0850
        SEI
        LDA #<NMI_HANDLER
        STA $0318    ;NMI
        LDA #>NMI_HANDLER
        STA $0319    ;NMI
        CLI
        LDX #$00     ;#%00000000
_L00    LDA RESET_ROUTINE,X
        STA $8000,X  ;Sets the reset routine (CBM80)
        INX
        CPX #$09     ;#%00001001
        BNE _L00

        JSR SETUP_VIC_BANK
        JSR SET_SIGHT_SPRITE
        JSR INIT_RANDOM

        ; Sprite Y pos used in raster multiplexer
        LDX #$10
_L01    TXA
        STA a004B,b,X
        DEX
        BPL _L01

        LDA #$00     ;#%00000000
        STA a0502
        STA a0501

START   ;$0883
        LDA #$A5     ;Set initial starting row
        STA V_SCROLL_ROW_IDX
        JSR SETUP_LEVEL
        JSR SETUP_SCREEN
        JSR SETUP_IRQ

        ; Display main title screen
        LDA #$00     ;Song to play (main theme)
        JSR MUSIC_INIT
        JSR SCREEN_MAIN_TITLE

        JSR s5006    ;Music stop?
        LDA #$00     ;#%00000000
        STA SCORE_LSB
        STA SCORE_MSB
        STA V_SCROLL_BIT_IDX
        STA LEVEL_NR
        STA $D01D    ;Sprites Expand 2x Horizontal (X)
        STA $D017    ;Sprites Expand 2x Vertical (Y)
        LDA #$05     ;#%00000101
        STA GRENADES
        STA LIVES

        ;riq
        ;lda #3
        ;sta LEVEL_NR

START_LEVEL          ;$08B8
        LDA #$A5     ;#%10100101
        STA V_SCROLL_ROW_IDX
        LDA #$00     ;Song to play (main theme)
        JSR MUSIC_INIT

        ; Restart after life lost
RESTART
        JSR SETUP_LEVEL
        JSR SETUP_SCREEN
        JSR SETUP_IRQ

        ; Main loop
GAME_LOOP            ;$08CB
        JSR WAIT_RASTER_AT_BOTTOM
        LDA V_SCROLL_DELTA
        BEQ _L00
        CLC
        ADC V_SCROLL_BIT_IDX
        AND #$07     ;#%00000111
        STA V_SCROLL_BIT_IDX
        CMP #$07     ;#%00000111
        BNE _L00
        DEC V_SCROLL_ROW_IDX
        LDA #$00     ;#%00000000
        STA a04E9
        JSR APPLY_DELTA_MOV
        INC a04E9
        JSR LEVEL_DRAW_VIEWPORT
        INC a04E9
        JMP GAME_LOOP

_L00    INC GAME_TICK
        JSR APPLY_DELTA_MOV
        JSR s3F24
        JSR TRY_THROW_GRENADE
        JSR ANIM_ENEMIES
        JSR RUN_ACTIONS
        JSR ANIM_HERO

        LDA IS_HERO_DEAD
        BNE HERO_DIED
        JSR HANDLE_JOY2
        LDA IS_ANIM_EXIT_DOOR
        BNE _L01
        JSR CHECK_COLLISION
_L01    LDA SPRITES_Y00
        CMP #$5A
        BNE GAME_LOOP

        LDA #$14     ;Points won after beating lvl
        JSR SCORE_ADD
        LDA LEVEL_NR
        AND #$03     ;#%00000011
        CMP #$03     ;#%00000011
        BNE _L02

        ;Play animation at end of Level 3
        LDA #$09     ;#%00001001
        JSR SFX_PLAY
        JSR SET_FORT_ON_FIRE

_L02    LDA #$02     ;Song to play (Level complete)
        JSR MUSIC_INIT
        JSR PRINT_LVL_COMPLETE
        INC LEVEL_NR
        LDA LEVEL_NR
        AND #$03     ;#%00000011
        CMP #$02     ;#%00000010
        BNE _L03
        INC LEVEL_NR
_L03    JMP START_LEVEL

        ; Animate hero "is dead"
HERO_DIED               ;b0953
        LDA IS_HERO_DEAD
        CMP #$02     ;Died of fall in trench/water?
        BNE _L01

        ; Hero fell down in trench
        INC COUNTER1
        LDA COUNTER1
        CMP #$14     ;#%00010100
        BCC _L00
        CMP #$50     ;#%01010000
        BCS _L03
        LDA #$CC     ;Hero fall down in trench frame #1
        STA SPRITES_PTR00
        JMP GAME_LOOP

_L00    LDA #$CB     ;Hero fall down in trench frame #0
        STA SPRITES_PTR00
        JMP GAME_LOOP

        ; Hero was shot
_L01    INC COUNTER1
        LDA COUNTER1
        CMP #$14     ;#%00010100
        BCC _L02
        CMP #$50     ;#%01010000
        BCS _L03
        LDA #$B8     ;Hero was shot: frame #1
        STA SPRITES_PTR00
        JMP GAME_LOOP

_L02    LDA #$DD     ;Hero was shot: frame #0
        STA SPRITES_PTR00
        JMP GAME_LOOP

        ; End of "died" animation. Decrease life.
_L03    DEC LIVES
        JSR SCREEN_REFRESH_LIVES
        LDA LIVES
        BEQ GAME_OVER
        JMP RESTART

;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
GAME_OVER
        LDX #$06     ;#%00000110
_L00    TXA
        ASL A
        TAY
        LDA SCORE_MSB
        CMP HISCORE_LSB00,Y
        BCC _L04
        BNE _L01
        LDA SCORE_LSB
        CMP HISCORE_MSB00,Y
        BCC _L04
_L01    TXA
        ASL A
        TAY
        LDA HISCORE_LSB00,Y
        STA HISCORE_LSB01,Y
        LDA HISCORE_MSB00,Y
        STA HISCORE_MSB01,Y
        TXA
        ASL A
        ASL A
        ASL A
        TAY
_L02    LDA HISCORE_NAME00,Y
        STA HISCORE_NAME01,Y
        INY
        TYA
        AND #$07     ;#%00000111
        BNE _L02
        DEX
        BPL _L00

        LDA SCORE_MSB
        STA HISCORE_LSB00
        LDA SCORE_LSB
        STA HISCORE_MSB00
        JSR SCREEN_ENTER_HI_SCORE

        LDY #$00
_L03    LDA HISCORE_NAME,Y
        STA HISCORE_NAME00,Y
        INY
        CPY #$08
        BNE _L03
        JMP _L07

_L04    TXA
        ASL A
        TAY
        LDA SCORE_MSB
        STA HISCORE_LSB01,Y
        LDA SCORE_LSB
        STA HISCORE_MSB01,Y
        CPX #$06     ;#%00000110
        BNE _L05
        JMP START

_L05    TXA
        PHA
        JSR SCREEN_ENTER_HI_SCORE
        PLA
        ASL A
        ASL A
        ASL A
        TAX
        LDY #$00     ;#%00000000
_L06    LDA HISCORE_NAME,Y
        STA HISCORE_NAME01,X
        INX
        INY
        CPY #$08     ;#%00001000
        BNE _L06

_L07    JSR CLEANUP_SPRITES
        JSR DISPLAY_HI_SCORES

        LDY #$64     ;#%01100100
        JSR DELAY

        ; Wait for 255 frames or joystick fire

        LDA #$FF     ;#%11111111
        STA COUNTER1
_L08    LDA $DC00    ;CIA1: Data Port Register A  (fire in Game Over scene)
        CMP #$6F     ;#%01101111
        BEQ _L09
        JSR WAIT_RASTER_AT_BOTTOM
        DEC COUNTER1
        BNE _L08
_L09    JMP START

NMI_HANDLER
        RTI

        ;TODO: This generates small garbage in the top row of the map.
        ;Can be safely removed once we don't care about the generating exaclty
        ;the same binary.
RESET_ROUTINE       ;$0A4E
        .ADDR BOOT, BOOT
        .BYTE $C3,$C2,$CD,$38,$30

;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; Sets the sight "()" sprite for high scores as sprite $41 (@ $D040)
SET_SIGHT_SPRITE    ;$0A57
        ;TODO: probably it is safe to remove the stop/start timer since
        ;timer is not being used by code, and is already stop
        LDA $DC0E    ;CIA1: CIA Control Register A
        AND #$FE     ;#%11111110 Stop timer
        STA $DC0E    ;Stop timer
        LDA a01
        AND #$FB     ;#%11111011    Enabling RAM at $D000 I guess
        STA a01

        LDX #$3F     ;size of sprite
_L00    LDA SIGHT_SPR_DATA,X
        STA fD040,X  ;It will be sprite $41
        DEX
        BPL _L00

        LDA a01
        ORA #$04     ;#%00000100    Enabling I/O at $D000 I guess
        STA a01
        LDA $DC0E    ;CIA1: CIA Control Register A
        ORA #$01     ;#%00000001 Start timer (why ?)
        STA $DC0E    ;Start Timer
        RTS

SIGHT_SPR_DATA      ;$0A7F
        .BYTE $00,$00,$00,$02,$AA,$00,$0A,$AA
        .BYTE $80,$28,$20,$A0,$20,$20,$20,$20
        .BYTE $00,$20,$A0,$00,$28,$80,$00,$08
        .BYTE $80,$20,$08,$80,$20,$08,$A0,$A8
        .BYTE $28,$A0,$A8,$28,$80,$20,$08,$80
        .BYTE $20,$08,$80,$00,$08,$A0,$00,$28
        .BYTE $20,$00,$20,$20,$20,$20,$28,$20
        .BYTE $A0,$0A,$AA,$80,$02,$AA,$00

;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; Animates the selected char in hiscore
HISCORE_ANIM_CHAR       ;$0ABE
        LDA HISCORE_IS_CHAR_ANIM
        BEQ _SKIP

        LDY #$00     ;#%00000000
        INC HISCORE_ANIM_CHAR_COUNTER
        LDA HISCORE_ANIM_CHAR_COUNTER
        CMP #$32     ;#%00110010
        BEQ _L02
        AND #$0F     ;#%00001111
        LSR A
        LSR A
        AND #$03
        BEQ _L00
        AND #$01
        BNE _L01
        LDA HISCORE_SELECTED_CHAR
        CLC
        ADC #$20     ;Select the flipped char
        STA (pF7),Y
        RTS

_L00    LDA HISCORE_SELECTED_CHAR
        STA (pF7),Y
        RTS

_L01    LDA #$79     ;Select the regular char
        STA (pF7),Y
        RTS

_L02    LDA #$00     ;#%00000000
        STA HISCORE_IS_CHAR_ANIM
        LDA HISCORE_SELECTED_CHAR
        STA (pF7),Y
_SKIP   RTS

;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; Get the selected char with the sight in the hiscore scene
HISCORE_GET_SELECTED_CHAR       ;$0AFA
        LDA SPRITES_X_LO05
        AND #$F0     ;#%11110000
        SEC
        SBC #$10     ;#%00010000
        PHP
        LSR A
        LSR A
        LSR A
        PLP
        BCC _L00
        LDY SPRITES_X_HI05
        BEQ _L00
        CLC
        ADC #$20     ;#%00100000
_L00    STA a00FB,b
        LDA #$00     ;#%00000000
        STA a00FC,b
        STA a00FD,b
        STA a00FE,b
        LDA SPRITES_Y05
        AND #$F0     ;#%11110000
        SEC
        SBC #$2E     ;#%00101110
        LSR A
        LSR A
        LSR A
        PHA
        LSR A
        ROR a00FC,b
        LSR A
        ROR a00FC,b
        LSR A
        ROR a00FC,b
        STA a00FD,b
        PLA
        ASL A
        ROL a00FE,b
        ASL A
        ROL a00FE,b
        ASL A
        ROL a00FE,b
        CLC
        ADC a00FC,b
        STA a00FC,b
        LDA a00FD,b
        ADC a00FE,b
        STA a00FD,b
        LDA a00FC,b
        CLC
        ADC a00FB,b
        STA a00FC,b
        LDA a00FD,b
        ADC #$00     ;#%00000000
        STA a00FD,b
        LDA a00FD,b
        CLC
        ADC #$E0     ;#%11100000
        STA a00FD,b
        LDA a00FC,b
        STA a00F7,b
        LDA a00FD,b
        STA a00F8,b
        SEI
        LDA a01
        AND #$FD     ;Enable I/O to read from Screen RAM
        STA a01

        LDY #$00     ;#%00000000
        LDA (pFC),Y
        STA HISCORE_SELECTED_CHAR

        LDA a01
        ORA #$02
        STA a01

        CLI
        RTS

;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; Sets up the hero and sight sprite, and cleans up name and other vars
HISCORE_SETUP_SPRITES   ;$0B94
        ; Sight sprite
        LDA #$64     ;#%01100100
        AND #$F0     ;#%11110000
        STA SPRITES_X_LO05
        LDA #$64     ;#%01100100
        AND #$F0     ;#%11110000
        STA SPRITES_Y05
        LDA #$00
        STA SPRITES_X_HI05
        LDA #$41     ;sight sprite
        STA SPRITES_PTR05
        LDA #$02     ;red
        STA SPRITES_COLOR05
        LDA #$FF
        STA SPRITES_BKG_PRI05
        LDA #$01
        STA SPRITES_TYPE05
        LDA SPRITES_X_LO05

        ; Hero sprite
        STA SPRITES_X_LO00
        LDA #$B4
        STA SPRITES_Y00
        LDA #$00
        STA SPRITES_X_HI00
        LDA #$98     ;Hero going up
        STA SPRITES_PTR00
        LDA #$06     ;blue
        STA SPRITES_COLOR00
        LDA #$00
        STA SPRITES_BKG_PRI00
        LDA #$01
        STA SPRITES_TYPE00

        LDX #$07
        LDA #$00
_L00    STA HISCORE_NAME,X
        DEX
        BPL _L00

        LDA #$00
        STA HISCORE_IS_BULLET_ANIM
        STA HISCORE_NAME_IDX
        STA HISCORE_IS_CHAR_ANIM

        ; $F7/$F8 -> Screen RAM
        LDA #<pE000
        STA a00F7,b
        LDA #>pE000
        STA a00F8,b

        LDA #$20
        STA HISCORE_SELECTED_CHAR
        JSR APPLY_DELTA_MOV
        JSR s3F24
        RTS

;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
HISCORE_READ_JOY_MOV
        LDA $DC00
        AND #$01     ;#%00000001        up?
        BNE _L00
        LDA SPRITES_Y05
        CMP #$64     ;reached top?
        BCC _L00
        LDA #$FE     ;2 pixels up
        STA SPRITES_DELTA_Y05

_L00    LDA $DC00
        AND #$02     ;#%00000010        down?
        BNE _L01
        LDA SPRITES_Y05
        CMP #$78     ;reached bottom?
        BCS _L01
        LDA #$02     ;2 pixels down
        STA SPRITES_DELTA_Y05

_L01    LDA $DC00    ;CIA1: Data Port Register A (enter high score)
        AND #$04     ;#%00000100        left?
        BNE _L02
        LDA SPRITES_X_LO05
        CMP #$64     ;reached margin left?
        BCC _L02
        LDA #$FE     ;2 pixels to left
        STA SPRITES_DELTA_X05

_L02    LDA $DC00
        AND #$08     ;#%00001000        right?
        BNE _L03
        LDA SPRITES_X_LO05
        CMP #$F0     ;reached margin right?
        BCS _L03
        LDA #$02     ;2 pixels to right