Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

007859,000002:                                                                                                  ## Copyright:   Public domain.
007860,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
007861,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
007862,000005:                                                                                                  ##              It is part of an early development version of the software
007863,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
007864,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
007865,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
007866,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
007867,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
007868,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
007869,000012:                                                                                                  ##              that the code format has been changed to conform to the
007870,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
007871,000014:                                                                                                  ##              original YUL assembler.
007872,000015:                                                                                                  ## Reference:   pp. 187-214
007873,000016:                                                                                                  ## Assembler:   yaYUL
007874,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
007875,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
007876,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
007877,000020:                                                                                                  ##              2017-06-01 RSB  Transcribed.
007878,000021:                                                                                                  ##              2017-06-15 HG   Fix operand BANKCALL -> INTPRET        
007879,000022:                                                                                                  ##              2017-06-21 RSB  Proofed using octopus/ProoferComments.
007880,000023: 

Page 187

007882,000025: 11,2000                                           BANK     11                                    
007883,000026: 11,2000  E5,1500                                  EBANK=   OGC                                   
007884,000027: 
007885,000028:                                                                                                  #  FAN-OUT
007886,000029: 

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

007888,000031:                                                                                                  #  NOTE OF SPECIAL IMPORT CONCERNING RADAR **
007889,000032: 

The following comment is very curious to me (RSB), in that it references changes made in SUNBURST 39, but this source code is a listing for SHEPATIN 0 (which is identical to SUNBURST 37, we believe). The basis for the belief that SHEPATIN 0 is the same as SUNBURST 37 is that the computer-generated cover page for the program listing reads as follows:
                                                                                488954          12.13.66                1
* 1800A JOB  55-238-50  NANSTONE ASSE.                                                          TIME:    03:09.0

  2003  12 13 66                                                                ¢¢¢¢¢¢¢¢

*       YUL NANSTONE

     THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUP

488954A YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES                                 DEC 13, 1966
The string "REVISION 37 OF PROGRAM SUNBURST BY LEM GROUP" has a hand-drawn box around it, presumably for emphasis. All things considered, the "REV 39" in the comment below is probably just a typo, but it's still a minor mystery.

The "206" referred to below and elsewhere in this file is presumably the canceled AS-206 mission, which would have been the first unmanned flight of the LM. Because the original AS-206 mission was canceled, the first unmanned LM flight was instead AS-204, APOLLO 5, using SUNBURST 120 software. (The designation "AS-206" was recycled 7 years later for the first manned APOLLO-SKYLAB mission, but that's not the mission referred to here.)

007915,000058:                                                                                                  #           SINCE 206 HAS NO RADARS, THE INTERRUPT LEAD IN AND T4RUPT SERVICE ROUTINES HAVE BEEN DISCONNECTED IN
007916,000059:                                                                                                  #  SUNBURST (REV 39).  THEREFORE, THE FOLLOWING VERBS SHOULD NOT BE USED:  40 WITH NOUN 40, 41 WITH NOUN 40, 45,
007917,000060:                                                                                                  #  46, AND SEQUENCES 13 AND 14 OF VERB 57.
007918,000061: 
007919,000062: 11,2000           02070        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 40 ONLY)
007920,000063: 11,2001           02073                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
007921,000064:                                                                                                  #                                  40 ONLY)
007922,000065: 11,2002           02204                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
007923,000066: 11,2003           02573                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
007924,000067: 11,2004           02066                           TC       ALM/END                               #  VB44 SPARE
007925,000068: 11,2005           12126                           TCF      LRPOS2K                               #  VB45 COMMAND LR TO POSITION 2.
007926,000069: 
007927,000070: 11,2006           02415                           TC       REGRSAMP                              #  VB46 SAMPLE RADAR ONCE PER SECOND
007928,000071: 11,2007           02407                           TC       DOFCSTST                              #  VB47 PERFORM LEM FCS TEST
007929,000072: 11,2010           02262                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
007930,000073: 11,2011           02262                           TC       GOLOADLV                              #  VB51 PLEASE MARK
007931,000074: 11,2012           02262                           TC       GOLOADLV                              #  VB52 PLEASE MARK Y
007932,000075: 11,2013           02262                           TC       GOLOADLV                              #  VB53 PLEASE MARK X OR Y.
007933,000076: 11,2014           02266                           TC       TORQGYRS                              #  VB54 PULSE TORQUE GYROS
007934,000077: 11,2015           02303                           TC       ALINTIME                              #  VB55 ALIGN TIME
007935,000078: 11,2016           02405                           TC       GOSHOSUM                              #  VB56 PERFORM BANKSUM
007936,000079: 11,2017           02327                           TC       SYSTEST                               #  VB57 PERFORM SYSTEM TEST
007937,000080: 11,2020           03126                           TC       PRESTAND                              #  VB60 PREPARE FOR STANDBY
007938,000081: 11,2021           03174                           TC       POSTAND                               #  VB61 RECOVER FROM STANDBY
007939,000082: 11,2022           02641                           TC       SETUPMSG                              #  VB62 SCAM LEM INBITS
007940,000083: 11,2023           12531                           TCF      AGSINIT                               #  VB63 INITIALIZE AGS
007941,000084: 11,2024           13273                           TCF      64UPDAT                               #  VB64 SET TIMER TO GROUND ELAPSED TIME
007942,000085: 11,2025           13247                           TCF      65UPDAT                               #  VB65 SET GUIDANCE REFERENCE RELEASE DISC
007943,000086: 11,2026           13253                           TCF      66UPDAT                               #  VB66 INITIATE LGC DFI TLM CALIBRATE RTN
007944,000087: 11,2027           13261                           TCF      67UPDAT                               #  VB67 SEND COMMAND TO LMP
007945,000088: 11,2030           13265                           TCF      70UPDAT                               #  VB70 SET MISSION TIMER
007946,000089: 11,2031           13267                           TCF      71UPDAT                               #  VB71 SET MISSION PHASE REGISTER
007947,000090: 11,2032           13275                           TCF      72UPDAT                               #  VB72 SET MISSION PHASE REGISTER + TIMER
007948,000091: 11,2033           13257                           TCF      73UPDAT                               #  VB73 RESET DPS OR RPS COLD SOAK DISC
007949,000092: 11,2034           13251                           TCF      74UPDAT                               #  VB74 STOP MISSION TIMERS
007950,000093: 
007951,000094: 11,2035           13306                           TCF      75UPDAT                               #  VB75 TARGET PARAMETER UPDATE
007952,000095: 11,2036           13301                           TCF      76UPDAT                               #  VB76 STATE VECTOR UPDATE
007953,000096: 11,2037           02066                           TC       ALM/END                               
007954,000097: 
007955,000098: 11,2040           37753        TESTXACT           CAF      BIT3                                  
007956,000099: 11,2041           70336                           MASK     EXTVBACT                              
007957,000100: 11,2042           10000                           CCS      A                                     
007958,000101: 11,2043           02053                           TC       XACTALM                               
007959,000102: 

Page 188

007961,000104: 11,2044           47753        XACT1              CS       BIT3                                  
007962,000105: 11,2045           00004                           INHINT                                         
007963,000106: 
007964,000107: 11,2046           70336                           MASK     EXTVBACT                              
007965,000108: 11,2047           67753                           AD       BIT3                                  
007966,000109: 11,2050           54336                           TS       EXTVBACT                              
007967,000110: 11,2051           00003                           RELINT                                         
007968,000111: 11,2052           00002                           TC       Q                                     
007969,000112: 
007970,000113: 11,2053           04560        XACTALM            TC       FALTON                                
007971,000114: 11,2054           05605                           TC       ENDOFJOB                              
007972,000115: 
007973,000116: 11,2055           04713        TERMEXTV           TC       FREEDSP                               #  IF WE GET A TERMINATE INSTEAD OF A LOAD.
007974,000117: 
007975,000118: 11,2056           02060        ENDEXTVB           TC       XACT0                                 
007976,000119: 11,2057           05605                           TC       ENDOFJOB                              
007977,000120: 
007978,000121: 11,2060           47753        XACT0              CS       BIT3                                  
007979,000122: 11,2061           00004                           INHINT                                         
007980,000123: 11,2062           70336                           MASK     EXTVBACT                              
007981,000124: 11,2063           54336                           TS       EXTVBACT                              
007982,000125: 11,2064           00003                           RELINT                                         
007983,000126: 11,2065           00002        XACT0Q             TC       Q                                     
007984,000127: 
007985,000128: 11,2066           04560        ALM/END            TC       FALTON                                
007986,000129: 11,2067           02056                           TC       ENDEXTVB                              
007987,000130: 
007988,000131: 
007989,000132: 11,2070           02076        VBZERO             TC       OP/INERT                              
007990,000133: 11,2071           02110                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
007991,000134: 11,2072           02117                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(40)
007992,000135: 
007993,000136: 11,2073           02076        VBCOARK            TC       OP/INERT                              
007994,000137: 11,2074           02132                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
007995,000138: 11,2075           02234                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (40)
007996,000139: 
007997,000140:                                                                                                  #           RETURNS TO L+1 IF IMU OR L+2 IF RR.
007998,000141: 
007999,000142: 11,2076           47751        OP/INERT           CS       BIT5                                  #  OCT20
008000,000143: 11,2077           60273                           AD       NOUNREG                               
008001,000144: 11,2100           00006                           EXTEND                                         
008002,000145: 11,2101           12065                           BZF      XACT0Q                                #  IF = 20.
008003,000146: 
008004,000147: 11,2102           24002                           INCR     Q                                     
008005,000148: 11,2103           62107                           AD       RRIMUDIF                              #  = -20 OCT.
008006,000149: 11,2104           00006                           EXTEND                                         
008007,000150: 11,2105           12065                           BZF      XACT0Q                                
008008,000151: 

