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

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