mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
136 lines
3.3 KiB
Plaintext
136 lines
3.3 KiB
Plaintext
; 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
|
||
|