Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

008189,000002:                                                                                                  ## Copyright:   Public domain.
008190,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
008191,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
008192,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
008193,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
008194,000007:                                                                                                  ## Assembler:   yaYUL
008195,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
008196,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
008197,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
008198,000011:                                                                                                  ##              2016-10-06 RSB  Completed transcription.
008199,000012:                                                                                                  ##              2016-10-30 MAS  Corrected DESKBITS->DESCBITS.
008200,000013:                                                                                                  ##              2016-10-31 RSB  Typos.
008201,000014:                                                                                                  ##              2016-11-01 RSB  More typos.
008202,000015:                                                                                                  ##              2016-11-02 RSB  More typos.
008203,000016:                                                                                                  ##              2016-12-04 RSB  Proofed with octopus/ProoferComments and fixed various
008204,000017:                                                                                                  ##                              comments, but the proofing process is not completed.
008205,000018:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
008206,000019:                                                                                                  ##                              changes made.
008207,000020: 

Page 200

008209,000022: 11,2000                                           BANK     11                                    
008210,000023: 11,2000  E5,1500                                  EBANK=   OGC                                   
008211,000024: 
008212,000025:                                                                                                  #  FAN-OUT
008213,000026: 

In the original hardcopy, each of the asterisks in the line below is actually a one-half (½) character.

008215,000028:                                                                                                  #  NOTE OF SPECIAL IMPORT CONCERNING RADAR **
008216,000029: 
008217,000030:                                                                                                  #           SINCE 206 HAS NO RADARS, THE INTERRUPT LEAD IN AND T4RUPT SERVICE ROUTINES HAVE BEEN DISCONNECTED IN
008218,000031:                                                                                                  #  SUNBURST (REV 39).  THEREFORE, THE FOLLOWING VERBS SHOULD NOT BE USED:  40 WITH NOUN 40, 41 WITH NOUN 40, 45,
008219,000032:                                                                                                  #  46, AND SEQUENCES 13 AND 14 OF VERB 57.
008220,000033: 
008221,000034: 11,2000           02070        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 40 ONLY)
008222,000035: 11,2001           02073                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
008223,000036:                                                                                                  #                                  40 ONLY)
008224,000037: 11,2002           02204                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
008225,000038: 11,2003           02565                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
008226,000039: 11,2004           02066                           TC       ALM/END                               #  VB44 SPARE
008227,000040: 11,2005           12126                           TCF      LRPOS2K                               #  VB45 COMMAND LR TO POSITION 2.
008228,000041: 11,2006           02414                           TC       REGRSAMP                              #  VB46 SAMPLE RADAR ONCE PER SECOND
008229,000042: 11,2007           02406                           TC       DOFCSTST                              #  VB47 PERFORM LEM FCS TEST
008230,000043: 11,2010           02261                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
008231,000044: 11,2011           02261                           TC       GOLOADLV                              #  VB51 PLEASE MARK
008232,000045: 11,2012           02261                           TC       GOLOADLV                              #  VB52 PLEASE MARK Y
008233,000046: 11,2013           02261                           TC       GOLOADLV                              #  VB53 PLEASE MARK X OR Y.
008234,000047: 11,2014           02265                           TC       TORQGYRS                              #  VB54 PULSE TORQUE GYROS
008235,000048: 11,2015           02302                           TC       ALINTIME                              #  VB55 ALIGN TIME
008236,000049: 11,2016           02404                           TC       GOSHOSUM                              #  VB56 PERFORM BANKSUM
008237,000050: 11,2017           02326                           TC       SYSTEST                               #  VB57 PERFORM SYSTEM TEST
008238,000051: 11,2020           03121                           TC       PRESTAND                              #  VB60 PREPARE FOR STANDBY
008239,000052: 11,2021           03167                           TC       POSTAND                               #  VB61 RECOVER FROM STANDBY
008240,000053: 11,2022           02634                           TC       SETUPMSG                              #  VB62 SCAM LEM INBITS
008241,000054: 11,2023           12530                           TCF      BEGINCDU                              #  VB63 SEND SPECIAL CDU DOWNLIST
008242,000055: 11,2024           13266                           TCF      64UPDAT                               #  VB64 SET TIMER TO GROUND ELAPSED TIME
008243,000056: 11,2025           13242                           TCF      65UPDAT                               #  VB65 SET GUIDANCE REFERENCE RELEASE DISC
008244,000057: 11,2026           13246                           TCF      66UPDAT                               #  VB66 INITIATE LGC DFI TLM CALIBRATE RTN
008245,000058: 11,2027           13254                           TCF      67UPDAT                               #  VB67 SEND COMMAND TO LMP
008246,000059: 11,2030           13260                           TCF      70UPDAT                               #  VB70 SET MISSION TIMER
008247,000060: 11,2031           13262                           TCF      71UPDAT                               #  VB71 SET MISSION PHASE REGISTER
008248,000061: 11,2032           13270                           TCF      72UPDAT                               #  VB72 SET MISSION PHASE REGISTER + TIMER
008249,000062: 11,2033           13252                           TCF      73UPDAT                               #  VB73 RESET DPS OR RPS COLD SOAK DISC
008250,000063: 11,2034           13244                           TCF      74UPDAT                               #  VB74 STOP MISSION TIMERS
008251,000064: 11,2035           13301                           TCF      75UPDAT                               #  VB75 TARGET PARAMETER UPDATE
008252,000065: 11,2036           13274                           TCF      76UPDAT                               #  VB76 STATE VECTOR UPDATE
008253,000066: 11,2037           02066                           TC       ALM/END                               
008254,000067: 
008255,000068: 11,2040           37761        TESTXACT           CAF      BIT3                                  
008256,000069: 11,2041           70336                           MASK     EXTVBACT                              
008257,000070: 11,2042           10000                           CCS      A                                     
008258,000071: 11,2043           02053                           TC       XACTALM                               
008259,000072: 

Page 201

008261,000074: 11,2044           47761        XACT1              CS       BIT3                                  
008262,000075: 11,2045           00004                           INHINT                                         
008263,000076: 11,2046           70336                           MASK     EXTVBACT                              
008264,000077: 11,2047           67761                           AD       BIT3                                  
008265,000078: 11,2050           54336                           TS       EXTVBACT                              
008266,000079: 11,2051           00003                           RELINT                                         
008267,000080: 11,2052           00002                           TC       Q                                     
008268,000081: 
008269,000082: 11,2053           04571        XACTALM            TC       FALTON                                
008270,000083: 11,2054           05567                           TC       ENDOFJOB                              
008271,000084: 
008272,000085: 11,2055           04724        TERMEXTV           TC       FREEDSP                               #  IF WE GET A TERMINATE INSTEAD OF A LOAD.
008273,000086: 
008274,000087: 11,2056           02060        ENDEXTVB           TC       XACT0                                 
008275,000088: 11,2057           05567                           TC       ENDOFJOB                              
008276,000089: 
008277,000090: 11,2060           47761        XACT0              CS       BIT3                                  
008278,000091: 11,2061           00004                           INHINT                                         
008279,000092: 11,2062           70336                           MASK     EXTVBACT                              
008280,000093: 11,2063           54336                           TS       EXTVBACT                              
008281,000094: 11,2064           00003                           RELINT                                         
008282,000095: 11,2065           00002        XACT0Q             TC       Q                                     
008283,000096: 
008284,000097: 11,2066           04571        ALM/END            TC       FALTON                                
008285,000098: 11,2067           02056                           TC       ENDEXTVB                              
008286,000099: 
008287,000100: 
008288,000101: 11,2070           02076        VBZERO             TC       OP/INERT                              
008289,000102: 11,2071           02110                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
008290,000103: 11,2072           02117                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(40)
008291,000104: 
008292,000105: 11,2073           02076        VBCOARK            TC       OP/INERT                              
008293,000106: 11,2074           02132                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
008294,000107: 11,2075           02234                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (40)
008295,000108: 
008296,000109:                                                                                                  #  RETURNS TO L+1 IF IMU OR L+2 IF RR.
008297,000110: 
008298,000111: 11,2076           47757        OP/INERT           CS       BIT5                                  #  OCT20
008299,000112: 11,2077           60273                           AD       NOUNREG                               
008300,000113: 11,2100           00006                           EXTEND                                         
008301,000114: 11,2101           12065                           BZF      XACT0Q                                #  IF = 20.
008302,000115: 
008303,000116: 11,2102           24002                           INCR     Q                                     
008304,000117: 11,2103           62107                           AD       RRIMUDIF                              #  = -20 OCT.
008305,000118: 11,2104           00006                           EXTEND                                         
008306,000119: 11,2105           12065                           BZF      XACT0Q                                
008307,000120: 

Page 202

008309,000122: 11,2106           02066                           TC       ALM/END                               #  ILLEGAL.
008310,000123: 
008311,000124: 11,2107           77757        RRIMUDIF           OCT      -20                                   
008312,000125: 

Page 203

008314,000127:                                                                                                  #  KEYBOARD REQUEST TO ZERO IMU ENCODERS
008315,000128: 
008316,000129: 11,2110           02040        IMUZEROK           TC       TESTXACT                              #  ZERO ENCODERS.
008317,000130: 11,2111           05206                           TC       BANKCALL                              
008318,000131: 11,2112           26000                           CADR     IMUZERO                               
008319,000132: 
008320,000133: 11,2113           05206                           TC       BANKCALL                              #  STALL
008321,000134: 11,2114           26751                           CADR     IMUSTALL                              
008322,000135: 11,2115           02116                           TC       +1                                    
008323,000136: 
008324,000137: 11,2116           02056                           TC       ENDEXTVB                              
008325,000138: 11,2117           02040        RRZEROK            TC       TESTXACT                              
008326,000139: 11,2120           05206                           TC       BANKCALL                              #  ZERO RR CDUS.
008327,000140: 11,2121           20250                           CADR     RRZERO                                
008328,000141: 
008329,000142: 11,2122           05206        RWAITK             TC       BANKCALL                              
008330,000143: 11,2123           26745                           CADR     RADSTALL                              
008331,000144: 11,2124           12125                           TCF      +1                                    
008332,000145: 11,2125           12056                           TCF      ENDEXTVB                              
008333,000146: 
008334,000147: 11,2126           02040        LRPOS2K            TC       TESTXACT                              #  COMMAND LR TO POSITION 2.
008335,000148: 11,2127           05206                           TC       BANKCALL                              
008336,000149: 11,2130           21162                           CADR     LRPOS2                                
008337,000150: 11,2131           12122                           TCF      RWAITK                                
008338,000151: 

Page 204

008340,000153:                                                                                                  #  KEYBOARD REQUEST TO COARSE ALIGN THE IMU
008341,000154: 
008342,000155: 11,2132           02040        IMUCOARK           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
008343,000156: 11,2133           04644                           TC       GRABWAIT                              
008344,000157: 11,2134           32152                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
008345,000158: 11,2135           04657                           TC       NVSBWAIT                              
008346,000159: 11,2136           04475                           TC       ENDIDLE                               #  STALL WAITING FOR THE LOAD
008347,000160: 11,2137           02055                           TC       TERMEXTV                              
008348,000161: 11,2140           02154                           TC       ICSDEL                                #  PROCEED - ASK FOR INCREMENTAL LOAD.
008349,000162: 
008350,000163: 11,2141           32153        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
008351,000164: 11,2142           04657                           TC       NVSBWAIT                              
008352,000165: 11,2143           04724                           TC       FREEDSP                               #  RELEASE THE DISPLAYS
008353,000166: 
008354,000167: 11,2144           05206                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
008355,000168: 11,2145           26065                           CADR     IMUCOARS                              
008356,000169: 
008357,000170: 11,2146           05206                           TC       BANKCALL                              #  STALL
008358,000171: 11,2147           26751                           CADR     IMUSTALL                              
008359,000172: 11,2150           02056                           TC       ENDEXTVB                              
008360,000173: 11,2151           02056                           TC       ENDEXTVB                              
008361,000174: 
008362,000175: 11,2152           02522        VNLODCDU           OCT      02522                                 
008363,000176: 11,2153           04100        IMUCOARV           OCT      04100                                 
008364,000177: 

Page 205

008366,000179:                                                                                                  #  PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
008367,000180: 
008368,000181: 11,2154           32202        ICSDEL             CAF      DELLOAD                               
008369,000182: 11,2155           04657                           TC       NVSBWAIT                              #  REQUEST LOAD OF DELTA ICDU ANGLES.
008370,000183: 11,2156           04475                           TC       ENDIDLE                               
008371,000184: 11,2157           02055                           TC       TERMEXTV                              
008372,000185: 11,2160           02141                           TC       ICORK2                                #  PROCEED WITHOUT DATA HERE TOO.
008373,000186: 11,2161           02163                           TC       INCLOOP                               #  LOOP TO INCREMENT THETAD FROM DSPTEM2.
008374,000187: 11,2162           02141                           TC       ICORK2                                #  RE-DISPLAY COARSE ALIGN VERB.
008375,000188: 
008376,000189: 11,2163           56002        INCLOOP            XCH      Q                                     #  INCREMENTS THETADS IN 2S COMPLEMENT FROM
008377,000190: 11,2164           54144                           TS       MPAC                                  #   THREE ANGLE INCREMENTS IN DSPTEM2S.
008378,000191: 11,2165           32203                           CAF      LTHD+2                                
008379,000192: 11,2166           54120                           TS       BUF                                   #  SET UP FOR CDUINC.
008380,000193: 11,2167           37762                           CAF      TWO                                   #  THREE TIMES THROUGH.
008381,000194: 
008382,000195: 11,2170           54145        INCLOOP2           TS       MPAC       +1                         
008383,000196: 11,2171           50000                           INDEX    A                                     
008384,000197: 11,2172           56342                           XCH      DSPTEM2                               #  INCREMENT TO TEM2 FOR CDUINC.
008385,000198: 11,2173           05206                           TC       BANKCALL                              
008386,000199: 11,2174           33602                           CADR     CDUINC                                
008387,000200: 11,2175           10120                           CCS      BUF                                   
008388,000201: 11,2176           54120                           TS       BUF                                   
008389,000202: 11,2177           10145                           CCS      MPAC       +1                         
008390,000203: 11,2200           02170                           TC       INCLOOP2                              
008391,000204: 
008392,000205: 11,2201           00144                           TC       MPAC                                  #  RETURN WHEN FINISHED.
008393,000206: 
008394,000207: 11,2202           02523        DELLOAD            OCT      02523                                 
008395,000208: 11,2203           00402        LTHD+2             ADRES    THETAD     +2                         
008396,000209: 

Page 206

008398,000211:                                                                                                  #  KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
008399,000212: 
008400,000213: 11,2204           02040        IMUFINEK           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
008401,000214: 11,2205           04644                           TC       GRABWAIT                              
008402,000215: 11,2206           32232                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
008403,000216: 11,2207           04657                           TC       NVSBWAIT                              
008404,000217: 11,2210           04475                           TC       ENDIDLE                               #  HOLD UP FOR THE DATA LOAD
008405,000218: 11,2211           02055                           TC       TERMEXTV                              
008406,000219: 11,2212           02213                           TC       +1                                    #  PROCEED WITHOUT A LOAD
008407,000220: 
008408,000221: 11,2213           32233                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
008409,000222: 11,2214           04657                           TC       NVSBWAIT                              
008410,000223: 11,2215           04724                           TC       FREEDSP                               #  RELEASE DISPLAYS
008411,000224: 
008412,000225: 11,2216           05206                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
008413,000226: 11,2217           26252                           CADR     IMUFINE                               
008414,000227: 
008415,000228: 11,2220           05206                           TC       BANKCALL                              #  HIBERNATION
008416,000229: 11,2221           26751                           CADR     IMUSTALL                              
008417,000230: 11,2222           02056                           TC       ENDEXTVB                              
008418,000231: 
008419,000232: 11,2223           32300        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
008420,000233: 11,2224           05206                           TC       BANKCALL                              
008421,000234: 11,2225           26362                           CADR     IMUPULSE                              
008422,000235: 
008423,000236: 11,2226           05206                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
008424,000237: 11,2227           26751                           CADR     IMUSTALL                              
008425,000238: 11,2230           02056                           TC       ENDEXTVB                              
008426,000239: 11,2231           02056                           TC       ENDEXTVB                              
008427,000240: 
008428,000241: 11,2232           02567        VNLODGYR           OCT      02567                                 
008429,000242: 11,2233           04200        IMUFINEV           OCT      04200                                 #  FINE ALIGN VERB
008430,000243: 

Page 207

008432,000245:                                                                                                  #  DESIGNATE TO DESIRED GIMBAL ANGLES.
008433,000246: 
008434,000247: 11,2234           02040        RRDESNBK           TC       TESTXACT                              
008435,000248: 11,2235           04644                           TC       GRABWAIT                              
008436,000249: 11,2236           32255                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
008437,000250: 11,2237           04657                           TC       NVSBWAIT                              
008438,000251: 11,2240           04475                           TC       ENDIDLE                               #  WAIT FOR THE LOAD
008439,000252: 11,2241           02055                           TC       TERMEXTV                              
008440,000253: 11,2242           02243                           TC       +1                                    #  PROCEED
008441,000254: 
008442,000255: 11,2243           05206                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
008443,000256: 11,2244           22760                           CADR     AURLOKON                              
008444,000257: 
008445,000258: 11,2245           32153                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
008446,000259: 11,2246           04657                           TC       NVSBWAIT                              
008447,000260: 11,2247           00004                           INHINT                                         #  FIRE UP JOB TO DO DESIGNATE.
008448,000261: 11,2250           37746                           CAF      PRIO20                                
008449,000262: 11,2251           05516                           TC       FINDVAC                               
008450,000263: 11,2252  E5,1500                                  EBANK=   OGC                                   
008451,000264: 11,2252           02256 22065                     2CADR    RRDESK2                               
008452,000265: 
008453,000266: 11,2254           12055                           TCF      TERMEXTV                              #  FREES DISPLAY.
008454,000267: 
008455,000268: 11,2255           02441        VNLDRCDU           OCT      2441                                  
008456,000269: 11,2256  11,2153               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
008457,000270: 
008458,000271: 11,2256           05206        RRDESK2            TC       BANKCALL                              
008459,000272: 11,2257           20364                           CADR     RRDESNB                               
008460,000273: 
008461,000274: 11,2260           02122                           TC       RWAITK                                
008462,000275: 
008463,000276:                                                                                                  #  PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
008464,000277:                                                                                                  #  ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
008465,000278:                                                                                                  #  LOAD.  OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
008466,000279:                                                                                                  #  PERFORM THE REQUESTED ACTION.
008467,000280: 
008468,000281: 11,2261           04626        GOLOADLV           TC       FLASHOFF                              
008469,000282: 11,2262           02060                           TC       XACT0                                 
008470,000283: 11,2263           05225                           TC       POSTJUMP                              
008471,000284: 11,2264           12002                           CADR     LOADLV1                               
008472,000285: 

Page 208

008474,000287:                                                                                                  #  KEYBOARD REQUEST TO PULSE TORQUE IRIGA
008475,000288: 
008476,000289: 11,2265           02040        TORQGYRS           TC       TESTXACT                              #  GYRO TORQUING WITH NO MODE-SWITCH.
008477,000290: 11,2266           04644                           TC       GRABWAIT                              
008478,000291: 11,2267           32232                           CAF      VNLODGYR                              
008479,000292: 11,2270           04657                           TC       NVSBWAIT                              
008480,000293: 11,2271           04475                           TC       ENDIDLE                               
008481,000294: 11,2272           02055                           TC       TERMEXTV                              
008482,000295: 11,2273           02274                           TC       +1                                    
008483,000296: 11,2274           32301                           CAF      TORQGYRV                              #  RE-DISPLAY OUR OWN VERB
008484,000297: 11,2275           04657                           TC       NVSBWAIT                              
008485,000298: 11,2276           04724                           TC       FREEDSP                               
008486,000299: 11,2277           12223                           TCF      FINEK2                                
008487,000300: 
008488,000301: 11,2300           00403        LGYROBIN           ECADR    DELVX                                 
008489,000302: 11,2301           05400        TORQGYRV           OCT      05400                                 
008490,000303: 

Page 209

008492,000305:                                                                                                  #  ALIGN TIME
008493,000306: 
008494,000307: 11,2302           32325        ALINTIME           CAF      VNLODDT                               #  USES NVSUBMON. DOES NOT TEST DSPLOCK.
008495,000308: 11,2303           54113                           TS       NVTEMP                                #  DOES NOT KILL MONITOR.
008496,000309: 11,2304           04460                           TC       NVSUBMON                              
008497,000310: 11,2305           05567                           TC       ENDOFJOB                              #  IN CASE OF ALARM IN LOAD REQUEST SET UP.
008498,000311: 11,2306           04475                           TC       ENDIDLE                               
008499,000312: 11,2307           05567                           TC       ENDOFJOB                              #  TERMINATE
008500,000313: 11,2310           05567                           TC       ENDOFJOB                              #  PROCEED WITHOUT DATA
008501,000314: 11,2311           00004                           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
008502,000315: 11,2312           37767                           CAF      ZERO                                  
008503,000316: 11,2313           54146                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
008504,000317: 11,2314           54001                           TS       L                                     #  ZERO T1 & T2 WHILE ALIGNING.
008505,000318: 11,2315           52025                           DXCH     TIME2                                 
008506,000319: 11,2316           52145                           DXCH     MPAC                                  
008507,000320: 11,2317           52340                           DXCH     DSPTEM1                               #  INCREMENT.
008508,000321: 11,2320           20145                           DAS      MPAC                                  
008509,000322: 
008510,000323: 11,2321           07327                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
008511,000324: 11,2322           52145                           DXCH     MPAC                                  #  NEW CLOCK.
008512,000325: 11,2323           20025                           DAS      TIME2                                 
008513,000326: 11,2324           05567                           TC       ENDOFJOB                              
008514,000327: 
008515,000328: 11,2325           02124        VNLODDT            OCT      02124                                 #  V/N FOR LOAD DELTA TIME
008516,000329: 

Page 210

008518,000331:                                                                                                  #  SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
008519,000332: 
008520,000333: 11,2326  E5,1546                                  EBANK=   QPLACE                                
008521,000334: 
008522,000335: 11,2326           10302        SYSTEST            CCS      MODREG                                #  DEMAND MODE 00.
008523,000336: 11,2327           12053                           TCF      XACTALM                               
008524,000337: 
008525,000338: 11,2330           04644                           TC       GRABWAIT                              
008526,000339: 11,2331           32403        REDO               CAF      LQPL                                  #  ASK FOR TEST OPTION (1 - 7).
008527,000340: 11,2332           54146                           TS       MPAC       +2                         
008528,000341: 11,2333           32402                           CAF      TESTNV                                
008529,000342: 11,2334           04657                           TC       NVSBWAIT                              
008530,000343: 11,2335           04475                           TC       ENDIDLE                               
008531,000344: 11,2336           05566                           TC       EJFREE                                
008532,000345: 11,2337           02331                           TC       REDO                                  
008533,000346: 
008534,000347: 11,2340           04117                           TC       NEWMODEX                              
008535,000348: 11,2341           00005                           OCT      5                                     #  DISPLAY MAJOR MODE 5 - SYSTEM TESTS
008536,000349: 
008537,000350: 11,2342           00004                           INHINT                                         
008538,000351: 11,2343           37746                           CAF      PRIO20                                
008539,000352: 11,2344           05516                           TC       FINDVAC                               
008540,000353: 11,2345  E5,1500                                  EBANK=   OGC                                   
008541,000354: 11,2345           02350 22065                     2CADR    TSELECT                               
008542,000355: 
008543,000356: 11,2347           05567                           TC       ENDOFJOB                              #  LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
008544,000357: 
008545,000358: 11,2350           45343        TSELECT            CS       LOW4                                  #    OCTAL 17 OPTIONS WITHOUT OPERATOR ERRO
008546,000359: 11,2351           61546                           AD       QPLACE                                
008547,000360: 11,2352           00006                           EXTEND                                         
008548,000361: 11,2353           62356                           BZMF     +3                                    
008549,000362: 11,2354           04571                           TC       FALTON                                
008550,000363: 11,2355           02331                           TC       REDO                                  
008551,000364: 11,2356           51546                           INDEX    QPLACE                                
008552,000365: 11,2357           32361                           CAF      TESTCADR                              
008553,000366: 11,2360           05230                           TC       BANKJUMP                              
008554,000367: 
008555,000368:                                                                                                  #  DON'T USE 13 OR 14 (SEE NOTE ON USER'S PAGE 1).
008556,000369: 
008557,000370: 11,2361           22066        TESTCADR           CADR     ALM/END                               #  0  ILLEGAL
008558,000371: 11,2362           50000                           CADR     IMUTEST                               #  1  GYRO DRIFT TEST
008559,000372: 11,2363           50025                           CADR     IMUBACK                               #  2 REPEAT OF IMUTEST
008560,000373: 11,2364           30000                           CADR     AOTNBIMU                              #  3  IMU ALIGNMENT TEST
008561,000374: 11,2365           50252                           CADR     OPCHK                                 #  4  IMU CHECK
008562,000375: 11,2366           50451                           CADR     GYRSFTST                              #  5  GYRO TORQUING TEST
008563,000376: 11,2367           22066                           CADR     ALM/END                               #  6  AVAILABLE
008564,000377: 11,2370           73351                           CADR     GTSCPSS                               #  7. GYROCOMPASS
008565,000378: 11,2371           46556                           CADR     SAMODCHK                              #  10 SEMI-AUTOMATIC MODING CHECK
008566,000379: 11,2372           31347                           CADR     SAUTOIFS                              #  11 SEMI-AUTOMATIC INTERFACE TEST
008567,000380: 11,2373           31605                           CADR     AOTANGCK                              #  12 AOT ANGLE CHECK    

Page 211

008569,000382: 11,2374           31143                           CADR     RDRINIT                               #  13 RENDEZVOUS RADAR / ANTENNAE TRACKING
008570,000383: 11,2375           22410                           CADR     FSTRSAMP                              #  14 HIGH SPEED RADAR SAMPLING.
008571,000384: 
008572,000385: 11,2376           31636                           CADR     ZEROERAS                              
008573,000386: 11,2377           23007                           CADR     DISINDT                               #  DISPLAY INERTIAL DATA TEST.
008574,000387: 11,2400           22066                           CADR     ALM/END                               
008575,000388: 11,2401           22066                           CADR     ALM/END                               
008576,000389: 11,2402           02101        TESTNV             OCT      2101                                  
008577,000390: 11,2403           02546        LQPL               ECADR    QPLACE                                
008578,000391: 11,2404           05225        GOSHOSUM           TC       POSTJUMP                              #  START ROUTINE TO DISPLAY SUM OF EACH
008579,000392: 11,2405           77543                           CADR     SHOWSUM                               #  BANK ON DSKY
008580,000393: 
008581,000394: 11,2406           05225        DOFCSTST           TC       POSTJUMP                              
008582,000395: 11,2407           14736                           CADR     FCSSTART                              
008583,000396: 

Page 212

008585,000398:                                                                                                  #  SET UP FOR RADAR SAMPLING.
008586,000399: 
008587,000400: 11,2410  E7,1444                                  EBANK=   RSTKLOC                               
008588,000401: 
008589,000402: 11,2410           32477        FSTRSAMP           CAF      RSTKLIST                              #  HIGH SPEED SAMPLING, SWITCH TO SPECIAL
008590,000403: 11,2411           54411                           TS       DNLSTADR                              #  DOWNLIST.
008591,000404: 11,2412           47763                           CS       ONE                                   #  WANTS TM BUFFERING.
008592,000405: 11,2413           12416                           TCF      RSAMPTST                              
008593,000406: 
008594,000407: 11,2414           04644        REGRSAMP           TC       GRABWAIT                              
008595,000408: 11,2415           35205                           CAF      1SEC+1                                #  SHOWS NO TM BUFFERING.
008596,000409: 
008597,000410: 11,2416           54146        RSAMPTST           TS       MPAC       +2                         
008598,000411: 11,2417           00004                           INHINT                                         
008599,000412: 11,2420           42500                           CS       LRPOSCAL                              #  INITIALIZE SCALE AND LR POSITION BITS.
008600,000413: 11,2421           70412                           MASK     RADMODES                              
008601,000414: 11,2422           54412                           TS       RADMODES                              
008602,000415: 
008603,000416: 11,2423           32500                           CAF      LRPOSCAL                              
008604,000417: 11,2424           00006                           EXTEND                                         
008605,000418: 11,2425           02033                           RAND     33                                    
008606,000419: 11,2426           26412                           ADS      RADMODES                              
008607,000420: 
008608,000421: 11,2427           00003                           RELINT                                         
008609,000422: 11,2430           32451                           CAF      LRTSTDEX                              
008610,000423: 11,2431           54003                           TS       EBANK                                 
008611,000424: 11,2432           56146                           XCH      MPAC       +2                         
008612,000425: 11,2433           55445                           TS       RSAMPDT                               #  HI SPEED NNZ - LO SPEED PNZ.
008613,000426: 11,2434           37767                           CAF      ZERO                                  
008614,000427: 11,2435           55444                           TS       RTSTLOC                               
008615,000428: 11,2436           55446                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER.
008616,000429: 11,2437           32475                           CAF      HISPMAX                               
008617,000430: 11,2440           55442                           TS       RTSTMAX                               
008618,000431: 
008619,000432: 11,2441           32476                           CAF      RTSTNV                                
008620,000433: 11,2442           04657                           TC       NVSBWAIT                              
008621,000434: 11,2443           04475                           TC       ENDIDLE                               
008622,000435: 11,2444           05566                           TC       EJFREE                                #  ON TERMINATE.
008623,000436: 11,2445           12501                           TCF      RSEMIAUT                              #  PROCEED MEANS SEMI-AUTO SEQUENCING.
008624,000437: 11,2446           04724        RDRDFREE           TC       FREEDSP                               
008625,000438: 11,2447           11445                           CCS      RSAMPDT                               #  SEE IF HI OR LO SPEED SAMPLING.
008626,000439: 11,2450           12454                           TCF      +4                                    
008627,000440: 
008628,000441: 11,2451           03441        LRTSTDEX           ECADR    RTSTDEX                               
008629,000442: 
008630,000443: 11,2452           05225                           TC       POSTJUMP                              #  EXEC. OTHERWISE, SET UP WAITLIST TIMING.
008631,000444: 11,2453           21301                           CADR     DORSAMP                               
008632,000445: 
008633,000446: 11,2454           36306                           CAF      SIX                                   #  FIND OUT WHICH RADAR WANTED.
008634,000447: 11,2455           71441                           MASK     RTSTDEX                               
008635,000448: 

Page 213

008637,000450: 11,2456           10000                           CCS      A                                     
008638,000451: 11,2457           12463                           TCF      LRCYCLE                               #  LANDING RADAR ARE SERIALS 2 - 5.
008639,000452: 
008640,000453: 11,2460           55443                           TS       RTSTBASE                              #  FOR RR BASE = 0, MAX = 1.
008641,000454: 11,2461           36306                           CAF      SIX                                   
008642,000455: 11,2462           12466                           TCF      +4                                    
008643,000456: 
008644,000457: 11,2463           37762        LRCYCLE            CAF      TWO                                   #  FOR LR BASE = 2, MAX = 3.
008645,000458: 11,2464           55443                           TS       RTSTBASE                              
008646,000459: 11,2465           32474                           CAF      18R                                   
008647,000460: 
008648,000461: 11,2466           55442                 +4        TS       RTSTMAX                               
008649,000462: 11,2467           00004                           INHINT                                         
008650,000463: 11,2470           05663                           TC       WAITLIST                              
008651,000464: 11,2471  E7,1444                                  EBANK=   RSTKLOC                               
008652,000465: 11,2471           03261 20067                     2CADR    RADSAMP                               
008653,000466: 
008654,000467: 11,2473           05567                           TC       ENDOFJOB                              
008655,000468: 
008656,000469: 11,2474           00022        18R                DEC      18         B-14                       
008657,000470: 11,2475           00102        HISPMAX            DEC      66         B-14                       
008658,000471: 11,2476           02101        RTSTNV             OCT      2101                                  
008659,000472: 11,2477           02236        RSTKLIST           GENADR   UPDNLIST                              
008660,000473: 11,2500           00444        LRPOSCAL           OCT      444                                   
008661,000474: 

Page 214

008663,000476:                                                                                                  #  SEMI-AUTO RADAR TESTING.
008664,000477: 
008665,000478: 11,2501           00004        RSEMIAUT           INHINT                                         
008666,000479: 11,2502           35647                           CAF      PRIO25                                #  START HI SPEED SAMPLING.
008667,000480: 11,2503           05505                           TC       NOVAC                                 
008668,000481: 11,2504  E7,1444                                  EBANK=   RSTKLOC                               
008669,000482: 11,2504           03301 20067                     2CADR    DORSAMP                               
008670,000483: 
008671,000484: 11,2506           00003                           RELINT                                         
008672,000485: 11,2507           37766                           CAF      FIVE                                  #  SEQUENCE THROUGH ALL SIX CHANNELS.
008673,000486: 11,2510           55441                 -1        TS       RTSTDEX                               
008674,000487: 
008675,000488: 11,2511           32527        33PASTE            CAF      RV33                                  #  ON ENTER, SWITCH TO NEXT CHANNEL.
008676,000489: 11,2512           04657                           TC       NVSBWAIT                              
008677,000490: 11,2513           04622                           TC       FLASHON                               
008678,000491: 11,2514           04475                           TC       ENDIDLE                               
008679,000492: 11,2515           02522                           TC       ENDRTST                               #  ON TERMINATE.
008680,000493: 11,2516           12520                           TCF      +2                                    
008681,000494: 11,2517           12511                           TCF      33PASTE                               #  DONT ACCEPT DATA.
008682,000495: 
008683,000496: 11,2520           11441                           CCS      RTSTDEX                               
008684,000497: 11,2521           12510                           TCF      33PASTE    -1                         
008685,000498: 
008686,000499: 11,2522           37767        ENDRTST            CAF      ZERO                                  #  ENDTEST.
008687,000500: 11,2523           55445                           TS       RSAMPDT                               
008688,000501: 11,2524           04117                           TC       NEWMODEX                              
008689,000502: 11,2525           00000                           OCT      0                                     
008690,000503: 11,2526           05566                           TC       EJFREE                                
008691,000504: 
008692,000505: 11,2527           03300        RV33               OCT      3300                                  
008693,000506: 

Page 215

008695,000508:                                                                                                  #           JOB TO: 1) TURN OFF USE OF TRIM GIMBAL.  2) 5 SECONDS LATER, TURN OFF DAP, & SET UP SPECIAL DOWN-LINK
008696,000509:                                                                                                  #  PROGRAM TO TRANSMIT A STEADY LIST OF CDUY & Z.  THE DOWN-LINK PROGRAM ALSO HAS THE DUTY OF TURNING THE DAP BACK
008697,000510:                                                                                                  #  ON AND ENABLING USE OF THE TRIM GIMBAL AGAIN.
008698,000511: 
008699,000512: 11,2530           00004        BEGINCDU           INHINT                                         
008700,000513: 11,2531           32564                           CA       FIVESECS                              #  TURN OFF DAP IN 5 SECS
008701,000514: 11,2532           05663                           TC       WAITLIST                              
008702,000515: 11,2533  E7,1407                                  EBANK=   DNTMBUFF                              
008703,000516: 11,2533           02552 22067                     2CADR    DAPOFF                                
008704,000517: 
008705,000518: 11,2535           31310                           CA       DVSELECT                              #  SAVE OLD CONTENTS OF DVSELECT.
008706,000519: 11,2536           55346                           TS       OLDDVSEL                              
008707,000520: 
008708,000521: 11,2537           04161                           TC       PHASCHNG                              
008709,000522: 11,2540           40026                           OCT      40026                                 #  6.2 FOR DAPOFF TASK & TGOFF JOB.
008710,000523: 
008711,000524: 11,2541           00004        TGOFF              INHINT                                         
008712,000525: 11,2542           40077                           CS       DAPBOOLS                              #  INHIBIT USE OF TRIM GIMBAL IMMEDIATELY.
008713,000526: 11,2543           77762                           MASK     USEQRJTS                              
008714,000527: 11,2544           26077                           ADS      DAPBOOLS                              
008715,000528: 
008716,000529: 11,2545           32562                           CA       LPNGSMON                              #  PREVENT GIMBLMON FROM TURNING TRIM
008717,000530: 11,2546           55310                           TS       DVSELECT                              #  GIMBAL BACK ON.
008718,000531: 
008719,000532: 11,2547           04161                           TC       PHASCHNG                              
008720,000533: 11,2550           00036                           OCT      00036                                 #  6.3 FOR DAPOFF TASK.
008721,000534: 
008722,000535: 11,2551           15567                           TCF      ENDOFJOB                              
008723,000536: 
008724,000537: 11,2552  E7,1407                                  EBANK=   DNTMBUFF                              
008725,000538: 
008726,000539: 11,2552           32563        DAPOFF             CA       LDNCDUS                               #  SET DNTMGOTO TO INITIATE THE SENDING OF
008727,000540: 11,2553           55401                           TS       DNTMGOTO                              #  CDUY & Z.
008728,000541: 
008729,000542: 11,2554           47751                           CS       GODAPGO                               #  TURNING OFF GODAPGO TURNS OFF DAP.
008730,000543: 11,2555           70077                           MASK     DAPBOOLS                              
008731,000544: 11,2556           54077                           TS       DAPBOOLS                              
008732,000545: 
008733,000546: 11,2557           04161                           TC       PHASCHNG                              
008734,000547: 11,2560           00006                           OCT      00006                                 
008735,000548: 
008736,000549: 11,2561           15727                           TCF      TASKOVER                              
008737,000550: 
008738,000551: 11,2562           02237        LPNGSMON           GENADR   PGNCSMON                              
008739,000552: 11,2563           02354        LDNCDUS            GENADR   DNCDUS                                
008740,000553: 11,2564           00764        FIVESECS           DEC      500        B-14                       
008741,000554: 

Page 216

008743,000556:                                                                                                  #  VB 43  IMU ATTITUDE ERROR METER LOADER.
008744,000557: 
008745,000558: 11,2565           02040        IMUATTCK           TC       TESTXACT                              
008746,000559: 11,2566           42631                           CS       OCT50K                                #  REMOVE COARSE AND ECTR ENABLE.
008747,000560: 11,2567           00006                           EXTEND                                         
008748,000561: 11,2570           03012                           WAND     12                                    
008749,000562: 
008750,000563: 11,2571           04644                           TC       GRABWAIT                              
008751,000564: 11,2572           32152                           CAF      VNLODCDU                              
008752,000565: 11,2573           04657                           TC       NVSBWAIT                              
008753,000566: 11,2574           04475                           TC       ENDIDLE                               
008754,000567: 11,2575           02055                           TC       TERMEXTV                              
008755,000568: 11,2576           02577                           TC       +1                                    
008756,000569: 11,2577           32632                           CAF      V43K                                  #  REDISPLAY OUR VERB.
008757,000570: 11,2600           04657                           TC       NVSBWAIT                              
008758,000571: 11,2601           37756                           CAF      BIT6                                  #  ENABLE ERROR COUNTER.
008759,000572: 11,2602           00006                           EXTEND                                         
008760,000573: 11,2603           05012                           WOR      12                                    
008761,000574: 11,2604           37762                           CAF      TWO                                   
008762,000575: 11,2605           00004                           INHINT                                         
008763,000576: 11,2606           05663                           TC       WAITLIST                              #  PUT OUT COMMAND IN .32 SECS.
008764,000577: 11,2607  E7,1444                                  EBANK=   RSTKLOC                               
008765,000578: 11,2607           02612 22067                     2CADR    ATTCK2                                
008766,000579: 
008767,000580: 11,2611           12055                           TCF      TERMEXTV                              #  FREES DISPLAY.
008768,000581: 
008769,000582: 11,2612           37762        ATTCK2             CAF      TWO                                   #  PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
008770,000583: 11,2613           54002                           TS       Q                                     #  INCASE OF EXCESS DATA.
008771,000584: 11,2614           50000                           INDEX    A                                     
008772,000585: 11,2615           30400                           CA       THETAD                                
008773,000586: 11,2616           00006                           EXTEND                                         
008774,000587: 11,2617           77747                           MP       BIT13                                 #  SHIFT RIGHT 2.
008775,000588: 11,2620           67770                           AD       NEG0                                  #  PREVENT +0 IN OUTPUT COUNTER
008776,000589: 11,2621           50002                           INDEX    Q                                     
008777,000590: 11,2622           54050                           TS       CDUXCMD                               
008778,000591: 11,2623           10002                           CCS      Q                                     
008779,000592: 11,2624           12613                           TCF      ATTCK2     +1                         
008780,000593: 
008781,000594: 11,2625           32633                           CAF      OCT70K                                
008782,000595: 11,2626           00006                           EXTEND                                         
008783,000596: 11,2627           05014                           WOR      14                                    
008784,000597: 11,2630           15727                           TCF      TASKOVER                              
008785,000598: 
008786,000599: 11,2631           00050        OCT50K             OCT      50                                    
008787,000600: 11,2632           04300        V43K               OCT      4300                                  
008788,000601: 11,2633           70000        OCT70K             OCT      70000                                 
008789,000602: 

Page 217

008791,000604:                                                                                                  #  PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
008792,000605: 
008793,000606: 11,2634  E7,1562                                  EBANK=   MSGCNT                                
008794,000607: 
008795,000608: 11,2634           37763        SETUPMSG           CAF      BIT1                                  #  BEGIN SCAN.
008796,000609: 11,2635           00004                           INHINT                                         
008797,000610: 11,2636           05663                           TC       WAITLIST                              
008798,000611: 11,2637  E7,1444                                  EBANK=   RSTKLOC                               
008799,000612: 11,2637           02644 22067                     2CADR    MSGSCAN    +2                         
008800,000613: 
008801,000614: 11,2641           05567                           TC       ENDOFJOB                              
008802,000615: 
008803,000616: 11,2642           05701        MSGSCAN            TC       FIXDELAY                              
008804,000617: 11,2643           00062                           DEC      50         B-14                       
008805,000618: 
008806,000619: 11,2644           37762                           CAF      TWO                                   #  SCAN ALL 3 CHANNELS FOR CHANGES.
008807,000620: 11,2645           55562                           TS       MSGCNT                                
008808,000621: 11,2646           50000                           INDEX    A                                     
008809,000622: 11,2647           31557                           CA       LAST30                                #  OLD VALUE OF INBITS.
008810,000623: 11,2650           00006                           EXTEND                                         
008811,000624: 11,2651           51562                           INDEX    MSGCNT                                
008812,000625: 11,2652           06030                           RXOR     30                                    
008813,000626: 11,2653           51562                           INDEX    MSGCNT                                
008814,000627: 11,2654           72703                           MASK     30MSGMSK                              
008815,000628: 11,2655           00006                           EXTEND                                         
008816,000629: 11,2656           12700                           BZF      NOMSG                                 
008817,000630: 
008818,000631: 11,2657           54002                           TS       Q                                     #  SAVE DIFFERENCE.
008819,000632: 11,2660           51562                           INDEX    MSGCNT                                
008820,000633: 11,2661           23557                           LXCH     LAST30                                #  UPDATE OLD VALUE.
008821,000634: 11,2662           00006                           EXTEND                                         
008822,000635: 11,2663           06001                           RXOR     L                                     
008823,000636: 11,2664           51562                           INDEX    MSGCNT                                
008824,000637: 11,2665           55557                           TS       LAST30                                
008825,000638: 
008826,000639: 11,2666           40000                           COM                                            
008827,000640: 11,2667           56002                           XCH      Q                                     
008828,000641: 11,2670           70002                           MASK     Q                                     #  SEE IF ANY OF CHANGED BITS JUST ON.
008829,000642: 11,2671           00006                           EXTEND                                         
008830,000643: 11,2672           12700                           BZF      NOMSG                                 #  NO MESSAGE IF SO.
008831,000644: 
008832,000645:                                                                                                  #  NO ROTATIONAL HAND CONTROLLER IN 206.
008833,000646: 
008834,000647: 11,2673           32706        NOTRHC             CAF      OKT30                                 
008835,000648: 11,2674           61562                           AD       MSGCNT                                
008836,000649: 11,2675           54071                           TS       RUPTREG2                              
008837,000650: 
008838,000651: 11,2676           40002                           CS       Q                                     
008839,000652: 11,2677           02724                           TC       VMESSAGE                              
008840,000653: 

Page 218

008842,000655: 11,2700           11562        NOMSG              CCS      MSGCNT                                
008843,000656: 11,2701           12645                           TCF      MSGSCAN    +3                         
008844,000657: 11,2702           12642                           TCF      MSGSCAN                               
008845,000658: 
008846,000659: 11,2703           00017        30MSGMSK           OCT      17                                    
008847,000660: 11,2704           77777                           OCT      77777                                 
008848,000661: 11,2705           03777                           OCT      3777                                  
008849,000662: 
008850,000663: 11,2706           00030        OKT30              OCT      30                                    
008851,000664: 11,2707           02717        DESCBITS           TC       MESSAGE                               #  DESCENT BITS COME HERE IN A.
008852,000665: 11,2710           00016                           OCT      16                                    
008853,000666: 11,2711           05733                           TC       RESUME                                
008854,000667: 
008855,000668: 11,2712           04644        RHCMON             TC       GRABWAIT                              #  FIRE UP DSKY MONITOR.
008856,000669: 11,2713           32716                           CAF      RHCMONVN                              
008857,000670: 11,2714           04657                           TC       NVSBWAIT                              
008858,000671: 11,2715           05566                           TC       EJFREE                                
008859,000672: 
008860,000673: 11,2716           01645        RHCMONVN           OCT      1645                                  
008861,000674: 

Page 219

008863,000676:                                                                                                  #  MESSAGE DISPLAY - 3 COMPONENT OCTAL.
008864,000677: 
008865,000678: 11,2717           54071        MESSAGE            TS       RUPTREG2                              #  NEW CHANNEL CONTENTS ARRIVE IN A.
008866,000679: 11,2720           50002                           INDEX    Q                                     #  CHANNEL NUMBER IN OCTAL AT CALLER +1.
008867,000680: 11,2721           30000                           CAF      0                                     
008868,000681: 11,2722           24002                           INCR     Q                                     
008869,000682: 11,2723           56071                           XCH      RUPTREG2                              
008870,000683: 
008871,000684: 11,2724           54070        VMESSAGE           TS       RUPTREG1                              #  FOR VARIABLE CHANNEL.
008872,000685: 11,2725           00006                           EXTEND                                         
008873,000686: 11,2726           22072                           QXCH     RUPTREG3                              
008874,000687: 11,2727           35651                           CAF      PRIO27                                #  FIRE UP SPECIAL JOB.
008875,000688: 11,2730           05505                           TC       NOVAC                                 
008876,000689: 11,2731  E7,1444                                  EBANK=   RSTKLOC                               
008877,000690: 11,2731           02742 22067                     2CADR    DOMSG                                 
008878,000691: 
008879,000692: 11,2733           52071                           DXCH     RUPTREG1                              #  NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
008880,000693: 11,2734           50064                           INDEX    LOCCTR                                #  MPAC +1.
008881,000694: 11,2735           52145                           DXCH     MPAC                                  
008882,000695: 11,2736           30025                           CA       TIME1                                 
008883,000696: 11,2737           50064                           INDEX    LOCCTR                                
008884,000697: 11,2740           54146                           TS       MPAC       +2                         
008885,000698: 11,2741           00072                           TC       RUPTREG3                              
008886,000699: 
008887,000700: 11,2742           04644        DOMSG              TC       GRABWAIT                              
008888,000701: 11,2743           00006                           EXTEND                                         
008889,000702: 11,2744           30145                           DCA      MPAC                                  
008890,000703: 11,2745           52340                           DXCH     DSPTEM1                               
008891,000704: 11,2746           30146                           CA       MPAC       +2                         
008892,000705: 11,2747           54341                           TS       DSPTEM1    +2                         
008893,000706: 11,2750           32757                           CAF      MSGVN                                 
008894,000707: 11,2751           04444                           TC       NVSUB                                 
008895,000708: 11,2752           12754                           TCF      MSGBUSY                               
008896,000709: 11,2753           05566                           TC       EJFREE                                
008897,000710: 
008898,000711: 11,2754           32756        MSGBUSY            CAF      +2                                    
008899,000712: 11,2755           04654                           TC       NVSUBUSY                              
008900,000713: 11,2756           22743                           CADR     DOMSG      +1                         
008901,000714: 
008902,000715: 11,2757           00535        MSGVN              OCT      0535                                  
008903,000716: 

Page 220

008905,000718:                                                                                                  #  ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
008906,000719: 
008907,000720: 11,2760           05235        AURLOKON           TC       MAKECADR                              
008908,000721: 11,2761           54426                           TS       DESRET                                
008909,000722: 11,2762           32527                           CAF      RV33                                  #  ASSUMES DSKY GRABBED.
008910,000723: 11,2763           04657                           TC       NVSBWAIT                              
008911,000724: 11,2764           04622                           TC       FLASHON                               
008912,000725: 11,2765           04475                           TC       ENDIDLE                               
008913,000726: 11,2766           12771                           TCF      +3                                    #  ON TERM.
008914,000727: 11,2767           37757                           CAF      LOKONFLG                              
008915,000728: 11,2770           12772                           TCF      +2                                    
008916,000729: 11,2771           37767                           CAF      ZERO                                  
008917,000730: 11,2772           00004                           INHINT                                         
008918,000731: 11,2773           56074                           XCH      STATE                                 
008919,000732: 11,2774           73006                           MASK     -LOKONFG                              
008920,000733: 11,2775           26074                           ADS      STATE                                 
008921,000734: 
008922,000735: 11,2776           77757                           MASK     LOKONFLG                              #  IF NO LOCK-ON CALLED FOR, SET BIT15 OF
008923,000736: 11,2777           10000                           CCS      A                                     #  RADMODES TO INDICATE THAT ARBITRARILY-
008924,000737: 11,3000           13003                           TCF      +3                                    #  LONG DESIGNATION IS WANTED (TO BE
008925,000738: 
008926,000739: 11,3001           37745                           CAF      BIT15                                 #  TERMINATED BY FRESH START).
008927,000740: 11,3002           26412                           ADS      RADMODES                              
008928,000741: 11,3003           00003                           RELINT                                         
008929,000742: 11,3004           30426                           CA       DESRET                                
008930,000743: 11,3005           15230                           TCF      BANKJUMP                              
008931,000744: 
008932,000745: 11,3006           77757        -LOKONFG           OCT      -20                                   
008933,000746: 

