Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-28 22:30:09 +00:00
Code Issues Projects Releases Wiki Activity

mist: can link through linking book

Browse Source
This commit is contained in:
Vince Weaver 2020-03-01 13:28:04 -05:00
parent d971ed7b5f
commit c42e3a7bf4
2 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
mist/mist.s
View File

@ -42,6 +42,10 @@ mist_start:
jsr change_location jsr change_location
lda #1
sta CURSOR_VISIBLE ; visible at first
game_loop: game_loop:
;================= ;=================
@ -60,7 +64,14 @@ game_loop:
;==================================== ;====================================
; draw pointer ; draw pointer
;==================================== ;====================================
lda CURSOR_VISIBLE
bne draw_pointer
jmp no_draw_pointer
draw_pointer: draw_pointer:
lda CURSOR_X lda CURSOR_X
sta XPOS sta XPOS
lda CURSOR_Y lda CURSOR_Y
@ -129,6 +140,8 @@ finger_draw:
sta INH sta INH
jsr put_sprite_crop jsr put_sprite_crop
no_draw_pointer:
;==================================== ;====================================
; page flip ; page flip
;==================================== ;====================================
@ -221,9 +234,14 @@ return_pressed:
not_special_return: not_special_return:
jmp done_keypress ; special case, don't make cursor visible
jmp no_keypress
done_keypress: done_keypress:
lda #1 ; make cursor visible
sta CURSOR_VISIBLE
no_keypress: no_keypress:
bit KEYRESET bit KEYRESET
rts rts
@ -236,6 +254,7 @@ no_keypress:
handle_special: handle_special:
ldy #LOCATION_SPECIAL_FUNC+1 ldy #LOCATION_SPECIAL_FUNC+1
lda (LOCATION_STRUCT_L),Y lda (LOCATION_STRUCT_L),Y
pha
dey dey
lda (LOCATION_STRUCT_L),Y lda (LOCATION_STRUCT_L),Y
pha pha
@ -282,6 +301,13 @@ change_direction:
;============================= ;=============================
change_location: change_location:
; reset pointer to not visible, centered
lda #0
sta CURSOR_VISIBLE
lda #20
sta CURSOR_X
sta CURSOR_Y
lda LOCATION lda LOCATION
asl asl
tay tay

1
mist/zp.inc
View File

@ -50,6 +50,7 @@ LOCATION = $67
LOCATION_STRUCT_L = $68 LOCATION_STRUCT_L = $68
LOCATION_STRUCT_H = $69 LOCATION_STRUCT_H = $69
IN_SPECIAL = $6A IN_SPECIAL = $6A
CURSOR_VISIBLE = $6B
DISP_PAGE = $ED ; ALL DISP_PAGE = $ED ; ALL
DRAW_PAGE = $EE ; ALL DRAW_PAGE = $EE ; ALL