]> 4ch.mooo.com Git - 16.git/blob - 16/xw__/mxwp.asm
16_ca needs huge amounts of work and I should remember what needs to be done soon...
[16.git] / 16 / xw__ / mxwp.asm
1 .387
2                 PUBLIC  MXWRITEPLANE
3                 PUBLIC  MXREADPLANE
4 MX_TEXT         SEGMENT PARA PUBLIC USE16 'CODE'
5                 ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
6 MXWRITEPLANE:
7         push            bp
8         mov             bp,sp
9         sub             sp,0
10         mov             ah,byte ptr 6[bp]
11         and             ah,0fH
12         mov             al,2
13         mov             dx,3c4H
14         out             dx,ax
15         mov             sp,bp
16         pop             bp
17         retf            2
18 MXREADPLANE:
19         push            bp
20         mov             bp,sp
21         sub             sp,0
22         mov             al,4
23         mov             ah,byte ptr 6[bp]
24         and             ah,3
25         mov             dx,3ceH
26         out             dx,ax
27         mov             sp,bp
28         pop             bp
29         retf            2
30 MX_TEXT         ENDS
31                 END