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

restore load address, no need to change after all

Browse source
This commit is contained in:
Peter Ferrie 2021-11-05 15:21:25 -07:00
parent 0fb8fa3b2a
commit 98e028d13b
2 changed files with 3 additions and 3 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.

6
sectorlisp.S
View file

@ -30,7 +30,7 @@
.set ATOM_CONS, 61 .set ATOM_CONS, 61
.set ATOM_EQ, 71 .set ATOM_EQ, 71
.set g_token, 0x7600 .set g_token, 0x7800
.set g_str, 0x0 .set g_str, 0x0
.set g_mem, 0x3600 .set g_mem, 0x3600
.set boot, 0x7c00 .set boot, 0x7c00
@ -46,8 +46,8 @@ kSymbols:
.ascii "NIL\0T\0QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ" .ascii "NIL\0T\0QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ"
.type .init,@function .type .init,@function
.init: ljmp $0x800>>4,$_begin # end of bios data roundup page .init: ljmp $0x600>>4,$_begin # end of bios data roundup page
_begin: push %cs # memory model cs=ds=es = 0x800 _begin: push %cs # memory model cs=ds=es = 0x600
push %cs push %cs
push %cs push %cs
pop %ds pop %ds