Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

011049,000002:                                                                                                  ## Copyright:   Public domain.
011050,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
011051,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
011052,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
011053,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
011054,000007:                                                                                                  ##              Apollo 15-17.
011055,000008:                                                                                                  ## Assembler:   yaYUL
011056,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
011057,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
011058,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
011059,000012:                                                                                                  ## Mod history: 2009-08-04 JL   Adapted from corresponding Comanche 055 file.
011060,000013:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
011061,000014:                                                                                                  ##              2010-02-13 JL   Fixed errors on p260, p261.
011062,000015:                                                                                                  ##              2010-02-16 JL   Added some SBANK= directives on pages 258, 262, 271, 274 to fix rope image errors.
011063,000016:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
011064,000017:                                                                                                  ##              2010-12-29 JL   Fixed indentation.
011065,000018:                                                                                                  ##              2011-05-07 JL   Flagged SBANK= workarounds for future removal.
011066,000019:                                                                                                  ##              2011-05-17 JL   Removed all SBANK= workarounds.
011067,000020:                                                                                                  ##              2017-01-22 RSB  Proofed comment text by diff'ing vs Comanche 55
011068,000021:                                                                                                  ##                              and corrected errors found.
011069,000022:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
011070,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
011071,000024: 

Page 249

011073,000026: 
011074,000027: 43,2000                                           SETLOC   EXTVERBS                              
011075,000028: 43,2000                                           BANK                                           
011076,000029: 
011077,000030: 43,2000  E5,1757                                  EBANK=   OGC                                   
011078,000031: 
011079,000032: 43,2000                                           COUNT*   $$/EXTVB                              
011080,000033: 
011081,000034:                                                                                                  #  FAN-OUT
011082,000035: 
011083,000036: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
011084,000037: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
011085,000038: 
011086,000039: 43,2002           02121        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 ONLY).
011087,000040: 43,2003           02133                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011088,000041:                                                                                                  #                                91 ONLY)
011089,000042: 43,2004           02227                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
011090,000043: 43,2005           02364                           TC       IMUATTCK                              #  VB43 LOAD IMU ATTITUDE ERROR METERS.
011091,000044: 43,2006           03064                           TC       SETSURF                               #  VB44 SET SURFACE FLAG
011092,000045: 43,2007           03062                           TC       RESTSRF                               #  VB45 RESET SURFACE FLAG
011093,000046: 43,2010           02451                           TC       STABLISH                              #  VB46 ESTABLISH G+C CONTROL.
011094,000047: 43,2011           03001                           TC       LMTOCMSV                              #  VB47 MOVE LM STATE VECTOR INTO CM
011095,000048: 43,2012           02544                           TC       DAPDISP                               #  VB48 LOAD A/P DATA.
011096,000049: 43,2013           12535                           TCF      CREWMANU                              #  VB 49 START AUTOMATIC ATTITUDE MANEUVER
011097,000050: 43,2014           02265                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
011098,000051: 43,2015           02265                           TC       GOLOADLV                              #  VB51 PLEASE MARK
011099,000052: 43,2016           03037                           TC       V52                                   #  VB52 SET OFFSET NO. FOR P22
011100,000053: 43,2017           02265                           TC       GOLOADLV                              #  VB53 PLEASE PERFORM COAS MARK
011101,000054: 43,2020           02600                           TC       GOTOR23                               #  V54 START R23 (R21-BACKUP)
011102,000055: 43,2021           02312                           TC       ALINTIME                              #  VB55 ALIGN TIME
011103,000056: 43,2022           02641                           TC       TRACKTRM                              #  VB56 TERMINATE TRACKING (P20 +P25)
011104,000057: 43,2023           03102                           TC       V57CALL                               #  V57  FULTKFLG SETTING OPTION
011105,000058: 43,2024           02445                           TC       ENATMA                                #  VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
011106,000059: 43,2025           02265                           TC       GOLOADLV                              #  VB59 PLEASE CALIBRATE
011107,000060: 43,2026           02273                           TC       V60                                   #  VB60 SET CPHIX (N17) EQUAL TO CDU
011108,000061: 43,2027           02301                           TC       V61                                   #  VB61 SELECT MODE I
011109,000062: 43,2030           02304                           TC       V62                                   #  VB62 SELECT MODE II, ERROR WRT N22
011110,000063: 43,2031           02307                           TC       V63                                   #  VB63 SELECT MODE III, ERROR WRT N17
011111,000064: 43,2032           02437                           TC       VB64                                  #  VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
011112,000065: 43,2033           02342                           TC       CKOPTVB                               #  V 65 E OPTICAL VERIFICATION FOR PRELAUNC
011113,000066: 43,2034           02774                           TC       ATTACHED                              #  VB 66 ATTACHED. MOVE THIS TO OTHER STATE
011114,000067: 43,2035           03054                           TC       V67                                   #  VB67 WMATRIX MONITOR
011115,000068: 43,2036           02116                           TC       ALM/END                               #  VB68 SPARE
011116,000069: 43,2037           02037        VERB69             TC       VERB69                                #  VB 69 CAUSE RESTART
011117,000070: 43,2040           03656                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
011118,000071: 43,2041           03660                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
011119,000072: 43,2042           03662                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
011120,000073: 43,2043           03664                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
011121,000074: 43,2044           02706                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
011122,000075:                                                                                                  #        FOR ERASABLE DUMP.
011123,000076: 43,2045           02713                           TC       LFTFLGON                              #  VB75 SET LIFTOFF FLAG.
011124,000077: 43,2046           02116                           TC       ALM/END                               #  VB76 SPARE

Page 250

011126,000079: 43,2047           02116                           TC       ALM/END                               #  VB77 SPARE
011127,000080: 43,2050           02352                           TC       CHAZFOGC                              #  CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
011128,000081: 43,2051           02116                           TC       ALM/END                               #  VB79 SPARE
011129,000082: 43,2052           02703                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
011130,000083: 43,2053           02705                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
011131,000084: 43,2054           02557                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
011132,000085: 43,2055           02564                           TC       V83PERF                               #  VB83 RANGE, RANGE RATE, +X AXIS  (R31)
011133,000086: 43,2056           02116                           TC       ALM/END                               #  V84 SPARE
011134,000087: 43,2057           02574                           TC       V85PERF                               #  VB85 RANGE, RANGE RATE, SLOS     (R34)
011135,000088: 43,2060           02621                           TC       V86PERF                               #  VB86 BACKUP MARK REJECT
011136,000089: 43,2061           02773                           TC       SETVHFLG                              #  VB87 SET VHF RANGE FLAG
011137,000090: 43,2062           02770                           TC       RESETVHF                              #  VB88 RESET VHF RANGE FLAG
011138,000091: 43,2063           02722                           TC       V89PERF                               #  V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
011139,000092: 43,2064           03022                           TC       V90PERF                               #  VB90-OUT OF PLANE PARAMETERS     %R36"
011140,000093: 43,2065           02735                           TC       GOSHOSUM                              #  VB91 TEMP FOR HYBRID AND STG.
011141,000094: 43,2066           02116                           TC       ALM/END                               #  VB92 SPARE
011142,000095: 43,2067           02731                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
011143,000096: 43,2070           03006                           TC       VERB94                                #  VB94 DO R64
011144,000097: 43,2071           02116                           TC       ALM/END                               #  VB95 SPARE
011145,000098: 43,2072           13030                           TCF      VERB96                                #  VB96 SET QUITFLAG TO STOP INTEGRATION
011146,000099: 43,2073           02265                           TC       GOLOADLV                              #  V97 PLEASE PERFORM ENGINE-FAIL (R41)
011147,000100: 43,2074           02116                           TC       ALM/END                               #  VB98 SPARE
011148,000101: 43,2075           02265                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
011149,000102: 
011150,000103:                                                                                                  #  END OF EXTENDED VERB FAN
011151,000104: 
011152,000105: 43,2076           11247        TESTXACT           CCS      EXTVBACT                              
011153,000106: 43,2077           02116                           TC       ALM/END                               #  YES. TURN ON OPERATOR ERROR LIGHT
011154,000107: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIOS USING DSKY
011155,000108: 43,2101           77646                           MASK     14,12,7                               
011156,000109: 43,2102           10000                           CCS      A                                     
011157,000110: 43,2103           02116                           TC       ALM/END                               
011158,000111: 
011159,000112: 43,2104           34124                           CAF      OCT24                                 #  SET BITS 3 AND 5
011160,000113: 43,2105           55247        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
011161,000114:                                                                                                  #  SYSTEM BUSY
011162,000115: 
011163,000116: 43,2106           30002                           CA       Q                                     
011164,000117: 43,2107           54155                           TS       MPAC       +1                         
011165,000118: 
011166,000119: 43,2110           44767                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
011167,000120: 43,2111           04202                           TC       NVSUB                                 
011168,000121: 43,2112           02113                           TC       +1                                    
011169,000122: 43,2113           10067                           CCS      NEWJOB                                #  ALLOW POSSIBLE WAITING DISPLAY (FROM
011170,000123: 43,2114           05152                           TC       CHANG1                                #     RELDSP) TO COME UP.
011171,000124: 
011172,000125: 43,2115           00155                           TC       MPAC       +1                         
011173,000126: 
011174,000127: 43,2116     5524               TERMEXTV           EQUALS   ENDEXT                                
011175,000128: 

Page 251

011177,000130: 
011178,000131: 43,2116     5524               ENDEXTVB           EQUALS   ENDEXT                                
011179,000132: 
011180,000133: 43,2116           04362        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
011181,000134: 43,2117           04655        GOPIN              TC       POSTJUMP                              
011182,000135: 43,2120           21275                           CADR     PINBRNCH                              
011183,000136: 

Page 252

011185,000138: 
011186,000139:                                                                                                  #  VBZERO        VERB 40         DESCRIPTION
011187,000140: 43,2121           31335        VBZERO             CA       MODECADR                              #  KEYBOARD REQUEST FOR ISS CDU ZERO
011188,000141: 43,2122           00006                           EXTEND                                         
011189,000142: 43,2123           12125                           BZF      +2                                    
011190,000143: 43,2124           02116                           TC       ALM/END                               
011191,000144: 43,2125           04636                           TC       BANKCALL                              
011192,000145: 43,2126           16627                           CADR     IMUZERO                               
011193,000146: 
011194,000147: 43,2127           04636                           TC       BANKCALL                              #  STALL
011195,000148: 43,2130           17644                           CADR     IMUSTALL                              
011196,000149: 43,2131           02132                           TC       +1                                    
011197,000150: 
011198,000151: 43,2132           02117                           TC       GOPIN                                 
011199,000152: 