Page 189

008010,000153: 11,2106           02066                           TC       ALM/END                               #  ILLEGAL.
008011,000154: 
008012,000155: 11,2107           77757        RRIMUDIF           OCT      -20                                   
008013,000156: 

Page 190

008015,000158:                                                                                                  #  KEYBOARD REQUEST TO ZERO IMU ENCODERS
008016,000159: 
008017,000160: 11,2110           02040        IMUZEROK           TC       TESTXACT                              #  ZERO ENCODERS.
008018,000161: 11,2111           05224                           TC       BANKCALL                              
008019,000162: 11,2112           26000                           CADR     IMUZERO                               
008020,000163: 
008021,000164: 11,2113           05224                           TC       BANKCALL                              #  STALL
008022,000165: 11,2114           26762                           CADR     IMUSTALL                              
008023,000166: 11,2115           02116                           TC       +1                                    
008024,000167: 
008025,000168: 11,2116           02056                           TC       ENDEXTVB                              
008026,000169: 11,2117           02040        RRZEROK            TC       TESTXACT                              
008027,000170: 11,2120           05224                           TC       BANKCALL                              #  ZERO RR CDUS.
008028,000171: 11,2121           20247                           CADR     RRZERO                                
008029,000172: 
008030,000173: 11,2122           05224        RWAITK             TC       BANKCALL                              
008031,000174: 11,2123           26756                           CADR     RADSTALL                              
008032,000175: 11,2124           12125                           TCF      +1                                    
008033,000176: 11,2125           12056                           TCF      ENDEXTVB                              
008034,000177: 
008035,000178: 11,2126           02040        LRPOS2K            TC       TESTXACT                              #  COMMAND LR TO POSITION 2.
008036,000179: 11,2127           05224                           TC       BANKCALL                              
008037,000180: 11,2130           21161                           CADR     LRPOS2                                
008038,000181: 11,2131           12122                           TCF      RWAITK                                
008039,000182: 

Page 191

008041,000184:                                                                                                  #  KEYBOARD REQUEST TO COARSE ALIGN THE IMU
008042,000185: 
008043,000186: 11,2132           02040        IMUCOARK           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
008044,000187: 11,2133           04633                           TC       GRABWAIT                              
008045,000188: 11,2134           32152                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
008046,000189: 11,2135           04646                           TC       NVSBWAIT                              
008047,000190: 11,2136           04464                           TC       ENDIDLE                               #  STALL WAITING FOR THE LOAD
008048,000191: 11,2137           02055                           TC       TERMEXTV                              
008049,000192: 11,2140           02154                           TC       ICSDEL                                #  PROCEED - ASK FOR INCREMENTAL LOAD.
008050,000193: 
008051,000194: 11,2141           32153        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
008052,000195: 11,2142           04646                           TC       NVSBWAIT                              
008053,000196: 11,2143           04713                           TC       FREEDSP                               #  RELEASE THE DISPLAYS
008054,000197: 
008055,000198: 11,2144           05224                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
008056,000199: 11,2145           26065                           CADR     IMUCOARS                              
008057,000200: 
008058,000201: 11,2146           05224                           TC       BANKCALL                              #  STALL
008059,000202: 11,2147           26762                           CADR     IMUSTALL                              
008060,000203: 11,2150           02056                           TC       ENDEXTVB                              
008061,000204: 
008062,000205: 11,2151           02056                           TC       ENDEXTVB                              
008063,000206: 
008064,000207: 11,2152           02522        VNLODCDU           OCT      02522                                 
008065,000208: 11,2153           04100        IMUCOARV           OCT      04100                                 
008066,000209: 

Page 192

008068,000211:                                                                                                  #           PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
008069,000212: 
008070,000213: 11,2154           32202        ICSDEL             CAF      DELLOAD                               
008071,000214: 11,2155           04646                           TC       NVSBWAIT                              #  REQUEST LOAD OF DELTA ICDU ANGLES.
008072,000215: 11,2156           04464                           TC       ENDIDLE                               
008073,000216: 11,2157           02055                           TC       TERMEXTV                              
008074,000217: 11,2160           02141                           TC       ICORK2                                #  PROCEED WITHOUT DATA HERE TOO.
008075,000218: 11,2161           02163                           TC       INCLOOP                               #  LOOP TO INCREMENT THETAD FROM DSPTEM2.
008076,000219: 11,2162           02141                           TC       ICORK2                                #  RE-DISPLAY COARSE ALIGN VERB.
008077,000220: 
008078,000221: 11,2163           56002        INCLOOP            XCH      Q                                     #  INCREMENTS THETADS IN 2S COMPLEMENT FROM
008079,000222: 11,2164           54144                           TS       MPAC                                  #   THREE ANGLE INCREMENTS IN DSPTEM2S.
008080,000223: 11,2165           32203                           CAF      LTHD+2                                
008081,000224: 11,2166           54120                           TS       BUF                                   #  SET UP FOR CDUINC.
008082,000225: 11,2167           37754                           CAF      TWO                                   #  THREE TIMES THROUGH.
008083,000226: 
008084,000227: 11,2170           54145        INCLOOP2           TS       MPAC       +1                         
008085,000228: 11,2171           50000                           INDEX    A                                     
008086,000229: 11,2172           56342                           XCH      DSPTEM2                               #  INCREMENT TO TEM2 FOR CDUINC.
008087,000230: 11,2173           05224                           TC       BANKCALL                              
008088,000231: 11,2174           33647                           CADR     CDUINC                                
008089,000232: 11,2175           10120                           CCS      BUF                                   
008090,000233: 11,2176           54120                           TS       BUF                                   
008091,000234: 11,2177           10145                           CCS      MPAC       +1                         
008092,000235: 11,2200           02170                           TC       INCLOOP2                              
008093,000236: 
008094,000237: 11,2201           00144                           TC       MPAC                                  #  RETURN WHEN FINISHED.
008095,000238: 
008096,000239: 11,2202           02523        DELLOAD            OCT      02523                                 
008097,000240: 11,2203           00402        LTHD+2             ADRES    THETAD     +2                         
008098,000241: 

Page 193

008100,000243:                                                                                                  #  KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
008101,000244: 
008102,000245: 11,2204           02040        IMUFINEK           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
008103,000246: 11,2205           04633                           TC       GRABWAIT                              
008104,000247: 11,2206           32232                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
008105,000248: 11,2207           04646                           TC       NVSBWAIT                              
008106,000249: 11,2210           04464                           TC       ENDIDLE                               #  HOLD UP FOR THE DATA LOAD
008107,000250: 11,2211           02055                           TC       TERMEXTV                              
008108,000251: 
008109,000252: 11,2212           02213                           TC       +1                                    #  PROCEED WITHOUT A LOAD
008110,000253: 
008111,000254: 11,2213           32233                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
008112,000255: 11,2214           04646                           TC       NVSBWAIT                              
008113,000256: 11,2215           04713                           TC       FREEDSP                               #  RELEASE DISPLAYS
008114,000257: 
008115,000258: 11,2216           05224                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
008116,000259: 11,2217           26251                           CADR     IMUFINE                               
008117,000260: 
008118,000261: 11,2220           05224                           TC       BANKCALL                              #  HIBERNATION
008119,000262: 11,2221           26762                           CADR     IMUSTALL                              
008120,000263: 11,2222           02056                           TC       ENDEXTVB                              
008121,000264: 
008122,000265: 11,2223           32301        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
008123,000266: 11,2224           05224                           TC       BANKCALL                              
008124,000267: 11,2225           26361                           CADR     IMUPULSE                              
008125,000268: 
008126,000269: 11,2226           05224                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
008127,000270: 11,2227           26762                           CADR     IMUSTALL                              
008128,000271: 11,2230           02056                           TC       ENDEXTVB                              
008129,000272: 11,2231           02056                           TC       ENDEXTVB                              
008130,000273: 
008131,000274: 11,2232           02567        VNLODGYR           OCT      02567                                 
008132,000275: 
008133,000276: 11,2233           04200        IMUFINEV           OCT      04200                                 #  FINE ALIGN VERB
008134,000277: 

