X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;ds=inline;f=16%2Fxw__%2Fmxsp.asm;fp=16%2Fxw__%2Fmxsp.asm;h=7ed046f6beec4d025165581ba3f07da531be8af0;hb=51fa952968ebef4302248c1154a5ce1504d26607;hp=0000000000000000000000000000000000000000;hpb=a2c9fecb49f628620e6e11450864ded097cc3f96;p=16.git

diff --git a/16/xw__/mxsp.asm b/16/xw__/mxsp.asm
new file mode 100755
index 00000000..7ed046f6
--- /dev/null
+++ b/16/xw__/mxsp.asm
@@ -0,0 +1,34 @@
+.387
+		PUBLIC	MXSETPALETTE
+MX_TEXT		SEGMENT	PARA PUBLIC USE16 'CODE'
+		ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
+MXSETPALETTE:
+	push		bp
+	mov		bp,sp
+	sub		sp,0
+	push		ds
+	push		si
+	lds		si,dword ptr 0aH[bp]
+	mov		cx,word ptr 6[bp]
+	mov		ax,word ptr 8[bp]
+	mov		dx,3c8H
+	out		dx,al
+	inc		dx
+	cld
+	cli
+L$1:
+	lodsb
+	out		dx,al
+	lodsb
+	out		dx,al
+	lodsb
+	out		dx,al
+	loop		L$1
+	sti
+	pop		si
+	pop		ds
+	mov		sp,bp
+	pop		bp
+	retf		8
+MX_TEXT		ENDS
+		END