From: John Tsiombikas <nuclear@member.fsf.org>
Date: Sun, 19 Jun 2022 22:31:35 +0000 (+0300)
Subject: out of space
X-Git-Url: http://git.mutantstargoat.com/user/nuclear/?p=bootcard;a=commitdiff_plain;h=2035cb9dd40830cd39477babe4c6f54d7d67e9f6

out of space
---

diff --git a/bootcard.asm b/bootcard.asm
index 68407bd..63a6ada 100644
--- a/bootcard.asm
+++ b/bootcard.asm
@@ -50,7 +50,7 @@ KB_CTRL		equ 61h
 	out PIT_DATA0 + %1, al
 %endmacro
 
-start:	xor eax, eax
+start:	xor ax, ax
 	mov ds, ax
 	mov es, ax
 	mov ss, ax
@@ -111,7 +111,7 @@ drawbg:
 .fillgrad:
 	mov ax, bx
 	mov ah, al
-	mov cx, 3680	; 20 lines
+	mov cx, 2400	; 15 lines
 	rep stosw
 	inc bx
 	cmp bx, 208
@@ -127,12 +127,17 @@ drawbg:
 	fiadd word [w5]
 	fimul word [w5]
 	fistp word [bp - 2]
-	fistp word [bp - 4]
+	;fistp word [bp - 4]
 	mov bx, [bp - 2]
 	add bx, 100
 	imul bx, bx, 320
 	add bx, cx
+.mntcol:
 	mov byte [es:bx], 0
+	add bx, 320
+	cmp bx, 64000
+	jb .mntcol
+
 	dec cx
 	jnz .mnt
 	
@@ -165,7 +170,7 @@ timer_intr:
 	cmp ax, cx
 	jb .eoi
 
-	inc dword [muscur]
+	inc word [muscur]
 	mov ax, [music + 2 + bx] ; event counter reload
 	test ax, ax
 	jz .off