Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

011948,000002:                                                                                                  ## Copyright:   Public domain.
011949,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
011950,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
011951,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
011952,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
011953,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
011954,000008:                                                                                                  ##              that the code format has been changed to conform to the
011955,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
011956,000010:                                                                                                  ##              original YUL assembler.
011957,000011:                                                                                                  ## Reference:   pp. 275-312
011958,000012:                                                                                                  ## Assembler:   yaYUL
011959,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
011960,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
011961,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
011962,000016:                                                                                                  ##              2016-11-20 MAS  Updated for Luminary 210.
011963,000017:                                                                                                  ##              2016-11-27 HG   Fix operand 2SECDELV  -> 2SECDELY
011964,000018:                                                                                                  ##                              replace tabs with spaces 
011965,000019:                                                                                                  ##              2016-12-07 HG   Fix P00 -> POO
011966,000020:                                                                                                  ##                              Change POO -> P00 in some comments
011967,000021:                                                                                                  ##              2016-12-11 HG   Fix operator CS FLAGWRD5 -> CA FLAGWRD5
011968,000022:                                                                                                  ##                                  operand  AGSBUFF -> AGSK  
011969,000023:                                                                                                  ##              2016-12-12 HG   comment out previous [WORKAROUND] with SBANK= 
011970,000024:                                                                                                  ##              2016-12-23 RSB  Proofed comment text with octopus/ProoferComments
011971,000025:                                                                                                  ##                              and fixed all errors found.  Restored an SBANK=
011972,000026:                                                                                                  ##                              that we had apparently mistakenly commented out,
011973,000027:                                                                                                  ##                              but wasn't noticed because it had no effect on
011974,000028:                                                                                                  ##                              the generated octals.
011975,000029:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
011976,000030:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
011977,000031:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
011978,000032:                                                                                                  ##                              Luminary 99 vs Comanche 55.
011979,000033:                                                                                                  ##              2017-08-21 RSB  Fixed a comment typo identified in ZERLINA 56.
011980,000034: 

Page 275

011982,000036: 07,2607                                           BANK     7                                     
011983,000037: 43,2000                                           SETLOC   EXTVERBS                              
011984,000038: 43,2000                                           BANK                                           
011985,000039: 
011986,000040: 43,2000  E5,1737                                  EBANK=   OGC                                   
011987,000041: 
011988,000042: 43,2000                                           COUNT*   $$/EXTVB                              
011989,000043:                                                                                                  #  FAN-OUT
011990,000044: 
011991,000045: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
011992,000046: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
011993,000047: 
011994,000048: 43,2002           02126        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
011995,000049: 43,2003           02177                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011996,000050:                                                                                                  #                                  72 ONLY)
011997,000051: 43,2004           02344                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
011998,000052: 43,2005           02702                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
011999,000053: 43,2006           02310                           TC       RRDESEND                              #  VB44 TERMINATE CONTINUOUS DESIGNATE
012000,000054: 43,2007           02116                           TC       ALM/END                               #  VB45 SPARE
012001,000055: 43,2010           02116                           TC       ALM/END                               #  VB46 SPARE
012002,000056: 43,2011           02403                           TC       V47TXACT                              #  VB47 AGS INITIALIZATION
012003,000057: 43,2012           03134                           TC       DAPDISP                               #  VB48  LOAD A/P DATA
012004,000058: 43,2013           13011                           TCF      CREWMANU                              #  VB49 START AUTOMATIC ATTITUDE MANEUVER
012005,000059: 43,2014           02375                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
012006,000060: 43,2015           02116                           TC       ALM/END                               #  VB51 SPARE
012007,000061: 43,2016           02375                           TC       GOLOADLV                              #  VB52 PLEASE MARK X - RETICLE.
012008,000062: 43,2017           02375                           TC       GOLOADLV                              #  VB53 PLEASE MARK Y - RETICLE.
012009,000063: 43,2020           02375                           TC       GOLOADLV                              #  VB54 PLEASE MARK X OR Y - RETICLE
012010,000064: 43,2021           02415                           TC       ALINTIME                              #  VB55 ALIGN TIME
012011,000065: 43,2022           03020                           TC       TRMTRACK                              #  VB56 TERMINATE TRACKING - P20 + P25
012012,000066: 43,2023           02333                           TC       LRON                                  #  VB57 PERMIT  LANDING RADAR UPDATES
012013,000067: 43,2024           02336                           TC       LROFF                                 #  VB58 INHIBIT LANDING RADAR UPDATES
012014,000068: 43,2025           02147                           TC       LRPOS2K                               #  VB59 COMMAND LR TO POSITION 2.
012015,000069: 43,2026           02174                           TC       RATEDISP                              #  VB60 DISPLAY DAP ESTIMATED RATES
012016,000070: 43,2027           02164                           TC       DAPATTER                              #  VB61 DISPLAY DAP ATTITUDE ERROR
012017,000071: 43,2030           02167                           TC       TOTATTER                              #  VB62 DISPLAY TOTAL ATTITUDE ERROR
012018,000072: 43,2031           02430                           TC       R04                                   #  VB63 SAMPLE RADAR ONCE PER SECOND
012019,000073: 43,2032           02674                           TC       VB64                                  #  VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
012020,000074: 43,2033           03224                           TC       SNUFFOUT                              #  VB65 DISABLE U,V JETS DURING DPS BURNS.
012021,000075: 43,2034           03141                           TC       ATTACHED                              #  VB66 ATTACHED   MOVE THIS TO OTHER STATE
012022,000076: 43,2035           03216                           TC       V67                                   #  VB67 W MATRIX MONITOR
012023,000077: 43,2036           02341                           TC       TEROFF                                #  VB68 TAKE OUT TERRAIN MODEL IN DESCENT
012024,000078: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 FORCE A HARDWARE RESTART
012025,000079: 43,2040           03727                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
012026,000080: 43,2041           03731                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
012027,000081: 43,2042           03733                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
012028,000082: 43,2043           03735                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
012029,000083: 43,2044           03040                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
012030,000084:                                                                                                  #         FOR ERASABLE DUMP.
012031,000085: 43,2045           03227                           TC       OUTSNUFF                              #  VB75 ENABLE U,V JETS DURING DPS BURNS.

Page 276

012033,000087: 43,2046           03000                           TC       MINIMP                                #  VB76 MINIMUM IMPULSE MODE
012034,000088: 43,2047           03003                           TC       NOMINIMP                              #  VB77 RATE COMMAND MODE
012035,000089: 43,2050           02420                           TC       R77                                   #  VB78 START LR SPURIOUS RETURN TEST
012036,000090: 43,2051           02630                           TC       R77END                                #  VB79 TERMINATE LR SPURIOUS RETURN TEST
012037,000091: 43,2052           03044                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
012038,000092: 43,2053           03047                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
012039,000093: 43,2054           02741                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
012040,000094: 43,2055           02751                           TC       V83PERF                               #  VB83 REQUEST REND PARAM DISPLAY (R31)
012041,000095: 43,2056           02116                           TC       ALM/END                               #  VB84 SPARE
012042,000096: 43,2057           03232                           TC       VERB85                                #  VB85 DISPLAY RR LOS AZ AND ELEV
012043,000097: 43,2060           02116                           TC       ALM/END                               #  VB86 SPARE
012044,000098: 43,2061           02116                           TC       ALM/END                               #  VB87 SPARE
012045,000099: 43,2062           02116                           TC       ALM/END                               #  VB88 SPARE
012046,000100: 43,2063           02757                           TC       V89PERF                               #  VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
012047,000101: 43,2064           02766                           TC       V90PERF                               #  VB90 OUT OF PLANE RENDEZVOUS DISPLAY
012048,000102: 43,2065           03077                           TC       GOSHOSUM                              #  VB91 DISPLAY BANK SUM.
012049,000103: 43,2066           03057                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST.
012050,000104: 43,2067           03072                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
012051,000105: 43,2070           02116                           TC       ALM/END                               #  VB94 SPARE
012052,000106: 43,2071           03054                           TC       UPDATOFF                              #  VB95 NO STATE VECTOR UPDATE ALLOWED
012053,000107: 43,2072           03211                           TC       VERB96                                #  VB96 INTERRUPT INTEGRATION AND GO TO POO
012054,000108: 43,2073           02375                           TC       GOLOADLV                              #  VB97 PLEASE VERIFY ENGINE FAILURE
012055,000109: 43,2074           02116                           TC       ALM/END                               #  VB98 SPARE
012056,000110: 43,2075           02375                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
012057,000111: 
012058,000112:                                                                                                  #  END OF EXTENDED VERB FAN
012059,000113: 
012060,000114: 
012061,000115: 43,2076           11043        TESTXACT           CCS      EXTVBACT                              #  ARE EXTENDED VERBS BUSY
012062,000116: 43,2077           02116                           TC       ALM/END                               #  YES, TURN ON OPERATOR LIGHT
012063,000117: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIORITY DISPLAYS USING DSKY
012064,000118: 43,2101           72125                           MASK     OC24100                               
012065,000119: 43,2102           10000                           CCS      A                                     
012066,000120: 43,2103           02116                           TC       ALM/END                               #  YES
012067,000121: 43,2104           34353                           CAF      OCT25                                 #  SET BITS 1, 3, AND 5
012068,000122: 43,2105           55043        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
012069,000123:                                                                                                  #  SYSTEM BUSY
012070,000124: 
012071,000125: 43,2106           30002                           CA       Q                                     
012072,000126: 43,2107           54155                           TS       MPAC       +1                         
012073,000127: 
012074,000128: 43,2110           44743                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
012075,000129: 43,2111           04145                           TC       NVSUB                                 
012076,000130: 43,2112           02113                           TC       +1                                    
012077,000131: 43,2113           10067                           CCS      NEWJOB                                
012078,000132: 43,2114           05113                           TC       CHANG1                                
012079,000133: 
012080,000134: 43,2115           00155                           TC       MPAC       +1                         
012081,000135: 
012082,000136: 43,2116     5474               TERMEXTV           EQUALS   ENDEXT                                

Page 277

012084,000138: 43,2116     5474               ENDEXTVB           EQUALS   ENDEXT                                
012085,000139: 
012086,000140: 43,2116           04355        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
012087,000141: 43,2117           04626        GOPIN              TC       POSTJUMP                              
012088,000142: 43,2120           21062                           CADR     PINBRNCH                              
012089,000143: 
012090,000144: 43,2121           31010        CHKPOOH            CA       MODREG                                #  CHECK FOR POO OR POO-.
012091,000145: 43,2122           00006                           EXTEND                                         
012092,000146: 43,2123           16763                           BZF      TCQ                                   
012093,000147: 43,2124           02116                           TC       ALM/END                               
012094,000148: 
012095,000149: 43,2125           24100        OC24100            OCT      24100                                 
012096,000150: 

Page 278

012098,000152:                                                                                                  #           VBZERO       VERB 40            DESCRIPTION
012099,000153: 
012100,000154:                                                                                                  #               1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
012101,000155:                                                                                                  #              2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
012102,000156:                                                                                                  #                 FOR N72, CHECK IF EITHER RADAR IS IN USE.
012103,000157:                                                                                                  #               3. EXECUTE THE CDU ZERO.
012104,000158:                                                                                                  #               4. STALL UNTILL THE ZERO IS DONE.
012105,000159:                                                                                                  #               5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
012106,000160:                                                                                                  #               6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
012107,000161: 
012108,000162: 43,2126           02202        VBZERO             TC       OP/INERT                              
012109,000163: 43,2127           02131                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
012110,000164: 43,2130           02140                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(72)
012111,000165: 43,2131           02411        IMUZEROK           TC       CKMODCAD                              
012112,000166: 43,2132           04607                           TC       BANKCALL                              #  KEYBOARD REQ FOR ISS CDUZERO
012113,000167: 43,2133           16701                           CADR     IMUZERO                               
012114,000168: 
012115,000169: 43,2134           04607                           TC       BANKCALL                              #  STALL
012116,000170: 43,2135           17735                           CADR     IMUSTALL                              
012117,000171: 43,2136           02137                           TC       +1                                    
012118,000172: 
012119,000173: 43,2137           02117                           TC       GOPIN                                 #  IMUZERO
012120,000174: 
012121,000175: 43,2140           02653        RRZEROK            TC       RDRUSECK                              
012122,000176: 43,2141           04607                           TC       BANKCALL                              
012123,000177: 43,2142           52334                           CADR     RRZERO                                
012124,000178: 
012125,000179: 43,2143           04607        RWAITK             TC       BANKCALL                              
012126,000180: 43,2144           17733                           CADR     RADSTALL                              
012127,000181: 43,2145           12146                           TCF      +1                                    
012128,000182: 43,2146           02117                           TC       GOPIN                                 #  RRZERO
012129,000183: 
012130,000184:                                                                                                  #           LRPOS2K          VERB 59            DESCRIPTION
012131,000185:                                                                                                  #               COMMAND LANDING RADAR TO POSITION 2
012132,000186:                                                                                                  #              1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
012133,000187:                                                                                                  #               2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
012134,000188:                                                                                                  #                  THE PRESCRIBED TIME.
012135,000189:                                                                                                  #               3. RE-ESTABLISH THE DISPLAYS.
012136,000190: 
012137,000191: 43,2147           30103        LRPOS2K            CA       FLAGWRD7                              
012138,000192: 43,2150           74740                           MASK     AVEGFBIT                              
012139,000193: 43,2151           00006                           EXTEND                                         
012140,000194: 43,2152           12161                           BZF      LRPOS2K1                              #  AVERAGE G NOT ON
012141,000195: 43,2153           40107                           CS       FLGWRD11                              
012142,000196: 43,2154           74726                           MASK     LRBYBIT                               
012143,000197: 43,2155           00006                           EXTEND                                         
012144,000198: 43,2156           12116                           BZF      ALM/END                               #  IF AVE G ON AND NOT R12- OPERATOR ERROR
012145,000199: 43,2157           04626                           TC       POSTJUMP                              
012146,000200: 43,2160           53577                           CADR     V59GP63                               
012147,000201: 43,2161           02653        LRPOS2K1           TC       RDRUSECK                              

