]> 4ch.mooo.com Git - 16.git/blob - 16/xw_/mxsc.asm
code miraculously works on real hardware
[16.git] / 16 / xw_ / mxsc.asm
1                 PUBLIC  MXSETCOLOR
2 MX_TEXT         SEGMENT PARA PUBLIC USE16 'CODE'
3                 ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
4 MXSETCOLOR:
5         push            bp
6         mov             bp,sp
7         sub             sp,0
8         push            ds
9         push            si
10         mov             ax,word ptr 0cH[bp]
11         mov             dx,3c8H
12         out             dx,al
13         inc             dx
14         mov             al,byte ptr 0aH[bp]
15         out             dx,al
16         mov             al,byte ptr 8[bp]
17         out             dx,al
18         mov             al,byte ptr 6[bp]
19         out             dx,al
20         pop             si
21         pop             ds
22         mov             sp,bp
23         pop             bp
24         retf            8
25 MX_TEXT         ENDS
26                 END