Trailing-Edge
-
PDP-10 Archives
-
tops10_tools_bb-fp64b-sb
-
10,7/who/whouni.mac
There are 3 other files named whouni.mac in the archive. Click here to see a list.
TITLE UNISCN - UNIT mode scan defaulting for WHO
SEARCH WHOMAC
$SETUP (UNISCN)
Comment |
This module provides the UNIT mode specific scan defaulting code. Its
only entry point is UNISCN.
|
; TABLE OF CONTENTS FOR UNISCN
;
;
; SECTION PAGE
; 1. UNISCN - Apply STRUCTURE mode specific scan input defaults 3
; 2. Storage................................................... 4
SUBTTL UNISCN - Apply UNIT mode specific scan input defaults
;This routine applies the following defaults to the command line
;
UNISCN::SKIPE .FXEXT(I) ;INSURE NO EXTENSION
$FATAL (EIC,<Extension illegal in this context>)
; Check for UNI:
MOVX T1,FX.NDV ;AND THE NULL DEVICE BIT
TDNE T1,.FXMOD(I) ;DEVICE SPECIFIED?
JRST UNISC1 ;NO
SKIPE .FXNAM(I) ;IS THE FILENAME WORD NON-ZERO?
$FATAL (MUG,<Multiple unit names given>)
MOVE T1,.FXDEV(I) ;GET DEVICE NAME
PUSHJ P,UNIMSK ;GENERATE A MASK
JRST UNISC4 ;ENTER COMMON CODE
; Check for UNI
UNISC1: SKIPN T1,.FXNAM(I) ;GET UNIt NAME FROM FILE NAME WORD
JRST UNISC3 ;THERE ISN'T ONE
MOVE T2,.FXNMM(I) ;GET MASK
CAMN T2,[EXP -1] ;NEED TO FIX IT UP?
PUSHJ P,UNIMSK ;YES--GENERATE NEW MASK
JRST UNISC4 ;ONWARD
; Check for /UNIT
UNISC3: SKIPN T1,.FZSTN##(I) ;GET NAME FROM SWITCH ARGUMENT
JRST UNISC4 ;NONE GIVEN
MOVE T2,.FZSTM##(I) ;GET MASK
MOVEM T2,.FXNMM(I) ;STORE
CAMN T2,[EXP -1] ;WILDCARDS SPECIFIED?
PUSHJ P,UNIMSK ;GENERATE A MASK
; Here to check for conflicts
UNISC4: CHKSWT (UNN,UNIT) ;CHECK FOR CONFLICTS
MOVE T1,.FXNMM(I) ;GET NAME MASK
MOVEM T1,.FZUNM##(I) ;STORE AS UNIT MASK
POPJ P, ;AND RETURN
; Here to generate a mask based on the unit name
UNIMSK: MOVEM T1,.FXNAM(I) ;UPDATE UNIT NAME
TRNN T1,777777 ;UNIT NUMBER SPECIFIED?
JRST UNIMS1 ;NO
SETOM .FXNMM(I) ;NO WILDCARDING
POPJ P, ;RETURN
UNIMS1: SETZ T2, ;CLEAR NEW MASK
EXCH T1,T2 ;GET STR NAME
MOVEI T3,6 ;LOOP FOR 6 CHARACTERS
UNIMS2: LSHC T1,6 ;SHIFT IN A CHARACTER
TRON T1,77 ;MASK CHARACTER
TRZ T1,77 ;ELSE MAKE IT LOOK WILD
SOJG T3,UNIMS2 ;LOOP
MOVEM T1,.FXNMM(I) ;STORE IT
MOVE T1,.FXNAM(I) ;RELOAD THE NAME
POPJ P, ;RETURN
SUBTTL Storage
$LOW
PRGEND
TITLE UNIGET - Get UNIT information
SEARCH WHOMAC
$SETUP (UNIGET)
; TABLE OF CONTENTS FOR UNIGET
;
;
; SECTION PAGE
; 1. Main UNIT routines
; 1.1 UNINXT - Get the next unit................... 3
; 1.2 UNISET - Setup for a new unit................ 4
; 1.3 UNIINC - Handle incremental statistics............ 5
; 1.4 UNISRT - Handle unit sorting................. 6
; 2. UNIT tables
; 2.1 Define all unit subfields.................... 7
; 3. DATA STORAGE.............................................. 12
SUBTTL Main UNIT routines -- UNINXT - Get the next unit
UNINXT::JUMPL O,UNINX1 ;JUMP IF THE FIRST TIME
SKIPL S.SORT## ;SEE IF /SORT
JRST SRTNXT ;YES--GET NEXT UNIT
ADDI O,1 ;NO--BUMP TO NEXT
CAILE O,LN$UNI ;SEE IF PAST END
POPJ P, ;YES--RETURN
JRST UNINX2 ;NO--SETUP FOR THIS UNIT
UNINX1: MOVEI T1,LN$UNI ;MAX UNIT INDEX
MOVEM T1,MAXUNI ;SAVE
MOVEI T1,^D10 ;SET A HASH TABLE LENGTH
MOVEI T2,^D2 ;AND SIZE OF ENTRY
PUSHJ P,.HASHI## ;INIT IT
MOVEI O,0 ;START WITH UNIT 0
SKIPL T1,S.SORT## ;GET /SORT
JRST UNISRT ;GO PROCESS IF GIVEN
UNINX2: PUSHJ P,UNISET ;SETUP FOR THIS UNIT
JRST UNINXT ;NOT ASSIGNED
JRST .POPJ1## ;AND RETURN
SUBTTL Main UNIT routines -- STRSET - Setup for a new unit
UNISET::SKIPE JP,UNICOR ;SEE IF CORE ALLOCATED YET
JRST UNIS.C ;YES
MOVEI T1,.UBLEN ;NO--GET SIZE
PUSHJ P,M$ALLOC## ;GET CORE
MOVEM T1,UNICOR ;SAVE STARTING ADDRESS
MOVEI JP,(T1) ;AND INTO JP
UNIS.C: HRLI T1,(JP) ;GET STARTING ADDRESS
HRRI T1,1(JP) ;ENDING ADDRESS
SETOM (JP) ;SET FIRST WORD TO -1
BLT T1,.UBLEN-1(JP) ;AND SET THEM ALL TO -1
MOVEI T1,(O) ;GET UNIT INDEX
PJRST UNII2N## ;CONVERT INDEX TO UNIT NAME AND RETURN
SUBTTL Main UNIT routines -- UNIINC - Handle incremental statistics
UNIINC::
UNIINJ: POPJ P, ;NONE FOR NOW
SUBTTL Main UNIT routines -- UNISRT - Handle unit sorting
UNISRT: PUSHJ P,.SAVE1## ;SAVE P1
MOVEI P1,(T1) ;SAVE SORT INDEX
MOVE T1,MAXUNI ;GET MAX UNITS
IMULI T1,2 ;2 WORD TABLE
MOVN T2,T1 ;NEGATE INTO T2
HRLZM T2,SRTTAB ;SAVE -N,,0
PUSHJ P,I$ALLOC## ;GET THE CORE
HRRM T1,SRTTAB ;SAVE START
SRTJ.1: PUSHJ P,UNISET ;SETUP FOR THIS UNIT
JRST SRTJ.2 ;NOT ASSIGNED
PUSHJ P,@SUMLOD##(P1) ;GET SORT KEY
MOVEI T2,-1(O) ;GET UNIT
IMULI T2,2 ;DOUBLE
ADD T2,SRTTAB ;PLUS START OF TABLE
MOVEM T1,(T2) ;SAVE SORT KEY FIELD
MOVEM O,1(T2) ;SAVE UNIT INDEX
SRTJ.2: ADDI O,1 ;BUMP TO NEXT UNIT
CAMG O,MAXUNI ;ALL DONE?
JRST SRTJ.1 ;NO--ADVANCE TO NEXT
MOVE T1,SRTTAB ;GET AOBJN WORD
MOVE T2,[400000,,2] ;UNSIGNED AND STRAIGHT SORT
SKIPLE S.SORT##+1 ;SEE IF DESCENDING
TLO T2,200000 ;YES-SET FLAG
PUSHJ P,.SORT2## ;SORT THE LIST
MOVE T1,SRTTAB ;GET AOBJN
MOVEM T1,SRTPTR ;SAVE
SETZM SRTCNT ;NO UNITS YET
JRST UNINXT ;AND BACK TO THE TOP
SRTNXT: SKIPL T1,SRTPTR ;GET POINTER
POPJ P, ;ALL DONE
SKIPN O,1(T1) ;GET UNIT INDEX
JRST UNIS.1 ;NONE
PUSHJ P,UNISET ;SETUP FOR THIS UNIT
JRST UNIS.1 ;NOT ASSIGNED NOW?
AOS T1,SRTCNT ;COUNT THE UNITS
CAMLE T1,S.SORT##+2 ;IN RANGE?
POPJ P, ;NO--STOP NOW
MOVE T1,[2,,2] ;ADVANCE POINTER
ADDM T1,SRTPTR ;TO NEXT PAIR
JRST .POPJ1## ;AND USE THAT J
UNIS.1: MOVE T1,[2,,2] ;ADVANCE POINTER
ADDM T1,SRTPTR ;TO NEXT PAIR
JRST SRTNXT ;AND GET NEXT
SUBTTL UNIT tables -- Define all unit subfields
; This macro fetches a sub-field about the unit. If the field has been
; gotten before, it simply returns the known field. If the field has
; not been gotten before, it it derived/computed, stored for later
; use, and returned.
;
; In all cases, the field will be returned in T1, and set in table
; .UBxxx (flag UB%xxx indicates if the field has been gotten)
DEFINE UB$(X,N<1>),<
XLIST
UB%'X==.UBLEN ;;FLAG WORD
.UB'X==.UBLEN+1 ;;DATA WORD
.UBLEN==.UBLEN+2
IFG N-1,.UBLEN==.UBLEN+N
UB$'X:: AOSN UB%'X(JP) ;;DO WE HAVE THE INFO?
JRST UB1'X ;;NO--GO GET IT
MOVE T1,.UB'X(JP) ;;YES--JUST GET IT NOW
POPJ P, ;;AND RETURN
UB1'X: ;;(HERE TO GET INFO)
DEFINE END$,<
XLIST
MOVEM T1,.UB'X(JP) ;STORE
POPJ P, ;AND RETURN
LIST
>
LIST
>;END DEFINE
.UBLEN==0
UB$(ALT) ;ALTERNATE PORT
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCALT(T1) ;GET ALTERNATE PORT
END$
UB$(BRC) ;BUFFERED READS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCBRC(T1) ;GET BUFFERED READS
END$
UB$(BWC) ;BUFFERED WRITES
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCBWC(T1) ;GET BUFFERED WRITES
END$
UB$(CBK) ;CACHED BLOCKS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCCBK(T1) ;GET CACHED BLOCKS
END$
UB$(CER) ;CHECKSUM/CONSISTANCY ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCCER(T1) ;GET CHECKSUM/CONSISTANCY ERRORS
END$
UB$(CRC) ;CACHED READ CALLS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCCRC(T1) ;GET CACHED READ CALLS
END$
UB$(CRH) ;CACHED READ HITS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCCRH(T1) ;GET CACHED READ HITS
END$
UB$(CWC) ;CACHED WRITE CALLS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCCWC(T1) ;GET CACHED WRITE CALLS
END$
UB$(CWH) ;CACHED WRITE HITS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCCWH(T1) ;GET CACHED WRITE HITS
END$
UB$(DET) ;DETACHED ALTERNATE PORT
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCDET(T1) ;GET DETACHED ALTERNATE PORT
END$
UB$(DRC) ;DUMP READS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCDRC(T1) ;GET DUMP READS
END$
UB$(DWC) ;DUMP WRITES
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCDWC(T1) ;GET DUMP WRITES
END$
UB$(ECT) ;RETRIES ON LAST ERROR
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCECT(T1) ;GET RETRIES
END$
UB$(ERR) ;2CONI
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCERR(T1) ;GET CONI WORD AFTER RETRY
END$
UB$(FKS) ;FREE K OF SWAP SPACE REMAINING
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCFKS(T1) ;GET FREE K OF SWAP SPACE
END$
UB$(FRB) ;FREE BLOCKS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCUNT(T1) ;GET BLOCKS FREE
END$
UB$(FRS) ;FREE SWAPPING SPACE
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCUNT(T1) ;GET FREE SWAPPING SPACE
END$
UB$(HBN) ;LBN
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCHBN(T1) ;GET LOGICAL BLOCK NUMBER OF ERROR
END$
UB$(HDI) ;2DATAI
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCHDI(T1) ;GET DATAI WORD AFTER RETRY
END$
UB$(HDT) ;HARD DATA ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCHDT(T1) ;GET HARD DATA ERRORS
END$
UB$(HDV) ;HARD DEVICE/SEARCH ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCHDV(T1) ;GET HARD DEVICE/SEARCH ERRORS
END$
UB$(LOG) ;LOGICAL UNIT NAME
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCULN(T1) ;GET LOGICAL UNIT NAME
END$
UB$(MRC) ;MONITOR READS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCMRC(T1) ;GET MONITOR READS
END$
UB$(MWC) ;MONITOR WRITES
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCMWC(T1) ;GET MONITOR WRITES
END$
UB$(MSC) ;MONITOR SEEKS (MONITOR I/O + SWAPPING)
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVEI T1,0
; MOVE T1,.DCMSC(T1) ;GET NUMBER OF SEEKS
END$
UB$(NHG) ;NON-RECOVERABLE TRANSFER HUNG ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCNHG(T1) ;GET NON-RECOV XFER HUNG ERRORS
END$
UB$(NUS) ;NEXT UNIT WITHIN FILE STRUCTURE
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCNUS(T1) ;GET NEXT UNIT
END$
UB$(PHG) ;POSITION HUNG ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCPHG(T1) ;GET POSITION HUNG ERRORS
END$
UB$(PRC) ;PAGING READS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCPRC(T1) ;GET PAGING READS
END$
UB$(PWC) ;PAGING WRITES
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCPWC(T1) ;GET PAGING WRITES
END$
UB$(RER) ;RIB ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCRER(T1) ;GET RIB ERRORS
END$
UB$(SER) ;SAT ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSER(T1) ;GET SAT ERRORS
END$
UB$(SDI) ;1DATAI
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSDI(T1) ;GET DATAI WORD BEFORE RETRY
END$
UB$(SDT) ;SOFT DATA ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSDT(T1) ;GET SOFT DATA ERRORS
END$
UB$(SDV) ;SOFT DEVICE/SEARCH ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSDV(T1) ;GET SOFT DEVICE/SEARCH ERRORS
END$
UB$(SHG) ;SOFTWARE HUNG ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSHG(T1) ;GET SOFTWARE HUNG ERRORS
END$
UB$(SOF) ;1CONI
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSOF(T1) ;GET CONI WORD BEFORE RETRY
END$
UB$(SRC) ;SWAPPING READS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSRC(T1) ;GET SWAPPING READS
END$
UB$(SWC) ;SWAPPING WRITES
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSWC(T1) ;GET SWAPPING WRITES
END$
UB$(STR) ;STRUCTURE NAME
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCSNM(T1) ;GET STRUCTURE NAME
END$
UB$(THG) ;TRANSFER HUNG ERRORS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCTHG(T1) ;GET TRANSFERFER HUNG ERRORS
END$
UB$(TSC) ;TOTAL SEEKS
PUSHJ P,UB$MSC ;GET MONITOR SEEKS
PUSH P,T1 ;SAVE COUNT
PUSHJ P,UB$USC ;GET USER SEEKS
ADDM T1,(P) ;ACCUMULATE
POP P,T1 ;RESTORE TOTAL COUNT
END$
UB$(UID) ;UNIT-ID
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVE T1,.DCUID(T1) ;GET LOGICAL UNIT NAME
END$
UB$(UNN) ;UNIT NAME
MOVEI T1,(O) ;GET UNIT INDEX
PUSHJ P,UNII2N## ;CONVERT TO UNIT NAME
MOVEI T1,0 ;NO SUCH UNIT
END$
UB$(USC) ;USER SEEKS (BUFFERED AND DUMP)
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVEI T1,0
; MOVE T1,.DCUSC(T1) ;GET NUMBER OF SEEKS
END$
UB$(XRC) ;EXTENDED RIB READS
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVEI T1,0
; HRRZ T1,.DCXRA(T1) ;GET EXTENDED RIB READS
END$
UB$(XWC) ;EXTENDED RIB WRITES
PUSHJ P,UB$DCH ;GET DISK CHARACTERISTICS
MOVEI T1,0
; HLRZ T1,.DCXRA(T1) ;GET EXTENDED RIB WRITES
END$
UB$(DCH,.DCMAX+2) ;DISK CHARACTERISTICS BLOCK
PUSHJ P,UB$UNN ;GET UNIT NAME
MOVEM T1,.UBDCH+2+.DCNAM(JP) ;SAVE IN ARG BLOCK
MOVSI T1,.DCMAX ;ARG BLOCK LENGTH
HRRI T1,.UBDCH+2(JP) ;ARG BLOCK ADDRESS
PUSHJ P,UDSKCHR## ;GET DISK CHARACTERISTICS
TDZA T1,T1 ;FAILED FOR SOME REASON
MOVEM T1,.UBDCH+1(JP) ;SAVE STUFF RETURNED IN THE AC
MOVEI T1,.UBDCH+2(JP) ;POINT TO DSKCHR BLOCK
END$
SUBTTL DATA STORAGE
$LOW
UNICOR::BLOCK 1
MAXUNI: BLOCK 1
SRTTAB: BLOCK 1
SRTPTR: BLOCK 1
SRTCNT: BLOCK 1
END