浏览代码

shave one more byte

Peter Ferrie 3 年之前
父节点
当前提交
3cb4b9743f
共有 2 个文件被更改,包括 1 次插入1 次删除
  1. 二进制
      bin/sectorlisp.bin
  2. 1 1
      sectorlisp.S

二进制
bin/sectorlisp.bin


+ 1 - 1
sectorlisp.S

@@ -164,7 +164,7 @@ GetChar:
 PutChar:
 PutChar:
 #	push	%bx				# don't clobber di,si,cx,dx
 #	push	%bx				# don't clobber di,si,cx,dx
 #	push	%bp				# original ibm pc scroll up bug
 #	push	%bp				# original ibm pc scroll up bug
-	mov	$7,%bx				# normal mda/cga style page zero
+	xor	%bx,%bx				# normal mda/cga style page zero
 	mov	$0x0e,%ah			# teletype output al cp437
 	mov	$0x0e,%ah			# teletype output al cp437
 	int	$0x10				# vidya service
 	int	$0x10				# vidya service
 #	pop	%bp				# preserves al
 #	pop	%bp				# preserves al