Page 253

011201,000154: 
011202,000155:                                                                                                  #  VBCOARK       VERB 41         DESCRIPTION
011203,000156:                                                                                                  #        COURSE ALIGN IMU OR OPTICS
011204,000157: 
011205,000158:                                                                                                  #        1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
011206,000159:                                                                                                  #        2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
011207,000160:                                                                                                  #        CASE 1  NOUN 20 (ICDU ANGLES)
011208,000161:                                                                                                  #        3. SET EXT VERB DISPLAY ACTIVE FLAG.
011209,000162:                                                                                                  #        4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011210,000163:                                                                                                  #           RESPONSES
011211,000164:                                                                                                  #                A. TERMINATE
011212,000165:                                                                                                  #                        1. RELEASE EXT VERB DISPLAY SYSTEM
011213,000166:                                                                                                  #                B. PROCEED
011214,000167:                                                                                                  #                        1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
011215,000168:                                                                                                  #                                RESPONSES
011216,000169:                                                                                                  #                                A. TERMINATE
011217,000170:                                                                                                  #                                        1. RELEASE EXT VERB DISPLAY SYSTEM.
011218,000171:                                                                                                  #                                B. PROCEED
011219,000172:                                                                                                  #                                        1. EXECUTE ICORK2.
011220,000173:                                                                                                  #                                C. ENTER
011221,000174:                                                                                                  #                                        1. INCREMENT CDU ANGLES
011222,000175:                                                                                                  #                                        2. EXECUTE ICORK2.
011223,000176:                                                                                                  #                C. ENTER
011224,000177:                                                                                                  #                        1. EXECUTE ICORK2.
011225,000178:                                                                                                  #        ICORK2
011226,000179:                                                                                                  #                1. RE-DISPLAY VERB 41.
011227,000180:                                                                                                  #                2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
011228,000181:                                                                                                  #                3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
011229,000182:                                                                                                  #                4. RELEASE EXT VERB DISPLAY SYSTEM.
011230,000183:                                                                                                  #        CASE 2  NOUN 91 (OCDU ANGLES)
011231,000184:                                                                                                  #        5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
011232,000185:                                                                                                  #           OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
011233,000186:                                                                                                  #           AND RELEASE EXT VERB DISPLAY SYSTEM).
011234,000187:                                                                                                  #        6. RESPONSES TO V29,N92.
011235,000188:                                                                                                  #                A. TERMINATE
011236,000189:                                                                                                  #                        RELEASE EXT VERB DISPLAY SYSTEM
011237,000190:                                                                                                  #                B. PROCEED OR ENTER
011238,000191:                                                                                                  #                        RE-DISPLAY V41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
011239,000192:                                                                                                  #                        RELEASE EXT VERB DISPLAY SYSTEM.
011240,000193: 
011241,000194: 43,2133           44124        VBCOARK            CS       OCT24                                 
011242,000195: 43,2134           61205                           AD       NOUNREG                               
011243,000196: 43,2135           00006                           EXTEND                                         
011244,000197: 43,2136           12143                           BZF      IMUCOARK                              #  NOUN 20
011245,000198: 
011246,000199: 43,2137           62165                           AD       OPIMDIFF                              #  -71
011247,000200: 43,2140           00006                           EXTEND                                         
011248,000201: 43,2141           12166                           BZF      OPTCOARK                              #  NOUN 91
011249,000202: 
011250,000203: 43,2142           02116                           TC       ALM/END                               #  WRONG NOUN
011251,000204: 
011252,000205: 43,2143           02076        IMUCOARK           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD

Page 254

011254,000207: 43,2144           32163                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
011255,000208: 43,2145           04636                           TC       BANKCALL                              
011256,000209: 43,2146           20576                           CADR     GOXDSPF                               
011257,000210: 43,2147           05524                           TC       TERMEXTV                              
011258,000211: 43,2150           12151                           TCF      +1                                    
011259,000212: 
011260,000213: 43,2151           32164        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
011261,000214: 43,2152           04636                           TC       BANKCALL                              
011262,000215: 43,2153           21064                           CADR     EXDSPRET                              
011263,000216: 
011264,000217: 43,2154           02260                           TC       CKMODCAD                              
011265,000218: 43,2155           04636                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
011266,000219: 43,2156           16724                           CADR     IMUCOARS                              
011267,000220: 
011268,000221: 43,2157           04636                           TC       BANKCALL                              #  STALL
011269,000222: 43,2160           17644                           CADR     IMUSTALL                              
011270,000223: 43,2161           05524                           TC       ENDEXTVB                              
011271,000224: 43,2162           05524                           TC       ENDEXTVB                              
011272,000225: 
011273,000226: 43,2163           06226        VNLODCDU           VN       2522                                  
011274,000227: 43,2164           12200        IMUCOARV           VN       4100                                  
011275,000228: 43,2165           77670        OPIMDIFF           DEC      -71        B-14                       
011276,000229: 

Page 255

011278,000231: 
011279,000232:                                                                                                  #  TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
011280,000233: 
011281,000234: 43,2166           02714        OPTCOARK           TC       CHKPOOH                               #  ENSURE IN POO
011282,000235: 43,2167           02076                           TC       TESTXACT                              
011283,000236: 43,2170           35043                           CAF      EBANK5                                
011284,000237: 43,2171           54003                           TS       EBANK                                 
011285,000238: 
011286,000239: 43,2172           11354                           CCS      SWSAMPLE                              #  SEE IF SWITCH AT COMPUTER
011287,000240: 43,2173           02200                           TC       +5                                    #  SWITCH AT COMPUTER
011288,000241: 43,2174           02175                           TC       +1                                    #  NOT ON COMPUTER
011289,000242: 43,2175           04362                           TC       FALTON                                #  TURN ON OPERATOR ERR
011290,000243: 43,2176           05671                           TC       ALARM                                 #  AND ALARM
011291,000244: 43,2177           00115                           OCT      00115                                 
011292,000245: 
011293,000246: 43,2200           11323                           CCS      OPTIND                                #  SEE IF OPTICS AVAILABLE
011294,000247: 43,2201           02207                           TC       OPTC1                                 #  IN USE
011295,000248: 43,2202           02207                           TC       OPTC1                                 #  IN USE
011296,000249: 43,2203           02207                           TC       OPTC1                                 #  IN USE
011297,000250: 
011298,000251: 43,2204           05671                           TC       ALARM                                 #  OPTICS RESERVED (OPTIND=-0)
011299,000252: 43,2205           00117                           OCT      00117                                 
011300,000253: 43,2206           05524                           TC       ENDEXT                                
011301,000254: 
011302,000255: 43,2207           32226        OPTC1              CAF      VNLDOCDU                              #  VERB-NOUN TO LOAD OPTICS CDUS
011303,000256: 43,2210           04636                           TC       BANKCALL                              
011304,000257: 43,2211           20576                           CADR     GOXDSPF                               
011305,000258: 43,2212           05524                           TC       TERMEXTV                              
011306,000259: 43,2213           02214                           TC       +1                                    #  PROCEED
011307,000260: 
011308,000261: 43,2214           31773                           CA       SAC                                   
011309,000262: 43,2215           55313                           TS       DESOPTS                               
011310,000263: 43,2216           31775                           CA       PAC                                   
011311,000264: 43,2217           55312                           TS       DESOPTT                               
011312,000265: 43,2220           32164                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
011313,000266: 43,2221           04636                           TC       BANKCALL                              
011314,000267: 43,2222           21064                           CADR     EXDSPRET                              
011315,000268: 
011316,000269: 43,2223           34770                           CAF      ONE                                   
011317,000270: 43,2224           55323                           TS       OPTIND                                #  SET COARS WORKING
011318,000271: 
011319,000272: 43,2225           05524                           TC       ENDEXTVB                              
011320,000273: 
011321,000274: 43,2226           06134        VNLDOCDU           VN       2492                                  
011322,000275: 43,2227  43,2164               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
011323,000276: 

Page 256

011325,000278: 
011326,000279:                                                                                                  #  IMUFINEK      VERB 42         DESCRIPTION
011327,000280:                                                                                                  #        FINE ALIGN IMU
011328,000281: 
011329,000282:                                                                                                  #        1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011330,000283:                                                                                                  #        2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011331,000284:                                                                                                  #                RESPONSES
011332,000285:                                                                                                  #                A. TERMINATE
011333,000286:                                                                                                  #                        1. RELEASE EXT VERB DISPLAY SYSTEM.
011334,000287:                                                                                                  #                B. PROCEED OR ENTER
011335,000288:                                                                                                  #                        1. RE-DISPLAY VERB 42
011336,000289:                                                                                                  #                        2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011337,000290:                                                                                                  #                        3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011338,000291:                                                                                                  #                                A. FAILED
011339,000292:                                                                                                  #                                        1. RELEASE EXT VERB DISPLAY SYSTEM.
011340,000293:                                                                                                  #                                B. GOOD
011341,000294:                                                                                                  #                                        1. EXECUTE IMUPULSE (TORQUE IRIGS).
011342,000295:                                                                                                  #                                        2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011343,000296: 
011344,000297: 43,2227           02076        IMUFINEK           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING
011345,000298: 43,2230           32256                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
011346,000299: 43,2231           04636                           TC       BANKCALL                              
011347,000300: 43,2232           20576                           CADR     GOXDSPF                               
011348,000301: 43,2233           05524                           TC       TERMEXTV                              
011349,000302: 43,2234           02235                           TC       +1                                    #  PROCEED WITHOUT A LOAD
011350,000303: 
011351,000304: 43,2235           32257                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
011352,000305: 43,2236           04636                           TC       BANKCALL                              
011353,000306: 43,2237           21064                           CADR     EXDSPRET                              
011354,000307: 
011355,000308: 43,2240           02260                           TC       CKMODCAD                              
011356,000309: 43,2241           04636                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
011357,000310: 43,2242           17133                           CADR     IMUFINE                               
011358,000311: 
011359,000312: 43,2243           04636                           TC       BANKCALL                              #  HIBERNATION
011360,000313: 43,2244           17644                           CADR     IMUSTALL                              
011361,000314: 43,2245           05524                           TC       ENDEXTVB                              
011362,000315: 
011363,000316: 43,2246           32255        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
011364,000317: 43,2247           04636                           TC       BANKCALL                              
011365,000318: 43,2250           17244                           CADR     IMUPULSE                              
011366,000319: 
011367,000320: 43,2251           04636                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
011368,000321: 43,2252           17644                           CADR     IMUSTALL                              
011369,000322: 43,2253           05524                           TC       ENDEXTVB                              
011370,000323: 43,2254           05524                           TC       ENDEXTVB                              
011371,000324: 
011372,000325: 43,2255           02757        LGYROBIN           ECADR    OGC                                   
011373,000326: 43,2256           06335        VNLODGYR           VN       2593                                  
011374,000327: 43,2257           12400        IMUFINEV           VN       4200                                  #  FINE ALIGN VERB
011375,000328: 
011376,000329: 43,2260           31335        CKMODCAD           CA       MODECADR                              

