Source Code

These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
This means that source code does not represent a specific historical revision of Sundance, but rather a mixture of the three released versions. Nonetheless, it is capable of flying the whole Apollo 9 mission. This source code matches the binary dumps, as closely as feasible, but 100% match is not possible, due mostly to changes in memory addresses at which code and variables were allocated in different revisions of Sundance. Refer to this list of explanations for each binary mismatch.

Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

009407,000002:                                                                                                  ## Copyright:   Public domain.
009408,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
009409,000004:                                                                                                  ## Purpose:     A section of a reconstructed, mixed version of Sundance
009410,000005:                                                                                                  ##              It is part of the reconstructed source code for the Lunar
009411,000006:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
009412,000007:                                                                                                  ##              No original listings of this program are available;
009413,000008:                                                                                                  ##              instead, this file was created via disassembly of dumps
009414,000009:                                                                                                  ##              of various revisions of Sundance core rope modules.
009415,000010:                                                                                                  ## Assembler:   yaYUL
009416,000011:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009417,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009418,000013:                                                                                                  ## Mod history: 2020-06-17 MAS  Created from Luminary 69.
009419,000014: 
009420,000015:                                                                                                  ## Sundance 306
009421,000016: 
009422,000017: 07,2622                                           BANK     7                                     
009423,000018: 43,2000                                           SETLOC   EXTVERBS                              
009424,000019: 43,2000                                           BANK                                           
009425,000020: 
009426,000021: 43,2000  E5,1737                                  EBANK=   OGC                                   
009427,000022: 
009428,000023: 43,2000                                           COUNT*   $$/EXTVB                              
009429,000024:                                                                                                  #  FAN-OUT
009430,000025: 
009431,000026: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
009432,000027: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
009433,000028: 
009434,000029: 43,2002           02130        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
009435,000030: 43,2003           02157                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
009436,000031:                                                                                                  #                                  72 ONLY)
009437,000032: 43,2004           02303                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
009438,000033: 43,2005           02646                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
009439,000034: 43,2006           02262                           TC       RRDESEND                              #  VB44 TERMINATE CONTINUOUS DESIGNATE
009440,000035: 43,2007           03216                           TC       V45                                   #  VB45 W MATRIX MONITOR
009441,000036: 43,2010           02120                           TC       ALM/END                               #  VB46 SPARE
009442,000037: 43,2011           02342                           TC       V47TXACT                              #  VB47 AGS INITIALIZATION
009443,000038: 43,2012           03151                           TC       DAPDISP                               #  VB48  LOAD A/P DATA
009444,000039: 43,2013           12765                           TCF      CREWMANU                              #  VB49 START AUTOMATIC ATTITUDE MANEUVER
009445,000040: 43,2014           02334                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
009446,000041: 43,2015           02120                           TC       ALM/END                               #  VB51 SPARE
009447,000042: 43,2016           02334                           TC       GOLOADLV                              #  VB52 PLEASE MARK X - RETICLE.
009448,000043: 43,2017           02334                           TC       GOLOADLV                              #  VB53 PLEASE MARK Y - RETICLE.
009449,000044: 43,2020           02334                           TC       GOLOADLV                              #  VB54 PLEASE MARK X OR Y - RETICLE
009450,000045: 43,2021           02354                           TC       ALINTIME                              #  VB55 ALIGN TIME
009451,000046: 43,2022           03002                           TC       TRMTRACK                              #  VB56 TERMINATE TRACKING - P20 + P25
009452,000047: 43,2023           02120                           TC       ALM/END                               #  VB57 SPARE
009453,000048: 43,2024           02120                           TC       ALM/END                               #  VB58 SPARE
009454,000049: 43,2025           02120                           TC       ALM/END                               #  VB59 SPARE
009455,000050: 43,2026           02774                           TC       DAPATTER                              #  VB60 DISPLAY DAP ATTITUDE ERROR
009456,000051: 43,2027           02152                           TC       LRPOS2K                               #  VB61 COMMAND LR TO POSITION 2.
009457,000052: 43,2030           02414                           TC       R04                                   #  VB62 SAMPLE RADAR ONCE PER SECOND
009458,000053: 43,2031           02777                           TC       TOTATTER                              #  VB63 DISPLAY TOTAL ATTITUDE ERROR
009459,000054: 43,2032           02120                           TC       ALM/END                               #  VB64 SPARE
009460,000055: 43,2033           03224                           TC       SNUFFOUT                              #  VB65 DISABLE U,V JETS DURING DPS BURNS.
009461,000056: 43,2034           03156                           TC       ATTACHED                              #  VB66 ATTACHED   MOVE THIS TO OTHER STATE
009462,000057: 43,2035           02120                           TC       ALM/END                               #  VB67 SPARE
009463,000058: 43,2036           02120                           TC       ALM/END                               #  VB68 SPARE
009464,000059: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 FORCE A HARDWARE RESTART
009465,000060: 43,2040           03724                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
009466,000061: 43,2041           03726                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
009467,000062: 43,2042           03730                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
009468,000063: 43,2043           03732                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
009469,000064: 43,2044           03051                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
009470,000065:                                                                                                  #         FOR ERASABLE DUMP.
009471,000066: 43,2045           03227                           TC       OUTSNUFF                              #  VB75 ENABLE U,V JETS DURING DPS BURNS.
009472,000067: 
009473,000068: 43,2046           02741                           TC       MINIMP                                #  VB76 MINIMUM IMPULSE MODE
009474,000069: 43,2047           02746                           TC       NOMINIMP                              #  VB77 RATE COMMAND MODE
009475,000070: 43,2050           02406                           TC       R77                                   #  VB78 START LR SPURIOUS RETURN TEST
009476,000071: 43,2051           02622                           TC       R77END                                #  VB79 TERMINATE LR SPURIOUS RETURN TEST
009477,000072: 43,2052           03056                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
009478,000073: 43,2053           03062                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
009479,000074: 43,2054           02706                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
009480,000075: 43,2055           02716                           TC       V83PERF                               #  VB83 REQUEST REND PARAM DISPLAY (R31)
009481,000076: 43,2056           02757                           TC       R32                                   #  VB84 START TARGET DELTA V (R32)
009482,000077: 43,2057           02120                           TC       ALM/END                               #  VB85 SPARE
009483,000078: 43,2060           02120                           TC       ALM/END                               #  VB86 SPARE
009484,000079: 43,2061           02120                           TC       ALM/END                               #  VB87 SPARE
009485,000080: 43,2062           02120                           TC       ALM/END                               #  VB88 SPARE
009486,000081: 43,2063           02724                           TC       V89PERF                               #  VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
009487,000082: 43,2064           02733                           TC       V90PERF                               #  VB90 OUT OF PLANE RENDEZVOUS DISPLAY
009488,000083: 43,2065           03114                           TC       GOSHOSUM                              #  VB91 DISPLAY BANK SUM.
009489,000084: 43,2066           03100                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST.
009490,000085: 43,2067           03107                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
009491,000086: 43,2070           02120                           TC       ALM/END                               #  VB94 SPARE
009492,000087: 43,2071           03075                           TC       UPDATOFF                              #  VB95 NO STATE VECTOR UPDATE ALLOWED
009493,000088: 43,2072           03211                           TC       VERB96                                #  VB96 INTERRUPT INTEGRATION AND GO TO POO
009494,000089: 43,2073           02120                           TC       ALM/END                               #  VB97 SPARE
009495,000090: 43,2074           02120                           TC       ALM/END                               #  VB98 SPARE
009496,000091: 43,2075           02334                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
009497,000092: 
009498,000093:                                                                                                  #  END OF EXTENDED VERB FAN
009499,000094: 
009500,000095: 43,2076           11045        TESTXACT           CCS      EXTVBACT                              #  ARE EXTENDED VERBS BUSY
009501,000096: 43,2077           02120                           TC       ALM/END                               #  YES, TURN ON OPERATOR LIGHT
009502,000097: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIORITY DISPLAYS USING DSKY
009503,000098: 43,2101           72127                           MASK     OC24100                               
009504,000099: 43,2102           10000                           CCS      A                                     
009505,000100: 43,2103           02120                           TC       ALM/END                               #  YES
009506,000101: 43,2104           34112                           CAF      OCT24                                 #  SET BITS 3 AND 5
009507,000102: 43,2105           55045        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
009508,000103:                                                                                                  #  SYSTEM BUSY
009509,000104: 
009510,000105: 43,2106           30002                           CA       Q                                     
009511,000106: 43,2107           54155                           TS       MPAC       +1                         
009512,000107: 
009513,000108: 43,2110           45025                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
009514,000109: 43,2111           04166                           TC       NVSUB                                 
009515,000110: 43,2112           02113                           TC       +1                                    
009516,000111: 43,2113           00155                           TC       MPAC       +1                         
009517,000112: 
009518,000113: 43,2114           04376        XACTALM            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT.
009519,000114: 43,2115           05561                           TC       ENDEXT                                #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
009520,000115: 
009521,000116: 43,2116     5561               TERMEXTV           EQUALS   ENDEXT                                
009522,000117: 
009523,000118: 43,2116     5561               ENDEXTVB           EQUALS   ENDEXT                                
009524,000119: 
009525,000120: 43,2116           35030        XACT0              CAF      ZERO                                  #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
009526,000121: 43,2117           02105                           TC       SETXTACT                              
009527,000122: 
009528,000123: 43,2120           04376        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
009529,000124: 43,2121           04674        GOPIN              TC       POSTJUMP                              
009530,000125: 43,2122           20746                           CADR     PINBRNCH                              
009531,000126: 
009532,000127: 43,2123           31012        CHKPOOH            CA       MODREG                                #  CHECK FOR POO OR POO-.
009533,000128: 43,2124           00006                           EXTEND                                         
009534,000129: 43,2125           16716                           BZF      TCQ                                   
009535,000130: 43,2126           02120                           TC       ALM/END                               
009536,000131: 
009537,000132: 43,2127           24100        OC24100            OCT      24100                                 
009538,000133: 
009539,000134:                                                                                                  #           VBZERO       VERB 40            DESCRIPTION
009540,000135: 
009541,000136:                                                                                                  #               1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
009542,000137:                                                                                                  #              2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
009543,000138:                                                                                                  #                 FOR N72, CHECK IF EITHER RADAR IS IN USE.
009544,000139:                                                                                                  #               3. EXECUTE THE CDU ZERO.
009545,000140:                                                                                                  #               4. STALL UNTILL THE ZERO IS DONE.
009546,000141:                                                                                                  #               5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
009547,000142:                                                                                                  #               6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
009548,000143: 
009549,000144: 43,2130           02162        VBZERO             TC       OP/INERT                              
009550,000145: 43,2131           02133                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
009551,000146: 43,2132           02142                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(72)
009552,000147: 43,2133           02350        IMUZEROK           TC       CKMODCAD                              
009553,000148: 43,2134           04655                           TC       BANKCALL                              #  KEYBOARD REQ FOR ISS CDUZERO
009554,000149: 43,2135           16622                           CADR     IMUZERO                               
009555,000150: 
009556,000151: 43,2136           04655                           TC       BANKCALL                              #  STALL
009557,000152: 43,2137           17625                           CADR     IMUSTALL                              
009558,000153: 43,2140           02141                           TC       +1                                    
009559,000154: 
009560,000155: 43,2141           02121                           TC       GOPIN                                 #  IMUZERO
009561,000156: 
009562,000157: 43,2142           31310        RRZEROK            CA       RADCADR                               
009563,000158: 43,2143           02351                           TC       CKMODCAD   +1                         
009564,000159: 43,2144           04655                           TC       BANKCALL                              
009565,000160: 43,2145           52322                           CADR     RRZERO                                
009566,000161: 
009567,000162: 43,2146           04655        RWAITK             TC       BANKCALL                              
009568,000163: 43,2147           17623                           CADR     RADSTALL                              
009569,000164: 43,2150           12151                           TCF      +1                                    
009570,000165: 43,2151           02121                           TC       GOPIN                                 #  RRZERO
009571,000166: 
009572,000167:                                                                                                  #           LRPOS2K     VERB 60             DESCRIPTION
009573,000168:                                                                                                  #               COMMAND LANDING RADAR TO POSITION 2
009574,000169:                                                                                                  #              1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
009575,000170:                                                                                                  #               2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
009576,000171:                                                                                                  #                  THE PRESCRIBED TIME.
009577,000172:                                                                                                  #               3. RE-ESTABLISH THE DISPLAYS.
009578,000173: 
009579,000174: 43,2152           31310        LRPOS2K            CA       RADCADR                               
009580,000175: 43,2153           02351                           TC       CKMODCAD   +1                         
009581,000176: 43,2154           04655                           TC       BANKCALL                              #  COMMAND LR TO POSITION 2
009582,000177: 43,2155           53422                           CADR     LRPOS2                                
009583,000178: 43,2156           12146                           TCF      RWAITK                                
009584,000179: 
009585,000180:                                                                                                  #           VBCOARK      VERB 41            DESCRIPTION
009586,000181:                                                                                                  #               COARSE ALIGN IMU OR RADAR
009587,000182:                                                                                                  #              1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
009588,000183:                                                                                                  #               2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
009589,000184:                                                                                                  #               CASE 1     NOUN 20     (ICDU ANGLES)
009590,000185:                                                                                                  #               3. SET EXT VERB DISPLAY ACTIVE FLAG.
009591,000186:                                                                                                  #               4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
009592,000187:                                                                                                  #                  RESPONSES
009593,000188:                                                                                                  #                    A. TERMINATE
009594,000189:                                                                                                  #                       1. RELEASE EXT VERB DISPLAY SYSTEM
009595,000190:                                                                                                  #                    B. PROCEED
009596,000191:                                                                                                  #                      1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
009597,000192:                                                                                                  #                    C. ENTER
009598,000193:                                                                                                  #                      1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
009599,000194:                                                                                                  #               ICORK2
009600,000195:                                                                                                  #                  1. RE-DISPLAY VERB 41.
009601,000196:                                                                                                  #                  2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
009602,000197:                                                                                                  #                  3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
009603,000198:                                                                                                  #                  4. RELEASE EXT VERB DISPLAY SYSTEM.
009604,000199:                                                                                                  #               CASE 2     NOUN 72     (RCDU ANGLES)
009605,000200:                                                                                                  #                 EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
009606,000201:                                                                                                  #               5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
009607,000202:                                                                                                  #                  RESPONSES
009608,000203:                                                                                                  #                  A. TERMINATE
009609,000204:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYS.
009610,000205:                                                                                                  #                  B. PROCEED OR ENTER
009611,000206:                                                                                                  #                     1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
009612,000207:                                                                                                  #                     2. RE-DISPLAY VERB 41.
009613,000208:                                                                                                  #                     3. SCHEDULE RRDESK2 WITH PRIORITY 20.
009614,000209:                                                                                                  #                     4. RELEASE EXT VERB DISPLAY SYS.
009615,000210: 
009616,000211:                                                                                                  #                  AURLOKON
009617,000212: 
009618,000213:                                                                                                  #                 1. FLASH V04 N12 R1 = 00006 R2 = 00002
009619,000214:                                                                                                  #                     RESPONSES
009620,000215:                                                                                                  #                     A. TERMINATE
009621,000216:                                                                                                  #                     B. PROCEED
009622,000217:                                                                                                  #                       1. RESET LOCK-ON SWITCH
009623,000218:                                                                                                  #                       2. SET CONTINUOUS DESIGNATE FLAG
009624,000219:                                                                                                  #                       3. DISABLE R25
009625,000220:                                                                                                  #                    C. V22 E 1 E, R1 = 00001, PROCEED
009626,000221:                                                                                                  #                       1. SET LOCK-ON SWITCH
009627,000222: 43,2157           02162        VBCOARK            TC       OP/INERT                              
009628,000223: 43,2160           02174                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
009629,000224: 43,2161           02216                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (72)
009630,000225:                                                                                                  #           RETURNS TO L+1 IF IMU OR L+2 IF RR.
009631,000226: 
009632,000227: 43,2162           44112        OP/INERT           CS       OCT24                                 
009633,000228: 43,2163           61003                           AD       NOUNREG                               
009634,000229: 43,2164           00006                           EXTEND                                         
009635,000230: 43,2165           16716                           BZF      TCQ                                   #  IF = 20.
009636,000231: 
009637,000232: 43,2166           24002                           INCR     Q                                     
009638,000233: 43,2167           62173                           AD       RRIMUDIF                              #  -52
009639,000234: 43,2170           00006                           EXTEND                                         
009640,000235: 43,2171           16716                           BZF      TCQ                                   
009641,000236: 
009642,000237: 43,2172           02120                           TC       ALM/END                               #  ILLEGAL.
009643,000238: 
009644,000239: 43,2173           77713        RRIMUDIF           DEC      -52        B-14                       #  THE IMU
009645,000240: 43,2174           02350        IMUCOARK           TC       CKMODCAD                              
009646,000241: 43,2175           02076                           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
009647,000242: 43,2176           32214                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
009648,000243: 43,2177           04655                           TC       BANKCALL                              
009649,000244: 43,2200           20226                           CADR     GOXDSPF                               
009650,000245: 43,2201           05561                           TC       TERMEXTV                              
009651,000246: 43,2202           12203                           TCF      +1                                    
009652,000247: 
009653,000248: 43,2203           32215        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
009654,000249: 43,2204           04655                           TC       BANKCALL                              
009655,000250: 43,2205           20527                           CADR     EXDSPRET                              
009656,000251: 
009657,000252: 43,2206           04655                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
009658,000253: 43,2207           16711                           CADR     IMUCOARS                              
009659,000254: 
009660,000255: 43,2210           04655                           TC       BANKCALL                              #  STALL
009661,000256: 43,2211           17625                           CADR     IMUSTALL                              
009662,000257: 43,2212           05561                           TC       ENDEXTVB                              
009663,000258: 43,2213           05561                           TC       ENDEXTVB                              
009664,000259: 
009665,000260: 43,2214           06226        VNLODCDU           VN       2522                                  
009666,000261: 43,2215           12200        IMUCOARV           VN       4100                                  
009667,000262: 
009668,000263:                                                                                                  #           DESIGNATE TO DESIRED GIMBAL ANGLES.
009669,000264: 
009670,000265: 43,2216           31310        RRDESNBK           CA       RADCADR                               
009671,000266: 43,2217           02351                           TC       CKMODCAD   +1                         
009672,000267: 43,2220           02076                           TC       TESTXACT                              
009673,000268: 43,2221           35020                           CA       RNDVZBIT                              #  IS P20 RUNNING?
009674,000269: 43,2222           70074                           MASK     FLAGWRD0                              
009675,000270: 43,2223           10000                           CCS      A                                     
009676,000271: 43,2224           12114                           TCF      XACTALM                               #  OPERATOR ERROR IF IN P20
009677,000272: 43,2225           42302                           CS       OCT41000                              #  TERMINATE PRESENT DESIGNATION
009678,000273: 43,2226           71101                           MASK     RADMODES                              
009679,000274: 43,2227           55101                           TS       RADMODES                              
009680,000275: 
009681,000276: 43,2230           32247                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
009682,000277: 43,2231           04655                           TC       BANKCALL                              
009683,000278: 43,2232           20226                           CADR     GOXDSPF                               
009684,000279: 43,2233           05561                           TC       TERMEXTV                              
009685,000280: 43,2234           12230                           TCF      -4                                    #  V33
009686,000281: 
009687,000282: 43,2235           04655                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
009688,000283: 43,2236           64000                           CADR     AURLOKON                              
009689,000284: 
009690,000285: 43,2237           32215                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
009691,000286: 43,2240           04655                           TC       BANKCALL                              
009692,000287: 43,2241           20527                           CADR     EXDSPRET                              
009693,000288: 
009694,000289: 43,2242           35011                           CAF      PRIO20                                
009695,000290: 43,2243           05155                           TC       FINDVAC                               
009696,000291: 43,2244  E7,1433                                  EBANK=   LOSCOUNT                              
009697,000292: 43,2244           02250 66107                     2CADR    RRDESK2                               
009698,000293: 
009699,000294: 43,2246           15561                           TCF      TERMEXTV                              #  FREES DISPLAY.
009700,000295: 
009701,000296: 43,2247           06111        VNLDRCDU           VN       2473                                  
009702,000297: 43,2250  43,2215               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
009703,000298: 
009704,000299: 43,2250           04655        RRDESK2            TC       BANKCALL                              
009705,000300: 43,2251           52450                           CADR     RRDESNB                               
009706,000301: 
009707,000302: 43,2252           02253                           TC       +1                                    #  DUMMY NEEDED SINCE DESRETRN DOES INCR
009708,000303: 43,2253           04655                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF DESIGNATE
009709,000304: 43,2254           17623                           CADR     RADSTALL                              
009710,000305: 
009711,000306: 43,2255           02257                           TC       +2                                    #  BADEND-NO LOCKON OR OUT OF LIMITS
009712,000307: 43,2256           05225                           TC       ENDOFJOB                              #  GOODEND-LOCKON ACHIEVED
009713,000308: 43,2257           05646                           TC       ALARM                                 
009714,000309: 43,2260           00503                           OCT      503                                   #  TURN ON ALARM LIGHT -503 DESIGNATE FAIL
009715,000310: 43,2261           05225                           TC       ENDOFJOB                              
009716,000311: 
009717,000312: 43,2262           11101        RRDESEND           CCS      RADMODES                              #  TERMINATE CONTINUOUS DESIGNATE ONLY
009718,000313: 43,2263           12121                           TCF      GOPIN                                 
009719,000314: 43,2264           12121                           TCF      GOPIN                                 
009720,000315: 43,2265           12266                           TCF      +1                                    
009721,000316: 43,2266           42302                           CS       OCT41000                              #  BEGDES GOES TO ENDRADAR
009722,000317: 43,2267           00004                           INHINT                                         #  RELINT DONE IN DOWNFLAG
009723,000318: 43,2270           71101                           MASK     RADMODES                              
009724,000319: 43,2271           55101                           TS       RADMODES                              
009725,000320: 43,2272           04655                           TC       BANKCALL                              
009726,000321: 43,2273           51061                           CADR     CLRADMOD                              
009727,000322: 43,2274           35047                           CAF      1SEC                                  
009728,000323: 43,2275           04655                           TC       BANKCALL                              
009729,000324: 43,2276           01730                           CADR     DELAYJOB                              
009730,000325: 43,2277           05575                           TC       DOWNFLAG                              #  ENABLE R25 GIMBAL MONITOR
009731,000326: 43,2300           00126                           ADRES    NORRMON                               
009732,000327: 43,2301           12121                           TCF      GOPIN                                 
009733,000328: 43,2302           41000        OCT41000           OCT      41000                                 #  CONTINUOUS DESIGNATE - DESIGNATE
009734,000329: 
009735,000330: 23,2000                                           BANK     23                                    
009736,000331: 42,2000                                           SETLOC   EXTVB1                                
009737,000332: 42,2000                                           BANK                                           
009738,000333: 42,2000                                           COUNT*   $$/EXTVB                              
009739,000334: 
009740,000335: 42,2000           04704        AURLOKON           TC       MAKECADR                              
009741,000336: 42,2001           55116                           TS       DESRET                                
009742,000337: 42,2002           35025                           CAF      TWO                                   
009743,000338: 42,2003           55156                           TS       OPTION1    +1                         
009744,000339: 42,2004           36216                           CAF      SIX                                   #  OPTION CODE FOR V04N12
009745,000340: 42,2005           55155                           TS       OPTION1                               
009746,000341: 
009747,000342: 42,2006           32045                 -5        CAF      V04N0672                              
009748,000343: 42,2007           04655                           TC       BANKCALL                              #       R2   00001  LOCK-ON
009749,000344: 42,2010           20245                           CADR     GOMARKFR                              
009750,000345: 42,2011           15561                           TCF      ENDEXT                                #  V34
009751,000346: 42,2012           12017                           TCF      +5                                    #  V33
009752,000347: 42,2013           12006                           TCF      -5                                    #  V32
009753,000348: 42,2014           35024                           CAF      BIT3                                  
009754,000349: 42,2015           05553                           TC       BLANKET                               
009755,000350: 42,2016           05225                           TC       ENDOFJOB                              
009756,000351: 
009757,000352: 42,2017           31156                 +5        CA       OPTION1    +1                         
009758,000353: 42,2020           75025                           MASK     BIT2                                  
009759,000354: 42,2021           10000                           CCS      A                                     
009760,000355: 42,2022           12025                           TCF      +3                                    #  ON TERM.
009761,000356: 42,2023           35022                           CAF      LOKONBIT                              
009762,000357: 42,2024           12026                           TCF      +2                                    
009763,000358: 42,2025           35030                           CAF      ZERO                                  
009764,000359: 42,2026           00004                           INHINT                                         
009765,000360: 42,2027           56074                           XCH      STATE                                 
009766,000361: 42,2030           72044                           MASK     -LOKONFG                              
009767,000362: 42,2031           26074                           ADS      STATE                                 
009768,000363: 
009769,000364: 42,2032           75022                           MASK     LOKONBIT                              #  IF NO LOCK-ON CALLED FOR, SET BIT15 OF
009770,000365: 42,2033           10000                           CCS      A                                     #  RADMODES TO INDICATE THAT ARBITRARILY-
009771,000366: 42,2034           12041                           TCF      +5                                    #  LONG DESIGNATION IS WANTED (TO BE
009772,000367: 
009773,000368: 42,2035           35010                           CAF      BIT15                                 #  TERMINATED BY FRESH START).
009774,000369: 42,2036           27101                           ADS      RADMODES                              
009775,000370: 42,2037           05563                           TC       UPFLAG                                
009776,000371: 42,2040           00126                           ADRES    NORRMON                               
009777,000372: 42,2041           00003                           RELINT                                         
009778,000373: 42,2042           31116                           CA       DESRET                                
009779,000374: 42,2043           14677                           TCF      BANKJUMP                              
009780,000375: 
009781,000376: 42,2044           77757        -LOKONFG           OCT      -20                                   
009782,000377: 42,2045           01006        V04N0672           VN       406                                   
009783,000378: 
009784,000379: 43,2303                                           BANK     43                                    
009785,000380: 43,2000                                           SETLOC   EXTVERBS                              
009786,000381: 43,2000                                           BANK                                           
009787,000382: 43,2303                                           COUNT*   $$/EXTVB                              
009788,000383: 
009789,000384: 
009790,000385: 43,2303  E5,1737                                  EBANK=   OGC                                   
009791,000386: 
009792,000387:                                                                                                  #           IMUFINEK     VERB 42            DESCRIPTION
009793,000388:                                                                                                  #               FINE ALIGN IMU
009794,000389:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
009795,000390:                                                                                                  #               2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
009796,000391:                                                                                                  #                  RESPONSES
009797,000392:                                                                                                  #                  A. TERMINATE
009798,000393:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYSTEM.
009799,000394:                                                                                                  #                  B. PROCEED OR ENTER
009800,000395:                                                                                                  #                     1. RE-DISPLAY VERB 42
009801,000396:                                                                                                  #                     2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
009802,000397:                                                                                                  #                     3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
009803,000398:                                                                                                  #                        A. FAILED
009804,000399:                                                                                                  #                           1. RELEASE EXT VERB DISPLAY SYSTEM.
009805,000400:                                                                                                  #                        B. GOOD
009806,000401:                                                                                                  #                           1. EXECUTE IMUPULSE (TORQUE IRIGS).
009807,000402:                                                                                                  #                           2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
009808,000403: 
009809,000404: 43,2303           02350        IMUFINEK           TC       CKMODCAD                              
009810,000405: 43,2304           02076                           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
009811,000406: 43,2305           32332                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
009812,000407: 43,2306           04655                           TC       BANKCALL                              
009813,000408: 43,2307           20226                           CADR     GOXDSPF                               
009814,000409: 43,2310           05561                           TC       TERMEXTV                              
009815,000410: 43,2311           02312                           TC       +1                                    #  PROCEED WITHOUT A LOAD
009816,000411: 
009817,000412: 43,2312           32333                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
009818,000413: 43,2313           04655                           TC       BANKCALL                              
009819,000414: 43,2314           20527                           CADR     EXDSPRET                              
009820,000415: 
009821,000416: 43,2315           04655                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
009822,000417: 43,2316           17121                           CADR     IMUFINE                               
009823,000418: 
009824,000419: 43,2317           04655                           TC       BANKCALL                              #  HIBERNATION
009825,000420: 43,2320           17625                           CADR     IMUSTALL                              
009826,000421: 43,2321           05561                           TC       ENDEXTVB                              
009827,000422: 
009828,000423: 43,2322           32331        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
009829,000424: 43,2323           04655                           TC       BANKCALL                              
009830,000425: 43,2324           17234                           CADR     IMUPULSE                              
009831,000426: 
009832,000427: 43,2325           04655                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
009833,000428: 43,2326           17625                           CADR     IMUSTALL                              
009834,000429: 43,2327           05561                           TC       ENDEXTVB                              
009835,000430: 43,2330           05561                           TC       ENDEXTVB                              
009836,000431: 
009837,000432: 43,2331           02737        LGYROBIN           ECADR    OGC                                   
009838,000433: 43,2332           06335        VNLODGYR           VN       2593                                  
009839,000434: 43,2333           12400        IMUFINEV           VN       4200                                  
009840,000435:                                                                                                  #           GOLOADLV     VERB 50            DESCRIPTION
009841,000436:                                                                                                  #                        AND OTHER PLEASE
009842,000437: 
009843,000438:                                                                                                  #                        DO SOMETHING VERBS
009844,000439:                                                                                                  #               PLEASE PERFORM, MARK, CALIBRATE, ETC.
009845,000440:                                                                                                  #               1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN  PERFORMED, AND THE PROGRAM DOES THE
009846,000441:                                                                                                  #                  SAME RECALL AS A COMPLETED LOAD.
009847,000442:                                                                                                  #               2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
009848,000443: 
009849,000444: 43,2334  40,2000                                  SBANK=   PINSUPER                              #  FOR LOADLV1 AND SHOWSUM CADR'S.
009850,000445: 
009851,000446: 43,2334           04445        GOLOADLV           TC       FLASHOFF                              
009852,000447: 
009853,000448: 43,2335           34213                           CAF      PINSUPBT                              
009854,000449: 43,2336           00006                           EXTEND                                         
009855,000450: 43,2337           01007                           WRITE    SUPERBNK                              
009856,000451: 43,2340           04674                           TC       POSTJUMP                              
009857,000452: 43,2341           62001                           CADR     LOADLV1                               
009858,000453: 
009859,000454:                                                                                                  #  VERB 47 - AGS INITIALIZATION - R47.
009860,000455: 
009861,000456:                                                                                                  #           SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
009862,000457: 
009863,000458: 43,2342           02076        V47TXACT           TC       TESTXACT                              #  NO OTHER EXTVERB.
009864,000459: 43,2343           35013                           CAF      PRIO4                                 
009865,000460: 43,2344           05155                           TC       FINDVAC                               
009866,000461: 43,2345  E4,1606                                  EBANK=   AGSBUFF                               
009867,000462: 43,2345           02000 60104                     2CADR    AGSINIT                               
009868,000463: 
009869,000464: 43,2347           05225                           TC       ENDOFJOB                              
009870,000465: 
009871,000466: 43,2350           31306        CKMODCAD           CA       MODECADR                              
009872,000467: 43,2351           00006                           EXTEND                                         
009873,000468: 43,2352           16716                           BZF      TCQ                                   
009874,000469: 43,2353           02120                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
009875,000470: 
009876,000471:                                                                                                  #           ALINTIME     VERB 55            DESCRIPTION
009877,000472:                                                                                                  #                  REQUIRE POO OR POO-.
009878,000473:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
009879,000474:                                                                                                  #               2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
009880,000475:                                                                                                  #               3. REQUIRE EXECUTION OF VERB 23.
009881,000476:                                                                                                  #               4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
009882,000477:                                                                                                  #               5. RELEASE EXT VERB DISPLAY SYSTEM
009883,000478: 
009884,000479: 43,2354           02076        ALINTIME           TC       TESTXACT                              
009885,000480: 43,2355           32405                           CAF      VNLODDT                               
009886,000481: 43,2356           04655                           TC       BANKCALL                              
009887,000482: 43,2357           20226                           CADR     GOXDSPF                               
009888,000483: 43,2360           05561                           TC       ENDEXT                                #  TERMINATE
009889,000484: 43,2361           05561                           TC       ENDEXT                                #  PROCEED
009890,000485: 43,2362           42404                           CS       DEC23                                 #  DATA IN OR RESEQUENCE(UNLIKELY)
009891,000486: 43,2363           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
009892,000487: 43,2364           00006                           EXTEND                                         
009893,000488: 43,2365           12367                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
009894,000489: 43,2366           05561                           TC       ENDEXT                                #    WITH V23 (DATA IN).
009895,000490: 
009896,000491: 43,2367           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
009897,000492: 43,2370           35030                           CAF      ZERO                                  
009898,000493: 43,2371           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
009899,000494: 43,2372           54001                           TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
009900,000495: 43,2373           52025                           DXCH     TIME2                                 
009901,000496: 43,2374           52155                           DXCH     MPAC                                  
009902,000497: 43,2375           53053                           DXCH     DSPTEM2    +1                         #  INCREMENT
009903,000498: 43,2376           20155                           DAS      MPAC                                  
009904,000499: 
009905,000500: 43,2377           07231                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
009906,000501: 43,2400           52155                           DXCH     MPAC                                  #  NEW CLOCK.
009907,000502: 43,2401           20025                           DAS      TIME2                                 
009908,000503: 43,2402           00003                           RELINT                                         
009909,000504: 43,2403           05561        UPDTMEND           TC       ENDEXT                                
009910,000505: 
009911,000506: 43,2404           00027        DEC23              DEC      23         B-14                       #  V 23
009912,000507: 
009913,000508: 43,2405           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
009914,000509: 
009915,000510:                                                                                                  #  SET UP FOR RADAR SAMPLING.
009916,000511: 
009917,000512: 42,2046                                           BANK     42                                    
009918,000513: 43,2000                                           SETLOC   EXTVERBS                              
009919,000514: 43,2000                                           BANK                                           
009920,000515: 
009921,000516: 43,2406  E4,1606                                  EBANK=   RSTACK                                
009922,000517: 
009923,000518: 43,2406                                           COUNT*   $$/R0477                              
009924,000519: 
009925,000520: 43,2406           02076        R77                TC       TESTXACT                              
009926,000521: 43,2407           05575                           TC       DOWNFLAG                              
009927,000522: 43,2410           00063                           ADRES    R04FLAG                               
009928,000523: 43,2411           05563                           TC       UPFLAG                                
009929,000524: 43,2412           00117                           ADRES    R77FLAG                               
009930,000525: 43,2413           12423                           TCF      R04Z                                  
009931,000526: 
009932,000527: 43,2414           35020        R04                CAF      RNDVZBIT                              
009933,000528: 43,2415           70074                           MASK     FLAGWRD0                              
009934,000529: 43,2416           10000                           CCS      A                                     
009935,000530: 43,2417           02120                           TC       ALM/END                               
009936,000531: 43,2420           02076                           TC       TESTXACT                              
009937,000532: 43,2421           05563                           TC       UPFLAG                                
009938,000533: 43,2422           00063                           ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
009939,000534: 
009940,000535: 43,2423           35014        R04Z               CAF      EBANK4                                
009941,000536: 43,2424           54003                           TS       EBANK                                 
009942,000537: 43,2425           32643                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
009943,000538: 43,2426           55525                           TS       RSAMPDT                               
009944,000539: 43,2427           35030                           CAF      ZERO                                  
009945,000540: 43,2430           55524                           TS       RTSTLOC                               
009946,000541: 43,2431           55526                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
009947,000542: 
009948,000543: 43,2432           00004                           INHINT                                         
009949,000544: 43,2433           42645                           CS       LRPOSCAL                              #  INITIALIZE
009950,000545: 43,2434           71101                           MASK     RADMODES                              #      BIT 9   LR RANGE  LOW SCALE =0
009951,000546: 43,2435           55101                           TS       RADMODES                              #      BIT 6   LR POS 1 =0
009952,000547: 43,2436           32645                           CAF      LRPOSCAL                              #      BIT 3   RR RANGE  LOW SCALE =0
009953,000548: 43,2437           00006                           EXTEND                                         
009954,000549: 43,2440           02033                           RAND     CHAN33                                
009955,000550: 43,2441           27101                           ADS      RADMODES                              
009956,000551: 43,2442           00003                           RELINT                                         
009957,000552: 
009958,000553: 43,2443           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG       R04 =1    R77 =0
009959,000554: 43,2444           75016                           MASK     R04FLBIT                              
009960,000555: 43,2445           10000                           CCS      A                                     
009961,000556: 43,2446           12600                           TCF      R04K                                  
009962,000557: 
009963,000558: 43,2447           35026                           CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
009964,000559: 43,2450           55156                           TS       OPTION1    +1                         
009965,000560: 43,2451           35024        R04A               CAF      BIT3                                  #  OPTION CODE FOR V04N12
009966,000561: 
009967,000562: 43,2452           55155                           TS       OPTION1                               
009968,000563: 43,2453           32640                           CAF      V04N06X                               
009969,000564: 43,2454           04655                           TC       BANKCALL                              #        R2   00001  RENDEZVOUS RADAR
009970,000565: 43,2455           20245                           CADR     GOMARKFR                              #             00002  LANDING RADAR
009971,000566: 43,2456           12606                           TCF      R04END                                #  V34
009972,000567: 43,2457           12464                           TCF      +5                                    #  V33
009973,000568: 43,2460           12453                           TCF      R04A       +2                         #  R2
009974,000569: 43,2461           35024                           CAF      BIT3                                  
009975,000570: 43,2462           05553                           TC       BLANKET                               
009976,000571: 43,2463           05225                           TC       ENDOFJOB                              
009977,000572: 
009978,000573: 43,2464           31156                           CA       OPTION1    +1                         #  SAVE DESIRED OPTION       RR =1      LR =2
009979,000574: 43,2465           55521                           TS       RTSTDEX                               
009980,000575: 
009981,000576: 43,2466           36216        R04X               CAF      SIX                                   #  RR OR LR DESIRED
009982,000577: 43,2467           71521                           MASK     RTSTDEX                               
009983,000578: 43,2470           10000                           CCS      A                                     
009984,000579: 43,2471           12602                           TCF      R04L                                  #  LANDING RADAR
009985,000580: 43,2472           55523                           TS       RTSTBASE                              #  FOR RR   BASE = 0, MAX = 1
009986,000581: 
009987,000582: 43,2473           35025        R04B               CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
009988,000583: 43,2474           00006                           EXTEND                                         
009989,000584: 43,2475           02033                           RAND     CHAN33                                
009990,000585: 43,2476           00006                           EXTEND                                         
009991,000586: 43,2477           12510                           BZF      R04C                                  #  YES
009992,000587: 
009993,000588: 43,2500           32642                           CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
009994,000589: 43,2501           55046                           TS       DSPTEM1                               
009995,000590: 43,2502           32641                           CAF      V50N25X                               
009996,000591: 43,2503           04655                           TC       BANKCALL                              
009997,000592: 43,2504           20237                           CADR     GOMARK4                               
009998,000593: 43,2505           12606                           TCF      R04END                                #  V34
009999,000594: 43,2506           12473                           TCF      R04B                                  #  V33
010000,000595: 43,2507           12500                           TCF      -7                                    #  E
010001,000596: 
010002,000597: 43,2510           35011        R04C               CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
010003,000598: 43,2511           00006                           EXTEND                                         
010004,000599: 43,2512           05012                           WOR      CHAN12                                
010005,000600: 
010006,000601: 43,2513           35025                           CAF      TWO                                   
010007,000602: 43,2514           55522                           TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
010008,000603: 
010009,000604: 43,2515           05252                           TC       WAITLIST                              
010010,000605: 43,2516  E4,1606                                  EBANK=   RSTACK                                
010011,000606: 43,2516           02000 52104                     2CADR    RADSAMP                               
010012,000607: 
010013,000608: 43,2520           00003                           RELINT                                         
010014,000609: 
010015,000610: 43,2521           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG      R04 =1    R77 =0
010016,000611: 43,2522           75016                           MASK     R04FLBIT                              
010017,000612: 
010018,000613: 43,2523           10000                           CCS      A                                     
010019,000614: 43,2524           12121                           TCF      GOPIN                                 #  R77
010020,000615: 
010021,000616: 43,2525           36216                           CAF      SIX                                   #  RR OR LR
010022,000617: 43,2526           71521                           MASK     RTSTDEX                               
010023,000618: 43,2527           10000                           CCS      A                                     
010024,000619: 43,2530           12545                           TCF      R04LR                                 #  LR
010025,000620: 
010026,000621: 43,2531           32634        R04RR              CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
010027,000622: 43,2532           04655                           TC       BANKCALL                              #           R1  +  XXX.XX DEG   TRUNNION
010028,000623: 43,2533           20226                           CADR     GOMARKF                               #           R2  +  XXX.XX DEG   SHAFT
010029,000624: 43,2534           12606                           TCF      R04END                                #  V34      R3     BLANK
010030,000625: 43,2535           12537                           TCF      +2                                    #  V33
010031,000626: 43,2536           12531                           TCF      R04RR                                 #  V32
010032,000627: 
010033,000628: 43,2537           32635                           CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
010034,000629: 43,2540           04655                           TC       BANKCALL                              #           R1  +- XXX.XX NM    RANGE
010035,000630: 43,2541           20226                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   RANGE RATE
010036,000631: 43,2542           12606                           TCF      R04END                                #  V34      R3     BLANK
010037,000632: 43,2543           12561                           TCF      R04Y                                  #  V33
010038,000633: 43,2544           12531                           TCF      R04RR                                 #  V32
010039,000634: 
010040,000635: 43,2545           32636        R04LR              CAF      V16N66                                #  DISPLAY LR RANGE AND POSITION (1/SEC)
010041,000636: 43,2546           04655                           TC       BANKCALL                              #           R1  +- XXXXX. FT    LR RANGE
010042,000637: 43,2547           20226                           CADR     GOMARKF                               #           R2  +  0000X.       POS. NO.
010043,000638: 43,2550           12606                           TCF      R04END                                #  V34      R3     BLANK
010044,000639: 43,2551           12553                           TCF      +2                                    #  V33
010045,000640: 43,2552           12545                           TCF      R04LR                                 #  V32
010046,000641: 
010047,000642: 43,2553           32637                           CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
010048,000643: 43,2554           04655                           TC       BANKCALL                              #           R1  +- XXXXX. FPS   LR V(X)
010049,000644: 43,2555           20226                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   LR V(Y)
010050,000645: 43,2556           12606                           TCF      R04END                                #  V34      R3  +- XXXXX. FPS   LR V(Z)
010051,000646: 43,2557           12561                           TCF      R04Y                                  #  V33
010052,000647: 43,2560           12545                           TCF      R04LR                                 #  V32
010053,000648: 
010054,000649: 43,2561           35030        R04Y               CAF      ZERO                                  #  TO TERMINATE SAMPLING
010055,000650: 43,2562           55525                           TS       RSAMPDT                               
010056,000651: 43,2563           35050                           CAF      2SECS                                 #  WAIT FOR LAST RADARUPT
010057,000652: 43,2564           04655                           TC       BANKCALL                              
010058,000653: 43,2565           01730                           CADR     DELAYJOB                              
010059,000654: 43,2566           32643                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
010060,000655: 43,2567           55525                           TS       RSAMPDT                               
010061,000656: 43,2570           35030                           CAF      ZERO                                  #  FOR STORING RESULTS
010062,000657: 43,2571           55524                           TS       RTSTLOC                               
010063,000658: 43,2572           36216                           CAF      SIX                                   
010064,000659: 43,2573           71521                           MASK     RTSTDEX                               
010065,000660: 43,2574           10000                           CCS      A                                     
010066,000661: 43,2575           45026                           CS       ONE                                   #  WAS LR
010067,000662: 43,2576           65025                           AD       TWO                                   #  WAS RR
010068,000663: 
010069,000664: 
010070,000665: 43,2577           12465                           TCF      R04X       -1                         
010071,000666: 
010072,000667: 43,2600           32644        R04K               CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.
010073,000668: 43,2601           55525                           TS       RSAMPDT                               
010074,000669: 
010075,000670: 43,2602           35025        R04L               CAF      TWO                                   
010076,000671: 43,2603           55523                           TS       RTSTBASE                              #  FOR LR   BASE = 2, MAX = 3
010077,000672: 43,2604           36216                           CAF      SIX                                   
010078,000673: 43,2605           12514                           TCF      R04C       +4                         
010079,000674: 43,2606           35030        R04END             CAF      ZERO                                  #  ZERO RSAMPDT
010080,000675: 43,2607           55525                           TS       RSAMPDT                               #  TO TERMINATE SAMPLING
010081,000676: 43,2610           35017                           CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
010082,000677: 43,2611           04655                           TC       BANKCALL                              #  PENDING RUPT.
010083,000678: 43,2612           01730                           CADR     DELAYJOB                              
010084,000679: 
010085,000680: 43,2613           00004                           INHINT                                         
010086,000681: 43,2614           45011                           CS       BIT14                                 #  DISABLE RR AUTO TRACKER
010087,000682: 43,2615           00006                           EXTEND                                         
010088,000683: 43,2616           03012                           WAND     CHAN12                                
010089,000684: 
010090,000685: 43,2617           05575                           TC       DOWNFLAG                              
010091,000686: 43,2620           00063                           ADRES    R04FLAG                               #  SIGNAL END OF R04.
010092,000687: 
010093,000688: 43,2621           05561                           TC       ENDEXT                                
010094,000689: 
010095,000690: 43,2622           35014        R77END             CAF      EBANK4                                #  TO TERMINATE SAMPLING
010096,000691: 43,2623           54003                           TS       EBANK                                 
010097,000692: 43,2624           35030                           CAF      ZERO                                  
010098,000693: 43,2625           55525                           TS       RSAMPDT                               
010099,000694: 43,2626           35021                           CAF      BIT6                                  #  WAIT 320 MS FOR POSSIBLE
010100,000695: 43,2627           04655                           TC       BANKCALL                              #  PENDING RUPT.
010101,000696: 43,2630           01730                           CADR     DELAYJOB                              
010102,000697: 
010103,000698: 43,2631           05575                           TC       DOWNFLAG                              
010104,000699: 43,2632           00117                           ADRES    R77FLAG                               
010105,000700: 43,2633           15561                           TCF      ENDEXT                                
010106,000701: 
010107,000702: 43,2634           04110        V16N72             VN       1672                                  
010108,000703: 43,2635           04116        V16N78             VN       1678                                  
010109,000704: 43,2636           04102        V16N66             VN       1666                                  
010110,000705: 43,2637           04103        V16N67             VN       1667                                  
010111,000706: 43,2640           01006        V04N06X            VN       406                                   
010112,000707: 43,2641           14431        V50N25X            VN       5025                                  
010113,000708: 43,2642           00201        201R04             OCT      00201                                 
010114,000709: 43,2643           00145        1SEC+1             DEC      101        B-14                       
010115,000710: 43,2644           00032        250MS+1            DEC      26         B-14                       
010116,000711: 43,2645           00444        LRPOSCAL           OCT      444                                   
010117,000712: 
010118,000713: 43,2646                                           COUNT*   $$/EXTVB                              
010119,000714: 
010120,000715:                                                                                                  #           IMUATTCK      VERB 43           DESCRIPTION
010121,000716:                                                                                                  #               LOAD IMU ATTITUDE ERROR METERS
010122,000717:                                                                                                  #                  1. REQUIRE POO OR FRESH START.
010123,000718:                                                                                                  #                  2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
010124,000719:                                                                                                  #                  3. REQUIRE THAT NEEDLES BE OFF.
010125,000720:                                                                                                  #                  4. REQUEST LOAD OF N22  (VAUES TO BE DISPLAYED).
010126,000721:                                                                                                  #                  5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
010127,000722: 
010128,000723: 43,2646           02123        IMUATTCK           TC       CHKPOOH                               #  VB 76 - LOAD IMU ATT. ERROR METERS
010129,000724: 
010130,000725: 43,2647           32705                           CAF      SBITS4&5                              #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
010131,000726: 43,2650           00006                           EXTEND                                         #  CDUS BITS ARE ON
010132,000727: 43,2651           02012                           RAND     CHAN12                                
010133,000728: 43,2652           10000                           CCS      A                                     
010134,000729: 43,2653           12120                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010135,000730: 
010136,000731: 43,2654           34367                           CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
010137,000732: 43,2655           00006                           EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
010138,000733: 43,2656           06031                           RXOR     CHAN31                                
010139,000734: 43,2657           74367                           MASK     BIT13-14                              
010140,000735: 43,2660           00006                           EXTEND                                         
010141,000736: 43,2661           12663                           BZF      +2                                    #  NEEDLES IS OFF.
010142,000737: 43,2662           12120                           TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
010143,000738: 
010144,000739: 43,2663           02076                           TC       TESTXACT                              
010145,000740: 
010146,000741: 43,2664           32214                           CAF      VNLODCDU                              
010147,000742: 43,2665           04655                           TC       BANKCALL                              
010148,000743: 43,2666           20226                           CADR     GOXDSPF                               
010149,000744: 43,2667           05561                           TC       ENDEXT                                #  V34
010150,000745: 43,2670           02671                           TC       +1                                    
010151,000746: 43,2671           32704                           CAF      V43K                                  #  REDISPLAY OUR VERB.
010152,000747: 43,2672           04655                           TC       BANKCALL                              
010153,000748: 43,2673           20527                           CADR     EXDSPRET                              
010154,000749: 43,2674           35021                           CAF      BIT6                                  
010155,000750: 43,2675           00006                           EXTEND                                         
010156,000751: 43,2676           05012                           WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
010157,000752: 43,2677           35025                           CAF      TWO                                   
010158,000753: 43,2700           05252                           TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
010159,000754: 43,2701     1206                                  EBANK=   THETAD                                
010160,000755: 43,2701           02046 64102                     2CADR    ATTCK2                                
010161,000756: 
010162,000757: 43,2703           15561                           TCF      ENDEXT                                
010163,000758: 
010164,000759: 42,2046                                           BANK     42                                    
010165,000760: 42,2000                                           SETLOC   PINBALL3                              #  SOMETHING IN B42.
010166,000761: 42,2000                                           BANK                                           
010167,000762: 
010168,000763: 42,2046                                           COUNT*   $$/EXTVB                              
010169,000764: 
010170,000765: 42,2046           35025        ATTCK2             CAF      TWO                                   #  PUT OUT COMMANDS.
010171,000766: 42,2047           54002                 +1        TS       Q                                     #  CDU WILL LIMIT EXCESS DATA.
010172,000767: 42,2050           50000                           INDEX    A                                     
010173,000768: 42,2051           31206                           CA       THETAD                                
010174,000769: 42,2052           00006                           EXTEND                                         
010175,000770: 42,2053           75012                           MP       ATTSCALE                              
010176,000771: 42,2054           50002                           INDEX    Q                                     
010177,000772: 42,2055           56050                           XCH      CDUXCMD                               
010178,000773: 42,2056           10002                           CCS      Q                                     
010179,000774: 42,2057           12047                           TCF      ATTCK2     +1                         
010180,000775: 
010181,000776: 42,2060           37711                           CAF      13,14,15                              
010182,000777: 42,2061           00006                           EXTEND                                         
010183,000778: 42,2062           05014                           WOR      CHAN14                                
010184,000779: 42,2063           15321                           TCF      TASKOVER                              #  LEAVE ERROR COUNTERS ENABLED.
010185,000780: 
010186,000781: 42,2064     5012               ATTSCALE           =        BIT13                                 
010187,000782: 
010188,000783: 07,2622                                           BANK     7                                     
010189,000784: 43,2000                                           SETLOC   EXTVERBS                              
010190,000785: 43,2000                                           BANK                                           
010191,000786: 
010192,000787: 43,2704                                           COUNT*   $$/EXTVB                              
010193,000788: 
010194,000789: 43,2704           12600        V43K               VN       4300                                  
010195,000790: 43,2705           00030        SBITS4&5           OCT      30                                    
010196,000791:                                                                                                  #           V82PERF     VERB 82             DESCRIPTION
010197,000792:                                                                                                  #               REQUEST ORBIT PARAMETERS DISPLAY (R30)
010198,000793:                                                                                                  #  1. IF AVERAGE G IS OFF:
010199,000794:                                                                                                  #           FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010200,000795:                                                                                                  #            TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
010201,000796:                                                                                                  #            CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
010202,000797:                                                                                                  #           SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010203,000798:                                                                                                  #           CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
010204,000799:                                                                                                  #            RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
010205,000800:                                                                                                  #            HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010206,000801:                                                                                                  #            HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
010207,000802:                                                                                                  #            INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010208,000803:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
010209,000804:                                                                                                  #            NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010210,000805:                                                                                                  #            ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010211,000806:                                                                                                  #            DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010212,000807:                                                                                                  #            ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010213,000808: 
010214,000809:                                                                                                  #  2. IF AVERAGE G IS ON:
010215,000810:                                                                                                  #           CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
010216,000811:                                                                                                  #            FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
010217,000812:                                                                                                  #            OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010218,000813:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010219,000814:                                                                                                  #           IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010220,000815:                                                                                                  #            RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010221,000816: 
010222,000817: 43,2706           02076        V82PERF            TC       TESTXACT                              
010223,000818: 
010224,000819: 43,2707           35071                           CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
010225,000820: 43,2710           05216                           TC       PRIOCHNG                              
010226,000821: 43,2711           00006                           EXTEND                                         
010227,000822: 43,2712           32715                           DCA      V82CON                                
010228,000823: 43,2713           05235                           TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
010229,000824: 
010230,000825: 43,2714  E4,1660                                  EBANK=   HAPO                                  
010231,000826: 43,2714           03236 44104  V82CON             2CADR    V82CALL                               
010232,000827: 
010233,000828: 
010234,000829:                                                                                                  #           VB83PERF     VERB 83            DESCRIPTION
010235,000830:                                                                                                  #               REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010236,000831:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
010237,000832:                                                                                                  #               2. SCHEDULE R31CALL WITH PRIORITY 5.
010238,000833:                                                                                                  #                  A. DISPLAY
010239,000834:                                                                                                  #                      R1  RANGE
010240,000835:                                                                                                  #                      R2  RANGE RATE
010241,000836:                                                                                                  #                      R3  THETA
010242,000837: 
010243,000838: 43,2716           02076        V83PERF            TC       TESTXACT                              
010244,000839: 
010245,000840: 43,2717           35067                           CAF      PRIO5                                 
010246,000841: 43,2720           05155                           TC       FINDVAC                               
010247,000842: 43,2721  E7,1564                                  EBANK=   TSTRT                                 
010248,000843: 43,2721           03265 76067                     2CADR    V83CALL                               
010249,000844: 
010250,000845: 43,2723           05225                           TC       ENDOFJOB                              
010251,000846: 
010252,000847:                                                                                                  #  VERB 89 DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
010253,000848: 
010254,000849:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED.  CALCULATES AND
010255,000850:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
010256,000851: 
010257,000852:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
010258,000853:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
010259,000854: 
010260,000855:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
010261,000856:                                                                                                  #  ORIENTATION KNOWN TO LGC, CONTINUE.
010262,000857: 
010263,000858:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
010264,000859:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
010265,000860:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
010266,000861:                                                                                                  #  AFTER KEYING IN PROCEED.
010267,000862: 
010268,000863:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
010269,000864: 
010270,000865:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
010271,000866: 
010272,000867:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
010273,000868:                                                                                                  #  PREPARED FOR VECPOINT.
010274,000869: 
010275,000870:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
010276,000871:                                                                                                  #  BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
010277,000872: 
010278,000873:                                                                                                  #  7. RECYCLE - RETURN TO STEP 4.
010279,000874:                                                                                                  #     TERMINATE - EXIT R63.
010280,000875:                                                                                                  #     PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
010281,000876: 
010282,000877: 
010283,000878: 43,2724           02123        V89PERF            TC       CHKPOOH                               
010284,000879: 43,2725           02076                           TC       TESTXACT                              
010285,000880: 43,2726           35012                           CAF      PRIO10                                
010286,000881: 43,2727           05155                           TC       FINDVAC                               
010287,000882: 43,2730  E4,1614                                  EBANK=   RONE                                  
010288,000883: 43,2730           02000 54104                     2CADR    V89CALL                               
010289,000884: 43,2732           05225                           TC       ENDOFJOB                              
010290,000885: 
010291,000886:                                                                                                  #           V90PERF     VERB 90             DESCRIPTION
010292,000887:                                                                                                  #               REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
010293,000888:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
010294,000889:                                                                                                  #               2. SCHEDULE R36 CALL WITH PRIORITY 10
010295,000890:                                                                                                  #                  A. DISPLAY
010296,000891:                                                                                                  #                      TIME OF EVENT - HOURS , MINUTES , SECONDS
010297,000892:                                                                                                  #                      Y  OUT-OF-PLANE POSITION - NAUTICAL MILES
010298,000893:                                                                                                  #                      YDOT  OUT-OF-PLANE VELOCITY - FEET/SECOND
010299,000894:                                                                                                  #                      PSI  ANGLE BTW LINE OF SIGHT AND FORWARD
010300,000895:                                                                                                  #                           DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
010301,000896: 
010302,000897: 43,2733           02076        V90PERF            TC       TESTXACT                              
010303,000898: 43,2734           35071                           CAF      PRIO7                                 #  R36,V90
010304,000899: 43,2735           05155                           TC       FINDVAC                               
010305,000900: 43,2736  E4,1614                                  EBANK=   RPASS36                               
010306,000901: 43,2736           02530 10104                     2CADR    R36                                   
010307,000902: 43,2740           15225                           TCF      ENDOFJOB                              
010308,000903:                                                                                                  #           MINIMP     VERB 76              DESCRIPTION
010309,000904:                                                                                                  #               MINIMUM IMPULSE MODE
010310,000905:                                                                                                  #               1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
010311,000906: 
010312,000907: 43,2741           00004        MINIMP             INHINT                                         
010313,000908: 43,2742           41102                           CS       DAPBOOLS                              
010314,000909: 43,2743           75010                           MASK     PULSES                                #  PULSES = 1 INDICATES MIN IMP MODE
010315,000910: 43,2744           27102                           ADS      DAPBOOLS                              
010316,000911: 43,2745           12121                           TCF      GOPIN                                 #  RETURN VIA PINBRNCH
010317,000912: 
010318,000913:                                                                                                  #           NOMINIMP     VERB 77            DESCRIPTION
010319,000914:                                                                                                  #               RATE COMMAND MODE
010320,000915: 
010321,000916:                                                                                                  #               1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
010322,000917:                                                                                                  #               2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
010323,000918: 
010324,000919: 43,2746           35065        NOMINIMP           CAF      EBANK6                                
010325,000920: 43,2747           54003                           TS       EBANK                                 
010326,000921: 43,2750           00004                           INHINT                                         
010327,000922: 43,2751           45010                           CS       PULSES                                
010328,000923: 43,2752           71102                           MASK     DAPBOOLS                              
010329,000924: 43,2753           55102                           TS       DAPBOOLS                              #  PULSES = 0 NOT IN MINIMUM UMPULSE MODE
010330,000925: 43,2754           04737                           TC       IBNKCALL                              
010331,000926: 43,2755           40232                           CADR     ZATTEROR                              
010332,000927: 43,2756           02121                           TC       GOPIN                                 
010333,000928: 
010334,000929: 43,2757           02076        R32                TC       TESTXACT                              
010335,000930: 43,2760           35012                           CAF      PRIO10                                
010336,000931: 43,2761           05155                           TC       FINDVAC                               
010337,000932: 43,2762  E7,1424                                  EBANK=   TIG                                   
010338,000933: 43,2762           02161 26107                     2CADR    JOBR32                                
010339,000934: 43,2764           05225                           TC       ENDOFJOB                              
010340,000935: 
010341,000936:                                                                                                  #           CREWMANU     VERB 49            DESCRIPTION
010342,000937:                                                                                                  #               START AUTOMATIC ATTITUDE MANEUVER
010343,000938:                                                                                                  #               1. REQUIRE PROGRAM 00 ACTIVE.
010344,000939:                                                                                                  #               2. SET EXT VERB DISPLAY BUSY FLAG.
010345,000940:                                                                                                  #               3. SCHEDULE R62DISP WITH PRIORITY 10.
010346,000941:                                                                                                  #               4. RELEASE EXT VERB DISPLAY.
010347,000942: 
010348,000943:                                                                                                  #             R62DISP
010349,000944:                                                                                                  #               1. DISPLAY FLASHING V06,N22.
010350,000945:                                                                                                  #                  RESPONSES
010351,000946:                                                                                                  #                  A. TERMINATE
010352,000947:                                                                                                  #                     1. GO TO GOTOPOOH.
010353,000948:                                                                                                  #                  B. PROCEED
010354,000949:                                                                                                  #                     1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010355,000950:                                                                                                  #                     2. EXECUTE R60LEM (ATTITUDE MANEUVER).
010356,000951:                                                                                                  #                  C. ENTER
010357,000952:                                                                                                  #                     1. REPEAT FLASHING V06,N22.
010358,000953: 
010359,000954: 43,2765           02123        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
010360,000955: 
010361,000956: 43,2766           02076                           TC       TESTXACT                              
010362,000957: 
010363,000958: 43,2767           35012                           CAF      PRIO10                                
010364,000959: 43,2770           05155                           TC       FINDVAC                               
010365,000960: 43,2771  E6,1673                                  EBANK=   BCDU                                  
010366,000961: 43,2771           02024 46106                     2CADR    R62DISP                               
010367,000962: 43,2773           05225                           TC       ENDOFJOB                              
010368,000963: 
010369,000964:                                                                                                  #  V60      VERB 60, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
010370,000965: 
010371,000966: 43,2774           05575        DAPATTER           TC       DOWNFLAG                              
010372,000967: 43,2775           00013                           ADRES    NEEDLFLG                              
010373,000968: 43,2776           02121                           TC       GOPIN                                 
010374,000969: 
010375,000970:                                                                                                  #  V63      VERB 63, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
010376,000971: 
010377,000972: 43,2777           05563        TOTATTER           TC       UPFLAG                                
010378,000973: 43,3000           00013                           ADRES    NEEDLFLG                              
010379,000974: 43,3001           02121                           TC       GOPIN                                 
010380,000975: 
010381,000976: 
010382,000977:                                                                                                  #  TRMTRACK     VERB 56                     DESCRIPTION
010383,000978:                                                                                                  #               TERMINATE TRACKING (P20 AND P25).
010384,000979:                                                                                                  #               1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
010385,000980:                                                                                                  #               2. REQUIRE P20 OR  P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
010386,000981:                                                                                                  #               3. SCHEDULE V56TOVAC WITH PRIORITY 30.
010387,000982: 
010388,000983:                                                                                                  #               V56TOVAC
010389,000984:                                                                                                  #               1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
010390,000985:                                                                                                  #               2. ZERO GROUP 2 TO HALT P20.
010391,000986:                                                                                                  #               3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
010392,000987: 
010393,000988: 43,3002           33050        TRMTRACK           CA       BITS9+7                               #  IS REND OR P25 FLAG ON
010394,000989: 43,3003           70074                           MASK     FLAGWRD0                              
010395,000990: 43,3004           00006                           EXTEND                                         
010396,000991: 43,3005           12121                           BZF      GOPIN                                 #  NO
010397,000992: 
010398,000993: 43,3006           05575                           TC       DOWNFLAG                              
010399,000994: 43,3007           00010                           ADRES    RNDVZFLG                              
010400,000995: 
010401,000996: 43,3010           05575                           TC       DOWNFLAG                              
010402,000997: 43,3011           00006                           ADRES    P25FLAG                               
010403,000998: 
010404,000999: 43,3012           35022                           CA       TRACKBIT                              #  IS TRACK FLAG ON?
010405,001000: 43,3013           70075                           MASK     FLAGWRD1                              
010406,001001: 43,3014           00006                           EXTEND                                         
010407,001002: 43,3015           12121                           BZF      GOPIN                                 
010408,001003: 
010409,001004: 43,3016           05575                           TC       DOWNFLAG                              
010410,001005: 43,3017           00027                           ADRES    UPDATFLG                              #  UPDATE FLAG DOWN
010411,001006: 43,3020           05575                           TC       DOWNFLAG                              
010412,001007: 43,3021           00031                           ADRES    TRACKFLG                              #  TRACK FLAG DOWN
010413,001008: 43,3022           05575                           TC       DOWNFLAG                              
010414,001009: 43,3023           00007                           ADRES    IMUSE                                 
010415,001010: 
010416,001011: 43,3024           35075                           CAF      PRIO15                                
010417,001012: 43,3025           05216                           TC       PRIOCHNG                              
010418,001013: 
010419,001014: 43,3026           06014                           TC       INTPRET                               
010420,001015: 43,3027           77624                           CALL                                           
010421,001016: 43,3030           27362                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
010422,001017: 43,3031           77776                           EXIT                                           
010423,001018: 
010424,001019: 43,3032           05413                           TC       PHASCHNG                              
010425,001020: 
010426,001021: 43,3033           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
010427,001022: 
010428,001023: 43,3034           00004                           INHINT                                         
010429,001024: 43,3035           04737                           TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
010430,001025: 43,3036           40244                           CADR     STOPRATE                              #  MANEUVER
010431,001026: 
010432,001027: 43,3037           04737                           TC       IBNKCALL                              
010433,001028: 43,3040           40204                           CADR     RESTORDB                              
010434,001029: 
010435,001030: 43,3041           04737                           TC       IBNKCALL                              #  CLEAR BITS 10 + 15 OF RADMODES.
010436,001031: 43,3042           51061                           CADR     CLRADMOD                              
010437,001032: 
010438,001033: 43,3043           45011                           CS       BIT14                                 #  DISABLE LOCKON
010439,001034: 43,3044           00006                           EXTEND                                         
010440,001035: 43,3045           03012                           WAND     CHAN12                                
010441,001036: 43,3046           04674                           TC       POSTJUMP                              
010442,001037: 43,3047           12570                           CADR     GOPROG2                               #  CAUSE RESTART.
010443,001038: 
010444,001039: 43,3050           00500        BITS9+7            OCT      500                                   
010445,001040: 
010446,001041: 
010447,001042:                                                                                                  #           DNEDUMP     VERB 74             DESCRIPTION
010448,001043:                                                                                                  #               INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
010449,001044:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
010450,001045:                                                                                                  #               2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
010451,001046:                                                                                                  #               3. RELEASE EXT VERB DISPLAY.
010452,001047: 
010453,001048: 43,2000                                           SETLOC   EXTVERBS                              
010454,001049: 43,2000                                           BANK                                           
010455,001050: 
010456,001051: 43,3051                                           COUNT*   $$/EXTVB                              
010457,001052: 
010458,001053: 43,3051     0400                                  EBANK=   400                                   
010459,001054: 43,3051           02076        DNEDUMP            TC       TESTXACT                              
010460,001055: 43,3052           33055                           CAF      LDNDUMPI                              
010461,001056: 43,3053           54335                           TS       DNTMGOTO                              
010462,001057: 43,3054           05561                           TC       ENDEXT                                
010463,001058: 
010464,001059: 43,3055  43,3051               V74                EQUALS   DNEDUMP                               
010465,001060: 43,3055           03350        LDNDUMPI           REMADR   DNDUMPI                               
010466,001061: 
010467,001062: 
010468,001063:                                                                                                  #           LEMVEC     VERB 80              DESCRIPTION
010469,001064:                                                                                                  #               UPDATE LEM STATE VECTOR
010470,001065:                                                                                                  #                  RESET VEHUPFLG TO 0
010471,001066: 
010472,001067: 43,3056           03070        LEMVEC             TC       CHECKR32                              
010473,001068: 43,3057           05575                           TC       DOWNFLAG                              
010474,001069: 43,3060           00026                           ADRES    VEHUPFLG                              #  VB 80 - VEHUPFLG DOWN INDICATES LEM
010475,001070: 
010476,001071: 43,3061           03065                           TC       NOUPDOWN                              
010477,001072:                                                                                                  #           CSMVEC     VERB 81              DESCRIPTION
010478,001073:                                                                                                  #               UPDATE CSM STATE VECTOR
010479,001074:                                                                                                  #                  SET   VEHUPFLG TO 1
010480,001075: 
010481,001076: 43,3062           03070        CSMVEC             TC       CHECKR32                              
010482,001077: 43,3063           05563                           TC       UPFLAG                                
010483,001078: 43,3064           00026                           ADRES    VEHUPFLG                              #  VB 81 - VEHUPFLG UP INDICATES CSM
010484,001079: 
010485,001080: 43,3065           05575        NOUPDOWN           TC       DOWNFLAG                              
010486,001081: 43,3066           00030                           ADRES    NOUPFLAG                              
010487,001082: 
010488,001083: 43,3067           02121                           TC       GOPIN                                 
010489,001084: 
010490,001085: 43,3070           40104        CHECKR32           CS       FLAGWRD8                              
010491,001086: 43,3071           75011                           MASK     R32FLBIT                              
010492,001087: 43,3072           00006                           EXTEND                                         
010493,001088: 43,3073           12120                           BZF      ALM/END                               
010494,001089: 43,3074           00002                           TC       Q                                     
010495,001090: 
010496,001091:                                                                                                  #           UPDATOFF   VERB 95      DESCRIPTION
010497,001092:                                                                                                  #               INHIBIT STATE VECTOR UPDATES BY INCORP
010498,001093:                                                                                                  #                  SET NOUPFLAG TO 1
010499,001094: 
010500,001095: 43,3075           05563        UPDATOFF           TC       UPFLAG                                #  VB 95 SET NOUPFLAG
010501,001096: 43,3076           00030                           ADRES    NOUPFLAG                              
010502,001097: 
010503,001098: 43,3077           02121                           TC       GOPIN                                 
010504,001099: 
010505,001100:                                                                                                  #           SYSTEST     VERB 92             DESCRIPTION
010506,001101:                                                                                                  #             OPERATE IMU PERFORMANCE TEST.
010507,001102:                                                                                                  #               1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
010508,001103:                                                                                                  #               2. SET EXT VERB BUSY FLAG.
010509,001104: 43,3100  E5,1417                                  EBANK=   QPLACE                                
010510,001105: 
010511,001106: 43,3100           02123        SYSTEST            TC       CHKPOOH                               #  DEMAND POO
010512,001107: 
010513,001108: 43,3101           02076                           TC       TESTXACT                              
010514,001109: 
010515,001110: 43,3102           37662                           CAF      PRIO22                                
010516,001111: 43,3103           05155                           TC       FINDVAC                               
010517,001112: 43,3104  E5,1417                                  EBANK=   QPLACE                                
010518,001113: 43,3104  37,2000                                  SBANK=   IMUSUPER                              
010519,001114: 43,3104           02000 76065                     2CADR    REDO                                  
010520,001115: 
010521,001116: 43,3106           05225                           TC       ENDOFJOB                              
010522,001117: 
010523,001118:                                                                                                  #  VERB 93         CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
010524,001119: 
010525,001120: 43,3107           00004        WMATRXNG           INHINT                                         
010526,001121: 43,3110           45026                           CS       RENDWBIT                              
010527,001122: 43,3111           70101                           MASK     FLAGWRD5                              
010528,001123: 43,3112           54101                           TS       FLAGWRD5                              
010529,001124: 
010530,001125: 43,3113           02121                           TC       GOPIN                                 
010531,001126: 
010532,001127: 43,3114  43,3114               GOSHOSUM           EQUALS   SHOWSUM                               
010533,001128: 
010534,001129: 43,3114           02123        SHOWSUM            TC       CHKPOOH                               #  *
010535,001130: 43,3115           02076                           TC       TESTXACT                              #  *
010536,001131: 43,3116           35071                           CAF      PRIO7                                 #  ALLOW OTHER CHARINS.
010537,001132: 43,3117           05216                           TC       PRIOCHNG                              
010538,001133: 43,3120           35026                           CAF      S+1                                   #  *
010539,001134: 43,3121           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
010540,001135: 43,3122           35030                           CAF      S+ZERO                                #  *
010541,001136: 43,3123           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
010542,001137: 43,3124           33245                           CA       SELFADRS                              #  *
010543,001138: 43,3125           55361                           TS       SELFRET                               #  *
010544,001139: 43,3126           03522                           TC       STSHOSUM                              #  * ENTER ROPECHK
010545,001140: 
010546,001141: 43,3127           23372        SDISPLAY           LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
010547,001142: 43,3130           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
010548,001143: 43,3131           33244        NOKILL             CA       ADRS1                                 #  *
010549,001144: 43,3132           54156                           TS       MPAC       +2                         #  *
010550,001145: 43,3133           33144                           CA       VNCON                                 #  * 0501
010551,001146: 43,3134           04655                           TC       BANKCALL                              #  *
010552,001147: 43,3135           20226                           CADR     GOXDSPF                               #  *
010553,001148: 43,3136           03141                           TC       +3                                    #  *
010554,001149: 43,3137           03633                           TC       NXTBNK                                #  *
010555,001150: 
010556,001151: 43,3140           03131                           TC       NOKILL                                #  *
010557,001152: 43,3141           33245                           CA       SELFADRS                              
010558,001153: 43,3142           55371                           TS       SKEEP1                                
010559,001154: 
010560,001155: 43,3143           05561                           TC       ENDEXT                                #  *
010561,001156: 
010562,001157: 43,3144           01201        VNCON              VN       501                                   #  *
010563,001158: 
010564,001159: 43,3145           31376        ENDSUMS            CA       SKEEP6                                #  *
010565,001160: 43,3146           00006                           EXTEND                                         #  *
010566,001161: 43,3147           13336                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
010567,001162: 43,3150           03522                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
010568,001163: 
010569,001164:                                                                                                  #           DAPDISP     VERB 48             DESCRIPTION
010570,001165:                                                                                                  #               LOAD AUTO PILOT  DATA
010571,001166:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010572,001167:                                                                                                  #               2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
010573,001168:                                                                                                  #               3. RELEASE EXT VERB DISPLAY SYSTEM.
010574,001169: 43,3151           02076        DAPDISP            TC       TESTXACT                              
010575,001170: 43,3152           35071                           CAF      PRIO7                                 #  R03
010576,001171: 43,3153           05216                           TC       PRIOCHNG                              
010577,001172: 43,3154           04674                           TC       POSTJUMP                              
010578,001173: 43,3155           40000                           CADR     DAPDATA1                              
010579,001174: 