Page 194

008136,000279:                                                                                                  #  DESIGNATE TO DESIRED GIMBAL ANGLES.
008137,000280: 
008138,000281: 11,2234           02040        RRDESNBK           TC       TESTXACT                              
008139,000282: 11,2235           04633                           TC       GRABWAIT                              
008140,000283: 11,2236           32255                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
008141,000284: 11,2237           04646                           TC       NVSBWAIT                              
008142,000285: 11,2240           04464                           TC       ENDIDLE                               #  WAIT FOR THE LOAD
008143,000286: 11,2241           02055                           TC       TERMEXTV                              
008144,000287: 11,2242           02243                           TC       +1                                    #  PROCEED
008145,000288: 
008146,000289: 11,2243           05224                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
008147,000290: 11,2244           22765                           CADR     AURLOKON                              
008148,000291: 
008149,000292: 11,2245           32153                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
008150,000293: 11,2246           04646                           TC       NVSBWAIT                              
008151,000294: 11,2247           00004                           INHINT                                         #  FIRE UP JOB TO DO DESIGNATE.
008152,000295: 11,2250           37740                           CAF      PRIO20                                
008153,000296: 11,2251           05534                           TC       FINDVAC                               
008154,000297: 11,2252  E5,1500                                  EBANK=   OGC                                   
008155,000298: 11,2252           02256 22005                     2CADR    RRDESK2                               
008156,000299: 
008157,000300: 11,2254           12055                           TCF      TERMEXTV                              #  FREES DISPLAY.
008158,000301: 
008159,000302: 11,2255           02441        VNLDRCDU           OCT      2441                                  
008160,000303: 11,2256  11,2153               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
008161,000304: 
008162,000305: 11,2256           06103        RRDESK2            TC       INTPRET                               
008163,000306: 
008164,000307: 11,2257           77624                           CALL                                           
008165,000308: 11,2260           20363                                    RRDESNB                               #  RETURNS IN BASIC.
008166,000309: 
008167,000310: 11,2261           02122                           TC       RWAITK                                
008168,000311: 
008169,000312:                                                                                                  #  PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
008170,000313:                                                                                                  #  ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
008171,000314:                                                                                                  #  LOAD.  OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
008172,000315:                                                                                                  #  PERFORM THE REQUESTED ACTION.
008173,000316: 
008174,000317: 11,2262           04615        GOLOADLV           TC       FLASHOFF                              
008175,000318: 11,2263           02060                           TC       XACT0                                 
008176,000319: 11,2264           05243                           TC       POSTJUMP                              
008177,000320: 11,2265           12002                           CADR     LOADLV1                               
008178,000321: 

Page 195

008180,000323:                                                                                                  #  KEYBOARD REQUEST TO PULSE TORQUE IRIGA
008181,000324: 
008182,000325: 11,2266           02040        TORQGYRS           TC       TESTXACT                              #  GYRO TORQUING WITH NO MODE-SWITCH.
008183,000326: 11,2267           04633                           TC       GRABWAIT                              
008184,000327: 11,2270           32232                           CAF      VNLODGYR                              
008185,000328: 11,2271           04646                           TC       NVSBWAIT                              
008186,000329: 11,2272           04464                           TC       ENDIDLE                               
008187,000330: 11,2273           02055                           TC       TERMEXTV                              
008188,000331: 11,2274           02275                           TC       +1                                    
008189,000332: 11,2275           32302                           CAF      TORQGYRV                              #  RE-DISPLAY OUR OWN VERB
008190,000333: 11,2276           04646                           TC       NVSBWAIT                              
008191,000334: 11,2277           04713                           TC       FREEDSP                               
008192,000335: 11,2300           12223                           TCF      FINEK2                                
008193,000336: 
008194,000337: 11,2301           00403        LGYROBIN           ECADR    DELVX                                 
008195,000338: 11,2302           05400        TORQGYRV           OCT      05400                                 
008196,000339: 

Page 196

008198,000341:                                                                                                  #  ALIGN TIME
008199,000342: 11,2303           32326        ALINTIME           CAF      VNLODDT                               #  USES NVSUBMON. DOES NOT TEST DSPLOCK.
008200,000343: 
008201,000344: 11,2304           54113                           TS       NVTEMP                                #  DOES NOT KILL MONITOR.
008202,000345: 11,2305           04447                           TC       NVSUBMON                              
008203,000346: 11,2306           05605                           TC       ENDOFJOB                              #  IN CASE OF ALARM IN LOAD REQUEST SET UP.
008204,000347: 11,2307           04464                           TC       ENDIDLE                               
008205,000348: 11,2310           05605                           TC       ENDOFJOB                              #  TERMINATE
008206,000349: 11,2311           05605                           TC       ENDOFJOB                              #  PROCEED WITHOUT DATA
008207,000350: 11,2312           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
008208,000351: 11,2313           37761                           CAF      ZERO                                  
008209,000352: 11,2314           54146                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
008210,000353: 11,2315           54001                           TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
008211,000354: 11,2316           52025                           DXCH     TIME2                                 
008212,000355: 11,2317           52145                           DXCH     MPAC                                  
008213,000356: 11,2320           52340                           DXCH     DSPTEM1                               #  INCREMENT.
008214,000357: 11,2321           20145                           DAS      MPAC                                  
008215,000358: 
008216,000359: 11,2322           07320                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
008217,000360: 11,2323           52145                           DXCH     MPAC                                  #  NEW CLOCK.
008218,000361: 11,2324           20025                           DAS      TIME2                                 
008219,000362: 11,2325           05605                           TC       ENDOFJOB                              
008220,000363: 
008221,000364: 11,2326           02124        VNLODDT            OCT      02124                                 #  V/N FOR LOAD DELTA TIME
008222,000365: 

Page 197

008224,000367:                                                                                                  #           SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
008225,000368: 
008226,000369: 11,2327  E5,1546                                  EBANK=   QPLACE                                
008227,000370: 
008228,000371: 11,2327           10302        SYSTEST            CCS      MODREG                                #  DEMAND MODE 00.
008229,000372: 11,2330           12053                           TCF      XACTALM                               
008230,000373: 
008231,000374: 11,2331           04633                           TC       GRABWAIT                              
008232,000375: 
008233,000376: 11,2332           32404        REDO               CAF      LQPL                                  #  ASK FOR TEST OPTION (1 - 7).
008234,000377: 11,2333           54146                           TS       MPAC       +2                         
008235,000378: 11,2334           32403                           CAF      TESTNV                                
008236,000379: 11,2335           04646                           TC       NVSBWAIT                              
008237,000380: 11,2336           04464                           TC       ENDIDLE                               
008238,000381: 11,2337           05604                           TC       EJFREE                                
008239,000382: 11,2340           02332                           TC       REDO                                  
008240,000383: 
008241,000384: 11,2341           04105                           TC       NEWMODEX                              
008242,000385: 11,2342           00007                           OCT      07                                    
008243,000386: 
008244,000387: 11,2343           00004                           INHINT                                         
008245,000388: 11,2344           37740                           CAF      PRIO20                                
008246,000389: 11,2345           05534                           TC       FINDVAC                               
008247,000390: 11,2346  E5,1500                                  EBANK=   OGC                                   
008248,000391: 11,2346           02351 22005                     2CADR    TSELECT                               
008249,000392: 
008250,000393: 11,2350           05605                           TC       ENDOFJOB                              #  LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
008251,000394: 
008252,000395: 11,2351           45361        TSELECT            CS       LOW4                                  #    OCTAL 17 OPTIONS WITHOUT OPERATOR ERRO
008253,000396: 11,2352           61546                           AD       QPLACE                                
008254,000397: 11,2353           00006                           EXTEND                                         
008255,000398: 11,2354           62357                           BZMF     +3                                    
008256,000399: 
008257,000400: 11,2355           04560                           TC       FALTON                                
008258,000401: 11,2356           02332                           TC       REDO                                  
008259,000402: 11,2357           51546                           INDEX    QPLACE                                
008260,000403: 11,2360           32362                           CAF      TESTCADR                              
008261,000404: 11,2361           05246                           TC       BANKJUMP                              
008262,000405: 
008263,000406:                                                                                                  #           DON'T USE 13 OR 14 (SEE NOTE ON USER'S PAGE 1).
008264,000407: 
008265,000408: 11,2362           22066        TESTCADR           CADR     ALM/END                               #  0  ILLEGAL
008266,000409: 11,2363           50000                           CADR     IMUTEST                               #  1  GYRO DRIFT TEST
008267,000410: 11,2364           50024                           CADR     IMUBACK                               #  2 REPEAT OF IMUTEST
008268,000411: 11,2365           30000                           CADR     AOTNBIMU                              #  3  IMU ALIGNMENT TEST
008269,000412: 11,2366           50247                           CADR     OPCHK                                 #  4  IMU CHECK
008270,000413: 11,2367           50447                           CADR     GYRSFTST                              #  5  GYRO TORQUING TEST
008271,000414: 11,2370           22066                           CADR     ALM/END                               #  6  AVAILABLE
008272,000415: 11,2371           73405                           CADR     GTSCPSS                               #  7. GYROCOMPASS
008273,000416: 11,2372           46556                           CADR     SAMODCHK                              #  10 SEMI-AUTOMATIC MODING CHECK
008274,000417: 11,2373           31326                           CADR     SAUTOIFS                              #  11 SEMI-AUTOMATIC INTERFACE TEST
008275,000418: 11,2374           31564                           CADR     AOTANGCK                              #  12 AOT ANGLE CHECK    

Page 198

008277,000420: 11,2375           31122                           CADR     RDRINIT                               #  13 RENDEZVOUS RADAR / ANTENNAE TRACKING
008278,000421: 11,2376           22411                           CADR     FSTRSAMP                              #  14 HIGH SPEED RADAR SAMPLING.
008279,000422: 
008280,000423: 11,2377           31615                           CADR     ZEROERAS                              
008281,000424: 11,2400           23014                           CADR     DISINDT                               #  DISPLAY INERTIAL DATA TEST.
008282,000425: 11,2401           22066                           CADR     ALM/END                               
008283,000426: 11,2402           22066                           CADR     ALM/END                               
008284,000427: 11,2403           02101        TESTNV             OCT      2101                                  
008285,000428: 11,2404           02546        LQPL               ECADR    QPLACE                                
008286,000429: 11,2405           05243        GOSHOSUM           TC       POSTJUMP                              #  START ROUTINE TO DISPLAY SUM OF EACH
008287,000430: 11,2406           77507                           CADR     SHOWSUM                               #  BANK ON DSKY
008288,000431: 
008289,000432: 11,2407           05243        DOFCSTST           TC       POSTJUMP                              
008290,000433: 11,2410           14467                           CADR     FCSSTART                              
008291,000434: 

Page 199

008293,000436:                                                                                                  #           SET UP FOR RADAR SAMPLING.
008294,000437: 
008295,000438: 11,2411  E7,1435                                  EBANK=   RSTKLOC                               
008296,000439: 
008297,000440: 11,2411           32500        FSTRSAMP           CAF      RSTKLIST                              #  HIGH SPEED SAMPLING. SWITCH TO SPECIAL
008298,000441: 11,2412           54411                           TS       DNLSTADR                              #  DOWNLIST.
008299,000442: 11,2413           47755                           CS       ONE                                   #  WANTS TM BUFFERING.
008300,000443: 11,2414           12417                           TCF      RSAMPTST                              
008301,000444: 
008302,000445: 11,2415           04633        REGRSAMP           TC       GRABWAIT                              
008303,000446: 11,2416           35223                           CAF      1SEC+1                                #  SHOWS NO TM BUFFERING.
008304,000447: 
008305,000448: 11,2417           54146        RSAMPTST           TS       MPAC       +2                         
008306,000449: 11,2420           00004                           INHINT                                         
008307,000450: 11,2421           42501                           CS       LRPOSCAL                              #  INITIALIZE SCALE AND LR POSITION BITS.
008308,000451: 11,2422           70413                           MASK     RADMODES                              
008309,000452: 11,2423           54413                           TS       RADMODES                              
008310,000453: 
008311,000454: 11,2424           32501                           CAF      LRPOSCAL                              
008312,000455: 11,2425           00006                           EXTEND                                         
008313,000456: 
008314,000457: 11,2426           02033                           RAND     33                                    
008315,000458: 11,2427           26413                           ADS      RADMODES                              
008316,000459: 
008317,000460: 11,2430           00003                           RELINT                                         
008318,000461: 11,2431           32452                           CAF      LRTSTDEX                              
008319,000462: 11,2432           54003                           TS       EBANK                                 
008320,000463: 11,2433           56146                           XCH      MPAC       +2                         
008321,000464: 11,2434           55436                           TS       RSAMPDT                               #  HI SPEED NNZ - LO SPEED PNZ.
008322,000465: 11,2435           37761                           CAF      ZERO                                  
008323,000466: 11,2436           55435                           TS       RTSTLOC                               
008324,000467: 11,2437           55437                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER.
008325,000468: 11,2440           32476                           CAF      HISPMAX                               
008326,000469: 11,2441           55433                           TS       RTSTMAX                               
008327,000470: 
008328,000471: 11,2442           32477                           CAF      RTSTNV                                
008329,000472: 11,2443           04646                           TC       NVSBWAIT                              
008330,000473: 11,2444           04464                           TC       ENDIDLE                               
008331,000474: 11,2445           05604                           TC       EJFREE                                #  ON TERMINATE.
008332,000475: 11,2446           12502                           TCF      RSEMIAUT                              #  PROCEED MEANS SEMI-AUTO SEQUENCING.
008333,000476: 11,2447           04713        RDRDFREE           TC       FREEDSP                               
008334,000477: 11,2450           11436                           CCS      RSAMPDT                               #  SEE IF HI OR LO SPEED SAMPLING.
008335,000478: 11,2451           12455                           TCF      +4                                    
008336,000479: 
008337,000480: 11,2452           03432        LRTSTDEX           ECADR    RTSTDEX                               
008338,000481: 
008339,000482: 11,2453           05243                           TC       POSTJUMP                              #  EXEC. OTHERWISE, SET UP WAITLIST TIMING.
008340,000483: 11,2454           21300                           CADR     DORSAMP                               
008341,000484: 
008342,000485: 11,2455           36276                           CAF      SIX                                   #  FIND OUT WHICH RADAR WANTED.
008343,000486: 11,2456           71432                           MASK     RTSTDEX                               
008344,000487: 

Page 200

008346,000489: 11,2457           10000                           CCS      A                                     
008347,000490: 11,2460           12464                           TCF      LRCYCLE                               #  LANDING RADAR ARE SERIALS 2 - 5.
008348,000491: 
008349,000492: 11,2461           55434                           TS       RTSTBASE                              #  FOR RR BASE = 0, MAX = 1.
008350,000493: 11,2462           36276                           CAF      SIX                                   
008351,000494: 11,2463           12467                           TCF      +4                                    
008352,000495: 
008353,000496: 11,2464           37754        LRCYCLE            CAF      TWO                                   #  FOR LR BASE = 2, MAX = 3.
008354,000497: 11,2465           55434                           TS       RTSTBASE                              
008355,000498: 11,2466           32475                           CAF      18R                                   
008356,000499: 
008357,000500: 11,2467           55433                 +4        TS       RTSTMAX                               
008358,000501: 11,2470           00004                           INHINT                                         
008359,000502: 11,2471           05701                           TC       WAITLIST                              
008360,000503: 11,2472  E7,1435                                  EBANK=   RSTKLOC                               
008361,000504: 11,2472           03260 20007                     2CADR    RADSAMP                               
008362,000505: 
008363,000506: 11,2474           05605                           TC       ENDOFJOB                              
008364,000507: 
008365,000508: 11,2475           00022        18R                DEC      18         B-14                       
008366,000509: 11,2476           00102        HISPMAX            DEC      66         B-14                       
008367,000510: 11,2477           02101        RTSTNV             OCT      2101                                  
008368,000511: 11,2500           02001        RSTKLIST           GENADR   UPDNLIST                              
008369,000512: 11,2501           00444        LRPOSCAL           OCT      444                                   
008370,000513: 

Page 201

