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

tfv: fix opener bug only seen on real hardware

Browse Source 
was depending on random setting of value in zero page
This commit is contained in:
Vince Weaver 2017-11-17 16:29:33 -05:00
parent a5e9bb4982
commit efdcf2bada
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tfv/tfv.s
View File

@ -7,6 +7,11 @@
jsr HOME jsr HOME
jsr set_gr_page0 jsr set_gr_page0
lda #0
sta DISP_PAGE ; Forgot to set initially
; real hardware and AppleWin default
; to different values
;=================================== ;===================================
; zero out the zero page that we use ; zero out the zero page that we use
;=================================== ;===================================

11
tfv/tfv_opener.s
View File

@ -25,6 +25,10 @@ shine_loop:
cmp #30 cmp #30
bne shine_loop bne shine_loop
jsr page_flip
; Done, print string
lda #8 lda #8
sta CH ; HTAB 9 sta CH ; HTAB 9
@ -39,13 +43,14 @@ shine_loop:
jsr print_string ; print("A VMW SOFTWARE PRODUCTION"); jsr print_string ; print("A VMW SOFTWARE PRODUCTION");
jsr wait_until_keypressed jsr wait_until_keypressed
rts
;=================
;=====================
; display part of logo ; display part of logo
;================= ;=====================
; ;
draw_segment: draw_segment:
lda #0 lda #0