Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-08-10 22:25:03 +00:00
Code Issues Projects Releases Wiki Activity

midline: doesn't work and I don't know why

Browse Source
This commit is contained in:
Vince Weaver
2023-05-18 01:08:00 -04:00
parent c385ed3bf4
commit b44a925fcf
1 changed files with 55 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
vaporlock/demo/midline.s
View File

@@ -9,6 +9,7 @@
; 198 bytes -- proof of concept ; 198 bytes -- proof of concept
; 76 bytes -- optimize Apple II Forever printing code ; 76 bytes -- optimize Apple II Forever printing code
; 183 bytes -- stable window ; 183 bytes -- stable window
; 248 bytes -- sine code added
midline: midline:
@@ -56,7 +57,7 @@ poll2:
lda $00 ; Now slew back in 17029 cycle loops ; 3 lda $00 ; Now slew back in 17029 cycle loops ; 3
lp17029: lp17029:
ldx #17 ; ; 2 ldx #17 ; ; 2
jsr waitx1k ; ; 17000 jsr wait_x_x_1k ; ; 17000
jsr rts1 ; ; 12 jsr rts1 ; ; 12
lda $00 ; nop3 ; 3 lda $00 ; nop3 ; 3
lda $00 ; nop3 ; 3 lda $00 ; nop3 ; 3
@@ -71,8 +72,6 @@ lp17029:
;============================== ;==============================
blog: blog:
; 192 + 70 (vblank) = 262 ; 192 + 70 (vblank) = 262
; if 42 high, then day 220 on, 42 off ; if 42 high, then day 220 on, 42 off
; how start in middle? ; how start in middle?
@@ -80,39 +79,48 @@ blog:
; .byte $A5 ; .byte $A5
lda $EA ; nop3 ; 3 lda $EA ; nop3 ; 3
; nop ; 2 top_smc:
ldx #20 ; 2 ldx #90 ; 2
bne top8 ; bra ; 3/2 bne top8 ; bra ; 3/2
top_loop: top_loop:
nop ; 2 nop ; 2
nop ; 2 nop ; 2
blog_loop: ;blog_loop:
; 4
nop ; 2 nop ; 2
nop ; 2 nop ; 2
; 8 ; 8
top8: top8:
ldy FRAME ; 3
jsr delay_16_setgr ; 16 lda sine,Y ; 4 (aligned)
; 24 clc ; 2
jsr delay_16_setgr ; 16 adc #4 ; 2
; 40 sta top_smc+1 ; 4
jsr delay_16_setgr ; 16 adc #56 ; 2
sta bottom_smc+1 ; 4
; 29
ldy #2 ; 2
; 31
jsr wait_y_x_10 ; 20
; 51
lda $00 ; nop3 ; 3
nop ; 2
; 56 ; 56
nop ; 2 nop ; 2
nop ; 2 nop ; 2
; 60 ; 60
dex ; 2 dex ; 2
bne top_loop ; 3 bne top_loop ; 3/2
; -1 ; -1
nop ; 2 nop ; 2
nop ; 2 nop ; 2
ldx #64 ; 2 ldx #56 ; 2
bne middle_8 ; bra ; 3 bne middle_8 ; bra ; 3
@@ -135,11 +143,15 @@ middle_8:
dex ; 2 dex ; 2
bne middle_loop ; 3/2 bne middle_loop ; 3/2
; -1 ; -1
nop ; 2 nop ; 2
nop ; 2 nop ; 2
bottom_smc:
ldx #178 ; 2 ldx #178 ; 2
bne bottom_8 ; 3/2 bne bottom_8 ; bra ; 3/2
bottom_loop: bottom_loop:
@@ -149,22 +161,35 @@ bottom_loop:
nop ; 2 nop ; 2
; 8 ; 8
bottom_8: bottom_8:
jsr delay_16_setgr ; 16 ldy #4 ; 2
; 24 ; 10
jsr delay_16_setgr ; 16 jsr wait_y_x_10 ; 40
; 40 ; 50
jsr delay_16_setgr ; 16 nop
nop
nop
; 56 ; 56
nop ; 2 nop
nop ; 2
; 60
dex ; 2 ; 58
inx ; 2
cpx #192 ; 2
bne bottom_loop ; 3/2 bne bottom_loop ; 3/2
; -1 ; -1
ldx #20 ; 2 ldx #4 ; 2
jmp blog_loop ; 3 jsr wait_x_x_1k ; 4000
ldy #54 ; 2
jsr wait_y_x_10 ; 540
; 4543
inc FRAME ; 5
; 4548 (-2)
nop ; 2
; 0
jmp top_smc
; 3
delay_16_setgr: delay_16_setgr:
bit SET_GR bit SET_GR
@@ -182,7 +207,7 @@ delay_16_settext:
loop10: loop10:
bne skip bne skip
waitx10: wait_y_x_10:
dey ; wait y-reg times 10 ; 2 dey ; wait y-reg times 10 ; 2
skip: skip:
dey ; 2 dey ; 2
@@ -200,9 +225,9 @@ loop1k:
pla ; 4 pla ; 4
nop ; 2 nop ; 2
nop ; 2 nop ; 2
waitx1k: wait_x_x_1k:
ldy #98 ; wait x-reg times 1000 ; 2 ldy #98 ; wait x-reg times 1000 ; 2
jsr waitx10 ; 980 jsr wait_y_x_10 ; 980
nop ; 2 nop ; 2
dex ; 2 dex ; 2
bne loop1k ; 2/3 bne loop1k ; 2/3