v2.0/source/TDATA.ASM

   1 TITLE   COMMAND Transient Initialized 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 TRANCODE        SEGMENT PUBLIC
  13         EXTRN   PRINT_DATE:NEAR,PRINT_TIME:NEAR,PRINT_DEFAULT_DIRECTORY:NEAR
  14         EXTRN   PRINT_DRIVE:NEAR,PRINT_VERSION:NEAR,PRINT_G:NEAR
  15         EXTRN   PRINT_L:NEAR,PRINT_B:NEAR,CRLF2:NEAR,OUT:NEAR,PRINT_ESC:NEAR
  16         EXTRN   PRINT_BACK:NEAR,PRINT_EQ:NEAR
  17
  18         EXTRN   IFNOT:NEAR,IFERLEV:NEAR,IFEXISTS:NEAR
  19
  20         EXTRN   CATALOG:NEAR,CRENAME:NEAR,ERASE:NEAR,TYPEFIL:NEAR
  21         EXTRN   TCOMMAND:NEAR,COPY:NEAR,PAUSE:NEAR,DATE:NEAR,CTIME:NEAR
  22         EXTRN   VERSION:NEAR,VOLUME:NEAR,$CHDIR:NEAR,$MKDIR:NEAR,$RMDIR:NEAR
  23         EXTRN   CNTRLC:NEAR,VERIFY:NEAR,ADD_NAME_TO_ENVIRONMENT:NEAR
  24         EXTRN   ADD_PROMPT:NEAR,PATH:NEAR,$EXIT:NEAR,CTTY:NEAR,ECHO:NEAR
  25         EXTRN   GOTO:NEAR,SHIFT:NEAR,$IF:NEAR,$FOR:NEAR,CLS:NEAR
  26 TRANCODE        ENDS
  27
  28 ; Data for transient portion
  29
  30 TRANDATA        SEGMENT PUBLIC BYTE
  31
  32         PUBLIC  BADBAT,NEEDBAT,BADNAM,RENERR,NOTFND,NOSPACE,ENVERR,FULDIR
  33         PUBLIC  OVERWR,LOSTERR,DIRMES_PRE,DIRMES_POST,BADDRV,PAUSEMES,BADSWT
  34         PUBLIC  COPIED_PRE,COPIED_POST,BYTMES_PRE,BYTMES_POST
  35         PUBLIC  WEEKTAB,BADDAT,NEWDAT,BADTIM,NEWTIM,SUREMES,CURDAT_MID
  36         PUBLIC  CURDAT_PRE,CURDAT_POST,CURTIM_PRE,CURTIM_POST,VERMES_POST
  37         PUBLIC  DMES,VERMES_PRE,VOLMES,GOTVOL,NOVOL,BADCD,BADMKD,BADRMD
  38         PUBLIC  BAD_ON_OFF,NULPATH,PATH_TEXT,PROMPT_TEXT,BADPMES
  39         PUBLIC  BADDEV,BADLAB,SYNTMES,FORNESTMES,PIPEEMES,INBDEV,OFFMES
  40         PUBLIC  ONMES,CTRLCMES,VERIMES,ECHOMES,BADCPMES,BADARGS,DEVWMES
  41         PUBLIC  ACRLF,DBACK,CLSSTRING,PROMPT_TABLE,IFTAB,COMTAB
  42         PUBLIC  TRANDATAEND,DIRHEAD_PRE,DIRHEAD_POST
  43
  44         ORG     0
  45 ZERO    =       $
  46 BADBAT  DB      13,10,"Batch file missing",13,10,"$"
  47 NEEDBAT DB      13,10,"Insert disk with batch file"
  48         DB      13,10,"and press any key when ready",13,10,"$"
  49 BADNAM  DB      "Bad command or file name",13,10,"$"
  50 RENERR  DB      "Duplicate file name or "
  51 NOTFND  DB      "File not found",13,10,"$"
  52 NOSPACE DB      "Insufficient disk space",13,10,"$"
  53 ENVERR  DB      "Out of environment space",13,10,"$"
  54 FULDIR  DB      "File creation error",13,10,"$"
  55 OVERWR  DB      "File cannot be copied onto itself",13,10,"$"
  56 LOSTERR DB      "Content of destination lost before copy",13,10,"$"
  57
  58 ;"COPIED_PRE<# files copied>COPIED_POST"
  59 COPIED_POST  DB      " File(s) copied",13,10
