Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

010997,000002:                                                                                                 #  Copyright:     Public domain.
010998,000003:                                                                                                 #  Filename:      EXTENDED_VERBS.agc
010999,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
011000,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
011001,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
011002,000007:                                                                                                 #                 Apollo 15-17.
011003,000008:                                                                                                 #  Assembler:     yaYUL
011004,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
011005,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
011006,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
011007,000012:                                                                                                 #  Mod history:   2009-08-04 JL   Adapted from corresponding Comanche 055 file.
011008,000013:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
011009,000014:                                                                                                 #                 2010-02-13 JL   Fixed errors on p260, p261.
011010,000015:                                                                                                 #                 2010-02-16 JL   Added some SBANK= directives on pages 258, 262, 271, 274 to fix rope image errors.
011011,000016:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
011012,000017:                                                                                                 #                 2010-12-29 JL   Fixed indentation.
011013,000018:                                                                                                 #                 2011-05-07 JL   Flagged SBANK= workarounds for future removal.
011014,000019:                                                                                                 #                 2011-05-17 JL   Removed all SBANK= workarounds.
011015,000020: 
011016,000021:                                                                                                 # # Page 249
011017,000022: 
011018,000023: 43,2000                                          SETLOC   EXTVERBS                              
011019,000024: 43,2000                                          BANK                                           
011020,000025: 
011021,000026: 43,2000  0002757                                 EBANK=   OGC                                   
011022,000027: 
011023,000028: 43,2000                                          COUNT*   $$/EXTVB                              
011024,000029: 
011025,000030:                                                                                                 #  FAN-OUT
011026,000031: 
011027,000032: 43,2000           50154        GOEXTVB           INDEX    MPAC                                  #  VERB-40 IS IN MPAC
011028,000033: 43,2001           02002                          TC       LST2FAN                               #  FAN AS BEFROE.
011029,000034: 
011030,000035: 43,2002           02121        LST2FAN           TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 ONLY).
011031,000036: 43,2003           02133                          TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011032,000037:                                                                                                 #                                 91 ONLY)
011033,000038: 43,2004           02227                          TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
011034,000039: 43,2005           02364                          TC       IMUATTCK                              #  VB43 LOAD IMU ATTITUDE ERROR METERS.
011035,000040: 43,2006           03064                          TC       SETSURF                               #  VB44 SET SURFACE FLAG
011036,000041: 43,2007           03062                          TC       RESTSRF                               #  VB45 RESET SURFACE FLAG
011037,000042: 43,2010           02451                          TC       STABLISH                              #  VB46 ESTABLISH G+C CONTROL.
011038,000043: 43,2011           03001                          TC       LMTOCMSV                              #  VB47 MOVE LM STATE VECTOR INTO CM
011039,000044: 43,2012           02544                          TC       DAPDISP                               #  VB48 LOAD A/P DATA.
011040,000045: 43,2013           12535                          TCF      CREWMANU                              #  VB 49 START AUTOMATIC ATTITUDE MANEUVER
011041,000046: 43,2014           02265                          TC       GOLOADLV                              #  VB50 PLEASE PERFORM
011042,000047: 43,2015           02265                          TC       GOLOADLV                              #  VB51 PLEASE MARK
011043,000048: 43,2016           03037                          TC       V52                                   #  VB52 SET OFFSET NO. FOR P22
011044,000049: 43,2017           02265                          TC       GOLOADLV                              #  VB53 PLEASE PERFORM COAS MARK
011045,000050: 43,2020           02600                          TC       GOTOR23                               #  V54 START R23 (R-21 BACKUP)
011046,000051: 43,2021           02312                          TC       ALINTIME                              #  VB55 ALIGN TIME
011047,000052: 43,2022           02641                          TC       TRACKTRM                              #  VB56 TERMINATE TRACKING (P20 +P25)
011048,000053: 43,2023           03102                          TC       V57CALL                               #  V57  FULTKFLG SETTING OPTION
011049,000054: 43,2024           02445                          TC       ENATMA                                #  VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
011050,000055: 43,2025           02265                          TC       GOLOADLV                              #  VB59 PLEASE CALIBRATE
011051,000056: 43,2026           02273                          TC       V60                                   #  VB60 SET CPHIX (N17) EQUAL TO CDU
011052,000057: 43,2027           02301                          TC       V61                                   #  VB61 SELECT MODE I
011053,000058: 43,2030           02304                          TC       V62                                   #  VB62 SELECT MODE II, ERROR WRT N22
011054,000059: 43,2031           02307                          TC       V63                                   #  VB63 SELECT MODE III, ERROR WRT N17
011055,000060: 43,2032           02437                          TC       VB64                                  #  VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
011056,000061: 43,2033           02342                          TC       CKOPTVB                               #  V 65 E OPTICAL VERIFICATION FOR PRELAUNC
011057,000062: 43,2034           02774                          TC       ATTACHED                              #  VB 66 ATTACHED. MOVE THIS TO OTHER STATE
011058,000063: 43,2035           03054                          TC       V67                                   #  VB67 WMATRIX MONITOR
011059,000064: 43,2036           02116                          TC       ALM/END                               #  VB68 SPARE
011060,000065: 43,2037           02037        VERB69            TC       VERB69                                #  VB 69 CAUSE RESTART
011061,000066: 43,2040           03656                          TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
011062,000067: 43,2041           03660                          TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
011063,000068: 43,2042           03662                          TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
011064,000069: 43,2043           03664                          TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
011065,000070: 43,2044           02706                          TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
011066,000071:                                                                                                 #         FOR ERASABLE DUMP.
011067,000072: 43,2045           02713                          TC       LFTFLGON                              #  VB75 SET LIFTOFF FLAG.
011068,000073: 43,2046           02116                          TC       ALM/END                               #  VB76 SPARE
011069,000074:                                                                                                 # # Page 250
011070,000075: 43,2047           02116                          TC       ALM/END                               #  VB77 SPARE
011071,000076: 43,2050           02352                          TC       CHAZFOGC                              #  CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
011072,000077: 43,2051           02116                          TC       ALM/END                               #  VB79 SPARE
011073,000078: 43,2052           02703                          TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
011074,000079: 43,2053           02705                          TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
011075,000080: 43,2054           02557                          TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
011076,000081: 43,2055           02564                          TC       V83PERF                               #  VB83 RANGE, RANGE RATE, +X AXIS  (R31)
011077,000082: 43,2056           02116                          TC       ALM/END                               #  V84 SPARE
011078,000083: 43,2057           02574                          TC       V85PERF                               #  VB85 RANGE, RANGE RATE, SLOS      (R34)
011079,000084: 43,2060           02621                          TC       V86PERF                               #  VB86 BACKUP MARK REJECT
011080,000085: 43,2061           02773                          TC       SETVHFLG                              #  VB87 SET VHF RANGE FLAG
011081,000086: 43,2062           02770                          TC       RESETVHF                              #  VB88 RESET VHF RANGE FLAG
011082,000087: 43,2063           02722                          TC       V89PERF                               #  V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
011083,000088: 43,2064           03022                          TC       V90PERF                               #  VB90-OUT OF PLANE PARAMETERS      (R36)
011084,000089: 43,2065           02735                          TC       GOSHOSUM                              #  VB91 TEMP FOR HYBRID AND STG.
011085,000090: 43,2066           02116                          TC       ALM/END                               #  VB92 SPARE
011086,000091: 43,2067           02731                          TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
011087,000092: 43,2070           03006                          TC       VERB94                                #  VB94 DO R64
011088,000093: 43,2071           02116                          TC       ALM/END                               #  VB95 SPARE
011089,000094: 43,2072           13030                          TCF      VERB96                                #  VB96 SET QUITFLAG TO STOP INTEGRATION
011090,000095: 43,2073           02265                          TC       GOLOADLV                              #  V97 PLEASE PERFORM ENGINE-FAIL (R41)
011091,000096: 43,2074           02116                          TC       ALM/END                               #  VB98 SPARE
011092,000097: 43,2075           02265                          TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
011093,000098: 
011094,000099:                                                                                                 #  END OF EXTENDED VERB FAN
011095,000100: 
011096,000101: 43,2076           11247        TESTXACT          CCS      EXTVBACT                              
011097,000102: 43,2077           02116                          TC       ALM/END                               #  YES, TURN ON OPERATOR ERROR LIGHT
011098,000103: 43,2100           30100                          CA       FLAGWRD4                              #  ARE PRIOS USING DSKY
011099,000104: 43,2101           77646                          MASK     14,12,7                               
011100,000105: 43,2102           10000                          CCS      A                                     
011101,000106: 43,2103           02116                          TC       ALM/END                               
011102,000107: 
011103,000108: 43,2104           34124                          CAF      OCT24                                 #  SET BITS 3 AND 5
011104,000109: 43,2105           55247        SETXTACT          TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
011105,000110:                                                                                                 #  SYSTEM BUSY
011106,000111: 
011107,000112: 43,2106           30002                          CA       Q                                     
011108,000113: 43,2107           54155                          TS       MPAC       +1                         
011109,000114: 
011110,000115: 43,2110           44767                          CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
011111,000116: 43,2111           04202                          TC       NVSUB                                 
011112,000117: 43,2112           02113                          TC       +1                                    
011113,000118: 43,2113           10067                          CCS      NEWJOB                                #  ALLOW POSSIBLE WAITING DISPLAY (FROM
011114,000119: 43,2114           05152                          TC       CHANG1                                #     RELDSP) TO COME UP.
011115,000120: 
011116,000121: 43,2115           00155                          TC       MPAC       +1                         
011117,000122: 
011118,000123: 43,2116     5524               TERMEXTV          EQUALS   ENDEXT                                
011119,000124: 
011120,000125:                                                                                                 # # Page 251
011121,000126: 
011122,000127: 43,2116     5524               ENDEXTVB          EQUALS   ENDEXT                                
011123,000128: 
011124,000129: 43,2116           04362        ALM/END           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
011125,000130: 43,2117           04655        GOPIN             TC       POSTJUMP                              
011126,000131: 43,2120           21275                          CADR     PINBRNCH                              
011127,000132: 
011128,000133:                                                                                                 # # Page 252
011129,000134: 
011130,000135:                                                                                                 #  VBZERO VERB 40         DESCRIPTION
011131,000136: 43,2121           31335        VBZERO            CA       MODECADR                              #  KEYBOARD REQUEST FOR ISS CDU ZERO
011132,000137: 43,2122           00006                          EXTEND                                         
011133,000138: 43,2123           12125                          BZF      +2                                    
011134,000139: 43,2124           02116                          TC       ALM/END                               
011135,000140: 43,2125           04636                          TC       BANKCALL                              
011136,000141: 43,2126           16627                          CADR     IMUZERO                               
011137,000142: 
011138,000143: 43,2127           04636                          TC       BANKCALL                              #  STALL
011139,000144: 43,2130           17644                          CADR     IMUSTALL                              
011140,000145: 43,2131           02132                          TC       +1                                    
011141,000146: 
011142,000147: 43,2132           02117                          TC       GOPIN                                 
011143,000148: 
011144,000149:                                                                                                 # # Page 253
011145,000150: 
011146,000151:                                                                                                 #  VBCOARK        VERB 41         DESCRIPTION
011147,000152:                                                                                                 #         COARSE ALIGN IMU OR RADAR
011148,000153: 
011149,000154:                                                                                                 #         1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
011150,000155:                                                                                                 #         2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
011151,000156:                                                                                                 #         CASE 1  NOUN 20 (ICDU ANGLES)
011152,000157:                                                                                                 #         3. SET EXT VERB DISPLAY ACTIVE FLAG.
011153,000158:                                                                                                 #         4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011154,000159:                                                                                                 #            RESPONSES
011155,000160:                                                                                                 #                 A. TERMINATE
011156,000161:                                                                                                 #                         1. RELEASE EXT VERB DISPLAY SYSTEM.
011157,000162:                                                                                                 #                 B. PROCEED
011158,000163:                                                                                                 #                         1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
011159,000164:                                                                                                 #                                 RESPONSES:
011160,000165:                                                                                                 #                                 A. TERMINATE
011161,000166:                                                                                                 #                                         1. RELEASE EXT VERB DISPLAY SYSTEM.
011162,000167:                                                                                                 #                                 B. PROCEED
011163,000168:                                                                                                 #                                         1. EXECUTE ICORK2.
011164,000169:                                                                                                 #                                 C. ENTER
011165,000170:                                                                                                 #                                         1. INCREMENT CDU ANGLES
011166,000171:                                                                                                 #                                         2. EXECUTE ICORK2.
011167,000172:                                                                                                 #                 C. ENTER
011168,000173:                                                                                                 #                         1. EXECUTE ICORK2.
011169,000174:                                                                                                 #         ICORK2
011170,000175:                                                                                                 #                 1. RE-DISPLAY VERB 41.
011171,000176:                                                                                                 #                 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
011172,000177:                                                                                                 #                 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
011173,000178:                                                                                                 #                 4. RELEASE EXT VERB DISPLAY SYSTEM.
011174,000179:                                                                                                 #         CASE 2  NOUN 91 (OCDU ANGLES)
011175,000180:                                                                                                 #         5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
011176,000181:                                                                                                 #            OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
011177,000182:                                                                                                 #            AND RELEASE EXT VERB DISPLAY SYSTEM).
011178,000183:                                                                                                 #         6. RESPONSES TO V29,N92
011179,000184:                                                                                                 #                 A. TERMINATE
011180,000185:                                                                                                 #                         RELEASE EXT VERB DISPLAY SYSTEM
011181,000186:                                                                                                 #                 B. PROCEED OR ENTER
011182,000187:                                                                                                 #                         RE-DISPLAY VERB 41,     SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
011183,000188:                                                                                                 #                         RELEASE EXT VERB DISPLAY SYSTEM.
011184,000189: 
011185,000190: 43,2133           44124        VBCOARK           CS       OCT24                                 
011186,000191: 43,2134           61205                          AD       NOUNREG                               
011187,000192: 43,2135           00006                          EXTEND                                         
011188,000193: 43,2136           12143                          BZF      IMUCOARK                              #  NOUN 20
011189,000194: 
011190,000195: 43,2137           62165                          AD       OPIMDIFF                              #  -71
011191,000196: 43,2140           00006                          EXTEND                                         
011192,000197: 43,2141           12166                          BZF      OPTCOARK                              #  NOUN 91
011193,000198: 
011194,000199: 43,2142           02116                          TC       ALM/END                               #  WRONG NOUN
011195,000200: 
011196,000201: 43,2143           02076        IMUCOARK          TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD
011197,000202:                                                                                                 # # Page 254
011198,000203: 43,2144           32163                          CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
011199,000204: 43,2145           04636                          TC       BANKCALL                              
011200,000205: 43,2146           20576                          CADR     GOXDSPF                               
011201,000206: 43,2147           05524                          TC       TERMEXTV                              
011202,000207: 43,2150           12151                          TCF      +1                                    
011203,000208: 
011204,000209: 43,2151           32164        ICORK2            CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
011205,000210: 43,2152           04636                          TC       BANKCALL                              
011206,000211: 43,2153           21064                          CADR     EXDSPRET                              
011207,000212: 
011208,000213: 43,2154           02260                          TC       CKMODCAD                              
011209,000214: 43,2155           04636                          TC       BANKCALL                              #  CALL MODE SWITCHING PROG
011210,000215: 43,2156           16724                          CADR     IMUCOARS                              
011211,000216: 
011212,000217: 43,2157           04636                          TC       BANKCALL                              #  STALL
011213,000218: 43,2160           17644                          CADR     IMUSTALL                              
011214,000219: 43,2161           05524                          TC       ENDEXTVB                              
011215,000220: 43,2162           05524                          TC       ENDEXTVB                              
011216,000221: 
011217,000222: 43,2163           06226        VNLODCDU          VN       2522                                  
011218,000223: 43,2164           12200        IMUCOARV          VN       4100                                  
011219,000224: 43,2165           77670        OPIMDIFF          DEC      -71        B-14                       
011220,000225: 
011221,000226:                                                                                                 # # Page 255
011222,000227: 
011223,000228:                                                                                                 #  TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
011224,000229: 
011225,000230: 43,2166           02714        OPTCOARK          TC       CHKPOOH                               #  ENSURE IN POO
011226,000231: 43,2167           02076                          TC       TESTXACT                              
011227,000232: 43,2170           35043                          CAF      EBANK5                                
011228,000233: 43,2171           54003                          TS       EBANK                                 
011229,000234: 
011230,000235: 43,2172           11354                          CCS      SWSAMPLE                              #  SEE IF SWITCH AT COMPUTER
011231,000236: 43,2173           02200                          TC       +5                                    #  SWITCH AT COMPUTER
011232,000237: 43,2174           02175                          TC       +1                                    #  NOT ON COMPUTER
011233,000238: 43,2175           04362                          TC       FALTON                                #  TURN ON OPERATOR ERR
011234,000239: 43,2176           05671                          TC       ALARM                                 #  AND ALARM
011235,000240: 43,2177           00115                          OCT      00115                                 
011236,000241: 
011237,000242: 43,2200           11323                          CCS      OPTIND                                #  SEE IF OPTICS AVAILABLE
011238,000243: 43,2201           02207                          TC       OPTC1                                 #  IN USE
011239,000244: 43,2202           02207                          TC       OPTC1                                 #  IN USE
011240,000245: 43,2203           02207                          TC       OPTC1                                 #  IN USE
011241,000246: 
011242,000247: 43,2204           05671                          TC       ALARM                                 #  OPTICS RESERVED (OPTIND=-0)
011243,000248: 43,2205           00117                          OCT      00117                                 
011244,000249: 43,2206           05524                          TC       ENDEXT                                
011245,000250: 
011246,000251: 43,2207           32226        OPTC1             CAF      VNLDOCDU                              #  VERB-NOUN TO LOAD OPTICS CDUS
011247,000252: 43,2210           04636                          TC       BANKCALL                              
011248,000253: 43,2211           20576                          CADR     GOXDSPF                               
011249,000254: 43,2212           05524                          TC       TERMEXTV                              
011250,000255: 43,2213           02214                          TC       +1                                    #  PROCEED
011251,000256: 
011252,000257: 43,2214           31773                          CA       SAC                                   
011253,000258: 43,2215           55313                          TS       DESOPTS                               
011254,000259: 43,2216           31775                          CA       PAC                                   
011255,000260: 43,2217           55312                          TS       DESOPTT                               
011256,000261: 43,2220           32164                          CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
011257,000262: 43,2221           04636                          TC       BANKCALL                              
011258,000263: 43,2222           21064                          CADR     EXDSPRET                              
011259,000264: 
011260,000265: 43,2223           34770                          CAF      ONE                                   
011261,000266: 43,2224           55323                          TS       OPTIND                                #  SET COARS WORKING
011262,000267: 
011263,000268: 43,2225           05524                          TC       ENDEXTVB                              
011264,000269: 
011265,000270: 43,2226           06134        VNLDOCDU          VN       2492                                  
011266,000271: 43,2227  43,2164               OPTCOARV          EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
011267,000272: 
011268,000273:                                                                                                 # # Page 256
011269,000274: 
011270,000275:                                                                                                 #  IMUFINEK       VERB 42         DESCRIPTION
011271,000276:                                                                                                 #         FINE ALIGN IMU
011272,000277: 
011273,000278:                                                                                                 #         1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011274,000279:                                                                                                 #         2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011275,000280:                                                                                                 #                 RESPONSES
011276,000281:                                                                                                 #                 A. TERMINATE
011277,000282:                                                                                                 #                         1. RELEASE EXT VERB DISPLAY SYSTEM.
011278,000283:                                                                                                 #                 B. PROCEED OR ENTER
011279,000284:                                                                                                 #                         1. RE-DISPLAY VERB 42
011280,000285:                                                                                                 #                         2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011281,000286:                                                                                                 #                         3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011282,000287:                                                                                                 #                                 A. FAILED
011283,000288:                                                                                                 #                                         1. RELEASE EXT VERB DISPLAY SYSTEM.
011284,000289:                                                                                                 #                                 B. GOOD
011285,000290:                                                                                                 #                                         1. EXECUTE IMUPULSE (TORQUE IRIGS).
011286,000291:                                                                                                 #                                         2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011287,000292: 
011288,000293: 43,2227           02076        IMUFINEK          TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
011289,000294: 43,2230           32256                          CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
011290,000295: 43,2231           04636                          TC       BANKCALL                              
011291,000296: 43,2232           20576                          CADR     GOXDSPF                               
011292,000297: 43,2233           05524                          TC       TERMEXTV                              
011293,000298: 43,2234           02235                          TC       +1                                    #  PROCEED WITHOUT A LOAD
011294,000299: 
011295,000300: 43,2235           32257                          CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
011296,000301: 43,2236           04636                          TC       BANKCALL                              
011297,000302: 43,2237           21064                          CADR     EXDSPRET                              
011298,000303: 
011299,000304: 43,2240           02260                          TC       CKMODCAD                              
011300,000305: 43,2241           04636                          TC       BANKCALL                              #  CALL MODE SWITCH PROG
011301,000306: 43,2242           17133                          CADR     IMUFINE                               
011302,000307: 
011303,000308: 43,2243           04636                          TC       BANKCALL                              #  HIBERNATION
011304,000309: 43,2244           17644                          CADR     IMUSTALL                              
011305,000310: 43,2245           05524                          TC       ENDEXTVB                              
011306,000311: 
011307,000312: 43,2246           32255        FINEK2            CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGISTERS
011308,000313: 43,2247           04636                          TC       BANKCALL                              
011309,000314: 43,2250           17244                          CADR     IMUPULSE                              
011310,000315: 
011311,000316: 43,2251           04636                          TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
011312,000317: 43,2252           17644                          CADR     IMUSTALL                              
011313,000318: 43,2253           05524                          TC       ENDEXTVB                              
011314,000319: 43,2254           05524                          TC       ENDEXTVB                              
011315,000320: 
011316,000321: 43,2255           02757        LGYROBIN          ECADR    OGC                                   
011317,000322: 43,2256           06335        VNLODGYR          VN       2593                                  
011318,000323: 43,2257           12400        IMUFINEV          VN       4200                                  #  FINE ALIGN VERB
011319,000324: 
011320,000325: 43,2260           31335        CKMODCAD          CA       MODECADR                              
011321,000326:                                                                                                 # # Page 257
011322,000327: 43,2261           00006                          EXTEND                                         
011323,000328: 43,2262           16711                          BZF      TCQ                                   
011324,000329: 43,2263           04362                          TC       FALTON                                
011325,000330: 43,2264           05524                          TC       ENDEXTVB                              
011326,000331: 
011327,000332:                                                                                                 #  GOLOADLV       VERB 50         DESCRIPTION
011328,000333:                                                                                                 #                 AND OTHER PLEASE
011329,000334:                                                                                                 #                 DO SOMETHING VERBS
011330,000335: 
011331,000336:                                                                                                 #         PLEASE PERFORM, MARK, CALIBRATE, ETC.
011332,000337: 
011333,000338:                                                                                                 #         1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011334,000339:                                                                                                 #            SAME RECALL AS A COMPLETED LOAD.
011335,000340:                                                                                                 #         2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011336,000341: 
011337,000342: 43,2265           04417        GOLOADLV          TC       FLASHOFF                              
011338,000343: 43,2266           34223                          CAF      PINSUPBT                              
011339,000344: 43,2267           00006                          EXTEND                                         
011340,000345: 43,2270           01007                          WRITE    SUPERBNK                              #  TURN ON FE7
011341,000346: 43,2271           04655                          TC       POSTJUMP                              
011342,000347: 43,2272  40,2000                                 SBANK=   PINSUPER                              
011343,000348: 43,2272           63001                          CADR     LOADLV1                               
011344,000349: 
011345,000350:                                                                                                 #  V60    VERB 60
011346,000351: 
011347,000352: 43,2273           00006        V60               EXTEND                                         #  SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
011348,000353: 43,2274           30033                          DCA      CDUX                                  #  TO PRESENT ATTITUDE
011349,000354: 43,2275           53014                          DXCH     CPHIX                                 
011350,000355: 43,2276           30034                          CA       CDUZ                                  
011351,000356: 43,2277           55015                          TS       CPHIX      +2                         
011352,000357: 43,2300           02117                          TC       GOPIN                                 
011353,000358: 
011354,000359:                                                                                                 #  V61    VERB 61
011355,000360: 
011356,000361: 43,2301           03065        V61               TC       DOWNX                                 #  CLEAR NEEDLFLG, PHASE
011357,000362: 43,2302           00006                          ADRES    NEEDLFLG                              #  PLANE A/P FOLLOWING ERROR DISPLAYED
011358,000363: 43,2303           03071        SETNEEDL          TC       UPX                                   #  SET NEEDLFLG, TOTAL ATT ERR DISPLAYED
011359,000364: 
011360,000365:                                                                                                 #  V62    VERB 62
011361,000366: 
011362,000367: 43,2304           05547        V62               TC       UPFLAG                                
011363,000368: 43,2305           00220                          ADRES    N22ORN17                              #  COMPUTE TOTAL ATTITUDE ERROR WRT N22
011364,000369: 43,2306           02303                          TC       SETNEEDL                              
011365,000370: 
011366,000371:                                                                                                 #  V63    VERB 63
011367,000372: 
011368,000373: 43,2307           05561        V63               TC       DOWNFLAG                              
011369,000374: 43,2310           00220                          ADRES    N22ORN17                              #  COMPUTE TOAL ASTRONAUT ATTITUDE ERROR
011370,000375: 43,2311           02303                          TC       SETNEEDL                              
011371,000376: 
011372,000377:                                                                                                 # # Page 258
011373,000378: 
011374,000379:                                                                                                 #  ALINTIME       VERB 55         DESCRIPTION
011375,000380:                                                                                                 #         1. SET EXT VERB DISPLAY BUSY FLAG.
011376,000381:                                                                                                 #         2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011377,000382:                                                                                                 #         3. REQUIRE EXECUTION OF VERB 23.
011378,000383:                                                                                                 #         4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011379,000384:                                                                                                 #         5. RELEASE EXT VERB DISPLAY SYSTEM.
011380,000385: 
011381,000386: 43,2312                                          COUNT*   $$/R33                                
011382,000387: 43,2312           02076        ALINTIME          TC       TESTXACT                              
011383,000388: 
011384,000389: 43,2313           32341                          CAF      VNLODDT                               
011385,000390: 43,2314           04636                          TC       BANKCALL                              
011386,000391: 43,2315           20576                          CADR     GOMARKF                               
011387,000392: 43,2316           05524                          TC       ENDEXT                                #  TERMINATE
011388,000393: 43,2317           05524                          TC       ENDEXT                                #  PROCEED
011389,000394: 43,2320           44615                          CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
011390,000395: 43,2321           60154                          AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
011391,000396: 43,2322           00006                          EXTEND                                         
011392,000397: 43,2323           12325                          BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
011393,000398: 43,2324           05524                          TC       ENDEXT                                #         WITH V23 (DATA IN).
011394,000399: 43,2325           00004        UPDATIME          INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
011395,000400: 43,2326           34772                          CAF      ZERO                                  
011396,000401: 43,2327           54001                          TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
011397,000402: 43,2330           52025                          DXCH     TIME2                                 
011398,000403: 43,2331           52155                          DXCH     MPAC                                  
011399,000404: 43,2332           53255                          DXCH     DSPTEM2    +1                         #  INCREMENT
011400,000405: 43,2333           20155                          DAS      MPAC                                  
011401,000406: 
011402,000407: 43,2334           07224                          TC       DPAGREE                               #  FORCE SIGN AGREEMENT
011403,000408: 43,2335           52155                          DXCH     MPAC                                  #  NEW CLOCK.
011404,000409: 43,2336           20025                          DAS      TIME2                                 
011405,000410: 43,2337           00003                          RELINT                                         
011406,000411: 43,2340           05524        UPDTMEND          TC       ENDEXT                                
011407,000412: 43,2341           06230        VNLODDT           VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
011408,000413: 
011409,000414:                                                                                                 #  REDO AND TSELECT ARE NOW IN SYSTEM TEST.
011410,000415: 
011411,000416: 43,2342                                          COUNT*   $$/EXTVB                              
011412,000417:                                                                                                 #  CKOPTVB        VERB 65         DESCRIPTION
011413,000418:                                                                                                 #         OPTICAL VERIFICATION FOR PRELAUNCH.
011414,000419:                                                                                                 #         1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
011415,000420: 
011416,000421: 43,2342           05354        CKOPTVB           TC       CHECKMM                               
011417,000422: 43,2343           00002                          MM       02         B-14                       #  I WONDER IF PRELAUNCH IS RUNNING
011418,000423: 43,2344           02116                          TC       ALM/END                               #  NOT RUNNING OPERATOR ERROR
011419,000424: 43,2345           35055                          CAF      PRIO16                                #  PRELAUNCH OPTICAL VERIFICATION
011420,000425: 43,2346           05135                          TC       FINDVAC                               
011421,000426: 43,2347  E5,1425                                 EBANK=   QPLACE                                
011422,000427: 43,2347           02000 66065                    2CADR    COMPVER                               #  STANDARD LEADIN TO GCOMPVER.
011423,000428: 
011424,000429:                                                                                                 # # Page 259
011425,000430: 43,2351           02117                          TC       GOPIN                                 
011426,000431: 
011427,000432:                                                                                                 #  V 78 ....      TO CHANGE GYROCOMPASS AZIMUTH
011428,000433: 
011429,000434: 43,2352           05354        CHAZFOGC          TC       CHECKMM                               #  IS IT PRELAUNCH
011430,000435: 43,2353           00002                          MM       02         B-14                       
011431,000436: 43,2354           02116                          TC       ALM/END                               #  NO - OPERATOR ERROR
011432,000437: 
011433,000438: 43,2355           35055                          CAF      PRIO16                                #  PRELAUNCH AZIMUTH CHANGE
011434,000439: 43,2356           05135                          TC       FINDVAC                               
011435,000440: 43,2357  0002671                                 EBANK=   XSM                                   
011436,000441: 43,2357           03132 66105                    2CADR    AZMTHCG1                              
011437,000442: 
011438,000443: 43,2361           05402                          TC       PHASCHNG                              
011439,000444: 43,2362           00174                          OCT      00174                                 
011440,000445: 43,2363  01,2146               4P17SPT1          =        4.17SPOT                              
011441,000446: 43,2363           02117                          TC       GOPIN                                 
011442,000447: 
011443,000448:                                                                                                 # # Page 260
011444,000449: 
011445,000450:                                                                                                 #  IMUATTCK       VERB 43         DESCRIPTION
011446,000451:                                                                                                 #         LOAD IMU ATTITUDE ERROR METERS
011447,000452:                                                                                                 #         1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
011448,000453:                                                                                                 #         2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
011449,000454:                                                                                                 #            FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
011450,000455:                                                                                                 #         3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
011451,000456:                                                                                                 #         4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011452,000457:                                                                                                 #         5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
011453,000458:                                                                                                 #            TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
011454,000459:                                                                                                 #         6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
011455,000460: 
011456,000461: 43,2364           02714        IMUATTCK          TC       CHKPOOH                               
011457,000462: 
011458,000463: 43,2365           35001                          CAF      BITS4&5                               #  CHECK IF IMU ZERO AND IMU COARSE ARE ON
011459,000464: 43,2366           00006                          EXTEND                                         
011460,000465: 43,2367           02012                          RAND     CHAN12                                
011461,000466: 43,2370           10000                          CCS      A                                     
011462,000467: 43,2371           12116                          TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011463,000468: 
011464,000469: 43,2372           02427                          TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
011465,000470: 43,2373           02076                          TC       TESTXACT                              #  AFTER
011466,000471: 43,2374           45004                          CS       OCT50                                 #  REMOVE COARSE AND ECTR ENABLE.
011467,000472: 43,2375           00006                          EXTEND                                         
011468,000473: 43,2376           03012                          WAND     CHAN12                                
011469,000474: 
011470,000475: 43,2377           32163                          CAF      VNLODCDU                              
011471,000476: 43,2400           04636                          TC       BANKCALL                              
011472,000477: 43,2401           20576                          CADR     GOXDSPF                               
011473,000478: 43,2402           12414                          TCF      TRMATTCK                              
011474,000479: 43,2403           02404                          TC       +1                                    
011475,000480: 43,2404           04611                          TC       E6SETTER                              #  FOR NEEDLES.
011476,000481: 
011477,000482: 43,2405  E6,1476                                 EBANK=   AK                                    
011478,000483: 
011479,000484: 43,2405           04636                          TC       BANKCALL                              #  INITIALIZE CURRENT DAC AND
011480,000485: 43,2406           42450                          CADR     NEEDLE11                              #  COMMAND VALUES.
011481,000486: 
011482,000487: 43,2407           04636                          TC       BANKCALL                              #  ENABLE ERROR COUNTERS.
011483,000488: 43,2410           42467                          CADR     NEEDLER2                              
011484,000489: 
011485,000490: 43,2411           34767                          CAF      TWO                                   #  4 MS MIN.
011486,000491: 43,2412           05223                          TC       TWIDDLE                               
011487,000492: 43,2413           02417                          ADRES    ATTCK1                                
011488,000493: 43,2414           02427        TRMATTCK          TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
011489,000494: 43,2415           15524                          TCF      ENDEXT                                #  AFTER
011490,000495: 43,2416           02117                          TC       GOPIN                                 
011491,000496: 
011492,000497: 43,2417           00006        ATTCK1            EXTEND                                         #  TRANSFER LOADED VALUES TO DESIRED REGS.
011493,000498: 43,2420           31310                          DCA      THETAD                                
011494,000499:                                                                                                 # # Page 261
011495,000500: 43,2421           53477                          DXCH     AK                                    
011496,000501: 43,2422           31311                          CAE      THETAD     +2                         
011497,000502: 43,2423           55500                          TS       AK         +2                         
011498,000503: 
011499,000504: 43,2424           04714                          TC       IBNKCALL                              #  SENDS COMMANDS LIMITED TO +,- 384 PULSES
011500,000505: 43,2425           42503                          CADR     NEEDLES                               #  AND LEAVES ERROR COUNTERS ENABLED.
011501,000506: 
011502,000507: 43,2426           05314                          TC       TASKOVER                              
011503,000508: 
011504,000509: 43,2427           34764        CKLFTBTS          CAF      GRRBKBIT                              #  HAS LIFTOFF OCCURRED
011505,000510: 43,2430           70101                          MASK     FLAGWRD5                              
011506,000511: 43,2431           10000                          CCS      A                                     
011507,000512: 43,2432           00002        XACT0Q            TC       Q                                     #  YES
011508,000513: 43,2433           34764                          CAF      BIT5                                  
011509,000514: 43,2434           00006                          EXTEND                                         
011510,000515: 43,2435           02030                          RAND     CHAN30                                
011511,000516: 43,2436           15651                          TCF      INCRQCK                               
011512,000517: 43,2437           02076        VB64              TC       TESTXACT                              
011513,000518: 43,2440           34755                          CAF      PRIO4                                 
011514,000519: 43,2441           05135                          TC       FINDVAC                               
011515,000520: 43,2442  E4,1711                                 EBANK=   RHOSB                                 
011516,000521: 43,2442           03504 64104                    2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
011517,000522: 
011518,000523: 43,2444           05205                          TC       ENDOFJOB                              
011519,000524: 
011520,000525:                                                                                                 #  ENATMA VERB 58         DESCRIPTION
011521,000526:                                                                                                 #         ENABLE AUTOMATIC ATTITUDE MANEUVER
011522,000527: 
011523,000528:                                                                                                 #  VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC ACT-
011524,000529:                                                                                                 #  IVITY.
011525,000530: 
011526,000531: 43,2445           05547        ENATMA            TC       UPFLAG                                #  SET FLAG TO ENABLE R60 MANEUVER
011527,000532: 43,2446           00055                          ADRES    V50N18FL                              
011528,000533: 43,2447           03065                          TC       DOWNX                                 #  RESET STIKFLAG.
011529,000534: 43,2450           00020                          ADRES    STIKFLAG                              
011530,000535: 
011531,000536:                                                                                                 #  STABLISH       VERB 46         DESCRIPTION
011532,000537:                                                                                                 #         ESTABLISH G AND N AUTOPILOT CONTROL
011533,000538:                                                                                                 #         1. SETS UP EITHER RCS, ENTRY, OR SATURN
011534,000539:                                                                                                 #         2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
011535,000540:                                                                                                 #                 FROM HIGH BW TO LOW BW
011536,000541: 
011537,000542: 
011538,000543: 43,2451           04611        STABLISH          TC       E6SETTER                              
011539,000544: 
011540,000545: 43,2452           40102                          CS       FLAGWRD6                              #  TEST FOR TVC
011541,000546: 43,2453           74076                          MASK     DPCONFIG                              
011542,000547: 43,2454           00006                          EXTEND                                         
011543,000548: 43,2455           62465                          BZMF     DAPFIG                                
011544,000549:                                                                                                 # # Page 262
011545,000550: 43,2456           31465                          CAE      DAPDATR1                              #  TET FOR CSM/LM
011546,000551: 43,2457           74753                          MASK     BIT14                                 
011547,000552: 43,2460           00006                          EXTEND                                         
011548,000553: 43,2461           62116                          BZMF     ALM/END                               #  CSM, SO ALARM AND EXIT
011549,000554: 
011550,000555: 43,2462           04636                          TC       BANKCALL                              #  CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
011551,000556: 43,2463           36344                          CADR     SWICHOVR                              
011552,000557: 
011553,000558: 43,2464           02117                          TC       GOPIN                                 
011554,000559: 
011555,000560: 43,2465           44760        DAPFIG            CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
011556,000561: 43,2466           00006                          EXTEND                                         
011557,000562: 43,2467           03012                          WAND     CHAN12                                
011558,000563: 43,2470           31465                          CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
011559,000564: 43,2471           00006                          EXTEND                                         
011560,000565: 43,2472           74766                          MP       BIT3                                  #  RIGHT SHIFT 4 OCTAL DIGITS
011561,000566: 43,2473           76214                          MASK     THREE                                 #  (IN CASE BIT 15 IS USED)
011562,000567: 43,2474           00004                          INHINT                                         
011563,000568: 43,2475           50000                          INDEX    A                                     
011564,000569: 43,2476           12477                          TCF      +1                                    #  BRANCH BASED ON CONFIG
011565,000570: 43,2477           12522                          TCF      NODAPUP                               #  CM..ACTIVATE NODAP
011566,000571: 43,2500           12517                          TCF      RCSDAPUP                              #  CSM..ACTIVATE RCSDAP
011567,000572: 43,2501           12517                          TCF      RCSDAPUP                              #  CSM/LM ACTIVATE RCSDAP
011568,000573: 43,2502           00006        SATSTKON          EXTEND                                         
011569,000574: 43,2503           32516                          DCA      2REDOSAT                              
011570,000575: 43,2504           52113                          DXCH     T5LOC                                 
011571,000576: 43,2505           34750                          CAF      POSMAX                                
011572,000577: 43,2506           54030                          TS       TIME5                                 
011573,000578: 43,2507           40102                          CS       FLAGWRD6                              #  TURN ON BITS 15,14 OF FLAGWRD6
011574,000579: 43,2510           74076                          MASK     DPCONFIG                              
011575,000580: 43,2511           26102                          ADS      FLAGWRD6                              #  SATSTICK CONTROL OF T5
011576,000581: 43,2512           04714                          TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14MS AND THEN
011577,000582: 43,2513           42642                          CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED
011578,000583: 43,2514           02117                          TC       GOPIN                                 #  EXIT THUS BECAUSE WE CAME VIA V46
011579,000584: 
011580,000585: 43,2515  E6,1704                                 EBANK=   SPOLYARG                              
011581,000586: 43,2515           02000 54106  2REDOSAT          2CADR    REDOSAT                               
011582,000587: 
011583,000588: 43,2517           04714        RCSDAPUP          TC       IBNKCALL                              
011584,000589: 43,2520           42042                          CADR     RCSDAPON                              
011585,000590: 43,2521           12117                          TCF      GOPIN                                 
011586,000591: 
011587,000592: 43,2522           04714        NODAPUP           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS. AND THEN
011588,000593: 43,2523           42642                          CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
011589,000594: 43,2524           34770                          CAF      BIT1                                  
011590,000595: 43,2525           55340                          TS       HOLDFLAG                              #  KILL KALCMANU JOB
011591,000596: 
011592,000597: 43,2526           00006        EXDAPOFF          EXTEND                                         
011593,000598: 43,2527           32721                          DCA      IDLECADR                              #  SET T5 TO IDLE
011594,000599:                                                                                                 # # Page 263
011595,000600: 43,2530           52113                          DXCH     T5LOC                                 
011596,000601: 43,2531           44076                          CS       DPCONFIG                              
011597,000602: 43,2532           70102                          MASK     FLAGWRD6                              
011598,000603: 43,2533           54102                          TS       FLAGWRD6                              
011599,000604: 
011600,000605: 43,2534           02117                          TC       GOPIN                                 
011601,000606: 
011602,000607:                                                                                                 # # Page 264
011603,000608: 
011604,000609:                                                                                                 #  CREMANU        VERB 49         DESCRIPTION
011605,000610:                                                                                                 #         START AUTOMATIC ATTITUDE MANEUVER
011606,000611:                                                                                                 #         1. REQUIRE PROGRAM 00 ACTIVE.
011607,000612:                                                                                                 #         2. SET EXT VERB DISPLAY BUSY FLAG.
011608,000613:                                                                                                 #         3. SCHEDULE R62DISP WITH PRIORITY 10.
011609,000614:                                                                                                 #         4. RELEASE EXT VERB DISPLAY.
011610,000615: 
011611,000616:                                                                                                 #         R62DISP
011612,000617:                                                                                                 #         1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
011613,000618:                                                                                                 #            4 FOR RESTART OF DISPLAY SEQUENCE.
011614,000619:                                                                                                 #                 RESPONSES
011615,000620:                                                                                                 #                 A. TERMINATE
011616,000621:                                                                                                 #                         1. GO TO GOTOPOOH
011617,000622:                                                                                                 #                 B. PROCEED
011618,000623:                                                                                                 #                         1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011619,000624:                                                                                                 #                         2. EXECUTE R60CSM (ATTITUDE MANEUVER).
011620,000625:                                                                                                 #                         3. ZERO GROUP 4 (END R62).
011621,000626:                                                                                                 #                 C. ENTER
011622,000627:                                                                                                 #                         1. REPEAT FLASHING V06,N22.
011623,000628: 
011624,000629: 43,2535           02714        CREWMANU          TC       CHKPOOH                               #  DEMAND P00
011625,000630: 
011626,000631: 43,2536           02076                          TC       TESTXACT                              
011627,000632: 
011628,000633: 43,2537           34754                          CAF      PRIO10                                
011629,000634: 43,2540           05135                          TC       FINDVAC                               
011630,000635: 43,2541  E6,1774                                 EBANK=   R61CNTR                               
011631,000636: 43,2541           02427 56106                    2CADR    R62DISP                               
011632,000637: 
011633,000638: 43,2543           05205                          TC       ENDOFJOB                              
011634,000639:                                                                                                 # # Page 265
011635,000640:                                                                                                 #  DAPDISP        VERB 48         DESCRIPTION
011636,000641:                                                                                                 #         LOAD AUTOPILOT DATA (ROUTINE R03)
011637,000642:                                                                                                 #         0.      CHECKFAIL AND RETURN IF TVC.
011638,000643:                                                                                                 #         1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
011639,000644:                                                                                                 #         2.      LOWER PRIORITY TO 10.
011640,000645:                                                                                                 #         3.      DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
011641,000646:                                                                                                 #         4.      UPON PROCEED RESPONSE, EXECUTE S41.2.
011642,000647:                                                                                                 #         5.      DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
011643,000648:                                                                                                 #         6.      UPON PROCEED RESPONSE EXECUTE S40.14.
011644,000649:                                                                                                 #         7.      DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
011645,000650:                                                                                                 #         8.      UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM
011646,000651: 
011647,000652: 43,2544                                          COUNT*   $$/EXTVB                              
011648,000653: 43,2544           40102        DAPDISP           CS       FLAGWRD6                              
011649,000654: 43,2545           74076                          MASK     DPCONFIG                              
011650,000655: 43,2546           00006                          EXTEND                                         
011651,000656: 43,2547           62551                          BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
011652,000657: 43,2550           02116                          TC       ALM/END                               #  RETURN IF TVC
011653,000658: 
011654,000659: 43,2551           02076                          TC       TESTXACT                              
011655,000660: 43,2552           34754                          CAF      PRIO10                                
011656,000661: 43,2553           05121                          TC       NOVAC                                 
011657,000662: 43,2554  E6,1465                                 EBANK=   DAPDATR1                              
011658,000663: 43,2554           02000 64106                    2CADR    DONOUN46                              
011659,000664: 
011660,000665: 43,2556           05205                          TC       ENDOFJOB                              
011661,000666: 
011662,000667: 42,2000                                          SETLOC   EXTVBS                                
011663,000668: 42,2000                                          BANK                                           
011664,000669: 42,2000                                          COUNT*   $$/R03                                
011665,000670: 42,2000           32055        DONOUN46          CAF      V04N46                                #     R1         R2
011666,000671: 42,2001           04636                          TC       BANKCALL                              #   DAPDATR1   DAPDATR2
011667,000672: 42,2002           20576                          CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
011668,000673: 
011669,000674: 42,2003           05524                          TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
011670,000675: 42,2004           02006                          TC       +2                                    
011671,000676: 42,2005           02000                          TC       DONOUN46                              
011672,000677: 
011673,000678: 42,2006           31465                          CA       DAPDATR1                              
011674,000679: 42,2007           74765                          MASK     BIT4                                  
011675,000680: 42,2010           10000                          CCS      A                                     
011676,000681: 42,2011           12050                          TCF      MAXIN                                 
011677,000682: 42,2012           05561                          TC       DOWNFLAG                              
011678,000683: 42,2013           00212                          ADRES    MAXDBFLG                              
011679,000684: 42,2014           04636        MAXOUT            TC       BANKCALL                              
011680,000685: 42,2015           40463                          CADR     S41.2                                 
011681,000686: 
011682,000687: 42,2016           32054        DONOUN47          CAF      V06N47                                #     R1         R2        R3
011683,000688: 42,2017           04636                          TC       BANKCALL                              #  CSM WGT.   LEM WGT.    BLANK
011684,000689: 42,2020           20576                          CADR     GOXDSPF                               
011685,000690:                                                                                                 # # Page 266
011686,000691: 42,2021           05524                          TC       ENDEXT                                
011687,000692: 42,2022           02024                          TC       +2                                    
011688,000693: 42,2023           02016                          TC       DONOUN47                              
011689,000694: 42,2024           31465                          CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
011690,000695: 42,2025           74346                          MASK     PRIO30                                #  CONFIG = 1(CSM), 2(CSM/LM), 6(CSM/LMA)
011691,000696: 42,2026           00006                          EXTEND                                         
011692,000697: 42,2027           12042                          BZF      DONOUN48                              #  SKIP IF 0, 4
011693,000698: 42,2030           40000                          COM                                            
011694,000699: 42,2031           74346                          MASK     PRIO30                                
011695,000700: 42,2032           00006                          EXTEND                                         
011696,000701: 42,2033           12042                          BZF      DONOUN48                              #  SKIP IF 3, 7
011697,000702: 42,2034           00004                          INHINT                                         
011698,000703: 42,2035           04714                          TC       IBNKCALL                              
011699,000704: 42,2036           13313                          CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLX
011700,000705: 
011701,000706: 42,2037           00003                          RELINT                                         
011702,000707: 42,2040           04636                          TC       BANKCALL                              
011703,000708: 42,2041           40614                          CADR     S40.14                                #  COMPUTE RCS DAP STUFF
011704,000709: 
011705,000710: 42,2042           32053        DONOUN48          CAF      V0648                                 #     R1         R2         R3
011706,000711: 42,2043           04636                          TC       BANKCALL                              #    PTRIM      YTRIM      BLANK
011707,000712: 42,2044           20576                          CADR     GOXDSPF                               
011708,000713: 
011709,000714: 42,2045           05524                          TC       ENDEXT                                
011710,000715: 42,2046           05524                          TC       ENDEXT                                
011711,000716: 42,2047           02042                          TC       DONOUN48                              
011712,000717: 
011713,000718: 42,2050           05547        MAXIN             TC       UPFLAG                                
011714,000719: 42,2051           00212                          ADRES    MAXDBFLG                              
011715,000720: 42,2052           02014                          TC       MAXOUT                                
011716,000721: 
011717,000722: 42,2053           01460        V0648             VN       0648                                  
011718,000723: 42,2054           01457        V06N47            VN       0647                                  
011719,000724: 42,2055           01056        V04N46            VN       0446                                  
011720,000725: 43,2557                                          BANK     43                                    
011721,000726: 43,2000                                          SETLOC   EXTVERBS                              
011722,000727: 43,2000                                          BANK                                           
011723,000728: 
011724,000729: 43,2557                                          COUNT*   $$/EXTVB                              
011725,000730: 
011726,000731:                                                                                                 #  V82PERF        VERB82          DESCRIPTION
011727,000732:                                                                                                 #         REQUEST ORBIT PARAMETERS DISPLAY (R30)
011728,000733:                                                                                                 #         1. IF AVERAGE G IS OFF:
011729,000734:                                                                                                 #                 FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011730,000735:                                                                                                 #                  TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
011731,000736:                                                                                                 #                  CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011732,000737:                                                                                                 #                 SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011733,000738:                                                                                                 #                 CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011734,000739:                                                                                                 #                  RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011735,000740:                                                                                                 #                  HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011736,000741:                                                                                                 #                  HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
011737,000742:                                                                                                 #                  INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011738,000743:                                                                                                 # # Page 267
011739,000744:                                                                                                 #                 FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
011740,000745:                                                                                                 #                  NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011741,000746:                                                                                                 #                  ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011742,000747:                                                                                                 #                  DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011743,000748:                                                                                                 #                  ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011744,000749: 
011745,000750:                                                                                                 #         2.IF AVERAGE G IS ON:
011746,000751:                                                                                                 #                 CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
011747,000752:                                                                                                 #                  FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
011748,000753:                                                                                                 #                  OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011749,000754:                                                                                                 #                 FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011750,000755:                                                                                                 #                  IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011751,000756:                                                                                                 #                  RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011752,000757: 
011753,000758:                                                                                                 #  ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
011754,000759:                                                                                                 #             ABOVE REMARKS.
011755,000760: 
011756,000761: 43,2557           02076        V82PERF           TC       TESTXACT                              
011757,000762: 43,2560           35051                          CAF      PRIO7                                 
011758,000763: 43,2561           05176                          TC       PRIOCHNG                              
011759,000764: 43,2562           04655                          TC       POSTJUMP                              
011760,000765: 43,2563           46330                          CADR     V82CALL                               #  ***** V82CALL MUST NOT BE A FINDVAC JOB.
011761,000766: 
011762,000767:                                                                                                 #  VB83PERF       VERB 83         DESCRIPTION
011763,000768:                                                                                                 #         REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011764,000769:                                                                                                 #         1. SET EXT VERB DISPLAY BUSY FLAG.
011765,000770:                                                                                                 #         2. SCHEDULE V83CALL WITH PRIORITY 10.
011766,000771:                                                                                                 #                 A. DISPLAY
011767,000772:                                                                                                 #                         R1  RANGE
011768,000773:                                                                                                 #                         R2  RANGE RATE
011769,000774:                                                                                                 #                         R3  THETA
011770,000775: 
011771,000776: 43,2564           02076        V83PERF           TC       TESTXACT                              
011772,000777: 43,2565           05547                          TC       UPFLAG                                
011773,000778: 43,2566           00222                          ADRES    R31FLAG                               
011774,000779: 43,2567           35047                 +3       CAF      PRIO5                                 
011775,000780: 43,2570           05121                          TC       NOVAC                                 
011776,000781: 43,2571  E4,1760                                 EBANK=   SUBEXIT                               
011777,000782: 43,2571           02000 62064                    2CADR    R31CALL                               
011778,000783: 
011779,000784: 43,2573           05205                          TC       ENDOFJOB                              
011780,000785: 
011781,000786: 43,2574           02076        V85PERF           TC       TESTXACT                              
011782,000787: 43,2575           05561                          TC       DOWNFLAG                              #  RESET R31 FLAG TO INDICATE R34
011783,000788: 43,2576           00222                          ADRES    R31FLAG                               
011784,000789: 43,2577           02567                          TC       V83PERF    +3                         
011785,000790:                                                                                                 # # Page 268
011786,000791: 
011787,000792:                                                                                                 #  GOTOR23        VERB 54         DESCRIPTION
011788,000793:                                                                                                 #         SET UP MARKING FOR R22 (REND TRACK DATA PROC)
011789,000794:                                                                                                 #         1. SET EXT VERB DISPLAY BUSY FLAG
011790,000795:                                                                                                 #         2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
011791,000796:                                                                                                 #             SCHEDULE R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
011792,000797:                                                                                                 #         3. RELEASE EXT VERB DISPLAY SYSTEM
011793,000798: 
011794,000799: 43,2600           02076        GOTOR23           TC       TESTXACT                              
011795,000800: 43,2601           30074                          CA       FLAGWRD0                              #  V54 UNACCEPTABLE UNLESS BOTH
011796,000801: 43,2602           74762                          MASK     RNDVZBIT                              #         RENDEZVOUS AND TRACK FLAGS ON
011797,000802: 43,2603           00006                          EXTEND                                         
011798,000803: 43,2604           12616                          BZF      R22ALARM                              
011799,000804: 
011800,000805: 43,2605           30075                          CA       FLAGWRD1                              
011801,000806: 43,2606           74764                          MASK     TRACKBIT                              
011802,000807: 43,2607           00006                          EXTEND                                         
011803,000808: 43,2610           12616                          BZF      R22ALARM                              
011804,000809: 
011805,000810: 43,2611           35055                          CAF      PRIO16                                #  LOWER THAN R22
011806,000811: 43,2612           05121                          TC       NOVAC                                 
011807,000812: 43,2613  E7,1722                                 EBANK=   MRKBUF1                               
011808,000813: 43,2613           02263 76067                    2CADR    R23CSM                                
011809,000814: 
011810,000815: 43,2615           05205                          TC       ENDOFJOB                              
011811,000816: 43,2616           05671        R22ALARM          TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
011812,000817: 43,2617           00406                          OCT      00406                                 #         NOR TRACK FLAG WERE ON.
011813,000818: 43,2620           05524                          TC       ENDEXT                                
011814,000819: 
011815,000820:                                                                                                 # # Page 269
011816,000821:                                                                                                 #  VERB 86        DESCRIPTION
011817,000822:                                                                                                 #         V86 IS TO R23 AS MARK REJECT IS TO R21
011818,000823:                                                                                                 #         V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
011819,000824: 
011820,000825: 43,2621  E7,1722                                 EBANK=   MRKBUF1                               
011821,000826: 43,2621           04606        V86PERF           TC       E7SETTER                              #  BACKUP MARK REJ.
011822,000827: 43,2622           31722                          CA       MRKBUF1                               
011823,000828: 43,2623           00006                          EXTEND                                         
011824,000829: 43,2624           12627                          BZF      +3                                    
011825,000830: 43,2625           00006                          EXTEND                                         
011826,000831: 43,2626           62632                          BZMF     BKRJCT                                
011827,000832: 
011828,000833: 43,2627           37702                          CA       NEGONE                                
011829,000834: 43,2630           55722                          TS       MRKBUF1                               
011830,000835: 43,2631           02117                          TC       GOPIN                                 
011831,000836: 43,2632           34762        BKRJCT            CAF      R22CABIT                              
011832,000837: 43,2633           70105                          MASK     FLAGWRD9                              
011833,000838: 43,2634           00006                          EXTEND                                         
011834,000839: 43,2635           12117                          BZF      GOPIN                                 
011835,000840: 
011836,000841: 43,2636           05547                          TC       UPFLAG                                
011837,000842: 43,2637           00231                          ADRES    REJCTFLG                              
011838,000843: 43,2640           12117                          TCF      GOPIN                                 
011839,000844: 
011840,000845:                                                                                                 # # Page 270
011841,000846:                                                                                                 #  TRACKTRM       VERB 56         DESCRIPTION
011842,000847:                                                                                                 #         TERMINATE TRACKING (P20)
011843,000848:                                                                                                 #         1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011844,000849:                                                                                                 #         2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011845,000850:                                                                                                 #         3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
011846,000851:                                                                                                 #         4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
011847,000852:                                                                                                 #         3. KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
011848,000853:                                                                                                 #         4. GO TO ENEMA (SOFTWARE RESTART).
011849,000854:                                                                                                 #         REFERENCE
011850,000855:                                                                                                 #                 P20     RENDEZVOUS      NAVIGATION.
011851,000856:                                                                                                 #                 R21     RENDEZVOUS      TRACKING SIGHTING MARK.
011852,000857:                                                                                                 #                 R22     RENDEZVOUS      TRACKING DATA PROCESSING.
011853,000858: 
011854,000859: 43,2641           06006        TRACKTRM          TC       INTPRET                               
011855,000860: 43,2642           43014                          CLEAR    BON                                   
011856,000861: 43,2643           04275                                   R67FLAG                               
011857,000862: 43,2644           04306                                   UTFLAG                                
011858,000863: 43,2645           66655                                   TRACKCHK                              
011859,000864: 43,2646           43014                          BOFF     CLEAR                                 
011860,000865: 43,2647           00350                                   RNDVZFLG                              
011861,000866: 43,2650           66701                                   EXPIN1                                
011862,000867: 43,2651           05270                                   AUTOSEQ                               
011863,000868: 43,2652           43014                          CLEAR    CLEAR                                 
011864,000869: 43,2653           01261                                   R21MARK                               
011865,000870: 43,2654           00670                                   UPDATFLG                              
011866,000871: 43,2655           43014        TRACKCHK          BOFCLR   CLEAR                                 
011867,000872: 43,2656           00652                                   TRACKFLG                              
011868,000873: 43,2657           66676                                   EXPIN                                 
011869,000874: 43,2660           00267                                   IMUSE                                 
011870,000875: 43,2661           43014                          CLEAR    CLEAR                                 
011871,000876: 43,2662           00270                                   RNDVZFLG                              
011872,000877: 43,2663           04266                                   UTFLAG                                
011873,000878: 43,2664           45034                          RTB      CALL                                  
011874,000879: 43,2665           11030                                   INITSUBB                              #  DO STOPRATE AND RESTOREDB
011875,000880: 43,2666           27516                                   INTSTALL                              #  DONT INTERRUPT INTEGRATION
011876,000881: 43,2667           77776                          EXIT                                           
011877,000882: 
011878,000883: 43,2670           05362                          TC       2PHSCHNG                              
011879,000884: 43,2671           00002                          OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
011880,000885: 43,2672           00001                          OCT      1                                     #  ALSO KILL GROUP 1
011881,000886: 
011882,000887: 43,2673           00004        CLEANOUT          INHINT                                         
011883,000888: 43,2674           04655                          TC       POSTJUMP                              
011884,000889: 43,2675           12712                          CADR     ENEMA                                 #  CAUSE RESTART
011885,000890: 
011886,000891: 43,2676           43014        EXPIN             CLEAR    CLEAR                                 
011887,000892: 43,2677           00270                                   RNDVZFLG                              
011888,000893: 43,2700           04266                                   UTFLAG                                
011889,000894: 43,2701           77776        EXPIN1            EXIT                                           
011890,000895:                                                                                                 # # Page 271
011891,000896: 43,2702           02117                          TC       GOPIN                                 
011892,000897: 
011893,000898:                                                                                                 #  LEMVEC VERB 80         DESCRIPTION
011894,000899:                                                                                                 #         UPDATE LEM STATE VECTOR
011895,000900:                                                                                                 #                 RESET VEHUPFLG TO 0
011896,000901: 
011897,000902: 43,2703           03065        LEMVEC            TC       DOWNX                                 
011898,000903: 43,2704           00026                          ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
011899,000904: 
011900,000905: 43,2705           03071        CSMVEC            TC       UPX                                   #  VEHUPFLG UP INDICATES CM.
011901,000906: 
011902,000907:                                                                                                 #  CSMVEC VERB 81         DESCRIPTION
011903,000908:                                                                                                 #         UPDATE CSM STATE VECTOR
011904,000909:                                                                                                 #                 SET VEHUPFLG TO 1
011905,000910: 
011906,000911:                                                                                                 #  DNEDUMP        VERB 74         DESCRIPTION
011907,000912:                                                                                                 #         INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011908,000913:                                                                                                 #         2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011909,000914:                                                                                                 #         3. RELEASE EXT VERB DISPLAY.
011910,000915: 
011911,000916: 43,2706           32711        DNEDUMP           CAF      LDNDUMPI                              
011912,000917: 43,2707           54334                          TS       DNTMGOTO                              
011913,000918: 43,2710           02117                          TC       GOPIN                                 
011914,000919: 
011915,000920: 43,2711  43,2706               V74               EQUALS   DNEDUMP                               
011916,000921: 43,2711           03643        LDNDUMPI          REMADR   DNDUMPI                               
011917,000922: 
011918,000923:                                                                                                 #  LFTFLGON       VERB 75         DESCRIPTION
011919,000924:                                                                                                 #         SET LIFT-OFF FLAG
011920,000925:                                                                                                 #         1. SETUP GRRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011921,000926:                                                                                                 #         2. RETURN VIA PINBRNCH
011922,000927: 
011923,000928: 43,2712           00125                          ADRES    GRRBKFLG                              #  MUST PRECEDE LFTFLGON
011924,000929: 43,2713           03071        LFTFLGON          TC       UPX                                   
011925,000930: 
011926,000931: 43,2714           31214        CHKPOOH           CA       MODREG                                
011927,000932: 43,2715           00006                          EXTEND                                         
011928,000933: 43,2716           16711                          BZF      TCQ                                   
011929,000934: 43,2717           12116                          TCF      ALM/END                               
011930,000935: 
011931,000936: 43,2720  E6,1423                                 EBANK=   PACTOFF                               
011932,000937: 43,2720           03226 12106  IDLECADR          2CADR    T5IDLOC                               
011933,000938: 
011934,000939:                                                                                                 # # Page 272
011935,000940:                                                                                                 #  VERB 89        DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011936,000941: 
011937,000942:                                                                                                 #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND
011938,000943:                                                                                                 #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011939,000944:                                                                                                 #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011940,000945: 
011941,000946:                                                                                                 #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011942,000947:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
011943,000948: 
011944,000949:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
011945,000950:                                                                                                 #  ORIENTATION KNOWN TO CGC, CONTINUE.
011946,000951: 
011947,000952:                                                                                                 #  3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011948,000953:                                                                                                 #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
011949,000954:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V 22 E 2 E. CONTINUE
011950,000955:                                                                                                 #  AFTER KEYING IN PROCEED.
011951,000956: 
011952,000957:                                                                                                 #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
011953,000958:                                                                                                 #  FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
011954,000959: 
011955,000960:                                                                                                 #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011956,000961: 
011957,000962:                                                                                                 #         R63COMP JOB:
011958,000963: 
011959,000964:                                                                                                 #                 UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
011960,000965: 
011961,000966:                                                                                                 #                 CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011962,000967: 
011963,000968:                                                                                                 #                 DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011964,000969:                                                                                                 #                 ARE STORED FOR LATER R60CSM CALL.
011965,000970: 
011966,000971:                                                                                                 #  6.  FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011967,000972: 
011968,000973:                                                                                                 #  7.  RECYCLE- RETURN TO STEP 5.
011969,000974:                                                                                                 #      TERMINATE- EXIT R63 ROUTINE
011970,000975:                                                                                                 #      PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011971,000976: 
011972,000977: 43,2722           02714        V89PERF           TC       CHKPOOH                               #  DEMAND P00
011973,000978: 43,2723           02076                          TC       TESTXACT                              
011974,000979: 43,2724           34754                          CAF      PRIO10                                
011975,000980: 43,2725           05135                          TC       FINDVAC                               
011976,000981: 43,2726  E6,1774                                 EBANK=   R61CNTR                               
011977,000982: 43,2726           02377 62066                    2CADR    V89CALL                               
011978,000983: 
011979,000984: 43,2730           15205                          TCF      ENDOFJOB                              
011980,000985: 
011981,000986: 43,2731           05561        WMATRXNG          TC       DOWNFLAG                              #  RESET RENDWFLG
011982,000987: 43,2732           00131                          ADRES    RENDWFLG                              
011983,000988: 43,2733           03065                          TC       DOWNX                                 
011984,000989:                                                                                                 # # Page 273
011985,000990: 43,2734           00066                          ADRES    ORBWFLAG                              
011986,000991: 
011987,000992: 43,2735  43,2735               GOSHOSUM          EQUALS   SHOWSUM                               
011988,000993: 
011989,000994: 43,2735           02714        SHOWSUM           TC       CHKPOOH                               
011990,000995: 43,2736           02076                          TC       TESTXACT                              #  *
011991,000996: 43,2737           34770                          CAF      S+1                                   #  *
011992,000997: 43,2740           55376                          TS       SKEEP6                                #  * SHOWSUM OPTION
011993,000998: 43,2741           34772                          CAF      S+ZERO                                #  *
011994,000999: 43,2742           55362                          TS       SMODE                                 #  * TURN OFF SELF-CHECK
011995,001000: 43,2743           33177                          CA       SELFADRS                              #  *
011996,001001: 43,2744           55361                          TS       SELFRET                               #  *
011997,001002: 43,2745           03454                          TC       STSHOSUM                              #  * ENTER ROPECHK
011998,001003: 
011999,001004: 43,2746           23372        SDISPLAY          LXCH     SKEEP2                                #  * BNK NO FOR DSP
012000,001005: 43,2747           23373                          LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
012001,001006: 43,2750           33176        NOKILL            CA       ADRS1                                 #  *
012002,001007: 43,2751           54156                          TS       MPAC       +2                         #  *
012003,001008: 43,2752           32763                          CA       VNCON                                 #  * 0501
012004,001009: 43,2753           04636                          TC       BANKCALL                              #  *
012005,001010: 43,2754           20576                          CADR     GOXDSPF                               #  *
012006,001011: 43,2755           02760                          TC       +3                                    #  *
012007,001012: 43,2756           03565                          TC       NXTBNK                                #  *
012008,001013: 43,2757           02750                          TC       NOKILL                                #  *
012009,001014: 43,2760           33177                          CA       SELFADRS                              
012010,001015: 43,2761           55371                          TS       SKEEP1                                
012011,001016: 
012012,001017: 43,2762           05524                          TC       ENDEXT                                #  *
012013,001018: 
012014,001019: 43,2763           01201        VNCON             VN       501                                   #  *
012015,001020: 
012016,001021: 43,2764           31376        ENDSUMS           CA       SKEEP6                                #  *
012017,001022: 43,2765           00006                          EXTEND                                         #  *
012018,001023: 43,2766           13270                          BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
012019,001024: 43,2767           03454                          TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
012020,001025: 
012021,001026: 
012022,001027:                                                                                                 #  VB 87  SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
012023,001028: 
012024,001029:                                                                                                 #  VB 88  RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
012025,001030: 
012026,001031: 43,2770           05632        RESETVHF          TC       TRFAILOF                              #  TRACKER FAIL LIGHT
012027,001032: 43,2771           03065                          TC       DOWNX                                 
012028,001033: 43,2772           00215                          ADRES    VHFRFLAG                              
012029,001034: 43,2773           03071        SETVHFLG          TC       UPX                                   #  V87 SET VHF RANGE FLAG
012030,001035: 
012031,001036:                                                                                                 #  VERB 66.       VEHICLES ARE ATTACHED. - MOVE THIS VEHICLE STATE VECTOR TO
012032,001037:                                                                                                 #                 OTHER VEHICLE STATE VECTOR.
012033,001038: 
012034,001039:                                                                                                 # # Page 274
012035,001040:                                                                                                 #  USE SUBROUTINE GENTRAN.
012036,001041: 
012037,001042: 43,2774  E3,1554                                 EBANK=   RRECTHIS                              
012038,001043: 43,2774           34754        ATTACHED          CAF      PRIO10                                
012039,001044: 43,2775           05135                          TC       FINDVAC                               
012040,001045: 43,2776  E3,1554                                 EBANK=   RRECTHIS                              
012041,001046: 43,2776           02000 36103                    2CADR    ATTACHIT                              
012042,001047: 
012043,001048: 43,3000           05205                          TC       ENDOFJOB                              
012044,001049: 
012045,001050: 17,2000                                          SETLOC   EXTVRBS1                              
012046,001051: 17,2000                                          BANK                                           
012047,001052: 17,2000                                          COUNT*   $$/EXTVB                              
012048,001053: 17,2000           06006        ATTACHIT          TC       INTPRET                               
012049,001054: 17,2001           77624                          CALL                                           
012050,001055: 17,2002           27516                                   INTSTALL                              
012051,001056: 17,2003           43014                          SET      BON                                   
012052,001057: 17,2004           04064                                   MOONOTH                               
012053,001058: 17,2005           04303                                   MOONTHIS                              
012054,001059: 17,2006           36011                                   CMMOVE                                
012055,001060: 17,2007           77614                          CLEAR                                          
012056,001061: 17,2010           04264                                   MOONOTH                               
012057,001062: 17,2011           77776        CMMOVE            EXIT                                           
012058,001063: 17,2012           32032                          CAF      OCT51                                 
012059,001064: 17,2013           05607                          TC       GENTRAN                               
012060,001065: 17,2014           01554                          ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
012061,001066: 17,2015           01626                          ADRES    RRECTOTH                              
012062,001067: 
012063,001068: 17,2016           06006        TACHEXIT          TC       INTPRET                               
012064,001069: 17,2017           77624                          CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
012065,001070: 17,2020           27005                                   PTOACSM                               
012066,001071: 17,2021           45154                          LXA,2    CALL                                  
012067,001072: 17,2022           02150                                   PBODY                                 
012068,001073: 17,2023           20240                                   SVDWN1                                
012069,001074: 17,2024           77624                          CALL                                           
012070,001075: 17,2025           20264                                   SVDWN2                                
012071,001076: 17,2026           77624                          CALL                                           
012072,001077: 17,2027           27525                                   INTWAKE0                              
012073,001078: 17,2030           77634        TCPIN             RTB                                            
012074,001079: 17,2031           21275                                   PINBRNCH                              
012075,001080: 
012076,001081: 17,2032           00051        OCT51             OCT      51                                    
012077,001082: 
012078,001083: 43,2000                                          SETLOC   EXTVERBS                              
012079,001084: 43,2000                                          BANK                                           
012080,001085: 43,3001                                          COUNT*   $$/EXTVB                              
012081,001086: 
012082,001087:                                                                                                 #  VERB 47  MOVE LM STATE VECTOR INTO CSM STATE VECTOR.
012083,001088: 
012084,001089: 43,3001           34754        LMTOCMSV          CAF      PRIO10                                
012085,001090: 43,3002           05135                          TC       FINDVAC                               
012086,001091:                                                                                                 # # Page 275
012087,001092: 43,3003  E3,1554                                 EBANK=   RRECTHIS                              
012088,001093: 43,3003           02033 36103                    2CADR    LMTOCM                                
012089,001094: 
012090,001095: 43,3005           05205                          TC       ENDOFJOB                              
012091,001096: 
012092,001097: 17,2000                                          SETLOC   EXTVRBS1                              
012093,001098: 17,2000                                          BANK                                           
012094,001099: 
012095,001100: 17,2033                                          COUNT*   $$/EXTVB                              
012096,001101: 17,2033           06006        LMTOCM            TC       INTPRET                               
012097,001102: 17,2034           77624                          CALL                                           
012098,001103: 17,2035           27516                                   INTSTALL                              
012099,001104: 17,2036           43014                          SET      BON                                   
012100,001105: 17,2037           04063                                   MOONTHIS                              
012101,001106: 17,2040           04304                                   MOONOTH                               
012102,001107: 17,2041           36044                                   LMMOVE                                
012103,001108: 17,2042           77614                          CLEAR                                          
012104,001109: 17,2043           04263                                   MOONTHIS                              
012105,001110: 17,2044           77776        LMMOVE            EXIT                                           
012106,001111: 17,2045           32032                          CAF      OCT51                                 
012107,001112: 17,2046           05607                          TC       GENTRAN                               
012108,001113: 17,2047           01626                          ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
012109,001114: 17,2050           01554                          ADRES    RRECTHIS                              
012110,001115: 
012111,001116: 17,2051           12016                          TCF      TACHEXIT                              
012112,001117: 
012113,001118:                                                                                                 #  VERB 94  DO R64 VIA ENEMA TO PICK UP IN P23.
012114,001119: 
012115,001120: 43,2000                                          SETLOC   EXTVERBS                              
012116,001121: 43,2000                                          BANK                                           
012117,001122: 43,3006                                          COUNT*   $$/EXTVB                              
012118,001123: 43,3006           34756        VERB94            CAF      V94FLBIT                              
012119,001124: 43,3007           70105                          MASK     FLAGWRD9                              #  IS V94FLAG SET
012120,001125: 43,3010           00006                          EXTEND                                         
012121,001126: 43,3011           12116                          BZF      ALM/END                               #  NO - OPERATOR ERROR
012122,001127: 
012123,001128: 43,3012           05561                          TC       DOWNFLAG                              
012124,001129: 43,3013           00213                          ADRES    V94FLAG                               
012125,001130: 
012126,001131: 43,3014           05354                          TC       CHECKMM                               #  IS IT P23
012127,001132: 43,3015           00027                          MM       23         B-14                       
012128,001133: 43,3016           02116                          TC       ALM/END                               #  NO - OPERATOR ERROR
012129,001134: 43,3017           05402                          TC       PHASCHNG                              
012130,001135: 43,3020           00112                          OCT      112                                   #  SET GROUP 2 TO DO R64
012131,001136: 
012132,001137: 43,3021  01,2044               2P11SPT1          =        2.11SPOT                              
012133,001138: 43,3021           02673                          TC       CLEANOUT                              #  CAUSE RESTART
012134,001139: 
012135,001140:                                                                                                 #  V90PERF        VERB 90         DESCRIPTION
012136,001141:                                                                                                 #         REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
012137,001142:                                                                                                 # # Page 276
012138,001143:                                                                                                 #         1. SET EXT VERB DISPLAY BUSY FLAG.
012139,001144:                                                                                                 #         2. SCHEDULE R36 CALL WITH PRIORITY 10
012140,001145:                                                                                                 #                 A. DISPLAY
012141,001146:                                                                                                 #                         TIME OF EVENT - HOURS , MINUTES , SECONDS
012142,001147:                                                                                                 #                         Y       OUT-OF-PLANE POSITION - NAUTICAL MILES
012143,001148:                                                                                                 #                         YDOT    OUT-OF-PLANE VELOCITY - FEET/SECOND
012144,001149:                                                                                                 #                         PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
012145,001150:                                                                                                 #                                 DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012146,001151: 
012147,001152: 43,3022           02076        V90PERF           TC       TESTXACT                              
012148,001153: 43,3023           35051                          CAF      PRIO7                                 #  R36,V90
012149,001154: 43,3024           05135                          TC       FINDVAC                               
012150,001155: 43,3025  40,2000                                 SBANK=   PINSUPER                              
012151,001156: 43,3025  E7,1412                                 EBANK=   TIG                                   
012152,001157: 43,3025           02000 50107                    2CADR    R36                                   
012153,001158: 
012154,001159: 43,3027           15205                          TCF      ENDOFJOB                              
012155,001160: 
012156,001161:                                                                                                 #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
012157,001162: 
012158,001163: 43,3030           05547        VERB96            TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012159,001164: 43,3031           00221                          ADRES    QUITFLAG                              #         AT NEXT TIMESTEP
012160,001165: 
012161,001166: 43,3032           05547                          TC       UPFLAG                                
012162,001167: 43,3033           00204                          ADRES    V96ONFLG                              
012163,001168: 43,3034           34772                          CAF      ZERO                                  
012164,001169: 43,3035           04655                          TC       POSTJUMP                              
012165,001170: 43,3036           10007                          CADR     V37                                   #  GO TO POO
012166,001171: 
012167,001172: 43,3037  E7,1751                                 EBANK=   LANDMARK                              
012168,001173: 43,3037           05354        V52               TC       CHECKMM                               #  IS P22 OPERATING
012169,001174: 43,3040           00026                          MM       22         B-14                       
012170,001175: 43,3041           02116                          TC       ALM/END                               #  NO
012171,001176: 43,3042           04606                          TC       E7SETTER                              
012172,001177: 43,3043           45051                          CS       PRIO7                                 #  YES  SET BITS 12,11,10 OF LANDMARK =
012173,001178: 43,3044           71751                          MASK     LANDMARK                              #  NO. OF MARKS TO GET OFFSET MARK NO.
012174,001179: 43,3045           55751                          TS       LANDMARK                              
012175,001180: 
012176,001181: 43,3046           31747                          CA       8NN                                   #  NO. OF MARKS
012177,001182: 43,3047           00006                          EXTEND                                         
012178,001183: 43,3050           74757                          MP       BIT10                                 
012179,001184: 43,3051           30001                          CA       L                                     
012180,001185: 43,3052           27751                          ADS      LANDMARK                              
012181,001186: 43,3053           02117                          TC       GOPIN                                 
012182,001187: 
012183,001188:                                                                                                 #  VERB 67  ASTRONAUT DISPLAY OF W MATRIX
012184,001189: 
012185,001190: 43,3054           02076        V67               TC       TESTXACT                              
012186,001191: 43,3055           35047                          CAF      PRIO5                                 
012187,001192: 43,3056           05135                          TC       FINDVAC                               
012188,001193:                                                                                                 # # Page 277
012189,001194: 43,3057  0002400                                 EBANK=   W                                     
012190,001195: 43,3057           03636 60105                    2CADR    V67CALL                               
012191,001196: 
012192,001197: 43,3061           05205                          TC       ENDOFJOB                              
012193,001198: 
012194,001199:                                                                                                 #  VB 45.     RESET SURFACE FLAG
012195,001200: 
012196,001201: 43,3062           03065        RESTSRF           TC       DOWNX                                 
012197,001202: 43,3063           00177                          ADRES    SURFFLAG                              
012198,001203: 43,3064           03071        SETSURF           TC       UPX                                   #  VB 44. SET SURFACE FLAG
012199,001204: 
012200,001205:                                                                                                 # # Page 278
012201,001206: 
012202,001207:                                                                                                 #  DOWNX, UPX     FLAG SETTING AND RESETTING FOR EXTENDED VERBS.
012203,001208: 
012204,001209:                                                                                                 #         RETURN IS TO GOPIN.
012205,001210: 
012206,001211:                                                                                                 #         CALLING SEQUENCES:
012207,001212: 
012208,001213:                                                                                                 #                 FOR DOWNX
012209,001214: 
012210,001215:                                                                                                 #                         TC      DOWNX
012211,001216:                                                                                                 #                         ADRES   (FLAG NAME)
012212,001217: 
012213,001218:                                                                                                 #                 FOR UPX
012214,001219: 
012215,001220:                                                                                                 #                         ADRES   (FLAG NAME)
012216,001221:                                                                                                 #                         TC      UPX
012217,001222: 
012218,001223: 43,3065                                          COUNT*   $$/FLAG                               
012219,001224: 43,3065           30002        DOWNX             CA       Q                                     
012220,001225: 43,3066           05565                          TC       DEBIT                                 
012221,001226: 43,3067           70001                          MASK     L                                     
012222,001227: 43,3070           13077                          TCF      COMXFLG                               
012223,001228: 
012224,001229: 43,3071           30002        UPX               CA       Q                                     
012225,001230: 43,3072           67701                          AD       NEG2                                  
012226,001231: 43,3073           05565                          TC       DEBIT                                 
012227,001232: 43,3074           40000                          COM                                            
012228,001233: 43,3075           00006                          EXTEND                                         
012229,001234: 43,3076           04001                          ROR      LCHAN                                 
012230,001235: 
012231,001236: 43,3077           50061        COMXFLG           INDEX    ITEMP1                                
012232,001237: 43,3100           54074                          TS       FLAGWRD0                              
012233,001238: 43,3101           12117                          TCF      GOPIN                                 
012234,001239: 
012235,001240:                                                                                                 # # Page 279
012236,001241: 
012237,001242:                                                                                                 #  VERB 57 SET FULL TRACK OPTION
012238,001243: 
012239,001244: 43,3102                                          COUNT*   $$/EXTVB                              
012240,001245: 43,3102           02076        V57CALL           TC       TESTXACT                              
012241,001246: 
012242,001247: 43,3103           34766        PARTRACK          CAF      BIT3                                  #  OPTION 4 SPECIFY CONDITION OF FULTKFLG
012243,001248: 43,3104           55255                          TS       OPTIONX                               
012244,001249: 
012245,001250: 43,3105           34767        PRTRCK            CAF      FULTKBIT                              
012246,001251: 43,3106           70106                          MASK     FLGWRD10                              
012247,001252: 43,3107           00006                          EXTEND                                         
012248,001253: 43,3110           13112                          BZF      +2                                    #  FULTKFLG NOT SET
012249,001254: 
012250,001255: 43,3111           34770                          CAF      BIT1                                  #  FULTKFLG SET
012251,001256: 43,3112           55256                          TS       OPTIONX    +1                         
012252,001257: 43,3113           33131                          CAF      V04N12                                
012253,001258: 43,3114           04636                          TC       BANKCALL                              
012254,001259: 43,3115           20576                          CADR     GOXDSPF                               
012255,001260: 43,3116           05524                          TC       ENDEXT                                
012256,001261: 43,3117           05524                          TC       ENDEXT                                
012257,001262: 43,3120           31256                          CA       OPTIONX    +1                         
012258,001263: 43,3121           00006                          EXTEND                                         
012259,001264: 43,3122           13126                          BZF      +4                                    
012260,001265: 43,3123           05547                          TC       UPFLAG                                
012261,001266: 43,3124           00243                          ADRES    FULTKFLG                              
012262,001267: 43,3125           13105                          TCF      PRTRCK                                
012263,001268: 
012264,001269: 43,3126           05561                          TC       DOWNFLAG                              
012265,001270: 43,3127           00243                          ADRES    FULTKFLG                              
012266,001271: 43,3130           13105                          TCF      PRTRCK                                
012267,001272: 
012268,001273: 43,3131           01014        V04N12            VN       0412                                  

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