Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

011947,000002:                                                                                                  ## Copyright:   Public domain.
011948,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
011949,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
011950,000005:                                                                                                  ##              It is part of the source code for the original release
011951,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
011952,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
011953,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
011954,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
011955,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
011956,000011:                                                                                                  ##              that the code format has been changed to conform to the
011957,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
011958,000013:                                                                                                  ##              original YUL assembler.
011959,000014:                                                                                                  ## Reference:   pp. 277-315
011960,000015:                                                                                                  ## Assembler:   yaYUL
011961,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
011962,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
011963,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
011964,000019:                                                                                                  ##              2017-01-11 HG   Transcribed
011965,000020:                                                                                                  ##              2017-01-23 HG   Remove SBANK= Workaround. Not needed in this version
011966,000021:                                                                                                  ##              2017-01-25 RSB  Proofed comment text using octopus/prooferComments
011967,000022:                                                                                                  ##                              and fixed errors found.
011968,000023:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
011969,000024:                                                                                                  ##                              Luminary 99 vs Comanche 55.
011970,000025: 

Page 277

011972,000027: 07,2667                                           BANK     7                                     
011973,000028: 43,2000                                           SETLOC   EXTVERBS                              
011974,000029: 43,2000                                           BANK                                           
011975,000030: 
011976,000031: 43,2000  E5,1737                                  EBANK=   OGC                                   
011977,000032: 
011978,000033: 43,2000                                           COUNT*   $$/EXTVB                              
011979,000034:                                                                                                  #  FAN-OUT
011980,000035: 
011981,000036: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
011982,000037: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
011983,000038: 
011984,000039: 43,2002           02130        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
011985,000040: 43,2003           02171                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011986,000041:                                                                                                  #                                  72 ONLY)
011987,000042: 43,2004           02340                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
011988,000043: 43,2005           02717                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
011989,000044: 43,2006           02302                           TC       RRDESEND                              #  VB44 TERMINATE CONTINUOUS DESIGNATE
011990,000045: 43,2007           02120                           TC       ALM/END                               #  VB45 SPARE
011991,000046: 43,2010           02120                           TC       ALM/END                               #  VB46 SPARE
011992,000047: 43,2011           02377                           TC       V47TXACT                              #  VB47 AGS INITIALIZATION
011993,000048: 43,2012           03143                           TC       DAPDISP                               #  VB48  LOAD A/P DATA
011994,000049: 43,2013           13025                           TCF      CREWMANU                              #  VB49 START AUTOMATIC ATTITUDE MANEUVER
011995,000050: 43,2014           02371                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
011996,000051: 43,2015           02120                           TC       ALM/END                               #  VB51 SPARE
011997,000052: 43,2016           02371                           TC       GOLOADLV                              #  VB52 PLEASE MARK X - RETICLE.
011998,000053: 43,2017           02371                           TC       GOLOADLV                              #  VB53 PLEASE MARK Y - RETICLE.
011999,000054: 43,2020           02371                           TC       GOLOADLV                              #  VB54 PLEASE MARK X OR Y - RETICLE
012000,000055: 43,2021           02411                           TC       ALINTIME                              #  VB55 ALIGN TIME
012001,000056: 43,2022           03034                           TC       TRMTRACK                              #  VB56 TERMINATE TRACKING - P20 + P25
012002,000057: 43,2023           02322                           TC       LRON                                  #  VB57 PERMIT  LANDING RADAR UPDATES
012003,000058: 43,2024           02325                           TC       LROFF                                 #  VB58 INHIBIT LANDING RADAR UPDATES
012004,000059: 43,2025           02120                           TC       ALM/END                               #  VB59 SPARE
012005,000060: 43,2026           02151                           TC       LRPOS2K                               #  VB60 COMMAND LR TO POSITION 2.
012006,000061: 43,2027           02163                           TC       DAPATTER                              #  VB61 DISPLAY DAP ATTITUDE ERROR
012007,000062: 43,2030           02166                           TC       TOTATTER                              #  VB62 DISPLAY TOTAL ATTITUDE ERROR
012008,000063: 43,2031           02424                           TC       R04                                   #  VB63 SAMPLE RADAR ONCE PER SECOND
012009,000064: 43,2032           02710                           TC       VB64                                  #  VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
012010,000065: 43,2033           03227                           TC       SNUFFOUT                              #  VB65 DISABLE U,V JETS DURING DPS BURNS.
012011,000066: 43,2034           03150                           TC       ATTACHED                              #  VB66 ATTACHED   MOVE THIS TO OTHER STATE
012012,000067: 43,2035           03221                           TC       V67                                   #  VB67 W MATRIX MONITOR
012013,000068: 43,2036           02330                           TC       P64NOW                                #  VB68 START P64 IMMEDIATELY.
012014,000069: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 FORCE A HARDWARE RESTART
012015,000070: 43,2040           03732                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
012016,000071: 43,2041           03734                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
012017,000072: 43,2042           03736                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
012018,000073: 43,2043           03740                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
012019,000074: 43,2044           03053                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
012020,000075:                                                                                                  #         FOR ERASABLE DUMP.
012021,000076: 43,2045           03232                           TC       OUTSNUFF                              #  VB75 ENABLE U,V JETS DURING DPS BURNS.
012022,000077: 

Page 278

012024,000079: 43,2046           03011                           TC       MINIMP                                #  VB76 MINIMUM IMPULSE MODE
012025,000080: 43,2047           03016                           TC       NOMINIMP                              #  VB77 RATE COMMAND MODE
012026,000081: 43,2050           02414                           TC       R77                                   #  VB78 START LR SPURIOUS RETURN TEST
012027,000082: 43,2051           02627                           TC       R77END                                #  VB79 TERMINATE LR SPURIOUS RETURN TEST
012028,000083: 43,2052           03057                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
012029,000084: 43,2053           03062                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
012030,000085: 43,2054           02756                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
012031,000086: 43,2055           02766                           TC       V83PERF                               #  VB83 REQUEST REND PARAM DISPLAY (R31)
012032,000087: 43,2056           02120                           TC       ALM/END                               #  VB84 SPARE
012033,000088: 43,2057           03235                           TC       VERB85                                #  VB85 DISPLAY RR LOS AZ AND ELEV
012034,000089: 43,2060           02120                           TC       ALM/END                               #  VB86 SPARE
012035,000090: 43,2061           02120                           TC       ALM/END                               #  VB87 SPARE
012036,000091: 43,2062           02120                           TC       ALM/END                               #  VB88 SPARE
012037,000092: 43,2063           02774                           TC       V89PERF                               #  VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
012038,000093: 43,2064           03003                           TC       V90PERF                               #  VB90 OUT OF PLANE RENDEZVOUS DISPLAY
012039,000094: 43,2065           03106                           TC       GOSHOSUM                              #  VB91 DISPLAY BANK SUM.
012040,000095: 43,2066           03072                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST.
012041,000096: 43,2067           03101                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
012042,000097: 43,2070           02120                           TC       ALM/END                               #  VB94 SPARE
012043,000098: 43,2071           03067                           TC       UPDATOFF                              #  VB95 NO STATE VECTOR UPDATE ALLOWED
012044,000099: 43,2072           03214                           TC       VERB96                                #  VB96 INTERRUPT INTEGRATION AND GO TO POO
012045,000100: 43,2073           02371                           TC       GOLOADLV                              #  VB97 PLEASE VERIFY ENGINE FAILURE
012046,000101: 43,2074           02120                           TC       ALM/END                               #  VB98 SPARE
012047,000102: 43,2075           02371                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
012048,000103: 
012049,000104:                                                                                                  #  END OF EXTENDED VERB FAN
012050,000105: 
012051,000106: 43,2076           11044        TESTXACT           CCS      EXTVBACT                              #  ARE EXTENDED VERBS BUSY
012052,000107: 43,2077           02120                           TC       ALM/END                               #  YES, TURN ON OPERATOR LIGHT
012053,000108: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIORITY DISPLAYS USING DSKY
012054,000109: 43,2101           72127                           MASK     OC24100                               
012055,000110: 43,2102           10000                           CCS      A                                     
012056,000111: 43,2103           02120                           TC       ALM/END                               #  YES
012057,000112: 43,2104           36007                           CAF      OCT24                                 #  SET BITS 3 AND 5
012058,000113: 43,2105           55044        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
012059,000114:                                                                                                  #  SYSTEM BUSY
012060,000115: 
012061,000116: 43,2106           30002                           CA       Q                                     
012062,000117: 43,2107           54155                           TS       MPAC       +1                         
012063,000118: 
012064,000119: 43,2110           44752                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
012065,000120: 43,2111           04154                           TC       NVSUB                                 
012066,000121: 43,2112           02113                           TC       +1                                    
012067,000122: 43,2113           00155                           TC       MPAC       +1                         
012068,000123: 
012069,000124: 43,2114           04364        XACTALM            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT.
012070,000125: 43,2115           05472                           TC       ENDEXT                                #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
012071,000126: 
012072,000127: 43,2116     5472               TERMEXTV           EQUALS   ENDEXT                                
012073,000128: 

Page 279

012075,000130: 43,2116     5472               ENDEXTVB           EQUALS   ENDEXT                                
012076,000131: 
012077,000132: 43,2116           34755        XACT0              CAF      ZERO                                  #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
012078,000133: 43,2117           02105                           TC       SETXTACT                              
012079,000134: 
012080,000135: 43,2120           04364        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
012081,000136: 43,2121           04635        GOPIN              TC       POSTJUMP                              
012082,000137: 43,2122           20723                           CADR     PINBRNCH                              
012083,000138: 
012084,000139: 43,2123           31011        CHKPOOH            CA       MODREG                                #  CHECK FOR POO OR POO-.
012085,000140: 43,2124           00006                           EXTEND                                         
012086,000141: 43,2125           16741                           BZF      TCQ                                   
012087,000142: 43,2126           02120                           TC       ALM/END                               
012088,000143: 
012089,000144: 43,2127           24100        OC24100            OCT      24100                                 
012090,000145: 

Page 280

012092,000147:                                                                                                  #           VBZERO       VERB 40            DESCRIPTION
012093,000148: 
012094,000149:                                                                                                  #               1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
012095,000150:                                                                                                  #              2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
012096,000151:                                                                                                  #                 FOR N72, CHECK IF EITHER RADAR IS IN USE.
012097,000152:                                                                                                  #               3. EXECUTE THE CDU ZERO.
012098,000153:                                                                                                  #               4. STALL UNTILL THE ZERO IS DONE.
012099,000154:                                                                                                  #               5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
012100,000155:                                                                                                  #               6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
012101,000156: 
012102,000157: 43,2130           02174        VBZERO             TC       OP/INERT                              
012103,000158: 43,2131           02133                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
012104,000159: 43,2132           02142                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(72)
012105,000160: 43,2133           02405        IMUZEROK           TC       CKMODCAD                              
012106,000161: 43,2134           04616                           TC       BANKCALL                              #  KEYBOARD REQ FOR ISS CDUZERO
012107,000162: 43,2135           16667                           CADR     IMUZERO                               
012108,000163: 
012109,000164: 43,2136           04616                           TC       BANKCALL                              #  STALL
012110,000165: 43,2137           17671                           CADR     IMUSTALL                              
012111,000166: 43,2140           02141                           TC       +1                                    
012112,000167: 
012113,000168: 43,2141           02121                           TC       GOPIN                                 #  IMUZERO
012114,000169: 
012115,000170: 43,2142           02652        RRZEROK            TC       RDRUSECK                              
012116,000171: 43,2143           04616                           TC       BANKCALL                              
012117,000172: 43,2144           52343                           CADR     RRZERO                                
012118,000173: 
012119,000174: 43,2145           04616        RWAITK             TC       BANKCALL                              
012120,000175: 43,2146           17667                           CADR     RADSTALL                              
012121,000176: 43,2147           12150                           TCF      +1                                    
012122,000177: 43,2150           02121                           TC       GOPIN                                 #  RRZERO
012123,000178: 
012124,000179:                                                                                                  #           LRPOS2K     VERB 60             DESCRIPTION
012125,000180:                                                                                                  #               COMMAND LANDING RADAR TO POSITION 2
012126,000181:                                                                                                  #              1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
012127,000182:                                                                                                  #               2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
012128,000183:                                                                                                  #                  THE PRESCRIBED TIME.
012129,000184:                                                                                                  #               3. RE-ESTABLISH THE DISPLAYS.
012130,000185: 
012131,000186: 43,2151           02652        LRPOS2K            TC       RDRUSECK                              
012132,000187: 43,2152           04616                           TC       BANKCALL                              #  COMMAND LR TO POSITION 2
012133,000188: 43,2153           53471                           CADR     LRPOS2                                
012134,000189: 43,2154           04616                           TC       BANKCALL                              
012135,000190: 43,2155           17667                           CADR     RADSTALL                              
012136,000191: 43,2156           02160                           TC       LRP2ALM                               
012137,000192: 43,2157           02121                           TC       GOPIN                                 
012138,000193: 
012139,000194: 43,2160           05567        LRP2ALM            TC       ALARM                                 
012140,000195: 43,2161           00523                           OCT      523                                   
012141,000196: 43,2162           02121                           TC       GOPIN                                 
012142,000197: 

