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