]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/CMD/COMMAND/TRANMSG.ASM

wirehaze git hosting

projects / MS-DOS.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
MZ is back!
[MS-DOS.git] / v4.0 / src / CMD / COMMAND / TRANMSG.ASM
1
2 ;****************************************************
3 ;* TRANSIENT MESSAGE POINTERS & SUBSTITUTION BLOCKS *
4 ;****************************************************
5
6 msg_disp_class db Util_msg_class
7 msg_cont_flag db No_cont_flag
8
9 ; extended error string output
10 ;
11 Extend_Buf_ptr dw 0 ;AN000;set to no message
12 Extend_Buf_sub db 0 ;AN000;set to no substitutions
13 db parm_block_size ;AN000;size of sublist
14 db 0 ;AN000;reserved
15 Extend_Buf_off dw OFFSET TranGroup:String_ptr_2 ;AN000;offset of arg
16 Extend_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 ;
25 Renerr_Ptr dw 1002 ;AN000;message number
26 db no_subst ;AN000;number of subst
27
28 ; "Invalid path or file name"
29 ;
30 BadCPMes_Ptr dw 1003 ;AN000;message number
31 db no_subst ;AN000;number of subst
32
33 ; "Insufficient disk space"
34 ;
35 NoSpace_Ptr dw 1004 ;AN000;message number
36 db no_subst ;AN000;number of subst
37
38 ; "Out of environment space"
39 ;
40 EnvErr_Ptr dw 1007 ;AN000;message number
41 db no_subst ;AN000;number of subst
42
43 ; "File creation error"
44 ;
45 FulDir_Ptr dw 1008 ;AN000;message number
46 db no_subst ;AN000;number of subst
47
48 ; "Batch file missing",13,10
49 ;
50 BadBat_Ptr dw 1009 ;AN000;message number
51 db no_subst ;AN000;number of subst
52
53 ; "Insert disk with batch file",13,10
54 ;
55 NeedBat_Ptr dw 1010 ;AN000;message number
56 db no_subst ;AN000;number of subst
57
58 ; "Bad command or file name",13,10
59 ;
60 BadNam_Ptr dw 1011 ;AN000;message number
61 db no_subst ;AN000;number of subst
62
63
64 ; "Access denied",13,10
65 ;
66 AccDen_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 ;
71 OverWr_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 ;
76 LostErr_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 ;
81 InOrNot_Ptr dw 1017 ;AN000;message number
82 db no_subst ;AN000;number of subst
83
84 ; "%1 File(s) copied",13,10
85 ;
86 Copied_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 ;
100 DirMes_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 ;
114 BytMes_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 ;
128 BadDrv_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 ;
134 CP_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 ;
148 CP_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 ;
162 CP_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 ;
176 NLSFUNC_Ptr dw 1025 ;AN000;message number
177 db no_subst ;AN000;number of subst
178
179 ; "Invalid code page",13,10
180 ;
181 Inv_Code_Page dw 1026 ;AN000;message number
182 db no_subst ;AN000;number of subst
183
184 ; "Current drive is no longer valid"
185 ;
186 BadCurDrv dw 1027 ;AN000;message number
187 db no_subst ;AN000;number of subst
188
189 ; "Press any key to continue"
190 ;
191 PauseMes_Ptr dw 1028 ;AN000;message number
192 db no_subst ;AN000;number of subst
193
194 ; "Label not found",13,10
195 ;
196 BadLab_Ptr dw 1029 ;AN000;message number
197 db no_subst ;AN000;number of subst
198
199 ; "Syntax error",13,10
200 ;
201 SyntMes_Ptr dw 1030 ;AN000;message number
202 db no_subst ;AN000;number of subst
203
204 ; "Invalid date",13,10
205 ;
206 BadDat_Ptr dw 1031 ;AN000;message number
207 db no_subst ;AN000;number of subst
208
209 ; "Current date is %1 %2",13,10
210 ;
211 CurDat_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
224 CurDat_yr dw 0 ;AN000;year
225 CurDat_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 ;
235 WeekTab dw 1033 ;AN000;message number
236 db no_subst ;AN000;number of subst
237
238 ; "Enter new date (%1):"
239 ;
240 NewDat_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
244 NewDat_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 ;
254 BadTim_Ptr dw 1035 ;AN000;message number
255 db no_subst ;AN000;number of subst
256
257 ; "Current time is %1",13,10
258 ;
259 CurTim_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
263 CurTim_hr_min dw 0 ;AN000;hours,minutes
264 CurTim_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 ;
273 NewTim_Ptr dw 1037 ;AN000;message number
274 db no_subst ;AN000;number of subst
275
276 ; ", Delete (Y/N)?",13,10
277 ;
278 Del_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 ;
284 SureMes_Ptr dw 1039 ;AN000;message number
285 db no_subst ;AN000;number of subst
286
287 ; "Microsoft DOS Version %1.%2",13,10
288 ;
289 VerMes_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 ;
312 VolMes_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 ;
326 VolMes_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 ;
349 VolSerMes_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 ;
372 BadCD_Ptr dw 1044 ;AN000;message number
373 db no_subst ;AN000;number of subst
374
375 ; "Unable to create directory",13,10
376 ;
377 BadMkD_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 ;
383 BadRmD_Ptr dw 1046 ;AN000;message number
384 db no_subst ;AN000;number of subst
385
386 ; "Must specify ON or OFF",13,10
387 ;
388 Bad_ON_OFF_Ptr dw 1047 ;AN000;message number
389 db no_subst ;AN000;number of subst
390
391 ; "Directory of %1",13,10
392 ;
393 DirHead_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 ;
407 NulPath_Ptr dw 1049 ;AN000;message number
408 db no_subst ;AN000;number of subst
409
410 ; "Invalid drive in search path",13,10
411 ;
412 BadPMes_Ptr dw 1050 ;AN000;message number
413 db no_subst ;AN000;number of subst
414
415 ; "Invalid device",13,10
416 ;
417 BadDev_Ptr dw 1051 ;AN000;message number
418 db no_subst ;AN000;number of subst
419
420 ; "FOR cannot be nested",13,10
421 ;
422 ForNestMes_Ptr dw 1052 ;AN000;message number
423 db no_subst ;AN000;number of subst
424
425 ; "Intermediate file error during pipe",13,10
426 ;
427 PipeEMes_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 ;
432 InBDev_Ptr dw 1054 ;AN000;message number
433 db no_subst ;AN000;number of subst
434
435 ; "BREAK is %1",13,10
436 ;
437 CtrlcMes_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 ;
451 VeriMes_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 ;
465 EchoMes_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 ;
479 OffMes_Ptr dw 1059 ;AN000;message number
480 db no_subst ;AN000;number of subst
481
482 ; "on"
483 ;
484 OnMes_Ptr dw 1060 ;AN000;message number
485 db no_subst ;AN000;number of subst
486
487 ; "Error writing to device",13,10
488 ;
489 DevWMes_Ptr dw 1061 ;AN000;message number
490 db no_subst ;AN000;number of subst
491
492 ; "Invalid path",13,10
493 ;
494 Inval_Path_Ptr dw 1062 ;AN000;message number
495 db no_subst ;AN000;number of subst
496
497 ; unformatted string output
498 ;
499 arg_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 ;
513 File_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 ;
527 Disp_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
541 String_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 ;
556 Tab_ptr dw 1067 ;AN000;message number
557 db no_subst ;AN000;number of subst
558
559 ; " <DIR> "
560 ;
561 DMes_Ptr dw 1068 ;AN000;message number
562 db no_subst ;AN000;number of subst
563
564 ; destructive back space
565 ;
566 Dback_Ptr dw 1069 ;AN000;message number
567 db no_subst ;AN000;number of subst
568
569 ; carriage return / line feed
570 ;
571 ACRLF_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 ;
590 USADat_Ptr dw 1072 ;AN000;message number
591 db no_subst ;AN000;number of subst
592
593 ; "dd-mm-yy"
594 ;
595 EurDat_Ptr dw 1073 ;AN000;message number
596 db no_subst ;AN000;number of subst
597
598 ; "yy-mm-dd"
599 ;
600 JapDat_Ptr dw 1074 ;AN000;message number
601 db no_subst ;AN000;number of subst
602
603 ; date string for prompt
604 ;
605 promptDat_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
618 promptDat_yr dw 0 ;AN000;year
619 promptDat_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 ;
629 promTim_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
633 PromTim_hr_min dw 0 ;AN000;hours,minutes
634 PromTim_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 ;
643 DirDatTim_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
647 DirDat_yr dw 0 ;AN000;year
648 DirDat_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
656 DirTim_hr_min dw 0 ;AN000;hours,minutes
657 DirTim_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 ;
666 MD_exists_ptr dw 1078 ;AN000;message number
667 db no_subst ;AN000;number of subst
668
669 PATH_TEXT DB "PATH="
670 PROMPT_TEXT DB "PROMPT="
671 comspecstr db "COMSPEC="
The original sources of MS-DOS 1.25, 2.0, and 4.0 for reference purposes