mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-28 02:55:03 +00:00
tfv: better clear screen display
This commit is contained in:
parent
d715ee1f10
commit
f8a210ce02
16
tfv/tfv.s
16
tfv/tfv.s
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
;==========
|
;==========
|
||||||
|
Loading…
Reference in New Issue
Block a user