Page 279

012149,000203: 43,2162           04607                           TC       BANKCALL                              
012150,000204: 43,2163           53566                           CADR     LRP2COMM                              #  COMMAND LR TO POS2
012151,000205:                                                                                                  #  V61      VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012152,000206: 
012153,000207: 43,2164           05520        DAPATTER           TC       DOWNFLAG                              
012154,000208: 43,2165           00013                           ADRES    NEEDLFLG                              
012155,000209: 43,2166           12171                           TCF      TOTATTER   +2                         
012156,000210: 
012157,000211:                                                                                                  #  V62      VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012158,000212: 
012159,000213: 43,2167           05506        TOTATTER           TC       UPFLAG                                
012160,000214: 43,2170           00013                           ADRES    NEEDLFLG                              
012161,000215: 43,2171           05520                 +2        TC       DOWNFLAG                              
012162,000216: 43,2172           00000                           ADRES    NEED2FLG                              
012163,000217: 43,2173           02117                           TC       GOPIN                                 
012164,000218: 
012165,000219:                                                                                                  #  V60      VERB 60, DISPLAY DAP ESTIMATED RATES ON FDAI ATTITUDE ERROR NEEDLES.
012166,000220: 
012167,000221: 43,2174           05506        RATEDISP           TC       UPFLAG                                
012168,000222: 43,2175           00000                           ADRES    NEED2FLG                              
012169,000223: 43,2176           02117                           TC       GOPIN                                 
012170,000224: 
012171,000225: 
012172,000226: 

Page 280

012174,000228:                                                                                                  #           VBCOARK      VERB 41            DESCRIPTION
012175,000229:                                                                                                  #               COARSE ALIGN IMU OR RADAR
012176,000230:                                                                                                  #              1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
012177,000231:                                                                                                  #               2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
012178,000232:                                                                                                  #               CASE 1     NOUN 20     (ICDU ANGLES)
012179,000233:                                                                                                  #               3. SET EXT VERB DISPLAY ACTIVE FLAG.
012180,000234:                                                                                                  #               4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
012181,000235:                                                                                                  #                  RESPONSES
012182,000236:                                                                                                  #                    A. TERMINATE
012183,000237:                                                                                                  #                       1. RELEASE EXT VERB DISPLAY SYSTEM
012184,000238:                                                                                                  #                    B. PROCEED
012185,000239:                                                                                                  #                      1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
012186,000240:                                                                                                  #                    C. ENTER
012187,000241:                                                                                                  #                      1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
012188,000242:                                                                                                  #               ICORK2
012189,000243:                                                                                                  #                  1. RE-DISPLAY VERB 41.
012190,000244:                                                                                                  #                  2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
012191,000245:                                                                                                  #                  3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
012192,000246:                                                                                                  #                  4. RELEASE EXT VERB DISPLAY SYSTEM.
012193,000247:                                                                                                  #               CASE 2     NOUN 72     (RCDU ANGLES)
012194,000248:                                                                                                  #                 EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
012195,000249:                                                                                                  #               5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
012196,000250:                                                                                                  #                  RESPONSES
012197,000251:                                                                                                  #                  A. TERMINATE
012198,000252:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYS.
012199,000253:                                                                                                  #                  B. PROCEED OR ENTER
012200,000254:                                                                                                  #                     1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
012201,000255:                                                                                                  #                     2. RE-DISPLAY VERB 41.
012202,000256:                                                                                                  #                     3. SCHEDULE RRDESK2 WITH PRIORITY 20.
012203,000257:                                                                                                  #                     4. RELEASE EXT VERB DISPLAY SYS.
012204,000258: 
012205,000259:                                                                                                  #                  AURLOKON
012206,000260: 
012207,000261:                                                                                                  #                 1. FLASH V04 N12 R1 = 00006 R2 = 00002
012208,000262:                                                                                                  #                     RESPONSES
012209,000263:                                                                                                  #                     A. TERMINATE
012210,000264:                                                                                                  #                     B. PROCEED
012211,000265:                                                                                                  #                       1. RESET LOCK-ON SWITCH
012212,000266:                                                                                                  #                       2. SET CONTINUOUS DESIGNATE FLAG
012213,000267:                                                                                                  #                       3. DISABLE R25
012214,000268:                                                                                                  #                    C. V22 E 1 E, R1 = 00001, PROCEED
012215,000269:                                                                                                  #                       1. SET LOCK-ON SWITCH
012216,000270: 43,2177           02202        VBCOARK            TC       OP/INERT                              
012217,000271: 43,2200           02213                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU(20)
012218,000272: 43,2201           02235                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU(72)
012219,000273:                                                                                                  #           RETURNS TO L+1 IF IMU OR L+2 IF RR.
012220,000274: 
012221,000275: 43,2202           46007        OP/INERT           CS       OCT24                                 
012222,000276: 43,2203           61001                           AD       NOUNREG                               
012223,000277: 43,2204           00006                           EXTEND                                         

Page 281

012225,000279: 43,2205           16763                           BZF      TCQ                                   #  IF = 20.
012226,000280: 
012227,000281: 43,2206           62212                           AD       RRIMUDIF                              #  -52
012228,000282: 43,2207           00006                           EXTEND                                         
012229,000283: 43,2210           16760                           BZF      Q+1                                   
012230,000284: 
012231,000285: 43,2211           02116                           TC       ALM/END                               #  ILLEGAL.
012232,000286: 
012233,000287: 43,2212           77713        RRIMUDIF           DEC      -52        B-14                       #  THE IMU
012234,000288: 43,2213           02411        IMUCOARK           TC       CKMODCAD                              
012235,000289: 43,2214           02076                           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
012236,000290: 43,2215           32233                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
012237,000291: 43,2216           04607                           TC       BANKCALL                              
012238,000292: 43,2217           20323                           CADR     GOXDSPF                               
012239,000293: 43,2220           05474                           TC       TERMEXTV                              
012240,000294: 43,2221           12222                           TCF      +1                                    
012241,000295: 
012242,000296: 43,2222           32234        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
012243,000297: 43,2223           04607                           TC       BANKCALL                              
012244,000298: 43,2224           20632                           CADR     EXDSPRET                              
012245,000299: 
012246,000300: 43,2225           04607                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
012247,000301: 43,2226           16765                           CADR     IMUCOARS                              
012248,000302: 
012249,000303: 43,2227           04607                           TC       BANKCALL                              #  STALL
012250,000304: 43,2230           17735                           CADR     IMUSTALL                              
012251,000305: 43,2231           05474                           TC       ENDEXTVB                              
012252,000306: 43,2232           05474                           TC       ENDEXTVB                              
012253,000307: 
012254,000308: 43,2233           06226        VNLODCDU           VN       2522                                  
012255,000309: 43,2234           12200        IMUCOARV           VN       4100                                  
012256,000310: 

Page 282

012258,000312:                                                                                                  #           DESIGNATE TO DESIRED GIMBAL ANGLES.
012259,000313: 
012260,000314: 43,2235           02653        RRDESNBK           TC       RDRUSECK                              
012261,000315: 43,2236           02076                           TC       TESTXACT                              
012262,000316: 43,2237           30110        RRWAIT             CA       RADMODES                              #  IS A REMODE OR REPOSITION IN PROGRESS
012263,000317: 43,2240           77731                           MASK     BIT14&11                              
012264,000318: 43,2241     4727               REFTAG9            =        REMODBIT                              
012265,000319: 43,2241     4732               REFTAG10           =        REPOSBIT                              
012266,000320: 43,2241           00006                           EXTEND                                         
012267,000321: 43,2242           12246                           BZF      OKTOGO                                #  NO - CONTINUE
012268,000322: 
012269,000323: 43,2243           04607                           TC       BANKCALL                              #  YES - WAIT UNTIL FINISHED TO PREVENT
012270,000324: 43,2244           01735                           CADR     2SECDELY                              #  CONFLICTS IN RR DESIGNATE
012271,000325: 43,2245           12237                           TCF      RRWAIT                                
012272,000326: 
012273,000327: 43,2246           06027        OKTOGO             TC       CLRADMOD                              
012274,000328: 43,2247           32266                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
012275,000329: 43,2250           04607                           TC       BANKCALL                              
012276,000330: 43,2251           20323                           CADR     GOXDSPF                               
012277,000331: 43,2252           05474                           TC       TERMEXTV                              
012278,000332: 43,2253           12247                           TCF      -4                                    #  V33
012279,000333: 
012280,000334: 43,2254           04607                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
012281,000335: 43,2255           46000                           CADR     AURLOKON                              
012282,000336: 
012283,000337: 43,2256           32234                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
012284,000338: 43,2257           04607                           TC       BANKCALL                              
012285,000339: 43,2260           20632                           CADR     EXDSPRET                              
012286,000340: 
012287,000341: 43,2261           34727                           CAF      PRIO20                                
012288,000342: 43,2262           05076                           TC       FINDVAC                               
012289,000343: 43,2263  E7,1456                                  EBANK=   LOSCOUNT                              
012290,000344: 43,2263           02267 66107                     2CADR    RRDESK2                               
012291,000345: 
012292,000346: 
012293,000347: 43,2265           15474                           TCF      TERMEXTV                              #  FREES DISPLAY.
012294,000348: 
012295,000349: 43,2266           06111        VNLDRCDU           VN       2473                                  
012296,000350: 43,2267  43,2234               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
012297,000351: 
012298,000352: 43,2267           04607        RRDESK2            TC       BANKCALL                              
012299,000353: 43,2270           52466                           CADR     RRDESNB                               
012300,000354: 
012301,000355: 43,2271           02272                           TC       +1                                    #  DUMMY NEEDED SINCE DESRETRN DOES INCR
012302,000356: 43,2272           30167                           CA       PRIORITY                              
012303,000357: 43,2273           74775                           MASK     LOW9                                  
012304,000358: 43,2274           10000                           CCS      A                                     
012305,000359: 43,2275           50000                           INDEX    A                                     
012306,000360: 43,2276           54000                           TS       A                                     #  RELEASE THIS JOBS VAC AREA.
012307,000361: 43,2277           40000                           COM                                            #  INSURE ENDOFJOB DOES A NOVAC END (BZMF).

Page 283

012309,000363: 43,2300           26167                           ADS      PRIORITY                              
012310,000364: 43,2301           04607                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF DESIGNATE
012311,000365: 43,2302           17733                           CADR     RADSTALL                              
012312,000366: 43,2303           02305                           TC       +2                                    #  BADEND-NO LOCKON OR OUT OF LIMITS
012313,000367: 43,2304           05146                           TC       ENDOFJOB                              #  GOODEND-LOCKON ACHIEVED
012314,000368: 43,2305           05571                           TC       ALARM                                 
012315,000369: 43,2306           00503                           OCT      503                                   #  TURN ON ALARM LIGHT -503 DESIGNATE FAIL
012316,000370: 43,2307           05146                           TC       ENDOFJOB                              
012317,000371: 
012318,000372: 
012319,000373: 43,2310           10110        RRDESEND           CCS      RADMODES                              #  TERMINATE CONTINUOUS DESIGNATE ONLY
012320,000374: 43,2311           12117                           TCF      GOPIN                                 
012321,000375: 43,2312           12117                           TCF      GOPIN                                 
012322,000376: 43,2313           12314                           TCF      +1                                    
012323,000377: 43,2314           30110        REMODCHK           CA       RADMODES                              #  CHECK FOR REMODE OR REPOSITION
012324,000378: 43,2315           77731                           MASK     BIT14&11                              
012325,000379: 43,2316     4727               REFTAG1            =        REMODBIT                              
012326,000380: 43,2316     4732               REFTAG2            =        REPOSBIT                              
012327,000381: 43,2316           00006                           EXTEND                                         
012328,000382: 43,2317           12324                           BZF      NOREMODE                              #  NO
012329,000383: 
012330,000384: 43,2320           34770                           CAF      1SEC                                  #  YES- WAIT 1 SECOND AND CHECK AGAIN
012331,000385: 43,2321           04607                           TC       BANKCALL                              
012332,000386: 43,2322           01736                           CADR     DELAYJOB                              
012333,000387: 43,2323           02314                           TC       REMODCHK                              
012334,000388: 43,2324           06027        NOREMODE           TC       CLRADMOD                              
012335,000389: 43,2325           34770                           CAF      1SEC                                  
012336,000390: 43,2326           04607                           TC       BANKCALL                              
012337,000391: 43,2327           01736                           CADR     DELAYJOB                              
012338,000392: 43,2330           05520                           TC       DOWNFLAG                              #  ENABLE R25 GIMBAL MONITOR
012339,000393: 43,2331           00126                           ADRES    NORRMON                               
012340,000394: 43,2332           12117                           TCF      GOPIN                                 
012341,000395: 
012342,000396: 43,2333     7731               BIT14&11           =        PRIO22                                
012343,000397: 
012344,000398: 
012345,000399: 
012346,000400: 23,2000                                           SETLOC   EXTVB1                                
012347,000401: 23,2000                                           BANK                                           
012348,000402: 23,2000                                           COUNT*   $$/EXTVB                              
012349,000403: 
012350,000404: 23,2000           04636        AURLOKON           TC       MAKECADR                              
012351,000405: 23,2001           55112                           TS       DESRET                                
012352,000406: 23,2002           34743                           CAF      TWO                                   
012353,000407: 23,2003           55051                           TS       OPTIONX    +1                         
012354,000408: 23,2004           36263                           CAF      SIX                                   #  OPTION CODE FOR V04N12
012355,000409: 23,2005           55050                           TS       OPTIONX                               
012356,000410: 
012357,000411: 23,2006           32037                 -5        CAF      V04N1272                              
012358,000412: 23,2007           04607                           TC       BANKCALL                              #       R2   00001  LOCK-ON

