Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cobold.c09
There are 2 other files named cobold.c09 in the archive. Click here to see a list.
 INS 5/2	;09C1
	;MJC	10-AUG-84	[1541] Make IF-END and ELSE define tags without using
	;;				NXTSEN.
 REP 23/34	;09C2
		SKIPN	CH,NXTSNT
 WIT
	;[1541]	SKIPN	CH,NXTSNT
 REP 27/34	;09C3
		HRRZM	CH,NXTSNT
 WIT
	;[1541]	HRRZM	CH,NXTSNT
 REP 156/68	;09C4
	P192.A:	HRRZ	TA,IFLVL
		ADD	TA,SPFLVL
		HRRZ	TC,ARGL2-1(TA)	;F-TARGET
		HLRM	TC,ARGL2-1(TA)	;CLEAR IT
		JRST	P127.A		;DEFINE IT

 WIT
		HRRZ	TA,IFLVL	;[1541] MOVE P192.A
		ADD	TA,SPFLVL
		HRRZ	TC,ARGL2-1(TA)	;F-TARGET
		HRRM	CH,ARGL2-1(TA)	;[1541]SAVE NEW ELSE TAG
		JRST	P127.A		;DEFINE IT

	;[1541] DUPLICATE PA192. FOR P192.A BECAUSE IT DOESN'T NEED THE EDIT
	P192.A:	HRRZ	TA,IFLVL	;[1541]
		ADD	TA,SPFLVL	;[1541]
		HRRZ	TC,ARGL2-1(TA)	;[1541]F-TARGET
		HLRM	TC,ARGL2-1(TA)	;[1541]ZERO OUT ENTRY
		JRST	P127.A		;[1541]DEFINE IT
 INS 17/135	;09C5
		TRZ	TYPE,AMRGN.	;[1541]SHUT OFF ANY MARGIN FLAG
 REP 66/135	;09C6
		PUSHJ	PP,PA193.	;Put out tag if required
 WIT
		PUSHJ	PP,PA37.	;[1541]CLEAN UP IFLVL STACK
 REP 88/135	;09C7
		PUSHJ	PP,PA193.	;Put out tag if required
 WIT
		PUSHJ	PP,PA37.	;[1541] Put out tag if required
 INS 83/136	;09C8
		TRZ	TB,AMRGN.	;[1541]RESET A MARGIN FLAG
 SUM 141413