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