X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=16%2Fxw_%2Fmxsc.asm;fp=16%2Fxw_%2Fmxsc.asm;h=7d8bd47b888ce88b80db36eecd847696b1db9b15;hb=47cdc66151d973d975d0e31fb8a786eb639bebdb;hp=0000000000000000000000000000000000000000;hpb=4b23f27092a9470a741e3a18261ad389fd1929db;p=16.git

diff --git a/16/xw_/mxsc.asm b/16/xw_/mxsc.asm
new file mode 100755
index 00000000..7d8bd47b
--- /dev/null
+++ b/16/xw_/mxsc.asm
@@ -0,0 +1,26 @@
+		PUBLIC	MXSETCOLOR
+MX_TEXT		SEGMENT	PARA PUBLIC USE16 'CODE'
+		ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
+MXSETCOLOR:
+	push		bp
+	mov		bp,sp
+	sub		sp,0
+	push		ds
+	push		si
+	mov		ax,word ptr 0cH[bp]
+	mov		dx,3c8H
+	out		dx,al
+	inc		dx
+	mov		al,byte ptr 0aH[bp]
+	out		dx,al
+	mov		al,byte ptr 8[bp]
+	out		dx,al
+	mov		al,byte ptr 6[bp]
+	out		dx,al
+	pop		si
+	pop		ds
+	mov		sp,bp
+	pop		bp
+	retf		8
+MX_TEXT		ENDS
+		END