Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/p.c09
There are 2 other files named p.c09 in the archive. Click here to see a list.
 REP 1/1	;09C1
	; UPD ID= 1611 on 5/17/84 at 9:51 AM by HOFFMAN                         
 WIT
	; UPD ID= 1634 on 6/26/84 at 4:37 PM by MCARLETON                       
 REP 3/2	;09C2

	;JEH	16-May-84	[1535] Define error bit for ref. mod. op code
	;V13*****************
 WIT
	;
	;MJC    18-JUN-84       [1540] Define OUTCHR Macro for TOPS-20
	;JEH	16-May-84	[1535] Define error bit for ref. mod. op code
 REP 54/15	;09C3
	RFMERR==1B11		;[1535] Reference Mod. - phase D flagger err w/ mod's
 WIT
	RFMERR==1B11		;[1535] Reference Mod. - phase D flagged err w/ mod's
 INS 34/17	;09C4
	DEFINE	OUTCHR(CHAR)<			;[1540] TO REPLACE UUO
		PUSH	PP,T1			;[1540] SAVE T1
		HRRZ	T1,CHAR			;[1540] WHERE THE CHARACTER IS
		PBOUT%				;[1540] TO PRIMARY OUT
		POP	PP,T1			;[1540] RESTORE T1
	>

 SUM 37045