Page 221

008935,000748:                                                                                                  #  PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
008936,000749: 
008937,000750: 11,3007           33077        DISINDT            CAF      FLVELVN                               #  ASK FOR FORWARD, LATERAL VELOCITY.
008938,000751: 11,3010           04657                           TC       NVSBWAIT                              
008939,000752: 11,3011           04475                           TC       ENDIDLE                               
008940,000753: 11,3012           13034                           TCF      ENDDISIN                              
008941,000754: 11,3013           13014                           TCF      +1                                    
008942,000755: 11,3014           33100                           CAF      ALT,R,VN                              #  ASK FOR INITIAL AND FINIAL ALTITUDES AND
008943,000756: 11,3015           04657                           TC       NVSBWAIT                              #  ALTITUDE RATE.
008944,000757: 11,3016           04475                           TC       ENDIDLE                               
008945,000758: 11,3017           13034                           TCF      ENDDISIN                              
008946,000759: 11,3020           13021                           TCF      +1                                    
008947,000760: 
008948,000761: 11,3021           00004                           INHINT                                         
008949,000762: 11,3022           47763                           CS       ONE                                   
008950,000763: 11,3023           54350                           TS       DIDFLG                                
008951,000764: 
008952,000765: 11,3024           00006                           EXTEND                                         
008953,000766: 11,3025           30352                           DCA      ALT                                   #  SO FOLLOWING MONITOR WORKS.
008954,000767: 11,3026           52364                           DXCH     ALTSAVE                               
008955,000768: 
008956,000769: 11,3027           37763                           CAF      ONE                                   
008957,000770: 11,3030           05663                           TC       WAITLIST                              
008958,000771: 11,3031  E7,1444                                  EBANK=   RSTKLOC                               
008959,000772: 11,3031           03042 22067                     2CADR    DISINLUP   +2                         
008960,000773: 
008961,000774: 11,3033           15566                           TCF      EJFREE                                
008962,000775: 
008963,000776: 11,3034           04724        ENDDISIN           TC       FREEDSP                               
008964,000777: 11,3035           04117                 +1        TC       NEWMODEX                              
008965,000778: 11,3036           00000                           OCT      0                                     
008966,000779: 
008967,000780: 11,3037           05567                           TC       ENDOFJOB                              
008968,000781: 

Page 222

008970,000783:                                                                                                  #  WATCH ALTSAVE FOR END OF PROBLEM.
008971,000784: 
008972,000785: 11,3040           05701        DISINLUP           TC       FIXDELAY                              
008973,000786: 11,3041           00062                           DEC      50         B-14                       
008974,000787: 
008975,000788: 11,3042           00006                 +2        EXTEND                                         
008976,000789: 11,3043           30355                           DCA      FINALT                                
008977,000790: 11,3044           52062                           DXCH     ITEMP1                                
008978,000791: 11,3045           00006                           EXTEND                                         
008979,000792: 11,3046           40364                           DCS      ALTSAVE                               #  LATEST ALTITUDE.
008980,000793: 11,3047           20062                           DAS      ITEMP1                                
008981,000794: 
008982,000795: 11,3050           10061                           CCS      ITEMP1                                
008983,000796: 11,3051           13071                           TCF      +DIF                                  
008984,000797: 11,3052           13054                           TCF      +2                                    
008985,000798: 11,3053           13075                           TCF      -DIF                                  
008986,000799: 
008987,000800: 11,3054           10062                           CCS      ITEMP2                                
008988,000801: 11,3055           13071                           TCF      +DIF                                  
008989,000802: 11,3056           13060                           TCF      +2                                    
008990,000803: 11,3057           13075                           TCF      -DIF                                  
008991,000804: 
008992,000805: 11,3060           37767        DISINDUN           CAF      ZERO                                  
008993,000806: 11,3061           54353                           TS       ALTRATE                               
008994,000807: 11,3062           52355                           DXCH     FINALT                                
008995,000808: 11,3063           52352                           DXCH     ALT                                   
008996,000809: 11,3064           37746                           CAF      PRIO20                                
008997,000810: 11,3065           05505                           TC       NOVAC                                 
008998,000811: 11,3066  E7,1444                                  EBANK=   RSTKLOC                               
008999,000812: 11,3066           03035 22067                     2CADR    ENDDISIN   +1                         
009000,000813: 
009001,000814: 11,3070           15727                           TCF      TASKOVER                              
009002,000815: 
009003,000816: 11,3071           30353        +DIF               CA       ALTRATE                               
009004,000817: 11,3072           00006                           EXTEND                                         
009005,000818: 11,3073           63060                           BZMF     DISINDUN                              
009006,000819: 11,3074           13040                           TCF      DISINLUP                              
009007,000820: 
009008,000821: 11,3075           40353        -DIF               CS       ALTRATE                               
009009,000822: 11,3076           13072                           TCF      +DIF       +1                         
009010,000823: 
009011,000824: 11,3077           02444        FLVELVN            OCT      2444                                  
009012,000825: 11,3100           02564        ALT,R,VN           OCT      2564                                  
009013,000826: 
009014,000827: 11,3101           00004        MINIMP             INHINT                                         
009015,000828: 11,3102           47752                           CS       BIT10                                 #  BIT 10 OF DAPBOOLS INDICATES MINIMP MODE
009016,000829: 11,3103           70077                           MASK     DAPBOOLS                              
009017,000830: 11,3104           67752                           AD       BIT10                                 
009018,000831: 11,3105           54077                           TS       DAPBOOLS                              #  BIT 10 OF DAPBOOLS NOW PRESENT.
009019,000832: 11,3106           15567                           TCF      ENDOFJOB                              
009020,000833: 

Page 223

009022,000835: 11,3107           00004        NOMINIMP           INHINT                                         
009023,000836: 11,3110           47752                           CS       BIT10                                 
009024,000837: 11,3111           70077                           MASK     DAPBOOLS                              
009025,000838: 11,3112           54077                           TS       DAPBOOLS                              #  A ZERO IN POSITION 10 OF DAPBOOLS NOW.
009026,000839: 
009027,000840: 11,3113           00006                           EXTEND                                         
009028,000841: 11,3114           30033                           DCA      CDUX                                  
009029,000842: 11,3115           52767                           DXCH     CDUXD                                 
009030,000843: 11,3116           30034                           CA       CDUZ                                  
009031,000844: 11,3117           54770                           TS       CDUZD                                 
009032,000845: 11,3120           15567                           TCF      ENDOFJOB                              
009033,000846: 

Page 224

