16/xw_/mxsl.asm

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