d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Use pop rather than inx;inx to retract the stack; consumes a register but

Browse source 
halves the number of calls. Reduces Star Trek from 39976 to 39771 bytes.
This commit is contained in:
David Given 2019-02-10 18:57:20 +01:00
parent b34ff2bdec
commit 35d1f36ca4
1 changed files with 20 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
mach/i80/ncg/table
View file

@ -2053,46 +2053,29 @@ gen 1:
/* Group 15: Miscellaneous */ /* Group 15: Miscellaneous */
/******************************************/ /******************************************/
pat asp $1<=0-6 pat asp ($1<=0-12) || ($1>=12)
with STACK with STACK
uses hlreg={const2,$1} uses hlreg={const2,$1}
gen dad sp gen
dad sp
sphl. sphl.
pat asp $1==0-4 pat asp ($1<0) && ($1>0-12)
with STACK with STACK
gen dcx sp gen
dcx sp push hl
dcx sp leaving
dcx sp asp $1+2
pat asp $1==0-2
with STACK
gen dcx sp
dcx sp
pat asp $1==0 /* do nothing */ pat asp $1==0 /* do nothing */
pat asp $1==2 pat asp ($1>0) && ($1<12)
with exact src1or2 with STACK
with STACK uses hlreg
gen inx sp gen
inx sp pop hl
leaving
pat asp $1==4 asp $1-2
with exact src1or2 leaving asp 2
with STACK
gen inx sp
inx sp
inx sp
inx sp
pat asp $1>=6
with exact src1or2 leaving asp $1-2
with STACK
uses hlreg={const2,$1}
gen dad sp
sphl.
pat ass $1==2 pat ass $1==2
with hlreg STACK with hlreg STACK