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

A more robust Read function

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-04 06:34:58 +09:00
parent 90903662a9
commit 46ba9fee4f
1 changed files with 18 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
sectorlisp.S
View file

@ -104,8 +104,25 @@ PrintObject: # PrintObject(x:si)
jnz .PrintString # -> ret jnz .PrintString # -> ret
ret ret
Read: xchg %dx,%ax 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
pop %dx
pop %ax
ret
Read: push %dx
call GetChar
call GetToken call GetToken
call GetObject
pop %dx
ret
GetObject: # called just after GetToken GetObject: # called just after GetToken
cmp $'(',%al cmp $'(',%al
je GetList je GetList
@ -144,18 +161,6 @@ PutChar:mov $0x0e,%ah # prints CP-437
.RetDx: xchg %dx,%ax .RetDx: xchg %dx,%ax
ret ret
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
pop %dx
pop %ax
ret
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
Evlis: test %di,%di # Evlis(m:di,a:dx):ax Evlis: test %di,%di # Evlis(m:di,a:dx):ax