Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

011029,000002:                                                                                                  ## Copyright:   Public domain.
011030,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
011031,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
011032,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the third release
011033,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
011034,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
011035,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
011036,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
011037,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
011038,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
011039,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
011040,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
011041,000014:                                                                                                  ##              the original YUL assembler.
011042,000015:                                                                                                  ##
011043,000016:                                                                                                  ## Assembler:   yaYUL
011044,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
011045,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
011046,000019:                                                                                                  ## Pages:       262-300
011047,000020:                                                                                                  ## Mod history: 2009-05-10 SN   (Sergio Navarro).  Started adapting
011048,000021:                                                                                                  ##                              from the Luminary131/ file of the same
011049,000022:                                                                                                  ##                              name, using Luminary099 page images.
011050,000023:                                                                                                  ##              2009-06-05 RSB  Corrected 5 typos.
011051,000024:                                                                                                  ##              2009-06-06 RSB  Eliminated an extraneous 3-instruction block
011052,000025:                                                                                                  ##                              and added a missing instruction.
011053,000026:                                                                                                  ##              2009-06-07 RSB  Added a couple of "SBANK=" for compatibility 
011054,000027:                                                                                                  ##                              with yaYUL. Corrected a typo.
011055,000028:                                                                                                  ##              2010-12-31 JL   Fixed page number comments.
011056,000029:                                                                                                  ##              2011-01-06 JL   Added missing comment characters.
011057,000030:                                                                                                  ##              2011-05-08 JL   Flagged SBANK= workarounds for future removal.
011058,000031:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
011059,000032:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
011060,000033:                                                                                                  ##                              and corrected the errors found.
011061,000034:                                                                                                  ##              2017-02-23 RSB  CHKP00H -> CHKPOOH
011062,000035:                                                                                                  ##              2017-03-07 RSB  Fixed comment-text errors identified while proofing
011063,000036:                                                                                                  ##                              Luminary 116.
011064,000037:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
011065,000038:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
011066,000039:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
011067,000040:                                                                                                  ##                              Luminary 99 vs Comanche 55.
011068,000041:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
011069,000042:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
011070,000043: 
011071,000044:                                                                                                  ## This source code has been transcribed or otherwise adapted from
011072,000045:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
011073,000046:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
011074,000047:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
011075,000048:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
011076,000049:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
011077,000050:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
011078,000051:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
011079,000052:                                                                                                  ## actually created.
011080,000053:                                                                                                  ##
011081,000054:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
011082,000055:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
011083,000056:                                                                                                  ## the listing from which it was transcribed. It has been verified to
011084,000057:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
011085,000058:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
011086,000059:                                                                                                  ##
011087,000060:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
011088,000061:                                                                                                  ##
011089,000062:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
011090,000063: 

Page 262

011092,000065: 07,2667                                           BANK     7                                     
011093,000066: 43,2000                                           SETLOC   EXTVERBS                              
011094,000067: 43,2000                                           BANK                                           
011095,000068: 
011096,000069: 43,2000  E5,1737                                  EBANK=   OGC                                   
011097,000070: 
011098,000071: 43,2000                                           COUNT*   $$/EXTVB                              
011099,000072: 
011100,000073:                                                                                                  #  FAN-OUT
011101,000074: 
011102,000075: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
011103,000076: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
011104,000077: 
011105,000078: 43,2002           02130        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
011106,000079: 43,2003           02171                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011107,000080:                                                                                                  #                                72 ONLY)
011108,000081: 43,2004           02330                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
011109,000082: 43,2005           02707                           TC       IMUATTCK                              #  VB43 LOAD IMU ATTITUDE ERROR METERS.
011110,000083: 43,2006           02302                           TC       RRDESEND                              #  VB44 TERMINATE CONTINUOUS DESIGNATE
011111,000084: 43,2007           02120                           TC       ALM/END                               #  VB45 SPARE
011112,000085: 43,2010           02120                           TC       ALM/END                               #  VB46 SPARE
011113,000086: 43,2011           02367                           TC       V47TXACT                              #  VB47 AGS INITIALIZATION
011114,000087: 43,2012           03135                           TC       DAPDISP                               #  VB48 LOAD A/P DATA
011115,000088: 43,2013           13015                           TCF      CREWMANU                              #  VB49 START AUTOMATIC ATTITUDE MANEUVER
011116,000089: 43,2014           02361                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
011117,000090: 43,2015           02120                           TC       ALM/END                               #  VB51 SPARE
011118,000091: 43,2016           02361                           TC       GOLOADLV                              #  VB52 PLEASE MARK X - RETICLE.
011119,000092: 43,2017           02361                           TC       GOLOADLV                              #  VB53 PLEASE MARK Y - RETICLE.
011120,000093: 43,2020           02361                           TC       GOLOADLV                              #  VB54 PLEASE MARK X OR Y - RETICLE
011121,000094: 43,2021           02401                           TC       ALINTIME                              #  VB55 ALIGN TIME
011122,000095: 43,2022           03024                           TC       TRMTRACK                              #  VB56 TERMINATE TRACKING - P20 + P25
011123,000096: 43,2023           02322                           TC       LRON                                  #  VB57 PERMIT LANDING RADAR UPDATES
011124,000097: 43,2024           02325                           TC       LROFF                                 #  VB58 INHIBIT LANDING RADAR UPDATES
011125,000098: 43,2025           02120                           TC       ALM/END                               #  VB59 SPARE
011126,000099: 43,2026           02151                           TC       LRPOS2K                               #  VB60 COMMAND LR TO POSITION 2.
011127,000100: 43,2027           02163                           TC       DAPATTER                              #  VB61 DISPLAY DAP ATTITUDE ERROR
011128,000101: 43,2030           02166                           TC       TOTATTER                              #  VB62 DISPLAY TOTAL ATTITUDE ERROR
011129,000102: 43,2031           02414                           TC       R04                                   #  VB63 SAMPLE RADAR ONCE PER SECOND
011130,000103: 43,2032           02700                           TC       VB64                                  #  VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
011131,000104: 43,2033           03221                           TC       SNUFFOUT                              #  VB65 DISABLE U,V JETS DURING DPS BURNS.
011132,000105: 43,2034           03142                           TC       ATTACHED                              #  VB66 ATTACHED   MOVE THIS TO OTHER STATE
011133,000106: 43,2035           03213                           TC       V67                                   #  VB67 W MATRIX MONITOR
011134,000107: 43,2036           02120                           TC       ALM/END                               #  VB68 SPARE
011135,000108: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 FORCE A HARDWARE RESTART
011136,000109: 43,2040           03724                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
011137,000110: 43,2041           03726                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
011138,000111: 43,2042           03730                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
011139,000112: 43,2043           03732                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
011140,000113: 43,2044           03045                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
011141,000114:                                                                                                  #        FOR ERASABLE DUMP.
011142,000115: 43,2045           03224                           TC       OUTSNUFF                              #  VB75 ENABLE U,V JETS DURING DPS BURNS.

Page 263

011144,000117: 43,2046           03001                           TC       MINIMP                                #  VB76 MINIMUM IMPULSE MODE
011145,000118: 43,2047           03006                           TC       NOMINIMP                              #  VB77 RATE COMMAND MODE
011146,000119: 43,2050           02404                           TC       R77                                   #  VB78 START LR SPURIOUS RETURN TEST
011147,000120: 43,2051           02617                           TC       R77END                                #  VB79 TERMINATE LR SPURIOUS RETURN TEST
011148,000121: 43,2052           03051                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
011149,000122: 43,2053           03054                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
011150,000123: 43,2054           02746                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
011151,000124: 43,2055           02756                           TC       V83PERF                               #  VB83 REQUEST REND PARAM DISPLAY (R31)
011152,000125: 43,2056           02120                           TC       ALM/END                               #  VB84 SPARE
011153,000126: 43,2057           03227                           TC       VERB85                                #  VB85 DISPLAY RR LOS AZ AND ELEV
011154,000127: 43,2060           02120                           TC       ALM/END                               #  VB86 SPARE
011155,000128: 43,2061           02120                           TC       ALM/END                               #  VB87 SPARE
011156,000129: 43,2062           02120                           TC       ALM/END                               #  VB88 SPARE
011157,000130: 43,2063           02764                           TC       V89PERF                               #  VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
011158,000131: 43,2064           02773                           TC       V90PERF                               #  VB90 OUT OF PLANE RENDEZVOUS DISPLAY
011159,000132: 43,2065           03100                           TC       GOSHOSUM                              #  VB91 DISPLAY BANK SUM.
011160,000133: 43,2066           03064                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST.
011161,000134: 43,2067           03073                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
011162,000135: 43,2070           02120                           TC       ALM/END                               #  VB94 SPARE
011163,000136: 43,2071           03061                           TC       UPDATOFF                              #  VB95 NO STATE VECTOR UPDATE ALLOWED
011164,000137: 43,2072           03206                           TC       VERB96                                #  VB96 INTERRUPT INTEGRATION AND GO TO POO
011165,000138: 43,2073           02361                           TC       GOLOADLV                              #  VB97 PLEASE VERIFY ENGINE FAILURE
011166,000139: 43,2074           02120                           TC       ALM/END                               #  VB98 SPARE
011167,000140: 43,2075           02361                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
011168,000141: 
011169,000142:                                                                                                  #  END OF EXTENDED VERB FAN
011170,000143: 
011171,000144: 43,2076           11044        TESTXACT           CCS      EXTVBACT                              #  ARE EXTENDED VERBS BUSY
011172,000145: 43,2077           02120                           TC       ALM/END                               #  YES, TURN ON OPERATOR LIGHT
011173,000146: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIORITY DISPLAYS USING DSKY
011174,000147: 43,2101           72127                           MASK     OC24100                               
011175,000148: 43,2102           10000                           CCS      A                                     
011176,000149: 43,2103           02120                           TC       ALM/END                               #  YES
011177,000150: 43,2104           36007                           CAF      OCT24                                 #  SET BITS 3 AND 5
011178,000151: 43,2105           55044        SETXTACT           TS       EXTVBACT                              #  NO.  SET FLAG TO SHOW EXT VERB DISPLAY
011179,000152:                                                                                                  #  SYSTEM BUSY
011180,000153: 
011181,000154: 43,2106           30002                           CA       Q                                     
011182,000155: 43,2107           54155                           TS       MPAC       +1                         
011183,000156: 
011184,000157: 43,2110           44752                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
011185,000158: 43,2111           04154                           TC       NVSUB                                 
011186,000159: 43,2112           02113                           TC       +1                                    
011187,000160: 43,2113           00155                           TC       MPAC       +1                         
011188,000161: 
011189,000162: 43,2114           04364        XACTALM            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT.
011190,000163: 43,2115           05472                           TC       ENDEXT                                #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
011191,000164: 
011192,000165: 43,2116     5472               TERMEXTV           EQUALS   ENDEXT                                

Page 264

011194,000167: 43,2116     5472               ENDEXTVB           EQUALS   ENDEXT                                
011195,000168: 
011196,000169: 43,2116           34755        XACT0              CAF      ZERO                                  #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
011197,000170: 43,2117           02105                           TC       SETXTACT                              
011198,000171: 
011199,000172: 43,2120           04364        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
011200,000173: 43,2121           04635        GOPIN              TC       POSTJUMP                              
011201,000174: 43,2122           21050                           CADR     PINBRNCH                              
011202,000175: 
011203,000176: 43,2123           31011        CHKPOOH            CA       MODREG                                #  CHECK FOR POO OR POO-.
011204,000177: 43,2124           00006                           EXTEND                                         
011205,000178: 43,2125           16742                           BZF      TCQ                                   
011206,000179: 43,2126           02120                           TC       ALM/END                               
011207,000180: 
011208,000181: 43,2127           24100        OC24100            OCT      24100                                 
011209,000182: 

Page 265

011211,000184:                                                                                                  #  VBZERO        VERB 40         DESCRIPTION
011212,000185: 
011213,000186:                                                                                                  #        1.      REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
011214,000187:                                                                                                  #        2.      FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
011215,000188:                                                                                                  #                FOR N72, CHECK IF EITHER RADAR IS IN USE.
011216,000189:                                                                                                  #        3.      EXECUTE THE CDU ZERO.
011217,000190:                                                                                                  #        4.      STALL UNTILL THE ZERO IS DONE.
011218,000191:                                                                                                  #        5.      DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
011219,000192:                                                                                                  #        6.      EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
011220,000193: 
011221,000194: 43,2130           02174        VBZERO             TC       OP/INERT                              
011222,000195: 43,2131           02133                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
011223,000196: 43,2132           02142                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(72)
011224,000197: 43,2133           02375        IMUZEROK           TC       CKMODCAD                              
011225,000198: 43,2134           04616                           TC       BANKCALL                              #  KEYBOARD REQ FOR ISS CDUZERO
011226,000199: 43,2135           16714                           CADR     IMUZERO                               
011227,000200: 
011228,000201: 43,2136           04616                           TC       BANKCALL                              #  STALL
011229,000202: 43,2137           17716                           CADR     IMUSTALL                              
011230,000203: 43,2140           02141                           TC       +1                                    
011231,000204: 
011232,000205: 43,2141           02121                           TC       GOPIN                                 #  IMUZERO
011233,000206: 
011234,000207: 43,2142           02642        RRZEROK            TC       RDRUSECK                              
011235,000208: 43,2143           04616                           TC       BANKCALL                              
011236,000209: 43,2144           52343                           CADR     RRZERO                                
011237,000210: 
011238,000211: 43,2145           04616        RWAITK             TC       BANKCALL                              
011239,000212: 43,2146           17714                           CADR     RADSTALL                              
011240,000213: 43,2147           12150                           TCF      +1                                    
011241,000214: 43,2150           02121                           TC       GOPIN                                 #  RRZERO
011242,000215: 
011243,000216:                                                                                                  #  LRPOS2K       VERB 60                 DESCRIPTION
011244,000217:                                                                                                  #        COMMAND LANDING RADAR TO POSITION 2
011245,000218: 
011246,000219:                                                                                                  #        1.      EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
011247,000220:                                                                                                  #        2.      ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
011248,000221:                                                                                                  #                THE PRESCRIBED TIME.
011249,000222:                                                                                                  #        3.      RE-ESTABLISH THE DISPLAYS.
011250,000223: 
011251,000224: 43,2151           02642        LRPOS2K            TC       RDRUSECK                              
011252,000225: 43,2152           04616                           TC       BANKCALL                              #  COMMAND LR TO POSITION 2
011253,000226: 43,2153           53471                           CADR     LRPOS2                                
011254,000227: 43,2154           04616                           TC       BANKCALL                              
011255,000228: 43,2155           17714                           CADR     RADSTALL                              
011256,000229: 43,2156           02160                           TC       LRP2ALM                               
011257,000230: 43,2157           02121                           TC       GOPIN                                 
011258,000231: 
011259,000232: 43,2160           05567        LRP2ALM            TC       ALARM                                 
011260,000233: 43,2161           00523                           OCT      523                                   
011261,000234: 43,2162           02121                           TC       GOPIN                                 

