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 / ZSYS / SIMTEL20 / ZCPR3 / SYSENV.LIB < prev    next >
Text File  |  2000-06-30  |  3KB  |  136 lines
  1. ; LIBRARY:  SYSENV.LIB
  2. ; AUTHOR:  Richard Conn
  3. ; Version:  1.0
  4. ; Date:  18 May 84
  5. ; Previous Versions:  None
  6.  
  7. ;
  8. ;    SYSENV is the definition for my ZCPR3 environment.
  9. ;
  10.  
  11. sysenv    macro
  12. ;
  13. ;  Environment Descriptor
  14. ;    If inline, there is a leading JMP just before this
  15. ;
  16. envorg1:
  17.     db    'Z3ENV'        ; Environment ID
  18.     db    2        ; class 2 environment (internal)
  19.  
  20.     dw    expath        ; external path address
  21.     db    expaths        ; number of 2-byte elements in path
  22.  
  23.     dw    rcp        ; RCP address
  24.     db    rcps        ; number of 128-byte blocks in RCP
  25.  
  26.     dw    iop        ; IOP address
  27.     db    iops        ; number of 128-byte blocks in IOP
  28.  
  29.     dw    fcp        ; FCP address
  30.     db    fcps        ; number of 128-byte blocks in FCP
  31.  
  32.     dw    z3ndir        ; NDR address
  33.     db    z3ndirs        ; number of 18-byte entries in NDR
  34.  
  35.     dw    z3cl        ; ZCPR3 Command Line
  36.     db    z3cls        ; number of bytes in Command Line
  37.  
  38.     dw    z3env        ; ZCPR3 Environment Descriptor
  39.     db    z3envs        ; number of 128-byte blocks in Descriptor
  40.  
  41.     dw    shstk        ; Shell Stack address
  42.     db    shstks        ; number of shsize-byte entires in Shell Stack
  43.     db    shsize        ; size of a Shell Stack entry
  44.  
  45.     dw    z3msg        ; ZCPR3 Message buffer
  46.  
  47.     dw    extfcb        ; ZCPR3 External FCB
  48.  
  49.     dw    extstk        ; ZCPR3 External Stack
  50.  
  51.     db    0        ; quiet flag (1=quiet, 0=not quiet)
  52.  
  53.     dw    z3whl        ; address of Wheel Byte
  54.  
  55.     db    4        ; Processor Speed in MHz
  56.  
  57.     db    'D'-'@'        ; maximum disk
  58.     db    31        ; maximum user
  59.  
  60.     db    1        ; 1=OK to accept DU, 0=not OK
  61.  
  62.     db    0        ; CRT selection (0=CRT 0, 1=CRT 1)
  63.     db    0        ; Printer selection (n=Printer n)
  64.  
  65.     db    80        ; width of CRT 0
  66.     db    24        ; number of lines on CRT 0
  67.     db    22        ; number of lines of text on CRT 0
  68.  
  69.     db    132        ; width of CRT 1
  70.     db    24        ; number of lines on CRT 1
  71.     db    22        ; number of lines of text on CRT 1
  72.  
  73.     db    80        ; width of Printer 0
  74.     db    66        ; number of lines on Printer 0
  75.     db    58        ; number of lines of text on Printer 0
  76.     db    1        ; form feed flag (0=can't formfeed, 1=can)
  77.  
  78.     db    102        ; width of Printer 1
  79.     db    66        ; number of lines on Printer 1
  80.     db    58        ; number of lines of text on Printer 1
  81.     db    1        ; form feed flag (0=can't formfeed, 1=can)
  82.  
  83.     db    80        ; width of Printer 2
  84.     db    66        ; number of lines on Printer 2
  85.     db    58        ; number of lines of text on Printer 2
  86.     db    0        ; form feed flag (0=can't formfeed, 1=can)
  87.  
  88.     db    102        ; width of Printer 3
  89.     db    66        ; number of lines on Printer 3
  90.     db    58        ; number of lines of text on Printer 3
  91.     db    0        ; form feed flag (0=can't formfeed, 1=can)
  92.  
  93.     db    'SH      '    ; shell variable filename
  94.     db    'VAR'        ; shell variable filetype
  95.  
  96.     db    '        '    ; filename 1
  97.     db    '   '        ; filetype 1
  98.  
  99.     db    '        '    ; filename 2
  100.     db    '   '        ; filetype 2
  101.  
  102.     db    '        '    ; filename 3
  103.     db    '   '        ; filetype 3
  104.  
  105.     db    '        '    ; filename 4
  106.     db    '   '        ; filetype 4
  107.  
  108.     ds    80H-($-envorg1+3)    ; make exactly 80H bytes long
  109.                     ; (+3 compensates for leading JMP)
  110. ;
  111. ; Terminal Capabilities Data
  112. ;
  113. envorg2:
  114.     DB    'TVI 950         '    ;Name of Terminal
  115.     DB    'K'-'@'            ;Cursor UP
  116.     DB    'V'-'@'            ;Cursor DOWN
  117.     DB    'L'-'@'            ;Cursor RIGHT
  118.     DB    'H'-'@'            ;Cursor LEFT
  119.     DB    00            ;CL Delay
  120.     DB    00            ;CM Delay
  121.     DB    00            ;CE Delay
  122.     DB    1bh,'*',0        ;CL String
  123.     DB    1bh,'=%+ %+ ',0        ;CM String
  124.     DB    1bh,'t',0        ;CE String
  125.     DB    1bh,')',0        ;SO String
  126.     DB    1bh,'(',0        ;SE String
  127.     DB    0            ;TI String
  128.     DB    0            ;TE String
  129.  
  130.     ds    80H-($-envorg2)        ; make exactly 80H bytes long
  131.  
  132. ;
  133. ;  End of Environment Descriptor
  134. ;
  135.     endm
  136.