v4.0/src/CMD/CHKDSK/CHKPROC2.ASM

   1 TITLE   CHKPROC2 - PART2 Procedures called from chkdsk
   2 page    ,132                                    ;\ f
   3
   4         .xlist
   5         include chkseg.inc                                                      ;an005;bgb
   6         INCLUDE CHKCHNG.INC
   7         INCLUDE DOSSYM.INC
   8         INCLUDE CHKEQU.INC
   9         INCLUDE CHKMACRO.INC
  10         include pathmac.inc
  11
  12 CONST   SEGMENT PUBLIC PARA  'DATA'
  13         EXTRN   FIXMES_ARG:word                                                 ;an049;bgb
  14         EXTRN   FATAL_ARG:word
  15         EXTRN   BADW_ARG:word,FATAL_END:word
  16         EXTRN   badrw_num:word,BADRW_STR:WORD,HAVFIX:byte
  17         EXTRN   DIRTYFAT:byte,CROSSCNT:dword,DOFIX:byte,SECONDPASS:byte
  18         EXTRN   BADSIZ:word,ORPHSIZ:word,ORPHFCB:byte
  19         EXTRN   HECODE:byte,USERDIR:byte,FRAGMENT:byte
  20         EXTRN   ORPHEXT:byte,ALLDRV:byte,FIXMFLG:byte,DIRCHAR:byte
  21         EXTRN   EOFVAL:word,BADVAL:word
  22         extrn   fTrunc:BYTE
  23 CONST   ENDS
  24
  25 DATA    SEGMENT PUBLIC PARA 'DATA'
  26         extrn   fatcnt:byte, orph_arg:word                        ;an005;bgb;an049;bgb
  27         EXTRN   THISDPB:dword,NUL_ARG:byte
  28         EXTRN   NAMBUF:byte,SRFCBPT:word,FATMAP:word
  29         EXTRN   MCLUS:word,CSIZE:byte,SSIZE:word
  30         EXTRN   DSIZE:word,ARG_BUF:byte,ERRCNT:byte
  31         EXTRN   USERDEV:byte,HARDCH:dword,CONTCH:dword
  32         EXTRN   ExitStatus:Byte,Read_Write_Relative:Byte
  33         extrn   bytes_per_sector:word                                           ;an005;bgb
  34         extrn   fattbl_seg:word, fatsiz:word,  paras_per_fat:word               ;an005;bgb
  35         extrn   fatmsg1:word                                                    ;an024;bgb
  36         extrn   fatmsg2:word                                                    ;an024;bgb
  37         EXTRN   dbcs_vector:byte                                                ;an055;bgb
  38         EXTRN   dbcs_vector_off:word                                            ;an055;bgb
  39         EXTRN   dbcs_vector_seg:word                                            ;an055;bgb
  40 DATA    ENDS
  41
  42 CODE    SEGMENT PUBLIC PARA 'CODE'
  43 ASSUME  CS:DG,DS:DG,ES:DG,SS:DG
  44         EXTRN   PRINTF_CRLF:NEAR,FCB_TO_ASCZ:NEAR
  45         EXTRN   PROMPTYN:NEAR,DIRPROC:NEAR
  46         EXTRN   DOCRLF:NEAR,UNPACK:NEAR,PACK:NEAR
  47         EXTRN   CHECKNOFMES:NEAR
  48         EXTRN   multiply_32_bits:near                                        ;an047;bgb
  49         extrn   nowrite:near, done:near, pack:near, unpack:near
  50         extrn   promptrecover:near, findchain:near
  51 public RECOVER, DoAsk
  52 public MAKORPHNAM, NAM0, NAMMADE
  53 public GETFILSIZ, NCLUS, GOTEOF, CHKCROSS, RET8
  54 public FATAL, hav_fatal_arg,  INT_23, RDONE
  55 public Systime                                                                  ;an005;bgb
  56 public int_24                                                                   ;an005;bgb
  57 public CHECK_DBCS_CHARACTER                                                     ;an055;bgb
  58         .list
  59
  60
  61
  62         pathlabl chkproc2
  63 ;*****************************************************************************
  64 ; RECOVER -
  65 ; free orphans or do chain recovery.  Note that if we have NOT been able to
  66 ; process the entire tree (due to inability to CHDIR), we temporarily set
  67 ; DoFix to FALSE, do the operation, and then reset it.
  68 ;
  69 ; inputs:   si - total number of clusters
  70 ;           es - points to fatmap
  71 ;
  72 ; outputs:  orphaned clusters are converted to files
  73 ; LOGIC
  74 ;       - display dont fix msg if appropriate
  75 ;       - display number of lost clusters
  76 ;       - ask the user if he wants the chains converted to files
  77 ;***************************************************************************
  78 RECOVER:
  79     mov     al,1
  80     xchg    al,[fixmflg]
  81     or      al,al
  82 ;   $IF     Z                           ; where there any errors found?
  83     JNZ $$IF1
  84         cmp     [dofix],0               ; yes - is the /f flag off?
  85 ;       $IF     Z                       ; yes - display the dont fix msg
  86         JNZ $$IF2
  87             mov     dx,offset dg:FIXMES_arg
  88             CALL    PRINTf_crlf
  89             call    DoCRLF                          ;                               ;AN000;
  90 ;       $ENDIF
  91 $$IF2:
  92 ;   $ENDIF
  93 $$IF1:
  94     CALL    DOCRLF
  95 CHAINREPORT:
  96 ;;;;mov     si,orphsiz             ;get number of bad clusters found (recover)  ;an005;bgb;an049;bgb
  97 ;;;;mov     [orph_num],si          ; Prints "XXX lost clusters found in YYY chains.";an049;bgb
  98     call    findchain              ;   On entry SI is the XXX value and the YYY value is
  99     mov     dx,offset dg:orph_arg  ;   in orphan-count.
 100     call    printf_crlf
 101     TEST    fTrunc,-1
 102 ;   $IF     NZ
 103     JZ $$IF5
 104         XOR     AX,AX        ; We have truncated the scan.  Set DoFix to FALSE,
 105         XCHG    AL,DoFix     ; do the operation and then restore things.
 106         PUSH    AX
 107         CALL    PromptRecover
 108         POP     AX
 109         MOV     DoFix,AL
 110 DoAsk:
 111 ;   $ELSE
 112     JMP SHORT $$EN5
 113 $$IF5:
 114         CALL    PromptRecover
 115 ;   $ENDIF
 116 $$EN5:
 117     return
 118
 119
 120
 121
 122
 123
 124
 125
 126 ;*****************************************************************************
 127 ;*****************************************************************************
 128 MAKORPHNAM:
 129         PUSH    SI
 130         MOV     SI,OFFSET DG:ORPHEXT - 1
 131 NAM0:
 132         INC     BYTE PTR [SI]
 133         CMP     BYTE PTR [SI],'9'
 134         JLE     NAMMADE
 135         MOV     BYTE PTR [SI],'0'
 136         DEC     SI
 137         JMP     NAM0
 138
 139 NAMMADE:
 140         POP     SI
 141         RET
 142
 143
 144
 145
 146 ;*****************************************************************************
 147 ; GETFILSIZ - calculate the file size based on the number of clusters.
 148 ;
 149 ; WARNING!! NOTE!! -->
 150 ;
 151 ; called by - PROCEDURE NAME
 152 ;
 153 ; inputs: AX -
 154 ;         BX -
 155 ;         CX -
 156 ;         DX -
 157 ;         SP -
 158 ;         BP -
 159 ;         SI - conatins the starting cluster number
 160 ;         DI -
 161 ;         DS -
 162 ;         ES -
 163 ;
 164 ; output: AX - low word of the file size
 165 ;         BX -
 166 ;         CX -
 167 ;         DX - hi  word of the file size
 168 ;         SP -
 169 ;         BP -
 170 ;         SI -
 171 ;         DI -
 172 ;         DS -
 173 ;         ES -
 174 ;
 175 ; Regs abused - none
 176 ;
 177 ;logic: 1. save bx & cx for 32 bit mul
 178 ;
 179 ;       2. zero out file size results
 180 ;
 181 ;       3. do for all clusters:
 182 ;
 183 ;          4. get the next one and inc cluster counter
 184 ;
 185 ;       5. multiply clusters times sectors per cluster to give
 186 ;          number of sectors in file.  This can be a 2 word value - DX:AX.
 187 ;
 188 ;       6. multiply the sectors times the number of bytes per sector.  This
 189 ;          yields the number of bytes in the file.
 190 ;*****************************************************************************
 191 ;SI is start cluster, returns filesize as DX:AX
 192 Procedure getfilsiz,near
 193     savereg <bx,cx>
 194         XOR     AX,AX                   ;zero out low word
 195         XOR     DX,DX                   ;zero out high word
 196         OR      SI,SI                   ;did we get a zero cluster?
 197 ;       $if     NZ
 198         JZ $$IF8
 199 ;           $DO                         ;do for all clusters
 200 $$DO9:
 201 NCLUS:          CALL    UNPACK          ;find the next cluster
 202                 XCHG    SI,DI           ;put output into input for unpack
 203                 INC     AX              ;found another cluster
 204                 CMP     SI,[EOFVAL]     ;did we find last cluster?
 205 ;           $leave    ae                ;yes, so exit loop
 206             JAE $$EN9
 207                                         ;;;;;;;CMP     SI,2
 208                                         ;;;;;;;JAE     NCLUS
 209 ;           $enddo
 210             JMP SHORT $$DO9
 211 $$EN9:
 212 GOTEOF:
 213             MOV     BL,[CSIZE]          ;get sectors per cluster
 214             XOR     BH,BH
 215             MUL     BX                  ;clusters * secs/cluster = sectors
 216             mov     bx,dx               ;get high num for 32bit mult
 217             mov     cx,ssize            ;cx = word to mult with
 218             call    multiply_32_bits    ;mul bx:ax * cx
 219             mov     dx,bx               ;save high word
 220 ;       $endif
 221 $$IF8:
 222     restorereg <bx,cx>
 223   return
 224 EndProc getfilsiz
 225
 226
 227
 228 ;*****************************************************************************
 229 ;*****************************************************************************
 230 Public Chkcross
 231 CHKCROSS:
 232 ;Check for Crosslinks, do second pass if any to find pairs
 233         MOV     SI,word ptr CROSSCNT
 234         cmp     word ptr crosscnt,0     ;if there is at least one crossed
 235 ;       $if     nz,or
 236         JNZ $$LL13
 237         cmp     word ptr crosscnt+2,0
 238 ;       $if     nz
 239         JZ $$IF13
 240 $$LL13:
 241             CALL    DOCRLF              ;display another line
 242             MOV     SecondPass,True     ;            ;                               ;AC000;
 243             XOR     AX,AX               ;
 244             PUSH    AX
 245             PUSH    AX
 246             CALL    DIRPROC                         ;Do it again
 247 ;       $endif
 248 $$IF13:
 249 RET8:   RET
 250
 251
 252
 253 ;*****************************************************************************
 254 ;*****************************************************************************
 255 FATAL:
 256 ;Unrecoverable error
 257         mov     dx,offset dg:FATAL_arg
 258         mov     [fatmsg1],bx                                                    ;an024;bgb
 259         cmp     byte ptr [nul_arg],0
 260         jnz     hav_fatal_arg
 261         mov     [fatmsg2],offset dg:fatal_end
 262 hav_fatal_arg:
 263         CALL    PRINTf_crlf
 264         MOV     DL,[USERDEV]                    ;At least leave on same drive
 265         DOS_Call Set_Default_Drive              ;                               ;AC000;
 266                                                 ;MOV     AH,EXIT
 267         mov     ExitStatus,Bad_Exit             ;Get return code                        ;AC000;
 268                                                 ;INT     21H
 269         ret                                     ;Ret Main_Init for common exit
 270
 271
 272
 273
 274 ;*****************************************************************************
 275 ;*****************************************************************************
 276 iNT_24  PROC    FAR
 277 aSSUME  DS:NOTHING,ES:NOTHING,SS:NOTHING
 278         PUSHF
 279         push    ax                              ;Save AX register               ;AN000;
 280         test    al,Disk_Error                   ;Is it a disk critical err?
 281 ;       $IF     Z                               ;Yes
 282         JNZ $$IF15
 283            mov     ax,di                        ;Get error (DI low)             ;AN000;
 284            cmp     al,Write_Protect             ;Special case errors            ;AN000;
 285 ;          $IF     E,OR                         ;If write protect or            ;AN000;
 286            JE $$LL16
 287            cmp     al,Drive_Not_Ready           ; if drive not ready            ;AN000;
 288            pop     ax                           ;Balance stack again            ;AN000;
 289 ;          $IF     E                            ;                               ;AN000;
 290            JNE $$IF16
 291 $$LL16:
 292               CALL    dword ptr HardCh          ; let parent's handler decide what to do
 293 ;          $ELSE                                ;Other error                    ;AN000;
 294            JMP SHORT $$EN16
 295 $$IF16:
 296               pop     ax                        ;balance stack                  ;AN000;
 297               mov     al,Critical_Error_Fail    ;Fail the operation             ;AN000;
 298 ;          $ENDIF                               ;                               ;AN000;
 299 $$EN16:
 300 ;       $ELSE                                   ;Not disk error
 301         JMP SHORT $$EN15
 302 $$IF15:
 303            CALL    dword ptr HardCh             ; let parent's handler decide what to do
 304 ;       $ENDIF
 305 $$EN15:
 306         CMP     AL,2                            ;Abort?                         ;AC000;
 307 ;       $IF     E                               ;Yes                            ;AC000;
 308         JNE $$IF21
 309            STI                                  ;Turn off Interrupts
 310            CALL    DONE                         ;Forget about directory, restore users drive
 311            mov     ExitStatus,Bad_Exit          ;Get return code                        ;AN000;
 312 ;       $ENDIF                                  ;AN000;
 313 $$IF21:
 314         IRET
 315 iNT_24  ENDP
 316
 317
 318
 319
 320 ;*****************************************************************************
 321 ;*****************************************************************************
 322 INT_23  proc    far
 323         STI
 324         LDS     DX,[HARDCH]
 325         mov     al,24h                          ;                               ;AC000;
 326         DOS_Call Set_Interrupt_Vector           ;                               ;AC000;
 327         LDS     DX,cs:[CONTCH]                                                  ;ac039;bgb
 328         mov     al,23h                          ;                               ;AC000;
 329         DOS_Call Set_Interrupt_Vector           ;                               ;AC000;
 330         PUSH    CS
 331         POP     DS
 332 ASSUME  DS:DG
 333         MOV     [FRAGMENT],0
 334 RDONE:
 335         CALL    NOWRITE                         ;Restore users drive and directory
 336                                                 ;MOV     AH,EXIT
 337                                                 ;MOV     AL,0FFH
 338                                                 ;INT     21H
 339         mov     ExitStatus,Bad_Exit             ;Get return code                        ;AC000;
 340         stc
 341         ret                                     ;Ret for common exit                    ;AN000;
 342 int_23  endp
 343
 344
 345
 346
 347
 348 ;*****************************************************************************
 349 ;*****************************************************************************
 350 ;
 351 ; Systime returns the current date in AX, current time in DX
 352 ;   AX - HHHHHMMMMMMSSSSS  hours minutes seconds/2
 353 ;   DX - YYYYYYYMMMMDDDDD  years months days
 354 ;
 355 public  Systime
 356 Systime:
 357         DOS_Call Get_Time                       ;                               ;AC000;
 358         SHL     CL,1                            ;Minutes to left part of byte
 359         SHL     CL,1
 360         SHL     CX,1                            ;Push hours and minutes to left end
 361         SHL     CX,1
 362         SHL     CX,1
 363         SHR     DH,1                            ;Count every two seconds
 364         OR      CL,DH                           ;Combine seconds with hours and minutes
 365         MOV     DX,CX
 366         PUSH    DX                              ; Save time
 367 ;
 368 ; WARNING!  MONTH and YEAR must be adjacently allocated
 369 ;
 370         DOS_Call Get_Date                       ;                               ;AC000;
 371         SUB     CX, 1980
 372         MOV     AX, CX
 373         MOV     CL, 4
 374         SHL     AL, CL                          ; Push year to left for month
 375         OR      AL, DH                          ; move in month
 376         MOV     CL,4
 377         SHL     AX,CL                           ;Push month to left to make room for day
 378         SHL     AX,1
 379         OR      AL, DL
 380         POP     DX                              ; Restore time
 381         XCHG    AX, DX                          ; Switch time and day
 382         return
 383
 384
 385 ;*****************************************************************************  ;an055;bgb
 386 ;Routine name: Check_DBCS_CharACter                                             ;an055;bgb
 387 ;*****************************************************************************  ;an055;bgb
 388 ;                                                                               ;an055;bgb
 389 ;Description: Check if specified byte is in rANges of DBCS vectors              ;an055;bgb
 390 ;                                                                               ;an055;bgb
 391 ;Called Procedures: None                                                        ;an055;bgb
 392 ;                                                                               ;an055;bgb
 393 ;ChANge History: Created        6/12/87         MT                              ;an055;bgb
 394 ;                                                                               ;an055;bgb
 395 ;Input: AL = CharACter to check for DBCS lead charACter                         ;an055;bgb
 396 ;       DBCS_Vector = YES/NO                                                    ;an055;bgb
 397 ;                                                                               ;an055;bgb
 398 ;Output: CY set if DBCS charACter                                               ;an055;bgb
 399 ;        DBCS_VECTOR = YES                                                      ;an055;bgb
 400 ;                                                                               ;an055;bgb
 401 ;                                                                               ;an055;bgb
 402 ;Psuedocode                                                                     ;an055;bgb
 403 ;----------                                                                     ;an055;bgb
 404 ;       Save registers                                                          ;an055;bgb
 405 ;       IF DBCS vector not found                                                ;an055;bgb
 406 ;          Get DBCS environmental vector (INT 21h                               ;an055;bgb
 407 ;          Point at first set of vectors                                        ;an055;bgb
 408 ;       ENDIF                                                                   ;an055;bgb
 409 ;       SEARCH                                                                  ;an055;bgb
 410 ;       LEAVE End of DBCS vectors                                               ;an055;bgb
 411 ;       EXITIF CharACter > X1,AND  (X1,Y1) are environment vectors              ;an055;bgb
 412 ;       EXITIF CharACter < Y1                                                   ;an055;bgb
 413 ;         STC (DBCS charACter)                                                  ;an055;bgb
 414 ;       ORELSE                                                                  ;an055;bgb
 415 ;          Inc pointer to next set of vectors                                   ;an055;bgb
 416 ;       ENDLOOP                                                                 ;an055;bgb
 417 ;          CLC (Not DBCS charACter)                                             ;an055;bgb
 418 ;       ENDSRCH                                                                 ;an055;bgb
 419 ;       Restore registers                                                       ;an055;bgb
 420 ;       ret                                                                     ;an055;bgb
 421 ;*****************************************************************************  ;an055;bgb
 422 DBCS_Vector_Size        equ 2                                                   ;an055;bgb
 423 end_of_vector           equ 0                                                   ;an055;bgb
 424 Procedure       Check_DBCS_Character                  ;                         ;an055;bgb
 425         push    ds                              ;Save registers                 ;an055;bgb
 426         push    si                              ; "  "    "  "                  ;an055;bgb
 427         push    ax                              ; "  "    "  "                  ;an055;bgb
 428 ;;;;;;;;push    ds                              ; "  "    "  "                  ;an055;bgb
 429 ;;;;;;;;pop     es                              ;Establish addressability       ;an055;bgb
 430         cmp     byte ptr es:DBCS_VECTOR,Yes     ;Have we set this yet?          ;an055;bgb
 431 ;       $IF     NE                              ;Nope                           ;an055;bgb
 432         JE $$IF23
 433            push    ax                              ;Save input charACter           ;an055;bgb
 434            mov     al,0                         ;Get DBCS environment vectors   ;an055;bgb
 435            DOS_Call Hongeul                     ;  "  "    "  "                 ;an055;bgb
 436            mov     byte ptr es:DBCS_VECTOR,YES  ;Indicate we've got vector      ;an055;bgb
 437            mov     es:DBCS_Vector_Off,si        ;Save the vector                ;an055;bgb
 438            mov     ax,ds                        ;                               ;an055;bgb
 439            mov     es:DBCS_Vector_Seg,ax        ;                               ;an055;bgb
 440            pop     ax                              ;Restore input charACter        ;an055;bgb
 441 ;       $ENDIF                                  ; for next time in              ;an055;bgb
 442 $$IF23:
 443         mov     si,es:DBCS_Vector_Seg           ;Get saved vector pointer       ;an055;bgb
 444         mov     ds,si                           ;                               ;an055;bgb
 445         mov     si,es:DBCS_Vector_Off           ;                               ;an055;bgb
 446 ;       $SEARCH                                 ;Check all the vectors          ;an055;bgb
 447 $$DO25:
 448            cmp     word ptr ds:[si],End_Of_Vector ;End of vector table?         ;an055;bgb
 449 ;       $LEAVE  E                               ;Yes, done                      ;an055;bgb
 450         JE $$EN25
 451            cmp     al,ds:[si]                   ;See if char is in vector       ;an055;bgb
 452 ;       $EXITIF AE,AND                          ;If >= to lower, ANd            ;an055;bgb
 453         JNAE $$IF25
 454            cmp     al,ds:[si+1]                 ; =< thAN higher rANge          ;an055;bgb
 455 ;       $EXITIF BE                              ; then DBCS charACter           ;an055;bgb
 456         JNBE $$IF25
 457            stc                                  ;Set CY to indicate DBCS        ;an055;bgb
 458 ;       $ORELSE                                 ;Not in rANge, check next       ;an055;bgb
 459         JMP SHORT $$SR25
 460 $$IF25:
 461            add     si,DBCS_Vector_Size          ;Get next DBCS vector           ;an055;bgb
 462 ;       $ENDLOOP                                ;We didn't find DBCS char       ;an055;bgb
 463         JMP SHORT $$DO25
 464 $$EN25:
 465            clc                                  ;Clear CY for exit              ;an055;bgb
 466 ;       $ENDSRCH                                ;                               ;an055;bgb
 467 $$SR25:
 468         pop     ax                              ;Restore registers              ;an055;bgb
 469         pop     si                              ; "  "    "  "                  ;an055;bgb
 470         pop     ds                              ;Restore data segment           ;an055;bgb
 471         ret                                     ;                               ;an055;bgb
 472 Check_DBCS_CharACter endp                       ;                               ;an055;bgb
 473
 474
 475
 476         pathlabl chkproc2
 477 CODE    ENDS
 478         END
 479 \1a