Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-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