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:
parent
854fd5973b
commit
e4e9a83e27
@ -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
|
||||
@ -442,7 +442,7 @@ SVEXTADR 2CADR SERVEXIT
|
||||
SERVEXIT TC PHASCHNG
|
||||
OCT 00035
|
||||
|
||||
+2 TCF ENDOFJOB
|
||||
+2 TCF ENDOFJOB
|
||||
|
||||
BANK 23
|
||||
SETLOC NORMLIZ
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user