summaryrefslogtreecommitdiff
path: root/v2.0/source/TDATA.ASM
diff options
context:
space:
mode:
Diffstat (limited to 'v2.0/source/TDATA.ASM')
-rw-r--r--v2.0/source/TDATA.ASM243
1 files changed, 243 insertions, 0 deletions
diff --git a/v2.0/source/TDATA.ASM b/v2.0/source/TDATA.ASM
new file mode 100644
index 0000000..9a4af2e
--- /dev/null
+++ b/v2.0/source/TDATA.ASM
@@ -0,0 +1,243 @@
1TITLE 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
12TRANCODE 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
26TRANCODE ENDS
27
28; Data for transient portion
29
30TRANDATA 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
45ZERO = $
46BADBAT DB 13,10,"Batch file missing",13,10,"$"
47NEEDBAT DB 13,10,"Insert disk with batch file"
48 DB 13,10,"and press any key when ready",13,10,"$"
49BADNAM DB "Bad command or file name",13,10,"$"
50RENERR DB "Duplicate file name or "
51NOTFND DB "File not found",13,10,"$"
52NOSPACE DB "Insufficient disk space",13,10,"$"
53ENVERR DB "Out of environment space",13,10,"$"
54FULDIR DB "File creation error",13,10,"$"
55OVERWR DB "File cannot be copied onto itself",13,10,"$"
56LOSTERR DB "Content of destination lost before copy",13,10,"$"
57
58;"COPIED_PRE<# files copied>COPIED_POST"
59COPIED_POST DB " File(s) copied",13,10 ŠCOPIED_PRE DB "$"
60
61;"DIRMES_PRE<# files in dir>DIRMES_POST"
62DIRMES_POST DB " File(s) "
63DIRMES_PRE DB "$"
64
65;"BYTMES_PRE<# free bytes>BYTMES_POST"
66BYTMES_POST DB " bytes free",13,10
67BYTMES_PRE DB "$"
68
69BADDRV DB "Invalid drive specification",13,10,"$"
70PAUSEMES DB "Strike a key when ready . . . $"
71BADSWT DB "Invalid parameter",13,10,"$"
72WEEKTAB DB "SunMonTueWedThuFriSat"
73BADDAT 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
77CURDAT_PRE DB "Current date is "
78CURDAT_MID LABEL BYTE
79CURDAT_POST DB "$"
80
81NEWDAT DB 13,10,"Enter new date: $"
82BADTIM DB 13,10,"Invalid time$"
83
84;"CURTIM_PRE<HR,MIN,SEC,HSEC>CURTIM_POST"
85CURTIM_PRE DB "Current time is "
86CURTIM_POST DB "$"
87
88NEWTIM DB 13,10,"Enter new time: $"
89SUREMES DB "Are you sure (Y/N)? $"
90DMES DB " <DIR> $"
91
92;"VERMES_PRE<version #>VERMES_POST"
93 IF IBMVER
94VERMES_PRE DB "TeleVideo Personal Computer DOS Version "
95 ENDIF
96 IF MSVER
97VERMES_PRE DB "MS-DOS Version "
98 ENDIF
99VERMES_POST DB "$"
100
101VOLMES DB " Volume in drive $"
102GOTVOL DB " is $"
103NOVOL DB " has no label$"
104
105BADCD DB "Invalid directory",13,10,"$"
106BADMKD DB "Unable to create directory",13,10,"$"
107BADRMD DB "Invalid path, not directory,",13,10
108 DB "or directory not empty",13,10,"$"
109BAD_ON_OFF DB "Must specify ON or OFF" ;Note Run over to next message
110
111;"DIRHEAD_PRE<path of dir>DIRHEAD_POST"
112DIRHEAD_POST DB 13,10,"$"
113DIRHEAD_PRE DB " Directory of $" Š
114NULPATH DB "No Path $"
115PATH_TEXT DB "PATH="
116PROMPT_TEXT DB "PROMPT="
117BADPMES DB "Invalid drive in search path",13,10,"$"
118BADDEV DB "Invalid device",13,10,"$"
119BADLAB DB "Label not found",13,10,"$"
120SYNTMES DB "Syntax error",13,10,"$"
121FORNESTMES DB 13,"FOR cannot be nested",13,10,"$"
122PIPEEMES DB "Intermediate file error during pipe",13,10,"$"
123INBDEV DB "Cannot do binary reads from a device",13,10,"$"
124OFFMES DB "off",13,10,"$"
125ONMES DB "on",13,10,"$"
126CTRLCMES DB "BREAK is $"
127VERIMES DB "VERIFY is $"
128ECHOMES DB "ECHO is $"
129BADCPMES DB "Invalid path or file name",13,10,"$"
130BADARGS DB "Invalid number of parameters",13,10,"$"
131DEVWMES DB "Error writing to device"
132ACRLF DB 13,10,"$"
133DBACK DB 8," ",8,0 ; DESTRUCTIVE BACK SPACE
134
135CLSSTRING DB 4,01BH,"[2J" ; ANSI Clear screen
136
137PROMPT_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
166IFTAB LABEL BYTE ; Table of IF conditionals
167 DB 3,"NOT" ; First byte is count Š 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
174COMTAB 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 Š 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
239TRANDATAEND LABEL BYTE
240
241TRANDATA ENDS
242 END
243
HIC SVNT DRACONES