Old tools that got removed a long time ago.

git-svn-id: svn://svn.code.sf.net/p/sc2/code/trunk@1545 8092fc87-c524-0410-9efc-e669fe64eaf9

tools/old/anm/ASM.INC

@@ -0,0 +1,151 @@
+;-----------------------------------------------------------------
+; asm.inc
+; -------
+; Standard macros for DPaint II MS-DOS ".asm" files.
+;-----------------------------------------------------------------
+
+;-----------------------------------------------------------------
+; Memory model configuration.
+;-----------------------------------------------------------------
+
+LPROG	equ	1		; 1 means large (>64k) program segment
+LDATA	equ	0		; 1 means large (>64k) data segment
+
+;-----------------------------------------------------------------
+; After a standard procedure entry (push bp, mov bp,sp), the first
+; parm on the stack can be accessed at ARGB[bp].
+;-----------------------------------------------------------------
+
+	if LPROG
+ARGB equ 6
+	else
+ARGB equ 4
+	endif
+
+;-----------------------------------------------------------------
+; File header: sets up groups, segment names, etc.
+;-----------------------------------------------------------------
+
+	if LPROG
+HEADER macro module
+module&_TEXT segment word public 'CODE'
+module&_TEXT ends
+_DATA segment word public 'DATA'
+_DATA ends
+CONST segment word public 'CONST'
+CONST ends
+_BSS segment word public 'BSS'
+_BSS ends
+DGROUP group CONST, _BSS, _DATA
+	assume cs:module&_TEXT, ds:DGROUP, ss:DGROUP, es:DGROUP
+	endm
+	else
+HEADER macro 
+_TEXT segment word public 'CODE'
+_TEXT ends
+CONST segment word public 'CONST'
+CONST ends
+_BSS segment word public 'BSS'
+_BSS ends
+_DATA segment word public 'DATA'
+_DATA ends
+DGROUP group CONST, _BSS, _DATA
+	assume cs:_TEXT, ds:DGROUP, ss:DGROUP, es:DGROUP
+	endm
+	endif
+
+;-----------------------------------------------------------------
+; Data segment start & end.
+;-----------------------------------------------------------------
+
+DSEG macro
+_DATA segment
+	endm
+
+;-----------------------------------------------------------------
+
+ENDDS macro
+_DATA ends
+	endm
+
+;-----------------------------------------------------------------
+; Program segment start & end.
+;-----------------------------------------------------------------
+
+	if LPROG
+PSEG macro module
+module&_TEXT segment
+	endm
+	else
+PSEG macro
+_TEXT	segment
+	endm
+	endif
+
+;-----------------------------------------------------------------
+
+	if LPROG
+ENDPS macro module
+module&_TEXT ends
+	endm
+	else
+ENDPS macro module
+_TEXT ends
+	endm
+	endif
+
+;-----------------------------------------------------------------
+; Procedure start & end.
+;-----------------------------------------------------------------
+
+STARTPROC macro proc_name
+	if LPROG
+proc_name proc far
+	else
+proc_name proc near
+	endif
+	endm
+
+;--- start a procedure and declare it public ---
+STARTPROC_PUBLIC macro name
+	public name
+	if LPROG
+name proc far
+	else
+name proc near
+	endif
+	endm
+
+;-----------------------------------------------------------------
+
+ENDPROC macro proc_name
+proc_name endp
+	endm
+
+;-----------------------------------------------------------------
+; When the 80286 is in real mode, the POPF instruction may recognize
+; a pending maskable interrupt even if interrupts were off before the
+; corresponding PUSHF.  This macro should be used instead of POPF.
+; See "IBM Personal Computer Seminar Proceedings" v2, #4 (September '84)
+; for info about the POPF bug.
+;-----------------------------------------------------------------
+
+popflags macro
+		jmp		$+3		; jump around IRET
+		iret			; pop CS, IP, and flags
+		push	cs
+		call	$-2		; call within segment
+		endm
+
+;-----------------------------------------------------------------
+; Offsets to low byte & high byte of a word.
+;-----------------------------------------------------------------
+LO	= 0
+HI	= 1
+
+;-----------------------------------------------------------------
+; --- miscellaneous constants
+
+TRUE				equ 1
+FALSE				equ 0
+