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