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

fish: add flashing text for spacebar message

Browse Source
This commit is contained in:
Vince Weaver 2024-06-11 12:56:11 -04:00
parent 9e251acaa4
commit cc0a348394
2 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
games/sb/fish/fish.s
View File

@ -18,9 +18,11 @@
; NOTES ; NOTES
; page1= $2000-$5fff ; hgr page1= $2000-$3fff
; code = $6000-$bfff ; hgr page2= $4000-$5fff
; code = $4000-$bfff
; note we have to be done with the code in page2 before
; we over-write it by playing the game
div7_table = $400 div7_table = $400
mod7_table = $500 mod7_table = $500
@ -130,12 +132,15 @@ wait_at_tile:
jsr set_normal ; normal text jsr set_normal ; normal text
ldx #9 ldx #7
print_help: print_help:
jsr move_and_print jsr move_and_print
dex dex
bne print_help bne print_help
jsr set_flash ; have the "press spacebar" flash
jsr move_and_print
wait_at_directions: wait_at_directions:
lda KEYPRESS lda KEYPRESS
bpl wait_at_directions bpl wait_at_directions

19
games/sb/fish/text_print.s
View File

@ -60,25 +60,36 @@ done_print_string:
rts rts
; set normal text ; set normal text ($80-$ff)
set_normal: set_normal:
lda #$80 lda #$80
sta ps_smc1+1 sta ps_smc1+1
lda #09 ; ora lda #$09 ; ora
sta ps_smc1 sta ps_smc1
rts rts
; restore inverse text ; restore inverse text ($00-$3f)
set_inverse: set_inverse:
lda #$29 lda #$29 ; and
sta ps_smc1 sta ps_smc1
lda #$3f lda #$3f
sta ps_smc1+1 sta ps_smc1+1
rts rts
; set flashing text ($40-$7f)
set_flash:
lda #$40
sta ps_smc1+1
lda #$09 ; ora
sta ps_smc1
rts
;================================ ;================================
; move and print a list of lines ; move and print a list of lines