Source Code

   YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS       BY MSTEWART MAR. 27,2017
This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations.

009186,000002:                                                                                                  ## Copyright:   Public domain.
009187,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
009188,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
009189,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
009190,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
009191,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
009192,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
009193,000009:                                                                                                  ##              Validation.
009194,000010:                                                                                                  ## Assembler:   yaYUL
009195,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
009196,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009197,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
009198,000014: 
009199,000015: 11,2000                                           BANK     11                                    
009200,000016: 11,2000  E5,1500                                  EBANK=   OGC                                   
009201,000017: 
009202,000018:                                                                                                  #  FAN-OUT
009203,000019: 
009204,000020: 11,2000           02070        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 40 ONLY)
009205,000021: 11,2001           02073                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
009206,000022:                                                                                                  #                                  40 ONLY)
009207,000023: 11,2002           02204                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
009208,000024: 11,2003           02566                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
009209,000025: 11,2004           02066                           TC       ALM/END                               #  ILLEGAL VERB.
009210,000026: 11,2005           12126                           TCF      LRPOS2K                               #  VB45 COMMAND LR TO POSITION 2.
009211,000027: 11,2006           02407                           TC       REGRSAMP                              #  VB46 SAMPLE RADAR ONCE PER SECOND
009212,000028: 11,2007           02401                           TC       DOFCSTST                              #  VB47 PERFORM LEM FCS TEST
009213,000029: 11,2010           02262                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
009214,000030: 11,2011           02262                           TC       GOLOADLV                              #  VB51 PLEASE MARK
009215,000031: 11,2012           02262                           TC       GOLOADLV                              #  VB52 PLEASE MARK Y
009216,000032: 11,2013           02262                           TC       GOLOADLV                              #  VB53 PLEASE MARK X OR Y.
009217,000033: 11,2014           02266                           TC       TORQGYRS                              #  VB54 PULSE TORQUE GYROS
009218,000034: 11,2015           02303                           TC       ALINTIME                              #  VB55 ALIGN TIME
009219,000035: 11,2016           02377                           TC       GOSHOSUM                              #  VB56 PERFORM BANKSUM
009220,000036: 11,2017           02327                           TC       SYSTEST                               #  VB57 PERFORM SYSTEM TEST
009221,000037: 11,2020           03117                           TC       PRESTAND                              #  VB60 PREPARE FOR STANDBY
009222,000038: 11,2021           03165                           TC       POSTAND                               #  VB61 RECOVER FROM STANDBY
009223,000039: 11,2022           02634                           TC       SETUPMSG                              #  VB62 SCAM LEM INBITS
009224,000040: 11,2023           12524                           TCF      AGSINIT                               #  VB63 INITIALIZE AGS
009225,000041: 11,2024           12066                           TCF      ALM/END                               
009226,000042: 11,2025           12066                           TCF      ALM/END                               
009227,000043: 11,2026           12066                           TCF      ALM/END                               
009228,000044: 11,2027           12066                           TCF      ALM/END                               
009229,000045: 11,2030           12066                           TCF      ALM/END                               
009230,000046: 11,2031           12066                           TCF      ALM/END                               
009231,000047: 11,2032           12066                           TCF      ALM/END                               
009232,000048: 11,2033           12066                           TCF      ALM/END                               
009233,000049: 11,2034           12066                           TCF      ALM/END                               
009234,000050: 
009235,000051: 11,2035           12066                           TCF      ALM/END                               
009236,000052: 11,2036           12066                           TCF      ALM/END                               
009237,000053: 11,2037           02066                           TC       ALM/END                               
009238,000054: 
009239,000055: 11,2040           37655        TESTXACT           CAF      BIT3                                  
009240,000056: 11,2041           70332                           MASK     EXTVBACT                              
009241,000057: 11,2042           10000                           CCS      A                                     
009242,000058: 11,2043           02053                           TC       XACTALM                               
009243,000059: 
009244,000060: 11,2044           47655        XACT1              CS       BIT3                                  
009245,000061: 11,2045           00004                           INHINT                                         
009246,000062: 11,2046           70332                           MASK     EXTVBACT                              
009247,000063: 11,2047           67655                           AD       BIT3                                  
009248,000064: 11,2050           54332                           TS       EXTVBACT                              
009249,000065: 
009250,000066: 11,2051           00003                           RELINT                                         
009251,000067: 11,2052           00002                           TC       Q                                     
009252,000068: 
009253,000069: 11,2053           05235        XACTALM            TC       FALTON                                
009254,000070: 11,2054           04421                           TC       ENDOFJOB                              
009255,000071: 
009256,000072: 11,2055           05373        TERMEXTV           TC       FREEDSP                               #  IF WE GET A TERMINATE INSTEAD OF A LOAD.
009257,000073: 
009258,000074: 11,2056           02060        ENDEXTVB           TC       XACT0                                 
009259,000075: 11,2057           04421                           TC       ENDOFJOB                              
009260,000076: 
009261,000077: 11,2060           47655        XACT0              CS       BIT3                                  
009262,000078: 11,2061           00004                           INHINT                                         
009263,000079: 11,2062           70332                           MASK     EXTVBACT                              
009264,000080: 11,2063           54332                           TS       EXTVBACT                              
009265,000081: 11,2064           00003                           RELINT                                         
009266,000082: 11,2065           00002        XACT0Q             TC       Q                                     
009267,000083: 
009268,000084: 
009269,000085: 
009270,000086: 11,2066           05235        ALM/END            TC       FALTON                                
009271,000087: 11,2067           02056                           TC       ENDEXTVB                              
009272,000088: 
009273,000089: 
009274,000090: 
009275,000091: 11,2070           02076        VBZERO             TC       OP/INERT                              
009276,000092: 11,2071           02110                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
009277,000093: 11,2072           02117                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(40)
009278,000094: 
009279,000095: 11,2073           02076        VBCOARK            TC       OP/INERT                              
009280,000096: 11,2074           02132                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
009281,000097: 11,2075           02234                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (40)
009282,000098: 
009283,000099:                                                                                                  #  RETURNS TO L+1 IF IMU, L+2 IF RR, AND L+3 IF OT.
009284,000100: 
009285,000101: 11,2076           47653        OP/INERT           CS       BIT5                                  #  OCT20
009286,000102: 11,2077           60267                           AD       NOUNREG                               
009287,000103: 11,2100           00006                           EXTEND                                         
009288,000104: 11,2101           12065                           BZF      XACT0Q                                #  IF = 20.
009289,000105: 
009290,000106: 11,2102           24002                           INCR     Q                                     
009291,000107: 11,2103           62107                           AD       RRIMUDIF                              #  = -20 OCT.
009292,000108: 11,2104           00006                           EXTEND                                         
009293,000109: 11,2105           12065                           BZF      XACT0Q                                
009294,000110: 
009295,000111: 11,2106           02066                           TC       ALM/END                               #  ILLEGAL.
009296,000112: 
009297,000113: 11,2107           77757        RRIMUDIF           OCT      -20                                   
009298,000114: 
009299,000115:                                                                                                  #  KEYBOARD REQUEST TO ZERO IMU ENCODERS
009300,000116: 
009301,000117: 11,2110           02040        IMUZEROK           TC       TESTXACT                              #  ZERO ENCODERS.
009302,000118: 11,2111           04065                           TC       BANKCALL                              
009303,000119: 11,2112           26000                           CADR     IMUZERO                               
009304,000120: 
009305,000121: 11,2113           04065                           TC       BANKCALL                              #  STALL
009306,000122: 11,2114           26716                           CADR     IMUSTALL                              
009307,000123: 11,2115           02116                           TC       +1                                    
009308,000124: 
009309,000125: 11,2116           02056                           TC       ENDEXTVB                              
009310,000126: 11,2117           02040        RRZEROK            TC       TESTXACT                              
009311,000127: 11,2120           04065                           TC       BANKCALL                              #  ZERO RR CDUS.
009312,000128: 11,2121           20247                           CADR     RRZERO                                
009313,000129: 
009314,000130: 11,2122           04065        RWAITK             TC       BANKCALL                              
009315,000131: 11,2123           26712                           CADR     RADSTALL                              
009316,000132: 11,2124           12125                           TCF      +1                                    
009317,000133: 11,2125           12056                           TCF      ENDEXTVB                              
009318,000134: 
009319,000135: 11,2126           02040        LRPOS2K            TC       TESTXACT                              #  COMMAND LR TO POSITION 2.
009320,000136: 11,2127           04065                           TC       BANKCALL                              
009321,000137: 11,2130           21172                           CADR     LRPOS2                                
009322,000138: 11,2131           12122                           TCF      RWAITK                                
009323,000139: 
009324,000140:                                                                                                  #  KEYBOARD REQUEST TO COARSE ALIGN THE IMU
009325,000141: 
009326,000142: 11,2132           02040        IMUCOARK           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
009327,000143: 11,2133           05311                           TC       GRABWAIT                              
009328,000144: 11,2134           32152                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
009329,000145: 11,2135           05324                           TC       NVSBWAIT                              
009330,000146: 11,2136           05132                           TC       ENDIDLE                               #  STALL WAITING FOR THE LOAD
009331,000147: 11,2137           02055                           TC       TERMEXTV                              
009332,000148: 11,2140           02154                           TC       ICSDEL                                #  PROCEED - ASK FOR INCREMENTAL LOAD.
009333,000149: 
009334,000150: 11,2141           32153        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
009335,000151: 11,2142           05324                           TC       NVSBWAIT                              
009336,000152: 11,2143           05373                           TC       FREEDSP                               #  RELEASE THE DISPLAYS
009337,000153: 
009338,000154: 11,2144           04065                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
009339,000155: 11,2145           26055                           CADR     IMUCOARS                              
009340,000156: 
009341,000157: 11,2146           04065                           TC       BANKCALL                              #  STALL
009342,000158: 11,2147           26716                           CADR     IMUSTALL                              
009343,000159: 11,2150           02056                           TC       ENDEXTVB                              
009344,000160: 11,2151           02056                           TC       ENDEXTVB                              
009345,000161: 
009346,000162: 11,2152           02522        VNLODCDU           OCT      02522                                 
009347,000163: 11,2153           04100        IMUCOARV           OCT      04100                                 
009348,000164: 
009349,000165:                                                                                                  #           PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
009350,000166: 
009351,000167: 11,2154           32202        ICSDEL             CAF      DELLOAD                               
009352,000168: 11,2155           05324                           TC       NVSBWAIT                              #  REQUEST LOAD OF DELTA ICDU ANGLES.
009353,000169: 11,2156           05132                           TC       ENDIDLE                               
009354,000170: 11,2157           02055                           TC       TERMEXTV                              
009355,000171: 11,2160           02141                           TC       ICORK2                                #  PROCEED WITHOUT DATA HERE TOO.
009356,000172: 11,2161           02163                           TC       INCLOOP                               #  LOOP TO INCREMENT THETAD FROM DSPTEM2.
009357,000173: 11,2162           02141                           TC       ICORK2                                #  RE-DISPLAY COARSE ALIGN VERB.
009358,000174: 
009359,000175: 11,2163           56002        INCLOOP            XCH      Q                                     #  INCREMENTS THETADS IN 2S COMPLEMENT FROM
009360,000176: 11,2164           54140                           TS       MPAC                                  #   THREE ANGLE INCREMENTS IN DSPTEM2S.
009361,000177: 11,2165           32203                           CAF      LTHD+2                                
009362,000178: 11,2166           54114                           TS       BUF                                   #  SET UP FOR CDUINC.
009363,000179: 11,2167           37656                           CAF      TWO                                   #  THREE TIMES THROUGH.
009364,000180: 
009365,000181: 11,2170           54141        INCLOOP2           TS       MPAC       +1                         
009366,000182: 11,2171           50000                           INDEX    A                                     
009367,000183: 11,2172           56336                           XCH      DSPTEM2                               #  INCREMENT TO TEM2 FOR CDUINC.
009368,000184: 11,2173           04065                           TC       BANKCALL                              
009369,000185: 11,2174           33470                           CADR     CDUINC                                
009370,000186: 11,2175           10114                           CCS      BUF                                   
009371,000187: 11,2176           54114                           TS       BUF                                   
009372,000188: 11,2177           10141                           CCS      MPAC       +1                         
009373,000189: 11,2200           02170                           TC       INCLOOP2                              
009374,000190: 
009375,000191: 11,2201           00140                           TC       MPAC                                  #  RETURN WHEN FINISHED.
009376,000192: 
009377,000193: 11,2202           02523        DELLOAD            OCT      02523                                 
009378,000194: 11,2203           00402        LTHD+2             ADRES    THETAD     +2                         
009379,000195: 
009380,000196:                                                                                                  #  KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
009381,000197: 
009382,000198: 11,2204           02040        IMUFINEK           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
009383,000199: 11,2205           05311                           TC       GRABWAIT                              
009384,000200: 11,2206           32232                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
009385,000201: 11,2207           05324                           TC       NVSBWAIT                              
009386,000202: 11,2210           05132                           TC       ENDIDLE                               #  HOLD UP FOR THE DATA LOAD
009387,000203: 11,2211           02055                           TC       TERMEXTV                              
009388,000204: 11,2212           02213                           TC       +1                                    #  PROCEED WITHOUT A LOAD
009389,000205: 
009390,000206: 11,2213           32233                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
009391,000207: 11,2214           05324                           TC       NVSBWAIT                              
009392,000208: 11,2215           05373                           TC       FREEDSP                               #  RELEASE DISPLAYS
009393,000209: 
009394,000210: 11,2216           04065                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
009395,000211: 11,2217           26227                           CADR     IMUFINE                               
009396,000212: 
009397,000213: 11,2220           04065                           TC       BANKCALL                              #  HIBERNATION
009398,000214: 11,2221           26716                           CADR     IMUSTALL                              
009399,000215: 11,2222           02056                           TC       ENDEXTVB                              
009400,000216: 
009401,000217: 11,2223           32301        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
009402,000218: 11,2224           04065                           TC       BANKCALL                              
009403,000219: 11,2225           26317                           CADR     IMUPULSE                              
009404,000220: 
009405,000221: 11,2226           04065                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
009406,000222: 11,2227           26716                           CADR     IMUSTALL                              
009407,000223: 11,2230           02056                           TC       ENDEXTVB                              
009408,000224: 11,2231           02056                           TC       ENDEXTVB                              
009409,000225: 
009410,000226: 11,2232           02567        VNLODGYR           OCT      02567                                 
009411,000227: 11,2233           04200        IMUFINEV           OCT      04200                                 #  FINE ALIGN VERB
009412,000228: 
009413,000229:                                                                                                  #           DESIGNATE TO DESIRED GIMBAL ANGLES.
009414,000230: 
009415,000231: 11,2234           02040        RRDESNBK           TC       TESTXACT                              
009416,000232: 11,2235           05311                           TC       GRABWAIT                              
009417,000233: 11,2236           32255                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
009418,000234: 11,2237           05324                           TC       NVSBWAIT                              
009419,000235: 11,2240           05132                           TC       ENDIDLE                               #  WAIT FOR THE LOAD
009420,000236: 11,2241           02055                           TC       TERMEXTV                              
009421,000237: 11,2242           02243                           TC       +1                                    #  PROCEED
009422,000238: 
009423,000239: 11,2243           04065                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
009424,000240: 11,2244           22776                           CADR     AURLOKON                              
009425,000241: 
009426,000242: 11,2245           32153                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
009427,000243: 11,2246           05324                           TC       NVSBWAIT                              
009428,000244: 11,2247           00004                           INHINT                                         #  FIRE UP JOB TO DO DESIGNATE.
009429,000245: 11,2250           37642                           CAF      PRIO20                                
009430,000246: 11,2251           04355                           TC       FINDVAC                               
009431,000247: 11,2252  E5,1500                                  EBANK=   OGC                                   
009432,000248: 11,2252           02256 22005                     2CADR    RRDESK2                               
009433,000249: 
009434,000250: 11,2254           12055                           TCF      TERMEXTV                              #  FREES DISPLAY.
009435,000251: 
009436,000252: 11,2255           02441        VNLDRCDU           OCT      02441                                 
009437,000253: 11,2256  11,2153               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
009438,000254: 
009439,000255: 11,2256           06000        RRDESK2            TC       INTPRET                               
009440,000256: 
009441,000257: 11,2257           77634                           CALL                                           
009442,000258: 11,2260           20363                                    RRDESNB                               #  RETURNS IN BASIC.
009443,000259: 
009444,000260: 11,2261           02122                           TC       RWAITK                                
009445,000261: 
009446,000262:                                                                                                  #  PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
009447,000263:                                                                                                  #  ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
009448,000264:                                                                                                  #  LOAD.  OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
009449,000265:                                                                                                  #  PERFORM THE REQUESTED ACTION.
009450,000266: 
009451,000267: 11,2262           05272        GOLOADLV           TC       FLASHOFF                              
009452,000268: 11,2263           02060                           TC       XACT0                                 
009453,000269: 11,2264           04104                           TC       POSTJUMP                              
009454,000270: 11,2265           12002                           CADR     LOADLV1                               
009455,000271: 
009456,000272:                                                                                                  #  KEYBOARD REQUEST TO PULSE TORQUE IRIGA
009457,000273: 
009458,000274: 
009459,000275: 
009460,000276: 11,2266           02040        TORQGYRS           TC       TESTXACT                              #  GYRO TORQUING WITH NO MODE-SWITCH.
009461,000277: 11,2267           05311                           TC       GRABWAIT                              
009462,000278: 11,2270           32232                           CAF      VNLODGYR                              
009463,000279: 11,2271           05324                           TC       NVSBWAIT                              
009464,000280: 11,2272           05132                           TC       ENDIDLE                               
009465,000281: 11,2273           02055                           TC       TERMEXTV                              
009466,000282: 11,2274           02275                           TC       +1                                    
009467,000283: 11,2275           32302                           CAF      TORQGYRV                              #  RE-DISPLAY OUR OWN VERB
009468,000284: 11,2276           05324                           TC       NVSBWAIT                              
009469,000285: 11,2277           05373                           TC       FREEDSP                               
009470,000286: 11,2300           12223                           TCF      FINEK2                                
009471,000287: 
009472,000288: 11,2301           00403        LGYROBIN           ECADR    DELVX                                 
009473,000289: 11,2302           05400        TORQGYRV           OCT      05400                                 
009474,000290: 
009475,000291:                                                                                                  #  ALIGN TIME
009476,000292: 11,2303           32326        ALINTIME           CAF      VNLODDT                               #  USES NVSUBMON. DOES NOT TEST DSPLOCK.
009477,000293: 11,2304           54107                           TS       NVTEMP                                #  DOES NOT KILL MONITOR.
009478,000294: 11,2305           05115                           TC       NVSUBMON                              
009479,000295: 11,2306           04421                           TC       ENDOFJOB                              #  IN CASE OF ALARM IN LOAD REQUEST SET UP.
009480,000296: 11,2307           05132                           TC       ENDIDLE                               
009481,000297: 11,2310           04421                           TC       ENDOFJOB                              #  TERMINATE
009482,000298: 11,2311           04421                           TC       ENDOFJOB                              #  PROCEED WITHOUT DATA
009483,000299: 11,2312           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
009484,000300: 11,2313           37665                           CAF      ZERO                                  
009485,000301: 11,2314           54142                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
009486,000302: 11,2315           54001                           TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
009487,000303: 11,2316           52025                           DXCH     TIME2                                 
009488,000304: 11,2317           52141                           DXCH     MPAC                                  
009489,000305: 11,2320           52334                           DXCH     DSPTEM1                               #  INCREMENT.
009490,000306: 11,2321           20141                           DAS      MPAC                                  
009491,000307: 
009492,000308: 11,2322           07235                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
009493,000309: 11,2323           52141                           DXCH     MPAC                                  #  NEW CLOCK.
009494,000310: 11,2324           20025                           DAS      TIME2                                 
009495,000311: 11,2325           04421                           TC       ENDOFJOB                              
009496,000312: 
009497,000313: 11,2326           02124        VNLODDT            OCT      02124                                 #  V/N FOR LOAD DELTA TIME
009498,000314: 
009499,000315:                                                                                                  #           SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
009500,000316: 
009501,000317: 11,2327  E5,1546                                  EBANK=   QPLACE                                
009502,000318: 
009503,000319: 11,2327           10276        SYSTEST            CCS      MODREG                                #  DEMAND MODE 00.
009504,000320: 11,2330           12053                           TCF      XACTALM                               
009505,000321: 
009506,000322: 11,2331           05311                           TC       GRABWAIT                              
009507,000323: 11,2332           32376        REDO               CAF      LQPL                                  #  ASK FOR TEST OPTION (1 - 7).
009508,000324: 11,2333           54142                           TS       MPAC       +2                         
009509,000325: 11,2334           32375                           CAF      TESTNV                                
009510,000326: 11,2335           05324                           TC       NVSBWAIT                              
009511,000327: 11,2336           05132                           TC       ENDIDLE                               
009512,000328: 11,2337           04420                           TC       EJFREE                                
009513,000329: 11,2340           02332                           TC       REDO                                  
009514,000330: 
009515,000331: 11,2341           04650                           TC       NEWMODEX                              
009516,000332: 11,2342           00007                           OCT      07                                    
009517,000333: 
009518,000334: 11,2343           00004                           INHINT                                         
009519,000335: 11,2344           37642                           CAF      PRIO20                                
009520,000336: 11,2345           04355                           TC       FINDVAC                               
009521,000337: 11,2346           02351 22005                     2CADR    TSELECT                               
009522,000338: 
009523,000339: 11,2350           04421                           TC       ENDOFJOB                              #  LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
009524,000340: 
009525,000341: 11,2351           35216        TSELECT            CAF      LOW5                                  
009526,000342: 11,2352           71546                           MASK     QPLACE                                #  SAFETY PLAY.
009527,000343: 11,2353           50000                           INDEX    A                                     
009528,000344: 11,2354           32356                           CAF      TESTCADR                              
009529,000345: 11,2355           04107                           TC       BANKJUMP                              
009530,000346: 
009531,000347: 11,2356           22066        TESTCADR           CADR     ALM/END                               #  0  ILLEGAL
009532,000348: 11,2357           36000                           CADR     IMUTEST                               #  1  GYRO DRIFT TEST
009533,000349: 11,2360           36024                           CADR     IMUBACK                               #  2 REPEAT OF IMUTEST
009534,000350: 11,2361           30000                           CADR     AOTNBIMU                              #  3  IMU ALIGNMENT TEST
009535,000351: 11,2362           36245                           CADR     OPCHK                                 #  4  IMU CHECK
009536,000352: 11,2363           36445                           CADR     GYRSFTST                              #  5  GYRO TORQUING TEST
009537,000353: 11,2364           22364                           CADR                                           #   AVAILABLE
009538,000354: 11,2365           43413                           CADR     GTSCPSS                               #  7. OPTIMUM COMPASS
009539,000355: 11,2366           34556                           CADR     SAMODCHK                              #  10 SEMI-AUTOMATIC MODING CHECK
009540,000356: 11,2367           31324                           CADR     SAUTOIFS                              #  11 SEMI-AUTOMATIC INTERFACE TEST
009541,000357: 11,2370           31562                           CADR     AOTANGCK                              #  12 AOT ANGLE CHECK
009542,000358: 11,2371           31120                           CADR     RDRINIT                               #  13 RENDEZVOUS RADAR / ANTENNAE TRACKING
009543,000359: 11,2372           22403                           CADR     FSTRSAMP                              #  14 HIGH SPEED RADAR SAMPLING.
009544,000360: 
009545,000361: 11,2373           31613                           CADR     ZEROERAS                              
009546,000362: 11,2374           23025                           CADR     DISINDT                               #  DISPLAY INERTIAL DATA TEST.
009547,000363: 11,2375           02101        TESTNV             OCT      2101                                  
009548,000364: 11,2376           02546        LQPL               ECADR    QPLACE                                
009549,000365: 
009550,000366: 11,2377           04104        GOSHOSUM           TC       POSTJUMP                              #  START ROUTINE TO DISPLAY SUM OF EACH
009551,000367: 11,2400           41470                           CADR     SHOWSUM                               #  BANK ON DSKY
009552,000368: 
009553,000369: 11,2401           04104        DOFCSTST           TC       POSTJUMP                              
009554,000370: 11,2402           14000                           CADR     FCSSTART                              
009555,000371: 
009556,000372:                                                                                                  #           SET UP FOR RADAR SAMPLING.
009557,000373: 
009558,000374: 11,2403  E7,1434                                  EBANK=   RSTKLOC                               
009559,000375: 
009560,000376: 11,2403           32472        FSTRSAMP           CAF      RSTKLIST                              #  HIGH SPEED SAMPLING. SWITCH TO SPECIAL
009561,000377: 11,2404           54411                           TS       DNLSTADR                              #  DOWNLIST.
009562,000378: 11,2405           47657                           CS       ONE                                   #  WANTS TM BUFFERING.
009563,000379: 11,2406           12411                           TCF      RSAMPTST                              
009564,000380: 
009565,000381: 11,2407           05311        REGRSAMP           TC       GRABWAIT                              
009566,000382: 11,2410           32473                           CAF      1SEC+1                                #  SHOWS NO TM BUFFERING.
009567,000383: 
009568,000384: 11,2411           54142        RSAMPTST           TS       MPAC       +2                         
009569,000385: 11,2412           00004                           INHINT                                         
009570,000386: 11,2413           42474                           CS       LRPOSCAL                              #  INITIALIZE SCALE AND LR POSITION BITS.
009571,000387: 11,2414           70413                           MASK     RADMODES                              
009572,000388: 11,2415           54413                           TS       RADMODES                              
009573,000389: 
009574,000390: 11,2416           32474                           CAF      LRPOSCAL                              
009575,000391: 11,2417           00006                           EXTEND                                         
009576,000392: 11,2420           02033                           RAND     33                                    
009577,000393: 11,2421           26413                           ADS      RADMODES                              
009578,000394: 
009579,000395: 11,2422           00003                           RELINT                                         
009580,000396: 11,2423           32444                           CAF      LRTSTDEX                              
009581,000397: 11,2424           54003                           TS       EBANK                                 
009582,000398: 11,2425           56142                           XCH      MPAC       +2                         
009583,000399: 11,2426           55435                           TS       RSAMPDT                               #  HI SPEED NNZ - LO SPEED PNZ.
009584,000400: 11,2427           37665                           CAF      ZERO                                  
009585,000401: 11,2430           55434                           TS       RTSTLOC                               
009586,000402: 11,2431           55436                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER.
009587,000403: 11,2432           32470                           CAF      HISPMAX                               
009588,000404: 11,2433           55432                           TS       RTSTMAX                               
009589,000405: 
009590,000406: 11,2434           32471                           CAF      RTSTNV                                
009591,000407: 11,2435           05324                           TC       NVSBWAIT                              
009592,000408: 11,2436           05132                           TC       ENDIDLE                               
009593,000409: 11,2437           04420                           TC       EJFREE                                #  ON TERMINATE.
009594,000410: 11,2440           12475                           TCF      RSEMIAUT                              #  PROCEED MEANS SEMI-AUTO SEQUENCING.
009595,000411: 11,2441           05373        RDRDFREE           TC       FREEDSP                               
009596,000412: 11,2442           11435                           CCS      RSAMPDT                               #  SEE IF HI OR LO SPEED SAMPLING.
009597,000413: 11,2443           12447                           TCF      +4                                    
009598,000414: 
009599,000415: 11,2444           03431        LRTSTDEX           ECADR    RTSTDEX                               
009600,000416: 
009601,000417: 11,2445           04104                           TC       POSTJUMP                              #  EXEC. OTHERWISE, SET UP WAITLIST TIMING.
009602,000418: 11,2446           21274                           CADR     DORSAMP                               
009603,000419: 
009604,000420: 11,2447           36162                           CAF      SIX                                   #  FIND OUT WHICH RADAR WANTED.
009605,000421: 11,2450           71431                           MASK     RTSTDEX                               
009606,000422: 
009607,000423: 11,2451           10000                           CCS      A                                     
009608,000424: 11,2452           12456                           TCF      LRCYCLE                               #  LANDING RADAR ARE SERIALS 2 - 5.
009609,000425: 
009610,000426: 11,2453           55433                           TS       RTSTBASE                              #  FOR RR BASE = 0, MAX = 1.
009611,000427: 11,2454           36162                           CAF      SIX                                   
009612,000428: 11,2455           12461                           TCF      +4                                    
009613,000429: 
009614,000430: 11,2456           37656        LRCYCLE            CAF      TWO                                   #  FOR LR BASE = 2, MAX = 3.
009615,000431: 11,2457           55433                           TS       RTSTBASE                              
009616,000432: 11,2460           32467                           CAF      18R                                   
009617,000433: 
009618,000434: 11,2461           55432                 +4        TS       RTSTMAX                               
009619,000435: 11,2462           00004                           INHINT                                         
009620,000436: 11,2463           04517                           TC       WAITLIST                              
009621,000437: 11,2464  E7,1434                                  EBANK=   RSTKLOC                               
009622,000438: 11,2464           03254 20007                     2CADR    RADSAMP                               
009623,000439: 
009624,000440: 11,2466           04421                           TC       ENDOFJOB                              
009625,000441: 
009626,000442: 11,2467           00022        18R                DEC      18         B-14                       
009627,000443: 11,2470           00102        HISPMAX            DEC      66         B-14                       
009628,000444: 11,2471           02101        RTSTNV             OCT      2101                                  
009629,000445: 11,2472           02253        RSTKLIST           GENADR   FSTRADTM                              
009630,000446: 11,2473           00145        1SEC+1             DEC      101        B-14                       
009631,000447: 11,2474           00444        LRPOSCAL           OCT      444                                   
009632,000448: 
009633,000449:                                                                                                  #           SEMI-AUTO RADAR TESTING.
009634,000450: 
009635,000451: 11,2475           00004        RSEMIAUT           INHINT                                         
009636,000452: 11,2476           34504                           CAF      PRIO25                                #  START HI SPEED SAMPLING.
009637,000453: 11,2477           04344                           TC       NOVAC                                 
009638,000454: 11,2500           03274 20007                     2CADR    DORSAMP                               
009639,000455: 
009640,000456: 11,2502           00003                           RELINT                                         
009641,000457: 11,2503           37664                           CAF      FIVE                                  #  SEQUENCE THROUGH ALL SIX CHANNELS.
009642,000458: 11,2504           55431                 -1        TS       RTSTDEX                               
009643,000459: 
009644,000460: 11,2505           32523        33PASTE            CAF      RV33                                  #  ON ENTER, SWITCH TO NEXT CHANNEL.
009645,000461: 11,2506           05324                           TC       NVSBWAIT                              
009646,000462: 11,2507           05266                           TC       FLASHON                               
009647,000463: 11,2510           05132                           TC       ENDIDLE                               
009648,000464: 11,2511           02516                           TC       ENDRTST                               #  ON TERMINATE.
009649,000465: 11,2512           12514                           TCF      +2                                    
009650,000466: 11,2513           12505                           TCF      33PASTE                               #  DONT ACCEPT DATA.
009651,000467: 
009652,000468: 11,2514           11431                           CCS      RTSTDEX                               
009653,000469: 11,2515           12504                           TCF      33PASTE    -1                         
009654,000470: 
009655,000471: 11,2516           37665        ENDRTST            CAF      ZERO                                  #  ENDTEST.
009656,000472: 11,2517           55435                           TS       RSAMPDT                               
009657,000473: 11,2520           04650                           TC       NEWMODEX                              
009658,000474: 11,2521           00000                           OCT      0                                     
009659,000475: 11,2522           04420                           TC       EJFREE                                
009660,000476: 
009661,000477: 11,2523           03300        RV33               OCT      3300                                  
009662,000478: 
009663,000479:                                                                                                  #           AGS INITIALIZATION PROGRAM.
009664,000480: 
009665,000481: 11,2524           10412        AGSINIT            CCS      AGSWORD                               #  ZERO IF AGS NOT NOW BEING INITIALIZED.
009666,000482: 11,2525           02066                           TC       ALM/END                               #  DO IT LATER.
009667,000483: 
009668,000484: 11,2526           30025                           CA       TIME1                                 
009669,000485: 11,2527           62564                           AD       12SECS                                
009670,000486: 11,2530           54001                           TS       L                                     
009671,000487: 11,2531           02546                           TC       SENDIT                                
009672,000488: 
009673,000489: 11,2532           00004                           INHINT                                         #  T1 WILL OVERFLOW, DELAY FOR 12 SECS
009674,000490: 11,2533           32564                           CA       12SECS                                
009675,000491: 11,2534           54412                           TS       AGSWORD                               
009676,000492: 11,2535           04517                           TC       WAITLIST                              
009677,000493: 11,2536           02541 22007                     2CADR    AGSJOB                                
009678,000494: 11,2540           04421                           TC       ENDOFJOB                              
009679,000495: 
009680,000496: 11,2541           34507        AGSJOB             CAF      PRIO30                                #  ENTER AGSINIT JOB VIA EXEC
009681,000497: 11,2542           04344                           TC       NOVAC                                 
009682,000498: 11,2543           02546 22007                     2CADR    SENDIT                                
009683,000499: 
009684,000500: 11,2545           04563                           TC       TASKOVER                              
009685,000501: 
009686,000502: 11,2546           00004        SENDIT             INHINT                                         
009687,000503: 11,2547           32565                           CAF      LAGSLIST                              #  SWITCH TO SPECIAL DOWNLIST FOR 10 SECS.
009688,000504: 11,2550           56411                           XCH      DNLSTADR                              
009689,000505: 11,2551           54412                           TS       AGSWORD                               #  TO SHOW INITIALIZATION IN PROGRESS.
009690,000506: 
009691,000507: 11,2552           32563                           CAF      10SECS                                
009692,000508: 11,2553           04517                           TC       WAITLIST                              
009693,000509: 11,2554           02557 22007                     2CADR    AGSINIT2                              
009694,000510: 
009695,000511: 11,2556           14421                           TCF      ENDOFJOB                              
009696,000512: 
009697,000513: 11,2557           37665        AGSINIT2           CAF      ZERO                                  #  END OF INITIALIZATION.
009698,000514: 11,2560           56412                           XCH      AGSWORD                               
009699,000515: 11,2561           54411                           TS       DNLSTADR                              #  REVERT TO ORIGINAL DOWNLIST.
009700,000516: 11,2562           14563                           TCF      TASKOVER                              
009701,000517: 
009702,000518: 11,2563           01750        10SECS             DEC      1000       B-14                       
009703,000519: 11,2564           02260        12SECS             DEC      1200       B-14                       
009704,000520: 11,2565           02001        LAGSLIST           GENADR   AGSLIST                               
009705,000521: 
009706,000522:                                                                                                  #           VB 43  IMU ATTITUDE ERROR METER LOADER.
009707,000523: 
009708,000524: 11,2566           02040        IMUATTCK           TC       TESTXACT                              
009709,000525: 11,2567           42631                           CS       OCT50K                                #  REMOVE COARSE AND ECTR ENABLE.
009710,000526: 11,2570           00006                           EXTEND                                         
009711,000527: 11,2571           03012                           WAND     12                                    
009712,000528: 
009713,000529: 11,2572           05311                           TC       GRABWAIT                              
009714,000530: 11,2573           32152                           CAF      VNLODCDU                              
009715,000531: 11,2574           05324                           TC       NVSBWAIT                              
009716,000532: 11,2575           05132                           TC       ENDIDLE                               
009717,000533: 11,2576           02055                           TC       TERMEXTV                              
009718,000534: 11,2577           02600                           TC       +1                                    
009719,000535: 11,2600           32632                           CAF      V43K                                  #  REDISPLAY OUR VERB.
009720,000536: 11,2601           05324                           TC       NVSBWAIT                              
009721,000537: 11,2602           37652                           CAF      BIT6                                  #  ENABLE ERROR COUNTER.
009722,000538: 11,2603           00006                           EXTEND                                         
009723,000539: 11,2604           05012                           WOR      12                                    
009724,000540: 11,2605           37656                           CAF      TWO                                   
009725,000541: 11,2606           00004                           INHINT                                         
009726,000542: 11,2607           04517                           TC       WAITLIST                              #  PUT OUT COMMAND IN .32 SECS.
009727,000543: 11,2610           02613 22007                     2CADR    ATTCK2                                
009728,000544: 
009729,000545: 11,2612           12055                           TCF      TERMEXTV                              #  FREES DISPLAY.
009730,000546: 
009731,000547: 11,2613           37656        ATTCK2             CAF      TWO                                   #  PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
009732,000548: 11,2614           54002                           TS       Q                                     #  INCASE OF EXCESS DATA.
009733,000549: 11,2615           50000                           INDEX    A                                     
009734,000550: 11,2616           30400                           CA       THETAD                                
009735,000551: 11,2617           00006                           EXTEND                                         
009736,000552: 11,2620           77643                           MP       BIT13                                 #  SHIFT RIGHT 2.
009737,000553: 11,2621           50002                           INDEX    Q                                     
009738,000554: 11,2622           54050                           TS       CDUXCMD                               
009739,000555: 11,2623           10002                           CCS      Q                                     
009740,000556: 11,2624           12614                           TCF      ATTCK2     +1                         
009741,000557: 
009742,000558: 11,2625           32633                           CAF      OCT70K                                
009743,000559: 11,2626           00006                           EXTEND                                         
009744,000560: 11,2627           05014                           WOR      14                                    
009745,000561: 11,2630           14563                           TCF      TASKOVER                              
009746,000562: 
009747,000563: 11,2631           00050        OCT50K             OCT      50                                    
009748,000564: 11,2632           04300        V43K               OCT      4300                                  
009749,000565: 11,2633           70000        OCT70K             OCT      70000                                 
009750,000566: 
009751,000567:                                                                                                  #           PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
009752,000568: 
009753,000569: 11,2634  E7,1606                                  EBANK=   MSGCNT                                
009754,000570: 
009755,000571: 11,2634           37657        SETUPMSG           CAF      BIT1                                  #  BEGIN SCAN.
009756,000572: 11,2635           00004                           INHINT                                         
009757,000573: 11,2636           04517                           TC       WAITLIST                              
009758,000574: 11,2637           02644 22007                     2CADR    MSGSCAN    +2                         
009759,000575: 
009760,000576: 11,2641           04421                           TC       ENDOFJOB                              
009761,000577: 
009762,000578: 11,2642           04535        MSGSCAN            TC       FIXDELAY                              
009763,000579: 11,2643           00062                           DEC      50         B-14                       
009764,000580: 
009765,000581: 11,2644           37656                           CAF      TWO                                   #  SCAN ALL 3 CHANNELS FOR CHANGES.
009766,000582: 11,2645           55606                           TS       MSGCNT                                
009767,000583: 11,2646           50000                           INDEX    A                                     
009768,000584: 11,2647           31603                           CA       LAST30                                #  OLD VALUE OF INBITS.
009769,000585: 11,2650           00006                           EXTEND                                         
009770,000586: 11,2651           51606                           INDEX    MSGCNT                                
009771,000587: 11,2652           06030                           RXOR     30                                    
009772,000588: 11,2653           51606                           INDEX    MSGCNT                                
009773,000589: 11,2654           72721                           MASK     30MSGMSK                              
009774,000590: 11,2655           00006                           EXTEND                                         
009775,000591: 11,2656           12716                           BZF      NOMSG                                 
009776,000592: 
009777,000593: 11,2657           54002                           TS       Q                                     #  SAVE DIFFERENCE.
009778,000594: 11,2660           51606                           INDEX    MSGCNT                                
009779,000595: 11,2661           23603                           LXCH     LAST30                                #  UPDATE OLD VALUE.
009780,000596: 11,2662           00006                           EXTEND                                         
009781,000597: 11,2663           06001                           RXOR     L                                     
009782,000598: 11,2664           51606                           INDEX    MSGCNT                                
009783,000599: 11,2665           55603                           TS       LAST30                                
009784,000600: 
009785,000601: 11,2666           40000                           COM                                            
009786,000602: 11,2667           56002                           XCH      Q                                     
009787,000603: 11,2670           70002                           MASK     Q                                     #  SEE IF ANY OF CHANGED BITS JUST ON.
009788,000604: 11,2671           00006                           EXTEND                                         
009789,000605: 11,2672           12716                           BZF      NOMSG                                 #  NO MESSAGE IF SO.
009790,000606: 
009791,000607: 11,2673           54001                           TS       L                                     
009792,000608: 11,2674           31606                           CA       MSGCNT                                
009793,000609: 11,2675           60000                           DOUBLE                                         
009794,000610: 11,2676           60000                           DOUBLE                                         
009795,000611: 11,2677           77655                           MASK     BIT3                                  
009796,000612: 11,2700           70001                           MASK     L                                     
009797,000613: 11,2701           00006                           EXTEND                                         
009798,000614: 11,2702           12711                           BZF      NOTRHC                                
009799,000615: 
009800,000616: 11,2703           36162                           CAF      SIX                                   
009801,000617: 
009802,000618: 11,2704           37642                           CAF      PRIO20                                #  INITIATE MONITOR.
009803,000619: 11,2705           04344                           TC       NOVAC                                 
009804,000620: 11,2706           02730 22007                     2CADR    RHCMON                                
009805,000621: 11,2710           12716                           TCF      NOMSG                                 
009806,000622: 
009807,000623: 11,2711           32724        NOTRHC             CAF      OKT30                                 
009808,000624: 11,2712           61606                           AD       MSGCNT                                
009809,000625: 11,2713           54075                           TS       RUPTREG2                              
009810,000626: 
009811,000627: 11,2714           40002                           CS       Q                                     
009812,000628: 11,2715           02742                           TC       VMESSAGE                              
009813,000629: 
009814,000630: 11,2716           11606        NOMSG              CCS      MSGCNT                                
009815,000631: 11,2717           12645                           TCF      MSGSCAN    +3                         
009816,000632: 11,2720           12642                           TCF      MSGSCAN                               
009817,000633: 
009818,000634: 11,2721           00017        30MSGMSK           OCT      17                                    
009819,000635: 11,2722           77777                           OCT      77777                                 
009820,000636: 11,2723           03777                           OCT      3777                                  
009821,000637: 
009822,000638: 11,2724           00030        OKT30              OCT      30                                    
009823,000639: 11,2725           02735        DESCBITS           TC       MESSAGE                               #  DESCENT BITS COME HERE IN A.
009824,000640: 11,2726           00016                           OCT      16                                    
009825,000641: 11,2727           04567                           TC       RESUME                                
009826,000642: 
009827,000643: 11,2730           05311        RHCMON             TC       GRABWAIT                              #  FIRE UP DSKY MONITOR.
009828,000644: 11,2731           32734                           CAF      RHCMONVN                              
009829,000645: 11,2732           05324                           TC       NVSBWAIT                              
009830,000646: 11,2733           04420                           TC       EJFREE                                
009831,000647: 
009832,000648: 11,2734           01645        RHCMONVN           OCT      1645                                  
009833,000649: 
009834,000650:                                                                                                  #           MESSAGE DISPLAY - 3 COMPONENT OCTAL.
009835,000651: 
009836,000652: 11,2735           54075        MESSAGE            TS       RUPTREG2                              #  NEW CHANNEL CONTENTS ARRIVE IN A.
009837,000653: 11,2736           50002                           INDEX    Q                                     #  CHANNEL NUMBER IN OCTAL AT CALLER +1.
009838,000654: 11,2737           30000                           CAF      0                                     
009839,000655: 11,2740           24002                           INCR     Q                                     
009840,000656: 11,2741           56075                           XCH      RUPTREG2                              
009841,000657: 
009842,000658: 11,2742           54074        VMESSAGE           TS       RUPTREG1                              #  FOR VARIABLE CHANNEL.
009843,000659: 11,2743           00006                           EXTEND                                         
009844,000660: 11,2744           22076                           QXCH     RUPTREG3                              
009845,000661: 11,2745           34506                           CAF      PRIO27                                #  FIRE UP SPECIAL JOB.
009846,000662: 11,2746           04344                           TC       NOVAC                                 
009847,000663: 11,2747           02760 22007                     2CADR    DOMSG                                 
009848,000664: 
009849,000665: 11,2751           52075                           DXCH     RUPTREG1                              #  NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
009850,000666: 11,2752           50071                           INDEX    LOCCTR                                #  MPAC +1.
009851,000667: 11,2753           52141                           DXCH     MPAC                                  
009852,000668: 11,2754           30025                           CA       TIME1                                 
009853,000669: 11,2755           50071                           INDEX    LOCCTR                                
009854,000670: 11,2756           54142                           TS       MPAC       +2                         
009855,000671: 11,2757           00076                           TC       RUPTREG3                              
009856,000672: 
009857,000673: 11,2760           05311        DOMSG              TC       GRABWAIT                              
009858,000674: 11,2761           00006                           EXTEND                                         
009859,000675: 11,2762           30141                           DCA      MPAC                                  
009860,000676: 11,2763           52334                           DXCH     DSPTEM1                               
009861,000677: 11,2764           30142                           CA       MPAC       +2                         
009862,000678: 11,2765           54335                           TS       DSPTEM1    +2                         
009863,000679: 11,2766           32775                           CAF      MSGVN                                 
009864,000680: 11,2767           05101                           TC       NVSUB                                 
009865,000681: 11,2770           12772                           TCF      MSGBUSY                               
009866,000682: 11,2771           04420                           TC       EJFREE                                
009867,000683: 
009868,000684: 11,2772           32774        MSGBUSY            CAF      +2                                    
009869,000685: 11,2773           05321                           TC       NVSUBUSY                              
009870,000686: 11,2774           22761                           CADR     DOMSG      +1                         
009871,000687: 
009872,000688: 11,2775           00535        MSGVN              OCT      0535                                  
009873,000689: 
009874,000690:                                                                                                  #           ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
009875,000691: 
009876,000692: 11,2776           04114        AURLOKON           TC       MAKECADR                              
009877,000693: 11,2777           54427                           TS       DESRET                                
009878,000694: 11,3000           32523                           CAF      RV33                                  #  ASSUMES DSKY GRABBED.
009879,000695: 11,3001           05324                           TC       NVSBWAIT                              
009880,000696: 11,3002           05266                           TC       FLASHON                               
009881,000697: 11,3003           05132                           TC       ENDIDLE                               
009882,000698: 11,3004           13007                           TCF      +3                                    #  ON TERM.
009883,000699: 11,3005           37653                           CAF      LOKONFLG                              
009884,000700: 11,3006           13010                           TCF      +2                                    
009885,000701: 11,3007           37665                           CAF      ZERO                                  
009886,000702: 11,3010           00004                           INHINT                                         
009887,000703: 11,3011           56061                           XCH      STATE                                 
009888,000704: 11,3012           73024                           MASK     -LOKONFG                              
009889,000705: 11,3013           26061                           ADS      STATE                                 
009890,000706: 
009891,000707: 11,3014           77653                           MASK     LOKONFLG                              #  IF NO LOCK-ON CALLED FOR, SET BIT15 OF
009892,000708: 11,3015           10000                           CCS      A                                     #  RADMODES TO INDICATE THAT ARBITRARILY-
009893,000709: 11,3016           13021                           TCF      +3                                    #  LONG DESIGNATION IS WANTED (TO BE
009894,000710: 
009895,000711: 11,3017           37641                           CAF      BIT15                                 #  TERMINATED BY FRESH START).
009896,000712: 11,3020           26413                           ADS      RADMODES                              
009897,000713: 11,3021           00003                           RELINT                                         
009898,000714: 11,3022           30427                           CA       DESRET                                
009899,000715: 11,3023           14107                           TCF      BANKJUMP                              
009900,000716: 
009901,000717: 11,3024           77757        -LOKONFG           OCT      -20                                   
009902,000718: 
009903,000719:                                                                                                  #           PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
009904,000720: 
009905,000721: 11,3025           33115        DISINDT            CAF      FLVELVN                               #  ASK FOR FORWARD, LATERAL VELOCITY.
009906,000722: 11,3026           05324                           TC       NVSBWAIT                              
009907,000723: 11,3027           05132                           TC       ENDIDLE                               
009908,000724: 11,3030           13052                           TCF      ENDDISIN                              
009909,000725: 11,3031           13032                           TCF      +1                                    
009910,000726: 11,3032           33116                           CAF      ALT,R,VN                              #  ASK FOR INITIAL AND FINIAL ALTITUDES AND
009911,000727: 11,3033           05324                           TC       NVSBWAIT                              #  ALTITUDE RATE.
009912,000728: 11,3034           05132                           TC       ENDIDLE                               
009913,000729: 11,3035           13052                           TCF      ENDDISIN                              
009914,000730: 11,3036           13037                           TCF      +1                                    
009915,000731: 
009916,000732: 11,3037           00004                           INHINT                                         
009917,000733: 11,3040           47657                           CS       ONE                                   
009918,000734: 11,3041           54351                           TS       DIDFLG                                
009919,000735: 
009920,000736: 11,3042           00006                           EXTEND                                         
009921,000737: 11,3043           30353                           DCA      ALT                                   #  SO FOLLOWING MONITOR WORKS.
009922,000738: 11,3044           52365                           DXCH     ALTSAVE                               
009923,000739: 
009924,000740: 11,3045           37657                           CAF      ONE                                   
009925,000741: 11,3046           04517                           TC       WAITLIST                              
009926,000742: 11,3047           03060 22007                     2CADR    DISINLUP   +2                         
009927,000743: 
009928,000744: 11,3051           14420                           TCF      EJFREE                                
009929,000745: 
009930,000746: 11,3052           05373        ENDDISIN           TC       FREEDSP                               
009931,000747: 11,3053           04650                 +1        TC       NEWMODEX                              
009932,000748: 11,3054           00000                           OCT      0                                     
009933,000749: 
009934,000750: 11,3055           04421                           TC       ENDOFJOB                              
009935,000751: 
009936,000752:                                                                                                  #           WATCH ALTSAVE FOR END OF PROBLEM.
009937,000753: 
009938,000754: 11,3056           04535        DISINLUP           TC       FIXDELAY                              
009939,000755: 11,3057           00062                           DEC      50         B-14                       
009940,000756: 
009941,000757: 11,3060           00006                 +2        EXTEND                                         
009942,000758: 11,3061           30356                           DCA      FINALT                                
009943,000759: 11,3062           52066                           DXCH     ITEMP1                                
009944,000760: 11,3063           00006                           EXTEND                                         
009945,000761: 11,3064           40365                           DCS      ALTSAVE                               #  LATEST ALTITUDE.
009946,000762: 11,3065           20066                           DAS      ITEMP1                                
009947,000763: 
009948,000764: 11,3066           10065                           CCS      ITEMP1                                
009949,000765: 11,3067           13107                           TCF      +DIF                                  
009950,000766: 11,3070           13072                           TCF      +2                                    
009951,000767: 11,3071           13113                           TCF      -DIF                                  
009952,000768: 
009953,000769: 11,3072           10066                           CCS      ITEMP2                                
009954,000770: 11,3073           13107                           TCF      +DIF                                  
009955,000771: 11,3074           13076                           TCF      +2                                    
009956,000772: 11,3075           13113                           TCF      -DIF                                  
009957,000773: 
009958,000774: 11,3076           37665        DISINDUN           CAF      ZERO                                  
009959,000775: 11,3077           54354                           TS       ALTRATE                               
009960,000776: 11,3100           52356                           DXCH     FINALT                                
009961,000777: 11,3101           52353                           DXCH     ALT                                   
009962,000778: 11,3102           37642                           CAF      PRIO20                                
009963,000779: 11,3103           04344                           TC       NOVAC                                 
009964,000780: 11,3104           03053 22007                     2CADR    ENDDISIN   +1                         
009965,000781: 
009966,000782: 11,3106           14563                           TCF      TASKOVER                              
009967,000783: 
009968,000784: 11,3107           30354        +DIF               CA       ALTRATE                               
009969,000785: 11,3110           00006                           EXTEND                                         
009970,000786: 11,3111           63076                           BZMF     DISINDUN                              
009971,000787: 11,3112           13056                           TCF      DISINLUP                              
009972,000788: 
009973,000789: 11,3113           40354        -DIF               CS       ALTRATE                               
009974,000790: 11,3114           13110                           TCF      +DIF       +1                         
009975,000791: 
009976,000792: 11,3115           02444        FLVELVN            OCT      2444                                  
009977,000793: 11,3116           02564        ALT,R,VN           OCT      2564                                  
009978,000794: 
009979,000795:                                                                                                  #  VB 60 PREPARE FOR STANDBY OPERATION
009980,000796: 
009981,000797:                                                                                                  #  ROUTINE WRITTEN FOR TEST ROPES ONLY*** MUST BE UPDATED TO INCLUDE
009982,000798:                                                                                                  #                                  FLIGHT REQUIREMENTS FOR FLIGHT OPERATION
009983,000799: 
009984,000800: 11,3117  E3,1400                                  EBANK=   LST1                                  
009985,000801: 
009986,000802: 11,3117           33240        PRESTAND           CAF      EBANK3                                #  COMES HERE FROM LST2FAN
009987,000803: 11,3120           56003                           XCH      EBANK                                 #  SET UP EBANK FOR BANK 3
009988,000804: 11,3121           00004                           INHINT                                         
009989,000805: 11,3122           30025                           CA       TIME1                                 
009990,000806: 11,3123           55502                           TS       TIMESAV                               #  THIS ROUTINE WILL LOOK AT TIME1 UNTIL
009991,000807: 11,3124           32724                           CAF      OKT30                                 #   TIME1 IS INCREMENTED, THEN IT WILL
009992,000808: 11,3125           55506        LONGER             TS       TIMAR                                 #  SNATCH THE MISSION TIME REGS AND STORE
009993,000809: 11,3126           41502                           CS       TIMESAV                               #  THEM IN TIMESAV FOR LATER ISE IN ARITH.
009994,000810: 11,3127           60025                           AD       TIME1                                 #  OPERATIONS WHICH SHOULD FIND THE
009995,000811: 11,3130           00006                           EXTEND                                         #  STANDING DIFFERENCE BETWEEN THE SCALAR
009996,000812: 11,3131           13136                           BZF      CHKTIME                               #  AND THE TIME1-TIME2S REGS.
009997,000813: 
009998,000814: 11,3132           00006                           EXTEND                                         
009999,000815: 11,3133           30025                           DCA      TIME2                                 #  READ AND STORE THE DP TIME AND GO
010000,000816: 11,3134           53503                           DXCH     TIMESAV                               #  READ THE SCALAR USING THE EXISTING PROG
010001,000817: 11,3135           13144                           TCF      CATCHFIN                              #  FINETIME.
010002,000818: 
010003,000819: 11,3136           11506        CHKTIME            CCS      TIMAR                                 #  MUST WATCH THE TIME SPENT IN INHINT OR
010004,000820: 11,3137           03125                           TC       LONGER                                #  THE COPS MIGHT CATCH US.
010005,000821: 11,3140           00003                           RELINT                                         
010006,000822: 11,3141           10067                           CCS      NEWJOB                                
010007,000823: 11,3142           04365                           TC       CHANG1                                
010008,000824: 11,3143           03124                           TC       LONGER     -1                         #  GO BACK AND LOOK AGAIN
010009,000825: 
010010,000826: 11,3144           05462        CATCHFIN           TC       FINETIME                              #  WILL READ CHANNELS 3 AND 4 AND RETURN
010011,000827: 11,3145           53505                           DXCH     SCALSAV                               #  WITH 3 IN A AND 4 IN L..
010012,000828: 11,3146           00003                           RELINT                                         
010013,000829: 11,3147           47654                           CS       BIT4                                  
010014,000830: 11,3150           70367                           MASK     IMODES30                              #  INHIBIT THE IMU FAIL LIGHT.
010015,000831: 11,3151           67654                           AD       BIT4                                  
010016,000832: 11,3152           54367                           TS       IMODES30                              
010017,000833: 
010018,000834: 11,3153           37654                           CAF      BIT4                                  #  SET ALL CHAN 12 BITS EXCEPT C/A TO ZERO.
010019,000835: 11,3154           00006                           EXTEND                                         #  THIS IS NECESSARY SO THAT THE GIMBALS DO
010020,000836: 11,3155           03012                           WAND     12                                    #  NOT DRIFT INTO GIMBALLOCK IF THE SYSTEM
010021,000837: 
010022,000838: 11,3156           37654                           CAF      BIT4                                  #  SHOULD BE IN OPERATE AT THE TIME STBY
010023,000839: 11,3157           00006                           EXTEND                                         #  WAS STARTED.  THIS SECTION WILL MAKE
010024,000840: 11,3160           05012                           WOR      12                                    #  SURE THE IMU IS IN C/A.....
010025,000841: 
010026,000842: 11,3161           37645                           CAF      BIT11                                 #  WHEN BIT 11 IS PRESENT IN CHANNEL 13 THE
010027,000843: 11,3162           00006                           EXTEND                                         #  DSKY PB. CAN THEN ENERGIZE THE STANDBY
010028,000844: 11,3163           05013                           WOR      13                                    #  RELAY IN THE CGC PWR SUPPLIES....
010029,000845: 11,3164           04421                           TC       ENDOFJOB                              #  GO TO DUMMY JOB UNTIL YOU DIE...
010030,000846: 
010031,000847:                                                                                                  #   VB 61 RECOVER FROM STANDBY OPERATION
010032,000848: 
010033,000849:                                                                                                  #  ROUTINE WRITTEN FOR TEST ROPES ONLY**** MUST BE UPDATED TO INCLUDE
010034,000850:                                                                                                  #                  FLIGHT REQUIREMENTS FOR FLIGHT OPERATIONS SEQUENCES....
010035,000851: 
010036,000852: 11,3165           33240        POSTAND            CAF      EBANK3                                #  COMES HERE FROM LST2FAN
010037,000853: 11,3166           56003                           XCH      EBANK                                 #  SET UP EBANK FOR BANK 3
010038,000854: 11,3167           05462                           TC       FINETIME                              
010039,000855: 11,3170           53507                           DXCH     TIMAR                                 #  READ THE SCALAR AND SEE IF IT OVERFLOW-
010040,000856: 11,3171           00003                           RELINT                                         #  ED WHILE THE CGC WAS IN STBY, IF SO
010041,000857: 11,3172           31506                           CAE      TIMAR                                 #  THE OVERFLOW MUST BE ADDED OR IT WILL
010042,000858: 11,3173           00006                           EXTEND                                         #  SEEM THAT THE REALATIVITY THEORY WORKS
010043,000859: 11,3174           61504                           SU       SCALSAV                               #  BETTER THAN IT SHOULD...
010044,000860: 11,3175           00006                           EXTEND                                         
010045,000861: 11,3176           63221                           BZMF     ADDTIME                               #  IF ITS NEG. IT MUST HAVE OV:FLWD..
010046,000862: 
010047,000863: 11,3177           06000                           TC       INTPRET                               
010048,000864: 11,3200           45345                           DLOAD    DSU                                   #  IF IT DID NOT OV-FLW. FIND OUT HOW LONG
010049,000865: 11,3201           01507                                    TIMAR                                 #  THE CGC WAS IN STBY BY SUBTRACTING THE
010050,000866: 11,3202           01505                                    SCALSAV                               #  SCALAR AT THE START OF STBY FROM THE
010051,000867: 11,3203           45061                           SRR      RTB                                   #  SCALAR AT THE END OF STBY AND THEN ADD
010052,000868: 11,3204           01606                                    5                                     #  THE DIFFERENCE TO THE TIME EXISTING
010053,000869: 11,3205           33406                                    SGNAGREE                              #  WHEN THE SCALAR WAS READ AT STBY ENTRY**
010054,000870: 11,3206           77615                           DAD                                            
010055,000871: 11,3207           01503                                    TIMESAV                               
010056,000872: 11,3210           01507                           STORE    TIMAR                                 
010057,000873: 11,3211           77776                           EXIT                                           
010058,000874: 
010059,000875: 11,3212           00006        CORCTTIM           EXTEND                                         
010060,000876: 11,3213           31507                           DCA      TIMAR                                 #  THIS IS THE CORRECTED TIME TO BE READ
010061,000877: 11,3214           52025                           DXCH     TIME2                                 #  INTO TIME1 AND TIME2 REGS. ADDR 24-25
010062,000878: 
010063,000879: 11,3215           47645                           CS       BIT11                                 
010064,000880: 11,3216           00006                           EXTEND                                         #  DISABLE THE DSKY STBY PUSHBUTTON.
010065,000881: 11,3217           03013                           WAND     13                                    
010066,000882: 11,3220           04421                           TC       ENDOFJOB                              
010067,000883: 
010068,000884: 11,3221           00006        ADDTIME            EXTEND                                         
010069,000885: 11,3222           37637                           DCA      DPOSMAX                               #  IF THE SCALAR OVERFLOWED, FIND OUT HOW
010070,000886: 11,3223           53511                           DXCH     TIMEDIFF                              #  MUCH TIME REMAINED WHEN READ THE FIRST
010071,000887: 11,3224           06000                           TC       INTPRET                               #  TIME AND THEN ADD THE PRESENT READING-
010072,000888: 11,3225           45345                           DLOAD    DSU                                   #  WHICH WILL BE THE TOTAL TIME SPENT IN
010073,000889: 11,3226           01511                                    TIMEDIFF                              #  STANDBY, TO WHICH THE TIME AT STBY
010074,000890: 11,3227           01505                                    SCALSAV                               #  MAY BE ADDED TO FIND THE PRESENT TIME
010075,000891: 11,3230           54215                           DAD      SRR                                   #  CORRECT TO 10 MSEC..
010076,000892: 11,3231           01507                                    TIMAR                                 #  **** THE TIME IN STANDBY MODE MUST NOT
010077,000893: 11,3232           01606                                    5                                     #  EXCEED 23 HOURS IF TIME IS TO BE
010078,000894: 11,3233           77615                           DAD                                            #  CORRECTLY COMPUTED BY THIS ROUTINE.*****
010079,000895: 11,3234           01503                                    TIMESAV                               
010080,000896: 11,3235           01507                           STORE    TIMAR                                 
010081,000897: 11,3236           77776                           EXIT                                           
010082,000898: 11,3237           03212                           TC       CORCTTIM                              
010083,000899: 
010084,000900: 11,3240           01400        EBANK3             OCT      01400                                 #  CONST USED TO SET EBANK REG FOR BANK 3
010085,000901: 
010086,000902: 11,3241                        ENDEXTVS           EQUALS                                         

End of include-file EXTENDED_VERBS.agc.  Parent file is MAIN.agc