]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/CMD/ASSIGN/ASSGMAIN.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 / ASSIGN / ASSGMAIN.ASM
1
2
3 PAGE 90,132 ;\ f
4 TITLE ASSGMAIN.SAL - ASSIGN MAIN PROGRAM
5 ;****************** START OF SPECIFICATIONS *****************************
6 ; MODULE NAME: ASSGMAIN.SAL
7 ;
8 ; DESCRIPTIVE NAME: Reassigns drive specifications.
9 ;
10 ;FUNCTION: This program reassigns the specified drives to a new drive
11 ; identifier.
12 ;
13 ; ENTRY POINT: ENTRY_POINT
14 ;
15 ; INPUT:
16 ;
17 ; ASSIGN [DRIVE] [DELIMITER] [DRIVE] [SW]
18 ; where DRIVE = optional colon
19 ; where DELIMITER = +;=TAB LF SPACE
20 ; where SW = /STATUS or /STA
21 ;
22 ; where:
23 ; /STATUS - reports back to the user
24 ; the currently changed
25 ; drive assignments and the
26 ; new assignment drive
27 ;
28 ; Note:
29 ; If a drive value has not been
30 ; ASSIGN will report back nothing.
31 ;
32 ; UTILITY FUNCTION:
33 ; Instructs DOS to route disk I/O
34 ; for one drive into disk I/O to another
35 ; drive. eg.
36 ; a=c sets a: to c:
37 ;
38 ; EXIT-NORMAL: Assigned drives or reassigned drives
39 ;
40 ; EXIT-ERROR: Any one of the possible parse errors
41 ;
42 ; INTERNAL REFERENCES:
43 ; ROUTINES: SYSPARSE:near (INCLUDEd in PARSE.SAL)
44 ; SYSLOADMSG
45 ; SYSDISPMSG
46 ;
47 ;
48 ; EXTERNAL REFERENCES:
49 ; ROUTINES: none
50 ;
51 ; NOTES:
52 ; This module should be processed with the SALUT preprocessor
53 ; with the re-alignment not requested, as:
54 ;
55 ; SALUT ASSPARM,NUL;
56 ;
57 ; To assemble these modules, the sequential
58 ; ordering of segments may be used.
59 ;
60 ; For LINK instructions, refer to the PROLOG of the main module,
61 ; ASSIGN.SAL
62 ;
63 ; REVISION HISTORY: AN000 - Version 4.00: PARSER, System Message Handler,
64 ; Status report
65 ;
66 ; COPYRIGHT: "Microsoft DOS ASSIGN Utility"
67 ; "Version 4.00 (C)Copyright 1988 Microsoft"
68 ; "Licensed Material - Program Property of Microsoft"
69 ;
70 ;
71 ; AN000 -> New Code
72 ;
73 ; AN001 -> PTM P3954 Release the environmental vector and close
74 ; all handles.
75 ;
76 ; AN002 -> PTM P3918 Parse error messages must conform to spec.
77 ; All parse error messages should display
78 ; the offending parameters.
79 ;
80 ;
81 ;****************** END OF SPECIFICATIONS *****************************
82
83 ;*********************************************
84 ;* *
85 ;* UTILITY NAME: ASSIGN.COM *
86 ;* *
87 ;* SOURCE FILE NAME: ASSIGN.SAL *
88 ;* *
89 ;* STATUS: ASSIGN utility *
90 ;* PC-DOS Version 3.40 *
91 ;* *
92 ;* SYNTAX (Command line) *
93 ;* *
94 ;* ASSIGN [DRIVE] [DELIMITER] [DRIVE] [SW] *
95 ;* where DRIVE = optional colon *
96 ;* where DELIMITER = +;=TAB LF SPACE *
97 ;* where SW = /STATUS or /STA *
98 ;* *
99 ;* where: *
100 ;* /STATUS - reports back to the user *
101 ;* the currently changed *
102 ;* drive assignments and the *
103 ;* new assignment drive *
104 ;* Note: *
105 ;* If a drive value has not been *
106 ;* ASSIGN will report back nothing. *
107 ;* *
108 ;* UTILITY FUNCTION: *
109 ;* Instructs DOS to route disk I/O *
110 ;* for one drive into disk I/O to another *
111 ;* drive. eg. *
112 ;* a=c sets a: to c: *
113 ;*********************************************
114
115 page
116 DEBUG = 0
117
118 .xlist
119 INCLUDE SYSMSG.INC ;AN000;
120 INCLUDE SYSVAR.INC
121 INCLUDE CURDIR.INC
122 INCLUDE MULT.INC
123 INCLUDE PDB.INC
124
125 MSG_UTILNAME <ASSIGN>
126
127 .list
128
129 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
130 BREAK <MACRO DEFINITIONS>
131 BREAK MACRO subtitle
132 .XLIST
133 SUBTTL subtitle
134 .LIST
135 PAGE
136 ENDM
137 .xcref break
138 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
139 CallOperRange macro low,high,routine ;;NS-macro to call subroutines
140 ?call = low ;;NS-in the given call range
141 ;;NS-starting call value = low #
142 rept (high-low)+1 ;;NS-calculate the entry point
143 CallOper ?call,routine ;;NS-into the table then execute
144 ?call = ?call + 1 ;;NS-increment call value to next
145 endm
146 endm
147 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
148 CallOper macro call,routine ;;NS-macro that calls a single
149 ;;NS-subroutine that is used in
150 ;;NS-the above macro loop CallOperange
151 ORG (SysTab-ASSIGN_BASE)+(call*2) ;;NS-Calculate entry point into
152 DW OFFSET CODE:routine ;;NS-code where SysTab is the
153 ENDM ;;NS-entry point to the tables
154 ;;NS-ASSIGN_BASE is at 0:0000
155 ;;NS-the (call*2) is calculated
156 ;;NS-to take into account two bytes
157 ;;NS-and final OFFSET statement points
158 ;;NS-code to be executed at the given
159 ;;NS-label
160 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
161 ; $SALUT (0,36,40,48)
162 MyINT21 macro ;;NS-macro used to save
163 pushf ;;NS-the flags to maintain
164 call system ;;NS-DOS environment
165 endm
166 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
167 SaveReg MACRO reglist ;; push those registers
168 IRP reg,<reglist>
169 ?stackdepth = ?stackdepth + 1
170 PUSH reg
171 ENDM
172 ENDM
173 .xcref SaveReg
174 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
175 RestoreReg MACRO reglist ;; pop those registers
176 IRP reg,<reglist>
177 ?stackdepth = ?stackdepth - 1
178 POP reg
179 ENDM
180 ENDM
181 .xcref RestoreReg
182
183 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
184 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
185 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
186 page
187 BREAK <DOS FUNCTIONS, AND OTHER EQUATES>
188 ; $SALUT (0,23,28,41)
189 ; DOS FUNCTIONS USED
190 ; (DEC) (HEX)
191 NO_ERROR equ 0 ;return code zero from the parser
192 ;********** CNS *****************
193 ;Std_Con_String_Output EQU 9 ; 9
194 PSP_Env equ 2ch ;Environmental vector segment in PSP ;an001; dms;
195 Get_PSP equ 62h ; DOS function call to get PSP address ;an001; dms;
196 Handle_Close equ 3eh ;close handle ;an001; dms;
197
198 Set_Default_Drive EQU 14 ; E
199 Get_Default_Drive EQU 25 ; 19
200 Set_Interrupt_Vector EQU 37 ; 25
201 Get_Version EQU 48 ; 30
202 Keep_Process EQU 49 ; 31
203 Get_Interrupt_Vector EQU 53 ; 35
204 Get_Drive_Freespace EQU 54 ; 36
205 Exit EQU 76 ; 4C
206 Dealloc EQU 73 ; 49
207 Get_In_Vars EQU 82 ; 52
208 Get_Set_Media_ID equ 69h ; 69h
209
210 IOCTL_READ_BLOCK EQU 4404H ;READ FROM BLOCK DEVICE
211 IOCTL_WRITE_BLOCK EQU 4405H ;WRITE TO A BLOCK DEVICE
212 IOCTL_BLOCK_CHANGE EQU 4408H ;BLOCK DEVICE CHANGEABLE
213 IOCTL_BLOCK_REMOTE EQU 4409H ;BLOCK DEVICE REMOTE
214
215 ; VECTORS REFERENCED
216 PGM_TERM EQU 20H
217 DOS_CALL EQU 21H
218 CTL_BREAK EQU 23H
219 CRIT_ERR EQU 24H
220 ABS_DISK_READ EQU 25H
221 ABS_DISK_WRITE EQU 26H
222 stay equ 27h ;NS stay interrupt value
223 int_IBM EQU 2AH ;critical section maintenance
224 MULTIPLEXOR EQU 2FH ;MULTIPLEXOR INTERRUPT VECTOR NUMBER
225
226 ; CONSTANTS USED ACROSS THE MULTIPLEXOR INTERFACE
227 MPLEX_ID EQU 06H ;ID OF ASSIGN IN MPLEX CHAIN
228 MPLEX_R_U_THERE EQU 0 ;MPLEX FUNCTION: ARE YOU THERE?
229 MPLEX_GET_SEG EQU 1 ;MPLEX FUNCTION: GET SEG OF INSTALLED ASSIGN
230 MPLEX_INSTALLED EQU 0FFH ;"I AM HERE" RETURN VALUE
231
232 ; OTHER EQUATES
233 cr equ 0dh ;CARRIAGE RETURN
234 LF EQU 0AH ;LINE FEED
235 f_Interrupt EQU 0000001000000000B ;NS - mask used for interrupt
236 ;NS value
237 BREAK <ENTRY POINT FOR CODE, EXTRNS>
238 ; $SALUT (4,15,21,41)
239
240 code segment para public ;NS code all in one segment
241 assume cs:code
242 ; one segment
243
244 page
245
246 ASSIGN_BASE: ;NS- starting point of loaded file
247 org 100h
248
249 ENTRY_POINT:
250 jmp INITIALIZATION ;JUMP TO INITIALIZATION
251 ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
252 BREAK <TABLES AND LOCAL WORKAREAS>
253 drives db 1,2,3,4,5,6,7,8,9 ;drive values used in comparison
254 db 10,11,12,13,14,15,16,17,18,19 ;against default or found drive
255 db 20,21,22,23,24,25,26
256 default_drive db ?
257 drive_save db ? ; saved drive byte
258 drive_address dw ? ; location (from DS) of drive byte
259 drive_save2 db ? ; second saved drive byte
260 ;******************************************************************************
261 ;******************************************************************************
262
263 system dd ?
264 int25_vec dd ? ;NS - Hooks for the Int 2f handler preparation
265 int26_vec dd ? ;NS - Hooks for the Int 2f handler preparation
266 int2F_vec dd ? ;NS - Area to be hooked in and remain resident
267 user_ret dd ? ; ???????????????????????????????????????
268 saveIntF dw ? ; ???????????????????????????????????????
269 I21_Func db ? ; Save area for INT21 function requested -->RW
270
271
272 ; $SALUT (4,9,23,41)
273 EVEN
274 SysTab label word ;NS-Beginning of the call,subroutine table
275 CallOper 00h,DoReset
276 CallOperRange 01h,0Ch,DoNothing ; done ????????????????????????
277 CallOper 0Dh,DoReset ; done ????????????????????????
278 CallOper 0Eh,DoSetDefault
279 CallOperRange 0Fh,17h,DoFCB ; done ????????????????????????
280 CallOper 18h,DoReset ; done ????????????????????????
281 CallOper 19h,DoGetDefault ; ????????????????????????
282 CallOperRange 1Ah,1Bh,DoReset ; done ????????????????????????
283 CallOper 1Ch,DoDL ; done ????????????????????????
284 CallOperRange 1Dh,20h,DoReset ; done ????????????????????????
285 CallOperRange 21h,24h,DoFCB ; done ????????????????????????
286 CallOperRange 25h,26h,DoReset ; done ????????????????????????
287 CallOperRange 27h,28h,DoFCB ; done ????????????????????????
288 CallOperRange 29h,31h,DoReset ; done ????????????????????????
289 CallOper 32h,DoDL ; done ????????????????????????
290 CallOperRange 33h,35h,DoReset ; done ????????????????????????
291 CallOper 36h,DoDL ; done ????????????????????????
292 CallOperRange 37h,38h,DoReset ; done ????????????????????????
293 CallOperRange 39h,3Dh,DoAscii ; done ????????????????????????
294 CallOperRange 3Eh,40h,DoReset ; done ????????????????????????
295 CallOper 41h,DoAscii ; done ????????????????????????
296 CallOper 42h,DoReset ; done ????????????????????????
297 CallOper 43h,DoAscii ; done ????????????????????????
298 CallOper 44h,DoIOCTL ; done ????????????????????????
299 CallOperRange 45h,46h,DoReset ; done ????????????????????????
300 CallOper 47h,DoDL ; done ????????????????????????
301 CallOperRange 48h,4Ah,DoReset ; done ????????????????????????
302 CallOper 4Bh,DoExec ; done ????????????????????????
303 CallOperRange 4Ch,4Dh,DoReset ; done ????????????????????????
304 CallOper 4Eh,DoAscii ; done ????????????????????????
305 CallOperRange 4Fh,55h,DoReset ; done ????????????????????????
306 CallOper 56h,DoRename ; done ????????????????????????
307 CallOperRange 57h,59h,DoReset ; done ????????????????????????
308 CallOperRange 5Ah,5Bh,DoAscii ; done ????????????????????????
309 CallOperRange 5Ch,5Fh,DoReset ; done ????????????????????????
310 CallOper 60h,DoTranslate ; done ????????????????????????
311 CallOperRange 61h,63h,DoReset ; done ????????????????????????
312 CallOperRange 64h,69h,DoSetGetMedia ;done ????????????????????????
313 CallOperRange 6ah,6bh,DoNothing ;done ????????????????????????
314 CallOper 6ch,DoAscii_DS_SI ;done ?????????????????????????
315 ; ????????????????????????
316 page
317 ; $SALUT (4,5,11,36)
318 MAXCLL EQU 6CH ; High bound of table
319
320 org (systab-ASSIGN_BASE) + (2 * (MAXCLL + 1)) ;NS - Beginning of code starts at
321 ;NS - Beginning of table + 128 bytes
322 BREAK <ASSIGN INTERRUPT HANDLER>
323 ASSIGN_HANDLER:
324 mov SaveIntf,f_interrupt ;NS- Move in the mask into a saved area
325 SaveReg <AX,BX> ;NS- ??????????????????????????????????
326 cmp ah,MAXCLL ; Do a high bound check on the call
327 ; so we don't index past the end of
328 ja DoNothing ; the table on a bogus call
329
330 mov al,ah ;NS- Call must be in the 0 - 63h range
331 cbw ;NS- zero out the high byte now
332 ;NS- AX has 0 & call number
333 shl ax,1 ;NS- Double the value in AX
334 mov bx,ax ;NS- Move the value into BX to
335 jmp systab[bx] ;NS- access the call number & subroutine
336 ;NS- bx bytes into the tbl
337 ;***********************************************************************************
338
339 EnterAssign: ;NS- make sure system intact by doing
340 call LeaveAllAssign ;NS- error recovery check
341
342 push ax ;NS- before making code
343 mov ax,8000h + critAssign ;NS- non- reentrant if unable
344 INT INT_IBM ;(2AH) NS- to screen out successfully
345
346 POP AX ;NS- LeaveAllAssign will be executed
347 RET ;return NS- and the critical section will be reset
348 ;************************************************************************************
349 LeaveAssign: ;NS- restore re-entrancy to
350 push ax ;NS- the code after & only
351 mov ax,8100h + critAssign ;NS- after this call has been
352 INT INT_IBM ;(2AH) NS- made or the error recovery
353
354 POP AX ;NS- call has been made
355 RET ;return NS-
356
357 ;************************************************************************************
358 LeaveAllAssign: ;NS- Error recovery call
359 push ax ;NS- to restore the Assigns
360 mov ax,8908h ;NS- critical section
361 int INT_IBM ;(2AH) NS- if ASSIGN has encountered
362
363 pop ax ;NS- a problem on entrance or departure
364 RET ;return NS-
365 ;************************************************************************************
366 ;
367 ; Reset the exclusion flag ;NS- Reset to Assign
368 ; ;NS- critical section state
369 DoReset: ;NS-
370 call LeaveAllAssign ;NS-
371 ;NS-
372 ;****************************************************************************************
373 ;
374 ; The system call needed no special processing. Go do it directly.
375 ;
376 DoNothing: ;NS-System registers and flags still
377 RestoreReg <bx,ax> ;NS-intact it has not been clobbered
378 jmp system ;NS-by ASSIGN code
379
380 page
381 ;************************************************************************************
382 ;
383 ; Munge the drive byte in an FCB pointed to by DS:DX.
384 ; "MUNGE" ? (Webster will turn over in his gravy...)
385 ;
386 DoFCB:
387 mov bx,dx ; indexable pointer
388 mov al,[bx] ; get drive
389 cmp al,0ffh ; extended fcb?
390 jnz DoMapDrive ; no
391
392 add bx,7 ; yes, advance past it
393 mov al,[bx] ; get read drive byte
394 DoMapDrive:
395 or al,al ; default drive?
396 ; $IF Z ;YES
397 JNZ $$IF1
398 mov al,default_drive ; get default drive
399 ;
400 ; DS:BX points to the drive byte being munged. AL is the old value. Save
401 ; it away.
402 ;
403 ; $ENDIF ;AC000;
404 $$IF1:
405 ;SaveFCB:
406 call EnterAssign ; NS-Enter Assign's critical section
407
408 mov drive_save,al ; NS-save the drive assignment
409 call mapdrv1 ; NS-now let's map it to the
410
411 mov [bx],al ; NS-numeric drive associated in
412 ; NS-in drive range 1 to 26
413 ;******************************************************************************
414 ; The FCB has been converted. Now let's POP off the user's info and do the
415 ; system call. Note that we are no longer reentrant!
416 ;
417 mov drive_address,bx ; NS- location of drive value
418 RestoreReg <BX,AX> ; get back original registers
419 pop word ptr user_ret ; restore his IP
420 pop word ptr user_ret+2 ; restore his CS
421 call GotoCLI ; NS- Clear out old interrupts
422 ; NS- before an IRET is issued
423 ; NS- update the current
424 call system ; flags saved => this is a system call
425
426 pushf ; NS- re-adjust the stack
427 call RestInt ; NS- and setup the environment
428
429 SaveReg <ax,bx> ; NS- with drive and the drive address
430 mov bx,drive_address ; NS- before leaving the Assign critical
431 mov al,drive_save ; NS- section
432 mov [bx],al
433 RestoreReg <bx,ax>
434 push word ptr user_ret+2 ; push back user's cs
435 push word ptr user_ret ; push back user's ip
436 Call LeaveAssign
437
438 iret ; back to user
439
440 page
441 ;************************************************************************************
442 ;
443 ; Munge the user's ASCIZ string at DS:DX.
444 ;
445 DoAscii:
446 mov bx,dx ; point to area
447 cmp byte ptr [bx+1],':' ; drive letter present?
448 jnz DoNothing ; nope, ignore this
449 ;
450 ; There is a drive leter present. Grab it and convert it
451 ;
452 mov al,[bx] ; get drive letter
453 call EnterAssign ; NS- Re-enter ASSIGN crit section
454
455 mov drive_save,al ; remember previous contents
456 call maplet ; convert to real drive letter
457
458 mov [bx],al ; place in new drive letter
459 mov drive_address,bx
460 RestoreReg <BX,AX> ; get back original registers
461 pop word ptr user_ret ; restore his IP
462 pop word ptr user_ret+2 ; restore his CS
463 call GotoCLI ; clean up stack
464
465 call system ; flags saved => this is a system call
466
467 pushf ; save all drive info
468 call RestInt ; NS- clean up environment before
469
470 SaveReg <ax,bx> ; NS- returning to the user's environment
471 mov bx,drive_address ; NS- to ask on the next ASSIGN entrance
472 mov al,drive_save
473 mov [bx],al
474 RestoreReg <bx,ax>
475 push word ptr user_ret+2 ; push back user's cs
476 push word ptr user_ret ; push back user's ip
477 Call LeaveAssign ; NS- exit ASSIGN crit. section
478
479 iret ; back to user
480
481
482 ;************************************************************************************
483 ;
484 ; Munge the user's ASCIZ string at DS:SI.
485 ;
486 DoAscii_DS_SI:
487 mov bx,si ; point to area
488 cmp byte ptr [bx+1],':' ; drive letter present?
489 ; $if ne ; drive letter not present
490 JE $$IF3
491 jmp DoNothing ; nope, ignore this
492 ; $endif ;
493 $$IF3:
494 ;
495 ; There is a drive leter present. Grab it and convert it
496 ;
497 mov al,[bx] ; get drive letter
498 call EnterAssign ; NS- Re-enter ASSIGN crit section
499
500 mov drive_save,al ; remember previous contents
501 call maplet ; convert to real drive letter
502
503 mov [bx],al ; place in new drive letter
504 mov drive_address,bx
505 RestoreReg <BX,AX> ; get back original registers
506 pop word ptr user_ret ; restore his IP
507 pop word ptr user_ret+2 ; restore his CS
508 call GotoCLI ; clean up stack
509
510 call system ; flags saved => this is a system call
511
512 pushf ; save all drive info
513 call RestInt ; NS- clean up environment before
514
515 SaveReg <ax,bx> ; NS- returning to the user's environment
516 mov bx,drive_address ; NS- to ask on the next ASSIGN entrance
517 mov al,drive_save
518 mov [bx],al
519 RestoreReg <bx,ax>
520 push word ptr user_ret+2 ; push back user's cs
521 push word ptr user_ret ; push back user's ip
522 Call LeaveAssign ; NS- exit ASSIGN crit. section
523
524 iret ; back to user
525
526 page
527 ;************************************************************************************
528
529 ;
530 ; DoDL - the drive to map is in DL.
531 ;
532 DoDL:
533 or dl,dl ; NS- check for drive mapping
534 ; $IF Z ;AC000;;USE DEFAULT DRIVE
535 JNZ $$IF5
536
537 DNJ1:
538 jmp DoNothing ; NS- default drive was requested
539 ; NS- thus no mapping needed
540 ; $ENDIF ;AC000;
541 $$IF5:
542 mov al,dl ; NS- not default case so no need doctor
543 call EnterAssign ; NS- so enter ASSIGN crit. section again
544
545 mov drive_save,al ; preserve old drive
546 call mapdrv1
547
548 mov dl,al ; drive is mapped
549 RestoreReg <BX,AX> ; get back registers
550 mov I21_Func,ah ; Save requested function call -->RW
551 pop word ptr user_ret ; restore his IP
552 pop word ptr user_ret+2 ; restore his CS
553 call GotoCLI
554
555 call system ; flags saved => this is a system call
556
557 pushf ;
558 call RestInt
559
560 cmp I21_Func,GET_DRIVE_FREESPACE ;(36h) If call returns info in DX, -->RW
561 ; NS- DL in both cases Func 36
562 ; NS- Func 1Ch are both used for
563 ; NS- drive input we don't want to
564 ; NS- the old drives so they should not
565 ; restored as the old value - use ASSIGN's
566 je Dont_Restore_DL ;AC000;;THEN DO CHANGE IT
567
568 cmp I21_Func,1ch ; If call returns info in DX, -->RW
569 ;(NOTE 1CH IS NOT DEFINED IN SYSCALL.INC. EK)
570 je Dont_Restore_DL ;AC000;;THEN DO CHANGE IT
571
572 mov dl,drive_save ; restore his dl
573 ;DONT_RESTORE_DL:
574 Dont_Restore_DL:
575
576 push word ptr user_ret+2 ; push back user's cs
577 push word ptr user_ret ; push back user's ip
578 Call LeaveAssign
579
580 iret ; back to user
581 ;************************************************************************************
582
583 ; Map the IOCTL drives in BX ; NS- this section handles
584 ; NS- INT21 calls to get drive info
585 DoIOCTL:
586 RestoreReg <BX,AX>
587 SaveReg <AX,BX>
588 cmp ax,IOCTL_READ_BLOCK ;(4404h) IOCTL read string from block dev
589 jz DoMapBX ;AC000;
590 ; jz DoMapBX
591 cmp ax,IOCTL_WRITE_BLOCK ;(4405h) IOCTL write string from block dev
592 jz DoMapBX ;AC000;
593 ; jz DoMapBX
594 cmp ax,IOCTL_BLOCK_CHANGE ;(4408h) IOCTL is removable
595 jz DoMapBX ;AC000;
596 ; jz DoMapBX
597 cmp ax,IOCTL_BLOCK_REMOTE ;(4409h) IOCTL block dev redir (network)
598 jnz DNJ2 ;AC000;;NORMAL CALL
599 ;DoMapBX:
600 DoMapBX:
601
602 or bx,bx ; NS- drive letter associated in BL
603 jz DNJ2
604
605 mov al,bl ; not the default case
606 call EnterAssign
607
608 mov drive_save,al ; remember drive
609 call mapdrv1 ; NS- time to map drive to new assoc.
610
611 mov bl,al ; drive is mapped
612 RestoreReg <AX,AX> ; get back registers (throw away BX)
613 pop word ptr user_ret ; restore his IP
614 pop word ptr user_ret+2 ; restore his CS
615 call GotoCLI
616
617 call system ; flags saved => this is a system call
618
619 pushf
620 call RestInt
621
622 mov bl,drive_save ; restore his dl
623 push word ptr user_ret+2 ; push back user's cs
624 push word ptr user_ret ; push back user's ip
625 Call LeaveAssign
626
627 iret ; back to user
628
629 DNJ2:
630
631 jmp DoNothing
632
633 DoSetGetMedia:
634 RestoreReg <BX,AX> ;an000; dms;restore regs
635 SaveReg <AX,BX> ;an000; dms;save regs
636 cmp ah,Get_Set_Media_ID ;an000; dms;trap on get/set media id
637 ; $if z ;an000; dms;found
638 JNZ $$IF7
639 or bl,bl ;an000; dms;drive letter entered
640 ; $if nz ;an000; dms;yes
641 JZ $$IF8
642 mov al,bl ; not the default case
643 call EnterAssign
644
645 mov drive_save,al ; remember drive
646 call mapdrv1 ; NS- time to map drive to new assoc.
647
648 mov bl,al ; drive is mapped
649 RestoreReg <AX,AX> ; get back registers (throw away BX)
650 pop word ptr user_ret ; restore his IP
651 pop word ptr user_ret+2 ; restore his CS
652 call GotoCLI
653
654 call system ; flags saved => this is a system call
655
656 pushf
657 call RestInt
658
659 mov bl,drive_save ; restore his dl
660 push word ptr user_ret+2 ; push back user's cs
661 push word ptr user_ret ; push back user's ip
662 Call LeaveAssign
663 ; $else ;an000; dms;not valid function 69h
664 JMP SHORT $$EN8
665 $$IF8:
666 jmp DoNothing ;an000; dms;pass to interrupt
667 ; $endif ;an000; dms;
668 $$EN8:
669 ; $else ;an000; dms;
670 JMP SHORT $$EN7
671 $$IF7:
672 jmp DoNothing ;an000; dms;pass to interrupt
673 ; $endif ;an000; dms;
674 $$EN7:
675
676 iret ; back to user
677 page
678 ;************************************************************************************
679 ;
680 ; Map the drive letter and forget about it. EXEC never returns.
681 ;
682 DoExec:
683 RestoreReg <BX,AX>
684 SaveReg <AX,BX>
685 or al,al
686 ; $IF Z ;AC000;;IS LOAD GO, NOT USE NORMAL STUFF
687 JNZ $$IF13
688
689 mov bx,dx ; point to area
690 DoOnce:
691 cmp byte ptr [bx+1],':' ; drive letter present?
692 ; $IF Z ;AC000;;YES
693 JNZ $$IF14
694 ;
695 ; There is a drive leter present. Grab it and convert it
696 ;
697 mov al,[bx] ; get drive letter
698 call maplet ; convert to real drive letter
699
700 mov [bx],al ; place in new drive letter
701 ; $ENDIF ;AC000;
702 $$IF14:
703 DNJ3:
704 jmp DoNothing ; restore and go on!
705
706 ; $ENDIF
707 $$IF13:
708 ;DAJ:
709 jmp DoAscii
710
711 ;************************************************************************************
712 ;
713 ; Map the drive letter at DS:SI. We need to un-map it at the end.
714 ;
715 DoTranslate:
716 mov bx,SI ; point to area
717 cmp byte ptr [bx+1],':' ; drive letter present?
718 jnz DNJ3 ; nope, ignore this
719 ;
720 ; There is a drive leter present. Grab it and convert it
721 ;
722 mov al,[bx] ; get drive letter
723 call EnterAssign
724
725 mov drive_save,al ; remember previous contents
726 call maplet ; convert to real drive letter
727
728 mov [bx],al ; place in new drive letter
729 mov drive_address,bx
730 RestoreReg <BX,AX> ; get back original registers
731 pop word ptr user_ret ; restore his IP
732 pop word ptr user_ret+2 ; restore his CS
733 call GotoCLI
734
735 call system ; flags saved => this is a system call
736
737 pushf
738 call RestInt
739
740 SaveReg <ax,bx>
741 mov bx,drive_address
742 mov al,drive_save
743 mov [bx],al
744 RestoreReg <bx,ax>
745 push word ptr user_ret+2 ; push back user's cs
746 push word ptr user_ret ; push back user's ip
747 Call LeaveAssign
748
749 iret ; back to user
750
751 page
752 ;************************************************************************************
753 ;
754 ; Munge the user's ASCIZ string at DS:DX and es:di
755 ;
756 DoRename:
757 mov bx,dx ; point to area
758 mov ax,[bx]
759 call EnterAssign
760
761 mov drive_save,al
762 mov drive_address,bx
763 cmp ah,':' ; drive letter present?
764 ; $IF Z ;AC000;
765 JNZ $$IF17
766
767 call maplet ; convert to real drive letter
768
769 mov [bx],al ; place in new drive letter
770 ; $ENDIF ;AC000;
771 $$IF17:
772 ;DoES:
773 mov ax,es:[di] ;NS- Get the 2nd drive from the command linepSOP
774 mov drive_save2,al ;NS- Save possible drive
775 cmp ah,':' ;NS- exclude if no colon present
776 ; $IF Z ;AC000;
777 JNZ $$IF19
778
779 call maplet ;NS- go convert letter to actual drive #
780
781 mov es:[di],al ;NS- new drive value
782 ; $ENDIF ;AC000;
783 $$IF19:
784 ;DoIt:
785 RestoreReg <BX,AX> ; get back original registers
786 pop word ptr user_ret ; restore his IP
787 pop word ptr user_ret+2 ; restore his CS
788 call GotoCLI
789
790 call system ; flags saved => this is a system call
791
792 pushf
793 call RestInt
794
795 SaveReg <ax,bx>
796 mov al,drive_save2 ; NS- get the second drive update
797 mov es:[di],al ; NS- on the command line
798 mov bx,drive_address ;
799 mov al,drive_save ;
800 mov [bx],al ;
801 RestoreReg <bx,ax> ;
802 push word ptr user_ret+2 ; push back user's cs
803 push word ptr user_ret ; push back user's ip
804 Call LeaveAssign
805
806 iret ; back to user
807
808 ;************************************************************************************
809 ;
810 ; DoGetDefault - return our idea of the current drive...
811 ;
812 DoGetDefault:
813 call Assign_Check
814
815 ; $IF Z ;AC000;
816 JNZ $$IF21
817 ;DNJ4:
818 jmp DoNothing
819
820 ; $ENDIF ;AC000;
821 $$IF21:
822 RestoreReg <BX,AX>
823 mov al,default_drive
824 dec al
825 iret
826
827 page
828 ;************************************************************************************
829 ;
830 ; DoSetDefault - try to set to the mapped current drive. If we can do it,
831 ; then OK, else oops!
832 ;
833 DoSetDefault:
834 RestoreReg <BX,AX>
835 mov al,dl ; get new drive
836 inc al ; convert it to 1-based
837 call EnterAssign
838
839 mov drive_save,al ; remember what we're doing
840 call mapdrv1 ; convert drive
841
842 dec al ; convert back to 0-based
843 mov dl,al ; stick back in correct register
844 mov drive_save2,al ; remember more of what we're doing
845 MyInt21 ; try the set
846
847 push ax ; save return info from set
848 mov ah,Get_Default_Drive ;(29h)
849 MyInt21
850
851 mov dl,drive_save
852 dec dl ; Restore users original value
853 cmp al,drive_save2 ; Did the set work?
854 ; $IF Z ;AC000;;YES!
855 JNZ $$IF23
856
857 mov al,drive_save
858 mov default_drive,al ; Set ours too, it's valid!
859 ; $ENDIF ;AC000;
860 $$IF23:
861 ;BadDrive:
862 pop ax ; Set return info
863 call LeaveAssign
864
865 iret
866
867 ;************************************************************************************
868 ;
869 ; Maintain the CLI state upon the next IRET. Flags for the IRET are on the
870 ; stack just under the return address. This means saving the current state
871 ; of the int flag and then turning off the saved version.
872 ;
873 GotoCLI:
874 push ax
875 push bp
876 mov bp,sp
877 ; bp ax ret f
878 mov ax,[bp + 2 + 2 + 2]
879 and SaveIntf,ax ; save those interrupts
880 and word ptr [bp + 2 + 2 + 2],not f_interrupt
881 pop bp
882 pop ax
883 ret
884 ;
885 ;************************************************************************************
886 ; Restore he saved interrupt flag for the user. His flags are on the stack
887 ; just above the RET.
888 ;
889 RestInt:
890 push ax
891 push bp
892 mov bp,sp
893 mov ax,SaveIntf
894 ; bp ax ret f
895 or [bp + 2 + 2 + 2],ax
896 pop bp
897 pop ax
898 ret
899
900 ;************************************************************************************
901 mapdrv0: ;a = 0 , b = 1
902 inc al
903 ; $IF NZ ;AC000;
904 JZ $$IF25
905
906 call mapdrv1
907
908 ; $ENDIF ;AC000;
909 $$IF25:
910 ;Wrap0:
911 dec al
912 ret
913
914 ;************************************************************************************
915 mapdrv1:
916 cmp al,26
917 ; $IF NA ;AC000;
918 JA $$IF27
919
920 cmp al,0 ; check for default
921 ; $IF Z ;AC000;
922 JNZ $$IF28
923
924 mov al,default_drive
925 mov drive_save,al
926 ; $ENDIF ;AC000;
927 $$IF28:
928
929 push bx ;a = 1, b = 2
930 push cx
931 mov ch,ah
932 cbw
933 mov bx,offset drives-1
934 add bx,ax
935 mov al,cs:[bx]
936 mov ah,ch
937 pop cx
938 pop bx
939 ; $ENDIF ;AC000;
940 $$IF27:
941 ret
942
943 ;************************************************************************************
944 maplet:
945 cmp al,'A'
946 jb LetDone
947
948 cmp al,'Z'
949 jbe DoMapLet
950
951 cmp al,'a'
952 jb LetDone
953
954 cmp al,'z'
955 ja LetDone
956
957 DoMapLet:
958 or al,20h
959 sub al,"a"-1
960 call mapdrv1
961
962 add al,40h
963 LetDone:
964 ret
965
966 page
967 ;************************************************************************************
968 int25:
969 call mapdrv0
970
971 jmp int25_vec
972
973 int26:
974 call mapdrv0
975
976 jmp int26_vec
977
978 int2F:
979 CMP AH,mplex_id ;(06h) is this our multiplex?
980 ; $IF NE ;AC000;;NO
981 JE $$IF31
982
983 jmp int2F_vec ; No, Chain to next guy
984
985 ; $ENDIF ;AC000;
986 $$IF31:
987 ;MINE:
988 CMP AL,mplex_get_seg ;(01h)
989 ;0 AND 1 ARE THE ONLY ALLOWED FUNCTIONS
990 ; $IF NA ;AC000;;IF NOT SOME OTHER NUMBER,
991 JA $$IF33
992 ; $IF E ;AC000;;IF FUNCTION REQUEST IS 01
993 JNE $$IF34
994 ;RETURN THE SEGID IN ES
995 PUSH CS
996 POP ES ; Call 1 gets our segment in ES
997 ; $ENDIF ;AC000;
998 $$IF34:
999 ;QUER:
1000 MOV AL,MPLEX_INSTALLED ;(0FFh) I AM here
1001 ; $ENDIF
1002 $$IF33:
1003 ;RESERVED_RET:
1004 IRET
1005
1006 ;************************************************************************************
1007 assign_check:
1008 push si
1009 push ax
1010 push cx
1011 xor ax,ax
1012 mov si,ax
1013 mov cx,26
1014 ; $SEARCH ;AC000;
1015 $$DO37:
1016 ;scn:
1017 mov al,drives[si]
1018 INC SI
1019 cmp ax,si
1020 ; $EXITIF NZ,NUL ;AC000;
1021 JNZ $$SR37
1022
1023 ; $ENDLOOP LOOP ;AC000;
1024 LOOP $$DO37
1025
1026 xor ax,ax ; reset z flag
1027 ; $ENDSRCH ;AC000;
1028 $$SR37:
1029 ;scndone:
1030 pop cx
1031 pop ax
1032 pop si
1033 ret
1034
1035 prog_size = ($-ASSIGN_BASE+15)/16
1036
1037 page
1038 ;************************************************************************************
1039 ; TRANSIENT CODE
1040 ;************************************************************************************
1041 ;*********************************************
1042 ;* *
1043 ;* Subroutine name: Initialization *
1044 ;* *
1045 ;* Purpose: Process the command line. *
1046 ;* If there are no errors update *
1047 ;* the drive table according to *
1048 ;* the drive assignments, terminate *
1049 ;* and stay resident. If status switch *
1050 ;* set and the drive values have been *
1051 ;* altered display drive is set to *
1052 ;* 2nd drive. *
1053 ;* *
1054 ;* Input: Command line (described in header) *
1055 ;* *
1056 ;* Output: Table will be updated and resident*
1057 ;* code will be hooked in. *
1058 ;* *
1059 ;* Normal Exit: Valid drives, sufficient *
1060 ;* memory. *
1061 ;* Error Conditions: *
1062 ;* Incorrect DOS Version *
1063 ;* Invalid Parameter *
1064 ;* Invalid switch *
1065 ;*Externals: *
1066 ;* PROCESS_PATH *
1067 ;* REPORT_STATUS *
1068 ;* EXIT_PROG *
1069 ;* *
1070 ;*********************************************
1071 ; *****************************************
1072 ; * INITIALIZATION *
1073 ; *****************************************
1074 ; * *
1075 ; * CALL SYSLOADMSG *
1076 ; * Do DOS Versinon Check *
1077 ; * CALL SYSDISPMSG *
1078 ; * IF <> X.X then *
1079 ; * Display message *
1080 ; * Message number 1 *
1081 ; * (001 - Incorrect DOS Version) *
1082 ; * exit *
1083 ; * .ENDIF *
1084 ; * Continue *
1085 ; * *
1086 ; * Establish address of the *
1087 ; * PDB environment *
1088 ; * (Process Data Block ) *
1089 ; * .IF NO SPACE free de-allocate (49)*
1090 ; * memory at the environment *
1091 ; * address *
1092 ; * .ENDIF *
1093 ; *****************************************
1094 ;*******************************************************************************
1095
1096
1097 BREAK <INITIALIZATION - NOT STAY RESIDENT>
1098
1099 EXTRN SYSPARSE:NEAR ;AN000;
1100
1101 ODDX equ 01H ;AN000;
1102 EVENX equ 00H ;AN000;
1103 PAD_CHAR equ ' ' ;AN000;
1104 SEMICOLON equ ';' ;AN000;
1105 SPACE equ ' ' ;AN000;
1106 EQUAL equ '=' ;AN000;
1107 PLUS equ '+' ;AN000;
1108 good_parse_finish equ 0ffffh ;an000;
1109 ;******************************************************************************
1110 STATUS_ONLY db 0 ;AN000;
1111 STRING_CTR db 0 ;AN000;
1112 STATUS_FLAG db 0 ;AN000;
1113 ERR_CODE db 0 ;AN000;
1114 POS_FLAG db 'n' ;AN000;
1115 PARMS_AVAIL db 'n' ;AN000;
1116 PAR_RETC dw 0 ;AN000; used for the return code
1117 DRV_X db 0 ;AN000; from the parser
1118 save_dr_tbl_ptr dw ? ;an000;drive table pointer
1119 curr_es_seg dw ?
1120 Parm_Ptr1 dw ? ;an002;ptr to parse parm
1121 Parm_Ptr2 dw ? ;an002;ptr to parse parm
1122
1123 inv dd ?
1124 STring dd ? ;AN000;string holder
1125
1126
1127 INCLUDE ASSGPARM.INC ;AN000;
1128 INCLUDE ASSGMSG.INC ;AN000;
1129
1130
1131 assume cs:code, ds:code, ss:code, es:code
1132
1133 INITIALIZATION:
1134
1135 push ax ;an000; save ax
1136 mov ax,ds ;an000; get the current ds
1137 mov SEG_1,ax ;an000; set sublist table
1138 mov SEG_2,ax ;an000; set sublist table
1139 pop ax ;an000; restore ax
1140
1141 call SYSLOADMSG ;AN000; ;does DOS version check
1142 ; $IF C ;AN000;
1143 JNC $$IF41
1144 ;remainder of info given
1145 call SYSDISPMSG ;AN000; ;by the msg retriever
1146 ;message and exit
1147
1148 call EXIT_PROG ;AC000; ;(4CH) Terminate function
1149
1150 ; $ENDIF
1151 $$IF41:
1152
1153
1154 page
1155 ;************************************* CNS ************************************
1156 ; *****************************************
1157 ; * INITIALIZATION *
1158 ; *****************************************
1159 ; * *
1160 ; * Make internal DOS function call (52h)*
1161 ; * to process the data block *
1162 ; * information after mem is available *
1163 ; ******************************************
1164 ;************************************* CNS ************************************
1165 ;OKDOS:
1166 mov ax,ds:[pdb_environ] ;get your Process Data Block Address
1167 or ax,ax ;check to see if space available
1168 ; $IF NZ ;AC000;
1169 JZ $$IF43
1170 ; jz nofree
1171 push es ; save code segment value
1172 mov es,ax ; de-allocate memory
1173 mov ah,dealloc ;(49H)
1174 int DOS_CALL
1175
1176 pop es ;restore code segment value
1177
1178 ; $ENDIF ;ACx00;
1179 $$IF43:
1180 ;nofree:
1181
1182 push es ;an000; save es
1183 mov ah,Get_In_Vars ;(52H)
1184 int DOS_CALL
1185
1186 mov Word ptr inv,bx
1187 mov Word ptr inv+2,es
1188 pop es ;an000; restore es
1189
1190 ;******************************************************************************
1191 ;
1192 ; *****************************************
1193 ; * Establish addressability *
1194 ; * to command line parms (DS:SI) *
1195 ; * Establish addressability to PARM *
1196 ; * control block (ES:DI) *
1197 ; * *
1198 ; *****************************************
1199 ;*******************************************************************************
1200 ;parser es & ds now points at the command line
1201 cld ;clear the directional flag
1202 ;decrement mode - maintanis pointer without
1203 ;advancement
1204
1205 mov di,offset ASS_PARMS ;AC000; ;set index to the location of your PARAMETER
1206 ;PARSER control block
1207 mov si,81h ;AC000; ;set index to the beginning of the commandline
1208 ;at 81h to the first 128 bytes
1209 page
1210 ;******************************************************************************
1211 ;* PROCESS PATH
1212 ;******************************************************************************
1213 ;*********************************************
1214 ;* *
1215 ;* Subroutine : Process_path *
1216 ;* Function : Process command line. *
1217 ;* Repeat searching for drive *
1218 ;* spec. If valid update *
1219 ;* drive table. *
1220 ;* *
1221 ;* Normal exit: End of line *
1222 ;* Parse error *
1223 ;* *
1224 ;* Abort exit: Invalid drive *
1225 ;* *
1226 ;*********************************************
1227 ; *****************************************
1228 ; * *
1229 ; * WHILE PAR_RETC eq NO_ERROR (0) *
1230 ; * CALL SYSPARSE *
1231 ; * Case: *
1232 ; * .IF (POSITIONAL) *
1233 ; * Result is positional & Ctr even *
1234 ; * INC CTR *
1235 ; * CHECK_STRING *
1236 ; * .IF the string is valid *
1237 ; * valid drive *
1238 ; * calculate table drv posit. *
1239 ; * based on the ascii value *
1240 ; * .ELSE *
1241 ; * *
1242 ; * PARSE ERROR *
1243 ; * .ENDIF *
1244 ; * Result is positional & CTR odd *
1245 ; * save the ascii_value *
1246 ; * Check the String *
1247 ; * .IF the string is valid *
1248 ; * valid drive *
1249 ; * update the drive table *
1250 ; * .ELSE *
1251 ; * *
1252 ; * PARSE ERROR *
1253 ; * .ENDIF *
1254 ; * .ENDIF *
1255 ; * INC CTR *
1256 ; *****************************************
1257
1258 ;******************************************************************************
1259 xor cx,cx ;an000; set cx to 0 for parse
1260 xor dx,dx ;an000; set dx to 0 for parse
1261
1262 mov Parm_Ptr1,si ;an002; dms;ptr to 1st. parm
1263 mov Parm_Ptr2,si ;an002; dms;ptr to 1st. parm
1264 call SYSPARSE ;AN000; dms;priming parse
1265 mov par_retc,ax ;AN000; dms;set flag
1266
1267 ; $DO
1268 $$DO45:
1269 CMP ax,no_error ;AN000;Is compare the return
1270 ; $LEAVE NE ;AN000;code 0 no error keep
1271 JNE $$EN45
1272 ;AN000;parsing
1273 call CHK_PARSER ;AN000;
1274
1275 mov Parm_Ptr2,si ;an002; dms;ptr to 1st. parm
1276 call SYSPARSE ;AN000;go parse the command line
1277 mov par_retc,ax ;AN000; dms;set flag
1278 ;AN000;restore the parm return code
1279
1280 ; $ENDDO ;AN000;
1281 JMP SHORT $$DO45
1282 $$EN45:
1283
1284 cmp ax,good_parse_finish ;an000; dms;see if a parse error
1285 ; $if ne ;an000; dms;if a parse error
1286 JE $$IF48
1287 push ax ;an002; dms save ax
1288 mov ax,Parm_Ptr2 ;an002; dms;get original parm ptr
1289 mov Parm_Ptr1,ax ;an002; dms;place in variable
1290 pop ax ;an002; dms;restore ax
1291 call PARSE_ERR ;an000; dms;display error & exit
1292 ; $endif ;an000; dms;
1293 $$IF48:
1294
1295 cmp PARMS_AVAIL,'y' ;AN000;
1296 ; $IF E ;AN000; If there are parms available
1297 JNE $$IF50
1298 cmp ax,0 ;AN000; see if the return code was no error
1299 ; $IF G ;AN000; if greater than 0
1300 JNG $$IF51
1301 mov ax,parse10
1302 call PARSE_ERR ;AN000; you got a parser error
1303 ;AN000; so report & exit
1304 ; $ENDIF ;AN000; you also get an error
1305 $$IF51:
1306
1307 xor ax,ax ;AN000;
1308 mov al,String_ctr ;AN000;
1309 mov bx,0002h
1310 div bl ;AN000;
1311
1312 cmp ah,EVENX
1313 ; $IF NE ;AN000; if the drives did not pair off
1314 JE $$IF53
1315 mov ax,parse10
1316 call PARSE_ERR
1317 ; $ENDIF ;AN000;
1318 $$IF53:
1319
1320 cmp POS_FLAG,'n' ;AN000;has a drive been specified
1321 ; $IF E,AND ;AN000;and has a switch also been
1322 JNE $$IF55
1323 cmp STATUS_FLAG,1 ;AN000;specified if so hook in code
1324 ; $IF E ;AN000;and then report status
1325 JNE $$IF55
1326 mov STATUS_ONLY,1 ;AN000;set flag specifing user input full
1327 ; $ENDIF ;AN000;command line
1328 $$IF55:
1329 ;AN000; hook in the code
1330 ; $ENDIF ;AN000;
1331 $$IF50:
1332
1333 page
1334
1335 cmp STATUS_ONLY,0 ;AN000;
1336 ; $IF E ;AN000;
1337 JNE $$IF58
1338
1339 call Get_Vectors ;get current vectors ;an001; dms;
1340 call Set_Vectors ;set new vectors ;an001; dms;
1341
1342 ; $ELSE ;AN000;END of HOOK-IN
1343 JMP SHORT $$EN58
1344 $$IF58:
1345
1346 call REPORT_STATUS ;AN000;
1347 call EXIT_PROG ;AN000;
1348
1349 ; $ENDIF
1350 $$EN58:
1351 page
1352 ;*********************************** CNS ***************************************
1353 RELOAD_CURDIR PROC NEAR
1354
1355 ;*****************************************************************************
1356 ;
1357 ; We have an interesting problem here. What if the user is assigning away
1358 ; his current drive? Here's the solution:
1359 ;
1360 ; o We get the current drive here.
1361 ; o We reload the mapping table.
1362 ; o We set the current drive.
1363 ;
1364 MOV AH,Get_Default_Drive ;(19H)
1365 INT DOS_CALL
1366
1367 PUSH AX ; save away the table
1368
1369 MOV AX,(MPLEX_ID SHL 8)+MPLEX_GET_SEG ;(0601H) Get the SEG of the installed ASSIGN
1370 INT MULTIPLEXOR ;(2FH) in ES
1371
1372 mov si,offset drives ;move in the new drive table
1373 mov di,si
1374 mov cx,26 ; move a-z
1375 CLI
1376 rep movsb ;
1377 STI
1378
1379 POP DX ; restore the old current drive
1380 MOV AH,Set_Default_Drive ;(0EH)
1381 INT DOS_CALL
1382
1383 call EXIT_PROG ;go_home:
1384
1385 INT PGM_TERM ;(20H) Exit SHOULD not return, but be safe
1386
1387 ret
1388
1389 RELOAD_CURDIR ENDP
1390 ;*********************************** CNS ***************************************
1391 ;Input: Parser control block
1392 ;Output: Result Parser control block
1393 ;Register usage: AX,BX,CX,DX,ES,DS,SI,DI
1394 ;
1395 ;
1396 ;*********************************** CNS ***************************************
1397
1398 CHK_PARSER PROC NEAR
1399
1400 xor cx,cx ;an000; clear out cx
1401 xor ax,ax ;AN000; clear out ax
1402 mov al,String_ctr ;AN000; grab current assign ctr
1403 mov bx,0002h ;an000; set bx to 2
1404 div bl ;AN000; divide so we get rem.
1405 cmp RES_TYPE,2 ;an000; check for 1st drive
1406 ; $IF E,AND ;AN000; drive letter?
1407 JNE $$IF61
1408 cmp ah,EVENX ;AN000; and no remainder?
1409 ; $IF E ;AN000;
1410 JNE $$IF61
1411 inc STRING_CTR ;AN000; increment counter
1412 mov PARMS_AVAIL,'y' ;AN000; signal parms entered
1413 push ax ;AN000; save ax
1414 mov al,res_itag ;AN000; grab parm entered
1415 mov drv_x,al ;AN000; save it for later use
1416 call drvchk ;AC000; check for valid drive
1417 cbw ;AC000; convert drive byte found to a word
1418 mov bx,offset drives-1 ;AC000; get the drive table
1419 add bx,ax ;AC000; get the drive address
1420 mov save_dr_tbl_ptr,bx ;an000; save the drive table pointer
1421 pop ax ;an000; restore ax
1422 ; $ENDIF ;AN000;
1423 $$IF61:
1424
1425 cmp RES_TYPE,2 ;AN000; check for 2nd drive
1426 ; $IF E,AND ;AN000; drive entered?
1427 JNE $$IF63
1428 cmp ah,EVENX ;AN000; and not first?
1429 ; $IF NE ;AN000;
1430 JE $$IF63
1431 inc STRING_CTR ;AN000; increment counter
1432 mov PARMS_AVAIL,'y' ;AN000; signal parms entered
1433 push ax ;AN000; save ax
1434 mov al,res_itag ;AN000; grab parm entered
1435 mov drv_x,al ;AN000; save it for later use
1436 call drvchk ;AC000; if so see if it was valid
1437 mov bx,save_dr_tbl_ptr ;an000; set bx to drive table
1438 mov [bx],al ;AC000; if valid update the table
1439 mov POS_FLAG,'y' ;AN000; yes you have valid positionals
1440 pop ax ;an000; restore ax
1441 mov Parm_Ptr1,si ;an002; dms;ptr to 1st. parm
1442 ; $ENDIF ;AN000;
1443 $$IF63:
1444
1445 cmp RES_SYN,0 ;AN000; See if a switch was specified
1446 ; $IF NE ;AN000; If so,
1447 JE $$IF65
1448 mov STATUS_flag,1 ;AN000; set the status flag on
1449 mov PARMS_AVAIL,'y' ;AN000; and report that a valid parameter
1450 mov byte ptr SW_Syn1,20h ;an000; remove switch from list
1451 mov byte ptr SW_Syn2,20h ;an000; remove switch from list
1452 mov Parm_Ptr1,si ;an002; dms;ptr to 1st. parm
1453 ; $ENDIF ;AN000; was on the command line
1454 $$IF65:
1455
1456 ret ;AN000;
1457
1458
1459 CHK_PARSER ENDP
1460
1461 page
1462 ;*********************************** CNS ***************************************
1463 ;
1464 ; check drive validity
1465 ;
1466 drvchk:
1467
1468 sub al,"A" ; NS- error checking
1469 ; $IF NB ;AN000; ;if alphabetic,
1470 JB $$IF67
1471
1472 push es
1473 push bx
1474 push ax
1475
1476 les bx,inv
1477 cmp al,es:[bx].sysi_ncds ;AN000; ;NS- check in case current directory
1478 ; $IF NAE ;AN000; ;NS- has been altered
1479 JAE $$IF68
1480
1481
1482 les bx,es:[bx].sysi_cds
1483 push bx
1484 mov bl,size curdir_list
1485 mul bl
1486 pop bx
1487 add bx,ax
1488 test es:[bx].curdir_flags,curdir_inuse
1489 ; $IF NZ ;AC000;
1490 JZ $$IF69
1491
1492 pop ax
1493 pop bx
1494 pop es
1495 inc al
1496
1497 ret
1498
1499 ; $ENDIF ;AC000; curdir in use?
1500 $$IF69:
1501 ; $ENDIF ;AC000; curdir been altered?
1502 $$IF68:
1503 ; $ENDIF ;AC000; alphabetic?
1504 $$IF67:
1505
1506 mov ax,parse10 ;AN000; Invalid parameter
1507 call PARSE_ERR ;an000; display the error & end
1508
1509 ;******************************* CNS *******************************************
1510 ;Purpose: Print the mapping status of the drive table.
1511 ;Input : Drive table
1512 ;Registers affected: BX,CX,DX,AX
1513 ;
1514 ;Output : Display of all drive values stored not equal to their sequential
1515 ; storage address
1516 ;
1517 ;******************************* CNS *******************************************
1518 REPORT_STATUS PROC NEAR
1519
1520 push es ;an000; save es
1521 push es ;an000; swap es with
1522 pop ax ;an000; ax
1523 mov curr_es_seg,ax ;an000; save es in curr_es_seg
1524
1525 mov ax,0601h ;an000; our int 2fh
1526 int 2fh ;an000; returns segment of drive vector
1527 assume es:nothing ;an000; tell the linker
1528
1529 mov cl,01 ;AN000; ;initialize the counter
1530 ;AN000; advance to next drive
1531 mov bx,offset drives ;AN000; load drive table
1532 ; $DO
1533 $$DO73:
1534 cmp cl,26 ;AN000; see if we scanned all drives
1535
1536 ; $LEAVE A ;AN000; exit loop if we have
1537 JA $$EN73
1538
1539 cmp cl,es:[bx] ;AN000; ;compare the table value
1540 ;to the table contents
1541 ; $IF NE ;AN000;
1542 JE $$IF75
1543 push bx ;an000; save bx - we stomp it
1544 push cx ;an000; save cx - we stomp it
1545 mov al,es:[bx] ;AN000; get the table contents to convert
1546 push es ;an000; save es for print
1547 mov bx,curr_es_seg ;an000; get the current segment
1548 mov es,bx ;an000; get the segment into es
1549 assume es:code ;an000; tell linker it is code
1550
1551 add cl,40H ;AN000; convert to ascii representation
1552 add al,40h ;an000; convert to ascii
1553 mov OLD_DRV,cl ;AN000; place in parms for printing
1554 mov NEW_DRV,al ;AN000; by message retriever
1555
1556 mov ax,0002h ;an000; message #2
1557 mov bx,stdout ;an000; print to standard out
1558 mov cx,0002h ;an000; two replaceable parms
1559 mov si,offset sublist1 ;an000; offset of sublist
1560 mov di,0000h ;an000; no buffer for user input
1561 mov dl,no_input ;AN000; no user input to mes. ret.
1562 mov dh,utility_msg_class ;an000; utility messages only
1563
1564 call SYSDISPMSG ;AN000; ;go to message retriever
1565 pop es ;an000; restore es
1566 assume es:nothing ;an000; tell the linker
1567 pop cx ;an000; restore cx
1568 pop bx ;an000; restore bx
1569
1570 ; $ENDIF ;AN000;
1571 $$IF75:
1572
1573 inc bx ;an000; next drive in vector
1574 inc cl ;AN000; next letter to address
1575
1576 ; $ENDDO ;AN000;
1577 JMP SHORT $$DO73
1578 $$EN73:
1579 pop es ;an000; restore es
1580 assume es:code ;an000; tell the linker
1581
1582 ret ;AN000;
1583
1584 REPORT_STATUS ENDP
1585 page
1586 ;******************************* CNS *******************************************
1587 ; Purpose: Exit program
1588 ; Input : Error code AL
1589 ; Output : Error code AL
1590 ;
1591 ;******************************* CNS *******************************************
1592 EXIT_PROG PROC NEAR
1593
1594
1595
1596 mov ah,EXIT ;AC000;(4ch) RETURN TO DOS WITH ERRORLEVEL
1597 int DOS_CALL ;AC000;
1598
1599
1600 ret ;AC000;
1601
1602 EXIT_PROG ENDP
1603 ;******************************* CNS *******************************************
1604
1605 ;=========================================================================
1606 ; PARSE_ERR : This routine prints out the applicable parse
1607 ; error that is returned in AX by SYSPARSE.
1608 ;
1609 ; Inputs : AX - Parse error number to be printed
1610 ; Outputs : Applicable parse error
1611 ;=========================================================================
1612
1613
1614 PARSE_ERR proc near ;an000; dms;report an error
1615
1616 push ax ;an000;save ax
1617 mov byte ptr ds:[si],0 ;an002;null terminate string
1618 mov dx,Parm_Ptr1 ;an002;move ptr to sublist
1619 mov Parse_Sub_Off,dx ;an002;
1620 mov Parse_Sub_Seg,ds ;an002;
1621
1622 mov bx,STDERR ;an000;print to standard out
1623 mov cx,1 ;an002;1 replaceable parm
1624 mov si,offset Parse_Sublist ;an002;sublist for replaceable parm
1625 mov dl,NO_INPUT ;AN000;no input to message retriever
1626 mov dh,PARSE_ERR_CLASS ;AN000;display parse errors
1627 call SYSDISPMSG ;AN000;display error
1628
1629 pop ax ;AN000;restore errcode
1630 call EXIT_PROG ;AN000;exit ASSIGN due to error
1631
1632
1633 PARSE_ERR endp ;an000; dms;
1634
1635 Release_Environment proc near ;an001; dms;
1636
1637 push ax ;save regs ;an001; dms;
1638 push bx ; ;an001; dms;
1639 push es ; ;an001; dms;
1640 mov ah,Get_PSP ; get the PSP segment ;an001; dms;
1641 int 21h ; invoke INT 21h ;an001; dms;
1642 mov es,bx ; BX contains PSP segment - put in ES ;an001; dms;
1643 mov bx,word ptr es:[PSP_Env]; get segment of environmental vector ;an001; dms;
1644 mov es,bx ; place segment in ES for Free Memory ;an001; dms;
1645 mov ah,Dealloc ; Free Allocated Memory ;an001; dms;
1646 int 21h ; invoke INT 21h ;an001; dms;
1647 pop es ; restore regs ;an001; dms;
1648 pop bx ; ;an001; dms;
1649 pop ax ; ;an001; dms;
1650
1651 ret ; return to caller ;an001; dms;
1652
1653 Release_Environment endp
1654
1655 Close_Handles proc near ;close handles 0-4 ;an001; dms;
1656
1657 push bx ;save regs ;an001; dms;
1658 mov bx,4 ;close all standard files ;an001; dms;
1659
1660 Close_Handle_Loop:
1661
1662 mov ah,Handle_Close ;close file handle ;an001; dms;
1663 int 21h ; ;an001; dms;
1664 dec bx ;next handle ;an001; dms;
1665 jns Close_Handle_Loop ;continue ;an001; dms;
1666
1667 pop bx ;restore regs ;an001; dms;
1668 ret ; ;an001; dms;
1669
1670 Close_Handles endp ; ;an001; dms;
1671
1672 Get_Vectors proc near ;get original vectors ;an001; dms;
1673
1674 mov ax,(GET_INTERRUPT_VECTOR SHL 8)+ABS_DISK_READ ;(3525h) get the int 25 vector
1675 int DOS_CALL
1676
1677 mov word ptr [int25_vec],bx
1678 mov word ptr [int25_vec+2],es
1679
1680 mov ax,(GET_INTERRUPT_VECTOR SHL 8)+ABS_DISK_WRITE ;(3526H) get the int 26 vector
1681 int DOS_CALL
1682
1683 mov word ptr [int26_vec],bx
1684 mov word ptr [int26_vec+2],es
1685
1686 mov ax,(GET_INTERRUPT_VECTOR SHL 8)+MULTIPLEXOR ;(352FH) get the int 2F vector
1687 int DOS_CALL
1688
1689 mov word ptr [int2F_vec],bx
1690 mov word ptr [int2F_vec+2],es
1691
1692 mov ax,(Get_Interrupt_Vector SHL 8)+DOS_CALL ;(3521H)
1693 int DOS_CALL
1694
1695 mov word ptr cs:[system],bx
1696 mov word ptr cs:[system+2],es
1697
1698 MOV AX,(MPLEX_ID SHL 8)+MPLEX_R_U_THERE ;(0600H) See if we are in system already
1699 INT MULTIPLEXOR ;(2FH)
1700
1701 OR AL,AL
1702 ; $IF NZ ;AC000; NOT INSTALLED
1703 JZ $$IF78
1704
1705 call RELOAD_CURDIR ;AC000;
1706
1707 ; $ENDIF
1708 $$IF78:
1709
1710 ret ; ;an001; dms;
1711
1712 Get_Vectors endp ; ;an001; dms;
1713
1714
1715 Set_Vectors proc near ;set to new vectors ;an001; dms;
1716
1717 mov ah,Get_Default_Drive ;(19H)
1718 int DOS_CALL
1719
1720 inc al
1721 mov [default_drive],al ;NS- add one to the value to get the
1722 call mapdrv1 ;NS- actual drive value before mapping
1723
1724 dec al ;NS- dec one to setup for select function
1725 mov dl,al ;select its replacement
1726 mov ah,Set_Default_Drive ;(0EH)
1727 int DOS_CALL
1728 ;NS- Set up hooks
1729 mov dx,offset int25 ;set int 25 vector
1730 mov ax,(SET_INTERRUPT_VECTOR SHL 8) + ABS_DISK_READ ;(2525H)
1731 int DOS_CALL
1732 ;NS- setup new seg
1733 mov dx,offset int26 ;set int 26 vector
1734 mov ax,(SET_INTERRUPT_VECTOR SHL 8) + ABS_DISK_WRITE ;(2526H)
1735 int DOS_CALL
1736 ;NS- Hook in resident portion
1737 mov dx,offset int2F ;set int 2F vector
1738 mov ax,(SET_INTERRUPT_VECTOR SHL 8) + MULTIPLEXOR ;(252FH)
1739 int DOS_CALL
1740
1741 mov dx,offset ASSIGN_HANDLER ;set the system int vector
1742 mov ax,(SET_INTERRUPT_VECTOR SHL 8) + DOS_CALL ;(2521H)
1743 int DOS_CALL
1744
1745 call Close_Handles ;close handles 0-4 ;an001; dms;
1746 call Release_Environment ;release the environmental vector ;an001; dms;
1747
1748 mov dx,prog_size ;end but stay resident
1749 mov ah,KEEP_PROCESS ;(31h) NS- ASSIGN loaded in mem
1750 int DOS_CALL
1751
1752 ret ; ;an001; dms;
1753
1754 Set_Vectors endp ; ;an001; dms;
1755
1756
1757
1758 .xlist
1759 MSG_SERVICES <MSGDATA>
1760 msg_services <NEARmsg>
1761 msg_services <LOADmsg>
1762 msg_services <DISPLAYmsg,CHARmsg>
1763 msg_services <assign.cla,assign.cl1>
1764 msg_services <assign.cl2>
1765 .list
1766
1767 include msgdcl.inc
1768
1769 code ends
1770 end ENTRY_POINT
1771 \1a
The original sources of MS-DOS 1.25, 2.0, and 4.0 for reference purposes