mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-29 00:31:52 +00:00
b1238af49d
this will probably upset people
449 lines
4.3 KiB
ArmAsm
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
|
|
|
|
|