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

Restore direction flag clearing

Browse source
This commit is contained in:
Justine Tunney 2021-11-21 03:44:20 -08:00
parent 814c61aeae
commit 1acabfcc6a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sectorlisp.S
View file

@ -65,6 +65,7 @@ begin: xor %ax,%ax
pop %ss # disable nonmaskable interrupts pop %ss # disable nonmaskable interrupts
mov %ax,%sp # use null pointer as our stack mov %ax,%sp # use null pointer as our stack
sti # enable interrupts sti # enable interrupts
cld # direction forward
mov $2,TWO mov $2,TWO
mov $Eval,%cx mov $Eval,%cx
mov $0x8000,g_mem mov $0x8000,g_mem
@ -183,8 +184,7 @@ Pairlis:test %di,%di # Pairlis(x:di,y:si,a:dx):ax
pop %di # restore 1 pop %di # restore 1
push %ax # save 3 push %ax # save 3
call Pairlis call Pairlis
pop %di # restore 3 jmp xCons # can be inlined here
jmp Cons # can be inlined here
1: xchg %dx,%ax 1: xchg %dx,%ax
ret ret