Update SERVICER.agc

Updated Parts of SERVICER to reflect the assistance provided with reference to large comment block on page 869 and +n in margins. Will continue to move through this (hopefully at about a page per day, maybe faster.) But have exams atm so will be a little slow. -KS
This commit is contained in:
Kourosh Simpkins
2020-10-06 10:52:25 +01:00
parent e4e9a83e27
commit d6168d9600

View File

@ -528,6 +528,8 @@ EIGHTEEN DEC 18
# EXIT IS VIA Q.
#
#
#
#
# INPUT
#
# INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
@ -674,7 +676,7 @@ TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM
LRHTASK CS FLGWRD11
MASK LRBYBIT
EXTEND
BZF GRP2OFF # LR BYPASS SET -- BYPASS ALL LR READING.
BZF GRP2OFF # LR BYPASS SET - BYPASS ALL LR READING.
CA READLBIT
MASK FLGWRD11 # IS READLR FLAG SET?
@ -686,8 +688,8 @@ LRHTASK CS FLGWRD11
EXTEND
BZF GRP2OFF # YES. BYPASS LR READ.
CA PRIO32 # LR READ OK. SET JOB TO DO IT
TC NOVAC # ABOUT 50 MS. PRIOR TO PIPA READ.
CA PRIO32 # LR READ OK SET JOB TO DO IT
TC NOVAC # ABOUT 50 MS PRIOR TO PIPA READ
EBANK= HMEAS
2CADR LRHJOB