16/xw__/mxss.asm

   1 .387
   2                 PUBLIC  MXSPLITSCREEN
   3 MX_TEXT         SEGMENT PARA PUBLIC USE16 'CODE'
   4                 ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
   5 MXSPLITSCREEN:
   6         push            bp
   7         mov             bp,sp
   8         sub             sp,0
   9         mov             ax,word ptr 6[bp]
  10         shl             ax,1
  11         mov             bh,ah
  12         mov             bl,ah
  13         and             bx,201H
  14         mov             cl,4
  15         shl             bx,cl
  16         shl             bh,1
  17         mov             dx,3d4H
  18         mov             ah,al
  19         mov             al,18H
  20         out             dx,ax
  21         mov             al,7
  22         out             dx,al
  23         inc             dx
  24         in              al,dx
  25         dec             dx
  26         mov             ah,al
  27         and             ah,0efH
  28         or              ah,bl
  29         mov             al,7
  30         out             dx,ax
  31         mov             al,9
  32         out             dx,al
  33         inc             dx
  34         in              al,dx
  35         dec             dx
  36         mov             ah,al
  37         and             ah,0bfH
  38         or              ah,bh
  39         mov             al,9
  40         out             dx,ax
  41         mov             sp,bp
  42         pop             bp
  43         retf            2
  44 MX_TEXT         ENDS
  45                 END