008372,000515:                                                                                                  #           SEMI-AUTO RADAR TESTING.
008373,000516: 
008374,000517: 11,2502           00004        RSEMIAUT           INHINT                                         
008375,000518: 11,2503           35665                           CAF      PRIO25                                #  START HI SPEED SAMPLING.
008376,000519: 11,2504           05523                           TC       NOVAC                                 
008377,000520: 11,2505  E7,1435                                  EBANK=   RSTKLOC                               
008378,000521: 11,2505           03300 20007                     2CADR    DORSAMP                               
008379,000522: 
008380,000523: 11,2507           00003                           RELINT                                         
008381,000524: 11,2510           37760                           CAF      FIVE                                  #  SEQUENCE THROUGH ALL SIX CHANNELS.
008382,000525: 11,2511           55432                 -1        TS       RTSTDEX                               
008383,000526: 
008384,000527: 11,2512           32530        33PASTE            CAF      RV33                                  #  ON ENTER, SWITCH TO NEXT CHANNEL.
008385,000528: 11,2513           04646                           TC       NVSBWAIT                              
008386,000529: 11,2514           04611                           TC       FLASHON                               
008387,000530: 11,2515           04464                           TC       ENDIDLE                               
008388,000531: 11,2516           02523                           TC       ENDRTST                               #  ON TERMINATE.
008389,000532: 11,2517           12521                           TCF      +2                                    
008390,000533: 11,2520           12512                           TCF      33PASTE                               #  DONT ACCEPT DATA.
008391,000534: 
008392,000535: 11,2521           11432                           CCS      RTSTDEX                               
008393,000536: 11,2522           12511                           TCF      33PASTE    -1                         
008394,000537: 
008395,000538: 11,2523           37761        ENDRTST            CAF      ZERO                                  #  ENDTEST.
008396,000539: 11,2524           55436                           TS       RSAMPDT                               
008397,000540: 11,2525           04105                           TC       NEWMODEX                              
008398,000541: 11,2526           00000                           OCT      0                                     
008399,000542: 11,2527           05604                           TC       EJFREE                                
008400,000543: 
008401,000544: 11,2530           03300        RV33               OCT      3300                                  
008402,000545: 

Page 202

008404,000547:                                                                                                  #           AGS INITIALIZATION PROGRAM.
008405,000548: 
008406,000549: 11,2531           10412        AGSINIT            CCS      AGSWORD                               #  ZERO IF AGS NOT NOW BEING INITIALIZED.                
008407,000550: 11,2532           02066                           TC       ALM/END                               #  DO IT LATER.
008408,000551: 
008409,000552: 11,2533           30025                           CA       TIME1                                 
008410,000553: 11,2534           62571                           AD       12SECS                                
008411,000554: 11,2535           54001                           TS       L                                     
008412,000555: 11,2536           02553                           TC       SENDIT                                
008413,000556: 
008414,000557: 11,2537           00004                           INHINT                                         #  T1 WILL OVERFLOW, DELAY FOR 12 SECS
008415,000558: 11,2540           32571                           CA       12SECS                                
008416,000559: 11,2541           54412                           TS       AGSWORD                               
008417,000560: 11,2542           05701                           TC       WAITLIST                              
008418,000561: 
008419,000562: 11,2543  E7,1435                                  EBANK=   RSTKLOC                               
008420,000563: 11,2543           02546 22007                     2CADR    AGSJOB                                
008421,000564: 
008422,000565: 11,2545           05605                           TC       ENDOFJOB                              
008423,000566: 
008424,000567: 11,2546           35226        AGSJOB             CAF      PRIO30                                #  ENTER AGSINIT JOB VIA EXEC
008425,000568: 11,2547           05523                           TC       NOVAC                                 
008426,000569: 11,2550  E7,1435                                  EBANK=   RSTKLOC                               
008427,000570: 11,2550           02553 22007                     2CADR    SENDIT                                
008428,000571: 
008429,000572: 11,2552           05745                           TC       TASKOVER                              
008430,000573: 
008431,000574: 11,2553           00004        SENDIT             INHINT                                         
008432,000575: 11,2554           32572                           CAF      LAGSLIST                              #  SWITCH TO SPECIAL DOWNLIST FOR 10 SECS.
008433,000576: 11,2555           56411                           XCH      DNLSTADR                              
008434,000577: 11,2556           54412                           TS       AGSWORD                               #  TO SHOW INITIALIZATION IN PROGRESS.
008435,000578: 
008436,000579: 11,2557           32570                           CAF      10SECS                                
008437,000580: 11,2560           05701                           TC       WAITLIST                              
008438,000581: 11,2561  E7,1435                                  EBANK=   RSTKLOC                               
008439,000582: 11,2561           02564 22007                     2CADR    AGSINIT2                              
008440,000583: 
008441,000584: 11,2563           15605                           TCF      ENDOFJOB                              
008442,000585: 
008443,000586: 11,2564           37761        AGSINIT2           CAF      ZERO                                  #  END OF INITIALIZATION.
008444,000587: 11,2565           56412                           XCH      AGSWORD                               
008445,000588: 11,2566           54411                           TS       DNLSTADR                              #  REVERT TO ORIGINAL DOWNLIST.
008446,000589: 11,2567           15745                           TCF      TASKOVER                              
008447,000590: 
008448,000591: 11,2570           01750        10SECS             DEC      1000       B-14                       
008449,000592: 11,2571           02260        12SECS             DEC      1200       B-14                       
008450,000593: 11,2572           02001        LAGSLIST           GENADR   AGSLIST                               
008451,000594: 

Page 203

008453,000596:                                                                                                  #           VB 43  IMU ATTITUDE ERROR METER LOADER.
008454,000597: 
008455,000598: 11,2573           02040        IMUATTCK           TC       TESTXACT                              
008456,000599: 11,2574           42636                           CS       OCT50K                                #  REMOVE COARSE AND ECTR ENABLE.
008457,000600: 11,2575           00006                           EXTEND                                         
008458,000601: 11,2576           03012                           WAND     12                                    
008459,000602: 
008460,000603: 11,2577           04633                           TC       GRABWAIT                              
008461,000604: 11,2600           32152                           CAF      VNLODCDU                              
008462,000605: 11,2601           04646                           TC       NVSBWAIT                              
008463,000606: 11,2602           04464                           TC       ENDIDLE                               
008464,000607: 11,2603           02055                           TC       TERMEXTV                              
008465,000608: 11,2604           02605                           TC       +1                                    
008466,000609: 11,2605           32637                           CAF      V43K                                  #  REDISPLAY OUR VERB.
008467,000610: 11,2606           04646                           TC       NVSBWAIT                              
008468,000611: 11,2607           37750                           CAF      BIT6                                  #  ENABLE ERROR COUNTER.
008469,000612: 11,2610           00006                           EXTEND                                         
008470,000613: 11,2611           05012                           WOR      12                                    
008471,000614: 11,2612           37754                           CAF      TWO                                   
008472,000615: 11,2613           00004                           INHINT                                         
008473,000616: 
008474,000617: 11,2614           05701                           TC       WAITLIST                              #  PUT OUT COMMAND IN .32 SECS.
008475,000618: 11,2615  E7,1435                                  EBANK=   RSTKLOC                               
008476,000619: 11,2615           02620 22007                     2CADR    ATTCK2                                
008477,000620: 
008478,000621: 11,2617           12055                           TCF      TERMEXTV                              #  FREES DISPLAY.
008479,000622: 
008480,000623: 11,2620           37754        ATTCK2             CAF      TWO                                   #  PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
008481,000624: 11,2621           54002                           TS       Q                                     #  INCASE OF EXCESS DATA.
008482,000625: 11,2622           50000                           INDEX    A                                     
008483,000626: 11,2623           30400                           CA       THETAD                                
008484,000627: 11,2624           00006                           EXTEND                                         
008485,000628: 11,2625           77741                           MP       BIT13                                 #  SHIFT RIGHT 2.
008486,000629: 11,2626           50002                           INDEX    Q                                     
008487,000630: 11,2627           54050                           TS       CDUXCMD                               
008488,000631: 11,2630           10002                           CCS      Q                                     
008489,000632: 11,2631           12621                           TCF      ATTCK2     +1                         
008490,000633: 
008491,000634: 11,2632           32640                           CAF      OCT70K                                
008492,000635: 11,2633           00006                           EXTEND                                         
008493,000636: 11,2634           05014                           WOR      14                                    
008494,000637: 11,2635           15745                           TCF      TASKOVER                              
008495,000638: 
008496,000639: 11,2636           00050        OCT50K             OCT      50                                    
008497,000640: 
008498,000641: 11,2637           04300        V43K               OCT      4300                                  
008499,000642: 11,2640           70000        OCT70K             OCT      70000                                 
008500,000643: 

Page 204

