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:
@ -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
|
||||
|
||||
|
Reference in New Issue
Block a user