فهرست منبع

shave one byte

Peter Ferrie 3 سال پیش
والد
کامیت
7ae47772f6
2فایلهای تغییر یافته به همراه4 افزوده شده و 4 حذف شده
  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	%di,%ax
 	cmp	%bh,(%di)
-	je	2f
+	je	8f
 	rep cmpsb				# memcmp(di,si,cx)
 	je	9f
-	not	%cx
 	xor	%ax,%ax
-	repne scasb				# memchr(di,al,cx)
+2:	scasb					# memchr(di,al,cx)
+	jne	2b
 	jmp	1b
-2:	rep movsb				# memcpy(di,si,cx)
+8:	rep movsb				# memcpy(di,si,cx)
 9:	pop	%cx
 	ret