;***************************************************************
;
; 86-DOS FORMAT DISK UTILITY
;
; This routine formats a new disk,clears the FAT and DIRECTORY
; then optionally copies the SYSTEM and COMMAND.COM to this
; new disk
;
; SYNTAX: FORMAT [drive][/switch1][/switch2]...[/switch16]
;
; Regardless of the drive designator , the user will be
; prompted to insert the diskette to be formatted.
;
;***************************************************************
;Mod to ask for volume ID ARR 5/12/82
; 05/19/82 Fixed rounding bug in CLUSCAL: ARR
;REV 1.5
; Added rev number message
; Added dir attribute to DELALL FCB
;REV 2.00
; Redone for 2.0
;REV 2.10
; 5/1/83 ARR Re-do to transfer system on small memory systems
FALSE EQU 0
TRUE EQU NOT FALSE
IBMJAPVER EQU FALSE ; SET ONLY ONE SWITCH TO TRUE!
IBMVER EQU FALSE
MSVER EQU TRUE
KANJI EQU FALSE
.xlist
INCLUDE DOSSYM.ASM
.list
;FORMAT Pre-defined switches
SYSSW EQU 1 ; System transfer
VOLSW EQU 2 ; Volume ID prompt
OLDSW EQU 4 ; E5 dir terminator
DRNUM EQU 5CH
RECLEN EQU fcb_RECSIZ+7
RR EQU fcb_RR+7
;Per system file data structure
FILESTRUC STRUC
FILE_HANDLE DW ? ; Source handle
FILE_SIZEP DW ? ; File size in para
FILE_SIZEB DD ? ; File size in bytes
FILE_OFFSET DD ? ; Offset in file (partial)
FILE_START DW ? ; Para number of start in buffer
FILE_DATE DW ? ; Date of file
FILE_TIME DW ? ; Time of file
FILE_NAME DB ? ; Start of name
FILESTRUC ENDS
CODE SEGMENT PUBLIC 'CODE'
ASSUME CS:CODE,DS:CODE,ES:CODE
ORG 100H
;For OEM module
PUBLIC SWITCHMAP,DRIVE
EXTRN HARDFLAG:BYTE ;0 = REMOVABLE MEDIA
EXTRN SWITCHLIST:BYTE,FATID:BYTE,FATSPACE:WORD
EXTRN STARTSECTOR:WORD,FREESPACE:WORD,INIT:NEAR
EXTRN DISKFORMAT:NEAR,BADSECTOR:NEAR,DONE:NEAR
EXTRN WRTFAT:NEAR
;For FORMES module
EXTRN WAITYN:NEAR,REPORT:NEAR
PUBLIC PRINT,CRLF,DISP32BITS,UNSCALE,FDSKSIZ,SECSIZ,CLUSSIZ
PUBLIC SYSSIZ,BADSIZ
START:
JMP SHORT FSTRT
HEADER DB "Vers 2.10"
FSTRT:
MOV SP,OFFSET STACK ;Use internal stack
;Code to print header
; PUSH AX
; MOV DX,OFFSET HEADER
; CALL PRINT
; POP AX
DOSVER_HIGH EQU 020BH ;2.11 in hex
PUSH AX ;Save DRIVE validity info
MOV AH,GET_VERSION
INT 21H
XCHG AH,AL ;Turn it around to AH.AL
CMP AX,DOSVER_HIGH
JAE OKDOS
GOTBADDOS:
MOV DX,OFFSET BADVER
MOV AH,STD_CON_STRING_OUTPUT
INT 21H
INT 20H
OKDOS:
IF IBMVER ; IBM WANTS TO CHECK FOR ASSIGN.COM
XOR AX,AX
MOV ES,AX
MOV BX,ES:[4*21H]
MOV ES,ES:[4*21H+2]
CMP BX,122H
JNZ NO_ASSIGN
CMP ES:[109H],0807H
JNZ NO_ASSIGN
CMP ES:[103H],0201H
JNZ RE_ASSIGN
CMP ES:[105H],0403H
JNZ RE_ASSIGN
CMP ES:[107H],0605H
JZ NO_ASSIGN
RE_ASSIGN:
MOV DX,OFFSET ASGERR
CALL PRINT
JMP FEXIT2
NO_ASSIGN:
PUSH CS
POP ES
ENDIF
POP AX
CMP AL,0FFH ;See if invalid drive specified
JNZ DRVGD ;If not proceed
MOV DX,OFFSET INVDRV ;Invalid drive message
CALL PRINT ;Print the message
JMP FEXIT2 ;Exit
DRVGD:
MOV AH,GET_DEFAULT_DRIVE ;Must get the default drive
INT 21H ;Default now in AL
MOV DEFALT,AL ;Save for later
ADD AL,"A"
MOV [BIODRV],AL
MOV [DOSDRV],AL
MOV [SYSDRV],AL
MOV [COMDRV],AL
MOV SI,DRNUM ;So we can get our parameters
LODSB ;Fetch drive designation
OR AL,AL ;See if specified
JNZ DRVSPEC ;If specfied proceed
MOV AL,DEFALT
INC AL
DRVSPEC:
DEC AL ;Drive designator now correct
MOV BYTE PTR DS:[DRNUM],AL ;And updated
MOV DRIVE,AL ;Save copy
MOV DX,OFFSET INT_23
MOV AH,SET_INTERRUPT_VECTOR
MOV AL,23H
INT 21H ;Set ^C vector
;Get all the swith information from the command line
XOR AX,AX
MOV AH,CHAR_OPER ;GET SWITCH CHARACTER
INT 21H ;CALL THE DOS
MOV [SWTCH],DL
XOR BX,BX ;Store switch information in BX
MOV SI,81H ;Point to the command line buffer
NXTSWT:
CALL SCANOFF
LODSB
CMP AL,[SWTCH]
JZ GETPARM
CMP AL,13
JZ SAVSWT
LODSB ;Get next character
CMP AL,":" ;Is it a drive specifier?
JNZ INVALID ;No -- invalid parameter
CMP BYTE PTR DBLFLG,0 ;Is is the only drive specifier we've seen
JNZ INVALID ;No -- invalid parameter
INC BYTE PTR DBLFLG ;Yes -- set the flag
JMP SHORT NXTSWT
GETPARM:
LODSB
;Convert any lower case input into upper case
CMP AL,41H
JL GETCHR ;Switch is a digit don't try to convert it
AND AL,0DFH
GETCHR:
MOV CL,SWITCHLIST ;Number of legal switches
OR CL,CL ;If it's none we shouldn't be here
JZ INVALID ;Report the error
MOV CH,0
MOV DI,1+OFFSET SWITCHLIST ;Point to the legal switch characters
REPNE SCASB
JNZ INVALID
MOV AX,1
SHL AX,CL
OR BX,AX ;Set the appropriate bit in SWITCHMAP
JMP SHORT NXTSWT ;See if there are anymore
INVALID:
MOV DX,OFFSET INVPAR
CALL PRINT
JMP FEXIT
SCANOFF:
LODSB
CMP AL,20H
JZ SCANOFF
CMP AL,9
JZ SCANOFF
DEC SI
RET
MEMERR:
MOV DX,OFFSET MEMEX
CALL PRINT
JMP FEXIT
SAVSWT:
IF IBMVER ;/B SWITCH TURNS /8 ON AND /S OFF
TEST BX,00100000B
JZ NOT_SW_B
AND BX,NOT SYSSW ;TURN OFF /S
OR BX,00010000B ;TURN ON /8
NOT_SW_B:
ENDIF
MOV SWITCHMAP,BX
TEST SWITCHMAP,SYSSW
JZ INITCALL
CALL SAVUDIRS
MOV BX,[FREESPACE]
ADD BX,15
MOV CL,4
SHR BX,CL
PUSH CS
POP ES
MOV AH,SETBLOCK
INT 21H
MOV BX,0FFFFH
MOV AH,ALLOC
INT 21H
OR BX,BX
JZ MEMERR ;No memory
MOV [MSIZE],BX
MOV AH,ALLOC
INT 21H
JC MEMERR ;No memory
MOV [MSTART],AX
MOV DX,OFFSET SWTCH
MOV AH,CHDIR
INT 21H ;Go to root on default drive (source)
RDFRST:
CALL READDOS ;Read BIOS and DOS
JNC INITCALL ;OK -- read next file
NEEDSYS:
CALL SYSPRM ;Prompt for system disk
JMP RDFRST ;Try again
INITCALL:
CALL INIT ;Let OEM read any files before disk is changed
JNC SWITCHCHK
MOV DX,OFFSET FRMTERR
CALL PRINT
JMP FEXIT
SWITCHCHK:
MOV DX,SWITCHMAP
MOV SWITCHCOPY,DX
SYSLOOP:
MOV WORD PTR BADSIZ,0 ;Must intialize for each iteration
MOV WORD PTR BADSIZ+2,0
MOV WORD PTR SYSSIZ,0
MOV WORD PTR SYSSIZ+2,0
MOV BYTE PTR DBLFLG,0
MOV BYTE PTR CLEARFLG,0
MOV DX,SWITCHCOPY
MOV SWITCHMAP,DX ;Restore original Switches
MOV AL,DRIVE ;Fetch drive
ADD AL,"A" ;(AL)= ASCII designation
MOV BYTE PTR SNGDRV,AL ;Fill out the message
MOV BYTE PTR TARGDRV,AL
MOV BYTE PTR HRDDRV,AL
CALL DSKPRM ;Prompt for new disk
CALL DISKFORMAT ;Format the disk
JNC GETTRK
FRMTPROB:
MOV DX,OFFSET FRMTERR
CALL PRINT
JMP SHORT SYSLOOP
;Mark any bad sectors in the FATs
;And keep track of how many bytes there are in bad sectors
GETTRK:
CALL BADSECTOR ;Do bad track fix-up
JC FRMTPROB ;Had an error in Formatting - can't recover
CMP AX,0 ;Are we finished?
JNZ TRKFND ;No - check error conditions
JMP DRTFAT ;Yes
TRKFND:
CMP BX,STARTSECTOR ;Are any sectors in the system area bad?
JGE CLRTEST
MOV DX,OFFSET NOUSE ;Can't build FATs of Directory
CALL PRINT
JMP FRMTPROB ;Bad disk -- try again
CLRTEST:
MOV SECTORS,AX ;Save the number of sectors on the track
CMP BYTE PTR CLEARFLG,0 ;Have we already cleared the FAT and DIR?
JNZ SYSTEST ;Yes - all set
INC CLEARFLG ;Set the flag
PUSH BX
CALL CLEAR ;Fix-up fat and directory
POP BX
SYSTEST:
TEST SWITCHMAP,SYSSW ;If system requested calculate size
JZ BAD100
CMP BYTE PTR DBLFLG,0 ;Have we already calculated System space?
JNZ CMPTRKS ;Yes -- all ready for the compare
INC BYTE PTR DBLFLG ;No -- set the flag
CALL GETSIZE ;Calculate the system size
MOV DX,WORD PTR SYSSIZ+2
MOV AX,WORD PTR SYSSIZ
DIV SECSIZ
ADD AX,STARTSECTOR
MOV SYSTRKS,AX ;Space FAT,Dir,and system files require
CMPTRKS:
CMP BX,SYSTRKS
JG BAD100
MOV DX,OFFSET NOTSYS ;Can't transfer a system
CALL PRINT
AND SWITCHMAP,NOT SYSSW ;Turn off system transfer switch
MOV WORD PTR SYSSIZ+2,0 ;No system to transfer
MOV WORD PTR SYSSIZ,0 ;No system to transfer
BAD100:
; BX is the first bad sector #, SECTORS is the number of bad sectors starting
; at BX. This needs to be converted to clusters. The start sector number may
; need to be rounded down to a cluster boundry, the end sector may need to be
; rounded up to a cluster boundry. Know BX >= STARTSECTOR
SUB BX,STARTSECTOR ; BX is now DATA area relative
MOV CX,BX
ADD CX,SECTORS
DEC CX ; CX is now the last bad sector #
MOV AX,BX
XOR DX,DX
DIV CLUSSIZ
MOV BX,AX ; BX is rounded down and converted
; to a cluster #. Where cluster 0 =
; first cluster of data. First bad
; Sector is in cluster BX.
MOV AX,CX
XOR DX,DX
DIV CLUSSIZ
MOV CX,AX ; CX is rounded up and converted to a
; to a cluster #. Where cluster 0 =
; first cluster of data. Last bad
; Sector is in cluster CX.
SUB CX,BX
INC CX ; CX is number of clusters to mark bad
ADD BX,2 ; Bias start by correct amount since
; first cluster of data is really
; cluster 2.
MOV AX,CLUSSIZ ; Sectors/Cluster
MUL SECSIZ ; Times Bytes/Sector
MOV BP,AX ; = Bytes/Cluster
; Mark CX clusters bad starting at cluster BX
PACKIT:
MOV DX,0FF7H ;0FF7H indicates a bad sector
CALL PACK ;Put it in the allocation map
CMP DX,DI ;Have we already marked it bad?
JZ BAD150 ;if so, don't add it in
ADD WORD PTR BADSIZ,BP ;Add in number of bad bytes
JNB BAD150
INC WORD PTR BADSIZ+2
BAD150:
INC BX ;Next cluster
LOOP PACKIT ;Continue for # of clusters
JMP GETTRK
; Inputs:
;BX = Cluster number
;DX = Data
; Outputs:
;The data is stored in the FAT at the given cluster.
;SI is destroyed
;DI contains the former contents
;No other registers affected
PACK:
PUSH BX
PUSH CX
PUSH DX
MOV SI,BX
SHR BX,1
ADD BX,FATSPACE
ADD BX,SI
SHR SI,1
MOV SI,WORD PTR [BX]
MOV DI,SI
JNB ALIGNED
MOV CL,4
SHL DX,CL
SHR DI,CL
AND SI,15
JMP SHORT PACKIN
ALIGNED:
AND SI,0F000H
PACKIN:
AND DI,00FFFH ;DI CONTAINS FORMER CONTENTS
OR SI,DX
MOV WORD PTR[BX],SI
POP DX
POP CX
POP BX
RET
DRTFAT:
CMP BYTE PTR CLEARFLG,0
JNZ CLEARED
CALL CLEAR ;Clear the FAT and Dir
TEST SWITCHMAP,SYSSW ;If system requested, calculate size
JZ CLEARED
CMP BYTE PTR DBLFLG,0 ;Have we already calculated System space?
JNZ CLEARED ;Yes
INC BYTE PTR DBLFLG ;No -- set the flag
CALL GETSIZE ;Calculate the system size
CLEARED:
CALL WRTFAT
JNC FATWRT
MOV DX,OFFSET NOUSE
CALL PRINT
JMP FRMTPROB
FATWRT:
TEST SWITCHMAP,SYSSW ;System desired
JZ STATUS
CALL WRITEDOS ;Write the BIOS & DOS
JNC SYSOK
MOV DX,OFFSET NOTSYS ;Can't transfer a system
CALL PRINT
MOV WORD PTR SYSSIZ+2,0 ;No system transfered
MOV WORD PTR SYSSIZ,0 ;No system transfered
JMP SHORT STATUS
SYSOK:
MOV DX,OFFSET SYSTRAN
CALL PRINT
STATUS:
CALL CRLF
CALL VOLID
MOV AH,DISK_RESET
INT 21H
CALL DONE ;Final call to OEM module
JNC REPORTC
JMP FRMTPROB ;Report an error
REPORTC:
CALL REPORT
CALL MORE ;See if more disks to format
JMP SYSLOOP ;If we returned from MORE then continue
DISP32BITS:
PUSH BX
XOR AX,AX
MOV BX,AX
MOV BP,AX
MOV CX,32
CONVLP:
SHL SI,1
RCL DI,1
XCHG AX,BP
CALL CONVWRD
XCHG AX,BP
XCHG AX,BX
CALL CONVWRD
XCHG AX,BX
ADC AL,0
LOOP CONVLP
; Conversion complete. Print 8-digit number with 2 leading blanks.
MOV CX,1810H
XCHG DX,AX
CALL DIGIT
XCHG AX,BX
CALL OUTWORD
XCHG AX,BP
CALL OUTWORD
POP DX
CMP DX,0
JZ RET3
CALL PRINT
RET3: RET
OUTWORD:
PUSH AX
MOV DL,AH
CALL OUTBYTE
POP DX
OUTBYTE:
MOV DH,DL
SHR DL,1
SHR DL,1
SHR DL,1
SHR DL,1
CALL DIGIT
MOV DL,DH
DIGIT:
AND DL,0FH
JZ BLANKZER
MOV CL,0
BLANKZER:
DEC CH
AND CL,CH
OR DL,30H
SUB DL,CL
MOV AH,STD_CON_OUTPUT
INT 21H
RET
CONVWRD:
ADC AL,AL
DAA
XCHG AL,AH
ADC AL,AL
DAA
XCHG AL,AH
RET2: RET
UNSCALE:
SHR CX,1
JC RET2
SHL AX,1
RCL DX,1
JMP SHORT UNSCALE
;******************************************
; Calculate the size in bytes of the system rounded up to sector and
; cluster boundries, Answer in SYSSIZ
GETSIZE:
MOV AX,WORD PTR BIOSSIZB ;And calculate the system size
MOV DX,WORD PTR BIOSSIZB+2
CALL FNDSIZ
MOV AX,WORD PTR DOSSIZB
MOV DX,WORD PTR DOSSIZB+2
CALL FNDSIZ
MOV AX,WORD PTR COMSIZB
MOV DX,WORD PTR COMSIZB+2
;Calculate the number of sectors used for the system
FNDSIZ:
DIV SECSIZ
OR DX,DX
JZ FNDSIZ0
INC AX ; Round up to next sector
FNDSIZ0:
PUSH AX
XOR DX,DX
DIV CLUSSIZ
POP AX
OR DX,DX
JZ ONCLUS
SUB DX,CLUSSIZ
NEG DX
ADD AX,DX ; Round up sector count to cluster
; boundry
ONCLUS:
MUL SECSIZ ; Turn it back into bytes
ADD WORD PTR SYSSIZ,AX
ADC WORD PTR SYSSIZ+2,DX
RET
PRINT: MOV AH,STD_CON_STRING_OUTPUT ;Print msg pointed to by DX
INT 21H
RET
MORE: CMP BYTE PTR [HARDFLAG],0 ;Check if removable media
JNZ FEXIT
CALL WAITYN ;Get yes or no response
JB FEXIT ;Exit if CF=1
CALL CRLF
CRLF:
MOV DX,OFFSET CRLFMSG
CALL PRINT
RET
PERROR: CALL PRINT ;Print message and exit
FEXIT:
CALL RESTUDIR ;Restore users dirs
FEXIT2:
INT 20H
;Prompt the user for a system diskette in the default drive
SYSPRM:
MOV AH,GET_DEFAULT_DRIVE ;Will find out the default drive
INT 21H ;Default now in AL
IF IBMVER OR IBMJAPVER
MOV BX,AX
ENDIF
ADD AL,41H ;Now in Ascii
MOV SYSDRV,AL ;Text now ok
IF IBMVER OR IBMJAPVER
INT 11H ;Make sure drive has insertable media
AND AL,11000000B
ROL AL,1
ROL AL,1
OR AL,AL
JNZ NOTONEDRV
INC AL
NOTONEDRV:
CMP BL,AL
JBE ISFLOPPY
MOV AL,"A"
MOV BYTE PTR [SYSDRV],AL
MOV [BIODRV],AL
MOV [DOSDRV],AL
MOV [COMDRV],AL
ISFLOPPY:
ENDIF
MOV DX,OFFSET SYSMSG
CALL PRINT ;Print first line
CALL WAITKY ;Wait for a key
CALL CRLF
RET
TARGPRM:
MOV DX,OFFSET TARGMSG
CALL PRINT ;Print first line
CALL WAITKY ;Wait for a key
CALL CRLF
RET
DSKPRM:
MOV DX,OFFSET SNGMSG ;Point to the message
CMP BYTE PTR [HARDFLAG],0 ;Check if removable media
JZ GOPRNIT
MOV DX,OFFSET HRDMSG
GOPRNIT:
CALL PRINT ;Print the message
CALL WAITKY ;Wait for space bar
CALL CRLF
CALL CRLF
RET
;Will wait for any key to be depressed.
WAITKY:
MOV AX,(STD_CON_INPUT_FLUSH SHL 8) OR STD_CON_INPUT_NO_ECHO
INT 21H
MOV AX,(STD_CON_INPUT_FLUSH SHL 8) + 0
INT 21H
return
FDPB: MOV DL,DRIVE
INC DL
MOV AH,GET_DPB
PUSH DS
INT 21H
INC AL
JZ DRVERR
MOV DX,WORD PTR [BX+13]
DEC DX
MOV AL,BYTE PTR [BX+4]
INC AL
MOV CX,WORD PTR [BX+2]
POP DS
RET
DRVERR:
POP DS
MOV DX,OFFSET INVDRV
JMP PERROR
;Clear the FAT and directory and set Dirty byte in the FAT
CLEAR:
MOV AL,FATID
OR AL,0F8H ;Make sure it's a legal value
MOV AH,0FFH
MOV DI,FATSPACE
MOV WORD PTR[DI],AX
MOV BYTE PTR[DI+2],AH
MOV AH,DISK_RESET
INT 21H
CALL WRTFAT
IF IBMJAPVER
PUSH DS
MOV DL,[DRIVE] ;GET THE DRIVE PARAMETER
INC DL
MOV AH,32H
INT 21H
MOV DPB_FIRST_ACCESS[BX],-1 ;FORCE MEDIA CHANGE
POP DS
ENDIF
CALL FDPB
MOV WORD PTR FDSKSIZ,DX
MOV SECSIZ,CX
MOV AH,0
MOV CLUSSIZ,AX
SHR DX,1
JNC ROUNDED
INC DX
ROUNDED:
ADD DX,WORD PTR FDSKSIZ
XOR AX,AX
MOV CX,DX
MOV DI,FATSPACE
ADD DI,3
REP STOSB
MOV AH,DISK_RESET
INT 21H
CALL WRTFAT
MOV DL,[DRIVE]
ADD DL,'A'
MOV [ROOTSTR],DL
MOV DX,OFFSET ROOTSTR
MOV AH,CHDIR
INT 21H ;Go to root on target drive
MOV AL,DRIVE
INC AL
MOV ALLDRV,AL
MOV AH,FCB_DELETE
MOV DX,OFFSET ALLFILE
INT 21H
TEST SWITCHMAP,OLDSW ;See if E5 terminated DIR requested
JZ RET25
MOV AL,DRIVE
INC AL
MOV BYTE PTR CLEANFILE,AL ;Get the drive
MOV DX,OFFSET CLEANFILE
MOV AH,FCB_CREATE
MAKE_NEXT:
INT 21H
OR AL,AL
JNZ DELETE_THEM
INC BYTE PTR CLNNAM
CMP BYTE PTR CLNNAM,"Z" + 1
JNZ MAKE_NEXT
MOV BYTE PTR CLNNAM,"A"
INC BYTE PTR CLNNAM + 1
CMP BYTE PTR CLNNAM + 1,"Z" + 1
JNZ MAKE_NEXT
MOV BYTE PTR CLNNAM + 1,"A"
INC BYTE PTR CLNNAM + 2
JMP MAKE_NEXT
DELETE_THEM:
MOV WORD PTR CLNNAM,"??"
MOV BYTE PTR CLNNAM + 2,"?"
MOV AH,FCB_DELETE
INT 21H
RET25:
RET ;And return
;*****************************************
; Process V switch if set
VOLID:
TEST [SWITCHMAP],VOLSW
JNZ DOVOL
VRET: CLC
RET
DOVOL:
PUSH CX
PUSH SI
PUSH DI
PUSH ES
PUSH DS
POP ES
VOL_LOOP:
MOV AL,DRIVE
INC AL
MOV DS:BYTE PTR[VOLFCB+7],AL
MOV DX,OFFSET LABPRMT
CALL PRINT
MOV DX,OFFSET INBUFF
MOV AH,STD_CON_STRING_INPUT
INT 21H
MOV DX,OFFSET CRLFMSG
CALL PRINT
MOV DX,OFFSET CRLFMSG
CALL PRINT
MOV CL,[INBUFF+1]
OR CL,CL
JZ VOLRET
XOR CH,CH
MOV SI,OFFSET INBUFF+2
MOV DI,SI
ADD DI,CX
MOV CX,11
MOV AL,' '
REP STOSB
MOV CX,5
MOV DI,OFFSET VOLNAM
REP MOVSW
MOVSB
MOV DX,OFFSET VOLFCB
MOV AH,FCB_CREATE
INT 21H
OR AL,AL
JZ GOOD_CREATE
MOV DX,OFFSET INVCHR ;PRINT INVALID CHARS MESSAGE
CALL PRINT
JMP VOL_LOOP
GOOD_CREATE:
MOV DX,OFFSET VOLFCB
MOV AH,FCB_CLOSE
INT 21H
CALL CRLF
VOLRET:
POP ES
POP DI
POP SI
POP CX
RET
;****************************************
;Copy IO.SYS, MSDOS.SYS and COMMAND.COM into data area.
; Carry set if problems
READDOS:
CALL TESTSYSDISK
JNC RDFILS
RET
RDFILS:
MOV BYTE PTR [FILSTAT],0
MOV BX,[BIOSHandle]
MOV AX,[MSTART]
MOV DX,AX
ADD DX,[MSIZE] ; CX first bad para
MOV [BIOSSTRT],AX
MOV CX,[BIOSSIZP]
ADD AX,CX
CMP AX,DX
JBE GOTBIOS
MOV BYTE PTR [FILSTAT],00000001B ; Got part of BIOS
MOV SI,[MSIZE]
XOR DI,DI
CALL DISIX4
MOV DS,[BIOSSTRT]
ASSUME DS:NOTHING
CALL READFILE
ASSUME DS:CODE
JC CLSALL
XOR DX,DX
MOV CX,DX
MOV AX,(LSEEK SHL 8) OR 1
INT 21H
MOV WORD PTR [BIOSOFFS],AX
MOV WORD PTR [BIOSOFFS+2],DX
FILESDONE:
CLC
CLSALL:
PUSHF
CALL COMCLS
POPF
RET
GOTBIOS:
MOV BYTE PTR [FILSTAT],00000010B ; Got all of BIOS
LES SI,[BIOSSIZB]
MOV DI,ES
MOV DS,[BIOSSTRT]
ASSUME DS:NOTHING
CALL READFILE
ASSUME DS:CODE
JC CLSALL
MOV BX,[DOSHandle]
MOV [DOSSTRT],AX
CMP AX,DX ; No room left?
JZ CLSALL ; Yes
MOV CX,[DOSSIZP]
ADD AX,CX
CMP AX,DX
JBE GOTDOS
OR BYTE PTR [FILSTAT],00000100B ; Got part of DOS
SUB DX,[DOSSTRT]
MOV SI,DX
XOR DI,DI
CALL DISIX4
MOV DS,[DOSSTRT]
ASSUME DS:NOTHING
CALL READFILE
ASSUME DS:CODE
JC CLSALL
XOR DX,DX
MOV CX,DX
MOV AX,(LSEEK SHL 8) OR 1
INT 21H
MOV WORD PTR [DOSOFFS],AX
MOV WORD PTR [DOSOFFS+2],DX
JMP FILESDONE
GOTDOS:
OR BYTE PTR [FILSTAT],00001000B ; Got all of DOS
LES SI,[DOSSIZB]
MOV DI,ES
MOV DS,[DOSSTRT]
ASSUME DS:NOTHING
CALL READFILE
ASSUME DS:CODE
CLSALLJ: JC CLSALL
MOV BX,[COMHandle]
MOV [COMSTRT],AX
CMP AX,DX ; No room left?
JZ CLSALL ; Yes
MOV CX,[COMSIZP]
ADD AX,CX
CMP AX,DX
JBE GOTCOM
OR BYTE PTR [FILSTAT],00010000B ; Got part of COMMAND
SUB DX,[COMSTRT]
MOV SI,DX
XOR DI,DI
CALL DISIX4
MOV DS,[COMSTRT]
ASSUME DS:NOTHING
CALL READFILE
ASSUME DS:CODE
JC CLSALLJ
XOR DX,DX
MOV CX,DX
MOV AX,(LSEEK SHL 8) OR 1
INT 21H
MOV WORD PTR [COMOFFS],AX
MOV WORD PTR [COMOFFS+2],DX
JMP FILESDONE
GOTCOM:
OR BYTE PTR [FILSTAT],00100000B ; Got all of COMMAND
LES SI,[COMSIZB]
MOV DI,ES
MOV DS,[COMSTRT]
ASSUME DS:NOTHING
CALL READFILE
ASSUME DS:CODE
JMP CLSALL
;**************************************************
;Write BIOS DOS COMMAND to the newly formatted disk.
WRITEDOS:
MOV CX,BIOSATT
MOV DX,OFFSET BIOSFIL
LES SI,[BIOSSIZB]
MOV DI,ES
CALL MAKEFIL
JNC GOTNBIO
RET34: RET
GOTNBIO:
MOV [TempHandle],BX
TEST BYTE PTR FILSTAT,00000010B
JNZ GOTALLBIO
LES SI,[BIOSOFFS]
MOV DI,ES
MOV WORD PTR [IOCNT],SI
MOV WORD PTR [IOCNT+2],DI
MOV BP,OFFSET BIOSData
CALL GOTTARG
JC RET34
JMP SHORT BIOSDONE
GOTALLBIO:
LES SI,[BIOSSIZB]
MOV DI,ES
MOV DS,[BIOSSTRT]
ASSUME DS:NOTHING
CALL WRITEFILE
ASSUME DS:CODE
BIOSDONE:
MOV BX,[TempHandle]
MOV CX,BTIME
MOV DX,BDATE
CALL CLOSETARG
MOV CX,DOSATT
MOV DX,OFFSET DOSFIL
LES SI,[DOSSIZB]
MOV DI,ES
CALL MAKEFIL
JC RET34
GOTNDOS:
MOV [TempHandle],BX
TEST BYTE PTR FILSTAT,00001000B
JNZ GOTALLDOS
MOV BP,OFFSET DOSData
TEST BYTE PTR FILSTAT,00000100B
JNZ PARTDOS
MOV WORD PTR [DOSOFFS],0
MOV WORD PTR [DOSOFFS+2],0
CALL GETSYS3
RET34J: JC RET34
JMP SHORT DOSDONE
PARTDOS:
LES SI,[DOSOFFS]
MOV DI,ES
MOV WORD PTR [IOCNT],SI
MOV WORD PTR [IOCNT+2],DI
CALL GOTTARG
JC RET34J
JMP SHORT DOSDONE
GOTALLDOS:
LES SI,[DOSSIZB]
MOV DI,ES
MOV DS,[DOSSTRT]
ASSUME DS:NOTHING
CALL WRITEFILE
ASSUME DS:CODE
DOSDONE:
MOV BX,[TempHandle]
MOV CX,DTIME
MOV DX,DDATE
CALL CLOSETARG
MOV CX,COMATT
MOV DX,OFFSET COMFIL
LES SI,[COMSIZB]
MOV DI,ES
CALL MAKEFIL
JNC GOTNCOM
RET35: RET
GOTNCOM:
MOV [TempHandle],BX
TEST BYTE PTR FILSTAT,00100000B
JNZ GOTALLCOM
MOV BP,OFFSET COMData
TEST BYTE PTR FILSTAT,00010000B
JNZ PARTCOM
MOV WORD PTR [COMOFFS],0
MOV WORD PTR [COMOFFS+2],0
CALL GETSYS3
JC RET35
JMP SHORT COMDONE
PARTCOM:
LES SI,[COMOFFS]
MOV DI,ES
MOV WORD PTR [IOCNT],SI
MOV WORD PTR [IOCNT+2],DI
CALL GOTTARG
JC RET35
JMP SHORT COMDONE
GOTALLCOM:
LES SI,[COMSIZB]
MOV DI,ES
MOV DS,[COMSTRT]
ASSUME DS:NOTHING
CALL WRITEFILE
ASSUME DS:CODE
COMDONE:
MOV BX,[TempHandle]
MOV CX,CTIME
MOV DX,CDATE
CALL CLOSETARG
CMP BYTE PTR [FILSTAT],00101010B
JZ NOREDOS
RDFRST2:
CALL READDOS ; Start back with BIOS
JNC NOREDOS
CALL SYSPRM ;Prompt for system disk
JMP RDFRST2 ;Try again
NOREDOS:
CLC
RET
;*********************************************
; Create a file on target disk
; CX = attributes, DX points to name
; DI:SI is size file is to have
;
; There is a bug in DOS 2.00 and 2.01 having to do with writes
; from the end of memory. In order to circumvent it this routine
; must create files with the length in DI:SI
;
; On return BX is handle, carry set if problem
MAKEFIL:
MOV BX,DX
PUSH WORD PTR [BX]
MOV AL,TARGDRV
MOV [BX],AL
MOV AH,CREAT
INT 21H
POP WORD PTR [BX]
MOV BX,AX
JC RET50
MOV CX,DI
MOV DX,SI
MOV AX,LSEEK SHL 8
INT 21H ; Seek to eventual EOF
XOR CX,CX
MOV AH,WRITE
INT 21H ; Set size of file to position
XOR CX,CX
MOV DX,CX
MOV AX,LSEEK SHL 8
INT 21H ; Seek back to start
RET50:
RET
;*********************************************
; Close a file on the target disk
; CX/DX is time/date, BX is handle
CLOSETARG:
MOV AX,(FILE_TIMES SHL 8) OR 1
INT 21H
MOV AH,CLOSE
INT 21H
RET
SAVUDIRS:
XOR DL,DL
MOV SI,OFFSET USERDIRS
MOV BYTE PTR [SI],'\'
INC SI
MOV AH,CURRENT_DIR
INT 21H
RET43: RET
RESTUDIR:
TEST SWITCHMAP,SYSSW
JZ RET43
MOV DX,OFFSET USERDIRS
MOV AH,CHDIR
INT 21H ; Restore users DIR
RET
INT_23:
PUSH CS
POP DS
JMP FEXIT
;****************************************
; Transfer system files
; BP points to data structure for file involved
; offset is set to current amount read in
; Start set to start of file in buffer
; TempHandle is handle to write to on target
IOLOOP:
MOV AL,[SYSDRV]
CMP AL,[TARGDRV]
JNZ GOTTARG
MOV AH,DISK_RESET
INT 21H
CALL TARGPRM ;Get target disk
GOTTARG:
;Enter here if some of file is already in buffer, IOCNT must be set
; to size already in buffer.
MOV BX,[TempHandle]
MOV SI,WORD PTR [IOCNT]
MOV DI,WORD PTR [IOCNT+2]
MOV DS,[BP.FILE_START]
ASSUME DS:NOTHING
CALL WRITEFILE ; Write next part
ASSUME DS:CODE
JNC TESTDONE
RET
TESTDONE:
LES AX,[BP.FILE_OFFSET]
CMP AX,WORD PTR [BP.FILE_SIZEB]
JNZ GETSYS3
MOV AX,ES
CMP AX,WORD PTR [BP.FILE_SIZEB+2]
JNZ GETSYS3
RET ; Carry clear from CMP
GETSYS3:
;Enter here if none of file is in buffer
MOV AX,[MSTART] ; Furthur IO done starting here
MOV [BP.FILE_START],AX
MOV AL,[SYSDRV]
CMP AL,[TARGDRV]
JNZ TESTSYS
MOV AH,DISK_RESET
INT 21H
GSYS:
CALL SYSPRM ;Prompt for system disk
TESTSYS:
CALL TESTSYSDISK
JC GSYS
MOV BX,[BP.FILE_HANDLE]
LES DX,[BP.FILE_OFFSET]
PUSH DX
MOV CX,ES
MOV AX,LSEEK SHL 8
INT 21H
POP DX
LES SI,[BP.FILE_SIZEB]
MOV DI,ES
SUB SI,DX
SBB DI,CX ; DI:SI is #bytes to go
PUSH DI
PUSH SI
ADD SI,15
ADC DI,0
CALL DISID4
MOV AX,SI
POP SI
POP DI
CMP AX,[MSIZE]
JBE GOTSIZ2
MOV SI,[MSIZE]
XOR DI,DI
CALL DISIX4
GOTSIZ2:
MOV WORD PTR [IOCNT],SI
MOV WORD PTR [IOCNT+2],DI
MOV DS,[MSTART]
ASSUME DS:NOTHING
CALL READFILE
ASSUME DS:CODE
JNC GETOFFS
CALL CLSALL
JMP GSYS
GETOFFS:
XOR DX,DX
MOV CX,DX
MOV AX,(LSEEK SHL 8) OR 1
INT 21H
MOV WORD PTR [BP.FILE_OFFSET],AX
MOV WORD PTR [BP.FILE_OFFSET+2],DX
CALL CLSALL
JMP IOLOOP
;*************************************************
; Test to see if correct system disk. Open handles
TESTSYSDISK:
MOV AX,OPEN SHL 8
MOV DX,OFFSET BIOSFIL
INT 21H
JNC SETBIOS
CRET12: STC
RET12: RET
SETBIOS:
MOV [BIOSHandle],AX
MOV BX,AX
CALL GETFSIZ
CMP [BIOSSIZP],0
JZ SETBIOSSIZ
CMP [BIOSSIZP],AX
JZ SETBIOSSIZ
BIOSCLS:
MOV AH,CLOSE
MOV BX,[BIOSHandle]
INT 21H
JMP CRET12
SETBIOSSIZ:
MOV [BIOSSIZP],AX
MOV WORD PTR [BIOSSIZB],SI
MOV WORD PTR [BIOSSIZB+2],DI
MOV [BDATE],DX
MOV [BTIME],CX
MOV AX,OPEN SHL 8
MOV DX,OFFSET DOSFIL
INT 21H
JNC DOSOPNOK
JMP BIOSCLS
DOSOPNOK:
MOV [DOSHandle],AX
MOV BX,AX
CALL GETFSIZ
CMP [DOSSIZP],0
JZ SETDOSSIZ
CMP [DOSSIZP],AX
JZ SETDOSSIZ
DOSCLS:
MOV AH,CLOSE
MOV BX,[DOSHandle]
INT 21H
JMP BIOSCLS
SETDOSSIZ:
MOV [DOSSIZP],AX
MOV WORD PTR [DOSSIZB],SI
MOV WORD PTR [DOSSIZB+2],DI
MOV [DDATE],DX
MOV [DTIME],CX
MOV AX,OPEN SHL 8
MOV DX,OFFSET COMFIL
INT 21H
JC DOSCLS
MOV [COMHandle],AX
MOV BX,AX
CALL GETFSIZ
CMP [COMSIZP],0
JZ SETCOMSIZ
CMP [COMSIZP],AX
JZ SETCOMSIZ
COMCLS:
MOV AH,CLOSE
MOV BX,[COMHandle]
INT 21H
JMP DOSCLS
SETCOMSIZ:
MOV [COMSIZP],AX
MOV WORD PTR [COMSIZB],SI
MOV WORD PTR [COMSIZB+2],DI
MOV [CDATE],DX
MOV [CTIME],CX
CLC
RET
;*******************************************
; Handle in BX, return file size in para in AX
; File size in bytes DI:SI, file date in DX, file
; time in CX.
GETFSIZ:
MOV AX,(LSEEK SHL 8) OR 2
XOR CX,CX
MOV DX,CX
INT 21H
MOV SI,AX
MOV DI,DX
ADD AX,15 ; Para round up
ADC DX,0
AND DX,0FH ; If the file is larger than this
; it is bigger than the 8086 address space!
MOV CL,12
SHL DX,CL
MOV CL,4
SHR AX,CL
OR AX,DX
PUSH AX
MOV AX,LSEEK SHL 8
XOR CX,CX
MOV DX,CX
INT 21H
MOV AX,FILE_TIMES SHL 8
INT 21H
POP AX
RET
;********************************************
; Read/Write file
; DS:0 is Xaddr
; DI:SI is byte count to I/O
; BX is handle
; Carry set if screw up
;
; I/O SI bytes
; I/O 64K - 1 bytes DI times
; I/O DI bytes
; DS=CS on output
READFILE:
; Must preserve AX,DX
PUSH AX
PUSH DX
PUSH BP
MOV BP,READ SHL 8
CALL FILIO
POP BP
POP DX
POP AX
PUSH CS
POP DS
RET
WRITEFILE:
PUSH BP
MOV BP,WRITE SHL 8
CALL FILIO
POP BP
PUSH CS
POP DS
RET
FILIO:
XOR DX,DX
MOV CX,SI
JCXZ K64IO
MOV AX,BP
INT 21H
JC IORET
ADD DX,AX
CMP AX,CX ; If not =, AX<CX, carry set.
JNZ IORET
CALL NORMALIZE
K64IO:
CLC
MOV CX,DI
JCXZ IORET
MOV AX,BP
INT 21H
JC IORET
ADD DX,AX
CMP AX,CX ; If not =, AX<CX, carry set.
JNZ IORET
CALL NORMALIZE
MOV CX,DI
K64M1:
PUSH CX
XOR AX,AX
OR DX,DX
JZ NORMIO
MOV CX,10H
SUB CX,DX
MOV AX,BP
INT 21H
JC IORETP
ADD DX,AX
CMP AX,CX ; If not =, AX<CX, carry set.
JNZ IORETP
CALL NORMALIZE
NORMIO:
MOV CX,0FFFFH
SUB CX,AX
MOV AX,BP
INT 21H
JC IORETP
ADD DX,AX
CMP AX,CX ; If not =, AX<CX, carry set.
JNZ IORETP
CALL NORMALIZE ; Clears carry
POP CX
LOOP K64M1
PUSH CX
IORETP:
POP CX
IORET:
RET
;*********************************
; Shift DI:SI left 4 bits
DISIX4:
MOV CX,4
SH32:
SHL SI,1
RCL DI,1
LOOP SH32
RET
;*********************************
; Shift DI:SI right 4 bits
DISID4:
MOV CX,4
SH32B:
SHR DI,1
RCR SI,1
LOOP SH32B
RET
;********************************
; Normalize DS:DX
NORMALIZE:
PUSH DX
PUSH AX
SHR DX,1
SHR DX,1
SHR DX,1
SHR DX,1
MOV AX,DS
ADD AX,DX
MOV DS,AX
POP AX
POP DX
AND DX,0FH ; Clears carry
RET
ROOTSTR DB ?
DB ":"
SWTCH DB "/",0
DBLFLG DB 0 ;Initialize flags to zero
CLEARFLG DB 0
DRIVE DB 0
DEFALT DB 0 ;Default drive
IOCNT DD ?
MSTART DW ? ; Start of sys file buffer (para#)
MSIZE DW ? ; Size of above in paragraphs
TempHandle DW ?
FILSTAT DB ? ; In memory status of files
; XXXXXX00B BIOS not in
; XXXXXX01B BIOS partly in
; XXXXXX10B BIOS all in
; XXXX00XXB DOS not in
; XXXX01XXB DOS partly in
; XXXX10XXB DOS all in
; XX00XXXXB COMMAND not in
; XX01XXXXB COMMAND partly in
; XX10XXXXB COMMAND all in
USERDIRS DB DIRSTRLEN+3 DUP(?) ; Storage for users current directory
BIOSData LABEL BYTE
BIOSHandle DW 0
BIOSSIZP DW 0
BIOSSIZB DD ?
BIOSOFFS DD ?
BIOSSTRT DW ?
BDATE DW 0 ;IO system date stored here
BTIME DW 0 ;IO system time stored here
BIOSATT EQU attr_hidden + attr_system + attr_read_only
BIOSFIL LABEL BYTE
BIODRV LABEL BYTE
DB "X:\"
IF IBMVER OR IBMJAPVER
DB "IBMBIO.COM"
ENDIF
IF MSVER
DB "IO.SYS"
ENDIF
DB 0
DOSData LABEL BYTE
DOSHandle DW 0
DOSSIZP DW 0
DOSSIZB DD ?
DOSOFFS DD ?
DOSSTRT DW ?
DDATE DW 0 ;DOS date stored here
DTIME DW 0 ;DOS time
DOSATT EQU attr_hidden + attr_system + attr_read_only
DOSFIL LABEL BYTE
DOSDRV LABEL BYTE
DB "X:\"
IF IBMVER OR IBMJAPVER
DB "IBMDOS.COM"
ENDIF
IF MSVER
DB "MSDOS.SYS"
ENDIF
DB 0
COMData LABEL BYTE
COMHandle DW 0
COMSIZP DW 0
COMSIZB DD ?
COMOFFS DD ?
COMSTRT DW ?
CDATE DW 0 ;Date of COMMAND
CTIME DW 0 ;Time of COMMAND
COMATT EQU 0
COMFIL LABEL BYTE
COMDRV LABEL BYTE
DB "X:\COMMAND.COM",0
VOLFCB DB -1,0,0,0,0,0,8
DB 0
VOLNAM DB " "
DB 8
DB 26 DUP(?)
ALLFILE DB -1,0,0,0,0,0,0FFH
ALLDRV DB 0,"???????????"
DB 26 DUP(?)
CLEANFILE DB 0
CLNNAM DB "AAAFFFFFFOR"
DB 26 DUP(?)
SWITCHMAP DW ?
SWITCHCOPY DW ?
FAT DW ?
DW ?
CLUSSIZ DW ?
SECSIZ DW ?
SYSSIZ DD ?
FDSKSIZ DD ?
BADSIZ DD ?
SYSTRKS DW ?
SECTORS DW ?
INBUFF DB 80,0
DB 80 DUP(?)
DB 100H DUP(?)
STACK LABEL BYTE
;For FORMES module
EXTRN BADVER:BYTE,SNGMSG:BYTE,SNGDRV:BYTE,HRDMSG:BYTE,HRDDRV:BYTE
EXTRN LABPRMT:BYTE,TARGMSG:BYTE,TARGDRV:BYTE
EXTRN SYSTRAN:BYTE,CRLFMSG:BYTE,INVCHR:BYTE,INVDRV:BYTE
EXTRN SYSMSG:BYTE,SYSDRV:BYTE,FRMTERR:BYTE,NOTSYS:BYTE
EXTRN NOUSE:BYTE,MEMEX:BYTE,INVPAR:BYTE
IF IBMVER
EXTRN ASGERR:BYTE
ENDIF
CODE ENDS
END START