Page 281

012144,000199: 
012145,000200:                                                                                                  #  V61      VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012146,000201: 
012147,000202: 43,2163           05516        DAPATTER           TC       DOWNFLAG                              
012148,000203: 43,2164           00013                           ADRES    NEEDLFLG                              
012149,000204: 43,2165           02121                           TC       GOPIN                                 
012150,000205: 
012151,000206:                                                                                                  #  V62      VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012152,000207: 
012153,000208: 43,2166           05504        TOTATTER           TC       UPFLAG                                
012154,000209: 43,2167           00013                           ADRES    NEEDLFLG                              
012155,000210: 43,2170           02121                           TC       GOPIN                                 
012156,000211: 

Page 282

012158,000213:                                                                                                  #           VBCOARK      VERB 41            DESCRIPTION
012159,000214:                                                                                                  #               COARSE ALIGN IMU OR RADAR
012160,000215:                                                                                                  #              1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
012161,000216:                                                                                                  #               2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
012162,000217:                                                                                                  #               CASE 1     NOUN 20     (ICDU ANGLES)
012163,000218:                                                                                                  #               3. SET EXT VERB DISPLAY ACTIVE FLAG.
012164,000219:                                                                                                  #               4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
012165,000220:                                                                                                  #                  RESPONSES
012166,000221:                                                                                                  #                    A. TERMINATE
012167,000222:                                                                                                  #                       1. RELEASE EXT VERB DISPLAY SYSTEM
012168,000223:                                                                                                  #                    B. PROCEED
012169,000224:                                                                                                  #                      1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
012170,000225:                                                                                                  #                    C. ENTER
012171,000226:                                                                                                  #                      1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
012172,000227:                                                                                                  #               ICORK2
012173,000228:                                                                                                  #                  1. RE-DISPLAY VERB 41.
012174,000229:                                                                                                  #                  2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
012175,000230:                                                                                                  #                  3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
012176,000231:                                                                                                  #                  4. RELEASE EXT VERB DISPLAY SYSTEM.
012177,000232:                                                                                                  #               CASE 2     NOUN 72     (RCDU ANGLES)
012178,000233:                                                                                                  #                 EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
012179,000234:                                                                                                  #               5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
012180,000235:                                                                                                  #                  RESPONSES
012181,000236:                                                                                                  #                  A. TERMINATE
012182,000237:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYS.
012183,000238:                                                                                                  #                  B. PROCEED OR ENTER
012184,000239:                                                                                                  #                     1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
012185,000240:                                                                                                  #                     2. RE-DISPLAY VERB 41.
012186,000241:                                                                                                  #                     3. SCHEDULE RRDESK2 WITH PRIORITY 20.
012187,000242:                                                                                                  #                     4. RELEASE EXT VERB DISPLAY SYS.
012188,000243: 
012189,000244:                                                                                                  #                  AURLOKON
012190,000245: 
012191,000246:                                                                                                  #                 1. FLASH V04 N12 R1 = 00006 R2 = 00002
012192,000247:                                                                                                  #                     RESPONSES
012193,000248:                                                                                                  #                     A. TERMINATE
012194,000249:                                                                                                  #                     B. PROCEED
012195,000250:                                                                                                  #                       1. RESET LOCK-ON SWITCH
012196,000251:                                                                                                  #                       2. SET CONTINUOUS DESIGNATE FLAG
012197,000252:                                                                                                  #                       3. DISABLE R25
012198,000253:                                                                                                  #                    C. V22 E 1 E, R1 = 00001, PROCEED
012199,000254:                                                                                                  #                       1. SET LOCK-ON SWITCH
012200,000255: 43,2171           02174        VBCOARK            TC       OP/INERT                              
012201,000256: 43,2172           02205                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
012202,000257: 43,2173           02227                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (72)
012203,000258:                                                                                                  #           RETURNS TO L+1 IF IMU OR L+2 IF RR.
012204,000259: 
012205,000260: 43,2174           46007        OP/INERT           CS       OCT24                                 
012206,000261: 43,2175           61002                           AD       NOUNREG                               
012207,000262: 43,2176           00006                           EXTEND                                         
012208,000263: 

Page 283

012210,000265: 43,2177           16741                           BZF      TCQ                                   #  IF = 20.
012211,000266: 
012212,000267: 43,2200           62204                           AD       RRIMUDIF                              #  -52
012213,000268: 43,2201           00006                           EXTEND                                         
012214,000269: 43,2202           16736                           BZF      Q+1                                   
012215,000270: 
012216,000271: 43,2203           02120                           TC       ALM/END                               #  ILLEGAL.
012217,000272: 
012218,000273: 43,2204           77713        RRIMUDIF           DEC      -52        B-14                       #  THE IMU
012219,000274: 43,2205           02405        IMUCOARK           TC       CKMODCAD                              
012220,000275: 43,2206           02076                           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
012221,000276: 43,2207           32225                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
012222,000277: 43,2210           04616                           TC       BANKCALL                              
012223,000278: 43,2211           20212                           CADR     GOXDSPF                               
012224,000279: 43,2212           05472                           TC       TERMEXTV                              
012225,000280: 43,2213           12214                           TCF      +1                                    
012226,000281: 
012227,000282: 43,2214           32226        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
012228,000283: 43,2215           04616                           TC       BANKCALL                              
012229,000284: 43,2216           20473                           CADR     EXDSPRET                              
012230,000285: 
012231,000286: 43,2217           04616                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
012232,000287: 43,2220           16753                           CADR     IMUCOARS                              
012233,000288: 
012234,000289: 43,2221           04616                           TC       BANKCALL                              #  STALL
012235,000290: 43,2222           17671                           CADR     IMUSTALL                              
012236,000291: 43,2223           05472                           TC       ENDEXTVB                              
012237,000292: 43,2224           05472                           TC       ENDEXTVB                              
012238,000293: 
012239,000294: 43,2225           06226        VNLODCDU           VN       2522                                  
012240,000295: 43,2226           12200        IMUCOARV           VN       4100                                  
012241,000296: 

Page 284

012243,000298:                                                                                                  #           DESIGNATE TO DESIRED GIMBAL ANGLES.
012244,000299: 
012245,000300: 43,2227           02652        RRDESNBK           TC       RDRUSECK                              
012246,000301: 43,2230           02076                           TC       TESTXACT                              
012247,000302: 43,2231           34745                           CA       RNDVZBIT                              #  IS P20 RUNNING?
012248,000303: 43,2232           70074                           MASK     FLAGWRD0                              
012249,000304: 43,2233           10000                           CCS      A                                     
012250,000305: 43,2234           12114                           TCF      XACTALM                               #  OPERATOR ERROR IF IN P20
012251,000306: 43,2235           42321                           CS       OCT41000                              #  TERMINATE PRESENT DESIGNATION
012252,000307: 43,2236           00004                           INHINT                                         #  RELINT DONE IN GOXDSPF
012253,000308: 43,2237           70110                           MASK     RADMODES                              
012254,000309: 43,2240           54110                           TS       RADMODES                              
012255,000310: 
012256,000311: 43,2241           32260                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
012257,000312: 43,2242           04616                           TC       BANKCALL                              
012258,000313: 43,2243           20212                           CADR     GOXDSPF                               
012259,000314: 43,2244           05472                           TC       TERMEXTV                              
012260,000315: 43,2245           12241                           TCF      -4                                    #  V33
012261,000316: 
012262,000317: 43,2246           04616                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
012263,000318: 43,2247           46000                           CADR     AURLOKON                              
012264,000319: 
012265,000320: 43,2250           32226                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
012266,000321: 43,2251           04616                           TC       BANKCALL                              
012267,000322: 43,2252           20473                           CADR     EXDSPRET                              
012268,000323: 
012269,000324: 43,2253           34736                           CAF      PRIO20                                
012270,000325: 43,2254           05105                           TC       FINDVAC                               
012271,000326: 43,2255  E7,1454                                  EBANK=   LOSCOUNT                              
012272,000327: 43,2255           02261 66107                     2CADR    RRDESK2                               
012273,000328: 
012274,000329: 43,2257           15472                           TCF      TERMEXTV                              #  FREES DISPLAY.
012275,000330: 
012276,000331: 43,2260           06111        VNLDRCDU           VN       2473                                  
012277,000332: 43,2261  43,2226               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
012278,000333: 
012279,000334: 43,2261           04616        RRDESK2            TC       BANKCALL                              
012280,000335: 43,2262           52475                           CADR     RRDESNB                               
012281,000336: 
012282,000337: 43,2263           02264                           TC       +1                                    #  DUMMY NEEDED SINCE DESRETRN DOES INCR
012283,000338: 43,2264           30167                           CA       PRIORITY                              
012284,000339: 43,2265           75004                           MASK     LOW9                                  
012285,000340: 43,2266           10000                           CCS      A                                     
012286,000341: 43,2267           50000                           INDEX    A                                     
012287,000342: 43,2270           54000                           TS       A                                     #  RELEASE THIS JOBS VAC AREA.
012288,000343: 43,2271           40000                           COM                                            #  INSURE ENDOFJOB DOES A NOVAC END (BZMF).
012289,000344: 43,2272           26167                           ADS      PRIORITY                              
012290,000345: 43,2273           04616                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF DESIGNATE
012291,000346: 43,2274           17667                           CADR     RADSTALL                              
012292,000347: 

Page 285

012294,000349: 43,2275           02277                           TC       +2                                    #  BADEND-NO LOCKON OR OUT OF LIMITS
012295,000350: 43,2276           05155                           TC       ENDOFJOB                              #  GOODEND-LOCKON ACHIEVED
012296,000351: 43,2277           05567                           TC       ALARM                                 
012297,000352: 43,2300           00503                           OCT      503                                   #  TURN ON ALARM LIGHT -503 DESIGNATE FAIL
012298,000353: 43,2301           05155                           TC       ENDOFJOB                              
012299,000354: 
012300,000355: 43,2302           10110        RRDESEND           CCS      RADMODES                              #  TERMINATE CONTINUOUS DESIGNATE ONLY
012301,000356: 43,2303           12121                           TCF      GOPIN                                 
012302,000357: 43,2304           12121                           TCF      GOPIN                                 
012303,000358: 43,2305           12306                           TCF      +1                                    
012304,000359: 43,2306           42321                           CS       OCT41000                              #  BEGDES GOES TO ENDRADAR
012305,000360: 43,2307           00004                           INHINT                                         #  RELINT DONE IN DOWNFLAG
012306,000361: 43,2310           70110                           MASK     RADMODES                              
012307,000362: 43,2311           54110                           TS       RADMODES                              
012308,000363: 43,2312           06011                           TC       CLRADMOD                              
012309,000364: 43,2313           34777                           CAF      1SEC                                  
012310,000365: 43,2314           04616                           TC       BANKCALL                              
012311,000366: 43,2315           01735                           CADR     DELAYJOB                              
012312,000367: 43,2316           05516                           TC       DOWNFLAG                              #  ENABLE R25 GIMBAL MONITOR
012313,000368: 43,2317           00126                           ADRES    NORRMON                               
012314,000369: 43,2320           12121                           TCF      GOPIN                                 
012315,000370: 43,2321           41000        OCT41000           OCT      41000                                 #  CONTINUOUS DESIGNATE - DESIGNATE
012316,000371: 

Page 286

