ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update SERVICER.agc

Browse Source 
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:
Kourosh Simpkins
2020-10-06 10:52:25 +01:00
parent e4e9a83e27
commit d6168d9600
1 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Luminary099/SERVICER.agc
View File

@ -82,7 +82,7 @@ READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS 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 # WITH ANY OF THE 8 SUBSEQUENT R10,R11
# INTERRUPTS -- THUS MINIMIZING THE POSS- # INTERRUPTS -- THUS MINIMIZING THE POSS-
# IBILITY OF LOSING DOWNRUPTS. # IBILITY OF LOSING DOWNRUPTS.
@ -411,7 +411,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
DCA NEG0 DCA NEG0
DXCH -PHASE2 DXCH -PHASE2
+4 EXTEND +4 EXTEND
DCA NEG0 DCA NEG0
DXCH -PHASE3 DXCH -PHASE3
@ -442,7 +442,7 @@ SVEXTADR 2CADR SERVEXIT
SERVEXIT TC PHASCHNG SERVEXIT TC PHASCHNG
OCT 00035 OCT 00035
+2 TCF ENDOFJOB +2 TCF ENDOFJOB
BANK 23 BANK 23
SETLOC NORMLIZ SETLOC NORMLIZ
@ -491,8 +491,8 @@ NORMLIZ2 CA EIGHTEEN
TC ENDOFJOB TC ENDOFJOB
COPYCYC CA OCT24 # DEC 20 COPYCYC CA OCT24 # DEC 20
+1 INHINT +1 INHINT
+2 MASK NEG1 # REDUCE BY 1 IF ODD +2 MASK NEG1 # REDUCE BY 1 IF ODD
TS ITEMP1 TS ITEMP1
EXTEND EXTEND
INDEX ITEMP1 INDEX ITEMP1
@ -528,6 +528,8 @@ EIGHTEEN DEC 18
# EXIT IS VIA Q. # EXIT IS VIA Q.
# #
# #
#
#
# INPUT # INPUT
# #
# INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2. # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
@ -553,7 +555,7 @@ PIPASR EXTEND
# Page 870 # Page 870
DCA TIME2 DCA TIME2
DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE 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 TEMX
TS TEMY TS TEMY
TS TEMZ TS TEMZ
@ -674,7 +676,7 @@ TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM
LRHTASK CS FLGWRD11 LRHTASK CS FLGWRD11
MASK LRBYBIT MASK LRBYBIT
EXTEND EXTEND
BZF GRP2OFF # LR BYPASS SET -- BYPASS ALL LR READING. BZF GRP2OFF # LR BYPASS SET - BYPASS ALL LR READING.
CA READLBIT CA READLBIT
MASK FLGWRD11 # IS READLR FLAG SET? MASK FLGWRD11 # IS READLR FLAG SET?
@ -686,8 +688,8 @@ LRHTASK CS FLGWRD11
EXTEND EXTEND
BZF GRP2OFF # YES. BYPASS LR READ. BZF GRP2OFF # YES. BYPASS LR READ.
CA PRIO32 # LR READ OK. SET JOB TO DO IT CA PRIO32 # LR READ OK SET JOB TO DO IT
TC NOVAC # ABOUT 50 MS. PRIOR TO PIPA READ. TC NOVAC # ABOUT 50 MS PRIOR TO PIPA READ
EBANK= HMEAS EBANK= HMEAS
2CADR LRHJOB 2CADR LRHJOB
@ -1354,7 +1356,7 @@ USEVF INDEX VSELECT*
CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
TCF WSTOR TCF WSTOR
-1 CA ZERO -1 CA ZERO
WSTOR TS MPAC WSTOR TS MPAC
CS BIT7 # (=64D) CS BIT7 # (=64D)
AD MODREG AD MODREG
@ -1365,7 +1367,7 @@ WSTOR TS MPAC
CA LRWVFF CA LRWVFF
TS MPAC TS MPAC
+3 CA EBANK7 +3 CA EBANK7
TS EBANK # CHANGE EBANKS TS EBANK # CHANGE EBANKS
EBANK= ABVEL EBANK= ABVEL
@ -1651,7 +1653,7 @@ POSALARM CA OCT523
TCF ENDOFJOB # V 32 E TERMINATE R12 TCF ENDOFJOB # V 32 E TERMINATE R12
TC ENDOFJOB TC ENDOFJOB
+3 CA BIT7 # SEE IF IN POS2 YET +3 CA BIT7 # SEE IF IN POS2 YET
EXTEND EXTEND
RAND CHAN33 RAND CHAN33
EXTEND EXTEND