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 byte

Browse source
This commit is contained in:
Peter Ferrie 2021-11-24 12:23:22 -08:00
parent 17bd5be818
commit 7ae47772f6
2 changed files with 4 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.

8
sectorlisp.S
View file

@ -114,14 +114,14 @@ Intern: push %cx # Intern(cx,di): ax
mov %bp,%cx mov %bp,%cx
mov %di,%ax mov %di,%ax
cmp %bh,(%di) cmp %bh,(%di)
je 2f je 8f
rep cmpsb # memcmp(di,si,cx) rep cmpsb # memcmp(di,si,cx)
je 9f je 9f
not %cx
xor %ax,%ax xor %ax,%ax
repne scasb # memchr(di,al,cx) 2: scasb # memchr(di,al,cx)
jne 2b
jmp 1b jmp 1b
2: rep movsb # memcpy(di,si,cx) 8: rep movsb # memcpy(di,si,cx)
9: pop %cx 9: pop %cx
ret ret