Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

tfv: better clear screen display

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()
;===================================
; Clear top/bottom of page 0
; Clear top/bottom of page 0 and 1
;===================================
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
jsr clear_screens
;==========================
; Do Opening

2
tfv/tfv_flying.s
View File

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

22
tfv/tfv_utils.s
View File

@ -2,6 +2,28 @@
;= 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
;==========