;
; Library:	Z34CMN.LIB
; Author:	Carson Wilson <crw>
; Version:	1.2
; Date:		16 June 1988
; Changes:	Renamed CRT0 to LINS for NZCOM compatibility.
;		Added	CUSR	      "    "         "

; Author:	Carson Wilson <crw>
; Version:	1.1
; Date:		12 June 1988
; Changes:	Added CDRV   for various Z34RCP commands. 
;		Added CRT0   for Z34RCP TYPE command.
;		Added Z3TCAP and CLRSCR for Z34RCP CLS command.
;		Added QUIET  for ZCPR34 time in prompt.
;		Added RSDMSG for ZCPR34 time in prompt.

; Library:  Z34CMN.LIB
; Author:   Joe Wright
; Date:     23 March 1988

; As a replacement for Z3BASE.LIB, some usual equates.

base	equ	0		; Base Page

false	equ	0
true	equ	not false

no	equ	false
yes	equ	true

off	equ	false
on	equ	true

; Named COMMON declarations start here.  For compatibility, these
; are the same names used by Bridger Mitchell's JetLDR.

	common	/_ENV_/
z3env:				; Z3 Environment descriptor
z3envs	equ	yes		; There is one

expath	equ	z3env+9		; Address of External Path
expaths	equ	10		; Maximum 10 elements for MPATH

rcp	equ	z3env+0ch	; Address of RCP
rcps	equ	yes		; Used as existence test, not size

fcp	equ	z3env+12h	; Address of FCB
fcps	equ	yes		; Used as existence test, not size

z3ndir	equ	z3env+15h	; Address of NDR
z3ndirs	equ	yes		; Used as existence test, not size

quiet	equ	z3env+28h	; Quiet flag address <crw>

z3whl	equ	z3env+29h	; Wheel byte address
z3whls	equ	yes		; There is a wheel

lins	equ	z3env+33h	; CRT text lines address <crw>

ccp	equ	z3env+3fh	; CCP entry
ccps	equ	z3env+41h	; Size

dos	equ	z3env+42h	; DOS entry (+6)
doss	equ	z3env+44h	; Size

bio	equ	z3env+45h	; BIO entry

z3tcap	equ	z3env+80h	; TCAP address <crw>

clrscr	equ	z3env+97h	; Clear screen string address <crw>

	common	/_SSTK_/
shstk:				; Top of Shell stack
shstks	equ	yes		; There is a shell stack

	common	/_MSG_/
z3msg:				; Message buffer
z3msgs	equ	yes		; There is one

cusr	equ	z3msg+2eh	; Current user
cdrv	equ	z3msg+2fh	; Current drive <crw>

rsdmsg	equ	z3msg+3ah	; Reserved bytes <crw>

	common	/_FCB_/
extfcb:				; External file control block
extfcbs	equ	yes		; There is one

	common	/_MCL_/
z3cl:				; Multiple command line
z3cls	equ	yes		; There is one

	common	/_XSTK_/
extstk:				; External stack
extstks	equ	yes		; There is one

	common	/_BIOS_/
bios:

	cseg			; Select Code Segment

; End of Z34CMN.LIB