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
pull/698/head
Kourosh Simpkins 2020-10-06 10:52:25 +01:00
parent e4e9a83e27
commit d6168d9600
1 changed files with 14 additions and 12 deletions

View File

@ -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