mirror of
https://github.com/microsoft/MS-DOS.git
synced 2024-11-29 17:15:47 +00:00
1408 lines
40 KiB
NASM
1408 lines
40 KiB
NASM
TITLE CHKPROC - Procedures called from chkdsk
|
||
|
||
FALSE EQU 0
|
||
TRUE EQU NOT FALSE
|
||
|
||
DRVCHAR EQU ":"
|
||
|
||
INCLUDE DOSSYM.ASM
|
||
|
||
SUBTTL Segments used in load order
|
||
|
||
CODE SEGMENT PUBLIC
|
||
CODE ENDS
|
||
|
||
CONST SEGMENT PUBLIC BYTE
|
||
|
||
EXTRN CLUSBAD:BYTE,BADATT:BYTE,BADSIZM:BYTE
|
||
EXTRN DIRECMES:BYTE,CDDDMES:BYTE,NDOTMES:BYTE
|
||
EXTRN BADTARG1:BYTE,BADTARG2:BYTE,FATALMES:BYTE
|
||
EXTRN STACKMES:BYTE,BADDPBDIR:BYTE,CREATMES:BYTE
|
||
EXTRN FREEBYMES_PRE:BYTE,FREEBYMESF_PRE:BYTE
|
||
EXTRN FREEBYMES_POST:BYTE,FREEBYMESF_POST:BYTE
|
||
EXTRN NULNZ:BYTE,NULDMES:BYTE,BADCLUS:BYTE
|
||
EXTRN NORECDDOT:BYTE,NORECDOT:BYTE,DOTMES:BYTE
|
||
EXTRN BADWRITE_PRE:BYTE,BADCHAIN:BYTE,CROSSMES_PRE:BYTE
|
||
EXTRN BADWRITE_POST:BYTE,CROSSMES_POST:BYTE,INDENT:BYTE
|
||
EXTRN PTRANDIR:BYTE,PTRANDIR2:BYTE,FREEMES:BYTE,FIXMES:BYTE
|
||
|
||
EXTRN NOISY:BYTE,DOFIX:BYTE,DIRBUF:WORD,DOTENT:BYTE,FIXMFLG:BYTE
|
||
EXTRN HAVFIX:BYTE,SECONDPASS:BYTE,LCLUS:WORD,DIRTYFAT:BYTE
|
||
EXTRN NUL:BYTE,ALLFILE:BYTE,PARSTR:BYTE,ERRSUB:WORD,USERDIR:BYTE
|
||
EXTRN HIDCNT:WORD,HIDSIZ:WORD,FILCNT:WORD,FILSIZ:WORD,DIRCHAR:BYTE
|
||
EXTRN DIRCNT:WORD,DIRSIZ:WORD,FRAGMENT:BYTE,HECODE:BYTE
|
||
EXTRN BADSIZ:WORD,ORPHSIZ:WORD,DDOTENT:BYTE,CROSSCNT:WORD
|
||
EXTRN ORPHCNT:WORD,ORPHFCB:BYTE,ORPHEXT:BYTE,ALLDRV:BYTE,DIRCHAR:BYTE
|
||
|
||
CONST ENDS
|
||
|
||
DATA SEGMENT PUBLIC WORD
|
||
|
||
EXTRN THISDPB:DWORD,HARDCH:DWORD,CONTCH:DWORD,USERDEV:BYTE
|
||
EXTRN CSIZE:BYTE,SSIZE:WORD,DSIZE:WORD,MCLUS:WORD,NAMBUF:BYTE
|
||
EXTRN DOTSNOGOOD:BYTE,ZEROTRUNC:BYTE,ISCROSS:BYTE,SRFCBPT:WORD
|
||
EXTRN FATMAP:WORD,SECBUF:WORD,ERRCNT:BYTE,STACKLIM:WORD,FAT:WORD
|
||
|
||
DATA ENDS
|
||
|
||
DG GROUP CODE,CONST,DATA
|
||
|
||
SUBTTL Initialized Data
|
||
PAGE
|
||
|
||
|
||
CODE SEGMENT PUBLIC
|
||
ASSUME CS:DG,DS:DG,ES:DG,SS:DG
|
||
|
||
PUBLIC INT_23,INT_24,FINDCHAIN,DONE,AMDONE,RDONE
|
||
PUBLIC FATAL,DIRPROC,CHKMAP,CHKCROSS,UNPACK
|
||
PUBLIC PRINTTHISEL2,CHECKERR,PRINTCURRDIRERR
|
||
|
||
EXTRN EPRINT:NEAR,DOCRLF:NEAR,PRINT:NEAR
|
||
EXTRN PROMPTYN:NEAR,DOINT26:NEAR,SUBERRP:NEAR
|
||
EXTRN DOTCOMBMES:NEAR,DISP16BITS:NEAR
|
||
EXTRN CHAINREPORT:NEAR,DISPCLUS:NEAR
|
||
EXTRN PRTCHR:NEAR,WDSKERR:NEAR,CHECKFILES:NEAR
|
||
EXTRN FCB_TO_ASCZ:NEAR,FIGREC:NEAR,RDSKERR:NEAR
|
||
|
||
CHKPROC:
|
||
|
||
SUBTTL DIRPROC -- Recursive directory processing
|
||
|
||
; YOU ARE ADVISED NOT TO COPY THE FOLLOWING METHOD!!!
|
||
|
||
DOTDOTHARDWAY:
|
||
LDS DI,[THISDPB]
|
||
ASSUME DS:NOTHING
|
||
MOV [DI.dpb_current_dir],-1 ;Invalidate path
|
||
MOV SI,DI
|
||
ADD SI,dpb_dir_text
|
||
MOV CX,SI
|
||
FINDEND:
|
||
LODSB ;Scan to end of current path
|
||
OR AL,AL
|
||
JNZ FINDEND
|
||
DEC SI ;Point at the NUL
|
||
DELLOOP: ;Delete last element
|
||
CMP SI,CX
|
||
JZ SETROOT
|
||
CMP BYTE PTR [SI],"/"
|
||
JZ SETTERM
|
||
CMP BYTE PTR [SI],"\"
|
||
JZ SETTERM
|
||
DEC SI
|
||
JMP SHORT DELLOOP
|
||
|
||
SETTERM:
|
||
MOV BYTE PTR [SI],0
|
||
SETCURR:
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:DG
|
||
MOV DX,OFFSET DG:DOTMES
|
||
MOV AH,CHDIR ;Chdir to altered path
|
||
INT 21H
|
||
RET
|
||
|
||
SETROOT:
|
||
ASSUME DS:NOTHING
|
||
MOV [DI.dpb_current_dir],0 ;Set Path to Root
|
||
JMP SHORT SETCURR ;The CHDIR will fail, but who cares
|
||
|
||
|
||
;Structures used by DIRPROC
|
||
|
||
SRCHFCB STRUC
|
||
DB 44 DUP (?)
|
||
SRCHFCB ENDS
|
||
SFCBSIZ EQU SIZE SRCHFCB
|
||
THISENT EQU 17H ;Relative entry number of current entry
|
||
|
||
DIRENT STRUC
|
||
DB 7 DUP (?) ;Ext FCB junk
|
||
DB ? ;Drive
|
||
DIRNAM DB 11 DUP (?)
|
||
DIRATT DB ?
|
||
DB 10 DUP (?)
|
||
DIRTIM DW ?
|
||
DIRDAT DW ?
|
||
DIRCLUS DW ?
|
||
DIRESIZ DD ?
|
||
DIRENT ENDS
|
||
ENTSIZ EQU SIZE DIRENT
|
||
|
||
;Attribute bits
|
||
|
||
RDONLY EQU 1
|
||
HIDDN EQU 2
|
||
SYSTM EQU 4
|
||
VOLIDA EQU 8
|
||
ISDIR EQU 10H
|
||
|
||
ASSUME DS:DG
|
||
|
||
NODOT: ;No .
|
||
PUSH AX ;Return from SRCH
|
||
CMP [NOISY],0
|
||
JNZ DOEXTMES1
|
||
CALL SUBERRP
|
||
JMP SHORT MESD1
|
||
DOEXTMES1:
|
||
MOV SI,OFFSET DG:DOTMES
|
||
CALL PRINTCURRDIRERR
|
||
MOV DX,OFFSET DG:NDOTMES
|
||
CALL EPRINT
|
||
MESD1:
|
||
XOR AX,AX
|
||
PUSH BX
|
||
PUSH BP
|
||
CALL GETENT
|
||
POP BP
|
||
PUSH BP
|
||
CMP BYTE PTR [DI],0E5H ;Have place to put .?
|
||
JNZ CANTREC ;Nope
|
||
MOV SI,OFFSET DG:DOTENT
|
||
MOV CX,11
|
||
REP MOVSB ;Name
|
||
PUSH AX
|
||
MOV AL,ISDIR
|
||
STOSB ;Attribute
|
||
ADD DI,10
|
||
XOR AX,AX
|
||
STOSW ;Date = 0
|
||
STOSW ;Time = 0
|
||
MOV AX,[BP+6]
|
||
STOSW ;Alloc #
|
||
XOR AX,AX
|
||
STOSW
|
||
STOSW ;Size
|
||
POP AX
|
||
MOV [HAVFIX],1 ;Have a fix
|
||
CMP [DOFIX],0
|
||
JZ DOTGOON ;No fix if not F
|
||
MOV CX,1
|
||
CALL DOINT26
|
||
JMP SHORT DOTGOON
|
||
|
||
CANTREC:
|
||
INC [DOTSNOGOOD]
|
||
CMP [NOISY],0
|
||
JZ DOTGOON
|
||
MOV DX,OFFSET DG:NORECDOT
|
||
CALL EPRINT
|
||
DOTGOON:
|
||
POP BP
|
||
POP BX
|
||
POP AX
|
||
MOV SI,OFFSET DG:DIRBUF
|
||
JMP CHKDOTDOT ;Go look for ..
|
||
|
||
NODDOT: ;No ..
|
||
PUSH AX ;Return from SRCH
|
||
CMP [NOISY],0
|
||
JNZ DOEXTMES2
|
||
CALL SUBERRP
|
||
JMP SHORT MESD2
|
||
DOEXTMES2:
|
||
MOV SI,OFFSET DG:PARSTR
|
||
CALL PRINTCURRDIRERR
|
||
MOV DX,OFFSET DG:NDOTMES
|
||
CALL EPRINT
|
||
MESD2:
|
||
MOV AX,1
|
||
PUSH BX
|
||
PUSH BP
|
||
CALL GETENT
|
||
POP BP
|
||
PUSH BP
|
||
CMP BYTE PTR [DI],0E5H ;Place to put it?
|
||
JNZ CANTREC2 ;Nope
|
||
MOV SI,OFFSET DG:DDOTENT
|
||
MOV CX,11
|
||
REP MOVSB ;Name
|
||
PUSH AX
|
||
MOV AL,ISDIR
|
||
STOSB ;Attribute
|
||
ADD DI,10
|
||
XOR AX,AX
|
||
STOSW ;Date
|
||
STOSW ;Time
|
||
MOV AX,[BP+4]
|
||
STOSW ;Alloc #
|
||
XOR AX,AX
|
||
STOSW
|
||
STOSW ;Size
|
||
POP AX
|
||
MOV [HAVFIX],1 ;Got a fix
|
||
CMP [DOFIX],0
|
||
JZ NFIX ;No fix if no F, carry clear
|
||
MOV CX,1
|
||
CALL DOINT26
|
||
NFIX:
|
||
POP BP
|
||
POP BX
|
||
POP AX
|
||
MOV SI,OFFSET DG:DIRBUF
|
||
JMP ROOTDIR ;Process files
|
||
|
||
CANTREC2:
|
||
POP BP
|
||
POP BX
|
||
POP AX
|
||
CMP [NOISY],0
|
||
JZ DOTSBAD
|
||
MOV DX,OFFSET DG:NORECDDOT
|
||
CALL EPRINT
|
||
JMP DOTSBAD
|
||
|
||
NULLDIRERR:
|
||
CMP [NOISY],0
|
||
JNZ DOEXTMES3
|
||
CALL SUBERRP
|
||
JMP SHORT DOTSBAD
|
||
DOEXTMES3:
|
||
MOV SI,OFFSET DG:NUL
|
||
CALL PRINTCURRDIRERR
|
||
MOV DX,OFFSET DG:NULDMES
|
||
CALL EPRINT
|
||
DOTSBAD: ;Can't recover
|
||
MOV DX,OFFSET DG:BADTARG2
|
||
CALL EPRINT
|
||
CALL DOTDOTHARDWAY
|
||
INC [DOTSNOGOOD]
|
||
JMP DIRDONE ;Terminate tree walk at this level
|
||
|
||
ROOTDIRJ: JMP ROOTDIR
|
||
|
||
PAGE
|
||
DIRPROC:
|
||
;Recursive tree walker
|
||
;dirproc(self,parent)
|
||
MOV [DOTSNOGOOD],0 ;Init to dots OK
|
||
MOV [ERRSUB],0 ;No subdir errors yet
|
||
PUSH BP ;Save frame pointer
|
||
MOV BP,SP
|
||
SUB SP,SFCBSIZ ;Only local var
|
||
CMP SP,[STACKLIM]
|
||
JA STACKISOK
|
||
MOV BX,OFFSET DG:STACKMES ;Out of stack
|
||
JMP FATAL
|
||
STACKISOK:
|
||
CMP [NOISY],0
|
||
JZ NOPRINT
|
||
CMP [SECONDPASS],0
|
||
JNZ NOPRINT ;Don't do it again on second pass
|
||
MOV DX,OFFSET DG:DIRECMES ;Tell user where we are
|
||
CALL PRINT
|
||
MOV SI,OFFSET DG:NUL
|
||
CALL PRINTCURRDIR
|
||
CALL DOCRLF
|
||
NOPRINT:
|
||
MOV SI,OFFSET DG:ALLFILE
|
||
MOV DI,SP
|
||
PUSH DI
|
||
MOV CX,SFCBSIZ
|
||
REP MOVSB ;Initialize search FCB
|
||
POP DX
|
||
MOV BX,DX ;BX points to SRCH FCB
|
||
MOV AH,DIR_SEARCH_FIRST
|
||
INT 21H
|
||
CMP WORD PTR [BP+6],0 ;Am I the root
|
||
JZ ROOTDIRJ ;Yes, no . or ..
|
||
OR AL,AL
|
||
JZ NONULLDERR
|
||
JMP NULLDIRERR ;Dir is empty!
|
||
NONULLDERR:
|
||
MOV SI,OFFSET DG:DIRBUF + DIRNAM
|
||
MOV DI,OFFSET DG:DOTENT
|
||
MOV CX,11
|
||
REP CMPSB
|
||
JZ DOTOK ;Got a . as first entry
|
||
JMP NODOT ;No .
|
||
DOTOK:
|
||
MOV SI,OFFSET DG:DIRBUF
|
||
MOV AL,[SI.DIRATT]
|
||
TEST AL,ISDIR
|
||
JNZ DATTOK
|
||
PUSH SI ;. not a dir?
|
||
MOV SI,OFFSET DG:DOTMES
|
||
MOV DX,OFFSET DG:BADATT
|
||
CALL DOTCOMBMES
|
||
POP SI
|
||
OR [SI.DIRATT],ISDIR
|
||
CALL FIXENT ;Fix it
|
||
DATTOK:
|
||
MOV AX,[SI.DIRCLUS]
|
||
CMP AX,[BP+6] ;. link = MYSELF?
|
||
JZ DLINKOK
|
||
PUSH SI ;Link messed up
|
||
MOV SI,OFFSET DG:DOTMES
|
||
MOV DX,OFFSET DG:CLUSBAD
|
||
CALL DOTCOMBMES
|
||
POP SI
|
||
MOV AX,[BP+6]
|
||
MOV [SI.DIRCLUS],AX
|
||
CALL FIXENT ;Fix it
|
||
DLINKOK:
|
||
MOV AX,WORD PTR [SI.DIRESIZ]
|
||
OR AX,AX
|
||
JNZ BADDSIZ
|
||
MOV AX,WORD PTR [SI.DIRESIZ+2]
|
||
OR AX,AX
|
||
JZ DSIZOK
|
||
BADDSIZ: ;Size should be zero
|
||
PUSH SI
|
||
MOV SI,OFFSET DG:DOTMES
|
||
MOV DX,OFFSET DG:BADSIZM
|
||
CALL DOTCOMBMES
|
||
POP SI
|
||
XOR AX,AX
|
||
MOV WORD PTR [SI.DIRESIZ],AX
|
||
MOV WORD PTR [SI.DIRESIZ+2],AX
|
||
CALL FIXENT ;Fix it
|
||
DSIZOK: ;Get next (should be ..)
|
||
MOV DX,BX
|
||
MOV AH,DIR_SEARCH_NEXT
|
||
INT 21H
|
||
CHKDOTDOT: ;Come here after . failure
|
||
OR AL,AL
|
||
JZ DOTDOTOK
|
||
NODDOTJ: JMP NODDOT ;No ..
|
||
DOTDOTOK:
|
||
MOV SI,OFFSET DG:DIRBUF + DIRNAM
|
||
MOV DI,OFFSET DG:DDOTENT
|
||
MOV CX,11
|
||
REP CMPSB
|
||
JNZ NODDOTJ ;No ..
|
||
MOV SI,OFFSET DG:DIRBUF
|
||
MOV AL,[SI.DIRATT]
|
||
TEST AL,ISDIR
|
||
JNZ DDATTOK ;.. must be a dir
|
||
PUSH SI
|
||
MOV SI,OFFSET DG:PARSTR
|
||
MOV DX,OFFSET DG:BADATT
|
||
CALL DOTCOMBMES
|
||
POP SI
|
||
OR [SI.DIRATT],ISDIR
|
||
CALL FIXENT ;Fix it
|
||
DDATTOK:
|
||
PUSH SI
|
||
MOV AX,[SI.DIRCLUS]
|
||
CMP AX,[BP+4] ;.. link must be PARENT
|
||
JZ DDLINKOK
|
||
MOV SI,OFFSET DG:PARSTR
|
||
MOV DX,OFFSET DG:CLUSBAD
|
||
CALL DOTCOMBMES
|
||
POP SI
|
||
MOV AX,[BP+4]
|
||
MOV [SI.DIRCLUS],AX
|
||
CALL FIXENT ;Fix it
|
||
DDLINKOK:
|
||
MOV AX,WORD PTR [SI.DIRESIZ]
|
||
OR AX,AX
|
||
JNZ BADDDSIZ
|
||
MOV AX,WORD PTR [SI.DIRESIZ+2]
|
||
OR AX,AX
|
||
JZ DDSIZOK
|
||
BADDDSIZ: ;.. size should be 0
|
||
PUSH SI
|
||
MOV SI,OFFSET DG:PARSTR
|
||
MOV DX,OFFSET DG:BADSIZM
|
||
CALL DOTCOMBMES
|
||
POP SI
|
||
XOR AX,AX
|
||
MOV WORD PTR [SI.DIRESIZ],AX
|
||
MOV WORD PTR [SI.DIRESIZ+2],AX
|
||
CALL FIXENT ;Fix it
|
||
DDSIZOK:
|
||
MOV DX,BX ;Next entry
|
||
MOV AH,DIR_SEARCH_NEXT
|
||
INT 21H
|
||
|
||
ROOTDIR: ;Come here after .. failure also
|
||
OR AL,AL
|
||
JZ MOREDIR ;More to go
|
||
CMP WORD PTR [BP+6],0 ;Am I the root?
|
||
JZ DIRDONE ;Yes, no chdir
|
||
MOV DX,OFFSET DG:PARSTR
|
||
MOV AH,CHDIR ;Chdir to parent (..)
|
||
INT 21H
|
||
JNC DIRDONE ;Worked
|
||
CMP [NOISY],0
|
||
JZ DODDH
|
||
MOV SI,OFFSET DG:NUL
|
||
CALL PRINTCURRDIRERR
|
||
MOV DX,OFFSET DG:CDDDMES
|
||
CALL EPRINT
|
||
DODDH:
|
||
CALL DOTDOTHARDWAY ;Try again
|
||
DIRDONE:
|
||
MOV SP,BP ;Pop local vars
|
||
POP BP ;Restore frame
|
||
RET 4 ;Pop args
|
||
|
||
MOREDIR:
|
||
MOV SI,OFFSET DG:DIRBUF
|
||
TEST [SI.DIRATT],ISDIR
|
||
JNZ NEWDIR ;Is a new directory
|
||
CMP [SECONDPASS],0
|
||
JZ FPROC1 ;First pass
|
||
CALL CROSSLOOK ;Check for cross links
|
||
JMP DDSIZOK ;Next
|
||
FPROC1:
|
||
CMP [NOISY],0
|
||
JZ NOPRINT2
|
||
MOV DX,OFFSET DG:INDENT ;Tell user where we are
|
||
CALL PRINT
|
||
PUSH BX
|
||
MOV BX,SI
|
||
CALL PRINTTHISEL
|
||
CALL DOCRLF
|
||
MOV SI,BX
|
||
POP BX
|
||
NOPRINT2:
|
||
MOV AL,81H ;Head of file
|
||
CALL MARKFAT
|
||
TEST [SI.DIRATT],VOLIDA
|
||
JNZ HIDENFILE ;VOL ID counts as hidden
|
||
TEST [SI.DIRATT],HIDDN
|
||
JZ NORMFILE
|
||
HIDENFILE:
|
||
INC [HIDCNT]
|
||
ADD [HIDSIZ],CX
|
||
JMP DDSIZOK ;Next
|
||
NORMFILE:
|
||
INC [FILCNT]
|
||
ADD [FILSIZ],CX
|
||
JMP DDSIZOK ;Next
|
||
|
||
NEWDIR:
|
||
CMP [SECONDPASS],0
|
||
JZ DPROC1
|
||
CALL CROSSLOOK ;Check for cross links
|
||
JMP SHORT DPROC2
|
||
DPROC1:
|
||
MOV AL,82H ;Head of dir
|
||
CALL MARKFAT
|
||
INC [DIRCNT]
|
||
ADD [DIRSIZ],CX
|
||
CMP [ZEROTRUNC],0
|
||
JZ DPROC2 ;Dir not truncated
|
||
CONVDIR:
|
||
AND [SI.DIRATT],NOT ISDIR ;Turn into file
|
||
CALL FIXENT
|
||
JMP DDSIZOK ;Next
|
||
DPROC2:
|
||
PUSH [ERRSUB]
|
||
PUSH BX ;Save my srch FCB pointer
|
||
PUSH [SI.DIRCLUS] ;MYSELF for next directory
|
||
PUSH [BP+6] ;His PARENT is me
|
||
ADD SI,DIRNAM
|
||
MOV DI,OFFSET DG:NAMBUF
|
||
PUSH DI
|
||
CALL FCB_TO_ASCZ
|
||
POP DX
|
||
MOV AH,CHDIR ;CHDIR to new dir
|
||
INT 21H
|
||
JC CANTTARG ;Barfed
|
||
CALL DIRPROC
|
||
POP BX ;Get my SRCH FCB pointer back
|
||
POP [ERRSUB]
|
||
CMP [DOTSNOGOOD],0
|
||
JNZ ASKCONV
|
||
JMP DDSIZOK ;Next
|
||
|
||
CANTTARG:
|
||
POP AX ;Clean stack
|
||
POP AX
|
||
POP AX
|
||
POP AX
|
||
PUSH DX ;Save pointer to bad DIR
|
||
MOV DX,OFFSET DG:BADTARG1
|
||
CALL EPRINT
|
||
POP SI ;Pointer to bad DIR
|
||
CALL PRINTCURRDIRERR
|
||
MOV DX,OFFSET DG:BADTARG2
|
||
CALL EPRINT
|
||
DDSIZOKJ: JMP DDSIZOK ;Next
|
||
|
||
ASKCONV:
|
||
CMP [SECONDPASS],0
|
||
JNZ DDSIZOKJ ;Leave on second pass
|
||
MOV DX,OFFSET DG:PTRANDIR
|
||
CMP [NOISY],0
|
||
JNZ PRINTTRMES
|
||
MOV DX,OFFSET DG:PTRANDIR2
|
||
PRINTTRMES:
|
||
CALL PROMPTYN ;Ask user what to do
|
||
JNZ DDSIZOKJ ;User say leave alone
|
||
PUSH BP
|
||
PUSH BX
|
||
MOV AX,[BX+THISENT] ;Entry number
|
||
CALL GETENT ;Get the entry
|
||
MOV SI,DI
|
||
MOV DI,OFFSET DG:DIRBUF
|
||
PUSH DI
|
||
ADD DI,DIRNAM
|
||
MOV CX,32
|
||
REP MOVSB ;Transfer entry to DIRBUF
|
||
POP SI
|
||
PUSH SI
|
||
MOV SI,[SI.DIRCLUS] ;First cluster
|
||
CALL GETFILSIZ
|
||
POP SI
|
||
POP BX
|
||
POP BP
|
||
MOV WORD PTR [SI.DIRESIZ],AX ;Fix entry
|
||
MOV WORD PTR [SI.DIRESIZ+2],DX
|
||
JMP CONVDIR
|
||
|
||
SUBTTL FAT Look routines
|
||
PAGE
|
||
CROSSLOOK:
|
||
;Same as MRKFAT only simpler for pass 2
|
||
MOV [SRFCBPT],BX
|
||
MOV BX,SI
|
||
MOV SI,[BX.DIRCLUS]
|
||
CALL CROSSCHK
|
||
JNZ CROSSLINKJ
|
||
CHLP:
|
||
PUSH BX
|
||
CALL UNPACK
|
||
POP BX
|
||
XCHG SI,DI
|
||
CMP SI,0FF8H
|
||
JAE CHAINDONEJ
|
||
CALL CROSSCHK
|
||
JZ CHLP
|
||
CROSSLINKJ: JMP SHORT CROSSLINK
|
||
|
||
CROSSCHK:
|
||
MOV DI,[FATMAP]
|
||
ADD DI,SI
|
||
MOV AH,[DI]
|
||
TEST AH,10H
|
||
RET
|
||
|
||
NOCLUSTERSJ: JMP NOCLUSTERS
|
||
|
||
MARKFAT:
|
||
; Map the file and perform checks
|
||
; SI points to dir entry
|
||
; AL is head mark with app type
|
||
; On return CX is number of clusters
|
||
; BX,SI preserved
|
||
; ZEROTRUNC is non zero if the file was trimmed to zero length
|
||
; ISCROSS is non zero if the file is cross linked
|
||
|
||
MOV [ZEROTRUNC],0 ;Initialize
|
||
MOV [ISCROSS],0
|
||
MOV [SRFCBPT],BX
|
||
MOV BX,SI
|
||
XOR CX,CX
|
||
MOV SI,[BX.DIRCLUS]
|
||
CMP SI,2
|
||
JB NOCLUSTERSJ ;Bad cluster # or nul file (SI = 0)
|
||
CMP SI,[MCLUS]
|
||
JA NOCLUSTERSJ ;Bad cluster #
|
||
PUSH BX
|
||
CALL UNPACK
|
||
POP BX
|
||
JZ NOCLUSTERSJ ;Bad cluster (it is marked free)
|
||
CALL MARKMAP
|
||
JNZ CROSSLINK
|
||
AND AL,7FH ;Turn off head bit
|
||
CHASELOOP:
|
||
PUSH BX
|
||
CALL UNPACK
|
||
POP BX
|
||
INC CX
|
||
XCHG SI,DI
|
||
CMP SI,0FF8H
|
||
JAE CHAINDONE
|
||
CMP SI,2
|
||
JB MRKBAD
|
||
CMP SI,[MCLUS]
|
||
JBE MRKOK
|
||
MRKBAD: ;Bad cluster # in chain
|
||
PUSH CX
|
||
PUSH DI
|
||
CALL PRINTTHISELERR
|
||
MOV DX,OFFSET DG:BADCHAIN
|
||
CALL EPRINT
|
||
POP SI
|
||
MOV DX,0FFFH ;Insert EOF
|
||
PUSH BX
|
||
CALL PACK
|
||
POP BX
|
||
POP CX
|
||
CHAINDONEJ: JMP SHORT CHAINDONE
|
||
|
||
MRKOK:
|
||
CALL MARKMAP
|
||
JZ CHASELOOP
|
||
CROSSLINK: ;File is cross linked
|
||
INC [ISCROSS]
|
||
CMP [SECONDPASS],0
|
||
JZ CHAINDONE ;Crosslinks only on second pass
|
||
PUSH SI ;Cluster number
|
||
CALL PRINTTHISEL
|
||
CALL DOCRLF
|
||
MOV DX,OFFSET DG:CROSSMES_PRE
|
||
CALL PRINT
|
||
POP SI
|
||
PUSH BX
|
||
PUSH CX
|
||
MOV BX,OFFSET DG:CROSSMES_POST
|
||
XOR DI,DI
|
||
CALL DISP16BITS
|
||
POP CX
|
||
POP BX
|
||
CHAINDONE:
|
||
TEST [BX.DIRATT],ISDIR
|
||
JNZ NOSIZE ;Don't size dirs
|
||
CMP [ISCROSS],0
|
||
JNZ NOSIZE ;Don't size cross linked files
|
||
CMP [SECONDPASS],0
|
||
JNZ NOSIZE ;Don't size on pass 2 (CX garbage)
|
||
MOV AL,[CSIZE]
|
||
XOR AH,AH
|
||
MUL [SSIZE]
|
||
PUSH AX ;Size in bytes of one alloc unit
|
||
MUL CX
|
||
MOV DI,DX ;Save allocation size
|
||
MOV SI,AX
|
||
SUB AX,WORD PTR [BX.DIRESIZ]
|
||
SBB DX,WORD PTR [BX.DIRESIZ+2]
|
||
JC BADFSIZ ;Size to big
|
||
OR DX,DX
|
||
JNZ BADFSIZ ;Size to small
|
||
POP DX
|
||
CMP AX,DX
|
||
JB NOSIZE ;Size within one Alloc unit
|
||
PUSH DX ;Size to small
|
||
BADFSIZ:
|
||
POP DX
|
||
PUSH CX ;Save size of file
|
||
MOV WORD PTR [BX.DIRESIZ],SI
|
||
MOV WORD PTR [BX.DIRESIZ+2],DI
|
||
CALL FIXENT2 ;Fix it
|
||
CALL PRINTTHISELERR
|
||
MOV DX,OFFSET DG:BADCLUS
|
||
CALL EPRINT
|
||
POP CX ;Restore size of file
|
||
NOSIZE:
|
||
MOV SI,BX
|
||
MOV BX,[SRFCBPT]
|
||
RET
|
||
|
||
NOCLUSTERS:
|
||
;File is zero length
|
||
OR SI,SI
|
||
JZ CHKSIZ ;Firclus is OK, Check size
|
||
MOV DX,OFFSET DG:NULNZ
|
||
ADJUST:
|
||
PUSH DX
|
||
CALL PRINTTHISELERR
|
||
POP DX
|
||
CALL EPRINT
|
||
XOR SI,SI
|
||
MOV [BX.DIRCLUS],SI ;Set it to 0
|
||
MOV WORD PTR [BX.DIRESIZ],SI ;Set size too
|
||
MOV WORD PTR [BX.DIRESIZ+2],SI
|
||
CALL FIXENT2 ;Fix it
|
||
INC [ZEROTRUNC] ;Indicate truncation
|
||
JMP CHAINDONE
|
||
|
||
CHKSIZ:
|
||
MOV DX,OFFSET DG:BADCLUS
|
||
CMP WORD PTR [BX.DIRESIZ],0
|
||
JNZ ADJUST ;Size wrong
|
||
CMP WORD PTR [BX.DIRESIZ+2],0
|
||
JNZ ADJUST ;Size wrong
|
||
JMP CHAINDONE ;Size OK
|
||
|
||
UNPACK:
|
||
;Cluster number in SI, Return contents in DI, BX destroyed
|
||
;ZERO SET IF CLUSTER IS FREE
|
||
MOV BX,OFFSET DG:FAT
|
||
MOV DI,SI
|
||
SHR DI,1
|
||
ADD DI,SI
|
||
MOV DI,WORD PTR [DI+BX]
|
||
TEST SI,1
|
||
JZ HAVCLUS
|
||
SHR DI,1
|
||
SHR DI,1
|
||
SHR DI,1
|
||
SHR DI,1
|
||
HAVCLUS:
|
||
AND DI,0FFFH
|
||
RET
|
||
|
||
PACK:
|
||
; SI CLUSTER NUMBER TO BE PACKED
|
||
; DX DATA TO BE PLACED IN CLUSTER (SI)
|
||
; BX,DX DESTROYED
|
||
MOV [DIRTYFAT],1 ;Set FAT dirty byte
|
||
MOV [HAVFIX],1 ;Indicate a fix
|
||
MOV BX,OFFSET DG:FAT
|
||
PUSH SI
|
||
MOV DI,SI
|
||
SHR SI,1
|
||
ADD SI,BX
|
||
ADD SI,DI
|
||
SHR DI,1
|
||
MOV DI,[SI]
|
||
JNC ALIGNED
|
||
SHL DX,1
|
||
SHL DX,1
|
||
SHL DX,1
|
||
SHL DX,1
|
||
AND DI,0FH
|
||
JMP SHORT PACKIN
|
||
ALIGNED:
|
||
AND DI,0F000H
|
||
PACKIN:
|
||
OR DI,DX
|
||
MOV [SI],DI
|
||
POP SI
|
||
RET
|
||
|
||
|
||
|
||
MARKMAP:
|
||
; Mark in AL
|
||
; Cluster in SI
|
||
; AL,SI,CX preserved
|
||
; ZERO RESET IF CROSSLINK, AH IS THE MARK THAT WAS THERE
|
||
MOV DI,[FATMAP]
|
||
ADD DI,SI
|
||
MOV AH,[DI]
|
||
OR AH,AH
|
||
PUSH AX
|
||
JZ SETMARK
|
||
MOV AL,AH
|
||
INC [CROSSCNT] ;Count the crosslink
|
||
OR AL,10H ;Resets zero
|
||
SETMARK:
|
||
MOV [DI],AL
|
||
POP AX
|
||
RET
|
||
|
||
|
||
CHKMAP:
|
||
;Compare FAT and FATMAP looking for badsectors orphans
|
||
MOV SI,[FATMAP]
|
||
INC SI
|
||
INC SI
|
||
MOV DX,2
|
||
MOV CX,[DSIZE]
|
||
CHKMAPLP:
|
||
LODSB
|
||
OR AL,AL
|
||
JNZ CONTLP ;Already seen this one
|
||
XCHG SI,DX
|
||
CALL UNPACK
|
||
XCHG SI,DX
|
||
JZ CONTLP ;Free cluster
|
||
CMP DI,0FF7H ;Bad sector?
|
||
JNZ ORPHAN ;No, found an orphan
|
||
INC [BADSIZ]
|
||
MOV BYTE PTR [SI-1],4 ;Flag it
|
||
JMP CONTLP
|
||
ORPHAN:
|
||
INC [ORPHSIZ]
|
||
MOV BYTE PTR [SI-1],8 ;Flag it
|
||
CONTLP:
|
||
INC DX ;Next cluster
|
||
LOOP CHKMAPLP
|
||
MOV SI,[ORPHSIZ]
|
||
OR SI,SI
|
||
JZ RET18 ;No orphans
|
||
CALL RECOVER
|
||
RET18: RET
|
||
|
||
RECOVER:
|
||
;free orphans or do chain recovery
|
||
CALL CHECKNOFMES
|
||
CALL DOCRLF
|
||
CALL CHAINREPORT
|
||
MOV DX,OFFSET DG:FREEMES
|
||
CALL PROMPTYN ;Ask user
|
||
JNZ NOCHAINREC
|
||
JMP CHAINREC
|
||
NOCHAINREC:
|
||
MOV SI,[FATMAP] ;Free all orphans
|
||
INC SI
|
||
INC SI
|
||
MOV DX,2
|
||
MOV CX,[DSIZE]
|
||
CHKMAPLP2:
|
||
LODSB
|
||
TEST AL,8
|
||
JZ NEXTCLUS
|
||
XCHG SI,DX
|
||
PUSH DX
|
||
XOR DX,DX
|
||
CALL PACK ;Mark as free
|
||
POP DX
|
||
XCHG SI,DX
|
||
NEXTCLUS:
|
||
INC DX
|
||
LOOP CHKMAPLP2
|
||
XOR AX,AX
|
||
XCHG AX,[ORPHSIZ]
|
||
PUSH AX
|
||
MOV DX,OFFSET DG:FREEBYMESF_PRE
|
||
CMP [DOFIX],0
|
||
JNZ PRINTFMES
|
||
MOV DX,OFFSET DG:FREEBYMES_PRE
|
||
PRINTFMES:
|
||
CALL PRINT
|
||
POP AX
|
||
MOV BX,OFFSET DG:FREEBYMESF_POST
|
||
CMP [DOFIX],0
|
||
JNZ DISPFRB
|
||
MOV BX,OFFSET DG:FREEBYMES_POST
|
||
MOV [LCLUS],AX
|
||
DISPFRB:
|
||
CALL DISPCLUS ;Tell how much freed
|
||
RET
|
||
|
||
FINDCHAIN:
|
||
;Do chain recovery on orphans
|
||
MOV SI,[FATMAP]
|
||
INC SI
|
||
INC SI
|
||
MOV DX,2
|
||
MOV CX,[DSIZE]
|
||
CHKMAPLP3:
|
||
LODSB
|
||
TEST AL,8 ;Orphan?
|
||
JZ NEXTCLUS2 ;Nope
|
||
TEST AL,1 ;Seen before ?
|
||
JNZ NEXTCLUS2 ;Yup
|
||
PUSH SI ;Save search environment
|
||
PUSH CX
|
||
PUSH DX
|
||
DEC SI
|
||
OR BYTE PTR [SI],81H ;Mark as seen and head
|
||
INC [ORPHCNT] ;Found a chain
|
||
MOV SI,DX
|
||
CHAINLP:
|
||
CALL UNPACK
|
||
XCHG SI,DI
|
||
CMP SI,0FF8H
|
||
JAE CHGOON ;EOF
|
||
PUSH DI
|
||
CMP SI,2
|
||
JB INSERTEOF ;Bad cluster number
|
||
CMP SI,[MCLUS]
|
||
JA INSERTEOF ;Bad cluster number
|
||
CMP SI,DI
|
||
JZ INSERTEOF ;Tight loop
|
||
CALL CROSSCHK
|
||
TEST AH,8 ;Points to a non-orphan?
|
||
JNZ CHKCHHEAD ;Nope
|
||
INSERTEOF:
|
||
POP SI ;Need to stick EOF here
|
||
MOV DX,0FFFH
|
||
CALL PACK
|
||
JMP SHORT CHGOON
|
||
CHKCHHEAD:
|
||
TEST AH,80H ;Previosly marked head?
|
||
JZ ADDCHAIN ;Nope
|
||
AND BYTE PTR [DI],NOT 80H ;Turn off head bit
|
||
DEC [ORPHCNT] ;Wasn't really a head
|
||
POP DI ;Clean stack
|
||
JMP SHORT CHGOON
|
||
ADDCHAIN:
|
||
TEST AH,1 ;Previosly seen?
|
||
JNZ INSERTEOF ;Yup, don't make a cross link
|
||
OR BYTE PTR [DI],1 ;Mark as seen
|
||
POP DI ;Clean stack
|
||
JMP CHAINLP ;Follow chain
|
||
|
||
CHGOON:
|
||
POP DX ;Restore search
|
||
POP CX
|
||
POP SI
|
||
NEXTCLUS2:
|
||
INC DX
|
||
LOOP CHKMAPLP3
|
||
RET
|
||
|
||
CHAINREC:
|
||
LDS DI,[THISDPB]
|
||
ASSUME DS:NOTHING
|
||
MOV CX,[DI.dpb_root_entries]
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:DG
|
||
MOV SI,[FATMAP]
|
||
INC SI
|
||
INC SI
|
||
MOV DI,1
|
||
CALL NEXTORPH
|
||
PUSH SI
|
||
PUSH DI
|
||
MOV SI,DI
|
||
XOR AX,AX
|
||
MOV DX,[ORPHCNT]
|
||
MAKFILLP:
|
||
PUSH AX
|
||
PUSH CX
|
||
PUSH DX
|
||
PUSH SI
|
||
CALL GETENT
|
||
POP SI
|
||
CMP BYTE PTR [DI],0E5H
|
||
JZ GOTENT
|
||
CMP BYTE PTR [DI],0
|
||
JNZ NEXTENT
|
||
GOTENT:
|
||
MOV [HAVFIX],1 ;Making a fix
|
||
CMP [DOFIX],0
|
||
JZ ENTMADE ;Not supposed to, carry clear
|
||
MOV [DI+26],SI ;FIRCLUS Pointer
|
||
PUSH AX ;Save INT 26 data
|
||
PUSH DX
|
||
PUSH BX
|
||
MOV AH,DISK_RESET ;Force current state
|
||
INT 21H
|
||
MOV DX,OFFSET DG:ORPHFCB
|
||
MOV AH,FCB_OPEN
|
||
OPAGAIN:
|
||
INT 21H
|
||
OR AL,AL
|
||
JNZ GOTORPHNAM
|
||
CALL MAKORPHNAM ;Try next name
|
||
JMP SHORT OPAGAIN
|
||
|
||
GOTORPHNAM:
|
||
MOV SI,OFFSET DG:ORPHFCB + 1 ;ORPHFCB Now has good name
|
||
MOV CX,11
|
||
REP MOVSB
|
||
CALL MAKORPHNAM ;Make next name
|
||
XOR AX,AX
|
||
MOV CX,15
|
||
REP STOSB
|
||
MOV SI,[DI]
|
||
INC DI ;Skip FIRCLUS
|
||
INC DI
|
||
PUSH DI
|
||
CALL GETFILSIZ
|
||
POP DI
|
||
STOSW
|
||
MOV AX,DX
|
||
STOSW
|
||
POP BX
|
||
POP DX
|
||
POP AX
|
||
MOV CX,1
|
||
CALL DOINT26
|
||
ENTMADE:
|
||
POP DX
|
||
POP CX
|
||
POP AX
|
||
POP DI
|
||
POP SI
|
||
DEC DX
|
||
OR DX,DX
|
||
JZ RET100
|
||
CALL NEXTORPH
|
||
PUSH SI
|
||
PUSH DI
|
||
MOV SI,DI
|
||
JMP SHORT NXTORP
|
||
|
||
NEXTENT:
|
||
POP DX
|
||
POP CX
|
||
POP AX
|
||
NXTORP:
|
||
INC AX
|
||
LOOP MAKFILLPJ
|
||
POP AX ;Clean Stack
|
||
POP AX
|
||
SUB [ORPHCNT],DX ;Couldn't make them all
|
||
MOV DX,OFFSET DG:CREATMES
|
||
CALL EPRINT
|
||
RET100: RET
|
||
|
||
MAKFILLPJ: JMP MAKFILLP
|
||
|
||
NEXTORPH:
|
||
PUSH AX
|
||
LODSB
|
||
INC DI
|
||
CMP AL,89H
|
||
POP AX
|
||
JZ RET100
|
||
JMP SHORT NEXTORPH
|
||
|
||
MAKORPHNAM:
|
||
PUSH SI
|
||
MOV SI,OFFSET DG:ORPHEXT - 1
|
||
NAM0:
|
||
INC BYTE PTR [SI]
|
||
CMP BYTE PTR [SI],'9'
|
||
JLE NAMMADE
|
||
MOV BYTE PTR [SI],'0'
|
||
DEC SI
|
||
JMP NAM0
|
||
|
||
NAMMADE:
|
||
POP SI
|
||
RET
|
||
|
||
GETFILSIZ:
|
||
;SI is start cluster, returns filesize as DX:AX
|
||
XOR AX,AX
|
||
NCLUS:
|
||
CALL UNPACK
|
||
XCHG SI,DI
|
||
INC AX
|
||
CMP SI,0FF8H
|
||
JAE GOTEOF
|
||
CMP SI,2
|
||
JAE NCLUS
|
||
GOTEOF:
|
||
MOV BL,[CSIZE]
|
||
XOR BH,BH
|
||
MUL BX
|
||
MUL [SSIZE]
|
||
RET
|
||
|
||
|
||
|
||
CHKCROSS:
|
||
;Check for Crosslinks, do second pass if any to find pairs
|
||
MOV SI,[CROSSCNT]
|
||
OR SI,SI
|
||
JZ RET8 ;None
|
||
CALL DOCRLF
|
||
INC [SECONDPASS]
|
||
XOR AX,AX
|
||
PUSH AX
|
||
PUSH AX
|
||
CALL DIRPROC ;Do it again
|
||
RET8: RET
|
||
|
||
SUBTTL AMDONE - Finish up routine
|
||
PAGE
|
||
AMDONE:
|
||
ASSUME DS:NOTHING
|
||
CMP [DIRTYFAT],0
|
||
JZ NOWRITE ;FAT not dirty
|
||
CMP [DOFIX],0
|
||
JZ NOWRITE ;Not supposed to fix
|
||
REWRITE:
|
||
LDS BX,[THISDPB]
|
||
ASSUME DS:NOTHING
|
||
MOV CL,[BX.dpb_FAT_size] ;Sectors for one fat
|
||
XOR CH,CH
|
||
MOV DI,CX
|
||
MOV CL,[BX.dpb_FAT_count] ;Number of FATs
|
||
MOV DX,[BX.dpb_first_FAT] ;First sector of FAT
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:DG
|
||
MOV [ERRCNT],CH
|
||
MOV BX,OFFSET DG:FAT
|
||
MOV AL,[ALLDRV]
|
||
DEC AL
|
||
MOV AH,'1'
|
||
PUSH CX
|
||
WRTLOOP:
|
||
XCHG CX,DI
|
||
PUSH DX
|
||
PUSH CX
|
||
PUSH DI
|
||
PUSH AX
|
||
INT 26H ;Write out the FAT
|
||
MOV [HECODE],AL
|
||
POP AX ;Flags
|
||
JNC WRTOK
|
||
INC [ERRCNT]
|
||
MOV DX,OFFSET DG:BADWRITE_PRE
|
||
CALL PRINT
|
||
POP AX
|
||
PUSH AX
|
||
MOV DL,AH
|
||
CALL PRTCHR
|
||
MOV DX,OFFSET DG:BADWRITE_POST
|
||
CALL PRINT
|
||
WRTOK:
|
||
POP AX
|
||
POP CX
|
||
POP DI
|
||
POP DX
|
||
INC AH
|
||
ADD DX,DI
|
||
LOOP WRTLOOP ;Next FAT
|
||
POP CX ;Number of FATs
|
||
CMP CL,[ERRCNT] ;Error on all?
|
||
JNZ NOWRITE ;no
|
||
CALL WDSKERR
|
||
JZ REWRITE
|
||
NOWRITE:
|
||
MOV AH,DISK_RESET ;Invalidate any buffers in system
|
||
INT 21H
|
||
MOV DX,OFFSET DG:USERDIR ;Recover users directory
|
||
MOV AH,CHDIR
|
||
INT 21H
|
||
CMP BYTE PTR [FRAGMENT],1 ;Check for any fragmented files?
|
||
JNZ DONE ;No -- we're finished
|
||
CALL CHECKFILES ;Yes -- report any fragments
|
||
DONE:
|
||
ASSUME DS:NOTHING
|
||
MOV DL,[USERDEV] ;Recover users drive
|
||
MOV AH,SET_DEFAULT_DRIVE
|
||
INT 21H
|
||
RET
|
||
|
||
SUBTTL Routines for manipulating dir entries
|
||
PAGE
|
||
FIXENT2:
|
||
;Same as FIXENT only [SRFCBPT] points to the search FCB, BX points to the entry
|
||
PUSH SI
|
||
PUSH BX
|
||
PUSH CX
|
||
MOV SI,BX
|
||
MOV BX,[SRFCBPT]
|
||
CALL FIXENT
|
||
POP CX
|
||
POP BX
|
||
POP SI
|
||
RET20: RET
|
||
|
||
FIXENT:
|
||
;BX Points to search FCB
|
||
;SI Points to Entry to fix
|
||
MOV [HAVFIX],1 ;Indicate a fix
|
||
CMP [DOFIX],0
|
||
JZ RET20 ;But don't do it!
|
||
PUSH BP
|
||
PUSH BX
|
||
PUSH SI
|
||
PUSH SI ;Entry pointer
|
||
MOV AX,[BX+THISENT] ;Entry number
|
||
CALL GETENT
|
||
POP SI ;Entry pointer
|
||
ADD SI,DIRNAM ;Point to start of entry
|
||
MOV CX,32
|
||
REP MOVSB
|
||
INC CL
|
||
CALL DOINT26
|
||
POP SI
|
||
POP BX
|
||
POP BP
|
||
RET
|
||
|
||
GETENT:
|
||
;AX is desired entry number (in current directory)
|
||
;
|
||
;DI points to entry in SECBUF
|
||
;AX DX BX set to do an INT 26 to write it back out (CX must be reset to 1)
|
||
;ALL registers destroyed (via int 25)
|
||
LDS DI,[THISDPB]
|
||
ASSUME DS:NOTHING
|
||
MOV BX,[DI.dpb_current_dir]
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:DG
|
||
CMP BX,0FF8H
|
||
JB CLUSISOK
|
||
MOV BX,OFFSET DG:BADDPBDIR ;This should never happen
|
||
JMP FATAL
|
||
CLUSISOK:
|
||
MOV CL,4
|
||
SHL AX,CL
|
||
XOR DX,DX
|
||
SHL AX,1
|
||
RCL DX,1 ;Account for overflow
|
||
MOV CX,[SSIZE]
|
||
AND CL,255-31 ;Must be a multiple of 32
|
||
DIV CX ;DX is position in sector, AX is dir sector #
|
||
OR BX,BX
|
||
JZ WANTROOT
|
||
DIV [CSIZE] ;AL # clusters to skip, AH position in cluster
|
||
MOV CL,AL
|
||
XOR CH,CH
|
||
JCXZ GOTCLUS
|
||
MOV SI,BX
|
||
SKIPLP:
|
||
CALL UNPACK
|
||
XCHG SI,DI
|
||
LOOP SKIPLP
|
||
MOV BX,SI
|
||
GOTCLUS:
|
||
PUSH DX ;Position in sector
|
||
CALL FIGREC ;Convert to sector #
|
||
DOROOTDIR:
|
||
MOV BX,[SECBUF]
|
||
MOV AL,[ALLDRV]
|
||
DEC AL
|
||
RDRETRY:
|
||
PUSH AX
|
||
PUSH DX
|
||
PUSH BX
|
||
MOV CX,1
|
||
INT 25H ;Read it
|
||
MOV [HECODE],AL
|
||
POP AX ;FLAGS
|
||
POP BX
|
||
POP DX
|
||
POP AX
|
||
JNC RDOK2
|
||
CALL RDSKERR
|
||
JZ RDRETRY
|
||
RDOK2:
|
||
POP DI ;Offset into sector
|
||
ADD DI,BX ;Add sector base offset
|
||
RET
|
||
|
||
WANTROOT:
|
||
PUSH DX
|
||
LDS DI,[THISDPB]
|
||
ASSUME DS:NOTHING
|
||
MOV DX,AX
|
||
ADD DX,[DI.dpb_dir_sector]
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:DG
|
||
JMP DOROOTDIR
|
||
|
||
CHECKNOFMES:
|
||
MOV AL,1
|
||
XCHG AL,[FIXMFLG]
|
||
OR AL,AL
|
||
JNZ RET14 ;Don't print it more than once
|
||
CMP [DOFIX],0
|
||
JNZ RET14 ;Don't print it if F switch specified
|
||
PUSH DX
|
||
MOV DX,OFFSET DG:FIXMES
|
||
CALL PRINT
|
||
POP DX
|
||
RET
|
||
|
||
CHECKERR:
|
||
CALL CHECKNOFMES
|
||
CMP [SECONDPASS],0
|
||
RET14: RET
|
||
|
||
PRINTCURRDIRERR:
|
||
CALL CHECKERR
|
||
JNZ RET14
|
||
CALL PRINTCURRDIR
|
||
JMP SHORT ERREX
|
||
|
||
PRINTTHISELERR:
|
||
CALL CHECKERR
|
||
JNZ RET14
|
||
CALL PRINTTHISEL
|
||
ERREX:
|
||
CALL DOCRLF
|
||
RET
|
||
|
||
PRINTTHISEL:
|
||
MOV SI,BX
|
||
ADD SI,DIRNAM
|
||
PRINTTHISEL2:
|
||
MOV DI,OFFSET DG:NAMBUF
|
||
PUSH DI
|
||
CALL FCB_TO_ASCZ
|
||
POP SI
|
||
PRINTCURRDIR:
|
||
PUSH SI
|
||
MOV DL,[ALLDRV]
|
||
ADD DL,'@'
|
||
CALL PRTCHR
|
||
MOV DL,DRVCHAR
|
||
CALL PRTCHR
|
||
LDS SI,[THISDPB]
|
||
ASSUME DS:NOTHING
|
||
CMP [SI.dpb_current_dir],0
|
||
JZ CURISROOT
|
||
MOV DL,[DIRCHAR]
|
||
CALL PRTCHR
|
||
ADD SI,dpb_dir_text
|
||
PCURRLP:
|
||
LODSB
|
||
OR AL,AL
|
||
JZ CURISROOT
|
||
MOV DL,AL
|
||
CALL PRTCHR
|
||
JMP PCURRLP
|
||
|
||
CURISROOT:
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:DG
|
||
POP SI
|
||
CMP BYTE PTR [SI],0
|
||
JZ LPDONE ;If tail string NUL, no '/'
|
||
MOV DL,[DIRCHAR]
|
||
CALL PRTCHR
|
||
ERRLOOP:
|
||
LODSB
|
||
OR AL,AL
|
||
JZ LPDONE
|
||
MOV DL,AL
|
||
CALL PRTCHR
|
||
JMP ERRLOOP
|
||
LPDONE:
|
||
RET
|
||
|
||
FATAL:
|
||
;Unrecoverable error
|
||
MOV DX,OFFSET DG:FATALMES
|
||
CALL PRINT
|
||
MOV DX,BX
|
||
CALL PRINT
|
||
MOV DL,[USERDEV] ;At least leave on same drive
|
||
MOV AH,SET_DEFAULT_DRIVE
|
||
INT 21H
|
||
INT 20H
|
||
|
||
|
||
INT_24_RETADDR DW OFFSET DG:INT_24_BACK
|
||
|
||
INT_24 PROC FAR
|
||
ASSUME DS:NOTHING,ES:NOTHING,SS:NOTHING
|
||
PUSHF
|
||
PUSH CS
|
||
PUSH [INT_24_RETADDR]
|
||
PUSH WORD PTR [HARDCH+2]
|
||
PUSH WORD PTR [HARDCH]
|
||
RET
|
||
INT_24 ENDP
|
||
|
||
INT_24_BACK:
|
||
CMP AL,2 ;Abort?
|
||
JNZ IRETI
|
||
CALL DONE ;Forget about directory, restore users drive
|
||
INT 20H
|
||
IRETI:
|
||
IRET
|
||
|
||
INT_23:
|
||
LDS DX,[HARDCH]
|
||
MOV AX,(SET_INTERRUPT_VECTOR SHL 8) OR 24H
|
||
INT 21H
|
||
LDS DX,[CONTCH]
|
||
MOV AX,(SET_INTERRUPT_VECTOR SHL 8) OR 23H
|
||
INT 21H
|
||
PUSH CS
|
||
POP DS
|
||
ASSUME DS:DG
|
||
MOV [FRAGMENT],0
|
||
RDONE:
|
||
CALL NOWRITE ;Restore users drive and directory
|
||
INT 20H
|
||
|
||
CODE ENDS
|
||
END CHKPROC
|
||
|