Page 257

011378,000331: 43,2261           00006                           EXTEND                                         
011379,000332: 43,2262           16711                           BZF      TCQ                                   
011380,000333: 43,2263           04362                           TC       FALTON                                
011381,000334: 43,2264           05524                           TC       ENDEXTVB                              
011382,000335: 
011383,000336:                                                                                                  #  GOLOADLV      VERB 50         DESCRIPTION
011384,000337:                                                                                                  #                AND OTHER PLEASE
011385,000338:                                                                                                  #                DO SOMETHING VERBS
011386,000339: 
011387,000340:                                                                                                  #        PLEASE PERFORM, MARK, CALIBRATE, ETC.
011388,000341: 
011389,000342:                                                                                                  #        1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011390,000343:                                                                                                  #           SAME RECALL AS A COMPLETED LOAD.
011391,000344:                                                                                                  #        2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011392,000345: 
011393,000346: 43,2265           04417        GOLOADLV           TC       FLASHOFF                              
011394,000347: 43,2266           34223                           CAF      PINSUPBT                              
011395,000348: 43,2267           00006                           EXTEND                                         
011396,000349: 43,2270           01007                           WRITE    SUPERBNK                              #  TURN ON FE7
011397,000350: 43,2271           04655                           TC       POSTJUMP                              
011398,000351: 43,2272  40,2000                                  SBANK=   PINSUPER                              
011399,000352: 43,2272           63001                           CADR     LOADLV1                               
011400,000353: 
011401,000354:                                                                                                  #  V60   VERB 60
011402,000355: 
011403,000356: 43,2273           00006        V60                EXTEND                                         #  SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
011404,000357: 43,2274           30033                           DCA      CDUX                                  #  TO PRESENT ATTITUDE
011405,000358: 43,2275           53014                           DXCH     CPHIX                                 
011406,000359: 43,2276           30034                           CA       CDUZ                                  
011407,000360: 43,2277           55015                           TS       CPHIX      +2                         
011408,000361: 43,2300           02117                           TC       GOPIN                                 
011409,000362: 
011410,000363:                                                                                                  #  V61   VERB 61
011411,000364: 
011412,000365: 43,2301           03065        V61                TC       DOWNX                                 #  CLEAR NEEDLFLG, PHASE
011413,000366: 43,2302           00006                           ADRES    NEEDLFLG                              #  PLANE A/P FOLLOWING ERROR DISPLAYED
011414,000367: 43,2303           03071        SETNEEDL           TC       UPX                                   #  SET NEEDLFLG, TOTAL ATT ERR DISPLAYED
011415,000368: 
011416,000369:                                                                                                  #  V62   VERB 62
011417,000370: 
011418,000371: 43,2304           05547        V62                TC       UPFLAG                                
011419,000372: 43,2305           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ATTITUDE ERROR WRT N22
011420,000373: 43,2306           02303                           TC       SETNEEDL                              
011421,000374: 
011422,000375:                                                                                                  #  V63   VERB 63
011423,000376: 
011424,000377: 43,2307           05561        V63                TC       DOWNFLAG                              
011425,000378: 43,2310           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR
011426,000379: 43,2311           02303                           TC       SETNEEDL                              
011427,000380: 

Page 258

011429,000382: 
011430,000383:                                                                                                  #  ALINTIME      VERB 55         DESCRIPTION
011431,000384:                                                                                                  #        1. SET EXT VERB DISPLAY BUSY FLAG.
011432,000385:                                                                                                  #        2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011433,000386:                                                                                                  #        3. REQUIRE EXECUTION OF VERB 23.
011434,000387:                                                                                                  #        4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011435,000388:                                                                                                  #        5. RELEASE EXT VERB DISPLAY SYSTEM
011436,000389: 
011437,000390: 43,2312                                           COUNT*   $$/R33                                
011438,000391: 43,2312           02076        ALINTIME           TC       TESTXACT                              
011439,000392: 
011440,000393: 43,2313           32341                           CAF      VNLODDT                               
011441,000394: 43,2314           04636                           TC       BANKCALL                              
011442,000395: 43,2315           20576                           CADR     GOMARKF                               
011443,000396: 43,2316           05524                           TC       ENDEXT                                #  TERMINATE
011444,000397: 43,2317           05524                           TC       ENDEXT                                #  PROCEED
011445,000398: 43,2320           44615                           CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
011446,000399: 43,2321           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
011447,000400: 43,2322           00006                           EXTEND                                         
011448,000401: 43,2323           12325                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
011449,000402: 43,2324           05524                           TC       ENDEXT                                #        WITH V23 (DATA IN).
011450,000403: 43,2325           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
011451,000404: 43,2326           34772                           CAF      ZERO                                  
011452,000405: 43,2327           54001                           TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
011453,000406: 43,2330           52025                           DXCH     TIME2                                 
011454,000407: 43,2331           52155                           DXCH     MPAC                                  
011455,000408: 43,2332           53255                           DXCH     DSPTEM2    +1                         #  INCREMENT
011456,000409: 43,2333           20155                           DAS      MPAC                                  
011457,000410: 
011458,000411: 43,2334           07224                           TC       DPAGREE                               #  FORCE SIGN AGREEMENT
011459,000412: 43,2335           52155                           DXCH     MPAC                                  #  NEW CLOCK.
011460,000413: 43,2336           20025                           DAS      TIME2                                 
011461,000414: 43,2337           00003                           RELINT                                         
011462,000415: 43,2340           05524        UPDTMEND           TC       ENDEXT                                
011463,000416: 43,2341           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
011464,000417: 
011465,000418:                                                                                                  #  REDO AND TSELECT ARE NOW IN SYSTEM TEST.
011466,000419: 
011467,000420: 43,2342                                           COUNT*   $$/EXTVB                              
011468,000421:                                                                                                  #  CKOPTVB       VERB 65         DESCRIPTION
011469,000422:                                                                                                  #        OPTICAL VERIFICATION FOR PRELAUNCH.
011470,000423:                                                                                                  #        1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
011471,000424: 
011472,000425: 43,2342           05354        CKOPTVB            TC       CHECKMM                               
011473,000426: 43,2343           00002                           MM       02         B-14                       #  I WONDER IF PRELAUNCH IS RUNNING
011474,000427: 43,2344           02116                           TC       ALM/END                               #  NOT RUNNING OPERATOR ERROR
011475,000428: 43,2345           35055                           CAF      PRIO16                                #  PRELAUNCH OPTICAL VERIFICATION
011476,000429: 43,2346           05135                           TC       FINDVAC                               
011477,000430: 43,2347  E5,1425                                  EBANK=   QPLACE                                
011478,000431: 43,2347           02000 66065                     2CADR    COMPVER                               #  STANDARD LEADIN TO GCOMPVER.
011479,000432: 

Page 259

011481,000434: 43,2351           02117                           TC       GOPIN                                 
011482,000435: 
011483,000436:                                                                                                  #  V 78 ....     TO CHANGE GYROCOMPASS AZIMUTH
011484,000437: 
011485,000438: 43,2352           05354        CHAZFOGC           TC       CHECKMM                               #  IS IT PRELAUNCH
011486,000439: 43,2353           00002                           MM       02         B-14                       
011487,000440: 43,2354           02116                           TC       ALM/END                               #  NO - OPERATOR ERROR
011488,000441: 
011489,000442: 43,2355           35055                           CAF      PRIO16                                #  PRELAUNCH AZIMUTH CHANGE
011490,000443: 43,2356           05135                           TC       FINDVAC                               
011491,000444: 43,2357  E5,1671                                  EBANK=   XSM                                   
011492,000445: 43,2357           03132 66105                     2CADR    AZMTHCG1                              
011493,000446: 
011494,000447: 43,2361           05402                           TC       PHASCHNG                              
011495,000448: 43,2362           00174                           OCT      00174                                 
011496,000449: 43,2363  01,2146               4P17SPT1           =        4.17SPOT                              
011497,000450: 43,2363           02117                           TC       GOPIN                                 
011498,000451: 

Page 260

