From 2d04cacc5322951f187bb17e017c12920ac8ebe2 Mon Sep 17 00:00:00 2001 From: Mark Zbikowski Date: Thu, 25 Apr 2024 21:24:10 +0100 Subject: MZ is back! --- v4.0/src/CMD/FORMAT/FORINIT.ASM | 1255 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 1255 insertions(+) create mode 100644 v4.0/src/CMD/FORMAT/FORINIT.ASM (limited to 'v4.0/src/CMD/FORMAT/FORINIT.ASM') diff --git a/v4.0/src/CMD/FORMAT/FORINIT.ASM b/v4.0/src/CMD/FORMAT/FORINIT.ASM new file mode 100644 index 0000000..f4fd274 --- /dev/null +++ b/v4.0/src/CMD/FORMAT/FORINIT.ASM @@ -0,0 +1,1255 @@ + +; + + +;***************************************************************************** +;***************************************************************************** +;UTILITY NAME: FORMAT.COM +; +;MODULE NAME: FORINIT.SAL +; +; +; +; 旼컴컴컴컴컴� +; � Main_Init � +; 읕쩡컴컴컴컴� +; � +; 넬컴컴컴컴컴컴컴컴커 旼컴컴컴컴컴컴컴커 +; 척Init_Input_Output쳐컴컫큁reload_Messages� +; 냅컴컴컴컴컴컴컴컴켸 냅컴컴컴컴컴컴컴컴� +; � 넬컴컴컴컴컴컴컴컴컴커 旼컴컴컴컴컴컴컴컴컴� +; � 척Check_For_FS_Switch쳐컫큁arse_For_FS_Switch� +; � 냅컴컴컴컴컴컴컴컴컴켸 냅컴컴컴컴컴컴컴컴컴켸 +; � � 넬컴컴컴컴컴컴컴� +; � � 윱EXEC_FS_Format� +; � � 읕컴컴컴컴컴컴켸 +; � 넬컴컴컴컴컴컴컴컴컴커 旼컴컴컴컴컴컴컴� +; � 윱Parse_Command_Line 쳐컴퀹nterpret_Parse� +; � 읕컴컴컴컴컴컴컴컴컴� 읕컴컴컴컴컴컴컴� +; 넬컴컴컴컴컴컴컴컴컴컴커 旼컴컴컴컴컴컴컴컴커 +; 척Validate_Target_Drive쳇퀰heck_Target_Drive� +; 냅컴컴컴컴컴컴컴컴컴컴켸냅컴컴컴컴컴컴컴컴컴� +; � 넬컴컴컴컴컴컴컴컴커 +; � 척Check_For_Network� +; � 냅컴컴컴컴컴컴컴컴켸 +; � 넬컴컴컴컴컴컴컴컴컴컴커 +; � 윱Check_Translate_Drive� +; � 읕컴컴컴컴컴컴컴컴컴컴� +; 넬컴컴컴컴컴컴� +; 윱Hook_CNTRL_C� +; 읕컴컴컴컴컴켸 +; +; +; Change List: AN000 - New code DOS 3.3 spec additions +; AC000 - Changed code DOS 3.3 spec additions +;***************************************************************************** +;***************************************************************************** + +data segment public para 'DATA' + + +Command_Line db NO +PSP_Segment dw 0 + +;These should stay togather +; --------------------------------------- ; ;AN000; +FS_String_Buffer db 13 dup(" ") ; ;AN000; +FS_String_End db "FMT.EXE",0 ; ;AN000; +Len_FS_String_End equ $ - FS_String_End ; ;AN000; + ; ;AN000; +;---------------------------------------- + +Vol_Label_Count db 80h ;an000; dms;max. string length +Vol_Label_Len db 00h ;an000; dms;len. entered +Vol_Label_Buffer db 80h dup(0) ; ;AN000; +Vol_Label_Buffer_Length equ $ - Vol_Label_Buffer ; ;AN000; + +Command_Line_Buffer db 80h dup(0) ; ;AN000; +Command_Line_Length equ $ - Command_Line_Buffer ; ;AN000; +Fatal_Error db 0 ; ;AN000; + +Command_Old_Ptr dw ? + +data ends + +code segment public para 'CODE' + assume cs:code,ds:data,es:data +code ends + +; +;***************************************************************************** +; Include files +;***************************************************************************** +; + +.xlist +INCLUDE FORCHNG.INC +INCLUDE FORMACRO.INC +INCLUDE SYSCALL.INC +INCLUDE IOCTL.INC +INCLUDE FOREQU.INC +INCLUDE FORPARSE.INC +INCLUDE FORSWTCH.INC +.list + +; +;***************************************************************************** +; Public Data +;***************************************************************************** +; + + Public FS_String_Buffer + Public Command_Line + Public Fatal_Error + Public Vol_Label_Count + Public Vol_Label_Buffer + Public PSP_Segment + Public Command_Old_Ptr + + +; +;***************************************************************************** +; Public Routines +;***************************************************************************** +; + + + Public Main_Init + +; +;***************************************************************************** +; External Routine Declarations +;***************************************************************************** +; + + Extrn Main_Routine:Near + Extrn SysLoadMsg:Near + Extrn Get_11_Characters:Near + Extrn ControlC_Handler:Near + Extrn SysDispMsg:Near + Extrn SysLoadMsg:Near + +IF FSExec ;/FS: conditional assembly ;an018; dms; + + Extrn EXEC_FS_Format:Near + +ENDIF ;/FS: conditional assembly end ;an018;dms; + + Extrn GetDeviceParameters:Near +; +;***************************************************************************** +; External Data Declarations +;***************************************************************************** +; + + Extrn SwitchMap:Word + Extrn ExitStatus:Byte + Extrn Drive:Byte + Extrn DriveLetter:Byte + Extrn TranSrc:Byte + Extrn TrackCnt:Word + Extrn NumSectors:Word + Extrn BIOSFile:Byte + Extrn DOSFile:Byte + Extrn CommandFile:Byte + Extrn MsgNeedDrive:Byte + Extrn MsgBadVolumeID:Byte + Extrn MsgBadDrive:Byte + Extrn MsgAssignedDrive:Byte + Extrn MsgNetDrive:Byte + Extrn Parse_Error_Msg:Byte + Extrn Extended_Error_Msg:Byte + Extrn SizeMap:Byte + Extrn MsgSameSwitch:Byte + Extrn Org_AX:word ;an000; dms;AX on prog. entry + Extrn DeviceParameters:Byte ;an000; dms; + Extrn FAT_Flag:Byte ;an000; dms; + Extrn Sublist_MsgParse_Error:Dword ;an000; dms; + + +code segment public para 'CODE' + +;***************************************************************************** +;Routine name: Main_Init +;***************************************************************************** +; +;Description: Main control routine for init section +; +;Called Procedures: Message (macro) +; Check_DOS_Version +; Init_Input_Output +; Validate_Target_Drive +; Hook_CNTRL_C +; +;Input: None +; +;Output: None +; +;Change History: Created 5/1/87 MT +; +;Psuedocode +; --------- +; +; Get PSP segment +; Fatal_Error = NO +; Setup I/O (CALL Init_Input_Output) +; IF !Fatal_Error +; Check target drive letter (CALL Validate_Target_Drive) +; IF !Fatal_Error +; Set up Control Break (CALL Hook_CNTRL_C) +; IF !Fatal_Error +; CALL Main_Routine +; ENDIF +; ENDIF +; ENDIF +; Exit program +;***************************************************************************** + +Procedure Main_Init ; ;AN000; + + + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + DOS_Call GetCurrentPSP ;Get PSP segment address + mov PSP_Segment,bx ;Save it for later + mov Fatal_Error,No ;Init the error flag ;AN000; + call Init_Input_Output ;Setup messages and parse ;AN000; + cmp Fatal_Error,Yes ;Error occur? ;AN000; +; $IF NE ;Nope, keep going ;AN000; + JE $$IF1 + call Validate_Target_Drive ;Check drive letter ;AN000; + cmp Fatal_Error,Yes ;Error occur? ;AN000; +; $IF NE ;Nope, keep going ;AN000; + JE $$IF2 + call Hook_CNTRL_C ;Set CNTRL -Break hook ;AN000; + cmp Fatal_Error,Yes ;Error occur? ;AN000; +; $IF NE ;Nope, keep going ;AN000; + JE $$IF3 + call Main_Routine ;Go do the real program ;AN000; +; $ENDIF ; ;AN000; +$$IF3: +; $ENDIF ; ;AN000; +$$IF2: +; $ENDIF ; ;AN000; +$$IF1: + mov al,ExitStatus ;Get Errorlevel ;AN000; + DOS_Call Exit ;Exit program ;AN000; + int 20h ;If other exit fails ;AN000; + +Main_Init endp ; ;AN000; + +;***************************************************************************** +;Routine name: Init_Input_Output +;***************************************************************************** +; +;Description: Initialize messages, Parse command line, allocate memory as +; needed. If there is a /FS switch, go handle it first as +; syntax of IFS format may be different from FAT format. +; +;Called Procedures: Preload_Messages +; Parse_For_FS_Switch +; Parse_Command_Line +; +;Change History: Created 4/1/87 MT +; +;Input: PSP command line at 81h and length at 80h +; Fatal_Error = No +; +;Output: Fatal_Error = YES/NO +; +;Psuedocode +;---------- +; +; Load messages (CALL Preload_Messages) +; IF !Fatal_Error +; See if EXEC another file system (CALL Parse_For_FS_Switch) +; IF !FATAL_Error (in this case means FS was found and exec'd) +; CALL Parse_Command_Line +; IF !Fatal_Error +; CALL Interpret_Parse +; ENDIF +; ENDIF +; ENDIF +; ret +;***************************************************************************** + +Procedure Init_Input_Output ; ;AN000; + + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + call Preload_Messages ;Load up message retriever ;AN000; + +IF FSExec ;/FS: conditional assembly ;an018; dms; + + cmp Fatal_Error,YES ;Quit? ;AN000; +; $IF NE ;Nope, keep going ;AN000; + JE $$IF7 + call Check_For_FS_Switch ;Specify FS other than FAT? ;AN000; + +ENDIF ;/FS: conditional assembly end ;an018;dms; + + cmp Fatal_Error,YES ;drive is invalid for format? ;an000; +; $if ne ;no ;an000; + JE $$IF8 + call Parse_Command_Line ;Parse in command line input ;AN000; + cmp Fatal_Error,YES ;Quit? ;AN000; +; $IF NE ;Nope, keep going ;AN000; + JE $$IF9 + call Determine_FAT_Non_FAT;see if drive was non_FAT ;an000; + call Check_For_Invalid_Drive;Drive joined? ;an000; +; $ENDIF ; ;AN000; +$$IF9: +; $ENDIF ; ;AN000; +$$IF8: + +IF FSExec ;/FS: conditional assembly ;an018; dms; + +; $ENDIF ; ;an000; +$$IF7: + +ENDIF ;/FS: conditional assembly end ;an018;dms; + + ret ; ;AN000; + +Init_Input_Output endp ; ;AN000; + +;***************************************************************************** +;Routine name: Preload_Messages +;***************************************************************************** +; +;Description: Preload messages using common message retriever routines. +; +;Called Procedures: SysLoadMsg +; +; +;Change History: Created 5/1/87 MT +; +;Input: Fatal_Error = NO +; +;Output: Fatal_Error = YES/NO +; +;Psuedocode +;---------- +; +; Preload All messages (Call SysLoadMsg) +; IF error +; Display SysLoadMsg error message +; Fatal_Error = YES +; ENDIF +; ret +;***************************************************************************** + +Procedure Preload_Messages ; ;AN000; + ; + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + call SysLoadMsg ;Preload the messages ;AN000; +; $IF C ;Error? ;AN000; + JNC $$IF13 + call SysDispMsg ;Display preload msg ;AN000; + mov Fatal_Error, YES ;Indicate error exit ;AN000; +; $ENDIF ; ;AN000; +$$IF13: + ret ; ;AN000; + +Preload_Messages endp ; ;AN000; + + + + +IF FSExec ;/FS: conditional assembly ;an018; dms; + + +;***************************************************************************** +;Routine name: Check_For_FS_Switch +;***************************************************************************** +; +;Description: Parse to see if /FS switch entered, and if so, go EXEC the +; asked for file system. Set Fatal_Error = YES if FS found +; If we do find /FS, we need to build a string of xxxxxfmt.exe,0 +; where xxxxx is the first 5 characters or less of /FS:xxxxx +; +;Called Procedures: Parse_For_FS_Switch +; EXEC_FS_Format +; +;Change History: Created 6/21/87 MT +; +;Input: Fatal_Error = NO +; +;Output: Fatal_Error = YES/NO +; Exit_Status set +; +;Psuedocode +;---------- +; +; Parse for /FS switch (CALL Parse_For_FS_Switch) +; IF !FATAL_ERROR +; IF /FS found +; Point at what was entered on /FS:xxxxx +; DO +; LEAVE end of entered string +; Got good char, move into path +; ENDDO already got 5 chars (max in xxxxxfmt.exe) +; Tack on the rest of the string (fmt.exe,0) +; Go exec the needed format (CALL EXEC_FS_Format) +; ENDIF +; ENDIF +; ret +;***************************************************************************** + +Procedure Check_For_FS_Switch ; ;AN000; + ;AN000; + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + call Parse_For_FS_Switch ;See if /FS entered ;AN000; + cmp Fatal_Error,YES ;Bad stuff entered?? ;AN000; +; $IF NE ;Nope, cruise onward ;AN000; + JE $$IF15 + cmp Switch_String_Buffer.Switch_Pointer,offset Switch_FS_Control.Keyword ; ;AN000; +; $IF E ;We got the switch ;AN000; + JNE $$IF16 + mov Switch_FS_Control.Keyword,20h ;an000; dms;remove switch from table + test SwitchMap,Switch_FS ;Have this already? ;AN002; +; $IF Z ;Nope ;AN002; + JNZ $$IF17 + push ds ;Get addressibility ;AN000; + pop es ; " " " " ;AN000; + ; + assume ds:nothing,es:data ; ;AN000; + ; + mov ax,Switch_String_Buffer.Switch_String_Seg ;Get the entered FS ;AN000; + mov ds,ax ; ;AN000; + mov si,es:Switch_String_Buffer.Switch_String_Off ; ;AN000; + mov cx,FS_String_Max_Length ; ;AN000; + mov di,offset es:FS_String_Buffer ; ;AN000; +; $DO ;Move whatever user entered ;AN000; +$$DO18: + cmp byte ptr [si],ASCIIZ_End ;End of the string? ;AN000; +; $LEAVE E ;Yep ;AN000; + JE $$EN18 + movsb ;Put character in buffer ;AN000; + dec cx ;Dec character counter + cmp cx,0 ;Nope, reached max # chars? ;AN000; +; $ENDDO E ;Yes ;AN000; + JNE $$DO18 +$$EN18: + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + mov cx,Len_FS_String_End ;Tack the FMT.EXE onto it ;AN000; + mov si,offset es:FS_String_End ;DI still points at string ;AN000; + rep movsb ;We now have Asciiz path! ;AN000; + call EXEC_FS_Format ;Go try to EXEC it..... ;AN000; +; $ELSE ; ;AN002; + JMP SHORT $$EN17 +$$IF17: + Message msgSameSwitch ; ;AN002; + mov Fatal_Error,Yes ; ;AN002; +; $ENDIF ; ;AN002; +$$EN17: +; $ENDIF ; ;AN000; +$$IF16: +; $ENDIF ; ;AN000; +$$IF15: + ret ; ;AN000; + +Check_For_FS_Switch endp ; ;AN000; + +;***************************************************************************** +;Routine name: Parse_For_FS_Switch +;***************************************************************************** +; +;Description: Copy the command line. Parse the new command line (Parse routines +; destroy the data being parsed, so need to work on copy so that +; complete command line can be passed to child format). +; The only thing we care about is if the /FS: switch exists, so +; parse until end of command line found. If there was an error, +; and it occurred on the /FS switch, then give parse error, +; otherwise ignore the parse error, because it might be something +; file system specific that doesn't meet DOS syntax rules. Also +; check for drive letter, as it is alway required. +; +;Called Procedures: Message (macro) +; SysLoadMsg +; Preload_Error +; SysParse +; +;Change History: Created 5/1/87 MT +; +;Input: Command line at 80h in PSP +; Fatal_Error = NO +; PSP_Segment +; +;Output: Fatal_Error = YES/NO +; +;Psuedocode +;---------- +; Copy command line to buffer +; DO +; Parse command line (Call SysParse) +; LEAVE end of parse +; ENDDO found /FS +; IF drive letter not found (This assumes drive letter before switches) +; Tell user +; Fatal_Error = YES +; ENDIF +; ret +;***************************************************************************** + +Procedure Parse_For_FS_Switch ; ;AN000; + ; + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + mov Drive_Letter_Buffer.Drive_Number,Init ; ;AN000; + mov cx,PSP_Segment ;Get segment of PSP ;AN000; + mov ds,cx ; " " " " ;AN000; + assume ds:nothing ; + ; + mov si,Command_Line_Parms ;Point at command line ;AN000; + mov di,offset data:Command_Line_Buffer ;Where to put a copy of it ;AN000; + mov cx,Command_Line_Length ;How long was input? ;AN000; + repnz movsb ;Copy it ;AN000; + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + xor cx,cx ; ;AN000; + xor dx,dx ;Required for SysParse call ;AN000; + mov si,offset Command_Line_Buffer ;Pointer to parse line ;AN000; + mov di,offset Switch_FS_Table ;Pointer to control table ;AN000; +; $DO ;Setup parse call ;AN000; +$$DO25: + call SysParse ;Go parse ;AN000; + cmp ax,End_Of_Parse ;Check for end of parse ;AN000; +; $LEAVE E,OR ;Exit if it is end, or ;AN000; + JE $$EN25 + cmp ax,Operand_Missing ; exit if positional missing ;AN000; +; $LEAVE E ;In other words, no drive letter;AN000; + JE $$EN25 + cmp Switch_String_Buffer.Switch_Pointer,offset Switch_FS_Control.Keyword ;AN000; +; $ENDDO E ;Exit if we find /FS ;AN000; + JNE $$DO25 +$$EN25: + cmp Drive_Letter_Buffer.Drive_Type,Type_Drive ;Check for drive letter found;AN000; +; $IF NE ;Did we not find one? ;AN000; + JE $$IF28 + MESSAGE msgNeedDrive ;Must enter drive letter ;AN000; + mov Fatal_Error,Yes ;Indicate error on exit ;AN000; +; $ENDIF ; ;AN000; +$$IF28: + ret ; ;AN000; + +Parse_For_FS_Switch endp ; ;AN000; + + +ENDIF ;/FS: conditional assembly end ;an018;dms; + + +;***************************************************************************** +;Routine name: Parse_Command_Line +;***************************************************************************** +; +;Description: Parse the command line. Check for errors, and display error and +; exit program if found. Use parse error messages except in case +; of no parameters, which has its own message +; +;Called Procedures: Message (macro) +; SysParse +; Interpret_Parse +; +;Change History: Created 5/1/87 MT +; +;Input: Fatal_Error = NO +; PSP_Segment +; +;Output: Fatal_Error = YES/NO +; +; +;Psuedocode +;---------- +; +; Assume Fatal_Error = NO on entry +; SEARCH +; EXITIF Fatal_Error = YES,OR (This can be set by Interpret_Parse) +; Parse command line (CALL SysParse) +; EXITIF end of parsing command line +; Figure out last thing parsed (Call Interpret_Parse) +; ORELSE +; See if parse error +; LEAVE parse error,OR +; See what was parsed (Call Interpret_Parse) +; LEAVE if interpret error such as bad volume label +; ENDLOOP +; Display parse error message and print error operand +; Fatal_Error = YES +; ENDSRCH +; ret +;***************************************************************************** + +Procedure Parse_Command_Line ; ;AN000; + + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + push ds + mov cx,PSP_Segment ;Get segment of PSP ;AN000; + mov ds,cx ; " " " " ;AN000; + + assume ds:nothing,es:data + + xor cx,cx ;Parse table @DI ;AN000; + xor dx,dx ;Parse line @SI ;AN000; + mov si,Command_Line_Parms ;Pointer to parse line ;AN000; + mov word ptr es:Command_Old_Ptr,si + mov di,offset es:Command_Line_Table ;Pointer to control table ;AN000; +; $SEARCH ;Loop until all parsed ;AN000; +$$DO30: + cmp es:Fatal_Error,Yes ;Interpret something bad? ;AN000; +; $EXITIF E,OR ;If so, don't parse any more ;AN000; + JE $$LL31 + call SysParse ;Go parse ;AN000; + cmp ax,End_Of_Parse ;Check for end of parse ;AN000; +; $EXITIF E ;Is it? ;AN000; + JNE $$IF30 +$$LL31: + ;All done ;AN000; +; $ORELSE ;Not end ;AN000; + JMP SHORT $$SR30 +$$IF30: + cmp ax,0 ;Check for parse error ;AN000; +; $LEAVE NE ;Stop if there was one ;AN000; + JNE $$EN30 + mov word ptr es:Command_Old_Ptr,si + call Interpret_Parse ;Go find what we parsed ;AN000; +; $ENDLOOP ;Parse error, see what it was ;AN000; + JMP SHORT $$DO30 +$$EN30: + mov byte ptr ds:[si],0 + push di + push ax + mov di,offset es:Sublist_MsgParse_Error + mov ax,word ptr es:Command_Old_Ptr + mov word ptr es:[di+2],ax + mov word ptr es:[di+4],ds + pop ax + pop di + PARSE_MESSAGE ;Display parse error ;AN000; + mov es:Fatal_Error,YES ;Indicate death! ;AN000; +; $ENDSRCH ; ;AN000; +$$SR30: + pop ds ; ;AN000; + ret ; ;AN000; + +Parse_Command_Line endp ; ;AN000; + +;***************************************************************************** +;Routine name: Interpret_Parse +;***************************************************************************** +; +;Description: Set the SwitchMap field with the switches found on the +; command line. Get the drive letter. /FS will be handled before +; here, will not be seen in this parse or accepted. Also, if /V +; see if volume label entered and verify it is good, setting up +; FCB for later create +; +;Called Procedures: Get_11_Characters +; +;Change History: Created 5/1/87 MT +; +;Input: Fatal_Error = NO +; +;Output: SwitchMap set +; DriveLetter set +; DriveNum set A=0,B=1 etc... +; Command_Line = YES/NO +; Fatal_Error = YES/NO +; +;Psuedocode +;---------- +; +; IF Drive letter parsed +; Drive = Parsed drive number -1 +; DriveLetter = (Parsed drive number - 1) +'A' +; ENDIF +; IF /1 +; or SwitchMap,Switch_1 +; ENDIF +; IF /4 +; or SwitchMap,Switch_4 +; ENDIF +; IF /8 +; or SwitchMap,Switch_8 +; ENDIF +; IF /S +; or SwitchMap,Switch_S +; ENDIF +; IF /BACKUP +; or SwitchMap,Switch_BACKUP +; ENDIF +; IF /B +; or SwitchMap,Switch_B +; ENDIF +; IF /T +; or SwitchMap,Switch_T +; TrackCnt = entered value +; ENDIF +; IF /N +; or SwitchMap,Switch_N +; NumSectors = entered value +; ENDIF +; IF /SELECT +; or SwitchMap,Switch_SELECT +; ENDIF +; IF /V +; or SwitchMap,Switch_V +; IF string entered +; Build ASCIIZ string for next call (CALL Build_String) +; Verify DBCS and setup FCB (CALL Get_11_Characters) +; Command_Line = YES +; IF error +; Invalid label message +; Fatal_Error = YES +; ENDIF +; ENDIF +; ENDIF +; IF /AUTOTEST +; or SwitchMap,Switch_AUTOTEST +; ENDIF +; +; IF /F +; or SwitchMap,Switch_F +; or Size_Map,Item_Tag +; ENDIF +; IF /Z (only if assembled) +; or SwitchMap,Switch_Z +; ENDIF +; ret +;***************************************************************************** + +Procedure Interpret_Parse ; ;AN000; + + push ds ;Save segment ;AN000; + push si ;Restore SI for parser ;AN000; + push cx ; ;AN000; + push di ; + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + cmp byte ptr Drive_Letter_Buffer.Drive_Type,Type_Drive ;Have drive letter? ;AN000; +; $IF E ;Yes, save info ;AN000; + JNE $$IF36 + mov al,Drive_Letter_Buffer.Drive_Number ;Get drive entered ;AN000; + dec al ;Make it 0 based ;AN000; + mov Drive,al ; " " " " ;AN000; + add al,'A' ;Make it a drive letter ;AN000; + mov DriveLetter,al ;Save it ;AN000; +; $ENDIF ; ;AN000; +$$IF36: + cmp Switch_Buffer.Switch_Pointer,offset Switch_1_Control.Keyword ;;AN000; +; $IF E ; ;AN000; + JNE $$IF38 + mov Switch_1_Control.Keyword,20h ;an000; dms;remove switch from table + or SwitchMap,Switch_1 ; ;AN000; +; $ENDIF ; ;AN000; +$$IF38: + cmp Switch_Buffer.Switch_Pointer,offset Switch_4_Control.Keyword ;;AN000; +; $IF E ; ;AN000; + JNE $$IF40 + mov Switch_4_Control.Keyword,20h ;an000; dms;remove switch from table + or SwitchMap,Switch_4 ; ;AN000; +; $ENDIF ; ;AN000; +$$IF40: + cmp Switch_Buffer.Switch_Pointer,offset Switch_8_Control.Keyword ;;AN000; +; $IF E ; ;AN000; + JNE $$IF42 + mov Switch_8_Control.Keyword,20h ;an000; dms;remove switch from table + or SwitchMap,Switch_8 ; ;AN000; +; $ENDIF ; ;AN000; +$$IF42: + cmp Switch_Buffer.Switch_Pointer,offset Switch_S_Control.Keyword ;;AN000; +; $IF E ; ;AN000; + JNE $$IF44 + mov Switch_S_Control.Keyword,20h ;an000; dms;remove switch from table + or SwitchMap,Switch_S ; ;AN000; +; $ENDIF ; ;AN000; +$$IF44: + cmp Switch_Buffer.Switch_Pointer,offset Switch_Backup_Control.Keyword ;AN000; +; $IF E ; ;AN000; + JNE $$IF46 + mov Switch_Backup_Control.Keyword,20h ;an000; dms;remove switch from table + or SwitchMap,Switch_Backup ; ;AN000; +; $ENDIF ; ;AN000; +$$IF46: + cmp Switch_Buffer.Switch_Pointer,offset Switch_Select_Control.Keyword ;AN000; +; $IF E ; ;AN000; + JNE $$IF48 + mov Switch_Select_Control.Keyword,20h ;an000; dms;remove switch from table + or SwitchMap,Switch_Select ; ;AN000; +; $ENDIF ; ;AN000; +$$IF48: + cmp Switch_Buffer.Switch_Pointer,offset Switch_B_Control.Keyword ;AN000; +; $IF E ; ;AN000; + JNE $$IF50 + mov Switch_B_Control.Keyword,20H + or SwitchMap,Switch_B ; ;AN000; +; $ENDIF ; ;AN000; +$$IF50: + cmp Switch_Num_Buffer.Switch_Num_Pointer,offset es:Switch_T_Control.Keyword ;AN000; +; $IF E ; ;AN000; + JNE $$IF52 + mov Switch_T_Control.Keyword,20h ;an000; dms;remove switch from table + mov Switch_Num_Buffer.Switch_Num_Pointer,0 ;Init for next switch ;AN008; + test SwitchMap,Switch_T ;Don't allow if switch already ;AN002; +; $IF Z ; entered ;AN002; + JNZ $$IF53 + or SwitchMap,Switch_T ; ;AN000; + mov ax,Switch_Num_Buffer.Switch_Number_Low ;Get entered tracks ;AN000; + mov TrackCnt,ax ;1024 or less, so always dw ;AN000; +; $ELSE ; ;AN002; + JMP SHORT $$EN53 +$$IF53: + Message msgSameSwitch ; ;AN002; + mov Fatal_Error,Yes ; ;AN002; +; $ENDIF ; ;AN000; +$$EN53: +; $ENDIF ; ;AN002; +$$IF52: + cmp Switch_Num_Buffer.Switch_Num_Pointer,offset Switch_N_Control.Keyword ;AN000; +; $IF E ; ;AN000; + JNE $$IF57 + mov Switch_N_Control.Keyword,20h ;an000; dms;remove switch from table + mov Switch_Num_Buffer.Switch_Num_Pointer,0 ;Init for next switch ;AN008; + test SwitchMap,Switch_N ;Make sure switch not already ;AN002; +; $IF Z ; entered ;AN002; + JNZ $$IF58 + or SwitchMap,Switch_N ; ;AN000; + mov ax,Switch_Num_Buffer.Switch_Number_Low ;Get entered tracks ;AN000; + xor ah,ah ;clear high byte ;an000; + mov NumSectors,ax ;Save tracks per sector ;AN000; +; $ELSE ; ;AN002; + JMP SHORT $$EN58 +$$IF58: + Message msgSameSwitch ; ;AN002; + mov Fatal_Error,Yes ; ;AN002; +; $ENDIF ; ;AN000; +$$EN58: +; $ENDIF ; ;AN002; +$$IF57: + cmp Switch_String_Buffer.Switch_String_Pointer,offset Switch_V_Control.Keyword ;AN000; +; $IF E ;If /v and haven't already done ;AN000; + JNE $$IF62 + mov Switch_String_Buffer.Switch_String_Pointer,0 ;Init for next switch ;AN008; + mov Switch_V_Control.Keyword,20h ;an000; dms;remove switch from table + test SwitchMap,Switch_V ; it - Only allow one /V entry ;AN002; +; $IF Z ; ;AN002; + JNZ $$IF63 + or SwitchMap,Switch_V ;Set /v indicator ;AN000; + mov si,Switch_String_Buffer.Switch_String_Seg ;Get string address ;;AN000; + mov ds,si ; ;AN000; + + assume ds:nothing + + mov si,es:Switch_String_Buffer.Switch_String_Off ; ;AN000; + cmp byte ptr ds:[si],None ;Is there a string there? ;AN000; +; $IF NE ;Yep ;AN000; + JE $$IF64 + cld ; ;AN000; + mov di,offset es:Vol_Label_Buffer ;Point at buffer to move string;AN000; + mov cx,Label_Length+1 ;Max length of string ;AN000; + rep movsb ;This will copy string & always ;AN000; + ; leave ASCIIZ end in buffer, ; ; + ; which is init'd to 13 dup(0) ; ; + mov si,offset es:Vol_Label_Buffer ;Point at string ;AN000; + Set_Data_Segment ;Set DS,ES to Data segment ;AN000; + mov Command_Line,YES ;Set flag indicating vol label ;AN000; + call Get_11_Characters ;Check DBCS and build FCB ;AN000; +; $IF C ;Bad DBCS setup ;AN000; + JNC $$IF65 + Message msgBadVolumeID ;Tell user ;AN000; + mov es:Fatal_Error,YES ;Indicate time to quit ;AN000; +; $ENDIF ; ;AN000; +$$IF65: +; $ENDIF ; ;AN000; +$$IF64: +; $ELSE ; ;AN002; + JMP SHORT $$EN63 +$$IF63: + Message msgSameSwitch ; ;AN002; + mov Fatal_Error,Yes ; ;AN002; +; $ENDIF ; ;AN002; +$$EN63: +; $ENDIF ; ;AN000; +$$IF62: + cmp Switch_Buffer.Switch_Pointer,offset Switch_Autotest_Control.Keyword ;AN000; +; $IF E ; ;AN000; + JNE $$IF71 + mov Switch_Autotest_Control.Keyword,20h ;an000; dms;remove switch from table + or SwitchMap,Switch_Autotest ; ;AN000; +; $ENDIF ; ;AN000; +$$IF71: + +IF ShipDisk + + cmp Switch_Buffer.Switch_Pointer,offset Switch_Z_Control.Keyword ;an000; dms;/Z switch? +; $IF E ; ;an000; dms;yes + JNE $$IF73 + mov Switch_Z_Control.Keyword,20h ;an000; dms;remove switch from table + or SwitchMap,Switch_Z ; ;an000; dms;signal switch found +; $ENDIF ; ;an000; dms; +$$IF73: + +ENDIF + + cmp Switch_String_Buffer.Switch_Pointer,offset Switch_F_Control.Keyword ; ;AN000; +; $IF E ; ;AN000; + JNE $$IF75 + mov Switch_F_Control.Keyword,20h ;an000; dms;remove switch from table + mov Switch_String_Buffer.Switch_Pointer,0 ;an000; dms; clear out ptr for next iteration + mov Switch_Num_Buffer.Switch_Num_Pointer,0 ;Init for next switch ;AN008; + test SwitchMap,Switch_F ; it - do this because SysParse ;AN002; +; $IF Z ; reuses string buffer each time;AN002; + JNZ $$IF76 + or SwitchMap,Switch_F ; ;AN000; + mov al,Switch_String_Buffer.Switch_String_Item_Tag ; Indicate what size;AN000; + or SizeMap,al ; ;AN000; +; $ELSE ; ;AN002; + JMP SHORT $$EN76 +$$IF76: + Message msgSameSwitch ; ;AN002; + mov Fatal_Error,Yes ; ;AN002; +; $ENDIF ; ;AN002; +$$EN76: +; $ENDIF ; ;AN000; +$$IF75: + pop di ;Restore parse regs ;AN000; + pop cx ; ;AN000; + pop si ; ;AN000; + pop ds ; ;AN000; + ret ; ;AN000; + +Interpret_Parse endp ; ;AN000; + + + +;***************************************************************************** +;Routine name: Validate_Target_Drive +;***************************************************************************** +; +;Description: Control routine for validating the specified format target drive. +; If any of the called routines find an error, they will print +; message and terminate program, without returning to this routine +; +;Called Procedures: Check_Target_Drive +; Check_For_Network +; Check_Translate_Drive +; +;Change History: Created 5/1/87 MT +; +;Input: Fatal_Error = NO +; +;Output: Fatal_Error = YES/NO +; +;Psuedocode +;---------- +; +; CALL Check_Target_Drive +; IF !Fatal_Error +; CALL Check_For_Network +; IF !Fatal_Error +; CALL Check_Translate_Drive +; ENDIF +; ENDIF +; ret +;***************************************************************************** + +Procedure Validate_Target_Drive ; ;AN000; + ; + call Check_Target_Drive ;See if valid drive letter ;AN000; + cmp Fatal_Error,YES ;Can we continue? ;AN000; +; $IF NE ;Yep ;AN000; + JE $$IF80 + call Check_For_Network ;See if Network drive letter ;AN000; + cmp Fatal_Error,YES ;Can we continue? ;AN000; +; $IF NE ;Yep ;AN000; + JE $$IF81 + call Check_Translate_Drive ;See if Subst, Assigned ;AN000; +; $ENDIF ;- Fatal_Error passed back ;AN000; +$$IF81: +; $ENDIF ; ;AN000; +$$IF80: + ret ; ;AN000; + +Validate_Target_Drive endp ; ;AN000; + +;***************************************************************************** +;Routine name: Check_Target_Drive +;***************************************************************************** +; +;Description: Check to see if valid DOS drive by checking if drive is +; removable. If error, the drive is invalid. Save default +; drive info. +; +;Called Procedures: Message (macro) +; +;Change History: Created 5/1/87 MT +; +;Input: Fatal_Error = NO +; +;Output: BIOSFile = default drive letter +; DOSFile = default drive letter +; CommandFile = default drive letter +; Fatal_Error = YES/NO +; +;Psuedocode +;---------- +; +; Get default drive (INT 21h, AH = 19h) +; Convert it to drive letter +; Save into BIOSFile,DOSFile,CommandFile +; See if drive removable (INT 21h, AX=4409h IOCtl) +; IF error - drive invalid +; Display Invalid drive message +; Fatal_Error= YES +; ENDIF +; ret +;***************************************************************************** + +Procedure Check_Target_Drive ; ;AN000; + ; + DOS_Call Get_Default_Drive ;Find the current drive ;AC000; + add al,'A' ;Convert to drive letter ; ; + mov BIOSFile,al ;Put it into path strings ; ; + mov DOSFile,al ; " " " " ; ; + mov CommandFile,al ; " " " " ; ; + mov bl,Drive ;Set up for next call ;AN000; + inc bl ;A=1,B=2 for IOCtl call ;AN000; + mov al,09h ;See if drive is local ;AC000; + DOS_Call IOCtl ;-this will fail if bad drive ;AC000; +; $IF C ;CY means invalid drive ;AC000; + JNC $$IF84 + Extended_Message ;Print message ;AC000; + mov Fatal_Error,Yes ;Indicate error ;AN000; +; $ENDIF ; ;AN000; +$$IF84: + ret ;And we're outa here ;AN000; + +Check_Target_Drive endp ; ;AN000; + +;***************************************************************************** +;Routine name: Check_For_Network +;***************************************************************************** +; +;Description: See if target drive isn't local, or if it is a shared drive. If +; so, exit with error message. The IOCtl call is not checked for +; an error because it is called previously in another routine, and +; invalid drive is the only error it can generate. That condition +; would not get this far +; +;Called Procedures: Message (macro) +; +;Change History: Created 5/1/87 MT +; +;Input: Drive +; Fatal_Error = NO +; +;Output: Fatal_Error = YES/NO +; +;Psuedocode +;---------- +; See if drive is local (INT 21h, AX=4409 IOCtl) +; IF not local +; Display network message +; Fatal_ERROR = YES +; ELSE +; IF 8000h bit set on return +; Display assign message +; Fatal_Error = YES +; ENDIF +; ENDIF +; ret +;***************************************************************************** + +Procedure Check_For_Network ; ;AN000; + ; + mov bl,Drive ;Drive is 0=A, 1=B ; ; + inc bl ;Get 1=A, 2=B for IOCtl call ; ; + mov al,09h ;See if drive is local or remote;AC000; + DOS_CALL IOCtl ;We will not check for error ;AC000; + test dx,Net_Check ;if (x & 1200H)(redir or shared); ; +; $IF NZ ;Found a net drive ;AC000; + JZ $$IF86 + Message MsgNetDrive ;Tell 'em ;AC000; + mov Fatal_Error,Yes ;Indicate bad stuff ;AN000; +; $ELSE ;Local drive, now check assign ;AN000; + JMP SHORT $$EN86 +$$IF86: + test dx,Assign_Check ;8000h bit is bad news ; ; +; $IF NZ ;Found it ;AC000; + JZ $$IF88 + Message MsgAssignedDrive ;Tell error ;AC000; + mov Fatal_Error,Yes ;Indicate bad stuff ;AN000; +; $ENDIF ; ;AN000; +$$IF88: +; $ENDIF ; ;AN000; +$$EN86: + ret ; ;AN000; + +Check_For_Network endp ; ;AN000; + +;***************************************************************************** +;Routine name: Check_Translate_Drive +;***************************************************************************** +; +;Description: Do a name translate call on the drive letter to see if it is +; assigned by SUBST or ASSIGN +; +;Called Procedures: Message (macro) +; +;Change History: Created 5/1/87 MT +; +;Input: Drive +; Fatal_Error = NO +; +;Output: Fatal_Error = YES/NO +; +;Psuedocode +;---------- +; Put drive letter in ASCIIZ string "d:\",0 +; Do name translate call (INT 21) +; IF drive not same +; Display assigned message +; Fatal_Error = YES +; ENDIF +; ret +;***************************************************************************** + +Procedure Check_Translate_Drive ; ;AN000; + ; + mov bl,Drive ;Get drive ; ; + add byte ptr [TranSrc],bl ;Make string "d:\" ; ; + mov si,offset TranSrc ;Point to translate string ; ; + push ds ;Set ES=DS (Data segment) ; ; + pop es ; " " " " ; ; + mov di,offset Command_Line_Buffer ;Point at output buffer ; ; + DOS_Call xNameTrans ;Get real path ;AC000; + mov bl,byte ptr [TranSrc] ;Get drive letter from path ; ; + cmp bl,byte ptr Command_Line_Buffer ;Did drive letter change? ; ; +; $IF NE ;If not the same, it be bad ;AC000; + JE $$IF91 + Message MsgAssignedDrive ;Tell user ;AC000; + mov Fatal_Error,Yes ;Setup error flag ;AN000; +; $ENDIF ; ;AN000; +$$IF91: + ret ; ;AN000; + +Check_Translate_Drive endp ; ;AN000; + +;***************************************************************************** +;Routine name: Hook_CNTRL_C +;***************************************************************************** +; +;Description: Change the interrupt handler for INT 13h to point to the +; ControlC_Handler routine +; +;Called Procedures: None +; +;Change History: Created 4/21/87 MT +; +;Input: None +; +;Output: None +; +;Psuedocode +;---------- +; +; Point at ControlC_Handler routine +; Set interrupt handler (INT 21h, AX=2523h) +; ret +;***************************************************************************** + +Procedure Hook_CNTRL_C ; ;AN000; + ; + mov al,23H ;Specify CNTRL handler ; ; + mov dx, offset ControlC_Handler ;Point at it ; ; + push ds ;Save data seg ; ; + push cs ;Point to code segment ; ; + pop ds ; ; ; + DOS_Call Set_Interrupt_Vector ;Set the INT 23h handler ;AC000; + pop ds ;Get Data degment back ; ; + ret ; ;AN000; + +Hook_CNTRL_C endp ; ;AN000; + +;========================================================================= +; Check_For_Invalid_Drive : This routine checks the AX received by +; FORMAT on its entry. This value will +; tell us if we are attempting to format +; a JOINED drive. +; +; Inputs : Org_AX - AX on entry to FORMAT +; +; Outputs : Fatal_Error - Yes if AL contained FFh +;========================================================================= + +Procedure Check_For_Invalid_Drive ;an000; dms; + + push ax ;an000; dms;save ax + cmp FAT_Flag,Yes ;an000; dms;FAT system? +; $if e ;an000; dms;yes + JNE $$IF93 + mov ax,Org_AX ;an000; dms;get its org. value + cmp al,0ffh ;an000; dms;Invalid drive? +; $if e ;an000; dms;yes + JNE $$IF94 + mov Fatal_Error,YES ;an000; dms;flag an error + mov ax,Invalid_Drive;an000; dms;error message + Extended_Message ;an000; dms;tell error +; $endif ;an000; dms; +$$IF94: +; $endif ;an000; dms; +$$IF93: + pop ax ;an000; dms; + ret ;an000; dms; + +Check_For_Invalid_Drive endp ;an000; dms; + + +;========================================================================= +; Determine_FAT_Non_FAT - This routine determines whether or +; not a device is formatted to a FAT +; specification versus a Non-FAT +; specification. +; +; Inputs : DX - Pointer to device parameters buffer +; +; Outputs : DeviceParameters - buffer containing BPB. +; +; Date : 11/6/87 +;========================================================================= + +Procedure Determine_FAT_Non_FAT ;an012; dms; + + push ax ;an012; dms;save regs + push dx ;an012; dms; + + lea dx, deviceParameters ;an012; dms;point to buffer + mov deviceParameters.DP_SpecialFunctions, 0 ;an012; dms;get default BPB + call GetDeviceParameters ;an012; dms;make the call +; $if nc ;an012; dms;no error occurred + JC $$IF97 + cmp byte ptr DeviceParameters.DP_BPB.BPB_NumberOfFATS,00h ;an012; dms;non-FAT system? +; $if e ;an012; dms;yes + JNE $$IF98 + mov FAT_Flag,No ;an012; dms;signal system non-FAT + mov ax,5f07h ;an012; dms;allow access to disk + mov dl,Drive ;an012; dms;get 0 based driver number + int 21h ;an012; dms;allow access to the drive +; $else ;an012; dms;FAT system + JMP SHORT $$EN98 +$$IF98: + mov FAT_Flag,Yes ;an012; dms;flag FAT system +; $endif ;an012; dms; +$$EN98: +; $endif ;an012; dms; +$$IF97: + + pop dx ;an012; dms;restore regs + pop ax ;an012; dms; + + ret ;an012; dms; + +Determine_FAT_Non_FAT endp ;an012; dms; + + + + +code ends + end + + \ No newline at end of file -- cgit v1.2.3