]> 4ch.mooo.com Git - 16.git/blob - 16/xw__/mxpn.asm
16_ca needs huge amounts of work and I should remember what needs to be done soon...
[16.git] / 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