home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
ZCPR33
/
A-R
/
PTCAP12.LBR
/
SYSENV.LIB
< prev
next >
Wrap
Text File
|
2000-06-30
|
3KB
|
134 lines
; 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 'B'-'@' ; maximum disk
db 16 ; 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 80 ; width of CRT 1
db 24 ; number of lines on CRT 1
db 22 ; number of lines of text on CRT 1
;
db 132 ; width of Printer 0
db 66 ; number of lines on Printer 0
db 60 ; number of lines of text on Printer 0
db 1 ; form feed flag (0=can't formfeed, 1=can)
;
db 121 ; width of Printer 1
db 66 ; number of lines on Printer 1
db 60 ; number of lines of text on Printer 1
db 1 ; form feed flag (0=can't formfeed, 1=can)
;
db 96 ; width of Printer 2
db 66 ; number of lines on Printer 2
db 60 ; number of lines of text on Printer 2
db 1 ; form feed flag (0=can't formfeed, 1=can)
;
db 80 ; width of Printer 3
db 66 ; number of lines on Printer 3
db 60 ; number of lines of text on Printer 3
db 1 ; 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 'TRS80-12 P&T 2.2' ;Name of Terminal
DB 1eh ;Cursor UP
DB 1fh ;Cursor DOWN
DB 1dh ;Cursor RIGHT
DB 1ch ;Cursor LEFT
DB 00 ;CL Delay
DB 00 ;CM Delay
DB 00 ;CE Delay
DB 0ch,0 ;CL String
DB 1bh,'Y%+ %+ ',0 ;CM String
DB 1h,0 ;CE String
DB 0eh,0 ;SO String
DB 0fh,0 ;SE String
DB 0 ;TI String
DB 0 ;TE String
;
ds 80H-($-envorg2) ; make exactly 80H bytes long
;
;
; End of Environment Descriptor
;
endm