Page 284

012360,000414: 23,2010           20345                           CADR     GOMARKFR                              
012361,000415: 23,2011           15474                           TCF      ENDEXT                                #  V34
012362,000416: 23,2012           12017                           TCF      +5                                    #  V33
012363,000417: 23,2013           12006                           TCF      -5                                    #  V32
012364,000418: 23,2014           34742                           CAF      BIT3                                  
012365,000419: 23,2015           05466                           TC       BLANKET                               
012366,000420: 23,2016           05146                           TC       ENDOFJOB                              
012367,000421: 
012368,000422: 23,2017           31051                 +5        CA       OPTIONX    +1                         
012369,000423: 23,2020           74743                           MASK     BIT2                                  
012370,000424: 23,2021           10000                           CCS      A                                     
012371,000425: 23,2022           12026                           TCF      NOLOKON                               
012372,000426: 23,2023           05506                           TC       UPFLAG                                
012373,000427: 23,2024           00012                           ADRES    LOKONSW                               
012374,000428: 23,2025           12034                           TCF      AURLKON1                              
012375,000429: 
012376,000430: 23,2026           05520        NOLOKON            TC       DOWNFLAG                              #  IF NO LOCK-ON, SET BIT15 OF RADMODES TO
012377,000431: 23,2027           00012                           ADRES    LOKONSW                               #  INDICATE THAT CONTINUOUS DESIGNATION IS
012378,000432: 23,2030           05506                           TC       UPFLAG                                #  WANTED (TO BE TERMINATED BY V44.)
012379,000433: 23,2031           00264                           ADRES    CDESFLAG                              
012380,000434: 23,2032           05506                           TC       UPFLAG                                #  SET NO RR ANGLE MONITOR FLAG.
012381,000435: 23,2033           00126                           ADRES    NORRMON                               #  (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
012382,000436: 23,2034           00003        AURLKON1           RELINT                                         
012383,000437: 23,2035           31112                           CA       DESRET                                
012384,000438: 23,2036           14631                           TCF      BANKJUMP                              
012385,000439: 
012386,000440: 
012387,000441: 23,2037           01014        V04N1272           VN       412                                   
012388,000442: 23,2040           77757        -LOKONFG           OCT      -20                                   
012389,000443: 
012390,000444: 43,2333                                           BANK     43                                    
012391,000445: 43,2000                                           SETLOC   EXTVERBS                              
012392,000446: 43,2000                                           BANK                                           
012393,000447: 43,2333                                           COUNT*   $$/EXTVB                              
012394,000448: 
012395,000449: 43,2333           05506        LRON               TC       UPFLAG                                #  PERMIT INCORPORATION OF LR DATA      V57
012396,000450: 43,2334           00254                           ADRES    LRINH                                 
012397,000451: 43,2335           02117                           TC       GOPIN                                 
012398,000452: 
012399,000453: 43,2336           05520        LROFF              TC       DOWNFLAG                              #  INHIBIT INCORPORATION OF LR DATA     V58
012400,000454: 43,2337           00254                           ADRES    LRINH                                 
012401,000455: 43,2340           02117                           TC       GOPIN                                 
012402,000456: 
012403,000457: 43,2341           05506        TEROFF             TC       UPFLAG                                #  BYPASS TERRAIN MODEL
012404,000458: 43,2342           00023                           ADRES    NOTERFLG                              
012405,000459: 43,2343           12117                           TCF      GOPIN                                 
012406,000460: 
012407,000461: 
012408,000462: 43,2344  E5,1737                                  EBANK=   OGC                                   
012409,000463: 

Page 285

012411,000465:                                                                                                  #           IMUFINEK     VERB 42            DESCRIPTION
012412,000466:                                                                                                  #               FINE ALIGN IMU
012413,000467:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
012414,000468:                                                                                                  #               2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
012415,000469:                                                                                                  #                  RESPONSES
012416,000470:                                                                                                  #                  A. TERMINATE
012417,000471:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYSTEM.
012418,000472:                                                                                                  #                  B. PROCEED OR ENTER
012419,000473:                                                                                                  #                     1. RE-DISPLAY VERB 42
012420,000474:                                                                                                  #                     2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
012421,000475:                                                                                                  #                     3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
012422,000476:                                                                                                  #                        A. FAILED
012423,000477:                                                                                                  #                           1. RELEASE EXT VERB DISPLAY SYSTEM.
012424,000478:                                                                                                  #                        B. GOOD
012425,000479:                                                                                                  #                           1. EXECUTE IMUPULSE (TORQUE IRIGS).
012426,000480:                                                                                                  #                           2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
012427,000481: 
012428,000482: 43,2344           02411        IMUFINEK           TC       CKMODCAD                              
012429,000483: 43,2345           02076                           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
012430,000484: 43,2346           32373                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
012431,000485: 43,2347           04607                           TC       BANKCALL                              
012432,000486: 43,2350           20323                           CADR     GOXDSPF                               
012433,000487: 43,2351           05474                           TC       TERMEXTV                              
012434,000488: 43,2352           02353                           TC       +1                                    #  PROCEED WITHOUT A LOAD
012435,000489: 
012436,000490: 43,2353           32374                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
012437,000491: 43,2354           04607                           TC       BANKCALL                              
012438,000492: 43,2355           20632                           CADR     EXDSPRET                              
012439,000493: 
012440,000494: 43,2356           04607                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
012441,000495: 43,2357           17175                           CADR     IMUFINE                               
012442,000496: 
012443,000497: 43,2360           04607                           TC       BANKCALL                              #  HIBERNATION
012444,000498: 43,2361           17735                           CADR     IMUSTALL                              
012445,000499: 43,2362           05474                           TC       ENDEXTVB                              
012446,000500: 
012447,000501: 43,2363           32372        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
012448,000502: 43,2364           04607                           TC       BANKCALL                              
012449,000503: 43,2365           17310                           CADR     IMUPULSE                              
012450,000504: 
012451,000505: 43,2366           04607                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
012452,000506: 43,2367           17735                           CADR     IMUSTALL                              
012453,000507: 43,2370           05474                           TC       ENDEXTVB                              
012454,000508: 43,2371           05474                           TC       ENDEXTVB                              
012455,000509: 
012456,000510: 43,2372           02737        LGYROBIN           ECADR    OGC                                   
012457,000511: 43,2373           06335        VNLODGYR           VN       2593                                  
012458,000512: 43,2374           12400        IMUFINEV           VN       4200                                  
012459,000513:                                                                                                  #           GOLOADLV     VERB 50            DESCRIPTION
012460,000514:                                                                                                  #                        AND OTHER PLEASE

Page 286

012462,000516:                                                                                                  #                        DO SOMETHING VERBS
012463,000517:                                                                                                  #               PLEASE PERFORM, MARK, CALIBRATE, ETC.
012464,000518:                                                                                                  #               1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN  PERFORMED, AND THE PROGRAM DOES THE
012465,000519:                                                                                                  #                  SAME RECALL AS A COMPLETED LOAD.
012466,000520:                                                                                                  #               2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
012467,000521: 
012468,000522: 43,2375  40,2000                                  SBANK=   PINSUPER                              #  FOR LOADLV1 AND SHOWSUM CADR'S.
012469,000523: 
012470,000524: 43,2375           04424        GOLOADLV           TC       FLASHOFF                              
012471,000525: 
012472,000526: 43,2376           34172                           CAF      PINSUPBT                              
012473,000527: 43,2377           00006                           EXTEND                                         
012474,000528: 43,2400           01007                           WRITE    SUPERBNK                              
012475,000529: 43,2401           04626                           TC       POSTJUMP                              
012476,000530: 43,2402           62021                           CADR     LOADLV1                               
012477,000531:                                                                                                  #  VERB 47 - AGS INITIALIZATION - R47.
012478,000532: 
012479,000533:                                                                                                  #           SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
012480,000534: 
012481,000535: 43,2403           02076        V47TXACT           TC       TESTXACT                              #  NO OTHER EXTVERB.
012482,000536: 43,2404           34731                           CAF      PRIO4                                 
012483,000537: 43,2405           05076                           TC       FINDVAC                               
012484,000538: 43,2406  E6,1771                                  EBANK=   AGSK                                  
012485,000539: 43,2406           02005 64066                     2CADR    AGSINIT                               
012486,000540: 
012487,000541: 43,2410           05146                           TC       ENDOFJOB                              
012488,000542: 
012489,000543: 43,2411           31301        CKMODCAD           CA       MODECADR                              
012490,000544: 43,2412           00006                           EXTEND                                         
012491,000545: 43,2413           16763                           BZF      TCQ                                   
012492,000546: 43,2414           02116                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
012493,000547: 

Page 287

012495,000549:                                                                                                  #           ALINTIME     VERB 55            DESCRIPTION
012496,000550:                                                                                                  #                  REQUIRE POO OR POO-.
012497,000551:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012498,000552:                                                                                                  #               2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
012499,000553:                                                                                                  #               3. REQUIRE EXECUTION OF VERB 23.
012500,000554:                                                                                                  #               4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
012501,000555:                                                                                                  #               5. RELEASE EXT VERB DISPLAY SYSTEM
012502,000556: 
012503,000557: 43,2415           02076        ALINTIME           TC       TESTXACT                              
012504,000558: 43,2416           04626                           TC       POSTJUMP                              #  NO ROOM IN 43
012505,000559: 43,2417           64002                           CADR     R33                                   
012506,000560: 
012507,000561: 42,2002                                           BANK     42                                    
012508,000562: 42,2000                                           SETLOC   SBAND                                 
012509,000563: 42,2000                                           BANK                                           
012510,000564: 42,2002                                           COUNT*   $$/R33                                
012511,000565: 
012512,000566: 42,2002           35012        R33                CAF      PRIO7                                 
012513,000567: 42,2003           05137                           TC       PRIOCHNG                              
012514,000568: 42,2004           32034                           CAF      VNLODDT                               
012515,000569: 42,2005           04607                           TC       BANKCALL                              
012516,000570: 42,2006           20323                           CADR     GOXDSPF                               
012517,000571: 42,2007           05474                           TC       ENDEXT                                #  TERMINATE
012518,000572: 42,2010           05474                           TC       ENDEXT                                #  PROCEED
012519,000573: 42,2011           42033                           CS       DEC23                                 #  DATA IN OR RESEQUENCE(UNLIKELY)
012520,000574: 42,2012           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
012521,000575: 42,2013           00006                           EXTEND                                         
012522,000576: 42,2014           12016                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
012523,000577: 42,2015           05474                           TC       ENDEXT                                #    WITH V23 (DATA IN).
012524,000578: 
012525,000579: 42,2016           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
012526,000580: 42,2017           34746                           CAF      ZERO                                  
012527,000581: 42,2020           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
012528,000582: 42,2021           54001                           TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
012529,000583: 42,2022           52025                           DXCH     TIME2                                 
012530,000584: 42,2023           52155                           DXCH     MPAC                                  
012531,000585: 42,2024           53051                           DXCH     DSPTEM2    +1                         #  INCREMENT
012532,000586: 42,2025           20155                           DAS      MPAC                                  
012533,000587: 
012534,000588: 42,2026           07300                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
012535,000589: 42,2027           52155                           DXCH     MPAC                                  #  NEW CLOCK.
012536,000590: 42,2030           20025                           DAS      TIME2                                 
012537,000591: 42,2031           00003                           RELINT                                         
012538,000592: 42,2032           05474        UPDTMEND           TC       ENDEXT                                
012539,000593: 
012540,000594: 42,2033           00027        DEC23              DEC      23         B-14                       #  V 23
012541,000595: 
012542,000596: 42,2034           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
012543,000597: 

Page 288

012545,000599:                                                                                                  #           SET UP FOR RADAR SAMPLING.
012546,000600: 
012547,000601: 42,2035                                           BANK     42                                    
012548,000602: 43,2000                                           SETLOC   EXTVERBS                              
012549,000603: 43,2000                                           BANK                                           
012550,000604: 
012551,000605: 43,2420  E4,1571                                  EBANK=   RSTACK                                
012552,000606: 
012553,000607: 43,2420                                           COUNT*   $$/R0477                              
012554,000608: 
012555,000609: 43,2420           02653        R77                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
012556,000610: 43,2421           30077                           CA       FLAGWRD3                              #  IS R04 RUNNING?
012557,000611: 43,2422           74734                           MASK     R04FLBIT                              
012558,000612: 43,2423           10000                           CCS      A                                     
012559,000613: 43,2424           02116                           TC       ALM/END                               #  YES.
012560,000614: 43,2425           05506                           TC       UPFLAG                                
012561,000615: 43,2426           00117                           ADRES    R77FLAG                               
012562,000616: 43,2427           12434                           TCF      R04Z                                  
012563,000617: 
012564,000618: 43,2430           02653        R04                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
012565,000619: 43,2431           02076                           TC       TESTXACT                              
012566,000620: 43,2432           05506                           TC       UPFLAG                                
012567,000621: 43,2433           00063                           ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
012568,000622: 
012569,000623: 43,2434           34732        R04Z               CAF      EBANK4                                
012570,000624: 43,2435           54003                           TS       EBANK                                 
012571,000625: 43,2436           32651                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
012572,000626: 43,2437           55770                           TS       RSAMPDT                               
012573,000627: 43,2440           34746                           CAF      ZERO                                  
012574,000628: 43,2441           55767                           TS       RTSTLOC                               
012575,000629: 43,2442           55566                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
012576,000630: 
012577,000631: 43,2443           00004                           INHINT                                         
012578,000632: 43,2444           42652                           CS       LRPOSCAL                              #  INITIALIZE
012579,000633: 43,2445           70110                           MASK     RADMODES                              #      BIT9   LR RANGE  LOW SCALE =0
012580,000634: 43,2446           54110                           TS       RADMODES                              #      BIT6   LR POS 1 =0
012581,000635: 43,2447           32652                           CAF      LRPOSCAL                              #      BIT3   RR RANGE  LOW SCALE =0
012582,000636: 43,2450           00006                           EXTEND                                         
012583,000637: 43,2451           02033                           RAND     CHAN33                                
012584,000638: 43,2452           26110                           ADS      RADMODES                              
012585,000639: 43,2453           00003                           RELINT                                         
012586,000640: 
012587,000641: 43,2454           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG      R04 =1    R77 =0
012588,000642: 43,2455           74734                           MASK     R04FLBIT                              
012589,000643: 43,2456           10000                           CCS      A                                     
012590,000644: 43,2457           12606                           TCF      R04K                                  
012591,000645: 
012592,000646: 43,2460           34744                           CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
012593,000647: 43,2461           55051                           TS       OPTIONX    +1                         
012594,000648: 43,2462           34742        R04A               CAF      BIT3                                  #  OPTION CODE FOR V04N12
012595,000649: 

