Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobolc.c07
There is 1 other file named cobolc.c07 in the archive. Click here to see a list.
 INS 23/1	;07C1
	;JBB	08-SEP-83	[1475] Fixes edit 1452. Report Writer RESET.
 REP 37/107	;07C2
		HRRZ	TE,TB		;[1452]
		HRRZ	TD,RPWLOC	;[1452]
		SUB	TE,TD		;[1452] MAKE ADDRESS OF CONTROL ENTRY RELATIVE
		CAML	TE,THSCTL	;[1452] IS RESET CONTROL HIGHER THAN CURRENT ITEMS CONTROL?
 WIT
		HRRZ	TC,TB		;[1475] [1452]
		HRRZ	TD,RPWLOC	;[1452]
		SUB	TC,TD		;[1475] [1452] MAKE ADDRESS OF CONTROL ENTRY RELATIVE
		CAML	TC,THSCTL	;[1475] [1452] IS RESET CONTROL HIGHER THAN CURRENT ITEMS CONTROL?
 REP 8/112	;07C3
		HRRZ	TE,TB		;[1452]
		HRRZ	TD,RPWLOC	;[1452]
		SUB	TE,TD		;[1452] MAKE ADDRESS OF CONTROL ENTRY RELATIVE
		HRRZM	TE,THSCTL	;[1452]SAVE ADDR OF CORRESP CONTROL ENTRY
 WIT
		HRRZ	TC,TB		;[1475] [1452]
		HRRZ	TD,RPWLOC	;[1452]
		SUB	TC,TD		;[1475] [1452] MAKE ADDRESS OF CONTROL ENTRY RELATIVE
		HRRZM	TC,THSCTL	;[1475] [1452]SAVE ADDR OF CORRESP CONTROL ENTRY
 REP 30/112	;07C4
		HRRZ	TE,TB		;[1452]
		HRRZ	TD,RPWLOC	;[1452]
		SUB	TE,TD		;[1452] MAKE ADDRESS OF CONTROL ENTRY RELATIVE
		CAMGE	TE,THSCTL	;[1452] IS RESET CONTROL HIGHER THAN CURRENT CONTROL
 WIT
		HRRZ	TC,TB		;[1475] [1452]
		HRRZ	TD,RPWLOC	;[1452]
		SUB	TC,TD		;[1475] [1452] MAKE ADDRESS OF CONTROL ENTRY RELATIVE
		CAMGE	TC,THSCTL	;[1475] [1452] IS RESET CONTROL HIGHER THAN CURRENT CONTROL
 SUM 77512