Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/srtjss.c13
There are 2 other files named srtjss.c13 in the archive. Click here to see a list.
 INS 1/1	;13C1
	;IGUANA:<MERRILL.20812>SRTJSS.MAC.1 27-Jan-86 13:52:27, Edit by MERRILL
	;EDIT 536 Always allow duplicate keys in RMS output file
	;IGUANA:<MERRILL.20812>SRTJSS.MAC.6 27-Jan-86 13:30:41, Edit by MERRILL
	;EDIT 534 Add 2 more org types to literal block in RMSOUT
	;IGUANA:<5-SORT.SRC>SRTJSS.MAC.2 17-Jan-86 14:08:42, Edit by MERRILL
	;EDIT 533 Fix RMSPUT error message routine, don't pop P1
 INS 16/61	;13C2
	;**;[536] At RMSOUT + 11L
		MOVX	T1,XB$DUP	;[536] DUPLICATE KEYS ALWAYS ALLOWED NOW
		$STORE	(T1,FLG,(T2))	;[536] SET IT IN XAB
 REP 27/61	;13C3
		MOVE	T1,[EXP FB$SEQ,FB$IDX,FB$REL,FB$SEQ,FB$SEQ,FB$SEQ](T2)
 WIT
	;**;[534] RMSOUT + 21L
		MOVE	T1,[EXP FB$SEQ,FB$IDX,FB$REL,FB$SEQ
			    EXP FB$SEQ,FB$SEQ,FB$IDX,FB$SEQ](T2)	;[534]
 REP 57/63	;13C4
	ERRRPE:	POP	P,P1
 WIT
	ERRRPE:
 SUM 83079