Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 10/1	;05C1
	;COPYRIGHT (C) 1981 BY
 WIT
	;COPYRIGHT (C) 1981,1982 BY
 REP 33/1	;05C2
	CPYEDT==0		;CURRENT EDIT LEVEL
 WIT
	CPYEDT==3		;CURRENT EDIT LEVEL
 REP 3/2	;05C3
	COMMENT	\

	EDIT#	DATE	WHO	WHY
	-----	----	---	---

	0	21-OCT-80 /DAW	Creation.

	\	;END OF COMMENT
 WIT
	;AUTOPATCH HISTORY FILE FOR VERSION 12B
	;
	;.BEGINR
	;.COMPONENT CPYLIB
	;.VERSION 12B
	;.AUTOPATCH 5
	;
	;.EDIT	1	Premature EOF encountered if first module has /S.
	;		RLF,18-AUG-82,SPR:20-18117
	;		A:SRC CPYLIB
	;
	;.EDIT	2	Insert does not allow digits in mod-name
	;		SMI,20-OCT-82,SPR:10-33154
	;		A:SRC CPYLIB
	;
	;.EDIT	3	Fix byte pointers into fine table to use
	;;		all 23 bit of module address
	;		JEH,28-OCT-82,SPR:20-18379
	;		A:SRC CPYLIB
	;
	;.ENDA
	;.ENDV
	;.ENDR
	;

 REP 16/67	;05C4
	NOTPML:	CAIN	CH,"-"		;Dash legal in name
 WIT
	NOTPML: CAIL	CH,"0"		;[2] Digit ?
		CAILE	CH,"9"		;[2]
		CAIN	CH,"-"		;Dash legal in name
 REP 16/94	;05C5
	FIXOF1:	LDB	T3,[POINT 21,OFINTB+1(T1),35] ;Get offset
		ADD	T3,T2		;Get true offset
		DPB	T3,[POINT 21,OFINTB+1(T1),35] ;Store it
 WIT
	FIXOF1:	LDB	T3,[POINT 23,OFINTB+1(T1),35] ;[3] Get offset
		ADD	T3,T2		;Get true offset
		DPB	T3,[POINT 23,OFINTB+1(T1),35] ;[3] Store it
 REP 18/101	;05C6
		HRRZ	T3,TOFCTR	;GET WORD ADDRESS
		DPB	T3,[POINT 21,T2,35] ;STICK IN ENTRY
 WIT
		MOVE	T3,TOFCTR	;[3] GET WORD ADDRESS
		TLNE	T3,777740	;[3] MAKE SURE WE CAN HOLD ADDRESS
		 JRST	WRTDE2		;[3] NO - CAN'T HOLD IT
		DPB	T3,[POINT 23,T2,35] ;[3] STICK IN ENTRY
 REP 28/101	;05C7
	;MAKE NEW ENTRY IN OUTPUT "ROUGH" TABLE
	WRTDER:	MOVEI	T4,200(T3)	;GET ADDRESS IN DIRECTORY OF THIS ENTRY
		DPB	T4,[POINT 21,T2,35] ;STICK IN ENTRY
 WIT
	WRTDE2:	TYPE	[ASCIZ/?CPYATL The module address is too large to store
			/]		;[3] 
		JRST	ERESET		;[3] ERROR-RESET

	;MAKE NEW ENTRY IN OUTPUT "ROUGH" TABLE
	WRTDER:	MOVEI	T4,200(T3)	;GET ADDRESS IN DIRECTORY OF THIS ENTRY
		DPB	T4,[POINT 23,T2,35] ;[3] STICK IN ENTRY
		MOVEI	T5,(T4)		;[1]SAVE T4
 REP 34/101	;05C8
		DMOVEM	T1,RUFTBO-2(T4)	;STORE ENTRY HERE
 WIT
		MOVEM	T1,RUFTBO-2(T4)	;[1]STORE ENTRY HERE
		MOVEM	T5,RUFTBO-1(T4)	;[1]AND HERE
 REP 11/112	;05C9
		LDB	P1,[POINT 21,1(T1),35] ;GET FILE ADDRESS
 WIT
		LDB	P1,[POINT 23,1(T1),35] ;[3] GET FILE ADDRESS
 SUM 257847