--- /dev/null
+.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