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

avoid use of BP across video calls

Browse source
This commit is contained in:
Peter Ferrie 2021-11-23 19:52:54 -08:00
parent 0637e25bb5
commit 7e8979fa7c
2 changed files with 2 additions and 2 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.

4
sectorlisp.S
View file

@ -60,7 +60,7 @@ GetToken: # GetToken():al, dl is g_look
cmp $' ',%al
jbe 2f
stosb
xchg %ax,%bp
xchg %ax,%si
2: call GetChar # exchanges dx and ax
cmp $' ',%al
jbe 1b
@ -69,7 +69,7 @@ GetToken: # GetToken():al, dl is g_look
cmp $')',%dl # dl = g_look
ja 1b
3: movb %bh,(%di) # bh is zero
xchg %bp,%ax
xchg %si,%ax
ret
.PrintList: