Source Code

   YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS       BY MSTEWART JUN. 28,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.

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

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