trying to translate that lib into open watcom...

[16.git] / 16 / xw__ / mxwp.asm

diff --git a/16/xw__/mxwp.asm b/16/xw__/mxwp.asm
new file mode 100755 (executable)
index 0000000..45e32f3
--- /dev/null
+++ b/16/xw__/mxwp.asm
@@ -0,0 +1,31 @@
+.387
+               PUBLIC  MXWRITEPLANE
+               PUBLIC  MXREADPLANE
+MX_TEXT                SEGMENT PARA PUBLIC USE16 'CODE'
+               ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
+MXWRITEPLANE:
+       push            bp
+       mov             bp,sp
+       sub             sp,0
+       mov             ah,byte ptr 6[bp]
+       and             ah,0fH
+       mov             al,2
+       mov             dx,3c4H
+       out             dx,ax
+       mov             sp,bp
+       pop             bp
+       retf            2
+MXREADPLANE:
+       push            bp
+       mov             bp,sp
+       sub             sp,0
+       mov             al,4
+       mov             ah,byte ptr 6[bp]
+       and             ah,3
+       mov             dx,3ceH
+       out             dx,ax
+       mov             sp,bp
+       pop             bp
+       retf            2
+MX_TEXT                ENDS
+               END