Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

010751,000002:                                                                                                  ## Copyright:   Public domain.
010752,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
010753,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
010754,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
010755,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
010756,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
010757,000008:                                                                                                  ##              that the code format has been changed to conform to the
010758,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the 
010759,000010:                                                                                                  ##              original YUL assembler.
010760,000011:                                                                                                  ## Reference:   pp. 263-302
010761,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
010762,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010763,000014:                                                                                                  ## Mod history: 05/08/03 RSB.   Began transcribing.
010764,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
010765,000016:                                                                                                  ##              2010-10-25 JL   Added missing # in comment.
010766,000017:                                                                                                  ##              2011-05-07 JL   Flagged SBANK= workarounds for future removal.
010767,000018:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
010768,000019:                                                                                                  ##                              original harcopy, as opposed to the PDF page
010769,000020:                                                                                                  ##                              numbers in 1701.pdf.
010770,000021:                                                                                                  ##              2017-02-23 RSB  Proofed comment text using octopus/ProoferComments.
010771,000022:                                                                                                  ##                              Removed an SBANK= workaround on pp. 276-277 that is
010772,000023:                                                                                                  ##                              apparently no longer needed.  Changed CHKP00H -> CHKPOOH.
010773,000024:                                                                                                  ##              2017-02-28 RSB  Fixed lingering typos.
010774,000025:                                                                                                  ##              2017-03-07 RSB  Fixed comment-text errors identified while proofing
010775,000026:                                                                                                  ##                              Luminary 116.
010776,000027:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
010777,000028:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
010778,000029:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
010779,000030:                                                                                                  ##                              Luminary 99 vs Comanche 55.
010780,000031: 

Page 263

010782,000033: 07,2666                                           BANK     7                                     
010783,000034: 43,2000                                           SETLOC   EXTVERBS                              
010784,000035: 43,2000                                           BANK                                           
010785,000036: 
010786,000037: 43,2000  E5,1737                                  EBANK=   OGC                                   
010787,000038: 
010788,000039: 43,2000                                           COUNT*   $$/EXTVB                              
010789,000040: 
010790,000041:                                                                                                  #  FAN-OUT
010791,000042: 
010792,000043: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
010793,000044: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
010794,000045: 
010795,000046: 43,2002           02126        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
010796,000047: 43,2003           02200                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010797,000048:                                                                                                  #                                72 ONLY)
010798,000049: 43,2004           02371                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
010799,000050: 43,2005           02733                           TC       IMUATTCK                              #  VB43 LOAD IMU ATTITUDE ERROR METERS.
010800,000051: 43,2006           02305                           TC       RRDESEND                              #  VB44 TERMINATE CONTINUOUS DESIGNATE
010801,000052: 43,2007           02116                           TC       ALM/END                               #  VB45 SPARE
010802,000053: 43,2010           02116                           TC       ALM/END                               #  VB46 SPARE
010803,000054: 43,2011           02430                           TC       V47TXACT                              #  VB47 AGS INITIALIZATION
010804,000055: 43,2012           03156                           TC       DAPDISP                               #  VB48 LOAD A/P DATA
010805,000056: 43,2013           13036                           TCF      CREWMANU                              #  VB49 START AUTOMATIC ATTITUDE MANEUVER
010806,000057: 43,2014           02422                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
010807,000058: 43,2015           02116                           TC       ALM/END                               #  VB51 SPARE
010808,000059: 43,2016           02422                           TC       GOLOADLV                              #  VB52 PLEASE MARK X - RETICLE.
010809,000060: 43,2017           02422                           TC       GOLOADLV                              #  VB53 PLEASE MARK Y - RETICLE.
010810,000061: 43,2020           02422                           TC       GOLOADLV                              #  VB54 PLEASE MARK X OR Y - RETICLE
010811,000062: 43,2021           02442                           TC       ALINTIME                              #  VB55 ALIGN TIME
010812,000063: 43,2022           03045                           TC       TRMTRACK                              #  VB56 TERMINATE TRACKING - P20 + P25
010813,000064: 43,2023           02325                           TC       LRON                                  #  VB57 PERMIT LANDING RADAR UPDATES
010814,000065: 43,2024           02366                           TC       LROFF                                 #  VB58 INHIBIT LANDING RADAR UPDATES
010815,000066: 43,2025           02147                           TC       LRPOS2K                               #  VB59 COMMAND LR TO POSITION 2.
010816,000067: 43,2026           02175                           TC       RATEDISP                              #  VB60 DISPLAY DAP ESTIMATED RATES
010817,000068: 43,2027           02165                           TC       DAPATTER                              #  VB61 DISPLAY DAP ATTITUDE ERROR
010818,000069: 43,2030           02170                           TC       TOTATTER                              #  VB62 DISPLAY TOTAL ATTITUDE ERROR
010819,000070: 43,2031           02455                           TC       R04                                   #  VB63 SAMPLE RADAR ONCE PER SECOND
010820,000071: 43,2032           02725                           TC       VB64                                  #  VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
010821,000072: 43,2033           03246                           TC       SNUFFOUT                              #  VB65 DISABLE U,V JETS DURING DPS BURNS.
010822,000073: 43,2034           03163                           TC       ATTACHED                              #  VB66 ATTACHED         MOVE THIS TO OTHER STATE
010823,000074: 43,2035           03240                           TC       V67                                   #  VB67 W MATRIX MONITOR
010824,000075: 43,2036           02116                           TC       ALM/END                               #  VB68 SPARE
010825,000076: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 FORCE A HARDWARE RESTART
010826,000077: 43,2040           03751                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
010827,000078: 43,2041           03753                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010828,000079: 43,2042           03755                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010829,000080: 43,2043           03757                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
010830,000081: 43,2044           03066                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010831,000082:                                                                                                  #        FOR ERASABLE DUMP.
010832,000083: 43,2045           03251                           TC       OUTSNUFF                              #  VB75 ENABLE U,V JETS DURING DPS BURNS.

Page 264

010834,000085: 43,2046           03025                           TC       MINIMP                                #  VB76 MINIMUM IMPULSE MODE
010835,000086: 43,2047           03030                           TC       NOMINIMP                              #  VB77 RATE COMMAND MODE
010836,000087: 43,2050           02445                           TC       R77                                   #  VB78 START LR SPURIOUS RETURN TEST
010837,000088: 43,2051           02655                           TC       R77END                                #  VB79 TERMINATE LR SPURIOUS RETURN TEST
010838,000089: 43,2052           03072                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
010839,000090: 43,2053           03075                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
010840,000091: 43,2054           02772                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010841,000092: 43,2055           03002                           TC       V83PERF                               #  VB83 REQUEST REND PARAM DISPLAY (R31)
010842,000093: 43,2056           02116                           TC       ALM/END                               #  VB84 SPARE
010843,000094: 43,2057           03254                           TC       VERB85                                #  VB85 DISPLAY RR LOS AZ AND ELEV
010844,000095: 43,2060           02116                           TC       ALM/END                               #  VB86 SPARE
010845,000096: 43,2061           02116                           TC       ALM/END                               #  VB87 SPARE
010846,000097: 43,2062           02116                           TC       ALM/END                               #  VB88 SPARE
010847,000098: 43,2063           03010                           TC       V89PERF                               #  VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
010848,000099: 43,2064           03017                           TC       V90PERF                               #  VB 90 OUT OF PLANE RENDEZVOUS DISPLAY
010849,000100: 43,2065           03121                           TC       GOSHOSUM                              #  VB91 DISPLAY BANK SUM.
010850,000101: 43,2066           03105                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST.
010851,000102: 43,2067           03114                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
010852,000103: 43,2070           02116                           TC       ALM/END                               #  VB94 SPARE
010853,000104: 43,2071           03102                           TC       UPDATOFF                              #  VB95 NO STATE VECTOR UPDATE ALLOWED
010854,000105: 43,2072           03233                           TC       VERB96                                #  VB96 INTERRUPT INTEGRATION AND GO TO POO
010855,000106: 43,2073           02422                           TC       GOLOADLV                              #  VB97 PLEASE VERIFY ENGINE FAILURE
010856,000107: 43,2074           02116                           TC       ALM/END                               #  VB98 SPARE
010857,000108: 43,2075           02422                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
010858,000109: 
010859,000110:                                                                                                  #  END OF EXTENDED VERB FAN
010860,000111: 
010861,000112: 43,2076           11043        TESTXACT           CCS      EXTVBACT                              #  ARE EXTENDED VERBS BUSY
010862,000113: 43,2077           02116                           TC       ALM/END                               #  YES, TURN ON OPERATOR LIGHT
010863,000114: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIORITY DISPLAYS USING DSKY
010864,000115: 43,2101           72125                           MASK     OC24100                               
010865,000116: 43,2102           10000                           CCS      A                                     
010866,000117: 43,2103           02116                           TC       ALM/END                               #  YES
010867,000118: 43,2104           34362                           CAF      OCT25                                 #  SET BITS 1, 3, AND 5
010868,000119: 43,2105           55043        SETXTACT           TS       EXTVBACT                              #  NO.  SET FLAG TO SHOW EXT VERB DISPLAY
010869,000120:                                                                                                  #  SYSTEM BUSY
010870,000121: 
010871,000122: 43,2106           30002                           CA       Q                                     
010872,000123: 43,2107           54155                           TS       MPAC       +1                         
010873,000124: 
010874,000125: 43,2110           44752                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
010875,000126: 43,2111           04154                           TC       NVSUB                                 
010876,000127: 43,2112           02113                           TC       +1                                    
010877,000128: 43,2113           10067                           CCS      NEWJOB                                
010878,000129: 43,2114           05122                           TC       CHANG1                                
010879,000130: 
010880,000131: 43,2115           00155                           TC       MPAC       +1                         
010881,000132: 
010882,000133: 43,2116     5472               TERMEXTV           EQUALS   ENDEXT                                

Page 265

010884,000135: 43,2116     5472               ENDEXTVB           EQUALS   ENDEXT                                
010885,000136: 
010886,000137: 43,2116           04364        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
010887,000138: 43,2117           04635        GOPIN              TC       POSTJUMP                              
010888,000139: 43,2120           21051                           CADR     PINBRNCH                              
010889,000140: 
010890,000141: 43,2121           31010        CHKPOOH            CA       MODREG                                #  CHECK FOR POO OR POO-.
010891,000142: 43,2122           00006                           EXTEND                                         
010892,000143: 43,2123           16745                           BZF      TCQ                                   
010893,000144: 43,2124           02116                           TC       ALM/END                               
010894,000145: 
010895,000146: 43,2125           24100        OC24100            OCT      24100                                 
010896,000147: 

Page 266

010898,000149:                                                                                                  #  VBZERO        VERB 40         DESCRIPTION
010899,000150: 
010900,000151:                                                                                                  #        1.      REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
010901,000152:                                                                                                  #        2.      FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
010902,000153:                                                                                                  #                FOR N72, CHECK IF EITHER RADAR IS IN USE.
010903,000154:                                                                                                  #        3.      EXECUTE THE CDU ZERO.
010904,000155:                                                                                                  #        4.      STALL UNTILL THE ZERO IS DONE.
010905,000156:                                                                                                  #        5.      DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
010906,000157:                                                                                                  #        6.      EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
010907,000158: 
010908,000159: 43,2126           02203        VBZERO             TC       OP/INERT                              
010909,000160: 43,2127           02131                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
010910,000161: 43,2130           02140                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(72)
010911,000162: 43,2131           02436        IMUZEROK           TC       CKMODCAD                              
010912,000163: 43,2132           04616                           TC       BANKCALL                              #  KEYBOARD REQ FOR ISS CDUZERO
010913,000164: 43,2133           16705                           CADR     IMUZERO                               
010914,000165: 
010915,000166: 43,2134           04616                           TC       BANKCALL                              #  STALL
010916,000167: 43,2135           17707                           CADR     IMUSTALL                              
010917,000168: 43,2136           02137                           TC       +1                                    
010918,000169: 
010919,000170: 43,2137           02117                           TC       GOPIN                                 #  IMUZERO
010920,000171: 
010921,000172: 43,2140           02700        RRZEROK            TC       RDRUSECK                              
010922,000173: 43,2141           04616                           TC       BANKCALL                              
010923,000174: 43,2142           52354                           CADR     RRZERO                                
010924,000175: 
010925,000176: 43,2143           04616        RWAITK             TC       BANKCALL                              
010926,000177: 43,2144           17705                           CADR     RADSTALL                              
010927,000178: 43,2145           12146                           TCF      +1                                    
010928,000179: 43,2146           02117                           TC       GOPIN                                 #  RRZERO
010929,000180: 
010930,000181:                                                                                                  #  LRPOS2K       VERB 59         DESCRIPTION
010931,000182:                                                                                                  #        COMMAND LANDING RADAR TO POSITION 2
010932,000183: 
010933,000184:                                                                                                  #        1.      EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
010934,000185:                                                                                                  #        2.      ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
010935,000186:                                                                                                  #                THE PRESCRIBED TIME.
010936,000187:                                                                                                  #        3.      RE-ESTABLISH THE DISPLAYS.
010937,000188: 
010938,000189: 43,2147           06042        LRPOS2K            TC       INTPRET                               
010939,000190: 43,2150           77614                           BOFF                                           #  IS AVG G ON?
010940,000191: 43,2151           03752                                    AVEGFLAG                              
010941,000192: 43,2152           66161                                    LRPOS2K1                              #  NO
010942,000193: 43,2153           77776                           EXIT                                           #  YES: IS P63 GOING?
010943,000194: 43,2154           05321                           TC       CHECKMM                               
010944,000195: 43,2155           00077                           DEC      63         B-14                       
010945,000196: 43,2156           12162                           TCF      LRPOS2K1   +1                         #  NO: COMMAND LR TO POS2
010946,000197: 43,2157           04616                           TC       BANKCALL                              
010947,000198: 43,2160           53541                           CADR     V59GP63                               #  YES: GO SET UP HIGATE JOB
010948,000199: 43,2161           77776        LRPOS2K1           EXIT                                           

