.TITLE FRG DISK FRAGMENTATION .IDENT /M1.1A/ .SBTTL DATA AREA ; REVISED 9-JULY-82 FOR RSX-11M V3.1 LARGE DISK ; BASED ON RAY FRENCHES LARGE DISK CHANGES ; DATE: 7/12/77 ; REVISED 2/7/78 D. M. ; BY: D. MICHAUD ; BORG INSTRUMENTS ; DELAVAN WISCONSIN ; ; THIS MCR TASK WILL PRODUCE FRAGMENTATION STATISTICS FOR THE SPECIFIED ; FILES-11 DEVICE. THE OUTPUT IS A FREQUENCY COUNT OF CONTIGUOUS FREE ; BLOCKS (HOLES) FALLING WITHIN EACH OF SEVERAL RANGES, THE TOTAL NUMBER ; OF BLOCKS FOR EACH RANGE, AND THE TOTAL NUMBER OF FREE BLOCKS FOR THE ; DEVICE. ; ; OUTPUT IS DIRECTED TO LUN 2, WHICH MAY BE ASSIGNED TO ANY TERMINAL. ; ERROR MESSAGES ARE DIRECTED TO LUN 5. ; .NLIST MEB,BEX .MCALL GTIM$,QIOW$,CALL,EXIT$S,DIR$ .MCALL FCSMC$,ALUN$,GMCR$ FCSMC$ ; DEFIN FCS MACROS FSRSZ$ 0 ; NO FSR FOR BLOCK OPERATIONS FDB: FDBDF$ FDRC$A FD.RWM FDBK$A INBUF,512.,,10 FDOP$A 1,DSET DSET: .WORD 0,0 .WORD UICSIZ,UIC .WORD NAMSIZ,NAME UIC: .ASCII /[0,0]/ UICSIZ=.-UIC .EVEN NAME: .ASCII /BITMAP.SYS/ NAMSIZ=.-NAME .EVEN INBUF: .BLKB 512. .BLKB 512. ALUN: ALUN$ 1,DK,0 ; DUMMY ASSIGN LUN GMCR: GMCR$ ; BUF=GMCR+2 ; BUF OVELAYS COMMAND LINE BUFFER .BLKW 100. TIME: GTIM$ BUF READ: QIOW$ IO.RVB,1,10,,IOST,, DPB: QIOW$ IO.WVB,5,1,,,, BLOCK: .WORD 1,0 ; BLOCK COUNTER FOR QIO ; BLOCK 1 IS NOT PART OF BIT MAP, ; SO WILL START READING AT BLOCK 2 TOTAL: .WORD 0,0 COUNTB: .WORD 0,0 DSKTOT: .WORD 0,0 LARGE: .WORD 0,0 IOST: .BLKW 2 BINS: .WORD 25.,50.,75.,100.,250.,500.,750.,1000. BSIZ=8. ; NUMBER OF BINS - THE BIGGEST (< 1000. ) BIN: .REPT 18. ;HOLDS FREQUENCY COUNT FOR EACH BIN .WORD 0 .ENDR BINSUM: .REPT 18. ; HOLDS #BLOCKS FOR EACH BIN .WORD 0 .ENDR ISTRNG: .ASCII <11><11>/DISK FRAGMENTATION STATISTICS FOR / ASCDEV: .ASCII /DK0:/ .ASCII /%2N/<11><11><11>/%Y/<11>/%3Z/ .ASCII /%2N/<11><11>/CONTIGUOUS FREE BLOCKS (HOLES)/ .ASCII /%2NHOLE RANGE/<11>/ FREQUENCY/<11>/NUMBER OF BLOCKS/ .ASCII /%N 0 - 25/<11>/%T/<11><11>/%T/ .ASCII /%N 26 - 50/<11>/%T/<11><11>/%T/ .ASCII /%N 51 - 75/<11>/%T/<11><11>/%T/ .ASCII /%N 76 - 100/<11>/%T/<11><11>/%T/ .ASCII /%N101 - 250/<11>/%T/<11><11>/%T/ .ASCII /%N251 - 500/<11>/%T/<11><11>/%T/ .ASCII /%N501 - 750/<11>/%T/<11><11>/%T/ .ASCII /%N751 - 1000/<11>/%T/<11><11>/%T/ .ASCII /%N > 1000/<11>/%T/<11><11>/%T/ .ASCII /%2N/<11>/TOTAL FREE BLOCKS /<11>/%T/ .ASCIZ /%N/<11>/LARGEST CONTIGUOUS SEGMENT /<11>/%T/ .EVEN ER1: .ASCII /...FRG - PRIVILEGED COMMAND/ ER1SIZ=.-ER1 .EVEN ER2: .ASCII /...FRG - FAILURE ON INPUT/ ER2SIZ=.-ER2 .EVEN ER3: .ASCII /...FRG - COMMAND LINE FAILURE/ ER3SIZ=.-ER3 .EVEN ER4: .ASCII /...FRG - ILLEGAL DEVICE/ ER4SIZ=.-ER4 .EVEN .PAGE .SBTTL CODE AREA ;+ ; ** FRAG - DISPLAY FRAGMENTATION DATA FOR FILES-11 DEVICES ; ; SYNTAX: ; FRG DDN: ; ; WHERE: ; DD - A LEGAL FILES-11 DEVICE NAME ; N - A LEGAL UNIT NUMBER < 8 ;- FRAG: DIR$ #GMCR ; GET COMMAND LINE BCC 1$ MOVB #40,BUF+3 MOVB #'S,BUF+4 MOVB #'Y,BUF+5 MOVB #'0,BUF+6 MOVB #':,BUF+7 MOVB #15,BUF+10 ;BR 1$ ; JMP ERROR3 ; STRICT SYNTAX-MUST HAVE COMMAND LINE 1$: ; ; MOV $TKTCB,R0 ; GET CURRENT TCB POINTER ; MOV T.UCB(R0),R0 ; GET OUR TCB ADDRESS ; BIT #U2.PRV,U.CW2(R0) ; ARE WE PRIVILEGED? ; BEQ ERROR1 ; EQ=NOPE - FATAL ; MOV #BUF+3,R0 ; COMMAND LINE CMPB #' ,(R0)+ ; STRICT SYNTAX-MUST BE SPACE BEQ 2$ JMP ERROR3 ; 2$: MOV (R0),ALUN+A.LUNA MOVB (R0)+,ASCDEV ; MOVB (R0)+,ASCDEV+1 ; GET DEVICE NAME FOR OUTPUT MOVB (R0),ASCDEV+2 ; AND DEV NUMBER BIC #177770,(R0) ; STRIP ASCII MOV (R0),ALUN+A.LUNU ; DEV NUM FOR ALUN$ DIR$ #ALUN ; ASSIGN INPUT DEVICE BCC 3$ JMP ERROR4 ; CS= ILLEGAL DEVICE 3$: ; OPEN$R #FDB,,,,,,ERROR2 RECORD: INC BLOCK MOV BLOCK,READ+Q.IOPL+10 ; SET FOR NEXT BLOCK DIR$ #READ ; READ A BLOCK TSTB IOST ; DONE? BLT ERR ; LT=MAYBE MOV #INBUF,R0 ; GET RECORD BUFFER BLOCKS: MOV (R0)+,R1 ; GET 1ST 16 BLOCKS BEQ FULL ; EQ= ALL USED CMP R1,#-1 ; ALL FREE? BNE COUNT ; NE=NOT ALL FREE ADD #16.,COUNTB+2 ; COUNT 16 FREE BLOCKS ADC COUNTB BR END ; SEE IF DONE ; COUNT: MOV #16.,R2 ; BIT SHIFT COUNTER SHIFT: ASR R1 ; CHECK A BLOCK BCC FULL ; CC= A USED BLOCK ADD #1,COUNTB+2 ; COUNT A BLOCK FREE ADC COUNTB BR ENDLP ; SEE IF DONE ; FULL: TST COUNTB ; ANY FREE BLOCKS? BEQ 2$ 1$: MOV #BSIZ,R3 ;COUNTTHIS LARGE MUST BE IN LAST BIN ASL R3 BR .10 2$: TST COUNTB+2 BEQ ENDLP ; EQ=NOPE BLT 1$ FULL1: MOV #BSIZ,R4 ; NUMBER OF BINS CLR R3 ; CLEAR BIN POINTER 5$: CMP COUNTB+2,BINS(R3) ; MORE THAN THIS BIN? BLOS .10 ; LE=NOPE ADD #2,R3 ; POINT TO NEXT BIN SOB R4,5$ ; CHECK NEXT BIN ; .10: ASL R3 ADD COUNTB+2,TOTAL+2 ; ACCUMULATE TOTAL ADC TOTAL ADD COUNTB,TOTAL ADD COUNTB+2,BINSUM+2(R3) ; ACC TOTAL FOR EACH BIN ADC BINSUM(R3) ADD COUNTB,BINSUM(R3) ADD #1,BIN+2(R3) ; INCREMENT BIN ADC BIN(R3) CMP COUNTB,LARGE ;COMPARE HIGH ORDER BHI 1$ ;GT-NEW LARGEST BLO 2$ ;NOT NEW LAGERST CMP COUNTB+2,LARGE+2 ;CHECK LOW ORED AS NEEDED BLOS 2$ ;NOT QUITE 1$: MOV COUNTB,LARGE MOV COUNTB+2,LARGE+2 2$: CLR COUNTB ; CLEAR COUNTER CLR COUNTB+2 ENDLP: TST R1 ; ANY FREE BLOCKS STILL? BNE 1$ ;; NE=NO-END THE LOOP TST COUNTB+2 ;;YES-BUT ARE OLD FREE BLOCKS COUNTED? BNE FULL1 ;; NE=NO, BETTER GO COUNT THEM TST COUNTB BNE FULL1 BR END ;; NONE LEFT IN THIS SET-GET OUT 1$:; SOB R2,SHIFT ; CHECK ANOTHER BLOCK DEC R2 BLE 2$ JMP SHIFT 2$: ; END: CMP R0,# ; READ ANOTHER DISK BLOCK? BHIS RECORD ; HIS=YES BR BLOCKS ; NO,LOOK AT ANOTHER 16 BITS ; ERR: CMPB #IE.EOF,IOST ; END OF FILE? BNE ERROR2 ; NE=OOPS! BR FINISH ; WRITE STATISTICS ; ERROR1: MOV #ER1,DPB+Q.IOPL ; GET ERROR STRING MOV #ER1SIZ,DPB+Q.IOPL+2 ; GET SIZE BR OUT ; ERROR2: MOV #ER2,DPB+Q.IOPL ; GET ERROR STRING MOV #ER2SIZ,DPB+Q.IOPL+2 ; GET SIZE BR OUT ERROR3: MOV #ER3,DPB+Q.IOPL ; GET ERROR STRING MOV #ER3SIZ,DPB+Q.IOPL+2 ; GET SIZE BR OUT ERROR4: MOV #ER4,DPB+Q.IOPL ; GET ERROR STRING MOV #ER4SIZ,DPB+Q.IOPL+2 ; GET SIZE BR OUT ; FINISH: DIR$ #TIME ; GET TIME/DATE MOV #BSIZ+1,R0 ; # OF BINS MOV #BUF+14,R2 ; START OF NUMBERS MOV #BIN,R5 ; GET FREQUENCY BUFFER MOV #BINSUM,R4 ; GET SUBTOTALS BUFFER 10$: MOV R5,(R2)+ ADD #4,R5 MOV R4,(R2)+ ADD #4,R4 SOB R0,10$ ; GET ANOTHER MOV #TOTAL,(R2)+ ; TOTAL FREE BLOCKS MOV #LARGE,(R2) MOV #BUF,R2 ; GET ARGUEMENTS MOV #INBUF,R0 ; GET NEW OUTPUT STRING BUFFER MOV #ISTRNG,R1 ; GET ASCIZ STRING CALL $EDMSG ; EDIT STRING SUB #INBUF,R0 ; GET SIZE MOV #INBUF,DPB+Q.IOPL ; GET STRING INTO DPB MOV R0,DPB+Q.IOPL+2 ; GET SIZE INTO DPB MOV #2,DPB+Q.IOLU ; USE LUN 2 OUT: CLOSE$ #FDB ; CLOSE THE FILE DIR$ #DPB EXIT$S .END FRAG