Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/cobold.c11
There are 4 other files named cobold.c11 in the archive. Click here to see a list.
 INS 5/2	;11C1
	;MJC	 4-APR-85	[1573] Fix edit 1556. Make a PCA7BA that is PCA7B
	;				with out the FPERWD
	;MJC	26-MAR-85	[1566] Zero INPTAG when done with it in pa199.
	;JEH	22-MAR-85	[1564] Fix 'set condition-name' code.
	;KWS	21-MAR-85	[1563] Make sure that the report writer check
	;;				the NO REWIND bit also.
	;JEH	20-MAR-85	[1562] In the ref. mod. routines, if current
	;;				operator is zero, check 'implop' field 
	;;				that 'IF' uses for storing op codes.
	;JEH	20-MAR-85	[1561] If reference modification is being done
	;;				within the scope of an IF statement then 
	;;				save the open parenthesis count and
	;;				restore it when the modifications are done.
 REP 22/5	;11C2
		SETZM	TBLOCK
		SETZM	SCPTRM##	;[1553] END-XXX SCOPE TERMINATOR
 WIT
		SETZM	SCPTRM##	;[1553] END-XXX SCOPE TERMINATOR
		SETZM	INPTAG##	;[1566] ZERO THE IN-LINE PERORM TAG
		SETZM	TBLOCK
 REP 22/70	;11C3
		JUMPE	CH,.-2
 WIT
		JUMPE	CH,P198.F	;[1566]WAS .-2
 INS 6/71	;11C4
		SETZM	INPTAG			;[1566]Zero the in-line perf. tag
 REP 74/128	;11C5
		TRZ	TE,OPN%O!OPN%EX	;ONLY ALLOW OUTPUT OR EXTEND
 WIT
		TRZ	TE,OPN%O!OPN%EX!OPN%NR	;[1563] ONLY ALLOW OUTPUT, EXTEND, OR 
						;[1563] NO REWIND
 INS 388/137	;11C6
		MOVE	TB,RMOPPAR##	;[1561] Get stored open paren count
		MOVEM	TB,ELEVEL	;[1561] Restore for IF expression
 INS 413/137	;11C7
		MOVE	TB,RMOPPAR##	;[1561] Get stored open paren count
		MOVEM	TB,ELEVEL	;[1561]	Restore for IF expression
 REP 55/139	;11C8
	PCA7B.:	SETZM	SWHEN##		;CLEAR FLAG
 WIT
	PCA7B.:	SWON	FPERWD		;[1573] REGET THE PERIOD
		SKPNAM			;[1573] ON TO PCA7BA

		INTER.	PCA7BA		;[1573]
	PCA7BA:	SETZM	SWHEN##		;[1573] CLEAR FLAG
 DEL 62/139	;11C9
		SWON	FPERWD		;[1556] REGET THE PERIOD
 REP 67/145	;11C10
		DMOVEM	TC,RMOPR	;
		CAIN	TB,OPIF		;Is this an 'IF' clause?
		PUSHJ	PP,PA111.	; Then put '072' in genfil first
 WIT
	;[1562] If oprtr is zero, the operator and its operands have already been
	;[1562] written to genfil; have now scanned another operand without 
	;[1562] a new operator => have found an expression continued by an 'AND'
	;[1562] or an 'OR'. A prior routine will have put the current op code in
	;[1562] implop.
		SKIPN	TC		;[1562] If no current verb
		DMOVE	TC,IMPLOP	;[1562] get it from implop
		DMOVEM	TC,RMOPR	;
	;[1561]	CAIN	TB,OPIF		;Is this an 'IF' clause?
		CAIE	TB,OPIF		;[1561]	Is this an 'IF' clause
		JRST	PA21.		;[1561] No, go put out data field
		PUSHJ	PP,PA111.	; Then put '072' in genfil first
		MOVE	TA,ELEVEL	;[1561] Elevel has open paren count
		MOVEM	TA,RMOPPAR##	;[1561] Save until ref. modifiers are processed
 INS 77/145	;11C11
		INTER.	PCA98.
	PCA98.:	PUSHJ	PP,PA800.	;[1564] BUILD OP CODE FOR SET CONDITION-NAME
		JRST	PA22.		;[1564] PUT IT IN GENFIL

 SUM 33996