model.inc

Embedded magazine source code. this is the source code in the year 1989

	.XLIST
;---------------------------
;
;  Select a memory model by setting only one of the following
;  symbols to 1:
;
small	equ	1
medium	equ	0
large	equ	0
compact	equ	0
huge	equ	0
;__________________________
sizeC= medium + large + huge	; distinguish near calls from far calls
sizeD= compact + large + huge	; distinguish 2-byte from 4-byte data ptrs

ENTRY	macro	name
	public	name
	if	sizeC
name	proc	far
	else
name	proc	near
	endif
	endm

EXTERNPROC	macro	name
	if	sizeC
	extrn	name:far
	else
	extrn	name:near
	endif
	endm

	if	sizeC
X = 6
	else
X = 4
	endif

codeOFFSET equ	offset _TEXT:
dataOFFSET equ	offset DGROUP:

	.LIST