Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-25 20:30:31 +00:00
Code Issues Projects Releases Wiki Activity

megademo: c64_opener: switch states

Browse Source
This commit is contained in:
Vince Weaver 2018-10-20 23:46:47 -04:00
parent 980b7a3f52
commit d27829f091
2 changed files with 269 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
megademo/c64_opener.s
View File

@ -86,21 +86,16 @@ loopcoB:dex ; 2
; Wait 3s, just flashing cursor@1Hz
; Then slowly open to text page0
;===========================
; do one or the other
; -- nothing = 8+3 = 11
; -- split = 8+2 = 10
c64_split:
c64_mixed:
jmp c64_kill_time ; 3
; Put smc here to jmp to kill_time until we hit state2?
c64_mixed:
nop ;kill 6 cycles (room for rts) ; 2
ldx #8 ; width of opening in table ; 2
ldy #24 ; height? ; 2
; EA nop ; kill 6 cycles (room for rts) ; 2
; A2 08 ldx #8 ; width of opening in table ; 2
ldy #24 ; height? ; 2
c64_mixed_loop:
c64_smc2:
@ -127,38 +122,20 @@ c64_smc: ; |-- 65
;================
; -13
; lda FRAMEH ; 3
; cmp #10 ; 2
; bcc c64_nothing ; 3
;c64_do_split: ; -1
; jmp c64_split_screen ; 3
;c64_nothing:
; jmp c64_kill_time ; 3
c64_done_screen:
;======================================================
; We have 4550 cycles in the vblank, use them wisely
;======================================================
;======================================================
; We have 4550 cycles in the vblank, use them wisely
;======================================================
; do_nothing should be 4550
; -13 from screen drawing
; -10 keyboard handling
; -15
; -12
; -27 frameh adjustment
; -28 state2 handling
; -7 check if past time
; -46
; -46 cursor blink
;==================================
; = 4447
; = 4419
; run the 2Hz counter, overflow at 30 60Hz frames
@ -193,6 +170,32 @@ done_thirty:
c64_window_adjust:
;===========================
; If > 4s then patch SMC and move window
;===========================
lda FRAMEH ; 3
cmp #8 ; 2
bcc c64_not_state2 ; 3
; Update the code to not kill_time but do the split ; -1
lda #$EA ; 2
sta c64_mixed ; 4
lda #$A2 ; 2
sta c64_mixed+1 ; 4
lda #$08 ; 2
sta c64_mixed+2 ; 4
jmp c64_done_states ; 3
;===================
; 20
c64_not_state2:
inc $0 ; 5
dec $0 ; 5
inc $0 ; 5
dec $0 ; 5
c64_done_states:
; dec c64_smc2+1 ; 5
@ -259,10 +262,11 @@ cursor_off:
cursor_done:
; Try X=33 Y=26 cycles=4447
; Try X=88 Y=10 cycles=4461
; Try X=54 Y=16 cycles=4417R2
ldy #26 ; 2
loopcoE:ldx #33 ; 2
nop
ldy #16 ; 2
loopcoE:ldx #54 ; 2
loopcoF:dex ; 2
bne loopcoF ; 2nt/3
dey ; 2
@ -319,16 +323,21 @@ done_c64:
;===========================================
; do nothing but blink cursor
; 192 * 65 = 12480 cycles
; -11 jsr in
; - 3 jsr in
; -3 jmp back
; +13 to match split
; ========
; 12466
; 12487
c64_kill_time:
; Try X=165 Y=15 cycles=12466
; Try X=165 Y=15 cycles=12466 R8
ldy #15 ; 2
loopc6a:ldx #165 ; 2
; Try X=33 Y=73 cycles=12484 R3
lda $0
ldy #73 ; 2
loopc6a:ldx #33 ; 2
loopc6b:dex ; 2
bne loopc6b ; 2nt/3
dey ; 2

217
megademo/screen_split.s
View File

@ -229,3 +229,220 @@ ss_multiples:
; 20 32 25+02+36+02
; 21 34 25+01+38+01
; how quickly can we call this?
; jump table, assuming size to split is in Y?
; Autogenerate? As we want both HGR/TXT and HGR/GR versions?
; 4 NnNnNnNnNnNnNnNnBBBBbbbbNnNnNnNnNnNnNnNnRrrrrr
; 8 NnNnNnNnNnNnNnBBBBNnNnbbbbNnNnNnNnNnNnNnRrrrrr
; 12 NnNnNnNnNnNnBBBBNnNnNnNnbbbbNnNnNnNnNnNnRrrrrr
; 16 NnNnNnNnNnBBBBNnNnNnNnNnNnbbbbNnNnNnNnNnRrrrrr
; 20 NnNnNnNnBBBBNnNnNnNnNnNnNnNnbbbbNnNnNnNnRrrrrr
; 24 NnNnNnBBBBNnNnNnNnNnNnNnNnNnNnbbbbNnNnNnRrrrrr
; 28 NnNnBBBBNnNnNnNnNnNnNnNnNnNnNnNnbbbbNnNnRrrrrr
; 32 NnBBBBNnNnNnNnNnNnNnNnNnNnNnNnNnNnbbbbNnRrrrrr
; 36 BBBBNnNnNnNnNnNnNnNnNnNnNnNnNnNnNnNnbbbbRrrrrr
; add 23 each time?
; TEXT/HGR version
; should we just SMC on the fly? That in theory would be 18*5=90*2=180 bytes
; so maybe not that great a win
.align $100
; 23 bytes in size?
tsplit_4:
nop
nop
nop
nop
nop
nop
nop
nop
bit SET_TEXT
bit SET_GR
nop
nop
nop
nop
nop
nop
nop
nop
rts
tsplit_8:
nop
nop
nop
nop
nop
nop
nop
bit SET_TEXT
nop
nop
bit SET_GR
nop
nop
nop
nop
nop
nop
nop
rts
tsplit_12:
nop
nop
nop
nop
nop
nop
bit SET_TEXT
nop
nop
nop
nop
bit SET_GR
nop
nop
nop
nop
nop
nop
rts
tsplit_16:
nop
nop
nop
nop
nop
bit SET_TEXT
nop
nop
nop
nop
nop
nop
bit SET_GR
nop
nop
nop
nop
nop
rts
tsplit_20:
nop
nop
nop
nop
bit SET_TEXT
nop
nop
nop
nop
nop
nop
nop
nop
bit SET_GR
nop
nop
nop
nop
rts
tsplit_24:
nop
nop
nop
bit SET_TEXT
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
bit SET_GR
nop
nop
nop
rts
tsplit_28:
nop
nop
bit SET_TEXT
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
bit SET_GR
nop
nop
rts
tsplit_32:
nop
bit SET_TEXT
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
bit SET_GR
nop
rts
tsplit_36:
bit SET_TEXT
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
bit SET_GR
rts