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:
		@@ -82,7 +82,7 @@ READACCS	CS	OCT37771	# THIS PIECE OF CODING ATTEMPTS TO
 | 
			
		||||
		CS	ONE		# OCCUR APPROXIMATELY 70 MILLISECONDS
 | 
			
		||||
		TCF	+2		# FOLLOWING THE READACCS RUPT.  THE 70 MS
 | 
			
		||||
		CA	ONE		# OFFSET WAS CHOSEN SO THAT THE PAXIS
 | 
			
		||||
 +2		ADS	TIME5		# RUPT WOULD NOT OCCUR SIMULTANEOUSLY
 | 
			
		||||
 	+2	ADS	TIME5		# RUPT WOULD NOT OCCUR SIMULTANEOUSLY
 | 
			
		||||
 					# WITH ANY OF THE 8 SUBSEQUENT R10,R11
 | 
			
		||||
					# INTERRUPTS -- THUS MINIMIZING THE POSS-
 | 
			
		||||
					# IBILITY OF LOSING DOWNRUPTS.
 | 
			
		||||
@@ -411,7 +411,7 @@ SERVIDLE	EXTEND			# DISCONNECT SERVICER FROM ALL GUIDANCE
 | 
			
		||||
		DCA	NEG0
 | 
			
		||||
		DXCH	-PHASE2
 | 
			
		||||
 | 
			
		||||
   +4		EXTEND
 | 
			
		||||
   	+4	EXTEND
 | 
			
		||||
 		DCA	NEG0
 | 
			
		||||
		DXCH	-PHASE3
 | 
			
		||||
 | 
			
		||||
@@ -442,7 +442,7 @@ SVEXTADR	2CADR	SERVEXIT
 | 
			
		||||
SERVEXIT	TC	PHASCHNG
 | 
			
		||||
		OCT	00035
 | 
			
		||||
 | 
			
		||||
   +2		TCF	ENDOFJOB
 | 
			
		||||
	+2	TCF	ENDOFJOB
 | 
			
		||||
 | 
			
		||||
		BANK	23
 | 
			
		||||
		SETLOC	NORMLIZ
 | 
			
		||||
@@ -491,8 +491,8 @@ NORMLIZ2	CA	EIGHTEEN
 | 
			
		||||
		TC	ENDOFJOB
 | 
			
		||||
 | 
			
		||||
COPYCYC		CA	OCT24		# DEC 20
 | 
			
		||||
+1		INHINT
 | 
			
		||||
+2		MASK	NEG1		# REDUCE BY 1 IF ODD
 | 
			
		||||
	+1	INHINT
 | 
			
		||||
	+2	MASK	NEG1		# REDUCE BY 1 IF ODD
 | 
			
		||||
 		TS	ITEMP1
 | 
			
		||||
		EXTEND
 | 
			
		||||
		INDEX	ITEMP1
 | 
			
		||||
@@ -528,6 +528,8 @@ EIGHTEEN	DEC	18
 | 
			
		||||
#    EXIT IS VIA Q.
 | 
			
		||||
#
 | 
			
		||||
#
 | 
			
		||||
#
 | 
			
		||||
#
 | 
			
		||||
# INPUT
 | 
			
		||||
#
 | 
			
		||||
#    INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
 | 
			
		||||
@@ -553,7 +555,7 @@ PIPASR		EXTEND
 | 
			
		||||
# Page 870
 | 
			
		||||
		DCA	TIME2
 | 
			
		||||
		DXCH	PIPTIME1	# CURRENT TIME POSITIVE VALUE
 | 
			
		||||
   +3		CS	ZERO		# INITIALIZE THESE AT NEG. ZERO.
 | 
			
		||||
	+3	CS	ZERO		# INITIALIZE THESE AT NEG. ZERO.
 | 
			
		||||
 		TS	TEMX
 | 
			
		||||
		TS	TEMY
 | 
			
		||||
		TS	TEMZ
 | 
			
		||||
@@ -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
 | 
			
		||||
 | 
			
		||||
@@ -1354,7 +1356,7 @@ USEVF		INDEX	VSELECT*
 | 
			
		||||
		CA	LRWVFZ		# USE APPROPRIATE CONSTANT WEIGHT
 | 
			
		||||
		TCF	WSTOR
 | 
			
		||||
 | 
			
		||||
 -1		CA	ZERO
 | 
			
		||||
 	-1	CA	ZERO
 | 
			
		||||
WSTOR		TS	MPAC
 | 
			
		||||
		CS	BIT7		# (=64D)
 | 
			
		||||
		AD	MODREG
 | 
			
		||||
@@ -1365,7 +1367,7 @@ WSTOR		TS	MPAC
 | 
			
		||||
		CA	LRWVFF
 | 
			
		||||
		TS	MPAC
 | 
			
		||||
 | 
			
		||||
 +3		CA	EBANK7
 | 
			
		||||
 	+3	CA	EBANK7
 | 
			
		||||
 		TS	EBANK		# CHANGE EBANKS
 | 
			
		||||
 | 
			
		||||
		EBANK=	ABVEL
 | 
			
		||||
@@ -1651,7 +1653,7 @@ POSALARM	CA	OCT523
 | 
			
		||||
		TCF	ENDOFJOB	# V 32 E    TERMINATE R12
 | 
			
		||||
		TC	ENDOFJOB
 | 
			
		||||
 | 
			
		||||
 +3		CA	BIT7		# SEE IF IN POS2 YET
 | 
			
		||||
 	+3	CA	BIT7		# SEE IF IN POS2 YET
 | 
			
		||||
		EXTEND
 | 
			
		||||
		RAND	CHAN33
 | 
			
		||||
		EXTEND
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user