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 some bytes

Browse source 
- setting of SS is not interruptible, so no need to guard it;
- direction flag is cleared by BIOS code, even on the XT.
This commit is contained in:
Peter Ferrie 2021-11-22 22:04:42 -08:00
parent 6000841378
commit d66e5d984f
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

@ -42,11 +42,11 @@ begin: xor %bx,%bx # we use the tiny memory model
push %cs # that's the bios load address push %cs # that's the bios load address
pop %es # therefore NULL points to NUL pop %es # therefore NULL points to NUL
push %cs # terminated NIL string above! push %cs # terminated NIL string above!
cli # disables hardware interrupts #cli # disables hardware interrupts
pop %ss # disable nonmaskable ones too pop %ss # disable nonmaskable ones too
mov %bx,%sp # use highest address as stack mov %bx,%sp # use highest address as stack
sti # reenable hardware interrupts #sti # reenable hardware interrupts
cld # normalize the direction flag #cld # normalize the direction flag
inc %bx inc %bx
inc %bx inc %bx
main: mov $0x8000,%cx # dl (g_look) is zero or cr main: mov $0x8000,%cx # dl (g_look) is zero or cr