Update SERVICER.agc

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

View File

@ -395,7 +395,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
MASK IDLEFBIT
ADS FLAGWRD7
CAF LRBYBIT # TERMINATE R12 IS RUNNING.
CAF LRBYBIT # TERMINATE R12 IF RUNNING.
TS FLGWRD11
EXTEND
@ -470,7 +470,7 @@ NORMLIZE TC INTPRET
R(CSM)
STORE UHYP
ASCSPOT EXIT
EXTEND # MAKE SURE GROUP 2 IS OFF
EXTEND # MAKE SURE GROUP 2 IS OFF.
DCA NEG0
DXCH -PHASE2
@ -508,30 +508,39 @@ EIGHTEEN DEC 18
# Page 869
# ************* PIPA READER *****************
# MOD NO. 00 BY D. LICKLY, DEC. 9 1966
# MOD NO. 00 BY D. LICKLY DEC.9 1966
#
# FUNCTIONAL DESCRIPTION
# 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,
# 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
# 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
#
# CALL VIA TC, ISWCALL, ETC.
#
# EXIT IS VIA Q.
#
#
# INPUT
#
# INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
#
#
# OUTPUT
#
# HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
# PIPTIME CONTAINS TIME OF PIPA READING.
#
#
# DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
#
# TEMX, TEMY, TEMZ, PIPAGE
BANK 37