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.

008158,000002:                                                                                                  ## Copyright:   Public domain.
008159,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
008160,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
008161,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
008162,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
008163,000007:                                                                                                  ## Assembler:   yaYUL
008164,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
008165,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
008166,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
008167,000011:                                                                                                  ##              2016-10-06 RSB  Completed transcription.
008168,000012:                                                                                                  ##              2016-10-30 MAS  Corrected DESKBITS->DESCBITS.
008169,000013:                                                                                                  ##              2016-10-31 RSB  Typos.
008170,000014:                                                                                                  ##              2016-11-01 RSB  More typos.
008171,000015:                                                                                                  ##              2016-11-02 RSB  More typos.
008172,000016:                                                                                                  ##              2016-12-04 RSB  Proofed with octopus/ProoferComments and fixed various
008173,000017:                                                                                                  ##                              comments, but the proofing process is not completed.
008174,000018:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
008175,000019:                                                                                                  ##                              changes made.
008176,000020:                                                                                                  ##              2017-06-01 RSB  Fixed some comment errors, mostly of whitespace, identified
008177,000021:                                                                                                  ##                              in transcribing SUNBURST 37.
008178,000022: 

Page 200

008180,000024: 11,2000                                           BANK     11                                    
008181,000025: 11,2000  E5,1500                                  EBANK=   OGC                                   
008182,000026: 
008183,000027:                                                                                                  #  FAN-OUT
008184,000028: 

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

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

Page 201

008232,000076: 11,2044           47761        XACT1              CS       BIT3                                  
008233,000077: 11,2045           00004                           INHINT                                         
008234,000078: 11,2046           70336                           MASK     EXTVBACT                              
008235,000079: 11,2047           67761                           AD       BIT3                                  
008236,000080: 11,2050           54336                           TS       EXTVBACT                              
008237,000081: 11,2051           00003                           RELINT                                         
008238,000082: 11,2052           00002                           TC       Q                                     
008239,000083: 
008240,000084: 11,2053           04571        XACTALM            TC       FALTON                                
008241,000085: 11,2054           05567                           TC       ENDOFJOB                              
008242,000086: 
008243,000087: 11,2055           04724        TERMEXTV           TC       FREEDSP                               #  IF WE GET A TERMINATE INSTEAD OF A LOAD.
008244,000088: 
008245,000089: 11,2056           02060        ENDEXTVB           TC       XACT0                                 
008246,000090: 11,2057           05567                           TC       ENDOFJOB                              
008247,000091: 
008248,000092: 11,2060           47761        XACT0              CS       BIT3                                  
008249,000093: 11,2061           00004                           INHINT                                         
008250,000094: 11,2062           70336                           MASK     EXTVBACT                              
008251,000095: 11,2063           54336                           TS       EXTVBACT                              
008252,000096: 11,2064           00003                           RELINT                                         
008253,000097: 11,2065           00002        XACT0Q             TC       Q                                     
008254,000098: 
008255,000099: 11,2066           04571        ALM/END            TC       FALTON                                
008256,000100: 11,2067           02056                           TC       ENDEXTVB                              
008257,000101: 
008258,000102: 
008259,000103: 11,2070           02076        VBZERO             TC       OP/INERT                              
008260,000104: 11,2071           02110                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
008261,000105: 11,2072           02117                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(40)
008262,000106: 
008263,000107: 11,2073           02076        VBCOARK            TC       OP/INERT                              
008264,000108: 11,2074           02132                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
008265,000109: 11,2075           02234                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (40)
008266,000110: 
008267,000111:                                                                                                  #           RETURNS TO L+1 IF IMU OR L+2 IF RR.
008268,000112: 
008269,000113: 11,2076           47757        OP/INERT           CS       BIT5                                  #  OCT20
008270,000114: 11,2077           60273                           AD       NOUNREG                               
008271,000115: 11,2100           00006                           EXTEND                                         
008272,000116: 11,2101           12065                           BZF      XACT0Q                                #  IF = 20.
008273,000117: 
008274,000118: 11,2102           24002                           INCR     Q                                     
008275,000119: 11,2103           62107                           AD       RRIMUDIF                              #  = -20 OCT.
008276,000120: 11,2104           00006                           EXTEND                                         
008277,000121: 11,2105           12065                           BZF      XACT0Q                                
008278,000122: 

Page 202

008280,000124: 11,2106           02066                           TC       ALM/END                               #  ILLEGAL.
008281,000125: 
008282,000126: 11,2107           77757        RRIMUDIF           OCT      -20                                   
008283,000127: 

Page 203

008285,000129:                                                                                                  #  KEYBOARD REQUEST TO ZERO IMU ENCODERS
008286,000130: 
008287,000131: 11,2110           02040        IMUZEROK           TC       TESTXACT                              #  ZERO ENCODERS.
008288,000132: 11,2111           05206                           TC       BANKCALL                              
008289,000133: 11,2112           26000                           CADR     IMUZERO                               
008290,000134: 
008291,000135: 11,2113           05206                           TC       BANKCALL                              #  STALL
008292,000136: 11,2114           26751                           CADR     IMUSTALL                              
008293,000137: 11,2115           02116                           TC       +1                                    
008294,000138: 
008295,000139: 11,2116           02056                           TC       ENDEXTVB                              
008296,000140: 11,2117           02040        RRZEROK            TC       TESTXACT                              
008297,000141: 11,2120           05206                           TC       BANKCALL                              #  ZERO RR CDUS.
008298,000142: 11,2121           20250                           CADR     RRZERO                                
008299,000143: 
008300,000144: 11,2122           05206        RWAITK             TC       BANKCALL                              
008301,000145: 11,2123           26745                           CADR     RADSTALL                              
008302,000146: 11,2124           12125                           TCF      +1                                    
008303,000147: 11,2125           12056                           TCF      ENDEXTVB                              
008304,000148: 
008305,000149: 11,2126           02040        LRPOS2K            TC       TESTXACT                              #  COMMAND LR TO POSITION 2.
008306,000150: 11,2127           05206                           TC       BANKCALL                              
008307,000151: 11,2130           21162                           CADR     LRPOS2                                
008308,000152: 11,2131           12122                           TCF      RWAITK                                
008309,000153: 

