Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2026-04-26 04:19:15 +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
Download Patch File Download Diff File Expand all files Collapse all files
tfv/tfv.s
+2 -14
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
tfv/tfv_flying.s
+2
View File
@@ -45,6 +45,8 @@ flying_start:
; Clear screen/pages
jsr clear_screens
jsr set_gr_page0
; Init Variables
tfv/tfv_utils.s
+22
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
;==========