473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:
473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.
|
010019,000002: ## Copyright: Public domain.
010020,000003: ## Filename: EXTENDED_VERBS.agc
010021,000004: ## Purpose: Part of the source code for Aurora (revision 12).
010022,000005: ## Assembler: yaYUL
010023,000006: ## Contact: Ron Burkey <info@sandroid.org>.
010024,000007: ## Website: https://www.ibiblio.org/apollo.
010025,000008: ## Pages: 258-284
010026,000009: ## Mod history: 2016-09-20 JL Created.
010027,000010: ## 2016-10-20 HG Finalized transcription
010028,000011: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
010029,000012: ## and fixed the errors found.
010030,000013:
010031,000014: ## This source code has been transcribed or otherwise adapted from
010032,000015: ## digitized images of a hardcopy from the private collection of
010033,000016: ## Don Eyles. The digitization was performed by archive.org.
010034,000017:
010035,000018: ## Notations on the hardcopy document read, in part:
010036,000019:
010037,000020: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
010038,000021: ## NOV 10, 1966
010039,000022:
010040,000023: ## [Note that this is the date the hardcopy was made, not the
010041,000024: ## date of the program revision or the assembly.]
010042,000025:
010043,000026: ## The scan images (with suitable reduction in storage size and consequent
010044,000027: ## reduction in image quality) are available online at
010045,000028: ## https://www.ibiblio.org/apollo.
010046,000029: ## The original high-quality digital images are available at archive.org:
010047,000030: ## https://archive.org/details/aurora00dapg
010048,000031:
|
|
Page 258 |
010050,000033: 11,2000 BANK 11
010051,000034: 11,2000 E5,1500 EBANK= OGC
010052,000035:
010053,000036: # FAN-OUT
010054,000037:
010055,000038: 11,2000 02070 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 40 ONLY)
010056,000039: 11,2001 02073 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010057,000040: # 40 ONLY)
010058,000041: 11,2002 02204 TC IMUFINEK # VB42 FINE ALIGN IMU
010059,000042: 11,2003 02566 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
010060,000043: 11,2004 02066 TC ALM/END # ILLEGAL VERB.
010061,000044: 11,2005 12126 TCF LRPOS2K # VB45 COMMAND LR TO POSITION 2.
010062,000045: 11,2006 02407 TC REGRSAMP # VB46 SAMPLE RADAR ONCE PER SECOND
010063,000046: 11,2007 02401 TC DOFCSTST # VB47 PERFORM LEM FCS TEST
010064,000047: 11,2010 02262 TC GOLOADLV # VB50 PLEASE PERFORM
010065,000048: 11,2011 02262 TC GOLOADLV # VB51 PLEASE MARK
010066,000049: 11,2012 02262 TC GOLOADLV # VB52 PLEASE MARK Y
010067,000050: 11,2013 02262 TC GOLOADLV # VB53 PLEASE MARK X OR Y.
010068,000051: 11,2014 02266 TC TORQGYRS # VB54 PULSE TORQUE GYROS
010069,000052: 11,2015 02303 TC ALINTIME # VB55 ALIGN TIME
010070,000053: 11,2016 02377 TC GOSHOSUM # VB56 PERFORM BANKSUM
010071,000054: 11,2017 02327 TC SYSTEST # VB57 PERFORM SYSTEM TEST
010072,000055: 11,2020 03142 TC PRESTAND # VB60 PREPARE FOR STANDBY
010073,000056: 11,2021 03210 TC POSTAND # VB61 RECOVER FROM STANDBY
010074,000057: 11,2022 02634 TC SETUPMSG # VB62 SCAM LEM INBITS
010075,000058: 11,2023 12524 TCF AGSINIT # VB63 INITIALIZE AGS
010076,000059: 11,2024 12066 TCF ALM/END
010077,000060: 11,2025 12066 TCF ALM/END
010078,000061: 11,2026 12066 TCF ALM/END
010079,000062: 11,2027 12066 TCF ALM/END
010080,000063: 11,2030 12066 TCF ALM/END
010081,000064: 11,2031 12066 TCF ALM/END
010082,000065: 11,2032 12066 TCF ALM/END
010083,000066: 11,2033 13122 TCF MINIMP # VERB 73 - RHC USED FOR MINIMUM IMPULSE.
010084,000067: 11,2034 13130 TCF NOMINIMP # VERB 74 - RHC NOT USED FOR MIN IMPULSE.
010085,000068:
010086,000069: 11,2035 12066 TCF ALM/END
010087,000070: 11,2036 12066 TCF ALM/END
010088,000071: 11,2037 02066 TC ALM/END
010089,000072:
010090,000073: 11,2040 37655 TESTXACT CAF BIT3
010091,000074: 11,2041 70332 MASK EXTVBACT
010092,000075: 11,2042 10000 CCS A
010093,000076: 11,2043 02053 TC XACTALM
010094,000077:
010095,000078: 11,2044 47655 XACT1 CS BIT3
010096,000079: 11,2045 00004 INHINT
010097,000080: 11,2046 70332 MASK EXTVBACT
010098,000081: 11,2047 67655 AD BIT3
010099,000082: 11,2050 54332 TS EXTVBACT
010100,000083:
|
|
Page 259 |
010102,000085: 11,2051 00003 RELINT
010103,000086: 11,2052 00002 TC Q
010104,000087:
010105,000088: 11,2053 05243 XACTALM TC FALTON
010106,000089: 11,2054 04440 TC ENDOFJOB
010107,000090:
010108,000091: 11,2055 05401 TERMEXTV TC FREEDSP # IF WE GET A TERMINATE INSTEAD OF A LOAD.
010109,000092:
010110,000093: 11,2056 02060 ENDEXTVB TC XACT0
010111,000094: 11,2057 04440 TC ENDOFJOB
010112,000095:
010113,000096: 11,2060 47655 XACT0 CS BIT3
010114,000097: 11,2061 00004 INHINT
010115,000098: 11,2062 70332 MASK EXTVBACT
010116,000099: 11,2063 54332 TS EXTVBACT
010117,000100: 11,2064 00003 RELINT
010118,000101: 11,2065 00002 XACT0Q TC Q
010119,000102:
010120,000103:
010121,000104:
010122,000105: 11,2066 05243 ALM/END TC FALTON
010123,000106: 11,2067 02056 TC ENDEXTVB
010124,000107:
010125,000108:
010126,000109:
010127,000110: 11,2070 02076 VBZERO TC OP/INERT
010128,000111: 11,2071 02110 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
010129,000112: 11,2072 02117 TC RRZEROK # RETURN HERE IF NOUN = RCDU(40)
010130,000113:
010131,000114: 11,2073 02076 VBCOARK TC OP/INERT
010132,000115: 11,2074 02132 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
010133,000116: 11,2075 02234 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (40)
010134,000117:
010135,000118: # RETURNS TO L+1 IF IMU, L+2 IF RR, AND L+3 IF OT.
010136,000119:
010137,000120: 11,2076 47653 OP/INERT CS BIT5 # OCT20
010138,000121: 11,2077 60267 AD NOUNREG
010139,000122: 11,2100 00006 EXTEND
010140,000123: 11,2101 12065 BZF XACT0Q # IF = 20.
010141,000124:
010142,000125: 11,2102 24002 INCR Q
010143,000126: 11,2103 62107 AD RRIMUDIF # = -20 OCT.
010144,000127: 11,2104 00006 EXTEND
010145,000128: 11,2105 12065 BZF XACT0Q
010146,000129:
010147,000130: 11,2106 02066 TC ALM/END # ILLEGAL.
010148,000131:
010149,000132: 11,2107 77757 RRIMUDIF OCT -20
010150,000133:
|
|
Page 260 |
010152,000135: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
010153,000136:
010154,000137: 11,2110 02040 IMUZEROK TC TESTXACT # ZERO ENCODERS.
010155,000138: 11,2111 04063 TC BANKCALL
010156,000139: 11,2112 26000 CADR IMUZERO
010157,000140:
010158,000141: 11,2113 04063 TC BANKCALL # STALL
010159,000142: 11,2114 26716 CADR IMUSTALL
010160,000143: 11,2115 02116 TC +1
010161,000144:
010162,000145: 11,2116 02056 TC ENDEXTVB
010163,000146: 11,2117 02040 RRZEROK TC TESTXACT
010164,000147: 11,2120 04063 TC BANKCALL # ZERO RR CDUS.
010165,000148: 11,2121 20247 CADR RRZERO
010166,000149:
010167,000150: 11,2122 04063 RWAITK TC BANKCALL
010168,000151: 11,2123 26712 CADR RADSTALL
010169,000152: 11,2124 12125 TCF +1
010170,000153: 11,2125 12056 TCF ENDEXTVB
010171,000154:
010172,000155: 11,2126 02040 LRPOS2K TC TESTXACT # COMMAND LR TO POSITION 2.
010173,000156: 11,2127 04063 TC BANKCALL
010174,000157: 11,2130 21172 CADR LRPOS2
010175,000158: 11,2131 12122 TCF RWAITK
010176,000159:
|
|
Page 261 |
010178,000161: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
010179,000162:
010180,000163: 11,2132 02040 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
010181,000164: 11,2133 05317 TC GRABWAIT
010182,000165: 11,2134 32152 CAF VNLODCDU # CALL FOR THETAD LOAD
010183,000166: 11,2135 05332 TC NVSBWAIT
010184,000167: 11,2136 05140 TC ENDIDLE # STALL WAITING FOR THE LOAD
010185,000168: 11,2137 02055 TC TERMEXTV
010186,000169: 11,2140 02154 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
010187,000170:
010188,000171: 11,2141 32153 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
010189,000172: 11,2142 05332 TC NVSBWAIT
010190,000173: 11,2143 05401 TC FREEDSP # RELEASE THE DISPLAYS
010191,000174:
010192,000175: 11,2144 04063 TC BANKCALL # CALL MODE SWITCHING PROG
010193,000176: 11,2145 26055 CADR IMUCOARS
010194,000177:
010195,000178: 11,2146 04063 TC BANKCALL # STALL
010196,000179: 11,2147 26716 CADR IMUSTALL
010197,000180: 11,2150 02056 TC ENDEXTVB
010198,000181: 11,2151 02056 TC ENDEXTVB
010199,000182:
010200,000183: 11,2152 02522 VNLODCDU OCT 02522
010201,000184: 11,2153 04100 IMUCOARV OCT 04100
010202,000185:
|
|
Page 262 |
010204,000187: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
010205,000188:
010206,000189: 11,2154 32202 ICSDEL CAF DELLOAD
010207,000190: 11,2155 05332 TC NVSBWAIT # REQUEST LOAD OF DELTA ICDU ANGLES.
010208,000191: 11,2156 05140 TC ENDIDLE
010209,000192: 11,2157 02055 TC TERMEXTV
010210,000193: 11,2160 02141 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
010211,000194: 11,2161 02163 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
010212,000195: 11,2162 02141 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
010213,000196:
010214,000197: 11,2163 56002 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
010215,000198: 11,2164 54140 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
010216,000199: 11,2165 32203 CAF LTHD+2
010217,000200: 11,2166 54114 TS BUF # SET UP FOR CDUINC.
010218,000201: 11,2167 37656 CAF TWO # THREE TIMES THROUGH.
010219,000202:
010220,000203: 11,2170 54141 INCLOOP2 TS MPAC +1
010221,000204: 11,2171 50000 INDEX A
010222,000205: 11,2172 56336 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
010223,000206: 11,2173 04063 TC BANKCALL
010224,000207: 11,2174 33470 CADR CDUINC
010225,000208: 11,2175 10114 CCS BUF
010226,000209: 11,2176 54114 TS BUF
010227,000210: 11,2177 10141 CCS MPAC +1
010228,000211: 11,2200 02170 TC INCLOOP2
010229,000212:
010230,000213: 11,2201 00140 TC MPAC # RETURN WHEN FINISHED.
010231,000214:
010232,000215: 11,2202 02523 DELLOAD OCT 02523
010233,000216: 11,2203 00402 LTHD+2 ADRES THETAD +2
010234,000217:
|
|
Page 263 |
010236,000219: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
010237,000220:
010238,000221: 11,2204 02040 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
010239,000222: 11,2205 05317 TC GRABWAIT
010240,000223: 11,2206 32232 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
010241,000224: 11,2207 05332 TC NVSBWAIT
010242,000225: 11,2210 05140 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
010243,000226: 11,2211 02055 TC TERMEXTV
010244,000227: 11,2212 02213 TC +1 # PROCEED WITHOUT A LOAD
010245,000228:
010246,000229: 11,2213 32233 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
010247,000230: 11,2214 05332 TC NVSBWAIT
010248,000231: 11,2215 05401 TC FREEDSP # RELEASE DISPLAYS
010249,000232:
010250,000233: 11,2216 04063 TC BANKCALL # CALL MODE SWITCH PROG
010251,000234: 11,2217 26227 CADR IMUFINE
010252,000235:
010253,000236: 11,2220 04063 TC BANKCALL # HIBERNATION
010254,000237: 11,2221 26716 CADR IMUSTALL
010255,000238: 11,2222 02056 TC ENDEXTVB
010256,000239:
010257,000240: 11,2223 32301 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
010258,000241: 11,2224 04063 TC BANKCALL
010259,000242: 11,2225 26317 CADR IMUPULSE
010260,000243:
010261,000244: 11,2226 04063 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
010262,000245: 11,2227 26716 CADR IMUSTALL
010263,000246: 11,2230 02056 TC ENDEXTVB
010264,000247: 11,2231 02056 TC ENDEXTVB
010265,000248:
010266,000249: 11,2232 02567 VNLODGYR OCT 02567
010267,000250: 11,2233 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
010268,000251:
|
|
Page 264 |
010270,000253: # DESIGNATE TO DESIRED GIMBAL ANGLES.
010271,000254:
010272,000255: 11,2234 02040 RRDESNBK TC TESTXACT
010273,000256: 11,2235 05317 TC GRABWAIT
010274,000257: 11,2236 32255 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
010275,000258: 11,2237 05332 TC NVSBWAIT
010276,000259: 11,2240 05140 TC ENDIDLE # WAIT FOR THE LOAD
010277,000260: 11,2241 02055 TC TERMEXTV
010278,000261: 11,2242 02243 TC +1 # PROCEED
010279,000262:
010280,000263: 11,2243 04063 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
010281,000264: 11,2244 23001 CADR AURLOKON
010282,000265:
010283,000266: 11,2245 32153 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
010284,000267: 11,2246 05332 TC NVSBWAIT
010285,000268: 11,2247 00004 INHINT # FIRE UP JOB TO DO DESIGNATE.
010286,000269: 11,2250 37642 CAF PRIO20
010287,000270: 11,2251 04374 TC FINDVAC
010288,000271: 11,2252 E5,1500 EBANK= OGC
010289,000272: 11,2252 02256 22005 2CADR RRDESK2
010290,000273:
010291,000274: 11,2254 12055 TCF TERMEXTV # FREES DISPLAY.
010292,000275:
010293,000276: 11,2255 02441 VNLDRCDU OCT 02441
010294,000277: 11,2256 11,2153 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
010295,000278:
010296,000279: 11,2256 06000 RRDESK2 TC INTPRET
010297,000280:
010298,000281: 11,2257 77634 CALL
010299,000282: 11,2260 20363 RRDESNB # RETURNS IN BASIC.
010300,000283:
010301,000284: 11,2261 02122 TC RWAITK
010302,000285:
010303,000286: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
010304,000287: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
010305,000288: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
010306,000289: # PERFORM THE REQUESTED ACTION.
010307,000290:
010308,000291: 11,2262 05300 GOLOADLV TC FLASHOFF
010309,000292: 11,2263 02060 TC XACT0
010310,000293: 11,2264 04102 TC POSTJUMP
010311,000294: 11,2265 12002 CADR LOADLV1
010312,000295:
|
|
Page 265 |
010314,000297: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
010315,000298:
010316,000299:
010317,000300:
010318,000301: 11,2266 02040 TORQGYRS TC TESTXACT # GYRO TORQUING WITH NO MODE-SWITCH.
010319,000302: 11,2267 05317 TC GRABWAIT
010320,000303: 11,2270 32232 CAF VNLODGYR
010321,000304: 11,2271 05332 TC NVSBWAIT
010322,000305: 11,2272 05140 TC ENDIDLE
010323,000306: 11,2273 02055 TC TERMEXTV
010324,000307: 11,2274 02275 TC +1
010325,000308: 11,2275 32302 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
010326,000309: 11,2276 05332 TC NVSBWAIT
010327,000310: 11,2277 05401 TC FREEDSP
010328,000311: 11,2300 12223 TCF FINEK2
010329,000312:
010330,000313: 11,2301 00403 LGYROBIN ECADR DELVX
010331,000314: 11,2302 05400 TORQGYRV OCT 05400
010332,000315:
|
|
Page 266 |
010334,000317: # ALIGN TIME
010335,000318: 11,2303 32326 ALINTIME CAF VNLODDT # USES NVSUBMON. DOES NOT TEST DSPLOCK.
010336,000319: 11,2304 54107 TS NVTEMP # DOES NOT KILL MONITOR.
010337,000320: 11,2305 05123 TC NVSUBMON
010338,000321: 11,2306 04440 TC ENDOFJOB # IN CASE OF ALARM IN LOAD REQUEST SET UP.
010339,000322: 11,2307 05140 TC ENDIDLE
010340,000323: 11,2310 04440 TC ENDOFJOB # TERMINATE
010341,000324: 11,2311 04440 TC ENDOFJOB # PROCEED WITHOUT DATA
010342,000325: 11,2312 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
010343,000326: 11,2313 37665 CAF ZERO
010344,000327: 11,2314 54142 TS MPAC +2 # NEEDED FOR TP AGREE
010345,000328: 11,2315 54001 TS L # ZERO T1 & 2 WHILE ALIGNING.
010346,000329: 11,2316 52025 DXCH TIME2
010347,000330: 11,2317 52141 DXCH MPAC
010348,000331: 11,2320 52334 DXCH DSPTEM1 # INCREMENT.
010349,000332: 11,2321 20141 DAS MPAC
010350,000333:
010351,000334: 11,2322 07235 TC TPAGREE # FORCE SIGN AGREEMENT.
010352,000335: 11,2323 52141 DXCH MPAC # NEW CLOCK.
010353,000336: 11,2324 20025 DAS TIME2
010354,000337: 11,2325 04440 TC ENDOFJOB
010355,000338:
010356,000339: 11,2326 02124 VNLODDT OCT 02124 # V/N FOR LOAD DELTA TIME
010357,000340:
|
|
Page 267 |
010359,000342: # SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
010360,000343:
010361,000344: 11,2327 E5,1546 EBANK= QPLACE
010362,000345:
010363,000346: 11,2327 10276 SYSTEST CCS MODREG # DEMAND MODE 00.
010364,000347: 11,2330 12053 TCF XACTALM
010365,000348:
010366,000349: 11,2331 05317 TC GRABWAIT
010367,000350: 11,2332 32376 REDO CAF LQPL # ASK FOR TEST OPTION (1 - 7).
010368,000351: 11,2333 54142 TS MPAC +2
010369,000352: 11,2334 32375 CAF TESTNV
010370,000353: 11,2335 05332 TC NVSBWAIT
010371,000354: 11,2336 05140 TC ENDIDLE
010372,000355: 11,2337 04437 TC EJFREE
010373,000356: 11,2340 02332 TC REDO
010374,000357:
010375,000358: 11,2341 04667 TC NEWMODEX
010376,000359: 11,2342 00007 OCT 07
010377,000360:
010378,000361: 11,2343 00004 INHINT
010379,000362: 11,2344 37642 CAF PRIO20
010380,000363: 11,2345 04374 TC FINDVAC
010381,000364: 11,2346 02351 22005 2CADR TSELECT
010382,000365:
010383,000366: 11,2350 04440 TC ENDOFJOB # LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
010384,000367:
010385,000368: 11,2351 35224 TSELECT CAF LOW5
010386,000369: 11,2352 71546 MASK QPLACE # SAFETY PLAY.
010387,000370: 11,2353 50000 INDEX A
010388,000371: 11,2354 32356 CAF TESTCADR
010389,000372: 11,2355 04105 TC BANKJUMP
010390,000373:
010391,000374: 11,2356 22066 TESTCADR CADR ALM/END # 0 ILLEGAL
010392,000375: 11,2357 36000 CADR IMUTEST # 1 GYRO DRIFT TEST
010393,000376: 11,2360 36024 CADR IMUBACK # 2 REPEAT OF IMUTEST
010394,000377: 11,2361 30000 CADR AOTNBIMU # 3 IMU ALIGNMENT TEST
010395,000378: 11,2362 36245 CADR OPCHK # 4 IMU CHECK
010396,000379: 11,2363 36445 CADR GYRSFTST # 5 GYRO TORQUING TEST
010397,000380: 11,2364 22364 CADR # AVAILABLE
010398,000381: 11,2365 43413 CADR GTSCPSS # 7. OPTIMUM COMPASS
010399,000382: 11,2366 34556 CADR SAMODCHK # 10 SEMI-AUTOMATIC MODING CHECK
010400,000383: 11,2367 31324 CADR SAUTOIFS # 11 SEMI-AUTOMATIC INTERFACE TEST
010401,000384: 11,2370 31562 CADR AOTANGCK # 12 AOT ANGLE CHECK
010402,000385: 11,2371 31120 CADR RDRINIT # 13 RENDEZVOUS RADAR / ANTENNAE TRACKING
010403,000386: 11,2372 22403 CADR FSTRSAMP # 14 HIGH SPEED RADAR SAMPLING.
010404,000387:
010405,000388: 11,2373 31613 CADR ZEROERAS
010406,000389: 11,2374 23030 CADR DISINDT # DISPLAY INERTIAL DATA TEST.
010407,000390: 11,2375 02101 TESTNV OCT 2101
010408,000391: 11,2376 02546 LQPL ECADR QPLACE
010409,000392:
|
|
Page 268 |
010411,000394: 11,2377 04102 GOSHOSUM TC POSTJUMP # START ROUTINE TO DISPLAY SUM OF EACH
010412,000395: 11,2400 41454 CADR SHOWSUM # BANK ON DSKY
010413,000396:
010414,000397: 11,2401 04102 DOFCSTST TC POSTJUMP
010415,000398: 11,2402 14000 CADR FCSSTART
010416,000399:
|
|
Page 269 |
010418,000401: # SET UP FOR RADAR SAMPLING.
010419,000402:
010420,000403: 11,2403 E7,1434 EBANK= RSTKLOC
010421,000404:
010422,000405: 11,2403 32472 FSTRSAMP CAF RSTKLIST # HIGH SPEED SAMPLING. SWITCH TO SPECIAL
010423,000406: 11,2404 54411 TS DNLSTADR # DOWNLIST.
010424,000407: 11,2405 47657 CS ONE # WANTS TM BUFFERING.
010425,000408: 11,2406 12411 TCF RSAMPTST
010426,000409:
010427,000410: 11,2407 05317 REGRSAMP TC GRABWAIT
010428,000411: 11,2410 32473 CAF 1SEC+1 # SHOWS NO TM BUFFERING.
010429,000412:
010430,000413: 11,2411 54142 RSAMPTST TS MPAC +2
010431,000414: 11,2412 00004 INHINT
010432,000415: 11,2413 42474 CS LRPOSCAL # INITIALIZE SCALE AND LR POSITION BITS.
010433,000416: 11,2414 70413 MASK RADMODES
010434,000417: 11,2415 54413 TS RADMODES
010435,000418:
010436,000419: 11,2416 32474 CAF LRPOSCAL
010437,000420: 11,2417 00006 EXTEND
010438,000421: 11,2420 02033 RAND 33
010439,000422: 11,2421 26413 ADS RADMODES
010440,000423:
010441,000424: 11,2422 00003 RELINT
010442,000425: 11,2423 32444 CAF LRTSTDEX
010443,000426: 11,2424 54003 TS EBANK
010444,000427: 11,2425 56142 XCH MPAC +2
010445,000428: 11,2426 55435 TS RSAMPDT # HI SPEED NNZ - LO SPEED PNZ.
010446,000429: 11,2427 37665 CAF ZERO
010447,000430: 11,2430 55434 TS RTSTLOC
010448,000431: 11,2431 55436 TS RFAILCNT # ZERO BAD SAMPLE COUNTER.
010449,000432: 11,2432 32470 CAF HISPMAX
010450,000433: 11,2433 55432 TS RTSTMAX
010451,000434:
010452,000435: 11,2434 32471 CAF RTSTNV
010453,000436: 11,2435 05332 TC NVSBWAIT
010454,000437: 11,2436 05140 TC ENDIDLE
010455,000438: 11,2437 04437 TC EJFREE # ON TERMINATE.
010456,000439: 11,2440 12475 TCF RSEMIAUT # PROCEED MEANS SEMI-AUTO SEQUENCING.
010457,000440: 11,2441 05401 RDRDFREE TC FREEDSP
010458,000441: 11,2442 11435 CCS RSAMPDT # SEE IF HI OR LO SPEED SAMPLING.
010459,000442: 11,2443 12447 TCF +4
010460,000443:
010461,000444: 11,2444 03431 LRTSTDEX ECADR RTSTDEX
010462,000445:
010463,000446: 11,2445 04102 TC POSTJUMP # EXEC. OTHERWISE, SET UP WAITLIST TIMING.
010464,000447: 11,2446 21274 CADR DORSAMP
010465,000448:
010466,000449: 11,2447 36162 CAF SIX # FIND OUT WHICH RADAR WANTED.
010467,000450: 11,2450 71431 MASK RTSTDEX
010468,000451:
|
|
Page 270 |
010470,000453: 11,2451 10000 CCS A
010471,000454: 11,2452 12456 TCF LRCYCLE # LANDING RADAR ARE SERIALS 2 - 5.
010472,000455:
010473,000456: 11,2453 55433 TS RTSTBASE # FOR RR BASE = 0, MAX = 1.
010474,000457: 11,2454 36162 CAF SIX
010475,000458: 11,2455 12461 TCF +4
010476,000459:
010477,000460: 11,2456 37656 LRCYCLE CAF TWO # FOR LR BASE = 2, MAX = 3.
010478,000461: 11,2457 55433 TS RTSTBASE
010479,000462: 11,2460 32467 CAF 18R
010480,000463:
010481,000464: 11,2461 55432 +4 TS RTSTMAX
010482,000465: 11,2462 00004 INHINT
010483,000466: 11,2463 04536 TC WAITLIST
010484,000467: 11,2464 E7,1434 EBANK= RSTKLOC
010485,000468: 11,2464 03254 20007 2CADR RADSAMP
010486,000469:
010487,000470: 11,2466 04440 TC ENDOFJOB
010488,000471:
010489,000472: 11,2467 00022 18R DEC 18 B-14
010490,000473: 11,2470 00102 HISPMAX DEC 66 B-14
010491,000474: 11,2471 02101 RTSTNV OCT 2101
010492,000475: 11,2472 02253 RSTKLIST GENADR FSTRADTM
010493,000476: 11,2473 00145 1SEC+1 DEC 101 B-14
010494,000477: 11,2474 00444 LRPOSCAL OCT 444
010495,000478:
|
|
Page 271 |
010497,000480: # SEMI-AUTO RADAR TESTING.
010498,000481:
010499,000482: 11,2475 00004 RSEMIAUT INHINT
010500,000483: 11,2476 34523 CAF PRIO25 # START HI SPEED SAMPLING.
010501,000484: 11,2477 04363 TC NOVAC
010502,000485: 11,2500 03274 20007 2CADR DORSAMP
010503,000486:
010504,000487: 11,2502 00003 RELINT
010505,000488: 11,2503 37664 CAF FIVE # SEQUENCE THROUGH ALL SIX CHANNELS.
010506,000489: 11,2504 55431 -1 TS RTSTDEX
010507,000490:
010508,000491: 11,2505 32523 33PASTE CAF RV33 # ON ENTER, SWITCH TO NEXT CHANNEL.
010509,000492: 11,2506 05332 TC NVSBWAIT
010510,000493: 11,2507 05274 TC FLASHON
010511,000494: 11,2510 05140 TC ENDIDLE
010512,000495: 11,2511 02516 TC ENDRTST # ON TERMINATE.
010513,000496: 11,2512 12514 TCF +2
010514,000497: 11,2513 12505 TCF 33PASTE # DONT ACCEPT DATA.
010515,000498:
010516,000499: 11,2514 11431 CCS RTSTDEX
010517,000500: 11,2515 12504 TCF 33PASTE -1
010518,000501:
010519,000502: 11,2516 37665 ENDRTST CAF ZERO # ENDTEST.
010520,000503: 11,2517 55435 TS RSAMPDT
010521,000504: 11,2520 04667 TC NEWMODEX
010522,000505: 11,2521 00000 OCT 0
010523,000506: 11,2522 04437 TC EJFREE
010524,000507:
010525,000508: 11,2523 03300 RV33 OCT 3300
010526,000509:
|
|
Page 272 |
010528,000511: # AGS INITIALIZATION PROGRAM.
010529,000512:
010530,000513: 11,2524 10412 AGSINIT CCS AGSWORD # ZERO IF AGS NOT NOW BEING INITIALIZED.
010531,000514: 11,2525 02066 TC ALM/END # DO IT LATER.
010532,000515:
010533,000516: 11,2526 30025 CA TIME1
010534,000517: 11,2527 62564 AD 12SECS
010535,000518: 11,2530 54001 TS L
010536,000519: 11,2531 02546 TC SENDIT
010537,000520:
010538,000521: 11,2532 00004 INHINT # T1 WILL OVERFLOW, DELAY FOR 12 SECS
010539,000522: 11,2533 32564 CA 12SECS
010540,000523: 11,2534 54412 TS AGSWORD
010541,000524: 11,2535 04536 TC WAITLIST
010542,000525: 11,2536 02541 22007 2CADR AGSJOB
010543,000526: 11,2540 04440 TC ENDOFJOB
010544,000527:
010545,000528: 11,2541 34526 AGSJOB CAF PRIO30 # ENTER AGSINIT JOB VIA EXEC
010546,000529: 11,2542 04363 TC NOVAC
010547,000530: 11,2543 02546 22007 2CADR SENDIT
010548,000531:
010549,000532: 11,2545 04602 TC TASKOVER
010550,000533:
010551,000534: 11,2546 00004 SENDIT INHINT
010552,000535: 11,2547 32565 CAF LAGSLIST # SWITCH TO SPECIAL DOWNLIST FOR 10 SECS.
010553,000536: 11,2550 56411 XCH DNLSTADR
010554,000537: 11,2551 54412 TS AGSWORD # TO SHOW INITIALIZATION IN PROGRESS.
010555,000538:
010556,000539: 11,2552 32563 CAF 10SECS
010557,000540: 11,2553 04536 TC WAITLIST
010558,000541: 11,2554 02557 22007 2CADR AGSINIT2
010559,000542:
010560,000543: 11,2556 14440 TCF ENDOFJOB
010561,000544:
010562,000545: 11,2557 37665 AGSINIT2 CAF ZERO # END OF INITIALIZATION.
010563,000546: 11,2560 56412 XCH AGSWORD
010564,000547: 11,2561 54411 TS DNLSTADR # REVERT TO ORIGINAL DOWNLIST.
010565,000548: 11,2562 14602 TCF TASKOVER
010566,000549:
010567,000550: 11,2563 01750 10SECS DEC 1000 B-14
010568,000551: 11,2564 02260 12SECS DEC 1200 B-14
010569,000552: 11,2565 02001 LAGSLIST GENADR AGSLIST
010570,000553:
|
|
Page 273 |
010572,000555: # VB 43 IMU ATTITUDE ERROR METER LOADER.
010573,000556:
010574,000557: 11,2566 02040 IMUATTCK TC TESTXACT
010575,000558: 11,2567 42631 CS OCT50K # REMOVE COARSE AND ECTR ENABLE.
010576,000559: 11,2570 00006 EXTEND
010577,000560: 11,2571 03012 WAND 12
010578,000561:
010579,000562: 11,2572 05317 TC GRABWAIT
010580,000563: 11,2573 32152 CAF VNLODCDU
010581,000564: 11,2574 05332 TC NVSBWAIT
010582,000565: 11,2575 05140 TC ENDIDLE
010583,000566: 11,2576 02055 TC TERMEXTV
010584,000567: 11,2577 02600 TC +1
010585,000568: 11,2600 32632 CAF V43K # REDISPLAY OUR VERB.
010586,000569: 11,2601 05332 TC NVSBWAIT
010587,000570: 11,2602 37652 CAF BIT6 # ENABLE ERROR COUNTER.
010588,000571: 11,2603 00006 EXTEND
010589,000572: 11,2604 05012 WOR 12
010590,000573: 11,2605 37656 CAF TWO
010591,000574: 11,2606 00004 INHINT
010592,000575: 11,2607 04536 TC WAITLIST # PUT OUT COMMAND IN .32 SECS.
010593,000576: 11,2610 02613 22007 2CADR ATTCK2
010594,000577:
010595,000578: 11,2612 12055 TCF TERMEXTV # FREES DISPLAY.
010596,000579:
010597,000580: 11,2613 37656 ATTCK2 CAF TWO # PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
010598,000581: 11,2614 54002 TS Q # INCASE OF EXCESS DATA.
010599,000582: 11,2615 50000 INDEX A
010600,000583: 11,2616 30400 CA THETAD
010601,000584: 11,2617 00006 EXTEND
010602,000585: 11,2620 77643 MP BIT13 # SHIFT RIGHT 2.
010603,000586: 11,2621 50002 INDEX Q
010604,000587: 11,2622 54050 TS CDUXCMD
010605,000588: 11,2623 10002 CCS Q
010606,000589: 11,2624 12614 TCF ATTCK2 +1
010607,000590:
010608,000591: 11,2625 32633 CAF OCT70K
010609,000592: 11,2626 00006 EXTEND
010610,000593: 11,2627 05014 WOR 14
010611,000594: 11,2630 14602 TCF TASKOVER
010612,000595:
010613,000596: 11,2631 00050 OCT50K OCT 50
010614,000597: 11,2632 04300 V43K OCT 4300
010615,000598: 11,2633 70000 OCT70K OCT 70000
010616,000599:
|
|
Page 274 |
010618,000601: # PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
010619,000602:
010620,000603: 11,2634 E7,1606 EBANK= MSGCNT
010621,000604:
010622,000605: 11,2634 37657 SETUPMSG CAF BIT1 # BEGIN SCAN.
010623,000606: 11,2635 00004 INHINT
010624,000607: 11,2636 04536 TC WAITLIST
010625,000608: 11,2637 02644 22007 2CADR MSGSCAN +2
010626,000609:
010627,000610: 11,2641 04440 TC ENDOFJOB
010628,000611:
010629,000612: 11,2642 04554 MSGSCAN TC FIXDELAY
010630,000613: 11,2643 00062 DEC 50 B-14
010631,000614:
010632,000615: 11,2644 37656 CAF TWO # SCAN ALL 3 CHANNELS FOR CHANGES.
010633,000616: 11,2645 55606 TS MSGCNT
010634,000617: 11,2646 50000 INDEX A
010635,000618: 11,2647 31603 CA LAST30 # OLD VALUE OF INBITS.
010636,000619: 11,2650 00006 EXTEND
010637,000620: 11,2651 51606 INDEX MSGCNT
010638,000621: 11,2652 06030 RXOR 30
010639,000622: 11,2653 51606 INDEX MSGCNT
010640,000623: 11,2654 72724 MASK 30MSGMSK
010641,000624: 11,2655 00006 EXTEND
010642,000625: 11,2656 12721 BZF NOMSG
010643,000626:
010644,000627: 11,2657 54002 TS Q # SAVE DIFFERENCE.
010645,000628: 11,2660 51606 INDEX MSGCNT
010646,000629: 11,2661 23603 LXCH LAST30 # UPDATE OLD VALUE.
010647,000630: 11,2662 00006 EXTEND
010648,000631: 11,2663 06001 RXOR L
010649,000632: 11,2664 51606 INDEX MSGCNT
010650,000633: 11,2665 55603 TS LAST30
010651,000634:
010652,000635: 11,2666 40000 COM
010653,000636: 11,2667 56002 XCH Q
010654,000637: 11,2670 70002 MASK Q # SEE IF ANY OF CHANGED BITS JUST ON.
010655,000638: 11,2671 00006 EXTEND
010656,000639: 11,2672 12721 BZF NOMSG # NO MESSAGE IF SO.
010657,000640:
010658,000641: 11,2673 54001 TS L
010659,000642: 11,2674 31606 CA MSGCNT
010660,000643: 11,2675 60000 DOUBLE
010661,000644: 11,2676 60000 DOUBLE
010662,000645: 11,2677 77655 MASK BIT3
010663,000646: 11,2700 70001 MASK L
010664,000647: 11,2701 00006 EXTEND
010665,000648: 11,2702 12714 BZF NOTRHC
010666,000649:
010667,000650: 11,2703 36162 CAF SIX
010668,000651:
|
|
Page 275 |
010670,000653: 11,2704 04536 TC WAITLIST
010671,000654: 11,2705 E6,1435 EBANK= PCOM
010672,000655: 11,2705 03264 22006 2CADR RHCNTRL
010673,000656:
010674,000657: 11,2707 37642 CAF PRIO20 # INITIATE MONITOR.
010675,000658: 11,2710 04363 TC NOVAC
010676,000659: 11,2711 02733 22007 2CADR RHCMON
010677,000660: 11,2713 12721 TCF NOMSG
010678,000661:
010679,000662: 11,2714 32727 NOTRHC CAF OKT30
010680,000663: 11,2715 61606 AD MSGCNT
010681,000664: 11,2716 54075 TS RUPTREG2
010682,000665:
010683,000666: 11,2717 40002 CS Q
010684,000667: 11,2720 02745 TC VMESSAGE
010685,000668:
010686,000669: 11,2721 11606 NOMSG CCS MSGCNT
010687,000670: 11,2722 12645 TCF MSGSCAN +3
010688,000671: 11,2723 12642 TCF MSGSCAN
010689,000672:
010690,000673: 11,2724 00017 30MSGMSK OCT 17
010691,000674: 11,2725 77777 OCT 77777
010692,000675: 11,2726 03777 OCT 3777
010693,000676:
010694,000677: 11,2727 00030 OKT30 OCT 30
010695,000678: 11,2730 02740 DESCBITS TC MESSAGE # DESCENT BITS COME HERE IN A.
010696,000679: 11,2731 00016 OCT 16
010697,000680: 11,2732 04606 TC RESUME
010698,000681:
010699,000682: 11,2733 05317 RHCMON TC GRABWAIT # FIRE UP DSKY MONITOR.
010700,000683: 11,2734 32737 CAF RHCMONVN
010701,000684: 11,2735 05332 TC NVSBWAIT
010702,000685: 11,2736 04437 TC EJFREE
010703,000686:
010704,000687: 11,2737 01645 RHCMONVN OCT 1645
010705,000688:
|
|
Page 276 |
010707,000690: # MESSAGE DISPLAY - 3 COMPONENT OCTAL.
010708,000691:
010709,000692: 11,2740 54075 MESSAGE TS RUPTREG2 # NEW CHANNEL CONTENTS ARRIVE IN A.
010710,000693: 11,2741 50002 INDEX Q # CHANNEL NUMBER IN OCTAL AT CALLER +1.
010711,000694: 11,2742 30000 CAF 0
010712,000695: 11,2743 24002 INCR Q
010713,000696: 11,2744 56075 XCH RUPTREG2
010714,000697:
010715,000698: 11,2745 54074 VMESSAGE TS RUPTREG1 # FOR VARIABLE CHANNEL.
010716,000699: 11,2746 00006 EXTEND
010717,000700: 11,2747 22076 QXCH RUPTREG3
010718,000701: 11,2750 34525 CAF PRIO27 # FIRE UP SPECIAL JOB.
010719,000702: 11,2751 04363 TC NOVAC
010720,000703: 11,2752 02763 22007 2CADR DOMSG
010721,000704:
010722,000705: 11,2754 52075 DXCH RUPTREG1 # NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
010723,000706: 11,2755 50071 INDEX LOCCTR # MPAC +1.
010724,000707: 11,2756 52141 DXCH MPAC
010725,000708: 11,2757 30025 CA TIME1
010726,000709: 11,2760 50071 INDEX LOCCTR
010727,000710: 11,2761 54142 TS MPAC +2
010728,000711: 11,2762 00076 TC RUPTREG3
010729,000712:
010730,000713: 11,2763 05317 DOMSG TC GRABWAIT
010731,000714: 11,2764 00006 EXTEND
010732,000715: 11,2765 30141 DCA MPAC
010733,000716: 11,2766 52334 DXCH DSPTEM1
010734,000717: 11,2767 30142 CA MPAC +2
010735,000718: 11,2770 54335 TS DSPTEM1 +2
010736,000719: 11,2771 33000 CAF MSGVN
010737,000720: 11,2772 05107 TC NVSUB
010738,000721: 11,2773 12775 TCF MSGBUSY
010739,000722: 11,2774 04437 TC EJFREE
010740,000723:
010741,000724: 11,2775 32777 MSGBUSY CAF +2
010742,000725: 11,2776 05327 TC NVSUBUSY
010743,000726: 11,2777 22764 CADR DOMSG +1
010744,000727:
010745,000728: 11,3000 00535 MSGVN OCT 0535
010746,000729:
|
|
Page 277 |
010748,000731: # ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
010749,000732:
010750,000733: 11,3001 04112 AURLOKON TC MAKECADR
010751,000734: 11,3002 54427 TS DESRET
010752,000735: 11,3003 32523 CAF RV33 # ASSUMES DSKY GRABBED.
010753,000736: 11,3004 05332 TC NVSBWAIT
010754,000737: 11,3005 05274 TC FLASHON
010755,000738: 11,3006 05140 TC ENDIDLE
010756,000739: 11,3007 13012 TCF +3 # ON TERM.
010757,000740: 11,3010 37653 CAF LOKONFLG
010758,000741: 11,3011 13013 TCF +2
010759,000742: 11,3012 37665 CAF ZERO
010760,000743: 11,3013 00004 INHINT
010761,000744: 11,3014 56061 XCH STATE
010762,000745: 11,3015 73027 MASK -LOKONFG
010763,000746: 11,3016 26061 ADS STATE
010764,000747:
010765,000748: 11,3017 77653 MASK LOKONFLG # IF NO LOCK-ON CALLED FOR, SET BIT15 OF
010766,000749: 11,3020 10000 CCS A # RADMODES TO INDICATE THAT ARBITRARILY-
010767,000750: 11,3021 13024 TCF +3 # LONG DESIGNATION IS WANTED (TO BE
010768,000751:
010769,000752: 11,3022 37641 CAF BIT15 # TERMINATED BY FRESH START).
010770,000753: 11,3023 26413 ADS RADMODES
010771,000754: 11,3024 00003 RELINT
010772,000755: 11,3025 30427 CA DESRET
010773,000756: 11,3026 14105 TCF BANKJUMP
010774,000757:
010775,000758: 11,3027 77757 -LOKONFG OCT -20
010776,000759:
|
|
Page 278 |
010778,000761: # PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
010779,000762:
010780,000763: 11,3030 33120 DISINDT CAF FLVELVN # ASK FOR FORWARD, LATERAL VELOCITY.
010781,000764: 11,3031 05332 TC NVSBWAIT
010782,000765: 11,3032 05140 TC ENDIDLE
010783,000766: 11,3033 13055 TCF ENDDISIN
010784,000767: 11,3034 13035 TCF +1
010785,000768: 11,3035 33121 CAF ALT,R,VN # ASK FOR INITIAL AND FINIAL ALTITUDES AND
010786,000769: 11,3036 05332 TC NVSBWAIT # ALTITUDE RATE.
010787,000770: 11,3037 05140 TC ENDIDLE
010788,000771: 11,3040 13055 TCF ENDDISIN
010789,000772: 11,3041 13042 TCF +1
010790,000773:
010791,000774: 11,3042 00004 INHINT
010792,000775: 11,3043 47657 CS ONE
010793,000776: 11,3044 54351 TS DIDFLG
010794,000777:
010795,000778: 11,3045 00006 EXTEND
010796,000779: 11,3046 30353 DCA ALT # SO FOLLOWING MONITOR WORKS.
010797,000780: 11,3047 52365 DXCH ALTSAVE
010798,000781:
010799,000782: 11,3050 37657 CAF ONE
010800,000783: 11,3051 04536 TC WAITLIST
010801,000784: 11,3052 03063 22007 2CADR DISINLUP +2
010802,000785:
010803,000786: 11,3054 14437 TCF EJFREE
010804,000787:
010805,000788: 11,3055 05401 ENDDISIN TC FREEDSP
010806,000789: 11,3056 04667 +1 TC NEWMODEX
010807,000790: 11,3057 00000 OCT 0
010808,000791:
010809,000792: 11,3060 04440 TC ENDOFJOB
010810,000793:
|
|
Page 279 |
010812,000795: # WATCH ALTSAVE FOR END OF PROBLEM.
010813,000796:
010814,000797: 11,3061 04554 DISINLUP TC FIXDELAY
010815,000798: 11,3062 00062 DEC 50 B-14
010816,000799:
010817,000800: 11,3063 00006 +2 EXTEND
010818,000801: 11,3064 30356 DCA FINALT
010819,000802: 11,3065 52066 DXCH ITEMP1
010820,000803: 11,3066 00006 EXTEND
010821,000804: 11,3067 40365 DCS ALTSAVE # LATEST ALTITUDE.
010822,000805: 11,3070 20066 DAS ITEMP1
010823,000806:
010824,000807: 11,3071 10065 CCS ITEMP1
010825,000808: 11,3072 13112 TCF +DIF
010826,000809: 11,3073 13075 TCF +2
010827,000810: 11,3074 13116 TCF -DIF
010828,000811:
010829,000812: 11,3075 10066 CCS ITEMP2
010830,000813: 11,3076 13112 TCF +DIF
010831,000814: 11,3077 13101 TCF +2
010832,000815: 11,3100 13116 TCF -DIF
010833,000816:
010834,000817: 11,3101 37665 DISINDUN CAF ZERO
010835,000818: 11,3102 54354 TS ALTRATE
010836,000819: 11,3103 52356 DXCH FINALT
010837,000820: 11,3104 52353 DXCH ALT
010838,000821: 11,3105 37642 CAF PRIO20
010839,000822: 11,3106 04363 TC NOVAC
010840,000823: 11,3107 03056 22007 2CADR ENDDISIN +1
010841,000824:
010842,000825: 11,3111 14602 TCF TASKOVER
010843,000826:
010844,000827: 11,3112 30354 +DIF CA ALTRATE
010845,000828: 11,3113 00006 EXTEND
010846,000829: 11,3114 63101 BZMF DISINDUN
010847,000830: 11,3115 13061 TCF DISINLUP
010848,000831:
010849,000832: 11,3116 40354 -DIF CS ALTRATE
010850,000833: 11,3117 13113 TCF +DIF +1
010851,000834:
010852,000835: 11,3120 02444 FLVELVN OCT 2444
010853,000836: 11,3121 02564 ALT,R,VN OCT 2564
010854,000837:
010855,000838: 11,3122 00004 MINIMP INHINT
010856,000839: 11,3123 47646 CS BIT10 # BIT 10 OF DAPBOOLS INDICATES MINIMP MODE
010857,000840: 11,3124 70765 MASK DAPBOOLS
010858,000841: 11,3125 67646 AD BIT10
010859,000842: 11,3126 54765 TS DAPBOOLS # BIT 10 OF DAPBOOLS NOW PRESENT.
010860,000843: 11,3127 14440 TCF ENDOFJOB
010861,000844:
|
|
Page 280 |
010863,000846: 11,3130 00004 NOMINIMP INHINT
010864,000847: 11,3131 47646 CS BIT10
010865,000848: 11,3132 70765 MASK DAPBOOLS
010866,000849: 11,3133 54765 TS DAPBOOLS # A ZERO IN POSITION 10 OF DAPBOOLS NOW.
010867,000850:
010868,000851: 11,3134 00006 EXTEND
010869,000852: 11,3135 30033 DCA CDUX
010870,000853: 11,3136 52775 DXCH CDUXD
010871,000854: 11,3137 30034 CA CDUZ
010872,000855: 11,3140 54776 TS CDUZD
010873,000856: 11,3141 14440 TCF ENDOFJOB
010874,000857:
|
|
Page 281 |
010876,000859: # VB 60 PREPARE FOR STANDBY OPERATION
010877,000860:
010878,000861: # ROUTINE WRITTEN FOR TEST ROPES ONLY*** MUST BE UPDATED TO INCLUDE
010879,000862: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATION
010880,000863:
010881,000864: 11,3142 E3,1400 EBANK= LST1
010882,000865:
010883,000866: 11,3142 33263 PRESTAND CAF EBANK3 # COMES HERE FROM LST2FAN
010884,000867: 11,3143 56003 XCH EBANK # SET UP EBANK FOR BANK 3
010885,000868: 11,3144 00004 INHINT
010886,000869: 11,3145 30025 CA TIME1
010887,000870: 11,3146 55502 TS TIMESAV # THIS ROUTINE WILL LOOK AT TIME1 UNTIL
010888,000871: 11,3147 32727 CAF OKT30 # TIME1 IS INCREMENTED, THEN IT WILL
010889,000872: 11,3150 55506 LONGER TS TIMAR # SNATCH THE MISSION TIME REGS AND STORE
010890,000873: 11,3151 41502 CS TIMESAV # THEM IN TIMESAV FOR LATER ISE IN ARITH.
010891,000874: 11,3152 60025 AD TIME1 # OPERATIONS WHICH SHOULD FIND THE
010892,000875: 11,3153 00006 EXTEND # STANDING DIFFERENCE BETWEEN THE SCALAR
010893,000876: 11,3154 13161 BZF CHKTIME # AND THE TIME1-TIME2S REGS.
010894,000877:
010895,000878: 11,3155 00006 EXTEND
010896,000879: 11,3156 30025 DCA TIME2 # READ AND STORE THE DP TIME AND GO
010897,000880: 11,3157 53503 DXCH TIMESAV # READ THE SCALAR USING THE EXISTING PROG
010898,000881: 11,3160 13167 TCF CATCHFIN # FINETIME.
010899,000882:
010900,000883: 11,3161 11506 CHKTIME CCS TIMAR # MUST WATCH THE TIME SPENT IN INHINT OR
010901,000884: 11,3162 03150 TC LONGER # THE COPS MIGHT CATCH US.
010902,000885: 11,3163 00003 RELINT
010903,000886: 11,3164 10067 CCS NEWJOB
010904,000887: 11,3165 04404 TC CHANG1
010905,000888: 11,3166 03147 TC LONGER -1 # GO BACK AND LOOK AGAIN
010906,000889:
010907,000890: 11,3167 05470 CATCHFIN TC FINETIME # WILL READ CHANNELS 3 AND 4 AND RETURN
010908,000891: 11,3170 53505 DXCH SCALSAV # WITH 3 IN A AND 4 IN L..
010909,000892: 11,3171 00003 RELINT
010910,000893: 11,3172 47654 CS BIT4
010911,000894: 11,3173 70367 MASK IMODES30 # INHIBIT THE IMU FAIL LIGHT.
010912,000895: 11,3174 67654 AD BIT4
010913,000896: 11,3175 54367 TS IMODES30
010914,000897:
010915,000898: 11,3176 37654 CAF BIT4 # SET ALL CHAN 12 BITS EXCEPT C/A TO ZERO.
010916,000899: 11,3177 00006 EXTEND # THIS IS NECESSARY SO THAT THE GIMBALS DO
010917,000900: 11,3200 03012 WAND 12 # NOT DRIFT INTO GIMBALLOCK IF THE SYSTEM
010918,000901:
010919,000902: 11,3201 37654 CAF BIT4 # SHOULD BE IN OPERATE AT THE TIME STBY
010920,000903: 11,3202 00006 EXTEND # WAS STARTED. THIS SECTION WILL MAKE
010921,000904: 11,3203 05012 WOR 12 # SURE THE IMU IS IN C/A.....
010922,000905:
010923,000906: 11,3204 37645 CAF BIT11 # WHEN BIT 11 IS PRESENT IN CHANNEL 13 THE
010924,000907: 11,3205 00006 EXTEND # DSKY PB. CAN THEN ENERGIZE THE STANDBY
010925,000908: 11,3206 05013 WOR 13 # RELAY IN THE CGC PWR SUPPLIES....
|
|
Page 282 |
010927,000910: 11,3207 04440 TC ENDOFJOB # GO TO DUMMY JOB UNTIL YOU DIE...
010928,000911:
|
|
Page 283 |
010930,000913: # VB 61 RECOVER FROM STANDBY OPERATION
010931,000914:
010932,000915: # ROUTINE WRITTEN FOR TEST ROPES ONLY**** MUST BE UPDATED TO INCLUDE
010933,000916: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATIONS SEQUENCES....
010934,000917:
010935,000918: 11,3210 33263 POSTAND CAF EBANK3 # COMES HERE FROM LST2FAN
010936,000919: 11,3211 56003 XCH EBANK # SET UP EBANK FOR BANK 3
010937,000920: 11,3212 05470 TC FINETIME
010938,000921: 11,3213 53507 DXCH TIMAR # READ THE SCALAR AND SEE IF IT OVERFLOW-
010939,000922: 11,3214 00003 RELINT # ED WHILE THE CGC WAS IN STBY, IF SO
010940,000923: 11,3215 31506 CAE TIMAR # THE OVERFLOW MUST BE ADDED OR IT WILL
010941,000924: 11,3216 00006 EXTEND # SEEM THAT THE REALATIVITY THEORY WORKS
010942,000925: 11,3217 61504 SU SCALSAV # BETTER THAN IT SHOULD...
010943,000926: 11,3220 00006 EXTEND
010944,000927: 11,3221 63244 BZMF ADDTIME # IF ITS NEG. IT MUST HAVE OV:FLWD..
010945,000928:
010946,000929: 11,3222 06000 TC INTPRET
010947,000930: 11,3223 45345 DLOAD DSU # IF IT DID NOT OV-FLW. FIND OUT HOW LONG
010948,000931: 11,3224 01507 TIMAR # THE CGC WAS IN STBY BY SUBTRACTING THE
010949,000932: 11,3225 01505 SCALSAV # SCALAR AT THE START OF STBY FROM THE
010950,000933: 11,3226 45061 SRR RTB # SCALAR AT THE END OF STBY AND THEN ADD
010951,000934: 11,3227 01606 5 # THE DIFFERENCE TO THE TIME EXISTING
010952,000935: 11,3230 33406 SGNAGREE # WHEN THE SCALAR WAS READ AT STBY ENTRY**
010953,000936: 11,3231 77615 DAD
010954,000937: 11,3232 01503 TIMESAV
010955,000938: 11,3233 01507 STORE TIMAR
010956,000939: 11,3234 77776 EXIT
010957,000940:
010958,000941: 11,3235 00006 CORCTTIM EXTEND
010959,000942: 11,3236 31507 DCA TIMAR # THIS IS THE CORRECTED TIME TO BE READ
010960,000943: 11,3237 52025 DXCH TIME2 # INTO TIME1 AND TIME2 REGS. ADDR 24-25
010961,000944:
010962,000945: 11,3240 47645 CS BIT11
010963,000946: 11,3241 00006 EXTEND # DISABLE THE DSKY STBY PUSHBUTTON.
010964,000947: 11,3242 03013 WAND 13
010965,000948: 11,3243 04440 TC ENDOFJOB
010966,000949:
010967,000950: 11,3244 00006 ADDTIME EXTEND
010968,000951: 11,3245 37637 DCA DPOSMAX # IF THE SCALAR OVERFLOWED, FIND OUT HOW
010969,000952: 11,3246 53511 DXCH TIMEDIFF # MUCH TIME REMAINED WHEN READ THE FIRST
010970,000953: 11,3247 06000 TC INTPRET # TIME AND THEN ADD THE PRESENT READING-
010971,000954: 11,3250 45345 DLOAD DSU # WHICH WILL BE THE TOTAL TIME SPENT IN
010972,000955: 11,3251 01511 TIMEDIFF # STANDBY, TO WHICH THE TIME AT STBY
010973,000956: 11,3252 01505 SCALSAV # MAY BE ADDED TO FIND THE PRESENT TIME
010974,000957: 11,3253 54215 DAD SRR # CORRECT TO 10 MSEC..
010975,000958: 11,3254 01507 TIMAR # **** THE TIME IN STANDBY MODE MUST NOT
010976,000959: 11,3255 01606 5 # EXCEED 23 HOURS IF TIME IS TO BE
010977,000960: 11,3256 77615 DAD # CORRECTLY COMPUTED BY THIS ROUTINE.*****
010978,000961: 11,3257 01503 TIMESAV
010979,000962: 11,3260 01507 STORE TIMAR
|
|
Page 284 |
010981,000964: 11,3261 77776 EXIT
010982,000965: 11,3262 03235 TC CORCTTIM
010983,000966:
010984,000967: 11,3263 01400 EBANK3 OCT 01400 # CONST USED TO SET EBANK REG FOR BANK 3
010985,000968:
010986,000969: 11,3264 ENDEXTVS EQUALS
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc