dos33fsprogs/demos/megademo/screen_split.s
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

449 lines
4.3 KiB
ArmAsm

; 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?
; 23 bytes in size?
split_4:
nop
nop
nop
nop
nop
nop
nop
nop
bit LORES
bit HIRES
nop
nop
nop
nop
nop
nop
nop
nop
rts
split_8:
nop
nop
nop
nop
nop
nop
nop
bit LORES
nop
nop
bit HIRES
nop
nop
nop
nop
nop
nop
nop
rts
split_12:
nop
nop
nop
nop
nop
nop
bit LORES
nop
nop
nop
nop
bit HIRES
nop
nop
nop
nop
nop
nop
rts
split_16:
nop
nop
nop
nop
nop
bit LORES
nop
nop
nop
nop
nop
nop
bit HIRES
nop
nop
nop
nop
nop
rts
split_20:
nop
nop
nop
nop
bit LORES
nop
nop
nop
nop
nop
nop
nop
nop
bit HIRES
nop
nop
nop
nop
rts
split_24:
nop
nop
nop
bit LORES
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
bit HIRES
nop
nop
nop
rts
split_28:
nop
nop
bit LORES
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
bit HIRES
nop
nop
rts
split_32:
nop
bit LORES
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
bit HIRES
nop
rts
split_36:
bit LORES
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
bit HIRES
rts
ss_multiples:
; .byte 0,0,23,46,69,92,115,138,161,184
.byte 184,184,161,138,115,92,69,46,23,0
; 6 4 25+16+8+16 NNNNNNNN
; 7 6 25+15+10+15 LNNNNNN
; 8 8 25+14+12+14 NNNNNNN
; 9 10 25+13+14+13 LNNNNN
; 10 12 25+12+16+12
; 11 14 25+11+18+11
; 12 16 25+10+20+10
; 13 18 25+09+22+09
; 14 20 25+08+24+08
; 15 22 25+07+26+07
; 16 24 25+06+28+06
; 17 26 25+05+30+05
; 18 28 25+04+32+04
; 19 30 25+03+34+03
; 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