random-mirrors/MS-DOS
1
0
Fork 0
mirror of https://github.com/microsoft/MS-DOS.git synced 2024-11-29 17:15:47 +00:00
Code Issues Packages Projects Releases Wiki Activity
28fa262cc2
MS-DOS/v2.0/source/FORMAT.ASM
Rich Turner 80ab2fddfd MS-DOS v2.0 Release
2018-09-21 17:53:34 -07:00

1627 lines
44 KiB
NASM
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;***************************************************************
;
; 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

Reference in New Issue View Git Blame Copy Permalink