Page 267

010950,000201: 43,2162           02700                           TC       RDRUSECK                              #  CHECK USE OF LR
010951,000202: 43,2163           04616                           TC       BANKCALL                              
010952,000203: 43,2164           53531                           CADR     LRP2COMM                              #  COMMAND LR TO POS2
010953,000204: 
010954,000205:                                                                                                  #  V61   VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
010955,000206: 
010956,000207: 43,2165           05516        DAPATTER           TC       DOWNFLAG                              
010957,000208: 43,2166           00013                           ADRES    NEEDLFLG                              
010958,000209: 43,2167           12172                           TCF      TOTATTER   +2                         
010959,000210: 
010960,000211:                                                                                                  #  V62   VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
010961,000212: 
010962,000213: 43,2170           05504        TOTATTER           TC       UPFLAG                                
010963,000214: 43,2171           00013                           ADRES    NEEDLFLG                              
010964,000215: 43,2172           05516                 +2        TC       DOWNFLAG                              
010965,000216: 43,2173           00000                           ADRES    NEED2FLG                              
010966,000217: 43,2174           02117                           TC       GOPIN                                 
010967,000218: 
010968,000219:                                                                                                  #  V60   VERB 60, DISPLAY DAP ESTIMATED RATES ON FDAI ATTITUDE ERROR NEEDLES.
010969,000220: 
010970,000221: 43,2175           05504        RATEDISP           TC       UPFLAG                                
010971,000222: 43,2176           00000                           ADRES    NEED2FLG                              
010972,000223: 43,2177           02117                           TC       GOPIN                                 
010973,000224: 

Page 268

010975,000226:                                                                                                  #  VBCOARK       VERB 41         DESCRIPTION
010976,000227:                                                                                                  #        COARSE ALIGN IMU OR RADAR
010977,000228: 
010978,000229:                                                                                                  #        1.      REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
010979,000230:                                                                                                  #        2.      REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010980,000231:                                                                                                  #                CASE 1     NOUN 20    (ICDU ANGLES)
010981,000232:                                                                                                  #        3.      SET EXT VERB DISPLAY ACTIVE FLAG.
010982,000233:                                                                                                  #        4.      DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010983,000234:                                                                                                  #                RESPONSES
010984,000235:                                                                                                  #                A.      TERMINATE
010985,000236:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM
010986,000237:                                                                                                  #                B.      PROCEED
010987,000238:                                                                                                  #                        1.      COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
010988,000239:                                                                                                  #                C.      ENTER
010989,000240:                                                                                                  #                        1.      COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
010990,000241:                                                                                                  #  ICORK2
010991,000242:                                                                                                  #        1.      RE-DISPLAY VERB 41.
010992,000243:                                                                                                  #        2.      EXECUTE IMUCOARS (IMU COARSE ALIGN).
010993,000244:                                                                                                  #        3.      EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010994,000245:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY SYSTEM.
010995,000246:                                                                                                  #                CASE 2     NOUN 72     (RCDU ANGLES)
010996,000247:                                                                                                  #                EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
010997,000248:                                                                                                  #        5.      DISPLAY FLASHING V24, N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
010998,000249:                                                                                                  #                RESPONSES
010999,000250:                                                                                                  #                A.      TERMINATE
011000,000251:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYS.
011001,000252:                                                                                                  #                B.      PROCEED OR ENTER
011002,000253:                                                                                                  #                        1.      EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
011003,000254:                                                                                                  #                        2.      RE-DISPLAY VERB 41.
011004,000255:                                                                                                  #                        3.      SCHEDULE RRDESK2 WITH PRIORITY 20.
011005,000256:                                                                                                  #                        4.      RELEASE EXT VERB DISPLAY SYS.
011006,000257:                                                                                                  #  AURLOKON
011007,000258:                                                                                                  #        1.      FLASH V04 N12 R1 = 00006 R2 = 00002
011008,000259:                                                                                                  #                RESPONSES
011009,000260:                                                                                                  #                A.      TERMINATE
011010,000261:                                                                                                  #                B.      PROCEED
011011,000262:                                                                                                  #                        1.      RESET LOCK-ON SWITCH
011012,000263:                                                                                                  #                        2.      SET CONTINUOUS DESIGNATE FLAG
011013,000264:                                                                                                  #                        3.      DISABLE R25
011014,000265:                                                                                                  #                C.      V22 E 1 E, R1 = 00001, PROCEED
011015,000266:                                                                                                  #                        1.      SET LOCK-ON SWITCH
011016,000267: 
011017,000268: 43,2200           02203        VBCOARK            TC       OP/INERT                              
011018,000269: 43,2201           02214                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
011019,000270: 43,2202           02236                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (72)
011020,000271: 
011021,000272:                                                                                                  #  RETURNS TO L+1 IF IMU OR L+2 IF RR.
011022,000273: 
011023,000274: 43,2203           46007        OP/INERT           CS       OCT24                                 
011024,000275: 43,2204           61001                           AD       NOUNREG                               
011025,000276: 43,2205           00006                           EXTEND                                         

Page 269

011027,000278: 43,2206           16745                           BZF      TCQ                                   #  IF = 20.
011028,000279: 
011029,000280: 43,2207           62213                           AD       RRIMUDIF                              #  -52
011030,000281: 43,2210           00006                           EXTEND                                         
011031,000282: 43,2211           16742                           BZF      Q+1                                   
011032,000283: 
011033,000284: 43,2212           02116                           TC       ALM/END                               #  ILLEGAL.
011034,000285: 
011035,000286: 43,2213           77713        RRIMUDIF           DEC      -52        B-14                       #  THE IMU
011036,000287: 43,2214           02436        IMUCOARK           TC       CKMODCAD                              
011037,000288: 43,2215           02076                           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
011038,000289: 43,2216           32234                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
011039,000290: 43,2217           04616                           TC       BANKCALL                              
011040,000291: 43,2220           20334                           CADR     GOXDSPF                               
011041,000292: 43,2221           05472                           TC       TERMEXTV                              
011042,000293: 43,2222           12223                           TCF      +1                                    
011043,000294: 
011044,000295: 43,2223           32235        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
011045,000296: 43,2224           04616                           TC       BANKCALL                              
011046,000297: 43,2225           20621                           CADR     EXDSPRET                              
011047,000298: 
011048,000299: 43,2226           04616                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
011049,000300: 43,2227           16771                           CADR     IMUCOARS                              
011050,000301: 
011051,000302: 43,2230           04616                           TC       BANKCALL                              #  STALL
011052,000303: 43,2231           17707                           CADR     IMUSTALL                              
011053,000304: 43,2232           05472                           TC       ENDEXTVB                              
011054,000305: 43,2233           05472                           TC       ENDEXTVB                              
011055,000306: 
011056,000307: 43,2234           06226        VNLODCDU           VN       2522                                  
011057,000308: 43,2235           12200        IMUCOARV           VN       4100                                  
011058,000309: 

Page 270

011060,000311:                                                                                                  #  DESIGNATE TO DESIRED GIMBAL ANGLES.
011061,000312: 
011062,000313: 43,2236           02700        RRDESNBK           TC       RDRUSECK                              
011063,000314: 43,2237           02076                           TC       TESTXACT                              
011064,000315: 43,2240           42324                           CS       OCT41000                              #  TERMINATE PRESENT DESIGNATION
011065,000316: 43,2241           00004                           INHINT                                         #  RELINT DONE IN GOXDSPF
011066,000317: 43,2242           70110                           MASK     RADMODES                              
011067,000318: 43,2243           54110                           TS       RADMODES                              
011068,000319: 
011069,000320: 43,2244           32263                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
011070,000321: 43,2245           04616                           TC       BANKCALL                              
011071,000322: 43,2246           20334                           CADR     GOXDSPF                               
011072,000323: 43,2247           05472                           TC       TERMEXTV                              
011073,000324: 43,2250           12244                           TCF      -4                                    #  V33
011074,000325: 
011075,000326: 43,2251           04616                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
011076,000327: 43,2252           46000                           CADR     AURLOKON                              
011077,000328: 
011078,000329: 43,2253           32235                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
011079,000330: 43,2254           04616                           TC       BANKCALL                              
011080,000331: 43,2255           20621                           CADR     EXDSPRET                              
011081,000332: 
011082,000333: 43,2256           34736                           CAF      PRIO20                                
011083,000334: 43,2257           05105                           TC       FINDVAC                               
011084,000335: 43,2260  E7,1456                                  EBANK=   LOSCOUNT                              
011085,000336: 43,2260           02264 66107                     2CADR    RRDESK2                               
011086,000337: 
011087,000338: 43,2262           15472                           TCF      TERMEXTV                              #  FREES DISPLAY.
011088,000339: 
011089,000340: 43,2263           06111        VNLDRCDU           VN       2473                                  
011090,000341: 43,2264  43,2235               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
011091,000342: 
011092,000343: 43,2264           04616        RRDESK2            TC       BANKCALL                              
011093,000344: 43,2265           52506                           CADR     RRDESNB                               
011094,000345: 
011095,000346: 43,2266           02267                           TC       +1                                    #  DUMMY NEEDED SINCE DESRETRN DOES INCR
011096,000347: 43,2267           30167                           CA       PRIORITY                              
011097,000348: 43,2270           75004                           MASK     LOW9                                  
011098,000349: 43,2271           10000                           CCS      A                                     
011099,000350: 43,2272           50000                           INDEX    A                                     
011100,000351: 43,2273           54000                           TS       A                                     #  RELEASE THIS JOBS VAC AREA.
011101,000352: 43,2274           40000                           COM                                            #  INSURE ENDOFJOB DOES A NOVAC END (BZMF).
011102,000353: 43,2275           26167                           ADS      PRIORITY                              
011103,000354: 43,2276           04616                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF DESIGNATE
011104,000355: 43,2277           17705                           CADR     RADSTALL                              
011105,000356: 43,2300           02302                           TC       +2                                    #  BADEND - NO LOCKON OR OUT OF LIMITS
011106,000357: 43,2301           05155                           TC       ENDOFJOB                              #  GOODEND - LOCKON ACHIEVED
011107,000358: 43,2302           05567                           TC       ALARM                                 
011108,000359: 43,2303           00503                           OCT      503                                   #  TURN ON ALARM LIGHT -503 DESIGNATE FAIL

Page 271

011110,000361: 43,2304           05155                           TC       ENDOFJOB                              
011111,000362: 
011112,000363: 43,2305           10110        RRDESEND           CCS      RADMODES                              #  TERMINATE CONTINUOUS DESIGNATE ONLY
011113,000364: 43,2306           12117                           TCF      GOPIN                                 
011114,000365: 43,2307           12117                           TCF      GOPIN                                 
011115,000366: 43,2310           12311                           TCF      +1                                    
011116,000367: 43,2311           42324                           CS       OCT41000                              #  BEGDES GOES TO ENDRADAR
011117,000368: 43,2312           00004                           INHINT                                         #  RELINT DONE IN DOWNFLAG
011118,000369: 43,2313           70110                           MASK     RADMODES                              
011119,000370: 43,2314           54110                           TS       RADMODES                              
011120,000371: 43,2315           06011                           TC       CLRADMOD                              
011121,000372: 43,2316           34777                           CAF      1SEC                                  
011122,000373: 43,2317           04616                           TC       BANKCALL                              
011123,000374: 43,2320           01736                           CADR     DELAYJOB                              
011124,000375: 43,2321           05516                           TC       DOWNFLAG                              #  ENABLE R25 GIMBAL MONITOR
011125,000376: 43,2322           00126                           ADRES    NORRMON                               
011126,000377: 43,2323           12117                           TCF      GOPIN                                 
011127,000378: 43,2324           41000        OCT41000           OCT      41000                                 #  CONTINUOUS DESIGNATE - DESIGNATE
011128,000379: 

Page 272

011130,000381: 23,2000                                           BANK     23                                    
011131,000382: 23,2000                                           SETLOC   EXTVB1                                
011132,000383: 23,2000                                           BANK                                           
011133,000384: 23,2000                                           COUNT*   $$/EXTVB                              
011134,000385: 
011135,000386: 23,2000           04645        AURLOKON           TC       MAKECADR                              
011136,000387: 23,2001           55112                           TS       DESRET                                
011137,000388: 23,2002           34752                           CAF      TWO                                   
011138,000389: 23,2003           55051                           TS       OPTIONX    +1                         
011139,000390: 23,2004           36245                           CAF      SIX                                   #  OPTION CODE FOR V04N12
011140,000391: 23,2005           55050                           TS       OPTIONX                               
011141,000392: 
011142,000393: 23,2006           32037                 -5        CAF      V04N1272                              
011143,000394: 23,2007           04616                           TC       BANKCALL                              #  R2    00001   LOCK-ON
011144,000395: 23,2010           20353                           CADR     GOMARKFR                              
011145,000396: 23,2011           15472                           TCF      ENDEXT                                #  V34
011146,000397: 23,2012           12017                           TCF      +5                                    #  V33
011147,000398: 23,2013           12006                           TCF      -5                                    #  V32
011148,000399: 23,2014           34751                           CAF      BIT3                                  
011149,000400: 23,2015           05464                           TC       BLANKET                               
011150,000401: 23,2016           05155                           TC       ENDOFJOB                              
011151,000402: 
011152,000403: 23,2017           31051                 +5        CA       OPTIONX    +1                         
011153,000404: 23,2020           74752                           MASK     BIT2                                  
011154,000405: 23,2021           10000                           CCS      A                                     
011155,000406: 23,2022           12026                           TCF      NOLOKON                               
011156,000407: 23,2023           05504                           TC       UPFLAG                                
011157,000408: 23,2024           00012                           ADRES    LOKONSW                               
011158,000409: 23,2025           12034                           TCF      AURLKON1                              
011159,000410: 
011160,000411: 23,2026           05516        NOLOKON            TC       DOWNFLAG                              #  IF NO LOCK-ON, SET BIT15 OF RADMODES TO
011161,000412: 23,2027           00012                           ADRES    LOKONSW                               #  INDICATE THAT CONTINUOUS DESIGNATION IS
011162,000413: 23,2030           05504                           TC       UPFLAG                                #  WANTED (TO BE TERMINATED BY V44.)
011163,000414: 23,2031           00264                           ADRES    CDESFLAG                              
011164,000415: 23,2032           05504                           TC       UPFLAG                                #  SET NO RR ANGLE MONITOR FLAG.
011165,000416: 23,2033           00126                           ADRES    NORRMON                               #  (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
011166,000417: 23,2034           00003        AURLKON1           RELINT                                         
011167,000418: 23,2035           31112                           CA       DESRET                                
011168,000419: 23,2036           14640                           TCF      BANKJUMP                              
011169,000420: 
011170,000421: 23,2037           01014        V04N1272           VN       412                                   
011171,000422: 23,2040           77757        -LOKONFG           OCT      -20                                   
011172,000423: 
011173,000424: 43,2325                                           BANK     43                                    
011174,000425: 43,2000                                           SETLOC   EXTVERBS                              
011175,000426: 43,2000                                           BANK                                           
011176,000427: 43,2325                                           COUNT*   $$/EXTVB                              
011177,000428: 
011178,000429: 43,2325           02076        LRON               TC       TESTXACT                              
011179,000430: 