Page 204

008311,000155:                                                                                                  #  KEYBOARD REQUEST TO COARSE ALIGN THE IMU
008312,000156: 
008313,000157: 11,2132           02040        IMUCOARK           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
008314,000158: 11,2133           04644                           TC       GRABWAIT                              
008315,000159: 11,2134           32152                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
008316,000160: 11,2135           04657                           TC       NVSBWAIT                              
008317,000161: 11,2136           04475                           TC       ENDIDLE                               #  STALL WAITING FOR THE LOAD
008318,000162: 11,2137           02055                           TC       TERMEXTV                              
008319,000163: 11,2140           02154                           TC       ICSDEL                                #  PROCEED - ASK FOR INCREMENTAL LOAD.
008320,000164: 
008321,000165: 11,2141           32153        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
008322,000166: 11,2142           04657                           TC       NVSBWAIT                              
008323,000167: 11,2143           04724                           TC       FREEDSP                               #  RELEASE THE DISPLAYS
008324,000168: 
008325,000169: 11,2144           05206                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
008326,000170: 11,2145           26065                           CADR     IMUCOARS                              
008327,000171: 
008328,000172: 11,2146           05206                           TC       BANKCALL                              #  STALL
008329,000173: 11,2147           26751                           CADR     IMUSTALL                              
008330,000174: 11,2150           02056                           TC       ENDEXTVB                              
008331,000175: 11,2151           02056                           TC       ENDEXTVB                              
008332,000176: 
008333,000177: 11,2152           02522        VNLODCDU           OCT      02522                                 
008334,000178: 11,2153           04100        IMUCOARV           OCT      04100                                 
008335,000179: 

Page 205

008337,000181:                                                                                                  #           PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
008338,000182: 
008339,000183: 11,2154           32202        ICSDEL             CAF      DELLOAD                               
008340,000184: 11,2155           04657                           TC       NVSBWAIT                              #  REQUEST LOAD OF DELTA ICDU ANGLES.
008341,000185: 11,2156           04475                           TC       ENDIDLE                               
008342,000186: 11,2157           02055                           TC       TERMEXTV                              
008343,000187: 11,2160           02141                           TC       ICORK2                                #  PROCEED WITHOUT DATA HERE TOO.
008344,000188: 11,2161           02163                           TC       INCLOOP                               #  LOOP TO INCREMENT THETAD FROM DSPTEM2.
008345,000189: 11,2162           02141                           TC       ICORK2                                #  RE-DISPLAY COARSE ALIGN VERB.
008346,000190: 
008347,000191: 11,2163           56002        INCLOOP            XCH      Q                                     #  INCREMENTS THETADS IN 2S COMPLEMENT FROM
008348,000192: 11,2164           54144                           TS       MPAC                                  #   THREE ANGLE INCREMENTS IN DSPTEM2S.
008349,000193: 11,2165           32203                           CAF      LTHD+2                                
008350,000194: 11,2166           54120                           TS       BUF                                   #  SET UP FOR CDUINC.
008351,000195: 11,2167           37762                           CAF      TWO                                   #  THREE TIMES THROUGH.
008352,000196: 
008353,000197: 11,2170           54145        INCLOOP2           TS       MPAC       +1                         
008354,000198: 11,2171           50000                           INDEX    A                                     
008355,000199: 11,2172           56342                           XCH      DSPTEM2                               #  INCREMENT TO TEM2 FOR CDUINC.
008356,000200: 11,2173           05206                           TC       BANKCALL                              
008357,000201: 11,2174           33602                           CADR     CDUINC                                
008358,000202: 11,2175           10120                           CCS      BUF                                   
008359,000203: 11,2176           54120                           TS       BUF                                   
008360,000204: 11,2177           10145                           CCS      MPAC       +1                         
008361,000205: 11,2200           02170                           TC       INCLOOP2                              
008362,000206: 
008363,000207: 11,2201           00144                           TC       MPAC                                  #  RETURN WHEN FINISHED.
008364,000208: 
008365,000209: 11,2202           02523        DELLOAD            OCT      02523                                 
008366,000210: 11,2203           00402        LTHD+2             ADRES    THETAD     +2                         
008367,000211: 

Page 206

008369,000213:                                                                                                  #  KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
008370,000214: 
008371,000215: 11,2204           02040        IMUFINEK           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
008372,000216: 11,2205           04644                           TC       GRABWAIT                              
008373,000217: 11,2206           32232                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
008374,000218: 11,2207           04657                           TC       NVSBWAIT                              
008375,000219: 11,2210           04475                           TC       ENDIDLE                               #  HOLD UP FOR THE DATA LOAD
008376,000220: 11,2211           02055                           TC       TERMEXTV                              
008377,000221: 11,2212           02213                           TC       +1                                    #  PROCEED WITHOUT A LOAD
008378,000222: 
008379,000223: 11,2213           32233                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
008380,000224: 11,2214           04657                           TC       NVSBWAIT                              
008381,000225: 11,2215           04724                           TC       FREEDSP                               #  RELEASE DISPLAYS
008382,000226: 
008383,000227: 11,2216           05206                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
008384,000228: 11,2217           26252                           CADR     IMUFINE                               
008385,000229: 
008386,000230: 11,2220           05206                           TC       BANKCALL                              #  HIBERNATION
008387,000231: 11,2221           26751                           CADR     IMUSTALL                              
008388,000232: 11,2222           02056                           TC       ENDEXTVB                              
008389,000233: 
008390,000234: 11,2223           32300        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
008391,000235: 11,2224           05206                           TC       BANKCALL                              
008392,000236: 11,2225           26362                           CADR     IMUPULSE                              
008393,000237: 
008394,000238: 11,2226           05206                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
008395,000239: 11,2227           26751                           CADR     IMUSTALL                              
008396,000240: 11,2230           02056                           TC       ENDEXTVB                              
008397,000241: 11,2231           02056                           TC       ENDEXTVB                              
008398,000242: 
008399,000243: 11,2232           02567        VNLODGYR           OCT      02567                                 
008400,000244: 11,2233           04200        IMUFINEV           OCT      04200                                 #  FINE ALIGN VERB
008401,000245: 

Page 207

008403,000247:                                                                                                  #  DESIGNATE TO DESIRED GIMBAL ANGLES.
008404,000248: 
008405,000249: 11,2234           02040        RRDESNBK           TC       TESTXACT                              
008406,000250: 11,2235           04644                           TC       GRABWAIT                              
008407,000251: 11,2236           32255                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
008408,000252: 11,2237           04657                           TC       NVSBWAIT                              
008409,000253: 11,2240           04475                           TC       ENDIDLE                               #  WAIT FOR THE LOAD
008410,000254: 11,2241           02055                           TC       TERMEXTV                              
008411,000255: 11,2242           02243                           TC       +1                                    #  PROCEED
008412,000256: 
008413,000257: 11,2243           05206                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
008414,000258: 11,2244           22760                           CADR     AURLOKON                              
008415,000259: 
008416,000260: 11,2245           32153                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
008417,000261: 11,2246           04657                           TC       NVSBWAIT                              
008418,000262: 11,2247           00004                           INHINT                                         #  FIRE UP JOB TO DO DESIGNATE.
008419,000263: 11,2250           37746                           CAF      PRIO20                                
008420,000264: 11,2251           05516                           TC       FINDVAC                               
008421,000265: 11,2252  E5,1500                                  EBANK=   OGC                                   
008422,000266: 11,2252           02256 22065                     2CADR    RRDESK2                               
008423,000267: 
008424,000268: 11,2254           12055                           TCF      TERMEXTV                              #  FREES DISPLAY.
008425,000269: 
008426,000270: 11,2255           02441        VNLDRCDU           OCT      2441                                  
008427,000271: 11,2256  11,2153               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
008428,000272: 
008429,000273: 11,2256           05206        RRDESK2            TC       BANKCALL                              
008430,000274: 11,2257           20364                           CADR     RRDESNB                               
008431,000275: 
008432,000276: 11,2260           02122                           TC       RWAITK                                
008433,000277: 
008434,000278:                                                                                                  #  PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
008435,000279:                                                                                                  #  ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
008436,000280:                                                                                                  #  LOAD.  OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
008437,000281:                                                                                                  #  PERFORM THE REQUESTED ACTION.
008438,000282: 
008439,000283: 11,2261           04626        GOLOADLV           TC       FLASHOFF                              
008440,000284: 11,2262           02060                           TC       XACT0                                 
008441,000285: 11,2263           05225                           TC       POSTJUMP                              
008442,000286: 11,2264           12002                           CADR     LOADLV1                               
008443,000287: 

Page 208

008445,000289:                                                                                                  #  KEYBOARD REQUEST TO PULSE TORQUE IRIGA
008446,000290: 
008447,000291: 11,2265           02040        TORQGYRS           TC       TESTXACT                              #  GYRO TORQUING WITH NO MODE-SWITCH.
008448,000292: 11,2266           04644                           TC       GRABWAIT                              
008449,000293: 11,2267           32232                           CAF      VNLODGYR                              
008450,000294: 11,2270           04657                           TC       NVSBWAIT                              
008451,000295: 11,2271           04475                           TC       ENDIDLE                               
008452,000296: 11,2272           02055                           TC       TERMEXTV                              
008453,000297: 11,2273           02274                           TC       +1                                    
008454,000298: 11,2274           32301                           CAF      TORQGYRV                              #  RE-DISPLAY OUR OWN VERB
008455,000299: 11,2275           04657                           TC       NVSBWAIT                              
008456,000300: 11,2276           04724                           TC       FREEDSP                               
008457,000301: 11,2277           12223                           TCF      FINEK2                                
008458,000302: 
008459,000303: 11,2300           00403        LGYROBIN           ECADR    DELVX                                 
008460,000304: 11,2301           05400        TORQGYRV           OCT      05400                                 
008461,000305: 

Page 209

008463,000307:                                                                                                  #  ALIGN TIME
008464,000308: 
008465,000309: 11,2302           32325        ALINTIME           CAF      VNLODDT                               #  USES NVSUBMON. DOES NOT TEST DSPLOCK.
008466,000310: 11,2303           54113                           TS       NVTEMP                                #  DOES NOT KILL MONITOR.
008467,000311: 11,2304           04460                           TC       NVSUBMON                              
008468,000312: 11,2305           05567                           TC       ENDOFJOB                              #  IN CASE OF ALARM IN LOAD REQUEST SET UP.
008469,000313: 11,2306           04475                           TC       ENDIDLE                               
008470,000314: 11,2307           05567                           TC       ENDOFJOB                              #  TERMINATE
008471,000315: 11,2310           05567                           TC       ENDOFJOB                              #  PROCEED WITHOUT DATA
008472,000316: 11,2311           00004                           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
008473,000317: 11,2312           37767                           CAF      ZERO                                  
008474,000318: 11,2313           54146                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
008475,000319: 11,2314           54001                           TS       L                                     #  ZERO T1 & T2 WHILE ALIGNING.
008476,000320: 11,2315           52025                           DXCH     TIME2                                 
008477,000321: 11,2316           52145                           DXCH     MPAC                                  
008478,000322: 11,2317           52340                           DXCH     DSPTEM1                               #  INCREMENT.
008479,000323: 11,2320           20145                           DAS      MPAC                                  
008480,000324: 
008481,000325: 11,2321           07327                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
008482,000326: 11,2322           52145                           DXCH     MPAC                                  #  NEW CLOCK.
008483,000327: 11,2323           20025                           DAS      TIME2                                 
008484,000328: 11,2324           05567                           TC       ENDOFJOB                              
008485,000329: 
008486,000330: 11,2325           02124        VNLODDT            OCT      02124                                 #  V/N FOR LOAD DELTA TIME
008487,000331: 

Page 210

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

Page 211

008540,000384: 11,2374           31143                           CADR     RDRINIT                               #  13 RENDEZVOUS RADAR / ANTENNAE TRACKING
008541,000385: 11,2375           22410                           CADR     FSTRSAMP                              #  14 HIGH SPEED RADAR SAMPLING.
008542,000386: 
008543,000387: 11,2376           31636                           CADR     ZEROERAS                              
008544,000388: 11,2377           23007                           CADR     DISINDT                               #  DISPLAY INERTIAL DATA TEST.
008545,000389: 11,2400           22066                           CADR     ALM/END                               
008546,000390: 11,2401           22066                           CADR     ALM/END                               
008547,000391: 11,2402           02101        TESTNV             OCT      2101                                  
008548,000392: 11,2403           02546        LQPL               ECADR    QPLACE                                
008549,000393: 11,2404           05225        GOSHOSUM           TC       POSTJUMP                              #  START ROUTINE TO DISPLAY SUM OF EACH
008550,000394: 11,2405           77543                           CADR     SHOWSUM                               #  BANK ON DSKY
008551,000395: 
008552,000396: 11,2406           05225        DOFCSTST           TC       POSTJUMP                              
008553,000397: 11,2407           14736                           CADR     FCSSTART                              
008554,000398: 

Page 212

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

Page 213

008608,000452: 11,2456           10000                           CCS      A                                     
008609,000453: 11,2457           12463                           TCF      LRCYCLE                               #  LANDING RADAR ARE SERIALS 2 - 5.
008610,000454: 
008611,000455: 11,2460           55443                           TS       RTSTBASE                              #  FOR RR BASE = 0, MAX = 1.
008612,000456: 11,2461           36306                           CAF      SIX                                   
008613,000457: 11,2462           12466                           TCF      +4                                    
008614,000458: 
008615,000459: 11,2463           37762        LRCYCLE            CAF      TWO                                   #  FOR LR BASE = 2, MAX = 3.
008616,000460: 11,2464           55443                           TS       RTSTBASE                              
008617,000461: 11,2465           32474                           CAF      18R                                   
008618,000462: 
008619,000463: 11,2466           55442                 +4        TS       RTSTMAX                               
008620,000464: 11,2467           00004                           INHINT                                         
008621,000465: 11,2470           05663                           TC       WAITLIST                              
008622,000466: 11,2471  E7,1444                                  EBANK=   RSTKLOC                               
008623,000467: 11,2471           03261 20067                     2CADR    RADSAMP                               
008624,000468: 
008625,000469: 11,2473           05567                           TC       ENDOFJOB                              
008626,000470: 
008627,000471: 11,2474           00022        18R                DEC      18         B-14                       
008628,000472: 11,2475           00102        HISPMAX            DEC      66         B-14                       
008629,000473: 11,2476           02101        RTSTNV             OCT      2101                                  
008630,000474: 11,2477           02236        RSTKLIST           GENADR   UPDNLIST                              
008631,000475: 11,2500           00444        LRPOSCAL           OCT      444                                   
008632,000476: 

Page 214

008634,000478:                                                                                                  #           SEMI-AUTO RADAR TESTING.
008635,000479: 
008636,000480: 11,2501           00004        RSEMIAUT           INHINT                                         
008637,000481: 11,2502           35647                           CAF      PRIO25                                #  START HI SPEED SAMPLING.
008638,000482: 11,2503           05505                           TC       NOVAC                                 
008639,000483: 11,2504  E7,1444                                  EBANK=   RSTKLOC                               
008640,000484: 11,2504           03301 20067                     2CADR    DORSAMP                               
008641,000485: 
008642,000486: 11,2506           00003                           RELINT                                         
008643,000487: 11,2507           37766                           CAF      FIVE                                  #  SEQUENCE THROUGH ALL SIX CHANNELS.
008644,000488: 11,2510           55441                 -1        TS       RTSTDEX                               
008645,000489: 
008646,000490: 11,2511           32527        33PASTE            CAF      RV33                                  #  ON ENTER, SWITCH TO NEXT CHANNEL.
008647,000491: 11,2512           04657                           TC       NVSBWAIT                              
008648,000492: 11,2513           04622                           TC       FLASHON                               
008649,000493: 11,2514           04475                           TC       ENDIDLE                               
008650,000494: 11,2515           02522                           TC       ENDRTST                               #  ON TERMINATE.
008651,000495: 11,2516           12520                           TCF      +2                                    
008652,000496: 11,2517           12511                           TCF      33PASTE                               #  DONT ACCEPT DATA.
008653,000497: 
008654,000498: 11,2520           11441                           CCS      RTSTDEX                               
008655,000499: 11,2521           12510                           TCF      33PASTE    -1                         
008656,000500: 
008657,000501: 11,2522           37767        ENDRTST            CAF      ZERO                                  #  ENDTEST.
008658,000502: 11,2523           55445                           TS       RSAMPDT                               
008659,000503: 11,2524           04117                           TC       NEWMODEX                              
008660,000504: 11,2525           00000                           OCT      0                                     
008661,000505: 11,2526           05566                           TC       EJFREE                                
008662,000506: 
008663,000507: 11,2527           03300        RV33               OCT      3300                                  
008664,000508: 

Page 215

