sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-04-27 14:57:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

shave one more byte

Browse source
This commit is contained in:
Peter Ferrie 2021-11-05 11:58:36 -07:00
parent 69085d0674
commit 50c85199fe
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
bin/sectorlisp.bin
View file

Binary file not shown.

14
sectorlisp.S
View file

@ -99,25 +99,25 @@ GetObject: # called just after GetToken
.Intern: .Intern:
mov $g_str,%di mov $g_str,%di
xor %al,%al xor %al,%al
0: mov $-1,%cl 0: push %di # save 1
push %di # save 1
1: cmpsb 1: cmpsb
jne 2f jne 2f
dec %di dec %di
scasb scasb
jne 1b jne 1b
jmp 4f jmp 5f
2: pop %si # drop 1 2: pop %si # drop 1
mov $g_token,%si mov $g_token,%si
repne scasb 3: scasb
jne 3b
cmp (%di),%al cmp (%di),%al
jne 0b jne 0b
push %di # StpCpy push %di # StpCpy
3: movsb 4: movsb
dec %di dec %di
scasb scasb
jnz 3b jnz 4b
4: pop %ax # restore 1 5: pop %ax # restore 1
add $-g_str,%ax # stc add $-g_str,%ax # stc
adc %ax,%ax # ax = 2 * ax + carry adc %ax,%ax # ax = 2 * ax + carry
.ret: ret .ret: ret