16/xw_/mxgc.asm

   1                 PUBLIC  MXGETCOLOR
   2 MX_TEXT         SEGMENT PARA PUBLIC USE16 'CODE'
   3                 ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
   4 MXGETCOLOR:
   5         push            bp
   6         mov             bp,sp
   7         sub             sp,0
   8         push            ds
   9         push            si
  10         mov             ax,word ptr 12H[bp]
  11         mov             dx,3c7H
  12         out             dx,al
  13         inc             dx
  14         inc             dx
  15         lds             si,dword ptr 0eH[bp]
  16         in              al,dx
  17         mov             byte ptr [si],al
  18         lds             si,dword ptr 0aH[bp]
  19         in              al,dx
  20         mov             byte ptr [si],al
  21         lds             si,dword ptr 6[bp]
  22         in              al,dx
  23         mov             byte ptr [si],al
  24         pop             si
  25         pop             ds
  26         mov             sp,bp
  27         pop             bp
  28         retf            0eH
  29 MX_TEXT         ENDS
  30                 END