Trailing-Edge
-
PDP-10 Archives
-
bb-l014q-bm_tops20_v6_1_atpch17
-
autopatch/cref.c17
There are no other files named cref.c17 in the archive.
REP 1/1 ;17C1
TITLE CREF %53C(77) CROSS REFERENCE PROGRAM
SUBTTL BOWERING/RPG/PMH/NGP/TNH/TWE/HPW/ASM/RDH/ILG/JNG/BPK/MS /JEH 2-OCT-84
;COPYRIGHT (C) 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1984, 1985 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ALL RIGHTS RESERVED.
WIT
TITLE CREF %53C(101) CROSS REFERENCE PROGRAM
SUBTTL BOWERING/RPG/PMH/NGP/TNH/TWE/HPW/ASM/RDH/ILG/JNG/BPK/MS /JEH 22-AUG-85
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1974,1975,1976,1977,1978,1979,1980,1984,1985,1986. ALL RIGHTS RESERVED.
REP 31/1 ;17C2
VEDIT==77 ;EDIT NUMBER
WIT
VEDIT==101 ;EDIT NUMBER
REP 35/1 ;17C3
BYTE (3) VWHO (9) VCREF (6) VMINOR (18) VEDIT
WIT
<CRFVER==<BYTE (3) VWHO (9) VCREF (6) VMINOR (18) VEDIT>>
IFDEF .MCRV.,<
.VERSION CRFVER
>
INS 118/1 ;17C4
;100 None COPY .RBVER TO OUTPUT FILE
;
;101 None. LEO 22-AUG-85
; Do Copyrights.
;
REP 20/2 ;17C5
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1974,1985 ALL RIGHTS RESERVED.
WIT
COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1974,1986. ALL RIGHTS RESERVED.
\;END COPYRIGHT MACRO
REP 20/12 ;17C6
ENTER LST,LSTDIR ;INPUT FILE FOUND, ENTER OUTPUT FILE
JRST ERRENT ;ENTER FAILED FOR LISTING DEVICE
WIT
PUSH P,ACFILE ;[100]
MOVE ACFILE,LSTDIR
MOVEM ACFILE,EXTBLK+.RBNAM
MOVE ACFILE,LSTDIR+1
MOVEM ACFILE,EXTBLK+.RBEXT
MOVE ACFILE,LSTDIR+2
MOVEM ACFILE,EXTBLK+.RBPRV
MOVE ACFILE,LSTDIR+3
MOVEM ACFILE,EXTBLK+.RBPPN
MOVEI ACFILE,.RBVER
MOVEM ACFILE,EXTBLK+.RBCNT
POP P,ACFILE
ENTER LST,EXTBLK ;INPUT FILE FOUND, ENTER OUTPUT FILE
JRST [PUSH P,EXTBLK+.RBEXT
POP P,LSTDIR+2
JRST ERRENT] ;ENTER FAILED FOR LISTING DEVICE
REP 97/46 ;17C7
LOOKUP CHAR,INDIR
JRST (ACDEV) ;NOT FOUND
WIT
PUSH P,ACEXT ;[100] STUFF AN AC
MOVE ACEXT,INDIR
MOVEM ACEXT,EXTBLK+.RBNAM
MOVE ACEXT,INDIR+1
MOVEM ACEXT,EXTBLK+.RBEXT
MOVE ACEXT,INDIR+3
MOVEM ACEXT,EXTBLK+.RBPPN
MOVEI ACEXT,.RBVER
MOVEM ACEXT,EXTBLK+.RBCNT
POP P,ACEXT ;[100]
LOOKUP CHAR,EXTBLK
JRST [PUSH P,EXTBLK+.RBEXT
POP P,INDIR+1
JRST (ACDEV)] ;[100]
INS 139/57 ;17C8
EXTBLK: BLOCK .RBVER+1 ;[100] EXTENDED BLOCK
SUM 126312