011500,000453: 
011501,000454:                                                                                                  #  IMUATTCK      VERB 43         DESCRIPTION
011502,000455:                                                                                                  #        LOAD IMU ATTITUDE ERROR METERS
011503,000456:                                                                                                  #        1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
011504,000457:                                                                                                  #        2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
011505,000458:                                                                                                  #           FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
011506,000459:                                                                                                  #        3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
011507,000460:                                                                                                  #        4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011508,000461:                                                                                                  #        5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
011509,000462:                                                                                                  #           TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
011510,000463:                                                                                                  #        6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
011511,000464: 
011512,000465: 43,2364           02714        IMUATTCK           TC       CHKPOOH                               
011513,000466: 
011514,000467: 43,2365           35001                           CAF      BITS4&5                               #  CHECK IF IMU ZERO AND IMU COARSE ARE ON
011515,000468: 43,2366           00006                           EXTEND                                         
011516,000469: 43,2367           02012                           RAND     CHAN12                                
011517,000470: 43,2370           10000                           CCS      A                                     
011518,000471: 43,2371           12116                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011519,000472: 
011520,000473: 43,2372           02427                           TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
011521,000474: 43,2373           02076                           TC       TESTXACT                              #  AFTER
011522,000475: 43,2374           45004                           CS       OCT50                                 #  REMOVE COARSE AND ECTR ENABLE.
011523,000476: 43,2375           00006                           EXTEND                                         
011524,000477: 43,2376           03012                           WAND     CHAN12                                
011525,000478: 
011526,000479: 43,2377           32163                           CAF      VNLODCDU                              
011527,000480: 43,2400           04636                           TC       BANKCALL                              
011528,000481: 43,2401           20576                           CADR     GOXDSPF                               
011529,000482: 43,2402           12414                           TCF      TRMATTCK                              
011530,000483: 43,2403           02404                           TC       +1                                    
011531,000484: 43,2404           04611                           TC       E6SETTER                              #  FOR NEEDLES.
011532,000485: 
011533,000486: 43,2405  E6,1476                                  EBANK=   AK                                    
011534,000487: 
011535,000488: 43,2405           04636                           TC       BANKCALL                              #  INITIALIZE CURRENT DAC AND
011536,000489: 43,2406           42450                           CADR     NEEDLE11                              #  COMMAND VALUES
011537,000490: 
011538,000491: 43,2407           04636                           TC       BANKCALL                              #  ENABLE ERROR COUNTERS.
011539,000492: 43,2410           42467                           CADR     NEEDLER2                              
011540,000493: 
011541,000494: 43,2411           34767                           CAF      TWO                                   #  4 MS MIN.
011542,000495: 43,2412           05223                           TC       TWIDDLE                               
011543,000496: 43,2413           02417                           ADRES    ATTCK1                                
011544,000497: 43,2414           02427        TRMATTCK           TC       CKLFTBTS                              #  IS IT BEFORE OR AFRER LIFTOFF
011545,000498: 43,2415           15524                           TCF      ENDEXT                                #  AFTER
011546,000499: 43,2416           02117                           TC       GOPIN                                 
011547,000500: 
011548,000501: 43,2417           00006        ATTCK1             EXTEND                                         #  TRANSFER LOADED VALUES TO DESIRED REGS.
011549,000502: 43,2420           31310                           DCA      THETAD                                

Page 261

011551,000504: 43,2421           53477                           DXCH     AK                                    
011552,000505: 43,2422           31311                           CAE      THETAD     +2                         
011553,000506: 43,2423           55500                           TS       AK         +2                         
011554,000507: 
011555,000508: 43,2424           04714                           TC       IBNKCALL                              #  SENDS COMMANDS LIMITED TO +,- 384 PULSES
011556,000509: 43,2425           42503                           CADR     NEEDLES                               #  AND LEAVES ERROR COUNTERS ENABLED.
011557,000510: 
011558,000511: 43,2426           05314                           TC       TASKOVER                              
011559,000512: 
011560,000513: 43,2427           34764        CKLFTBTS           CAF      GRRBKBIT                              #  HAS LIFTOFF OCCURRED
011561,000514: 43,2430           70101                           MASK     FLAGWRD5                              
011562,000515: 43,2431           10000                           CCS      A                                     
011563,000516: 43,2432           00002        XACT0Q             TC       Q                                     #  YES
011564,000517: 43,2433           34764                           CAF      BIT5                                  
011565,000518: 43,2434           00006                           EXTEND                                         
011566,000519: 43,2435           02030                           RAND     CHAN30                                
011567,000520: 43,2436           15651                           TCF      INCRQCK                               
011568,000521: 43,2437           02076        VB64               TC       TESTXACT                              
011569,000522: 43,2440           34755                           CAF      PRIO4                                 
011570,000523: 43,2441           05135                           TC       FINDVAC                               
011571,000524: 43,2442  E4,1711                                  EBANK=   RHOSB                                 
011572,000525: 43,2442           03504 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
011573,000526: 
011574,000527: 43,2444           05205                           TC       ENDOFJOB                              
011575,000528: 
011576,000529:                                                                                                  #  ENATMA        VERB 58         DESCRIPTION
011577,000530:                                                                                                  #        ENABLE AUTOMATIC ATTITUDE MANEUVER
011578,000531: 
011579,000532:                                                                                                  #  VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT-
011580,000533:                                                                                                  #  IVITY.
011581,000534: 
011582,000535: 43,2445           05547        ENATMA             TC       UPFLAG                                #  SET FLAG TO ENABLE R60 MANEUVER
011583,000536: 43,2446           00055                           ADRES    V50N18FL                              
011584,000537: 43,2447           03065                           TC       DOWNX                                 #  RESET STIKFLAG.
011585,000538: 43,2450           00020                           ADRES    STIKFLAG                              
011586,000539: 
011587,000540:                                                                                                  #  STABLISH      VERB 46         DESCRIPTION
011588,000541:                                                                                                  #        ESTABLISH G & N AUTOPILOT CONTROL
011589,000542:                                                                                                  #        1. SETS UP EITHER RCS, ENTRY, OR SATURN
011590,000543:                                                                                                  #        2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
011591,000544:                                                                                                  #                FROM HIGH BW TO LOW BW
011592,000545: 
011593,000546: 
011594,000547: 43,2451           04611        STABLISH           TC       E6SETTER                              
011595,000548: 
011596,000549: 43,2452           40102                           CS       FLAGWRD6                              #  TEST FOR TVC
011597,000550: 43,2453           74076                           MASK     DPCONFIG                              
011598,000551: 43,2454           00006                           EXTEND                                         
011599,000552: 43,2455           62465                           BZMF     DAPFIG                                

Page 262

011601,000554: 43,2456           31465                           CAE      DAPDATR1                              #  TET FOR CSM/LM
011602,000555: 43,2457           74753                           MASK     BIT14                                 
011603,000556: 43,2460           00006                           EXTEND                                         
011604,000557: 43,2461           62116                           BZMF     ALM/END                               #  CSM, SO ALARM AND EXIT
011605,000558: 
011606,000559: 43,2462           04636                           TC       BANKCALL                              #  CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
011607,000560: 43,2463           36344                           CADR     SWICHOVR                              
011608,000561: 
011609,000562: 43,2464           02117                           TC       GOPIN                                 
011610,000563: 
011611,000564: 43,2465           44760        DAPFIG             CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
011612,000565: 43,2466           00006                           EXTEND                                         
011613,000566: 43,2467           03012                           WAND     CHAN12                                
011614,000567: 43,2470           31465                           CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
011615,000568: 43,2471           00006                           EXTEND                                         
011616,000569: 43,2472           74766                           MP       BIT3                                  #  RIGHT SHIFT 4 OCTAL DIGITS
011617,000570: 43,2473           76214                           MASK     THREE                                 #  (IN CASE BIT 15 IS USED)
011618,000571: 43,2474           00004                           INHINT                                         
011619,000572: 43,2475           50000                           INDEX    A                                     
011620,000573: 43,2476           12477                           TCF      +1                                    #  BRANCH BASED ON CONFIG
011621,000574: 43,2477           12522                           TCF      NODAPUP                               #  CM.. ACTIVATE NODAP
011622,000575: 43,2500           12517                           TCF      RCSDAPUP                              #  CSM..ACTIVATE RCSDAP
011623,000576: 43,2501           12517                           TCF      RCSDAPUP                              #  CSM/LM ACTIVATE RCSDAP
011624,000577: 43,2502           00006        SATSTKON           EXTEND                                         
011625,000578: 43,2503           32516                           DCA      2REDOSAT                              
011626,000579: 43,2504           52113                           DXCH     T5LOC                                 
011627,000580: 43,2505           34750                           CAF      POSMAX                                
011628,000581: 43,2506           54030                           TS       TIME5                                 
011629,000582: 43,2507           40102                           CS       FLAGWRD6                              #  TURN ON BITS 15,14 OF FLAGWRD6
011630,000583: 43,2510           74076                           MASK     DPCONFIG                              
011631,000584: 43,2511           26102                           ADS      FLAGWRD6                              #  SATSTICK CONTROL OF T5
011632,000585: 43,2512           04714                           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14MS AND THEN
011633,000586: 43,2513           42642                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED
011634,000587: 43,2514           02117                           TC       GOPIN                                 #  EXIT THUS BECAUSE WE CAME VIA V46
011635,000588: 
011636,000589: 43,2515  E6,1704                                  EBANK=   SPOLYARG                              
011637,000590: 43,2515           02000 54106  2REDOSAT           2CADR    REDOSAT                               
011638,000591: 
011639,000592: 43,2517           04714        RCSDAPUP           TC       IBNKCALL                              
011640,000593: 43,2520           42042                           CADR     RCSDAPON                              
011641,000594: 43,2521           12117                           TCF      GOPIN                                 
011642,000595: 
011643,000596: 43,2522           04714        NODAPUP            TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS. AND THEN
011644,000597: 43,2523           42642                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
011645,000598: 43,2524           34770                           CAF      BIT1                                  
011646,000599: 43,2525           55340                           TS       HOLDFLAG                              #  KILL KALCMANU JOB
011647,000600: 
011648,000601: 43,2526           00006        EXDAPOFF           EXTEND                                         
011649,000602: 43,2527           32721                           DCA      IDLECADR                              #  SET T5 TO IDLE

Page 263

011651,000604: 43,2530           52113                           DXCH     T5LOC                                 
011652,000605: 43,2531           44076                           CS       DPCONFIG                              
011653,000606: 43,2532           70102                           MASK     FLAGWRD6                              
011654,000607: 43,2533           54102                           TS       FLAGWRD6                              
011655,000608: 
011656,000609: 43,2534           02117                           TC       GOPIN                                 
011657,000610: 

Page 264

