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

credits: resync vapor lock

Browse Source
This commit is contained in:
Vince Weaver 2018-09-26 22:06:55 -04:00
parent 6dcb160c22
commit 261661cd5d
1 changed files with 50 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
split_screen/credits.s
View File

@ -86,43 +86,7 @@ no_init_mb:
jsr lz4_decode jsr lz4_decode
;==========================
; setup text screen
; clear top 6 lines to space
; takes (Y/2)*(6+435+7)+5 = ?
lda #$A0 ; space ; 2
ldy #10 ; 6 lines ; 2
jsr clear_page_loop ; 2693???
; 1 2
; 0123456789abcdef0123456789abcdef0123456
;line1:.asciiz " * . " $400
;line2:.asciiz " * . . " $480
;line3:.asciiz " * " $500
;line4:.asciiz " * " $580
;line5:.asciiz " . . . " $600
;line6:.asciiz " . " $680
lda #'.'|$80 ; print star ; 2
sta $420 ; 4
sta $487 ; 4
sta $4A4 ; 4
sta $601 ; 4
sta $61c ; 4
sta $621 ; 4
sta $68d ; 4
;============
; 30
; draw the moon
lda #' ' ; print inv space ; 2
sta $403 ; 4
sta $482 ; 4
sta $502 ; 4
sta $583 ; 4
;============
; 18
; test letters ; test letters
;letter_loop: ;letter_loop:
; lda #80 ; lda #80
@ -158,23 +122,60 @@ no_init_mb:
jsr vapor_lock jsr vapor_lock
; found first line of low-res green, need to kill time ;==========================
; until we can enter at top of screen ; setup text screen
; so we want roughly 5200+4550 - 65 (for the scanline we missed)
; want 9685 ; clear top 6 lines to space
; Try X=34 Y=55 cycles=9681
lda #0 ; 2 ; takes (Y/2)*(6+435+7)+5 = ?
lda #0 ; 2 lda #$A0 ; space ; 2
ldy #10 ; 6 lines ; 2
jsr clear_page_loop ; 2693
ldy #55 ; 2 ; 1 2
loopA: ; 0123456789abcdef0123456789abcdef0123456
ldx #34 ; 2 ;line1:.asciiz " * . " $400
loopB: ;line2:.asciiz " * . . " $480
dex ; 2 ;line3:.asciiz " * " $500
;line4:.asciiz " * " $580
;line5:.asciiz " . . . " $600
;line6:.asciiz " . " $680
lda #'.'|$80 ; print star ; 2
sta $420 ; 4
sta $487 ; 4
sta $4A4 ; 4
sta $601 ; 4
sta $61c ; 4
sta $621 ; 4
sta $68d ; 4
;============
; 30
; draw the moon
lda #' ' ; print inv space ; 2
sta $403 ; 4
sta $482 ; 4
sta $502 ; 4
sta $583 ; 4
;============
; 18
; vapor lock returns with us at beginning of hsync in line
; 114 (7410 cycles), so with 5070 cycles to go
; 5070+4550 = 9620
; -2745 (draw text)
; ===========
; 6875
; Try X=97 Y=14 cycles=6875
ldy #14 ; 2
loopA: ldx #97 ; 2
loopB: dex ; 2
bne loopB ; 2nt/3 bne loopB ; 2nt/3
dey ; 2 dey ; 2
bne loopA ; 2nt/3 bne loopA ; 2nt/3