--- /dev/null
+;-----------------------------------------------------------\r
+;\r
+; MXWR.ASM - Wait vertical retrace function\r
+; Copyright (c) 1993,1994 by Alessandro Scotti\r
+;\r
+;-----------------------------------------------------------\r
+WARN PRO\r
+INCLUDE MODEX.DEF\r
+\r
+PUBLIC mxWaitRetrace\r
+\r
+MX_TEXT SEGMENT USE16 PARA PUBLIC 'CODE'\r
+ ASSUME cs:MX_TEXT, ds:NOTHING, es:NOTHING\r
+\r
+;-----------------------------------------------------------\r
+;\r
+; Waits for vertical retrace start.\r
+;\r
+mxWaitRetrace PROC FAR\r
+ mov dx, STATUS\r
+@@1: in al,dx\r
+ test al, 08h\r
+ jz @@1\r
+ ret\r
+mxWaitRetrace ENDP\r
+\r
+MX_TEXT ENDS\r
+END\r