Google
 

Trailing-Edge - PDP-10 Archives - tops20tools_v6_9-jan-86_dumper - tools/tvaxv1/tv.mmlb
There are 2 other files named tv.mmlb in the archive. Click here to see a list.
%lX-11 Librarian V03-00 bpL	
 R:N	
!#
""[ sfABENDABEND0(BLAB.PCALLS.CVTCLPDEDIT~EDITPRELSE.PENDIF.:IF.
zIFC.(IFL.IFL2.lIFL3.hINIT(INITGlLAB.hLOCAT.`LOCKGNON_ERROR pPLOAD$RDATA4RETURNG<SDCATDEF SFUNC ZSRTCS6UNLOCKGjVPASS|WROUTWROUTDEF	

-@M	
.MACRO	WROUTDEF	X	.SAVE	.PSECT	DATA,LONG,NOWRT,SHR	...TMPA=.	.ASCII	\             \	.=...TMPA
	.IF_FALSE	.ASCII	\X\	.ENDC		.RESTORE	PUSHAL	...TMPA	CALLS	#1,G^GENR18D.ENDMww- tM	
.MACRO	CVTCLP	X,Y,Z	MOVB	#^A'+',-Y-1(SP)	MOVC3	#Y,X,-Y(SP)	CVTSP	#Y,-Y-1(SP),#15,-9-Y(SP)	CVTPL	#15,-9-Y(SP),Z.ENDMww-`M	
.MACRO	IF.	CND	.IF	EQ	INITSW.&<1@1>	IFDMAX.=0Q	IFLEV.
IF_STAT.=0	IF_USE.=0	IF_CNT.=0IF_STRT.=IF_MAX.	.ENDCIF_CNT.=IF_CNT.+1IF_MAX.=IF_MAX.+1IF_LEV.=IF_LEV.+1	IFC.	<CND>IF_STAT.=IF_STAT.!<1@IF_CNT.>.ENDMww-`%M	
.MACRO	IFC.	C	.IF	EQ	%LOCATE(C,<*EQ>)	IFL.	BEQL,\IFFMAX.	.MEXIT	.ENDC(IFAMBVS,.IFIMAX.EQ.MEXIT%LOCATE(C,<*GT>)<*LT>)IFL.L.TBGTRU,\IFLMAX.FMAX..MEXITIT.MEXITION IN IF;.ENDMww- @M	
.MACRO	IFL.	BI,LL,?L1	BI	L1	BRW	IF.'LL	IF_RTC.=1L1:.ENDMww-@BM	
.MACRO	IFL2.	LL,?L1	BLBC	R0,L1	BRW	IF.'LL	IF_RTC.=1L1:.ENDMww-'EM	
.MACRO	IFL3.	LL,?L1	BLBS	R0,L1	BRW	IF.'LL	IF_RTC.=1L1:.ENDMww- .FM	
.MACRO	ENDIF.	LOCAT.	.IIF	EQ	IFI.,.MEXIT	.IF	NE	IFSTAT.&<1@IFI.>	LAB.	IF.,\IFLAB.IFSTAT.=IFSTAT.&^C<1@IFI.>
	.IF_FALSE	LAB.	EIF.,\IF _LAB.	.ENDCIF_LEV.=IF_LEV.-1IF_USE.=IF_USE.!<1@IF_I.>.ENDMww-BKM	

.MACRO	ELSE.	LOCAT.	.IIF	EQ	IF_I.,.MEXIT	BLAB.	EIF.,\IF_LAB.	LAB.	IF.,\IF_LAB.IF_STAT.=IF_STAT.&^C<1@IF_I.>.ENDMww-@ONM	
.MACRO	LAB.	TT,LLTT'LL:.ENDMww-`UOM	
.MACRO	BLAB.	TT,LL
	BRW	TT'LL.ENDMww-\QM	
.MACRO	LOCAT.	.REPEAT	IFCNT.	.IF	EQ	IFUSE.&<1@IFI.>0	.IIF	EQ	IFI.,	.ERROR	2;UNMATCHED ELSE OR ENDIFIFL AB.=IFSTRT.+IFI.	.MEXIT	.ENDC	IFI.=IFI.-1	.ENDR.ENDMww-@iTM	
0.MACRO	CALLS.	SUB,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10
	.NARG	COUNT*	.IRP	ARG,<A10,A9,A8,A7,A6,A5,A4,A3,A2,A1>	.IF	NOT_BLANK	ARG	PUSHAB	ARG	.ENDC	.ENDR	CALLS	#<COUNT-1>,G^SUB.ENDMww- }XM	
.MACRO	INITG	NAM	INITSW.=0	.PSECT	NAM,SHR,QUAD,NOWRT/	.ENTRY	NAM,^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>.ENDMww-@ZM	
.MACRO	RETURNG	RET.ENDMww-`
\M	
.MACRO	VPASS	NSEC,?L1
	.SAVE_PSECT	.PSECT	DATA,SHR,LONG,NOWRT	...TMP1=.	.LONG	-<NSEC*10000000>,-1	.RESTORE_PSECT	$SETIMR_S DAYTIM=...TMP1	$WAITFR_S EFN=#0	BLBS	R0,L1	$EXIT_S R0L1:.ENDMww-@`M	
.MACRO	LOCKG	LLK,?L1,?L2,?L3	BBCS	#0,LLK,L3,GTAP(R9)	ADDW2	#1,1+LLKL1:	ADDL3	R10,GTSWA(R9),R0
.MACRO	UNLOCKG	LLK,?L1	CMPL	R9,3+LLK	BNEQ	L1	CLRL	3+LLK
	MOVB	#0,LLK	TSTW	1+LLK	BEQL	L1L1:.ENDMww-@SlM	
.MACRO	ABEND	TXTLL,TXTARGCNT-1	WROUT	<TXTLL>
	.IF_FALSE	WROUT	TXTLL,TXT	.ENDC	$EXIT_S.ENDMww-aoM	
.MACRO	ABEND0	TXTLL,TXT		PUSHL	R0UT	<TXTLL>
	.IF_FALSE	WROUT	TXTLL,TXT	.ENDC	POPL	R0	$EXIT_S R0.ENDMww-`ttM	
.MACRO	SDCATDEF		.SHOW	ME;	CATALOG LAYOUT;CDBNAM=0			;DATABASE NAMECDBREF=CDBNAM+10		;REL DB NR"CDBAFA=CDBREF+2			;ADDR FIRST AREA$CDBAFR=CDBAFA+4			;ADDR FIRST RECORDCDBOPEN=CDBAFR+4		;OPEN MODECDBIMPT=CDBOPEN+1		;IMPART MODE$CDBRECA=CDBIMPT+1		;RECORD SAVE AREA;
;	AREASENTRY;CANAM=0				;AREACNAME#CABUF=CANAM+54			;NUMBER	OFCBUFFERS"CANBPGE=CABUF+2			;NUMBERDOFPPAGES$CASZPGE=CANBPGE+4		;PGISIZE=INMBYTES$CALIMIT=CASZPGE+2		;FREESSPACECLIMIT!CAREF=CALIMIT+2			;AREAEREFERENCECATYP=CAREF+2			;AREATYPECALL=CATYP+1			;LENGTH;;	RECORD=ENTRY;RECORD=0CRNAM=0				;RECORD	NAME"CRREF=CRNAM+10			;RECORDCREFERENCECRLNG=CRREF+2			;RECORDPLENGTH)CRAREF=CRLNG+2			;AREAEREFERENCE*CRAFACC=CRAREF+2		;ADDRCFIRSTDACCESSSPATH'CRAFREL=CRAFACC+4		;ADDRIFIRSTCRELATIONCRLL=CRAFREL+4			;LENGTH;REF+2		;INDEX RECORDOREF(CSAFKEY=CSIRREF+2		;ADDR	FIRSTAINDEXCKEYCSLL=CSAFKEY+4			;LENGTH;;	INDEX2KEYDENTRY;INDKEY=0CKDSP=0				;KEYRDISPLACEMENTCKLNG=CKDSP+2			;KEY=LENGTHCKLL=CKLNG+2			;LENGTH;PARLL+2			;RETURN CODE"CPADBA=CPARTN+2			;DB CATALOG ADDRCPADBK=CPADBA+4			;DATABASE KEYCPARECA=CPADBK+4		;ADDR RECORD&CPACTWA=CPARECA+4		;ADDR CURRENCY AREA;;	LAYOUT INTERFACE CB TO GSBI50;CIFNR=0				;FUNCTION!CIACCRF=CIFNR+2			;ACCES PATH REFCICATA=CIACCRF+2		;CATALOG ADDRCIRECA=CICATA+4			;RECORD ADDR CIACCA=CIRECA+4			;ACC PATH ADDR$CIRECP=CIACCA+4			;RECORD ENTRY ADDR%CISAVP=CIRECP+4			;ADDR CURRENCY AREACIRTC=CISAVP+4			;RETURN CODECILL=CIRTC+2			;LENGTH	.NOSHOW	ME	.PAGE.ENDMww-j,N	
.MACRO	INIT	NAME	.PSECT	NAME,QUAD,NOSHR,WRT0	.ENTRY NAME,^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>	INITSW.=0.ENDMww-@w/N	
.MACRO	WROUT	P1,P2	EQ	ARGCNT-1	.SAVE	.PSECT	DATA,LONG,NOWRT,SHR	...TMPA=.
	.ASCII	\P1\...TMPL=.-...TMPA	...TMPP=.	.ADDRESS	...TMPL	.ADDRESS	...TMPA	.RESTORE_PSECT	PUSHAL	...TMPP	CALLS	#1,G^GENR18O
	.IF_FALSE	.SAVE	.PSECT	DATAW,LONG,WRT,NOSHR	...TMPP=.	.BLKL	2	.RESTORE_PSECT	MOVAB	P2,...TMPP+4	MOVZWL	!P1,...TMPP	PUSHAL	...TMPP	CALLS	#1,G^GENR18O	.ENDC.ENDMww-`7\N	
.MACRO	ON_ERROR	DEST,?L
	BLBS	R0,L		BRW	DESTL:.ENDMww->]N	
.MACRO	RDATA	TEXT
	.SAVE_PSECT	.PSECT	DATA,LONG,NOWRT,SHR	...TMPA=.
	.BYTE	13,10	.ASCII	\TEXT\...TMPL=.-...TMPA	...TMPP=.	.ADDRESS	...TMPL	.ADDRESS	...TMPA	.RESTORE_PSECT
	.SAVE_PSECT	.PSECT	DATAW,LONG,WRT,NOSHR	...TMPI=.	.BLKL	2	.RESTORE_PSECT	PUSHAL	...TMPI	PUSHAL	...TMPP	CALLS	#2,G^GENR18I	MOVZWL	...TMPI,R1	MOVL	...TMPI+4,R2.ENDMww-`nN	
.MACRO	EDIT	SRC,LL,DEST	.IF	EQ	INITSW.&<1@2>	EDIT_P.=0INITSW.=INITSW.!<1@2>	.ENDC	CVTLP	SRC,#LL,-8(SP)	.IF	EQ	EDIT_P.&<1@LL>
	.SAVE_PSECT	.PSECT	DATA,LONG,NOWRT,SHR		EDITP	LL	.RESTORE_PSECTEDIT_P.=EDIT_P.!<1@LL>	.ENDC 	EDITPC	#LL,-8(SP),EDITP'LL,DEST.ENDMww-`!tN	
.MACRO	EDITP	LL
	.IF	EQ	LL-1	EDITP'LL:	.BYTE	3,^X91,^X04,^X00	.MEXIT	.ENDC
	.IF	EQ	LL-2	EDITP'LL:	.BYTE	^X91,3,^X91,4,0	.MEXIT	.ENDC
	.IF	EQ	LL-3	EDITP'LL:	.BYTE	^X92,3,^X91,4,0	.MEXIT	.ENDC
	.IF	EQ	LL-4	EDITP'LL:%	.BYTE	^X91,^X44,^X2C,^X92,3,^X91,4,0	.MEXIT	.ENDC
	.IF	EQ	LL-5	EDITP'LL:%	.BYTE	^X92,^X44,^X2C,^X92,3,^X91,4,0.BYTETE-.MEXITX44,^X2C,^X92,3,^X91,4,09^X92.MEXIT1,4,0^X.MEXIT.MEXIT    .MEXIT

.MACRO	SFUNCOPEN=0CLOSE=1	READUNI=2	READNXT=3WRITE=4	REWRITE=5DELETE=6	LOCKUPD=7DEPART=8
LOCKEXCL=9
WRITEDU=10	IMPART=11
CHECKPT=12.ENDMww-`D7N	

.MACRO	SRTCSNOIMPT=1
IMPTDONE=2
KEYWRONG=3DUPLIC=4
NORDDONE=5	ACTOWNR=6
NOTFOUND=7	NOTNEXT=8
NOOWNREC=9.ENDMww- R:N	
.MACRO	PLOAD	LL,ADR,?L1,?L2	.IF	EQ	INITSW.&<1@3>
	.SAVE_PSECT	.PSECT	DATAW,LONG,WRT,NOSHRINITSW.=INITSW.!<1@3>PLOADIN:	.LONG	512,512PLOADRET:	.LONG	0,0!PLOADFAB:	$FAB	FOP=UFO,DNM=<.EXE>	$SECDEF	.RESTORE_PSECT	.ENDC	MOVB	LL,PLOADFAB+FAB$B_FNS	MOVAB	ADR,PLOADFAB+FAB$L_FNA	$OPEN	FAB=PLOADFAB
	ON_ERROR	L1*	$CRMPSC_S INADR=PLOADIN,RETADR=PLOADRET,-+		FLAGS=#SEC$M_CRF!SEC$M_EXPREG!SEC$M_WRT,-		CHAN=PLOADFAB+FAB$L_STV,-		PAGCNT=#0,VBN=#2
	ON_ERROR	L1	MOVL	PLOADRET,R1L1:.ENDMww:+W q_N	

LCGINT      WROUTDEFCVTCLPIF.IFC.IFL.IFL2.IFL3.ENDIF.ELSE.LAB.BLAB.LOCAT.CALLS.INITGRETURNGVPASSLOCKGUNLOCKGABENDABEND0SDCATDEFINITWROUTON_ERRORRDATAEDITEDITPSFUNCSRTCSPLOAD