Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
038013,000002: ## Copyright: Public domain.
038014,000003: ## Filename: SERVICER.agc
038015,000004: ## Purpose: A log section of Zerlina 56, the final revision of
038016,000005: ## Don Eyles's offline development program for the variable
038017,000006: ## guidance period servicer. It also includes a new P66 with LPD
038018,000007: ## (Landing Point Designator) capability, based on an idea of John
038019,000008: ## Young's. Neither of these advanced features were actually flown,
038020,000009: ## but Zerlina was also the birthplace of other big improvements to
038021,000010: ## Luminary including the terrain model and new (Luminary 1E)
038022,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
038023,000012: ## and revision 56 includes all changes up to and including Luminary
038024,000013: ## 183. It is therefore quite close to the Apollo 14 program,
038025,000014: ## Luminary 178, where not modified with new features.
038026,000015: ## Reference: pp. 850-889
038027,000016: ## Assembler: yaYUL
038028,000017: ## Contact: Ron Burkey <info@sandroid.org>.
038029,000018: ## Website: www.ibiblio.org/apollo/index.html
038030,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
038031,000020: ## 2017-08-17 MAS Began updates for Zerlina 56.
038032,000021: ## 2017-08-19 MAS Completed updating for Zerlina 56.
038033,000022: ## 2017-08-24 MAS Replaced an incorrect VXM with VXV.
038034,000023:
![]() |
Page 850 |
038036,000025: # ****************************************************************************************************************
038037,000026: # VARIABLE GUIDANCE PERIOD SERVICER WRITTEN BY EYLES
038038,000027: # ****************************************************************************************************************
038039,000028:
038040,000029: 34,2000 SETLOC SERV1
038041,000030: 34,2000 BANK
038042,000031: 34,3661 E7,1513 EBANK= DVCNTR
038043,000032: 34,3661 COUNT* $$/SERV
038044,000033:
038045,000034: # ****************************************************************************************************************
038046,000035: # PREREAD
038047,000036: # ****************************************************************************************************************
038048,000037:
038049,000038: # THIS ROUTINE IS CALLED BY A TASK (TO WHICH IT DOES NOT RETURN) TO START SERVICER. PREREAD ZEROES
038050,000039: # THE PIPAS AND PIPASOLD (PIPTIME1 IS ALREADY SET), SETS V37FLAG AND AVEGFLAG SO SHOW THAT SERVICER IS ON, CLEARS
038051,000040: # DRIFTFLAG TO SHOW THAT THOSE PASSIVE GUYS ARE NO LONGER IN CONTROL, INITIALIZES THE INFAMOUS DV MONITOR,
038052,000041: # INITIATES QUARTASK WHICH COMPRISES R10 AND R11, AND SETS UP NORMLIZE, THE JOB LEAD-IN TO THE SERVICER CYCLE.
038053,000042:
038054,000043:
038055,000044: 34,3661 05364 PREREAD TC PHASCHNG # SKIP LASTBIAS IF THERE IS A RESTART
038056,000045: 34,3662 47015 OCT 47015
038057,000046: 34,3663 77777 OCT 77777
038058,000047: 34,3664 E7,1513 EBANK= DVCNTR
038059,000048: 34,3664 03672 70067 2CADR BIBIBIAS
038060,000049:
038061,000050:
038062,000051: 34,3666 35031 CAF PRIO21
038063,000052: 34,3667 05072 TC NOVAC
038064,000053: 34,3670 E3,1460 EBANK= NBDX
038065,000054: 34,3670 03671 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
038066,000055:
038067,000056:
038068,000057: 34,3672 44755 BIBIBIAS CS ZERO # ZERO PIPAS AND PIPASOLD
038069,000058: 34,3673 54037 TS PIPAX
038070,000059: 34,3674 54040 TS PIPAY
038071,000060: 34,3675 54041 TS PIPAZ
038072,000061: 34,3676 55254 TS PIPAXOLD
038073,000062: 34,3677 55255 TS PIPAYOLD
038074,000063: 34,3700 55256 TS PIPAZOLD
038075,000064:
038076,000065: 34,3701 34743 CAF BIT9 # SET TEST CONNECTOR OUTBIT TO TELL THE
038077,000066: 34,3702 00006 EXTEND # HYBRID THAT AVERAGE-G IS STARTING
038078,000067: 34,3703 05011 WOR DSALMOUT
038079,000068:
038080,000069: 34,3704 40103 CS FLAGWRD7
038081,000070: 34,3705 74773 MASK SUPER011 # SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
038082,000071: 34,3706 26103 ADS FLAGWRD7 # OF FLAGWRD7)
038083,000072:
038084,000073: 34,3707 05527 TC DOWNFLAG # CLEAR DRIFTFLG TO STOP COASTING FLIGHT
038085,000074: 34,3710 00036 ADRES DRIFTFLG # TYPE GYRO COMPENSATION ????
038086,000075:
![]() |
Page 851 |
038088,000077: 34,3711 30102 CA FLAGWRD6 # IS MUNFLAG SET?
038089,000078: 34,3712 74744 MASK MUNFLBIT
038090,000079: 34,3713 00006 EXTEND
038091,000080: 34,3714 13731 BZF NORMSET # NO: DO NOT INITIATE QUARTASK
038092,000081:
038093,000082: 34,3715 10754 CCS PHASE2 # AVOID MULTIPLE QUARTASK CALL
038094,000083: 34,3716 13731 TCF NORMSET
038095,000084:
038096,000085: 34,3717 40025 CS TIME1
038097,000086: 34,3720 55054 TS TBASE2
038098,000087: 34,3721 34361 CAF DEC17 # 2.21SPOT FOR QUARTASK
038099,000088: 34,3722 54001 TS L
038100,000089: 34,3723 40000 COM
038101,000090: 34,3724 52754 DXCH -PHASE2
038102,000091:
038103,000092: 34,3725 36010 CAF OCT31
038104,000093: 34,3726 05214 TC WAITLIST
038105,000094: 34,3727 E7,1777 EBANK= END-E7
038106,000095: 34,3727 02055 42067 2CADR QUARTASK
038107,000096:
038108,000097:
038109,000098: 34,3731 34736 NORMSET CAF PRIO20 # SET UP SERVICER LEAD-IN AT PRIORITY 20
038110,000099: 34,3732 05105 TC FINDVAC
038111,000100: 34,3733 E7,1513 EBANK= DVCNTR
038112,000101: 34,3733 02037 66067 2CADR NORMLIZE
038113,000102:
038114,000103:
038115,000104: 34,3735 05364 TC PHASCHNG # PROTECT NORMLIZE IN GROUP 5 AT PRIO 20
038116,000105: 34,3736 07025 OCT 07025
038117,000106: 34,3737 20000 OCT 20000 # PRIORITY 20
038118,000107: 34,3740 E7,1513 EBANK= DVCNTR
038119,000108: 34,3740 02037 66067 2CADR NORMLIZE
038120,000109:
038121,000110:
038122,000111: 34,3742 15272 TCF TASKOVER
038123,000112:
038124,000113: # ****************************************************************************************************************
038125,000114: # NORMLIZE - SERVICER JOB LEAD-IN
038126,000115: # ****************************************************************************************************************
038127,000116:
038128,000117: 33,2000 SETLOC SERVICES
038129,000118: 33,2000 BANK
038130,000119: 33,2037 E7,1513 EBANK= DVCNTR
038131,000120: 33,2037 COUNT* $$/SERV
038132,000121:
038133,000122: 33,2037 06051 NORMLIZE TC INTPRET
038134,000123: 33,2040 43175 VLOAD BOFF
038135,000124: 33,2041 03543 RN1
038136,000125: 33,2042 03347 MUNFLAG
038137,000126: 33,2043 66074 NORMLIZ1
![]() |
Page 852 |
038139,000128: 33,2044 64252 VSL6 MXV
038140,000129: 33,2045 01732 REFSMMAT
038141,000130: 33,2046 37517 STCALL R
038142,000131: 33,2047 71743 MUNGRAV
038143,000132: 33,2050 76575 VLOAD VSL1
038144,000133: 33,2051 03551 VN1
038145,000134: 33,2052 77721 MXV
038146,000135: 33,2053 01732 REFSMMAT
038147,000136: 33,2054 03525 STORE V
038148,000137: 33,2055 41535 SLOAD PUSH # COMPUTE PIPA BIAS VECTOR FOR USE BY
038149,000138: 33,2056 01457 PBIASZ # P66ROD AND LANDING ANALOG DISPLAYS
038150,000139: 33,2057 41535 SLOAD PUSH
038151,000140: 33,2060 01455 PBIASY
038152,000141: 33,2061 55535 SLOAD VDEF
038153,000142: 33,2062 01453 PBIASX
038154,000143: 33,2063 77561 VXSC EXIT # RESCALE TO UNITS OF 2(-9) M/CS/CS
038155,000144: 33,2064 27757 BIASFACT
038156,000145:
038157,000146: 33,2065 30154 CA MPAC
038158,000147: 33,2066 55704 TS BIASACCX
038159,000148: 33,2067 30157 CA MPAC +3
038160,000149: 33,2070 55705 TS BIASACCY
038161,000150: 33,2071 30161 CA MPAC +5
038162,000151: 33,2072 55706 TS BIASACCZ
038163,000152:
038164,000153: 33,2073 12077 TCF NORMLIZ2
038165,000154:
038166,000155: 33,2074 77624 NORMLIZ1 CALL
038167,000156: 33,2075 77606 CALCGRAV
038168,000157: 33,2076 77776 EXIT
038169,000158:
038170,000159: 33,2077 36007 NORMLIZ2 CAF OCT24 # TWENTY TO YOU
038171,000160: 33,2100 03674 TC COPYCYC +1 # DO NOT COPY MASS IN NORMLIZE
038172,000161:
038173,000162: 33,2101 00003 RELINT
038174,000163:
038175,000164: # (FALL THROUGH TO PIPCYCLE)
038176,000165:
038177,000166: # ****************************************************************************************************************
038178,000167: # START OF SERVICER CYCLE
038179,000168: # ****************************************************************************************************************
038180,000169:
038181,000170: 33,2102 33,2102 SERVEXIT = PIPCYCLE
038182,000171:
038183,000172: 33,2102 06042 PIPCYCLE TC SERVCHNG
038184,000173:
038185,000174: 33,2103 05527 TC DOWNFLAG # CLEAR SERVOVER FLAG TO INDICATE THAT
038186,000175: 33,2104 00043 ADRES SERVOVER # SERVICER IS STARTING A NEW PASS
038187,000176:
038188,000177: 33,2105 35016 CAF EBANK7 # INSURE PROPER EBANK
![]() |
Page 853 |
038190,000179: 33,2106 54003 TS EBANK
038191,000180: 33,2107 E7,1777 EBANK= END-E7
038192,000181:
038193,000182: 33,2107 40025 CS TIME1 # WAS LAST READACCS LONG ENOUGH AGO?
038194,000183: 33,2110 61234 AD PIPTIME +1
038195,000184: 33,2111 64734 AD NEG1/2
038196,000185: 33,2112 64734 AD NEG1/2
038197,000186: 33,2113 56001 XCH L # CLEAR PROBABLE OVERFLOW
038198,000187: 33,2114 56001 XCH L
038199,000188: 33,2115 65000 AD PGMIN
038200,000189: 33,2116 00006 EXTEND
038201,000190: 33,2117 62122 BZMF READACCS # YES: GO STRAIGHT TO READACCS
038202,000191:
038203,000192: 33,2120 04616 TC BANKCALL # NO: DELAY IT ACCORDINGLY
038204,000193: 33,2121 01736 CADR DELAYJOB
038205,000194:
038206,000195: 33,2122 00004 READACCS INHINT # INHINT SO DELVS, CDUTEMPS, PIPTIME1 AND
038207,000196: 33,2123 00006 EXTEND # PGUIDE1 WILL BE A CONSISTENT SET
038208,000197: 33,2124 30025 DCA TIME2
038209,000198: 33,2125 53557 DXCH PIPTIME1
038210,000199:
038211,000200: 33,2126 30037 CA PIPAX
038212,000201: 33,2127 55157 TS PIPATMPX
038213,000202: 33,2130 30040 CA PIPAY
038214,000203: 33,2131 55160 TS PIPATMPY
038215,000204: 33,2132 30041 CA PIPAZ
038216,000205: 33,2133 55161 TS PIPATMPZ
038217,000206: 33,2134 30032 CA CDUX
038218,000207: 33,2135 55154 TS CDUTEMPX
038219,000208: 33,2136 30033 CA CDUY
038220,000209: 33,2137 55155 TS CDUTEMPY
038221,000210: 33,2140 30034 CA CDUZ
038222,000211: 33,2141 55156 TS CDUTEMPZ
038223,000212:
038224,000213: 33,2142 41254 CS PIPAXOLD
038225,000214: 33,2143 61157 AD PIPATMPX
038226,000215: 33,2144 03716 TC PIPNORM
038227,000216: 33,2145 52325 DXCH DELVX
038228,000217:
038229,000218: 33,2146 41255 CS PIPAYOLD
038230,000219: 33,2147 61160 AD PIPATMPY
038231,000220: 33,2150 03716 TC PIPNORM
038232,000221: 33,2151 52327 DXCH DELVY
038233,000222:
038234,000223: 33,2152 41256 CS PIPAZOLD
038235,000224: 33,2153 61161 AD PIPATMPZ
038236,000225: 33,2154 03716 TC PIPNORM
038237,000226: 33,2155 52331 DXCH DELVZ
038238,000227:
038239,000228: 33,2156 41234 CS PIPTIME +1 # COMPUTE GUIDANCE PERIOD PGUIDE1
![]() |
Page 854 |
038241,000230: 33,2157 61557 AD PIPTIME1 +1
038242,000231: 33,2160 64736 AD HALF
038243,000232: 33,2161 64736 AD HALF
038244,000233: 33,2162 22007 ZL
038245,000234: 33,2163 53567 DXCH PGUIDE1
038246,000235:
038247,000236: 33,2164 00003 RELINT
038248,000237: 33,2165 06042 TC SERVCHNG # PIPATMPS GO TO PIPASOLD AT COPYCYCL
038249,000238:
038250,000239: # THE PHILOSOPHY OF THE HANDLING OF PIPAS AND PIPASOLD IS THIS: THAT AT ANY TIME THE QUANTITY
038251,000240: # PIPAS-PIPASOLD BE THE THRUST DELTA-V NEEDED TO EXTRAPOLATE LM POSITION AND VELOCITY FROM R AND V (VALID AT
038252,000241: # PIPTIME) TO THE PRESENT TIME. THE COMPUTATIONS THIS PARTICULARLY ASSISTS ARE IN THE LANDING ANALOG
038253,000242: # DISPLAYS, LANDING RADAR DATA INCORPORATION (PART OF SERVICER), AND P66 R.O.D.
038254,000243:
038255,000244: 33,2166 43745 PIPSDONE CS PGMAX # WAS LAST READACCS TOO LONG AGO?
038256,000245: 33,2167 61566 AD PGUIDE1
038257,000246: 33,2170 00006 EXTEND
038258,000247: 33,2171 62174 BZMF +3 # NO
038259,000248:
038260,000249: 33,2172 05600 TC ALARM # YES: LIGHT ALARM LIGHT
038261,000250: 33,2173 00555 OCT 00555
038262,000251:
038263,000252: 33,2174 40103 CS FLAGWRD7 # HAS AVEGFLAG FALLEN?
038264,000253: 33,2175 74747 MASK AVEGFBIT
038265,000254: 33,2176 00006 EXTEND
038266,000255: 33,2177 12203 BZF SERVICER # NO: CONTINUE AVERAGE-G
038267,000256:
038268,000257: 33,2200 00006 AVEGOUT EXTEND # YES: THEN THIS IS THE LAST SERVICER
038269,000258: 33,2201 33741 DCA AVOUTCAD
038270,000259: 33,2202 53253 DXCH AVGEXIT
038271,000260:
038272,000261: 33,2203 35007 SERVICER CAF EBANK3
038273,000262: 33,2204 54003 TS EBANK
038274,000263: 33,2205 E3,1446 EBANK= PHSNAME5
038275,000264: 33,2205 33742 CAF GETABADR # SKIP 1/PIPA AFTER RESTART
038276,000265: 33,2206 55446 TS PHSNAME5
038277,000266: 33,2207 35016 CAF EBANK7
038278,000267: 33,2210 54003 TS EBANK
038279,000268: 33,2211 E7,1513 EBANK= DVCNTR
038280,000269:
038281,000270: 33,2211 31566 CA PGUIDE1 # SET 1/PIPADT TO PGUIDE1 JUST COMPUTED
038282,000271: 33,2212 00006 EXTEND
038283,000272: 33,2213 74747 MP BIT5 # RESCALE PGUIDE TO UNITS OF 2(10) CS
038284,000273: 33,2214 23074 LXCH 1/PIPADT
038285,000274:
038286,000275: 33,2215 04616 TC BANKCALL # PIPA COMPENSATION CALL
038287,000276: 33,2216 15271 CADR 1/PIPA
038288,000277:
038289,000278: 33,2217 30120 GETABVAL CA FIXLOC # ZERO PUSHDOWN POINTER
038290,000279: 33,2220 54166 TS PUSHLOC
038291,000280:
![]() |
Page 855 |
038293,000282: 33,2221 30324 CA DELV
038294,000283: 33,2222 00006 EXTEND
038295,000284: 33,2223 70000 MP A
038296,000285: 33,2224 52155 DXCH MPAC
038297,000286: 33,2225 30326 CA DELV +2
038298,000287: 33,2226 00006 EXTEND
038299,000288: 33,2227 70000 MP A
038300,000289: 33,2230 20155 DAS MPAC
038301,000290: 33,2231 30330 CA DELV +4
038302,000291: 33,2232 00006 EXTEND
038303,000292: 33,2233 70000 MP A
038304,000293: 33,2234 20155 DAS MPAC
038305,000294: 33,2235 04713 TC USPRCADR
038306,000295: 33,2236 01207 CADR SQRT
038307,000296: 33,2237 30154 CA MPAC
038308,000297: 33,2240 55247 TS ABDELV # |DELV| IN LM PIPA UNITS OF ONE CM/S/BIT
038309,000298:
038310,000299: 33,2241 00006 EXTEND # MAKE A NUMBER FOR THOSE WHO ARE USED
038311,000300: 33,2242 75000 MP 2SECS # TO USING ABDELV AS AN ACCELERATION,
038312,000301: 33,2243 00006 EXTEND # LIKE 1/ACCS AND THE DELTA-V MONITOR
038313,000302: 33,2244 11566 DV PGUIDE1
038314,000303: 33,2245 55250 TS ABDVACC # SAME UNITS AS ABDELV BUT AN ACCELERATION
038315,000304:
038316,000305: 33,2246 00006 EXTEND
038317,000306: 33,2247 31246 DCA MASS
038318,000307: 33,2250 53571 DXCH MASS1 # INITIALIZE MASS1 IN CASE WE SKIP MASSMON
038319,000308:
038320,000309: 33,2251 40104 MASSMON CS FLAGWRD8 # ARE WE ON THE SURFACE?
038321,000310: 33,2252 74744 MASK SURFFBIT
038322,000311: 33,2253 00006 EXTEND
038323,000312: 33,2254 12273 BZF MOONSPOT # YES: BYPASS MASS MESS
038324,000313:
038325,000314: 33,2255 30106 CA FLGWRD10 # NO: WHICH VEX SHOULD BE USED?
038326,000315: 33,2256 74737 MASK APSFLBIT
038327,000316: 33,2257 10000 CCS A
038328,000317: 33,2260 00006 EXTEND # IF EXTEND IS EXECUTED, APSVEX --> A,
038329,000318: 33,2261 32001 DCA APSVEX # OTHERWISE DPSVEX --> A
038330,000319: 33,2262 54002 TS Q
038331,000320:
038332,000321: 33,2263 31247 CA ABDELV
038333,000322: 33,2264 00006 EXTEND
038334,000323: 33,2265 72012 MP KPIP
038335,000324: 33,2266 00006 EXTEND
038336,000325: 33,2267 10002 DV Q # WHERE APPROPRIATE VEX RESIDES
038337,000326: 33,2270 00006 EXTEND
038338,000327: 33,2271 71245 MP MASS
038339,000328: 33,2272 21571 DAS MASS1
038340,000329:
038341,000330: 33,2273 32013 MOONSPOT CA KPIP1 # TP MPAC = ABDELV AT 2(14) CM/SEC
038342,000331: 33,2274 07321 TC SHORTMP # MULTIPLY BY KPIP1 TO GET
038343,000332:
![]() |
Page 856 The following 5 lines are marked as having changed between ZFLY.048 and ZFLY.049 |
038346,000335: 33,2275 00006 EXTEND
038347,000336: 33,2276 31510 DCA DVTOTAL
038348,000337: 33,2277 20155 DAS MPAC
038349,000338: 33,2300 52155 DXCH MPAC
038350,000339: 33,2301 53174 DXCH DVTEMP # PRELIMINARY DVTOTAL, UNITS OF 2(7) M/CS
038351,000340:
038352,000341: 33,2302 03707 TC TMPTOSPT
038353,000342:
038354,000343: 33,2303 04616 TC BANKCALL # COMPUTE SINES AND COSINES FOR FLESHPOT
038355,000344: 33,2304 47622 CADR QUICTRIG
038356,000345:
038357,000346: 33,2305 33743 CAF XNBPIPAD # COMPUTE BODY-PLATFORM MATRIX
038358,000347: 33,2306 04616 TC BANKCALL
038359,000348: 33,2307 20037 CADR FLESHPOT
038360,000349:
038361,000350: 33,2310 40102 AVERAGEG CS FLAGWRD6 # IS MUNFLAG SET?
038362,000351: 33,2311 74744 MASK MUNFLBIT
038363,000352: 33,2312 00006 EXTEND
038364,000353: 33,2313 12347 BZF RVBOTH # YES: DO DESCENT-ASCENT NAVIGATION
038365,000354:
038366,000355: # (FALL THROUGH TO CALCRVG) NO
038367,000356:
038368,000357: # ****************************************************************************************************************
038369,000358: # NAVIGATION USED BY THE P40S NEAR EARTH OR MOON
038370,000359: # ****************************************************************************************************************
038371,000360:
038372,000361:
038373,000362: 33,2314 06051 CALCRVG TC INTPRET
038374,000363: 33,2315 61375 VLOAD VXM
038375,000364: 33,2316 00325 DELV
038376,000365: 33,2317 01732 REFSMMAT
038377,000366: 33,2320 76561 VXSC VSL1
038378,000367: 33,2321 26014 KPIP1
038379,000368: 33,2322 03525 STORE DELVREF
038380,000369: 33,2323 41562 VSR1 PUSH
038381,000370: 33,2324 74325 PDDL VXSC
038382,000371: 33,2325 03567 PGUIDE1
038383,000372: 33,2326 01236 G
038384,000373: 33,2327 53255 VAD VAD
038385,000374: 33,2330 01226 VN
038386,000375: 33,2331 54206 PUSH VSR
038387,000376: 33,2332 20611 8D
038388,000377: 33,2333 53361 VXSC VAD
038389,000378: 33,2334 03567 PGUIDE1
038390,000379: 33,2335 01220 RN
038391,000380: 33,2336 37543 STCALL RN1 # VECTOR RN1 IN UNITS OF 2(29) METERS
038392,000381: 33,2337 77606 CALCGRAV
038393,000382:
038394,000383: 33,2340 53361 VXSC VAD
038395,000384: 33,2341 03567 PGUIDE1
038396,000385: 33,2342 45455 VAD STADR
038397,000386:
![]() |
Page 857 |
038399,000388: 33,2343 74226 STORE VN1 # VECTOR VN1 IN UNITS OF 2(7) M/CS
038400,000389: 33,2344 77776 EXIT
038401,000390:
038402,000391: 33,2345 06042 TC SERVCHNG
038403,000392: 33,2346 13365 TCF COPYCYCL
038404,000393:
038405,000394: # ****************************************************************************************************************
038406,000395: # NAVIGATION USED BY DESCENT AND ASCENT ONLY
038407,000396: # ****************************************************************************************************************
038408,000397:
038409,000398: 33,2347 06051 RVBOTH TC INTPRET
038410,000399: 33,2350 74375 VLOAD VXSC
038411,000400: 33,2351 02310 G(CSM)
038412,000401: 33,2352 03567 PGUIDE1
038413,000402: 33,2353 41455 VAD PUSH
038414,000403: 33,2354 01724 V(CSM)
038415,000404: 33,2355 74322 VSR3 VXSC
038416,000405: 33,2356 03567 PGUIDE1
038417,000406: 33,2357 77655 VAD
038418,000407: 33,2360 01716 R(CSM)
038419,000408: 33,2361 37573 STCALL R1S # CSM POSITION IN UNITS OF 2(24) METERS
038420,000409: 33,2362 71743 MUNGRAV
038421,000410: 33,2363 77761 VXSC
038422,000411: 33,2364 03567 PGUIDE1
038423,000412: 33,2365 45455 VAD STADR
038424,000413: 33,2366 74176 STORE V1S # CSM VELOCITY IN UNITS OF 2(7) M/CS
038425,000414: 33,2367 77776 EXIT
038426,000415:
038427,000416: 33,2370 06042 TC SERVCHNG
038428,000417:
038429,000418: 33,2371 06051 TC INTPRET
038430,000419: 33,2372 77775 VLOAD
038431,000420: 33,2373 03561 G1
038432,000421: 33,2374 26310 STOVL G(CSM)
038433,000422: 33,2375 03573 R1S
038434,000423: 33,2376 25716 STOVL R(CSM)
038435,000424: 33,2377 03601 V1S
038436,000425: 33,2400 01724 STORE V(CSM)
038437,000426: 33,2401 77776 EXIT
038438,000427:
038439,000428: 33,2402 06042 TC SERVCHNG
038440,000429:
038441,000430: 33,2403 06051 MUNRVG TC INTPRET
038442,000431: 33,2404 74375 VLOAD VXSC
038443,000432: 33,2405 00325 DELV
038444,000433: 33,2406 26016 KPIP2
038445,000434: 33,2407 65206 PUSH PDDL # PUSH DOWN SCALED DELV TWICE
038446,000435: 33,2410 03567 PGUIDE1
038447,000436: 33,2411 53361 VXSC VAD
038448,000437: 33,2412 01236 G
![]() |
Page 858 |
038450,000439: 33,2413 41455 VAD PUSH
038451,000440: 33,2414 03525 V
038452,000441: 33,2415 74322 VSR3 VXSC
038453,000442: 33,2416 03567 PGUIDE1
038454,000443: 33,2417 77655 VAD
038455,000444: 33,2420 03517 R
038456,000445: 33,2421 37573 STCALL R1S # VECTOR R1S IN UNITS OF 2(24) METERS
038457,000446: 33,2422 71743 MUNGRAV
038458,000447: 33,2423 53361 VXSC VAD
038459,000448: 33,2424 03567 PGUIDE1
038460,000449: 33,2425 45455 VAD STADR
038461,000450: 33,2426 74176 STORE V1S # VECTOR V1S IN UNITS OF 2(7) M/CS
038462,000451: 33,2427 77646 ABVAL
038463,000452: 33,2430 27472 STOVL ABVEL # ABVEL IN UNITS OF 2(7) M/CS
038464,000453: 33,2431 00035 28D
038465,000454: 33,2432 17535 STODL UNIT/R/ # ONLY UNIT/R/ COMPUTATION IN MUNGRAV CASE
038466,000455: 33,2433 00045 36D
038467,000456: 33,2434 47025 DSU RTB # MPAC MUST BE SIGNAGREED FOR MUNRETRN
038468,000457: 33,2435 02324 /LAND/
038469,000458: 33,2436 21574 SGNAGREE
038470,000459: 33,2437 03533 STORE HCALC # COPYCYC1 MAY CHANGE THIS HCALC
038471,000460: 33,2440 77776 EXIT
038472,000461:
038473,000462: 33,2441 40107 CS FLGWRD11 # IS LRBYPASS SET?
038474,000463: 33,2442 74735 MASK LRBYBIT
038475,000464: 33,2443 00006 EXTEND
038476,000465: 33,2444 13233 BZF COPYCYC1 # YES: BYPASS ALL LANDING RADAR LOGIC
038477,000466:
038478,000467: # (FALL THROUGH TO LR LOGIC)
038479,000468:
038480,000469: # ****************************************************************************************************************
038481,000470: # LANDING RADAR DATA INCORPORATION
038482,000471: # ****************************************************************************************************************
038483,000472:
038484,000473:
038485,000474: # ********************************
038486,000475: # LR PRELIMINARIES
038487,000476: # ********************************
038488,000477:
038489,000478: # MUNRETRN DEPENDS ON SEEING HCALC IN MPAC WITH SIGNS AGREED.
038490,000479:
038491,000480: 33,2445 30154 MUNRETRN CA MPAC # IS ALT < 1024 METERS?
038492,000481: 33,2446 00006 EXTEND
038493,000482: 33,2447 12465 BZF LROFF? # YES: GO CHECK ALTITUDE AGAINST HLROFF
038494,000483:
038495,000484: 33,2450 40107 CS FLGWRD11 # NO: IS ALTITUDE ALREADY < 30000 FEET?
038496,000485: 33,2451 74743 MASK XORFLBIT
038497,000486: 33,2452 00006 EXTEND
038498,000487: 33,2453 12473 BZF R12 # YES
038499,000488:
038500,000489: 33,2454 00006 30KCHK EXTEND # NO: IS ALT < 30000 FEET NOW?
![]() |
Page 859 |
038502,000491: 33,2455 33755 DCA 1-30KFT
038503,000492: 33,2456 20155 DAS MPAC
038504,000493:
038505,000494: 33,2457 10000 CCS A
038506,000495: 33,2460 12473 TCF R12 # NO: ALTITUDE STILL > 30000 FEET
038507,000496: 33,2461 05515 TC UPFLAG # YES: SET X-AXIS OVERRIDE INHIBIT FLAG
038508,000497: 33,2462 00311 ADRES XOVINFLG
038509,000498: 33,2463 05515 TC UPFLAG
038510,000499: 33,2464 00253 ADRES XORFLG
038511,000500:
038512,000501: 33,2465 40155 LROFF? CS MPAC +1 # IS ALTITUDE < HLROFF?
038513,000502: 33,2466 61451 AD HLROFF
038514,000503: 33,2467 00006 EXTEND
038515,000504: 33,2470 62473 BZMF R12 # NO: GO TRY UPDATE
038516,000505:
038517,000506: 33,2471 05527 TC DOWNFLAG # YES: RESET LR PERMIT FLAG
038518,000507: 33,2472 00254 ADRES LRINH
038519,000508:
038520,000509: 33,2473 40107 R12 CS FLGWRD11 # IS NOLRREAD SET (BY HIGATASK)?
038521,000510: 33,2474 74742 MASK NOLRRBIT
038522,000511: 33,2475 00006 EXTEND
038523,000512: 33,2476 13222 BZF CONTSERV # YES: BYPASS POSITION CHECK AND UPDATE
038524,000513:
038525,000514: 33,2477 34776 POSTST CA BITS6+7 # NO: TEST LR ANTENNA POSITION DISCRETES
038526,000515: 33,2500 00006 EXTEND
038527,000516: 33,2501 02033 RAND CHAN33
038528,000517: 33,2502 00006 EXTEND
038529,000518: 33,2503 74742 MP BIT10 # SHIFT BITS 6 AND 7 TO BITS 1 AND 2
038530,000519:
038531,000520: 33,2504 50000 INDEX A
038532,000521: 33,2505 12506 TCF +1
038533,000522: 33,2506 12511 TCF 511? # A = 0 --> BOTH DISCRETES PRESENT
038534,000523: 33,2507 12520 TCF POSCHNG? # A = 1 --> POSITION 2
038535,000524: 33,2510 12520 TCF POSCHNG? # A = 2 --> POSITION 1
038536,000525: 33,2511 11622 511? CCS 511CTR # IF CONDITION PERSISTS FOR FIVE
038537,000526: 33,2512 12516 TCF ST511CTR # CONSECUTIVE PASSES,ISSUE 511 ALARM
038538,000527: 33,2513 05600 TC ALARM
038539,000528: 33,2514 00511 OCT 511
038540,000529: 33,2515 44755 CS ZERO # SET CTR TO -0 TO BYPASS ALARM
038541,000530: 33,2516 55622 ST511CTR TS 511CTR
038542,000531: 33,2517 13222 TCF CONTSERV
038543,000532: 33,2520 54001 POSCHNG? TS L
038544,000533:
038545,000534: 33,2521 34751 CA FOUR # SET 511CTR TO RE-ENABLE 511 ALARM
038546,000535: 33,2522 55622 TS 511CTR
038547,000536:
038548,000537: 33,2523 23650 LXCH LRPOS # UPDATE LRPOS WITH NEW POSITION
038549,000538: 33,2524 41650 CS LRPOS
038550,000539: 33,2525 60001 AD L # IS NEWPOS = OLDPOS?
038551,000540: 33,2526 00006 EXTEND
![]() |
Page 860 |
038553,000542: 33,2527 12531 BZF EXTRAPRV # YES
038554,000543: 33,2530 13222 TCF CONTSERV # NO
038555,000544:
038556,000545: # NOW MUST BE COMPUTED THE ALTITUDE AND VELOCITY VECTORS AT THE TIME OF THE RADAR READING. THE
038557,000546: # FINAL VALUES OF R AND V FROM THE LAST SERVICER ARE EXTRAPOLATED FORWARD TO LRTIME. THE CONTENTS OF THE PIPAS
038558,000547: # AT LRTIME WERE STORED IN PIPTEM. THE RESULTS ARE STORED IN RN1, VN1 AND HLRTIME FOR POSUPDAT AND VELUPDAT.
038559,000548:
038560,000549: # ALSO EXTRAPRV COMPUTES A BODY-PLATFORM MATRIX VALID AT LRTIME AND STORES IT AT XNBRAD. THIS IS USED BY
038561,000550: # POSUPDAT AND VELUPDAT TO CONVERT BEAM VECTORS TO PLATFORM COORDINATES.
038562,000551:
038563,000552: 33,2531 34741 EXTRAPRV CAF EBANK4
038564,000553: 33,2532 E4,1650 EBANK= PIPTEM
038565,000554: 33,2532 54003 TS EBANK
038566,000555:
038567,000556: 33,2533 31646 CA LRYCDU
038568,000557: 33,2534 54765 TS CDUSPOTY
038569,000558: 33,2535 31647 CA LRZCDU
038570,000559: 33,2536 54767 TS CDUSPOTZ
038571,000560: 33,2537 31645 CA LRXCDU
038572,000561: 33,2540 54771 TS CDUSPOTX
038573,000562:
038574,000563: 33,2541 04616 TC BANKCALL # PREPARE SINES AND COSINES FOR FLESHPOT
038575,000564: 33,2542 47622 CADR QUICTRIG
038576,000565:
038577,000566: 33,2543 33744 CAF XNBRADAD # COMPUTE MATRIX XNBRAD VALIB AT LRTIME
038578,000567: 33,2544 04616 TC BANKCALL # (CAN'T USE *NBSM* LATER BECAUSE P66ROD
038579,000568: 33,2545 20037 CADR FLESHPOT # COULD CLOBBER SINES AND COSINES)
038580,000569:
038581,000570: 33,2546 00004 INHINT # INHINT FOR PIPNORM, INTPRET WILL RELINT
038582,000571: 33,2547 41254 CS PIPAXOLD
038583,000572: 33,2550 61650 AD PIPTEM
038584,000573: 33,2551 03716 TC PIPNORM
038585,000574: 33,2552 52155 DXCH MPAC
038586,000575: 33,2553 41255 CS PIPAYOLD
038587,000576: 33,2554 61651 AD PIPTEM +1
038588,000577: 33,2555 03716 TC PIPNORM
038589,000578: 33,2556 52160 DXCH MPAC +3
038590,000579: 33,2557 41256 CS PIPAZOLD
038591,000580: 33,2560 61652 AD PIPTEM +2
038592,000581: 33,2561 03716 TC PIPNORM
038593,000582: 33,2562 52162 DXCH MPAC +5
038594,000583:
038595,000584: 33,2563 41234 CS PIPTIME +1
038596,000585: 33,2564 61644 AD LRTIME +1
038597,000586: 33,2565 64736 AD HALF
038598,000587: 33,2566 64736 AD HALF
038599,000588: 33,2567 22007 ZL
038600,000589: 33,2570 50120 INDEX FIXLOC
038601,000590: 33,2571 52015 DXCH 12D
038602,000591:
![]() |
Page 861 |
038604,000593: 33,2572 35016 CA EBANK7
038605,000594: 33,2573 E7,1513 EBANK= DVCNTR
038606,000595: 33,2573 54003 TS EBANK
038607,000596:
038608,000597: 33,2574 44753 CS ONE # SET MODE TO VECTOR
038609,000598: 33,2575 54163 TS MODE
038610,000599:
038611,000600: 33,2576 06051 TC INTPRET
038612,000601: 33,2577 41561 VXSC PUSH
038613,000602: 33,2600 26016 KPIP2
038614,000603: 33,2601 74325 PDDL VXSC
038615,000604: 33,2602 00015 12D
038616,000605: 33,2603 01236 G
038617,000606: 33,2604 53255 VAD VAD
038618,000607: 33,2605 03525 V
038619,000608: 33,2606 64406 PUSH VSR3
038620,000609: 33,2607 53361 VXSC VAD
038621,000610: 33,2610 00015 12D
038622,000611: 33,2611 03517 R
038623,000612: 33,2612 37543 STCALL RN1 # IN RN1 POSITION AT TIME OF READING
038624,000613: 33,2613 71743 MUNGRAV
038625,000614: 33,2614 53361 VXSC VAD
038626,000615: 33,2615 00015 12D
038627,000616: 33,2616 45455 VAD STADR
038628,000617: 33,2617 60226 STODL VN1 # IN VN1 VELOCITY AT TIME OF READING
038629,000618: 33,2620 00045 36D
038630,000619: 33,2621 77625 DSU
038631,000620: 33,2622 02324 /LAND/
038632,000621: 33,2623 03763 STORE HLRTIME # ALTITUDE AT TIME OF RADAR READ
038633,000622: 33,2624 77776 EXIT
038634,000623:
038635,000624: # ***********************************
038636,000625: # ALTITUDE UPDATE (CUM TERRAIN MODEL)
038637,000626: # ***********************************
038638,000627:
038639,000628: 33,2625 30107 HMEASCHK CA FLGWRD11 # WAS ALT READING MADE THIS PASS?
038640,000629: 33,2626 74750 MASK RNGEDBIT
038641,000630: 33,2627 00006 EXTEND
038642,000631: 33,2630 13024 BZF VMEASCHK # NO: CHECK FOR VELOCITY MEASUREMENT
038643,000632:
038644,000633: 33,2631 06042 POSUPDAT TC SERVCHNG # YES
038645,000634: 33,2632 03661 TC POSINDEX # SET X1 ACCORDING TO ANTENNA POSITION
038646,000635:
038647,000636: 33,2633 06051 TC INTPRET
038648,000637: 33,2634 61373 VLOAD* VXM # CONVERT PROPER HBEAM FROM NB TO SM
038649,000638: 33,2635 30001 HBEAMNB,1
038650,000639: 33,2636 02222 XNBRAD
038651,000640: 33,2637 54325 PDDL SL # STORE IN PL AND SCALE HMEAS
038652,000641: 33,2640 03655 HMEAS
038653,000642: 33,2641 20207 6D
![]() |
Page 862 |
038655,000644: 33,2642 74205 DMP VXSC # SLANT RANGE AT 2(22), PUSH UP FOR HBEAM
038656,000645: 33,2643 26003 HSCAL # SLANT RANGE VECTOR AT 2(23) M
038657,000646: 33,2644 50206 PUSH DOT # PUSH NEG OF RADAR ALTITUDE BEAM VECTOR
038658,000647: 33,2645 03535 UNIT/R/ # ALTITUDE AT 2(24) METERS
038659,000648: 33,2646 65225 DSU PDDL # PUSH PARTIAL DELTA H, LOAD NEG OF BEAM Z
038660,000649: 33,2647 03763 HLRTIME
038661,000650: 33,2650 43342 SR1 DAD
038662,000651: 33,2651 03641 LAND +4
038663,000652: 33,2652 54221 BDSU SL # SCALE RANGE TO UNITS OF 2(18) METERS
038664,000653: 33,2653 03547 RN1 +4 # WHERE EXTRAPRV LEFT POSITION AT LRTIME
038665,000654: 33,2654 20207 6D
038666,000655: 33,2655 77404 BOVB EXIT
038667,000656: 33,2656 21674 SIGNMPAC # PICK UP NEGMAX UPON OVERFLOW
038668,000657:
038669,000658: 33,2657 40075 CS FLAGWRD1 # IS NOTERFLG SET (BY P66 OR V68)?
038670,000659: 33,2660 74741 MASK NOTERBIT
038671,000660: 33,2661 00006 EXTEND
038672,000661: 33,2662 12720 BZF TERSKIP # Y: SKIP TERRAIN BUT TRANSFER DELTA H
038673,000662:
038674,000663: 33,2663 35014 CA EBANK5 # N: PREPARE TO ACCESS TERRAIN TABLE
038675,000664: 33,2664 54003 TS EBANK
038676,000665: 33,2665 E5,1777 EBANK= END-E5
038677,000666:
038678,000667: 33,2665 34755 CA ZERO # INITIALIZE MINUS LAST ABSCISSA FOR
038679,000668: 33,2666 54142 TS TEM2 # TERLOOP WHICH ADDS THE CONTRIBUTIONS
038680,000669: 33,2667 34751 CA FOUR # OF FIVE TERRAIN SEGMENTS TO DELTA H
038681,000670: 33,2670 54145 TERLOOP TS TEM5
038682,000671:
038683,000672: 33,2671 30154 CA MPAC # PICK UP CURRENT RANGE (NEG BEFORE SITE)
038684,000673: 33,2672 54001 TS L
038685,000674: 33,2673 50145 INDEX TEM5
038686,000675: 33,2674 41513 CS ABSC0 # TERRAIN ABSCISSAE UNITS: 2(18) METERS
038687,000676: 33,2675 04616 TC BANKCALL # LIMIT GIVEN LIMITSUB MUST BE POSITIVE
038688,000677: 33,2676 61713 FCADR LIMITSUB # LIMIT |RANGE| <= |CURRENT ABSCISSA|
038689,000678: 33,2677 54144 TS TEM4 # SAVE TO COMPARE WITH CURRENT ABSCISSA
038690,000679:
038691,000680: 33,2700 60142 AD TEM2 # SUBTRACT LAST ABSCISSA
038692,000681: 33,2701 00006 EXTEND
038693,000682: 33,2702 50145 INDEX TEM5
038694,000683: 33,2703 71520 MP SLOPE0 # SLOPE UNITS: 2(6) RADIANS. RESOL: 3.9 MR
038695,000684:
038696,000685: 33,2704 50120 INDEX FIXLOC # ADD CONTRIBUTION OF SEGMENT TO YIELD
038697,000686: 33,2705 20005 DAS 4 # CORRECTED DELTAH IN UNITS 2(24) METERS
038698,000687:
038699,000688: 33,2706 30141 CA TEM1 # RETRIEVE MINUS CURR ABSC FROM LIMITSUB*
038700,000689: 33,2707 54142 TS TEM2 # STORE AS MINUS LAST ABSC FOR NEXT SEG
038701,000690:
038702,000691: # * NOTE: IF WE HAVE FLOWN BEYOND THE LANDING SITE BY MORE THAN THE
038703,000692: # LENGTH OF THE SEGMENT ADJACENT TO THE LANDING SITE, CA TEM1
038704,000693: # WILL RETRIEVE - INSTEAD OF MINUS THE CURRENT ABSCISSA -
![]() |
Page 863 |
038706,000695: # A ZERO OR POSITIVE REMAINDER OF THE DIVISION DONE BY LIMITSUB.
038707,000696: # THIS RETRIEVAL WILL CAUSE AN IMMEDIATE BRANCH TO TEREND,
038708,000697: # WHICH IS THE DESIRED RESULT. HOWEVER, FLYING PAST THE LANDING
038709,000698: # SITE IS IMPOSSIBLE EXCEPT IN P66 WHEN THE TERRAIN MODEL IS OFF.
038710,000699:
038711,000700: 33,2710 60144 AD TEM4 # HAS LM FLOWN PAST CURRENT ABSCISSA?
038712,000701: 33,2711 00006 EXTEND
038713,000702: 33,2712 12714 BZF +2
038714,000703: 33,2713 12716 TCF TEREND # Y: IGNORE FURTHER ABSCISSAE
038715,000704: 33,2714 10145 CCS TEM5 # N: IS CURRENT ABSCISSA THE LAST?
038716,000705: 33,2715 12670 TCF TERLOOP # N: REPEAT TERRAIN LOOP
038717,000706:
038718,000707: 33,2716 35016 TEREND CA EBANK7 # Y: RESTORE EBANK AND DEPART
038719,000708: 33,2717 54003 TS EBANK
038720,000709: 33,2720 E7,1777 EBANK= END-E7
038721,000710:
038722,000711: 33,2720 50120 TERSKIP INDEX FIXLOC # TRANSFER COMPLETED DELTA H HOME
038723,000712: 33,2721 52005 DXCH 4 # TO BE ACCESSED BY DISPLAYS, TELEMETRY,
038724,000713: 33,2722 53665 DXCH DELTAH # AND POSITION UPDATE WHICH FOLLOWS
038725,000714:
038726,000715: 33,2723 30120 CA FIXLOC # RESTORE PUSHDOWN POINTER TO ZERO
038727,000716: 33,2724 54166 TS PUSHLOC
038728,000717:
038729,000718: 33,2725 30107 CA FLGWRD11 # IS PSTHIBIT SET (BY HIGATASK)?
038730,000719: 33,2726 74741 MASK PSTHIBIT
038731,000720: 33,2727 00006 EXTEND
038732,000721: 33,2730 12750 BZF NOREASON # NO: DON'T DO REASONABILITY TEST YET
038733,000722:
038734,000723: 33,2731 06051 TC INTPRET # YES: DO REASONABILITY TEST
038735,000724: 33,2732 51545 DLOAD ABS
038736,000725: 33,2733 03665 DELTAH
038737,000726: 33,2734 52425 DSU SL3 # ABS(DELTAH) - DQFIX
038738,000727: 33,2735 02501 DELQFIX
038739,000728: 33,2736 77425 DSU EXIT # ABS(DELTAH) - (DQFIX + HLRT/8) AT 2(21)
038740,000729: 33,2737 03763 HLRTIME
038741,000730: 33,2740 25673 INCR LRLCTR
038742,000731: 33,2741 06735 TC BRANCH
038743,000732: 33,2742 13603 TCF HFAIL # DELTA H TOO LARGE
038744,000733: 33,2743 13603 TCF HFAIL # DELTA H TOO LARGE
038745,000734: 33,2744 05527 TC DOWNFLAG # RESET HFAIL FLAG
038746,000735: 33,2745 00247 ADRES HFAILFLG
038747,000736: 33,2746 05527 TC DOWNFLAG # TURN OFF ALT FAIL LAMP
038748,000737: 33,2747 00263 ADRES HFLSHFLG
038749,000738:
038750,000739: 33,2750 40107 NOREASON CS FLGWRD11 # IS UPDATE INHIBITED?
038751,000740: 33,2751 74744 MASK LRINHBIT
038752,000741: 33,2752 10000 CCS A
038753,000742: 33,2753 13024 TCF VMEASCHK # YES: TEST VELOCITY ANYWAY
038754,000743:
038755,000744: 33,2754 00006 EXTEND # RESCALE HLRTIME TO UNITS OF 2(28) METERS
![]() |
Page 864 |
038757,000746: 33,2755 31763 DCA HLRTIME
038758,000747: 33,2756 52155 DXCH MPAC
038759,000748: 33,2757 34741 CAF BIT11
038760,000749: 33,2760 07321 TC SHORTMP
038761,000750:
038762,000751: 33,2761 00006 EXTEND
038763,000752: 33,2762 31665 DCA DELTAH # STORE DELTAH IN MPAC AND
038764,000753: 33,2763 52155 DXCH MPAC # BRING HCALC INTO A,L
038765,000754: 33,2764 07556 TC ALSIGNAG
038766,000755: 33,2765 00006 EXTEND # IF HIGH PART OF HCALC IS NON ZERO, THEN
038767,000756: 33,2766 12770 BZF +2 # HCALC > HMAX,
038768,000757: 33,2767 13024 TCF VMEASCHK # SO UPDATE IS BYPASSED
038769,000758: 33,2770 54156 TS MPAC +2 # FOR LATER SHORTMP
038770,000759:
038771,000760: 33,2771 40001 CS L # -H AT 2(14)M
038772,000761: 33,2772 61420 AD LRHMAX # HMAX - H
038773,000762: 33,2773 00006 EXTEND
038774,000763: 33,2774 63024 BZMF VMEASCHK # IF H >HMAX, BYPASS UPDATE
038775,000764: 33,2775 00006 EXTEND
038776,000765: 33,2776 71421 MP LRWH # WH(HMAX - H)
038777,000766: 33,2777 00006 EXTEND
038778,000767: 33,3000 11420 DV LRHMAX # WH(1 - H/HMAX)
038779,000768: 33,3001 54135 TS MPTEMP
038780,000769: 33,3002 07325 TC SHORTMP2 # DELTAH (WH)(1 - H/HMAX) IN MPAC
038781,000770: 33,3003 06051 TC INTPRET # MODE IS DP FROM ABOVE
038782,000771: 33,3004 77752 SL1
038783,000772: 33,3005 53361 VXSC VAD
038784,000773: 33,3006 03535 UNIT/R/ # DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
038785,000774: 33,3007 03573 R1S
038786,000775: 33,3010 03657 STORE GNUR # CORRECTED R AT PIPTIME1 (NEW G1 WILL
038787,000776: 33,3011 77776 EXIT # BE COMPUTED AT COPYCYC1)
038788,000777:
038789,000778: 33,3012 06042 TC SERVCHNG
038790,000779:
038791,000780: 33,3013 00006 EXTEND
038792,000781: 33,3014 31657 DCA GNUR
038793,000782: 33,3015 53573 DXCH R1S
038794,000783: 33,3016 00006 EXTEND
038795,000784: 33,3017 31661 DCA GNUR +2
038796,000785: 33,3020 53575 DXCH R1S +2
038797,000786: 33,3021 00006 EXTEND
038798,000787: 33,3022 31663 DCA GNUR +4
038799,000788: 33,3023 53577 RUPDATED DXCH R1S +4
038800,000789:
038801,000790: # ********************************
038802,000791: # VELOCITY UPDATE
038803,000792: # ********************************
038804,000793:
038805,000794: 33,3024 06042 VMEASCHK TC SERVCHNG
038806,000795: 33,3025 40107 CS FLGWRD11
![]() |
Page 865 |
038808,000797: 33,3026 74745 MASK VELDABIT # IS V READING AVAILABLE?
038809,000798: 33,3027 10000 CCS A
038810,000799: 33,3030 13201 TCF VALTCHK # NO SEE IF V READING TO BE TAKEN
038811,000800:
038812,000801: 33,3031 06042 VELUPDAT TC SERVCHNG # YES
038813,000802: 33,3032 03661 TC POSINDEX # SET X1 ACCORDING TO ANTENNA POSITION
038814,000803:
038815,000804: 33,3033 41462 CS VSELECT
038816,000805: 33,3034 54001 TS L
038817,000806: 33,3035 26001 ADS L # -2 VSELECT IN L
038818,000807: 33,3036 60001 AD L
038819,000808: 33,3037 60001 AD L # -6 VSELECT IN A
038820,000809: 33,3040 50120 INDEX FIXLOC
038821,000810: 33,3041 20047 DAS X1 # X1 = -6 VSELECT + POS, X2 = -2 VSELECT
038822,000811:
038823,000812: 33,3042 30120 CA FIXLOC
038824,000813: 33,3043 54166 TS PUSHLOC # SET PD TO ZERO
038825,000814:
038826,000815: 33,3044 06051 TC INTPRET
038827,000816: 33,3045 61373 VLOAD* VXM # CONVERT PROPER VBEAM FROM NB TO SM
038828,000817: 33,3046 30007 VZBEAMNB,1
038829,000818: 33,3047 02222 XNBRAD
038830,000819: 33,3050 54325 PDDL SL # STORE IN PD 0-5
038831,000820: 33,3051 03653 VMEAS # LOAD VELOCITY MEASUREMENT
038832,000821: 33,3052 20215 12D
038833,000822: 33,3053 63203 DMP* PDVL # SCALE TO M/CS AT 2(6)
038834,000823: 33,3054 51772 VZSCAL,2 # AND STORE IN PD 6-7
038835,000824: 33,3055 03551 VN1 # VELOCITY AT TIME OF READING
038836,000825: 33,3056 52352 VSL2 VSU # SCALE TO UNITS OF 2(5) M/CS AND
038837,000826: 33,3057 03710 VSURFACE # SUBTRACT SURFACE VELOCITY
038838,000827: 33,3060 51406 PUSH ABVAL # STORE IN PD
038839,000828: 33,3061 43202 SR4 DAD # ABS(VM)/8 + VELBIAS AT 2(6)
038840,000829: 33,3062 02401 VELBIAS
038841,000830: 33,3063 24025 STOVL 20D # STORE IN 20D AND PICK UP VM
038842,000831: 33,3064 44241 DOT BDSU # V(EST) AT 2(6)
038843,000832: 33,3065 00001 0 # DELTAV = VMEAS - V(EST)
038844,000833: 33,3066 51406 PUSH ABS
038845,000834: 33,3067 77425 DSU EXIT # ABS(DV) - (7.5 + ABS(VM)/8))
038846,000835: 33,3070 00025 20D
038847,000836:
038848,000837: 33,3071 25675 INCR LRMCTR
038849,000838: 33,3072 06735 TC BRANCH
038850,000839: 33,3073 13622 TCF VFAIL # DELTA V TOO LARGE ALARM
038851,000840: 33,3074 13622 TCF VFAIL # DELTA V TOO LARGE ALARM
038852,000841:
038853,000842: 33,3075 05527 TC DOWNFLAG # RESET HFAIL FLAG
038854,000843: 33,3076 00246 ADRES VFAILFLG
038855,000844: 33,3077 05527 TC DOWNFLAG # TURN OFF VEL FAIL LAMP
038856,000845: 33,3100 00262 ADRES VFLSHFLG
038857,000846:
![]() |
Page 866 |
038859,000848: 33,3101 30107 CA FLGWRD11
038860,000849: 33,3102 74740 MASK VXINHBIT
038861,000850: 33,3103 00006 EXTEND
038862,000851: 33,3104 13113 BZF VUPDAT # IF VX INHIBIT RESET, INCORPORATE DATA.
038863,000852:
038864,000853: 33,3105 05527 TC DOWNFLAG
038865,000854: 33,3106 00250 ADRES VXINH # RESET VX INHIBIT
038866,000855:
038867,000856: 33,3107 31462 CA VSELECT
038868,000857: 33,3110 67760 AD NEG2 # IF VSELECT = 2 (X AXIS),
038869,000858: 33,3111 00006 EXTEND # BYPASS UPDATE
038870,000859: 33,3112 13201 BZF ENDVDAT
038871,000860:
038872,000861: 33,3113 40107 VUPDAT CS FLGWRD11
038873,000862: 33,3114 74744 MASK LRINHBIT
038874,000863: 33,3115 10000 CCS A
038875,000864: 33,3116 13201 TCF VALTCHK # UPDATE INHIBITED
038876,000865:
038877,000866: 33,3117 54155 TS MPAC +1
038878,000867:
038879,000868: 33,3120 31471 CA ABVEL # STORE E7 ERASABLES NEEDED IN TEMPS
038880,000869: 33,3121 54130 TS ABVEL*
038881,000870: 33,3122 31462 CA VSELECT
038882,000871: 33,3123 54131 TS VSELECT*
038883,000872: 33,3124 35014 CA EBANK5
038884,000873: 33,3125 54003 TS EBANK # CHANGE EBANKS
038885,000874:
038886,000875: 33,3126 E5,1503 EBANK= LRVF
038887,000876: 33,3126 41503 CS LRVF
038888,000877: 33,3127 60130 AD ABVEL* # IF V < VF, USE WVF
038889,000878: 33,3130 00006 EXTEND
038890,000879: 33,3131 63144 BZMF USEVF
038891,000880:
038892,000881: 33,3132 40130 CS ABVEL*
038893,000882: 33,3133 61502 AD LRVMAX # VMAX - V
038894,000883: 33,3134 00006 EXTEND
038895,000884: 33,3135 63147 BZMF WSTOR -1 # IF V > VMAX, W = 0
038896,000885:
038897,000886: 33,3136 00006 EXTEND
038898,000887: 33,3137 50131 INDEX VSELECT*
038899,000888: 33,3140 71504 MP LRWVZ # WV(VMAX - V)
038900,000889:
038901,000890: 33,3141 00006 EXTEND
038902,000891: 33,3142 11502 DV LRVMAX # WV( 1 - V/VMAX )
038903,000892: 33,3143 13150 TCF WSTOR
038904,000893:
038905,000894: 33,3144 50131 USEVF INDEX VSELECT*
038906,000895: 33,3145 31507 CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
038907,000896: 33,3146 13150 TCF WSTOR
038908,000897:
![]() |
Page 867 |
038910,000899: 33,3147 34755 -1 CA ZERO
038911,000900: 33,3150 54154 WSTOR TS MPAC
038912,000901: 33,3151 44745 CS BIT7 # IS CURRENT PROGRAM P66?
038913,000902: 33,3152 61010 AD MODREG
038914,000903: 33,3153 00006 EXTEND
038915,000904: 33,3154 63157 BZMF +3 # NO
038916,000905:
038917,000906: 33,3155 31512 CA LRWVFF # YES
038918,000907: 33,3156 54154 TS MPAC
038919,000908:
038920,000909: 33,3157 35016 +3 CA EBANK7
038921,000910: 33,3160 54003 TS EBANK # CHANGE EBANKS
038922,000911:
038923,000912: 33,3161 E7,1471 EBANK= ABVEL
038924,000913: 33,3161 06051 TC INTPRET
038925,000914: 33,3162 74205 DMP VXSC # W(DELTA V)(VBEAMSM) UP 6-7, 0-5
038926,000915: 33,3163 77655 VAD
038927,000916: 33,3164 03601 V1S # ADD WEIGHTED DELTA V TO VELOCITY
038928,000917: 33,3165 03657 STORE GNUV # CORRECTED V AT PIPTIME1
038929,000918: 33,3166 77776 EXIT
038930,000919:
038931,000920: 33,3167 06042 TC SERVCHNG
038932,000921:
038933,000922: 33,3170 00006 EXTEND
038934,000923: 33,3171 31657 DCA GNUV
038935,000924: 33,3172 53601 DXCH V1S
038936,000925: 33,3173 00006 EXTEND
038937,000926: 33,3174 31661 DCA GNUV +2
038938,000927: 33,3175 53603 DXCH V1S +2
038939,000928: 33,3176 00006 EXTEND
038940,000929: 33,3177 31663 DCA GNUV +4
038941,000930: 33,3200 53605 VUPDATED DXCH V1S +4
038942,000931:
038943,000932: 33,3201 33,3201 ENDVDAT = VALTCHK
038944,000933:
038945,000934: 33,3201 06042 VALTCHK TC SERVCHNG # DO NOT REPEAT ABOVE
038946,000935:
038947,000936: 33,3202 40107 HIGATCHK CS FLGWRD11 # IS PSTHIBIT SET?
038948,000937: 33,3203 74741 MASK PSTHIBIT
038949,000938: 33,3204 00006 EXTEND
038950,000939: 33,3205 13222 BZF CONTSERV # YES
038951,000940:
038952,000941: 33,3206 31642 CA TTF/8 # NO
038953,000942: 33,3207 61427 AD RPCRTIME
038954,000943: 33,3210 00006 EXTEND
038955,000944: 33,3211 63222 BZMF CONTSERV
038956,000945:
038957,000946: 33,3212 34741 CA EBANK4
038958,000947: 33,3213 56003 XCH EBANK
038959,000948: 33,3214 54001 TS L
038960,000949:
![]() |
Page 868 |
038962,000951: 33,3215 E4,1536 EBANK= XNBPIP
038963,000952: 33,3215 41536 CS XNBPIP
038964,000953: 33,3216 E7,1513 EBANK= DVCNTR
038965,000954: 33,3216 22003 LXCH EBANK
038966,000955: 33,3217 61430 AD RPCRTQSW
038967,000956: 33,3220 00006 EXTEND
038968,000957: 33,3221 63645 BZMF HIGATASK
038969,000958:
038970,000959: 33,3222 06042 CONTSERV TC SERVCHNG
038971,000960: 33,3223 00004 INHINT
038972,000961: 33,3224 43761 CS BITS4-7
038973,000962: 33,3225 70107 MASK FLGWRD11 # CLEAR LR MEASUREMENT MADE DISCRETES.
038974,000963: 33,3226 54107 TS FLGWRD11
038975,000964:
038976,000965: # NOTE THAT R12READ (AND RDGIMS) IS NOT RESTART PROTECTED. IF THERE SHOULD BE A RESTART, THIS
038977,000966: # READING SIMPLY IS NOT MADE.
038978,000967:
038979,000968: 33,3227 34753 CAF BIT1 # NOW SAFE TO MAKE A READING
038980,000969: 33,3230 05214 TC WAITLIST
038981,000970: 33,3231 E7,1462 EBANK= VSELECT
038982,000971: 33,3231 03140 52067 2CADR R12READ
038983,000972:
038984,000973:
038985,000974: # (FALL THROUGH TO COPYCYC1)
038986,000975:
038987,000976: # ****************************************************************************************************************
038988,000977: # COPYCYCLE CODING
038989,000978: # ****************************************************************************************************************
038990,000979:
038991,000980: 33,3233 06042 COPYCYC1 TC SERVCHNG
038992,000981:
038993,000982: 33,3234 30120 CA FIXLOC # BATTEN DOWN THE HATCHES
038994,000983: 33,3235 54166 TS PUSHLOC
038995,000984:
038996,000985: 33,3236 06051 TC INTPRET
038997,000986: 33,3237 45175 VLOAD CALL # RECOMPUTE G1 IN CASE LR UPDATED R1S
038998,000987: 33,3240 03573 R1S
038999,000988: 33,3241 71743 MUNGRAV
039000,000989: 33,3242 45345 DLOAD DSU
039001,000990: 33,3243 00045 36D
039002,000991: 33,3244 02324 /LAND/
039003,000992: 33,3245 03533 STORE HCALC # ALTITUDE IN UNITS OF 2(24) METERS
039004,000993: 33,3246 63261 SL PDVL # STORE HCALCLAD AT PD 0
039005,000994: 33,3247 20212 9D
039006,000995: 33,3250 03535 UNIT/R/
039007,000996: 33,3251 51435 VXV ABVAL
039008,000997: 33,3252 03601 V1S
039009,000998: 33,3253 56316 DSQ DDV
039010,000999: 33,3254 00045 36D
039011,001000: 33,3255 63352 SL1 PDVL # STORE DALTRATE AT PD 2
![]() |
Page 869 |
039013,001002: 33,3256 03535 UNIT/R/
039014,001003: 33,3257 72441 DOT SL1
039015,001004: 33,3260 03601 V1S
039016,001005: 33,3261 03474 STORE HDOTDISP # HDOT IN UNITS OF 2(7) M/CS
039017,001006: 33,3262 63312 SL2 PDVL # STORE HDOTLAD AT PD 4
039018,001007: 33,3263 02316 WM
039019,001008: 33,3264 72435 VXV VSL2
039020,001009: 33,3265 03573 R1S
039021,001010: 33,3266 27710 STOVL VSURFACE # SURFACE VELOCITY IN UNITS OF 2(5) M/CS
039022,001011: 33,3267 03573 R1S # (NO NEED TO LOAD VSURFACE UNDER INHINT
039023,001012: 33,3270 60505 VXM VSR4 # BECAUSE IT CHANGES ONLY VERY SLOWLY)
039024,001013: 33,3271 01732 REFSMMAT
039025,001014: 33,3272 27543 STOVL RN1 # POSITION IN REFERENCE COORDINATES
039026,001015: 33,3273 03601 V1S
039027,001016: 33,3274 76505 VXM VSL1
039028,001017: 33,3275 01732 REFSMMAT
039029,001018: 33,3276 27551 STOVL VN1 # VELOCITY IN REFERENCE COORDINATES
039030,001019: 33,3277 03561 G1
039031,001020: 33,3300 77532 VSL3 EXIT # GRAVACC IN MPAC UNITS OF 2(-9) M/CS/CS
039032,001021:
039033,001022: 33,3301 00004 INHINT # INHINT TO PREVENT DOWNRUPT OR QUARTASK
039034,001023:
039035,001024: 33,3302 50120 INDEX FIXLOC # FETCH HCALCLAD FROM PD 0
039036,001025: 33,3303 52001 DXCH 0
039037,001026: 33,3304 53716 DXCH HCALCLAD # ALTITUDE IN UNITS OF 2(15) METERS
039038,001027:
039039,001028: 33,3305 50120 INDEX FIXLOC # FETCH DALTRATE FROM PD 2
039040,001029: 33,3306 52003 DXCH 2
039041,001030: 33,3307 55721 TS DALTRATE # DALTRATE IN UNITS OF 2(-9) M/CS/CS
039042,001031:
039043,001032: 33,3310 50120 INDEX FIXLOC # FETCH HDOTLAD FROM PD 4
039044,001033: 33,3311 52005 DXCH 4
039045,001034: 33,3312 53720 DXCH HDOTLAD # HDOTLAD IN UNITS OF 2(5) M/CS
039046,001035:
039047,001036: 33,3313 30154 CA MPAC
039048,001037: 33,3314 55701 TS GRAVACCX # GRAVACCX IN UNITS OF 2(-9) M/CS/CS
039049,001038: 33,3315 30157 CA MPAC +3
039050,001039: 33,3316 55702 TS GRAVACCY # GRAVACCY IN UNITS OF 2(-9) M/CS/CS
039051,001040: 33,3317 30161 CA MPAC +5
039052,001041: 33,3320 55703 TS GRAVACCZ # GRAVACCZ IN UNITS OF 2(-9) M/CS/CS
039053,001042:
039054,001043: 33,3321 00006 EXTEND
039055,001044: 33,3322 31535 DCA UNIT/R/
039056,001045: 33,3323 20001 DDOUBL # SCALE FULL-SIZE BUT WATCH FOR OVERFLOW
039057,001046: 33,3324 54000 OVSK
039058,001047: 33,3325 13327 TCF +2
039059,001048: 33,3326 34733 CAF POSMAX
039060,001049: 33,3327 57722 +2 XCH RUNITX
039061,001050:
039062,001051: 33,3330 00006 EXTEND
![]() |
Page 870 |
039064,001053: 33,3331 31537 DCA UNIT/R/ +2
039065,001054: 33,3332 20001 DDOUBL # SCALE FULL-SIZE, OVERFLOW MOST UNLIKELY
039066,001055: 33,3333 57723 XCH RUNITY
039067,001056:
039068,001057: 33,3334 00006 EXTEND
039069,001058: 33,3335 31541 DCA UNIT/R/ +4
039070,001059: 33,3336 20001 DDOUBL # SCALE FULL-SIZE, OVERFLOW MOST UNLIKELY
039071,001060: 33,3337 57724 XCH RUNITZ
039072,001061:
039073,001062: 33,3340 00006 EXTEND
039074,001063: 33,3341 31573 DCA R1S
039075,001064: 33,3342 53517 DXCH R
039076,001065: 33,3343 00006 EXTEND
039077,001066: 33,3344 31575 DCA R1S +2
039078,001067: 33,3345 53521 DXCH R +2
039079,001068: 33,3346 00006 EXTEND
039080,001069: 33,3347 31577 DCA R1S +4
039081,001070: 33,3350 53523 DXCH R +4
039082,001071: 33,3351 00006 EXTEND
039083,001072: 33,3352 31601 DCA V1S
039084,001073: 33,3353 53525 DXCH V
039085,001074: 33,3354 00006 EXTEND
039086,001075: 33,3355 31603 DCA V1S +2
039087,001076: 33,3356 53527 DXCH V +2
039088,001077: 33,3357 00006 EXTEND
039089,001078: 33,3360 31605 DCA V1S +4
039090,001079: 33,3361 53531 DXCH V +4
039091,001080:
039092,001081: 33,3362 40103 CS FLAGWRD7 # INDICATE TO LANADISP THAT THE NUMBERS IT
039093,001082: 33,3363 74741 MASK SWANDBIT # NEEDS FROM SERVICER HAVE BEEN PROVIDED
039094,001083: 33,3364 26103 ADS FLAGWRD7
039095,001084:
039096,001085: 33,3365 00004 COPYCYCL INHINT # ENTER HERE FROM CALCRVG
039097,001086:
039098,001087: 33,3366 31566 CA PGUIDE1
039099,001088: 33,3367 55355 TS SERVDURN # FOR DOWNLINK
039100,001089:
039101,001090: 33,3370 31157 CA PIPATMPX
039102,001091: 33,3371 55254 TS PIPAXOLD
039103,001092: 33,3372 31160 CA PIPATMPY
039104,001093: 33,3373 55255 TS PIPAYOLD
039105,001094: 33,3374 31161 CA PIPATMPZ
039106,001095: 33,3375 55256 TS PIPAZOLD
039107,001096:
039108,001097: 33,3376 00006 EXTEND
039109,001098: 33,3377 31174 DCA DVTEMP
039110,001099: 33,3400 53510 DXCH DVTOTAL
039111,001100:
039112,001101: 33,3401 03673 TC COPYCYC # COPY RN1 - MASS1 INTO RN - MASS
039113,001102:
![]() |
Page 871 |
039115,001104: 33,3402 06042 TC SERVCHNG
039116,001105:
039117,001106: # (FALL THROUGH TO DVMON, STILL UNDER INHINT)
039118,001107:
039119,001108: # ****************************************************************************************************************
039120,001109: # DVMON
039121,001110: # ****************************************************************************************************************
039122,001111:
039123,001112: 33,3403 44741 DVMON CS STEERBIT # STEERSW IS RESET IF THRUST IS ADEQUATE
039124,001113: 33,3404 70076 MASK FLAGWRD2
039125,001114: 33,3405 54076 TS FLAGWRD2
039126,001115:
039127,001116: 33,3406 34745 CAF IDLEFBIT # IS THE IDLE FLAG SET?
039128,001117: 33,3407 70103 MASK FLAGWRD7
039129,001118: 33,3410 10000 CCS A
039130,001119: 33,3411 13444 TCF NODVMON1 # IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
039131,001120:
039132,001121: 33,3412 40102 CS FLAGWRD6
039133,001122: 33,3413 74752 MASK AUXFLBIT
039134,001123: 33,3414 10000 CCS A
039135,001124: 33,3415 13450 TCF NODVMON2 # AUXFLAG = 0, HENCE SET AUXFLAG TO 1.
039136,001125:
039137,001126: 33,3416 41251 CS DVTHRUSH # DOES THRUST EXCEED CRITERION DVTHRUSH?
039138,001127: 33,3417 61250 AD ABDVACC
039139,001128: 33,3420 00006 EXTEND
039140,001129: 33,3421 63454 BZMF LOTHRUST # NO
039141,001130:
039142,001131: 33,3422 40076 CS FLAGWRD2 # YES: SET STEERSW
039143,001132: 33,3423 74741 MASK STEERBIT
039144,001133: 33,3424 26076 ADS FLAGWRD2
039145,001134:
039146,001135: 33,3425 34753 DVCNTSET CAF ONE # ALLOW TWO PASSES MAXIMUM NOW THAT
039147,001136: 33,3426 55513 TS DVCNTR # THRUST HAS BEEN DETECTED.
039148,001137:
039149,001138: 33,3427 30106 CA FLGWRD10 # BRANCH IF APSFLAG IS SET.
039150,001139: 33,3430 74737 MASK APSFLBIT
039151,001140: 33,3431 10000 CCS A
039152,001141: 33,3432 13476 TCF USEJETS
039153,001142:
039154,001143: 33,3433 34743 CA BIT9 # CHECK GIMBAL FAIL BIT
039155,001144: 33,3434 00006 EXTEND
039156,001145: 33,3435 02032 RAND CHAN32
039157,001146: 33,3436 00006 EXTEND
039158,001147: 33,3437 13476 BZF USEJETS
039159,001148:
039160,001149: 33,3440 44736 USEGTS CS USEQRJTS
039161,001150: 33,3441 70111 MASK DAPBOOLS
039162,001151: 33,3442 54111 TS DAPBOOLS
039163,001152: 33,3443 13501 TCF DVMONEND
039164,001153:
![]() |
Page 872 |
039166,001155: 33,3444 44752 NODVMON1 CS AUXFLBIT # SET AUXFLAG TO 0.
039167,001156: 33,3445 70102 MASK FLAGWRD6
039168,001157: 33,3446 54102 TS FLAGWRD6
039169,001158: 33,3447 13476 TCF USEJETS
039170,001159:
039171,001160: 33,3450 40102 NODVMON2 CS FLAGWRD6 # SET AUXFLAG TO 1.
039172,001161: 33,3451 74752 MASK AUXFLBIT
039173,001162: 33,3452 26102 ADS FLAGWRD6
039174,001163: 33,3453 13476 TCF USEJETS
039175,001164:
039176,001165: 33,3454 06042 LOTHRUST TC SERVCHNG
039177,001166: 33,3455 11513 CCS DVCNTR
039178,001167: 33,3456 13470 TCF DECCNTR
039179,001168:
039180,001169: 33,3457 10760 CCS PHASE4 # COMFAIL JOB ACTIVE?
039181,001170: 33,3460 13501 TCF DVMONEND
039182,001171:
039183,001172: 33,3461 05364 TC PHASCHNG # 4.37SPOT FOR COMFAIL.
039184,001173: 33,3462 00374 OCT 00374
039185,001174:
039186,001175: 33,3463 37725 CAF PRIO25
039187,001176: 33,3464 05072 TC NOVAC
039188,001177: 33,3465 E7,1455 EBANK= WHICH
039189,001178: 33,3465 02570 74067 2CADR COMFAIL
039190,001179:
039191,001180: 33,3467 13501 TCF DVMONEND
039192,001181:
039193,001182: 33,3470 55570 DECCNTR TS DVCNTR1
039194,001183: 33,3471 06042 TC SERVCHNG
039195,001184: 33,3472 31570 CA DVCNTR1
039196,001185: 33,3473 55513 TS DVCNTR
039197,001186: 33,3474 04674 TC IBNKCALL # IF THRUST IS LOW, NO STEERING IS DONE
039198,001187: 33,3475 40166 CADR STOPRATE # AND THE DESIRED RATES ARE SET TO ZERO.
039199,001188: 33,3476 40111 USEJETS CS DAPBOOLS
039200,001189: 33,3477 74736 MASK USEQRJTS
039201,001190: 33,3500 26111 ADS DAPBOOLS
039202,001191: 33,3501 00003 DVMONEND RELINT
039203,001192:
039204,001193: # ****************************************************************************************************************
039205,001194: # EXIT TO GUIDANCE EQUATIONS
039206,001195: # ****************************************************************************************************************
039207,001196:
039208,001197: # RULES FOR USERS OF SERVICER:
039209,001198:
039210,001199: # DO NOT GO TO ENDOFJOB. RETURN TO THE START OF SERVICER AT PIPCYCLE. INSURE THAT ALL BRANCHES LEAD
039211,001200: # EVENTUALLY TO PIPCYCLE.
039212,001201:
039213,001202: # USE GROUP 5 AS RESTART GROUP AND USE A "TC SERVCHNG" (WHICH IS IN FIXED-FIXED) WHENEVER POSSIBLE
039214,001203: # FOR RESTART PROTECTION.
039215,001204:
![]() |
Page 873 |
039217,001206: # AVOID CHANGING PRIORITY EXCEPT BEFORE CALLING DISPLAY ROUTINES WHICH WILL SET UP OFF-LINE JOBS.
039218,001207: # IN THIS CASE RAISE PRIORITY TO 23 AND RESTORE TO 20 AS SOON AS POSSIBLE.
039219,001208:
039220,001209: 33,3502 04616 TC BANKCALL
039221,001210: 33,3503 40463 CADR 1/ACCS
039222,001211:
039223,001212: 33,3504 30167 CA PRIORITY
039224,001213: 33,3505 75004 MASK LOW9
039225,001214: 33,3506 54166 TS PUSHLOC
039226,001215: 33,3507 22007 ZL
039227,001216: 33,3510 52121 DXCH FIXLOC # FIXLOC AND OVFIND
039228,001217:
039229,001218: 33,3511 06042 TC SERVCHNG
039230,001219:
039231,001220: 33,3512 05515 TC UPFLAG # SET SERVOVER FLAG TO INDICATE THAT
039232,001221: 33,3513 00043 ADRES SERVOVER # SERVICER IS THROUGH FOR THIS PASS
039233,001222:
039234,001223: 33,3514 00006 SERVOUT EXTEND # EXIT TO SELECTED ROUTINE WHETHER THERE
039235,001224: 33,3515 31253 DCA AVGEXIT # IS THRUST OR NOT. STEERSW WILL
039236,001225: 33,3516 52006 DXCH Z # CONVEY THIS INFORMATION.
039237,001226:
039238,001227: # ****************************************************************************************************************
039239,001228: # COME HERE VIA AVGEXIT ON LAST SERVICER PASS
039240,001229: # ****************************************************************************************************************
039241,001230:
039242,001231: 33,3517 31234 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
039243,001232: 33,3520 55074 TS 1/PIPADT # SET UP FREE FALL GYRO COMPENSATION.
039244,001233:
039245,001234: 33,3521 05515 TC UPFLAG # SET DRIFT FLAG.
039246,001235: 33,3522 00036 ADRES DRIFTFLG
039247,001236:
039248,001237: 33,3523 04616 TC BANKCALL
039249,001238: 33,3524 17255 CADR PIPFREE
039250,001239:
039251,001240: 33,3525 44743 CS BIT9
039252,001241: 33,3526 00006 EXTEND
039253,001242: 33,3527 03011 WAND DSALMOUT
039254,001243:
039255,001244: 33,3530 05340 TC 2PHSCHNG
039256,001245: 33,3531 00005 OCT 5 # GROUP 5 OFF
039257,001246: 33,3532 05022 OCT 05022 # GROUP 2 ON
039258,001247: 33,3533 20000 OCT 20000
039259,001248:
039260,001249: 33,3534 06051 TC INTPRET
039261,001250: 33,3535 77614 CLEAR
039262,001251: 33,3536 03664 SWANDISP # SHUT OFF R10 WHEN SERVICER ENDS.
039263,001252: 33,3537 45014 CLEAR CALL # RESET MUNFLAG.
039264,001253: 33,3540 03267 MUNFLAG
039265,001254: 33,3541 27463 AVETOMID
039266,001255: 33,3542 77414 CLEAR EXIT
![]() |
Page 874 |
039268,001257: 33,3543 03671 V37FLAG
039269,001258: 33,3544 04635 AVERTRN TC POSTJUMP
039270,001259: 33,3545 10122 CADR V37RET
039271,001260:
039272,001261: 33,3546 33,3544 OUTGOAVE = AVERTRN
039273,001262:
039274,001263: # ****************************************************************************************************************
039275,001264: # COME HERE FROM POODOO TO CURTAIL BUT NOT HALT SERVICER
039276,001265: # ****************************************************************************************************************
039277,001266:
039278,001267: 33,3546 00006 SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
039279,001268: 33,3547 33737 DCA CYCLEADR
039280,001269: 33,3550 53253 DXCH AVGEXIT
039281,001270:
039282,001271: 33,3551 40103 CS FLAGWRD7 # DISCONNECT THE DELTA-V MONITOR
039283,001272: 33,3552 74745 MASK IDLEFBIT
039284,001273: 33,3553 26103 ADS FLAGWRD7
039285,001274:
039286,001275: 33,3554 34735 CAF LRBYBIT # TERMINATE R12 IF RUNNING.
039287,001276: 33,3555 54107 TS FLGWRD11
039288,001277:
039289,001278: 33,3556 00006 EXTEND
039290,001279: 33,3557 34755 DCA NEG0
039291,001280: 33,3560 52752 DXCH -PHASE1
039292,001281:
039293,001282: 33,3561 30102 CA FLAGWRD6 # DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
039294,001283: 33,3562 74744 MASK MUNFLBIT
039295,001284: 33,3563 10000 CCS A
039296,001285: 33,3564 13570 TCF +4
039297,001286:
039298,001287: 33,3565 00006 EXTEND
039299,001288: 33,3566 34755 DCA NEG0
039300,001289: 33,3567 52754 DXCH -PHASE2
039301,001290:
039302,001291: 33,3570 00006 +4 EXTEND
039303,001292: 33,3571 34755 DCA NEG0
039304,001293: 33,3572 52756 DXCH -PHASE3
039305,001294:
039306,001295: 33,3573 00006 EXTEND
039307,001296: 33,3574 34755 DCA NEG0
039308,001297: 33,3575 52764 DXCH -PHASE6
039309,001298:
039310,001299: 33,3576 34764 CAF OCT33 # 4.33SPOT FOR GOPOOFIX
039311,001300: 33,3577 54001 TS L
039312,001301: 33,3600 40000 COM
039313,001302: 33,3601 52760 DXCH -PHASE4
039314,001303:
039315,001304: 33,3602 15645 TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
039316,001305: # TO GOTOPOOH WHILE SERVICER CONTINUES TO
039317,001306: # RUN, ALBEIT IN A GROUND STATE WHERE
![]() |
Page 875 |
039319,001308: # ONLY STATE-VECTOR DEPENDENT FUNCTIONS
039320,001309: # ARE MAINTAINED.
039321,001310:
039322,001311: # ****************************************************************************************************************
039323,001312: # MISCELLANEOUS OFF-LINE LANDING RADAR TASKS AND JOBS
039324,001313: # ****************************************************************************************************************
039325,001314:
039326,001315: # ********************************
039327,001316: # HFAIL AND VFAIL
039328,001317: # ********************************
039329,001318:
039330,001319: # ENTER HFAIL FROM MAIN-LINE SERVICER IF ALTITUDE REASONABLENESS TEST IS FAILED.
039331,001320:
039332,001321: 33,3603 05515 HFAIL TC UPFLAG # SET HFAIL FLAG FOR DOWNLINK
039333,001322: 33,3604 00247 ADRES HFAILFLG
039334,001323: 33,3605 41674 CS LRRCTR
039335,001324: 33,3606 00006 EXTEND
039336,001325: 33,3607 13617 BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
039337,001326: 33,3610 61673 AD LRLCTR
039338,001327: 33,3611 77757 MASK NEG3
039339,001328: 33,3612 00006 EXTEND # IF L-R LT 4, DO NOT TURN ON TRK FAIL
039340,001329: 33,3613 13615 BZF +2
039341,001330: 33,3614 13617 TCF NORLITE
039342,001331:
039343,001332: 33,3615 05515 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
039344,001333: 33,3616 00263 ADRES HFLSHFLG
039345,001334:
039346,001335: 33,3617 31673 NORLITE CA LRLCTR
039347,001336: 33,3620 55674 TS LRRCTR # SET R = L
039348,001337:
039349,001338: 33,3621 13024 TCF VMEASCHK
039350,001339:
039351,001340:
039352,001341: # ENTER VFAIL FROM MAIN-LINE SERVICER IF VELOCITY REASONABLENESS TEST IS FAILED.
039353,001342:
039354,001343: 33,3622 05515 VFAIL TC UPFLAG # SET VFAIL FLAG FOR DOWNLINK
039355,001344: 33,3623 00246 ADRES VFAILFLG
039356,001345: 33,3624 41676 CS LRSCTR
039357,001346: 33,3625 00006 EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
039358,001347: 33,3626 13636 BZF NOLITE
039359,001348: 33,3627 61675 AD LRMCTR # M-S
039360,001349: 33,3630 77757 MASK NEG3 # TEST FOR M-S > 3
039361,001350: 33,3631 00006 EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE
039362,001351: 33,3632 13634 BZF +2 # LAST FOUR V READINGS WERE BAD,
039363,001352: 33,3633 13636 TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
039364,001353:
![]() |
The following two instructions are surrounded by drawn-in parentheses. |
039366,001355: 33,3634 05515 TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
039367,001356: 33,3635 00262 ADRES VFLSHFLG
039368,001357:
039369,001358: 33,3636 31675 NOLITE CA LRMCTR # SET S = M
![]() |
Page 876 |
039371,001360: 33,3637 55676 TS LRSCTR
039372,001361:
039373,001362: 33,3640 11462 CCS VSELECT # TEST FOR Z COMPONENT
039374,001363: 33,3641 13201 TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT
039375,001364:
039376,001365: 33,3642 05515 TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X
039377,001366: 33,3643 00250 ADRES VXINH # COMPONENT,AS ERROR MAY BE DUE TO CROSS
039378,001367: 33,3644 13201 TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS
039379,001368:
039380,001369: # ********************************
039381,001370: # HIGATASK
039382,001371: # ********************************
039383,001372:
039384,001373: # HIGATASK IS ENTERED APPROXIMATELY 6 SECONDS BEFORE HIGATE IN THE DESCENT PHASE. HIGATASK SETS THE
039385,001374: # HIGATE FLAG (BIT11) AND THE NO LR READ FLAG (BIT10) OF LRSTAT ALIAS FLAGWORD 11. THE HIGATJOB IS SET UP TO
039386,001375: # REPOSITION THE LR ANTENNA FROM POSITION 1 TO POSITION 2. IF THE REPOSITIONING IS SUCESSFUL THE ALT BEAM AND
039387,001376: # VELOCITY BEAMS ARE TRANSFORMED TO THE NEW ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE. THIS
039388,001377: # TRANSFORMATION IS PERFORMED AT SETPOS2.
039389,001378:
039390,001379: 33,3645 40107 HIGATASK CS FLGWRD11 # SET PSTHIGAT AND NOLRREAD FLAGS
039391,001380: 33,3646 75015 MASK PRIO3
039392,001381: 33,3647 26107 ADS FLGWRD11
039393,001382:
039394,001383: 33,3650 10752 CCS PHASE1 # AVOID MULTIPLE HIGATJOBS
039395,001384: 33,3651 13222 TCF CONTSERV
039396,001385:
039397,001386: 33,3652 05364 TC PHASCHNG # 1.5SPOT FOR HIGATJOB
039398,001387: 33,3653 00051 OCT 51
039399,001388:
039400,001389: 33,3654 37732 CA PRIO32
039401,001390: 33,3655 05105 TC FINDVAC # COULD IT BE NOVAC NOW THAT SETPOS2 OUT
039402,001391: 33,3656 E7,1654 EBANK= HMEAS
039403,001392: 33,3656 03554 76067 2CADR HIGATJOB
039404,001393:
039405,001394:
039406,001395: 33,3660 13222 TCF CONTSERV
039407,001396:
039408,001397: # ********************************
039409,001398: # POSINDEX
039410,001399: # ********************************
039411,001400:
039412,001401: # THIS ROUTINE SETS X1 ACCORDING TO CURRENT ANTENNA POSITION AS INDICATED BY LRPOS. IT ALSO ZEROES X2
039413,001402: # AND THE PUSHDOWN POINTER. IT IS CALLED BY POSUPDAT AND VELUPDAT.
039414,001403:
039415,001404: 33,3661 30120 POSINDEX CA FIXLOC # ZERO PUSHDOWN POINTER
039416,001405: 33,3662 54166 TS PUSHLOC
039417,001406: 33,3663 34753 CAF BIT1
039418,001407: 33,3664 71650 MASK LRPOS # NOTE: LRPOS = 1 FOR POS 2 AND VICE VERSA
039419,001408: 33,3665 10000 CCS A
039420,001409: 33,3666 44763 CS OCT30 # POS 2: INDEX = -24D
![]() |
Page 877 |
039422,001411: 33,3667 22007 ZL # POS 1: INDEX = 0; X2 = 0 FOR BOTH
039423,001412: 33,3670 50120 INDEX FIXLOC
039424,001413: 33,3671 52047 DXCH X1 # SET X1 AND X2
039425,001414: 33,3672 00002 TC Q
039426,001415:
039427,001416: # ********************************
039428,001417: # HIGATJOB
039429,001418: # ********************************
039430,001419:
039431,001420: # HIGATJOB IS SET UP WHEN BOTH THE TIME AND ANGLE CRITERIA FOR ANTENNA REPOSITIONING ARE MET. THIS JOB
039432,001421: # INITIATES THE LANDING RADAR ANTENNA REPOSITIONING ROUTINE. DURING THE REPOSITIONING R12 IS INHIBITED BY THE
039433,001422: # NOLRREAD FLAG, WHICH IS SET BY HIGATASK OR IN CASE OF A RESTART POSSIBLY BY REREPOS. UPON COMPLETION OF
039434,001423: # REPOSITIONING, WHETHER SUCESSFUL OR NOT, NOLRREAD FLAG IS CLEARED AND R1
039435,001424:
039436,001425: 37,2000 SETLOC SERV2
039437,001426: 37,2000 BANK
039438,001427: 37,3550 E7,1777 EBANK= END-E7
039439,001428: 37,3550 COUNT* $$/SERV
039440,001429:
039441,001430: 37,3550 00004 REREPOS INHINT # ON RESTART, SET FLAGS AGAIN
039442,001431: 37,3551 40107 CS FLGWRD11
039443,001432: 37,3552 75015 MASK PRIO3
039444,001433: 37,3553 26107 ADS FLGWRD11
039445,001434:
039446,001435: 37,3554 04616 HIGATJOB TC BANKCALL # INITIATE REPOSITIONING ROUTINE
039447,001436: 37,3555 53516 CADR LRPOS2
039448,001437: 37,3556 04616 TC BANKCALL # DELAY UNTIL FINISHED
039449,001438: 37,3557 17713 CADR RADSTALL
039450,001439:
039451,001440: 37,3560 13561 TCF +1 # IF UNSUCCESSFUL, R12 WILL HANDLE THINGS
039452,001441: 37,3561 34753 CA ONE # INDICATE POS 2 IS EXPECTED
039453,001442: 37,3562 55650 TS LRPOS
039454,001443:
039455,001444: 37,3563 05527 TC DOWNFLAG # RE-ENABLE R12.
039456,001445: 37,3564 00252 ADRES NOLRREAD
039457,001446:
039458,001447: 37,3565 05364 TC PHASCHNG # CLEAR RESTART PROTECTION
039459,001448: 37,3566 00001 OCT 1
039460,001449: 37,3567 05155 TC ENDOFJOB
039461,001450:
039462,001451: # ********************************
039463,001452: # RDGIMS
039464,001453: # ********************************
039465,001454:
039466,001455: # RDGIMS IS SET UP TO SNATCH THE PIPAS AND CDUS AT THE MIDPOINT OF THE COMBINED ALTITUDE AND VELOCITY
039467,001456: # LANDING RADAR READ.
039468,001457:
039469,001458: 37,3570 E4,1643 EBANK= LRTIME
039470,001459:
039471,001460: 37,3570 00006 RDGIMS EXTEND
![]() |
Page 878 |
039473,001462: 37,3571 30025 DCA TIME2
039474,001463: 37,3572 53644 DXCH LRTIME
039475,001464:
039476,001465: 37,3573 00006 EXTEND
039477,001466: 37,3574 30033 DCA CDUX
039478,001467: 37,3575 53646 DXCH LRXCDU
039479,001468:
039480,001469: 37,3576 30034 CA CDUZ
039481,001470: 37,3577 55647 TS LRZCDU
039482,001471:
039483,001472: 37,3600 30037 CA PIPAX
039484,001473: 37,3601 55650 TS PIPTEM
039485,001474:
039486,001475: 37,3602 00006 EXTEND
039487,001476: 37,3603 30041 DCA PIPAY
039488,001477: 37,3604 53652 DXCH PIPTEM +1
039489,001478:
039490,001479: 37,3605 05272 TC TASKOVER
039491,001480:
039492,001481: # ****************************************************************************************************************
039493,001482: # GRAVITY CALCULATION SUBROUTINES
039494,001483: # ****************************************************************************************************************
039495,001484:
039496,001485: 37,3606 E7,1513 EBANK= DVCNTR
039497,001486:
039498,001487: # ********************************
039499,001488: # CALCGRAV
039500,001489: # ********************************
039501,001490:
039502,001491: 37,3606 41456 CALCGRAV UNIT PUSH # SAVE UNIT/R/ IN PUSHLIST (18)
039503,001492: 37,3607 03535 STORE UNIT/R/
039504,001493: 37,3610 67340 LXC,1 SLOAD # RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
039505,001494: 37,3611 02777 RTX2
039506,001495: 37,3612 00047 X1
039507,001496: 37,3613 77640 BMN
039508,001497: 37,3614 77643 CALCGRV1
039509,001498: 37,3615 50375 VLOAD DOT # (12)
039510,001499: 37,3616 06512 UNITZ
039511,001500: 37,3617 03535 UNIT/R/
039512,001501: 37,3620 41552 SL1 PUSH # (14)
039513,001502: 37,3621 44316 DSQ BDSU
039514,001503: 37,3622 27753 DP1/20
039515,001504: 37,3623 56325 PDDL DDV
039516,001505: 37,3624 26024 RESQ
039517,001506: 37,3625 00043 34D # (RN)SQ
039518,001507: 37,3626 00041 STORE 32D # TEMP FOR (RE/RN)SQ
039519,001508: 37,3627 41205 DMP DMP
039520,001509: 37,3630 26026 20J
039521,001510: 37,3631 65361 VXSC PDDL
039522,001511: 37,3632 03535 UNIT/R/
![]() |
Page 879 |
039524,001513: 37,3633 41205 DMP DMP
039525,001514: 37,3634 26030 2J
039526,001515: 37,3635 00041 32D
039527,001516: 37,3636 76561 VXSC VSL1
039528,001517: 37,3637 06512 UNITZ
039529,001518: 37,3640 45455 VAD STADR
039530,001519: 37,3641 74260 STORE UNITGOBL
039531,001520: 37,3642 41455 VAD PUSH # MPAC CONTAINS UNIT GRAVITY VECTOR
039532,001521: 37,3643 60345 CALCGRV1 DLOAD NORM # PERFORM A NORMALIZATION ON RMAGSQ IN
039533,001522: 37,3644 00043 34D # ORDER TO BE ABLE TO SCALE THE MU FOR
039534,001523: 37,3645 00050 X2 # MAXIMUM PRECISION.
039535,001524: 37,3646 53663 BDDV* SLR*
039536,001525: 37,3647 26020 -MUEARTH,1
039537,001526: 37,3650 56615 0 -15D,2
039538,001527: 37,3651 45561 VXSC STADR
039539,001528: 37,3652 74216 STORE G1 # ACCELERATION IN UNITS OF 2(-6) M/CS/CS
039540,001529: 37,3653 77616 RVQ
039541,001530:
039542,001531: # ********************************
039543,001532: # MUNGRAV
039544,001533: # ********************************
039545,001534:
039546,001535: 34,2000 SETLOC SERV1
039547,001536: 34,2000 BANK
039548,001537: 34,3743 1235 EBANK= G
039549,001538: 34,3743 COUNT* $$/SERV
039550,001539:
039551,001540: 34,3743 77656 MUNGRAV UNIT
039552,001541: 34,3744 14035 STODL 28D
039553,001542: 34,3745 00043 34D
039554,001543: 34,3746 55261 SL BDDV
039555,001544: 34,3747 20206 5
039556,001545: 34,3750 26022 -MUMOON
039557,001546: 34,3751 77761 VXSC
039558,001547: 34,3752 00035 28D
039559,001548: 34,3753 03561 STORE G1 # ACCELERATION IN UNITS OF 2(-6) M/CS/CS
039560,001549: 34,3754 77616 RVQ
039561,001550:
039562,001551: # ****************************************************************************************************************
039563,001552: # SERVICER SUBROUTINES (PIPASR APPEARS SEPARATELY)
039564,001553: # ****************************************************************************************************************
039565,001554:
039566,001555: # ********************************
039567,001556: # PIPSRINE
039568,001557: # ********************************
039569,001558:
039570,001559: # SINCE SERVICER'S PIPA READING IS NOW IN-LINE, THIS PIPA READER IS PROVIDED FOR THE USE OF P57.
039571,001560: # PIPSRINE IS NOT RESTART PROTECTED BECAUSE P57 ONLY CARES ABOUT DIRECTION, NOT MAGNITUDE, OF DELV.
039572,001561:
039573,001562: 34,3755 00004 PIPAREAD INHINT
039574,001563:
![]() |
Page 880 |
039576,001565: 34,3756 44755 CS ZERO
039577,001566: 34,3757 56037 XCH PIPAX
039578,001567: 34,3760 22007 ZL
039579,001568: 34,3761 52325 DXCH DELVX
039580,001569: 34,3762 44755 CS ZERO
039581,001570: 34,3763 56040 XCH PIPAY
039582,001571: 34,3764 22007 ZL
039583,001572: 34,3765 52327 DXCH DELVY
039584,001573: 34,3766 44755 CS ZERO
039585,001574: 34,3767 56041 XCH PIPAZ
039586,001575: 34,3770 22007 ZL
039587,001576: 34,3771 52331 DXCH DELVZ
039588,001577: 34,3772 00003 RELINT
039589,001578: 34,3773 00002 TC Q
039590,001579:
039591,001580: # ********************************
039592,001581: # SERVCHNG
039593,001582: # ********************************
039594,001583:
039595,001584: # SERVCHNG REPLACES THE 2CADR AT PHSNAME5 WITH THE 2CADR OF THE LOCATION SPECIFIED BY Q AND THE CURRENT
039596,001585: # BBANK. THE OTHER GROUP 5 INFORMATION IS NOT TOUCHED. SERVCHNG SHOULD BE USED WHEREVER POSSIBLE BY ROUTINES
039597,001586: # RUNNING AS PART OF THE SERVICER JOB.
039598,001587:
039599,001588: 6000 SETLOC FFSERV
039600,001589: 6000 BANK
039601,001590: 6042 E3,1446 EBANK= PHSNAME5
039602,001591: 6042 COUNT* $$/SERV
039603,001592:
039604,001593: 6042 36257 SERVCHNG CAF THREE # FBANK 0, EBANK 3
039605,001594: 6043 56006 XCH BBANK
039606,001595: 6044 52002 DXCH L # A --> L, Q --> A
039607,001596: 6045 53447 DXCH PHSNAME5
039608,001597: 6046 00006 EXTEND # PICK UP RETURN ADDRESS WHERE IT SURVIVES
039609,001598: 6047 31447 DCA PHSNAME5
039610,001599: 6050 52006 DXCH Z # RETURN
039611,001600:
039612,001601: 33,2000 SETLOC SERVICES
039613,001602: 33,2000 BANK
039614,001603: 33,3673 E7,1513 EBANK= DVCNTR
039615,001604: 33,3673 COUNT* $$/SERV
039616,001605:
039617,001606: # ********************************
039618,001607: # COPYCYC
039619,001608: # ********************************
039620,001609:
039621,001610: 33,3673 33763 COPYCYC CAF TWNTYTWO
039622,001611: 33,3674 00004 +1 INHINT
039623,001612: 33,3675 77761 +2 MASK NEG1 # REDUCE BY 1 IF ODD
039624,001613: 33,3676 54061 TS ITEMP1
039625,001614: 33,3677 00006 EXTEND
![]() |
Page 881 |
039627,001616: 33,3700 50061 INDEX ITEMP1
039628,001617: 33,3701 31543 DCA RN1
039629,001618: 33,3702 50061 INDEX ITEMP1
039630,001619: 33,3703 53220 DXCH RN
039631,001620: 33,3704 10061 CCS ITEMP1
039632,001621: 33,3705 13675 TCF COPYCYC +2
039633,001622: 33,3706 00002 TC Q # RETURN UNDER INHINT
039634,001623:
039635,001624:
039636,001625: # ********************************
039637,001626: # TMPTOSPT
039638,001627: # ********************************
039639,001628:
039640,001629: 33,3707 31155 TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE LOADS THE CDUS
039641,001630: 33,3710 54765 TS CDUSPOTY # CORRESPONDING TO PIPTIME1 INTO THE
039642,001631: 33,3711 31156 CA CDUTEMPZ # CDUSPOT VECTOR. TMPTOSPT CAN BE
039643,001632: 33,3712 54767 TS CDUSPOTZ # CALLED FROM INTERPRETIVE WITH AN RTB.
039644,001633: 33,3713 31154 CA CDUTEMPX
039645,001634: 33,3714 54771 TS CDUSPOTX
039646,001635: 33,3715 00002 TC Q
039647,001636:
039648,001637: # ********************************
039649,001638: # PIPNORM
039650,001639: # ********************************
039651,001640:
039652,001641: # PIPNORM, WHICH CORRECTS THE PIPA DIFFERENCE FOR POSSIBLE PIPA OVERFLOW, IS SEPARATE FROM PIPASR TO
039653,001642: # MAKE IT AVAILABLE TO ROUTINES WHICH READ THE PIPAS ASYNCHRONOUSLY, SUCH AS R10 AND THE R.O.D. EQUATION.
039654,001643:
039655,001644: # FUNCTIONAL DESCRIPTION OF PIPNORM:-
039656,001645:
039657,001646: # INPUT: IN A - DIFFERENCE BETWEEN CURRENT AND PREVIOUS PIPA READING
039658,001647:
039659,001648: # OUTPUTS: IN A - INPUT CORRECTED FOR POSSIBLE PIPA OVERFLOW BETWEEN READINGS
039660,001649: # IN L - ZERO
039661,001650:
039662,001651: # ASSUMPTIONS: THAT A DELV OF NO MORE THAN 81.91 M/S WAS ACCUMULATED BETWEEN THE PIPA READINGS
039663,001652: # THAT PIPNORM IS CALLED IN INTERRUPT OR UNDER INHINT
039664,001653:
039665,001654: 33,3716 56061 PIPNORM XCH ITEMP1 # TO CLEAR POSSIBLE OVERFLOW
039666,001655: 33,3717 30061 CA ITEMP1
039667,001656: 33,3720 74736 MASK BIT14
039668,001657: 33,3721 00006 EXTEND
039669,001658: 33,3722 13727 BZF +5
039670,001659: 33,3723 30061 CA ITEMP1 # POS > 8191 OR NEG > -8192
039671,001660: 33,3724 64734 AD NEG1/2
039672,001661: 33,3725 64734 AD NEG1/2
039673,001662: 33,3726 13732 TCF +4
039674,001663: 33,3727 30061 +5 CA ITEMP1 # POS < 8192 OR NEG < -8191
039675,001664: 33,3730 64736 AD HALF
039676,001665: 33,3731 64736 AD HALF
![]() |
Page 882 |
039678,001667: 33,3732 22007 +4 ZL
039679,001668: 33,3733 56001 XCH L # CLEAR PROBABLE OVERFLOW
039680,001669: 33,3734 56001 XCH L
039681,001670: 33,3735 00002 TC Q
039682,001671:
039683,001672: # ****************************************************************************************************************
039684,001673: # SERVICER CONSTANTS (EXCEPT THOSE IN THE CONTROLLED CONSTANTS SECTION)
039685,001674: # ****************************************************************************************************************
039686,001675: 33,3736 E7,1513 EBANK= DVCNTR
039687,001676: 33,3736 02102 66067 CYCLEADR 2CADR PIPCYCLE
039688,001677:
039689,001678:
039690,001679:
039691,001680: 33,3740 E7,1513 EBANK= DVCNTR
039692,001681: 33,3740 03517 66067 AVOUTCAD 2CADR AVGEND
039693,001682:
039694,001683:
039695,001684:
039696,001685: 33,3742 02217 GETABADR ADRES GETABVAL
039697,001686:
039698,001687:
039699,001688: 33,3743 02136 XNBPIPAD ECADR XNBPIP
039700,001689:
039701,001690:
039702,001691: 33,3744 02221 XNBRADAD ECADR XNBRAD
039703,001692:
039704,001693:
039705,001694: 33,3745 5000 PGMIN = 2SECS
039706,001695:
039707,001696:
039708,001697: 33,3745 00764 PGMAX DEC 500 B-14
039709,001698:
039710,001699:
039711,001700: 33,3746 00014 20000 2SEC(18) 2DEC 200 B-18
039712,001701:
039713,001702:
039714,001703:
039715,001704: 33,3750 00000 00620 4SEC(18) 2DEC 400 B-28
039716,001705:
039717,001706:
039718,001707:
039719,001708: 33,3752 01463 06315 DP1/20 2DEC 0.05
039720,001709:
039721,001710:
039722,001711:
039723,001712: 33,3754 37767 02200 1-30KFT 2DEC 16768072 B-24 # DPPOSMAX-30KFT
039724,001713:
![]() |
Page 883 |
039726,001715: 33,3756 00150 33343 BIASFACT 2DEC .0064 # SCALES PBIAS TO UNITS OF 2(-9) M/CS/CS
039727,001716:
039728,001717:
039729,001718:
039730,001719: 33,3760 4361 OCT21 = ND1
039731,001720:
039732,001721:
039733,001722: 33,3760 00523 OCT523 OCT 00523
039734,001723:
039735,001724:
039736,001725: 33,3761 00110 BITS4-7 OCT 110
039737,001726:
039738,001727:
039739,001728: 33,3762 4776 BITS6+7 = SUPER110
039740,001729:
039741,001730:
039742,001731: 33,3762 00102 66DEC DEC 66 B-14
039743,001732:
039744,001733:
039745,001734: 33,3763 00026 TWNTYTWO DEC 22 B-14
039746,001735:
039747,001736:
039748,001737: 33,3764 00121 35341 1/200DP 2DEC .005
039749,001738:
039750,001739:
039751,001740:
039752,001741: # ****************************************************************************************************************
039753,001742: # QUARTASK (ALSO KNOWN AS R10,R11) AN AUXILLIARY OF SERVICER WHICH RUNS EVERY QUARTER OF A SECOND
039754,001743: # ****************************************************************************************************************
039755,001744:
039756,001745: 21,2000 SETLOC R11
039757,001746: 21,2000 BANK
039758,001747: 21,2055 E7,1777 EBANK= END-E7
039759,001748: 21,2055 COUNT* $$/R11
039760,001749:
039761,001750: 21,2055 21,2055 R10,R11 = QUARTASK
039762,001751:
039763,001752: 21,2055 30103 QUARTASK CA FLAGWRD7 # IS SERVICER STILL RUNNING?
039764,001753: 21,2056 74747 MASK AVEGFBIT
039765,001754: 21,2057 00006 EXTEND
039766,001755: 21,2060 15272 BZF TASKOVER # NO: BUT LET AVGEND KILL GROUP 2
039767,001756:
039768,001757: 21,2061 36010 CA OCT31 # YES: SET UP NEXT QUARTASK
039769,001758: 21,2062 05204 TC TWIDDLE
039770,001759: 21,2063 02055 ADRES QUARTASK
039771,001760:
039772,001761: # ************************************************************************
039773,001762: # FLASH LANDING RADAR LIGHTS
039774,001763: # ************************************************************************
039775,001764:
![]() |
Page 884 |
039777,001766: 21,2064 30107 FLASHH? CA FLGWRD11
039778,001767: 21,2065 74753 MASK HFLSHBIT
039779,001768: 21,2066 00006 EXTEND
039780,001769: 21,2067 12073 BZF FLASHV? # H FLASK OFF, SO LEAVE ALONE
039781,001770:
039782,001771: 21,2070 34747 CA HLITE
039783,001772: 21,2071 54001 TS L
039784,001773: 21,2072 04606 TC FLIP # FLIP H LITE
039785,001774:
039786,001775: 21,2073 30107 FLASHV? CA FLGWRD11 # VFLASHBIT MUST BE BIT 2
039787,001776: 21,2074 74752 MASK VFLSHBIT
039788,001777: 21,2075 00006 EXTEND
039789,001778: 21,2076 12102 BZF 10,11 # V FLASH OFF
039790,001779:
039791,001780: 21,2077 34751 CA VLITE
039792,001781: 21,2100 54001 TS L
039793,001782: 21,2101 04606 TC FLIP
039794,001783:
039795,001784: # ************************************************************************
039796,001785: # CHECK FOR ABORT OR ABORT-STAGE
039797,001786: # ************************************************************************
039798,001787:
039799,001788: 21,2102 30105 10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET?
039800,001789: 21,2103 74743 MASK LETABBIT
039801,001790: 21,2104 00006 EXTEND
039802,001791: 21,2105 12131 BZF VVCOMP # NO: GO ON TO THE VELOCITY COMPUTATION
039803,001792:
039804,001793: 21,2106 41010 P71NOW? CS MODREG # ARE WE IN P71 NOW?
039805,001794: 21,2107 62034 AD 1DEC71
039806,001795: 21,2110 00006 EXTEND
039807,001796: 21,2111 12131 BZF VVCOMP # YES: PROCEED TO VELOCITY COMPUTATION
039808,001797:
039809,001798: 21,2112 00006 EXTEND # NO: IS AN ABORT STAGE COMMANDED
039810,001799: 21,2113 00030 READ CHAN30
039811,001800: 21,2114 40000 COM
039812,001801: 21,2115 54001 TS L
039813,001802: 21,2116 74750 MASK BIT4
039814,001803: 21,2117 10000 CCS A
039815,001804: 21,2120 12012 TCF P71A # YES
039816,001805:
039817,001806: 21,2121 41010 P70NOW? CS MODREG # NO: ARE WE IN P70 NOW?
039818,001807: 21,2122 62033 AD 1DEC70
039819,001808: 21,2123 00006 EXTEND
039820,001809: 21,2124 12131 BZF VVCOMP # YES: PROCEED TO VELOCITY COMPUTATION
039821,001810:
039822,001811: 21,2125 30001 CA L # NO: IS AN ABORT COMMANDED?
039823,001812: 21,2126 74753 MASK BIT1
039824,001813: 21,2127 10000 CCS A
039825,001814: 21,2130 12007 TCF P70A # YES
039826,001815:
![]() |
Page 885 |
039828,001817: # ************************************************************************
039829,001818: # COMPUTE VELOCITY VECTOR
039830,001819: # ************************************************************************
039831,001820:
039832,001821: # ONLY IF SWANDISP IS SET ARE ALL THE NUMBERS AVAILABLE NEEDED IN VVCOMP.
039833,001822:
039834,001823: 21,2131 40103 VVCOMP CS FLAGWRD7 # IS LANDING ANALOG DISPLAYS FLAG SET?
039835,001824: 21,2132 74741 MASK SWANDBIT
039836,001825: 21,2133 10000 CCS A
039837,001826: 21,2134 12726 TCF DISPRSET +1 # NO: GO RESET
039838,001827:
039839,001828: # DO EVERYTHING POSSIBLE BEFORE READING PIPAS.
039840,001829:
039841,001830: 21,2135 00006 EXTEND # YES: COMPUTE VELOCITY VECTOR
039842,001831: 21,2136 41710 DCS VSURFACE
039843,001832: 21,2137 53727 DXCH VVECTX
039844,001833: 21,2140 00006 EXTEND
039845,001834: 21,2141 31525 DCA V
039846,001835: 21,2142 20001 DDOUBL
039847,001836: 21,2143 20001 DDOUBL
039848,001837: 21,2144 21727 DAS VVECTX
039849,001838:
039850,001839: 21,2145 00006 EXTEND
039851,001840: 21,2146 41712 DCS VSURFACE +2
039852,001841: 21,2147 53731 DXCH VVECTY
039853,001842: 21,2150 00006 EXTEND
039854,001843: 21,2151 31527 DCA V +2
039855,001844: 21,2152 20001 DDOUBL
039856,001845: 21,2153 20001 DDOUBL
039857,001846: 21,2154 21731 DAS VVECTY
039858,001847:
039859,001848: 21,2155 00006 EXTEND
039860,001849: 21,2156 41714 DCS VSURFACE +4
039861,001850: 21,2157 53733 DXCH VVECTZ
039862,001851: 21,2160 00006 EXTEND
039863,001852: 21,2161 31531 DCA V +4
039864,001853: 21,2162 20001 DDOUBL
039865,001854: 21,2163 20001 DDOUBL
039866,001855: 21,2164 21733 DAS VVECTZ
039867,001856:
039868,001857: # PICK UP TIME.
039869,001858:
039870,001859: # COMPUTE TIME SINCE PIPTIME.
039871,001860:
039872,001861: 21,2165 41234 CS PIPTIME +1
039873,001862: 21,2166 60025 AD TIME1
039874,001863: 21,2167 64736 AD HALF
039875,001864: 21,2170 64736 AD HALF
039876,001865: 21,2171 57725 XCH DT # DT IN UNITS OF 2(14) CS
039877,001866:
![]() |
Page 886 |
039879,001868: # ADD IN PIPA PULSES.
039880,001869:
039881,001870: 21,2172 41254 CS PIPAXOLD
039882,001871: 21,2173 60037 AD PIPAX
039883,001872: 21,2174 02761 TC NORMPIP
039884,001873: 21,2175 00006 EXTEND
039885,001874: 21,2176 72000 MP LANAKPIP
039886,001875: 21,2177 21727 DAS VVECTX
039887,001876:
039888,001877: 21,2200 41255 CS PIPAYOLD
039889,001878: 21,2201 60040 AD PIPAY
039890,001879: 21,2202 02761 TC NORMPIP
039891,001880: 21,2203 00006 EXTEND
039892,001881: 21,2204 72000 MP LANAKPIP
039893,001882: 21,2205 21731 DAS VVECTY
039894,001883:
039895,001884: 21,2206 41256 CS PIPAZOLD
039896,001885: 21,2207 60041 AD PIPAZ
039897,001886: 21,2210 02761 TC NORMPIP
039898,001887: 21,2211 00006 EXTEND
039899,001888: 21,2212 72000 MP LANAKPIP
039900,001889: 21,2213 21733 QUARDUMP DAS VVECTZ
039901,001890:
039902,001891: # THE FOLLOWING CODING REFERS THE X-PIPA READING TO THE CENTER-OF-MASS OF THE SPACECRAFT BY SUBTRACTING
039903,001892: # THOSE PIPA COUNTS PRODUCED BY VERTICAL IMU MOTION RELATIVE TO THE CENTER-OF-MASS. THE SPACECRAFT X-AXIS IS
039904,001893: # ASSUMED TO BE APPROXIMATELY VERTICAL (PARALLEL TO THE SM X-AXIS). THE EQUATION IS:
039905,001894:
039906,001895: # P66PIPX = P66PIPX - OMEGAQ RIMUZ
039907,001896:
039908,001897: # WHERE P66PIPX IS THE X-PIPA READING, OMEGAQ IS THE ATTITUDE-RATE ABOUT THE Q (Y) AXIS, AND RIMUZ IS THE
039909,001898: # Z-COORDINATE OF THE IMU.
039910,001899:
039911,001900: # FINALLY, ADD IN CONTRIBUTIONS OF GRAVITY AND PIPA BIAS.
039912,001901:
039913,001902: 21,2214 41704 CS BIASACCX # BIASACCX IS IN UNITS OF 2(-9) M/CS/CS
039914,001903: 21,2215 61701 AD GRAVACCX # GRAVACCX IS IN UNITS OF 2(-9) M/CS/CS
039915,001904: 21,2216 00006 EXTEND
039916,001905: 21,2217 71725 MP DT
039917,001906: 21,2220 21727 DAS VVECTX # VVECTX IN UNITS OF 2(5) M/CS
039918,001907:
039919,001908: 21,2221 41705 CS BIASACCY # BIASACCY IS IN UNITS OF 2(-9) M/CS/CS
039920,001909: 21,2222 61702 AD GRAVACCY # GRAVACCY IS IN UNITS OF 2(-9) M/CS/CS
039921,001910: 21,2223 00006 EXTEND
039922,001911: 21,2224 71725 MP DT
039923,001912: 21,2225 21731 DAS VVECTY # VVECTY IN UNITS OF 2(5) M/CS
039924,001913:
039925,001914: 21,2226 41706 CS BIASACCZ # BIASACCZ IS IN UNITS OF 2(-9) M/CS/CS
039926,001915: 21,2227 61703 AD GRAVACCZ # GRAVACCZ IS IN UNITS OF 2(-9) M/CS/CS
039927,001916: 21,2230 00006 EXTEND
039928,001917: 21,2231 71725 MP DT
![]() |
Page 887 |
039930,001919: 21,2232 21733 DAS VVECTZ # VVECTZ IN UNITS OF 2(5) M/CS
039931,001920:
039932,001921: # ************************************************************************
039933,001922: # SHOULD P66JOB BE SET UP?
039934,001923: # ************************************************************************
039935,001924:
039936,001925: 21,2233 41010 GUILDEN CS MODREG # ARE WE IN P66?
039937,001926: 21,2234 62331 STERN AD DEC66
039938,001927: 21,2235 00006 EXTEND
039939,001928: 21,2236 12300 BZF P66SETUP # YES: OFF TO IT THEN
039940,001929:
039941,001930: 21,2237 30075 CA FLAGWRD1 # NO: IS P66 SELECTION LOCKED OUT
039942,001931: 21,2240 74743 MASK ALW66BIT
039943,001932: 21,2241 00006 EXTEND
039944,001933: 21,2242 12324 BZF GUILDRET # YES
039945,001934:
039946,001935: 21,2243 11623 CCS FLPASS0 # NO: IS FLPASS0 = 0?
039947,001936: 21,2244 12251 TCF ATTHOLD? # NO: GO CHECK UN-ATTITUDE-HOLD DISCRETE
039948,001937:
039949,001938: 21,2245 41346 CS WCHPHASE # YES: IS WCHPHASE = 2?
039950,001939: 21,2246 64752 AD TWO
039951,001940: 21,2247 00006 EXTEND
039952,001941: 21,2250 12261 BZF STARTP66 # YES: GO START P66
039953,001942:
039954,001943: 21,2251 34737 ATTHOLD? CAF BIT13 # NO: IS UN-ATTITUDE-HOLD DISCRETE HERE?
039955,001944: 21,2252 00006 EXTEND
039956,001945: 21,2253 02031 RAND CHAN31
039957,001946: 21,2254 10000 CCS A
039958,001947: 21,2255 12324 TCF GUILDRET # YES: ALL'S WELL, OR AT LEAST AUTOMATIC
039959,001948:
039960,001949: 21,2256 31744 CA RODCOUNT # NO: HAS ROD SWITCH BEEN CLICKED?
039961,001950: 21,2257 00006 EXTEND
039962,001951: 21,2260 12324 BZF GUILDRET # NO: STICK IN THERE, LANDING
039963,001952:
039964,001953: 21,2261 00006 STARTP66 EXTEND # YES: INITIALIZE DESIRED ALTITUDE-RATE
039965,001954: 21,2262 31727 DCA VVECTX # (FURTHER INITIALIZATION IS IN P66JOB)
039966,001955: 21,2263 53746 DXCH VDGVERT
039967,001956:
039968,001957: 21,2264 44755 CS ZERO # CANCEL LEFT-OVER P64 THROTTLE COMMAND
039969,001958: 21,2265 54055 TS THRUST # (NEVER, NEVER LOAD THRUST WITH +0)
039970,001959:
039971,001960: 21,2266 25623 INCR FLPASS0
039972,001961:
039973,001962: 21,2267 00006 EXTEND # DISCONNECT ALL GUIDANCE FROM SERVICER
039974,001963: 21,2270 32333 DCA ADRPIPCY
039975,001964: 21,2271 53253 DXCH AVGEXIT
039976,001965:
039977,001966: 21,2272 05515 TC UPFLAG # SET FLAG TO CONTINUE P66 HORIZONTAL
039978,001967: 21,2273 00016 ADRES P66PROFL # UNTIL "PROCEED" AFTER TOUCHDOWN
039979,001968:
![]() |
Page 888 |
039981,001970: 21,2274 05527 TC DOWNFLAG # PERMIT X-AXIS OVERRIDE DESPITE THE
039982,001971: 21,2275 00311 ADRES XOVINFLG # POSSIBILITY OF PITCH-ROLL CROSS-FEED
039983,001972:
039984,001973: 21,2276 05515 TC UPFLAG # TERMINATE TERRAIN MODEL
039985,001974: 21,2277 00023 ADRES NOTERFLG
039986,001975:
039987,001976: 21,2300 10756 P66SETUP CCS PHASE3 # AVOID MULTIPLE P66JOBS AFTER RESTART
039988,001977: 21,2301 12326 TCF PRELAD
039989,001978:
039990,001979: 21,2302 37724 CAF PRIO24
039991,001980: 21,2303 05105 TC FINDVAC
039992,001981: 21,2304 E5,1527 EBANK= TAURODL
039993,001982: 21,2304 02714 64065 P662CADR 2CADR P66JOB
039994,001983:
039995,001984:
039996,001985: 21,2306 35007 CAF EBANK3 # RESTART PROTECT BY HAND TO SAVE TIME
039997,001986: 21,2307 54003 TS EBANK
039998,001987: 21,2310 E3,1442 EBANK= PHSNAME3
039999,001988: 21,2310 37724 CAF PRIO24
040000,001989: 21,2311 55057 TS PHSPRDT3
040001,001990: 21,2312 00006 EXTEND
040002,001991: 21,2313 32305 DCA P662CADR
040003,001992: 21,2314 53443 DXCH PHSNAME3
040004,001993: 21,2315 34752 CAF TWO
040005,001994: 21,2316 54001 TS L
040006,001995: 21,2317 40000 COM
040007,001996: 21,2320 52756 DXCH -PHASE3
040008,001997: 21,2321 35016 CAF EBANK7
040009,001998: 21,2322 54003 TS EBANK
040010,001999: 21,2323 E7,1777 EBANK= END-E7
040011,002000:
040012,002001: 21,2323 12326 TCF PRELAD
040013,002002:
040014,002003: 21,2324 34755 GUILDRET CAF ZERO
040015,002004: 21,2325 55744 TS RODCOUNT
040016,002005:
040017,002006: 21,2326 40025 PRELAD CS TIME1 # UPDATE TBASE2 AND PROCEED TO LANADISP
040018,002007: 21,2327 55054 TS TBASE2
040019,002008: 21,2330 12334 TCF LANADISP
040020,002009:
040021,002010: # ************************************************************************
040022,002011: # QUARTASK CONSTANTS
040023,002012: # ************************************************************************
040024,002013:
040025,002014: 21,2331 00102 DEC66 DEC 66 B-14
040026,002015:
040027,002016:
040028,002017: 21,2332 E7,1513 EBANK= DVCNTR
040029,002018: 21,2332 02102 66067 ADRPIPCY 2CADR PIPCYCLE
040030,002019:
![]() |
Page 889 |
040032,002021: # ****************************************************************************************************************
040033,002022: # ****************************************************************************************************************
040034,002023:
040035,002024: # TEMPORARY DEFINITIONS TO AVOID CUSSES UNTIL CHANGES OUTSIDE OF ZFLY AND ZERASE CAN BE MADE.
040036,002025:
040037,002026: 21,2334 5272 REREADAC = TASKOVER
040038,002027:
040039,002028:
040040,002029: 21,2334 5272 REDO5.5 = TASKOVER
040041,002030:
040042,002031:
040043,002032: 21,2334 1235 GDT/2 = G
040044,002033:
040045,002034:
040046,002035: 21,2334 34,3752 PIPASR = PIPAREAD -3 # SO PIPSRINE WILL EQUAL PIPAREAD
End of include-file SERVICER.agc. Parent file is MAIN.agc