d63a359a49
unsigned comparisons is surprisingly not that useful due to marshalling overhead; it's only four bytes to do inline (plus jc), or six for a constant. Also add some useful top optimisations. Star Trek goes from 39890 to 39450 bytes.
42 lines
No EOL
683 B
ArmAsm
42 lines
No EOL
683 B
ArmAsm
#
|
|
.sect .text
|
|
.sect .rom
|
|
.sect .data
|
|
.sect .bss
|
|
.sect .text
|
|
|
|
! Which resets we install are determined by statistical analysis of Star
|
|
! Trek. When changing these, make sure to update the i80 table to match.
|
|
! 97 call .floadn2
|
|
! 41 call .floadn4
|
|
! 34 call .fload4
|
|
! 28 call .fstoren2
|
|
!
|
|
! Also:
|
|
! 48 call .cmps_mag
|
|
|
|
.define .rst_init
|
|
.rst_init:
|
|
lxi h, .floadn2
|
|
lxi d, 0x0008
|
|
call copy
|
|
lxi h, .floadn4
|
|
call copy
|
|
lxi h, .fload4
|
|
call copy
|
|
lxi h, .fstoren2
|
|
call copy
|
|
lxi h, .cmps_mag
|
|
jmp copy
|
|
|
|
! Copies eight bytes from HL to DE.
|
|
copy:
|
|
mvi c, 8
|
|
.1:
|
|
mov a, m
|
|
stax d
|
|
inx h
|
|
inr e
|
|
dcr c
|
|
jnz .1
|
|
ret |