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 byte

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-06 11:40:51 +09:00
parent 829ed4f398
commit 72b037de93
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
sectorlisp.S
View file

@ -109,12 +109,11 @@ Print: mov (%si),%si # si = Cdr(e)
mov (%si),%ax # ax = Car(Cdr(e))
EvalPrint:
call Eval
push %ax
push %dx
xchg %ax,%si
call PrintObject
xchg %dx,%ax
pop %dx
pop %ax
ret
Read: push %dx