Page 266

011263,000236: 
011264,000237:                                                                                                  #  V61   VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
011265,000238: 
011266,000239: 43,2163           05516        DAPATTER           TC       DOWNFLAG                              
011267,000240: 43,2164           00013                           ADRES    NEEDLFLG                              
011268,000241: 43,2165           02121                           TC       GOPIN                                 
011269,000242: 
011270,000243:                                                                                                  #  V62   VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
011271,000244: 
011272,000245: 43,2166           05504        TOTATTER           TC       UPFLAG                                
011273,000246: 43,2167           00013                           ADRES    NEEDLFLG                              
011274,000247: 43,2170           02121                           TC       GOPIN                                 
011275,000248: 

Page 267

011277,000250:                                                                                                  #  VBCOARK       VERB 41         DESCRIPTION
011278,000251:                                                                                                  #        COARSE ALIGN IMU OR RADAR
011279,000252: 
011280,000253:                                                                                                  #        1.      REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
011281,000254:                                                                                                  #        2.      REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
011282,000255:                                                                                                  #                                CASE 1 NOUN 20 (ICDU ANGLES)
011283,000256:                                                                                                  #        3.      SET EXT VERB DISPLAY ACTIVE FLAG.
011284,000257:                                                                                                  #        4.      DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011285,000258:                                                                                                  #                RESPONSES
011286,000259:                                                                                                  #                A.      TERMINATE
011287,000260:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM
011288,000261:                                                                                                  #                B.      PROCEED
011289,000262:                                                                                                  #                        1.      COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
011290,000263:                                                                                                  #                C.      ENTER
011291,000264:                                                                                                  #                        1.      COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
011292,000265:                                                                                                  #  ICORK2
011293,000266:                                                                                                  #        1.      RE-DISPLAY VERB 41.
011294,000267:                                                                                                  #        2.      EXECUTE IMUCOARS (IMU COARSE ALIGN).
011295,000268:                                                                                                  #        3.      EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
011296,000269:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY SYSTEM.
011297,000270:                                                                                                  #                                CASE 2 NOUN 72 (RCDU ANGLES)
011298,000271:                                                                                                  #                EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
011299,000272:                                                                                                  #        5.      DISPLAY FLASHING V24, N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
011300,000273:                                                                                                  #                RESPONSES
011301,000274:                                                                                                  #                A.      TERMINATE
011302,000275:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYS.
011303,000276:                                                                                                  #                B.      PROCEED OR ENTER
011304,000277:                                                                                                  #                        1.      EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
011305,000278:                                                                                                  #                        2.      RE-DISPLAY VERB 41.
011306,000279:                                                                                                  #                        3.      SCHEDULE RRDESK2 WITH PRIORITY 20.
011307,000280:                                                                                                  #                        4.      RELEASE EXT VERB DISPLAY SYS.
011308,000281:                                                                                                  #  AURLOKON
011309,000282:                                                                                                  #        1.      FLASH V04 N12 R1 = 00006 R2 = 00002
011310,000283:                                                                                                  #                RESPONSES
011311,000284:                                                                                                  #                A.      TERMINATE
011312,000285:                                                                                                  #                B.      PROCEED
011313,000286:                                                                                                  #                        1.      RESET LOCK-ON SWITCH
011314,000287:                                                                                                  #                        2.      SET CONTINUOUS DESIGNATE FLAG
011315,000288:                                                                                                  #                        3.      DISABLE R25
011316,000289:                                                                                                  #                C.      V22 E 1 E, R1 = 00001, PROCEED
011317,000290:                                                                                                  #                        1.      SET LOCK-ON SWITCH
011318,000291: 
011319,000292: 43,2171           02174        VBCOARK            TC       OP/INERT                              
011320,000293: 43,2172           02205                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
011321,000294: 43,2173           02227                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (72)
011322,000295: 
011323,000296:                                                                                                  #  RETURNS TO L+1 IF IMU OR L+2 IF RR.
011324,000297: 
011325,000298: 43,2174           46007        OP/INERT           CS       OCT24                                 
011326,000299: 43,2175           61002                           AD       NOUNREG                               
011327,000300: 43,2176           00006                           EXTEND                                         

Page 268

011329,000302: 43,2177           16742                           BZF      TCQ                                   #  IF = 20.
011330,000303: 
011331,000304: 43,2200           62204                           AD       RRIMUDIF                              #  -52
011332,000305: 43,2201           00006                           EXTEND                                         
011333,000306: 43,2202           16737                           BZF      Q+1                                   
011334,000307: 
011335,000308: 43,2203           02120                           TC       ALM/END                               #  ILLEGAL.
011336,000309: 
011337,000310: 43,2204           77713        RRIMUDIF           DEC      -52        B-14                       #  THE IMU
011338,000311: 43,2205           02375        IMUCOARK           TC       CKMODCAD                              
011339,000312: 43,2206           02076                           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
011340,000313: 43,2207           32225                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
011341,000314: 43,2210           04616                           TC       BANKCALL                              
011342,000315: 43,2211           20334                           CADR     GOXDSPF                               
011343,000316: 43,2212           05472                           TC       TERMEXTV                              
011344,000317: 43,2213           12214                           TCF      +1                                    
011345,000318: 
011346,000319: 43,2214           32226        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
011347,000320: 43,2215           04616                           TC       BANKCALL                              
011348,000321: 43,2216           20620                           CADR     EXDSPRET                              
011349,000322: 
011350,000323: 43,2217           04616                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
011351,000324: 43,2220           17000                           CADR     IMUCOARS                              
011352,000325: 
011353,000326: 43,2221           04616                           TC       BANKCALL                              #  STALL
011354,000327: 43,2222           17716                           CADR     IMUSTALL                              
011355,000328: 43,2223           05472                           TC       ENDEXTVB                              
011356,000329: 43,2224           05472                           TC       ENDEXTVB                              
011357,000330: 
011358,000331: 43,2225           06226        VNLODCDU           VN       2522                                  
011359,000332: 43,2226           12200        IMUCOARV           VN       4100                                  
011360,000333: 

Page 269

011362,000335:                                                                                                  #  DESIGNATE TO DESIRED GIMBAL ANGLES.
011363,000336: 
011364,000337: 43,2227           02642        RRDESNBK           TC       RDRUSECK                              
011365,000338: 43,2230           02076                           TC       TESTXACT                              
011366,000339: 43,2231           34745                           CA       RNDVZBIT                              #  IS P20 RUNNING?
011367,000340: 43,2232           70074                           MASK     FLAGWRD0                              
011368,000341: 43,2233           10000                           CCS      A                                     
011369,000342: 43,2234           12114                           TCF      XACTALM                               #  OPERATOR ERROR IF IN P20
011370,000343: 43,2235           42321                           CS       OCT41000                              #  TERMINATE PRESENT DESIGNATION
011371,000344: 43,2236           00004                           INHINT                                         #  RELINT DONE IN GOXDSPF
011372,000345: 43,2237           70110                           MASK     RADMODES                              
011373,000346: 43,2240           54110                           TS       RADMODES                              
011374,000347: 
011375,000348: 43,2241           32260                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
011376,000349: 43,2242           04616                           TC       BANKCALL                              
011377,000350: 43,2243           20334                           CADR     GOXDSPF                               
011378,000351: 43,2244           05472                           TC       TERMEXTV                              
011379,000352: 43,2245           12241                           TCF      -4                                    #  V33
011380,000353: 
011381,000354: 43,2246           04616                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
011382,000355: 43,2247           46000                           CADR     AURLOKON                              
011383,000356: 
011384,000357: 43,2250           32226                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
011385,000358: 43,2251           04616                           TC       BANKCALL                              
011386,000359: 43,2252           20620                           CADR     EXDSPRET                              
011387,000360: 
011388,000361: 43,2253           34736                           CAF      PRIO20                                
011389,000362: 43,2254           05105                           TC       FINDVAC                               
011390,000363: 43,2255  E7,1456                                  EBANK=   LOSCOUNT                              
011391,000364: 43,2255           02261 66107                     2CADR    RRDESK2                               
011392,000365: 
011393,000366: 43,2257           15472                           TCF      TERMEXTV                              #  FREES DISPLAY.
011394,000367: 
011395,000368: 43,2260           06111        VNLDRCDU           VN       2473                                  
011396,000369: 43,2261  43,2226               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
011397,000370: 
011398,000371: 43,2261           04616        RRDESK2            TC       BANKCALL                              
011399,000372: 43,2262           52475                           CADR     RRDESNB                               
011400,000373: 
011401,000374: 43,2263           02264                           TC       +1                                    #  DUMMY NEEDED SINCE DESRETRN DOES INCR
011402,000375: 43,2264           30167                           CA       PRIORITY                              
011403,000376: 43,2265           75004                           MASK     LOW9                                  
011404,000377: 43,2266           10000                           CCS      A                                     
011405,000378: 43,2267           50000                           INDEX    A                                     
011406,000379: 43,2270           54000                           TS       A                                     #  RELEASE THIS JOBS VAC AREA.
011407,000380: 43,2271           40000                           COM                                            #  INSURE ENDOFJOB DOES A NOVAC END (BZMF).
011408,000381: 43,2272           26167                           ADS      PRIORITY                              
011409,000382: 43,2273           04616                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF DESIGNATE
011410,000383: 43,2274           17714                           CADR     RADSTALL                              

Page 270

011412,000385: 43,2275           02277                           TC       +2                                    #  BADEND - NO LOCKON OR OUT OF LIMITS
011413,000386: 43,2276           05155                           TC       ENDOFJOB                              #  GOODEND - LOCKON ACHIEVED
011414,000387: 43,2277           05567                           TC       ALARM                                 
011415,000388: 43,2300           00503                           OCT      503                                   #  TURN ON ALARM LIGHT - 503 DESIGNATE FAIL
011416,000389: 
011417,000390: 43,2301           05155                           TC       ENDOFJOB                              
011418,000391: 
011419,000392: 43,2302           10110        RRDESEND           CCS      RADMODES                              #  TERMINATE CONTINUOUS DESIGNATE ONLY
011420,000393: 43,2303           12121                           TCF      GOPIN                                 
011421,000394: 43,2304           12121                           TCF      GOPIN                                 
011422,000395: 43,2305           12306                           TCF      +1                                    
011423,000396: 43,2306           42321                           CS       OCT41000                              #  BEGDES GOES TO ENDRADAR
011424,000397: 43,2307           00004                           INHINT                                         #  RELINT DONE IN DOWNFLAG
011425,000398: 43,2310           70110                           MASK     RADMODES                              
011426,000399: 43,2311           54110                           TS       RADMODES                              
011427,000400: 43,2312           06011                           TC       CLRADMOD                              
011428,000401: 43,2313           34777                           CAF      1SEC                                  
011429,000402: 43,2314           04616                           TC       BANKCALL                              
011430,000403: 43,2315           01735                           CADR     DELAYJOB                              
011431,000404: 43,2316           05516                           TC       DOWNFLAG                              #  ENABLE R25 GIMBAL MONITOR
011432,000405: 43,2317           00126                           ADRES    NORRMON                               
011433,000406: 43,2320           12121                           TCF      GOPIN                                 
011434,000407: 43,2321           41000        OCT41000           OCT      41000                                 #  CONTINUOUS DESIGNATE - DESIGNATE
011435,000408: 

Page 271

