81 lines
1.1 KiB
ArmAsm
81 lines
1.1 KiB
ArmAsm
;====================================
|
|
; draw pointer
|
|
;====================================
|
|
|
|
|
|
draw_pointer:
|
|
|
|
lda #0
|
|
sta OVER_LEMMING
|
|
|
|
; jsr save_bg_14x14 ; save old bg
|
|
|
|
; for now assume the only 14x14 sprites are the pointers
|
|
|
|
lda CURSOR_X
|
|
sta XPOS
|
|
lda CURSOR_Y
|
|
sta YPOS
|
|
|
|
; see if over lemming
|
|
|
|
; TODO
|
|
|
|
; see if CURSOR_X==LEMMING_X
|
|
lda CURSOR_X
|
|
cmp lemming_x
|
|
beq check_pointer_y
|
|
clc
|
|
adc #1
|
|
cmp lemming_x
|
|
bne just_crosshair
|
|
|
|
check_pointer_y:
|
|
; see if CURSOR_Y+7 > lemming_y && CURSOR_Y+7 < lemming_y+9
|
|
|
|
lda CURSOR_Y
|
|
clc
|
|
adc #7
|
|
cmp lemming_y
|
|
bcc just_crosshair
|
|
|
|
lda CURSOR_Y ; if cursor_y+7 > lemming_y+9
|
|
sec
|
|
sbc #2
|
|
cmp lemming_y
|
|
bcs just_crosshair
|
|
|
|
|
|
just_select:
|
|
lda #<select_sprite_l
|
|
sta INL
|
|
lda #>select_sprite_l
|
|
jmp common_pointer
|
|
|
|
just_crosshair:
|
|
lda #<crosshair_sprite_l
|
|
sta INL
|
|
lda #>crosshair_sprite_l
|
|
|
|
common_pointer:
|
|
sta INH
|
|
jsr hgr_draw_sprite_14x14
|
|
|
|
rts
|
|
|
|
|
|
;=====================
|
|
; erase pointer
|
|
;=====================
|
|
erase_pointer:
|
|
lda CURSOR_Y
|
|
sta SAVED_Y1
|
|
clc
|
|
adc #16
|
|
sta SAVED_Y2
|
|
|
|
lda CURSOR_X
|
|
tax
|
|
inx
|
|
jmp hgr_partial_restore
|