011659,000612: 
011660,000613:                                                                                                  #  CREWMANU      VERB 49         DESCRIPTION
011661,000614:                                                                                                  #        START AUTOMATIC ATTITUDE MANEUVER
011662,000615:                                                                                                  #        1. REQUIRE PROGRAM 00 ACTIVE.
011663,000616:                                                                                                  #        2. SET EXT VERB DISPLAY BUSY FLAG.
011664,000617:                                                                                                  #        3. SCHEDULE R62DISP WITH PRIORITY 10.
011665,000618:                                                                                                  #        4. RELEASE EXT VERB DISPLAY.
011666,000619: 
011667,000620:                                                                                                  #        R62DISP
011668,000621:                                                                                                  #        1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
011669,000622:                                                                                                  #           4 FOR RESTART OF DISPLAY SEQUENCE.
011670,000623:                                                                                                  #                RESPONSES
011671,000624:                                                                                                  #                A. TERMINATE
011672,000625:                                                                                                  #                        1. GO TO GOTOPOOH.
011673,000626:                                                                                                  #                B. PROCEED
011674,000627:                                                                                                  #                        1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011675,000628:                                                                                                  #                        2. EXECUTE R60CSM (ATTITUDE MANEUVER).
011676,000629:                                                                                                  #                        3. ZERO GROUP 4 (END R62).
011677,000630:                                                                                                  #                C. ENTER
011678,000631:                                                                                                  #                        1. REPEAT FLASHING V06,N22.
011679,000632: 
011680,000633: 43,2535           02714        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
011681,000634: 
011682,000635: 43,2536           02076                           TC       TESTXACT                              
011683,000636: 
011684,000637: 43,2537           34754                           CAF      PRIO10                                
011685,000638: 43,2540           05135                           TC       FINDVAC                               
011686,000639: 43,2541  E6,1774                                  EBANK=   R61CNTR                               
011687,000640: 43,2541           02427 56106                     2CADR    R62DISP                               
011688,000641: 
011689,000642: 43,2543           05205                           TC       ENDOFJOB                              

Page 265

011691,000644:                                                                                                  #  DAPDISP       VERB 48         DESCRIPTION
011692,000645:                                                                                                  #        LOAD AUTOPILOT DATA (ROUTINE R03)
011693,000646:                                                                                                  #        0.      CHECKFAIL AND RETURN IF TVC.
011694,000647:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
011695,000648:                                                                                                  #        2.      LOWER PRIORITY TO 10.
011696,000649:                                                                                                  #        3.      DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
011697,000650:                                                                                                  #        4.      UPON PROCEED RESPONSE, EXECUTE S41.2.
011698,000651:                                                                                                  #        5.      DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
011699,000652:                                                                                                  #        6.      UPON PROCEED RESPONSE EXECUTE S40.14.
011700,000653:                                                                                                  #        7.      DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
011701,000654:                                                                                                  #        8.      UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
011702,000655: 
011703,000656: 43,2544                                           COUNT*   $$/EXTVB                              
011704,000657: 43,2544           40102        DAPDISP            CS       FLAGWRD6                              
011705,000658: 43,2545           74076                           MASK     DPCONFIG                              
011706,000659: 43,2546           00006                           EXTEND                                         
011707,000660: 43,2547           62551                           BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
011708,000661: 43,2550           02116                           TC       ALM/END                               #  RETURN IF TVC
011709,000662: 
011710,000663: 43,2551           02076                           TC       TESTXACT                              
011711,000664: 43,2552           34754                           CAF      PRIO10                                
011712,000665: 43,2553           05121                           TC       NOVAC                                 
011713,000666: 43,2554  E6,1465                                  EBANK=   DAPDATR1                              
011714,000667: 43,2554           02000 64106                     2CADR    DONOUN46                              
011715,000668: 
011716,000669: 43,2556           05205                           TC       ENDOFJOB                              
011717,000670: 
011718,000671: 42,2000                                           SETLOC   EXTVBS                                
011719,000672: 42,2000                                           BANK                                           
011720,000673: 42,2000                                           COUNT*   $$/R03                                
011721,000674: 42,2000           32055        DONOUN46           CAF      V04N46                                #     R1         R2
011722,000675: 42,2001           04636                           TC       BANKCALL                              #   DAPDATR1   DAPDATR2
011723,000676: 42,2002           20576                           CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
011724,000677: 
011725,000678: 42,2003           05524                           TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
011726,000679: 42,2004           02006                           TC       +2                                    
011727,000680: 42,2005           02000                           TC       DONOUN46                              
011728,000681: 
011729,000682: 42,2006           31465                           CA       DAPDATR1                              
011730,000683: 42,2007           74765                           MASK     BIT4                                  
011731,000684: 42,2010           10000                           CCS      A                                     
011732,000685: 42,2011           12050                           TCF      MAXIN                                 
011733,000686: 42,2012           05561                           TC       DOWNFLAG                              
011734,000687: 42,2013           00212                           ADRES    MAXDBFLG                              
011735,000688: 42,2014           04636        MAXOUT             TC       BANKCALL                              
011736,000689: 42,2015           40463                           CADR     S41.2                                 
011737,000690: 
011738,000691: 42,2016           32054        DONOUN47           CAF      V06N47                                #     R1         R2        R3
011739,000692: 42,2017           04636                           TC       BANKCALL                              #  CSM WGT.   LEM WGT.    BLANK
011740,000693: 42,2020           20576                           CADR     GOXDSPF                               

Page 266

011742,000695: 42,2021           05524                           TC       ENDEXT                                
011743,000696: 42,2022           02024                           TC       +2                                    
011744,000697: 42,2023           02016                           TC       DONOUN47                              
011745,000698: 42,2024           31465                           CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
011746,000699: 42,2025           74346                           MASK     PRIO30                                #  CONFIG = 1(CSM), 2(CSM/LM), 6(CSM/LMA)
011747,000700: 42,2026           00006                           EXTEND                                         
011748,000701: 42,2027           12042                           BZF      DONOUN48                              #  SKIP IF 0, 4
011749,000702: 42,2030           40000                           COM                                            
011750,000703: 42,2031           74346                           MASK     PRIO30                                
011751,000704: 42,2032           00006                           EXTEND                                         
011752,000705: 42,2033           12042                           BZF      DONOUN48                              #  SKIP IF 3, 7
011753,000706: 42,2034           00004                           INHINT                                         
011754,000707: 42,2035           04714                           TC       IBNKCALL                              
011755,000708: 42,2036           13313                           CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLX
011756,000709: 
011757,000710: 42,2037           00003                           RELINT                                         
011758,000711: 42,2040           04636                           TC       BANKCALL                              
011759,000712: 42,2041           40614                           CADR     S40.14                                #  COMPUTE RCS DAP STUFF
011760,000713: 
011761,000714: 42,2042           32053        DONOUN48           CAF      V0648                                 #     R1         R2         R3
011762,000715: 42,2043           04636                           TC       BANKCALL                              #    PTRIM      YTRIM      BLANK
011763,000716: 42,2044           20576                           CADR     GOXDSPF                               
011764,000717: 
011765,000718: 42,2045           05524                           TC       ENDEXT                                
011766,000719: 42,2046           05524                           TC       ENDEXT                                
011767,000720: 42,2047           02042                           TC       DONOUN48                              
011768,000721: 
011769,000722: 42,2050           05547        MAXIN              TC       UPFLAG                                
011770,000723: 42,2051           00212                           ADRES    MAXDBFLG                              
011771,000724: 42,2052           02014                           TC       MAXOUT                                
011772,000725: 
011773,000726: 42,2053           01460        V0648              VN       0648                                  
011774,000727: 42,2054           01457        V06N47             VN       0647                                  
011775,000728: 42,2055           01056        V04N46             VN       0446                                  
011776,000729: 43,2557                                           BANK     43                                    
011777,000730: 43,2000                                           SETLOC   EXTVERBS                              
011778,000731: 43,2000                                           BANK                                           
011779,000732: 
011780,000733: 43,2557                                           COUNT*   $$/EXTVB                              
011781,000734: 
011782,000735:                                                                                                  #  V82PERF       VERB82          DESCRIPTION
011783,000736:                                                                                                  #        REQUEST ORBIT PARAMETERS DISPLAY (R30)
011784,000737:                                                                                                  #        1. IF AVERAGE G IS OFF:
011785,000738:                                                                                                  #                FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011786,000739:                                                                                                  #                 TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
011787,000740:                                                                                                  #                 CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011788,000741:                                                                                                  #                SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011789,000742:                                                                                                  #                CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011790,000743:                                                                                                  #                 RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011791,000744:                                                                                                  #                 HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011792,000745:                                                                                                  #                 HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
011793,000746:                                                                                                  #                 INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).

Page 267

011795,000748:                                                                                                  #                FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
011796,000749:                                                                                                  #                 NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011797,000750:                                                                                                  #                 ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011798,000751:                                                                                                  #                 DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011799,000752:                                                                                                  #                 ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011800,000753: 
011801,000754:                                                                                                  #        2.IF AVERAGE G IS ON:
011802,000755:                                                                                                  #                CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
011803,000756:                                                                                                  #                 FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
011804,000757:                                                                                                  #                 OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011805,000758:                                                                                                  #                FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011806,000759:                                                                                                  #                 IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011807,000760:                                                                                                  #                 RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011808,000761: 
011809,000762:                                                                                                  #  ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
011810,000763:                                                                                                  #            ABOVE REMARKS.
011811,000764: 
011812,000765: 43,2557           02076        V82PERF            TC       TESTXACT                              
011813,000766: 43,2560           35051                           CAF      PRIO7                                 
011814,000767: 43,2561           05176                           TC       PRIOCHNG                              
011815,000768: 43,2562           04655                           TC       POSTJUMP                              
011816,000769: 43,2563           46330                           CADR     V82CALL                               #  ***** V82CALL MUST NOT BE A FINDVAC JOB.
011817,000770: 
011818,000771:                                                                                                  #  VB83PERF      VERB 83         DESCRIPTION
011819,000772:                                                                                                  #        REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011820,000773:                                                                                                  #        1. SET EXT VERB DISPLAY BUSY FLAG.
011821,000774:                                                                                                  #        2. SCHEDULE V83CALL WITH PRIORITY 10.
011822,000775:                                                                                                  #                A. DISPLAY
011823,000776:                                                                                                  #                        R1  RANGE
011824,000777:                                                                                                  #                        R2  RANGE RATE
011825,000778:                                                                                                  #                        R3  THETA
011826,000779: 
011827,000780: 43,2564           02076        V83PERF            TC       TESTXACT                              
011828,000781: 43,2565           05547                           TC       UPFLAG                                
011829,000782: 43,2566           00222                           ADRES    R31FLAG                               
011830,000783: 43,2567           35047                 +3        CAF      PRIO5                                 
011831,000784: 43,2570           05121                           TC       NOVAC                                 
011832,000785: 43,2571  E4,1760                                  EBANK=   SUBEXIT                               
011833,000786: 43,2571           02000 62064                     2CADR    R31CALL                               
011834,000787: 
011835,000788: 43,2573           05205                           TC       ENDOFJOB                              
011836,000789: 
011837,000790: 43,2574           02076        V85PERF            TC       TESTXACT                              
011838,000791: 43,2575           05561                           TC       DOWNFLAG                              #  RESET R31 FLAG TO INDICATE R34
011839,000792: 43,2576           00222                           ADRES    R31FLAG                               
011840,000793: 43,2577           02567                           TC       V83PERF    +3                         