Page 273

011181,000432: 43,2326           32365        DSP68              CAF      V06N68                                
011182,000433: 43,2327           04616                           TC       BANKCALL                              
011183,000434: 43,2330           20353                           CADR     GOMARKFR                              
011184,000435: 43,2331           02363                           TC       B1+5OFF                               
011185,000436: 43,2332           02354                           TC       SET57                                 
011186,000437: 43,2333           05155                           TC       ENDOFJOB                              
011187,000438: 
011188,000439: 43,2334           04616        WAIT68             TC       BANKCALL                              
011189,000440: 43,2335           01735                           CADR     2SECDELY                              
011190,000441: 
011191,000442: 43,2336           34361                           CAF      OCT21                                 
011192,000443: 43,2337           71043                           MASK     EXTVBACT                              
011193,000444: 43,2340           00006                           EXTEND                                         
011194,000445: 43,2341           15472                           BZF      ENDEXT                                
011195,000446: 
011196,000447: 43,2342           74747                           MASK     BIT5                                  
011197,000448: 43,2343           10000                           CCS      A                                     
011198,000449: 43,2344           12326                           TCF      DSP68                                 
011199,000450: 
011200,000451: 43,2345           32365        DSP5068            CAF      V50N68                                
011201,000452: 43,2346           04616                           TC       BANKCALL                              
011202,000453: 43,2347           20361                           CADR     GOMARK3R   -1                         
011203,000454: 43,2350           12363                           TCF      B1+5OFF                               
011204,000455: 43,2351           12363                           TCF      B1+5OFF                               
011205,000456: 43,2352           12357                           TCF      RESET57                               
011206,000457: 
011207,000458: 43,2353           12334                           TCF      WAIT68                                
011208,000459: 
011209,000460: 43,2354           05504        SET57              TC       UPFLAG                                
011210,000461: 43,2355           00254                           ADRES    LRINH                                 
011211,000462: 
011212,000463: 43,2356           15563                           TCF      B5OFF                                 
011213,000464: 
011214,000465: 43,2357           05516        RESET57            TC       DOWNFLAG                              
011215,000466: 43,2360           00254                           ADRES    LRINH                                 
011216,000467: 
011217,000468: 43,2361           34362                           CAF      OCT25                                 
011218,000469: 43,2362           05565                           TC       B5OFF      +2                         
011219,000470: 
011220,000471: 43,2363           44361        B1+5OFF            CS       OCT21                                 
011221,000472: 43,2364           15564                           TCF      B5OFF      +1                         
011222,000473: 
011223,000474: 43,2365     4361               OCT21              EQUALS   ND1                                   
011224,000475: 
011225,000476: 43,2365           01504        V06N68             VN       0668                                  
011226,000477: 43,2366  43,2365               V50N68             =        V06N68                                
011227,000478: 
011228,000479: 43,2366           05516        LROFF              TC       DOWNFLAG                              #  INHIBIT INCORPORATION OF LR DATA      V58
011229,000480: 43,2367           00254                           ADRES    LRINH                                 
011230,000481: 43,2370           12117                           TCF      GOPIN                                 
011231,000482: 

Page 274

011233,000484: 43,2371  E5,1737                                  EBANK=   OGC                                   
011234,000485: 

Page 275

011236,000487:                                                                                                  #  IMUFINEK      VERB 42         DESCRIPTION
011237,000488:                                                                                                  #        FINE ALIGN IMU
011238,000489: 
011239,000490:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011240,000491:                                                                                                  #        2.      DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011241,000492:                                                                                                  #                RESPONSES
011242,000493:                                                                                                  #                A.      TERMINATE
011243,000494:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
011244,000495:                                                                                                  #                B.      PROCEED OR ENTER
011245,000496:                                                                                                  #                        1.      RE-DISPLAY VERB 42
011246,000497:                                                                                                  #                        2.      EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011247,000498:                                                                                                  #                        3.      EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011248,000499:                                                                                                  #                                A.      FAILED
011249,000500:                                                                                                  #                                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
011250,000501:                                                                                                  #                                B.      GOOD
011251,000502:                                                                                                  #                                        1.      EXECUTE IMUPULSE (TORQUE IRIGS).
011252,000503:                                                                                                  #                                        2.      EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011253,000504: 
011254,000505: 43,2371           02436        IMUFINEK           TC       CKMODCAD                              
011255,000506: 43,2372           02076                           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
011256,000507: 43,2373           32420                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
011257,000508: 43,2374           04616                           TC       BANKCALL                              
011258,000509: 43,2375           20334                           CADR     GOXDSPF                               
011259,000510: 43,2376           05472                           TC       TERMEXTV                              
011260,000511: 43,2377           02400                           TC       +1                                    #  PROCEED WITHOUT A LOAD
011261,000512: 
011262,000513: 43,2400           32421                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
011263,000514: 43,2401           04616                           TC       BANKCALL                              
011264,000515: 43,2402           20621                           CADR     EXDSPRET                              
011265,000516: 
011266,000517: 43,2403           04616                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
011267,000518: 43,2404           17201                           CADR     IMUFINE                               
011268,000519: 
011269,000520: 43,2405           04616                           TC       BANKCALL                              #  HIBERNATION
011270,000521: 43,2406           17707                           CADR     IMUSTALL                              
011271,000522: 43,2407           05472                           TC       ENDEXTVB                              
011272,000523: 
011273,000524: 43,2410           32417        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
011274,000525: 43,2411           04616                           TC       BANKCALL                              
011275,000526: 43,2412           17314                           CADR     IMUPULSE                              
011276,000527: 
011277,000528: 43,2413           04616                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
011278,000529: 43,2414           17707                           CADR     IMUSTALL                              
011279,000530: 43,2415           05472                           TC       ENDEXTVB                              
011280,000531: 43,2416           05472                           TC       ENDEXTVB                              
011281,000532: 
011282,000533: 43,2417           02737        LGYROBIN           ECADR    OGC                                   
011283,000534: 43,2420           06335        VNLODGYR           VN       2593                                  
011284,000535: 43,2421           12400        IMUFINEV           VN       4200                                  
011285,000536: 
011286,000537:                                                                                                  #  GOLOADLV      VERB 50         DESCRIPTION
011287,000538:                                                                                                  #        AND OTHER PLEASE

Page 276

011289,000540:                                                                                                  #        DO SOMETHING VERBS
011290,000541: 
011291,000542:                                                                                                  #  PLEASE PERFORM, MARK, CALIBRATE, ETC.
011292,000543: 
011293,000544:                                                                                                  #        1.      PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011294,000545:                                                                                                  #                SAME RECALL AS A COMPLETED LOAD.
011295,000546:                                                                                                  #        2.      THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011296,000547: 
011297,000548: 43,2422  40,2000                                  SBANK=   PINSUPER                              #  FOR LOADLV1 AND SHOWSUM CADR'S.
011298,000549: 
011299,000550: 43,2422           04433        GOLOADLV           TC       FLASHOFF                              
011300,000551: 
011301,000552: 43,2423           34201                           CAF      PINSUPBT                              
011302,000553: 43,2424           00006                           EXTEND                                         
011303,000554: 43,2425           01007                           WRITE    SUPERBNK                              
011304,000555: 43,2426           04635                           TC       POSTJUMP                              
011305,000556: 43,2427           62001                           CADR     LOADLV1                               
011306,000557: 
011307,000558:                                                                                                  #  VERB 47 - AGS INITIALIZATION - R47.
011308,000559: 
011309,000560:                                                                                                  #  SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
011310,000561: 
011311,000562: 43,2430           02076        V47TXACT           TC       TESTXACT                              #  NO OTHER EXTVERB.
011312,000563: 43,2431           34740                           CAF      PRIO4                                 
011313,000564: 43,2432           05105                           TC       FINDVAC                               
011314,000565: 43,2433  E4,1600                                  EBANK=   AGSBUFF                               
011315,000566: 43,2433           02005 64064                     2CADR    AGSINIT                               
011316,000567: 
011317,000568: 43,2435           05155                           TC       ENDOFJOB                              
011318,000569: 
011319,000570: 43,2436           31301        CKMODCAD           CA       MODECADR                              
011320,000571: 43,2437           00006                           EXTEND                                         
011321,000572: 43,2440           16745                           BZF      TCQ                                   
011322,000573: 43,2441           02116                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
011323,000574: 

Page 277

011325,000576:                                                                                                  #  ALINTIME      VERB 55         DESCRIPTION
011326,000577:                                                                                                  #        REQUIRE POO OR POO-.
011327,000578: 
011328,000579:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011329,000580:                                                                                                  #        2.      DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011330,000581:                                                                                                  #        3.      REQUIRE EXECUTION OF VERB 23.
011331,000582:                                                                                                  #        4.      ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011332,000583:                                                                                                  #        5.      RELEASE EXT VERB DISPLAY SYSTEM
011333,000584: 
011334,000585: 43,2442           02076        ALINTIME           TC       TESTXACT                              
011335,000586: 43,2443           04635                           TC       POSTJUMP                              #  NO ROOM IN 43
011336,000587: 43,2444           64002                           CADR     R33                                   
011337,000588: 
011338,000589: 42,2002                                           BANK     42                                    
011339,000590: 42,2000                                           SETLOC   SBAND                                 
011340,000591: 42,2000                                           BANK                                           
011341,000592: 42,2002                                           COUNT*   $$/R33                                
011342,000593: 
011343,000594: 42,2002           35021        R33                CAF      PRIO7                                 
011344,000595: 42,2003           05146                           TC       PRIOCHNG                              
011345,000596: 42,2004           32034                           CAF      VNLODDT                               
011346,000597: 42,2005           04616                           TC       BANKCALL                              
011347,000598: 42,2006           20334                           CADR     GOXDSPF                               
011348,000599: 42,2007           05472                           TC       ENDEXT                                #  TERMINATE
011349,000600: 42,2010           05472                           TC       ENDEXT                                #  PROCEED
011350,000601: 42,2011           42033                           CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
011351,000602: 42,2012           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
011352,000603: 42,2013           00006                           EXTEND                                         
011353,000604: 42,2014           12016                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
011354,000605: 42,2015           05472                           TC       ENDEXT                                #        WITH V23 (DATA IN).
011355,000606: 
011356,000607: 42,2016           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
011357,000608: 42,2017           34755                           CAF      ZERO                                  
011358,000609: 42,2020           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
011359,000610: 42,2021           54001                           TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
011360,000611: 42,2022           52025                           DXCH     TIME2                                 
011361,000612: 42,2023           52155                           DXCH     MPAC                                  
011362,000613: 42,2024           53051                           DXCH     DSPTEM2    +1                         #  INCREMENT
011363,000614: 42,2025           20155                           DAS      MPAC                                  
011364,000615: 
011365,000616: 42,2026           07262                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
011366,000617: 42,2027           52155                           DXCH     MPAC                                  #  NEW CLOCK.
011367,000618: 42,2030           20025                           DAS      TIME2                                 
011368,000619: 42,2031           00003                           RELINT                                         
011369,000620: 42,2032           05472        UPDTMEND           TC       ENDEXT                                
011370,000621: 
011371,000622: 42,2033           00027        DEC23              DEC      23         B-14                       #  V 23
011372,000623: 
011373,000624: 42,2034           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
011374,000625: 

Page 278

