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. -KSpull/698/head
parent
e4e9a83e27
commit
d6168d9600
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue