]> 4ch.mooo.com Git - 16.git/blob - 16/x/mxwr.asm
16_ca needs huge amounts of work and I should remember what needs to be done soon...
[16.git] / 16 / x / mxwr.asm
1 ;-----------------------------------------------------------\r
2 ;\r
3 ; MXWR.ASM - Wait vertical retrace function\r
4 ; Copyright (c) 1993,1994 by Alessandro Scotti\r
5 ;\r
6 ;-----------------------------------------------------------\r
7 WARN    PRO\r
8 INCLUDE MODEX.DEF\r
9 \r
10 PUBLIC  mxWaitRetrace\r
11 \r
12 MX_TEXT         SEGMENT USE16 PARA PUBLIC 'CODE'\r
13                 ASSUME cs:MX_TEXT, ds:NOTHING, es:NOTHING\r
14 \r
15 ;-----------------------------------------------------------\r
16 ;\r
17 ; Waits for vertical retrace start.\r
18 ;\r
19 mxWaitRetrace   PROC    FAR\r
20         mov     dx, STATUS\r
21 @@1:    in      al,dx\r
22         test    al, 08h\r
23         jz      @@1\r
24         ret\r
25 mxWaitRetrace   ENDP\r
26 \r
27 MX_TEXT         ENDS\r
28 END\r