011437,000410: 23,2000                                           BANK     23                                    
011438,000411: 23,2000                                           SETLOC   EXTVB1                                
011439,000412: 23,2000                                           BANK                                           
011440,000413: 23,2000                                           COUNT*   $$/EXTVB                              
011441,000414: 
011442,000415: 23,2000           04645        AURLOKON           TC       MAKECADR                              
011443,000416: 23,2001           55113                           TS       DESRET                                
011444,000417: 23,2002           34752                           CAF      TWO                                   
011445,000418: 23,2003           55052                           TS       OPTIONX    +1                         
011446,000419: 23,2004           36242                           CAF      SIX                                   #  OPTION CODE FOR V04N12
011447,000420: 23,2005           55051                           TS       OPTIONX                               
011448,000421: 
011449,000422: 23,2006           32037                 -5        CAF      V04N1272                              
011450,000423: 23,2007           04616                           TC       BANKCALL                              #  R2    00001   LOCK-ON
011451,000424: 23,2010           20353                           CADR     GOMARKFR                              
011452,000425: 23,2011           15472                           TCF      ENDEXT                                #  V34
011453,000426: 23,2012           12017                           TCF      +5                                    #  V33
011454,000427: 23,2013           12006                           TCF      -5                                    #  V32
011455,000428: 23,2014           34751                           CAF      BIT3                                  
011456,000429: 23,2015           05464                           TC       BLANKET                               
011457,000430: 23,2016           05155                           TC       ENDOFJOB                              
011458,000431: 
011459,000432: 23,2017           31052                 +5        CA       OPTIONX    +1                         
011460,000433: 23,2020           74752                           MASK     BIT2                                  
011461,000434: 23,2021           10000                           CCS      A                                     
011462,000435: 23,2022           12026                           TCF      NOLOKON                               
011463,000436: 23,2023           05504                           TC       UPFLAG                                
011464,000437: 23,2024           00012                           ADRES    LOKONSW                               
011465,000438: 23,2025           12034                           TCF      AURLKON1                              
011466,000439: 
011467,000440: 23,2026           05516        NOLOKON            TC       DOWNFLAG                              #  IF NO LOCK-ON, SET BIT15 OF RADMODES TO
011468,000441: 23,2027           00012                           ADRES    LOKONSW                               #  INDICATE THAT CONTINUOUS DESIGNATION IS
011469,000442: 23,2030           05504                           TC       UPFLAG                                #  WANTED (TO BE TERMINATED BY V44.)
011470,000443: 23,2031           00264                           ADRES    CDESFLAG                              
011471,000444: 23,2032           05504                           TC       UPFLAG                                #  SET NO RR ANGLE MONITOR FLAG.
011472,000445: 23,2033           00126                           ADRES    NORRMON                               #  (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
011473,000446: 23,2034           00003        AURLKON1           RELINT                                         
011474,000447: 23,2035           31113                           CA       DESRET                                
011475,000448: 23,2036           14640                           TCF      BANKJUMP                              
011476,000449: 
011477,000450: 23,2037           01014        V04N1272           VN       412                                   
011478,000451: 23,2040           77757        -LOKONFG           OCT      -20                                   
011479,000452: 
011480,000453: 43,2322                                           BANK     43                                    
011481,000454: 43,2000                                           SETLOC   EXTVERBS                              
011482,000455: 43,2000                                           BANK                                           
011483,000456: 43,2322                                           COUNT*   $$/EXTVB                              
011484,000457: 
011485,000458: 43,2322           05504        LRON               TC       UPFLAG                                #  PERMIT INCORPORATION OF LR DATA      V57
011486,000459: 

Page 272

011488,000461: 43,2323           00254                           ADRES    LRINH                                 
011489,000462: 43,2324           12121                           TCF      GOPIN                                 
011490,000463: 
011491,000464: 43,2325           05516        LROFF              TC       DOWNFLAG                              #  INHIBIT INCORPORATION OF LR DATA      V58
011492,000465: 43,2326           00254                           ADRES    LRINH                                 
011493,000466: 43,2327           12121                           TCF      GOPIN                                 
011494,000467: 
011495,000468: 43,2330  E5,1737                                  EBANK=   OGC                                   
011496,000469: 

Page 273

011498,000471: 
011499,000472:                                                                                                  #  IMUFINEK      VERB 42         DESCRIPTION
011500,000473:                                                                                                  #        FINE ALIGN IMU
011501,000474: 
011502,000475:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011503,000476:                                                                                                  #        2.      DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011504,000477:                                                                                                  #                RESPONSES
011505,000478:                                                                                                  #                A.      TERMINATE
011506,000479:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
011507,000480:                                                                                                  #                B.      PROCEED OR ENTER
011508,000481:                                                                                                  #                        1.      RE-DISPLAY VERB 42
011509,000482:                                                                                                  #                        2.      EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011510,000483:                                                                                                  #                        3.      EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011511,000484:                                                                                                  #                                A.      FAILED
011512,000485:                                                                                                  #                                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
011513,000486:                                                                                                  #                                B.      GOOD
011514,000487:                                                                                                  #                                        1.      EXECUTE IMUPULSE (TORQUE IRIGS).
011515,000488:                                                                                                  #                                        2.      EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011516,000489: 
011517,000490: 43,2330           02375        IMUFINEK           TC       CKMODCAD                              
011518,000491: 43,2331           02076                           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
011519,000492: 43,2332           32357                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
011520,000493: 43,2333           04616                           TC       BANKCALL                              
011521,000494: 43,2334           20334                           CADR     GOXDSPF                               
011522,000495: 43,2335           05472                           TC       TERMEXTV                              
011523,000496: 43,2336           02337                           TC       +1                                    #  PROCEED WITHOUT A LOAD
011524,000497: 
011525,000498: 43,2337           32360                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
011526,000499: 43,2340           04616                           TC       BANKCALL                              
011527,000500: 43,2341           20620                           CADR     EXDSPRET                              
011528,000501: 
011529,000502: 43,2342           04616                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
011530,000503: 43,2343           17210                           CADR     IMUFINE                               
011531,000504: 
011532,000505: 43,2344           04616                           TC       BANKCALL                              #  HIBERNATION
011533,000506: 43,2345           17716                           CADR     IMUSTALL                              
011534,000507: 43,2346           05472                           TC       ENDEXTVB                              
011535,000508: 
011536,000509: 43,2347           32356        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
011537,000510: 43,2350           04616                           TC       BANKCALL                              
011538,000511: 43,2351           17323                           CADR     IMUPULSE                              
011539,000512: 
011540,000513: 43,2352           04616                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
011541,000514: 43,2353           17716                           CADR     IMUSTALL                              
011542,000515: 43,2354           05472                           TC       ENDEXTVB                              
011543,000516: 43,2355           05472                           TC       ENDEXTVB                              
011544,000517: 
011545,000518: 43,2356           02737        LGYROBIN           ECADR    OGC                                   
011546,000519: 43,2357           06335        VNLODGYR           VN       2593                                  
011547,000520: 43,2360           12400        IMUFINEV           VN       4200                                  
011548,000521: 
011549,000522:                                                                                                  #  GOLOADLV      VERB 50         DESCRIPTION
011550,000523:                                                                                                  #        AND OTHER PLEASE

Page 274

011552,000525:                                                                                                  #        DO SOMETHING VERBS
011553,000526: 
011554,000527:                                                                                                  #  PLEASE PERFORM, MARK, CALIBRATE, ETC.
011555,000528: 
011556,000529:                                                                                                  #        1.      PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011557,000530:                                                                                                  #                SAME RECALL AS A COMPLETED LOAD.
011558,000531:                                                                                                  #        2.      THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011559,000532: 
011560,000533: 43,2361  40,2000                                  SBANK=   PINSUPER                              #  FOR LOADLV1 AND SHOWSUM CADR'S.
011561,000534: 
011562,000535: 43,2361           04433        GOLOADLV           TC       FLASHOFF                              
011563,000536: 
011564,000537: 43,2362           34201                           CAF      PINSUPBT                              
011565,000538: 43,2363           00006                           EXTEND                                         
011566,000539: 43,2364           01007                           WRITE    SUPERBNK                              
011567,000540: 43,2365           04635                           TC       POSTJUMP                              
011568,000541: 43,2366           62001                           CADR     LOADLV1                               
011569,000542: 
011570,000543:                                                                                                  #  VERB 47 - AGS INITIALIZATION - R47.
011571,000544: 
011572,000545:                                                                                                  #  SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
011573,000546: 
011574,000547: 43,2367           02076        V47TXACT           TC       TESTXACT                              #  NO OTHER EXTVERB.
011575,000548: 43,2370           34740                           CAF      PRIO4                                 
011576,000549: 43,2371           05105                           TC       FINDVAC                               
011577,000550: 43,2372  E4,1600                                  EBANK=   AGSBUFF                               
011578,000551: 43,2372           02005 64064                     2CADR    AGSINIT                               
011579,000552: 
011580,000553: 43,2374           05155                           TC       ENDOFJOB                              
011581,000554: 
011582,000555: 43,2375           31304        CKMODCAD           CA       MODECADR                              
011583,000556: 43,2376           00006                           EXTEND                                         
011584,000557: 43,2377           16742                           BZF      TCQ                                   
011585,000558: 43,2400           02120                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
011586,000559: 

Page 275

011588,000561:                                                                                                  #  ALINTIME      VERB 55         DESCRIPTION
011589,000562:                                                                                                  #        REQUIRE POO OR POO-.
011590,000563: 
011591,000564:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011592,000565:                                                                                                  #        2.      DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011593,000566:                                                                                                  #        3.      REQUIRE EXECUTION OF VERB 23.
011594,000567:                                                                                                  #        4.      ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011595,000568:                                                                                                  #        5.      RELEASE EXT VERB DISPLAY SYSTEM
011596,000569: 
011597,000570: 43,2401           02076        ALINTIME           TC       TESTXACT                              
011598,000571: 43,2402           04635                           TC       POSTJUMP                              #  NO ROOM IN 43
011599,000572: 43,2403           64002                           CADR     R33                                   
011600,000573: 
011601,000574: 42,2002                                           BANK     42                                    
011602,000575: 42,2000                                           SETLOC   SBAND                                 
011603,000576: 42,2000                                           BANK                                           
011604,000577: 42,2002                                           COUNT*   $$/R33                                
011605,000578: 
011606,000579: 42,2002           35021        R33                CAF      PRIO7                                 
011607,000580: 42,2003           05146                           TC       PRIOCHNG                              
011608,000581: 42,2004           32034                           CAF      VNLODDT                               
011609,000582: 42,2005           04616                           TC       BANKCALL                              
011610,000583: 42,2006           20334                           CADR     GOXDSPF                               
011611,000584: 42,2007           05472                           TC       ENDEXT                                #  TERMINATE
011612,000585: 42,2010           05472                           TC       ENDEXT                                #  PROCEED
011613,000586: 42,2011           42033                           CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
011614,000587: 42,2012           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
011615,000588: 42,2013           00006                           EXTEND                                         
011616,000589: 42,2014           12016                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
011617,000590: 42,2015           05472                           TC       ENDEXT                                #        WITH V23 (DATA IN).
011618,000591: 
011619,000592: 42,2016           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
011620,000593: 42,2017           34755                           CAF      ZERO                                  
011621,000594: 42,2020           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
011622,000595: 42,2021           54001                           TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
011623,000596: 42,2022           52025                           DXCH     TIME2                                 
011624,000597: 42,2023           52155                           DXCH     MPAC                                  
011625,000598: 42,2024           53052                           DXCH     DSPTEM2    +1                         #  INCREMENT
011626,000599: 42,2025           20155                           DAS      MPAC                                  
011627,000600: 
011628,000601: 42,2026           07257                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
011629,000602: 42,2027           52155                           DXCH     MPAC                                  #  NEW CLOCK.
011630,000603: 42,2030           20025                           DAS      TIME2                                 
011631,000604: 42,2031           00003                           RELINT                                         
011632,000605: 42,2032           05472        UPDTMEND           TC       ENDEXT                                
011633,000606: 
011634,000607: 42,2033           00027        DEC23              DEC      23         B-14                       #  V 23
011635,000608: 
011636,000609: 42,2034           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
011637,000610: 

Page 276

011639,000612:                                                                                                  #  SET UP FOR RADAR SAMPLING.
011640,000613: 
011641,000614: 42,2035                                           BANK     42                                    
011642,000615: 43,2000                                           SETLOC   EXTVERBS                              
011643,000616: 43,2000                                           BANK                                           
011644,000617: 
011645,000618: 43,2404  E4,1600                                  EBANK=   RSTACK                                
011646,000619: 
011647,000620: 43,2404                                           COUNT*   $$/R0477                              
011648,000621: 
011649,000622: 43,2404           02642        R77                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011650,000623: 43,2405           30077                           CA       FLAGWRD3                              #  IS R04 RUNNING?
011651,000624: 43,2406           74743                           MASK     R04FLBIT                              
011652,000625: 43,2407           10000                           CCS      A                                     
011653,000626: 43,2410           02120                           TC       ALM/END                               #  YES.
011654,000627: 43,2411           05504                           TC       UPFLAG                                
011655,000628: 43,2412           00117                           ADRES    R77FLAG                               
011656,000629: 43,2413           12420                           TCF      R04Z                                  
011657,000630: 
011658,000631: 43,2414           02642        R04                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011659,000632: 43,2415           02076                           TC       TESTXACT                              
011660,000633: 43,2416           05504                           TC       UPFLAG                                
011661,000634: 43,2417           00063                           ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
011662,000635: 
011663,000636: 43,2420           34741        R04Z               CAF      EBANK4                                
011664,000637: 43,2421           54003                           TS       EBANK                                 
011665,000638: 43,2422           32640                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011666,000639: 43,2423           55755                           TS       RSAMPDT                               
011667,000640: 43,2424           34755                           CAF      ZERO                                  
011668,000641: 43,2425           55754                           TS       RTSTLOC                               
011669,000642: 43,2426           55756                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
011670,000643: 
011671,000644: 43,2427           00004                           INHINT                                         
011672,000645: 43,2430           42641                           CS       LRPOSCAL                              #  INITIALIZE
011673,000646: 43,2431           70110                           MASK     RADMODES                              #        BIT 9   LR RANGE LOW SCALE =0
011674,000647: 43,2432           54110                           TS       RADMODES                              #        BIT 6   LR POS 1 =0
011675,000648: 43,2433           32641                           CAF      LRPOSCAL                              #        BIT 3   RR RANGE LOW SCALE =0
011676,000649: 43,2434           00006                           EXTEND                                         
011677,000650: 43,2435           02033                           RAND     CHAN33                                
011678,000651: 43,2436           26110                           ADS      RADMODES                              
011679,000652: 43,2437           00003                           RELINT                                         
011680,000653: 
011681,000654: 43,2440           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG         R04 =1          R77 =0
011682,000655: 43,2441           74743                           MASK     R04FLBIT                              
011683,000656: 43,2442           10000                           CCS      A                                     
011684,000657: 43,2443           12575                           TCF      R04K                                  
011685,000658: 
011686,000659: 43,2444           34753                           CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
011687,000660: 43,2445           55052                           TS       OPTIONX    +1                         
011688,000661: 43,2446           34751        R04A               CAF      BIT3                                  #  OPTION CODE FOR V04N12
011689,000662: 

