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