012318,000373: 23,2000                                           BANK     23                                    
012319,000374: 23,2000                                           SETLOC   EXTVB1                                
012320,000375: 23,2000                                           BANK                                           
012321,000376: 23,2000                                           COUNT*   $$/EXTVB                              
012322,000377: 
012323,000378: 23,2000           04645        AURLOKON           TC       MAKECADR                              
012324,000379: 23,2001           55113                           TS       DESRET                                
012325,000380: 23,2002           34752                           CAF      TWO                                   
012326,000381: 23,2003           55052                           TS       OPTIONX    +1                         
012327,000382: 23,2004           36241                           CAF      SIX                                   #  OPTION CODE FOR V04N12
012328,000383: 23,2005           55051                           TS       OPTIONX                               
012329,000384: 
012330,000385: 23,2006           32037                 -5        CAF      V04N1272                              
012331,000386: 23,2007           04616                           TC       BANKCALL                              #       R2   00001  LOCK-ON
012332,000387: 23,2010           20231                           CADR     GOMARKFR                              
012333,000388: 23,2011           15472                           TCF      ENDEXT                                #  V34
012334,000389: 23,2012           12017                           TCF      +5                                    #  V33
012335,000390: 23,2013           12006                           TCF      -5                                    #  V32
012336,000391: 23,2014           34751                           CAF      BIT3                                  
012337,000392: 23,2015           05464                           TC       BLANKET                               
012338,000393: 23,2016           05155                           TC       ENDOFJOB                              
012339,000394: 
012340,000395: 23,2017           31052                 +5        CA       OPTIONX    +1                         
012341,000396: 23,2020           74752                           MASK     BIT2                                  
012342,000397: 23,2021           10000                           CCS      A                                     
012343,000398: 23,2022           12026                           TCF      NOLOKON                               
012344,000399: 23,2023           05504                           TC       UPFLAG                                
012345,000400: 23,2024           00012                           ADRES    LOKONSW                               
012346,000401: 23,2025           12034                           TCF      AURLKON1                              
012347,000402: 
012348,000403: 23,2026           05516        NOLOKON            TC       DOWNFLAG                              #  IF NO LOCK-ON, SET BIT15 OF RADMODES TO
012349,000404: 23,2027           00012                           ADRES    LOKONSW                               #  INDICATE THAT CONTINUOUS DESIGNATION IS
012350,000405: 23,2030           05504                           TC       UPFLAG                                #  WANTED (TO BE TERMINATED BY V44.)
012351,000406: 23,2031           00264                           ADRES    CDESFLAG                              
012352,000407: 23,2032           05504                           TC       UPFLAG                                #  SET NO RR ANGLE MONITOR FLAG.
012353,000408: 23,2033           00126                           ADRES    NORRMON                               #  (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
012354,000409: 23,2034           00003        AURLKON1           RELINT                                         
012355,000410: 23,2035           31113                           CA       DESRET                                
012356,000411: 23,2036           14640                           TCF      BANKJUMP                              
012357,000412: 
012358,000413: 
012359,000414: 23,2037           01014        V04N1272           VN       412                                   
012360,000415: 23,2040           77757        -LOKONFG           OCT      -20                                   
012361,000416: 
012362,000417: 43,2322                                           BANK     43                                    
012363,000418: 43,2000                                           SETLOC   EXTVERBS                              
012364,000419: 43,2000                                           BANK                                           
012365,000420: 43,2322                                           COUNT*   $$/EXTVB                              
012366,000421: 
012367,000422: 43,2322           05504        LRON               TC       UPFLAG                                #  PERMIT  INCORPORATION OF LR DATA     V57
012368,000423: 

Page 287

012370,000425: 43,2323           00254                           ADRES    LRINH                                 
012371,000426: 43,2324           12121                           TCF      GOPIN                                 
012372,000427: 
012373,000428: 43,2325           05516        LROFF              TC       DOWNFLAG                              #  INHIBIT INCORPORATION OF LR DATA      V58
012374,000429: 43,2326           00254                           ADRES    LRINH                                 
012375,000430: 43,2327           12121                           TCF      GOPIN                                 
012376,000431: 
012377,000432: 
012378,000433:                                                                                                  #  THIS EXTENDED VERB CAUSES P63 TO SWITCH INTO P64.
012379,000434: 
012380,000435: 
012381,000436: 43,2330  E7,1425                                  EBANK=   TENDBRAK                              
012382,000437: 43,2330           05321        P64NOW             TC       CHECKMM                               #  ARE WE CURRENTLY IN P63?
012383,000438: 43,2331           00077                           DEC      63         B-14                       
012384,000439: 43,2332           12120                           TCF      ALM/END                               #  NO   LIGHT OPERATOR ERROR LIGHT.
012385,000440: 43,2333           35016                           CAF      EBANK7                                
012386,000441: 43,2334           54003                           TS       EBANK                                 
012387,000442: 43,2335           34733                           CAF      POSMAX                                
012388,000443: 43,2336           55425                           TS       TENDBRAK                              
012389,000444: 43,2337           12121                           TCF      GOPIN                                 
012390,000445: 
012391,000446: 43,2340  E5,1737                                  EBANK=   OGC                                   
012392,000447: 

Page 288

012394,000449:                                                                                                  #           IMUFINEK     VERB 42            DESCRIPTION
012395,000450:                                                                                                  #               FINE ALIGN IMU
012396,000451:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
012397,000452:                                                                                                  #               2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
012398,000453:                                                                                                  #                  RESPONSES
012399,000454:                                                                                                  #                  A. TERMINATE
012400,000455:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYSTEM.
012401,000456:                                                                                                  #                  B. PROCEED OR ENTER
012402,000457:                                                                                                  #                     1. RE-DISPLAY VERB 42
012403,000458:                                                                                                  #                     2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
012404,000459:                                                                                                  #                     3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
012405,000460:                                                                                                  #                        A. FAILED
012406,000461:                                                                                                  #                           1. RELEASE EXT VERB DISPLAY SYSTEM.
012407,000462:                                                                                                  #                        B. GOOD
012408,000463:                                                                                                  #                           1. EXECUTE IMUPULSE (TORQUE IRIGS).
012409,000464:                                                                                                  #                           2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
012410,000465: 
012411,000466: 43,2340           02405        IMUFINEK           TC       CKMODCAD                              
012412,000467: 43,2341           02076                           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
012413,000468: 43,2342           32367                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
012414,000469: 43,2343           04616                           TC       BANKCALL                              
012415,000470: 43,2344           20212                           CADR     GOXDSPF                               
012416,000471: 43,2345           05472                           TC       TERMEXTV                              
012417,000472: 43,2346           02347                           TC       +1                                    #  PROCEED WITHOUT A LOAD
012418,000473: 
012419,000474: 43,2347           32370                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
012420,000475: 43,2350           04616                           TC       BANKCALL                              
012421,000476: 43,2351           20473                           CADR     EXDSPRET                              
012422,000477: 
012423,000478: 43,2352           04616                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
012424,000479: 43,2353           17163                           CADR     IMUFINE                               
012425,000480: 
012426,000481: 43,2354           04616                           TC       BANKCALL                              #  HIBERNATION
012427,000482: 43,2355           17671                           CADR     IMUSTALL                              
012428,000483: 43,2356           05472                           TC       ENDEXTVB                              
012429,000484: 
012430,000485: 43,2357           32366        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
012431,000486: 43,2360           04616                           TC       BANKCALL                              
012432,000487: 43,2361           17276                           CADR     IMUPULSE                              
012433,000488: 
012434,000489: 43,2362           04616                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
012435,000490: 43,2363           17671                           CADR     IMUSTALL                              
012436,000491: 43,2364           05472                           TC       ENDEXTVB                              
012437,000492: 43,2365           05472                           TC       ENDEXTVB                              
012438,000493: 
012439,000494: 43,2366           02737        LGYROBIN           ECADR    OGC                                   
012440,000495: 43,2367           06335        VNLODGYR           VN       2593                                  
012441,000496: 43,2370           12400        IMUFINEV           VN       4200                                  
012442,000497:                                                                                                  #           GOLOADLV     VERB 50            DESCRIPTION
012443,000498:                                                                                                  #                        AND OTHER PLEASE
012444,000499: 

Page 289

012446,000501:                                                                                                  #                        DO SOMETHING VERBS
012447,000502:                                                                                                  #               PLEASE PERFORM, MARK, CALIBRATE, ETC.
012448,000503:                                                                                                  #               1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN  PERFORMED, AND THE PROGRAM DOES THE
012449,000504:                                                                                                  #                  SAME RECALL AS A COMPLETED LOAD.
012450,000505:                                                                                                  #               2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
012451,000506: 
012452,000507: 43,2371  40,2000                                  SBANK=   PINSUPER                              #  FOR LOADLV1 AND SHOWSUM CADR'S.
012453,000508: 
012454,000509: 43,2371           04433        GOLOADLV           TC       FLASHOFF                              
012455,000510: 
012456,000511: 43,2372           34201                           CAF      PINSUPBT                              
012457,000512: 43,2373           00006                           EXTEND                                         
012458,000513: 43,2374           01007                           WRITE    SUPERBNK                              
012459,000514: 43,2375           04635                           TC       POSTJUMP                              
012460,000515: 43,2376           62001                           CADR     LOADLV1                               
012461,000516: 
012462,000517:                                                                                                  #  VERB 47 - AGS INITIALIZATION - R47.
012463,000518: 
012464,000519:                                                                                                  #           SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
012465,000520: 
012466,000521: 43,2377           02076        V47TXACT           TC       TESTXACT                              #  NO OTHER EXTVERB.
012467,000522: 43,2400           34740                           CAF      PRIO4                                 
012468,000523: 43,2401           05105                           TC       FINDVAC                               
012469,000524: 43,2402  E4,1604                                  EBANK=   AGSBUFF                               
012470,000525: 43,2402           02015 64064                     2CADR    AGSINIT                               
012471,000526: 
012472,000527: 43,2404           05155                           TC       ENDOFJOB                              
012473,000528: 
012474,000529: 43,2405           31304        CKMODCAD           CA       MODECADR                              
012475,000530: 43,2406           00006                           EXTEND                                         
012476,000531: 43,2407           16741                           BZF      TCQ                                   
012477,000532: 43,2410           02120                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
012478,000533: 

Page 290

012480,000535:                                                                                                  #           ALINTIME     VERB 55            DESCRIPTION
012481,000536:                                                                                                  #                  REQUIRE POO OR POO-.
012482,000537:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012483,000538:                                                                                                  #               2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
012484,000539:                                                                                                  #               3. REQUIRE EXECUTION OF VERB 23.
012485,000540:                                                                                                  #               4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
012486,000541:                                                                                                  #               5. RELEASE EXT VERB DISPLAY SYSTEM
012487,000542: 
012488,000543: 43,2411           02076        ALINTIME           TC       TESTXACT                              
012489,000544: 43,2412           04635                           TC       POSTJUMP                              #  NO ROOM IN 43
012490,000545: 43,2413           64002                           CADR     R33                                   
012491,000546: 
012492,000547: 42,2002                                           BANK     42                                    
012493,000548: 42,2000                                           SETLOC   SBAND                                 
012494,000549: 42,2000                                           BANK                                           
012495,000550: 42,2002                                           COUNT*   $$/R33                                
012496,000551: 
012497,000552: 42,2002           35021        R33                CAF      PRIO7                                 
012498,000553: 42,2003           05146                           TC       PRIOCHNG                              
012499,000554: 42,2004           32034                           CAF      VNLODDT                               
012500,000555: 42,2005           04616                           TC       BANKCALL                              
012501,000556: 42,2006           20212                           CADR     GOXDSPF                               
012502,000557: 42,2007           05472                           TC       ENDEXT                                #  TERMINATE
012503,000558: 42,2010           05472                           TC       ENDEXT                                #  PROCEED
012504,000559: 42,2011           42033                           CS       DEC23                                 #  DATA IN OR RESEQUENCE(UNLIKELY)
012505,000560: 42,2012           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
012506,000561: 42,2013           00006                           EXTEND                                         
012507,000562: 42,2014           12016                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
012508,000563: 42,2015           05472                           TC       ENDEXT                                #    WITH V23 (DATA IN).
012509,000564: 
012510,000565: 42,2016           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
012511,000566: 42,2017           34755                           CAF      ZERO                                  
012512,000567: 42,2020           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
012513,000568: 42,2021           54001                           TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
012514,000569: 42,2022           52025                           DXCH     TIME2                                 
012515,000570: 42,2023           52155                           DXCH     MPAC                                  
012516,000571: 42,2024           53052                           DXCH     DSPTEM2    +1                         #  INCREMENT
012517,000572: 42,2025           20155                           DAS      MPAC                                  
012518,000573: 
012519,000574: 42,2026           07256                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
012520,000575: 42,2027           52155                           DXCH     MPAC                                  #  NEW CLOCK.
012521,000576: 42,2030           20025                           DAS      TIME2                                 
012522,000577: 42,2031           00003                           RELINT                                         
012523,000578: 42,2032           05472        UPDTMEND           TC       ENDEXT                                
012524,000579: 
012525,000580: 42,2033           00027        DEC23              DEC      23         B-14                       #  V 23
012526,000581: 
012527,000582: 42,2034           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
012528,000583: 

Page 291