Page 277

011691,000664: 43,2447           55051                           TS       OPTIONX                               
011692,000665: 43,2450           32635                           CAF      V04N12X                               
011693,000666: 43,2451           04616                           TC       BANKCALL                              #        R2      00001   RENDEZVOUS RADAR
011694,000667: 43,2452           20353                           CADR     GOMARKFR                              #                00002   LANDING RADAR
011695,000668: 43,2453           12603                           TCF      R04END                                #  V34
011696,000669: 43,2454           12461                           TCF      +5                                    #  V33
011697,000670: 43,2455           12450                           TCF      R04A       +2                         #  R2
011698,000671: 43,2456           34751                           CAF      BIT3                                  
011699,000672: 43,2457           05464                           TC       BLANKET                               
011700,000673: 43,2460           05155                           TC       ENDOFJOB                              
011701,000674: 
011702,000675: 43,2461           31052                           CA       OPTIONX    +1                         #  SAVE DESIRED OPTION   RR =1   LR =2
011703,000676: 43,2462           55751                           TS       RTSTDEX                               
011704,000677: 
011705,000678: 43,2463           36242        R04X               CAF      SIX                                   #  RR OR LR DESIRED
011706,000679: 43,2464           71751                           MASK     RTSTDEX                               
011707,000680: 43,2465           10000                           CCS      A                                     
011708,000681: 43,2466           12577                           TCF      R04L                                  #  LANDING RADAR
011709,000682: 43,2467           55753                           TS       RTSTBASE                              #  FOR RR        BASE =0, MAX =1
011710,000683: 
011711,000684: 43,2470           34752        R04B               CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
011712,000685: 43,2471           00006                           EXTEND                                         
011713,000686: 43,2472           02033                           RAND     CHAN33                                
011714,000687: 43,2473           00006                           EXTEND                                         
011715,000688: 43,2474           12505                           BZF      R04C                                  #  YES
011716,000689: 
011717,000690: 43,2475           32637                           CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
011718,000691: 43,2476           55045                           TS       DSPTEM1                               
011719,000692: 43,2477           32636                           CAF      V50N25X                               
011720,000693: 43,2500           04616                           TC       BANKCALL                              
011721,000694: 43,2501           20345                           CADR     GOMARK4                               
011722,000695: 43,2502           12603                           TCF      R04END                                #  V34
011723,000696: 43,2503           12470                           TCF      R04B                                  #  V33
011724,000697: 43,2504           12475                           TCF      -7                                    #  E
011725,000698: 
011726,000699: 43,2505           34736        R04C               CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
011727,000700: 43,2506           00006                           EXTEND                                         
011728,000701: 43,2507           05012                           WOR      CHAN12                                
011729,000702: 
011730,000703: 43,2510           34752                           CAF      TWO                                   
011731,000704: 43,2511           55752                           TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
011732,000705: 
011733,000706: 43,2512           05203                           TC       WAITLIST                              
011734,000707: 43,2513  E4,1600                                  EBANK=   RSTACK                                
011735,000708: 43,2513           02003 52104                     2CADR    RADSAMP                               
011736,000709: 
011737,000710: 43,2515           00003                           RELINT                                         
011738,000711: 
011739,000712: 43,2516           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG         R04 =1          R77 =0
011740,000713: 43,2517           74743                           MASK     R04FLBIT                              

Page 278

011742,000715: 43,2520           10000                           CCS      A                                     
011743,000716: 43,2521           12121                           TCF      GOPIN                                 #  R77
011744,000717: 
011745,000718: 43,2522           36242                           CAF      SIX                                   #  RR OR LR
011746,000719: 43,2523           71751                           MASK     RTSTDEX                               
011747,000720: 43,2524           10000                           CCS      A                                     
011748,000721: 43,2525           12542                           TCF      R04LR                                 #  LR
011749,000722: 
011750,000723: 43,2526           32631        R04RR              CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
011751,000724: 43,2527           04616                           TC       BANKCALL                              #        R1 + XXX.XX DEG         TRUNNION
011752,000725: 43,2530           20334                           CADR     GOMARKF                               #        R2 + XXX.XX DEG         SHAFT
011753,000726: 43,2531           12603                           TCF      R04END                                #  V34   R3   BLANK
011754,000727: 43,2532           12534                           TCF      +2                                    #  V33
011755,000728: 43,2533           12526                           TCF      R04RR                                 #  V32
011756,000729: 
011757,000730: 43,2534           32632                           CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
011758,000731: 43,2535           04616                           TC       BANKCALL                              #        R1 +- XXX.XX NM         RANGE
011759,000732: 43,2536           20334                           CADR     GOMARKF                               #        R2 +- XXXXX. FPS        RANGE RATE
011760,000733: 43,2537           12603                           TCF      R04END                                #  V34   R3    BLANK
011761,000734: 43,2540           12556                           TCF      R04Y                                  #  V33
011762,000735: 43,2541           12526                           TCF      R04RR                                 #  V32
011763,000736: 
011764,000737: 43,2542           32633        R04LR              CAF      V16N66                                #  DISPLAY LR RANGE AND POSITION (1/SEC)
011765,000738: 43,2543           04616                           TC       BANKCALL                              #        R1 +- XXXXX. FT         LR RANGE
011766,000739: 43,2544           20334                           CADR     GOMARKF                               #        R2 +  0000X.            POS. NO.
011767,000740: 43,2545           12603                           TCF      R04END                                #  V34   R3    BLANK
011768,000741: 43,2546           12550                           TCF      +2                                    #  V33
011769,000742: 43,2547           12542                           TCF      R04LR                                 #  V32
011770,000743: 
011771,000744: 43,2550           32634                           CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
011772,000745: 43,2551           04616                           TC       BANKCALL                              #        R1 +- XXXXX. FPS        LR V(X)
011773,000746: 43,2552           20334                           CADR     GOMARKF                               #        R2 +- XXXXX. FPS        LR V(Y)
011774,000747: 43,2553           12603                           TCF      R04END                                #  V34   R3 +- XXXXX. FPS        LR V(Z)
011775,000748: 43,2554           12556                           TCF      R04Y                                  #  V33
011776,000749: 43,2555           12542                           TCF      R04LR                                 #  V32
011777,000750: 
011778,000751: 43,2556           34755        R04Y               CAF      ZERO                                  #  TO TERMINATE SAMPLING
011779,000752: 43,2557           55755                           TS       RSAMPDT                               
011780,000753: 43,2560           35000                           CAF      2SECS                                 #  WAIT FOR LAST RADARUPT
011781,000754: 43,2561           04616                           TC       BANKCALL                              
011782,000755: 43,2562           01735                           CADR     DELAYJOB                              
011783,000756: 43,2563           32640                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011784,000757: 43,2564           55755                           TS       RSAMPDT                               
011785,000758: 43,2565           34755                           CAF      ZERO                                  #  FOR STORING RESULTS
011786,000759: 43,2566           55754                           TS       RTSTLOC                               
011787,000760: 43,2567           36242                           CAF      SIX                                   
011788,000761: 43,2570           71751                           MASK     RTSTDEX                               
011789,000762: 43,2571           10000                           CCS      A                                     
011790,000763: 43,2572           44753                           CS       ONE                                   #  WAS LR
011791,000764: 43,2573           64752                           AD       TWO                                   #  WAS RR

Page 279

011793,000766: 
011794,000767: 43,2574           12462                           TCF      R04X       -1                         
011795,000768: 
011796,000769: 43,2575           34766        R04K               CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.
011797,000770: 43,2576           55755                           TS       RSAMPDT                               
011798,000771: 
011799,000772: 43,2577           34752        R04L               CAF      TWO                                   
011800,000773: 43,2600           55753                           TS       RTSTBASE                              #  FOR LR        BASE =2, MAX =3
011801,000774: 43,2601           36242                           CAF      SIX                                   
011802,000775: 43,2602           12511                           TCF      R04C       +4                         
011803,000776: 43,2603           34755        R04END             CAF      ZERO                                  #  ZERO RSAMPDT
011804,000777: 43,2604           55755                           TS       RSAMPDT                               #  TO TERMINATE SAMPLING
011805,000778: 43,2605           34744                           CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
011806,000779: 43,2606           04616                           TC       BANKCALL                              #  PENDING RUPT.
011807,000780: 43,2607           01735                           CADR     DELAYJOB                              
011808,000781: 
011809,000782: 43,2610           00004                           INHINT                                         
011810,000783: 43,2611           44736                           CS       BIT14                                 #  DISABLE RR AUTO TRACKER
011811,000784: 43,2612           00006                           EXTEND                                         
011812,000785: 43,2613           03012                           WAND     CHAN12                                
011813,000786: 
011814,000787: 43,2614           05516                           TC       DOWNFLAG                              
011815,000788: 43,2615           00063                           ADRES    R04FLAG                               #  SIGNAL END OF R04.
011816,000789: 
011817,000790: 43,2616           05472                           TC       ENDEXT                                
011818,000791: 
011819,000792: 43,2617           34741        R77END             CAF      EBANK4                                #  TO TERMINATE SAMPLING
011820,000793: 43,2620           54003                           TS       EBANK                                 
011821,000794: 43,2621           34755                           CAF      ZERO                                  
011822,000795: 43,2622           55755                           TS       RSAMPDT                               
011823,000796: 43,2623           34746                           CAF      BIT6                                  #  WAIT 320 MS FOR POSSIBLE
011824,000797: 43,2624           04616                           TC       BANKCALL                              #  PENDING RUPT.
011825,000798: 43,2625           01735                           CADR     DELAYJOB                              
011826,000799: 
011827,000800: 43,2626           05516                           TC       DOWNFLAG                              
011828,000801: 43,2627           00117                           ADRES    R77FLAG                               
011829,000802: 43,2630           12121                           TCF      GOPIN                                 
011830,000803: 
011831,000804: 43,2631           04110        V16N72             VN       1672                                  
011832,000805: 43,2632           04116        V16N78             VN       1678                                  
011833,000806: 43,2633           04102        V16N66             VN       1666                                  
011834,000807: 43,2634           04103        V16N67             VN       1667                                  
011835,000808: 43,2635           01014        V04N12X            VN       412                                   
011836,000809: 43,2636           14431        V50N25X            VN       5025                                  
011837,000810: 43,2637           00201        201R04             OCT      00201                                 
011838,000811: 43,2640           00145        1SEC+1             DEC      101        B-14                       
011839,000812: 43,2641     4766               250MS+1            EQUALS   CALLCODE                              
011840,000813: 43,2641           00444        LRPOSCAL           OCT      444                                   
011841,000814: 

Page 280

