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.

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