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

Browse source
This commit is contained in:
Peter Ferrie 2021-11-05 10:47:36 -07:00
parent bf27f44569
commit 3cb4b9743f
2 changed files with 1 additions and 1 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.

2
sectorlisp.S
View file

@ -164,7 +164,7 @@ GetChar:
PutChar: PutChar:
# push %bx # don't clobber di,si,cx,dx # push %bx # don't clobber di,si,cx,dx
# push %bp # original ibm pc scroll up bug # push %bp # original ibm pc scroll up bug
mov $7,%bx # normal mda/cga style page zero xor %bx,%bx # normal mda/cga style page zero
mov $0x0e,%ah # teletype output al cp437 mov $0x0e,%ah # teletype output al cp437
int $0x10 # vidya service int $0x10 # vidya service
# pop %bp # preserves al # pop %bp # preserves al