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