Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - getitm.c07
There is 1 other file named getitm.c07 in the archive. Click here to see a list.
 INS 5/2	;07C1
	;JEH	17-NOV-83	[1505] 68274: If '**** End of copy library text ****'
	;				inserted and 'COPY' follows, 68274 halts.
	;JBB	11-NOV-83	[1504] Put conditional code around FINVOK so a build
	;				without DBMS doesn't fail.
	;DMN	22-Apr-83	[1463] Fix COPY REPLACING when BY and == are not on same line.
 REP 25/46	;07C2
		IDPB	TC,TB		;REPLACE = BY NULL
		IDPB	TC,TB
 WIT
	CPLB35:	ILDB	CH,TB		;[1463] MAKE SURE WE ARE POSITIONED AT FIRST "="
		DPB	TC,TB		;[1463] CLEAR CHAR IN ANY CASE
		CAIE	CH,"="		;[1463] GOT THERE YET?
		JRST	CPLB35		;[1463] NO
		IDPB	TC,TB		;[1463] YES, REPLACE 2ND = BY NULL
 INS 36/59	;07C3
		SETZM	CVTCPF		;[1505] LINE ALREADY IS A COMMENT
 REP 135/66	;07C4
	CVTDPL:	SKIPE	FINVOK		;[1413] PART OF DBMS ? 
		POPJ	PP,		;[1413] YES, EXIT
 WIT
	CVTDPL:	
	IFN DBMS, <			;[1504]
		SKIPE	FINVOK		;[1413] PART OF DBMS ?
		POPJ	PP,		;[1413] YES, EXIT
	>				;[1504]
 REP 62/71	;07C5
		HALT	.
 WIT
		JRST	CVTCT5		;[1505] KEEP LOOKING
 SUM 259688