d ;************************************************************;
È ;	given a volume and logical block number (lbn) 
,;	print file owner uic and filename.ext.version
.;		by susan kidd	feb 10,1982
;************************************************************;
ô	.PSECT	code_data,wrt,rd,noexe
X	.LIBRARY	/SYS$LIBRARY:LIB.MLB/
¼	$fh2def
 	$fhidef
„	$hm2def
¶	$dscdef
è
L
°.MACRO	LIB$GET_INPUT	INPUT_DESC,PROMPT
	PUSHAL	PROMPT
x	PUSHAL	INPUT_DESC
Ü	CALLS	#2,G^LIB$GET_INPUT
@.ENDM	LIB$GET_INPUT
¤
lSECFAB:	$FAB	dns=namsiz,dna=filename,fop=ufo
Ð
4FILENAME:	
˜VOL:	.ASCII	/          /	;10 spaces reserved for volume name
üBLANKS:	.ASCII	/          /	;and blanks to clear field
`		.ascii/[0,0]indexf.sys/
Ä	NAMSIZ=.-FILENAME
(

Œ
FF:	.ASCII/ FILENAME= /
ð
FNAME:	.BLKB	20
T	FSIZE=.-FF
¸FNAM_D:	.LONG	FSIZE,FF

€FAODESC:
ä	.LONG 80
H	.LONG FAOBUF
¬FAOBUF:	.BLKB 80
FAOLEN:	.BLKW 1
t
ØUICSTR:	.ASCID	/ FILE OWNER UIC= [!OW,!OW]/
<LINE:	.ASCID	@!/@
 
NOPE_D:	.ASCID	/ LBN NOT LOCATED/
hOPEN_D:	.ASCID	/ OPEN ERROR : NON-EXISTENT VOLUME ? /
ÌMAP_D:	.ASCID	/ ERROR MAPPING SECTION /
0FAT_D:	.ASCID	/ PROGRAMMING ERROR--ADD HAD CARRY/
”
øVOL_PR:	.ASCID	/ ENTER VOLUME NAME (max=9 chars) FOLLOWED BY A COLON: /
\LBN_PR:	.ASCID	@ ENTER LBN (fmt=(D)/X/O eg. X3F6D0): @
ÀRESP:	.LONG	0,0
$BEGMAP:	.LONG
ˆENDMAP:	.LONG
ìHEADER:	.LONG
PBITNUM:	.LONG
´MEMBER:	.WORD
GROUP:	.WORD
|BOTH:				;longword for concatenating bits
àLOW:	.WORD
DHIGH:	.WORD
¨GETLBN:	.LONG			;lbn we are looking for
				;open index file indexf.sys for vol,readonly,recl=512
pMAPRANGE:
Ô	.LONG	^X200		;any program (p0)region address
8	.long	^x200
œRETRANGE:
 	.BLKL	2		;address range returned here
ÿÿ
d.PAGE
È	.PSECT	code_code,nowrt,rd,exe
,.ENTRY	CODE,^M<R2,R6,R7,R8,R9,R10,R11>

ôGET_VOL:
X	$FAO_S	CTRSTR=LINE,OUTBUF=FAODESC,OUTLEN=FAOLEN ;2 blank lines
¼	MOVZWL	FAOLEN,FAODESC
 	PUSHAL	FAODESC
„	CALLS	#1,G^LIB$PUT_OUTPUT
è	CLRQ	RESP		;prompt and read volume
L	MOVB	#DSC$K_CLASS_D,RESP+DSC$B_CLASS
°	LIB$GET_INPUT	RESP,VOL_PR
	TSTW	RESP
x	BNEQ	10$
Ü		$EXIT_S
@10$:
¤	CMPW	RESP,#10	;max is 10 characters
 	BGTRU	GET_VOL
l 	MOVC3	#10,BLANKS,VOL	;fill in for open
Ð 	MOVC3	RESP,@RESP+4,VOL
4!	$OPEN	FAB=SECFAB
˜!	CMPW	#SS$_NORMAL,R0
ü!	BEQL	1$
`"	JMP	OPEN_ERROR
Ä"1$:
(#GET_LBN:
Œ#	CLRQ	RESP		;prompt and read lbn
ð#	MOVB	#DSC$K_CLASS_D,RESP+DSC$B_CLASS
T$	LIB$GET_INPUT	RESP,LBN_PR
¸$	DECW	RESP		;assume X or D or O typed
%	BLSS	GET_LBN		;whoops,typed nothing
€%	MOVL	4+RESP,R0
ä%	INCL	RESP+4
H&	MOVZBL	(R0),R0		;look at first char
'	CMPB	#^A/D/,R0
t'	BEQL	31$
Ø'	CMPB	#^A/d/,R0
<(	BEQL	31$
 (	CMPB	#^A/X/,R0
)	BEQL	32$
h)	CMPB	#^A/x/,R0
Ì)	BEQL	32$
0*	CMPB	#^A/O/,R0
”*	BEQL	33$
ø*	CMPB	#^A/o/,R0
\+	BEQL	33$
À+	DECL	RESP+4		;restore pointer,assume D
$,	INCW	RESP
ˆ,31$:	PUSHAL	GETLBN		;D
ì,	PUSHAL	RESP
P-	CALLS	#2,G^OTS$CVT_TI_L
´-	JMP	MAP_SECTION
.32$:	PUSHAL	GETLBN		;X
|.	PUSHAL	RESP
à.	CALLS	#2,G^OTS$CVT_TZ_L
D/	JMP	MAP_SECTION
¨/33$:	PUSHAL	GETLBN		;O
0	PUSHAL	RESP
p0	CALLS	#2,G^OTS$CVT_TO_L
Ô0
81MAP_SECTION:
œ1	CMPL	#SS$_NORMAL,R0	;test results of conversion 
 2	BEQL	10$
