Upload

ENDSCRL/ASMYT.ASM

@@ -0,0 +1,75 @@
+	IDEAL
+	MODEL large
+	P386
+
+CODESEG
+
+PUBLIC C waitvr
+
+PROC    C waitvr
+
+	mov     dx, 03dah
+@@loop1:
+	in	al, dx
+	test	al, 08h
+	jnz	@@loop1
+@@loop2:
+	in	al, dx
+	test	al, 08h
+	jz	@@loop2
+
+	ret
+ENDP
+
+PUBLIC C setstart
+
+PROC	setstart
+
+	ARG	start:word
+
+	push	bp
+	mov	bp,sp
+
+	mov	bx, [start]
+	mov	dx, 03d4h
+	mov	al, 0dh
+	mov	ah, bl
+	out	dx, ax
+	mov	al, 0ch
+	mov	ah, bh
+	out	dx, ax
+
+	pop	bp
+	ret
+ENDP
+
+PUBLIC C setrgbpalette
+
+PROC	C setrgbpalette
+
+	ARG	pal:word, r:word, g:word, b:word
+
+	mov	dx, 3c8h
+	mov	ax, [pal]
+	out	dx, al
+
+	inc	dx
+	mov	ax, [r]
+	out	dx, al
+	mov	ax, [g]
+	out	dx, al
+	mov	ax, [b]
+	out	dx, al
+
+	ret
+ENDP
+
+
+ENDS
+
+SEGMENT asdf byte use16 private 'FAR_DATA'
+PUBLIC C font
+LABEL font
+INCLUDE 'fona.inc'
+ENDS
+END