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

Revert "shave one byte"

Browse source 
This reverts commit 041d23e99b.
This commit is contained in:
Justine Tunney 2021-11-24 00:07:22 -08:00
parent 041d23e99b
commit 7f55a4be0a
2 changed files with 5 additions and 5 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.

10
sectorlisp.S
View file

@ -111,8 +111,7 @@ GetObject: # called just after GetToken
dec %di dec %di
scasb scasb
jne 1b jne 1b
pop %ax # restore 1 jmp 5f
ret
2: pop %bp # drop 1 2: pop %bp # drop 1
mov %cx,%si mov %cx,%si
3: scasb 3: scasb
@ -124,8 +123,8 @@ GetObject: # called just after GetToken
dec %di dec %di
scasb scasb
jnz 4b jnz 4b
pop %ax # restore 1 5: pop %ax # restore 1
ret .ret: ret
GetChar:xor %ax,%ax # GetChar→al:dl GetChar:xor %ax,%ax # GetChar→al:dl
int $0x16 # get keystroke int $0x16 # get keystroke
@ -141,7 +140,8 @@ PutChar:mov $0x0e,%ah # prints CP-437
Pairlis:test %di,%di # Pairlis(x:di,y:si,a:dx):ax Pairlis:test %di,%di # Pairlis(x:di,y:si,a:dx):ax
jz 1f # jump if nil jz 1f # jump if nil
push (%bx,%di) # save 1 Cdr(x) push (%bx,%di) # save 1 Cdr(x)
push (%bx,%si) # save 2 Cdr(y) lodsw
push (%si) # save 2 Cdr(y)
mov (%di),%di mov (%di),%di
call Cons # preserves dx call Cons # preserves dx
pop %si # restore 2 pop %si # restore 2