X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=16%2Fxw%2Fmxpn.asm;fp=16%2Fxw%2Fmxpn.asm;h=eaaf61b48cd10bd680e00cdea7a4326f70804af8;hb=a9fb589a2cf020d485b63dff39f9a9196dc81575;hp=0000000000000000000000000000000000000000;hpb=ae047ad3be09d38573b5cab895472e31ef7d47c7;p=16.git

diff --git a/16/xw/mxpn.asm b/16/xw/mxpn.asm
new file mode 100755
index 00000000..eaaf61b4
--- /dev/null
+++ b/16/xw/mxpn.asm
@@ -0,0 +1,60 @@
+;-----------------------------------------------------------
+;
+; MXPN.ASM - Panning function
+; Copyright (c) 1993,1994 by Alessandro Scotti
+;
+;-----------------------------------------------------------
+WARN    PRO
+INCLUDE MODEX.DEF
+
+PUBLIC  mxPan
+
+EXTRN   mxWaitDisplay   : FAR
+EXTRN   mxStartAddress  : FAR
+
+MX_TEXT         SEGMENT USE16 PARA PUBLIC 'CODE'
+                ASSUME cs:MX_TEXT, ds:NOTHING, es:NOTHING
+
+EXTRN   mx_BytesPerLine : WORD
+
+;-----------------------------------------------------------
+;
+; Moves the screen.
+;
+; Input:
+;       X, Y    = new X, Y coordinates of view screen
+; Output:
+;       none
+;
+mxPan           PROC    FAR
+        ARG     Y:WORD,                 \
+                X:WORD                  = ARG_SIZE
+        ASSUME  ds:NOTHING
+        .enter  0
+
+        mov     ax, [Y]
+        mul     [mx_BytesPerLine]
+        mov     dx, [X]
+        shr     dx, 1
+        shr     dx, 1
+        add     ax, dx
+        push    ax                      ; Push the start address
+        call    mxWaitDisplay
+        call    mxStartAddress
+
+        mov     dx, 03DAh               ; Set the pixel pan register
+        in      al, dx
+        mov     dx, 03C0h
+        mov     al, 33h
+        out     dx, al
+        mov     al, BYTE PTR [X]
+        and     al, 3
+        shl     al, 1
+        out     dx, al
+
+        xor     ax, ax
+        .leave  ARG_SIZE
+mxPan           ENDP
+
+MX_TEXT         ENDS
+END