Trailing-Edge
-
PDP-10 Archives
-
BB-M081Y-SM
-
monitor-sources/lookup.mac
There are 52 other files named lookup.mac in the archive. Click here to see a list.
; Edit= 8921 to LOOKUP.MAC on 18-Aug-88 by LOMARTIRE
;Improve BUG. documentation
; UPD ID= 8547, RIP:<7.MONITOR>LOOKUP.MAC.4, 9-Feb-88 17:05:00 by GSCOTT
;TCO 7.1218 - Update copyright date.
; UPD ID= 27, RIP:<7.MONITOR>LOOKUP.MAC.3, 29-Jun-87 16:37:18 by RASPUZZI
;TCO 7.1014 - Implement partial recognition (make VERLKX global)
; *** Edit 7393 to LOOKUP.MAC by RASPUZZI on 18-Nov-86, for SPR #21272
; Finally, restore the use of VANISH and wit for more things to break.
; Add documentation to the LOOKUP routines (VERLUK, EXTLUU and NAMLUU) so
; that the comments about each routine reflect what is REALLY happening.
; *** Edit 7377 to LOOKUP.MAC by RASPUZZI on 7-Oct-86, for SPR #21272
; Reinstall edit 7371 with nice things so it works.
; *** Edit 7358 to LOOKUP.MAC by LOMARTIRE on 25-Aug-86, for SPR #20834
; Prevent DIRFDB, DIRDNL, ULKSTZ BUGCHK sequence
; UPD ID= 2313, SNARK:<6.1.MONITOR>LOOKUP.MAC.8, 13-Aug-85 10:02:33 by LOMARTIRE
;TCO 6.1.1516 - Fix EXTFAI by placing error code in T1, not F
; UPD ID= 2102, SNARK:<6.1.MONITOR>LOOKUP.MAC.7, 3-Jun-85 15:44:48 by MCCOLLUM
;TCO 6.1.1406 - Update copyright notice.
; UPD ID= 1887, SNARK:<6.1.MONITOR>LOOKUP.MAC.6, 4-May-85 14:43:49 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1784, SNARK:<6.1.MONITOR>APRSRV.MAC.196, 23-Apr-85 12:40:03 by MCCOLLUM
; UPD ID= 4533, SNARK:<6.MONITOR>LOOKUP.MAC.5, 14-Jul-84 10:06:50 by PURRETTA
;Update copyright notice and remove brackets in comments
; UPD ID= 866, SNARK:<6.MONITOR>LOOKUP.MAC.4, 7-Jun-82 11:58:55 by MURPHY
;More 6.1147 - Confusion around ASTJFN, missing close bracket.
; UPD ID= 848, SNARK:<6.MONITOR>LOOKUP.MAC.3, 6-Jun-82 13:28:03 by MURPHY
;TCO 6.1147 - Move bugdefs from BUGS.MAC to here and put them in-line.
; UPD ID= 114, SNARK:<6.MONITOR>LOOKUP.MAC.2, 16-Oct-81 17:29:43 by MURPHY
;<6.MONITOR>LOOKUP.MAC.4, 14-Oct-81 17:52:57, EDIT BY MURPHY
;<6.MONITOR>LOOKUP.MAC.3, 13-Oct-81 16:42:20, EDIT BY MURPHY
;TCO 6.1030 - NODE NAME IN FILESPECS
; UPD ID= 280, SNARK:<4.1.MONITOR>LOOKUP.MAC.12, 20-Feb-80 09:15:41 by MILLER
;MORE TCO 4.2603. IMPROVE CODE
; UPD ID= 275, SNARK:<4.1.MONITOR>LOOKUP.MAC.11, 19-Feb-80 10:34:45 by MILLER
;TCO 4.2603. REMOVE ILSTP3 BUGHLT
;<OSMAN.MON>LOOKUP.MAC.1, 10-Sep-79 15:41:25, EDIT BY OSMAN
;TCO 4.2412 - Move definition of BUGHLTs, BUGCHKs, and BUGINFs to BUGS.MAC
;<4.MONITOR>LOOKUP.MAC.9, 13-Aug-79 17:04:16, EDIT BY DBELL
;TCO 4.2393 - FIX NAMSTP TO NOT LOOK AT DIRORA FOR NON-DISK DEVICES
;<4.MONITOR>LOOKUP.MAC.8, 21-Mar-79 13:02:47, EDIT BY BOSACK
;BE NOINT DURING FREE STG MANIPULATIONS IN DEVSTEP
;<4.MONITOR>LOOKUP.MAC.7, 12-Mar-79 10:30:54, Edit by KONEN
;MODIFY CODE IN DEVSTP TO USE CHKMNO INSTEAD OF CHKMNT
;<4.MONITOR>LOOKUP.MAC.6, 4-Mar-79 18:14:37, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<KONEN>LOOKUP.MAC.3, 7-Jul-78 15:35:39, Edit by KONEN
;WHEN STEPPING THRU STRUCTURES, MAKE SURE USER HAS MOUNTED IT
;<4.MONITOR>LOOKUP.MAC.3, 14-Oct-78 00:34:48, EDIT BY DBELL
;CHANGE CHKWLD SO IT CAN BE CALLED AT ALTERNATE ENTRY POINT FOR WILD% JSYS
;<4.MONITOR>LOOKUP.MAC.2, 6-Jul-78 09:38:29, Edit by HEMPHILL
;MAKE DEVSTP INTERNAL
;<4.MONITOR>LOOKUP.MAC.1, 5-Jul-78 16:56:49, Edit by HEMPHILL
;FIX DEVSTP TO CHANGE STRUCTURE NAME INSTEAD OF LEAVING IT AS PS:
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1976, 1988.
; ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
; TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
SEARCH PROLOG
TTITLE LOOKUP
SWAPCD
;SPECIAL AC DEFINITIONS USED HEREIN
DEFAC (STS,P1) ;SEE GTJFN FOR FUNCTIONS
DEFAC (JFN,P2)
DEFAC (DEV,P4)
DEFAC (F1,P5)
; Name lookup
; Call: A ; Iowd # full words in string,1st word of string
; ; OR 0 IF STEPPING
; FLAG NREC ; =1 for no partial string recognition
; FILOPT(JFN) ; Should address the last byte of input
; CALL NAMLUK ; For recognition
; Or
; CALL NAMLKX ; For no recognition
; Return
; +1 ; Match is impossible or ambiguous (AMBGF)
; +2 ; Match, the complete string replaces the input
; A contains address of fdb for the first file of the name
; B contains the location of the pointer whose rh points to the fdb
; Clobbers a,b,c,d, and bits NOREC1, MTCHF, and AMBGF
; Interestingly enough, you also get the +2 return if the device doesn't
; support names at all.
;
;[7393]
; If you call NAMLUU, the directory will be left locked for you. Please note
; that this routine is like EXTLUU in that this routine expects to be called
; from EXTLUU just like EXTLUU expects to be called by VERLUK. Using this
; routine for a name lookup can be very tricky and is not advised. Use
; extreme caution.
NAMLKX::TQOA <NREC1> ; Enter here for recognition
NAMLUK::TQZ <NREC1>
EA.ENT
TQZA <UNLKF>
NAMLUU: TQO <UNLKF,NREC1>
TQZ <MTCHF,AMBGF>
TQNN <ASTF> ; If output stars
IFSKP.
MOVE A,FILFDB(JFN) ;YES, RETURN FDB TO CALLER
RETSKP
ENDIF.
PUSH P,A ; Save a
TXNE F1,STRSF!DIRSF!NAMSF ;STEPPING?
JRST NAMSTP ; Yes.
LOAD A,FLUC,(JFN) ;GET COMPOSITE DIR NUMBER
HRLZ A,A ;FROM UNIQUE CODE AND
HRR A,FILDDN(JFN) ;directory number of this file
LOAD B,STR,(JFN) ;UNIT/STR NUMBER
SETZ C, ; NO MASK BLOCK
HRRZ D,DEV
CALL @DLUKD(D) ; Map the directory, and lock it
IFNSK.
TQNN NNAMF ;FAILURE, A NO NAME DEVICE?
JRST NAMFAI ;NO, GENUINE FAILURE
POP P,A ;YES, ANY NAME SUCCEEDS
RETSKP
ENDIF.
POP P,A
HRRZ D,DEV
CALLRET @NLUKD(D) ; Continue with device dependent portion
NAMSTP: TQNE <STEPF>
TQO <NAMXF>
TQNE <STEPF>
TQNE <NAMSF> ; Is name to be stepped?
JRST NAMST1 ; Yes.
NAMST4: LOAD A,FLUC,(JFN) ;BUILD COMPOSITE DIRECTORY
HRLZ A,A ;NUMBER FROM UNIQUE CODE AND
HRR A,FILDDN(JFN) ;directory number
LOAD B,STR,(JFN) ;UNIT/STR NUMBER
TQNE <STEPF>
TQO <DIRXF>
LOAD C,FLDMS,(JFN) ;GET ADR OF WILD MASK IF ANY
HRRZ D,DEV
CALL @DLUKD(D) ; Step directory
JRST NAMS3B ; NO DIRECTORIES LEFT
HRRM A,FILDDN(JFN) ;SAVE THE DIR NUMBER
BLCAL. MDDOK,<DEV> ;A MULTIPLE DIR DEVICE?
JRST NAMST8 ;NO, THEN DON'T LOOK AT DIRECTORIES
MOVE A,DIRORA ;GET POINTER TO DIR NAME STRING
LOAD A,DRNAM,(A) ;FROM MAPPED DIRECTORY
ADD A,DIRORA ;GET ABSOLUTE ADDRESS
CALL STORDN ;STORE THE NAME IN THE JFN BLOCK
JRST NAMFAI ;IT FAILED TO GET ENOUGH ROOM
NAMST8: TQNN <STEPF> ; STEPPING DIRECTORY?
JRST NAMST2 ; NO
LOAD A,FLDMS,(JFN) ;GET DIRECTORY WILD MASK
JUMPE A,[TQNN <NAMSF> ;STEPPING THE NAME?
SKIPE 0(P) ;NO. WANT TO SET DIR ONLY?
JRST NAMST2 ;GO FIND NAME
BLCAL. MDDOK,<DEV> ;MULTIPLE DIR DEVICE?
SKIPA ;NO
CALL USTDIR ;FREE DIR
JRST NOWLDN] ;AND DONE
BLCAL. MDDOK,<DEV> ;REAL DISK?
JRST [ MOVEI A,GJFX17 ;NO
JRST NAMFAI] ;GO GIVE AN ERROR
LOAD A,FLDMS,(JFN) ;RESTORE THE MASK POINTER
CALL CHKDIR ; SEE IF IT IS THE CORRECT DIRECTORY
JRST NAMST4 ;NOT CORRECT. GO TRY AGAIN
TQNN NAMSF ;STEPPING NAME?
SKIPE 0(P) ;NO. IS THERE A REAL NAME?
JRST NAMST1 ;YES. GO FINISH UP
JRST NOWLDN ;NO. ALL DONE. RETURN THIS DIRECTORY
NAMST1: PUSH P,F1
TQZ <STEPF>
LOAD A,FLUC,(JFN) ;BUILD FULLWORD DIR NUMBER
HRLZ A,A ; ...
HRR A,FILDDN(JFN) ; ...
HLRZ B,DEV
SETZ C,
HRRZ D,DEV
CALL @DLUKD(D) ; Set directory
JRST NAMFA1
AND F1,[EXTXF!NAMXF!DIRXF]
IORM F1,(P)
POP P,F1
NAMST2: MOVE A,(P) ; Get lookup pointer
MOVE C,FILOPT(JFN) ; GET FILOPT
TQNE <NAMSF> ;STEPPING NAME
MOVEM C,0(P) ; AND SAVE IT
NAMST7: HRRZ D,DEV
CALL @NLUKD(D) ; Step the name
JRST NAMST3 ; No more
TQNN <STEPF> ; STEPPING NAME?
JRST NOWLDN ; NO
LOAD A,FLNMS,(JFN) ;HAVE A MASK FOR THE NAME?
JUMPE A,NOWLDN ;IF ZERO NO
PUSH P,B ; SAVE FDB ADDRESS
MOVE B,A ; FOR THE COMPARE
MOVE A,-1(P) ;THE STRING
HRLI A,(<POINT 7,0,35>) ;MAKE IT A POINTER
CALL CHKWLD ;SEE IF IT IS A MATCH
IFNSK.
POP P,(P) ;DONT NEED FDB ANYMORE
CALL FIXCMN ; DO COMMON FIXUP
TQNE <UNLKF> ; DID IT UNLOCK THE DIR?
JRST NAMST7 ;AND GO STEP AGAIN
MOVEM A,0(P) ; YES. SAVE THIS PLACE
JRST NAMST1 ; AND GO TO SET DIR AGAIN
ENDIF.
POP P,B ; RESTORE FDB ADDRESS
NOWLDN: ADJSP P,-1 ; CLEAN UP THE STACK
TQZ <STEPF>
RETSKP
NAMST3: TQNN <DIRSF> ; ABLE TO STEP DIRECTORY
NAMS3B: JRST [ CALL DEVSTP ;NO, SEE IF STR CAN BE STEPPED
JRST NAMFAI ;NO, GIVE FAILURE RETURN
JRST NAMS3A] ;STR WAS STEPPED
TQO <STEPF>
NAMS3A: TQNE <NAMSF>
SETZM (P) ; Cause first name to be set
JRST NAMST4
NAMFA1: POP P,F1
NAMFAI: ADJSP P,-1
RET
;ROUTINE TO STEP TO NEXT STRUCTURE IF ANY
DEVSTP::TQNN <STRSF> ;IS STEPPING ALLOWED FOR STRUCTURES?
RETBAD (GJFX32) ;NO, TAKE ERROR RETURN
HRRZ B,FILDEV(JFN) ;SEE IF THIS IS THE DSK
CAIE B,DSKDTB ;STEPPING IS ONLY ALLOWED FOR STR'S
RETBAD (GJFX32) ;NOT A DSK, TAKE ERROR RETURN
DEVST1: INCR STR,(JFN) ;STEP TO NEXT STRUCTURE
LOAD A,STR,(JFN) ;GET STR NUMBER
CAIL A,STRN ;IS THIS A LEGAL NUMBER?
JRST DEVSTE ;NO, NO MORE STRUCTURES
CALL STRCNV ;GET UNIQUE CODE FOR THIS STR
JRST DEVST1 ;NO SUCH STRUCTURE
STOR A,FLUC,(JFN) ;STORE NEW UNIQUE CODE
CALL CHKMNO ;CHECK IF USER MOUNTED THIS STRUCTURE
JRST DEVST1 ;NO, GET NEXT ONE
NOINT ;INTERLOCK POSSIBLE BLOCK CHANGE
HLRZ A,FILDDN(JFN) ;GET POINTER TO OLD STRUCTURE NAME
CALL CNVSIX ;REPLACE IT WITH NEW STRUCTURE NAME
RETBAD (,<OKINT>) ;CAN'T, TAKE ERROR RETURN
HRLZM A,FILDDN(JFN) ;STORE NEW POINTER, ZERO DIRECTORY NUMBER
OKINT ;POINTER SAFE NOW
TQNN <DIRSF> ;STEPPING DIRECTORIES ALSO?
JRST [ CALL SDIRN ;NO, SET UP THE NEW DIR # OF THIS DIR
JRST DEVST1 ;THERE IS NONE ON THIS STR
RETSKP] ;DONE
TQO <DIRXF> ;MARK THAT THE DIR CHANGED
RETSKP ;SUCCESSFULLY STEPPED TO NEXT STR
DEVSTE: DECR STR,(JFN) ;LEAVE STR POINTING TO A LEGAL STR
RETBAD (GJFX32) ;NO MORE STR'S TO STEP TO
; Extension lookup
; Call: RH(FILDDN(JFN)) ; The directory number
; LH(FILNEN(JFN)) ; The file name string block location
; LH(A) ; Minus number of full words in string
; RH(A) ; Location of first word of string -1
; FILOPT(JFN) ; Location of last byte of input if recognition
; CALL EXTLUK ; For recognition
; Or
; CALL EXTLKX ; For no recognition
; Return
; +1 ; Error, no match or ambiguous (AMBGF)
; +2 ; Match (or no name device)
; A ; Location of fdb of first version
; B ; Location of pointer to fdb in a
; Directory locked
; Clobbers a,b,c,d,filopt(jfn), and bits MTCHF, AMBGF, NOREC1
;[7393]
;
; Note that this routine will NOT leave the directory locked
; unless EXTLUU is called. If you call EXTLKX, then this
; routine will not leave the directory locked. It is advised that this
; routine is not called out of context. In other words, this routine
; was written to work from being called by VERLKX or VERLUK. Serious
; side effects can happen if you try to use this routine by itself. It
; is not known exactly what can break.
EXTLUK::TQZA <NREC1>
EXTLKX::TQO <NREC1>
TQZA <UNLKF>
EXTLUU: TQO <UNLKF,NREC1>
EA.ENT
TQNN <ASTF>
IFSKP.
MOVE A,FILFDB(JFN) ;RETURN ANY FDB TO CALLER
RETSKP
ENDIF.
PUSH P,A
TQNN <EXTSF>
TXNE F1,STRSF!DIRSF!NAMSF ;STEPPING?
JRST EXTSTP ; Stepping
PUSH P,F1
LOAD A,FLNSB,(JFN)
CALL FIXSTR ; MAKE UP ARG FOR LOOKUP ROUTINE
CALL NAMLUU ;FIND NAME FIRST
IFNSK.
POP P,F1
ADJSP P,-1 ;RETURN FAILURE WITH ERRCOD
RET
ENDIF.
POP P,F1 ; Restore f1
TQZ <MTCHF,AMBGF>
POP P,A
TQNE NNAMF ;NO NAME DEVICE?
RETSKP ;YES, GO NO FURTHER
HRRZ D,DEV
CALLRET @ELUKD(D) ; Continue with device dependent portion
EXTSTP: TQNE <STEPF>
TQO <EXTXF>
TQNE <STEPF>
TQNE <EXTSF> ; Stepping extension?
JRST EXTST1 ; Yes.
EXTST4: PUSH P,FILOPT(JFN)
LOAD A,FLNSB,(JFN)
ADD A,[POINT 7,0,35]
MOVEM A,FILOPT(JFN)
PUSH P,F1
LOAD A,FLNSB,(JFN)
CALL FIXSTR ; MAKE UP ARG FOR LOOKUP ROUTINE
CALL NAMLUU ;FIND NAME FIRST
JRST [ POP P,F1
POP P,FILOPT(JFN)
JRST EXTRET]
AND F1,[EXTXF!NAMXF!DIRXF]
IORM F1,(P)
POP P,F1
POP P,FILOPT(JFN)
JRST EXTST2
EXTST1: PUSH P,F1
EXTST8: TQZ <STEPF>
LOAD A,FLNSB,(JFN)
CALL FIXSTR ; MAKE UP ARG FOR LOOKUP ROUTINE
CALL NAMLUU ;FIND NAME FIRST
JRST [ POP P,F1
JRST EXTRET]
POP P,F1
; ..
; ..
EXTST2: MOVE A,(P)
MOVE C,FILOPT(JFN) ; GET FILOPT
TQNE <EXTSF> ; STEPPING EXTENSION?
MOVEM C,0(P) ; YES SAVE IT
EXTST7: HRRZ D,DEV
CALL @ELUKD(D)
JRST EXTST3 ; No more extensions
TQNN <STEPF> ; STEPPING EXTENSION?
JRST NOWLDE ; NO
LOAD A,FLEMS,(JFN) ; SEE IF A MASK
JUMPE A,NOWLDE ; IF ZERO, NO.
PUSH P,B ; SAVE THE FDB
MOVE B,A ; GET MASK TO B
MOVE A,-1(P) ; GET BASE OF STRING
HRLI A,(<POINT 7,0,35>) ; FORM SP TO STRING
CALL CHKWLD ; SEE IF A MATCH
JRST [ POP P,B ; GET FDB OF NONMATCH
CALL FIXCMN ; DO COMMON FIXUP
TQNE <UNLKF> ; DID IT UNLOCK THE DIR?
JRST EXTST7 ; GO STEP THE EXTENSION
MOVEM A,0(P) ; YES. SAVE THIS PLACE
JRST EXTST1] ; AND GO SET DIR AGAIN
POP P,B ; USE THIS FDB
NOWLDE: ADJSP P,-1 ; CLEAR OUT FILOPT,OLD ARG
TQZ <STEPF>
RETSKP ;SUCCESS
EXTST3: TXNE F1,DIRSF!NAMSF ;STEPPING?
IFSKP.
CALL DEVSTP ; SEE IF THE STRUCTURE CAN BE STEPPED
JRST EXTFAI ; NO, GIVE ERROR RETURN
ENDIF.
TQNE <EXTSF>
SETZM (P)
TQO <STEPF>
JRST EXTST4
EXTFAI: MOVEI T1,GJFX19 ;No such extension
EXTRET: ADJSP P,-1
RET
; Get pointer to an fdb
; Call: LH(FILDDN(JFN)) ; Device name block location
; RH(FILDDN(JFN)) ; Directory number
; LH(FILNEN(JFN)) ; File name block location
; RH(FILNEN(JFN) ; Extension block location
; RH(FILVER(JFN)) ; File version number
; CALL GETFDB
; Return
; +1 ; Not found - FDB OF NON-EXISTENT FDB IN A IF ANY
; +2 ; Found, a has location of the fdb
; Leaves directory locked and psi off
; Clobbers a,b,c,d
GETFDB::EA.ENT ;ENTER EXTENDED ADR
SKIPN FILFDB(JFN) ;HAVE AN FDB YET?
TQNN <ASTF>
IFSKP.
BUG.(HLT,ASTJFN,LOOKUP,SOFT,<GETFDB - Called for JFN with output stars>,,<
Cause: The monitor tried to get a pointer to the FDB of an output file, and
the file specification used as an argument to GTJFN contains
asterisks.
>)
ENDIF.
SAVEAC <F,F1> ;SAVE FILE SYS AC'S
BLCAL. DSKOK,<DEV> ;REAL DSK?
BUG.(HLT,MDDJFN,LOOKUP,SOFT,<GETFDB - Called for non-MDD device>,,<
Cause: The monitor tried to get a FDB for a device other than a structure.
>)
CALL FSTGFB ; TRY TO USE FDB ADR IN FILFDB(JFN)
SKIPA ; THAT FDB ADR IS BAD
JRST GETFD1 ; FDB ADR IS GOOD
SETZM FILFDB(JFN) ; CLEAR OUT FDB ADDRESS
HRRZ A,FILVER(JFN) ; Get the version number in a
MOVX F,OLDNF!IGDLF
TQO <NREC>
TLZ F1,-1
CALL VERLKX
RET ;NONE THERE
MOVE A,B ;[7358] Put FDB address in A for return
JUMPE A,R ;MAKE SURE ONE RETURNED
MOVEM A,FILFDB(JFN) ; SAVE THE FDB ADDRESS
GETFD1: RETSKP
;SPECIAL ENTRY GIVING ARGS IN TEMP REGISTERS:
; T1/ JFN
GETFDT::SAVEPQ ;SAVE REGISTERS
MOVE JFN,T1 ;MOVE JFN
SETZB F1,STS ;NOTHING INTERESTING
HRRZ DEV,FILDEV(JFN) ;SET UP DEV POINTER
CALLRET GETFDB ;GO DO IT
; Version lookup
; Call: LH(FILDDN(JFN)) ; Device name block location
; RH(FILDDN(JFN)) ; Directory number
; LH(FILNEN(JFN)) ; File name block location
; RH(FILNEN(JFN)) ; Extension block location
; A ; Version number to find 0 =) most recent
; ; -1 =) next higher than most recent
; CALL VERLUK
; Return
; +1 ; Not found
;[7358] +2 ; Found (or no name device), B points to the pertinent FDB
; Leaves directory locked and psi off if successfull
; Clobbers a,b,c,d
;
; [7393]
; Be careful when calling this routine! In order to do file lookups, you
; must setup A, FILDDN(JFN) and FILNEN(JFN). Also, it is only necessary to
; call VERLUK to find the file. It will find the str, dir, nam, ext and ver.
;
; When calling VERLUK, and a +2 is returned, B will have the pertinent FDB,
; but the directory is not locked and the PSI is not off! If you wish this
; to happen, you must call VERLKX.
VERLKX::TQOA <UNLKF> ;[7.1014]
VERLUK::TQZ <UNLKF>
EA.ENT
TQNE <ASTF>
JRST [ MOVE B,FILFDB(JFN) ;RETURN ANY FDB
RETSKP] ;RETURN GOOD
PUSH P,A ; Preserve a
TQNN <VERSF,EXTSF>
TXNE F1,NAMSF!DIRSF!STRSF ; STEPPING?
JRST VERSTP ; YES, Stepping
PUSH P,F1 ; Save f1, since extluu will clobber
LOAD A,FLESB,(JFN)
CALL FIXSTR ; MAKE UP ARG FOR LOOKUP ROUTINE
CALL EXTLUU
IFNSK.
POP P,F1
ADJSP P,-1
RET ;NO, RETURN FAILURE
ENDIF.
POP P,F1
POP P,A ; Restore version to look up
TQNE NNAMF ;NO NAME DEVICE?
RETSKP ;YES, DONE
HRRZ D,DEV
CALLRET @VLUKD(D)
VERSTP: TQNE <STEPF>
TQNE <VERSF> ; Stepping versions?
JRST VERST1
VERST4: PUSH P,FILOPT(JFN)
LOAD A,FLESB,(JFN)
ADD A,[POINT 7,0,35]
MOVEM A,FILOPT(JFN)
PUSH P,F1
LOAD A,FLESB,(JFN)
CALL FIXSTR ; MAKE UP ARG FOR LOOKUP ROUTINE
CALL EXTLUU
JRST [ POP P,F1
POP P,FILOPT(JFN)
JRST VERFAI] ; Failure
AND F1,[EXTXF!NAMXF!DIRXF]
IORM F1,(P)
POP P,F1
POP P,FILOPT(JFN)
JRST VERST2
VERST1: PUSH P,F1
TQZ <STEPF>
LOAD A,FLESB,(JFN)
CALL FIXSTR ; MAKE UP ARG FOR LOOKUP ROUTINE
CALL EXTLUU
JRST [ POP P,F1
JRST VERFAI]
POP P,F1
VERST2: MOVE A,(P)
HRRZ D,DEV
CALL @VLUKD(D) ; Step the version
JRST VERST3 ; None left
ADJSP P,-1
TQZ <STEPF>
RETSKP ; Success
VERST3: TXNE F1,EXTSF!NAMSF!DIRSF
IFSKP.
CALL DEVSTP ; SEE IF STR CAN BE STEPPED
JRST VERFAI ; NO, GIVE FAILURE RETURN
ENDIF.
MOVNI A,2 ; SET UP FOR STAR VERSION
TQNE <VERSF>
MOVEM A,0(P) ; TO FIND OLDEST VERSION
TQO <STEPF>
JRST VERST4
VERFAI: ADJSP P,-1
RET
;SUBROUTINE TO COMPARE A STRING TO A WILD-CARD STRING.
;ARGS: T1/ BYTE POINTER TO STRING TO BE CHECKED
; T2/ BYTE POINTER TO WILDCARD STRING
; T3/ [ INSTRUCTION TO GET CHAR OF WILD STRING INTO Q1 USING T2
; INSTRUCTION TO GET CHAR OF TEST STRING INTO Q1 USING T1 ]
; T4/ NOT CHANGED, CAN BE USED AS INDEX AC IN BYTE POINTERS
;
;RETURNS +1: T1/ 0 NO MATCH
; T1/ -1 NO MATCH, BUT STRING IS SUBSET OF WILD STRING
;
; +2: TEST STRING IS MATCHED BY WILD STRING.
;
;CALL AT CHKWLD FOR MOST APPLICATIONS, WHERE IT SETS UP DEFAULT STUFF.
CHKWLD::TLNN T2,-1 ;WERE WE GIVEN ONLY AN ADDRESS?
HRLI T2,(POINT 7,0,35) ;YES, MAKE POINTER TO NEXT WORD
MOVEI T3,[ILDB Q1,T2 ;POINT TO INSTRUCTIONS TO LOAD CHARACTERS
ILDB Q1,T1] ;FROM NORMAL MONITOR SPACE
CHKWLS::SAVEQ ;SAVE SOME AC'S
STKVAR <SVPTR,SVMSK> ;ALLOCATE STORAGE
SETZB Q2,SVMSK ;INITIALIZE OLD CHAR AND MASK
CHKWLL: XCT 0(T3) ;GET NEXT CHAR OF MASK
JUMPE Q1,[CAIN Q2,"*" ;DID WILD STRING END IN ASTERISK
RETSKP ;YES, STRINGS MATCH
XCT 1(T3) ;GET NEXT CHAR FROM TEST STRING
JUMPN Q1,FAIL ;IF NOT ALSO DONE, STRETCH MASK
RETSKP] ;OTHERWISE STRINGS MATCH
MOVE Q2,Q1 ;SAVE NEWEST CHAR FOR LATER USE
CAIN Q2,"*" ;FULL WILDCARD?
JRST [ MOVEM T1,SVPTR ;YES, REMEMBER CURRENT POINTERS
MOVEM T2,SVMSK ;IN CASE WE HAVE TO STRETCH MASK
JRST CHKWLL] ;CONTINUE
XCT 1(T3) ;GET NEXT CHAR OF TEST STRING
JUMPE Q1,RETO ;IF NO MORE, PARTIAL MATCH
CAME Q1,Q2 ;CHARACTERS FROM THE TWO STRINGS MATCH?
CAIN Q2,WLDCHR ;OR IS THIS THE SINGLE WILDCARD CHAR?
JRST CHKWLL ;YES, CONTINUE
FAIL: SKIPN T2,SVMSK ;WAS THERE A PREVIOUS ASTERISK?
JRST RETZ ;NO, THEN STRINGS DON'T MATCH
IBP SVPTR ;YES, ADVANCE THE TEST STRING POINTER
MOVE T1,SVPTR ;GET NEW POINTER
JRST CHKWLL ;TRY AGAIN
;COMMON ROUTINE TO MAKE UP DEVICE DEPENDENT ARGUMENT POINTER
;FROM THE STRING POINTED TO BY A
FIXSTR:: ;[7377]
SAVEAC <B,C>
MOVE C,A ;COPY PTR
HRLI C,(<POINT 7,0,35>) ;MAKE A STRING POINTER
ILDB B,C ;GET A BYTE
JUMPN B,.-1 ;CYCLE UNTIL THE NULL
HRRZ B,A ;GET START
SUBI B,-1(C) ;CALCULATE NUMBER OF WORDS
HRL A,B ;COUNT
RET ;AND DONE
;COMMON FIX UP LOGIC FOR FAILURES TO CHKWLD
FIXCMN: MOVE A,-1(P) ; THE VALUE
HRLI A,(<POINT 7,0,35>)
MOVEM A,FILOPT(JFN) ; NEW POINTER
MOVEI A,(A)
CALLRET FIXSTR ; GO DO ARG STUFF
;THIS ROUTINE IS CALLED BY THE DIRECTORY STEPPING LOGIC IN NAMLUK
;TO SEE IF THE DIRECTORY SPECIFIED IN FILDDN MATCHES THE WILD MASK
;IN FLDMS
;IF A MATCHING DIRECTORY IS FOUND, FILDIR(JFN) IS UPDATED WITH
; THE NEW DIRECTORY NAME
CHKDIR: CALL USTDIR ;FREE DIR
HRRZ A,FILDDN(JFN) ;GET DIRECTORY NUMBER
LOAD B,FLUC,(JFN) ;GET STR NUMBER
HRL A,B ;BUILD A 36 BIT DIRECTORY NUMBER
CALL GDIRST ;GET NAME
RETBAD() ;FAILED. RETURN CODE
PUSH P,A ;SAVE POINTER
NOINT ;PREVENT INTERRUPTIONS
CALL USTDIR ;FREE UP DIRECTORY
POP P,A ;RESTORE POINTER TO DIRECTORY
MOVE D,A
MOVE A,[POINT 7,0(D),34] ;SET UP STRING POINTER
LOAD B,FLDMS,(JFN) ; GET THE MASK
CALL CHKWLD ; GO COMPARE THEM
RETBAD (,OKINT) ; NO MATCH. RETURN ERROR
OKINT ; GOOD
RETSKP ; A MATCH
TNXEND
END