012530,000585:                                                                                                  #  SET UP FOR RADAR SAMPLING.
012531,000586: 
012532,000587: 42,2035                                           BANK     42                                    
012533,000588: 43,2000                                           SETLOC   EXTVERBS                              
012534,000589: 43,2000                                           BANK                                           
012535,000590: 
012536,000591: 43,2414  E4,1604                                  EBANK=   RSTACK                                
012537,000592: 
012538,000593: 43,2414                                           COUNT*   $$/R0477                              
012539,000594: 
012540,000595: 43,2414           02652        R77                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
012541,000596: 43,2415           30077                           CA       FLAGWRD3                              #  IS R04 RUNNING?
012542,000597: 43,2416           74743                           MASK     R04FLBIT                              
012543,000598: 43,2417           10000                           CCS      A                                     
012544,000599: 43,2420           02120                           TC       ALM/END                               #  YES.
012545,000600: 43,2421           05504                           TC       UPFLAG                                
012546,000601: 43,2422           00117                           ADRES    R77FLAG                               
012547,000602: 43,2423           12430                           TCF      R04Z                                  
012548,000603: 
012549,000604: 43,2424           02652        R04                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
012550,000605: 43,2425           02076                           TC       TESTXACT                              
012551,000606: 43,2426           05504                           TC       UPFLAG                                
012552,000607: 43,2427           00063                           ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
012553,000608: 
012554,000609: 43,2430           34741        R04Z               CAF      EBANK4                                
012555,000610: 43,2431           54003                           TS       EBANK                                 
012556,000611: 43,2432           32650                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
012557,000612: 43,2433           55761                           TS       RSAMPDT                               
012558,000613: 43,2434           34755                           CAF      ZERO                                  
012559,000614: 43,2435           55760                           TS       RTSTLOC                               
012560,000615: 43,2436           55762                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
012561,000616: 
012562,000617: 43,2437           00004                           INHINT                                         
012563,000618: 43,2440           42651                           CS       LRPOSCAL                              #  INITIALIZE
012564,000619: 43,2441           70110                           MASK     RADMODES                              #      BIT 9   LR RANGE  LOW SCALE =0
012565,000620: 43,2442           54110                           TS       RADMODES                              #      BIT 6   LR POS 1 =0
012566,000621: 43,2443           32651                           CAF      LRPOSCAL                              #      BIT 3   RR RANGE  LOW SCALE =0
012567,000622: 43,2444           00006                           EXTEND                                         
012568,000623: 43,2445           02033                           RAND     CHAN33                                
012569,000624: 43,2446           26110                           ADS      RADMODES                              
012570,000625: 43,2447           00003                           RELINT                                         
012571,000626: 
012572,000627: 43,2450           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG       R04 =1    R77 =0
012573,000628: 43,2451           74743                           MASK     R04FLBIT                              
012574,000629: 43,2452           10000                           CCS      A                                     
012575,000630: 43,2453           12605                           TCF      R04K                                  
012576,000631: 
012577,000632: 43,2454           34753                           CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
012578,000633: 43,2455           55052                           TS       OPTIONX    +1                         
012579,000634: 43,2456           34751        R04A               CAF      BIT3                                  #  OPTION CODE FOR V04N12
012580,000635: 

Page 292

012582,000637: 43,2457           55051                           TS       OPTIONX                               
012583,000638: 43,2460           32645                           CAF      V04N12X                               
012584,000639: 43,2461           04616                           TC       BANKCALL                              #        R2   00001  RENDEZVOUS RADAR
012585,000640: 43,2462           20231                           CADR     GOMARKFR                              #             00002  LANDING RADAR
012586,000641: 43,2463           12613                           TCF      R04END                                #  V34
012587,000642: 43,2464           12471                           TCF      +5                                    #  V33
012588,000643: 43,2465           12460                           TCF      R04A       +2                         #  R2
012589,000644: 43,2466           34751                           CAF      BIT3                                  
012590,000645: 43,2467           05464                           TC       BLANKET                               
012591,000646: 43,2470           05155                           TC       ENDOFJOB                              
012592,000647: 
012593,000648: 43,2471           31052                           CA       OPTIONX    +1                         #  SAVE DESIRED OPTION       RR =1      LR =2
012594,000649: 43,2472           55755                           TS       RTSTDEX                               
012595,000650: 
012596,000651: 43,2473           36241        R04X               CAF      SIX                                   #  RR OR LR DESIRED
012597,000652: 43,2474           71755                           MASK     RTSTDEX                               
012598,000653: 43,2475           10000                           CCS      A                                     
012599,000654: 43,2476           12607                           TCF      R04L                                  #  LANDING RADAR
012600,000655: 43,2477           55757                           TS       RTSTBASE                              #  FOR RR   BASE = 0, MAX = 1
012601,000656: 
012602,000657: 43,2500           34752        R04B               CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
012603,000658: 43,2501           00006                           EXTEND                                         
012604,000659: 43,2502           02033                           RAND     CHAN33                                
012605,000660: 43,2503           00006                           EXTEND                                         
012606,000661: 43,2504           12515                           BZF      R04C                                  #  YES
012607,000662: 
012608,000663: 43,2505           32647                           CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
012609,000664: 43,2506           55045                           TS       DSPTEM1                               
012610,000665: 43,2507           32646                           CAF      V50N25X                               
012611,000666: 43,2510           04616                           TC       BANKCALL                              
012612,000667: 43,2511           20223                           CADR     GOMARK4                               
012613,000668: 43,2512           12613                           TCF      R04END                                #  V34
012614,000669: 43,2513           12500                           TCF      R04B                                  #  V33
012615,000670: 43,2514           12505                           TCF      -7                                    #  E
012616,000671: 
012617,000672: 43,2515           34736        R04C               CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
012618,000673: 43,2516           00006                           EXTEND                                         
012619,000674: 43,2517           05012                           WOR      CHAN12                                
012620,000675: 
012621,000676: 43,2520           34752                           CAF      TWO                                   
012622,000677: 43,2521           55756                           TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
012623,000678: 
012624,000679: 43,2522           05203                           TC       WAITLIST                              
012625,000680: 43,2523  E4,1604                                  EBANK=   RSTACK                                
012626,000681: 43,2523           02003 52104                     2CADR    RADSAMP                               
012627,000682: 
012628,000683: 43,2525           00003                           RELINT                                         
012629,000684: 
012630,000685: 43,2526           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG      R04 =1    R77 =0
012631,000686: 43,2527           74743                           MASK     R04FLBIT                              
012632,000687: 

Page 293

012634,000689: 43,2530           10000                           CCS      A                                     
012635,000690: 43,2531           12121                           TCF      GOPIN                                 #  R77
012636,000691: 
012637,000692: 43,2532           36241                           CAF      SIX                                   #  RR OR LR
012638,000693: 43,2533           71755                           MASK     RTSTDEX                               
012639,000694: 43,2534           10000                           CCS      A                                     
012640,000695: 43,2535           12552                           TCF      R04LR                                 #  LR
012641,000696: 
012642,000697: 43,2536           32641        R04RR              CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
012643,000698: 43,2537           04616                           TC       BANKCALL                              #           R1  +  XXX.XX DEG   TRUNNION
012644,000699: 43,2540           20212                           CADR     GOMARKF                               #           R2  +  XXX.XX DEG   SHAFT
012645,000700: 43,2541           12613                           TCF      R04END                                #  V34      R3     BLANK
012646,000701: 43,2542           12544                           TCF      +2                                    #  V33
012647,000702: 43,2543           12536                           TCF      R04RR                                 #  V32
012648,000703: 
012649,000704: 43,2544           32642                           CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
012650,000705: 43,2545           04616                           TC       BANKCALL                              #           R1  +- XXX.XX NM    RANGE
012651,000706: 43,2546           20212                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   RANGE RATE
012652,000707: 43,2547           12613                           TCF      R04END                                #  V34      R3     BLANK
012653,000708: 43,2550           12566                           TCF      R04Y                                  #  V33
012654,000709: 43,2551           12536                           TCF      R04RR                                 #  V32
012655,000710: 
012656,000711: 43,2552           32643        R04LR              CAF      V16N66                                #  DISPLAY LR RANGE AND POSITION (1/SEC)
012657,000712: 43,2553           04616                           TC       BANKCALL                              #           R1  +- XXXXX. FT    LR RANGE
012658,000713: 43,2554           20212                           CADR     GOMARKF                               #           R2  +  0000X.       POS. NO.
012659,000714: 43,2555           12613                           TCF      R04END                                #  V34      R3     BLANK
012660,000715: 43,2556           12560                           TCF      +2                                    #  V33
012661,000716: 43,2557           12552                           TCF      R04LR                                 #  V32
012662,000717: 
012663,000718: 43,2560           32644                           CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
012664,000719: 43,2561           04616                           TC       BANKCALL                              #           R1  +- XXXXX. FPS   LR V(X)
012665,000720: 43,2562           20212                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   LR V(Y)
012666,000721: 43,2563           12613                           TCF      R04END                                #  V34      R3  +- XXXXX. FPS   LR V(Z)
012667,000722: 43,2564           12566                           TCF      R04Y                                  #  V33
012668,000723: 43,2565           12552                           TCF      R04LR                                 #  V32
012669,000724: 
012670,000725: 43,2566           34755        R04Y               CAF      ZERO                                  #  TO TERMINATE SAMPLING
012671,000726: 43,2567           55761                           TS       RSAMPDT                               
012672,000727: 43,2570           35000                           CAF      2SECS                                 #  WAIT FOR LAST RADARUPT
012673,000728: 43,2571           04616                           TC       BANKCALL                              
012674,000729: 43,2572           01735                           CADR     DELAYJOB                              
012675,000730: 43,2573           32650                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
012676,000731: 43,2574           55761                           TS       RSAMPDT                               
012677,000732: 43,2575           34755                           CAF      ZERO                                  #  FOR STORING RESULTS
012678,000733: 43,2576           55760                           TS       RTSTLOC                               
012679,000734: 43,2577           36241                           CAF      SIX                                   
012680,000735: 43,2600           71755                           MASK     RTSTDEX                               
012681,000736: 43,2601           10000                           CCS      A                                     
012682,000737: 43,2602           44753                           CS       ONE                                   #  WAS LR
012683,000738: 43,2603           64752                           AD       TWO                                   #  WAS RR
012684,000739: 

Page 294

012686,000741: 
012687,000742: 43,2604           12472                           TCF      R04X       -1                         
012688,000743: 
012689,000744: 43,2605           34766        R04K               CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.
012690,000745: 43,2606           55761                           TS       RSAMPDT                               
012691,000746: 
012692,000747: 43,2607           34752        R04L               CAF      TWO                                   
012693,000748: 43,2610           55757                           TS       RTSTBASE                              #  FOR LR   BASE = 2, MAX = 3
012694,000749: 43,2611           36241                           CAF      SIX                                   
012695,000750: 43,2612           12521                           TCF      R04C       +4                         
012696,000751: 43,2613           34755        R04END             CAF      ZERO                                  #  ZERO RSAMPDT
012697,000752: 43,2614           55761                           TS       RSAMPDT                               #  TO TERMINATE SAMPLING
012698,000753: 43,2615           34744                           CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
012699,000754: 43,2616           04616                           TC       BANKCALL                              #  PENDING RUPT.
012700,000755: 43,2617           01735                           CADR     DELAYJOB                              
012701,000756: 
012702,000757: 43,2620           00004                           INHINT                                         
012703,000758: 43,2621           44736                           CS       BIT14                                 #  DISABLE RR AUTO TRACKER
012704,000759: 43,2622           00006                           EXTEND                                         
012705,000760: 43,2623           03012                           WAND     CHAN12                                
012706,000761: 
012707,000762: 43,2624           05516                           TC       DOWNFLAG                              
012708,000763: 43,2625           00063                           ADRES    R04FLAG                               #  SIGNAL END OF R04.
012709,000764: 
012710,000765: 43,2626           05472                           TC       ENDEXT                                
012711,000766: 
012712,000767: 43,2627           34741        R77END             CAF      EBANK4                                #  TO TERMINATE SAMPLING
012713,000768: 43,2630           54003                           TS       EBANK                                 
012714,000769: 43,2631           34755                           CAF      ZERO                                  
012715,000770: 43,2632           55761                           TS       RSAMPDT                               
012716,000771: 43,2633           34746                           CAF      BIT6                                  #  WAIT 320 MS FOR POSSIBLE
012717,000772: 43,2634           04616                           TC       BANKCALL                              #  PENDING RUPT.
012718,000773: 43,2635           01735                           CADR     DELAYJOB                              
012719,000774: 
012720,000775: 43,2636           05516                           TC       DOWNFLAG                              
012721,000776: 43,2637           00117                           ADRES    R77FLAG                               
012722,000777: 43,2640           12121                           TCF      GOPIN                                 
012723,000778: 
012724,000779: 43,2641           04110        V16N72             VN       1672                                  
012725,000780: 43,2642           04116        V16N78             VN       1678                                  
012726,000781: 43,2643           04102        V16N66             VN       1666                                  
012727,000782: 43,2644           04103        V16N67             VN       1667                                  
012728,000783: 43,2645           01014        V04N12X            VN       412                                   
012729,000784: 43,2646           14431        V50N25X            VN       5025                                  
012730,000785: 43,2647           00201        201R04             OCT      00201                                 
012731,000786: 43,2650           00145        1SEC+1             DEC      101        B-14                       
012732,000787: 43,2651     4766               250MS+1            EQUALS   CALLCODE                              
012733,000788: 43,2651           00444        LRPOSCAL           OCT      444                                   
012734,000789: 

Page 295

