; 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
