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:
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)) mov (%si),%ax # ax = Car(Cdr(e))
EvalPrint: EvalPrint:
call Eval call Eval
push %ax
push %dx push %dx
xchg %ax,%si xchg %ax,%si
call PrintObject call PrintObject
xchg %dx,%ax
pop %dx pop %dx
pop %ax
ret ret
Read: push %dx Read: push %dx