Page 289

012597,000651: 43,2463           55050                           TS       OPTIONX                               
012598,000652: 43,2464           32646                           CAF      V04N12X                               
012599,000653: 43,2465           04607                           TC       BANKCALL                              #      R2   00001  RENDEZVOUS RADAR
012600,000654: 43,2466           20345                           CADR     GOMARKFR                              #           00002  LANDING RADAR
012601,000655: 43,2467           12614                           TCF      R04END                                #  V34
012602,000656: 43,2470           12475                           TCF      +5                                    #  V33
012603,000657: 43,2471           12464                           TCF      R04A       +2                         #  R2
012604,000658: 43,2472           34742                           CAF      BIT3                                  
012605,000659: 43,2473           05466                           TC       BLANKET                               
012606,000660: 43,2474           05146                           TC       ENDOFJOB                              
012607,000661: 
012608,000662: 43,2475           31051                           CA       OPTIONX    +1                         #  SAVE DESIRED OPTION     RR =1     LR =2
012609,000663: 43,2476           55764                           TS       RTSTDEX                               
012610,000664: 
012611,000665: 43,2477           36263        R04X               CAF      SIX                                   #  RR OR LR DESIRED
012612,000666: 43,2500           71764                           MASK     RTSTDEX                               
012613,000667: 43,2501           10000                           CCS      A                                     
012614,000668: 43,2502           12610                           TCF      R04L                                  #  LANDING RADAR
012615,000669: 43,2503           55766                           TS       RTSTBASE                              #  FOR RR   BASE = 0, MAX = 1
012616,000670: 
012617,000671: 43,2504           34743        R04B               CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
012618,000672: 43,2505           00006                           EXTEND                                         
012619,000673: 43,2506           02033                           RAND     CHAN33                                
012620,000674: 43,2507           00006                           EXTEND                                         
012621,000675: 43,2510           12521                           BZF      R04C                                  #  YES
012622,000676: 
012623,000677: 43,2511           32650                           CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
012624,000678: 43,2512           55044                           TS       DSPTEM1                               
012625,000679: 43,2513           32647                           CAF      V50N25X                               
012626,000680: 43,2514           04607                           TC       BANKCALL                              
012627,000681: 43,2515           20337                           CADR     GOMARK4                               
012628,000682: 43,2516           12614                           TCF      R04END                                #  V34
012629,000683: 43,2517           12504                           TCF      R04B                                  #  V33
012630,000684: 43,2520           12511                           TCF      -7                                    #  E
012631,000685: 
012632,000686: 43,2521           34727        R04C               CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
012633,000687: 43,2522           00006                           EXTEND                                         
012634,000688: 43,2523           05012                           WOR      CHAN12                                
012635,000689: 
012636,000690: 43,2524           34743                           CAF      TWO                                   
012637,000691: 43,2525           55765                           TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
012638,000692: 
012639,000693: 43,2526           05205                           TC       WAITLIST                              
012640,000694: 43,2527  E4,1571                                  EBANK=   RSTACK                                
012641,000695: 43,2527           02162 32104                     2CADR    RADSAMP                               
012642,000696: 
012643,000697: 43,2531           00003                           RELINT                                         
012644,000698: 
012645,000699: 43,2532           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG      R04 =1    R77 =0
012646,000700: 43,2533           74734                           MASK     R04FLBIT                              

Page 290

012648,000702: 43,2534           10000                           CCS      A                                     
012649,000703: 43,2535           12117                           TCF      GOPIN                                 #  R77
012650,000704: 
012651,000705: 43,2536           36263                           CAF      SIX                                   #  RR OR LR
012652,000706: 43,2537           71764                           MASK     RTSTDEX                               
012653,000707: 43,2540           10000                           CCS      A                                     
012654,000708: 43,2541           12556                           TCF      R04LR                                 #  LR
012655,000709: 
012656,000710: 43,2542           32642        R04RR              CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
012657,000711: 43,2543           04607                           TC       BANKCALL                              #           R1  +  XXX.XX DEG   TRUNNION
012658,000712: 43,2544           20323                           CADR     GOMARKF                               #           R2  +  XXX.XX DEG   SHAFT
012659,000713: 43,2545           12614                           TCF      R04END                                #  V34      R3     BLANK
012660,000714: 43,2546           12550                           TCF      +2                                    #  V33
012661,000715: 43,2547           12542                           TCF      R04RR                                 #  V32
012662,000716: 
012663,000717: 43,2550           32643                           CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
012664,000718: 43,2551           04607                           TC       BANKCALL                              #           R1  +- XXX.XX NM    RANGE
012665,000719: 43,2552           20323                           CADR     GOMARKF                               #           R2  +- XXXX.X FPS   RANGE RATE
012666,000720: 43,2553           12614                           TCF      R04END                                #  V34      R3     BLANK
012667,000721: 43,2554           12572                           TCF      R04Y                                  #  V33
012668,000722: 43,2555           12542                           TCF      R04RR                                 #  V32
012669,000723: 
012670,000724: 43,2556           32644        R04LR              CAF      V16N66                                #  DISPLAY LR RANGE AND POSITION (1/SEC)
012671,000725: 43,2557           04607                           TC       BANKCALL                              #           R1  +- XXXXX. FT   LR RANGE
012672,000726: 43,2560           20323                           CADR     GOMARKF                               #           R2  +  0000X.      POS. NO.
012673,000727: 43,2561           12614                           TCF      R04END                                #  V34      R3     BLANK
012674,000728: 43,2562           12564                           TCF      +2                                    #  V33
012675,000729: 43,2563           12556                           TCF      R04LR                                 #  V32
012676,000730: 
012677,000731: 43,2564           32645                           CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
012678,000732: 43,2565           04607                           TC       BANKCALL                              #           R1  +- XXXXX. FPS   LR V(X)
012679,000733: 43,2566           20323                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   LR V(Y)
012680,000734: 43,2567           12614                           TCF      R04END                                #  V34      R3  +- XXXXX. FPS   LR V(Z)
012681,000735: 43,2570           12572                           TCF      R04Y                                  #  V33
012682,000736: 43,2571           12556                           TCF      R04LR                                 #  V32
012683,000737: 
012684,000738: 43,2572           34746        R04Y               CAF      ZERO                                  #  TO TERMINATE SAMPLING
012685,000739: 43,2573           55770                           TS       RSAMPDT                               
012686,000740: 43,2574           04607                           TC       BANKCALL                              
012687,000741: 43,2575           01735                           CADR     2SECDELY                              #  WAIT FOR LAST RADARUPT
012688,000742: 43,2576           32651                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
012689,000743: 43,2577           55770                           TS       RSAMPDT                               
012690,000744: 43,2600           34746                           CAF      ZERO                                  #  FOR STORING RESULTS
012691,000745: 43,2601           55767                           TS       RTSTLOC                               
012692,000746: 43,2602           11766                           CCS      RTSTBASE                              #   CHECK WHICH RADAR HAD BEEN SAMPLED
012693,000747: 43,2603           44744                           CS       ONE                                   #  WAS LR
012694,000748: 43,2604           64743                           AD       TWO                                   #  WAS RR
012695,000749: 43,2605           12476                           TCF      R04X       -1                         
012696,000750: 
012697,000751: 43,2606           34757        R04K               CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.

Page 291

012699,000753: 43,2607           55770                           TS       RSAMPDT                               
012700,000754: 
012701,000755: 43,2610           34743        R04L               CAF      TWO                                   
012702,000756: 43,2611           55766                           TS       RTSTBASE                              #  FOR LR   BASE = 2, MAX = 3
012703,000757: 43,2612           36263                           CAF      SIX                                   
012704,000758: 43,2613           12525                           TCF      R04C       +4                         
012705,000759: 43,2614           34746        R04END             CAF      ZERO                                  #  ZERO RSAMPDT
012706,000760: 43,2615           55770                           TS       RSAMPDT                               #  TO TERMINATE SAMPLING
012707,000761: 43,2616           34735                           CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
012708,000762: 43,2617           04607                           TC       BANKCALL                              #  PENDING RUPT.
012709,000763: 43,2620           01736                           CADR     DELAYJOB                              
012710,000764: 
012711,000765: 43,2621           00004                           INHINT                                         
012712,000766: 43,2622           44727                           CS       BIT14                                 #  DISABLE RR AUTO TRACKER
012713,000767: 43,2623           00006                           EXTEND                                         
012714,000768: 43,2624           03012                           WAND     CHAN12                                
012715,000769: 
012716,000770: 43,2625           05520                           TC       DOWNFLAG                              
012717,000771: 43,2626           00063                           ADRES    R04FLAG                               #  SIGNAL END OF R04.
012718,000772: 
012719,000773: 43,2627           05474                           TC       ENDEXT                                
012720,000774: 
012721,000775: 43,2630           34732        R77END             CAF      EBANK4                                #  TO TERMINATE SAMPLING
012722,000776: 43,2631           54003                           TS       EBANK                                 
012723,000777: 43,2632           34746                           CAF      ZERO                                  
012724,000778: 43,2633           55770                           TS       RSAMPDT                               
012725,000779: 43,2634           34737                           CAF      BIT6                                  #  WAIT 320 MS FOR POSSIBLE
012726,000780: 43,2635           04607                           TC       BANKCALL                              #  PENDING RUPT.
012727,000781: 43,2636           01736                           CADR     DELAYJOB                              
012728,000782: 
012729,000783: 43,2637           05520                           TC       DOWNFLAG                              
012730,000784: 43,2640           00117                           ADRES    R77FLAG                               
012731,000785: 43,2641           12117                           TCF      GOPIN                                 
012732,000786: 
012733,000787: 43,2642           04110        V16N72             VN       1672                                  
012734,000788: 43,2643           04116        V16N78             VN       1678                                  
012735,000789: 43,2644           04102        V16N66             VN       1666                                  
012736,000790: 43,2645           04103        V16N67             VN       1667                                  
012737,000791: 43,2646           01014        V04N12X            VN       412                                   
012738,000792: 43,2647           14431        V50N25X            VN       5025                                  
012739,000793: 43,2650           00201        201R04             OCT      00201                                 
012740,000794: 43,2651           00145        1SEC+1             DEC      101        B-14                       
012741,000795: 43,2652     4757               250MS+1            EQUALS   CALLCODE                              
012742,000796: 43,2652           00444        LRPOSCAL           OCT      444                                   
012743,000797: 

Page 292

012745,000799: 43,2653           30101        RDRUSECK           CA       FLAGWRD5                              #  IS R77 RUNNING?
012746,000800: 43,2654           74732                           MASK     R77FLBIT                              
012747,000801: 43,2655           10000                           CCS      A                                     
012748,000802: 43,2656           02116                           TC       ALM/END                               #  YES.
012749,000803: 43,2657           40103                           CS       FLAGWRD7                              #  IS SERVICER RUNNING AND HENCE POSSIBLY
012750,000804: 43,2660           74737                           MASK     V37FLBIT                              #  R12 USING THE LR?
012751,000805: 43,2661           10000                           CCS      A                                     
012752,000806: 43,2662           12667                           TCF      CHECKRR                               #  NO
012753,000807: 43,2663           30107                           CA       FLGWRD11                              #  YES, IS R12 ON?
012754,000808: 43,2664           74726                           MASK     LRBYBIT                               #  BIT 15
012755,000809: 43,2665           00006                           EXTEND                                         
012756,000810: 43,2666           12116                           BZF      ALM/END                               #  YES
012757,000811: 43,2667           40075        CHECKRR            CS       FLAGWRD1                              #  IS THE TRACK FLAG SET AND HENCE POSSIBLY
012758,000812: 43,2670           74740                           MASK     TRACKBIT                              #  P20 USING THE RR?
012759,000813: 43,2671           10000                           CCS      A                                     
012760,000814: 43,2672           00002                           TC       Q                                     #  NOT ALLOWED DURING P20
012761,000815: 43,2673           02116                           TC       ALM/END                               #  P22 OR P25,  (R65)
012762,000816: 43,2674                                           COUNT*   $$/EXTVB                              
012763,000817: 
012764,000818: 43,2674           02076        VB64               TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
012765,000819: 43,2675           34731                           CAF      PRIO4                                 
012766,000820: 43,2676           05076                           TC       FINDVAC                               
012767,000821: 43,2677  E4,1571                                  EBANK=   ALPHASB                               
012768,000822: 43,2677           03617 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
012769,000823: 
012770,000824: 43,2701           05146                           TC       ENDOFJOB                              
012771,000825: 

Page 293