\8aCOPIED_PRE   DB      "$"
  60
  61 ;"DIRMES_PRE<# files in dir>DIRMES_POST"
  62 DIRMES_POST  DB      " File(s) "
  63 DIRMES_PRE   DB      "$"
  64
  65 ;"BYTMES_PRE<# free bytes>BYTMES_POST"
  66 BYTMES_POST  DB      " bytes free",13,10
  67 BYTMES_PRE   DB      "$"
  68
  69 BADDRV  DB      "Invalid drive specification",13,10,"$"
  70 PAUSEMES DB      "Strike a key when ready . . . $"
  71 BADSWT  DB      "Invalid parameter",13,10,"$"
  72 WEEKTAB DB      "SunMonTueWedThuFriSat"
  73 BADDAT  DB      13,10,"Invalid date$"
  74
  75 ;"CURDAT_PRE<day of week>CURDAT_MID<MO,DAY,YR>CURDAT_POST"
  76 ;Note: CURDAT_MID also appears in the date printed via PROMPT command
  77 CURDAT_PRE   DB      "Current date is "
  78 CURDAT_MID   LABEL   BYTE
  79 CURDAT_POST  DB      "$"
  80
  81 NEWDAT  DB      13,10,"Enter new date: $"
  82 BADTIM  DB      13,10,"Invalid time$"
  83
  84 ;"CURTIM_PRE<HR,MIN,SEC,HSEC>CURTIM_POST"
  85 CURTIM_PRE   DB      "Current time is "
  86 CURTIM_POST  DB      "$"
  87
  88 NEWTIM  DB      13,10,"Enter new time: $"
  89 SUREMES DB      "Are you sure (Y/N)? $"
  90 DMES    DB      " <DIR>   $"
  91
  92 ;"VERMES_PRE<version #>VERMES_POST"
  93         IF      IBMVER
  94 VERMES_PRE  DB      "TeleVideo Personal Computer DOS Version "
  95         ENDIF
  96         IF      MSVER
  97 VERMES_PRE  DB      "MS-DOS Version "
  98         ENDIF
  99 VERMES_POST DB      "$"
 100
 101 VOLMES  DB      " Volume in drive $"
 102 GOTVOL  DB      " is $"
 103 NOVOL   DB      " has no label$"
 104
 105 BADCD   DB      "Invalid directory",13,10,"$"
 106 BADMKD  DB      "Unable to create directory",13,10,"$"
 107 BADRMD  DB      "Invalid path, not directory,",13,10
 108         DB      "or directory not empty",13,10,"$"
 109 BAD_ON_OFF DB   "Must specify ON or OFF"        ;Note Run over to next message
 110
 111 ;"DIRHEAD_PRE<path of dir>DIRHEAD_POST"
 112 DIRHEAD_POST DB      13,10,"$"
 113 DIRHEAD_PRE  DB      " Directory of  $"
\8a
 114 NULPATH DB      "No Path $"
 115 PATH_TEXT    DB "PATH="
 116 PROMPT_TEXT  DB "PROMPT="
 117 BADPMES DB      "Invalid drive in search path",13,10,"$"
 118 BADDEV  DB      "Invalid device",13,10,"$"
 119 BADLAB  DB      "Label not found",13,10,"$"
 120 SYNTMES DB      "Syntax error",13,10,"$"
 121 FORNESTMES DB   13,"FOR cannot be nested",13,10,"$"
 122 PIPEEMES DB     "Intermediate file error during pipe",13,10,"$"
 123 INBDEV  DB      "Cannot do binary reads from a device",13,10,"$"
 124 OFFMES  DB      "off",13,10,"$"
 125 ONMES   DB      "on",13,10,"$"
 126 CTRLCMES DB     "BREAK is $"
 127 VERIMES DB      "VERIFY is $"
 128 ECHOMES DB      "ECHO is $"
 129 BADCPMES DB     "Invalid path or file name",13,10,"$"
 130 BADARGS DB      "Invalid number of parameters",13,10,"$"
 131 DEVWMES DB      "Error writing to device"
 132 ACRLF   DB      13,10,"$"
 133 DBACK   DB      8," ",8,0               ; DESTRUCTIVE BACK SPACE
 134
 135 CLSSTRING DB    4,01BH,"[2J"            ; ANSI Clear screen
 136
 137 PROMPT_TABLE LABEL BYTE
 138         DB      "D"
 139         DW      OFFSET TRANGROUP:PRINT_DATE
 140         DB      "T"
 141         DW      OFFSET TRANGROUP:PRINT_TIME
 142         DB      "P"
 143         DW      OFFSET TRANGROUP:PRINT_DEFAULT_DIRECTORY
 144         DB      "N"
 145         DW      OFFSET TRANGROUP:PRINT_DRIVE
 146         DB      "V"
 147         DW      OFFSET TRANGROUP:PRINT_VERSION
 148         DB      "G"
 149         DW      OFFSET TRANGROUP:PRINT_G
 150         DB      "L"
 151         DW      OFFSET TRANGROUP:PRINT_L
 152         DB      "B"
 153         DW      OFFSET TRANGROUP:PRINT_B
 154         DB      "_"
 155         DW      OFFSET TRANGROUP:CRLF2
 156         DB      "$"
 157         DW      OFFSET TRANGROUP:OUT
 158         DB      "E"
 159         DW      OFFSET TRANGROUP:PRINT_ESC
 160         DB      "H"
 161         DW      OFFSET TRANGROUP:PRINT_BACK
 162         DB      "Q"
 163         DW      OFFSET TRANGROUP:PRINT_EQ
 164         DB      0                       ; NUL TERMINATED
 165
 166 IFTAB   LABEL   BYTE                    ; Table of IF conditionals
 167         DB      3,"NOT"                 ; First byte is count
