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

Print newline capability

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

9
sectorlisp.S
View file

@ -53,8 +53,7 @@ begin: mov $0x8000,%sp # uses higher address as stack
pop %ss # errata exists but don't care pop %ss # errata exists but don't care
mov $2,%bx mov $2,%bx
main: mov %sp,%cx main: mov %sp,%cx
mov $'\r',%al call NewLine
call PutChar
mov %dx,%fs # Clear input lookahead cache mov %dx,%fs # Clear input lookahead cache
call Read call Read
call EvalPrint call EvalPrint
@ -106,7 +105,11 @@ PrintObject: # PrintObject(x:si)
ret ret
Print: mov (%si),%si # si = Cdr(e) Print: mov (%si),%si # si = Cdr(e)
mov (%si),%ax # ax = Car(Cdr(e)) test %si,%si
jnz 1f
NewLine:mov $'\r',%al
jmp PutChar
1: mov (%si),%ax # ax = Car(Cdr(e))
EvalPrint: EvalPrint:
call Eval call Eval
push %dx push %dx