011376,000627:                                                                                                  #  SET UP FOR RADAR SAMPLING.
011377,000628: 
011378,000629: 42,2035                                           BANK     42                                    
011379,000630: 43,2000                                           SETLOC   EXTVERBS                              
011380,000631: 43,2000                                           BANK                                           
011381,000632: 
011382,000633: 43,2445  E4,1600                                  EBANK=   RSTACK                                
011383,000634: 
011384,000635: 43,2445                                           COUNT*   $$/R0477                              
011385,000636: 
011386,000637: 43,2445           02700        R77                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011387,000638: 43,2446           30077                           CA       FLAGWRD3                              #  IS R04 RUNNING?
011388,000639: 43,2447           74743                           MASK     R04FLBIT                              
011389,000640: 43,2450           10000                           CCS      A                                     
011390,000641: 43,2451           02116                           TC       ALM/END                               #  YES.
011391,000642: 43,2452           05504                           TC       UPFLAG                                
011392,000643: 43,2453           00117                           ADRES    R77FLAG                               
011393,000644: 43,2454           12461                           TCF      R04Z                                  
011394,000645: 
011395,000646: 43,2455           02700        R04                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011396,000647: 43,2456           02076                           TC       TESTXACT                              
011397,000648: 43,2457           05504                           TC       UPFLAG                                
011398,000649: 43,2460           00063                           ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
011399,000650: 
011400,000651: 43,2461           34741        R04Z               CAF      EBANK4                                
011401,000652: 43,2462           54003                           TS       EBANK                                 
011402,000653: 43,2463           32676                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011403,000654: 43,2464           55777                           TS       RSAMPDT                               
011404,000655: 43,2465           34755                           CAF      ZERO                                  
011405,000656: 43,2466           55776                           TS       RTSTLOC                               
011406,000657: 43,2467           55575                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
011407,000658: 
011408,000659: 43,2470           00004                           INHINT                                         
011409,000660: 43,2471           42677                           CS       LRPOSCAL                              #  INITIALIZE
011410,000661: 43,2472           70110                           MASK     RADMODES                              #        BIT 9   LR RANGE LOW SCALE =0
011411,000662: 43,2473           54110                           TS       RADMODES                              #        BIT 6   LR POS 1 =0
011412,000663: 43,2474           32677                           CAF      LRPOSCAL                              #        BIT 3   RR RANGE LOW SCALE =0
011413,000664: 43,2475           00006                           EXTEND                                         
011414,000665: 43,2476           02033                           RAND     CHAN33                                
011415,000666: 43,2477           26110                           ADS      RADMODES                              
011416,000667: 43,2500           00003                           RELINT                                         
011417,000668: 
011418,000669: 43,2501           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG         R04 =1          R77 =0
011419,000670: 43,2502           74743                           MASK     R04FLBIT                              
011420,000671: 43,2503           10000                           CCS      A                                     
011421,000672: 43,2504           12633                           TCF      R04K                                  
011422,000673: 
011423,000674: 43,2505           34753                           CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
011424,000675: 43,2506           55051                           TS       OPTIONX    +1                         
011425,000676: 43,2507           34751        R04A               CAF      BIT3                                  #  OPTION CODE FOR V04N12
011426,000677: 

Page 279

011428,000679: 43,2510           55050                           TS       OPTIONX                               
011429,000680: 43,2511           32673                           CAF      V04N12X                               
011430,000681: 43,2512           04616                           TC       BANKCALL                              #        R2      00001   RENDEZVOUS RADAR
011431,000682: 43,2513           20353                           CADR     GOMARKFR                              #                00002   LANDING RADAR
011432,000683: 43,2514           12641                           TCF      R04END                                #  V34
011433,000684: 43,2515           12522                           TCF      +5                                    #  V33
011434,000685: 43,2516           12511                           TCF      R04A       +2                         #  R2
011435,000686: 43,2517           34751                           CAF      BIT3                                  
011436,000687: 43,2520           05464                           TC       BLANKET                               
011437,000688: 43,2521           05155                           TC       ENDOFJOB                              
011438,000689: 
011439,000690: 43,2522           31051                           CA       OPTIONX    +1                         #  SAVE DESIRED OPTION      RR =1     LR =2
011440,000691: 43,2523           55773                           TS       RTSTDEX                               
011441,000692: 
011442,000693: 43,2524           36245        R04X               CAF      SIX                                   #  RR OR LR DESIRED
011443,000694: 43,2525           71773                           MASK     RTSTDEX                               
011444,000695: 43,2526           10000                           CCS      A                                     
011445,000696: 43,2527           12635                           TCF      R04L                                  #  LANDING RADAR
011446,000697: 43,2530           55775                           TS       RTSTBASE                              #  FOR RR        BASE =0, MAX =1
011447,000698: 
011448,000699: 43,2531           34752        R04B               CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
011449,000700: 43,2532           00006                           EXTEND                                         
011450,000701: 43,2533           02033                           RAND     CHAN33                                
011451,000702: 43,2534           00006                           EXTEND                                         
011452,000703: 43,2535           12546                           BZF      R04C                                  #  YES
011453,000704: 
011454,000705: 43,2536           32675                           CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
011455,000706: 43,2537           55044                           TS       DSPTEM1                               
011456,000707: 43,2540           32674                           CAF      V50N25X                               
011457,000708: 43,2541           04616                           TC       BANKCALL                              
011458,000709: 43,2542           20345                           CADR     GOMARK4                               
011459,000710: 43,2543           12641                           TCF      R04END                                #  V34
011460,000711: 43,2544           12531                           TCF      R04B                                  #  V33
011461,000712: 43,2545           12536                           TCF      -7                                    #  E
011462,000713: 
011463,000714: 43,2546           34736        R04C               CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
011464,000715: 43,2547           00006                           EXTEND                                         
011465,000716: 43,2550           05012                           WOR      CHAN12                                
011466,000717: 
011467,000718: 43,2551           34752                           CAF      TWO                                   
011468,000719: 43,2552           55774                           TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
011469,000720: 
011470,000721: 43,2553           05203                           TC       WAITLIST                              
011471,000722: 43,2554  E4,1600                                  EBANK=   RSTACK                                
011472,000723: 43,2554           02003 52104                     2CADR    RADSAMP                               
011473,000724: 
011474,000725: 43,2556           00003                           RELINT                                         
011475,000726: 
011476,000727: 43,2557           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG         R04 =1          R77 =0
011477,000728: 43,2560           74743                           MASK     R04FLBIT                              

Page 280

011479,000730: 43,2561           10000                           CCS      A                                     
011480,000731: 43,2562           12117                           TCF      GOPIN                                 #  R77
011481,000732: 
011482,000733: 43,2563           36245                           CAF      SIX                                   #  RR OR LR
011483,000734: 43,2564           71773                           MASK     RTSTDEX                               
011484,000735: 43,2565           10000                           CCS      A                                     
011485,000736: 43,2566           12603                           TCF      R04LR                                 #  LR
011486,000737: 
011487,000738: 43,2567           32667        R04RR              CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
011488,000739: 43,2570           04616                           TC       BANKCALL                              #        R1 + XXX.XX DEG         TRUNNION
011489,000740: 43,2571           20334                           CADR     GOMARKF                               #        R2 + XXX.XX DEG         SHAFT
011490,000741: 43,2572           12641                           TCF      R04END                                #  V34   R3   BLANK
011491,000742: 43,2573           12575                           TCF      +2                                    #  V33
011492,000743: 43,2574           12567                           TCF      R04RR                                 #  V32
011493,000744: 
011494,000745: 43,2575           32670                           CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
011495,000746: 43,2576           04616                           TC       BANKCALL                              #        R1 +- XXX.XX NM         RANGE
011496,000747: 43,2577           20334                           CADR     GOMARKF                               #        R2 +- XXXXX. FPS        RANGE RATE
011497,000748: 43,2600           12641                           TCF      R04END                                #  V34   R3    BLANK
011498,000749: 43,2601           12617                           TCF      R04Y                                  #  V33
011499,000750: 43,2602           12567                           TCF      R04RR                                 #  V32
011500,000751: 
011501,000752: 43,2603           32671        R04LR              CAF      V16N66                                #  DISPLAY LR RANGE AND POSITION (1/SEC)
011502,000753: 43,2604           04616                           TC       BANKCALL                              #        R1 +- XXXXX. FT         LR RANGE
011503,000754: 43,2605           20334                           CADR     GOMARKF                               #        R2 +  0000X.            POS. NO.
011504,000755: 43,2606           12641                           TCF      R04END                                #  V34   R3    BLANK
011505,000756: 43,2607           12611                           TCF      +2                                    #  V33
011506,000757: 43,2610           12603                           TCF      R04LR                                 #  V32
011507,000758: 
011508,000759: 43,2611           32672                           CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
011509,000760: 43,2612           04616                           TC       BANKCALL                              #        R1 +- XXXXX. FPS        LR V(X)
011510,000761: 43,2613           20334                           CADR     GOMARKF                               #        R2 +- XXXXX. FPS        LR V(Y)
011511,000762: 43,2614           12641                           TCF      R04END                                #  V34   R3 +- XXXXX. FPS        LR V(Z)
011512,000763: 43,2615           12617                           TCF      R04Y                                  #  V33
011513,000764: 43,2616           12603                           TCF      R04LR                                 #  V32
011514,000765: 
011515,000766: 43,2617           34755        R04Y               CAF      ZERO                                  #  TO TERMINATE SAMPLING
011516,000767: 43,2620           55777                           TS       RSAMPDT                               
011517,000768: 43,2621           04616                           TC       BANKCALL                              
011518,000769: 43,2622           01735                           CADR     2SECDELY                              #  WAIT FOR LAST RADARUPT
011519,000770: 43,2623           32676                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011520,000771: 43,2624           55777                           TS       RSAMPDT                               
011521,000772: 43,2625           34755                           CAF      ZERO                                  #  FOR STORING RESULTS
011522,000773: 43,2626           55776                           TS       RTSTLOC                               
011523,000774: 43,2627           11775                           CCS      RTSTBASE                              #  CHECK WHICH RADAR HAD BEEN SAMPLED
011524,000775: 43,2630           44753                           CS       ONE                                   #  WAS LR
011525,000776: 43,2631           64752                           AD       TWO                                   #  WAS RR
011526,000777: 43,2632           12523                           TCF      R04X       -1                         
011527,000778: 
011528,000779: 43,2633           34766        R04K               CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.

Page 281

011530,000781: 43,2634           55777                           TS       RSAMPDT                               
011531,000782: 
011532,000783: 43,2635           34752        R04L               CAF      TWO                                   
011533,000784: 43,2636           55775                           TS       RTSTBASE                              #  FOR LR        BASE =2, MAX =3
011534,000785: 43,2637           36245                           CAF      SIX                                   
011535,000786: 43,2640           12552                           TCF      R04C       +4                         
011536,000787: 43,2641           34755        R04END             CAF      ZERO                                  #  ZERO RSAMPDT
011537,000788: 43,2642           55777                           TS       RSAMPDT                               #  TO TERMINATE SAMPLING
011538,000789: 43,2643           34744                           CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
011539,000790: 43,2644           04616                           TC       BANKCALL                              #  PENDING RUPT.
011540,000791: 43,2645           01736                           CADR     DELAYJOB                              
011541,000792: 
011542,000793: 43,2646           00004                           INHINT                                         
011543,000794: 43,2647           44736                           CS       BIT14                                 #  DISABLE RR AUTO TRACKER
011544,000795: 43,2650           00006                           EXTEND                                         
011545,000796: 43,2651           03012                           WAND     CHAN12                                
011546,000797: 
011547,000798: 43,2652           05516                           TC       DOWNFLAG                              
011548,000799: 43,2653           00063                           ADRES    R04FLAG                               #  SIGNAL END OF R04.
011549,000800: 
011550,000801: 43,2654           05472                           TC       ENDEXT                                
011551,000802: 
011552,000803: 43,2655           34741        R77END             CAF      EBANK4                                #  TO TERMINATE SAMPLING
011553,000804: 43,2656           54003                           TS       EBANK                                 
011554,000805: 43,2657           34755                           CAF      ZERO                                  
011555,000806: 43,2660           55777                           TS       RSAMPDT                               
011556,000807: 43,2661           34746                           CAF      BIT6                                  #  WAIT 320 MS FOR POSSIBLE
011557,000808: 43,2662           04616                           TC       BANKCALL                              #  PENDING RUPT.
011558,000809: 43,2663           01736                           CADR     DELAYJOB                              
011559,000810: 
011560,000811: 43,2664           05516                           TC       DOWNFLAG                              
011561,000812: 43,2665           00117                           ADRES    R77FLAG                               
011562,000813: 43,2666           12117                           TCF      GOPIN                                 
011563,000814: 
011564,000815: 43,2667           04110        V16N72             VN       1672                                  
011565,000816: 43,2670           04116        V16N78             VN       1678                                  
011566,000817: 43,2671           04102        V16N66             VN       1666                                  
011567,000818: 43,2672           04103        V16N67             VN       1667                                  
011568,000819: 43,2673           01014        V04N12X            VN       412                                   
011569,000820: 43,2674           14431        V50N25X            VN       5025                                  
011570,000821: 43,2675           00201        201R04             OCT      00201                                 
011571,000822: 43,2676           00145        1SEC+1             DEC      101        B-14                       
011572,000823: 43,2677     4766               250MS+1            EQUALS   CALLCODE                              
011573,000824: 43,2677           00444        LRPOSCAL           OCT      444                                   
011574,000825: 

Page 282