Page 268

011842,000795: 
011843,000796:                                                                                                  #  GOTOR23       VERB 54         DESCRIPTION
011844,000797:                                                                                                  #        SET UP MARKING FOR R22 (REND TRACK DATA PROC)
011845,000798:                                                                                                  #        1. SET EXT VERB DISPLAY BUSY FLAG
011846,000799:                                                                                                  #        2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
011847,000800:                                                                                                  #            SCHEDULE R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
011848,000801:                                                                                                  #        3. RELEASE EXT VERB DISPLAY SYSTEM
011849,000802: 
011850,000803: 43,2600           02076        GOTOR23            TC       TESTXACT                              
011851,000804: 43,2601           30074                           CA       FLAGWRD0                              #  V54 UNACCEPTABLE UNLESS BOTH
011852,000805: 43,2602           74762                           MASK     RNDVZBIT                              #        RENDEZVOUS AND TRACK FLAGS ON
011853,000806: 43,2603           00006                           EXTEND                                         
011854,000807: 43,2604           12616                           BZF      R22ALARM                              
011855,000808: 
011856,000809: 43,2605           30075                           CA       FLAGWRD1                              
011857,000810: 43,2606           74764                           MASK     TRACKBIT                              
011858,000811: 43,2607           00006                           EXTEND                                         
011859,000812: 43,2610           12616                           BZF      R22ALARM                              
011860,000813: 
011861,000814: 43,2611           35055                           CAF      PRIO16                                #  LOWER THAN R22
011862,000815: 43,2612           05121                           TC       NOVAC                                 
011863,000816: 43,2613  E7,1722                                  EBANK=   MRKBUF1                               
011864,000817: 43,2613           02263 76067                     2CADR    R23CSM                                
011865,000818: 
011866,000819: 43,2615           05205                           TC       ENDOFJOB                              
011867,000820: 43,2616           05671        R22ALARM           TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
011868,000821: 43,2617           00406                           OCT      00406                                 #        NOR TRACK FLAG WERE ON.
011869,000822: 43,2620           05524                           TC       ENDEXT                                
011870,000823: 

Page 269

011872,000825:                                                                                                  #  VERB 86       DESCRIPTION
011873,000826:                                                                                                  #        V86 IS TO R23 AS MARK REJECT IS TO R21
011874,000827:                                                                                                  #        V86 IS THE MARK REJECT FOR R23(THE BACKUP MARKING ROUTINE)
011875,000828: 
011876,000829: 43,2621  E7,1722                                  EBANK=   MRKBUF1                               
011877,000830: 43,2621           04606        V86PERF            TC       E7SETTER                              #  BACKUP MARK REJ.
011878,000831: 43,2622           31722                           CA       MRKBUF1                               
011879,000832: 43,2623           00006                           EXTEND                                         
011880,000833: 43,2624           12627                           BZF      +3                                    
011881,000834: 43,2625           00006                           EXTEND                                         
011882,000835: 43,2626           62632                           BZMF     BKRJCT                                
011883,000836: 
011884,000837: 43,2627           37702                           CA       NEGONE                                
011885,000838: 43,2630           55722                           TS       MRKBUF1                               
011886,000839: 43,2631           02117                           TC       GOPIN                                 
011887,000840: 43,2632           34762        BKRJCT             CAF      R22CABIT                              
011888,000841: 43,2633           70105                           MASK     FLAGWRD9                              
011889,000842: 43,2634           00006                           EXTEND                                         
011890,000843: 43,2635           12117                           BZF      GOPIN                                 
011891,000844: 
011892,000845: 43,2636           05547                           TC       UPFLAG                                
011893,000846: 43,2637           00231                           ADRES    REJCTFLG                              
011894,000847: 43,2640           12117                           TCF      GOPIN                                 
011895,000848: 

Page 270

011897,000850:                                                                                                  #  TRACKTRM      VERB 56         DESCRIPTION
011898,000851:                                                                                                  #        TERMINATE TRACKING (P20)
011899,000852:                                                                                                  #        1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011900,000853:                                                                                                  #        2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011901,000854:                                                                                                  #        3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
011902,000855:                                                                                                  #        4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
011903,000856:                                                                                                  #        3. KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
011904,000857:                                                                                                  #        4. GO TO ENEMA (SOFTWARE RESTART).
011905,000858:                                                                                                  #        REFERENCE
011906,000859:                                                                                                  #                P20     RENDEZVOUS      NAVIGATION.
011907,000860:                                                                                                  #                R21     RENDEZVOUS      TRACKING SIGHTING MARK.
011908,000861:                                                                                                  #                R22     RENDEZVOUS      TRACKING DATA PROCESSING.
011909,000862: 
011910,000863: 43,2641           06006        TRACKTRM           TC       INTPRET                               
011911,000864: 43,2642           43014                           CLEAR    BON                                   
011912,000865: 43,2643           04275                                    R67FLAG                               
011913,000866: 43,2644           04306                                    UTFLAG                                
011914,000867: 43,2645           66655                                    TRACKCHK                              
011915,000868: 43,2646           43014                           BOFF     CLEAR                                 
011916,000869: 43,2647           00350                                    RNDVZFLG                              
011917,000870: 43,2650           66701                                    EXPIN1                                
011918,000871: 43,2651           05270                                    AUTOSEQ                               
011919,000872: 43,2652           43014                           CLEAR    CLEAR                                 
011920,000873: 43,2653           01261                                    R21MARK                               
011921,000874: 43,2654           00670                                    UPDATFLG                              
011922,000875: 43,2655           43014        TRACKCHK           BOFCLR   CLEAR                                 
011923,000876: 43,2656           00652                                    TRACKFLG                              
011924,000877: 43,2657           66676                                    EXPIN                                 
011925,000878: 43,2660           00267                                    IMUSE                                 
011926,000879: 43,2661           43014                           CLEAR    CLEAR                                 
011927,000880: 43,2662           00270                                    RNDVZFLG                              
011928,000881: 43,2663           04266                                    UTFLAG                                
011929,000882: 43,2664           45034                           RTB      CALL                                  
011930,000883: 43,2665           11030                                    INITSUBB                              #  DO STOPRATE AND RESTOREDB
011931,000884: 43,2666           27516                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
011932,000885: 43,2667           77776                           EXIT                                           
011933,000886: 
011934,000887: 43,2670           05362                           TC       2PHSCHNG                              
011935,000888: 43,2671           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
011936,000889: 43,2672           00001                           OCT      1                                     #  ALSO KILL GROUP 1
011937,000890: 
011938,000891: 43,2673           00004        CLEANOUT           INHINT                                         
011939,000892: 43,2674           04655                           TC       POSTJUMP                              
011940,000893: 43,2675           12712                           CADR     ENEMA                                 #  CAUSE RESTART
011941,000894: 
011942,000895: 43,2676           43014        EXPIN              CLEAR    CLEAR                                 
011943,000896: 43,2677           00270                                    RNDVZFLG                              
011944,000897: 43,2700           04266                                    UTFLAG                                
011945,000898: 43,2701           77776        EXPIN1             EXIT                                           

Page 271

011947,000900: 43,2702           02117                           TC       GOPIN                                 
011948,000901: 
011949,000902:                                                                                                  #  LEMVEC        VERB 80         DESCRIPTION
011950,000903:                                                                                                  #        UPDATE LEM STATE VECTOR
011951,000904:                                                                                                  #                RESET VEHUPFLG TO 0
011952,000905: 
011953,000906: 43,2703           03065        LEMVEC             TC       DOWNX                                 
011954,000907: 43,2704           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
011955,000908: 
011956,000909: 43,2705           03071        CSMVEC             TC       UPX                                   #  VEHUPFLG UP INDICATES CM.
011957,000910: 
011958,000911:                                                                                                  #  CSMVEC        VERB 81         DESCRIPTION
011959,000912:                                                                                                  #        UPDATE CSM STATE VECTOR
011960,000913:                                                                                                  #                SET VEHUPFLG TO 1
011961,000914: 
011962,000915:                                                                                                  #  DNEDUMP       VERB 74         DESCRIPTION
011963,000916:                                                                                                  #        INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011964,000917:                                                                                                  #        2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011965,000918:                                                                                                  #        3. RELEASE EXT VERB DISPLAY.
011966,000919: 
011967,000920: 43,2706           32711        DNEDUMP            CAF      LDNDUMPI                              
011968,000921: 43,2707           54334                           TS       DNTMGOTO                              
011969,000922: 43,2710           02117                           TC       GOPIN                                 
011970,000923: 
011971,000924: 43,2711  43,2706               V74                EQUALS   DNEDUMP                               
011972,000925: 43,2711           03643        LDNDUMPI           REMADR   DNDUMPI                               
011973,000926: 
011974,000927:                                                                                                  #  LFTFLGON      VERB 75         DESCRIPTION
011975,000928:                                                                                                  #        SET LIFT-OFF FLAG
011976,000929:                                                                                                  #        1. SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011977,000930:                                                                                                  #        2. RETURN VIA PINBRNCH
011978,000931: 
011979,000932: 43,2712           00125                           ADRES    GRRBKFLG                              #  MUST PRECEDE LFTFLGON
011980,000933: 43,2713           03071        LFTFLGON           TC       UPX                                   
011981,000934: 
011982,000935: 43,2714           31214        CHKPOOH            CA       MODREG                                
011983,000936: 43,2715           00006                           EXTEND                                         
011984,000937: 43,2716           16711                           BZF      TCQ                                   
011985,000938: 43,2717           12116                           TCF      ALM/END                               
011986,000939: 
011987,000940: 43,2720  E6,1423                                  EBANK=   PACTOFF                               
011988,000941: 43,2720           03226 12106  IDLECADR           2CADR    T5IDLOC                               
011989,000942: 

