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 one more byte

Browse source
This commit is contained in:
Peter Ferrie 2021-11-05 12:23:43 -07:00
parent 50c85199fe
commit 93d01e6932
2 changed files with 3 additions and 2 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.

5
sectorlisp.S
View file

@ -213,9 +213,10 @@ Cons: xchg %di,%ax
Pairlis:cmp $NIL,%di # Pairlis(x:di,y:si,a:dx):ax Pairlis:cmp $NIL,%di # Pairlis(x:di,y:si,a:dx):ax
je 1f je 1f
push 2(%di) # save 1 Cdr(x) push 2(%di) # save 1 Cdr(x)
push 2(%si) # save 2 Cdr(y) lodsw
push (%si) # save 2 Cdr(y)
mov (%di),%di mov (%di),%di
mov (%si),%si xchg %ax,%si
call Cons # preserves dx call Cons # preserves dx
pop %si # restore 2 pop %si # restore 2
pop %di # restore 1 pop %di # restore 1