008666,000510:                                                                                                  #           JOB TO: 1) TURN OFF USE OF TRIM GIMBAL.  2) 5 SECONDS LATER, TURN OFF DAP, & SET UP SPECIAL DOWN-LINK
008667,000511:                                                                                                  #  PROGRAM TO TRANSMIT A STEADY LIST OF CDUY & Z.  THE DOWN-LINK PROGRAM ALSO HAS THE DUTY OF TURNING THE DAP BACK
008668,000512:                                                                                                  #  ON AND ENABLING USE OF THE TRIM GIMBAL AGAIN.
008669,000513: 
008670,000514: 11,2530           00004        BEGINCDU           INHINT                                         
008671,000515: 11,2531           32564                           CA       FIVESECS                              #  TURN OFF DAP IN 5 SECS
008672,000516: 11,2532           05663                           TC       WAITLIST                              
008673,000517: 11,2533  E7,1407                                  EBANK=   DNTMBUFF                              
008674,000518: 11,2533           02552 22067                     2CADR    DAPOFF                                
008675,000519: 
008676,000520: 11,2535           31310                           CA       DVSELECT                              #  SAVE OLD CONTENTS OF DVSELECT.
008677,000521: 11,2536           55346                           TS       OLDDVSEL                              
008678,000522: 
008679,000523: 11,2537           04161                           TC       PHASCHNG                              
008680,000524: 11,2540           40026                           OCT      40026                                 #  6.2 FOR DAPOFF TASK & TGOFF JOB.
008681,000525: 
008682,000526: 11,2541           00004        TGOFF              INHINT                                         
008683,000527: 11,2542           40077                           CS       DAPBOOLS                              #  INHIBIT USE OF TRIM GIMBAL IMMEDIATELY.
008684,000528: 11,2543           77762                           MASK     USEQRJTS                              
008685,000529: 11,2544           26077                           ADS      DAPBOOLS                              
008686,000530: 
008687,000531: 11,2545           32562                           CA       LPNGSMON                              #  PREVENT GIMBLMON FROM TURNING TRIM
008688,000532: 11,2546           55310                           TS       DVSELECT                              #  GIMBAL BACK ON.
008689,000533: 
008690,000534: 11,2547           04161                           TC       PHASCHNG                              
008691,000535: 11,2550           00036                           OCT      00036                                 #  6.3 FOR DAPOFF TASK.
008692,000536: 
008693,000537: 11,2551           15567                           TCF      ENDOFJOB                              
008694,000538: 
008695,000539: 11,2552  E7,1407                                  EBANK=   DNTMBUFF                              
008696,000540: 
008697,000541: 11,2552           32563        DAPOFF             CA       LDNCDUS                               #  SET DNTMGOTO TO INITIATE THE SENDING OF
008698,000542: 11,2553           55401                           TS       DNTMGOTO                              #  CDUY & Z.
008699,000543: 
008700,000544: 11,2554           47751                           CS       GODAPGO                               #  TURNING OFF GODAPGO TURNS OFF DAP.
008701,000545: 11,2555           70077                           MASK     DAPBOOLS                              
008702,000546: 11,2556           54077                           TS       DAPBOOLS                              
008703,000547: 
008704,000548: 11,2557           04161                           TC       PHASCHNG                              
008705,000549: 11,2560           00006                           OCT      00006                                 
008706,000550: 
008707,000551: 11,2561           15727                           TCF      TASKOVER                              
008708,000552: 
008709,000553: 11,2562           02237        LPNGSMON           GENADR   PGNCSMON                              
008710,000554: 11,2563           02354        LDNCDUS            GENADR   DNCDUS                                
008711,000555: 11,2564           00764        FIVESECS           DEC      500        B-14                       
008712,000556: 

Page 216

008714,000558:                                                                                                  #           VB 43  IMU ATTITUDE ERROR METER LOADER.
008715,000559: 
008716,000560: 11,2565           02040        IMUATTCK           TC       TESTXACT                              
008717,000561: 11,2566           42631                           CS       OCT50K                                #  REMOVE COARSE AND ECTR ENABLE.
008718,000562: 11,2567           00006                           EXTEND                                         
008719,000563: 11,2570           03012                           WAND     12                                    
008720,000564: 
008721,000565: 11,2571           04644                           TC       GRABWAIT                              
008722,000566: 11,2572           32152                           CAF      VNLODCDU                              
008723,000567: 11,2573           04657                           TC       NVSBWAIT                              
008724,000568: 11,2574           04475                           TC       ENDIDLE                               
008725,000569: 11,2575           02055                           TC       TERMEXTV                              
008726,000570: 11,2576           02577                           TC       +1                                    
008727,000571: 11,2577           32632                           CAF      V43K                                  #  REDISPLAY OUR VERB.
008728,000572: 11,2600           04657                           TC       NVSBWAIT                              
008729,000573: 11,2601           37756                           CAF      BIT6                                  #  ENABLE ERROR COUNTER.
008730,000574: 11,2602           00006                           EXTEND                                         
008731,000575: 11,2603           05012                           WOR      12                                    
008732,000576: 11,2604           37762                           CAF      TWO                                   
008733,000577: 11,2605           00004                           INHINT                                         
008734,000578: 11,2606           05663                           TC       WAITLIST                              #  PUT OUT COMMAND IN .32 SECS.
008735,000579: 11,2607  E7,1444                                  EBANK=   RSTKLOC                               
008736,000580: 11,2607           02612 22067                     2CADR    ATTCK2                                
008737,000581: 
008738,000582: 11,2611           12055                           TCF      TERMEXTV                              #  FREES DISPLAY.
008739,000583: 
008740,000584: 11,2612           37762        ATTCK2             CAF      TWO                                   #  PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
008741,000585: 11,2613           54002                           TS       Q                                     #  INCASE OF EXCESS DATA.
008742,000586: 11,2614           50000                           INDEX    A                                     
008743,000587: 11,2615           30400                           CA       THETAD                                
008744,000588: 11,2616           00006                           EXTEND                                         
008745,000589: 11,2617           77747                           MP       BIT13                                 #  SHIFT RIGHT 2.
008746,000590: 11,2620           67770                           AD       NEG0                                  #  PREVENT +0 IN OUTPUT COUNTER
008747,000591: 11,2621           50002                           INDEX    Q                                     
008748,000592: 11,2622           54050                           TS       CDUXCMD                               
008749,000593: 11,2623           10002                           CCS      Q                                     
008750,000594: 11,2624           12613                           TCF      ATTCK2     +1                         
008751,000595: 
008752,000596: 11,2625           32633                           CAF      OCT70K                                
008753,000597: 11,2626           00006                           EXTEND                                         
008754,000598: 11,2627           05014                           WOR      14                                    
008755,000599: 11,2630           15727                           TCF      TASKOVER                              
008756,000600: 
008757,000601: 11,2631           00050        OCT50K             OCT      50                                    
008758,000602: 11,2632           04300        V43K               OCT      4300                                  
008759,000603: 11,2633           70000        OCT70K             OCT      70000                                 
008760,000604: 

