summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/COMMAND/TRANMSG.ASM
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/COMMAND/TRANMSG.ASM')
-rw-r--r--v4.0/src/CMD/COMMAND/TRANMSG.ASM671
1 files changed, 671 insertions, 0 deletions
diff --git a/v4.0/src/CMD/COMMAND/TRANMSG.ASM b/v4.0/src/CMD/COMMAND/TRANMSG.ASM
new file mode 100644
index 0000000..38b04ba
--- /dev/null
+++ b/v4.0/src/CMD/COMMAND/TRANMSG.ASM
@@ -0,0 +1,671 @@
1
2;****************************************************
3;* TRANSIENT MESSAGE POINTERS & SUBSTITUTION BLOCKS *
4;****************************************************
5
6msg_disp_class db Util_msg_class
7msg_cont_flag db No_cont_flag
8
9; extended error string output
10;
11Extend_Buf_ptr dw 0 ;AN000;set to no message
12Extend_Buf_sub db 0 ;AN000;set to no substitutions
13 db parm_block_size ;AN000;size of sublist
14 db 0 ;AN000;reserved
15Extend_Buf_off dw OFFSET TranGroup:String_ptr_2 ;AN000;offset of arg
16Extend_Buf_seg dw 0 ;AN000;segment of arg
17 db 0 ;AN000;first subst
18 db Char_field_ASCIIZ ;AN000;character string
19 db 128 ;AN000;maximum width
20 db 0 ;AN000;minimum width
21 db blank ;AN000;pad character
22
23; "Duplicate file name or file not found"
24;
25Renerr_Ptr dw 1002 ;AN000;message number
26 db no_subst ;AN000;number of subst
27
28; "Invalid path or file name"
29;
30BadCPMes_Ptr dw 1003 ;AN000;message number
31 db no_subst ;AN000;number of subst
32
33; "Insufficient disk space"
34;
35NoSpace_Ptr dw 1004 ;AN000;message number
36 db no_subst ;AN000;number of subst
37
38; "Out of environment space"
39;
40EnvErr_Ptr dw 1007 ;AN000;message number
41 db no_subst ;AN000;number of subst
42
43; "File creation error"
44;
45FulDir_Ptr dw 1008 ;AN000;message number
46 db no_subst ;AN000;number of subst
47
48; "Batch file missing",13,10
49;
50BadBat_Ptr dw 1009 ;AN000;message number
51 db no_subst ;AN000;number of subst
52
53; "Insert disk with batch file",13,10
54;
55NeedBat_Ptr dw 1010 ;AN000;message number
56 db no_subst ;AN000;number of subst
57
58; "Bad command or file name",13,10
59;
60BadNam_Ptr dw 1011 ;AN000;message number
61 db no_subst ;AN000;number of subst
62
63
64; "Access denied",13,10
65;
66AccDen_Ptr dw 1014 ;AN000;message number
67 db no_subst ;AN000;number of subst
68
69; "File cannot be copied onto itself",13,10
70;
71OverWr_Ptr dw 1015 ;AN000;message number
72 db no_subst ;AN000;number of subst
73
74; "Content of destination lost before copy",13,10
75;
76LostErr_Ptr dw 1016 ;AN000;message number
77 db no_subst ;AN000;number of subst
78
79; "Invalid filename or file not found",13,10
80;
81InOrNot_Ptr dw 1017 ;AN000;message number
82 db no_subst ;AN000;number of subst
83
84; "%1 File(s) copied",13,10
85;
86Copied_Ptr dw 1018 ;AN000;message number
87 db 1 ;AN000;number of subst
88 db parm_block_size ;AN000;size of sublist
89 db 0 ;AN000;reserved
90 dw OFFSET TranGroup:Copy_num ;AN000;offset of arg
91 dw 0 ;AN000;segment of arg
92 db 1 ;AN000;first subst
93 db Right_Align+Unsgn_Bin_Word ;AN000;binary to decimal
94 db 9 ;AN000;maximum width
95 db 9 ;AN000;minimum width
96 db blank ;AN000;pad character
97
98; "%1 File(s) "
99;
100DirMes_Ptr dw 1019 ;AN000;message number
101 db 1 ;AN000;number of subst
102 db parm_block_size ;AN000;size of sublist
103 db 0 ;AN000;reserved
104 dw OFFSET TranGroup:Dir_num ;AN000;offset of arg
105 dw 0 ;AN000;segment of arg
106 db 1 ;AN000;first subst
107 db Right_Align+Unsgn_Bin_Word ;AN000;binary to decimal
108 db 9 ;AN000;maximum width
109 db 9 ;AN000;minimum width
110 db blank ;AN000;pad character
111
112; "%1 bytes free",13,10
113;
114BytMes_Ptr dw 1020 ;AN000;message number
115 db 1 ;AN000;number of subst
116 db parm_block_size ;AN000;size of sublist
117 db 0 ;AN000;reserved
118 dw OFFSET TranGroup:Bytes_Free ;AN000;offset of arg
119 dw 0 ;AN000;segment of arg
120 db 1 ;AN000;first subst
121 db Right_Align+Unsgn_Bin_DWord ;AN000;long binary to decimal
122 db 10 ;AN000;maximum width
123 db 10 ;AN000;minimum width
124 db blank ;AN000;pad character
125
126; "Invalid drive specification",13,10
127;
128BadDrv_Ptr dw 1021 ;AN000;message number
129 db no_subst ;AN000;number of subst
130
131
132; "Code page %1 not prepared for system",13,10
133;
134CP_not_set_Ptr dw 1022 ;AN000;message number
135 db 1 ;AN000;number of subst
136 db parm_block_size ;AN000;size of sublist
137 db 0 ;AN000;reserved
138 dw OFFSET TranGroup:System_cpage ;AN000;offset of arg
139 dw 0 ;AN000;segment of arg
140 db 1 ;AN000;first subst
141 db Right_Align+Unsgn_Bin_Word ;AN000;binary to decimal
142 db 5 ;AN000;maximum width
143 db 1 ;AN000;minimum width
144 db blank ;AN000;pad character
145
146; "Code page %1 not prepared for all devices",13,10
147;
148CP_not_all_Ptr dw 1023 ;AN000;message number
149 db 1 ;AN000;number of subst
150 db parm_block_size ;AN000;size of sublist
151 db 0 ;AN000;reserved
152 dw OFFSET TranGroup:System_cpage ;AN000;offset of arg
153 dw 0 ;AN000;segment of arg
154 db 1 ;AN000;first subst
155 db Right_Align+Unsgn_Bin_Word ;AN000;binary to decimal
156 db 5 ;AN000;maximum width
157 db 1 ;AN000;minimum width
158 db blank ;AN000;pad character
159
160; "Active code page: %1",13,10
161;
162CP_active_Ptr dw 1024 ;AN000;message number
163 db 1 ;AN000;number of subst
164 db parm_block_size ;AN000;size of sublist
165 db 0 ;AN000;reserved
166 dw OFFSET TranGroup:System_cpage ;AN000;offset of arg
167 dw 0 ;AN000;segment of arg
168 db 1 ;AN000;first subst
169 db Right_Align+Unsgn_Bin_Word ;AN000;binary to decimal
170 db 5 ;AN000;maximum width
171 db 1 ;AN000;minimum width
172 db blank ;AN000;pad character
173
174; "NLSFUNC not installed",13,10
175;
176NLSFUNC_Ptr dw 1025 ;AN000;message number
177 db no_subst ;AN000;number of subst
178
179; "Invalid code page",13,10
180;
181Inv_Code_Page dw 1026 ;AN000;message number
182 db no_subst ;AN000;number of subst
183
184; "Current drive is no longer valid"
185;
186BadCurDrv dw 1027 ;AN000;message number
187 db no_subst ;AN000;number of subst
188
189; "Press any key to continue"
190;
191PauseMes_Ptr dw 1028 ;AN000;message number
192 db no_subst ;AN000;number of subst
193
194; "Label not found",13,10
195;
196BadLab_Ptr dw 1029 ;AN000;message number
197 db no_subst ;AN000;number of subst
198
199; "Syntax error",13,10
200;
201SyntMes_Ptr dw 1030 ;AN000;message number
202 db no_subst ;AN000;number of subst
203
204; "Invalid date",13,10
205;
206BadDat_Ptr dw 1031 ;AN000;message number
207 db no_subst ;AN000;number of subst
208
209; "Current date is %1 %2",13,10
210;
211CurDat_Ptr dw 1032 ;AN000;message number
212 db 2 ;AN000;number of subst
213 db parm_block_size ;AN000;size of sublist
214 db 0 ;AN000;reserved
215 dw OFFSET TranGroup:Arg_Buf ;AN000;offset of arg
216 dw 0 ;AN000;segment of arg
217 db 1 ;AN000;first subst
218 db Char_field_ASCIIZ ;AN000;character string
219 db 3 ;AN000;maximum width
220 db 3 ;AN000;minimum width
221 db blank ;AN000;pad character
222 db parm_block_size ;AN000;size of sublist
223 db 0 ;AN000;reserved
224CurDat_yr dw 0 ;AN000;year
225CurDat_mo_day dw 0 ;AN000;month,day
226 db 2 ;AN000;second subst
227 db DATE_MDY_4 ;AN000;date
228 db 10 ;AN000;maximum width
229 db 10 ;AN000;minimum width
230 db blank ;AN000;pad character
231
232
233; "SunMonTueWedThuFriSat"
234;
235WeekTab dw 1033 ;AN000;message number
236 db no_subst ;AN000;number of subst
237
238; "Enter new date (%1):"
239;
240NewDat_Ptr dw 1034 ;AN000;message number
241 db 1 ;AN000;number of subst
242 db parm_block_size ;AN000;size of sublist
243 db 0 ;AN000;reserved
244NewDat_Format dw 0 ;AN000;offset of replacement
245 dw 0 ;AN000;segment of arg
246 db 1 ;AN000;first subst
247 db Char_field_ASCIIZ ;AN000;character string
248 db 8 ;AN000;maximum width
249 db 8 ;AN000;minimum width
250 db blank ;AN000;pad character
251
252; "Invalid time",13,10
253;
254BadTim_Ptr dw 1035 ;AN000;message number
255 db no_subst ;AN000;number of subst
256
257; "Current time is %1",13,10
258;
259CurTim_Ptr dw 1036 ;AN000;message number
260 db 1 ;AN000;number of subst
261 db parm_block_size ;AN000;size of sublist
262 db 0 ;AN000;reserved
263CurTim_hr_min dw 0 ;AN000;hours,minutes
264CurTim_Sec_hn dw 0 ;AN000;seconds,hundredths
265 db 1 ;AN000;first subst
266 db Right_Align+TIME_HHMMSSHH_Cty ;AC059;time
267 db 12 ;AC059;maximum width
268 db 12 ;AC059;minimum width
269 db blank ;AN000;pad character
270
271; "Enter new time:"
272;
273NewTim_Ptr dw 1037 ;AN000;message number
274 db no_subst ;AN000;number of subst
275
276; ", Delete (Y/N)?",13,10
277;
278Del_Y_N_Ptr dw 1038 ;AN000;message number
279 db no_subst ;AN000;number of subst
280
281; "All files in directory will be deleted!",13,10
282; "Are you sure (Y/N)?",13,10
283;
284SureMes_Ptr dw 1039 ;AN000;message number
285 db no_subst ;AN000;number of subst
286
287; "Microsoft DOS Version %1.%2",13,10
288;
289VerMes_Ptr dw 1040 ;AN000;message number
290 db 2 ;AN000;number of subst
291 db parm_block_size ;AN000;size of sublist
292 db 0 ;AN000;reserved
293 dw OFFSET TranGroup:Major_Ver_Num ;AN000;offset of arg
294 dw 0 ;AN000;segment of arg
295 db 1 ;AN000;first subst
296 db Right_Align+Unsgn_Bin_Word ;AN000;binary to decimal
297 db 1 ;AN000;maximum width
298 db 1 ;AN000;minimum width
299 db blank ;AN000;pad character
300 db parm_block_size ;AN000;size of sublist
301 db 0 ;AN000;reserved
302 dw OFFSET TranGroup:Minor_Ver_Num ;AN000;offset of arg
303 dw 0 ;AN000;segment of arg
304 db 2 ;AN000;second subst
305 db Unsgn_Bin_Word ;AN000;binary to decimal
306 db 2 ;AN000;maximum width
307 db 2 ;AN000;minimum width
308 db "0" ;AN000;pad character
309
310; "Volume in drive %1 has no label",13,10
311;
312VolMes_Ptr_2 dw 1041 ;AN000;message number
313 db 1 ;AN000;number of subst
314 db parm_block_size ;AN000;size of sublist
315 db 0 ;AN000;reserved
316 dw OFFSET TranGroup:vol_drv ;AN000;offset of drive
317 dw 0 ;AN000;segment of arg
318 db 1 ;AN000;first subst
319 db Char_field_Char ;AN000;character
320 db 128 ;AN000;maximum width
321 db 1 ;AN000;minimum width
322 db blank ;AN000;pad character
323
324; "Volume in drive %1 is %2",13,10
325;
326VolMes_Ptr dw 1042 ;AN000;message number
327 db 2 ;AN000;number of subst
328 db parm_block_size ;AN000;size of sublist
329 db 0 ;AN000;reserved
330 dw OFFSET TranGroup:vol_drv ;AN000;offset of drive
331 dw 0 ;AN000;segment of arg
332 db 1 ;AN000;first subst
333 db 00000000b ;AN000;character
334 db 128 ;AN000;maximum width
335 db 1 ;AN000;minimum width
336 db blank ;AN000;pad character
337 db parm_block_size ;AN000;size of sublist
338 db 0 ;AN000;reserved
339 dw OFFSET TranGroup:CHARBUF ;AN000;offset of string
340 dw 0 ;AN000;segment of arg
341 db 2 ;AN000;second subst
342 db Char_field_ASCIIZ ;AN000;character string
343 db 128 ;AN000;maximum width
344 db 1 ;AN000;minimum width
345 db blank ;AN000;pad character
346
347; "Volume Serial Number is %1-%2",13,10
348;
349VolSerMes_Ptr dw 1043 ;AN000;message number
350 db 2 ;AN000;number of subst
351 db parm_block_size ;AN000;size of sublist
352 db 0 ;AN000;reserved
353 dw OFFSET TranGroup:vol_serial+2 ;AN000;offset of serial
354 dw 0 ;AN000;segment of arg
355 db 1 ;AN000;first subst
356 db Right_Align+Bin_Hex_Word ;AN000;binary to hex
357 db 4 ;AN000;maximum width
358 db 4 ;AN000;minimum width
359 db "0" ;AN000;pad character
360 db parm_block_size ;AN000;size of sublist
361 db 0 ;AN000;reserved
362 dw OFFSET TranGroup:vol_serial ;AN000;offset of serial
363 dw 0 ;AN000;segment of arg
364 db 2 ;AN000;second subst
365 db Right_Align+Bin_Hex_Word ;AN000;binary to hex
366 db 4 ;AN000;maximum width
367 db 4 ;AN000;minimum width
368 db "0" ;AN000;pad character
369
370; "Invalid directory",13,10
371;
372BadCD_Ptr dw 1044 ;AN000;message number
373 db no_subst ;AN000;number of subst
374
375; "Unable to create directory",13,10
376;
377BadMkD_Ptr dw 1045 ;AN000;message number
378 db no_subst ;AN000;number of subst
379
380; "Invalid path, not directory,",13,10
381; "or directory not empty",13,10
382;
383BadRmD_Ptr dw 1046 ;AN000;message number
384 db no_subst ;AN000;number of subst
385
386; "Must specify ON or OFF",13,10
387;
388Bad_ON_OFF_Ptr dw 1047 ;AN000;message number
389 db no_subst ;AN000;number of subst
390
391; "Directory of %1",13,10
392;
393DirHead_Ptr dw 1048 ;AN000;message number
394 db 1 ;AN000;number of subst
395 db parm_block_size ;AN000;size of sublist
396 db 0 ;AN000;reserved
397 dw OFFSET TranGroup:BWDBUF ;AN000;offset of arg
398 dw 0 ;AN000;segment of arg
399 db 1 ;AN000;first subst
400 db Char_field_ASCIIZ ;AN000;character string
401 db 128 ;AN000;maximum width
402 db 0 ;AN000;minimum width
403 db blank ;AN000;pad character
404
405; "No Path",13,10
406;
407NulPath_Ptr dw 1049 ;AN000;message number
408 db no_subst ;AN000;number of subst
409
410; "Invalid drive in search path",13,10
411;
412BadPMes_Ptr dw 1050 ;AN000;message number
413 db no_subst ;AN000;number of subst
414
415; "Invalid device",13,10
416;
417BadDev_Ptr dw 1051 ;AN000;message number
418 db no_subst ;AN000;number of subst
419
420; "FOR cannot be nested",13,10
421;
422ForNestMes_Ptr dw 1052 ;AN000;message number
423 db no_subst ;AN000;number of subst
424
425; "Intermediate file error during pipe",13,10
426;
427PipeEMes_Ptr dw 1053 ;AN000;message number
428 db no_subst ;AN000;number of subst
429
430; "Cannot do binary reads from a device",13,10
431;
432InBDev_Ptr dw 1054 ;AN000;message number
433 db no_subst ;AN000;number of subst
434
435; "BREAK is %1",13,10
436;
437CtrlcMes_Ptr dw 1055 ;AN000;message number
438 db 1 ;AN000;number of subst
439 db parm_block_size ;AN000;size of sublist
440 db 0 ;AN000;reserved
441 dw 0 ;AN000;offset of on/off (new)
442 dw 0 ;AN000;segment of arg
443 db 1 ;AN000;first subst
444 db Char_field_ASCIIZ ;AN000;character string
445 db 128 ;AN000;maximum width
446 db 1 ;AN000;minimum width
447 db blank ;AN000;pad character
448
449; "VERIFY is %1",13,10
450;
451VeriMes_Ptr dw 1056 ;AN000;message number
452 db 1 ;AN000;number of subst
453 db parm_block_size ;AN000;size of sublist
454 db 0 ;AN000;reserved
455 dw 0 ;AN000;offset of on/off (new)
456 dw 0 ;AN000;segment of arg
457 db 1 ;AN000;first subst
458 db Char_field_ASCIIZ ;AN000;character string
459 db 128 ;AN000;maximum width
460 db 1 ;AN000;minimum width
461 db blank ;AN000;pad character
462
463; "ECHO is %1",13,10
464;
465EchoMes_Ptr dw 1057 ;AN000;message number
466 db 1 ;AN000;number of subst
467 db parm_block_size ;AN000;size of sublist
468 db 0 ;AN000;reserved
469 dw 0 ;AN000;offset of on/off (new)
470 dw 0 ;AN000;segment of arg
471 db 1 ;AN000;first subst
472 db Char_field_ASCIIZ ;AN000;character string
473 db 128 ;AN000;maximum width
474 db 1 ;AN000;minimum width
475 db blank ;AN000;pad character
476
477; "off"
478;
479OffMes_Ptr dw 1059 ;AN000;message number
480 db no_subst ;AN000;number of subst
481
482; "on"
483;
484OnMes_Ptr dw 1060 ;AN000;message number
485 db no_subst ;AN000;number of subst
486
487; "Error writing to device",13,10
488;
489DevWMes_Ptr dw 1061 ;AN000;message number
490 db no_subst ;AN000;number of subst
491
492; "Invalid path",13,10
493;
494Inval_Path_Ptr dw 1062 ;AN000;message number
495 db no_subst ;AN000;number of subst
496
497; unformatted string output
498;
499arg_Buf_Ptr dw 1063 ;AN000;message number
500 db 1 ;AN000;number of subst
501 db parm_block_size ;AN000;size of sublist
502 db 0 ;AN000;reserved
503 dw OFFSET TranGroup:Arg_Buf ;AN000;offset of arg
504 dw 0 ;AN000;segment of arg
505 db 1 ;AN000;first subst
506 db Char_field_ASCIIZ ;AN000;character string
507 db 128 ;AN000;maximum width
508 db 0 ;AN000;minimum width
509 db blank ;AN000;pad character
510
511; file name output
512;
513File_Name_Ptr dw 1064 ;AN000;message number
514 db 1 ;AN000;number of subst
515 db parm_block_size ;AN000;size of sublist
516 db 0 ;AN000;reserved
517 dw OFFSET TranGroup:SRCBUF ;AN000;offset of arg
518 dw 0 ;AN000;segment of arg
519 db 1 ;AN000;first subst
520 db Char_field_ASCIIZ ;AN000;character string
521 db 128 ;AN000;maximum width
522 db 0 ;AN000;minimum width
523 db blank ;AN000;pad character
524
525; file size output for dir
526;
527Disp_File_Size_Ptr dw 1065 ;AN000;message number
528 db 1 ;AN000;number of subst
529 db parm_block_size ;AN000;size of sublist
530 db 0 ;AN000;reserved
531 dw OFFSET TranGroup:File_size_low ;AN000;offset of arg
532 dw 0 ;AN000;segment of arg
533 db 1 ;AN000;first subst
534 db Right_Align+Unsgn_Bin_DWord ;AN000;long binary to decimal
535 db 10 ;AN000;maximum width
536 db 10 ;AN000;minimum width
537 db blank ;AN000;pad character
538
539; unformatted string output
540; %s
541String_Buf_Ptr dw 1066 ;AN000;message number
542 db 1 ;AN000;number of subst
543 db parm_block_size ;AN000;size of sublist
544 db 0 ;AN000;reserved
545 dw OFFSET TranGroup:String_ptr_2 ;AN000;offset of arg
546 dw 0 ;AN000;segment of arg
547 db 1 ;AN000;first subst
548 db Char_field_ASCIIZ ;AN000;character string
549 db 128 ;AN000;maximum width
550 db 0 ;AN000;minimum width
551 db blank ;AN000;pad character
552 db 0 ;AN000;
553
554; tab character
555;
556Tab_ptr dw 1067 ;AN000;message number
557 db no_subst ;AN000;number of subst
558
559; " <DIR> "
560;
561DMes_Ptr dw 1068 ;AN000;message number
562 db no_subst ;AN000;number of subst
563
564; destructive back space
565;
566Dback_Ptr dw 1069 ;AN000;message number
567 db no_subst ;AN000;number of subst
568
569; carriage return / line feed
570;
571ACRLF_Ptr dw 1070 ;AN000;message number
572 db no_subst ;AN000;number of subst
573
574; output a single character
575;
576;One_Char_Buf_Ptr dw 1071 ;AN000;message number
577; db 1 ;AN000;number of subst
578; db parm_block_size ;AN000;size of sublist
579; db 0 ;AN000;reserved
580; dw OFFSET TranGroup:One_Char_Val ;AN000;offset of charcacter
581; dw 0 ;AN000;segment of arg
582; db 1 ;AN000;first subst
583; db Char_field_Char ;AN000;character
584; db 1 ;AN000;maximum width
585; db 1 ;AN000;minimum width
586; db blank ;AN000;pad character
587
588; "mm-dd-yy"
589;
590USADat_Ptr dw 1072 ;AN000;message number
591 db no_subst ;AN000;number of subst
592
593; "dd-mm-yy"
594;
595EurDat_Ptr dw 1073 ;AN000;message number
596 db no_subst ;AN000;number of subst
597
598; "yy-mm-dd"
599;
600JapDat_Ptr dw 1074 ;AN000;message number
601 db no_subst ;AN000;number of subst
602
603; date string for prompt
604;
605promptDat_Ptr dw 1075 ;AN000;message number
606 db 2 ;AN000;number of subst
607 db parm_block_size ;AN000;size of sublist
608 db 0 ;AN000;reserved
609 dw OFFSET TranGroup:Arg_Buf ;AN000;offset of arg
610 dw 0 ;AN000;segment of arg
611 db 1 ;AN000;first subst
612 db Char_field_ASCIIZ ;AN000;character string
613 db 3 ;AN000;maximum width
614 db 3 ;AN000;minimum width
615 db blank ;AN000;pad character
616 db parm_block_size ;AN000;size of sublist
617 db 0 ;AN000;reserved
618promptDat_yr dw 0 ;AN000;year
619promptDat_moday dw 0 ;AN000;month,day
620 db 2 ;AN000;second subst
621 db DATE_MDY_4 ;AN000;date
622 db 10 ;AN000;maximum width
623 db 8 ;AN000;minimum width
624 db blank ;AN000;pad character
625
626
627; Time for prompt
628;
629promTim_Ptr dw 1076 ;AN000;message number
630 db 1 ;AN000;number of subst
631 db parm_block_size ;AN000;size of sublist
632 db 0 ;AN000;reserved
633PromTim_hr_min dw 0 ;AN000;hours,minutes
634PromTim_Sec_hn dw 0 ;AN000;seconds,hundredths
635 db 1 ;AN000;first subst
636 db Right_Align+TIME_HHMMSSHH_24 ;AC013;time
637 db 11 ;AN000;maximum width
638 db 11 ;AC013;minimum width
639 db blank ;AN000;pad character
640
641; Date and time for DIR
642;
643DirDatTim_Ptr dw 1077 ;AN000;message number
644 db 2 ;AN000;number of subst
645 db parm_block_size ;AN000;size of sublist
646 db 0 ;AN000;reserved
647DirDat_yr dw 0 ;AN000;year
648DirDat_mo_day dw 0 ;AN000;month,day
649 db 1 ;AN000;first subst
650 db Right_Align+DATE_MDY_2 ;AN000;date
651 db 10 ;AN000;maximum width
652 db 8 ;AN000;minimum width
653 db blank ;AN000;pad character
654 db parm_block_size ;AN000;size of sublist
655 db 0 ;AN000;reserved
656DirTim_hr_min dw 0 ;AN000;hours,minutes
657DirTim_Sec_hn dw 0 ;AN000;seconds,hundredths
658 db 2 ;AN000;second subst
659 db Right_align+TIME_HHMM_Cty ;AN000;time
660 db 6 ;AN000;maximum width
661 db 6 ;AN000;minimum width
662 db blank ;AN000;pad character
663
664; "Directory already exists"
665;
666MD_exists_ptr dw 1078 ;AN000;message number
667 db no_subst ;AN000;number of subst
668
669PATH_TEXT DB "PATH="
670PROMPT_TEXT DB "PROMPT="
671comspecstr db "COMSPEC="
HIC SVNT DRACONES