009035,000848:                                                                                                  #  VB 60 PREPARE FOR STANDBY OPERATION
009036,000849: 
009037,000850:                                                                                                  #  ROUTINE WRITTEN FOR TEST ROPES ONLY*** MUST BE UPDATED TO INCLUDE
009038,000851:                                                                                                  #                                  FLIGHT REQUIREMENTS FOR FLIGHT OPERATION
009039,000852: 
009040,000853: 11,3121  E3,1400                                  EBANK=   LST1                                  
009041,000854: 
009042,000855: 11,3121           35352        PRESTAND           CAF      EBANK3                                #  COMES HERE FROM LST2FAN
009043,000856: 11,3122           56003                           XCH      EBANK                                 #  SET UP EBANK FOR BANK 3
009044,000857: 11,3123           00004                           INHINT                                         
009045,000858: 11,3124           30025                           CA       TIME1                                 
009046,000859: 11,3125           55506                           TS       TIMESAV                               #  THIS ROUTINE WILL LOOK AT TIME1 UNTIL
009047,000860: 11,3126           32706                           CAF      OKT30                                 #   TIME1 IS INCREMENTED, THEN IT WILL
009048,000861: 11,3127           55512        LONGER             TS       TIMAR                                 #  SNATCH THE MISSION TIME REGS AND STORE
009049,000862: 11,3130           41506                           CS       TIMESAV                               #  THEM IN TIMESAV FOR LATER ISE IN ARITH.
009050,000863: 11,3131           60025                           AD       TIME1                                 #  OPERATIONS WHICH SHOULD FIND THE
009051,000864: 11,3132           00006                           EXTEND                                         #  STANDING DIFFERENCE BETWEEN THE SCALAR
009052,000865: 11,3133           13140                           BZF      CHKTIME                               #  AND THE TIME1-TIME2S REGS.
009053,000866: 
009054,000867: 11,3134           00006                           EXTEND                                         
009055,000868: 11,3135           30025                           DCA      TIME2                                 #  READ AND STORE THE DP TIME AND TO
009056,000869: 11,3136           53507                           DXCH     TIMESAV                               #  READ THE SCALAR USING THE EXISTING PROG
009057,000870: 11,3137           13146                           TCF      CATCHFIN                              #  FINETIME.
009058,000871: 
009059,000872: 11,3140           11512        CHKTIME            CCS      TIMAR                                 #  MUST WATCH THE TIME SPENT IN INHINT OR
009060,000873: 11,3141           03127                           TC       LONGER                                #  THE COPS MIGHT CATCH US.
009061,000874: 11,3142           00003                           RELINT                                         
009062,000875: 11,3143           10067                           CCS      NEWJOB                                
009063,000876: 11,3144           05532                           TC       CHANG1                                
009064,000877: 11,3145           03126                           TC       LONGER     -1                         #  GO BACK AND LOOK AGAIN
009065,000878: 
009066,000879: 11,3146           05026        CATCHFIN           TC       FINETIME                              #  WILL READ CHANNELS 3 AND 4 AND RETURN
009067,000880: 11,3147           53511                           DXCH     SCALSAV                               #  WITH 3 IN A AND 4 IN L..
009068,000881: 11,3150           00003                           RELINT                                         
009069,000882: 11,3151           47760                           CS       BIT4                                  
009070,000883: 11,3152           70365                           MASK     IMODES30                              #  INHIBIT THE IMU FAIL LIGHT.
009071,000884: 11,3153           67760                           AD       BIT4                                  
009072,000885: 11,3154           54365                           TS       IMODES30                              
009073,000886: 
009074,000887: 11,3155           37760                           CAF      BIT4                                  #  SET ALL CHAN 12 BITS EXCEPT C/A TO ZERO.
009075,000888: 11,3156           00006                           EXTEND                                         #  THIS IS NECESSARY SO THAT THE GIMBALS DO
009076,000889: 11,3157           03012                           WAND     12                                    #  NOT DRIFT INTO GIMBALLOCK IF THE SYSTEM
009077,000890: 
009078,000891: 11,3160           37760                           CAF      BIT4                                  #  SHOULD BE IN OPERATE AT THE TIME STBY
009079,000892: 11,3161           00006                           EXTEND                                         #  WAS STARTED.  THIS SECTION WILL MAKE
009080,000893: 11,3162           05012                           WOR      12                                    #  SURE THE IMU IS IN C/A.....
009081,000894: 
009082,000895: 11,3163           37751                           CAF      BIT11                                 #  WHEN BIT 11 IS PRESENT IN CHANNEL 13 THE
009083,000896: 11,3164           00006                           EXTEND                                         #  DSKY PB. CAN THEN ENERGIZE THE STANDBY
009084,000897: 11,3165           05013                           WOR      13                                    #  RELAY IN THE CGC PWR SUPPLIES....

Page 225

009086,000899: 11,3166           05567                           TC       ENDOFJOB                              #  GO TO DUMMY JOB UNTIL YOU DIE...
009087,000900: 

Page 226

009089,000902:                                                                                                  #  VB 61 RECOVER FROM STANDBY OPERATION
009090,000903: 
009091,000904:                                                                                                  #  ROUTINE WRITTEN FOR TEST ROPES ONLY**** MUST BE UPDATED TO INCLUDE
009092,000905:                                                                                                  #                  FLIGHT REQUIREMENTS FOR FLIGHT OPERATIONS SEQUENCES....
009093,000906: 
009094,000907: 11,3167           35352        POSTAND            CAF      EBANK3                                #  COMES HERE FROM LST2FAN
009095,000908: 11,3170           56003                           XCH      EBANK                                 #  SET UP EBANK FOR BANK 3
009096,000909: 11,3171           05026                           TC       FINETIME                              
009097,000910: 11,3172           53513                           DXCH     TIMAR                                 #  READ THE SCALAR AND SEE IF IT OVERFLOW-
009098,000911: 11,3173           00003                           RELINT                                         #  ED WHILE THE CGC WAS IN STBY, IF SO
009099,000912: 11,3174           31512                           CAE      TIMAR                                 #  THE OVERFLOW MUST BE ADDED OR IT WILL
009100,000913: 11,3175           00006                           EXTEND                                         #  SEEM THAT THE REALATIVITY THEORY WORKS
009101,000914: 11,3176           61510                           SU       SCALSAV                               #  BETTER THAN IT SHOULD...
009102,000915: 11,3177           00006                           EXTEND                                         
009103,000916: 11,3200           63223                           BZMF     ADDTIME                               #  IF ITS NEG. IT MUST HAVE OV:FLWD..
009104,000917: 
009105,000918: 11,3201           06112                           TC       INTPRET                               
009106,000919: 11,3202           45345                           DLOAD    DSU                                   #  IF IT DID NOT OV-FLW. FIND OUT HOW LONG
009107,000920: 11,3203           01513                                    TIMAR                                 #  THE CGC WAS IN STBY BY SUBTRACTING THE
009108,000921: 11,3204           01511                                    SCALSAV                               #  SCALAR AT THE START OF STBY FROM THE
009109,000922: 11,3205           47061                           SRR      RTB                                   #  SCALAR AT THE END OF STBY AND THEN ADD
009110,000923: 11,3206           21606                                    5                                     #  THE DIFFERENCE TO THE TIME EXISTING
009111,000924: 11,3207           33520                                    SGNAGREE                              #  WHEN THE SCALAR WAS READ AT STBY ENTRY**
009112,000925: 11,3210           77615                           DAD                                            
009113,000926: 11,3211           01507                                    TIMESAV                               
009114,000927: 11,3212           01513                           STORE    TIMAR                                 
009115,000928: 11,3213           77776                           EXIT                                           
009116,000929: 
009117,000930: 11,3214           00006        CORCTTIM           EXTEND                                         
009118,000931: 11,3215           31513                           DCA      TIMAR                                 #  THIS IS THE CORRECTED TIME TO BE READ
009119,000932: 11,3216           52025                           DXCH     TIME2                                 #  INTO TIME1 AND TIME2 REGS. ADDR 24-25
009120,000933: 
009121,000934: 11,3217           47751                           CS       BIT11                                 
009122,000935: 11,3220           00006                           EXTEND                                         #  DISABLE THE DSKY STBY PUSHBUTTON.
009123,000936: 11,3221           03013                           WAND     13                                    
009124,000937: 11,3222           05567                           TC       ENDOFJOB                              
009125,000938: 
009126,000939: 11,3223           00006        ADDTIME            EXTEND                                         
009127,000940: 11,3224           37743                           DCA      DPOSMAX                               #  IF THE SCALAR OVERFLOWED, FIND OUT HOW
009128,000941: 11,3225           53515                           DXCH     TIMEDIFF                              #  MUCH TIME REMAINED WHEN READ THE FIRST
009129,000942: 11,3226           06112                           TC       INTPRET                               #  TIME AND THEN ADD THE PRESENT READING-
009130,000943: 11,3227           45345                           DLOAD    DSU                                   #  WHICH WILL BE THE TOTAL TIME SPENT IN
009131,000944: 11,3230           01515                                    TIMEDIFF                              #  STANDBY, TO WHICH THE TIME AT STBY
009132,000945: 11,3231           01511                                    SCALSAV                               #  MAY BE ADDED TO FIND THE PRESENT TIME
009133,000946: 11,3232           54215                           DAD      SRR                                   #  CORRECT TO 10 MSEC..
009134,000947: 11,3233           01513                                    TIMAR                                 #  **** THE TIME IN STANDBY MODE MUST NOT
009135,000948: 11,3234           21606                                    5                                     #  EXCEED 23 HOURS IF TIME IS TO BE
009136,000949: 11,3235           77615                           DAD                                            #  CORRECTLY COMPUTED BY THIS ROUTINE.*****
009137,000950: 11,3236           01507                                    TIMESAV                               
009138,000951: 11,3237           01513                           STORE    TIMAR                                 

Page 227

009140,000953: 11,3240           77776                           EXIT                                           
009141,000954: 11,3241           03214                           TC       CORCTTIM                              
009142,000955: 

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