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