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

Update SERVICER.agc

Browse Source 
Pages 865 through 870, although unsure about how to handle the newlines in the comment block on page 869, as well as when there is a "+x" in the righmost column, how should they be indented?
This commit is contained in:
Kourosh Simpkins 2020-09-07 20:27:35 +01:00
parent 854fd5973b
commit e4e9a83e27
1 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
Luminary099/SERVICER.agc
View File

@ -395,7 +395,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
MASK IDLEFBIT MASK IDLEFBIT
ADS FLAGWRD7 ADS FLAGWRD7
CAF LRBYBIT # TERMINATE R12 IS RUNNING. CAF LRBYBIT # TERMINATE R12 IF RUNNING.
TS FLGWRD11 TS FLGWRD11
EXTEND EXTEND
@ -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
@ -470,7 +470,7 @@ NORMLIZE TC INTPRET
R(CSM) R(CSM)
STORE UHYP STORE UHYP
ASCSPOT EXIT ASCSPOT EXIT
EXTEND # MAKE SURE GROUP 2 IS OFF EXTEND # MAKE SURE GROUP 2 IS OFF.
DCA NEG0 DCA NEG0
DXCH -PHASE2 DXCH -PHASE2
@ -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
@ -508,30 +508,39 @@ EIGHTEEN DEC 18
# Page 869 # Page 869
# ************* PIPA READER ***************** # ************* PIPA READER *****************
# MOD NO. 00 BY D. LICKLY, DEC. 9 1966 # MOD NO. 00 BY D. LICKLY DEC.9 1966
# #
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT WILL BE RESTARTABLE. # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT WILL BE RESTARTABLE.
# PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING, # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
# RESTARTS BEGIN AT REREADAC. # RESTARTS BEGIN AT REREADAC.
# #
# AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A #
# VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
# THE CDU READING IN 25 COMP IN THE ORDER CDUX,Y,Z. THE THRUST # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
# VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME. # THE CDU READING IN 25 COMP IN THE ORDER CDUX,Y,Z. THE THRUST
# VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
# #
# CALLING SEQUENCE AND EXIT # CALLING SEQUENCE AND EXIT
# CALL VIA TC, ISWCALL, ETC. #
# EXIT IS VIA Q. # CALL VIA TC, ISWCALL, ETC.
#
# 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.
#
# #
# OUTPUT # OUTPUT
# HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS. #
# PIPTIME CONTAINS TIME OF PIPA READING. # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
# PIPTIME CONTAINS TIME OF PIPA READING.
#
# #
# DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM) # DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
#
# TEMX, TEMY, TEMZ, PIPAGE # TEMX, TEMY, TEMZ, PIPAGE
BANK 37 BANK 37
@ -544,7 +553,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