Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cpylib.c07
There is 1 other file named cpylib.c07 in the archive. Click here to see a list.
REP 33/1 ;07C1
CPYEDT==3 ;CURRENT EDIT LEVEL
WIT
CPYEDT==7 ;CURRENT EDIT LEVEL
INS 24/2 ;07C2
;.AUTOPATCH 6
;.NOEDIT
;.ENDA
;
;.AUTOPATCH 7
;
;.EDIT 4 CPYLIB doesn't read in last entry from fine table if
;; it is a multiple of 64.
; RLF,27-MAY-83,SPR:20-19243
; A:SRC CPYLIB
;
;.EDIT 5 Shut off /S bit in rough table entries and
;; store 7th and 8th char of module name
; JEH,14-JUN-83,SPR:20-19259
; A:SRC CPYLIB
;
;.EDIT 6 Use TX instead of TL in edit 5 to set F%%SEQ.
; JEH,29-SEP-83,SPR:20-19259
; A:SRC CPYLIB
;
;.EDIT 7 Use default path in all FILOP blocks unless other
;; path stated, backup files are not being handled
;; correctly
; JEH,09-DEC-83,SPR:10-34260
; A:SRC CPYLIB, IOTMP
;
;.ENDA
INS 44/3 ;07C3
;.EDIT 7 Use default path in all FILOP blocks unless other
;; path stated, backup files are not being handled
;; correctly
; JEH,09-DEC-83,SPR:10-34260
; A:SRC CPYLIB, IOTMP
;
REP 37/70 ;07C4
POPJ P, ;NO, DONE
WIT
JRST SETFL1 ;[7] No, then fill in default
INS 44/70 ;07C5
SETFL1: HRLI T1,PTHBLK+.PTPPN ;[7] Get default path
HRRI T1,.FPIPB+.PTPPN(P2) ;[7] and put in xxxFLP
BLT T1,.FPIPB+.PTSFD+MXSFD-1(P2) ;[7]
POPJ P, ;[7]
REP 79/87 ;07C6
SOJG P3,RDDIR4 ;LOOP AS LONG AS THERE IS ROOM
WIT
SOJGE P3,RDDIR4 ;[4] LOOP AS LONG AS THERE IS ROOM
INS 32/93 ;07C7
MOVEI T1,INPFLP+.FPIPB ;[7] Put address of Path block
MOVEM T1,INPFLP+.FPLKP+3 ;[7] into Lookup block
MOVEM T1,INPFLP+.FPRNM+3 ;[7] and Rename block
REP 43/93 ;07C8
MOVE T1,[INPFLP+.FPRPB,,OUTFLP+.FPIPB]
BLT T1,OUTFLP+.FPIPB+.PTMAX-1
WIT
HRLZI T1,INPFLP+.FPIPB ;[7]
HRRI T1,OUTFLP+.FPIPB ;[7]
BLT T1,OUTFLP+.FPIPB+.PTMAX-1 ;[7]
REP 37/101 ;07C9
MOVEI T5,(T4) ;[1]SAVE T4
WIT
MOVE T5,T2 ;[5] GET SECOND WORD OF FINE TABLE ENTRY
REP 42/101 ;07C10
MOVEM T5,RUFTBO-1(T4) ;[1]AND HERE
WIT
TXZ T5,F%%SEQ ;[6][5] TURN OFF /SEQUENCE BIT
MOVEM T5,RUFTBO-1(T4) ;[5] STORE SECOND WORD OF ROUGH TABLE ENTRY
SUM 224707