012736,000791: 43,2652           40077        RDRUSECK           CS       FLAGWRD3                              #  IS R29 ON?
012737,000792: 43,2653           74741                           MASK     NR29FBIT                              
012738,000793: 43,2654           10000                           CCS      A                                     
012739,000794: 43,2655           02120                           TC       ALM/END                               #  YES
012740,000795: 43,2656           30101                           CA       FLAGWRD5                              #  IS R77 RUNNING?
012741,000796: 43,2657           74741                           MASK     R77FLBIT                              
012742,000797: 43,2660           10000                           CCS      A                                     
012743,000798: 43,2661           02120                           TC       ALM/END                               #  YES.
012744,000799: 43,2662           40103                           CS       FLAGWRD7                              #  IS SERVICER RUNNING AND HENCE POSSIBLY
012745,000800: 43,2663           74746                           MASK     V37FLBIT                              #  R12 USING THE LR?
012746,000801: 43,2664           10000                           CCS      A                                     
012747,000802: 43,2665           12672                           TCF      CHECKRR                               #  NO
012748,000803: 43,2666           40107                           CS       FLGWRD11                              #  YES, IS R12 ON?
012749,000804: 43,2667           74735                           MASK     LRBYBIT                               
012750,000805: 43,2670           10000                           CCS      A                                     
012751,000806: 43,2671           02120                           TC       ALM/END                               #  YES
012752,000807: 43,2672           40075        CHECKRR            CS       FLAGWRD1                              #  IS THE TRACK FLAG SET AND HENCE POSSIBLY
012753,000808: 43,2673           74747                           MASK     TRACKBIT                              #  P20 USING THE RR?
012754,000809: 43,2674           10000                           CCS      A                                     
012755,000810: 43,2675           12702                           TCF      CHECKP22                              #  NO, CHECK FOR P22.
012756,000811: 
012757,000812: 43,2676           30074        CKRNDBIT           CA       FLAGWRD0                              #  YES, BUT IS IT P25?
012758,000813: 43,2677           74745                           MASK     RNDVZBIT                              
012759,000814: 43,2700           10000                           CCS      A                                     
012760,000815: 43,2701           02120                           TC       ALM/END                               
012761,000816: 43,2702           41011        CHECKP22           CS       MODREG                                
012762,000817: 43,2703           62707                           AD       DEC22                                 
012763,000818: 43,2704           00006                           EXTEND                                         
012764,000819: 43,2705           12120                           BZF      ALM/END                               
012765,000820: 43,2706           00002                           TC       Q                                     
012766,000821: 
012767,000822: 43,2707           00026        DEC22              DEC      22         B-14                       
012768,000823: 
012769,000824: 43,2710                                           COUNT*   $$/EXTVB                              
012770,000825: 
012771,000826: 43,2710           02123        VB64               TC       CHKPOOH                               #  DEMAND PROGRAM 00.
012772,000827: 43,2711           02076                           TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
012773,000828: 43,2712           34740                           CAF      PRIO4                                 
012774,000829: 43,2713           05105                           TC       FINDVAC                               
012775,000830: 43,2714  E4,1604                                  EBANK=   ALPHASB                               
012776,000831: 43,2714           03602 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
012777,000832: 
012778,000833: 43,2716           05155                           TC       ENDOFJOB                              
012779,000834: 

Page 296

012781,000836:                                                                                                  #           IMUATTCK      VERB 43           DESCRIPTION
012782,000837:                                                                                                  #               LOAD IMU ATTITUDE ERROR METERS
012783,000838:                                                                                                  #                  1. REQUIRE POO OR FRESH START.
012784,000839:                                                                                                  #                  2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
012785,000840:                                                                                                  #                  3. REQUIRE THAT NEEDLES BE OFF.
012786,000841:                                                                                                  #                  4. REQUEST LOAD OF N22  (VAUES TO BE DISPLAYED).
012787,000842:                                                                                                  #                  5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
012788,000843: 
012789,000844: 43,2717           02123        IMUATTCK           TC       CHKPOOH                               #  VB 76 - LOAD IMU ATT. ERROR METERS
012790,000845: 
012791,000846: 43,2720           34763                           CAF      BITS4&5                               #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
012792,000847: 43,2721           00006                           EXTEND                                         #  CDUS BITS ARE ON
012793,000848: 43,2722           02012                           RAND     CHAN12                                
012794,000849: 43,2723           10000                           CCS      A                                     
012795,000850: 43,2724           12120                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
012796,000851: 
012797,000852: 43,2725           34355                           CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
012798,000853: 43,2726           00006                           EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
012799,000854: 43,2727           06031                           RXOR     CHAN31                                
012800,000855: 43,2730           74355                           MASK     BIT13-14                              
012801,000856: 43,2731           00006                           EXTEND                                         
012802,000857: 43,2732           12734                           BZF      +2                                    #  NEEDLES IS OFF.
012803,000858: 43,2733           12120                           TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
012804,000859: 
012805,000860: 43,2734           02076                           TC       TESTXACT                              
012806,000861: 
012807,000862: 43,2735           32225                           CAF      VNLODCDU                              
012808,000863: 43,2736           04616                           TC       BANKCALL                              
012809,000864: 43,2737           20212                           CADR     GOXDSPF                               
012810,000865: 43,2740           05472                           TC       ENDEXT                                #  V34
012811,000866: 43,2741           02742                           TC       +1                                    
012812,000867: 43,2742           32755                           CAF      V43K                                  #  REDISPLAY OUR VERB.
012813,000868: 43,2743           04616                           TC       BANKCALL                              
012814,000869: 43,2744           20473                           CADR     EXDSPRET                              
012815,000870: 43,2745           34746                           CAF      BIT6                                  
012816,000871: 43,2746           00006                           EXTEND                                         
012817,000872: 43,2747           05012                           WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
012818,000873: 43,2750           34752                           CAF      TWO                                   
012819,000874: 43,2751           05203                           TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
012820,000875: 43,2752     0321                                  EBANK=   THETAD                                
012821,000876: 43,2752           02035 64100                     2CADR    ATTCK2                                
012822,000877: 
012823,000878: 43,2754           15472                           TCF      ENDEXT                                
012824,000879: 
012825,000880: 42,2035                                           BANK     42                                    
012826,000881: 42,2000                                           SETLOC   PINBALL3                              #  SOMETHING IN B42.
012827,000882: 42,2000                                           BANK                                           
012828,000883: 
012829,000884: 42,2035                                           COUNT*   $$/EXTVB                              
012830,000885: 

Page 297

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

Page 298

012884,000939: 43,2756           02076        V82PERF            TC       TESTXACT                              
012885,000940: 
012886,000941: 43,2757           35021                           CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
012887,000942: 43,2760           05146                           TC       PRIOCHNG                              
012888,000943: 43,2761           00006                           EXTEND                                         
012889,000944: 43,2762           32765                           DCA      V82CON                                
012890,000945: 43,2763           05165                           TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
012891,000946: 
012892,000947: 43,2764  E4,1722                                  EBANK=   HAPO                                  
012893,000948: 43,2764           03242 44104  V82CON             2CADR    V82CALL                               
012894,000949: 
012895,000950: 
012896,000951:                                                                                                  #           VB83PERF     VERB 83            DESCRIPTION
012897,000952:                                                                                                  #               REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
012898,000953:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012899,000954:                                                                                                  #               2. SCHEDULE R31CALL WITH PRIORITY 5.
012900,000955:                                                                                                  #                  A. DISPLAY
012901,000956:                                                                                                  #                      R1  RANGE
012902,000957:                                                                                                  #                      R2  RANGE RATE
012903,000958:                                                                                                  #                      R3  THETA
012904,000959: 
012905,000960: 43,2766           02076        V83PERF            TC       TESTXACT                              
012906,000961: 
012907,000962: 43,2767           34752                           CAF      BIT2                                  
012908,000963: 43,2770           05203                           TC       WAITLIST                              
012909,000964: 43,2771  E7,1607                                  EBANK=   TSTRT                                 
012910,000965: 43,2771           03113 76067                     2CADR    R31CALL                               
012911,000966: 
012912,000967: 43,2773           05155                           TC       ENDOFJOB                              
012913,000968: 
012914,000969:                                                                                                  #  VERB 89 DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
012915,000970: 
012916,000971:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED.  CALCULATES AND
012917,000972:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
012918,000973: 
012919,000974:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
012920,000975:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
012921,000976: 
012922,000977:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
012923,000978:                                                                                                  #  ORIENTATION KNOWN TO LGC, CONTINUE.
012924,000979: 
012925,000980:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
012926,000981:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
012927,000982:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
012928,000983:                                                                                                  #  AFTER KEYING IN PROCEED.
012929,000984: 
012930,000985:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
012931,000986: 
012932,000987:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
012933,000988: 

Page 299

012935,000990:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
012936,000991:                                                                                                  #  PREPARED FOR VECPOINT.
012937,000992: 
012938,000993:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
012939,000994:                                                                                                  #  BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
012940,000995: 
012941,000996:                                                                                                  #  7. RECYCLE - RETURN TO STEP 4.
012942,000997:                                                                                                  #     TERMINATE - EXIT R63.
012943,000998:                                                                                                  #     PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
012944,000999: 
012945,001000: 
012946,001001: 43,2774           02123        V89PERF            TC       CHKPOOH                               
012947,001002: 43,2775           02076                           TC       TESTXACT                              
012948,001003: 43,2776           34737                           CAF      PRIO10                                
012949,001004: 43,2777           05105                           TC       FINDVAC                               
012950,001005: 43,3000  E4,1612                                  EBANK=   RONE                                  
012951,001006: 43,3000           02000 54104                     2CADR    V89CALL                               
012952,001007: 43,3002           05155                           TC       ENDOFJOB                              
012953,001008: 
012954,001009:                                                                                                  #           V90PERF     VERB 90             DESCRIPTION
012955,001010:                                                                                                  #               REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
012956,001011:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012957,001012:                                                                                                  #               2. SCHEDULE R36 CALL WITH PRIORITY 10
012958,001013:                                                                                                  #                  A. DISPLAY
012959,001014:                                                                                                  #                      TIME OF EVENT - HOURS , MINUTES , SECONDS
012960,001015:                                                                                                  #                      Y  OUT-OF-PLANE POSITION - NAUTICAL MILES
012961,001016:                                                                                                  #                      YDOT  OUT-OF-PLANE VELOCITY - FEET/SECOND
012962,001017:                                                                                                  #                      PSI  ANGLE BTW LINE OF SIGHT AND FORWARD
012963,001018:                                                                                                  #                           DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012964,001019: 
012965,001020: 43,3003           02076        V90PERF            TC       TESTXACT                              
012966,001021: 43,3004           35021                           CAF      PRIO7                                 #  R36,V90
012967,001022: 43,3005           05105                           TC       FINDVAC                               
012968,001023: 43,3006  E4,1612                                  EBANK=   RPASS36                               
012969,001024: 43,3006           02613 10104                     2CADR    R36                                   
012970,001025: 43,3010           15155                           TCF      ENDOFJOB                              
012971,001026:                                                                                                  #           MINIMP     VERB 76              DESCRIPTION
012972,001027:                                                                                                  #               MINIMUM IMPULSE MODE
012973,001028:                                                                                                  #               1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
012974,001029: 
012975,001030: 43,3011           00004        MINIMP             INHINT                                         
012976,001031: 43,3012           40111                           CS       DAPBOOLS                              
012977,001032: 43,3013           74735                           MASK     PULSES                                #  PULSES = 1 INDICATES MIN IMP MODE
012978,001033: 43,3014           26111                           ADS      DAPBOOLS                              
012979,001034: 43,3015           12121                           TCF      GOPIN                                 #  RETURN VIA PINBRNCH
012980,001035: 
012981,001036:                                                                                                  #           NOMINIMP     VERB 77            DESCRIPTION
012982,001037:                                                                                                  #               RATE COMMAND MODE
012983,001038: 

Page 300

012985,001040:                                                                                                  #               1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
012986,001041:                                                                                                  #               2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
012987,001042: 
012988,001043: 43,3016           00004        NOMINIMP           INHINT                                         
012989,001044: 43,3017           44735                           CS       PULSES                                
012990,001045: 43,3020           70111                           MASK     DAPBOOLS                              
012991,001046: 43,3021           54111                           TS       DAPBOOLS                              #  PULSES = 0 NOT IN MINIMUM UMPULSE MODE
012992,001047: 43,3022           04674                           TC       IBNKCALL                              
012993,001048: 43,3023           40153                           CADR     ZATTEROR                              
012994,001049: 43,3024           02121                           TC       GOPIN                                 
012995,001050: 

Page 301

