; LIBRARY:  SYSENV.LIB
; AUTHOR:  Richard Conn
; Version:  1.0
; Date:  18 May 84
; Previous Versions:  None

;
;	SYSENV is the definition for my ZCPR3 environment.
;

sysenv	macro
;
;  Environment Descriptor
;	If inline, there is a leading JMP just before this
;
envorg1:
	db	'Z3ENV'		; Environment ID
	db	2		; class 2 environment (internal)

	dw	expath		; external path address
	db	expaths		; number of 2-byte elements in path

	dw	rcp		; RCP address
	db	rcps		; number of 128-byte blocks in RCP

	dw	iop		; IOP address
	db	iops		; number of 128-byte blocks in IOP

	dw	fcp		; FCP address
	db	fcps		; number of 128-byte blocks in FCP

	dw	z3ndir		; NDR address
	db	z3ndirs		; number of 18-byte entries in NDR

	dw	z3cl		; ZCPR3 Command Line
	db	z3cls		; number of bytes in Command Line

	dw	z3env		; ZCPR3 Environment Descriptor
	db	z3envs		; number of 128-byte blocks in Descriptor

	dw	shstk		; Shell Stack address
	db	shstks		; number of shsize-byte entires in Shell Stack
	db	shsize		; size of a Shell Stack entry

	dw	z3msg		; ZCPR3 Message buffer

	dw	extfcb		; ZCPR3 External FCB

	dw	extstk		; ZCPR3 External Stack

	db	0		; quiet flag (1=quiet, 0=not quiet)

	dw	z3whl		; address of Wheel Byte

	db	4		; Processor Speed in MHz

	db	'D'-'@'		; maximum disk
	db	31		; maximum user

	db	1		; 1=OK to accept DU, 0=not OK

	db	0		; CRT selection (0=CRT 0, 1=CRT 1)
	db	0		; Printer selection (n=Printer n)

	db	80		; width of CRT 0
	db	24		; number of lines on CRT 0
	db	22		; number of lines of text on CRT 0

	db	132		; width of CRT 1
	db	24		; number of lines on CRT 1
	db	22		; number of lines of text on CRT 1

	db	80		; width of Printer 0
	db	66		; number of lines on Printer 0
	db	58		; number of lines of text on Printer 0
	db	1		; form feed flag (0=can't formfeed, 1=can)

	db	102		; width of Printer 1
	db	66		; number of lines on Printer 1
	db	58		; number of lines of text on Printer 1
	db	1		; form feed flag (0=can't formfeed, 1=can)

	db	80		; width of Printer 2
	db	66		; number of lines on Printer 2
	db	58		; number of lines of text on Printer 2
	db	0		; form feed flag (0=can't formfeed, 1=can)

	db	102		; width of Printer 3
	db	66		; number of lines on Printer 3
	db	58		; number of lines of text on Printer 3
	db	0		; form feed flag (0=can't formfeed, 1=can)

	db	'SH      '	; shell variable filename
	db	'VAR'		; shell variable filetype

	db	'        '	; filename 1
	db	'   '		; filetype 1

	db	'        '	; filename 2
	db	'   '		; filetype 2

	db	'        '	; filename 3
	db	'   '		; filetype 3

	db	'        '	; filename 4
	db	'   '		; filetype 4

	ds	80H-($-envorg1+3)	; make exactly 80H bytes long
					; (+3 compensates for leading JMP)
;
; Terminal Capabilities Data
;
envorg2:
	DB	'TVI 950         '	;Name of Terminal
	DB	'K'-'@'			;Cursor UP
	DB	'V'-'@'			;Cursor DOWN
	DB	'L'-'@'			;Cursor RIGHT
	DB	'H'-'@'			;Cursor LEFT
	DB	00			;CL Delay
	DB	00			;CM Delay
	DB	00			;CE Delay
	DB	1bh,'*',0		;CL String
	DB	1bh,'=%+ %+ ',0		;CM String
	DB	1bh,'t',0		;CE String
	DB	1bh,')',0		;SO String
	DB	1bh,'(',0		;SE String
	DB	0			;TI String
	DB	0			;TE String

	ds	80H-($-envorg2)		; make exactly 80H bytes long

;
;  End of Environment Descriptor
;
	endm