008502,000645:                                                                                                  #           PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
008503,000646: 
008504,000647: 11,2641  E7,1607                                  EBANK=   MSGCNT                                
008505,000648: 
008506,000649: 11,2641           37755        SETUPMSG           CAF      BIT1                                  #  BEGIN SCAN.
008507,000650: 11,2642           00004                           INHINT                                         
008508,000651: 11,2643           05701                           TC       WAITLIST                              
008509,000652: 11,2644  E7,1435                                  EBANK=   RSTKLOC                               
008510,000653: 11,2644           02651 22007                     2CADR    MSGSCAN    +2                         
008511,000654: 
008512,000655: 11,2646           05605                           TC       ENDOFJOB                              
008513,000656: 
008514,000657: 11,2647           05717        MSGSCAN            TC       FIXDELAY                              
008515,000658: 11,2650           00062                           DEC      50         B-14                       
008516,000659: 
008517,000660: 11,2651           37754                           CAF      TWO                                   #  SCAN ALL 3 CHANNELS FOR CHANGES.
008518,000661: 11,2652           55607                           TS       MSGCNT                                
008519,000662: 11,2653           50000                           INDEX    A                                     
008520,000663: 11,2654           31604                           CA       LAST30                                #  OLD VALUE OF INBITS.
008521,000664: 11,2655           00006                           EXTEND                                         
008522,000665: 11,2656           51607                           INDEX    MSGCNT                                
008523,000666: 11,2657           06030                           RXOR     30                                    
008524,000667: 11,2660           51607                           INDEX    MSGCNT                                
008525,000668: 11,2661           72710                           MASK     30MSGMSK                              
008526,000669: 11,2662           00006                           EXTEND                                         
008527,000670: 11,2663           12705                           BZF      NOMSG                                 
008528,000671: 
008529,000672: 11,2664           54002                           TS       Q                                     #  SAVE DIFFERENCE.
008530,000673: 11,2665           51607                           INDEX    MSGCNT                                
008531,000674: 11,2666           23604                           LXCH     LAST30                                #  UPDATE OLD VALUE.
008532,000675: 11,2667           00006                           EXTEND                                         
008533,000676: 11,2670           06001                           RXOR     L                                     
008534,000677: 11,2671           51607                           INDEX    MSGCNT                                
008535,000678: 11,2672           55604                           TS       LAST30                                
008536,000679: 
008537,000680: 11,2673           40000                           COM                                            
008538,000681: 11,2674           56002                           XCH      Q                                     
008539,000682: 11,2675           70002                           MASK     Q                                     #  SEE IF ANY OF CHANGED BITS JUST ON.
008540,000683: 11,2676           00006                           EXTEND                                         
008541,000684: 11,2677           12705                           BZF      NOMSG                                 #  NO MESSAGE IF SO.
008542,000685: 
008543,000686:                                                                                                  #           NO ROTATIONAL HAND CONTROLLER IN 206.
008544,000687: 
008545,000688: 11,2700           32713        NOTRHC             CAF      OKT30                                 
008546,000689: 11,2701           61607                           AD       MSGCNT                                
008547,000690: 11,2702           54071                           TS       RUPTREG2                              
008548,000691: 
008549,000692: 11,2703           40002                           CS       Q                                     
008550,000693: 11,2704           02731                           TC       VMESSAGE                              
008551,000694: 

Page 205

008553,000696: 11,2705           11607        NOMSG              CCS      MSGCNT                                
008554,000697: 11,2706           12652                           TCF      MSGSCAN    +3                         
008555,000698: 11,2707           12647                           TCF      MSGSCAN                               
008556,000699: 
008557,000700: 11,2710           00017        30MSGMSK           OCT      17                                    
008558,000701: 11,2711           77777                           OCT      77777                                 
008559,000702: 11,2712           03777                           OCT      3777                                  
008560,000703: 
008561,000704: 11,2713           00030        OKT30              OCT      30                                    
008562,000705: 11,2714           02724        DESCBITS           TC       MESSAGE                               #  DESCENT BITS COME HERE IN A.
008563,000706: 11,2715           00016                           OCT      16                                    
008564,000707: 11,2716           05751                           TC       RESUME                                
008565,000708: 
008566,000709: 11,2717           04633        RHCMON             TC       GRABWAIT                              #  FIRE UP DSKY MONITOR.
008567,000710: 11,2720           32723                           CAF      RHCMONVN                              
008568,000711: 11,2721           04646                           TC       NVSBWAIT                              
008569,000712: 11,2722           05604                           TC       EJFREE                                
008570,000713: 
008571,000714: 11,2723           01645        RHCMONVN           OCT      1645                                  
008572,000715: 

Page 206

008574,000717:                                                                                                  #           MESSAGE DISPLAY - 3 COMPONENT OCTAL.
008575,000718: 
008576,000719: 11,2724           54071        MESSAGE            TS       RUPTREG2                              #  NEW CHANNEL CONTENTS ARRIVE IN A.
008577,000720: 11,2725           50002                           INDEX    Q                                     #  CHANNEL NUMBER IN OCTAL AT CALLER +1.
008578,000721: 11,2726           30000                           CAF      0                                     
008579,000722: 11,2727           24002                           INCR     Q                                     
008580,000723: 11,2730           56071                           XCH      RUPTREG2                              
008581,000724: 
008582,000725: 11,2731           54070        VMESSAGE           TS       RUPTREG1                              #  FOR VARIABLE CHANNEL.
008583,000726: 11,2732           00006                           EXTEND                                         
008584,000727: 11,2733           22072                           QXCH     RUPTREG3                              
008585,000728: 11,2734           35667                           CAF      PRIO27                                #  FIRE UP SPECIAL JOB.
008586,000729: 11,2735           05523                           TC       NOVAC                                 
008587,000730: 11,2736  E7,1435                                  EBANK=   RSTKLOC                               
008588,000731: 
008589,000732: 11,2736           02747 22007                     2CADR    DOMSG                                 
008590,000733: 
008591,000734: 11,2740           52071                           DXCH     RUPTREG1                              #  NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
008592,000735: 11,2741           50064                           INDEX    LOCCTR                                #  MPAC +1.
008593,000736: 11,2742           52145                           DXCH     MPAC                                  
008594,000737: 11,2743           30025                           CA       TIME1                                 
008595,000738: 11,2744           50064                           INDEX    LOCCTR                                
008596,000739: 11,2745           54146                           TS       MPAC       +2                         
008597,000740: 11,2746           00072                           TC       RUPTREG3                              
008598,000741: 
008599,000742: 11,2747           04633        DOMSG              TC       GRABWAIT                              
008600,000743: 11,2750           00006                           EXTEND                                         
008601,000744: 11,2751           30145                           DCA      MPAC                                  
008602,000745: 11,2752           52340                           DXCH     DSPTEM1                               
008603,000746: 11,2753           30146                           CA       MPAC       +2                         
008604,000747: 11,2754           54341                           TS       DSPTEM1    +2                         
008605,000748: 11,2755           32764                           CAF      MSGVN                                 
008606,000749: 11,2756           04433                           TC       NVSUB                                 
008607,000750: 11,2757           12761                           TCF      MSGBUSY                               
008608,000751: 11,2760           05604                           TC       EJFREE                                
008609,000752: 
008610,000753: 11,2761           32763        MSGBUSY            CAF      +2                                    
008611,000754: 11,2762           04643                           TC       NVSUBUSY                              
008612,000755: 
008613,000756: 11,2763           22750                           CADR     DOMSG      +1                         
008614,000757: 
008615,000758: 11,2764           00535        MSGVN              OCT      0535                                  
008616,000759: 

Page 207

008618,000761:                                                                                                  #           ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
008619,000762: 
008620,000763: 11,2765           05253        AURLOKON           TC       MAKECADR                              
008621,000764: 11,2766           54427                           TS       DESRET                                
008622,000765: 11,2767           32530                           CAF      RV33                                  #  ASSUMES DSKY GRABBED.
008623,000766: 11,2770           04646                           TC       NVSBWAIT                              
008624,000767: 11,2771           04611                           TC       FLASHON                               
008625,000768: 11,2772           04464                           TC       ENDIDLE                               
008626,000769: 11,2773           12776                           TCF      +3                                    #  ON TERM.
008627,000770: 11,2774           37751                           CAF      LOKONFLG                              
008628,000771: 11,2775           12777                           TCF      +2                                    
008629,000772: 11,2776           37761                           CAF      ZERO                                  
008630,000773: 11,2777           00004                           INHINT                                         
008631,000774: 11,3000           56074                           XCH      STATE                                 
008632,000775: 11,3001           73013                           MASK     -LOKONFG                              
008633,000776: 11,3002           26074                           ADS      STATE                                 
008634,000777: 
008635,000778: 11,3003           77751                           MASK     LOKONFLG                              #  IF NO LOCK-ON CALLED FOR, SET BIT15 OF
008636,000779: 11,3004           10000                           CCS      A                                     #  RADMODES TO INDICATE THAT ARBITRARILY-
008637,000780: 
008638,000781: 11,3005           13010                           TCF      +3                                    #  LONG DESIGNATION IS WANTED (TO BE
008639,000782: 
008640,000783: 11,3006           37737                           CAF      BIT15                                 #  TERMINATED BY FRESH START).
008641,000784: 11,3007           26413                           ADS      RADMODES                              
008642,000785: 
008643,000786: 11,3010           00003                           RELINT                                         
008644,000787: 11,3011           30427                           CA       DESRET                                
008645,000788: 11,3012           15246                           TCF      BANKJUMP                              
008646,000789: 
008647,000790: 11,3013           77757        -LOKONFG           OCT      -20                                   
008648,000791: 