011576,000827: 43,2700           40077        RDRUSECK           CS       FLAGWRD3                              #  IS R29 ON?
011577,000828: 43,2701           74741                           MASK     NR29FBIT                              
011578,000829: 43,2702           10000                           CCS      A                                     
011579,000830: 43,2703           02116                           TC       ALM/END                               #  YES
011580,000831: 43,2704           30101                           CA       FLAGWRD5                              #  IS R77 RUNNING?
011581,000832: 43,2705           74741                           MASK     R77FLBIT                              
011582,000833: 43,2706           10000                           CCS      A                                     
011583,000834: 43,2707           02116                           TC       ALM/END                               #  YES.
011584,000835: 43,2710           40103                           CS       FLAGWRD7                              #  IS SERVICER RUNNING AND HENCE POSSIBLY
011585,000836: 43,2711           74746                           MASK     V37FLBIT                              #  R12 USING THE LR?
011586,000837: 43,2712           10000                           CCS      A                                     
011587,000838: 43,2713           12720                           TCF      CHECKRR                               #  NO
011588,000839: 43,2714           30107                           CA       FLGWRD11                              #  YES, IS R12 ON?
011589,000840: 43,2715           74735                           MASK     LRBYBIT                               #  BIT 15
011590,000841: 43,2716           00006                           EXTEND                                         
011591,000842: 43,2717           12116                           BZF      ALM/END                               #  YES
011592,000843: 43,2720           40075        CHECKRR            CS       FLAGWRD1                              #  IS THE TRACK FLAG SET AND HENCE POSSIBLY
011593,000844: 43,2721           74747                           MASK     TRACKBIT                              #  P20 USING THE RR?
011594,000845: 43,2722           10000                           CCS      A                                     
011595,000846: 43,2723           00002                           TC       Q                                     #  NOT ALLOWED DURING P20
011596,000847: 43,2724           02116                           TC       ALM/END                               #  P22 OR P25, (R65)
011597,000848: 43,2725                                           COUNT*   $$/EXTVB                              
011598,000849: 
011599,000850: 43,2725           02076        VB64               TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
011600,000851: 43,2726           34740                           CAF      PRIO4                                 
011601,000852: 43,2727           05105                           TC       FINDVAC                               
011602,000853: 43,2730  E4,1600                                  EBANK=   ALPHASB                               
011603,000854: 43,2730           03606 64104                     2CADR    SBANDANT                              #  CALC., DISPLAY S-BAND ANTENNA ANGLES.
011604,000855: 
011605,000856: 43,2732           05155                           TC       ENDOFJOB                              
011606,000857: 

Page 283

011608,000859:                                                                                                  #  IMUATTCK      VERB 43         DESCRIPTION
011609,000860:                                                                                                  #        LOAD IMU ATTITUDE ERROR METERS
011610,000861: 
011611,000862:                                                                                                  #        1.      REQUIRE POO OR FRESH START.
011612,000863:                                                                                                  #        2.      REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
011613,000864:                                                                                                  #        3.      REQUIRE THAT NEEDLES BE OFF.
011614,000865:                                                                                                  #        4.      REQUEST LOAD OF N22 (VAUES TO BE DISPLAYED).
011615,000866:                                                                                                  #        5.      ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
011616,000867: 
011617,000868: 43,2733           02121        IMUATTCK           TC       CHKPOOH                               #  VB 76 - LOAD IMU ATT. ERROR METERS
011618,000869: 
011619,000870: 43,2734           34763                           CAF      BITS4&5                               #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
011620,000871: 43,2735           00006                           EXTEND                                         #  CDUS BITS ARE ON
011621,000872: 43,2736           02012                           RAND     CHAN12                                
011622,000873: 43,2737           10000                           CCS      A                                     
011623,000874: 43,2740           12116                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011624,000875: 
011625,000876: 43,2741           34355                           CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
011626,000877: 43,2742           00006                           EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
011627,000878: 43,2743           06031                           RXOR     CHAN31                                
011628,000879: 43,2744           74355                           MASK     BIT13-14                              
011629,000880: 43,2745           00006                           EXTEND                                         
011630,000881: 43,2746           12750                           BZF      +2                                    #  NEEDLES IS OFF.
011631,000882: 43,2747           12116                           TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
011632,000883: 
011633,000884: 43,2750           02076                           TC       TESTXACT                              
011634,000885: 
011635,000886: 43,2751           32234                           CAF      VNLODCDU                              
011636,000887: 43,2752           04616                           TC       BANKCALL                              
011637,000888: 43,2753           20334                           CADR     GOXDSPF                               
011638,000889: 43,2754           05472                           TC       ENDEXT                                #  V34
011639,000890: 43,2755           02756                           TC       +1                                    
011640,000891: 43,2756           32771                           CAF      V43K                                  #  REDISPLAY OUR VERB.
011641,000892: 43,2757           04616                           TC       BANKCALL                              
011642,000893: 43,2760           20621                           CADR     EXDSPRET                              
011643,000894: 43,2761           34746                           CAF      BIT6                                  
011644,000895: 43,2762           00006                           EXTEND                                         
011645,000896: 43,2763           05012                           WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
011646,000897: 43,2764           34752                           CAF      TWO                                   
011647,000898: 43,2765           05203                           TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
011648,000899: 43,2766     0321                                  EBANK=   THETAD                                
011649,000900: 43,2766           02035 64100                     2CADR    ATTCK2                                
011650,000901: 
011651,000902: 43,2770           15472                           TCF      ENDEXT                                
011652,000903: 
011653,000904: 42,2035                                           BANK     42                                    
011654,000905: 42,2000                                           SETLOC   PINBALL3                              #  SOMETHING IN B42.
011655,000906: 42,2000                                           BANK                                           
011656,000907: 
011657,000908: 42,2035                                           COUNT*   $$/EXTVB                              

Page 284

011659,000910: 42,2035           34752        ATTCK2             CAF      TWO                                   #  PUT OUT COMMANDS.
011660,000911: 42,2036           54002                 +1        TS       Q                                     #  CDU WILL LIMIT EXCESS DATA.
011661,000912: 42,2037           50000                           INDEX    A                                     
011662,000913: 42,2040           30321                           CA       THETAD                                
011663,000914: 42,2041           00006                           EXTEND                                         
011664,000915: 42,2042           72053                           MP       ATTSCALE                              
011665,000916: 42,2043           50002                           INDEX    Q                                     
011666,000917: 42,2044           56050                           XCH      CDUXCMD                               
011667,000918: 42,2045           10002                           CCS      Q                                     
011668,000919: 42,2046           12036                           TCF      ATTCK2     +1                         
011669,000920: 
011670,000921: 42,2047           37743                           CAF      13,14,15                              
011671,000922: 42,2050           00006                           EXTEND                                         
011672,000923: 42,2051           05014                           WOR      CHAN14                                
011673,000924: 42,2052           15261                           TCF      TASKOVER                              #  LEAVE ERROR COUNTERS ENABLED.
011674,000925: 
011675,000926: 42,2053           03146        ATTSCALE           DEC      0.1                                   
011676,000927: 
011677,000928: 07,2666                                           BANK     7                                     
011678,000929: 43,2000                                           SETLOC   EXTVERBS                              
011679,000930: 43,2000                                           BANK                                           
011680,000931: 
011681,000932: 43,2771                                           COUNT*   $$/EXTVB                              
011682,000933: 
011683,000934: 43,2771           12600        V43K               VN       4300                                  
011684,000935: 
011685,000936:                                                                                                  #  V82PERF       VERB82          DESCRIPTION
011686,000937:                                                                                                  #        REQUEST ORBIT PARAMETERS DISPLAY (R30)
011687,000938: 
011688,000939:                                                                                                  #        1.      IF AVERAGE G IS OFF:
011689,000940:                                                                                                  #                        FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011690,000941:                                                                                                  #                        TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
011691,000942:                                                                                                  #                        CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011692,000943:                                                                                                  #                        SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011693,000944:                                                                                                  #                        CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011694,000945:                                                                                                  #                        RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011695,000946:                                                                                                  #                        HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011696,000947:                                                                                                  #                        HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
011697,000948:                                                                                                  #                        INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011698,000949:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
011699,000950:                                                                                                  #                        NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011700,000951:                                                                                                  #                        ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011701,000952:                                                                                                  #                        DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011702,000953:                                                                                                  #                        ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011703,000954: 
011704,000955:                                                                                                  #        2.      IF AVERAGE G IS ON:
011705,000956:                                                                                                  #                        CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
011706,000957:                                                                                                  #                        FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
011707,000958:                                                                                                  #                        OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011708,000959:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011709,000960:                                                                                                  #                        IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011710,000961:                                                                                                  #                        RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011711,000962: 

Page 285

011713,000964: 43,2772           02076        V82PERF            TC       TESTXACT                              
011714,000965: 
011715,000966: 43,2773           35021                           CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
011716,000967: 43,2774           05146                           TC       PRIOCHNG                              
011717,000968: 43,2775           00006                           EXTEND                                         
011718,000969: 43,2776           33001                           DCA      V82CON                                
011719,000970: 43,2777           05165                           TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
011720,000971: 
011721,000972: 43,3000  E4,1716                                  EBANK=   HAPO                                  
011722,000973: 43,3000           03242 44104  V82CON             2CADR    V82CALL                               
011723,000974: 
011724,000975:                                                                                                  #  VB83PERF      VERB 83         DESCRIPTION
011725,000976:                                                                                                  #        REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011726,000977: 
011727,000978:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011728,000979:                                                                                                  #        2.      SCHEDULE R31CALL WITH PRIORITY 5.
011729,000980:                                                                                                  #                A.      DISPLAY
011730,000981:                                                                                                  #                        R1      RANGE
011731,000982:                                                                                                  #                        R2      RANGE RATE
011732,000983:                                                                                                  #                        R3      THETA
011733,000984: 
011734,000985: 43,3002           02076        V83PERF            TC       TESTXACT                              
011735,000986: 
011736,000987: 43,3003           34752                           CAF      BIT2                                  
011737,000988: 43,3004           05203                           TC       WAITLIST                              
011738,000989: 43,3005  E7,1611                                  EBANK=   TSTRT                                 
011739,000990: 43,3005           03737 60107                     2CADR    R31CALL                               
011740,000991: 
011741,000992: 43,3007           05155                           TC       ENDOFJOB                              
011742,000993: 
011743,000994:                                                                                                  #  VERB 89       DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011744,000995:                                                                                                  #  
011745,000996:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED.  CALCULATES AND
011746,000997:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
011747,000998: 
011748,000999:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
011749,001000:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
011750,001001: 
011751,001002:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH).  IF IMU ON AND ITS
011752,001003:                                                                                                  #  ORIENTATION KNOWN TO LGC,CONTINUE.
011753,001004: 
011754,001005:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011755,001006:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
011756,001007:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
011757,001008:                                                                                                  #  AFTER KEYING IN PROCEED.
011758,001009: 
011759,001010:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
011760,001011: 
011761,001012:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND

Page 286

011763,001014:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
011764,001015:                                                                                                  #  PREPARED FOR VECPOINT.
011765,001016: 
011766,001017:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
011767,001018:                                                                                                  #  BALLANGS.  FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
011768,001019: 
011769,001020:                                                                                                  #  7.    RECYCLE - RETURN TO STEP 4.
011770,001021:                                                                                                  #        TERMINATE - EXIT R63.
011771,001022:                                                                                                  #        PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
011772,001023: 
011773,001024: 43,3010           02121        V89PERF            TC       CHKPOOH                               
011774,001025: 43,3011           02076                           TC       TESTXACT                              
011775,001026: 43,3012           34737                           CAF      PRIO10                                
011776,001027: 43,3013           05105                           TC       FINDVAC                               
011777,001028: 43,3014  E4,1606                                  EBANK=   RONE                                  
011778,001029: 43,3014           02022 54104                     2CADR    V89CALL                               
011779,001030: 
011780,001031: 43,3016           05155                           TC       ENDOFJOB                              
011781,001032: 
011782,001033:                                                                                                  #  V90PERF       VERB 90         DESCRIPTION
011783,001034:                                                                                                  #        REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011784,001035: 
011785,001036:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011786,001037:                                                                                                  #        2.      SCHEDULE R36 CALL WITH PRIORITY 10
011787,001038:                                                                                                  #                A.      DISPLAY
011788,001039:                                                                                                  #                        TIME OF EVENT - HOURS, MINUTES, SECONDS
011789,001040:                                                                                                  #                        Y       OUT-OF-PLANE POSITION - NAUTICAL MILES
011790,001041:                                                                                                  #                        YDOT    OUT-OF-PLANE VELOCITY - FEET/SECOND
011791,001042:                                                                                                  #                        PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
011792,001043:                                                                                                  #                                DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011793,001044: 
011794,001045: 43,3017           02076        V90PERF            TC       TESTXACT                              
011795,001046: 43,3020           35021                           CAF      PRIO7                                 #  R36,V90
011796,001047: 43,3021           05105                           TC       FINDVAC                               
011797,001048: 43,3022  E7,1441                                  EBANK=   TIG                                   
011798,001049: 43,3022           02642 10107                     2CADR    R36                                   
011799,001050: 
011800,001051: 43,3024           15155                           TCF      ENDOFJOB                              
011801,001052: 
011802,001053:                                                                                                  #  MINIMP        VERB 76         DESCRIPTION
011803,001054:                                                                                                  #        MINIMUM IMPULSE MODE
011804,001055: 
011805,001056:                                                                                                  #        1.      SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
011806,001057: 
011807,001058: 43,3025           05504        MINIMP             TC       UPFLAG                                #  SET PULSES = 1 (MIN. IMPULSE MODE)
011808,001059: 43,3026           00303                           ADRES    PULSEFLG                              
011809,001060: 43,3027           12117                           TCF      GOPIN                                 #  RETURN VIA PINBRNCH
011810,001061: 
011811,001062:                                                                                                  #  NOMINIMP      VERB 77         DESCRIPTION
011812,001063:                                                                                                  #        RATE COMMAND MODE
011813,001064: 
011814,001065:                                                                                                  #        1.      SET MINIMUM IMPULSE RHC MODE FLAG TO 0.  (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
011815,001066:                                                                                                  #        2.      MOVE CDUX, CDUY, CDUZ INTO CDUXD, CDUYD, CDUZD.

Page 287

011817,001068: 
011818,001069: 43,3030           05516        NOMINIMP           TC       DOWNFLAG                              #  SET PULSES = 0 (NOT MINIMUM IMPULSE MODE
011819,001070: 43,3031           00303                           ADRES    PULSEFLG                              
011820,001071: 43,3032           00004                           INHINT                                         
011821,001072: 43,3033           04674                           TC       IBNKCALL                              
011822,001073: 43,3034           40154                           CADR     ZATTEROR                              
011823,001074: 43,3035           02117                           TC       GOPIN                                 
011824,001075: 

Page 288