Sundance 302

010581,001176: 34,2000                                           BANK     34                                    
010582,001177: 20,2000                                           SETLOC   LOADDAP                               
010583,001178: 20,2000                                           BANK                                           
010584,001179: 
010585,001180: 20,2000                                           COUNT*   $$/R03                                
010586,001181: 
010587,001182: 20,2000  30,2000                                  SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S.
010588,001183: 
010589,001184: 20,2000           06716        DAPDATA1           TC       UNK7766                               
010590,001185: 20,2001           32071                           CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOLS BITS.
010591,001186: 20,2002           71102                           MASK     DAPBOOLS                              #  LM
010592,001187: 20,2003           55353        RELOAD             TS       DAPDATR1                              #  LM
010593,001188: 20,2004           32073                           CAF      V01N46                                #  LM
010594,001189: 20,2005           04655                           TC       BANKCALL                              
010595,001190: 20,2006           20245                           CADR     GOXDSPFR                              
010596,001191: 20,2007           15561                           TCF      ENDEXT                                #  V34E  TERMINATE
010597,001192: 20,2010           12020                           TCF      DPDAT1                                #  V33E  PROCEED
010598,001193: 20,2011           12015                           TCF      MSKDATR1                              #  E     NEW DATA    CHECK AND REDISPLAY
010599,001194: 20,2012           36216                           CAF      REVCNT                                #  BITS 2 & 3:  BLANKS R2 & R3.
010600,001195: 20,2013           05553                           TC       BLANKET                               
010601,001196: 20,2014           15225                           TCF      ENDOFJOB                              
010602,001197: 20,2015           32071        MSKDATR1           CAF      BOOLSMSK                              
010603,001198: 20,2016           71353                           MASK     DAPDATR1                              
010604,001199: 20,2017           12003                           TCF      RELOAD                                
010605,001200: 
010606,001201: 20,2020           00004        DPDAT1             INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
010607,001202: 20,2021           31353                           CA       DAPDATR1                              #    ON BASIS OF DISPLAYED DAPDATR1.
010608,001203: 20,2022           75012                           MASK     CSMDOCKD                              
010609,001204: 20,2023           00006                           EXTEND                                         
010610,001205: 20,2024           12043                           BZF      ONEMASS                               
010611,001206: 
010612,001207: 20,2025           35025                           CAF      BIT2                                  
010613,001208: 20,2026           00006                           EXTEND                                         
010614,001209: 20,2027           02030                           RAND     CHAN30                                
010615,001210: 20,2030           00006                           EXTEND                                         
010616,001211: 20,2031           12042                           BZF      ONEMASS    -1                         
010617,001212: 
010618,001213: 20,2032           05646                           TC       ALARM                                 
010619,001214: 20,2033           01706                           OCT      1706                                  
010620,001215: 20,2034           35056                           CAF      VB05N09                               
010621,001216: 20,2035           04655                           TC       BANKCALL                              
010622,001217: 20,2036           20226                           CADR     GOXDSPF                               
010623,001218: 20,2037           15561                           TCF      ENDEXT                                
010624,001219: 20,2040           12034                           TCF      -4                                    
010625,001220: 20,2041           12000                           TCF      DAPDATA1                              
010626,001221: 
010627,001222: 20,2042           31336                           CAE      CSMMASS                               
010628,001223: 20,2043           61335        ONEMASS            AD       LEMMASS                               
010629,001224: 20,2044           55243                           TS       MASS                                  
010630,001225: 20,2045           42071                           CS       BOOLSMSK                              
010631,001226: 20,2046           71102                           MASK     DAPBOOLS                              
010632,001227: 20,2047           61353                           AD       DAPDATR1                              
010633,001228: 20,2050           55102                           TS       DAPBOOLS                              
010634,001229: 20,2051           75014                           MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
010635,001230: 20,2052           00006                           EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
010636,001231: 20,2053           12060                           BZF      +5                                    
010637,001232: 20,2054           45010                           CS       BIT15                                 
010638,001233: 20,2055           70075                           MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
010639,001234: 20,2056           54075                           TS       FLAGWRD1                              
010640,001235: 20,2057           12063                           TCF      +4                                    
010641,001236: 20,2060           40075                           CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
010642,001237: 20,2061           75010                           MASK     BIT15                                 
010643,001238: 20,2062           26075                           ADS      FLAGWRD1                              
010644,001239: 20,2063           31102                           CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
010645,001240: 20,2064           76221                           MASK     THREE                                 #  MANEUVER RATE
010646,001241: 20,2065           60000                           DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
010647,001242: 20,2066           55331                           TS       RATEINDX                              #  ARE DP
010648,001243: 20,2067           00003                           RELINT                                         
010649,001244: 20,2070           02076                           TC       DAPDATA2                              
010650,001245: 
010651,001246: 20,2071           13113        BOOLSMSK           OCT      13113                                 
010652,001247: 20,2072           01457        V0647              VN       0647                                  
010653,001248: 20,2073           00256        V01N46             VN       0146                                  
010654,001249: 20,2074           76466        MINLMD             DEC      -2850      B-16                       #  MIN. DESCENT STAGE MASS -- 2(16) KG.
010655,001250: 20,2075           76731        MINMINLM           DEC      -2200      B-16                       #  MIN ASCENT STAGE MASS -- 2(16) KG.
010656,001251: 20,2076     5014               MINCSM             =        BIT11                                 #  MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
010657,001252: 
010658,001253: 20,2076           32072        DAPDATA2           CAF      V0647                                 
010659,001254: 20,2077           04655                           TC       BANKCALL                              
010660,001255: 20,2100           20245                           CADR     GOXDSPFR                              
010661,001256: 20,2101           12107                           TCF      ENDR03                                #  V34E  TERMINATE. FIRST SET DB, DO 1/ACCS
010662,001257: 20,2102           12113                           TCF      DAPDAT2                               #  V33E  PROCEED
010663,001258: 20,2103           12076                           TCF      DAPDATA2                              #        LOAD NEW DATA AND RECYCLE
010664,001259: 20,2104           35024                           CAF      BIT3                                  #  BLANKS R3
010665,001260: 20,2105           05553                           TC       BLANKET                               #             LM
010666,001261: 20,2106           15225                           TCF      ENDOFJOB                              
010667,001262: 20,2107           00004        ENDR03             INHINT                                         
010668,001263: 20,2110           04737                           TC       IBNKCALL                              
010669,001264: 20,2111           40204                           CADR     RESTORDB                              
010670,001265: 20,2112           15561                           TCF      ENDEXT                                #  DOES RELINT
010671,001266: 
010672,001267: 20,2113           00006        DAPDAT2            EXTEND                                         #  DETERMINE STAGE
010673,001268: 20,2114           00030                           READ     CHAN30                                
010674,001269: 20,2115           40000                           COM                                            
010675,001270: 20,2116           75025                           MASK     BIT2                                  
010676,001271: 20,2117           10000                           CCS      A                                     
010677,001272: 20,2120           32074                           CA       MINLMD                                
010678,001273: 20,2121           62075                           AD       MINMINLM                              
010679,001274: 20,2122           61335                           AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
010680,001275: 20,2123           00006                           EXTEND                                         
010681,001276: 20,2124           62076                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
010682,001277: 20,2125           31102                           CAE      DAPBOOLS                              
010683,001278: 20,2126           75012                           MASK     CSMDOCKD                              
010684,001279: 20,2127           00006                           EXTEND                                         
010685,001280: 20,2130           12136                           BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
010686,001281: 20,2131           45014                           CS       MINCSM                                #  TEST CSM MASS
010687,001282: 20,2132           61336                           AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM
010688,001283: 
010689,001284: 20,2133           00006                           EXTEND                                         
010690,001285: 20,2134           62076                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
010691,001286: 20,2135           31336                           CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
010692,001287: 20,2136           61335        LEMALONE           AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
010693,001288: 20,2137           22007                           ZL                                             
010694,001289: 20,2140           53244                           DXCH     MASS                                  
010695,001290: 20,2141           00004                           INHINT                                         
010696,001291: 20,2142           04737                           TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
010697,001292: 20,2143           40204                           CADR     RESTORDB                              #    INERTIA.
010698,001293: 20,2144           00003                           RELINT                                         #  PROCEED TO NOUN 48 (OR END).
010699,001294: 
010700,001295: 20,2145           35025        DAPDATA3           CAF      BIT2                                  
010701,001296: 20,2146           00006                           EXTEND                                         
010702,001297: 20,2147           02030                           RAND     CHAN30                                
010703,001298: 20,2150           10000                           CCS      A                                     #  END ROUTINE IF LEM HAS STAGED,
010704,001299: 20,2151           05561                           TC       ENDEXT                                
010705,001300: 20,2152           32202                           CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
010706,001301: 20,2153           04655                           TC       BANKCALL                              
010707,001302: 20,2154           20245                           CADR     GOXDSPFR                              
010708,001303: 20,2155           05561                           TC       ENDEXT                                
010709,001304: 20,2156           12163                           TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
010710,001305: 20,2157           12152                           TCF      -5                                    #       LOAD NEW DATA AND RECYCLE
010711,001306: 20,2160           35024                           CAF      BIT3                                  
010712,001307: 20,2161           05553                           TC       BLANKET                               #  BLANK R3
010713,001308: 20,2162           15225                           TCF      ENDOFJOB                              
010714,001309: 20,2163           35026        DPDAT3             CAF      BIT1                                  #  GO TO TRIMGIMB VIA WAITLIST SO IT
010715,001310: 20,2164           00004                           INHINT                                         #  CAN USE FIXDELAY AND VARDELAY
010716,001311: 20,2165           05252                           TC       WAITLIST                              
010717,001312: 20,2166  E6,1401                                  EBANK=   ROLLTIME                              
010718,001313: 20,2166           03232 56066                     2CADR    TRIMGIMB                              
010719,001314: 20,2170           15225                           TCF      ENDOFJOB                              #  DOES A RELINT
010720,001315: 20,2171           32203        TRIMDONE           CAF      V50N48                                
010721,001316: 20,2172           04655                           TC       BANKCALL                              #  TRIM IS FINISHED; PLEASE TERMINATE R03
010722,001317: 20,2173           20253                           CADR     GOMARK3R                              
010723,001318: 20,2174           05561                           TC       ENDEXT                                #  V34E TERMINATE
010724,001319: 20,2175           05561                           TC       ENDEXT                                
010725,001320: 20,2176           05561                           TC       ENDEXT                                
010726,001321: 20,2177           34112                           CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
010727,001322: 20,2200           05553                           TC       BLANKET                               
010728,001323: 20,2201           15225                           TCF      ENDOFJOB                              
010729,001324: 
010730,001325: 20,2202           01460        V06N48             VN       0648                                  
010731,001326: 
010732,001327: 20,2203           14460        V50N48             VN       5048                                  
010733,001328: 

