MACLIB	Z3BASE.LIB
	MACLIB	SYSENV.LIB
;
	COMMON	/?PAGE?/
;
	if	rcps ne 0
ze_rcp::
		db	'z3rcp'
		db	4
		db	0
		ds	(rcps * 128) - ($ - ze_rcp)
;
	else
;
	public	ze_rcp
;
ze_rcp	defl	0
;
	endif	;rcps
;
;*******************************
;
	if	iops ne 0
;
ze_iop::
		jpret		; status
		jpret		; select
		jpret		; namer
		jpret		; tinit
		jpret		; const
		jpret		; conin
		jpret		; conout
		jpret		; list
		jpret		; punch
		jpret		; reader
		jpret		; listst
		jpret		; newio
		jpret		; copen
		jpret		; cclose
		jpret		; lopen 
		jpret		; lclose
		db	'z3iop'
		ds	(iops * 128) - ($ - ze_iop),0
;
	else
;
	public	ze_iop
;
ze_iop	defl	0
;
	endif	;iops
;
;******************************
;
	if	fcps ne 0
ze_fcp::
		db	'z3fcp'
		db	4
		db	0
		ds	(fcps * 128) - ($ - ze_fcp),0
;
	else
;
	public	ze_fcp
;
ze_fcp	defl	0
;
	endif	;fcps
;
adbase:
;
ze_shl::	ds	shstks * shsize,0
;
ze_msg::	ds	80,0
;
ze_fcb::	ds	36,0
;
ze_pth::	ds	[expaths * 2] + 1,0
;
ze_whl::	ds	1,0ffh
;
		if z3ndirs eq 14
ze_dir::	ds	256,0
		endif
;
		if z3ndirs eq 28
ze_dir::	ds	512,0
		endif
;
		if z3ndirs eq 0
		public	ze_dir
ze_dir		defl	0
		endif
;
ze_env::	jp	z3ntry##		;fer grins, jump back to zcpr
		SYSENV
;
ze_cmd::	dw	ze_cl
		db	z3cls-4
ze_aut::	db	0
ze_cl::		ds	z3cls-4,0
;
ze_stk::	DS	48,0
;
;
	erflag	defl	false
	erflag	defl	erflag or [[ze_stk-adbase] ne [extstk-biosend]]
	erflag	defl	erflag or [[ze_cmd-adbase] ne [z3cl  -biosend]]
	erflag	defl	erflag or [[ze_env-adbase] ne [z3env -biosend]]
	erflag	defl	erflag or [[ze_pth-adbase] ne [expath-biosend]]
	erflag	defl	erflag or [[ze_whl-adbase] ne [z3whl -biosend]]
	erflag	defl	erflag or [[ze_dir-adbase] ne [z3ndir-biosend]]
	erflag	defl	erflag or [[ze_shl-adbase] ne [shstk -biosend]]
	erflag	defl	erflag or [[ze_msg-adbase] ne [z3msg -biosend]]
	erflag	defl	erflag or [[ze_fcb-adbase] ne [extfcb-biosend]]
;
	if	erflag
;
	**** environment address value mismatch 
;
	if	[[ze_stk-adbase] ne [extstk-biosend]]
	** external stack
	endif

	if	[[ze_cmd-adbase] ne [z3cl  -biosend]]
	** external command line
	endif

	if	[[ze_env-adbase] ne [z3env -biosend]]
	** environment table
	endif

	if	[[ze_pth-adbase] ne [expath-biosend]]
	** external path address
	endif

	if	[[ze_whl-adbase] ne [z3whl -biosend]]
	** wheel byte
	endif

	if	[[ze_dir-adbase] ne [z3ndir-biosend]]
	** named directory table
	endif

	if	[[ze_shl-adbase] ne [shstk -biosend]]
	** shell stack
	endif

	if	[[ze_msg-adbase] ne [z3msg -biosend]]
	** message buffer
	endif

	if	[[ze_fcb-adbase] ne [extfcb-biosend]]
	** external fcb
	endif
;
	endif	;erflag
;
	END