Page 208

008650,000793:                                                                                                  #           PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
008651,000794: 
008652,000795: 11,3014           33104        DISINDT            CAF      FLVELVN                               #  ASK FOR FORWARD, LATERAL VELOCITY.
008653,000796: 11,3015           04646                           TC       NVSBWAIT                              
008654,000797: 11,3016           04464                           TC       ENDIDLE                               
008655,000798: 11,3017           13041                           TCF      ENDDISIN                              
008656,000799: 11,3020           13021                           TCF      +1                                    
008657,000800: 11,3021           33105                           CAF      ALT,R,VN                              #  ASK FOR INITIAL AND FINIAL ALTITUDES AND
008658,000801: 11,3022           04646                           TC       NVSBWAIT                              #  ALTITUDE RATE.
008659,000802: 11,3023           04464                           TC       ENDIDLE                               
008660,000803: 11,3024           13041                           TCF      ENDDISIN                              
008661,000804: 11,3025           13026                           TCF      +1                                    
008662,000805: 
008663,000806: 11,3026           00004                           INHINT                                         
008664,000807: 11,3027           47755                           CS       ONE                                   
008665,000808: 11,3030           54350                           TS       DIDFLG                                
008666,000809: 
008667,000810: 11,3031           00006                           EXTEND                                         
008668,000811: 11,3032           30352                           DCA      ALT                                   #  SO FOLLOWING MONITOR WORKS.
008669,000812: 11,3033           52364                           DXCH     ALTSAVE                               
008670,000813: 
008671,000814: 11,3034           37755                           CAF      ONE                                   
008672,000815: 11,3035           05701                           TC       WAITLIST                              
008673,000816: 11,3036  E7,1435                                  EBANK=   RSTKLOC                               
008674,000817: 11,3036           03047 22007                     2CADR    DISINLUP   +2                         
008675,000818: 
008676,000819: 11,3040           15604                           TCF      EJFREE                                
008677,000820: 
008678,000821: 11,3041           04713        ENDDISIN           TC       FREEDSP                               
008679,000822: 11,3042           04105                 +1        TC       NEWMODEX                              
008680,000823: 11,3043           00000                           OCT      0                                     
008681,000824: 
008682,000825: 11,3044           05605                           TC       ENDOFJOB                              
008683,000826: 

Page 209

008685,000828:                                                                                                  #           WATCH ALTSAVE FOR END OF PROBLEM.
008686,000829: 
008687,000830: 11,3045           05717        DISINLUP           TC       FIXDELAY                              
008688,000831: 11,3046           00062                           DEC      50         B-14                       
008689,000832: 
008690,000833: 11,3047           00006                 +2        EXTEND                                         
008691,000834: 11,3050           30355                           DCA      FINALT                                
008692,000835: 11,3051           52062                           DXCH     ITEMP1                                
008693,000836: 
008694,000837: 11,3052           00006                           EXTEND                                         
008695,000838: 11,3053           40364                           DCS      ALTSAVE                               #  LATEST ALTITUDE.
008696,000839: 11,3054           20062                           DAS      ITEMP1                                
008697,000840: 
008698,000841: 11,3055           10061                           CCS      ITEMP1                                
008699,000842: 11,3056           13076                           TCF      +DIF                                  
008700,000843: 11,3057           13061                           TCF      +2                                    
008701,000844: 11,3060           13102                           TCF      -DIF                                  
008702,000845: 
008703,000846: 11,3061           10062                           CCS      ITEMP2                                
008704,000847: 11,3062           13076                           TCF      +DIF                                  
008705,000848: 11,3063           13065                           TCF      +2                                    
008706,000849: 11,3064           13102                           TCF      -DIF                                  
008707,000850: 
008708,000851: 11,3065           37761        DISINDUN           CAF      ZERO                                  
008709,000852: 11,3066           54353                           TS       ALTRATE                               
008710,000853: 11,3067           52355                           DXCH     FINALT                                
008711,000854: 11,3070           52352                           DXCH     ALT                                   
008712,000855: 11,3071           37740                           CAF      PRIO20                                
008713,000856: 11,3072           05523                           TC       NOVAC                                 
008714,000857: 11,3073  E7,1435                                  EBANK=   RSTKLOC                               
008715,000858: 11,3073           03042 22007                     2CADR    ENDDISIN   +1                         
008716,000859: 
008717,000860: 11,3075           15745                           TCF      TASKOVER                              
008718,000861: 
008719,000862: 11,3076           30353        +DIF               CA       ALTRATE                               
008720,000863: 11,3077           00006                           EXTEND                                         
008721,000864: 11,3100           63065                           BZMF     DISINDUN                              
008722,000865: 11,3101           13045                           TCF      DISINLUP                              
008723,000866: 
008724,000867: 11,3102           40353        -DIF               CS       ALTRATE                               
008725,000868: 11,3103           13077                           TCF      +DIF       +1                         
008726,000869: 
008727,000870: 11,3104           02444        FLVELVN            OCT      2444                                  
008728,000871: 11,3105           02564        ALT,R,VN           OCT      2564                                  
008729,000872: 
008730,000873: 11,3106           00004        MINIMP             INHINT                                         
008731,000874: 11,3107           47744                           CS       BIT10                                 #  BIT 10 OF DAPBOOLS INDICATES MINIMP MODE
008732,000875: 11,3110           70077                           MASK     DAPBOOLS                              
008733,000876: 11,3111           67744                           AD       BIT10                                 
008734,000877: 11,3112           54077                           TS       DAPBOOLS                              #  BIT 10 OF DAPBOOLS NOW PRESENT.
008735,000878: 11,3113           15605                           TCF      ENDOFJOB                              
008736,000879: 

Page 210

008738,000881: 11,3114           00004        NOMINIMP           INHINT                                         
008739,000882: 11,3115           47744                           CS       BIT10                                 
008740,000883: 11,3116           70077                           MASK     DAPBOOLS                              
008741,000884: 11,3117           54077                           TS       DAPBOOLS                              #  A ZERO IN POSITION 10 OF DAPBOOLS NOW.
008742,000885: 
008743,000886: 11,3120           00006                           EXTEND                                         
008744,000887: 11,3121           30033                           DCA      CDUX                                  
008745,000888: 11,3122           52767                           DXCH     CDUXD                                 
008746,000889: 11,3123           30034                           CA       CDUZ                                  
008747,000890: 11,3124           54770                           TS       CDUZD                                 
008748,000891: 11,3125           15605                           TCF      ENDOFJOB                              
008749,000892: 

Page 211