Page 217

008762,000606:                                                                                                  #           PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
008763,000607: 
008764,000608: 11,2634  E7,1562                                  EBANK=   MSGCNT                                
008765,000609: 
008766,000610: 11,2634           37763        SETUPMSG           CAF      BIT1                                  #  BEGIN SCAN.
008767,000611: 11,2635           00004                           INHINT                                         
008768,000612: 11,2636           05663                           TC       WAITLIST                              
008769,000613: 11,2637  E7,1444                                  EBANK=   RSTKLOC                               
008770,000614: 11,2637           02644 22067                     2CADR    MSGSCAN    +2                         
008771,000615: 
008772,000616: 11,2641           05567                           TC       ENDOFJOB                              
008773,000617: 
008774,000618: 11,2642           05701        MSGSCAN            TC       FIXDELAY                              
008775,000619: 11,2643           00062                           DEC      50         B-14                       
008776,000620: 
008777,000621: 11,2644           37762                           CAF      TWO                                   #  SCAN ALL 3 CHANNELS FOR CHANGES.
008778,000622: 11,2645           55562                           TS       MSGCNT                                
008779,000623: 11,2646           50000                           INDEX    A                                     
008780,000624: 11,2647           31557                           CA       LAST30                                #  OLD VALUE OF INBITS.
008781,000625: 11,2650           00006                           EXTEND                                         
008782,000626: 11,2651           51562                           INDEX    MSGCNT                                
008783,000627: 11,2652           06030                           RXOR     30                                    
008784,000628: 11,2653           51562                           INDEX    MSGCNT                                
008785,000629: 11,2654           72703                           MASK     30MSGMSK                              
008786,000630: 11,2655           00006                           EXTEND                                         
008787,000631: 11,2656           12700                           BZF      NOMSG                                 
008788,000632: 
008789,000633: 11,2657           54002                           TS       Q                                     #  SAVE DIFFERENCE.
008790,000634: 11,2660           51562                           INDEX    MSGCNT                                
008791,000635: 11,2661           23557                           LXCH     LAST30                                #  UPDATE OLD VALUE.
008792,000636: 11,2662           00006                           EXTEND                                         
008793,000637: 11,2663           06001                           RXOR     L                                     
008794,000638: 11,2664           51562                           INDEX    MSGCNT                                
008795,000639: 11,2665           55557                           TS       LAST30                                
008796,000640: 
008797,000641: 11,2666           40000                           COM                                            
008798,000642: 11,2667           56002                           XCH      Q                                     
008799,000643: 11,2670           70002                           MASK     Q                                     #  SEE IF ANY OF CHANGED BITS JUST ON.
008800,000644: 11,2671           00006                           EXTEND                                         
008801,000645: 11,2672           12700                           BZF      NOMSG                                 #  NO MESSAGE IF SO.
008802,000646: 
008803,000647:                                                                                                  #           NO ROTATIONAL HAND CONTROLLER IN 206.
008804,000648: 
008805,000649: 11,2673           32706        NOTRHC             CAF      OKT30                                 
008806,000650: 11,2674           61562                           AD       MSGCNT                                
008807,000651: 11,2675           54071                           TS       RUPTREG2                              
008808,000652: 
008809,000653: 11,2676           40002                           CS       Q                                     
008810,000654: 11,2677           02724                           TC       VMESSAGE                              
008811,000655: 

Page 218

008813,000657: 11,2700           11562        NOMSG              CCS      MSGCNT                                
008814,000658: 11,2701           12645                           TCF      MSGSCAN    +3                         
008815,000659: 11,2702           12642                           TCF      MSGSCAN                               
008816,000660: 
008817,000661: 11,2703           00017        30MSGMSK           OCT      17                                    
008818,000662: 11,2704           77777                           OCT      77777                                 
008819,000663: 11,2705           03777                           OCT      3777                                  
008820,000664: 
008821,000665: 11,2706           00030        OKT30              OCT      30                                    
008822,000666: 11,2707           02717        DESCBITS           TC       MESSAGE                               #  DESCENT BITS COME HERE IN A.
008823,000667: 11,2710           00016                           OCT      16                                    
008824,000668: 11,2711           05733                           TC       RESUME                                
008825,000669: 
008826,000670: 11,2712           04644        RHCMON             TC       GRABWAIT                              #  FIRE UP DSKY MONITOR.
008827,000671: 11,2713           32716                           CAF      RHCMONVN                              
008828,000672: 11,2714           04657                           TC       NVSBWAIT                              
008829,000673: 11,2715           05566                           TC       EJFREE                                
008830,000674: 
008831,000675: 11,2716           01645        RHCMONVN           OCT      1645                                  
008832,000676: 

Page 219

