X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=16%2Fxw%2Fmxwm.asm;fp=16%2Fxw%2Fmxwm.asm;h=061588592c45345a0e23fed1df38f5c47b5f085f;hb=47cdc66151d973d975d0e31fb8a786eb639bebdb;hp=0000000000000000000000000000000000000000;hpb=4b23f27092a9470a741e3a18261ad389fd1929db;p=16.git

diff --git a/16/xw/mxwm.asm b/16/xw/mxwm.asm
new file mode 100755
index 00000000..06158859
--- /dev/null
+++ b/16/xw/mxwm.asm
@@ -0,0 +1,39 @@
+;-----------------------------------------------------------
+;
+; MXWM.ASM - Set write mode function
+; Copyright (c) 1993,1994 by Alessandro Scotti
+;
+;-----------------------------------------------------------
+WARN    PRO
+INCLUDE MODEX.DEF
+
+PUBLIC  mxWriteMode
+
+MX_TEXT         SEGMENT USE16 PARA PUBLIC 'CODE'
+                ASSUME cs:MX_TEXT, ds:NOTHING, es:NOTHING
+
+;-----------------------------------------------------------
+;
+; Sets the write mode.
+;
+; Input:
+;       Mode    = write mode (0,1,2,3)
+; Output:
+;       none
+;
+mxWriteMode     PROC    FAR
+        ARG     Mode:BYTE:2     = ARG_SIZE
+        .enter  0
+
+        mov     dx, GDC
+        mov     ah, [Mode]
+        and     ah, 00000011b
+        or      ah, 01000000b
+        mov     al, 05h
+        out     dx, ax
+
+        .leave  ARG_SIZE
+mxWriteMode     ENDP
+
+MX_TEXT         ENDS
+END