sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-03-25 09:05:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

shave two more bytes

Browse source
This commit is contained in:
Peter Ferrie 2021-11-05 11:22:45 -07:00
parent 3cb4b9743f
commit 69085d0674
2 changed files with 5 additions and 4 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.

9
sectorlisp.S
View file

@ -103,7 +103,8 @@ GetObject: # called just after GetToken
push %di # save 1
1: cmpsb
jne 2f
cmp -1(%di),%al
dec %di
scasb
jne 1b
jmp 4f
2: pop %si # drop 1
@ -112,9 +113,9 @@ GetObject: # called just after GetToken
cmp (%di),%al
jne 0b
push %di # StpCpy
3: lodsb
stosb
test %al,%al
3: movsb
dec %di
scasb
jnz 3b
4: pop %ax # restore 1
add $-g_str,%ax # stc