Sundance 306

010735,001330: 
010736,001331:                                                                                                  #  VERB 66.  VEHICLES ARE ATTACHED.  MOVE THIS VEHICLE STATE VECTOR TO
010737,001332:                                                                                                  #            OTHER VEHICLE STATE VECTOR.
010738,001333: 
010739,001334:                                                                                                  #      USE SUBROUTINE GENTRAN.
010740,001335: 
010741,001336: 07,2622                                           BANK     7                                     
010742,001337: 43,2000                                           SETLOC   EXTVERBS                              
010743,001338: 43,2000                                           BANK                                           
010744,001339: 
010745,001340: 43,3156                                           COUNT*   $$/EXTVB                              
010746,001341: 
010747,001342: 43,3156  E3,1626                                  EBANK=   RRECTHIS                              
010748,001343: 
010749,001344: 43,3156           35057        ATTACHED           CAF      EBANK3                                
010750,001345: 43,3157           54003                           TS       EBANK                                 
010751,001346: 43,3160           06014                           TC       INTPRET                               
010752,001347: 43,3161           77624                           CALL                                           
010753,001348: 43,3162           27362                                    INTSTALL                              
010754,001349: 43,3163           43014                           BON      CLRGO                                 
010755,001350: 43,3164           04304                                    MOONTHIS                              
010756,001351: 43,3165           67170                                    +3                                    
010757,001352: 43,3166           04223                                    MOONOTH                               
010758,001353: 43,3167           67172                                    +3                                    
010759,001354: 43,3170           77614                           SET                                            
010760,001355: 43,3171           04063                                    MOONOTH                               
010761,001356: 43,3172           77776                           EXIT                                           
010762,001357: 43,3173           33207                           CAF      OCT51                                 
010763,001358: 43,3174           05623                           TC       GENTRAN                               
010764,001359: 43,3175           01626                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
010765,001360: 43,3176           01554                           ADRES    RRECTOTH                              
010766,001361: 
010767,001362: 43,3177           00003                           RELINT                                         
010768,001363: 
010769,001364: 43,3200           33210                           CAF      TCPINAD                               
010770,001365: 43,3201           50120                           INDEX    FIXLOC                                
010771,001366: 43,3202           54052                           TS       QPRET                                 
010772,001367: 43,3203           04674                           TC       POSTJUMP                              
010773,001368: 43,3204           27400                           CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
010774,001369: 
010775,001370: 
010776,001371: 43,3205           77634        TCPIN              RTB                                            
010777,001372: 43,3206           20746                                    PINBRNCH                              
010778,001373: 
010779,001374: 43,3207           00051        OCT51              OCT      51                                    
010780,001375: 43,3210           67205        TCPINAD            CADR     TCPIN                                 
010781,001376: 
010782,001377:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
010783,001378: 
010784,001379:                                                                                                  #           GO TO V37 WITH ZERO TO CAUSE POO.
010785,001380:                                                                                                  #           STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
010786,001381:                                                                                                  #                  THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
010787,001382: 
010788,001383: 43,3211           05563        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
010789,001384: 43,3212           00221                           ADRES    QUITFLAG                              #        AT NEXT TIMESTEP
010790,001385: 
010791,001386: 43,3213           35030                           CAF      ZERO                                  
010792,001387: 43,3214           04674                           TC       POSTJUMP                              
010793,001388: 43,3215           10007                           CADR     V37                                   #  GO TO POO
010794,001389: 
010795,001390: 
010796,001391:                                                                                                  #  VERB 45:     DISPLAY OF W MATRIX
010797,001392: 
010798,001393: 43,3216           02076        V45                TC       TESTXACT                              
010799,001394: 43,3217           35067                           CAF      PRIO5                                 
010800,001395: 43,3220           05155                           TC       FINDVAC                               
010801,001396: 43,3221  E5,1417                                  EBANK=   QPLACE                                
010802,001397: 43,3221           03077 76065                     2CADR    V45CALL                               
010803,001398: 
010804,001399: 43,3223           05225                           TC       ENDOFJOB                              
010805,001400: 
010806,001401:                                                                                                  #  VERB 65          DISABLE U,V JETS DURING DPS BURNS
010807,001402: 
010808,001403: 43,3224           05563        SNUFFOUT           TC       UPFLAG                                
010809,001404: 43,3225           00115                           ADRES    SNUFFER                               
010810,001405: 43,3226           02121                           TC       GOPIN                                 
010811,001406: 
010812,001407:                                                                                                  #  VERB 75          ENABLE U,V JETS DURING DPS BURNS
010813,001408: 
010814,001409: 43,3227           05575        OUTSNUFF           TC       DOWNFLAG                              
010815,001410: 43,3230           00115                           ADRES    SNUFFER                               
010816,001411: 43,3231           02121                           TC       GOPIN                                 

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