X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;ds=sidebyside;f=16%2Fxw__%2Fmodex.def;fp=16%2Fxw__%2Fmodex.def;h=7977a4a0819c24ec6883634c7916219eb43197b5;hb=47cdc66151d973d975d0e31fb8a786eb639bebdb;hp=0000000000000000000000000000000000000000;hpb=4b23f27092a9470a741e3a18261ad389fd1929db;p=16.git

diff --git a/16/xw__/modex.def b/16/xw__/modex.def
new file mode 100755
index 00000000..7977a4a0
--- /dev/null
+++ b/16/xw__/modex.def
@@ -0,0 +1,163 @@
+;------------------------------------------------------------
+;
+; MODEX.DEF - Include file
+; Copyright (c) 1993-1994 by Alessandro Scotti
+;
+;JUMPS
+;LOCALS
+
+TRUE            EQU     1       ; Boolean constants
+FALSE           EQU     0
+
+USE286  = FALSE                  ; TRUE enables 80286 instructions
+USE386  = FALSE                  ; TRUE enables 80386 (and 80286) instructions
+
+IF USE286 EQ TRUE
+        P286
+ENDIF
+
+IF USE386 EQ TRUE
+        P386
+        USE286  = TRUE
+ENDIF
+
+MXVERSION       EQU     0128h   ; Library version (1.40)
+
+;------------------------------------------------------------
+;
+; VGA definitions
+;
+MISC    EQU     3C2h            ; Miscellaneous output
+TS      EQU     3C4h            ; Timing Sequencer index register
+GDC     EQU     3CEh            ; Graphics Data Controller index register
+CRTC    EQU     3D4h            ; CRTC index register
+STATUS  EQU     3DAh            ; Input Status register one
+
+;------------------------------------------------------------
+;
+; Raster operators
+;
+OP_SET          EQU     0
+OP_MOVE         EQU     0       ; Same as OP_SET
+OP_AND          EQU     1
+OP_OR           EQU     2
+OP_XOR          EQU     3
+OP_TRANS        EQU     4
+OP_ADD          EQU     5       ; Must be last op
+
+;------------------------------------------------------------
+;
+; Polygon fill functions
+;
+POLYSCANBUFSIZE EQU     4*1024
+
+;------------------------------------------------------------
+; Macro to push registers, variables or flags onto the stack
+; Usage: .push "loc16"[,"loc16"...]
+; where "loc16" is a 16-bit register, a word-sized variable or the
+; keyword "FLAGS".
+; Exmpl: .push ax, flags, var1
+;        .pop  ax, flags, var1
+;
+.push   MACRO   r0, r1, r2, r3, r4, r5, r6, r7, r8, r9, r10
+    IFNB <r10>
+        .ERROR <.PUSH has more than 10 arguments>
+    ENDIF
+    IRP $reg, <r0, r1, r2, r3, r4, r5, r6, r7, r8, r9>
+        IFB <$reg>                      ;; Is argument blank?
+            EXITM                       ;; Yes, exit
+        ELSEIFIDNI <$reg>, <FLAGS>      ;; Is argument the keyword "FLAGS"?
+            pushf                       ;; Yes, push flags
+        ELSE
+            push    $reg                ;; Push argument
+        ENDIF
+    ENDM
+ENDM
+
+;------------------------------------------------------------
+; Macro to pop registers, variables or flags from the stack
+; Usage: .pop "loc16"[,"loc16"...]
+; where "loc16" is a 16-bit register, a word-sized variable or the
+; keyword "FLAGS".
+; Exmpl: .push ax, flags, var1
+;        .pop  ax, flags, var1
+;
+.pop    MACRO   r0, r1, r2, r3, r4, r5, r6, r7, r8, r9, r10
+    IFNB <r10>
+        .ERROR <.POP has more than 10 arguments>
+    ENDIF
+    IRP $reg, <r9, r8, r7, r6, r5, r4, r3, r2, r1, r0>
+        IFNB <$reg>                     ;; Is argument non-blank?
+            IFIDNI <$reg>, <FLAGS>      ;; Yes, is it the keyword "FLAGS"?
+                popf                    ;; Yes, pop flags
+            ELSE
+                pop     $reg            ;; Pop argument
+            ENDIF
+        ENDIF
+    ENDM
+ENDM
+
+;------------------------------------------------------------
+;
+.enter  MACRO   localsize
+    IF USE286 EQ TRUE
+        enter   localsize, 0
+    ELSE
+        push    bp
+        mov     bp, sp
+        sub     sp, localsize
+    ENDIF
+ENDM
+
+;------------------------------------------------------------
+;
+;.leave  MACRO   argsize
+;    IF USE286 EQ TRUE
+;        leave
+;    ELSE
+;        mov     sp, bp
+;        pop     bp
+;    ENDIF
+;    IFNB <argspace>
+;        ret     argsize
+;    ELSE
+;        ret
+;    ENDIF
+;ENDM
+
+;------------------------------------------------------------
+;
+;.shr    MACRO   arg, count
+;    IF USE286 EQ TRUE
+;        shr     arg, count
+;    ELSE
+;        $temp = count
+;        WHILE $temp GT 0
+;            shr arg, 1
+;            $temp = $temp-1
+;        ENDM
+;    ENDIF
+;ENDM
+
+;------------------------------------------------------------
+;
+;.shl    MACRO   arg, count
+;    IF USE286 EQ TRUE
+;        shl     arg, count
+;    ELSE
+;        $temp = count
+;        WHILE $temp GT 0
+;            shl arg, 1
+;            $temp = $temp-1
+;        ENDM
+;    ENDIF
+;ENDM
+
+;------------------------------------------------------------
+;
+;.chk386 MACRO   name, jump
+;    IF USE386 EQ FALSE
+;        .OUT    "Warning: ", <name>, " needs a 386 or better to run!"
+;        jmp     @@jump
+;    ENDIF
+;ENDM