Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;<3A.MONITOR>LOOKUP.MAC.1, 27-Feb-78 10:47:25, EDIT BY MILLER
;FIX GETFDB TO NOT SUCCEED IF VERLKX RETURNS A ZERO FOR THE FDB
;<3-MONITOR>LOOKUP.MAC.75, 11-Nov-77 09:28:25, EDIT BY MILLER
;REMOVE NULL NAME FIX. IT DIDNT WORK
;<3-MONITOR>LOOKUP.MAC.74,  7-Nov-77 13:03:35, EDIT BY KIRSCHEN
;MORE COPYRIGHT UPDATING...
;<3-MONITOR>LOOKUP.MAC.73, 19-Oct-77 14:22:47, EDIT BY KIRSCHEN
;FIX POINTER SETUP IN CHKWLD TO MAKE ACCOUNTS WITH WILDCARDS WORK
;<3-MONITOR>LOOKUP.MAC.72, 12-Oct-77 13:55:13, EDIT BY KIRSCHEN
;UPDATE COPYRIGHT FOR RELEASE 3
;<3-MONITOR>LOOKUP.MAC.71, 14-Sep-77 14:46:53, EDIT BY HURLEY
;<3-MONITOR>LOOKUP.MAC.70,  9-Sep-77 17:44:14, EDIT BY HURLEY
;FIX NAMLUU TO RETURN FAILURE FOR NULL NAME ON DSK JFN
;<3-MONITOR>LOOKUP.MAC.69, 15-Aug-77 11:05:52, EDIT BY HURLEY
;MAKE CHKWLD RETURN 0 FOR NO MATCH AND -1 FOR SUBSET STRING
;<3-MONITOR>LOOKUP.MAC.68, 29-Jul-77 10:09:51, EDIT BY HURLEY
;SPEED UP WILD CARD DIRECTORY LOOKUPS
;<3-MONITOR>LOOKUP.MAC.67, 28-Jul-77 17:09:48, EDIT BY HURLEY
;<3-MONITOR>LOOKUP.MAC.66,  2-May-77 21:36:58, EDIT BY BOSACK
;<3-MONITOR>LOOKUP.MAC.65, 27-Mar-77 22:19:19, EDIT BY BOSACK
;MAKE CHKWLD GLOBAL
;<3-MONITOR>LOOKUP.MAC.64,  1-Feb-77 15:28:54, EDIT BY BOSACK
;<3-MONITOR>LOOKUP.MAC.63, 24-Jan-77 20:55:53, EDIT BY BOSACK
;REMOVE SPECIAL CASE CALL TO FNUIDX IF WILDCARD DIR
;BUILD COMPOSITE DIR NUMBERS FOR DLUKD(DEV) CALLS
;<3-MONITOR>LOOKUP.MAC.62, 22-Jan-77 19:14:17, Edit by MCLEAN
;<3-MONITOR>LOOKUP.MAC.61, 22-Jan-77 19:11:23, Edit by MCLEAN
;<3-MONITOR>LOOKUP.MAC.60, 22-Jan-77 18:04:52, Edit by MCLEAN
;<3-MONITOR>LOOKUP.MAC.59, 20-Jan-77 21:04:36, Edit by MCLEAN
;<3-MONITOR>LOOKUP.MAC.58, 19-Jan-77 21:24:55, Edit by MCLEAN
;<3-MONITOR>LOOKUP.MAC.57, 27-Dec-76 17:34:02, EDIT BY HURLEY
;<3-MONITOR>LOOKUP.MAC.56, 26-Nov-76 16:46:32, Edit by MCLEAN
;TCO 1669 EXTENDED ADDRESSING
;<2-MONITOR>LOOKUP.MAC.55, 20-Sep-76 19:07:15, EDIT BY HURLEY
;<2-MONITOR>LOOKUP.MAC.54, 20-Sep-76 19:05:45, EDIT BY HURLEY
;<2-MONITOR>LOOKUP.MAC.53, 20-Sep-76 15:49:40, EDIT BY HURLEY
;<2-MONITOR>LOOKUP.MAC.52, 15-Sep-76 18:43:33, EDIT BY HURLEY
;<2-MONITOR>LOOKUP.MAC.51, 14-Sep-76 18:30:40, EDIT BY HURLEY
;<2-MONITOR>LOOKUP.MAC.50, 14-Sep-76 18:04:49, EDIT BY HURLEY
;<2-MONITOR>LOOKUP.MAC.49,  9-Sep-76 11:03:00, EDIT BY HURLEY
;ADD STRUCTURE STEPPING
;<2-MONITOR>LOOKUP.MAC.48,  3-Aug-76 20:04:55, EDIT BY HURLEY
;<2-MONITOR>LOOKUP.MAC.47,  3-Aug-76 19:50:04, EDIT BY HURLEY
;EXPAND DIRECTORY NUMBERS TO 36 BITS
;<2-MONITOR>LOOKUP.MAC.2, 10-MAY-76 11:29:25, EDIT BY KIRSCHEN
;CHANGE GDIRST AND SETDRR CALLS TO GET STR # USING LOAD MACRO
;<2-MONITOR>LOOKUP.MAC.1, 10-MAY-76 11:25:28, EDIT BY KIRSCHEN
;ADD STRUCTURE NUMBER TO CALLS TO GDIRST AND SETDRR
;<1MONITOR>LOOKUP.MAC.44, 29-FEB-76 11:49:33, EDIT BY MILLER
;<1MONITOR>LOOKUP.MAC.43, 27-FEB-76 12:42:05, EDIT BY MILLER
;TCO 1092. FIX WILD CARD DIR LOOKUP
;<2MONITOR>LOOKUP.MAC.42,  1-FEB-76 13:03:00, EDIT BY MILLER
;MCO 45. FIX CHKDIR TO AVOID MONPDL
;<2MONITOR>LOOKUP.MAC.41, 16-JAN-76 17:50:56, EDIT BY MURPHY
;<2MONITOR>LOOKUP.MAC.40, 23-DEC-75 12:51:02, EDIT BY LEWINE


;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1976, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

	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
;	+2	; Ambiguous
;	+3	; 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

NAMLKX::TQOA <NREC1>		; Enter here for recognition
NAMLUK::TQZ <NREC1>
	SE1CAL