Page 272

011991,000944:                                                                                                  #  VERB 89       DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011992,000945: 
011993,000946:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
011994,000947:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011995,000948:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011996,000949: 
011997,000950:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011998,000951:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
011999,000952: 
012000,000953:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
012001,000954:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
012002,000955: 
012003,000956:                                                                                                  #  3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
012004,000957:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
012005,000958:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V 22 E 2 E. CONTINUE
012006,000959:                                                                                                  #  AFTER KEYING IN PROCEED.
012007,000960: 
012008,000961:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
012009,000962:                                                                                                  #  FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
012010,000963: 
012011,000964:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
012012,000965: 
012013,000966:                                                                                                  #        R63COMP JOB:
012014,000967: 
012015,000968:                                                                                                  #                UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
012016,000969: 
012017,000970:                                                                                                  #                CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
012018,000971: 
012019,000972:                                                                                                  #                DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
012020,000973:                                                                                                  #                ARE STORED FOR LATER R60CSM CALL.
012021,000974: 
012022,000975:                                                                                                  #  6.  FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
012023,000976: 
012024,000977:                                                                                                  #  7.  RECYCLE- RETURN TO STEP 5.
012025,000978:                                                                                                  #      TERMINATE- EXIT R63 ROUTINE
012026,000979:                                                                                                  #      PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
012027,000980: 
012028,000981: 43,2722           02714        V89PERF            TC       CHKPOOH                               #  DEMAND P00
012029,000982: 43,2723           02076                           TC       TESTXACT                              
012030,000983: 43,2724           34754                           CAF      PRIO10                                
012031,000984: 43,2725           05135                           TC       FINDVAC                               
012032,000985: 43,2726  E6,1774                                  EBANK=   R61CNTR                               
012033,000986: 43,2726           02377 62066                     2CADR    V89CALL                               
012034,000987: 
012035,000988: 43,2730           15205                           TCF      ENDOFJOB                              
012036,000989: 
012037,000990: 43,2731           05561        WMATRXNG           TC       DOWNFLAG                              #  RESET RENDWFLG
012038,000991: 43,2732           00131                           ADRES    RENDWFLG                              
012039,000992: 43,2733           03065                           TC       DOWNX                                 

Page 273

012041,000994: 43,2734           00066                           ADRES    ORBWFLAG                              
012042,000995: 
012043,000996: 43,2735  43,2735               GOSHOSUM           EQUALS   SHOWSUM                               
012044,000997: 
012045,000998: 43,2735           02714        SHOWSUM            TC       CHKPOOH                               
012046,000999: 43,2736           02076                           TC       TESTXACT                              #  *
012047,001000: 43,2737           34770                           CAF      S+1                                   #  *
012048,001001: 43,2740           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
012049,001002: 43,2741           34772                           CAF      S+ZERO                                #  *
012050,001003: 43,2742           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
012051,001004: 43,2743           33177                           CA       SELFADRS                              #  *
012052,001005: 43,2744           55361                           TS       SELFRET                               #  *
012053,001006: 43,2745           03454                           TC       STSHOSUM                              #  * ENTER ROPECHK
012054,001007: 
012055,001008: 43,2746           23372        SDISPLAY           LXCH     SKEEP2                                #  * BNK NO FOR DSP
012056,001009: 43,2747           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
012057,001010: 43,2750           33176        NOKILL             CA       ADRS1                                 #  *
012058,001011: 43,2751           54156                           TS       MPAC       +2                         #  *
012059,001012: 43,2752           32763                           CA       VNCON                                 #  * 0501
012060,001013: 43,2753           04636                           TC       BANKCALL                              #  *
012061,001014: 43,2754           20576                           CADR     GOXDSPF                               #  *
012062,001015: 43,2755           02760                           TC       +3                                    #  *
012063,001016: 43,2756           03565                           TC       NXTBNK                                #  *
012064,001017: 43,2757           02750                           TC       NOKILL                                #  *
012065,001018: 43,2760           33177                           CA       SELFADRS                              
012066,001019: 43,2761           55371                           TS       SKEEP1                                
012067,001020: 
012068,001021: 43,2762           05524                           TC       ENDEXT                                #  *
012069,001022: 
012070,001023: 43,2763           01201        VNCON              VN       501                                   #  *
012071,001024: 
012072,001025: 43,2764           31376        ENDSUMS            CA       SKEEP6                                #  *
012073,001026: 43,2765           00006                           EXTEND                                         #  *
012074,001027: 43,2766           13270                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
012075,001028: 43,2767           03454                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
012076,001029: 
012077,001030: 
012078,001031:                                                                                                  #  VB 87  SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
012079,001032: 
012080,001033:                                                                                                  #  VB 88  RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
012081,001034: 
012082,001035: 43,2770           05632        RESETVHF           TC       TRFAILOF                              #  TRACKER FAIL LIGHT
012083,001036: 43,2771           03065                           TC       DOWNX                                 
012084,001037: 43,2772           00215                           ADRES    VHFRFLAG                              
012085,001038: 43,2773           03071        SETVHFLG           TC       UPX                                   #  V87 SET VHF RANGE FLAG
012086,001039: 
012087,001040:                                                                                                  #  VERB 66.      VEHICLES ARE ATTACHED. - MOVE THIS VEHICLE STATE VECTOR TO
012088,001041:                                                                                                  #                OTHER VEHICLE STATE VECTOR.
012089,001042: 

Page 274

012091,001044:                                                                                                  #  USE SUBROUTINE GENTRAN.
012092,001045: 
012093,001046: 43,2774  E3,1554                                  EBANK=   RRECTHIS                              
012094,001047: 43,2774           34754        ATTACHED           CAF      PRIO10                                
012095,001048: 43,2775           05135                           TC       FINDVAC                               
012096,001049: 43,2776  E3,1554                                  EBANK=   RRECTHIS                              
012097,001050: 43,2776           02000 36103                     2CADR    ATTACHIT                              
012098,001051: 
012099,001052: 43,3000           05205                           TC       ENDOFJOB                              
012100,001053: 
012101,001054: 17,2000                                           SETLOC   EXTVRBS1                              
012102,001055: 17,2000                                           BANK                                           
012103,001056: 17,2000                                           COUNT*   $$/EXTVB                              
012104,001057: 17,2000           06006        ATTACHIT           TC       INTPRET                               
012105,001058: 17,2001           77624                           CALL                                           
012106,001059: 17,2002           27516                                    INTSTALL                              
012107,001060: 17,2003           43014                           SET      BON                                   
012108,001061: 17,2004           04064                                    MOONOTH                               
012109,001062: 17,2005           04303                                    MOONTHIS                              
012110,001063: 17,2006           36011                                    CMMOVE                                
012111,001064: 17,2007           77614                           CLEAR                                          
012112,001065: 17,2010           04264                                    MOONOTH                               
012113,001066: 17,2011           77776        CMMOVE             EXIT                                           
012114,001067: 17,2012           32032                           CAF      OCT51                                 
012115,001068: 17,2013           05607                           TC       GENTRAN                               
012116,001069: 17,2014           01554                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
012117,001070: 17,2015           01626                           ADRES    RRECTOTH                              
012118,001071: 
012119,001072: 17,2016           06006        TACHEXIT           TC       INTPRET                               
012120,001073: 17,2017           77624                           CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
012121,001074: 17,2020           27005                                    PTOACSM                               
012122,001075: 17,2021           45154                           LXA,2    CALL                                  
012123,001076: 17,2022           02150                                    PBODY                                 
012124,001077: 17,2023           20240                                    SVDWN1                                
012125,001078: 17,2024           77624                           CALL                                           
012126,001079: 17,2025           20264                                    SVDWN2                                
012127,001080: 17,2026           77624                           CALL                                           
012128,001081: 17,2027           27525                                    INTWAKE0                              
012129,001082: 17,2030           77634        TCPIN              RTB                                            
012130,001083: 17,2031           21275                                    PINBRNCH                              
012131,001084: 
012132,001085: 17,2032           00051        OCT51              OCT      51                                    
012133,001086: 
012134,001087: 43,2000                                           SETLOC   EXTVERBS                              
012135,001088: 43,2000                                           BANK                                           
012136,001089: 43,3001                                           COUNT*   $$/EXTVB                              
012137,001090: 
012138,001091:                                                                                                  #  VERB 47  MOVE LM STATE VECTOR INTO CM STATE VECTOR.
012139,001092: 
012140,001093: 43,3001           34754        LMTOCMSV           CAF      PRIO10                                
012141,001094: 43,3002           05135                           TC       FINDVAC                               

Page 275

