+;-----------------------------------------------------------\r
+;\r
+; MXWM.ASM - Set write mode function\r
+; Copyright (c) 1993,1994 by Alessandro Scotti\r
+;\r
+;-----------------------------------------------------------\r
+WARN PRO\r
+INCLUDE MODEX.DEF\r
+\r
+PUBLIC mxWriteMode\r
+\r
+MX_TEXT SEGMENT USE16 PARA PUBLIC 'CODE'\r
+ ASSUME cs:MX_TEXT, ds:NOTHING, es:NOTHING\r
+\r
+;-----------------------------------------------------------\r
+;\r
+; Sets the write mode.\r
+;\r
+; Input:\r
+; Mode = write mode (0,1,2,3)\r
+; Output:\r
+; none\r
+;\r
+mxWriteMode PROC FAR\r
+ ARG Mode:BYTE:2 = ARG_SIZE\r
+ .enter 0\r
+\r
+ mov dx, GDC\r
+ mov ah, [Mode]\r
+ and ah, 00000011b\r
+ or ah, 01000000b\r
+ mov al, 05h\r
+ out dx, ax\r
+\r
+ .leave ARG_SIZE\r
+mxWriteMode ENDP\r
+\r
+MX_TEXT ENDS\r
+END\r