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?pull/698/head
parent
854fd5973b
commit
e4e9a83e27
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue