16/xw__/mxgp.asm

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