011843,000816: 43,2642           40077        RDRUSECK           CS       FLAGWRD3                              #  IS R29 ON?
011844,000817: 43,2643           74741                           MASK     NR29FBIT                              
011845,000818: 43,2644           10000                           CCS      A                                     
011846,000819: 43,2645           02120                           TC       ALM/END                               #  YES
011847,000820: 43,2646           30101                           CA       FLAGWRD5                              #  IS R77 RUNNING?
011848,000821: 43,2647           74741                           MASK     R77FLBIT                              
011849,000822: 43,2650           10000                           CCS      A                                     
011850,000823: 43,2651           02120                           TC       ALM/END                               #  YES.
011851,000824: 43,2652           40103                           CS       FLAGWRD7                              #  IS SERVICER RUNNING AND HENCE POSSIBLY
011852,000825: 43,2653           74746                           MASK     V37FLBIT                              #  R12 USING THE LR?
011853,000826: 43,2654           10000                           CCS      A                                     
011854,000827: 43,2655           12662                           TCF      CHECKRR                               #  NO
011855,000828: 43,2656           40107                           CS       FLGWRD11                              #  YES, IS R12 ON?
011856,000829: 43,2657           74735                           MASK     LRBYBIT                               
011857,000830: 43,2660           10000                           CCS      A                                     
011858,000831: 43,2661           02120                           TC       ALM/END                               #  YES
011859,000832: 43,2662           40075        CHECKRR            CS       FLAGWRD1                              #  IS THE TRACK FLAG SET AND HENCE POSSIBLY
011860,000833: 43,2663           74747                           MASK     TRACKBIT                              #  P20 USING THE RR?
011861,000834: 43,2664           10000                           CCS      A                                     
011862,000835: 43,2665           12672                           TCF      CHECKP22                              #  NO, CHECK FOR P22.
011863,000836: 
011864,000837: 43,2666           30074        CKRNDBIT           CA       FLAGWRD0                              #  YES, BUT IS IT P25?
011865,000838: 43,2667           74745                           MASK     RNDVZBIT                              
011866,000839: 43,2670           10000                           CCS      A                                     
011867,000840: 43,2671           02120                           TC       ALM/END                               
011868,000841: 43,2672           41011        CHECKP22           CS       MODREG                                
011869,000842: 43,2673           62677                           AD       DEC22                                 
011870,000843: 43,2674           00006                           EXTEND                                         
011871,000844: 43,2675           12120                           BZF      ALM/END                               
011872,000845: 43,2676           00002                           TC       Q                                     
011873,000846: 
011874,000847: 43,2677           00026        DEC22              DEC      22         B-14                       
011875,000848: 
011876,000849: 43,2700                                           COUNT*   $$/EXTVB                              
011877,000850: 
011878,000851: 43,2700           02123        VB64               TC       CHKPOOH                               #  DEMAND PROGRAM 00.            
011879,000852: 43,2701           02076                           TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
011880,000853: 43,2702           34740                           CAF      PRIO4                                 
011881,000854: 43,2703           05105                           TC       FINDVAC                               
011882,000855: 43,2704  E4,1600                                  EBANK=   ALPHASB                               
011883,000856: 43,2704           03606 64104                     2CADR    SBANDANT                              #  CALC., DISPLAY S-BAND ANTENNA ANGLES.
011884,000857: 
011885,000858: 43,2706           05155                           TC       ENDOFJOB                              
011886,000859: 

Page 281

011888,000861:                                                                                                  #  IMUATTCK      VERB 43         DESCRIPTION
011889,000862:                                                                                                  #        LOAD IMU ATTITUDE ERROR METERS
011890,000863: 
011891,000864:                                                                                                  #        1.      REQUIRE POO OR FRESH START.
011892,000865:                                                                                                  #        2.      REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
011893,000866:                                                                                                  #        3.      REQUIRE THAT NEEDLES BE OFF.
011894,000867:                                                                                                  #        4.      REQUEST LOAD OF N22 (VAUES TO BE DISPLAYED).
011895,000868:                                                                                                  #        5.      ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
011896,000869: 
011897,000870: 43,2707           02123        IMUATTCK           TC       CHKPOOH                               #  VB 76 - LOAD IMU ATT. ERROR METERS
011898,000871: 
011899,000872: 43,2710           34763                           CAF      BITS4&5                               #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
011900,000873: 43,2711           00006                           EXTEND                                         #  CDUS BITS ARE ON
011901,000874: 43,2712           02012                           RAND     CHAN12                                
011902,000875: 43,2713           10000                           CCS      A                                     
011903,000876: 43,2714           12120                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011904,000877: 
011905,000878: 43,2715           34355                           CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
011906,000879: 43,2716           00006                           EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
011907,000880: 43,2717           06031                           RXOR     CHAN31                                
011908,000881: 43,2720           74355                           MASK     BIT13-14                              
011909,000882: 43,2721           00006                           EXTEND                                         
011910,000883: 43,2722           12724                           BZF      +2                                    #  NEEDLES IS OFF.
011911,000884: 43,2723           12120                           TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
011912,000885: 
011913,000886: 43,2724           02076                           TC       TESTXACT                              
011914,000887: 
011915,000888: 43,2725           32225                           CAF      VNLODCDU                              
011916,000889: 43,2726           04616                           TC       BANKCALL                              
011917,000890: 43,2727           20334                           CADR     GOXDSPF                               
011918,000891: 43,2730           05472                           TC       ENDEXT                                #  V34
011919,000892: 43,2731           02732                           TC       +1                                    
011920,000893: 43,2732           32745                           CAF      V43K                                  #  REDISPLAY OUR VERB.
011921,000894: 43,2733           04616                           TC       BANKCALL                              
011922,000895: 43,2734           20620                           CADR     EXDSPRET                              
011923,000896: 43,2735           34746                           CAF      BIT6                                  
011924,000897: 43,2736           00006                           EXTEND                                         
011925,000898: 43,2737           05012                           WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
011926,000899: 43,2740           34752                           CAF      TWO                                   
011927,000900: 43,2741           05203                           TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
011928,000901: 43,2742     0321                                  EBANK=   THETAD                                
011929,000902: 43,2742           02035 64100                     2CADR    ATTCK2                                
011930,000903: 
011931,000904: 43,2744           15472                           TCF      ENDEXT                                
011932,000905: 
011933,000906: 42,2035                                           BANK     42                                    
011934,000907: 42,2000                                           SETLOC   PINBALL3                              #  SOMETHING IN B42.
011935,000908: 42,2000                                           BANK                                           
011936,000909: 
011937,000910: 42,2035                                           COUNT*   $$/EXTVB                              

Page 282

011939,000912: 42,2035           34752        ATTCK2             CAF      TWO                                   #  PUT OUT COMMANDS.
011940,000913: 42,2036           54002                 +1        TS       Q                                     #  CDU WILL LIMIT EXCESS DATA.
011941,000914: 42,2037           50000                           INDEX    A                                     
011942,000915: 42,2040           30321                           CA       THETAD                                
011943,000916: 42,2041           00006                           EXTEND                                         
011944,000917: 42,2042           72053                           MP       ATTSCALE                              
011945,000918: 42,2043           50002                           INDEX    Q                                     
011946,000919: 42,2044           56050                           XCH      CDUXCMD                               
011947,000920: 42,2045           10002                           CCS      Q                                     
011948,000921: 42,2046           12036                           TCF      ATTCK2     +1                         
011949,000922: 
011950,000923: 42,2047           37740                           CAF      13,14,15                              
011951,000924: 42,2050           00006                           EXTEND                                         
011952,000925: 42,2051           05014                           WOR      CHAN14                                
011953,000926: 42,2052           15261                           TCF      TASKOVER                              #  LEAVE ERROR COUNTERS ENABLED.
011954,000927: 
011955,000928: 42,2053           03146        ATTSCALE           DEC      0.1                                   
011956,000929: 
011957,000930: 07,2667                                           BANK     7                                     
011958,000931: 43,2000                                           SETLOC   EXTVERBS                              
011959,000932: 43,2000                                           BANK                                           
011960,000933: 
011961,000934: 43,2745                                           COUNT*   $$/EXTVB                              
011962,000935: 
011963,000936: 43,2745           12600        V43K               VN       4300                                  
011964,000937: 
011965,000938:                                                                                                  #  V82PERF       VERB82          DESCRIPTION
011966,000939:                                                                                                  #        REQUEST ORBIT PARAMETERS DISPLAY (R30)
011967,000940: 
011968,000941:                                                                                                  #        1.      IF AVERAGE G IS OFF:
011969,000942:                                                                                                  #                        FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011970,000943:                                                                                                  #                        TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
011971,000944:                                                                                                  #                        CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011972,000945:                                                                                                  #                        SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011973,000946:                                                                                                  #                        CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011974,000947:                                                                                                  #                        RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011975,000948:                                                                                                  #                        HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011976,000949:                                                                                                  #                        HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
011977,000950:                                                                                                  #                        INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011978,000951:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
011979,000952:                                                                                                  #                        NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011980,000953:                                                                                                  #                        ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011981,000954:                                                                                                  #                        DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011982,000955:                                                                                                  #                        ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011983,000956: 
011984,000957:                                                                                                  #        2.      IF AVERAGE G IS ON:
011985,000958:                                                                                                  #                        CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
011986,000959:                                                                                                  #                        FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
011987,000960:                                                                                                  #                        OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011988,000961:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011989,000962:                                                                                                  #                        IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011990,000963:                                                                                                  #                        RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011991,000964: 

Page 283

011993,000966: 43,2746           02076        V82PERF            TC       TESTXACT                              
011994,000967: 
011995,000968: 43,2747           35021                           CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
011996,000969: 43,2750           05146                           TC       PRIOCHNG                              
011997,000970: 43,2751           00006                           EXTEND                                         
011998,000971: 43,2752           32755                           DCA      V82CON                                
011999,000972: 43,2753           05165                           TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
012000,000973: 
012001,000974: 43,2754  E4,1716                                  EBANK=   HAPO                                  
012002,000975: 43,2754           03242 44104  V82CON             2CADR    V82CALL                               
012003,000976: 
012004,000977:                                                                                                  #  VB83PERF      VERB 83         DESCRIPTION
012005,000978:                                                                                                  #        REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
012006,000979: 
012007,000980:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
012008,000981:                                                                                                  #        2.      SCHEDULE R31CALL WITH PRIORITY 5.
012009,000982:                                                                                                  #                A.      DISPLAY
012010,000983:                                                                                                  #                        R1      RANGE
012011,000984:                                                                                                  #                        R2      RANGE RATE
012012,000985:                                                                                                  #                        R3      THETA
012013,000986: 
012014,000987: 43,2756           02076        V83PERF            TC       TESTXACT                              
012015,000988: 
012016,000989: 43,2757           34752                           CAF      BIT2                                  
012017,000990: 43,2760           05203                           TC       WAITLIST                              
012018,000991: 43,2761  E7,1611                                  EBANK=   TSTRT                                 
012019,000992: 43,2761           03674 60107                     2CADR    R31CALL                               
012020,000993: 
012021,000994: 43,2763           05155                           TC       ENDOFJOB                              
012022,000995: 
012023,000996:                                                                                                  #  VERB 89       DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
012024,000997:                                                                                                  #  
012025,000998:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED.  CALCULATES AND
012026,000999:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
012027,001000: 
012028,001001:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
012029,001002:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
012030,001003: 
012031,001004:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH).  IF IMU ON AND ITS
012032,001005:                                                                                                  #  ORIENTATION KNOWN TO LGC,CONTINUE.
012033,001006: 
012034,001007:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
012035,001008:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
012036,001009:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
012037,001010:                                                                                                  #  AFTER KEYING IN PROCEED.
012038,001011: 
012039,001012:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
012040,001013: 
012041,001014:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND

Page 284

012043,001016:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
012044,001017:                                                                                                  #  PREPARED FOR VECPOINT.
012045,001018: 
012046,001019:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
012047,001020:                                                                                                  #  BALLANGS.  FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
012048,001021: 
012049,001022:                                                                                                  #  7.    RECYCLE - RETURN TO STEP 4.
012050,001023:                                                                                                  #        TERMINATE - EXIT R63.
012051,001024:                                                                                                  #        PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
012052,001025: 
012053,001026: 43,2764           02123        V89PERF            TC       CHKPOOH                               
012054,001027: 43,2765           02076                           TC       TESTXACT                              
012055,001028: 43,2766           34737                           CAF      PRIO10                                
012056,001029: 43,2767           05105                           TC       FINDVAC                               
012057,001030: 43,2770  E4,1606                                  EBANK=   RONE                                  
012058,001031: 43,2770           02022 54104                     2CADR    V89CALL                               
012059,001032: 
012060,001033: 43,2772           05155                           TC       ENDOFJOB                              
012061,001034: 
012062,001035:                                                                                                  #  V90PERF       VERB 90         DESCRIPTION
012063,001036:                                                                                                  #        REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
012064,001037: 
012065,001038:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
012066,001039:                                                                                                  #        2.      SCHEDULE R36 CALL WITH PRIORITY 10
012067,001040:                                                                                                  #                A.      DISPLAY
012068,001041:                                                                                                  #                        TIME OF EVENT - HOURS, MINUTES, SECONDS
012069,001042:                                                                                                  #                        Y       OUT-OF-PLANE POSITION - NAUTICAL MILES
012070,001043:                                                                                                  #                        YDOT    OUT-OF-PLANE VELOCITY - FEET/SECOND
012071,001044:                                                                                                  #                        PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
012072,001045:                                                                                                  #                                DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012073,001046: 
012074,001047: 43,2773           02076        V90PERF            TC       TESTXACT                              
012075,001048: 43,2774           35021                           CAF      PRIO7                                 #  R36,V90
012076,001049: 43,2775           05105                           TC       FINDVAC                               
012077,001050: 43,2776  E4,1606                                  EBANK=   RPASS36                               
012078,001051: 43,2776           02656 10104                     2CADR    R36                                   
012079,001052: 
012080,001053: 43,3000           15155                           TCF      ENDOFJOB                              
012081,001054: 
012082,001055:                                                                                                  #  MINIMP        VERB 76         DESCRIPTION
012083,001056:                                                                                                  #        MINIMUM IMPULSE MODE
012084,001057: 
012085,001058:                                                                                                  #        1.      SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
012086,001059: 
012087,001060: 43,3001           00004        MINIMP             INHINT                                         
012088,001061: 43,3002           40111                           CS       DAPBOOLS                              
012089,001062: 43,3003           74735                           MASK     PULSES                                #  PULSES = 1 INDICATES MIN IMP MODE
012090,001063: 43,3004           26111                           ADS      DAPBOOLS                              
012091,001064: 43,3005           12121                           TCF      GOPIN                                 #  RETURN VIA PINBRNCH
012092,001065: 
012093,001066:                                                                                                  #  NOMINIMP      VERB 77         DESCRIPTION
012094,001067:                                                                                                  #        RATE COMMAND MODE
012095,001068: 

Page 285