012773,000827:                                                                                                  #           IMUATTCK      VERB 43           DESCRIPTION
012774,000828:                                                                                                  #               LOAD IMU ATTITUDE ERROR METERS
012775,000829:                                                                                                  #                  1. REQUIRE POO OR FRESH START.
012776,000830:                                                                                                  #                  2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
012777,000831:                                                                                                  #                  3. REQUIRE THAT NEEDLES BE OFF.
012778,000832:                                                                                                  #                  4. REQUEST LOAD OF N22  (VAUES TO BE DISPLAYED).
012779,000833:                                                                                                  #                  5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
012780,000834: 
012781,000835: 43,2702           02121        IMUATTCK           TC       CHKPOOH                               #  VB 76 - LOAD IMU ATT. ERROR METERS
012782,000836: 
012783,000837: 43,2703           34754                           CAF      BITS4&5                               #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
012784,000838: 43,2704           00006                           EXTEND                                         #  CDUS BITS ARE ON
012785,000839: 43,2705           02012                           RAND     CHAN12                                
012786,000840: 43,2706           10000                           CCS      A                                     
012787,000841: 43,2707           12116                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
012788,000842: 
012789,000843: 43,2710           34346                           CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
012790,000844: 43,2711           00006                           EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
012791,000845: 43,2712           06031                           RXOR     CHAN31                                
012792,000846: 43,2713           74346                           MASK     BIT13-14                              
012793,000847: 43,2714           00006                           EXTEND                                         
012794,000848: 43,2715           12717                           BZF      +2                                    #  NEEDLES IS OFF.
012795,000849: 43,2716           12116                           TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
012796,000850: 
012797,000851: 43,2717           02076                           TC       TESTXACT                              
012798,000852: 
012799,000853: 43,2720           32233                           CAF      VNLODCDU                              
012800,000854: 43,2721           04607                           TC       BANKCALL                              
012801,000855: 43,2722           20323                           CADR     GOXDSPF                               
012802,000856: 43,2723           05474                           TC       ENDEXT                                #  V34
012803,000857: 43,2724           02725                           TC       +1                                    
012804,000858: 43,2725           32740                           CAF      V43K                                  #  REDISPLAY OUR VERB.
012805,000859: 43,2726           04607                           TC       BANKCALL                              
012806,000860: 43,2727           20632                           CADR     EXDSPRET                              
012807,000861: 43,2730           34737                           CAF      BIT6                                  
012808,000862: 43,2731           00006                           EXTEND                                         
012809,000863: 43,2732           05012                           WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
012810,000864: 43,2733           34743                           CAF      TWO                                   
012811,000865: 43,2734           05205                           TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
012812,000866: 43,2735     0321                                  EBANK=   THETAD                                
012813,000867: 43,2735           02035 64100                     2CADR    ATTCK2                                
012814,000868: 
012815,000869: 43,2737           15474                           TCF      ENDEXT                                
012816,000870: 
012817,000871: 42,2035                                           BANK     42                                    
012818,000872: 42,2000                                           SETLOC   PINBALL3                              #  SOMETHING IN B42.
012819,000873: 42,2000                                           BANK                                           
012820,000874: 
012821,000875: 42,2035                                           COUNT*   $$/EXTVB                              

Page 294

012823,000877: 42,2035           34743        ATTCK2             CAF      TWO                                   #  PUT OUT COMMANDS.
012824,000878: 42,2036           54002                 +1        TS       Q                                     #  CDU WILL LIMIT EXCESS DATA.
012825,000879: 42,2037           50000                           INDEX    A                                     
012826,000880: 42,2040           30321                           CA       THETAD                                
012827,000881: 42,2041           00006                           EXTEND                                         
012828,000882: 42,2042           72053                           MP       ATTSCALE                              
012829,000883: 42,2043           50002                           INDEX    Q                                     
012830,000884: 42,2044           56050                           XCH      CDUXCMD                               
012831,000885: 42,2045           10002                           CCS      Q                                     
012832,000886: 42,2046           12036                           TCF      ATTCK2     +1                         
012833,000887: 
012834,000888: 42,2047           37761                           CAF      13,14,15                              
012835,000889: 42,2050           00006                           EXTEND                                         
012836,000890: 42,2051           05014                           WOR      CHAN14                                
012837,000891: 42,2052           15263                           TCF      TASKOVER                              #  LEAVE ERROR COUNTERS ENABLED.
012838,000892: 
012839,000893: 42,2053           03146        ATTSCALE           DEC      0.1                                   
012840,000894: 
012841,000895: 07,2607                                           BANK     7                                     
012842,000896: 43,2000                                           SETLOC   EXTVERBS                              
012843,000897: 43,2000                                           BANK                                           
012844,000898: 
012845,000899: 43,2740                                           COUNT*   $$/EXTVB                              
012846,000900: 
012847,000901: 43,2740           12600        V43K               VN       4300                                  
012848,000902:                                                                                                  #           V82PERF     VERB 82             DESCRIPTION
012849,000903:                                                                                                  #               REQUEST ORBIT PARAMETERS DISPLAY (R30)
012850,000904:                                                                                                  #  1. IF AVERAGE G IS OFF:
012851,000905:                                                                                                  #           FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
012852,000906:                                                                                                  #            TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
012853,000907:                                                                                                  #            CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
012854,000908:                                                                                                  #           SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
012855,000909:                                                                                                  #           CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
012856,000910:                                                                                                  #            RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
012857,000911:                                                                                                  #            HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
012858,000912:                                                                                                  #            HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
012859,000913:                                                                                                  #            INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
012860,000914:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
012861,000915:                                                                                                  #            NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
012862,000916:                                                                                                  #            ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
012863,000917:                                                                                                  #            DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
012864,000918:                                                                                                  #            ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
012865,000919: 
012866,000920:                                                                                                  #  2. IF AVERAGE G IS ON:
012867,000921:                                                                                                  #           CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
012868,000922:                                                                                                  #            FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
012869,000923:                                                                                                  #            OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
012870,000924:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).
012871,000925:                                                                                                  #           IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
012872,000926:                                                                                                  #            RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
012873,000927: 

Page 295

012875,000929: 43,2741           02076        V82PERF            TC       TESTXACT                              
012876,000930: 
012877,000931: 43,2742           35012                           CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
012878,000932: 43,2743           05137                           TC       PRIOCHNG                              
012879,000933: 43,2744           00006                           EXTEND                                         
012880,000934: 43,2745           32750                           DCA      V82CON                                
012881,000935: 43,2746           05167                           TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
012882,000936: 
012883,000937: 43,2747  E4,1707                                  EBANK=   HAPO                                  
012884,000938: 43,2747           03244 44104  V82CON             2CADR    V82CALL                               
012885,000939: 
012886,000940:                                                                                                  #           VB83PERF     VERB 83            DESCRIPTION
012887,000941:                                                                                                  #               REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
012888,000942:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012889,000943:                                                                                                  #               2. SCHEDULE R31CALL WITH PRIORITY 5.
012890,000944:                                                                                                  #                  A. DISPLAY
012891,000945:                                                                                                  #                      R1  RANGE
012892,000946:                                                                                                  #                      R2  RANGE RATE
012893,000947:                                                                                                  #                      R3  THETA
012894,000948: 
012895,000949: 43,2751           02076        V83PERF            TC       TESTXACT                              
012896,000950: 
012897,000951: 43,2752           34743                           CAF      BIT2                                  
012898,000952: 43,2753           05205                           TC       WAITLIST                              
012899,000953: 43,2754  E7,1611                                  EBANK=   TSTRT                                 
012900,000954: 43,2754           03741 60107                     2CADR    R31CALL                               
012901,000955: 
012902,000956: 43,2756           05146                           TC       ENDOFJOB                              
012903,000957: 
012904,000958:                                                                                                  #  VERB 89 DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
012905,000959: 
012906,000960:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED.  CALCULATES AND
012907,000961:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
012908,000962: 
012909,000963:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
012910,000964:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
012911,000965: 
012912,000966:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
012913,000967:                                                                                                  #  ORIENTATION KNOWN TO LGC, CONTINUE.
012914,000968: 
012915,000969:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
012916,000970:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
012917,000971:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
012918,000972:                                                                                                  #  AFTER KEYING IN PROCEED.
012919,000973: 
012920,000974:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
012921,000975: 
012922,000976:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND

Page 296

012924,000978:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
012925,000979:                                                                                                  #  PREPARED FOR VECPOINT.
012926,000980: 
012927,000981:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
012928,000982:                                                                                                  #  BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
012929,000983: 
012930,000984:                                                                                                  #  7. RECYCLE - RETURN TO STEP 4.
012931,000985:                                                                                                  #     TERMINATE - EXIT R63.
012932,000986:                                                                                                  #     PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
012933,000987: 
012934,000988: 
012935,000989: 43,2757           02121        V89PERF            TC       CHKPOOH                               
012936,000990: 43,2760           02076                           TC       TESTXACT                              
012937,000991: 43,2761           34730                           CAF      PRIO10                                
012938,000992: 43,2762           05076                           TC       FINDVAC                               
012939,000993: 43,2763  E4,1577                                  EBANK=   RONE                                  
012940,000994: 43,2763           02024 54104                     2CADR    V89CALL                               
012941,000995: 
012942,000996: 43,2765           05146                           TC       ENDOFJOB                              
012943,000997: 
012944,000998:                                                                                                  #           V90PERF     VERB 90             DESCRIPTION
012945,000999:                                                                                                  #               REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
012946,001000:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012947,001001:                                                                                                  #               2. SCHEDULE R36 CALL WITH PRIORITY 10
012948,001002:                                                                                                  #                  A. DISPLAY
012949,001003:                                                                                                  #                      TIME OF EVENT - HOURS , MINUTES , SECONDS
012950,001004:                                                                                                  #                      Y  OUT-OF-PLANE POSITION - NAUTICAL MILES
012951,001005:                                                                                                  #                      YDOT  OUT-OF-PLANE VELOCITY - FEET/SECOND
012952,001006:                                                                                                  #                      PSI  ANGLE BTW LINE OF SIGHT AND FORWARD
012953,001007:                                                                                                  #                           DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012954,001008: 
012955,001009: 43,2766           40103        V90PERF            CS       FLAGWRD7                              
012956,001010: 43,2767           74737                           MASK     V37FLBIT                              
012957,001011: 43,2770           00006                           EXTEND                                         
012958,001012: 43,2771           12116                           BZF      ALM/END                               #  AVERAGE G ON: ILL EAGLE
012959,001013: 43,2772           02076                           TC       TESTXACT                              
012960,001014: 43,2773           35012                           CAF      PRIO7                                 #  R36,V90
012961,001015: 43,2774           05076                           TC       FINDVAC                               
012962,001016: 43,2775  E7,1441                                  EBANK=   TIG                                   
012963,001017: 43,2775           02677 10107                     2CADR    R36                                   
012964,001018: 
012965,001019: 43,2777           15146                           TCF      ENDOFJOB                              
012966,001020:                                                                                                  #           MINIMP     VERB 76              DESCRIPTION
012967,001021:                                                                                                  #               MINIMUM IMPULSE MODE
012968,001022:                                                                                                  #               1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
012969,001023: 
012970,001024: 43,3000           05506        MINIMP             TC       UPFLAG                                #  SET PULSES = 1 (MIN. IMPULSE MODE)
012971,001025: 43,3001           00303                           ADRES    PULSEFLG                              
012972,001026: 43,3002           12117                           TCF      GOPIN                                 #  RETURN VIA PINBRNCH
012973,001027: 

Page 297

012975,001029:                                                                                                  #           NOMINIMP     VERB 77            DESCRIPTION
012976,001030:                                                                                                  #               RATE COMMAND MODE
012977,001031:                                                                                                  #               1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
012978,001032:                                                                                                  #               2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
012979,001033: 
012980,001034: 43,3003           05520        NOMINIMP           TC       DOWNFLAG                              #  SET PULSES = 0 (NOT MINIMUM IMPULSE MODE
012981,001035: 43,3004           00303                           ADRES    PULSEFLG                              
012982,001036: 43,3005           00004                           INHINT                                         
012983,001037: 43,3006           04665                           TC       IBNKCALL                              
012984,001038: 43,3007           40154                           CADR     ZATTEROR                              
012985,001039: 43,3010           02117                           TC       GOPIN                                 
012986,001040: 

Page 298

012988,001042:                                                                                                  #           CREWMANU     VERB 49            DESCRIPTION
012989,001043:                                                                                                  #               START AUTOMATIC ATTITUDE MANEUVER
012990,001044:                                                                                                  #               1. REQUIRE PROGRAM 00 ACTIVE.
012991,001045:                                                                                                  #               2. SET EXT VERB DISPLAY BUSY FLAG.
012992,001046:                                                                                                  #               3. SCHEDULE R62DISP WITH PRIORITY 10.
012993,001047:                                                                                                  #               4. RELEASE EXT VERB DISPLAY.
012994,001048: 
012995,001049:                                                                                                  #             R62DISP
012996,001050:                                                                                                  #               1. DISPLAY FLASHING V06,N22.
012997,001051:                                                                                                  #                  RESPONSES
012998,001052:                                                                                                  #                  A. TERMINATE
012999,001053:                                                                                                  #                     1. GO TO GOTOPOOH.
013000,001054:                                                                                                  #                  B. PROCEED
013001,001055:                                                                                                  #                     1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
013002,001056:                                                                                                  #                     2. EXECUTE R60LEM (ATTITUDE MANEUVER).
013003,001057:                                                                                                  #                  C. ENTER
013004,001058:                                                                                                  #                     1. REPEAT FLASHING V06,N22.
013005,001059: 
013006,001060: 43,3011           02121        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
013007,001061: 
013008,001062: 43,3012           02076                           TC       TESTXACT                              
013009,001063: 
013010,001064: 43,3013           34730                           CAF      PRIO10                                
013011,001065: 43,3014           05076                           TC       FINDVAC                               
013012,001066: 43,3015  E6,1675                                  EBANK=   BCDU                                  
013013,001067: 43,3015           02103 46106                     2CADR    R62DISP                               
013014,001068: 
013015,001069: 43,3017           05146                           TC       ENDOFJOB                              
013016,001070: 