012997,001052:                                                                                                  #           CREWMANU     VERB 49            DESCRIPTION
012998,001053:                                                                                                  #               START AUTOMATIC ATTITUDE MANEUVER
012999,001054:                                                                                                  #               1. REQUIRE PROGRAM 00 ACTIVE.
013000,001055:                                                                                                  #               2. SET EXT VERB DISPLAY BUSY FLAG.
013001,001056:                                                                                                  #               3. SCHEDULE R62DISP WITH PRIORITY 10.
013002,001057:                                                                                                  #               4. RELEASE EXT VERB DISPLAY.
013003,001058: 
013004,001059:                                                                                                  #             R62DISP
013005,001060:                                                                                                  #               1. DISPLAY FLASHING V06,N22.
013006,001061:                                                                                                  #                  RESPONSES
013007,001062:                                                                                                  #                  A. TERMINATE
013008,001063:                                                                                                  #                     1. GO TO GOTOPOOH.
013009,001064:                                                                                                  #                  B. PROCEED
013010,001065:                                                                                                  #                     1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
013011,001066:                                                                                                  #                     2. EXECUTE R60LEM (ATTITUDE MANEUVER).
013012,001067:                                                                                                  #                  C. ENTER
013013,001068:                                                                                                  #                     1. REPEAT FLASHING V06,N22.
013014,001069: 
013015,001070: 43,3025           02123        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
013016,001071: 
013017,001072: 43,3026           02076                           TC       TESTXACT                              
013018,001073: 
013019,001074: 43,3027           34737                           CAF      PRIO10                                
013020,001075: 43,3030           05105                           TC       FINDVAC                               
013021,001076: 43,3031  E6,1674                                  EBANK=   BCDU                                  
013022,001077: 43,3031           02065 46106                     2CADR    R62DISP                               
013023,001078: 43,3033           05155                           TC       ENDOFJOB                              
013024,001079: 

Page 302

013026,001081:                                                                                                  #  TRMTRACK     VERB 56                     DESCRIPTION
013027,001082:                                                                                                  #               TERMINATE TRACKING (P20 AND P25).
013028,001083:                                                                                                  #               1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
013029,001084:                                                                                                  #               2. REQUIRE P20 OR  P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
013030,001085:                                                                                                  #               3. SCHEDULE V56TOVAC WITH PRIORITY 30.
013031,001086: 
013032,001087:                                                                                                  #               V56TOVAC
013033,001088:                                                                                                  #               1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
013034,001089:                                                                                                  #               2. ZERO GROUP 2 TO HALT P20.
013035,001090:                                                                                                  #               3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
013036,001091: 
013037,001092: 43,3034           33052        TRMTRACK           CA       BITS9+7                               #  IS REND OR P25 FLAG ON
013038,001093: 43,3035           70074                           MASK     FLAGWRD0                              
013039,001094: 43,3036           00006                           EXTEND                                         
013040,001095: 43,3037           12121                           BZF      GOPIN                                 #  NO
013041,001096: 
013042,001097: 43,3040           05516                           TC       DOWNFLAG                              
013043,001098: 43,3041           00010                           ADRES    RNDVZFLG                              
013044,001099: 
013045,001100: 43,3042           05516                           TC       DOWNFLAG                              
013046,001101: 43,3043           00006                           ADRES    P25FLAG                               
013047,001102: 
013048,001103: 43,3044           34747                           CA       TRACKBIT                              #  IS TRACK FLAG ON?
013049,001104: 43,3045           70075                           MASK     FLAGWRD1                              
013050,001105: 43,3046           00006                           EXTEND                                         
013051,001106: 43,3047           12121                           BZF      GOPIN                                 
013052,001107: 
013053,001108: 43,3050           04635                           TC       POSTJUMP                              
013054,001109: 43,3051           64054                           CADR     TRMTRAK1                              
013055,001110: 
013056,001111: 43,3052           00500        BITS9+7            OCT      500                                   
013057,001112: 
013058,001113: 42,2000                                           SETLOC   SBAND                                 #  BANK 42
013059,001114: 42,2000                                           BANK                                           
013060,001115: 
013061,001116: 42,2054                                           COUNT*   $$/EXTVB                              
013062,001117: 
013063,001118: 42,2054           05516        TRMTRAK1           TC       DOWNFLAG                              
013064,001119: 42,2055           00027                           ADRES    UPDATFLG                              #  UPDATE FLAG DOWN
013065,001120: 42,2056           05516                           TC       DOWNFLAG                              
013066,001121: 42,2057           00031                           ADRES    TRACKFLG                              #  TRACK FLAG DOWN
013067,001122: 42,2060           05516                           TC       DOWNFLAG                              
013068,001123: 42,2061           00007                           ADRES    IMUSE                                 
013069,001124: 
013070,001125: 42,2062           06036                           TC       INTPRET                               
013071,001126: 42,2063           77624                           CALL                                           
013072,001127: 42,2064           27412                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
013073,001128: 42,2065           77776                           EXIT                                           
013074,001129: 
013075,001130: 42,2066           05353                           TC       PHASCHNG                              
013076,001131: 

Page 303

013078,001133: 42,2067           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
013079,001134: 
013080,001135: 42,2070           00004                           INHINT                                         
013081,001136: 42,2071           04674                           TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
013082,001137: 42,2072           40165                           CADR     STOPRATE                              #  MANEUVER
013083,001138: 
013084,001139: 42,2073           04674                           TC       IBNKCALL                              
013085,001140: 42,2074           40123                           CADR     RESTORDB                              
013086,001141: 
013087,001142: 42,2075           06011                           TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES.
013088,001143: 
013089,001144: 42,2076           44736                           CS       BIT14                                 #  DISABLE LOCKON
013090,001145: 42,2077           00006                           EXTEND                                         
013091,001146: 42,2100           03012                           WAND     CHAN12                                
013092,001147: 42,2101           04635                           TC       POSTJUMP                              
013093,001148: 42,2102           12771                           CADR     GOPROG2                               #  CAUSE RESTART.
013094,001149: 
013095,001150:                                                                                                  #           DNEDUMP     VERB 74             DESCRIPTION
013096,001151:                                                                                                  #               INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
013097,001152:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
013098,001153:                                                                                                  #               2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
013099,001154:                                                                                                  #               3. RELEASE EXT VERB DISPLAY.
013100,001155: 
013101,001156: 43,2000                                           SETLOC   EXTVERBS                              
013102,001157: 43,2000                                           BANK                                           
013103,001158: 
013104,001159: 43,3053                                           COUNT*   $$/EXTVB                              
013105,001160: 
013106,001161: 43,3053     0400                                  EBANK=   400                                   
013107,001162: 43,3053           33056        DNEDUMP            CAF      LDNDUMPI                              
013108,001163: 43,3054           54335                           TS       DNTMGOTO                              
013109,001164: 43,3055           02121                           TC       GOPIN                                 
013110,001165: 
013111,001166: 43,3056  43,3053               V74                EQUALS   DNEDUMP                               
013112,001167: 43,3056           03631        LDNDUMPI           REMADR   DNDUMPI                               
013113,001168: 
013114,001169: 
013115,001170:                                                                                                  #           LEMVEC     VERB 80              DESCRIPTION
013116,001171:                                                                                                  #               UPDATE LEM STATE VECTOR
013117,001172:                                                                                                  #                  RESET VEHUPFLG TO 0
013118,001173: 
013119,001174: 43,3057           05516        LEMVEC             TC       DOWNFLAG                              
013120,001175: 43,3060           00026                           ADRES    VEHUPFLG                              #  VB 80 - VEHUPFLG DOWN INDICATES LEM
013121,001176: 
013122,001177: 43,3061           03064                           TC       NOUPDOWN                              
013123,001178:                                                                                                  #           CSMVEC     VERB 81              DESCRIPTION
013124,001179:                                                                                                  #               UPDATE CSM STATE VECTOR
013125,001180:                                                                                                  #                  SET   VEHUPFLG TO 1
013126,001181: 
013127,001182: 43,3062           05504        CSMVEC             TC       UPFLAG                                
013128,001183: 

Page 304

013130,001185: 43,3063           00026                           ADRES    VEHUPFLG                              #  VB 81 - VEHUPFLG UP INDICATES CSM
013131,001186: 
013132,001187: 43,3064           05516        NOUPDOWN           TC       DOWNFLAG                              
013133,001188: 43,3065           00030                           ADRES    NOUPFLAG                              
013134,001189: 
013135,001190: 43,3066           12121                           TCF      GOPIN                                 
013136,001191: 
013137,001192:                                                                                                  #           UPDATOFF   VERB 95      DESCRIPTION
013138,001193:                                                                                                  #               INHIBIT STATE VECTOR UPDATES BY INCORP
013139,001194:                                                                                                  #                  SET NOUPFLAG TO 1
013140,001195: 
013141,001196: 43,3067           05504        UPDATOFF           TC       UPFLAG                                #  VB 95 SET NOUPFLAG
013142,001197: 43,3070           00030                           ADRES    NOUPFLAG                              
013143,001198: 
013144,001199: 43,3071           02121                           TC       GOPIN                                 
013145,001200: 

Page 305

013147,001202:                                                                                                  #           SYSTEST     VERB 92             DESCRIPTION
013148,001203:                                                                                                  #             OPERATE IMU PERFORMANCE TEST.
013149,001204:                                                                                                  #               1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
013150,001205:                                                                                                  #               2. SET EXT VERB BUSY FLAG.
013151,001206: 43,3072  E5,1417                                  EBANK=   QPLACE                                
013152,001207: 
013153,001208: 43,3072           02123        SYSTEST            TC       CHKPOOH                               #  DEMAND POO
013154,001209: 
013155,001210: 43,3073           02076                           TC       TESTXACT                              
013156,001211: 
013157,001212: 43,3074           37707                           CAF      PRIO22                                
013158,001213: 43,3075           05105                           TC       FINDVAC                               
013159,001214: 43,3076  E5,1417                                  EBANK=   QPLACE                                
013160,001215: 43,3076  37,2000                                  SBANK=   IMUSUPER                              
013161,001216: 43,3076           02002 76065                     2CADR    REDO                                  
013162,001217: 
013163,001218: 43,3100           05155                           TC       ENDOFJOB                              
013164,001219: 
013165,001220:                                                                                                  #  VERB 93         CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
013166,001221: 
013167,001222: 43,3101           00004        WMATRXNG           INHINT                                         
013168,001223: 43,3102           44753                           CS       RENDWBIT                              
013169,001224: 43,3103           70101                           MASK     FLAGWRD5                              
013170,001225: 43,3104           54101                           TS       FLAGWRD5                              
013171,001226: 
013172,001227: 43,3105           02121                           TC       GOPIN                                 
013173,001228: 
013174,001229: 43,3106  43,3106               GOSHOSUM           EQUALS   SHOWSUM                               
013175,001230: 
013176,001231: 43,3106           02123        SHOWSUM            TC       CHKPOOH                               #  *
013177,001232: 43,3107           02076                           TC       TESTXACT                              #  *
013178,001233: 43,3110           35021                           CAF      PRIO7                                 #  ALLOW OTHER CHARINS.
013179,001234: 43,3111           05146                           TC       PRIOCHNG                              
013180,001235: 43,3112           34753                           CAF      S+1                                   #  *
013181,001236: 43,3113           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
013182,001237: 43,3114           34755                           CAF      S+ZERO                                #  *
013183,001238: 43,3115           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
013184,001239: 43,3116           33253                           CA       SELFADRS                              #  *
013185,001240: 43,3117           55361                           TS       SELFRET                               #  *
013186,001241: 43,3120           03530                           TC       STSHOSUM                              #  * ENTER ROPECHK
013187,001242: 
013188,001243: 43,3121           23372        SDISPLAY           LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
013189,001244: 43,3122           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
013190,001245: 43,3123           33252        NOKILL             CA       ADRS1                                 #  *
013191,001246: 43,3124           54156                           TS       MPAC       +2                         #  *
013192,001247: 43,3125           33136                           CA       VNCON                                 #  * 0501
013193,001248: 43,3126           04616                           TC       BANKCALL                              #  *
013194,001249: 43,3127           20212                           CADR     GOXDSPF                               #  *
013195,001250: 43,3130           03133                           TC       +3                                    #  *
013196,001251: 43,3131           03641                           TC       NXTBNK                                #  *
013197,001252: 

Page 306

013199,001254: 43,3132           03123                           TC       NOKILL                                #  *
013200,001255: 43,3133           33253                           CA       SELFADRS                              
013201,001256: 43,3134           55371                           TS       SKEEP1                                
013202,001257: 
013203,001258: 43,3135           05472                           TC       ENDEXT                                #  *
013204,001259: 
013205,001260: 43,3136           01201        VNCON              VN       501                                   #  *
013206,001261: 
013207,001262: 43,3137           31376        ENDSUMS            CA       SKEEP6                                #  *
013208,001263: 43,3140           00006                           EXTEND                                         #  *
013209,001264: 43,3141           13344                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
013210,001265: 43,3142           03530                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
013211,001266: 

Page 307