011826,001077:                                                                                                  #  CREWMANU      VERB 49         DESCRIPTION
011827,001078:                                                                                                  #        START AUTOMATIC ATTITUDE MANEUVER
011828,001079: 
011829,001080:                                                                                                  #        1.      REQUIRE PROGRAM 00 ACTIVE.
011830,001081:                                                                                                  #        2.      SET EXT VERB DISPLAY BUSY FLAG.
011831,001082:                                                                                                  #        3.      SCHEDULE R62DISP WITH PRIORITY 10.
011832,001083:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY.
011833,001084: 
011834,001085:                                                                                                  #        R62DISP
011835,001086:                                                                                                  #        1.      DISPLAY FLASHING V06,N22.
011836,001087:                                                                                                  #                RESPONSES
011837,001088:                                                                                                  #                A.      TERMINATE
011838,001089:                                                                                                  #                        1.      GO TO GOTOPOOH.
011839,001090:                                                                                                  #                B.      PROCEED
011840,001091:                                                                                                  #                        1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011841,001092:                                                                                                  #                        2.      EXECUTE R60LEM (ATTITUDE MANEUVER).
011842,001093:                                                                                                  #                C.      ENTER
011843,001094:                                                                                                  #                        1.      REPEAT FLASHING V06,N22.
011844,001095: 
011845,001096: 43,3036           02121        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
011846,001097: 
011847,001098: 43,3037           02076                           TC       TESTXACT                              
011848,001099: 
011849,001100: 43,3040           34737                           CAF      PRIO10                                
011850,001101: 43,3041           05105                           TC       FINDVAC                               
011851,001102: 43,3042  E6,1675                                  EBANK=   BCDU                                  
011852,001103: 43,3042           02103 46106                     2CADR    R62DISP                               
011853,001104: 
011854,001105: 43,3044           05155                           TC       ENDOFJOB                              
011855,001106: 

Page 289

011857,001108:                                                                                                  #  TRMTRACK      VERB 56         DESCRIPTION
011858,001109:                                                                                                  #        TERMINATE TRACKING (P20 AND P25).
011859,001110: 
011860,001111:                                                                                                  #        1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011861,001112:                                                                                                  #        2.      REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011862,001113:                                                                                                  #        3.      SCHEDULE V56TOVAC WITH PRIORITY 30.
011863,001114: 
011864,001115:                                                                                                  #        V56TOVAC
011865,001116:                                                                                                  #        1.      EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
011866,001117:                                                                                                  #        2.      ZERO GROUP 2 TO HALT P20.
011867,001118:                                                                                                  #        3.      TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
011868,001119: 
011869,001120: 43,3045           33065        TRMTRACK           CA       BITS9+7                               #  IS REND OR P25 FLAG ON
011870,001121: 43,3046           70074                           MASK     FLAGWRD0                              
011871,001122: 43,3047           00006                           EXTEND                                         
011872,001123: 43,3050           12117                           BZF      GOPIN                                 #  NO
011873,001124: 
011874,001125: 43,3051           05516                           TC       DOWNFLAG                              
011875,001126: 43,3052           00010                           ADRES    RNDVZFLG                              
011876,001127: 
011877,001128: 43,3053           05516                           TC       DOWNFLAG                              
011878,001129: 43,3054           00006                           ADRES    P25FLAG                               
011879,001130: 
011880,001131: 43,3055           05516                           TC       DOWNFLAG                              #  ENSURE SEARCH FLAG IS OFF
011881,001132: 43,3056           00037                           ADRES    SRCHOPTN                              
011882,001133: 
011883,001134: 43,3057           34747                           CA       TRACKBIT                              #  IS TRACK FLAG ON?
011884,001135: 43,3060           70075                           MASK     FLAGWRD1                              
011885,001136: 43,3061           00006                           EXTEND                                         
011886,001137: 43,3062           12117                           BZF      GOPIN                                 
011887,001138: 
011888,001139: 43,3063           04635                           TC       POSTJUMP                              
011889,001140: 43,3064           64054                           CADR     TRMTRAK1                              
011890,001141: 
011891,001142: 43,3065           00500        BITS9+7            OCT      500                                   
011892,001143: 
011893,001144: 42,2000                                           SETLOC   SBAND                                 #  BANK 42
011894,001145: 42,2000                                           BANK                                           
011895,001146: 
011896,001147: 42,2054                                           COUNT*   $$/EXTVB                              
011897,001148: 
011898,001149: 42,2054           05516        TRMTRAK1           TC       DOWNFLAG                              
011899,001150: 42,2055           00027                           ADRES    UPDATFLG                              #  UPDATE FLAG DOWN
011900,001151: 42,2056           05516                           TC       DOWNFLAG                              
011901,001152: 42,2057           00031                           ADRES    TRACKFLG                              #  TRACK FLAG DOWN
011902,001153: 42,2060           05516                           TC       DOWNFLAG                              
011903,001154: 42,2061           00007                           ADRES    IMUSE                                 
011904,001155: 
011905,001156: 42,2062           06042                           TC       INTPRET                               
011906,001157: 42,2063           77624                           CALL                                           
011907,001158: 42,2064           27410                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION

Page 290

011909,001160: 42,2065           77776                           EXIT                                           
011910,001161: 
011911,001162: 42,2066           05353                           TC       PHASCHNG                              
011912,001163: 42,2067           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
011913,001164: 
011914,001165: 42,2070           00004                           INHINT                                         
011915,001166: 42,2071           04674                           TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
011916,001167: 42,2072           40166                           CADR     STOPRATE                              #  MANEUVER
011917,001168: 
011918,001169: 42,2073           04674                           TC       IBNKCALL                              
011919,001170: 42,2074           40115                           CADR     RESTORDB                              
011920,001171: 
011921,001172: 42,2075           06011                           TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES.
011922,001173: 
011923,001174: 42,2076           44736                           CS       BIT14                                 #  DISABLE LOCKON
011924,001175: 42,2077           00006                           EXTEND                                         
011925,001176: 42,2100           03012                           WAND     CHAN12                                
011926,001177: 42,2101           04635                           TC       POSTJUMP                              
011927,001178: 42,2102           12766                           CADR     GOPROG2                               #  CAUSE RESTART.
011928,001179: 
011929,001180:                                                                                                  #  DNEDUMP       VERB 74         DESCRIPTION
011930,001181:                                                                                                  #        INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011931,001182: 
011932,001183:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011933,001184:                                                                                                  #        2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011934,001185:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY.
011935,001186: 
011936,001187: 43,2000                                           SETLOC   EXTVERBS                              
011937,001188: 43,2000                                           BANK                                           
011938,001189: 
011939,001190: 43,3066                                           COUNT*   $$/EXTVB                              
011940,001191: 
011941,001192: 43,3066     0400                                  EBANK=   400                                   
011942,001193: 43,3066           33071        DNEDUMP            CAF      LDNDUMPI                              
011943,001194: 43,3067           54335                           TS       DNTMGOTO                              
011944,001195: 43,3070           02117                           TC       GOPIN                                 
011945,001196: 
011946,001197: 43,3071  43,3066               V74                EQUALS   DNEDUMP                               
011947,001198: 43,3071           03721        LDNDUMPI           REMADR   DNDUMPI                               
011948,001199: 
011949,001200:                                                                                                  #  LEMVEC        VERB 80         DESCRIPTION
011950,001201:                                                                                                  #        UPDATE LEM STATE VECTOR
011951,001202:                                                                                                  #                RESET VEHUPFLG TO 0
011952,001203: 
011953,001204: 43,3072           05516        LEMVEC             TC       DOWNFLAG                              
011954,001205: 43,3073           00026                           ADRES    VEHUPFLG                              #  VB 80 - VEHUPFLG DOWN INDICATES LEM
011955,001206: 
011956,001207: 43,3074           03077                           TC       NOUPDOWN                              
011957,001208: 
011958,001209:                                                                                                  #  CSMVEC        VERB 81         DESCRIPTION
011959,001210:                                                                                                  #        UPDATE CSM STATE VECTOR

Page 291

011961,001212:                                                                                                  #                SET VEHUPFLG TO 1
011962,001213: 
011963,001214: 43,3075           05504        CSMVEC             TC       UPFLAG                                
011964,001215: 43,3076           00026                           ADRES    VEHUPFLG                              #  VB 81 - VEHUPFLG UP INDICATES CSM
011965,001216: 
011966,001217: 43,3077           05516        NOUPDOWN           TC       DOWNFLAG                              
011967,001218: 43,3100           00030                           ADRES    NOUPFLAG                              
011968,001219: 
011969,001220: 43,3101           12117                           TCF      GOPIN                                 
011970,001221: 
011971,001222:                                                                                                  #  UPDATOFF      VERB 95         DESCRIPTION
011972,001223:                                                                                                  #        INHIBIT STATE VECTOR UPDATES BY INCORP
011973,001224:                                                                                                  #                SET NOUPFLAG TO 1
011974,001225: 
011975,001226: 43,3102           05504        UPDATOFF           TC       UPFLAG                                #  VB 95 SET NOUPFLAG
011976,001227: 43,3103           00030                           ADRES    NOUPFLAG                              
011977,001228: 
011978,001229: 43,3104           02117                           TC       GOPIN                                 

Page 292

011980,001231:                                                                                                  #  SYSTEST       VERB 92         DESCRIPTION
011981,001232:                                                                                                  #        OPERATE IMU PERFORMANCE TEST.
011982,001233: 
011983,001234:                                                                                                  #        1.      REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
011984,001235:                                                                                                  #        2.      SET EXT VERB BUSY FLAG.
011985,001236: 
011986,001237: 43,3105  E5,1417                                  EBANK=   QPLACE                                
011987,001238: 
011988,001239: 43,3105           02121        SYSTEST            TC       CHKPOOH                               #  DEMAND POO
011989,001240: 
011990,001241: 43,3106           02076                           TC       TESTXACT                              
011991,001242: 
011992,001243: 43,3107           37713                           CAF      PRIO22                                
011993,001244: 43,3110           05105                           TC       FINDVAC                               
011994,001245: 43,3111  E5,1417                                  EBANK=   QPLACE                                
011995,001246: 43,3111  37,2000                                  SBANK=   IMUSUPER                              
011996,001247: 43,3111           02002 76065                     2CADR    REDO                                  
011997,001248: 
011998,001249: 43,3113           05155                           TC       ENDOFJOB                              
011999,001250: 
012000,001251:                                                                                                  #  VERB 93       CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
012001,001252: 
012002,001253: 43,3114           00004        WMATRXNG           INHINT                                         
012003,001254: 43,3115           44753                           CS       RENDWBIT                              
012004,001255: 43,3116           70101                           MASK     FLAGWRD5                              
012005,001256: 43,3117           54101                           TS       FLAGWRD5                              
012006,001257: 
012007,001258: 43,3120           02117                           TC       GOPIN                                 
012008,001259: 
012009,001260: 43,3121  43,3121               GOSHOSUM           EQUALS   SHOWSUM                               
012010,001261: 
012011,001262: 43,3121           02121        SHOWSUM            TC       CHKPOOH                               #  *
012012,001263: 43,3122           02076                           TC       TESTXACT                              #  *
012013,001264: 43,3123           35021                           CAF      PRIO7                                 #  ALLOW OTHER CHARINS.
012014,001265: 43,3124           05146                           TC       PRIOCHNG                              
012015,001266: 43,3125           34753                           CAF      S+1                                   #  *
012016,001267: 43,3126           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
012017,001268: 43,3127           34755                           CAF      S+ZERO                                #  *
012018,001269: 43,3130           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
012019,001270: 43,3131           33272                           CA       SELFADRS                              #  *
012020,001271: 43,3132           55361                           TS       SELFRET                               #  *
012021,001272: 43,3133           03547                           TC       STSHOSUM                              #  * ENTER ROPECHK
012022,001273: 
012023,001274: 43,3134           23372        SDISPLAY           LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
012024,001275: 43,3135           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
012025,001276: 43,3136           33271        NOKILL             CA       ADRS1                                 #  *
012026,001277: 43,3137           54156                           TS       MPAC       +2                         #  *
012027,001278: 43,3140           33151                           CA       VNCON                                 #  * 0501
012028,001279: 43,3141           04616                           TC       BANKCALL                              #  *
012029,001280: 43,3142           20334                           CADR     GOXDSPF                               #  *
012030,001281: 43,3143           03146                           TC       +3                                    #  *
012031,001282: 43,3144           03660                           TC       NXTBNK                                #  *

Page 293

012033,001284: 43,3145           03136                           TC       NOKILL                                #  *
012034,001285: 43,3146           33272                           CA       SELFADRS                              
012035,001286: 43,3147           55371                           TS       SKEEP1                                
012036,001287: 
012037,001288: 43,3150           05472                           TC       ENDEXT                                #  *
012038,001289: 43,3151           01201        VNCON              VN       501                                   #  *
012039,001290: 43,3152           31376        ENDSUMS            CA       SKEEP6                                #  *
012040,001291: 43,3153           00006                           EXTEND                                         #  *
012041,001292: 43,3154           13363                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
012042,001293: 43,3155           03547                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
012043,001294: 

Page 294