\8a        DW      OFFSET TRANGROUP:IFNOT
 168         DB      10,"ERRORLEVEL"
 169         DW      OFFSET TRANGROUP:IFERLEV
 170         DB      5,"EXIST"
 171         DW      OFFSET TRANGROUP:IFEXISTS
 172         DB      0
 173
 174 COMTAB  DB      4,"DIR",1               ; Table for internal command names
 175         DW      OFFSET TRANGROUP:CATALOG
 176         DB      7,"RENAME",1
 177         DW      OFFSET TRANGROUP:CRENAME
 178         DB      4,"REN",1
 179         DW      OFFSET TRANGROUP:CRENAME
 180         DB      6,"ERASE",1
 181         DW      OFFSET TRANGROUP:ERASE
 182         DB      4,"DEL",1
 183         DW      OFFSET TRANGROUP:ERASE
 184         DB      5,"TYPE",1
 185         DW      OFFSET TRANGROUP:TYPEFIL
 186         DB      4,"REM",0
 187         DW      OFFSET TRANGROUP:TCOMMAND
 188         DB      5,"COPY",1
 189         DW      OFFSET TRANGROUP:COPY
 190         DB      6,"PAUSE",0
 191         DW      OFFSET TRANGROUP:PAUSE
 192         DB      5,"DATE",0
 193         DW      OFFSET TRANGROUP:DATE
 194         DB      5,"TIME",0
 195         DW      OFFSET TRANGROUP:CTIME
 196         DB      4,"VER",0
 197         DW      OFFSET TRANGROUP:VERSION
 198         DB      4,"VOL",1
 199         DW      OFFSET TRANGROUP:VOLUME
 200         DB      3,"CD",1
 201         DW      OFFSET TRANGROUP:$CHDIR
 202         DB      6,"CHDIR",1
 203         DW      OFFSET TRANGROUP:$CHDIR
 204         DB      3,"MD",1
 205         DW      OFFSET TRANGROUP:$MKDIR
 206         DB      6,"MKDIR",1
 207         DW      OFFSET TRANGROUP:$MKDIR
 208         DB      3,"RD",1
 209         DW      OFFSET TRANGROUP:$RMDIR
 210         DB      6,"RMDIR",1
 211         DW      OFFSET TRANGROUP:$RMDIR
 212         DB      6,"BREAK",0
 213         DW      OFFSET TRANGROUP:CNTRLC
 214         DB      7,"VERIFY",0
 215         DW      OFFSET TRANGROUP:VERIFY
 216         DB      4,"SET",0
 217         DW      OFFSET TRANGROUP:ADD_NAME_TO_ENVIRONMENT
 218         DB      7,"PROMPT",0
 219         DW      OFFSET TRANGROUP:ADD_PROMPT
 220         DB      5,"PATH",0
 221         DW      OFFSET TRANGROUP:PATH
\8a        DB      5,"EXIT",0
 222         DW      OFFSET TRANGROUP:$EXIT
 223         DB      5,"CTTY",1
 224         DW      OFFSET TRANGROUP:CTTY
 225         DB      5,"ECHO",0
 226         DW      OFFSET TRANGROUP:ECHO
 227         DB      5,"GOTO",0
 228         DW      OFFSET TRANGROUP:GOTO
 229         DB      6,"SHIFT",0
 230         DW      OFFSET TRANGROUP:SHIFT
 231         DB      3,"IF",0
 232         DW      OFFSET TRANGROUP:$IF
 233         DB      4,"FOR",0
 234         DW      OFFSET TRANGROUP:$FOR
 235         DB      4,"CLS",0
 236         DW      OFFSET TRANGROUP:CLS
 237         DB      0               ; Terminate command table
 238
 239 TRANDATAEND     LABEL   BYTE
 240
 241 TRANDATA        ENDS
 242         END
 243