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