012097,001070: 
012098,001071: 
012099,001072:                                                                                                  #        1.      SET MINIMUM IMPULSE RHC MODE FLAG TO 0.  (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
012100,001073:                                                                                                  #        2.      MOVE CDUX, CDUY, CDUZ INTO CDUXD, CDUYD, CDUZD.
012101,001074: 
012102,001075: 
012103,001076: 43,3006           00004        NOMINIMP           INHINT                                         
012104,001077: 43,3007           44735                           CS       PULSES                                
012105,001078: 43,3010           70111                           MASK     DAPBOOLS                              
012106,001079: 43,3011           54111                           TS       DAPBOOLS                              #  PULSES = 0 NOT IN MINIMUM UMPULSE MODE
012107,001080: 43,3012           04674                           TC       IBNKCALL                              
012108,001081: 43,3013           40153                           CADR     ZATTEROR                              
012109,001082: 43,3014           02121                           TC       GOPIN                                 
012110,001083: 

Page 286

012112,001085:                                                                                                  #  CREWMANU      VERB 49         DESCRIPTION
012113,001086:                                                                                                  #        START AUTOMATIC ATTITUDE MANEUVER
012114,001087: 
012115,001088:                                                                                                  #        1.      REQUIRE PROGRAM 00 ACTIVE.
012116,001089:                                                                                                  #        2.      SET EXT VERB DISPLAY BUSY FLAG.
012117,001090:                                                                                                  #        3.      SCHEDULE R62DISP WITH PRIORITY 10.
012118,001091:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY.
012119,001092: 
012120,001093:                                                                                                  #        R62DISP
012121,001094:                                                                                                  #        1.      DISPLAY FLASHING V06,N22.
012122,001095:                                                                                                  #                RESPONSES
012123,001096:                                                                                                  #                A.      TERMINATE
012124,001097:                                                                                                  #                        1. GO TO GOTOPOOH.
012125,001098:                                                                                                  #                B.      PROCEED
012126,001099:                                                                                                  #                        1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
012127,001100:                                                                                                  #                        2.      EXECUTE R60LEM (ATTITUDE MANEUVER).
012128,001101:                                                                                                  #                C.      ENTER
012129,001102:                                                                                                  #                        1.      REPEAT FLASHING V06,N22.
012130,001103: 
012131,001104: 43,3015           02123        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
012132,001105: 
012133,001106: 43,3016           02076                           TC       TESTXACT                              
012134,001107: 
012135,001108: 43,3017           34737                           CAF      PRIO10                                
012136,001109: 43,3020           05105                           TC       FINDVAC                               
012137,001110: 43,3021  E6,1676                                  EBANK=   BCDU                                  
012138,001111: 43,3021           02103 46106                     2CADR    R62DISP                               
012139,001112: 
012140,001113: 43,3023           05155                           TC       ENDOFJOB                              
012141,001114: 

Page 287

012143,001116:                                                                                                  #  TRMTRACK      VERB 56         DESCRIPTION
012144,001117:                                                                                                  #        TERMINATE TRACKING (P20 AND P25).
012145,001118: 
012146,001119:                                                                                                  #        1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
012147,001120:                                                                                                  #        2.      REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
012148,001121:                                                                                                  #        3.      SCHEDULE V56TOVAC WITH PRIORITY 30.
012149,001122: 
012150,001123:                                                                                                  #        V56TOVAC
012151,001124:                                                                                                  #        1.      EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
012152,001125:                                                                                                  #        2.      ZERO GROUP 2 TO HALT P20.
012153,001126:                                                                                                  #        3.      TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
012154,001127: 
012155,001128: 43,3024           33044        TRMTRACK           CA       BITS9+7                               #  IS REND OR P25 FLAG ON
012156,001129: 43,3025           70074                           MASK     FLAGWRD0                              
012157,001130: 43,3026           00006                           EXTEND                                         
012158,001131: 43,3027           12121                           BZF      GOPIN                                 #  NO
012159,001132: 
012160,001133: 43,3030           05516                           TC       DOWNFLAG                              
012161,001134: 43,3031           00010                           ADRES    RNDVZFLG                              
012162,001135: 
012163,001136: 43,3032           05516                           TC       DOWNFLAG                              
012164,001137: 43,3033           00006                           ADRES    P25FLAG                               
012165,001138: 
012166,001139: 43,3034           05516                           TC       DOWNFLAG                              #  ENSURE SEARCH FLAG IS OFF
012167,001140: 43,3035           00037                           ADRES    SRCHOPTN                              
012168,001141: 
012169,001142: 43,3036           34747                           CA       TRACKBIT                              #  IS TRACK FLAG ON?
012170,001143: 43,3037           70075                           MASK     FLAGWRD1                              
012171,001144: 43,3040           00006                           EXTEND                                         
012172,001145: 43,3041           12121                           BZF      GOPIN                                 
012173,001146: 
012174,001147: 43,3042           04635                           TC       POSTJUMP                              
012175,001148: 43,3043           64054                           CADR     TRMTRAK1                              
012176,001149: 
012177,001150: 43,3044           00500        BITS9+7            OCT      500                                   
012178,001151: 
012179,001152: 42,2000                                           SETLOC   SBAND                                 #  BANK 42
012180,001153: 42,2000                                           BANK                                           
012181,001154: 
012182,001155: 42,2054                                           COUNT*   $$/EXTVB                              
012183,001156: 
012184,001157: 42,2054           05516        TRMTRAK1           TC       DOWNFLAG                              
012185,001158: 42,2055           00027                           ADRES    UPDATFLG                              #  UPDATE FLAG DOWN
012186,001159: 42,2056           05516                           TC       DOWNFLAG                              
012187,001160: 42,2057           00031                           ADRES    TRACKFLG                              #  TRACK FLAG DOWN
012188,001161: 42,2060           05516                           TC       DOWNFLAG                              
012189,001162: 42,2061           00007                           ADRES    IMUSE                                 
012190,001163: 
012191,001164: 42,2062           06037                           TC       INTPRET                               
012192,001165: 42,2063           77624                           CALL                                           
012193,001166: 42,2064           27414                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION

Page 288

012195,001168: 42,2065           77776                           EXIT                                           
012196,001169: 
012197,001170: 42,2066           05353                           TC       PHASCHNG                              
012198,001171: 42,2067           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
012199,001172: 
012200,001173: 42,2070           00004                           INHINT                                         
012201,001174: 42,2071           04674                           TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
012202,001175: 42,2072           40165                           CADR     STOPRATE                              #  MANEUVER
012203,001176: 
012204,001177: 42,2073           04674                           TC       IBNKCALL                              
012205,001178: 42,2074           40123                           CADR     RESTORDB                              
012206,001179: 
012207,001180: 42,2075           06011                           TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES.
012208,001181: 
012209,001182: 42,2076           44736                           CS       BIT14                                 #  DISABLE LOCKON
012210,001183: 42,2077           00006                           EXTEND                                         
012211,001184: 42,2100           03012                           WAND     CHAN12                                
012212,001185: 42,2101           04635                           TC       POSTJUMP                              
012213,001186: 42,2102           12770                           CADR     GOPROG2                               #  CAUSE RESTART.
012214,001187: 
012215,001188:                                                                                                  #  DNEDUMP       VERB 74         DESCRIPTION
012216,001189:                                                                                                  #        INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
012217,001190: 
012218,001191:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
012219,001192:                                                                                                  #        2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
012220,001193:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY.
012221,001194: 
012222,001195: 43,2000                                           SETLOC   EXTVERBS                              
012223,001196: 43,2000                                           BANK                                           
012224,001197: 
012225,001198: 43,3045                                           COUNT*   $$/EXTVB                              
012226,001199: 
012227,001200: 43,3045     0400                                  EBANK=   400                                   
012228,001201: 43,3045           33050        DNEDUMP            CAF      LDNDUMPI                              
012229,001202: 43,3046           54335                           TS       DNTMGOTO                              
012230,001203: 43,3047           02121                           TC       GOPIN                                 
012231,001204: 
012232,001205: 43,3050  43,3045               V74                EQUALS   DNEDUMP                               
012233,001206: 43,3050           03707        LDNDUMPI           REMADR   DNDUMPI                               
012234,001207: 
012235,001208:                                                                                                  #  LEMVEC        VERB 80         DESCRIPTION
012236,001209:                                                                                                  #        UPDATE LEM STATE VECTOR
012237,001210:                                                                                                  #                RESET VEHUPFLG TO 0
012238,001211: 
012239,001212: 43,3051           05516        LEMVEC             TC       DOWNFLAG                              
012240,001213: 43,3052           00026                           ADRES    VEHUPFLG                              #  VB 80 - VEHUPFLG DOWN INDICATES LEM
012241,001214: 
012242,001215: 43,3053           03056                           TC       NOUPDOWN                              
012243,001216: 
012244,001217:                                                                                                  #  CSMVEC        VERB 81         DESCRIPTION
012245,001218:                                                                                                  #        UPDATE CSM STATE VECTOR

Page 289

012247,001220:                                                                                                  #                SET VEHUPFLG TO 1
012248,001221: 
012249,001222: 43,3054           05504        CSMVEC             TC       UPFLAG                                
012250,001223: 43,3055           00026                           ADRES    VEHUPFLG                              #  VB 81 - VEHUPFLG UP INDICATES CSM
012251,001224: 
012252,001225: 43,3056           05516        NOUPDOWN           TC       DOWNFLAG                              
012253,001226: 43,3057           00030                           ADRES    NOUPFLAG                              
012254,001227: 
012255,001228: 43,3060           12121                           TCF      GOPIN                                 
012256,001229: 
012257,001230:                                                                                                  #  UPDATOFF      VERB 95         DESCRIPTION
012258,001231:                                                                                                  #        INHIBIT STATE VECTOR UPDATES BY INCORP
012259,001232:                                                                                                  #                SET NOUPFLAG TO 1
012260,001233: 
012261,001234: 43,3061           05504        UPDATOFF           TC       UPFLAG                                #  VB 95 SET NOUPFLAG
012262,001235: 43,3062           00030                           ADRES    NOUPFLAG                              
012263,001236: 
012264,001237: 43,3063           02121                           TC       GOPIN                                 

Page 290

012266,001239:                                                                                                  #  SYSTEST       VERB 92         DESCRIPTION
012267,001240:                                                                                                  #        OPERATE IMU PERFORMANCE TEST.
012268,001241: 
012269,001242:                                                                                                  #        1.      REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
012270,001243:                                                                                                  #        2.      SET EXT VERB BUSY FLAG.
012271,001244: 
012272,001245: 43,3064  E5,1417                                  EBANK=   QPLACE                                
012273,001246: 
012274,001247: 43,3064           02123        SYSTEST            TC       CHKPOOH                               #  DEMAND POO
012275,001248: 
012276,001249: 43,3065           02076                           TC       TESTXACT                              
012277,001250: 
012278,001251: 43,3066           37710                           CAF      PRIO22                                
012279,001252: 43,3067           05105                           TC       FINDVAC                               
012280,001253: 43,3070  E5,1417                                  EBANK=   QPLACE                                
012281,001254: 43,3070  37,2000                                  SBANK=   IMUSUPER                              
012282,001255: 43,3070           02002 76065                     2CADR    REDO                                  
012283,001256: 
012284,001257: 43,3072           05155                           TC       ENDOFJOB                              
012285,001258: 
012286,001259:                                                                                                  #  VERB 93       CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
012287,001260: 
012288,001261: 43,3073           00004        WMATRXNG           INHINT                                         
012289,001262: 43,3074           44753                           CS       RENDWBIT                              
012290,001263: 43,3075           70101                           MASK     FLAGWRD5                              
012291,001264: 43,3076           54101                           TS       FLAGWRD5                              
012292,001265: 
012293,001266: 43,3077           02121                           TC       GOPIN                                 
012294,001267: 
012295,001268: 43,3100  43,3100               GOSHOSUM           EQUALS   SHOWSUM                               
012296,001269: 
012297,001270: 43,3100           02123        SHOWSUM            TC       CHKPOOH                               #  *
012298,001271: 43,3101           02076                           TC       TESTXACT                              #  *
012299,001272: 43,3102           35021                           CAF      PRIO7                                 #  ALLOW OTHER CHARINS.
012300,001273: 43,3103           05146                           TC       PRIOCHNG                              
012301,001274: 43,3104           34753                           CAF      S+1                                   #  *
012302,001275: 43,3105           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
012303,001276: 43,3106           34755                           CAF      S+ZERO                                #  *
012304,001277: 43,3107           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
012305,001278: 43,3110           33245                           CA       SELFADRS                              #  *
012306,001279: 43,3111           55361                           TS       SELFRET                               #  *
012307,001280: 43,3112           03522                           TC       STSHOSUM                              #  * ENTER ROPECHK
012308,001281: 
012309,001282: 43,3113           23372        SDISPLAY           LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
012310,001283: 43,3114           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
012311,001284: 43,3115           33244        NOKILL             CA       ADRS1                                 #  *
012312,001285: 43,3116           54156                           TS       MPAC       +2                         #  *
012313,001286: 43,3117           33130                           CA       VNCON                                 #  * 0501
012314,001287: 43,3120           04616                           TC       BANKCALL                              #  *
012315,001288: 43,3121           20334                           CADR     GOXDSPF                               #  *
012316,001289: 43,3122           03125                           TC       +3                                    #  *
012317,001290: 43,3123           03633                           TC       NXTBNK                                #  *

Page 291

