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 three more bytes by placing Read inside Apply

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-06 13:29:08 +09:00
parent 9ca97d2ea7
commit cac1923ebf
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
sectorlisp.S
View file

@ -116,11 +116,9 @@ Print: test %si,%si
NewLine:mov $'\r',%al
jmp PutChar
Read: push %dx
mov %fs,%dx # Get cached character
Read: mov %fs,%dx # Get cached character
call GetToken
call GetObject
pop %dx
ret
GetObject: # called just after GetToken
@ -232,6 +230,8 @@ Pairlis:test %di,%di # Pairlis(x:di,y:si,a:dx):dx
je .ifAtom
cmp $kPrint,%al
je Print
cmp $kRead,%al
je Read
cmp $kCons,%al
jae .ifCons
.ifCar: cmp $kCar,%al
@ -279,8 +279,6 @@ Eval: test %ax,%ax # Eval(e:ax,a:dx):ax
jns Assoc # lookup val if atom
xchg %ax,%si # di = e
lodsw # ax = Car(e)
cmp $kRead,%ax
je Read
cmp $kQuote,%ax # maybe CONS
mov (%si),%di # di = Cdr(e)
je Car