X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=16%2Fxw__%2Fmodex.def;fp=16%2Fxw__%2Fmodex.def;h=0000000000000000000000000000000000000000;hb=4b23f27092a9470a741e3a18261ad389fd1929db;hp=7977a4a0819c24ec6883634c7916219eb43197b5;hpb=5d8d1deb6c3520abadbad86d202ea453df77bfc2;p=16.git diff --git a/16/xw__/modex.def b/16/xw__/modex.def deleted file mode 100755 index 7977a4a0..00000000 --- a/16/xw__/modex.def +++ /dev/null @@ -1,163 +0,0 @@ -;------------------------------------------------------------ -; -; 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 - .ERROR <.PUSH has more than 10 arguments> - ENDIF - IRP $reg, - IFB <$reg> ;; Is argument blank? - EXITM ;; Yes, exit - ELSEIFIDNI <$reg>, ;; 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 - .ERROR <.POP has more than 10 arguments> - ENDIF - IRP $reg, - IFNB <$reg> ;; Is argument non-blank? - IFIDNI <$reg>, ;; 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 -; 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: ", , " needs a 386 or better to run!" -; jmp @@jump -; ENDIF -;ENDM