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

Broader register initialization coverage (#21)

Browse source
This commit is contained in:
Hikaru Ikuta 2022-01-04 04:13:47 +09:00 committed by GitHub
parent 32dfd00780
commit 194181a709
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
bin/sectorlisp.bin
View file

Binary file not shown.

4
sectorlisp.S
View file

@ -51,13 +51,13 @@ 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 PutChar # Call first to initialize %dx
call GetToken call GetToken
call GetObject call GetObject
call Eval call Eval
xchg %ax,%si xchg %ax,%si
call PrintObject call PrintObject
mov $'\r',%al
call PutChar
jmp main jmp main
GetToken: # GetToken():al, dl is g_look GetToken: # GetToken():al, dl is g_look