Browse Source

shave one byte

Peter Ferrie 3 years ago
parent
commit
7ae47772f6
2 changed files with 4 additions and 4 deletions
  1. BIN
      bin/sectorlisp.bin
  2. 4 4
      sectorlisp.S

BIN
bin/sectorlisp.bin


+ 4 - 4
sectorlisp.S

@@ -114,14 +114,14 @@ Intern:	push	%cx				# Intern(cx,di): ax
 	mov	%bp,%cx
 	mov	%bp,%cx
 	mov	%di,%ax
 	mov	%di,%ax
 	cmp	%bh,(%di)
 	cmp	%bh,(%di)
-	je	2f
+	je	8f
 	rep cmpsb				# memcmp(di,si,cx)
 	rep cmpsb				# memcmp(di,si,cx)
 	je	9f
 	je	9f
-	not	%cx
 	xor	%ax,%ax
 	xor	%ax,%ax
-	repne scasb				# memchr(di,al,cx)
+2:	scasb					# memchr(di,al,cx)
+	jne	2b
 	jmp	1b
 	jmp	1b
-2:	rep movsb				# memcpy(di,si,cx)
+8:	rep movsb				# memcpy(di,si,cx)
 9:	pop	%cx
 9:	pop	%cx
 	ret
 	ret