sjs/sectorlisp
1
0
Fork 0
mirror of https://github.com/samsonjs/sectorlisp.git synced 2026-03-25 09:05:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

shave two bytes, fix memory init

Browse source
This commit is contained in:
Peter Ferrie 2021-11-15 21:05:27 -08:00
parent 2c760a29e4
commit 522f0a16fd
2 changed files with 12 additions and 12 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.

24
sectorlisp.S
View file

@ -23,14 +23,14 @@
.set ONE, %bp
.set NIL, 1
.set ATOM_T, 23
.set ATOM_QUOTE, 27
.set ATOM_COND, 39
.set ATOM_ATOM, 49
.set ATOM_CAR, 59
.set ATOM_CDR, 67
.set ATOM_CONS, 75
.set ATOM_EQ, 85
.set ATOM_T, 9
.set ATOM_QUOTE, 23
.set ATOM_COND, 35
.set ATOM_ATOM, 45
.set ATOM_CAR, 55
.set ATOM_CDR, 63
.set ATOM_CONS, 71
.set ATOM_EQ, 81
.set g_token, 0x7800
.set g_str, 0x0
@ -49,22 +49,22 @@
_start:
.type kSymbols,@object;
kSymbols:
.ascii "NIL\0\xC0"
.ascii "NIL\0T\0"
.type .init,@function
.init: ljmp $0x7c00>>4,$_begin
.ascii "\0T\0QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ\0"
.ascii "QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ\0"
_begin: mov $g_mem,%cx
mov %cx,%fs # fs = &g_mem
xor %ax,%ax
mov %cx,%di
cld
rep stosb # clears our bss memory
push %cs # memory model cs=ds=es = 0x7c0
push %cs
push %cs
pop %ds
pop %es
cld
rep stosb # clears our bss memory
pop %ss
mov %cx,%sp
inc %ax