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 another six bytes

Browse source
This commit is contained in:
Peter Ferrie 2021-11-07 21:24:36 -08:00
parent 9bb9c6e04c
commit 8f5f932098
2 changed files with 20 additions and 23 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.

43
sectorlisp.S
View file

@ -3,6 +3,7 @@
╞══════════════════════════════════════════════════════════════════════════════╡ ╞══════════════════════════════════════════════════════════════════════════════╡
│ Copyright 2020 Justine Alexandra Roberts Tunney │ │ Copyright 2020 Justine Alexandra Roberts Tunney │
│ Copyright 2021 Alain Greppin │ │ Copyright 2021 Alain Greppin │
│ Some size optimisations by Peter Ferrie │
│ │ │ │
│ Permission to use, copy, modify, and/or distribute this software for │ │ Permission to use, copy, modify, and/or distribute this software for │
│ any purpose with or without fee is hereby granted, provided that the │ │ any purpose with or without fee is hereby granted, provided that the │
@ -21,19 +22,19 @@
// LISP meta-circular evaluator in a MBR // LISP meta-circular evaluator in a MBR
.set ONE, %bp .set ONE, %bp
.set NIL, 1 .set NIL, 7
.set ATOM_T, 9 .set ATOM_T, 15
.set ATOM_QUOTE, 13 .set ATOM_QUOTE, 19
.set ATOM_COND, 25 .set ATOM_COND, 31
.set ATOM_ATOM, 35 .set ATOM_ATOM, 41
.set ATOM_CAR, 45 .set ATOM_CAR, 51
.set ATOM_CDR, 53 .set ATOM_CDR, 59
.set ATOM_CONS, 61 .set ATOM_CONS, 67
.set ATOM_EQ, 71 .set ATOM_EQ, 77
.set g_token, 0x7800 .set g_token, 0x7800
.set g_str, 0x0 .set g_str, 0x0
.set g_mem, 0x3600 .set g_mem, 0x8000
.set boot, 0x7c00 .set boot, 0x7c00
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
@ -48,27 +49,23 @@
_start: jmp .init # some bios scan for short jump _start: jmp .init # some bios scan for short jump
.type kSymbols,@object; .type kSymbols,@object;
kSymbols: kSymbols:
.ascii "NIL\0T\0QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ" .ascii "\0NIL\0T\0QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ\0"
.type .init,@function .type .init,@function
.init: ljmp $0x600>>4,$_begin # end of bios data roundup page .init: ljmp $0x7c00>>4,$_begin # end of bios data roundup page
_begin: push %cs # memory model cs=ds=es = 0x600 _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
push %cs push %cs
pop %ds pop %ds
pop %es pop %es
mov $kSymbols,%si
push %si
xor %di,%di # mov g_str, %di
mov $37,%cx
cld
rep movsb
pop %cx
pop %ss pop %ss
mov %cx,%sp mov %cx,%sp
mov $g_mem,%ax
mov %ax,%fs # fs = &g_mem
rep stosb # clears our bss memory
mov $NIL,ONE mov $NIL,ONE
main: mov $'\n',%dl main: mov $'\n',%dl
call GetToken call GetToken