16/xw__/mxsl.asm

   1 .387
   2                 PUBLIC  MXSTARTLINE
   3                 EXTRN   MX_BYTESPERLINE:BYTE
   4 MX_TEXT         SEGMENT PARA PUBLIC USE16 'CODE'
   5                 ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
   6 MXSTARTLINE:
   7         push            bp
   8         mov             bp,sp
   9         sub             sp,0
  10         mov             ax,word ptr 6[bp]
  11         mul             word ptr cs:MX_BYTESPERLINE
  12         xchg            ax,bx
  13         mov             dx,3daH
  14 L$1:
  15         in              al,dx
  16         test            al,8
  17         jne             L$1
  18         mov             dx,3d4H
  19         mov             al,0cH
  20         mov             ah,bh
  21         cli
  22         out             dx,ax
  23         mov             al,0dH
  24         mov             ah,bl
  25         out             dx,ax
  26         sti
  27         mov             dx,3daH
  28 L$2:
  29         in              al,dx
  30         test            al,8
  31         je              L$2
  32         xor             ax,ax
  33         mov             sp,bp
  34         pop             bp
  35         retf            2
  36 MX_TEXT         ENDS
  37                 END