Page 299

013018,001072:                                                                                                  #  TRMTRACK     VERB 56                     DESCRIPTION
013019,001073:                                                                                                  #               TERMINATE TRACKING (P20 AND P25).
013020,001074:                                                                                                  #               1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
013021,001075:                                                                                                  #               2. REQUIRE P20 OR  P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
013022,001076:                                                                                                  #               3. SCHEDULE V56TOVAC WITH PRIORITY 30.
013023,001077: 
013024,001078:                                                                                                  #               V56TOVAC
013025,001079:                                                                                                  #               1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
013026,001080:                                                                                                  #               2. ZERO GROUP 2 TO HALT P20.
013027,001081:                                                                                                  #               3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
013028,001082: 
013029,001083: 43,3020           36017        TRMTRACK           CA       BITS9+7                               #  IS REND OR P25 FLAG ON
013030,001084: 43,3021           70074                           MASK     FLAGWRD0                              
013031,001085: 43,3022           00006                           EXTEND                                         
013032,001086: 43,3023           12117                           BZF      GOPIN                                 #  NO
013033,001087: 
013034,001088: 43,3024           05520                           TC       DOWNFLAG                              #  ENSURE SEARCH FLAG IS OFF
013035,001089: 43,3025           00037                           ADRES    SRCHOPTN                              
013036,001090: 
013037,001091: 43,3026           34740                           CA       TRACKBIT                              #  IS TRACK FLAG ON?
013038,001092: 43,3027           70075                           MASK     FLAGWRD1                              
013039,001093: 43,3030           00006                           EXTEND                                         
013040,001094: 43,3031           13034                           BZF      CLRRND                                
013041,001095: 43,3032           04626                           TC       POSTJUMP                              
013042,001096: 43,3033           64054                           CADR     TRMTRAK1                              
013043,001097: 
013044,001098: 43,3034           46017        CLRRND             CS       BITS9+7                               #  TURN OFF RENDVZFLG AND P25FLAG
013045,001099: 43,3035     4736               REFTAG5            =        RNDVZBIT                              
013046,001100: 43,3035     4734               REFTAG6            =        P25FLBIT                              
013047,001101: 43,3035           70074                           MASK     FLAGWRD0                              
013048,001102: 43,3036           54074                           TS       FLAGWRD0                              
013049,001103: 43,3037           12117                           TCF      GOPIN                                 
013050,001104: 
013051,001105:    6000                                           SETLOC   FFTAG5                                
013052,001106:    6000                                           BANK                                           
013053,001107: 
013054,001108:    6017           00500        BITS9+7            OCT      500                                   
013055,001109: 
013056,001110: 
013057,001111: 42,2000                                           SETLOC   SBAND                                 #  BANK 42
013058,001112: 42,2000                                           BANK                                           
013059,001113: 
013060,001114: 42,2054                                           COUNT*   $$/EXTVB                              
013061,001115: 
013062,001116: 42,2054           34727        TRMTRAK1           CAF      BIT14                                 
013063,001117: 42,2055           55073                           TS       AGSCODE                               
013064,001118: 
013065,001119: 42,2056           06060                           TC       INTPRET                               
013066,001120: 42,2057           43014                           CLEAR    CLEAR                                 #  TURN OFF UPDATFLG AND IMUSE
013067,001121: 42,2060           00267                                    IMUSE                                 

Page 300

013069,001123: 42,2061           00670                                    UPDATFLG                              
013070,001124: 42,2062           77624                           CALL                                           
013071,001125: 42,2063           27447                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
013072,001126: 42,2064           77776                           EXIT                                           
013073,001127: 
013074,001128: 42,2065           05355                           TC       PHASCHNG                              
013075,001129: 42,2066           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
013076,001130: 
013077,001131: 42,2067           00004                           INHINT                                         
013078,001132: 42,2070           04665                           TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
013079,001133: 42,2071           40166                           CADR     STOPRATE                              #  MANEUVER
013080,001134: 
013081,001135: 42,2072           04665                           TC       IBNKCALL                              
013082,001136: 42,2073           40115                           CADR     RESTORDB                              
013083,001137: 
013084,001138: 42,2074           06027                           TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES.
013085,001139: 
013086,001140: 42,2075           44727                           CS       BIT14                                 #  DISABLE LOCKON
013087,001141: 42,2076           00006                           EXTEND                                         
013088,001142: 42,2077           03012                           WAND     CHAN12                                
013089,001143: 42,2100           44740                           CS       TRACKBIT                              #  TURN OFF TRACKFLG
013090,001144: 42,2101           70075                           MASK     FLAGWRD1                              
013091,001145: 42,2102           54075                           TS       FLAGWRD1                              
013092,001146: 42,2103           46017                           CS       BITS9+7                               #  TURN OFF RENDVZFLG AND P25FLAG
013093,001147: 42,2104     4736               REFTAG7            =        RNDVZBIT                              
013094,001148: 42,2104     4734               REFTAG8            =        P25FLBIT                              
013095,001149: 42,2104           70074                           MASK     FLAGWRD0                              
013096,001150: 42,2105           54074                           TS       FLAGWRD0                              
013097,001151: 
013098,001152: 42,2106           04626                           TC       POSTJUMP                              
013099,001153: 42,2107           12772                           CADR     GOPROG2                               #  CAUSE RESTART.
013100,001154: 
013101,001155:                                                                                                  #           DNEDUMP     VERB 74             DESCRIPTION
013102,001156:                                                                                                  #               INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
013103,001157:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
013104,001158:                                                                                                  #               2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
013105,001159:                                                                                                  #               3. RELEASE EXT VERB DISPLAY.
013106,001160: 
013107,001161: 43,2000                                           SETLOC   EXTVERBS                              
013108,001162: 43,2000                                           BANK                                           
013109,001163: 
013110,001164: 43,3040                                           COUNT*   $$/EXTVB                              
013111,001165: 
013112,001166: 43,3040     0400                                  EBANK=   400                                   
013113,001167: 43,3040           33043        DNEDUMP            CAF      LDNDUMPI                              
013114,001168: 43,3041           54335                           TS       DNTMGOTO                              
013115,001169: 43,3042           02117                           TC       GOPIN                                 
013116,001170: 
013117,001171: 43,3043  43,3040               V74                EQUALS   DNEDUMP                               
013118,001172: 43,3043           03723        LDNDUMPI           REMADR   DNDUMPI                               
013119,001173: 

Page 301

013121,001175:                                                                                                  #           LEMVEC     VERB 80              DESCRIPTION
013122,001176:                                                                                                  #               UPDATE LEM STATE VECTOR
013123,001177:                                                                                                  #                  RESET VEHUPFLG TO 0
013124,001178: 
013125,001179: 43,3044           05520        LEMVEC             TC       DOWNFLAG                              
013126,001180: 43,3045           00026                           ADRES    VEHUPFLG                              #  VB 80 - VEHUPFLG DOWN INDICATES LEM
013127,001181: 
013128,001182: 43,3046           03051                           TC       NOUPDOWN                              
013129,001183:                                                                                                  #           CSMVEC     VERB 81              DESCRIPTION
013130,001184:                                                                                                  #               UPDATE CSM STATE VECTOR
013131,001185:                                                                                                  #                  SET   VEHUPFLG TO 1
013132,001186: 
013133,001187: 43,3047           05506        CSMVEC             TC       UPFLAG                                
013134,001188: 43,3050           00026                           ADRES    VEHUPFLG                              #  VB 81 - VEHUPFLG UP INDICATES CSM
013135,001189: 
013136,001190: 43,3051           05520        NOUPDOWN           TC       DOWNFLAG                              
013137,001191: 43,3052           00030                           ADRES    NOUPFLAG                              
013138,001192: 
013139,001193: 43,3053           12117                           TCF      GOPIN                                 
013140,001194: 
013141,001195:                                                                                                  #           UPDATOFF   VERB 95      DESCRIPTION
013142,001196:                                                                                                  #               INHIBIT STATE VECTOR UPDATES BY INCORP
013143,001197:                                                                                                  #                  SET NOUPFLAG TO 1
013144,001198: 
013145,001199: 43,3054           05506        UPDATOFF           TC       UPFLAG                                #  VB 95 SET NOUPFLAG
013146,001200: 43,3055           00030                           ADRES    NOUPFLAG                              
013147,001201: 
013148,001202: 43,3056           02117                           TC       GOPIN                                 
013149,001203: 

Page 302

013151,001205:                                                                                                  #           SYSTEST     VERB 92             DESCRIPTION
013152,001206:                                                                                                  #             OPERATE IMU PERFORMANCE TEST.
013153,001207:                                                                                                  #               1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
013154,001208:                                                                                                  #               2. SET EXT VERB BUSY FLAG.
013155,001209: 43,3057  E5,1417                                  EBANK=   QPLACE                                
013156,001210: 
013157,001211: 43,3057           02121        SYSTEST            TC       CHKPOOH                               #  DEMAND POO
013158,001212: 
013159,001213: 43,3060           40077                           CS       FLAGWRD3                              #  DO NOT ALLOW P07 IN FLIGHT
013160,001214: 43,3061           74732                           MASK     NOP07BIT                              #  IF FLAG IS SET, TURN ON OE LITE AND EXIT
013161,001215: 43,3062           00006                           EXTEND                                         
013162,001216: 43,3063           12116                           BZF      ALM/END                               
013163,001217: 43,3064           02076                           TC       TESTXACT                              
013164,001218: 
013165,001219: 43,3065           37731                           CAF      PRIO22                                
013166,001220: 43,3066           05076                           TC       FINDVAC                               
013167,001221: 43,3067  E5,1417                                  EBANK=   QPLACE                                
013168,001222: 43,3067  37,2000                                  SBANK=   IMUSUPER                              
013169,001223: 43,3067           02002 76065                     2CADR    REDO                                  
013170,001224: 
013171,001225: 43,3071           05146                           TC       ENDOFJOB                              
013172,001226: 
013173,001227:                                                                                                  #  VERB 93         CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
013174,001228: 
013175,001229: 43,3072           00004        WMATRXNG           INHINT                                         
013176,001230: 43,3073           44744                           CS       RENDWBIT                              
013177,001231: 43,3074           70101                           MASK     FLAGWRD5                              
013178,001232: 43,3075           54101                           TS       FLAGWRD5                              
013179,001233: 
013180,001234: 43,3076           02117                           TC       GOPIN                                 
013181,001235: 
013182,001236: 43,3077  43,3077               GOSHOSUM           EQUALS   SHOWSUM                               
013183,001237: 
013184,001238: 43,3077           02121        SHOWSUM            TC       CHKPOOH                               #  *
013185,001239: 43,3100           02076                           TC       TESTXACT                              #  *
013186,001240: 43,3101           35012                           CAF      PRIO7                                 #  ALLOW OTHER CHARINS.
013187,001241: 43,3102           05137                           TC       PRIOCHNG                              
013188,001242: 43,3103           34744                           CAF      S+1                                   #  *
013189,001243: 43,3104           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
013190,001244: 43,3105           34746                           CAF      S+ZERO                                #  *
013191,001245: 43,3106           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
013192,001246: 43,3107           33250                           CA       SELFADRS                              #  *
013193,001247: 43,3110           55361                           TS       SELFRET                               #  *
013194,001248: 43,3111           03525                           TC       STSHOSUM                              #  * ENTER ROPECHK
013195,001249: 
013196,001250: 43,3112           23372        SDISPLAY           LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
013197,001251: 43,3113           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
013198,001252: 43,3114           33247        NOKILL             CA       ADRS1                                 #  *
013199,001253: 43,3115           54156                           TS       MPAC       +2                         #  *
013200,001254: 43,3116           33127                           CA       VNCON                                 #  * 0501

Page 303

013202,001256: 43,3117           04607                           TC       BANKCALL                              #  *
013203,001257: 43,3120           20323                           CADR     GOXDSPF                               #  *
013204,001258: 43,3121           03124                           TC       +3                                    #  *
013205,001259: 43,3122           03636                           TC       NXTBNK                                #  *
013206,001260: 43,3123           03114                           TC       NOKILL                                #  *
013207,001261: 43,3124           33250                           CA       SELFADRS                              
013208,001262: 43,3125           55371                           TS       SKEEP1                                
013209,001263: 
013210,001264: 43,3126           05474                           TC       ENDEXT                                #  *
013211,001265: 
013212,001266: 43,3127           01201        VNCON              VN       501                                   #  *
013213,001267: 
013214,001268: 43,3130           31376        ENDSUMS            CA       SKEEP6                                #  *
013215,001269: 43,3131           00006                           EXTEND                                         #  *
013216,001270: 43,3132           13341                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
013217,001271: 43,3133           03525                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
013218,001272: 

Page 304

