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