trying to translate that lib into open watcom...

[16.git] / 16 / xw__ / mxsp.asm

diff --git a/16/xw__/mxsp.asm b/16/xw__/mxsp.asm
new file mode 100755 (executable)
index 0000000..7ed046f
--- /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