trying to translate that lib into open watcom...

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

diff --git a/16/xw__/mxvs.asm b/16/xw__/mxvs.asm
new file mode 100755 (executable)
index 0000000..feafb66
--- /dev/null
+++ b/16/xw__/mxvs.asm
@@ -0,0 +1,69 @@
+.387
+               PUBLIC  MXSETVIRTUALSCREEN
+               PUBLIC  MXGETVIRTUALSCREEN
+               EXTRN   MX_CODESEGMENT:BYTE
+               EXTRN   MX_BYTESPERLINE:BYTE
+               EXTRN   MXROWADDRESS:BYTE
+               EXTRN   MXSETSYSCLIPREGION:BYTE
+MX_TEXT                SEGMENT PARA PUBLIC USE16 'CODE'
+               ASSUME CS:MX_TEXT, DS:DGROUP, SS:DGROUP
+L$1:
+       add             byte ptr [bx+si],al
+L$2:
+       add             byte ptr [bx+si],al
+MXSETVIRTUALSCREEN:
+       push            bp
+       mov             bp,sp
+       sub             sp,0
+       push            ds
+       mov             ds,word ptr cs:MX_CODESEGMENT
+       mov             ax,1
+       cmp             word ptr 8[bp],140H
+       jb              L$3
+       push            ax
+       mov             dx,4
+       xor             ax,ax
+       div             word ptr 8[bp]
+       cmp             word ptr 6[bp],ax
+       pop             ax
+       ja              L$3
+       mov             ax,word ptr 8[bp]
+       and             ax,0fff8H
+       mov             word ptr L$1,ax
+       shr             ax,1
+       shr             ax,1
+       mov             word ptr MX_TEXT:MX_BYTESPERLINE,ax
+       shr             ax,1
+       push            ax
+       call            far ptr MXROWADDRESS
+       mov             ax,word ptr 6[bp]
+       mov             word ptr L$2,ax
+       push            word ptr 8[bp]
+       push            word ptr 6[bp]
+       call            far ptr MXSETSYSCLIPREGION
+       xor             ax,ax
+L$3:
+       pop             ds
+       mov             sp,bp
+       pop             bp
+       retf            4
+MXGETVIRTUALSCREEN:
+       push            bp
+       mov             bp,sp
+       sub             sp,0
+       push            ds
+       push            si
+       mov             ax,word ptr cs:L$1
+       lds             si,dword ptr 0aH[bp]
+       mov             word ptr [si],ax
+       mov             ax,word ptr cs:L$2
+       lds             si,dword ptr 6[bp]
+       mov             word ptr [si],ax
+       xor             ax,ax
+       pop             si
+       pop             ds
+       mov             sp,bp
+       pop             bp
+       retf            8
+MX_TEXT                ENDS
+               END