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 two more bytes

Browse source
This commit is contained in:
Peter Ferrie 2021-11-05 12:35:03 -07:00
parent 93d01e6932
commit 9cde674c1a
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

@ -228,6 +228,7 @@ Pairlis:cmp $NIL,%di # Pairlis(x:di,y:si,a:dx):ax
1: xchg %dx,%ax 1: xchg %dx,%ax
ret ret
1: mov 2(%di),%di # di = Cdr(c)
Evcon: push %di # save c Evcon: push %di # save c
mov (%di),%di # di = Car(c) mov (%di),%di # di = Car(c)
mov (%di),%ax # ax = Caar(c) mov (%di),%ax # ax = Caar(c)
@ -236,8 +237,7 @@ Evcon: push %di # save c
pop %dx # restore a pop %dx # restore a
pop %di # restore c pop %di # restore c
cmp $NIL,%ax cmp $NIL,%ax
cmove 2(%di),%di # di = Cdr(c) jz 1b
jz Evcon
mov (%di),%di # di = Car(c) mov (%di),%di # di = Car(c)
.EvCadr:call Cadr # ax = Cadar(c) .EvCadr:call Cadr # ax = Cadar(c)
# jmp Eval # jmp Eval
@ -300,13 +300,13 @@ Cadr: mov 2(%di),%di # contents of decrement register
.retA: mov (%di),%ax # contents of address register .retA: mov (%di),%ax # contents of address register
ret ret
1: mov 2(%si),%dx # dx = Cdr(y)
Assoc: cmp $NIL,%dx # Assoc(x:ax,y:dx):ax Assoc: cmp $NIL,%dx # Assoc(x:ax,y:dx):ax
mov %dx,%si mov %dx,%si
je .retF je .retF
mov (%si),%bx # bx = Car(y) mov (%si),%bx # bx = Car(y)
cmp %ax,(%bx) # (%bx) = Caar(y) cmp %ax,(%bx) # (%bx) = Caar(y)
cmovne 2(%si),%dx # dx = Cdr(y) jne 1b
jne Assoc
mov 2(%bx),%ax # ax = Cdar(y) mov 2(%bx),%ax # ax = Cdar(y)
ret ret