sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-04-25 14:37:42 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Shave two bytes

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-06 13:23:54 +09:00
parent 36678457f3
commit 9ca97d2ea7
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sectorlisp.S
View file

@ -109,10 +109,8 @@ PrintObject: # PrintObject(x:si)
Print: test %si,%si Print: test %si,%si
jz NewLine jz NewLine
mov (%si),%si # ax = Car(Cdr(e)) mov (%si),%si # ax = Car(Cdr(e))
push %dx
call PrintObject call PrintObject
xchg %dx,%ax xchg %dx,%ax
pop %dx
ret ret
NewLine:mov $'\r',%al NewLine:mov $'\r',%al