008834,000678:                                                                                                  #           MESSAGE DISPLAY - 3 COMPONENT OCTAL.
008835,000679: 
008836,000680: 11,2717           54071        MESSAGE            TS       RUPTREG2                              #  NEW CHANNEL CONTENTS ARRIVE IN A.
008837,000681: 11,2720           50002                           INDEX    Q                                     #  CHANNEL NUMBER IN OCTAL AT CALLER +1.
008838,000682: 11,2721           30000                           CAF      0                                     
008839,000683: 11,2722           24002                           INCR     Q                                     
008840,000684: 11,2723           56071                           XCH      RUPTREG2                              
008841,000685: 
008842,000686: 11,2724           54070        VMESSAGE           TS       RUPTREG1                              #  FOR VARIABLE CHANNEL.
008843,000687: 11,2725           00006                           EXTEND                                         
008844,000688: 11,2726           22072                           QXCH     RUPTREG3                              
008845,000689: 11,2727           35651                           CAF      PRIO27                                #  FIRE UP SPECIAL JOB.
008846,000690: 11,2730           05505                           TC       NOVAC                                 
008847,000691: 11,2731  E7,1444                                  EBANK=   RSTKLOC                               
008848,000692: 11,2731           02742 22067                     2CADR    DOMSG                                 
008849,000693: 
008850,000694: 11,2733           52071                           DXCH     RUPTREG1                              #  NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
008851,000695: 11,2734           50064                           INDEX    LOCCTR                                #  MPAC +1.
008852,000696: 11,2735           52145                           DXCH     MPAC                                  
008853,000697: 11,2736           30025                           CA       TIME1                                 
008854,000698: 11,2737           50064                           INDEX    LOCCTR                                
008855,000699: 11,2740           54146                           TS       MPAC       +2                         
008856,000700: 11,2741           00072                           TC       RUPTREG3                              
008857,000701: 
008858,000702: 11,2742           04644        DOMSG              TC       GRABWAIT                              
008859,000703: 11,2743           00006                           EXTEND                                         
008860,000704: 11,2744           30145                           DCA      MPAC                                  
008861,000705: 11,2745           52340                           DXCH     DSPTEM1                               
008862,000706: 11,2746           30146                           CA       MPAC       +2                         
008863,000707: 11,2747           54341                           TS       DSPTEM1    +2                         
008864,000708: 11,2750           32757                           CAF      MSGVN                                 
008865,000709: 11,2751           04444                           TC       NVSUB                                 
008866,000710: 11,2752           12754                           TCF      MSGBUSY                               
008867,000711: 11,2753           05566                           TC       EJFREE                                
008868,000712: 
008869,000713: 11,2754           32756        MSGBUSY            CAF      +2                                    
008870,000714: 11,2755           04654                           TC       NVSUBUSY                              
008871,000715: 11,2756           22743                           CADR     DOMSG      +1                         
008872,000716: 
008873,000717: 11,2757           00535        MSGVN              OCT      0535                                  
008874,000718: 

Page 220

008876,000720:                                                                                                  #           ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
008877,000721: 
008878,000722: 11,2760           05235        AURLOKON           TC       MAKECADR                              
008879,000723: 11,2761           54426                           TS       DESRET                                
008880,000724: 11,2762           32527                           CAF      RV33                                  #  ASSUMES DSKY GRABBED.
008881,000725: 11,2763           04657                           TC       NVSBWAIT                              
008882,000726: 11,2764           04622                           TC       FLASHON                               
008883,000727: 11,2765           04475                           TC       ENDIDLE                               
008884,000728: 11,2766           12771                           TCF      +3                                    #  ON TERM.
008885,000729: 11,2767           37757                           CAF      LOKONFLG                              
008886,000730: 11,2770           12772                           TCF      +2                                    
008887,000731: 11,2771           37767                           CAF      ZERO                                  
008888,000732: 11,2772           00004                           INHINT                                         
008889,000733: 11,2773           56074                           XCH      STATE                                 
008890,000734: 11,2774           73006                           MASK     -LOKONFG                              
008891,000735: 11,2775           26074                           ADS      STATE                                 
008892,000736: 
008893,000737: 11,2776           77757                           MASK     LOKONFLG                              #  IF NO LOCK-ON CALLED FOR, SET BIT15 OF
008894,000738: 11,2777           10000                           CCS      A                                     #  RADMODES TO INDICATE THAT ARBITRARILY-
008895,000739: 11,3000           13003                           TCF      +3                                    #  LONG DESIGNATION IS WANTED (TO BE
008896,000740: 
008897,000741: 11,3001           37745                           CAF      BIT15                                 #  TERMINATED BY FRESH START).
008898,000742: 11,3002           26412                           ADS      RADMODES                              
008899,000743: 11,3003           00003                           RELINT                                         
008900,000744: 11,3004           30426                           CA       DESRET                                
008901,000745: 11,3005           15230                           TCF      BANKJUMP                              
008902,000746: 
008903,000747: 11,3006           77757        -LOKONFG           OCT      -20                                   
008904,000748: 

Page 221