012143,001096: 43,3003  E3,1554                                  EBANK=   RRECTHIS                              
012144,001097: 43,3003           02033 36103                     2CADR    LMTOCM                                
012145,001098: 
012146,001099: 43,3005           05205                           TC       ENDOFJOB                              
012147,001100: 
012148,001101: 17,2000                                           SETLOC   EXTVRBS1                              
012149,001102: 17,2000                                           BANK                                           
012150,001103: 
012151,001104: 17,2033                                           COUNT*   $$/EXTVB                              
012152,001105: 17,2033           06006        LMTOCM             TC       INTPRET                               
012153,001106: 17,2034           77624                           CALL                                           
012154,001107: 17,2035           27516                                    INTSTALL                              
012155,001108: 17,2036           43014                           SET      BON                                   
012156,001109: 17,2037           04063                                    MOONTHIS                              
012157,001110: 17,2040           04304                                    MOONOTH                               
012158,001111: 17,2041           36044                                    LMMOVE                                
012159,001112: 17,2042           77614                           CLEAR                                          
012160,001113: 17,2043           04263                                    MOONTHIS                              
012161,001114: 17,2044           77776        LMMOVE             EXIT                                           
012162,001115: 17,2045           32032                           CAF      OCT51                                 
012163,001116: 17,2046           05607                           TC       GENTRAN                               
012164,001117: 17,2047           01626                           ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
012165,001118: 17,2050           01554                           ADRES    RRECTHIS                              
012166,001119: 
012167,001120: 17,2051           12016                           TCF      TACHEXIT                              
012168,001121: 
012169,001122:                                                                                                  #  VERB 94  DO R64 VIA ENEMA TO PICK UP IN P23.
012170,001123: 
012171,001124: 43,2000                                           SETLOC   EXTVERBS                              
012172,001125: 43,2000                                           BANK                                           
012173,001126: 43,3006                                           COUNT*   $$/EXTVB                              
012174,001127: 43,3006           34756        VERB94             CAF      V94FLBIT                              
012175,001128: 43,3007           70105                           MASK     FLAGWRD9                              #  IS V94FLAG SET
012176,001129: 43,3010           00006                           EXTEND                                         
012177,001130: 43,3011           12116                           BZF      ALM/END                               #  NO - OPERATOR ERROR
012178,001131: 
012179,001132: 43,3012           05561                           TC       DOWNFLAG                              
012180,001133: 43,3013           00213                           ADRES    V94FLAG                               
012181,001134: 
012182,001135: 43,3014           05354                           TC       CHECKMM                               #  IS IT P23
012183,001136: 43,3015           00027                           MM       23         B-14                       
012184,001137: 43,3016           02116                           TC       ALM/END                               #  NO - OPERATOR ERROR
012185,001138: 43,3017           05402                           TC       PHASCHNG                              
012186,001139: 43,3020           00112                           OCT      112                                   #  SET GROUP 2 TO DO R64
012187,001140: 
012188,001141: 43,3021  01,2044               2P11SPT1           =        2.11SPOT                              
012189,001142: 43,3021           02673                           TC       CLEANOUT                              #  CAUSE RESTART
012190,001143: 
012191,001144:                                                                                                  #  V90PERF       VERB 90         DESCRIPTION
012192,001145:                                                                                                  #        REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)

Page 276

012194,001147:                                                                                                  #        1. SET EXT VERB DISPLAY BUSY FLAG.
012195,001148:                                                                                                  #        2. SCHEDULE R36 CALL WITH PRIORITY 10
012196,001149:                                                                                                  #                A. DISPLAY
012197,001150:                                                                                                  #                        TIME OF EVENT - HOURS , MINUTES , SECONDS
012198,001151:                                                                                                  #                        Y       OUT-OF-PLANE POSITION - NAUTICAL MILES
012199,001152:                                                                                                  #                        YDOT    OUT-OF-PLANE VELOCITY - FEET/SECOND
012200,001153:                                                                                                  #                        PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
012201,001154:                                                                                                  #                                DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012202,001155: 
012203,001156: 43,3022           02076        V90PERF            TC       TESTXACT                              
012204,001157: 43,3023           35051                           CAF      PRIO7                                 #  R36.V90
012205,001158: 43,3024           05135                           TC       FINDVAC                               
012206,001159: 43,3025  40,2000                                  SBANK=   PINSUPER                              
012207,001160: 43,3025  E7,1412                                  EBANK=   TIG                                   
012208,001161: 43,3025           02000 50107                     2CADR    R36                                   
012209,001162: 
012210,001163: 43,3027           15205                           TCF      ENDOFJOB                              
012211,001164: 
012212,001165:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
012213,001166: 
012214,001167: 43,3030           05547        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012215,001168: 43,3031           00221                           ADRES    QUITFLAG                              #        AT NEXT TIMESTEP
012216,001169: 
012217,001170: 43,3032           05547                           TC       UPFLAG                                
012218,001171: 43,3033           00204                           ADRES    V96ONFLG                              
012219,001172: 43,3034           34772                           CAF      ZERO                                  
012220,001173: 43,3035           04655                           TC       POSTJUMP                              
012221,001174: 43,3036           10007                           CADR     V37                                   #  GO TO POO
012222,001175: 
012223,001176: 43,3037  E7,1751                                  EBANK=   LANDMARK                              
012224,001177: 43,3037           05354        V52                TC       CHECKMM                               #  IS P22 OPERATING
012225,001178: 43,3040           00026                           MM       22         B-14                       
012226,001179: 43,3041           02116                           TC       ALM/END                               #  NO
012227,001180: 43,3042           04606                           TC       E7SETTER                              
012228,001181: 43,3043           45051                           CS       PRIO7                                 #  YES  SET BITS 12,11,10 OF LANDMARK =
012229,001182: 43,3044           71751                           MASK     LANDMARK                              #  NO. OF MARKS TO GET OFFSET MARK NO.
012230,001183: 43,3045           55751                           TS       LANDMARK                              
012231,001184: 
012232,001185: 43,3046           31747                           CA       8NN                                   #  NO. OF MARKS
012233,001186: 43,3047           00006                           EXTEND                                         
012234,001187: 43,3050           74757                           MP       BIT10                                 
012235,001188: 43,3051           30001                           CA       L                                     
012236,001189: 43,3052           27751                           ADS      LANDMARK                              
012237,001190: 43,3053           02117                           TC       GOPIN                                 
012238,001191: 
012239,001192:                                                                                                  #  VERB 67  ASTRONAUT DISPLAY OF W MATRIX
012240,001193: 
012241,001194: 43,3054           02076        V67                TC       TESTXACT                              
012242,001195: 43,3055           35047                           CAF      PRIO5                                 
012243,001196: 43,3056           05135                           TC       FINDVAC                               

Page 277

012245,001198: 43,3057  E5,1400                                  EBANK=   W                                     
012246,001199: 43,3057           03636 60105                     2CADR    V67CALL                               
012247,001200: 
012248,001201: 43,3061           05205                           TC       ENDOFJOB                              
012249,001202: 
012250,001203:                                                                                                  #  VB 45.     RESET SURFACE FLAG.
012251,001204: 
012252,001205: 43,3062           03065        RESTSRF            TC       DOWNX                                 
012253,001206: 43,3063           00177                           ADRES    SURFFLAG                              
012254,001207: 43,3064           03071        SETSURF            TC       UPX                                   #  VB 44. SET SURFACE FLAG
012255,001208: 

Page 278

012257,001210: 
012258,001211:                                                                                                  #  DOWNX, UPX    FLAG SETTING AND RESETTING FOR EXTENDED VERBS.
012259,001212: 
012260,001213:                                                                                                  #        RETURN IS TO GOPIN.
012261,001214: 
012262,001215:                                                                                                  #        CALLING SEQUENCES:
012263,001216: 
012264,001217:                                                                                                  #                FOR DOWNX
012265,001218: 
012266,001219:                                                                                                  #                        TC      DOWNX
012267,001220:                                                                                                  #                        ADRES   (FLAG NAME)
012268,001221: 
012269,001222:                                                                                                  #                FOR UPX
012270,001223: 
012271,001224:                                                                                                  #                        ADRES   (FLAG NAME)
012272,001225:                                                                                                  #                        TC      UPX
012273,001226: 
012274,001227: 43,3065                                           COUNT*   $$/FLAG                               
012275,001228: 43,3065           30002        DOWNX              CA       Q                                     
012276,001229: 43,3066           05565                           TC       DEBIT                                 
012277,001230: 43,3067           70001                           MASK     L                                     
012278,001231: 43,3070           13077                           TCF      COMXFLG                               
012279,001232: 
012280,001233: 43,3071           30002        UPX                CA       Q                                     
012281,001234: 43,3072           67701                           AD       NEG2                                  
012282,001235: 43,3073           05565                           TC       DEBIT                                 
012283,001236: 43,3074           40000                           COM                                            
012284,001237: 43,3075           00006                           EXTEND                                         
012285,001238: 43,3076           04001                           ROR      LCHAN                                 
012286,001239: 
012287,001240: 43,3077           50061        COMXFLG            INDEX    ITEMP1                                
012288,001241: 43,3100           54074                           TS       FLAGWRD0                              
012289,001242: 43,3101           12117                           TCF      GOPIN                                 
012290,001243: 

Page 279

012292,001245: 
012293,001246:                                                                                                  #  VERB 57 SET FULL TRACK OPTION
012294,001247: 
012295,001248: 43,3102                                           COUNT*   $$/EXTVB                              
012296,001249: 43,3102           02076        V57CALL            TC       TESTXACT                              
012297,001250: 
012298,001251: 43,3103           34766        PARTRACK           CAF      BIT3                                  #  OPTION 4 SPECIFY CONDITION OF FULTKFLG
012299,001252: 43,3104           55255                           TS       OPTIONX                               
012300,001253: 
012301,001254: 43,3105           34767        PRTRCK             CAF      FULTKBIT                              
012302,001255: 43,3106           70106                           MASK     FLGWRD10                              
012303,001256: 43,3107           00006                           EXTEND                                         
012304,001257: 43,3110           13112                           BZF      +2                                    #  FULTKFLG NOT SET
012305,001258: 
012306,001259: 43,3111           34770                           CAF      BIT1                                  #  FULTKFLG SET
012307,001260: 43,3112           55256                           TS       OPTIONX    +1                         
012308,001261: 43,3113           33131                           CAF      V04N12                                
012309,001262: 43,3114           04636                           TC       BANKCALL                              
012310,001263: 43,3115           20576                           CADR     GOXDSPF                               
012311,001264: 43,3116           05524                           TC       ENDEXT                                
012312,001265: 43,3117           05524                           TC       ENDEXT                                
012313,001266: 43,3120           31256                           CA       OPTIONX    +1                         
012314,001267: 43,3121           00006                           EXTEND                                         
012315,001268: 43,3122           13126                           BZF      +4                                    
012316,001269: 43,3123           05547                           TC       UPFLAG                                
012317,001270: 43,3124           00243                           ADRES    FULTKFLG                              
012318,001271: 43,3125           13105                           TCF      PRTRCK                                
012319,001272: 
012320,001273: 43,3126           05561                           TC       DOWNFLAG                              
012321,001274: 43,3127           00243                           ADRES    FULTKFLG                              
012322,001275: 43,3130           13105                           TCF      PRTRCK                                
012323,001276: 
012324,001277: 43,3131           01014        V04N12             VN       0412                                  

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