Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobolc.c06
There is 1 other file named cobolc.c06 in the archive. Click here to see a list.
 INS 23/1	;06C1
	;SMI	23-FEB-83	[1452] Error 370 when RPWTAB gets expanded.
 REP 37/107	;06C2
		CAML	TB,THSCTL	;IS RESET CONTROL HIGHER THAN CURRENT ITEMS CONTROL?
 WIT
		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?
 REP 8/112	;06C3
		HRRZM	TB,THSCTL	;SAVE ADDR OF CORRESP CONTROL ENTRY
 WIT
		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
 REP 27/112	;06C4
		CAMGE	TB,THSCTL	;IS RESET CONTROL HIGHER THAN CURRENT CONTROL
 WIT
		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
 SUM 221107