Trailing-Edge
-
PDP-10 Archives
-
tops10_integ_tools_v4_10jan-86
-
70,6067/tvaxv1/tv.mml
There are no other files named tv.mml in the archive.
%lX-11 Librarian V03-00 bpL
R:N
! #
" " [ s f ABEND ABEND0 (BLAB. P CALLS. CVTCLP D EDIT ~EDITP R ELSE. PENDIF. :IF.
z IFC. ( IFL. IFL2. l IFL3. hINIT (INITG l LAB. hLOCAT. ` LOCKG N ON_ERROR pPLOAD $ RDATA 4RETURNG < SDCATDEF SFUNC Z SRTCS 6 UNLOCKG jVPASS | WROUT WROUTDEF
- @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 .ENDM w w - 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 .ENDM w w - ` M
.MACRO IF. CND .IF EQ INITSW.&<1@1> IFDMAX.=0 Q IFLEV.
IF_STAT.=0 IF_USE.=0 IF_CNT.=0 IF_STRT.=IF_MAX. .ENDC IF_CNT.=IF_CNT.+1 IF_MAX.=IF_MAX.+1 IF_LEV.=IF_LEV.+1 IFC. <CND> IF_STAT.=IF_STAT.!<1@IF_CNT.> .ENDM w w - ` %M
.MACRO IFC. C .IF EQ %LOCATE(C,<*EQ>) IFL. BEQL,\IFFMAX. .MEXIT .ENDC( IFAMBVS,.IFIMAX.EQ.MEXIT%LOCATE(C,<*GT>) <*LT>) IFL.L.T BGTRU,\IFLMAX. F MAX. .MEXITIT.MEXITION IN IF; .ENDM w w - @M
.MACRO IFL. BI,LL,?L1 BI L1 BRW IF.'LL IF_RTC.=1 L1: .ENDM w w - @BM
.MACRO IFL2. LL,?L1 BLBC R0,L1 BRW IF.'LL IF_RTC.=1 L1: .ENDM w w - 'EM
.MACRO IFL3. LL,?L1 BLBS R0,L1 BRW IF.'LL IF_RTC.=1 L1: .ENDM w w - .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. .ENDC IF_LEV.=IF_LEV.-1 IF_USE.=IF_USE.!<1@IF_I.> .ENDM w w - 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.> .ENDM w w - @ONM
.MACRO LAB. TT,LL TT'LL: .ENDM w w - `UOM
.MACRO BLAB. TT,LL
BRW TT'LL .ENDM w w - \QM
.MACRO LOCAT. .REPEAT IFCNT. .IF EQ IFUSE.&<1@IFI.> 0 .IIF EQ IFI., .ERROR 2;UNMATCHED ELSE OR ENDIF IFL AB.=IFSTRT.+IFI. .MEXIT .ENDC IFI.=IFI.-1 .ENDR .ENDM w w - @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 .ENDM w w - }XM
.MACRO INITG NAM INITSW.=0 .PSECT NAM,SHR,QUAD,NOWRT/ .ENTRY NAM,^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> .ENDM w w - @ZM
.MACRO RETURNG RET .ENDM w w - `
\M
.M ACRO 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 R0 L1: .ENDM w w - @ `M
.MACRO LOCKG LLK,?L1,?L2,?L3 BBCS #0,LLK,L3 ,GTAP(R9) ADDW2 #1,1+LLK L1: 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: .ENDM w w - @SlM
.MACRO ABEND TXTLL,TXTARGCNT-1 WROUT <TXTLL>
.IF_FALSE WROUT TXTLL,TXT .ENDC $EXIT_S .ENDM w w - aoM
.MACRO ABEND0 TXTLL,TXT PUSHL R0 UT <TXTLL>
.IF_FALSE WROUT T XTLL,TXT .ENDC POPL R0 $EXIT_S R0 .ENDM w w - `ttM
.MACRO SDCATDEF .SHOW ME ; CATALOG LAYOUT ; CDBNAM=0 ;DATABASE NAME CDBREF=CDBNAM+10 ;REL DB NR" CDBAFA=CDBREF+2 ;ADDR FIRST AREA$ CDBAFR=CDBAFA+4 ;ADDR FIRST RECORD CDBOPEN=CDBAFR+4 ;OPEN MODE CDBIMPT=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 ;PGISIZ E=INMBYTES$ CALIMIT=CASZPGE+2 ;FREESSPACECLIMIT! CAREF=CALIMIT+2 ;AREAEREFERENCE CATYP=CAREF+2 ;AREA TYPE CALL=CATYP+1 ;LENGTH ; ; RECORD=ENTRY ; RECORD=0 CRNAM=0 ;RECORD NAME " CRREF=CRNAM+10 ;RECORDCREFERENCE CRLNG=CRREF+2 ;RECORDPLENGTH) CRAREF=CRLNG+2 ;AREAEREFERENCE* CRAFACC=CRAREF+2 ;ADDRCFIRSTDACCESSSPATH' CRAFREL=CRAFACC+4 ;ADDRIFIRSTCRELATION CRLL=CRAFREL+4 ;LENGTH ; REF+2 ;INDEX RECORDOREF( CSAFKEY=CSIRRE F+2 ;ADDR FIRSTAINDEXCKEY CSLL=CSAFKEY+4 ;LENGTH ; ; INDEX2KEYDENTRY ; INDKEY=0 CKDSP=0 ;KEYRDISPLACEMENT CKLNG=CKDSP+2 ;KEY=LENGTH CKLL=CKLNG+2 ;LENGTH ; PARLL+2 ;RETURN CODE" CPADBA=CPARTN+2 ;DB CATALO G ADDR CPADBK=CPADBA+4 ;DATABASE KEY CPARECA=CPADBK+4 ;ADDR RECORD& CPACTWA=CPARECA+4 ;ADDR CURRENCY AREA ; ; LAYOUT INTERFACE CB TO GSBI50 ; CIFNR=0 ;FUNCTION! CIACCRF=CIFNR+2 ;ACCES PATH REF CICATA=CIACCRF+2 ;CATALOG ADDR CIRECA=CICATA+4 ;RECORD ADDR CIACCA=CIRECA+4 ;ACC PATH ADDR$ CIRECP=CIACCA+4 ;RECORD ENTRY ADDR% CISAVP=CIRECP+4 ;ADDR CURRENCY AREA CIRTC=CISAVP+4 ;RETURN CODE CILL=CIRTC+2 ;LENGTH .NOSHOW ME .PAGE .ENDM w w - j,N
.MAC RO INIT NAME .PSECT NAME,QUAD,NOSHR,WRT 0 .ENTRY NAME,^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> INITSW.=0 .ENDM w w - @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 .ENDM w w - `7\N
.MACRO ON_ERROR DEST,?L
BLBS R0,L BRW DEST L: .ENDM w w - >]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 .ENDM w w - `nN
.MACRO EDIT SRC,LL,DEST .IF EQ INITSW.&<1@2> EDIT_P.=0 INITSW.=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_PSECT EDIT_P.=EDIT_P.!<1@LL> .ENDC EDITPC #LL,-8(SP),EDITP'LL,DEST .ENDM w w - `!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,0 9 ^X92.MEXIT1,4,0 ^X.MEXIT.MEXIT .MEXIT
.MACRO SFUNC OPEN=0 CLOSE=1 READUNI=2 READNXT=3 WRITE=4 REWRITE=5 DELETE=6 LOCKUPD=7 DEPART=8
LOCKEXCL=9
WRITEDU=10 IMPART=11
CHECKPT=12 .ENDM w w - `D7N
.MACRO SRTCS NOIMPT=1
IMPTDONE=2
KEYWRONG=3 DUPLIC=4
NORDDONE=5 ACTOWNR=6
NOTFOUND=7 NOTNEXT=8
NOOWNREC=9 .ENDM w w - R:N
.MACRO PLOAD LL,ADR,?L1,?L2 .IF EQ INITSW.&<1@3>
.SAVE_PSECT .PSECT DATAW,LONG,WRT,NOSHR INITSW.=INITSW.!<1@3> PL OADIN: .LONG 512,512 PLOADRET: .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,R1 L1: .ENDM w w :+W q_N
LCGINT WROUTDEFCVTCLPIF.IFC.IFL.IFL2.IFL3.ENDIF.ELSE.LAB.BLAB.LOCAT.CALLS.INITGRETURNGVPASSLOCKGUNLOCKGABENDABEND0SDCATDEFINITWROUTON_ERRORRDATAEDITEDITPSFUNCSRTCSPLOAD