v2.0/source/TSPC.ASM

   1 TITLE   COMMAND Transient Uninitialized DATA
   2
   3         INCLUDE COMSW.ASM
   4 .xlist
   5 .xcref
   6         INCLUDE DOSSYM.ASM
   7         INCLUDE COMEQU.ASM
   8         INCLUDE COMSEG.ASM
   9 .list
  10 .cref
  11
  12 ; Uninitialized transient data
  13 TRANSPACE       SEGMENT PUBLIC BYTE
  14
  15         PUBLIC  UCOMBUF,COMBUF,USERDIR1,EXECPATH,HEADCALL,RESSEG,TPA,SWITCHAR
  16         PUBLIC  DIRCHAR,EXEC_ADDR,RCH_ADDR,CHKDRV,RDEOF,IFNOTFLAG,FILTYP
  17         PUBLIC  CURDRV,CONCAT,PARM1,ARGC,PARM2,COMSW,ARG1S,DESTSWITCH
  18         PUBLIC  ARG2S,ALLSWITCH,ARGTS,CFLAG,DESTCLOSED,SPECDRV,BYTCNT
  19         PUBLIC  NXTADD,FRSTSRCH,LINCNT,LINLEN,FILECNT,CHARBUF,DESTFCB2,IDLEN
  20         PUBLIC  ID,COM,DEST,DESTNAME,DESTFCB,DESTDIR,GOTOLEN,PWDBUF,EXEFCB
  21         PUBLIC  DIRBUF,SDIRBUF,BITS,PATHCNT,PATHPOS,PATHSW,FULLSCR
  22         PUBLIC  DESTVARS,DESTISDIR,DESTSIZ,DESTTAIL,DESTINFO,DESTBUF
  23         PUBLIC  DESTHAND,DESTISDEV,FIRSTDEST,MELCOPY,MELSTART,SRCVARS
  24         PUBLIC  SRCISDIR,SRCSIZ,SRCTAIL,SRCINFO,SRCBUF,SRCHAND,SRCISDEV
  25         PUBLIC  SCANBUF,SRCPT,INEXACT,APPEND,NOWRITE,BINARY,WRITTEN,TERMREAD
  26         PUBLIC  ASCII,PLUS,CPDATE,CPTIME,BATHAND,STARTEL,ELCNT,ELPOS,SKPDEL
  27         PUBLIC  SOURCE,STACK
  28         PUBLIC  TRANSPACEEND
  29         PUBLIC  INTERNATVARS
  30
  31         IF  IBM
  32         PUBLIC  ROM_CALL,ROM_IP,ROM_CS
  33         ENDIF
  34
  35         IF      KANJI
  36         PUBLIC  KPARSE
  37         ENDIF
  38
  39         ORG     0
  40 ZERO    =       $
  41 UCOMBUF DB      COMBUFLEN+3 DUP(?)      ; Raw console buffer
  42 COMBUF  DB      COMBUFLEN+3 DUP(?)      ; Cooked console buffer
  43 USERDIR1 DB     DIRSTRLEN+3 DUP(?)      ; Storage for users current directory
  44 EXECPATH DB     DIRSTRLEN+15 DUP(?)     ; Path for external command
  45
  46 ; Variables passed up from resident
  47 HEADCALL LABEL  DWORD
  48         DW      ?
  49 RESSEG  DW      ?
  50 TPA     DW      ?
  51 SWITCHAR DB     ?
  52 DIRCHAR DB      ?
  53 EXEC_ADDR DD    ?
  54 RCH_ADDR DD     ?
  55
  56 CHKDRV  DB      ?
  57 RDEOF   LABEL   BYTE                    ; Misc flags
  58 IFNOTFLAG LABEL BYTE
  59 FILTYP  DB      ?
  60 CURDRV  DB      ?
  61 CONCAT  LABEL   BYTE
  62 PARM1   DB      ?
  63 ARGC    LABEL   BYTE
  64 PARM2   DB      ?
  65 COMSW   DW      ?               ; Switches between command and 1st arg
  66 ARG1S   DW      ?               ; Switches between 1st and 2nd arg
  67 DESTSWITCH LABEL WORD
  68 ARG2S   DW      ?               ; Switches after 2nd arg
  69 ALLSWITCH LABEL WORD
  70 ARGTS   DW      ?               ; ALL switches except for COMSW
  71 CFLAG   DB      ?
  72 DESTCLOSED LABEL BYTE
  73 SPECDRV DB      ?
  74 BYTCNT  DW      ?               ; Size of buffer between RES and TRANS
  75 NXTADD  DW      ?
  76 FRSTSRCH DB     ?
  77 LINCNT  DB      ?
  78 LINLEN  DB      ?
  79 FILECNT DW      ?
  80 CHARBUF DB      80 DUP (?)      ;line byte character buffer for xenix write
  81 DESTFCB2 LABEL  BYTE
  82 IDLEN   DB      ?
  83 ID      DB      8 DUP(?)
  84 COM     DB      3 DUP(?)
  85 DEST    DB      37 DUP(?)
  86 DESTNAME DB     11 DUP(?)
  87 DESTFCB LABEL   BYTE
  88 DESTDIR DB      DIRSTRLEN DUP(?)        ; Directory for PATH searches
  89 GOTOLEN LABEL   WORD
  90 PWDBUF  LABEL   BYTE
  91 EXEFCB  LABEL   WORD
  92 DIRBUF  DB      DIRSTRLEN+3 DUP(?)
  93 SDIRBUF DB      12 DUP(?)
  94 BITS    DW      ?
  95 PATHCNT DW      ?
  96 PATHPOS DW      ?
  97 PATHSW  DW      ?
  98 FULLSCR DW      ?
  99
 100 IF  IBM
 101 ROM_CALL    DB  ?                       ; flag for rom function
 102 ROM_IP  DW  ?
 103 ROM_CS  DW  ?
 104 ENDIF
 105
 106 DESTVARS LABEL  BYTE
 107 DESTISDIR DB    ?
 108 DESTSIZ DB      ?
 109 DESTTAIL DW     ?
 110 DESTINFO DB     ?
 111 DESTBUF DB      DIRSTRLEN + 20 DUP (?)
 112
 113 DESTHAND DW     ?
 114 DESTISDEV DB    ?
 115 FIRSTDEST DB    ?
 116 MELCOPY DB      ?
 117 MELSTART DW     ?
 118
 119 SRCVARS  LABEL  BYTE
 120 SRCISDIR DB     ?
 121 SRCSIZ DB       ?
 122 SRCTAIL DW      ?
 123 SRCINFO DB      ?
 124 SRCBUF  DB      DIRSTRLEN + 20 DUP (?)
 125
 126 SRCHAND DW      ?
 127 SRCISDEV DB     ?
 128
 129 SCANBUF DB      DIRSTRLEN + 20 DUP (?)
 130
 131 SRCPT   DW      ?
 132 INEXACT DB      ?
 133 APPEND  DB      ?
 134 NOWRITE DB      ?
 135 BINARY  DB      ?
 136 WRITTEN DB      ?
 137 TERMREAD DB     ?
 138 ASCII   DB      ?
 139 PLUS    DB      ?
 140 CPDATE  DW      ?
 141 CPTIME  DW      ?
 142 BATHAND DW      ?               ; Batch handle
 143 STARTEL DW      ?
 144 ELCNT   DB      ?
 145 ELPOS   DB      ?
 146 SKPDEL  DB      ?
 147 SOURCE  DB      11 DUP(?)
 148
 149         IF      KANJI
 150 KPARSE  DB      ?
 151         ENDIF
 152
 153 INTERNATVARS    internat_block <>
 154                 DB      (internat_block_max - ($ - INTERNATVARS)) DUP (?)
 155
 156
 157         DB      80H DUP(0)      ; Init to 0 to make sure the linker is not fooled
 158 STACK   LABEL   WORD
 159
 160 TRANSPACEEND    LABEL   BYTE
 161
 162 TRANSPACE       ENDS
 163         END
 164