Explorar o código

shave one byte

Peter Ferrie %!s(int64=3) %!d(string=hai) anos
pai
achega
74b20f759e
Modificáronse 2 ficheiros con 2 adicións e 1 borrados
  1. BIN=BIN
      bin/sectorlisp.bin
  2. 2 1
      sectorlisp.S

BIN=BIN
bin/sectorlisp.bin


+ 2 - 1
sectorlisp.S

@@ -67,7 +67,8 @@ _begin:	mov	$g_mem,%cx
 	pop	%es
 	pop	%ss
 	mov	%cx,%sp
-	mov	$NIL,ONE
+	inc	%ax
+	xchg	%ax,ONE				# mov $NIL,ONE
 main:	mov	$'\n',%dl
 	call	GetToken
 	call	GetObject