013220,001274:                                                                                                  #           DAPDISP     VERB 48             DESCRIPTION
013221,001275:                                                                                                  #               LOAD AUTO PILOT  DATA
013222,001276:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
013223,001277:                                                                                                  #               2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
013224,001278:                                                                                                  #               3. RELEASE EXT VERB DISPLAY SYSTEM.
013225,001279:                                                                                                  #  KEY
013226,001280:                                                                                                  #  THE FOLLOWING IS A KEY TO THE 5 DIGITS OF THE DAP DATA CODE (N46)
013227,001281: 
013228,001282:                                                                                                  #  DIGIT A - VEHICLE CONFIGURATION
013229,001283:                                                                                                  #           1 - LM ALONE, ASCENT
013230,001284:                                                                                                  #           2 - LM ALONE, DESCENT
013231,001285:                                                                                                  #           3 - CSM AND LM DOCKED
013232,001286: 
013233,001287:                                                                                                  #  DIGIT B - ACCELERATION CODE
013234,001288:                                                                                                  #           0 - 2 JET TRANSLATION, RCS SYSTEM A PREFERRED
013235,001289:                                                                                                  #           1 - 2 JET TRANSLATION, RCS SYSTEM B PREFERRED
013236,001290:                                                                                                  #           2 - 4 JET TRANSLATION, RCS SYSTEM A PREFERRED (NOT MEANINGFUL)
013237,001291:                                                                                                  #           3 - 4 JET TRANSLATION, RCS SYSTEM B PREFERRED (NOT MEANINGFUL)
013238,001292: 
013239,001293:                                                                                                  #  DIGIT C - ACA SCALING
013240,001294:                                                                                                  #           0 - FINE
013241,001295:                                                                                                  #           1 - NORMAL
013242,001296: 
013243,001297:                                                                                                  #  DIGIT D - DEADBAND
013244,001298:                                                                                                  #           0 - 0.3 DEG
013245,001299:                                                                                                  #           1 - 1.0 DEG
013246,001300:                                                                                                  #           2 - 5.0 DEG
013247,001301:                                                                                                  #          (3 - 5.0 DEG BY DEFAULT)
013248,001302: 
013249,001303:                                                                                                  #  DIGIT E - MANEUVER RATE
013250,001304:                                                                                                  #           0 - 0.2 DEG/SEC
013251,001305:                                                                                                  #           1 - 0.5 DEG/SEC
013252,001306:                                                                                                  #           2 - 2.0 DEG/SEC
013253,001307:                                                                                                  #           3 -10.0 DEG/SEC
013254,001308: 
013255,001309: 43,3134           02076        DAPDISP            TC       TESTXACT                              
013256,001310: 43,3135           35012                           CAF      PRIO7                                 #  R03
013257,001311: 43,3136           05137                           TC       PRIOCHNG                              
013258,001312: 43,3137           04626                           TC       POSTJUMP                              
013259,001313: 43,3140           40004                           CADR     DAPDATA1                              
013260,001314: 34,2000                                           BANK     34                                    
013261,001315: 20,2000                                           SETLOC   LOADDAP                               
013262,001316: 20,2000                                           BANK                                           
013263,001317: 
013264,001318: 20,2004                                           COUNT*   $$/R03                                
013265,001319: 
013266,001320: 20,2004  30,2000                                  SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S.
013267,001321: 
013268,001322: 20,2004           32114        DAPDATA1           CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOLS BITS.
013269,001323: 20,2005           70111                           MASK     DAPBOOLS                              #  LM

Page 305

013271,001325: 20,2006           55340                           TS       DAPDATR1                              #  LM
013272,001326: 20,2007           40106                           CS       FLGWRD10                              #  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
013273,001327: 20,2010           74730                           MASK     APSFLBIT                              
013274,001328: 20,2011           10000                           CCS      A                                     
013275,001329: 20,2012           34727                           CAF      BIT14                                 
013276,001330: 20,2013           27340                           ADS      DAPDATR1                              
013277,001331: 20,2014           31340        CHKDATA1           CAE      DAPDATR1                              #  IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
013278,001332: 20,2015           74346                           MASK     BIT13-14                              #    A ONE INTO BIT 13.
013279,001333: 20,2016           00006                           EXTEND                                         
013280,001334: 20,2017           12034                           BZF      FORCEONE                              
013281,001335: 20,2020           31340                           CAE      DAPDATR1                              #  ENSURE THAT NO ILLEGAL BITS SET BY CREW.
013282,001336: 20,2021           72113        MSKDATR1           MASK     DSPLYMSK                              
013283,001337: 20,2022           55340                           TS       DAPDATR1                              
013284,001338: 20,2023           32112                           CAF      V04N46                                #  DISPLAY DAP CONFIG. / CHANBKUP
013285,001339: 20,2024           04607                           TC       BANKCALL                              
013286,001340: 20,2025           20345                           CADR     GOXDSPFR                              
013287,001341: 20,2026           15474                           TCF      ENDEXT                                #  V34E  TERMINATE
013288,001342: 20,2027           12037                           TCF      DPDAT1                                #  V33E  PROCEED
013289,001343: 20,2030           12014                           TCF      CHKDATA1                              #  E     NEW DATA    CHECK AND REDISPLAY
013290,001344: 20,2031           34742                           CAF      BIT3                                  #  BLANK R3
013291,001345: 20,2032           05466                           TC       BLANKET                               
013292,001346: 20,2033           15146                           TCF      ENDOFJOB                              
013293,001347: 20,2034           34730        FORCEONE           CAF      BIT13                                 
013294,001348: 20,2035           27340                           ADS      DAPDATR1                              
013295,001349: 20,2036           12021                           TCF      MSKDATR1                              
013296,001350: 
013297,001351: 20,2037           00004        DPDAT1             INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
013298,001352: 20,2040           44730                           CS       APSFLBIT                              #    ON BASIS OF DISPLAYED DAPDATR1.
013299,001353: 20,2041           70106                           MASK     FLGWRD10                              
013300,001354: 20,2042           54001                           TS       L                                     #  SET APSFLAG TO BE COMPLEMENT OF BIT 14.
013301,001355: 20,2043           41340                           CS       DAPDATR1                              
013302,001356: 20,2044           74727                           MASK     BIT14                                 
013303,001357: 20,2045           10000                           CCS      A                                     
013304,001358: 20,2046           34730                           CAF      APSFLBIT                              
013305,001359: 20,2047           60001                           AD       L                                     
013306,001360: 20,2050           54106                           TS       FLGWRD10                              
013307,001361: 20,2051           41340                           CS       DAPDATR1                              #  SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
013308,001362: 20,2052           74346                           MASK     BIT13-14                              #    MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
013309,001363: 20,2053           10000                           CCS      A                                     #    13 AND 14 ARE SET.
013310,001364: 20,2054           44730                           CS       CSMDOCKD                              
013311,001365: 20,2055           62114                           AD       BOOLSMSK                              
013312,001366: 20,2056           71340                           MASK     DAPDATR1                              
013313,001367: 20,2057           54001                           TS       L                                     
013314,001368: 20,2060           42114                           CS       BOOLSMSK                              
013315,001369: 20,2061           70111                           MASK     DAPBOOLS                              
013316,001370: 20,2062           60001                           AD       L                                     
013317,001371: 20,2063           54111                           TS       DAPBOOLS                              
013318,001372: 20,2064           74730                           MASK     CSMDOCKD                              #  LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
013319,001373: 20,2065           10000                           CCS      A                                     #    MASS IS USUALLY ALREADY OKAY, SO DO
013320,001374: 20,2066           31327                           CAE      CSMMASS                               #    NOT TOUCH ITS LOW-ORDER PART.

Page 306

013322,001376: 20,2067           61326                           AD       LEMMASS                               
013323,001377: 20,2070           55243                           TS       MASS                                  
013324,001378: 20,2071           30111                           CAE      DAPBOOLS                              
013325,001379: 20,2072           74732                           MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
013326,001380: 20,2073           00006                           EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
013327,001381: 20,2074           12101                           BZF      +5                                    
013328,001382: 20,2075           44726                           CS       BIT15                                 
013329,001383: 20,2076           70075                           MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
013330,001384: 20,2077           54075                           TS       FLAGWRD1                              
013331,001385: 20,2100           12104                           TCF      +4                                    
013332,001386: 20,2101           40075                           CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
013333,001387: 20,2102           74726                           MASK     BIT15                                 
013334,001388: 20,2103           26075                           ADS      FLAGWRD1                              
013335,001389: 20,2104           30111                           CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
013336,001390: 20,2105           76266                           MASK     THREE                                 #  MANEUVER RATE
013337,001391: 20,2106           60000                           DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
013338,001392: 20,2107           55322                           TS       RATEINDX                              #  ARE DP
013339,001393: 20,2110           04626                           TC       POSTJUMP                              
013340,001394: 20,2111           02214                           CADR     STIKLOAD                              
013341,001395: 
013342,001396: 20,2112           01056        V04N46             VN       0446                                  
013343,001397: 20,2113           33133        DSPLYMSK           OCT      33133                                 
013344,001398: 20,2114           13133        BOOLSMSK           OCT      13133                                 
013345,001399: 01,2214                                           BANK     01                                    
013346,001400: 01,2000                                           SETLOC   LOADDAP1                              
013347,001401: 01,2000                                           BANK                                           
013348,001402: 
013349,001403: 01,2214                                           COUNT*   $$/R03                                
013350,001404: 
013351,001405: 01,2214           35006        STIKLOAD           CAF      EBANK6                                
013352,001406: 01,2215           54003                           TS       EBANK                                 
013353,001407: 01,2216  E6,1444                                  EBANK=   STIKSENS                              
013354,001408: 01,2216           34736                           CA       RHCSCALE                              #  SET STICK SENSITIVITY TO CORRESPOND TO A
013355,001409: 01,2217           70111                           MASK     DAPBOOLS                              #  MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
013356,001410: 01,2220           10000                           CCS      A                                     #  20 D/S(NORMAL) OR 4 D/S(FINE), SCALED
013357,001411: 01,2221           32343                           CA       NORMAL                                #  AT 45 D/S.
013358,001412: 01,2222           62344                           AD       FINE                                  
013359,001413: 01,2223           55444                           TS       STIKSENS                              
013360,001414: 01,2224           32346                           CA       -0.6D/S                               
013361,001415: 01,2225           55476                           TS       -RATEDB                               #  LM-ONLY BREAKOUT LEVEL IS .6 D/S.
013362,001416: 01,2226           34730                           CA       CSMDOCKD                              #  IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
013363,001417: 01,2227           70111                           MASK     DAPBOOLS                              #  BY 10. NORMAL SCALING IS THEN 2 D/S AND
013364,001418: 01,2230           00006                           EXTEND                                         #  FINE SCALING IS 0.4 D/S
013365,001419: 01,2231           12240                           BZF      +7                                    #  BRANCH IF CSM IS NOT DOCKED.
013366,001420: 01,2232           31444                           CA       STIKSENS                              
013367,001421: 01,2233           00006                           EXTEND                                         
013368,001422: 01,2234           72345                           MP       1/10                                  
013369,001423: 01,2235           55444                           TS       STIKSENS                              
013370,001424: 01,2236           32347                           CA       -0.3D/S                               #  CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
013371,001425: 01,2237           55476                           TS       -RATEDB                               

Page 307

013373,001427: 01,2240           00003                           RELINT                                         #  PROCEED TO NOUN 47, MASS LOAD,
013374,001428: 
013375,001429: 01,2241           32341        DAPDATA2           CAF      V0647                                 
013376,001430: 01,2242           04607                           TC       BANKCALL                              
013377,001431: 01,2243           20345                           CADR     GOXDSPFR                              
013378,001432: 01,2244           12252                           TCF      ENDR03                                #  V34E  TERMINATE. FIRST SET DB, DO 1/ACCS
013379,001433: 01,2245           12256                           TCF      DAPDAT2                               #  V33E  PROCEED
013380,001434: 01,2246           12241                           TCF      DAPDATA2                              #        LOAD NEW DATA AND RECYCLE
013381,001435: 01,2247           34742                           CAF      BIT3                                  #  BLANKS R3
013382,001436: 01,2250           05466                           TC       BLANKET                               #             LM
013383,001437: 01,2251           15146                           TCF      ENDOFJOB                              
013384,001438: 01,2252           00004        ENDR03             INHINT                                         
013385,001439: 01,2253           04665                           TC       IBNKCALL                              
013386,001440: 01,2254           40115                           CADR     RESTORDB                              
013387,001441: 01,2255           15474                           TCF      ENDEXT                                #  DOES RELINT
013388,001442: 
013389,001443: 01,2256           40106        DAPDAT2            CS       FLGWRD10                              #  DETERMINE STAGE FROM APSFLAG
013390,001444: 01,2257           74730                           MASK     APSFLBIT                              
013391,001445: 01,2260           10000                           CCS      A                                     
013392,001446: 01,2261           32000                           CA       MINLMD                                
013393,001447: 01,2262           62001                           AD       MINMINLM                              
013394,001448: 01,2263           61326                           AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
013395,001449: 01,2264           00006                           EXTEND                                         
013396,001450: 01,2265           62241                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
013397,001451: 01,2266           30111                           CAE      DAPBOOLS                              
013398,001452: 01,2267           74730                           MASK     CSMDOCKD                              
013399,001453: 01,2270           00006                           EXTEND                                         
013400,001454: 01,2271           12277                           BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
013401,001455: 01,2272           44732                           CS       MINCSM                                #  TEST CSM MASS
013402,001456: 01,2273           61327                           AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM
013403,001457: 01,2274           00006                           EXTEND                                         
013404,001458: 01,2275           62241                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
013405,001459: 01,2276           31327                           CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
013406,001460: 01,2277           61326        LEMALONE           AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
013407,001461: 01,2300           22007                           ZL                                             
013408,001462: 01,2301           53244                           DXCH     MASS                                  
013409,001463: 01,2302           00004                           INHINT                                         
013410,001464: 01,2303           04665                           TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
013411,001465: 01,2304           40115                           CADR     RESTORDB                              #    INERTIA.
013412,001466: 01,2305           00003                           RELINT                                         #  PROCEED TO NOUN 48 (OR END).
013413,001467: 
013414,001468: 01,2306           40106        DAPDATA3           CS       FLGWRD10                              
013415,001469: 01,2307           74730                           MASK     APSFLBIT                              
013416,001470: 01,2310           00006                           EXTEND                                         #  END ROUTINE IF LEM HAS STAGED,
013417,001471: 01,2311           15474                           BZF      ENDEXT                                
013418,001472: 01,2312           32342                           CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
013419,001473: 01,2313           04607                           TC       BANKCALL                              
013420,001474: 01,2314           20345                           CADR     GOXDSPFR                              
013421,001475: 01,2315           05474                           TC       ENDEXT                                
013422,001476: 01,2316           12323                           TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
013423,001477: 

