16/xw_/mxsc.asm

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