012045,001296:                                                                                                  #  DAPDISP       VERB 48         DESCRIPTION
012046,001297:                                                                                                  #        LOAD AUTO PILOT DATA
012047,001298: 
012048,001299:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
012049,001300:                                                                                                  #        2.      EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
012050,001301:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY SYSTEM.
012051,001302: 
012052,001303:                                                                                                  #  KEY
012053,001304:                                                                                                  #  THE FOLLOWING IS A KEY TO THE 5 DIGITS OF THE DAP DATA CODE (N46)
012054,001305: 
012055,001306:                                                                                                  #  DIGIT A - VEHICLE CONFIGURATION
012056,001307:                                                                                                  #        1 - LM ALONE, ASCENT
012057,001308:                                                                                                  #        2 - LM ALONE, DESCENT
012058,001309:                                                                                                  #        3 - CSM AND LM DOCKED
012059,001310: 
012060,001311:                                                                                                  #  DIGIT B - ACCELERATION CODE
012061,001312:                                                                                                  #        0 - 2 JET TRANSLATION, RCS SYSTEM A PREFERRED
012062,001313:                                                                                                  #        1 - 2 JET TRANSLATION, RCS SYSTEM B PREFERRED
012063,001314:                                                                                                  #        2 - 4 JET TRANSLATION, RCS SYSTEM A PREFERRED (NOT MEANINGFUL)
012064,001315:                                                                                                  #        3 - 4 JET TRANSLATION, RCS SYSTEM B PREFERRED (NOT MEANINGFUL)
012065,001316: 
012066,001317:                                                                                                  #  DIGIT C - ACA SCALING
012067,001318:                                                                                                  #        0 - FINE
012068,001319:                                                                                                  #        1 - NORMAL
012069,001320: 
012070,001321:                                                                                                  #  DIGIT D - DEADBAND
012071,001322:                                                                                                  #        0 - 0.3 DEG
012072,001323:                                                                                                  #        1 - 1.0 DEG
012073,001324:                                                                                                  #        2 - 5.0 DEG
012074,001325:                                                                                                  #       (3 - 5.0 DEG BY DEFAULT)
012075,001326: 
012076,001327:                                                                                                  #  DIGIT E - MANEUVER RATE
012077,001328:                                                                                                  #        0 - 0.2 DEG/SEC
012078,001329:                                                                                                  #        1 - 0.5 DEG/SEC
012079,001330:                                                                                                  #        2 - 2.0 DEG/SEC
012080,001331:                                                                                                  #        3 - 10.0 DEG/SEC
012081,001332: 
012082,001333: 43,3156           02076        DAPDISP            TC       TESTXACT                              
012083,001334: 43,3157           35021                           CAF      PRIO7                                 #  R03
012084,001335: 43,3160           05146                           TC       PRIOCHNG                              
012085,001336: 43,3161           04635                           TC       POSTJUMP                              
012086,001337: 43,3162           40004                           CADR     DAPDATA1                              
012087,001338: 
012088,001339: 34,2000                                           BANK     34                                    
012089,001340: 20,2000                                           SETLOC   LOADDAP                               
012090,001341: 20,2000                                           BANK                                           
012091,001342: 
012092,001343: 20,2004                                           COUNT*   $$/R03                                
012093,001344: 
012094,001345: 20,2004  30,2000                                  SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S.
012095,001346: 
012096,001347: 20,2004           32114        DAPDATA1           CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOLS BITS.
012097,001348: 20,2005           70111                           MASK     DAPBOOLS                              #  LM

Page 295

012099,001350: 20,2006           55340                           TS       DAPDATR1                              #  LM
012100,001351: 20,2007           40106                           CS       FLGWRD10                              #  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
012101,001352: 20,2010           74737                           MASK     APSFLBIT                              
012102,001353: 20,2011           10000                           CCS      A                                     
012103,001354: 20,2012           34736                           CAF      BIT14                                 
012104,001355: 20,2013           27340                           ADS      DAPDATR1                              
012105,001356: 20,2014           31340        CHKDATA1           CAE      DAPDATR1                              #  IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
012106,001357: 20,2015           74355                           MASK     BIT13-14                              #        A ONE INTO BIT 13.
012107,001358: 20,2016           00006                           EXTEND                                         
012108,001359: 20,2017           12034                           BZF      FORCEONE                              
012109,001360: 20,2020           31340                           CAE      DAPDATR1                              #  ENSURE THAT NO ILLEGAL BITS SET BY CREW.
012110,001361: 20,2021           72113        MSKDATR1           MASK     DSPLYMSK                              
012111,001362: 20,2022           55340                           TS       DAPDATR1                              
012112,001363: 20,2023           32112                           CAF      V01N46                                #  LM
012113,001364: 20,2024           04616                           TC       BANKCALL                              
012114,001365: 20,2025           20353                           CADR     GOXDSPFR                              
012115,001366: 20,2026           15472                           TCF      ENDEXT                                #  V34E TERMINATE
012116,001367: 20,2027           12037                           TCF      DPDAT1                                #  V33E PROCEED
012117,001368: 20,2030           12014                           TCF      CHKDATA1                              #  E     NEW DATA        CHECK AND REDISPLAY
012118,001369: 20,2031           36245                           CAF      REVCNT                                #  BITS 2 & 3:  BLANKS R2 & R3.
012119,001370: 20,2032           05464                           TC       BLANKET                               
012120,001371: 20,2033           15155                           TCF      ENDOFJOB                              
012121,001372: 20,2034           34737        FORCEONE           CAF      BIT13                                 
012122,001373: 20,2035           27340                           ADS      DAPDATR1                              
012123,001374: 20,2036           12021                           TCF      MSKDATR1                              
012124,001375: 
012125,001376: 20,2037           00004        DPDAT1             INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
012126,001377: 20,2040           44737                           CS       APSFLBIT                              #        ON BASIS OF DISPLAYED DAPDATR1.
012127,001378: 20,2041           70106                           MASK     FLGWRD10                              
012128,001379: 20,2042           54001                           TS       L                                     #  SET APSFLAG TO BE COMPLEMENT OF BIT 14.
012129,001380: 20,2043           41340                           CS       DAPDATR1                              
012130,001381: 20,2044           74736                           MASK     BIT14                                 
012131,001382: 20,2045           10000                           CCS      A                                     
012132,001383: 20,2046           34737                           CAF      APSFLBIT                              
012133,001384: 20,2047           60001                           AD       L                                     
012134,001385: 20,2050           54106                           TS       FLGWRD10                              
012135,001386: 20,2051           41340                           CS       DAPDATR1                              #  SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
012136,001387: 20,2052           74355                           MASK     BIT13-14                              #        MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
012137,001388: 20,2053           10000                           CCS      A                                     #        13 AND 14 ARE SET.
012138,001389: 20,2054           44737                           CS       CSMDOCKD                              
012139,001390: 20,2055           62114                           AD       BOOLSMSK                              
012140,001391: 20,2056           71340                           MASK     DAPDATR1                              
012141,001392: 20,2057           54001                           TS       L                                     
012142,001393: 20,2060           42114                           CS       BOOLSMSK                              
012143,001394: 20,2061           70111                           MASK     DAPBOOLS                              
012144,001395: 20,2062           60001                           AD       L                                     
012145,001396: 20,2063           54111                           TS       DAPBOOLS                              
012146,001397: 20,2064           74737                           MASK     CSMDOCKD                              #  LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
012147,001398: 20,2065           10000                           CCS      A                                     #        MASS IS USUALLY ALREADY OKAY, SO DO
012148,001399: 20,2066           31327                           CAE      CSMMASS                               #        NOT TOUCH ITS LOW-ORDER PART.

Page 296

012150,001401: 20,2067           61326                           AD       LEMMASS                               
012151,001402: 20,2070           55243                           TS       MASS                                  
012152,001403: 20,2071           30111                           CAE      DAPBOOLS                              
012153,001404: 20,2072           74741                           MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
012154,001405: 20,2073           00006                           EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
012155,001406: 20,2074           12101                           BZF      +5                                    
012156,001407: 20,2075           44735                           CS       BIT15                                 
012157,001408: 20,2076           70075                           MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
012158,001409: 20,2077           54075                           TS       FLAGWRD1                              
012159,001410: 20,2100           12104                           TCF      +4                                    
012160,001411: 20,2101           40075                           CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
012161,001412: 20,2102           74735                           MASK     BIT15                                 
012162,001413: 20,2103           26075                           ADS      FLAGWRD1                              
012163,001414: 20,2104           30111                           CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
012164,001415: 20,2105           76250                           MASK     THREE                                 #  MANEUVER RATE
012165,001416: 20,2106           60000                           DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
012166,001417: 20,2107           55322                           TS       RATEINDX                              #  ARE DP
012167,001418: 20,2110           04635                           TC       POSTJUMP                              
012168,001419: 20,2111           02211                           CADR     STIKLOAD                              
012169,001420: 
012170,001421: 20,2112           00256        V01N46             VN       0146                                  
012171,001422: 20,2113           33133        DSPLYMSK           OCT      33133                                 
012172,001423: 20,2114           13133        BOOLSMSK           OCT      13133                                 
012173,001424: 
012174,001425: 01,2211                                           BANK     01                                    
012175,001426: 01,2000                                           SETLOC   LOADDAP1                              
012176,001427: 01,2000                                           BANK                                           
012177,001428: 
012178,001429: 01,2211                                           COUNT*   $$/R03                                
012179,001430: 
012180,001431: 01,2211           35015        STIKLOAD           CAF      EBANK6                                
012181,001432: 01,2212           54003                           TS       EBANK                                 
012182,001433: 01,2213  E6,1444                                  EBANK=   STIKSENS                              
012183,001434: 01,2213           34745                           CA       RHCSCALE                              #  SET STICK SENSITIVITY TO CORRESPOND TO A
012184,001435: 01,2214           70111                           MASK     DAPBOOLS                              #  MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
012185,001436: 01,2215           10000                           CCS      A                                     #  20 D/S (NORMAL) OR 4 D/S (FINE), SCALED
012186,001437: 01,2216           32340                           CA       NORMAL                                #  AT 45 D/S.
012187,001438: 01,2217           62341                           AD       FINE                                  
012188,001439: 01,2220           55444                           TS       STIKSENS                              
012189,001440: 01,2221           32343                           CA       -0.6D/S                               
012190,001441: 01,2222           55476                           TS       -RATEDB                               #  LM-ONLY BREAKOUT LEVEL IS .6 D/S.
012191,001442: 01,2223           34737                           CA       CSMDOCKD                              #  IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
012192,001443: 01,2224           70111                           MASK     DAPBOOLS                              #  BY 10.  NORMAL SCALING IS THEN 2 D/S AND
012193,001444: 01,2225           00006                           EXTEND                                         #  FINE SCALING IS 0.4 D/S
012194,001445: 01,2226           12235                           BZF      +7                                    #  BRANCH IF CSM IS NOT DOCKED.
012195,001446: 01,2227           31444                           CA       STIKSENS                              
012196,001447: 01,2230           00006                           EXTEND                                         
012197,001448: 01,2231           72342                           MP       1/10                                  
012198,001449: 01,2232           55444                           TS       STIKSENS                              
012199,001450: 01,2233           32344                           CA       -0.3D/S                               #  CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
012200,001451: 01,2234           55476                           TS       -RATEDB                               

Page 297

012202,001453: 01,2235           00003                           RELINT                                         #  PROCEED TO NOUN 47, MASS LOAD,
012203,001454: 
012204,001455: 01,2236           32336        DAPDATA2           CAF      V0647                                 
012205,001456: 01,2237           04616                           TC       BANKCALL                              
012206,001457: 01,2240           20353                           CADR     GOXDSPFR                              
012207,001458: 01,2241           12247                           TCF      ENDR03                                #  V34E  TERMINATE. FIRST SET DB, DO 1/ACCS
012208,001459: 01,2242           12253                           TCF      DAPDAT2                               #  V33E  PROCEED
012209,001460: 01,2243           12236                           TCF      DAPDATA2                              #        LOAD NEW DATA AND RECYCLE
012210,001461: 01,2244           34751                           CAF      BIT3                                  #  BLANKS R3
012211,001462: 01,2245           05464                           TC       BLANKET                               #                LM
012212,001463: 01,2246           15155                           TCF      ENDOFJOB                              
012213,001464: 01,2247           00004        ENDR03             INHINT                                         
012214,001465: 01,2250           04674                           TC       IBNKCALL                              
012215,001466: 01,2251           40115                           CADR     RESTORDB                              
012216,001467: 01,2252           15472                           TCF      ENDEXT                                #  DOES RELINT
012217,001468: 
012218,001469: 01,2253           40106        DAPDAT2            CS       FLGWRD10                              #  DETERMINE STAGE FROM APSFLAG
012219,001470: 01,2254           74737                           MASK     APSFLBIT                              
012220,001471: 01,2255           10000                           CCS      A                                     
012221,001472: 01,2256           32000                           CA       MINLMD                                
012222,001473: 01,2257           62001                           AD       MINMINLM                              
012223,001474: 01,2260           61326                           AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
012224,001475: 01,2261           00006                           EXTEND                                         
012225,001476: 01,2262           62236                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012226,001477: 01,2263           30111                           CAE      DAPBOOLS                              
012227,001478: 01,2264           74737                           MASK     CSMDOCKD                              
012228,001479: 01,2265           00006                           EXTEND                                         
012229,001480: 01,2266           12274                           BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
012230,001481: 01,2267           44741                           CS       MINCSM                                #  TEST CSM MASS
012231,001482: 01,2270           61327                           AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM
012232,001483: 01,2271           00006                           EXTEND                                         
012233,001484: 01,2272           62236                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012234,001485: 01,2273           31327                           CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
012235,001486: 01,2274           61326        LEMALONE           AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
012236,001487: 01,2275           22007                           ZL                                             
012237,001488: 01,2276           53244                           DXCH     MASS                                  
012238,001489: 01,2277           00004                           INHINT                                         
012239,001490: 01,2300           04674                           TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
012240,001491: 01,2301           40115                           CADR     RESTORDB                              #        INERTIA.
012241,001492: 01,2302           00003                           RELINT                                         #  PROCEED TO NOUN 48 (OR END).
012242,001493: 
012243,001494: 01,2303           40106        DAPDATA3           CS       FLGWRD10                              
012244,001495: 01,2304           74737                           MASK     APSFLBIT                              
012245,001496: 01,2305           00006                           EXTEND                                         #  END ROUTINE IF LEM HAS STAGED,
012246,001497: 01,2306           15472                           BZF      ENDEXT                                
012247,001498: 01,2307           32337                           CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
012248,001499: 01,2310           04616                           TC       BANKCALL                              
012249,001500: 01,2311           20353                           CADR     GOXDSPFR                              
012250,001501: 01,2312           05472                           TC       ENDEXT                                
012251,001502: 01,2313           12320                           TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
012252,001503: 