013213,001268:                                                                                                  #           DAPDISP     VERB 48             DESCRIPTION
013214,001269:                                                                                                  #               LOAD AUTO PILOT  DATA
013215,001270:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
013216,001271:                                                                                                  #               2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
013217,001272:                                                                                                  #               3. RELEASE EXT VERB DISPLAY SYSTEM.
013218,001273: 43,3143           02076        DAPDISP            TC       TESTXACT                              
013219,001274: 43,3144           35021                           CAF      PRIO7                                 #  R03
013220,001275: 43,3145           05146                           TC       PRIOCHNG                              
013221,001276: 43,3146           04635                           TC       POSTJUMP                              
013222,001277: 43,3147           40004                           CADR     DAPDATA1                              
013223,001278: 34,2000                                           BANK     34                                    
013224,001279: 20,2000                                           SETLOC   LOADDAP                               
013225,001280: 20,2000                                           BANK                                           
013226,001281: 
013227,001282: 20,2004                                           COUNT*   $$/R03                                
013228,001283: 
013229,001284: 20,2004  30,2000                                  SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S.
013230,001285: 
013231,001286: 20,2004           32114        DAPDATA1           CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOLS BITS.
013232,001287: 20,2005           70111                           MASK     DAPBOOLS                              #  LM
013233,001288: 20,2006           55343                           TS       DAPDATR1                              #  LM
013234,001289: 20,2007           40106                           CS       FLGWRD10                              #  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
013235,001290: 20,2010           74737                           MASK     APSFLBIT                              
013236,001291: 20,2011           10000                           CCS      A                                     
013237,001292: 20,2012           34736                           CAF      BIT14                                 
013238,001293: 20,2013           27343                           ADS      DAPDATR1                              
013239,001294: 20,2014           31343        CHKDATA1           CAE      DAPDATR1                              #  IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
013240,001295: 20,2015           74355                           MASK     BIT13-14                              #    A ONE INTO BIT 13.
013241,001296: 20,2016           00006                           EXTEND                                         
013242,001297: 20,2017           12034                           BZF      FORCEONE                              
013243,001298: 20,2020           31343                           CAE      DAPDATR1                              #  ENSURE THAT NO ILLEGAL BITS SET BY CREW.
013244,001299: 20,2021           72113        MSKDATR1           MASK     DSPLYMSK                              
013245,001300: 20,2022           55343                           TS       DAPDATR1                              
013246,001301: 20,2023           32112                           CAF      V01N46                                #  LM
013247,001302: 20,2024           04616                           TC       BANKCALL                              
013248,001303: 20,2025           20231                           CADR     GOXDSPFR                              
013249,001304: 20,2026           15472                           TCF      ENDEXT                                #  V34E  TERMINATE
013250,001305: 20,2027           12037                           TCF      DPDAT1                                #  V33E  PROCEED
013251,001306: 20,2030           12014                           TCF      CHKDATA1                              #  E     NEW DATA    CHECK AND REDISPLAY
013252,001307: 20,2031           36241                           CAF      REVCNT                                #  BITS 2 & 3:  BLANKS R2 & R3.
013253,001308: 20,2032           05464                           TC       BLANKET                               
013254,001309: 20,2033           15155                           TCF      ENDOFJOB                              
013255,001310: 20,2034           34737        FORCEONE           CAF      BIT13                                 
013256,001311: 20,2035           27343                           ADS      DAPDATR1                              
013257,001312: 20,2036           12021                           TCF      MSKDATR1                              
013258,001313: 
013259,001314: 20,2037           00004        DPDAT1             INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
013260,001315: 20,2040           44737                           CS       APSFLBIT                              #    ON BASIS OF DISPLAYED DAPDATR1.
013261,001316: 20,2041           70106                           MASK     FLGWRD10                              
013262,001317: 20,2042           54001                           TS       L                                     #  SET APSFLAG TO BE COMPLEMENT OF BIT 14.
013263,001318: 

Page 308

013265,001320: 20,2043           41343                           CS       DAPDATR1                              
013266,001321: 20,2044           74736                           MASK     BIT14                                 
013267,001322: 20,2045           10000                           CCS      A                                     
013268,001323: 20,2046           34737                           CAF      APSFLBIT                              
013269,001324: 20,2047           60001                           AD       L                                     
013270,001325: 20,2050           54106                           TS       FLGWRD10                              
013271,001326: 20,2051           41343                           CS       DAPDATR1                              #  SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
013272,001327: 20,2052           74355                           MASK     BIT13-14                              #    MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
013273,001328: 20,2053           10000                           CCS      A                                     #    13 AND 14 ARE SET.
013274,001329: 20,2054           44737                           CS       CSMDOCKD                              
013275,001330: 20,2055           62114                           AD       BOOLSMSK                              
013276,001331: 20,2056           71343                           MASK     DAPDATR1                              
013277,001332: 20,2057           54001                           TS       L                                     
013278,001333: 20,2060           42114                           CS       BOOLSMSK                              
013279,001334: 20,2061           70111                           MASK     DAPBOOLS                              
013280,001335: 20,2062           60001                           AD       L                                     
013281,001336: 20,2063           54111                           TS       DAPBOOLS                              
013282,001337: 20,2064           74737                           MASK     CSMDOCKD                              #  LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
013283,001338: 20,2065           10000                           CCS      A                                     #    MASS IS USUALLY ALREADY OKAY, SO DO
013284,001339: 20,2066           31332                           CAE      CSMMASS                               #    NOT TOUCH ITS LOW-ORDER PART.
013285,001340: 20,2067           61331                           AD       LEMMASS                               
013286,001341: 20,2070           55244                           TS       MASS                                  
013287,001342: 20,2071           30111                           CAE      DAPBOOLS                              
013288,001343: 20,2072           74741                           MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
013289,001344: 20,2073           00006                           EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
013290,001345: 20,2074           12101                           BZF      +5                                    
013291,001346: 20,2075           44735                           CS       BIT15                                 
013292,001347: 20,2076           70075                           MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
013293,001348: 20,2077           54075                           TS       FLAGWRD1                              
013294,001349: 20,2100           12104                           TCF      +4                                    
013295,001350: 20,2101           40075                           CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
013296,001351: 20,2102           74735                           MASK     BIT15                                 
013297,001352: 20,2103           26075                           ADS      FLAGWRD1                              
013298,001353: 20,2104           30111                           CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
013299,001354: 20,2105           76244                           MASK     THREE                                 #  MANEUVER RATE
013300,001355: 20,2106           60000                           DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
013301,001356: 20,2107           55325                           TS       RATEINDX                              #  ARE DP
013302,001357: 20,2110           04635                           TC       POSTJUMP                              
013303,001358: 20,2111           02203                           CADR     STIKLOAD                              
013304,001359: 
013305,001360: 20,2112           00256        V01N46             VN       0146                                  
013306,001361: 20,2113           33113        DSPLYMSK           OCT      33113                                 
013307,001362: 20,2114           13113        BOOLSMSK           OCT      13113                                 
013308,001363: 01,2203                                           BANK     01                                    
013309,001364: 01,2000                                           SETLOC   LOADDAP1                              
013310,001365: 01,2000                                           BANK                                           
013311,001366: 
013312,001367: 01,2203                                           COUNT*   $$/R03                                
013313,001368: 
013314,001369: 01,2203           35015        STIKLOAD           CAF      EBANK6                                
013315,001370: 

Page 309

013317,001372: 01,2204           54003                           TS       EBANK                                 
013318,001373: 01,2205  E6,1442                                  EBANK=   STIKSENS                              
013319,001374: 01,2205           34745                           CA       RHCSCALE                              #  SET STICK SENSITIVITY TO CORRESPOND TO A
013320,001375: 01,2206           70111                           MASK     DAPBOOLS                              #  MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
013321,001376: 01,2207           10000                           CCS      A                                     #  20 D/S(NORMAL) OR 4 D/S(FINE), SCALED
013322,001377: 01,2210           32334                           CA       NORMAL                                #  AT 45 D/S.
013323,001378: 01,2211           62335                           AD       FINE                                  
013324,001379: 01,2212           55442                           TS       STIKSENS                              
013325,001380: 01,2213           32337                           CA       -0.6D/S                               
013326,001381: 01,2214           55474                           TS       -RATEDB                               #  LM-ONLY BREAKOUT LEVEL IS .6 D/S.
013327,001382: 01,2215           34737                           CA       CSMDOCKD                              #  IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
013328,001383: 01,2216           70111                           MASK     DAPBOOLS                              #  BY 10. NORMAL SCALING IS THEN 2 D/S AND
013329,001384: 01,2217           00006                           EXTEND                                         #  FINE SCALING IS 0.4 D/S
013330,001385: 01,2220           12227                           BZF      +7                                    #  BRANCH IF CSM IS NOT DOCKED.
013331,001386: 01,2221           31442                           CA       STIKSENS                              
013332,001387: 01,2222           00006                           EXTEND                                         
013333,001388: 01,2223           72336                           MP       1/10                                  
013334,001389: 01,2224           55442                           TS       STIKSENS                              
013335,001390: 01,2225           32340                           CA       -0.3D/S                               #  CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
013336,001391: 01,2226           55474                           TS       -RATEDB                               
013337,001392: 01,2227           00003                           RELINT                                         #  PROCEED TO NOUN 47, MASS LOAD,
013338,001393: 
013339,001394: 01,2230           32331        DAPDATA2           CAF      V0647                                 
013340,001395: 01,2231           04616                           TC       BANKCALL                              
013341,001396: 01,2232           20231                           CADR     GOXDSPFR                              
013342,001397: 01,2233           12241                           TCF      ENDR03                                #  V34E  TERMINATE. FIRST SET DB, DO 1/ACCS
013343,001398: 01,2234           12245                           TCF      DAPDAT2                               #  V33E  PROCEED
013344,001399: 01,2235           12230                           TCF      DAPDATA2                              #        LOAD NEW DATA AND RECYCLE
013345,001400: 01,2236           34751                           CAF      BIT3                                  #  BLANKS R3
013346,001401: 01,2237           05464                           TC       BLANKET                               #             LM
013347,001402: 01,2240           15155                           TCF      ENDOFJOB                              
013348,001403: 01,2241           00004        ENDR03             INHINT                                         
013349,001404: 01,2242           04674                           TC       IBNKCALL                              
013350,001405: 01,2243           40123                           CADR     RESTORDB                              
013351,001406: 01,2244           15472                           TCF      ENDEXT                                #  DOES RELINT
013352,001407: 
013353,001408: 01,2245           40106        DAPDAT2            CS       FLGWRD10                              #  DETERMINE STAGE FROM APSFLAG
013354,001409: 01,2246           74737                           MASK     APSFLBIT                              
013355,001410: 01,2247           10000                           CCS      A                                     
013356,001411: 01,2250           32000                           CA       MINLMD                                
013357,001412: 01,2251           62001                           AD       MINMINLM                              
013358,001413: 01,2252           61331                           AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
013359,001414: 01,2253           00006                           EXTEND                                         
013360,001415: 01,2254           62230                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
013361,001416: 01,2255           30111                           CAE      DAPBOOLS                              
013362,001417: 01,2256           74737                           MASK     CSMDOCKD                              
013363,001418: 01,2257           00006                           EXTEND                                         
013364,001419: 01,2260           12266                           BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
013365,001420: 01,2261           44741                           CS       MINCSM                                #  TEST CSM MASS
013366,001421: 01,2262           61332                           AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM
013367,001422: 

Page 310

013369,001424: 01,2263           00006                           EXTEND                                         
013370,001425: 01,2264           62230                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
013371,001426: 01,2265           31332                           CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
013372,001427: 01,2266           61331        LEMALONE           AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
013373,001428: 01,2267           22007                           ZL                                             
013374,001429: 01,2270           53245                           DXCH     MASS                                  
013375,001430: 01,2271           00004                           INHINT                                         
013376,001431: 01,2272           04674                           TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
013377,001432: 01,2273           40123                           CADR     RESTORDB                              #    INERTIA.
013378,001433: 01,2274           00003                           RELINT                                         #  PROCEED TO NOUN 48 (OR END).
013379,001434: 
013380,001435: 01,2275           40106        DAPDATA3           CS       FLGWRD10                              
013381,001436: 01,2276           74737                           MASK     APSFLBIT                              
013382,001437: 01,2277           00006                           EXTEND                                         #  END ROUTINE IF LEM HAS STAGED,
013383,001438: 01,2300           15472                           BZF      ENDEXT                                
013384,001439: 01,2301           32332                           CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
013385,001440: 01,2302           04616                           TC       BANKCALL                              
013386,001441: 01,2303           20231                           CADR     GOXDSPFR                              
013387,001442: 01,2304           05472                           TC       ENDEXT                                
013388,001443: 01,2305           12312                           TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
013389,001444: 01,2306           12301                           TCF      -5                                    #       LOAD NEW DATA AND RECYCLE
013390,001445: 01,2307           34751                           CAF      BIT3                                  
013391,001446: 01,2310           05464                           TC       BLANKET                               #  BLANK R3
013392,001447: 01,2311           15155                           TCF      ENDOFJOB                              
013393,001448: 01,2312           34753        DPDAT3             CAF      BIT1                                  #  GO TO TRIMGIMB VIA WAITLIST SO IT
013394,001449: 01,2313           00004                           INHINT                                         #  CAN USE FIXDELAY AND VARDELAY
013395,001450: 01,2314           05203                           TC       WAITLIST                              
013396,001451: 01,2315  E6,1401                                  EBANK=   ROLLTIME                              
013397,001452: 01,2315           03106 56066                     2CADR    TRIMGIMB                              
013398,001453: 01,2317           15155                           TCF      ENDOFJOB                              #  DOES A RELINT
013399,001454: 01,2320           32333        TRIMDONE           CAF      V50N48                                
013400,001455: 01,2321           04616                           TC       BANKCALL                              #  TRIM IS FINISHED; PLEASE TERMINATE R03
013401,001456: 01,2322           20237                           CADR     GOMARK3R                              
013402,001457: 01,2323           05472                           TC       ENDEXT                                #  V34E TERMINATE
013403,001458: 01,2324           05472                           TC       ENDEXT                                
013404,001459: 01,2325           05472                           TC       ENDEXT                                
013405,001460: 01,2326           36007                           CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
013406,001461: 01,2327           05464                           TC       BLANKET                               
013407,001462: 01,2330           15155                           TCF      ENDOFJOB                              
013408,001463: 
013409,001464: 01,2331           01457        V0647              VN       0647                                  
013410,001465: 01,2332           01460        V06N48             VN       0648                                  
013411,001466: 
013412,001467: 01,2333           14460        V50N48             VN       5048                                  
013413,001468: 01,2334           25101        NORMAL             DEC      .660214                               
013414,001469:                                                                                                  #  NORMAL SCALING IS 20 D/S
013415,001470: 01,2335           05220        FINE               DEC      .165054                               #  FINE STICK SCALING (4 D/S).
013416,001471: 01,2336           03146        1/10               DEC      .1                                    #  FACTOR FOR CSM-DOCKED SCALING
013417,001472: 01,2337           77445        -0.6D/S            DEC      -218       B-14                       
013418,001473: 