Page 308

013425,001479: 01,2317           12312                           TCF      -5                                    #       LOAD NEW DATA AND RECYCLE
013426,001480: 01,2320           34742                           CAF      BIT3                                  
013427,001481: 01,2321           05466                           TC       BLANKET                               #  BLANK R3
013428,001482: 01,2322           15146                           TCF      ENDOFJOB                              
013429,001483: 01,2323           34744        DPDAT3             CAF      BIT1                                  
013430,001484: 01,2324           05205                           TC       WAITLIST                              
013431,001485: 01,2325  E6,1401                                  EBANK=   ROLLTIME                              
013432,001486: 01,2325           03221 56066                     2CADR    TRIMGIMB                              
013433,001487: 
013434,001488: 01,2327           15146                           TCF      ENDOFJOB                              #  DOES A RELINT
013435,001489: 01,2330           32342        TRIMDONE           CAF      V50N48                                
013436,001490: 01,2331           04607                           TC       BANKCALL                              #  TRIM IS FINISHED; PLEASE TERMINATE R03
013437,001491: 01,2332           20353                           CADR     GOMARK3R   -1                         
013438,001492: 01,2333           05474                           TC       ENDEXT                                #  V34E TERMINATE
013439,001493: 01,2334           05474                           TC       ENDEXT                                
013440,001494: 01,2335           05474                           TC       ENDEXT                                
013441,001495: 01,2336           36007                           CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
013442,001496: 01,2337           05466                           TC       BLANKET                               
013443,001497: 01,2340           15146                           TCF      ENDOFJOB                              
013444,001498: 
013445,001499: 01,2341           01457        V0647              VN       0647                                  
013446,001500: 01,2342           01460        V06N48             VN       0648                                  
013447,001501: 
013448,001502: 01,2343  01,2342               V50N48             =        V06N48                                
013449,001503: 
013450,001504: 01,2343           25101        NORMAL             DEC      .660214                               
013451,001505:                                                                                                  #  NORMAL SCALING IS 20 D/S
013452,001506: 01,2344           05220        FINE               DEC      .165054                               #  FINE STICK SCALING (4 D/S).
013453,001507: 01,2345           03146        1/10               DEC      .1                                    #  FACTOR FOR CSM-DOCKED SCALING
013454,001508: 01,2346           77445        -0.6D/S            DEC      -218       B-14                       
013455,001509: 01,2347           77622        -0.3D/S            DEC      -109       B-14                       
013456,001510: 

Page 309

013458,001512:                                                                                                  #  VERB 66.  VEHICLES ARE ATTACHED.  MOVE THIS VEHICLE STATE VECTOR TO
013459,001513:                                                                                                  #            OTHER VEHICLE STATE VECTOR.
013460,001514: 
013461,001515:                                                                                                  #      USE SUBROUTINE GENTRAN.
013462,001516: 
013463,001517: 07,2607                                           BANK     7                                     
013464,001518: 43,2000                                           SETLOC   EXTVERBS                              
013465,001519: 43,2000                                           BANK                                           
013466,001520: 
013467,001521: 43,3141                                           COUNT*   $$/EXTVB                              
013468,001522: 
013469,001523: 43,3141  E3,1626                                  EBANK=   RRECTHIS                              
013470,001524: 
013471,001525: 43,3141           40104        ATTACHED           CS       FLAGWRD8                              
013472,001526: 43,3142           74735                           MASK     SURFFBIT                              
013473,001527: 43,3143           00006                           EXTEND                                         
013474,001528: 43,3144           12116                           BZF      ALM/END                               #  TURN ON OE AND EXIT IF SURFFLAG SET.
013475,001529: 43,3145           34730                           CAF      PRIO10                                
013476,001530: 43,3146           05076                           TC       FINDVAC                               
013477,001531: 43,3147  E3,1626                                  EBANK=   RRECTHIS                              
013478,001532: 
013479,001533: 43,3147           03152 66103                     2CADR    ATTACHIT                              
013480,001534: 
013481,001535: 43,3151           05146                           TC       ENDOFJOB                              
013482,001536: 
013483,001537: 43,3152           06060        ATTACHIT           TC       INTPRET                               
013484,001538: 43,3153           77624                           CALL                                           
013485,001539: 43,3154           27447                                    INTSTALL                              
013486,001540: 43,3155           43014                           SET      BON                                   
013487,001541: 43,3156           04063                                    MOONOTH                               
013488,001542: 43,3157           04304                                    MOONTHIS                              
013489,001543: 43,3160           67163                                    +3                                    
013490,001544: 43,3161           77614                           CLEAR                                          
013491,001545: 43,3162           04263                                    MOONOTH                               
013492,001546: 43,3163           77776                           EXIT                                           
013493,001547: 43,3164           33207                           CAF      OCT51                                 
013494,001548: 43,3165           05546                           TC       GENTRAN                               
013495,001549: 43,3166           01626                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
013496,001550: 43,3167           01554                           ADRES    RRECTOTH                              
013497,001551: 
013498,001552: 43,3170           00003                           RELINT                                         
013499,001553: 43,3171           06060                           TC       INTPRET                               
013500,001554: 43,3172           77624                           CALL                                           #  UPDATE R-OTHER, V-OTHER
013501,001555: 43,3173           27016                                    PTOALEM                               
013502,001556: 43,3174           45154                           LXA,2    CALL                                  
013503,001557: 43,3175           02030                                    PBODY                                 
013504,001558: 43,3176           26114                                    SVDWN1                                
013505,001559: 43,3177           77776                           EXIT                                           
013506,001560: 
013507,001561: 43,3200           33210                           CAF      TCPINAD                               

Page 310

013509,001563: 43,3201           50120                           INDEX    FIXLOC                                
013510,001564: 43,3202           54052                           TS       QPRET                                 
013511,001565: 43,3203           04626                           TC       POSTJUMP                              
013512,001566: 43,3204           27460                           CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
013513,001567: 
013514,001568: 43,3205           77634        TCPIN              RTB                                            
013515,001569: 43,3206           21062                                    PINBRNCH                              
013516,001570: 
013517,001571: 43,3207           00051        OCT51              OCT      51                                    
013518,001572: 43,3210           67205        TCPINAD            CADR     TCPIN                                 
013519,001573: 
013520,001574:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
013521,001575: 
013522,001576:                                                                                                  #           GO TO V37 WITH ZERO TO CAUSE POO.
013523,001577:                                                                                                  #           STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
013524,001578:                                                                                                  #                  THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
013525,001579: 
013526,001580: 43,3211           05506        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
013527,001581: 43,3212           00221                           ADRES    QUITFLAG                              #     AT NEXT TIMESTEP
013528,001582: 
013529,001583: 43,3213           34746                           CAF      ZERO                                  
013530,001584: 43,3214           04626                           TC       POSTJUMP                              
013531,001585: 43,3215           10054                           CADR     V37                                   #  GO TO POO
013532,001586: 
013533,001587: 
013534,001588:                                                                                                  #  VERB 67 :   DISPLAY OF W MATRIX
013535,001589: 
013536,001590: 43,3216           02076        V67                TC       TESTXACT                              
013537,001591: 43,3217           35010                           CAF      PRIO5                                 
013538,001592: 43,3220           05076                           TC       FINDVAC                               
013539,001593: 43,3221  E4,1571                                  EBANK=   WWPOS                                 
013540,001594: 43,3221           02007 62064                     2CADR    V67CALL                               
013541,001595: 
013542,001596: 43,3223           05146                           TC       ENDOFJOB                              
013543,001597: 
013544,001598:                                                                                                  #  VERB 65         DISABLE U,V JETS DURING DPS BURNS
013545,001599: 
013546,001600: 43,3224           05506        SNUFFOUT           TC       UPFLAG                                
013547,001601: 43,3225           00115                           ADRES    SNUFFER                               
013548,001602: 43,3226           02117                           TC       GOPIN                                 
013549,001603: 
013550,001604:                                                                                                  #  VERB 75         ENABLE U,V JETS DURING DPS BURNS
013551,001605: 
013552,001606: 43,3227           05520        OUTSNUFF           TC       DOWNFLAG                              
013553,001607: 43,3230           00115                           ADRES    SNUFFER                               
013554,001608: 43,3231           02117                           TC       GOPIN                                 
013555,001609:                                                                                                  #  VERB 85         DISPLAY RR LOS AZIMUTH AND ELEVATION.
013556,001610: 
013557,001611:                                                                                                  #           AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0 - 90 DEG IN THE +Y HEMISPHERE,
013558,001612:                                                                                                  #  360 - 270 DEG IN THE -Y HEMISPHERE.
013559,001613: 

Page 311

013561,001615:                                                                                                  #           ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0 - 360 ABOUT +Y.
013562,001616: 
013563,001617: 43,3232  E4,1571                                  EBANK=   RR-AZ                                 
013564,001618: 43,3232           02076        VERB85             TC       TESTXACT                              
013565,001619: 43,3233           04626                           TC       POSTJUMP                              
013566,001620: 43,3234           62000                           CADR     DSPRRLOS                              
013567,001621: 
013568,001622: 41,2000                                           SETLOC   PINBALL2                              
013569,001623: 41,2000                                           BANK                                           
013570,001624: 
013571,001625: 41,2000                                           COUNT*   $$/EXTVB                              
013572,001626: 
013573,001627: 41,2000           35010        DSPRRLOS           CAF      PRIO5                                 
013574,001628: 41,2001           05076                           TC       FINDVAC                               
013575,001629: 41,2002  E4,1571                                  EBANK=   RR-AZ                                 
013576,001630: 41,2002           02000 60104                     2CADR    RRLOSDSP                              
013577,001631: 
013578,001632: 41,2004           34731                           CAF      PRIO4                                 
013579,001633: 41,2005           05137                           TC       PRIOCHNG                              
013580,001634: 41,2006           32017                           CAF      V16N56                                
013581,001635: 41,2007           04607                           TC       BANKCALL                              
013582,001636: 41,2010           20345                           CADR     GOMARKFR                              
013583,001637: 41,2011           05565                           TC       B5OFF                                 
013584,001638: 41,2012           05565                           TC       B5OFF                                 
013585,001639: 41,2013           05565                           TC       B5OFF                                 
013586,001640: 
013587,001641: 41,2014           34742                           CAF      BIT3                                  
013588,001642: 41,2015           05466                           TC       BLANKET                               
013589,001643: 41,2016           05146                           TC       ENDOFJOB                              
013590,001644: 
013591,001645: 41,2017           04070        V16N56             VN       1656                                  
013592,001646: 
013593,001647: 
013594,001648: 40,2000                                           SETLOC   PINBALL1                              
013595,001649: 40,2000                                           BANK                                           
013596,001650: 
013597,001651: 40,2000           00006        RRLOSDSP           EXTEND                                         
013598,001652: 40,2001           30036                           DCA      CDUT                                  
013599,001653: 40,2002           52155                           DXCH     MPAC                                  
013600,001654: 40,2003           06060                           TC       INTPRET                               
013601,001655: 40,2004           77624                           CALL                                           
013602,001656: 40,2005           46065                                    RRNBMPAC                              #  GET RR LOS IN BODY AXIS.
013603,001657: 40,2006           00001                           STORE    0D                                    #  UNIT LOS
013604,001658: 40,2007           14007                           STODL    6D                                    
013605,001659: 40,2010           06505                                    HI6ZEROS                              
013606,001660: 40,2011           24011                           STOVL    8D                                    
013607,001661: 40,2012           00007                                    6D                                    
013608,001662: 40,2013           77656                           UNIT                                           
013609,001663: 40,2014           00007                           STORE    6D                                    #  UNIT OF LOS PROJ IN X-Z PLANE
013610,001664: 40,2015           77641                           DOT                                            

Page 312

013612,001666: 40,2016           06477                                    UNITZ                                 
013613,001667: 40,2017           24021                           STOVL    COSTH                                 #  16D
013614,001668: 40,2020           06503                                    UNITX                                 
013615,001669: 40,2021           77641                           DOT                                            
013616,001670: 40,2022           00007                                    6D                                    
013617,001671: 40,2023           34023                           STCALL   SINTH                                 #  18D
013618,001672: 40,2024           47303                                    ARCTRIG                               
013619,001673: 40,2025           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0 - 360 DEG.
013620,001674: 40,2026           60030                                    +2                                    
013621,001675: 40,2027           06513                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
013622,001676: 40,2030           26174                           STOVL    RR-ELEV                               
013623,001677: 40,2031           00001                                    0D                                    
013624,001678: 40,2032           77641                           DOT                                            
013625,001679: 40,2033           06501                                    UNITY                                 
013626,001680: 40,2034           24023                           STOVL    SINTH                                 
013627,001681: 40,2035           00001                                    0D                                    
013628,001682: 40,2036           77641                           DOT                                            
013629,001683: 40,2037           00007                                    6D                                    
013630,001684: 40,2040           34021                           STCALL   COSTH                                 
013631,001685: 40,2041           47303                                    ARCTRIG                               
013632,001686: 40,2042           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0 - 360 DEG.
013633,001687: 40,2043           60045                                    +2                                    
013634,001688: 40,2044           06513                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
013635,001689: 40,2045           02172                           STORE    RR-AZ                                 
013636,001690: 40,2046           77776                           EXIT                                           
013637,001691: 40,2047           34770                           CA       1SEC                                  
013638,001692: 40,2050           04607                           TC       BANKCALL                              
013639,001693: 40,2051           01736                           CADR     DELAYJOB                              
013640,001694: 
013641,001695: 40,2052           34740                           CA       BIT5                                  
013642,001696: 40,2053           71043                           MASK     EXTVBACT                              
013643,001697: 40,2054           10000                           CCS      A                                     
013644,001698: 40,2055           02000                           TC       RRLOSDSP                              
013645,001699: 40,2056           05474                           TC       ENDEXT                                

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