mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
136 lines
3.3 KiB
136 lines
3.3 KiB
; 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
|
|
|