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 one more byte

Browse source
This commit is contained in:
Peter Ferrie 2021-11-05 15:17:06 -07:00
parent a0f739da58
commit 0fb8fa3b2a
2 changed files with 8 additions and 8 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.

16
sectorlisp.S
View file

@ -53,18 +53,18 @@ _begin: push %cs # memory model cs=ds=es = 0x800
pop %ds
pop %es
mov $kSymbols,%si
mov %si,%cx
push %si
xor %di,%di # mov g_str, %di
mov $37,%cx
cld
rep movsb
pop %cx
pop %ss
mov %cx,%sp
cld
mov $g_mem,%ax
mov %ax,%fs # fs = &g_mem
xor %di,%di
rep stosb # clears our bss memory
main: xor %di,%di # mov g_str, %di
mov $37,%cl
rep movsb
0: mov $'\n',%dl
main: mov $'\n',%dl
call GetToken
call GetObject
mov $NIL,%dx
@ -72,7 +72,7 @@ main: xor %di,%di # mov g_str, %di
call PrintObject
mov $'\r',%al
call PutChar
jmp 0b
jmp main
GetToken: # GetToken():al, dl is g_look
mov $g_token,%di