Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-20 17:29:28 +00:00
Code Issues Projects Releases Wiki Activity

tfv: better clear screen display

Browse Source
This commit is contained in:
Vince Weaver 2017-09-11 14:52:32 -04:00
parent d715ee1f10
commit f8a210ce02
3 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tfv/tfv.s
View File

@ -14,22 +14,10 @@
; memset() ; memset()
;=================================== ;===================================
; Clear top/bottom of page 0 ; Clear top/bottom of page 0 and 1
;=================================== ;===================================
lda #$0 jsr clear_screens
sta DRAW_PAGE
jsr clear_top
jsr clear_bottom
;===================================
; Clear top/bottom of page 1
;===================================
lda #$4
sta DRAW_PAGE
jsr clear_top
jsr clear_bottom
;========================== ;==========================
; Do Opening ; Do Opening

2
tfv/tfv_flying.s
View File

@ -45,6 +45,8 @@ flying_start:
; Clear screen/pages ; Clear screen/pages
jsr clear_screens
jsr set_gr_page0 jsr set_gr_page0
; Init Variables ; Init Variables

22
tfv/tfv_utils.s
View File

@ -2,6 +2,28 @@
;= ROUTINES ;= ROUTINES
;===================================================================== ;=====================================================================
clear_screens:
;===================================
; Clear top/bottom of page 0
;===================================
lda #$0
sta DRAW_PAGE
jsr clear_top
jsr clear_bottom
;===================================
; Clear top/bottom of page 1
;===================================
lda #$4
sta DRAW_PAGE
jsr clear_top
jsr clear_bottom
rts
;========== ;==========
; page_flip ; page_flip
;========== ;==========