v2.0/source/RDATA.ASM

   1 TITLE   COMMAND Resident DATA
   2
   3         INCLUDE COMSW.ASM
   4 .xlist
   5 .xcref
   6         INCLUDE COMSEG.ASM
   7 .list
   8 .cref
   9
  10         INCLUDE IFEQU.ASM
  11
  12 CODERES SEGMENT PUBLIC
  13         EXTRN   THEADFIX:NEAR,EXT_EXEC:NEAR,TREMCHECK:NEAR
  14 CODERES ENDS
  15
  16 TRANCODE        SEGMENT PUBLIC
  17         EXTRN   COMMAND:NEAR
  18 TRANCODE        ENDS
  19
  20 ZEXEC_CODE      SEGMENT PUBLIC
  21         IF      IBMVER
  22         EXTRN   $EXEC:NEAR
  23         ENDIF
  24 ZEXEC_CODE      ENDS
  25
  26
  27 ; Data for resident portion
  28
  29 DATARES SEGMENT PUBLIC BYTE
  30
  31         PUBLIC  MESBAS,MESADD,MREAD,MWRITE,ERRMES,IOTYP,DRVNUM,DRVLET,NEWLIN
  32         PUBLIC  DEVEMES,DEVENAM,REQUEST,CDEVAT,BADFAT,COMBAD,NEEDCOM,DRVMSG
  33         PUBLIC  COMLET,DEFMSG,PROMPT,ENDBATMES,EXECEMES,EXEBAD,TOOBIG,NOCOM
  34         PUBLIC  NOHANDMES,BMEMMES,HALTMES,FRETMES,RBADNAM,INT_2E_RET,SAVE_PDB
  35         PUBLIC  PARENT,ERRCD_24,HANDLE01,LOADING,BATCH,BATLOC,COMSPEC,TRANS
  36         PUBLIC  TRNSEG,COMDRV,BATBYT,MEMSIZ,SUM,EXTCOM,RETCODE,ECHOFLAG
  37         PUBLIC  IO_SAVE,RESTDIR,PERMCOM,SINGLECOM,VERVAL,FORFLAG,UFORDRV
  38         PUBLIC  FORSET,FORCOM,FORVAR,FORPTR,FORUFCB,FORFCB,RE_INSTR,RE_OUT_APP
  39         PUBLIC  RE_OUTSTR,PIPEFLAG,PIPEFILES,PIPEPTR,PIPESTR,PIPE1,PIPE2
  40         PUBLIC  INPIPEPTR,OUTPIPEPTR,EXEC_BLOCK,ENVIRSEG,COM_PTR,COM_FCB1
  41         PUBLIC  COM_FCB2,PARMBUF,TRANVARS,MYSEG,LTPA,RSWITCHAR,RDIRCHAR
  42         PUBLIC  MYSEG1,MYSEG2
  43         PUBLIC  DATARESEND
  44
  45         IF      IBMVER
  46         PUBLIC  SYS_CALL,ZEXEC,EXESEG,USER_SP,USER_SS,EXESUM
  47         ENDIF
  48
  49         ORG     0
  50 ZERO    =       $
  51 MESBAS  DW      OFFSET RESGROUP:ERR0
  52         DW      OFFSET RESGROUP:ERR1
  53         DW      OFFSET RESGROUP:ERR2
  54         DW      OFFSET RESGROUP:ERR3
  55         DW      OFFSET RESGROUP:ERR4
  56         DW      OFFSET RESGROUP:ERR5
  57         DW      OFFSET RESGROUP:ERR6
  58         DW      OFFSET RESGROUP:ERR7
  59         DW      OFFSET RESGROUP:ERR8
  60         DW      OFFSET RESGROUP:ERR9
  61         DW      OFFSET RESGROUP:ERR10
  62         DW      OFFSET RESGROUP:ERR11
  63         DW      OFFSET RESGROUP:ERR12
  64
  65 MESADD  DW      OFFSET RESGROUP:NEWLIN          ;"0"
  66         DW      OFFSET RESGROUP:COM$1           ;"1"
  67         DW      OFFSET RESGROUP:ERR3            ;"2"
  68         DW      OFFSET RESGROUP:ALLOC$3         ;"3"
  69         DW      OFFSET RESGROUP:FILE$4          ;"4"
  70         DW      OFFSET RESGROUP:RROR$5          ;"5"
  71         DW      OFFSET RESGROUP:CAN$6           ;"6"
  72         DW      OFFSET RESGROUP:EMORY$7         ;"7"
  73         DW      OFFSET RESGROUP:BAT$8           ;"8"
  74         DW      OFFSET RESGROUP:INS$9           ;"9"
  75
  76 ERR0    DB      "Write protec","t"+80h
  77 ERR1    DB      "Bad uni","t"+80h
  78 ERR2    DB      "Not read","y"+80h
  79 ERR3    DB      "Bad command"," "+80h
  80 ERR4    DB      "Dat","a"+80h
  81 ERR5    DB      "Bad call forma","t"+80h
  82 ERR6    DB      "See","k"+80h
  83 ERR7    DB      "Non-DOS dis","k"+80h
  84 ERR8    DB      "Sector not foun","d"+80h
  85 ERR9    DB      "No pape","r"+80h
  86 ERR10   DB      "Write faul","t"+80h
  87 ERR11   DB      "Read faul","t"+80h
  88 ERR12   DB      "Dis","k"+80h
  89 MREAD   DB      "read"
  90 MWRITE  DB      "writ"
  91 ERRMES  DB      " e5"
  92 IOTYP   DB      "writin","g"+80h
  93 DRVNUM  DB      " drive "
  94 DRVLET  DB      "A"
  95 NEWLIN  DB      13,10+80h
  96 DEVEMES DB      " device "
  97 DEVENAM DB      8 DUP (?)
  98         DB      13,10,"$"                       ;Must be $ terminated
  99 COM$1   DB      " COMMAN","D"+80h
 100 ALLOC$3 DB      " allocation"," "+80h
 101 FILE$4  DB      " file"," "+80h
 102 RROR$5  DB      "rror"," "+80h
 103 CAN$6   DB      "Cannot"," "+80h
 104 EMORY$7 DB      "emor","y"+80h
 105 BAT$8   DB      " batc","h"+80h
 106 INS$9   DB      "Inser","t"+80h
 107 REQUEST DB      "Abort, Retry, Ignore?"," "+80h
 108 CDEVAT  DB      ?
 109 BADFAT  DB      "0File3table bad",","+80h
 110 COMBAD  DB      "0Invalid1.COM"
 111 NEEDCOM DB      "091.COM disk in"," "+80h
 112 DRVMSG  DB      "drive "
 113 COMLET  DB      "A"," "+80h
 114 DEFMSG  DB      "default driv","e"+80h
 115 PROMPT  DB      "0and strike any key when ready","0"+80h
 116 ENDBATMES DB    "0Terminate8 job (Y/N)?"," "+80h
 117 EXECEMES DB     "EXEC failure","0"+80h
 118 EXEBAD  DB      "E5in EXE4","0"+80h
 119 TOOBIG  DB      "Program too big to fit in m7","0"+80h
 120 NOCOM   DB      "0Bad or missing Command Interprete","r"+80H
 121 NOHANDMES DB    "0No free4handle","s"+80h
 122 BMEMMES DB      "0M73e","5"+80h
 123 HALTMES DB      "06load1, system halte","d"+80h
 124 FRETMES DB      "06start1, exiting","0"+80h
 125 RBADNAM DB      "2or4name","0"+80h
 126
 127 INT_2E_RET DD   ?               ; Magic command executer return address
 128 SAVE_PDB DW     ?
 129 PARENT   DW     ?
 130 ERRCD_24 DW     ?
 131 HANDLE01 DW     ?
 132 LOADING DB      0
 133 BATCH   DW      0               ; Assume no batch mode initially
 134 BATLOC  DD      0               ; Position in batch file
 135 COMSPEC DB      40 DUP(0)
 136 TRANS   DW      OFFSET TRANGROUP:COMMAND
 137 TRNSEG  DW      ?
 138 COMDRV  DB      ?               ; DRIVE SPEC TO LOAD AUTOEXEC AND COMMAND
 139 BATBYT  DB      ?
 140 MEMSIZ  DW      ?
 141 SUM     DW      ?
 142 EXTCOM  DB      1               ; For init, pretend just did an external
 143 RETCODE DW      ?
 144 ECHOFLAG DB     1
 145 IO_SAVE DW      ?
 146 RESTDIR DB      0
 147 PERMCOM DB      0
 148 SINGLECOM DW    0
 149 VERVAL  DW      -1
 150
 151 FORFLAG DB      ?
 152 UFORDRV DB      0
 153 FORSET  DB      40 DUP (?)
 154 FORCOM  DB      90 DUP (?)
 155 FORVAR  DB      ?
 156 FORPTR  DW      ?
 157 FORUFCB DB      -1
 158 FORFCB  DB      0
 159         DB      34 DUP(?)
 160         DW      0
 161         DW      0               ; Initialize RR field to zero
 162
 163 RE_INSTR DB     40 DUP(0)
 164 RE_OUT_APP DB   0
 165 RE_OUTSTR DB    40 DUP(0)
 166
 167 ;These two bytes refed as a word
 168 PIPEFLAG  DB    0
 169 PIPEFILES DB    0
 170
 171 PIPEPTR DW      ?
 172 PIPESTR DB      129 DUP(?)
 173 PIPE1   DB      "_:/%PIPE1.$$$",0
 174 PIPE2   DB      "_:/%PIPE2.$$$",0
 175 INPIPEPTR DW    OFFSET RESGROUP:PIPE1
 176 OUTPIPEPTR DW   OFFSET RESGROUP:PIPE2
 177
 178 EXEC_BLOCK LABEL BYTE           ; The data block for EXEC calls
 179 ENVIRSEG DW     ?
 180 COM_PTR LABEL   DWORD
 181         DW      80H             ; Point at unformatted parameters
 182         DW      ?
 183 COM_FCB1 LABEL  DWORD
 184         DW      5CH
 185         DW      ?
 186 COM_FCB2 LABEL  DWORD
 187         DW      6CH
 188         DW      ?
 189
 190 PARMBUF DB      129 DUP (?)
 191
 192 IF IBMVER
 193 SYS_CALL    DD  ?
 194 ZEXEC       DW  OFFSET ZEXEC_CODE:$EXEC
 195 EXESEG      DW  ?
 196 USER_SP     DW  ?
 197 USER_SS     DW  ?
 198 EXESUM      DW  ?
 199 ENDIF
 200
 201 TRANVARS LABEL  BYTE            ; Variables passed to transient
 202         DW      OFFSET RESGROUP:THEADFIX
 203 MYSEG   DW      0               ; Put our own segment here
 204 LTPA    DW      0               ; WILL STORE TPA SEGMENT HERE
 205 RSWITCHAR DB    "-"
 206 RDIRCHAR DB     "/"
 207         DW      OFFSET RESGROUP:EXT_EXEC
 208 MYSEG1  DW      ?
 209         DW      OFFSET RESGROUP:TREMCHECK
 210 MYSEG2  DW      0
 211
 212 DATARESEND      LABEL   BYTE
 213
 214 DATARES ENDS
 215         END
 216