012319,001292: 43,3124           03115                           TC       NOKILL                                #  *
012320,001293: 43,3125           33245                           CA       SELFADRS                              
012321,001294: 43,3126           55371                           TS       SKEEP1                                
012322,001295: 
012323,001296: 43,3127           05472                           TC       ENDEXT                                #  *
012324,001297: 43,3130           01201        VNCON              VN       501                                   #  *
012325,001298: 43,3131           31376        ENDSUMS            CA       SKEEP6                                #  *
012326,001299: 43,3132           00006                           EXTEND                                         #  *
012327,001300: 43,3133           13336                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
012328,001301: 43,3134           03522                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
012329,001302: 

Page 292

012331,001304:                                                                                                  #  DAPDISP       VERB 48         DESCRIPTION
012332,001305:                                                                                                  #        LOAD AUTO PILOT DATA
012333,001306: 
012334,001307:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
012335,001308:                                                                                                  #        2.      EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
012336,001309:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY SYSTEM.
012337,001310: 
012338,001311: 43,3135           02076        DAPDISP            TC       TESTXACT                              
012339,001312: 43,3136           35021                           CAF      PRIO7                                 #  R03
012340,001313: 43,3137           05146                           TC       PRIOCHNG                              
012341,001314: 43,3140           04635                           TC       POSTJUMP                              
012342,001315: 43,3141           40004                           CADR     DAPDATA1                              
012343,001316: 
012344,001317: 34,2000                                           BANK     34                                    
012345,001318: 20,2000                                           SETLOC   LOADDAP                               
012346,001319: 20,2000                                           BANK                                           
012347,001320: 
012348,001321: 20,2004                                           COUNT*   $$/R03                                
012349,001322: 
012350,001323: 20,2004  30,2000                                  SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S.
012351,001324: 
012352,001325: 20,2004           32114        DAPDATA1           CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOLS BITS.
012353,001326: 20,2005           70111                           MASK     DAPBOOLS                              #  LM
012354,001327: 20,2006           55343                           TS       DAPDATR1                              #  LM
012355,001328: 20,2007           40106                           CS       FLGWRD10                              #  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
012356,001329: 20,2010           74737                           MASK     APSFLBIT                              
012357,001330: 20,2011           10000                           CCS      A                                     
012358,001331: 20,2012           34736                           CAF      BIT14                                 
012359,001332: 20,2013           27343                           ADS      DAPDATR1                              
012360,001333: 20,2014           31343        CHKDATA1           CAE      DAPDATR1                              #  IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
012361,001334: 20,2015           74355                           MASK     BIT13-14                              #        A ONE INTO BIT 13.
012362,001335: 20,2016           00006                           EXTEND                                         
012363,001336: 20,2017           12034                           BZF      FORCEONE                              
012364,001337: 20,2020           31343                           CAE      DAPDATR1                              #  ENSURE THAT NO ILLEGAL BITS SET BY CREW.
012365,001338: 20,2021           72113        MSKDATR1           MASK     DSPLYMSK                              
012366,001339: 20,2022           55343                           TS       DAPDATR1                              
012367,001340: 20,2023           32112                           CAF      V01N46                                #  LM
012368,001341: 20,2024           04616                           TC       BANKCALL                              
012369,001342: 20,2025           20353                           CADR     GOXDSPFR                              
012370,001343: 20,2026           15472                           TCF      ENDEXT                                #  V34E TERMINATE
012371,001344: 20,2027           12037                           TCF      DPDAT1                                #  V33E PROCEED
012372,001345: 20,2030           12014                           TCF      CHKDATA1                              #  E     NEW DATA        CHECK AND REDISPLAY
012373,001346: 20,2031           36242                           CAF      REVCNT                                #  BITS 2 & 3:  BLANKS R2 & R3.
012374,001347: 20,2032           05464                           TC       BLANKET                               
012375,001348: 20,2033           15155                           TCF      ENDOFJOB                              
012376,001349: 20,2034           34737        FORCEONE           CAF      BIT13                                 
012377,001350: 20,2035           27343                           ADS      DAPDATR1                              
012378,001351: 20,2036           12021                           TCF      MSKDATR1                              
012379,001352: 
012380,001353: 20,2037           00004        DPDAT1             INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
012381,001354: 20,2040           44737                           CS       APSFLBIT                              #        ON BASIS OF DISPLAYED DAPDATR1.
012382,001355: 20,2041           70106                           MASK     FLGWRD10                              
012383,001356: 20,2042           54001                           TS       L                                     #  SET APSFLAG TO BE COMPLEMENT OF BIT 14.

Page 293

012385,001358: 20,2043           41343                           CS       DAPDATR1                              
012386,001359: 20,2044           74736                           MASK     BIT14                                 
012387,001360: 20,2045           10000                           CCS      A                                     
012388,001361: 20,2046           34737                           CAF      APSFLBIT                              
012389,001362: 20,2047           60001                           AD       L                                     
012390,001363: 20,2050           54106                           TS       FLGWRD10                              
012391,001364: 20,2051           41343                           CS       DAPDATR1                              #  SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
012392,001365: 20,2052           74355                           MASK     BIT13-14                              #        MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
012393,001366: 20,2053           10000                           CCS      A                                     #        13 AND 14 ARE SET.
012394,001367: 20,2054           44737                           CS       CSMDOCKD                              
012395,001368: 20,2055           62114                           AD       BOOLSMSK                              
012396,001369: 20,2056           71343                           MASK     DAPDATR1                              
012397,001370: 20,2057           54001                           TS       L                                     
012398,001371: 20,2060           42114                           CS       BOOLSMSK                              
012399,001372: 20,2061           70111                           MASK     DAPBOOLS                              
012400,001373: 20,2062           60001                           AD       L                                     
012401,001374: 20,2063           54111                           TS       DAPBOOLS                              
012402,001375: 20,2064           74737                           MASK     CSMDOCKD                              #  LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
012403,001376: 20,2065           10000                           CCS      A                                     #        MASS IS USUALLY ALREADY OKAY, SO DO
012404,001377: 20,2066           31332                           CAE      CSMMASS                               #        NOT TOUCH ITS LOW-ORDER PART.
012405,001378: 20,2067           61331                           AD       LEMMASS                               
012406,001379: 20,2070           55244                           TS       MASS                                  
012407,001380: 20,2071           30111                           CAE      DAPBOOLS                              
012408,001381: 20,2072           74741                           MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
012409,001382: 20,2073           00006                           EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
012410,001383: 20,2074           12101                           BZF      +5                                    
012411,001384: 20,2075           44735                           CS       BIT15                                 
012412,001385: 20,2076           70075                           MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
012413,001386: 20,2077           54075                           TS       FLAGWRD1                              
012414,001387: 20,2100           12104                           TCF      +4                                    
012415,001388: 20,2101           40075                           CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
012416,001389: 20,2102           74735                           MASK     BIT15                                 
012417,001390: 20,2103           26075                           ADS      FLAGWRD1                              
012418,001391: 20,2104           30111                           CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
012419,001392: 20,2105           76245                           MASK     THREE                                 #  MANEUVER RATE
012420,001393: 20,2106           60000                           DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
012421,001394: 20,2107           55325                           TS       RATEINDX                              #  ARE DP
012422,001395: 20,2110           04635                           TC       POSTJUMP                              
012423,001396: 20,2111           02206                           CADR     STIKLOAD                              
012424,001397: 
012425,001398: 20,2112           00256        V01N46             VN       0146                                  
012426,001399: 20,2113           33113        DSPLYMSK           OCT      33113                                 
012427,001400: 20,2114           13113        BOOLSMSK           OCT      13113                                 
012428,001401: 
012429,001402: 01,2206                                           BANK     01                                    
012430,001403: 01,2000                                           SETLOC   LOADDAP1                              
012431,001404: 01,2000                                           BANK                                           
012432,001405: 
012433,001406: 01,2206                                           COUNT*   $$/R03                                
012434,001407: 
012435,001408: 01,2206           35015        STIKLOAD           CAF      EBANK6                                

Page 294

012437,001410: 01,2207           54003                           TS       EBANK                                 
012438,001411: 01,2210  E6,1444                                  EBANK=   STIKSENS                              
012439,001412: 01,2210           34745                           CA       RHCSCALE                              #  SET STICK SENSITIVITY TO CORRESPOND TO A
012440,001413: 01,2211           70111                           MASK     DAPBOOLS                              #  MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
012441,001414: 01,2212           10000                           CCS      A                                     #  20 D/S (NORMAL) OR 4 D/S (FINE), SCALED
012442,001415: 01,2213           32337                           CA       NORMAL                                #  AT 45 D/S.
012443,001416: 01,2214           62340                           AD       FINE                                  
012444,001417: 01,2215           55444                           TS       STIKSENS                              
012445,001418: 01,2216           32342                           CA       -0.6D/S                               
012446,001419: 01,2217           55476                           TS       -RATEDB                               #  LM-ONLY BREAKOUT LEVEL IS .6 D/S.
012447,001420: 01,2220           34737                           CA       CSMDOCKD                              #  IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
012448,001421: 01,2221           70111                           MASK     DAPBOOLS                              #  BY 10.  NORMAL SCALING IS THEN 2 D/S AND
012449,001422: 01,2222           00006                           EXTEND                                         #  FINE SCALING IS 0.4 D/S
012450,001423: 01,2223           12232                           BZF      +7                                    #  BRANCH IF CSM IS NOT DOCKED.
012451,001424: 01,2224           31444                           CA       STIKSENS                              
012452,001425: 01,2225           00006                           EXTEND                                         
012453,001426: 01,2226           72341                           MP       1/10                                  
012454,001427: 01,2227           55444                           TS       STIKSENS                              
012455,001428: 01,2230           32343                           CA       -0.3D/S                               #  CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
012456,001429: 01,2231           55476                           TS       -RATEDB                               
012457,001430: 01,2232           00003                           RELINT                                         #  PROCEED TO NOUN 47, MASS LOAD,
012458,001431: 
012459,001432: 01,2233           32334        DAPDATA2           CAF      V0647                                 
012460,001433: 01,2234           04616                           TC       BANKCALL                              
012461,001434: 01,2235           20353                           CADR     GOXDSPFR                              
012462,001435: 01,2236           12244                           TCF      ENDR03                                #  V34E  TERMINATE. FIRST SET DB, DO 1/ACCS
012463,001436: 01,2237           12250                           TCF      DAPDAT2                               #  V33E  PROCEED
012464,001437: 01,2240           12233                           TCF      DAPDATA2                              #        LOAD NEW DATA AND RECYCLE
012465,001438: 01,2241           34751                           CAF      BIT3                                  #  BLANKS R3
012466,001439: 01,2242           05464                           TC       BLANKET                               #                LM
012467,001440: 01,2243           15155                           TCF      ENDOFJOB                              
012468,001441: 01,2244           00004        ENDR03             INHINT                                         
012469,001442: 01,2245           04674                           TC       IBNKCALL                              
012470,001443: 01,2246           40123                           CADR     RESTORDB                              
012471,001444: 01,2247           15472                           TCF      ENDEXT                                #  DOES RELINT
012472,001445: 
012473,001446: 01,2250           40106        DAPDAT2            CS       FLGWRD10                              #  DETERMINE STAGE FROM APSFLAG
012474,001447: 01,2251           74737                           MASK     APSFLBIT                              
012475,001448: 01,2252           10000                           CCS      A                                     
012476,001449: 01,2253           32000                           CA       MINLMD                                
012477,001450: 01,2254           62001                           AD       MINMINLM                              
012478,001451: 01,2255           61331                           AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
012479,001452: 01,2256           00006                           EXTEND                                         
012480,001453: 01,2257           62233                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012481,001454: 01,2260           30111                           CAE      DAPBOOLS                              
012482,001455: 01,2261           74737                           MASK     CSMDOCKD                              
012483,001456: 01,2262           00006                           EXTEND                                         
012484,001457: 01,2263           12271                           BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
012485,001458: 01,2264           44741                           CS       MINCSM                                #  TEST CSM MASS
012486,001459: 01,2265           61332                           AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM

Page 295

