16/xw_/mxsp.asm

   1                 PUBLIC  MXSETPALETTE
   2 MX_TEXT         SEGMENT PARA PUBLIC USE16 'CODE'
   3                 ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
   4 MXSETPALETTE:
   5         push            bp
   6         mov             bp,sp
   7         sub             sp,0
   8         push            ds
   9         push            si
  10         lds             si,dword ptr 0aH[bp]
  11         mov             cx,word ptr 6[bp]
  12         mov             ax,word ptr 8[bp]
  13         mov             dx,3c8H
  14         out             dx,al
  15         inc             dx
  16         cld
  17         cli
  18 L$1:
  19         lodsb
  20         out             dx,al
  21         lodsb
  22         out             dx,al
  23         lodsb
  24         out             dx,al
  25         loop            L$1
  26         sti
  27         pop             si
  28         pop             ds
  29         mov             sp,bp
  30         pop             bp
  31         retf            8
  32 MX_TEXT         ENDS
  33                 END