d2	JMP	GET_LBN
È210$:
,3	$CRMPSC_S inadr=MAPRANGE,-
3		retadr=RETRANGE,-	;output array
ô3		flags=#SEC$M_EXPREG,-
X4		vbn=#2,-		;start with home block
¼4		chan=SECFAB+FAB$L_STV
 5	CMPL	RETRANGE,#-1
„5	BNEQ	2$
è5	JMP	MAP_ERROR
L62$:
x7	MOVL	RETRANGE,R6 		;home block addr
Ü7	MOVZWL	HM2$W_IBMAPVBN(R6),BEGMAP ;vbn of map area
@8	DECL	BEGMAP
¤8	DECL	BEGMAP
9	MULL2	#512,BEGMAP		
l9	ADDL2	R6,BEGMAP		;map area addr
Ð9
4:	MOVZWL	HM2$W_IBMAPSIZE(R6),ENDMAP ;mapsize in blocks
˜:	ASHL	#9,ENDMAP,ENDMAP	;multiply by 512
ü:	ADDL2	BEGMAP,ENDMAP		;point to end of map area
`;
Ä;	;get each file header marked in use in index bitmap
(<	MOVL	ENDMAP,HEADER		;start with 1st header
Œ<	CLRL	BITNUM			;assoc with bit number 0
ð<LOOP:	MOVL	BEGMAP,R3		;of index file bitmap
T=	EXTZV	BITNUM,#1,(R3),R4	;is it set?
¸=	BNEQ	GOTONE			;...yes
>NEXTHD:	INCL	BITNUM			;next bit
€>	ADDL2	#512,HEADER		;next header
ä>	CMPL	HEADER,RETRANGE+4	;end of headers?
H?	BLSSU	LOOP			;...no
¬?	JMP	NOFOUND
@
t@GOTONE:
Ø@	MOVL	HEADER,R8		;r8 is current header
<A
 A	MOVZBL	FH2$B_MPOFFSET(R8),R10	;word offset to map area
B	ASHL	#1,R10,R10		;byte offset
hB	ADDL2	R8,R10			;add to header=ptrs
ÌB	BVS	1$
0C
”C	MOVZBL	FH2$B_ACOFFSET(R8),R11 	;word offset to end of ptrs+1
øC	ASHL	#1,R11,R11	    	;byte offset
\D	ADDL2	R8,R11			;point to end of ptrs
ÀD	BVC	NEXTPT
$E1$:	JMP	ERROR1
ˆE
ìE
PFNEXTPT:
´F	CMPL	R10,R11			;at end of ptrs ?
G	BGEQ	NEXTHD
|G	MOVZBL	1(R10),R4		;no,decipher pointer format
àG	BITB	#^B11000000,R4
DH	BNEQ	1$
¨H	TSTW	(R10)+			;bump to next pointer
I	BRB	NEXTPT			;ignore placement pointers
pI1$:
ÔI	TSTB	R4			;test for '01'
8J	BGEQ	FORM1
œJ	BBS	#6,R4,FORM3 		;test for '11'
 K
dKFORM2:	MOVZWL	(R10)+,R4 		;must be '10' -- get count
ÈK	BICW2	#^X8000,R4		;clear high bit
,L	MOVL	(R10)+,R3		;get lbn
L	BRB	CHECK
ôL
XMFORM3:	MOVW	(R10)+,HIGH
¼M	BICW2	#^XC000,HIGH
 N	MOVW	(R10)+,LOW
„N	MOVL	BOTH,R4			;get count
èN	MOVL	(R10)+,R3		;get lbn
LO	BRB	CHECK
°O
PFORM1:	MOVZBL	(R10)+,R4		;get count
xP	MOVZBW	(R10)+,HIGH
ÜP	BICW2	#^X40,HIGH		;clear format type bit
@Q	MOVW	(R10)+,LOW
¤Q	MOVL	BOTH,R3			;get lbn
R	CMPL	#^X3FFFFF,R3  		;unallocated portion of sparse file ?
lR	BEQL	NEXTPT			;...yes
ÐR
4SCHECK:	CMPL	#^XFFFFFFFF,r3  	;unallocated portion of sparse file ?
˜S	BEQL	NEXTPT			;...yes
üS	CMPL	GETLBN,R3		;match with base lbn ?
`T	BGTRU	1$			;  bigger than
ÄT	BEQL	DONE			;  got it!
(U	JMP 	NEXTPT			;  smaller than
ŒU1$:
ðU	ADDL2	R4,R3			;calc end of pointer range
TV	CMPL	GETLBN,R3		;in range?
¸V	BLEQU	DONE			;  yes
W	JMP	NEXTPT			;  no,look at next pointer
€W
äWDONE:
HX	MOVW	FH2$W_UICMEMBER(R8),MEMBER
¬X	MOVW	FH2$W_UICGROUP(R8),GROUP
Y	MOVZBL	FH2$B_IDOFFSET(R8),R6	;word offset 
tY	ASHL	#1,R6,R6		;byte offset
ØY	ADDL2	R6,R8
<Z	MOVC3	#20,FHI$W_FILENAME(R8),FNAME
 Z					;print uic
ÒZ	MOVL	#80,FAODESC
[	$FAO_S	CTRSTR=UICSTR,OUTBUF=FAODESC,OUTLEN=FAOLEN,-
h[		P1=GROUP,P2=MEMBER
Ì[	MOVZWL	FAOLEN,FAODESC
0\	PUSHAL	FAODESC
”\	CALLS	#1,G^LIB$PUT_OUTPUT
ø\					;print filename
\]	PUSHAL	FNAM_D
$^	$CLOSE	FAB=SECFAB
ˆ^	JMP	END
ì^
P_NOFOUND:
´_	PUSHAL	NOPE_D
`	BRB	END
|`OPEN_ERROR:
à`	PUSHAL	OPEN_D
Da	CALLS	#1,G^LIB$PUT_OUTPUT
¨a	JMP	GET_VOL
bMAP_ERROR:
pb	PUSHAL	MAP_D
Ôb	BRB	END
8cERROR1:
œc	PUSHAL	FAT_D
 d
ddEND:
Èd	CALLS	#1,G^LIB$PUT_OUTPUT
,eEXIT:
e	$EXIT_S
ôe.END	CODE