16/xw__/mxpn.asm

   1 .387
   2                 PUBLIC  MXPAN
   3                 EXTRN   MX_BYTESPERLINE:BYTE
   4                 EXTRN   MXWAITDISPLAY:BYTE
   5                 EXTRN   MXSTARTADDRESS:BYTE
   6 MX_TEXT         SEGMENT PARA PUBLIC USE16 'CODE'
   7                 ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
   8 MXPAN:
   9         push            bp
  10         mov             bp,sp
  11         sub             sp,0
  12         mov             ax,word ptr 6[bp]
  13         mul             word ptr cs:MX_BYTESPERLINE
  14         mov             dx,word ptr 8[bp]
  15         shr             dx,1
  16         shr             dx,1
  17         add             ax,dx
  18         push            ax
  19         call            far ptr MXWAITDISPLAY
  20         call            far ptr MXSTARTADDRESS
  21         mov             dx,3daH
  22         in              al,dx
  23         mov             dx,3c0H
  24         mov             al,33H
  25         out             dx,al
  26         mov             al,byte ptr 8[bp]
  27         and             al,3
  28         shl             al,1
  29         out             dx,al
  30         xor             ax,ax
  31         mov             sp,bp
  32         pop             bp
  33         retf            4
  34 MX_TEXT         ENDS
  35                 END