Page 311

013420,001475: 
013421,001476: 01,2340           77622        -0.3D/S            DEC      -109       B-14                       
013422,001477: 

Page 312

013424,001479:                                                                                                  #  VERB 66.  VEHICLES ARE ATTACHED.  MOVE THIS VEHICLE STATE VECTOR TO
013425,001480:                                                                                                  #            OTHER VEHICLE STATE VECTOR.
013426,001481: 
013427,001482:                                                                                                  #      USE SUBROUTINE GENTRAN.
013428,001483: 
013429,001484: 07,2667                                           BANK     7                                     
013430,001485: 43,2000                                           SETLOC   EXTVERBS                              
013431,001486: 43,2000                                           BANK                                           
013432,001487: 
013433,001488: 43,3150                                           COUNT*   $$/EXTVB                              
013434,001489: 
013435,001490: 43,3150  E3,1626                                  EBANK=   RRECTHIS                              
013436,001491: 
013437,001492: 43,3150           34737        ATTACHED           CAF      PRIO10                                
013438,001493: 43,3151           05105                           TC       FINDVAC                               
013439,001494: 43,3152  E3,1626                                  EBANK=   RRECTHIS                              
013440,001495: 
013441,001496: 43,3152           03155 66103                     2CADR    ATTACHIT                              
013442,001497: 
013443,001498: 43,3154           05155                           TC       ENDOFJOB                              
013444,001499: 
013445,001500: 43,3155           06036        ATTACHIT           TC       INTPRET                               
013446,001501: 43,3156           77624                           CALL                                           
013447,001502: 43,3157           27412                                    INTSTALL                              
013448,001503: 43,3160           43014                           SET      BON                                   
013449,001504: 43,3161           04063                                    MOONOTH                               
013450,001505: 43,3162           04304                                    MOONTHIS                              
013451,001506: 43,3163           67166                                    +3                                    
013452,001507: 43,3164           77614                           CLEAR                                          
013453,001508: 43,3165           04263                                    MOONOTH                               
013454,001509: 43,3166           77776                           EXIT                                           
013455,001510: 43,3167           33212                           CAF      OCT51                                 
013456,001511: 43,3170           05544                           TC       GENTRAN                               
013457,001512: 43,3171           01626                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
013458,001513: 43,3172           01554                           ADRES    RRECTOTH                              
013459,001514: 
013460,001515: 43,3173           00003                           RELINT                                         
013461,001516: 43,3174           06036                           TC       INTPRET                               
013462,001517: 43,3175           77624                           CALL                                           #  UPDATE R-OTHER, V-OTHER
013463,001518: 43,3176           26760                                    PTOALEM                               
013464,001519: 43,3177           45154                           LXA,2    CALL                                  
013465,001520: 43,3200           02030                                    PBODY                                 
013466,001521: 43,3201           26114                                    SVDWN1                                
013467,001522: 43,3202           77776                           EXIT                                           
013468,001523: 
013469,001524: 43,3203           33213                           CAF      TCPINAD                               
013470,001525: 43,3204           50120                           INDEX    FIXLOC                                
013471,001526: 43,3205           54052                           TS       QPRET                                 
013472,001527: 43,3206           04635                           TC       POSTJUMP                              
013473,001528: 43,3207           27427                           CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
013474,001529: 

Page 313

013476,001531: 
013477,001532: 43,3210           77634        TCPIN              RTB                                            
013478,001533: 43,3211           20723                                    PINBRNCH                              
013479,001534: 
013480,001535: 43,3212           00051        OCT51              OCT      51                                    
013481,001536: 43,3213           67210        TCPINAD            CADR     TCPIN                                 
013482,001537: 
013483,001538:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
013484,001539: 
013485,001540:                                                                                                  #           GO TO V37 WITH ZERO TO CAUSE POO.
013486,001541:                                                                                                  #           STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
013487,001542:                                                                                                  #                  THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
013488,001543: 
013489,001544: 43,3214           05504        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
013490,001545: 43,3215           00221                           ADRES    QUITFLAG                              #        AT NEXT TIMESTEP
013491,001546: 
013492,001547: 43,3216           34755                           CAF      ZERO                                  
013493,001548: 43,3217           04635                           TC       POSTJUMP                              
013494,001549: 43,3220           10037                           CADR     V37                                   #  GO TO POO
013495,001550: 
013496,001551: 
013497,001552:                                                                                                  #  VERB 67:     DISPLAY OF W MATRIX
013498,001553: 
013499,001554: 43,3221           02076        V67                TC       TESTXACT                              
013500,001555: 43,3222           35017                           CAF      PRIO5                                 
013501,001556: 43,3223           05105                           TC       FINDVAC                               
013502,001557: 43,3224  E4,1604                                  EBANK=   WWPOS                                 
013503,001558: 43,3224           02011 62064                     2CADR    V67CALL                               
013504,001559: 
013505,001560: 43,3226           05155                           TC       ENDOFJOB                              
013506,001561: 
013507,001562:                                                                                                  #  VERB 65          DISABLE U,V JETS DURING DPS BURNS
013508,001563: 
013509,001564: 43,3227           05504        SNUFFOUT           TC       UPFLAG                                
013510,001565: 43,3230           00115                           ADRES    SNUFFER                               
013511,001566: 43,3231           02121                           TC       GOPIN                                 
013512,001567: 
013513,001568:                                                                                                  #  VERB 75          ENABLE U,V JETS DURING DPS BURNS
013514,001569: 
013515,001570: 43,3232           05516        OUTSNUFF           TC       DOWNFLAG                              
013516,001571: 43,3233           00115                           ADRES    SNUFFER                               
013517,001572: 43,3234           02121                           TC       GOPIN                                 
013518,001573:                                                                                                  #  VERB 85         DISPLAY RR LOS AZIMUTH AND ELEVATION.
013519,001574: 
013520,001575:                                                                                                  #           AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0 - 90 DEG IN THE +Y HEMISPHERE,
013521,001576:                                                                                                  #  360 - 270 DEG IN THE -Y HEMISPHERE.
013522,001577: 
013523,001578:                                                                                                  #           ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0 - 360 ABOUT +Y.
013524,001579: 
013525,001580: 43,3235  E7,1750                                  EBANK=   TANGNB                                
013526,001581: 

Page 314

013528,001583: 43,3235           02076        VERB85             TC       TESTXACT                              
013529,001584: 43,3236           04635                           TC       POSTJUMP                              
013530,001585: 43,3237           60000                           CADR     DSPRRLOS                              
013531,001586: 
013532,001587: 40,2000                                           SETLOC   PINBALL1                              
013533,001588: 40,2000                                           BANK                                           
013534,001589: 
013535,001590: 40,2000                                           COUNT*   $$/EXTVB                              
013536,001591: 
013537,001592: 40,2000           35017        DSPRRLOS           CAF      PRIO5                                 
013538,001593: 40,2001           05105                           TC       FINDVAC                               
013539,001594: 40,2002  E7,1750                                  EBANK=   TANGNB                                
013540,001595: 40,2002           02017 60107                     2CADR    RRLOSDSP                              
013541,001596: 40,2004           34740                           CAF      PRIO4                                 
013542,001597: 40,2005           05146                           TC       PRIOCHNG                              
013543,001598: 40,2006           32076                           CAF      V16N56                                
013544,001599: 40,2007           04616                           TC       BANKCALL                              
013545,001600: 40,2010           20231                           CADR     GOMARKFR                              
013546,001601: 40,2011           05563                           TC       B5OFF                                 
013547,001602: 40,2012           05563                           TC       B5OFF                                 
013548,001603: 40,2013           05563                           TC       B5OFF                                 
013549,001604: 
013550,001605: 40,2014           34751                           CAF      BIT3                                  
013551,001606: 40,2015           05464                           TC       BLANKET                               
013552,001607: 40,2016           05155                           TC       ENDOFJOB                              
013553,001608: 
013554,001609: 40,2017           00006        RRLOSDSP           EXTEND                                         
013555,001610: 40,2020           30036                           DCA      CDUT                                  
013556,001611: 40,2021           53751                           DXCH     TANGNB                                
013557,001612: 40,2022           06036                           TC       INTPRET                               
013558,001613: 40,2023           77624                           CALL                                           
013559,001614: 40,2024           46041                                    RRNB                                  #  GET RR LOS IN BODY AXES.
013560,001615: 40,2025           00001                           STORE    0D                                    #  UNIT LOS
013561,001616: 40,2026           14007                           STODL    6D                                    
013562,001617: 40,2027           06424                                    HI6ZEROS                              
013563,001618: 40,2030           24011                           STOVL    8D                                    
013564,001619: 40,2031           00007                                    6D                                    
013565,001620: 40,2032           77656                           UNIT                                           
013566,001621: 40,2033           00007                           STORE    6D                                    #  UNIT OF LOS PROJ IN X-Z PLANE
013567,001622: 40,2034           77641                           DOT                                            
013568,001623: 40,2035           06416                                    UNITZ                                 
013569,001624: 40,2036           24021                           STOVL    COSTH                                 #  16D
013570,001625: 40,2037           06422                                    UNITX                                 
013571,001626: 40,2040           77641                           DOT                                            
013572,001627: 40,2041           00007                                    6D                                    
013573,001628: 40,2042           34023                           STCALL   SINTH                                 #  18D
013574,001629: 40,2043           47222                                    ARCTRIG                               
013575,001630: 40,2044           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0 - 360 DEG.
013576,001631: 40,2045           60047                                    +2                                    
013577,001632: 

Page 315

013579,001634: 40,2046           06432                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
013580,001635: 40,2047           26207                           STOVL    RR-ELEV                               
013581,001636: 40,2050           00001                                    0D                                    
013582,001637: 40,2051           77641                           DOT                                            
013583,001638: 40,2052           06420                                    UNITY                                 
013584,001639: 40,2053           24023                           STOVL    SINTH                                 
013585,001640: 40,2054           00001                                    0D                                    
013586,001641: 40,2055           77641                           DOT                                            
013587,001642: 40,2056           00007                                    6D                                    
013588,001643: 40,2057           34021                           STCALL   COSTH                                 
013589,001644: 40,2060           47222                                    ARCTRIG                               
013590,001645: 40,2061           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0 - 360 DEG.
013591,001646: 40,2062           60064                                    +2                                    
013592,001647: 40,2063           06432                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
013593,001648: 40,2064           02205                           STORE    RR-AZ                                 
013594,001649: 40,2065           77776                           EXIT                                           
013595,001650: 40,2066           34777                           CA       1SEC                                  
013596,001651: 40,2067           04616                           TC       BANKCALL                              
013597,001652: 40,2070           01735                           CADR     DELAYJOB                              
013598,001653: 
013599,001654: 40,2071           34747                           CA       BIT5                                  
013600,001655: 40,2072           71044                           MASK     EXTVBACT                              
013601,001656: 40,2073           10000                           CCS      A                                     
013602,001657: 40,2074           02017                           TC       RRLOSDSP                              
013603,001658: 40,2075           05472                           TC       ENDEXT                                
013604,001659: 
013605,001660: 40,2076           04070        V16N56             VN       1656                                  

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