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

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