008751,000894:                                                                                                  #  VB 60 PREPARE FOR STANDBY OPERATION
008752,000895: 
008753,000896:                                                                                                  #  ROUTINE WRITTEN FOR TEST ROPES ONLY*** MUST BE UPDATED TO INCLUDE
008754,000897:                                                                                                  #                                  FLIGHT REQUIREMENTS FOR FLIGHT OPERATION
008755,000898: 
008756,000899: 11,3126  E3,1400                                  EBANK=   LST1                                  
008757,000900: 
008758,000901: 11,3126           35370        PRESTAND           CAF      EBANK3                                #  COMES HERE FROM LST2FAN
008759,000902: 11,3127           56003                           XCH      EBANK                                 #  SET UP EBANK FOR BANK 3
008760,000903: 11,3130           00004                           INHINT                                         
008761,000904: 11,3131           30025                           CA       TIME1                                 
008762,000905: 11,3132           55506                           TS       TIMESAV                               #  THIS ROUTINE WILL LOOK AT TIME1 UNTIL
008763,000906: 11,3133           32713                           CAF      OKT30                                 #   TIME1 IS INCREMENTED, THEN IT WILL
008764,000907: 11,3134           55512        LONGER             TS       TIMAR                                 #  SNATCH THE MISSION TIME REGS AND STORE
008765,000908: 11,3135           41506                           CS       TIMESAV                               #  THEN IN TIMESAV FOR LATER ISE IN ARITH.
008766,000909: 11,3136           60025                           AD       TIME1                                 #  OPERATIONS WHICH SHOULD FIND THE
008767,000910: 11,3137           00006                           EXTEND                                         #  STANDING DIFFERENCE BETWEEN THE SCALAR
008768,000911: 11,3140           13145                           BZF      CHKTIME                               #  AND THE TIME1-TIME2S REGS.
008769,000912: 
008770,000913: 11,3141           00006                           EXTEND                                         
008771,000914: 11,3142           30025                           DCA      TIME2                                 #  READ AND STORE THE DP TIME AND GO
008772,000915: 11,3143           53507                           DXCH     TIMESAV                               #  READ THE SCALAR USING THE EXISTING PROG
008773,000916: 11,3144           13153                           TCF      CATCHFIN                              #  FINETIME.
008774,000917: 
008775,000918: 11,3145           11512        CHKTIME            CCS      TIMAR                                 #  MUST WATCH THE TIME SPENT IN INHINT OR
008776,000919: 11,3146           03134                           TC       LONGER                                #  THE COPS MIGHT CATCH US.
008777,000920: 11,3147           00003                           RELINT                                         
008778,000921: 11,3150           10067                           CCS      NEWJOB                                
008779,000922: 11,3151           05550                           TC       CHANG1                                
008780,000923: 11,3152           03133                           TC       LONGER     -1                         #  GO BACK AND LOOK AGAIN
008781,000924: 
008782,000925: 11,3153           05015        CATCHFIN           TC       FINETIME                              #  WILL READ CHANNELS 3 AND 4 AND RETURN
008783,000926: 11,3154           53511                           DXCH     SCALSAV                               #  WITH 3 IN A AND 4 IN L..
008784,000927: 11,3155           00003                           RELINT                                         
008785,000928: 11,3156           47752                           CS       BIT4                                  
008786,000929: 11,3157           70365                           MASK     IMODES30                              #  INHIBIT THE IMU FAIL LIGHT.
008787,000930: 11,3160           67752                           AD       BIT4                                  
008788,000931: 11,3161           54365                           TS       IMODES30                              
008789,000932: 
008790,000933: 11,3162           37752                           CAF      BIT4                                  #  SET ALL CHAN 12 BITS EXCEPT C/A TO ZERO.
008791,000934: 11,3163           00006                           EXTEND                                         #  THIS IS NECESSARY SO THAT THE GIMBALS DO
008792,000935: 11,3164           03012                           WAND     12                                    #  NOT DRIFT INTO GIMBALLOCK IF THE SYSTEM
008793,000936: 
008794,000937: 11,3165           37752                           CAF      BIT4                                  #  SHOULD BE IN OPERATE AT THE TIME STBY
008795,000938: 11,3166           00006                           EXTEND                                         #  WAS STARTED.  THIS SECTION WILL MAKE
008796,000939: 11,3167           05012                           WOR      12                                    #  SURE THE IMU IS IN C/A.....
008797,000940: 
008798,000941: 11,3170           37743                           CAF      BIT11                                 #  WHEN BIT 11 IS PRESENT IN CHANNEL 13 THE
008799,000942: 11,3171           00006                           EXTEND                                         #  DSKY PB. CAN THEN ENERGIZE THE STANDBY
008800,000943: 11,3172           05013                           WOR      13                                    #  RELAY IN THE CGC PWR SUPPLIES....

Page 212

008802,000945: 11,3173           05605                           TC       ENDOFJOB                              #  GO TO DUMMY JOB UNTIL YOU DIE...
008803,000946: 

Page 213

008805,000948:                                                                                                  #   VB 61 RECOVER FROM STANDBY OPERATION
008806,000949: 
008807,000950:                                                                                                  #  ROUTINE WRITTEN FOR TEST ROPES ONLY**** MUST BE UPDATED TO INCLUDE
008808,000951:                                                                                                  #                  FLIGHT REQUIREMENTS FOR FLIGHT OPERATIONS SEQUENCES....
008809,000952: 
008810,000953: 11,3174           35370        POSTAND            CAF      EBANK3                                #  COMES HERE FROM LST2FAN
008811,000954: 11,3175           56003                           XCH      EBANK                                 #  SET UP EBANK FOR BANK 3
008812,000955: 11,3176           05015                           TC       FINETIME                              
008813,000956: 
008814,000957: 11,3177           53513                           DXCH     TIMAR                                 #  READ THE SCALAR AND SEE IF IT OVERFLOW-
008815,000958: 11,3200           00003                           RELINT                                         #  ED WHILE THE CGC WAS IN STBY, IF SO
008816,000959: 11,3201           31512                           CAE      TIMAR                                 #  THE OVERFLOW MUST BE ADDED OR IT WILL
008817,000960: 11,3202           00006                           EXTEND                                         #  SEEM THAT THE REALATIVITY THEORY WORKS
008818,000961: 11,3203           61510                           SU       SCALSAV                               #  BETTER THAN IT SHOULD...
008819,000962: 11,3204           00006                           EXTEND                                         
008820,000963: 11,3205           63230                           BZMF     ADDTIME                               #  IF ITS NEG. IT MUST HAVE OV:FLWD..
008821,000964: 
008822,000965: 11,3206           06103                           TC       INTPRET                               
008823,000966: 11,3207           45345                           DLOAD    DSU                                   #  IF IT DID NOT OV-FLW. FIND OUT HOW LONG
008824,000967: 11,3210           01513                                    TIMAR                                 #  THE CGC WAS IN STBY BY SUBTRACTING THE
008825,000968: 11,3211           01511                                    SCALSAV                               #  SCALAR AT THE START OF STBY FROM THE
008826,000969: 11,3212           47061                           SRR      RTB                                   #  SCALAR AT THE END OF STBY AND THEN ADD
008827,000970: 11,3213           21606                                    5                                     #  THE DIFFERENCE TO THE TIME EXISTING
008828,000971: 11,3214           33565                                    SGNAGREE                              #  WHEN THE SCALAR WAS READ AT STBY ENTRY**
008829,000972: 11,3215           77615                           DAD                                            
008830,000973: 11,3216           01507                                    TIMESAV                               
008831,000974: 11,3217           01513                           STORE    TIMAR                                 
008832,000975: 11,3220           77776                           EXIT                                           
008833,000976: 
008834,000977: 11,3221           00006        CORCTTIM           EXTEND                                         
008835,000978: 11,3222           31513                           DCA      TIMAR                                 #  THIS IS THE CORRECTED TIME TO BE READ
008836,000979: 11,3223           52025                           DXCH     TIME2                                 #  INTO TIME1 AND TIME2 REGS. ADDR 24-25
008837,000980: 
008838,000981: 11,3224           47743                           CS       BIT11                                 
008839,000982: 11,3225           00006                           EXTEND                                         #  DISABLE THE DSKY STBY PUSHBUTTON.
008840,000983: 11,3226           03013                           WAND     13                                    
008841,000984: 11,3227           05605                           TC       ENDOFJOB                              
008842,000985: 
008843,000986: 11,3230           00006        ADDTIME            EXTEND                                         
008844,000987: 11,3231           37735                           DCA      DPOSMAX                               #  IF THE SCALAR OVERFLOWED, FIND OUT HOW
008845,000988: 11,3232           53515                           DXCH     TIMEDIFF                              #  MUCH TIME REMAINED WHEN READ THE FIRST
008846,000989: 11,3233           06103                           TC       INTPRET                               #  TIME AND THEN ADD THE PRESENT READING-
008847,000990: 11,3234           45345                           DLOAD    DSU                                   #  WHICH WILL BE THE TOTAL TIME SPENT IN
008848,000991: 11,3235           01515                                    TIMEDIFF                              #  STANDBY, TO WHICH THE TIME AT STBY
008849,000992: 11,3236           01511                                    SCALSAV                               #  MAY BE ADDED TO FIND THE PRESENT TIME
008850,000993: 11,3237           54215                           DAD      SRR                                   #  CORRECT TO 10 MSEC..
008851,000994: 11,3240           01513                                    TIMAR                                 #  **** THE TIME IN STANDBY MODE MUST NOT
008852,000995: 11,3241           21606                                    5                                     #  EXCEED 23 HOURS IF TIME IS TO BE
008853,000996: 11,3242           77615                           DAD                                            #  CORRECTLY COMPUTED BY THIS ROUTINE.*****
008854,000997: 11,3243           01507                                    TIMESAV                               
008855,000998: 11,3244           01513                           STORE    TIMAR                                 

Page 214

008857,001000: 11,3245           77776                           EXIT                                           
008858,001001: 11,3246           03221                           TC       CORCTTIM                              
008859,001002: 

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