Page 298

012254,001505: 01,2314           12307                           TCF      -5                                    #  LOAD NEW DATA AND RECYCLE
012255,001506: 01,2315           34751                           CAF      BIT3                                  
012256,001507: 01,2316           05464                           TC       BLANKET                               #  BLANK R3
012257,001508: 01,2317           15155                           TCF      ENDOFJOB                              
012258,001509: 01,2320           34753        DPDAT3             CAF      BIT1                                  
012259,001510: 01,2321           05203                           TC       WAITLIST                              
012260,001511: 01,2322  E6,1401                                  EBANK=   ROLLTIME                              
012261,001512: 01,2322           03217 56066                     2CADR    TRIMGIMB                              
012262,001513: 
012263,001514: 01,2324           15155                           TCF      ENDOFJOB                              #  DOES A RELINT
012264,001515: 01,2325           32337        TRIMDONE           CAF      V50N48                                
012265,001516: 01,2326           04616                           TC       BANKCALL                              #  TRIM IS FINISHED; PLEASE TERMINATE R03
012266,001517: 01,2327           20361                           CADR     GOMARK3R   -1                         
012267,001518: 01,2330           05472                           TC       ENDEXT                                #  V34E TERMINATE
012268,001519: 01,2331           05472                           TC       ENDEXT                                
012269,001520: 01,2332           05472                           TC       ENDEXT                                
012270,001521: 01,2333           36007                           CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
012271,001522: 01,2334           05464                           TC       BLANKET                               
012272,001523: 01,2335           15155                           TCF      ENDOFJOB                              
012273,001524: 
012274,001525: 01,2336           01457        V0647              VN       0647                                  
012275,001526: 01,2337           01460        V06N48             VN       0648                                  
012276,001527: 
012277,001528: 01,2340  01,2337               V50N48             =        V06N48                                
012278,001529: 
012279,001530: 01,2340           25101        NORMAL             DEC      .660214                               
012280,001531:                                                                                                  #  NORMAL SCALING IS 20 D/S
012281,001532: 01,2341           05220        FINE               DEC      .165054                               #  FINE STICK SCALING (4 D/S).
012282,001533: 01,2342           03146        1/10               DEC      .1                                    #  FACTOR FOR CSM-DOCKED SCALING
012283,001534: 01,2343           77445        -0.6D/S            DEC      -218       B-14                       
012284,001535: 01,2344           77622        -0.3D/S            DEC      -109       B-14                       
012285,001536: 

Page 299

012287,001538:                                                                                                  #  VERB 66.      VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
012288,001539:                                                                                                  #                OTHER VEHICLE STATE VECTOR.
012289,001540: 
012290,001541:                                                                                                  #  USE SUBROUTINE GENTRAN.
012291,001542: 
012292,001543: 07,2666                                           BANK     7                                     
012293,001544: 43,2000                                           SETLOC   EXTVERBS                              
012294,001545: 43,2000                                           BANK                                           
012295,001546: 
012296,001547: 43,3163                                           COUNT*   $$/EXTVB                              
012297,001548: 
012298,001549: 43,3163  E3,1626                                  EBANK=   RRECTHIS                              
012299,001550: 
012300,001551: 43,3163           40104        ATTACHED           CS       FLAGWRD8                              
012301,001552: 43,3164           74744                           MASK     SURFFBIT                              
012302,001553: 43,3165           00006                           EXTEND                                         
012303,001554: 43,3166           12116                           BZF      ALM/END                               #  TURN ON OE AND EXIT IF SURFFLAG SET.
012304,001555: 43,3167           34737                           CAF      PRIO10                                
012305,001556: 43,3170           05105                           TC       FINDVAC                               
012306,001557: 43,3171  E3,1626                                  EBANK=   RRECTHIS                              
012307,001558: 
012308,001559: 43,3171           03174 66103                     2CADR    ATTACHIT                              
012309,001560: 
012310,001561: 43,3173           05155                           TC       ENDOFJOB                              
012311,001562: 
012312,001563: 43,3174           06042        ATTACHIT           TC       INTPRET                               
012313,001564: 43,3175           77624                           CALL                                           
012314,001565: 43,3176           27410                                    INTSTALL                              
012315,001566: 43,3177           43014                           SET      BON                                   
012316,001567: 43,3200           04063                                    MOONOTH                               
012317,001568: 43,3201           04304                                    MOONTHIS                              
012318,001569: 43,3202           67205                                    +3                                    
012319,001570: 43,3203           77614                           CLEAR                                          
012320,001571: 43,3204           04263                                    MOONOTH                               
012321,001572: 43,3205           77776                           EXIT                                           
012322,001573: 43,3206           33231                           CAF      OCT51                                 
012323,001574: 43,3207           05544                           TC       GENTRAN                               
012324,001575: 43,3210           01626                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
012325,001576: 43,3211           01554                           ADRES    RRECTOTH                              
012326,001577: 
012327,001578: 43,3212           00003                           RELINT                                         
012328,001579: 43,3213           06042                           TC       INTPRET                               
012329,001580: 43,3214           77624                           CALL                                           #  UPDATE R-OTHER, V-OTHER
012330,001581: 43,3215           26757                                    PTOALEM                               
012331,001582: 43,3216           45154                           LXA,2    CALL                                  
012332,001583: 43,3217           02030                                    PBODY                                 
012333,001584: 43,3220           26114                                    SVDWN1                                
012334,001585: 43,3221           77776                           EXIT                                           
012335,001586: 
012336,001587: 43,3222           33232                           CAF      TCPINAD                               

Page 300

012338,001589: 43,3223           50120                           INDEX    FIXLOC                                
012339,001590: 43,3224           54052                           TS       QPRET                                 
012340,001591: 43,3225           04635                           TC       POSTJUMP                              
012341,001592: 43,3226           27421                           CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
012342,001593: 
012343,001594: 43,3227           77634        TCPIN              RTB                                            
012344,001595: 43,3230           21051                                    PINBRNCH                              
012345,001596: 
012346,001597: 43,3231           00051        OCT51              OCT      51                                    
012347,001598: 43,3232           67227        TCPINAD            CADR     TCPIN                                 
012348,001599: 
012349,001600:                                                                                                  #  VERB 96       SET QUITFLAG TO STOP INTEGRATION.
012350,001601: 
012351,001602:                                                                                                  #        GO TO V37 WITH ZERO TO CAUSE POO.
012352,001603:                                                                                                  #                STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
012353,001604:                                                                                                  #                        THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
012354,001605: 
012355,001606: 43,3233           05504        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012356,001607: 43,3234           00221                           ADRES    QUITFLAG                              #        AT NEXT TIMESTEP
012357,001608: 
012358,001609: 43,3235           34755                           CAF      ZERO                                  
012359,001610: 43,3236           04635                           TC       POSTJUMP                              
012360,001611: 43,3237           10040                           CADR     V37                                   #  GO TO POO
012361,001612: 
012362,001613:                                                                                                  #  VERB 67:      DISPLAY OF W MATRIX
012363,001614: 
012364,001615: 43,3240           02076        V67                TC       TESTXACT                              
012365,001616: 43,3241           35017                           CAF      PRIO5                                 
012366,001617: 43,3242           05105                           TC       FINDVAC                               
012367,001618: 43,3243  E4,1600                                  EBANK=   WWPOS                                 
012368,001619: 43,3243           02007 62064                     2CADR    V67CALL                               
012369,001620: 
012370,001621: 43,3245           05155                           TC       ENDOFJOB                              
012371,001622: 
012372,001623:                                                                                                  #  VERB 65       DISABLE U,V JETS DURING DPS BURNS
012373,001624: 
012374,001625: 43,3246           05504        SNUFFOUT           TC       UPFLAG                                
012375,001626: 43,3247           00115                           ADRES    SNUFFER                               
012376,001627: 43,3250           02117                           TC       GOPIN                                 
012377,001628: 
012378,001629:                                                                                                  #  VERB 75       ENABLE U,V JETS DURING DPS BURNS
012379,001630: 
012380,001631: 43,3251           05516        OUTSNUFF           TC       DOWNFLAG                              
012381,001632: 43,3252           00115                           ADRES    SNUFFER                               
012382,001633: 43,3253           02117                           TC       GOPIN                                 
012383,001634: 
012384,001635:                                                                                                  #  VERB 85       DISPLAY RR LOS AZIMUTH AND ELEVATION.
012385,001636: 
012386,001637:                                                                                                  #  AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE,
012387,001638:                                                                                                  #  360-270 DEG IN THE -Y HEMISPHERE.

Page 301

012389,001640:                                                                                                  #  
012390,001641:                                                                                                  #  ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y.
012391,001642: 
012392,001643: 43,3254  E4,1600                                  EBANK=   RR-AZ                                 
012393,001644: 43,3254           02076        VERB85             TC       TESTXACT                              
012394,001645: 43,3255           04635                           TC       POSTJUMP                              
012395,001646: 43,3256           60000                           CADR     DSPRRLOS                              
012396,001647: 
012397,001648: 40,2000                                           SETLOC   PINBALL1                              
012398,001649: 40,2000                                           BANK                                           
012399,001650: 
012400,001651: 40,2000                                           COUNT*   $$/EXTVB                              
012401,001652: 
012402,001653: 40,2000           35017        DSPRRLOS           CAF      PRIO5                                 
012403,001654: 40,2001           05105                           TC       FINDVAC                               
012404,001655: 40,2002  E4,1600                                  EBANK=   RR-AZ                                 
012405,001656: 40,2002           02017 60104                     2CADR    RRLOSDSP                              
012406,001657: 
012407,001658: 40,2004           34740                           CAF      PRIO4                                 
012408,001659: 40,2005           05146                           TC       PRIOCHNG                              
012409,001660: 40,2006           32076                           CAF      V16N56                                
012410,001661: 40,2007           04616                           TC       BANKCALL                              
012411,001662: 40,2010           20353                           CADR     GOMARKFR                              
012412,001663: 40,2011           05563                           TC       B5OFF                                 
012413,001664: 40,2012           05563                           TC       B5OFF                                 
012414,001665: 40,2013           05563                           TC       B5OFF                                 
012415,001666: 
012416,001667: 40,2014           34751                           CAF      BIT3                                  
012417,001668: 40,2015           05464                           TC       BLANKET                               
012418,001669: 40,2016           05155                           TC       ENDOFJOB                              
012419,001670: 
012420,001671: 40,2017           00006        RRLOSDSP           EXTEND                                         
012421,001672: 40,2020           30036                           DCA      CDUT                                  
012422,001673: 40,2021           52155                           DXCH     MPAC                                  
012423,001674: 40,2022           06042                           TC       INTPRET                               
012424,001675: 40,2023           77624                           CALL                                           
012425,001676: 40,2024           46065                                    RRNBMPAC                              #  GET RR LOS IN BODY AXIS.
012426,001677: 40,2025           00001                           STORE    0D                                    #  UNIT LOS
012427,001678: 40,2026           14007                           STODL    6D                                    
012428,001679: 40,2027           06524                                    HI6ZEROS                              
012429,001680: 40,2030           24011                           STOVL    8D                                    
012430,001681: 40,2031           00007                                    6D                                    
012431,001682: 40,2032           77656                           UNIT                                           
012432,001683: 40,2033           00007                           STORE    6D                                    #  UNIT OF LOS PROJ IN X-Z PLANE
012433,001684: 40,2034           77641                           DOT                                            
012434,001685: 40,2035           06516                                    UNITZ                                 
012435,001686: 40,2036           24021                           STOVL    COSTH                                 #  16D
012436,001687: 40,2037           06522                                    UNITX                                 
012437,001688: 40,2040           77641                           DOT                                            
012438,001689: 40,2041           00007                                    6D                                    
012439,001690: 40,2042           34023                           STCALL   SINTH                                 #  18D

Page 302

012441,001692: 40,2043           47322                                    ARCTRIG                               
012442,001693: 40,2044           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0-360 DEG.
012443,001694: 40,2045           60047                                    +2                                    
012444,001695: 40,2046           06532                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
012445,001696: 40,2047           26203                           STOVL    RR-ELEV                               
012446,001697: 40,2050           00001                                    0D                                    
012447,001698: 40,2051           77641                           DOT                                            
012448,001699: 40,2052           06520                                    UNITY                                 
012449,001700: 40,2053           24023                           STOVL    SINTH                                 
012450,001701: 40,2054           00001                                    0D                                    
012451,001702: 40,2055           77641                           DOT                                            
012452,001703: 40,2056           00007                                    6D                                    
012453,001704: 40,2057           34021                           STCALL   COSTH                                 
012454,001705: 40,2060           47322                                    ARCTRIG                               
012455,001706: 40,2061           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0-360 DEG.
012456,001707: 40,2062           60064                                    +2                                    
012457,001708: 40,2063           06532                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
012458,001709: 40,2064           02201                           STORE    RR-AZ                                 
012459,001710: 40,2065           77776                           EXIT                                           
012460,001711: 40,2066           34777                           CA       1SEC                                  
012461,001712: 40,2067           04616                           TC       BANKCALL                              
012462,001713: 40,2070           01736                           CADR     DELAYJOB                              
012463,001714: 
012464,001715: 40,2071           34747                           CA       BIT5                                  
012465,001716: 40,2072           71043                           MASK     EXTVBACT                              
012466,001717: 40,2073           10000                           CCS      A                                     
012467,001718: 40,2074           02017                           TC       RRLOSDSP                              
012468,001719: 40,2075           05472                           TC       ENDEXT                                
012469,001720: 
012470,001721: 40,2076           04070        V16N56             VN       1656                                  
012471,001722: 

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