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

Fix READ buffer bug

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-06 06:48:37 +09:00
parent 46ba9fee4f
commit 162969de42
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
sectorlisp.S
View file

@ -117,7 +117,7 @@ EvalPrint:
ret ret
Read: push %dx Read: push %dx
call GetChar mov %fs,%dx # Get cached character
call GetToken call GetToken
call GetObject call GetObject
pop %dx pop %dx
@ -152,6 +152,7 @@ Intern: push %cx # Intern(cx,di): ax
GetChar:xor %ax,%ax # GetChar→al:dl GetChar:xor %ax,%ax # GetChar→al:dl
int $0x16 # get keystroke int $0x16 # get keystroke
mov %ax,%fs # Used for READ
PutChar:mov $0x0e,%ah # prints CP-437 PutChar:mov $0x0e,%ah # prints CP-437
int $0x10 # vidya service int $0x10 # vidya service
cmp $'\r',%al # don't clobber cmp $'\r',%al # don't clobber