Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/outmod.c17
There are 10 other files named outmod.c17 in the archive. Click here to see a list.
 REP 25/1	;17C1
	GLOBAL BIND OUTMOV = #11^24 + 0^18 + #4554;	! Version Date:	3-Dec-86
 WIT
	GLOBAL BIND OUTMOV = #11^24 + 0^18 + #4567;	! Version Date:	14-Jul-87
 INS 568/1	;17C2
	***** End V11 Development *****

	4567	DCE	14-Jul-87
		Put out proper blocks for ENTRY points. Fix short ENTRY names.
		Put out one long name per block (type 1002) with a null word
		at end of block.

	***** End Revision History *****

 INS 49/35	;17C3
	%4567%		RDATWD = 0;	! And one null word for end of Rel Block
	%4567%		ZNEWBLOCK(RLONGENTRY);
 REP 64/35	;17C4
	%4530%			! Check if there is enough room in the buffer for
	%4530%			! all of the long entry name
	%4530%			IF (.MAINRLBF[RDATCNT] + .R2<SYMLENGTH> + 1) GTR RBLKSIZ
	%4530%			THEN
	%4530%			BEGIN	
	%4530%				DMPMAINRLBF();	! Output the contents of
	%4530%						!  MAINRLBF and reinitialize it
	%4530%				MAINRLBF[RTYPE] = RLONGENTRY;
	%4530%			END;
	%4530%			! Loop to store entry name in buffer
	%4530%			INCR I FROM 0 TO .R2<SYMLENGTH>-1
	%4530%			DO
	%4530%			BEGIN
	%4530%				RDATWD = @(.R2<SYMPOINTER>)[.I]<0,36>;	! And get the name in SIXBIT
	%4530%				ZNEWBLOCK(RLONGENTRY)
	%4530%			END;
 WIT
	%4567%			DMPMAINRLBF();	! Output the contents of MAINRLBF
	%4567%					! (Subroutine name) and reinitialize it
	%4567%			MAINRLBF[RTYPE] = RLONGENTRY;

	%4530%			! Loop to store entry name in buffer
	%4567%			INCR I FROM 0 TO .ENT[IDSYMLENGTH]-1
	%4530%			DO
	%4530%			BEGIN
	%4567%				RDATWD = @(.ENT[IDSYMPOINTER])[.I]<0,36>;	! And get the name in SIXBIT
	%4530%				ZNEWBLOCK(RLONGENTRY)
	%4530%			END;
	%4567%			RDATWD = 0;	! And one null word for end of Rel Block
	%4567%			ZNEWBLOCK(RLONGENTRY);
 REP 83/35	;17C5
	%4530%			R2 = @(.R2<SYMPOINTER>)<0,36>; !r2 = first word of long name
 WIT
	%4567%			R2 = @(.ENT[IDSYMPOINTER])<0,36>; ! Get symbol name
 SUM 150030