012488,001461: 01,2266           00006                           EXTEND                                         
012489,001462: 01,2267           62233                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012490,001463: 01,2270           31332                           CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
012491,001464: 01,2271           61331        LEMALONE           AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
012492,001465: 01,2272           22007                           ZL                                             
012493,001466: 01,2273           53245                           DXCH     MASS                                  
012494,001467: 01,2274           00004                           INHINT                                         
012495,001468: 01,2275           04674                           TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
012496,001469: 01,2276           40123                           CADR     RESTORDB                              #        INERTIA.
012497,001470: 01,2277           00003                           RELINT                                         #  PROCEED TO NOUN 48 (OR END).
012498,001471: 
012499,001472: 01,2300           40106        DAPDATA3           CS       FLGWRD10                              
012500,001473: 01,2301           74737                           MASK     APSFLBIT                              
012501,001474: 01,2302           00006                           EXTEND                                         #  END ROUTINE IF LEM HAS STAGED,
012502,001475: 01,2303           15472                           BZF      ENDEXT                                
012503,001476: 01,2304           32335                           CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
012504,001477: 01,2305           04616                           TC       BANKCALL                              
012505,001478: 01,2306           20353                           CADR     GOXDSPFR                              
012506,001479: 01,2307           05472                           TC       ENDEXT                                
012507,001480: 01,2310           12315                           TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
012508,001481: 01,2311           12304                           TCF      -5                                    #  LOAD NEW DATA AND RECYCLE
012509,001482: 01,2312           34751                           CAF      BIT3                                  
012510,001483: 01,2313           05464                           TC       BLANKET                               #  BLANK R3
012511,001484: 01,2314           15155                           TCF      ENDOFJOB                              
012512,001485: 01,2315           34753        DPDAT3             CAF      BIT1                                  #  GO TO TRIMGIMB VIA WAITLIST SO IT
012513,001486: 01,2316           00004                           INHINT                                         #  CAN USE FIXDELAY AND VARDELAY
012514,001487: 01,2317           05203                           TC       WAITLIST                              
012515,001488: 01,2320  E6,1401                                  EBANK=   ROLLTIME                              
012516,001489: 01,2320           03217 56066                     2CADR    TRIMGIMB                              
012517,001490: 
012518,001491: 01,2322           15155                           TCF      ENDOFJOB                              #  DOES A RELINT
012519,001492: 01,2323           32336        TRIMDONE           CAF      V50N48                                
012520,001493: 01,2324           04616                           TC       BANKCALL                              #  TRIM IS FINISHED; PLEASE TERMINATE R03
012521,001494: 01,2325           20361                           CADR     GOMARK3R                              
012522,001495: 01,2326           05472                           TC       ENDEXT                                #  V34E TERMINATE
012523,001496: 01,2327           05472                           TC       ENDEXT                                
012524,001497: 01,2330           05472                           TC       ENDEXT                                
012525,001498: 01,2331           36007                           CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
012526,001499: 01,2332           05464                           TC       BLANKET                               
012527,001500: 01,2333           15155                           TCF      ENDOFJOB                              
012528,001501: 
012529,001502: 01,2334           01457        V0647              VN       0647                                  
012530,001503: 01,2335           01460        V06N48             VN       0648                                  
012531,001504: 
012532,001505: 01,2336           14460        V50N48             VN       5048                                  
012533,001506: 01,2337           25101        NORMAL             DEC      .660214                               
012534,001507:                                                                                                  #  NORMAL SCALING IS 20 D/S
012535,001508: 01,2340           05220        FINE               DEC      .165054                               #  FINE STICK SCALING (4 D/S).
012536,001509: 01,2341           03146        1/10               DEC      .1                                    #  FACTOR FOR CSM-DOCKED SCALING
012537,001510: 01,2342           77445        -0.6D/S            DEC      -218       B-14                       
012538,001511: 

Page 296

012540,001513: 
012541,001514: 01,2343           77622        -0.3D/S            DEC      -109       B-14                       
012542,001515: 

Page 297

012544,001517:                                                                                                  #  VERB 66.      VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
012545,001518:                                                                                                  #                OTHER VEHICLE STATE VECTOR.
012546,001519: 
012547,001520:                                                                                                  #  USE SUBROUTINE GENTRAN.
012548,001521: 
012549,001522: 07,2667                                           BANK     7                                     
012550,001523: 43,2000                                           SETLOC   EXTVERBS                              
012551,001524: 43,2000                                           BANK                                           
012552,001525: 
012553,001526: 43,3142                                           COUNT*   $$/EXTVB                              
012554,001527: 
012555,001528: 43,3142  E3,1626                                  EBANK=   RRECTHIS                              
012556,001529: 
012557,001530: 43,3142           34737        ATTACHED           CAF      PRIO10                                
012558,001531: 43,3143           05105                           TC       FINDVAC                               
012559,001532: 43,3144  E3,1626                                  EBANK=   RRECTHIS                              
012560,001533: 
012561,001534: 43,3144           03147 66103                     2CADR    ATTACHIT                              
012562,001535: 
012563,001536: 43,3146           05155                           TC       ENDOFJOB                              
012564,001537: 
012565,001538: 43,3147           06037        ATTACHIT           TC       INTPRET                               
012566,001539: 43,3150           77624                           CALL                                           
012567,001540: 43,3151           27414                                    INTSTALL                              
012568,001541: 43,3152           43014                           SET      BON                                   
012569,001542: 43,3153           04063                                    MOONOTH                               
012570,001543: 43,3154           04304                                    MOONTHIS                              
012571,001544: 43,3155           67160                                    +3                                    
012572,001545: 43,3156           77614                           CLEAR                                          
012573,001546: 43,3157           04263                                    MOONOTH                               
012574,001547: 43,3160           77776                           EXIT                                           
012575,001548: 43,3161           33204                           CAF      OCT51                                 
012576,001549: 43,3162           05544                           TC       GENTRAN                               
012577,001550: 43,3163           01626                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
012578,001551: 43,3164           01554                           ADRES    RRECTOTH                              
012579,001552: 
012580,001553: 43,3165           00003                           RELINT                                         
012581,001554: 43,3166           06037                           TC       INTPRET                               
012582,001555: 43,3167           77624                           CALL                                           #  UPDATE R-OTHER, V-OTHER
012583,001556: 43,3170           26760                                    PTOALEM                               
012584,001557: 43,3171           45154                           LXA,2    CALL                                  
012585,001558: 43,3172           02030                                    PBODY                                 
012586,001559: 43,3173           26114                                    SVDWN1                                
012587,001560: 43,3174           77776                           EXIT                                           
012588,001561: 
012589,001562: 43,3175           33205                           CAF      TCPINAD                               
012590,001563: 43,3176           50120                           INDEX    FIXLOC                                
012591,001564: 43,3177           54052                           TS       QPRET                                 
012592,001565: 43,3200           04635                           TC       POSTJUMP                              
012593,001566: 43,3201           27425                           CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
012594,001567: 

Page 298

012596,001569: 
012597,001570: 43,3202           77634        TCPIN              RTB                                            
012598,001571: 43,3203           21050                                    PINBRNCH                              
012599,001572: 
012600,001573: 43,3204           00051        OCT51              OCT      51                                    
012601,001574: 43,3205           67202        TCPINAD            CADR     TCPIN                                 
012602,001575: 
012603,001576:                                                                                                  #  VERB 96       SET QUITFLAG TO STOP INTEGRATION.
012604,001577: 
012605,001578:                                                                                                  #        GO TO V37 WITH ZERO TO CAUSE POO.
012606,001579:                                                                                                  #                STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
012607,001580:                                                                                                  #                        THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
012608,001581: 
012609,001582: 43,3206           05504        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012610,001583: 43,3207           00221                           ADRES    QUITFLAG                              #        AT NEXT TIMESTEP
012611,001584: 
012612,001585: 43,3210           34755                           CAF      ZERO                                  
012613,001586: 43,3211           04635                           TC       POSTJUMP                              
012614,001587: 43,3212           10040                           CADR     V37                                   #  GO TO POO
012615,001588: 
012616,001589:                                                                                                  #  VERB 67:      DISPLAY OF W MATRIX
012617,001590: 
012618,001591: 43,3213           02076        V67                TC       TESTXACT                              
012619,001592: 43,3214           35017                           CAF      PRIO5                                 
012620,001593: 43,3215           05105                           TC       FINDVAC                               
012621,001594: 43,3216  E4,1600                                  EBANK=   WWPOS                                 
012622,001595: 43,3216           02007 62064                     2CADR    V67CALL                               
012623,001596: 
012624,001597: 43,3220           05155                           TC       ENDOFJOB                              
012625,001598: 
012626,001599:                                                                                                  #  VERB 65       DISABLE U,V JETS DURING DPS BURNS
012627,001600: 
012628,001601: 43,3221           05504        SNUFFOUT           TC       UPFLAG                                
012629,001602: 43,3222           00115                           ADRES    SNUFFER                               
012630,001603: 43,3223           02121                           TC       GOPIN                                 
012631,001604: 
012632,001605:                                                                                                  #  VERB 75       ENABLE U,V JETS DURING DPS BURNS
012633,001606: 
012634,001607: 43,3224           05516        OUTSNUFF           TC       DOWNFLAG                              
012635,001608: 43,3225           00115                           ADRES    SNUFFER                               
012636,001609: 43,3226           02121                           TC       GOPIN                                 
012637,001610: 
012638,001611:                                                                                                  #  VERB 85       DISPLAY RR LOS AZIMUTH AND ELEVATION.
012639,001612: 
012640,001613:                                                                                                  #           AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE,
012641,001614:                                                                                                  #  360-270 DEG IN THE -Y HEMISPHERE.
012642,001615:                                                                                                  #  
012643,001616:                                                                                                  #           ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y.
012644,001617: 
012645,001618: 43,3227  E4,1600                                  EBANK=   RR-AZ                                 
012646,001619: 43,3227           02076        VERB85             TC       TESTXACT                              
012647,001620: 

Page 299

012649,001622: 
012650,001623: 43,3230           04635                           TC       POSTJUMP                              
012651,001624: 43,3231           60000                           CADR     DSPRRLOS                              
012652,001625: 
012653,001626: 40,2000                                           SETLOC   PINBALL1                              
012654,001627: 40,2000                                           BANK                                           
012655,001628: 
012656,001629: 40,2000                                           COUNT*   $$/EXTVB                              
012657,001630: 
012658,001631: 40,2000           35017        DSPRRLOS           CAF      PRIO5                                 
012659,001632: 40,2001           05105                           TC       FINDVAC                               
012660,001633: 40,2002  E4,1600                                  EBANK=   RR-AZ                                 
012661,001634: 40,2002           02017 60104                     2CADR    RRLOSDSP                              
012662,001635: 
012663,001636: 40,2004           34740                           CAF      PRIO4                                 
012664,001637: 40,2005           05146                           TC       PRIOCHNG                              
012665,001638: 40,2006           32076                           CAF      V16N56                                
012666,001639: 40,2007           04616                           TC       BANKCALL                              
012667,001640: 40,2010           20353                           CADR     GOMARKFR                              
012668,001641: 40,2011           05563                           TC       B5OFF                                 
012669,001642: 40,2012           05563                           TC       B5OFF                                 
012670,001643: 40,2013           05563                           TC       B5OFF                                 
012671,001644: 
012672,001645: 40,2014           34751                           CAF      BIT3                                  
012673,001646: 40,2015           05464                           TC       BLANKET                               
012674,001647: 40,2016           05155                           TC       ENDOFJOB                              
012675,001648: 
012676,001649: 40,2017           00006        RRLOSDSP           EXTEND                                         
012677,001650: 40,2020           30036                           DCA      CDUT                                  
012678,001651: 40,2021           52155                           DXCH     MPAC                                  
012679,001652: 40,2022           06037                           TC       INTPRET                               
012680,001653: 40,2023           77624                           CALL                                           
012681,001654: 40,2024           46065                                    RRNBMPAC                              #  GET RR LOS IN BODY AXIS.
012682,001655: 40,2025           00001                           STORE    0D                                    #  UNIT LOS
012683,001656: 40,2026           14007                           STODL    6D                                    
012684,001657: 40,2027           06522                                    HI6ZEROS                              
012685,001658: 40,2030           24011                           STOVL    8D                                    
012686,001659: 40,2031           00007                                    6D                                    
012687,001660: 40,2032           77656                           UNIT                                           
012688,001661: 40,2033           00007                           STORE    6D                                    #  UNIT OF LOS PROJ IN X-Z PLANE
012689,001662: 40,2034           77641                           DOT                                            
012690,001663: 40,2035           06514                                    UNITZ                                 
012691,001664: 40,2036           24021                           STOVL    COSTH                                 #  16D
012692,001665: 40,2037           06520                                    UNITX                                 
012693,001666: 40,2040           77641                           DOT                                            
012694,001667: 40,2041           00007                                    6D                                    
012695,001668: 40,2042           34023                           STCALL   SINTH                                 #  18D
012696,001669: 40,2043           47320                                    ARCTRIG                               
012697,001670: 40,2044           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0-360 DEG.
012698,001671: 40,2045           60047                                    +2                                    
012699,001672: 40,2046           06530                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
012700,001673: 

Page 300

012702,001675: 
012703,001676: 40,2047           26203                           STOVL    RR-ELEV                               
012704,001677: 40,2050           00001                                    0D                                    
012705,001678: 40,2051           77641                           DOT                                            
012706,001679: 40,2052           06516                                    UNITY                                 
012707,001680: 40,2053           24023                           STOVL    SINTH                                 
012708,001681: 40,2054           00001                                    0D                                    
012709,001682: 40,2055           77641                           DOT                                            
012710,001683: 40,2056           00007                                    6D                                    
012711,001684: 40,2057           34021                           STCALL   COSTH                                 
012712,001685: 40,2060           47320                                    ARCTRIG                               
012713,001686: 40,2061           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0-360 DEG.
012714,001687: 40,2062           60064                                    +2                                    
012715,001688: 40,2063           06530                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
012716,001689: 40,2064           02201                           STORE    RR-AZ                                 
012717,001690: 40,2065           77776                           EXIT                                           
012718,001691: 40,2066           34777                           CA       1SEC                                  
012719,001692: 40,2067           04616                           TC       BANKCALL                              
012720,001693: 40,2070           01735                           CADR     DELAYJOB                              
012721,001694: 
012722,001695: 40,2071           34747                           CA       BIT5                                  
012723,001696: 40,2072           71044                           MASK     EXTVBACT                              
012724,001697: 40,2073           10000                           CCS      A                                     
012725,001698: 40,2074           02017                           TC       RRLOSDSP                              
012726,001699: 40,2075           05472                           TC       ENDEXT                                
012727,001700: 
012728,001701: 40,2076           04070        V16N56             VN       1656                                  
012729,001702: 

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