008906,000750:                                                                                                  #           PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
008907,000751: 
008908,000752: 11,3007           33077        DISINDT            CAF      FLVELVN                               #  ASK FOR FORWARD, LATERAL VELOCITY.
008909,000753: 11,3010           04657                           TC       NVSBWAIT                              
008910,000754: 11,3011           04475                           TC       ENDIDLE                               
008911,000755: 11,3012           13034                           TCF      ENDDISIN                              
008912,000756: 11,3013           13014                           TCF      +1                                    
008913,000757: 11,3014           33100                           CAF      ALT,R,VN                              #  ASK FOR INITIAL AND FINIAL ALTITUDES AND
008914,000758: 11,3015           04657                           TC       NVSBWAIT                              #  ALTITUDE RATE.
008915,000759: 11,3016           04475                           TC       ENDIDLE                               
008916,000760: 11,3017           13034                           TCF      ENDDISIN                              
008917,000761: 11,3020           13021                           TCF      +1                                    
008918,000762: 
008919,000763: 11,3021           00004                           INHINT                                         
008920,000764: 11,3022           47763                           CS       ONE                                   
008921,000765: 11,3023           54350                           TS       DIDFLG                                
008922,000766: 
008923,000767: 11,3024           00006                           EXTEND                                         
008924,000768: 11,3025           30352                           DCA      ALT                                   #  SO FOLLOWING MONITOR WORKS.
008925,000769: 11,3026           52364                           DXCH     ALTSAVE                               
008926,000770: 
008927,000771: 11,3027           37763                           CAF      ONE                                   
008928,000772: 11,3030           05663                           TC       WAITLIST                              
008929,000773: 11,3031  E7,1444                                  EBANK=   RSTKLOC                               
008930,000774: 11,3031           03042 22067                     2CADR    DISINLUP   +2                         
008931,000775: 
008932,000776: 11,3033           15566                           TCF      EJFREE                                
008933,000777: 
008934,000778: 11,3034           04724        ENDDISIN           TC       FREEDSP                               
008935,000779: 11,3035           04117                 +1        TC       NEWMODEX                              
008936,000780: 11,3036           00000                           OCT      0                                     
008937,000781: 
008938,000782: 11,3037           05567                           TC       ENDOFJOB                              
008939,000783: 

Page 222

008941,000785:                                                                                                  #           WATCH ALTSAVE FOR END OF PROBLEM.
008942,000786: 
008943,000787: 11,3040           05701        DISINLUP           TC       FIXDELAY                              
008944,000788: 11,3041           00062                           DEC      50         B-14                       
008945,000789: 
008946,000790: 11,3042           00006                 +2        EXTEND                                         
008947,000791: 11,3043           30355                           DCA      FINALT                                
008948,000792: 11,3044           52062                           DXCH     ITEMP1                                
008949,000793: 11,3045           00006                           EXTEND                                         
008950,000794: 11,3046           40364                           DCS      ALTSAVE                               #  LATEST ALTITUDE.
008951,000795: 11,3047           20062                           DAS      ITEMP1                                
008952,000796: 
008953,000797: 11,3050           10061                           CCS      ITEMP1                                
008954,000798: 11,3051           13071                           TCF      +DIF                                  
008955,000799: 11,3052           13054                           TCF      +2                                    
008956,000800: 11,3053           13075                           TCF      -DIF                                  
008957,000801: 
008958,000802: 11,3054           10062                           CCS      ITEMP2                                
008959,000803: 11,3055           13071                           TCF      +DIF                                  
008960,000804: 11,3056           13060                           TCF      +2                                    
008961,000805: 11,3057           13075                           TCF      -DIF                                  
008962,000806: 
008963,000807: 11,3060           37767        DISINDUN           CAF      ZERO                                  
008964,000808: 11,3061           54353                           TS       ALTRATE                               
008965,000809: 11,3062           52355                           DXCH     FINALT                                
008966,000810: 11,3063           52352                           DXCH     ALT                                   
008967,000811: 11,3064           37746                           CAF      PRIO20                                
008968,000812: 11,3065           05505                           TC       NOVAC                                 
008969,000813: 11,3066  E7,1444                                  EBANK=   RSTKLOC                               
008970,000814: 11,3066           03035 22067                     2CADR    ENDDISIN   +1                         
008971,000815: 
008972,000816: 11,3070           15727                           TCF      TASKOVER                              
008973,000817: 
008974,000818: 11,3071           30353        +DIF               CA       ALTRATE                               
008975,000819: 11,3072           00006                           EXTEND                                         
008976,000820: 11,3073           63060                           BZMF     DISINDUN                              
008977,000821: 11,3074           13040                           TCF      DISINLUP                              
008978,000822: 
008979,000823: 11,3075           40353        -DIF               CS       ALTRATE                               
008980,000824: 11,3076           13072                           TCF      +DIF       +1                         
008981,000825: 
008982,000826: 11,3077           02444        FLVELVN            OCT      2444                                  
008983,000827: 11,3100           02564        ALT,R,VN           OCT      2564                                  
008984,000828: 
008985,000829: 11,3101           00004        MINIMP             INHINT                                         
008986,000830: 11,3102           47752                           CS       BIT10                                 #  BIT 10 OF DAPBOOLS INDICATES MINIMP MODE
008987,000831: 11,3103           70077                           MASK     DAPBOOLS                              
008988,000832: 11,3104           67752                           AD       BIT10                                 
008989,000833: 11,3105           54077                           TS       DAPBOOLS                              #  BIT 10 OF DAPBOOLS NOW PRESENT.
008990,000834: 11,3106           15567                           TCF      ENDOFJOB                              
008991,000835: 

Page 223

008993,000837: 11,3107           00004        NOMINIMP           INHINT                                         
008994,000838: 11,3110           47752                           CS       BIT10                                 
008995,000839: 11,3111           70077                           MASK     DAPBOOLS                              
008996,000840: 11,3112           54077                           TS       DAPBOOLS                              #  A ZERO IN POSITION 10 OF DAPBOOLS NOW.
008997,000841: 
008998,000842: 11,3113           00006                           EXTEND                                         
008999,000843: 11,3114           30033                           DCA      CDUX                                  
009000,000844: 11,3115           52767                           DXCH     CDUXD                                 
009001,000845: 11,3116           30034                           CA       CDUZ                                  
009002,000846: 11,3117           54770                           TS       CDUZD                                 
009003,000847: 11,3120           15567                           TCF      ENDOFJOB                              
009004,000848: 

Page 224

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

Page 225

009057,000901: 11,3166           05567                           TC       ENDOFJOB                              #  GO TO DUMMY JOB UNTIL YOU DIE...
009058,000902: 

Page 226

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

Page 227

009111,000955: 11,3240           77776                           EXIT                                           
009112,000956: 11,3241           03214                           TC       CORCTTIM                              
009113,000957: 

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