Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

010205,000002:                                                                                                  ## Copyright:   Public domain.
010206,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
010207,000004:                                                                                                  ## Purpose:     Part of the source code for Comanche, build 055. It
010208,000005:                                                                                                  ##              is part of the source code for the Command Module's
010209,000006:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC), Apollo 11.
010210,000007:                                                                                                  ## Assembler:   yaYUL
010211,000008:                                                                                                  ## Reference:   pp. 236-267
010212,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>,
010213,000010:                                                                                                  ##              Fabrizio Bernardini <fabrizio@spacecraft.it>
010214,000011:                                                                                                  ## Website:     http://www.ibiblio.org/apollo.
010215,000012:                                                                                                  ## Mod history: 2009-05-18 FB   Transcription Batch 3 Assignment.
010216,000013:                                                                                                  ##              2009-05-20 RSB  Corrections:  POODOO -> POODOO,
010217,000014:                                                                                                  ##                              GOTOPOOH -> GOTOPOOH, added a couple of 
010218,000015:                                                                                                  ##                              missing instructions in Verb 96.
010219,000016:                                                                                                  ##              2009-05-23 RSB  In SYSTEST, corrected TC FLAGWRD1 to 
010220,000017:                                                                                                  ##                              CA FLAGWRD1.  Added a variety of SBANK=
010221,000018:                                                                                                  ##                              statements prior to 2CADRs.  One day I'll
010222,000019:                                                                                                  ##                              have to figure out what yaYUL is doing 
010223,000020:                                                                                                  ##                              wrong with those ....
010224,000021:                                                                                                  ##              2010-08-29 JL   Fixed +3 and +8 pseudo-labels which were accidentally symbols.
010225,000022:                                                                                                  ##              2011-05-08 JL   Flagged SBANK= workarounds for future removal.
010226,000023:                                                                                                  ##              2011-05-17 JL   Removed all SBANK= workarounds.
010227,000024:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
010228,000025:                                                                                                  ##                              and fixed the errors found.
010229,000026:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
010230,000027:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
010231,000028:                                                                                                  ##              2017-01-13 RSB  Fixed comment errors detected in cross-diff vs
010232,000029:                                                                                                  ##                              Colossus 249.
010233,000030:                                                                                                  ##              2017-01-22 RSB  Fixed comment errors detected in cross-diff vs
010234,000031:                                                                                                  ##                              Artemis 72.
010235,000032:                                                                                                  ##              2017-02-23 RSB  CHKP00H -> CHKPOOH
010236,000033:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
010237,000034:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
010238,000035: 
010239,000036:                                                                                                  ## The contents of the "Comanche055" files, in general, are transcribed 
010240,000037:                                                                                                  ## from scanned documents. 
010241,000038:                                                                                                  ##
010242,000039:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
010243,000040:                                                                                                  ##      2021113-051.  April 1, 1969.  
010244,000041:                                                                                                  ##
010245,000042:                                                                                                  ##      This AGC program shall also be referred to as Colossus 2A
010246,000043:                                                                                                  ##
010247,000044:                                                                                                  ##      Prepared by
010248,000045:                                                                                                  ##                      Massachusetts Institute of Technology
010249,000046:                                                                                                  ##                      75 Cambridge Parkway
010250,000047:                                                                                                  ##                      Cambridge, Massachusetts
010251,000048:                                                                                                  ##
010252,000049:                                                                                                  ##      under NASA contract NAS 9-4065.
010253,000050:                                                                                                  ##
010254,000051:                                                                                                  ## Refer directly to the online document mentioned above for further
010255,000052:                                                                                                  ## information.  Please report any errors to info@sandroid.org.
010256,000053: 

Page 236

010258,000055: 07,2441                                           BANK     7                                     
010259,000056: 43,2000                                           SETLOC   EXTVERBS                              
010260,000057: 43,2000                                           BANK                                           
010261,000058: 
010262,000059: 43,2000  E5,1757                                  EBANK=   OGC                                   
010263,000060: 
010264,000061: 43,2000                                           COUNT*   $$/EXTVB                              
010265,000062: 
010266,000063:                                                                                                  #  FAN-OUT
010267,000064: 
010268,000065: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
010269,000066: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
010270,000067: 
010271,000068: 43,2002           02124        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 ONLY).
010272,000069: 43,2003           02150                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010273,000070:                                                                                                  #                                91 ONLY)
010274,000071: 43,2004           02240                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
010275,000072: 43,2005           02420                           TC       IMUATTCK                              #  VB43 LOAD IMU ATTITUDE ERROR METERS.
010276,000073: 43,2006           03207                           TC       SETSURF                               #  VB44 SET SURFACE FLAG
010277,000074: 43,2007           03212                           TC       RESTSRF                               #  VB45 RESET SURFACE FLAG
010278,000075: 43,2010           02524                           TC       STABLISH                              #  VB46 ESTABLISH G+C CONTROL.
010279,000076: 43,2011           03102                           TC       LMTOCMSV                              #  VB47 MOVE LM STATE VECTOR INTO CM
010280,000077: 43,2012           02552                           TC       DAPDISP                               #  VB48 LOAD A/P DATA.
010281,000078: 43,2013           12543                           TCF      CREWMANU                              #  VB 49 START AUTOMATIC ATTITUDE MANEUVER
010282,000079: 43,2014           02275                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
010283,000080: 43,2015           02275                           TC       GOLOADLV                              #  VB51 PLEASE MARK
010284,000081: 43,2016           03157                           TC       V52                                   #  VB52 SET OFFSET NO. FOR P22
010285,000082: 43,2017           02275                           TC       GOLOADLV                              #  VB 53 PLEASE PERFORM COAS MARK
010286,000083: 43,2020           02612                           TC       GOTOR23                               #  V54 START R23 (R21-BACKUP)
010287,000084: 43,2021           02326                           TC       ALINTIME                              #  VB55 ALIGN TIME
010288,000085: 43,2022           02653                           TC       TRACKTRM                              #  VB56 TERMINATE TRACKING (P20 + P25)
010289,000086: 43,2023           02607                           TC       GOTOR21                               #  V57 START R21 REND TRACK SIGHT MARK ROUT
010290,000087: 43,2024           02510                           TC       ENATMA                                #  VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
010291,000088: 43,2025           02275                           TC       GOLOADLV                              #  VB59 PLEASE CALIBRATE
010292,000089: 43,2026           02303                           TC       V60                                   #  VB60 SET CPHIX (N17) EQUAL TO CDU
010293,000090: 43,2027           02311                           TC       V61                                   #  VB61 SELECT MODE I
010294,000091: 43,2030           02314                           TC       V62                                   #  VB62 SELECT MODE II, ERROR WRT N22
010295,000092: 43,2031           02321                           TC       V63                                   #  VB63 SELECT MODE III, ERROR WRT N17
010296,000093: 43,2032           02500                           TC       VB64                                  #  VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
010297,000094: 43,2033           02375                           TC       CKOPTVB                               #  V 65 E OPTICAL VERIFICATION FOR PRELAUNC
010298,000095: 43,2034           03034                           TC       ATTACHED                              #  VB66 ATTACHED. MOVE THIS TO OTHER STATE
010299,000096: 43,2035           03201                           TC       V67                                   #  VB67 W MATRIX MONITOR
010300,000097: 43,2036           02513                           TC       STROKON                               #  VB68 CSM STROKE TEST ON.
010301,000098: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 CAUSE RESTART
010302,000099: 43,2040           03726                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
010303,000100: 43,2041           03730                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010304,000101: 43,2042           03732                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010305,000102: 43,2043           03734                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
010306,000103: 43,2044           02721                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010307,000104:                                                                                                  #        FOR ERASABLE DUMP.
010308,000105: 43,2045           02725                           TC       LFTFLGON                              #  VB75 SET LIFTOFF FLAG.

Page 237

010310,000107: 43,2046           03015                           TC       SETPRFLG                              #  VB76 SET PREFERRED ATTITUDE FLAG
010311,000108: 43,2047           03020                           TC       RESETPRF                              #  VB77 RESET PREFERRED ATT. FLAG
010312,000109: 43,2050           02406                           TC       CHAZFOGC                              #  CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
010313,000110: 43,2051           02120                           TC       ALM/END                               #  V79 SPARE
010314,000111: 43,2052           02713                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
010315,000112: 43,2053           02716                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
010316,000113: 43,2054           02562                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010317,000114: 43,2055           02567                           TC       V83PERF                               #  VB83 RANGE, RANGE RATE, +X AXIS  (R31)
010318,000115: 43,2056           02120                           TC       ALM/END                               #  V84  SPARE
010319,000116: 43,2057           02601                           TC       V85PERF                               #  VB85 RANGE, RANGE RATE, SLOS     (R34)
010320,000117: 43,2060           02646                           TC       V86PERF                               #  VB86 BACKUP MARK REJECT
010321,000118: 43,2061           03023                           TC       SETVHFLG                              #  VB87 SET VHF RANGE FLAG
010322,000119: 43,2062           03027                           TC       RESETVHF                              #  VB88 RESET VHF RANGE FLAG
010323,000120: 43,2063           02745                           TC       V89PERF                               #  V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
010324,000121: 43,2064           03142                           TC       V90PERF                               #  VB90-OUT OF PLANE PARAMETERS %R36"
010325,000122: 43,2065           02762                           TC       GOSHOSUM                              #  VB91 TEMP FOR HYBRID AND STG.
010326,000123: 43,2066           02360                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST
010327,000124: 43,2067           02755                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
010328,000125: 43,2070           03126                           TC       VERB94                                #  VB94 DO R64
010329,000126: 43,2071           02120                           TC       ALM/END                               #  VB95 SPARE
010330,000127: 43,2072           13150                           TCF      VERB96                                #  VB96 SET QUITFLAG TO STOP INTEGRATION
010331,000128: 43,2073           02275                           TC       GOLOADLV                              #  V97 PLEASE PERFORM ENGINE-FAIL (R41)
010332,000129: 43,2074           02120                           TC       ALM/END                               #  VB98 SPARE
010333,000130: 43,2075           02275                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
010334,000131: 
010335,000132:                                                                                                  #  END OF EXTENDED VERB FAN
010336,000133: 
010337,000134: 43,2076           11044        TESTXACT           CCS      EXTVBACT                              
010338,000135: 43,2077           02120                           TC       ALM/END                               #  YES. TURN ON OPERATOR ERROR LIGHT
010339,000136: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIOS USING DSKY
010340,000137: 43,2101           72123                           MASK     OC24100                               
010341,000138: 43,2102           10000                           CCS      A                                     
010342,000139: 43,2103           02120                           TC       ALM/END                               
010343,000140: 
010344,000141: 43,2104           34112                           CAF      OCT24                                 #  SET BITS 3 AND 5
010345,000142: 43,2105           55044        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
010346,000143:                                                                                                  #  SYSTEM BUSY
010347,000144: 
010348,000145: 43,2106           30002                           CA       Q                                     
010349,000146: 43,2107           54155                           TS       MPAC       +1                         
010350,000147: 
010351,000148: 43,2110           45016                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
010352,000149: 43,2111           04170                           TC       NVSUB                                 
010353,000150: 43,2112           02113                           TC       +1                                    
010354,000151: 43,2113           00155                           TC       MPAC       +1                         
010355,000152: 
010356,000153: 43,2114           04400        XACTALM            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT.
010357,000154: 43,2115           05534                           TC       ENDEXT                                #  RELEASE MARK AND EXT. VERB DISPLAY SYS.

Page 238

010359,000156: 43,2116     5534               TERMEXTV           EQUALS   ENDEXT                                
010360,000157: 43,2116     5534               ENDEXTVB           EQUALS   ENDEXT                                
010361,000158: 
010362,000159: 43,2116           35021        XACT0              CAF      ZERO                                  #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
010363,000160: 43,2117           02105                           TC       SETXTACT                              
010364,000161: 
010365,000162: 43,2120           04400        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
010366,000163: 43,2121           04701        GOPIN              TC       POSTJUMP                              
010367,000164: 43,2122           21272                           CADR     PINBRNCH                              
010368,000165: 
010369,000166: 43,2123           24100        OC24100            OCT      24100                                 
010370,000167: 

Page 239

010372,000169:                                                                                                  #  VBZERO        VERB 40         DESCRIPTION
010373,000170:                                                                                                  #        ZERO
010374,000171:                                                                                                  #        1.      REQUIRE NOUN 20 (ICDU ANGLES) 
010375,000172:                                                                                                  #        2.      REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
010376,000173:                                                                                                  #        3.      IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010377,000174:                                                                                                  #        4.      SET EXT VERB DISPLAY ACTIVE FLAG.
010378,000175:                                                                                                  #        5.      EXECUTE IMUZERO (ZERO IMU CDU ANGLES).
010379,000176:                                                                                                  #        6.      EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010380,000177:                                                                                                  #        7.      RELEASE EXT. VERB DISPLAY SYSTEM.
010381,000178: 
010382,000179: 43,2124           02136        VBZERO             TC       OP/INERT                              
010383,000180: 43,2125           02127                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
010384,000181: 43,2126           02120                           TC       ALM/END                               #  RETURN HERE IF NOUN = OCDU(91)
010385,000182:                                                                                                  #        (NOT IN USE YET)
010386,000183: 
010387,000184: 43,2127           02271        IMUZEROK           TC       CKMODCAD                              #  KEYBOARD REQUEST FOR ISS CDUZERO
010388,000185: 43,2130           04662                           TC       BANKCALL                              
010389,000186: 43,2131           16577                           CADR     IMUZERO                               
010390,000187: 
010391,000188: 43,2132           04662                           TC       BANKCALL                              #  STALL
010392,000189: 43,2133           17577                           CADR     IMUSTALL                              
010393,000190: 43,2134           02135                           TC       +1                                    
010394,000191: 
010395,000192: 43,2135           02121                           TC       GOPIN                                 
010396,000193: 
010397,000194: 43,2136           44112        OP/INERT           CS       OCT24                                 
010398,000195: 43,2137           61002                           AD       NOUNREG                               
010399,000196: 43,2140           00006                           EXTEND                                         
010400,000197: 43,2141           12476                           BZF      XACT0Q                                #  IF = 20.
010401,000198: 
010402,000199: 43,2142           24002                           INCR     Q                                     
010403,000200: 43,2143           62147                           AD       OPIMDIFF                              #  -71
010404,000201: 43,2144           00006                           EXTEND                                         
010405,000202: 43,2145           12476                           BZF      XACT0Q                                
010406,000203: 
010407,000204: 43,2146           02120                           TC       ALM/END                               #  ILLEGAL.
010408,000205: 
010409,000206: 43,2147           77670        OPIMDIFF           DEC      -71        B-14                       
010410,000207: 

Page 240

010412,000209:                                                                                                  #  VBCOARK       VERB 41         DESCRIPTION
010413,000210:                                                                                                  #        COURSE ALIGN IMU OR OPTICS
010414,000211: 
010415,000212:                                                                                                  #        1.      REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
010416,000213:                                                                                                  #        2.      REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010417,000214: 
010418,000215:                                                                                                  #        CASE 1  NOUN 20 (ICDU ANGLES)
010419,000216:                                                                                                  #        3.      SET EXT VERB DISPLAY ACTIVE FLAG.
010420,000217:                                                                                                  #        4.      DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010421,000218:                                                                                                  #                RESPONSES
010422,000219:                                                                                                  #                A.      TERMINATE
010423,000220:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM
010424,000221:                                                                                                  #                B.      PROCEED
010425,000222:                                                                                                  #                        1.      DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
010426,000223:                                                                                                  #                                RESPONSES
010427,000224:                                                                                                  #                                A.      TERMINATE
010428,000225:                                                                                                  #                                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
010429,000226:                                                                                                  #                                B.      PROCEED
010430,000227:                                                                                                  #                                        1.      EXECUTE ICORK2.
010431,000228:                                                                                                  #                                C.      ENTER
010432,000229:                                                                                                  #                                        1.      INCREMENT CDU ANGLES
010433,000230:                                                                                                  #                                        2.      EXECUTE ICORK2.
010434,000231:                                                                                                  #                C.      ENTER
010435,000232:                                                                                                  #                        1.      EXECUTE ICORK2.
010436,000233:                                                                                                  #  ICORK2
010437,000234:                                                                                                  #        1.      RE-DISPLAY VERB 41.
010438,000235:                                                                                                  #        2.      EXECUTE IMUCOARS (IMU COARSE ALIGN).
010439,000236:                                                                                                  #        3.      EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010440,000237:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY SYSTEM.
010441,000238: 
010442,000239:                                                                                                  #        CASE 2  NOUN 91 (OCDU ANGLES)
010443,000240:                                                                                                  #        5.      (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
010444,000241:                                                                                                  #                OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
010445,000242:                                                                                                  #                AND RELEASE EXT VERB DISPLAY SYSTEM).
010446,000243:                                                                                                  #        6.      RESPONSES TO V29,N92.
010447,000244:                                                                                                  #                A.      TERMINATE
010448,000245:                                                                                                  #                        RELEASE EXT VERB DISPLAY SYSTEM
010449,000246:                                                                                                  #                B.      PROCEED OR ENTER
010450,000247:                                                                                                  #                        RE-DISPLAY V41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
010451,000248:                                                                                                  #                        RELEASE EXT VERB DISPLAY SYSTEM.
010452,000249: 
010453,000250: 43,2150           02136        VBCOARK            TC       OP/INERT                              
010454,000251: 43,2151           02153                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
010455,000252: 43,2152           02175                           TC       OPTCOARK                              #  RETURN HERE IF NOUN = OCDU (91)
010456,000253: 
010457,000254:                                                                                                  #  RETURN TO L+1 IF NOUN 20 - TO L+2 IF NOUN 91.
010458,000255: 
010459,000256: 43,2153           02271        IMUCOARK           TC       CKMODCAD                              #  COARSE ALIGN FROM KEYBOARD
010460,000257: 43,2154           02076                           TC       TESTXACT                              
010461,000258: 43,2155           32173                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
010462,000259: 43,2156           04662                           TC       BANKCALL                              
010463,000260: 43,2157           20561                           CADR     GOXDSPF                               
010464,000261: 43,2160           05534                           TC       TERMEXTV                              
010465,000262: 43,2161           12162                           TCF      +1                                    

Page 241

010467,000264: 
010468,000265: 43,2162           32174        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
010469,000266: 43,2163           04662                           TC       BANKCALL                              
010470,000267: 43,2164           21042                           CADR     EXDSPRET                              
010471,000268: 
010472,000269: 43,2165           04662                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
010473,000270: 43,2166           16663                           CADR     IMUCOARS                              
010474,000271: 
010475,000272: 43,2167           04662                           TC       BANKCALL                              #  STALL
010476,000273: 43,2170           17577                           CADR     IMUSTALL                              
010477,000274: 43,2171           05534                           TC       ENDEXTVB                              
010478,000275: 43,2172           05534                           TC       ENDEXTVB                              
010479,000276: 
010480,000277: 43,2173           06226        VNLODCDU           VN       2522                                  
010481,000278: 43,2174           12200        IMUCOARV           VN       4100                                  
010482,000279: 

Page 242

010484,000281:                                                                                                  #  TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
010485,000282: 
010486,000283: 43,2175           31323        OPTCOARK           CA       OPTCADR                               
010487,000284: 43,2176           02272                           TC       CKMODCAD   +1                         
010488,000285: 43,2177           02076                           TC       TESTXACT                              
010489,000286: 43,2200           35056                           CAF      EBANK5                                
010490,000287: 43,2201           54003                           TS       EBANK                                 
010491,000288: 
010492,000289: 43,2202           11314                           CCS      SWSAMPLE                              #  SEE IF SWITCH AT COMPUTER
010493,000290: 43,2203           02210                           TC       +5                                    #  SWITCH AT COMPUTER
010494,000291: 43,2204           02205                           TC       +1                                    #  NOT ON COMPUTER
010495,000292: 43,2205           04400                           TC       FALTON                                #  TURN ON OPERATOR ERR
010496,000293: 43,2206           05650                           TC       ALARM                                 #  AND ALARM
010497,000294: 43,2207           00115                           OCT      00115                                 
010498,000295: 
010499,000296: 43,2210           11303                           CCS      OPTIND                                #  SEE IF OPTICS AVAILABLE
010500,000297: 43,2211           02217                           TC       OPTC1                                 #  IN USE
010501,000298: 43,2212           02217                           TC       OPTC1                                 #  IN USE
010502,000299: 43,2213           02217                           TC       OPTC1                                 #  IN USE
010503,000300: 
010504,000301: 43,2214           05650                           TC       ALARM                                 #  OPTICS RESERVED (OPTIND=-0)
010505,000302: 43,2215           00117                           OCT      00117                                 
010506,000303: 43,2216           05534                           TC       ENDEXT                                
010507,000304: 
010508,000305: 43,2217           32237        OPTC1              CAF      VNLD0CDU                              #  VERB-NOUN TO LOAD OPTICS CDUS
010509,000306: 43,2220           04662                           TC       BANKCALL                              
010510,000307: 43,2221           20561                           CADR     GOXDSPF                               
010511,000308: 43,2222           05534                           TC       TERMEXTV                              
010512,000309: 43,2223           02224                           TC       +1                                    #  PROCEED
010513,000310: 
010514,000311: 43,2224           31773                           CA       SAC                                   
010515,000312: 43,2225           55161                           TS       DESOPTS                               
010516,000313: 43,2226           31775                           CA       PAC                                   
010517,000314: 43,2227           55160                           TS       DESOPTT                               
010518,000315: 43,2230           32174                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
010519,000316: 43,2231           04662                           TC       BANKCALL                              
010520,000317: 43,2232           21042                           CADR     EXDSPRET                              
010521,000318: 
010522,000319: 43,2233           35017                           CAF      ONE                                   
010523,000320: 43,2234           55303                           TS       OPTIND                                #  SET COARS WORKING
010524,000321: 
010525,000322: 43,2235           05534                           TC       ENDEXTVB                              
010526,000323: 43,2236           05534                           TC       ENDEXTVB                              
010527,000324: 
010528,000325: 43,2237           06134        VNLD0CDU           VN       2492                                  
010529,000326: 43,2240  43,2174               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
010530,000327: 

Page 243

010532,000329:                                                                                                  #  IMUFINEK      VERB 42         DESCRIPTION
010533,000330:                                                                                                  #        FINE ALIGN IMU
010534,000331: 
010535,000332:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
010536,000333:                                                                                                  #        2.      DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
010537,000334:                                                                                                  #                RESPONSES
010538,000335:                                                                                                  #                A.      TERMINATE
010539,000336:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
010540,000337:                                                                                                  #                B.      PROCEED OR ENTER
010541,000338:                                                                                                  #                        1.      RE-DISPLAY VERB 42
010542,000339:                                                                                                  #                        2.      EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
010543,000340:                                                                                                  #                        3.      EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
010544,000341:                                                                                                  #                                A.      FAILED
010545,000342:                                                                                                  #                                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
010546,000343:                                                                                                  #                                B.      GOOD
010547,000344:                                                                                                  #                                        1.      EXECUTE IMUPULSE (TORQUE IRIGS).
010548,000345:                                                                                                  #                                        2.      EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
010549,000346: 
010550,000347: 43,2240           02271        IMUFINEK           TC       CKMODCAD                              #  FINE ALIGN WITH GYRO TORQUING
010551,000348: 43,2241           02076                           TC       TESTXACT                              
010552,000349: 43,2242           32267                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
010553,000350: 43,2243           04662                           TC       BANKCALL                              
010554,000351: 43,2244           20561                           CADR     GOXDSPF                               
010555,000352: 43,2245           05534                           TC       TERMEXTV                              
010556,000353: 43,2246           02247                           TC       +1                                    #  PROCEED WITHOUT A LOAD
010557,000354: 
010558,000355: 43,2247           32270                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
010559,000356: 43,2250           04662                           TC       BANKCALL                              
010560,000357: 43,2251           21042                           CADR     EXDSPRET                              
010561,000358: 
010562,000359: 43,2252           04662                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
010563,000360: 43,2253           17073                           CADR     IMUFINE                               
010564,000361: 
010565,000362: 43,2254           04662                           TC       BANKCALL                              #  HIBERNATION
010566,000363: 43,2255           17577                           CADR     IMUSTALL                              
010567,000364: 43,2256           05534                           TC       ENDEXTVB                              
010568,000365: 
010569,000366: 43,2257           32266        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
010570,000367: 43,2260           04662                           TC       BANKCALL                              
010571,000368: 43,2261           17206                           CADR     IMUPULSE                              
010572,000369: 
010573,000370: 43,2262           04662                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
010574,000371: 43,2263           17577                           CADR     IMUSTALL                              
010575,000372: 43,2264           05534                           TC       ENDEXTVB                              
010576,000373: 43,2265           05534                           TC       ENDEXTVB                              
010577,000374: 
010578,000375: 43,2266           02757        LGYROBIN           ECADR    OGC                                   
010579,000376: 43,2267           06335        VNLODGYR           VN       2593                                  
010580,000377: 43,2270           12400        IMUFINEV           VN       4200                                  #  FINE ALIGN VERB
010581,000378: 
010582,000379: 43,2271           31322        CKMODCAD           CA       MODECADR                              

Page 244

010584,000381: 43,2272           00006                           EXTEND                                         
010585,000382: 43,2273           16711                           BZF      TCQ                                   
010586,000383: 43,2274           02120                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
010587,000384: 
010588,000385:                                                                                                  #  GOLOADLV      VERB 50         DESCRIPTION
010589,000386:                                                                                                  #        AND OTHER PLEASE
010590,000387:                                                                                                  #        DO SOMETHING VERBS
010591,000388: 
010592,000389:                                                                                                  #  PLEASE PERFORM, MARK, CALIBRATE, ETC.
010593,000390: 
010594,000391:                                                                                                  #        1.      PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
010595,000392:                                                                                                  #                SAME RECALL AS A COMPLETED LOAD.
010596,000393:                                                                                                  #        2.      THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
010597,000394: 
010598,000395: 43,2275           04447        GOLOADLV           TC       FLASHOFF                              
010599,000396: 43,2276           34215                           CAF      PINSUPBT                              
010600,000397: 43,2277           00006                           EXTEND                                         
010601,000398: 43,2300           01007                           WRITE    SUPERBNK                              #  TURN ON FE7
010602,000399: 43,2301           04701                           TC       POSTJUMP                              
010603,000400: 43,2302  40,2000                                  SBANK=   PINSUPER                              
010604,000401: 43,2302           62001                           CADR     LOADLV1                               
010605,000402: 
010606,000403:                                                                                                  #  V60   VERB 60
010607,000404: 43,2303           00006        V60                EXTEND                                         #  SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
010608,000405: 43,2304           30033                           DCA      CDUX                                  #  TO PRESENT ATTITUDE
010609,000406: 43,2305           53334                           DXCH     CPHIX                                 
010610,000407: 43,2306           30034                           CA       CDUZ                                  
010611,000408: 43,2307           55335                           TS       CPHIX      +2                         
010612,000409: 43,2310           02121                           TC       GOPIN                                 
010613,000410: 
010614,000411:                                                                                                  #  V61   VERB 61
010615,000412: 43,2311           05560        V61                TC       DOWNFLAG                              #  SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE
010616,000413: 43,2312           00006                           ADRES    NEEDLFLG                              #  PLANE A/P FOLLOWING ERROR DISPLAYED
010617,000414: 43,2313           02121                           TC       GOPIN                                 
010618,000415: 
010619,000416:                                                                                                  #  V62   VERB 62
010620,000417: 43,2314           05546        V62                TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010621,000418: 43,2315           00006                           ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010622,000419: 
010623,000420: 43,2316           05546                           TC       UPFLAG                                #  SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
010624,000421: 43,2317           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ATTITUDE ERROR WRT N22
010625,000422: 43,2320           02121                           TC       GOPIN                                 
010626,000423: 
010627,000424:                                                                                                  #  V63   VERB 63
010628,000425: 43,2321           05546        V63                TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010629,000426: 43,2322           00006                           ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010630,000427: 
010631,000428: 43,2323           05560                           TC       DOWNFLAG                              #  SET N22ORN17 TO 0 (FLAGWRD9,BIT6,

Page 245

010633,000430: 43,2324           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR
010634,000431: 43,2325           02121                           TC       GOPIN                                 
010635,000432: 

Page 246

010637,000434:                                                                                                  #  ALINTIME      VERB 55         DESCRIPTION
010638,000435: 
010639,000436:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
010640,000437:                                                                                                  #        2.      DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
010641,000438:                                                                                                  #        3.      REQUIRE EXECUTION OF VERB 23.
010642,000439:                                                                                                  #        4.      ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
010643,000440:                                                                                                  #        5.      RELEASE EXT VERB DISPLAY SYSTEM
010644,000441: 
010645,000442: 43,2326                                           COUNT    04/R33                                
010646,000443: 
010647,000444: 43,2326           02076        ALINTIME           TC       TESTXACT                              
010648,000445: 
010649,000446: 43,2327           32357                           CAF      VNLODDT                               
010650,000447: 43,2330           04662                           TC       BANKCALL                              
010651,000448: 43,2331           20561                           CADR     GOMARKF                               
010652,000449: 43,2332           05534                           TC       ENDEXT                                #  TERMINATE
010653,000450: 43,2333           05534                           TC       ENDEXT                                #  PROCEED
010654,000451: 43,2334           42356                           CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
010655,000452: 43,2335           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
010656,000453: 43,2336           00006                           EXTEND                                         
010657,000454: 43,2337           12341                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
010658,000455: 43,2340           05534                           TC       ENDEXT                                #        WITH V23 (DATA IN).
010659,000456: 
010660,000457: 43,2341           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
010661,000458: 43,2342           35021                           CAF      ZERO                                  
010662,000459: 43,2343           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
010663,000460: 43,2344           54001                           TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
010664,000461: 43,2345           52025                           DXCH     TIME2                                 
010665,000462: 43,2346           52155                           DXCH     MPAC                                  
010666,000463: 43,2347           53052                           DXCH     DSPTEM2    +1                         #  INCREMENT
010667,000464: 43,2350           20155                           DAS      MPAC                                  
010668,000465: 
010669,000466: 43,2351           07226                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
010670,000467: 43,2352           52155                           DXCH     MPAC                                  #  NEW CLOCK.
010671,000468: 43,2353           20025                           DAS      TIME2                                 
010672,000469: 43,2354           00003                           RELINT                                         
010673,000470: 43,2355           05534        UPDTMEND           TC       ENDEXT                                
010674,000471: 43,2356           00027        DEC23              DEC      23         B-14                       #  V 23
010675,000472: 
010676,000473: 43,2357           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
010677,000474: 

Page 247

010679,000476:                                                                                                  #  SYSTEST       VERB 92         DESCRIPTION
010680,000477:                                                                                                  #        OPERATE SELECTED SYSTEM TEST
010681,000478: 
010682,000479:                                                                                                  #        1.      REQUIRE POO OR POO- OR TURN ON OPERATOR ERROR.
010683,000480:                                                                                                  #        2.      TURN OFF DAP IF IT IS ON.
010684,000481:                                                                                                  #        3.      DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17).
010685,000482:                                                                                                  #        4.      UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20.
010686,000483: 
010687,000484:                                                                                                  #        TSELECT
010688,000485:                                                                                                  #        1.      IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND
010689,000486:                                                                                                  #                REPEAT LOAD REQUEST DISPLAY.  (NO. 3 ABOVE)
010690,000487: 
010691,000488: 43,2360  E5,1425                                  EBANK=   QPLACE                                
010692,000489: 
010693,000490: 43,2360                                           COUNT    04/EXTVB                              
010694,000491: 
010695,000492: 43,2360           02730        SYSTEST            TC       CHKPOOH                               
010696,000493: 43,2361           30075                           CA       FLAGWRD1                              #  IS NODOP01 FLAGBIT ON? (SET BY P11)
010697,000494: 43,2362           75004                           MASK     NOP01BIT                              
010698,000495: 43,2363           00006                           EXTEND                                         
010699,000496: 43,2364           12367                           BZF      V92CONT                               #  IF IT'S NOT YET SET, CONTINUE
010700,000497: 43,2365           05721                           TC       POODOO                                #  IT'S ON. SEND NODO ALARM FOR P07
010701,000498: 43,2366           01521                           OCT      1521                                  
010702,000499: 43,2367           02734        V92CONT            TC       EXDAPOFF                              #  TURN DAP OFF IT IT'S ON
010703,000500: 43,2370           35002                           CAF      PRIO20                                
010704,000501: 43,2371           05147                           TC       FINDVAC                               
010705,000502: 43,2372  E5,1425                                  EBANK=   QPLACE                                
010706,000503: 43,2372  30,2000                                  SBANK=   IMUSUPER                              
010707,000504: 43,2372           02002 66065                     2CADR    REDO                                  
010708,000505: 
010709,000506: 43,2374           02121                           TC       GOPIN                                 
010710,000507: 
010711,000508:                                                                                                  #  REDO AND TSELECT ARE NOW IN SYSTEM TEST.              
010712,000509: 
010713,000510: 43,2375                                           COUNT*   $$/EXTVB                              
010714,000511:                                                                                                  #  CKOPTVB       VERB 65         DESCRIPTION
010715,000512:                                                                                                  #        OPTICAL VERIFICATION FOR PRELAUNCH.
010716,000513:                                                                                                  #        1.      SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
010717,000514: 
010718,000515: 43,2375           05364        CKOPTVB            TC       CHECKMM                               
010719,000516: 43,2376           00002                           MM       02         B-14                       #  I WONDER IF PRELAUNCH IS RUNNING
010720,000517: 43,2377           02120                           TC       ALM/END                               #  NOT RUNNING OPERATOR ERROR
010721,000518: 43,2400           00004                           INHINT                                         
010722,000519: 43,2401           35070                           CAF      PRIO16                                #  PRELAUNCH OPTICAL VERIFICATION
010723,000520: 43,2402           05147                           TC       FINDVAC                               
010724,000521: 43,2403  E5,1425                                  EBANK=   QPLACE                                
010725,000522: 43,2403           02000 66065                     2CADR    COMPVER                               #  STANDARD LEADIN TO GCOMPVER.
010726,000523: 
010727,000524: 43,2405           02121                           TC       GOPIN                                 
010728,000525: 

Page 248

010730,000527:                                                                                                  #  V 78 ....     TO CHANGE GYROCOMPASS AZIMUTH
010731,000528: 
010732,000529: 43,2406           05364        CHAZFOGC           TC       CHECKMM                               #  IS IT PRELAUNCH
010733,000530: 43,2407           00002                           MM       02         B-14                       
010734,000531: 43,2410           02120                           TC       ALM/END                               #  NO - OPERA TOR ERROR
010735,000532: 
010736,000533: 43,2411           35070                           CAF      PRIO16                                #  PRELAUNCH AZIMUTH CHANGE
010737,000534: 43,2412           05147                           TC       FINDVAC                               
010738,000535: 43,2413  E5,1671                                  EBANK=   XSM                                   
010739,000536: 43,2413           03742 66065                     2CADR    AZMTHCG1                              
010740,000537: 
010741,000538: 43,2415           05412                           TC       PHASCHNG                              
010742,000539: 43,2416           00174                           OCT      00174                                 
010743,000540: 43,2417           02121                           TC       GOPIN                                 

Page 249

010745,000542:                                                                                                  #  IMUATTCK      VERB 43         DESCRIPTION
010746,000543:                                                                                                  #        LOAD IMU ATTITUDE ERROR METERS
010747,000544: 
010748,000545:                                                                                                  #        1.      REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
010749,000546:                                                                                                  #        2.      IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
010750,000547:                                                                                                  #                FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
010751,000548:                                                                                                  #        3.      REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
010752,000549:                                                                                                  #        4.      DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010753,000550:                                                                                                  #        5.      UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
010754,000551:                                                                                                  #                TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
010755,000552:                                                                                                  #        6.      IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
010756,000553: 
010757,000554: 43,2420           02730        IMUATTCK           TC       CHKPOOH                               
010758,000555: 
010759,000556: 43,2421           32477                           CAF      OCTAL30                               #  CHECK IF IMU ZERO AND IMU COARSE ARE ON
010760,000557: 43,2422           00006                           EXTEND                                         
010761,000558: 43,2423           02012                           RAND     CHAN12                                
010762,000559: 43,2424           10000                           CCS      A                                     
010763,000560: 43,2425           12120                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010764,000561: 
010765,000562: 43,2426           02465                           TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
010766,000563: 43,2427           02076                           TC       TESTXACT                              #  AFTER
010767,000564: 43,2430           45033                           CS       OCT50                                 #  REMOVE COARSE AND ECTR ENABLE.
010768,000565: 43,2431           00006                           EXTEND                                         
010769,000566: 43,2432           03012                           WAND     CHAN12                                
010770,000567: 
010771,000568: 43,2433           32173                           CAF      VNLODCDU                              
010772,000569: 43,2434           04662                           TC       BANKCALL                              
010773,000570: 43,2435           20561                           CADR     GOXDSPF                               
010774,000571: 43,2436           12452                           TCF      TRMATTCK                              
010775,000572: 43,2437           02440                           TC       +1                                    
010776,000573: 43,2440           35057                           CAF      EBANK6                                
010777,000574: 43,2441           54003                           TS       EBANK                                 #  SET E6 FOR NEEDLES.
010778,000575: 
010779,000576: 43,2442  E6,1476                                  EBANK=   AK                                    
010780,000577: 
010781,000578: 43,2442           04662                           TC       BANKCALL                              #  INITIALIZE CURRENT DAC AND
010782,000579: 43,2443           42443                           CADR     NEEDLE11                              #  COMMAND VALUES
010783,000580: 
010784,000581: 43,2444           04662                           TC       BANKCALL                              #  ENABLE ERROR COUNTERS.
010785,000582: 43,2445           42462                           CADR     NEEDLER2                              
010786,000583: 
010787,000584: 43,2446           35016                           CAF      TWO                                   #  4 MS MIN.
010788,000585: 43,2447           05245                           TC       WAITLIST                              
010789,000586: 43,2450  E6,1476                                  EBANK=   AK                                    
010790,000587: 43,2450           02455 66106                     2CADR    ATTCK1                                
010791,000588: 
010792,000589: 43,2452           02465        TRMATTCK           TC       CKLFTBTS                              #  IS IT BEFORE OR AFRER LIFTOFF
010793,000590: 43,2453           15534                           TCF      ENDEXT                                #  AFTER
010794,000591: 43,2454           02121                           TC       GOPIN                                 

Page 250

010796,000593: 43,2455           00006        ATTCK1             EXTEND                                         #  TRANSFER LOADED VALUES TO DESIRED REGS.
010797,000594: 43,2456           31156                           DCA      THETAD                                
010798,000595: 43,2457           53477                           DXCH     AK                                    
010799,000596: 43,2460           31157                           CAE      THETAD     +2                         
010800,000597: 43,2461           55500                           TS       AK         +2                         
010801,000598: 
010802,000599: 43,2462           04740                           TC       IBNKCALL                              #  SENDS COMMANDS LIMITED TO +,- 384 PULSES
010803,000600: 43,2463           42476                           CADR     NEEDLES                               #  AND LEAVES ERROR COUNTERS ENABLED.
010804,000601: 
010805,000602: 43,2464           05324                           TC       TASKOVER                              
010806,000603: 
010807,000604: 43,2465           35013        CKLFTBTS           CAF      GRRBKBIT                              #  HAS LIFTOFF OCCURRED
010808,000605: 43,2466           70101                           MASK     FLAGWRD5                              
010809,000606: 43,2467           10000                           CCS      A                                     
010810,000607: 43,2470           00002                           TC       Q                                     #  YES
010811,000608: 43,2471           35013                           CAF      BIT5                                  
010812,000609: 43,2472           00006                           EXTEND                                         
010813,000610: 43,2473           02030                           RAND     CHAN30                                
010814,000611: 43,2474           10000                           CCS      A                                     
010815,000612: 43,2475           16706                           TCF      Q+1                                   
010816,000613: 43,2476           00002        XACT0Q             TC       Q                                     #  YES
010817,000614: 
010818,000615: 43,2477           00030        OCTAL30            OCT      30                                    
010819,000616: 43,2500           02730        VB64               TC       CHKPOOH                               #  DEMAND PROGRAM 00.
010820,000617: 43,2501           02076                           TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY, MAKE IT BUSY.
010821,000618: 43,2502           00004                           INHINT                                         
010822,000619: 43,2503           35004                           CAF      PRIO4                                 
010823,000620: 43,2504           05147                           TC       FINDVAC                               
010824,000621: 43,2505  E4,1720                                  EBANK=   RHOSB                                 
010825,000622: 43,2505           03652 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
010826,000623: 
010827,000624: 43,2507           05217                           TC       ENDOFJOB                              
010828,000625: 
010829,000626:                                                                                                  #  ENATMA        VERB 58         DESCRIPTION
010830,000627:                                                                                                  #        ENABLE AUTOMATIC ATTITUDE MANEUVER
010831,000628: 
010832,000629:                                                                                                  #  VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT-
010833,000630:                                                                                                  #  IVITY.
010834,000631: 
010835,000632: 43,2510           05560        ENATMA             TC       DOWNFLAG                              #  RESET STIKFLAG.
010836,000633: 43,2511           00020                           ADRES    STIKFLAG                              #  BIT 14 FLAG 1
010837,000634: 43,2512           02121                           TC       GOPIN                                 
010838,000635: 

Page 251

010840,000637:                                                                                                  #  STROKON       VERB 68         DESCRIPTION
010841,000638:                                                                                                  #        STROKE TEST SETUP/ENABLE
010842,000639:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG
010843,000640:                                                                                                  #        2.      SCHEDULE STRKTST1 WITH PRIORITY 30.
010844,000641:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY.
010845,000642: 
010846,000643: 43,2513  E6,1625                                  EBANK=   T5TVCDT                               
010847,000644: 43,2513           40102        STROKON            CS       FLAGWRD6                              #  V68   PERMITTED ONLY DURING TVC
010848,000645: 43,2514           74105                           MASK     OCT60000                              
010849,000646: 43,2515           00006                           EXTEND                                         
010850,000647: 43,2516           62120                           BZMF     ALM/END                               #  NOT TVC....FLASH OP ERROR LIGHT
010851,000648: 43,2517           34371                           CAF      PRIO30                                #  JOB REQUEST, TO SET UP STROKE TEST,
010852,000649: 43,2520           05134                           TC       NOVAC                                 #        INCLUDING INITIALIZATIONS
010853,000650: 43,2521  E6,1574                                  EBANK=   STROKER                               
010854,000651: 43,2521           03501 40106                     2CADR    STRKTSTI                              
010855,000652: 
010856,000653: 43,2523           02121                           TC       GOPIN                                 
010857,000654: 
010858,000655:                                                                                                  #  STABLISH      VERB 46         DESCRIPTION
010859,000656:                                                                                                  #        ESTABLISH G & N AUTOPILOT CONTROL
010860,000657:                                                                                                  #        1.      SETS UP EITHER RCS, ENTRY, OR SATURN
010861,000658:                                                                                                  #        2.      IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
010862,000659:                                                                                                  #                        FROM HIGH BW TO LOW BW
010863,000660: 
010864,000661: 
010865,000662: 43,2524           35057        STABLISH           CAF      EBANK6                                #  V46 - SET EBANK TO E6
010866,000663: 43,2525           54003                           TS       EBANK                                 
010867,000664: 
010868,000665: 43,2526           40102                           CS       FLAGWRD6                              #  TEST FOR TVC
010869,000666: 43,2527           74105                           MASK     OCT60000                              
010870,000667: 43,2530           00006                           EXTEND                                         

2010-08-30 (jiml): yaYUL expects either an octal or explicit decimal offset. Original source was 'BZMF +8'. Added 'D' to explicitly specify decimal offset.

010873,000670: 43,2531           62541                           BZMF     +8D                                   
010874,000671: 
010875,000672: 43,2532           31466                           CAE      DAPDATR1                              #  TEST FOR CSM/LM
010876,000673: 43,2533           75002                           MASK     BIT14                                 
010877,000674: 43,2534           00006                           EXTEND                                         
010878,000675: 43,2535           62540                           BZMF     +3                                    
010879,000676: 
010880,000677: 43,2536           04701                           TC       POSTJUMP                              #  CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
010881,000678: 43,2537           36351                           CADR     PRESWTCH                              
010882,000679: 
010883,000680: 43,2540           02120                 +3        TC       ALM/END                               #  CSM, SO ALARM AND EXIT
010884,000681: 
010885,000682: 43,2541           04701                 +8        TC       POSTJUMP                              #  SET UP RCS, ENTRY, OR SATURN-STICK DAP
010886,000683: 43,2542           65606                           CADR     DAPFIG                                

Page 252

010888,000685:                                                                                                  #  CREWMANU      VERB 49         DESCRIPTION
010889,000686:                                                                                                  #        START AUTOMATIC ATTITUDE MANEUVER
010890,000687: 
010891,000688:                                                                                                  #        1.      REQUIRE PROGRAM 00 ACTIVE.
010892,000689:                                                                                                  #        2.      SET EXT VERB DISPLAY BUSY FLAG.
010893,000690:                                                                                                  #        3.      SCHEDULE R62DISP WITH PRIORITY 10.
010894,000691:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY.
010895,000692: 
010896,000693:                                                                                                  #        R62DISP
010897,000694:                                                                                                  #        1.      DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES).  UPON IMMEDIATE RETURN, SET-UP GROUP
010898,000695:                                                                                                  #                4 FOR RESTART OF DISPLAY SEQUENCE.
010899,000696:                                                                                                  #                RESPONSES
010900,000697:                                                                                                  #                A.      TERMINATE
010901,000698:                                                                                                  #                        1.      GO TO GOTOPOOH.
010902,000699:                                                                                                  #                B.      PROCEED
010903,000700:                                                                                                  #                        1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010904,000701:                                                                                                  #                        2.      EXECUTE R60CSM (ATTITUDE MANEUVER).
010905,000702:                                                                                                  #                        3.      ZERO GROUP 4 (END R62).
010906,000703:                                                                                                  #                C.      ENTER
010907,000704:                                                                                                  #                        1.      REPEAT FLASHING V06,N22.
010908,000705: 
010909,000706: 43,2543           02730        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
010910,000707: 
010911,000708: 43,2544           02076                           TC       TESTXACT                              
010912,000709: 
010913,000710: 43,2545           35003                           CAF      PRIO10                                
010914,000711: 43,2546           05147                           TC       FINDVAC                               
010915,000712: 43,2547     1155                                  EBANK=   CPHI                                  
010916,000713: 43,2547           02330 56102                     2CADR    R62DISP                               
010917,000714: 
010918,000715: 43,2551           05217                           TC       ENDOFJOB                              
010919,000716: 

Page 253

010921,000718:                                                                                                  #  DAPDISP       VERB 48         DESCRIPTION
010922,000719:                                                                                                  #        LOAD AUTOPILOT DATA (ROUTINE R03)
010923,000720: 
010924,000721:                                                                                                  #        0.      CHECKFAIL AND RETURN IF TVC.
010925,000722:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010926,000723:                                                                                                  #        2.      LOWER PRIORITY TO 10.
010927,000724:                                                                                                  #        3.      DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
010928,000725:                                                                                                  #        4.      UPON PROCEED RESPONSE, EXECUTE S41.2.
010929,000726:                                                                                                  #        5.      DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010930,000727:                                                                                                  #        6.      UPON PROCEED RESPONSE EXECUTE S40.14.
010931,000728:                                                                                                  #        7.      DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010932,000729:                                                                                                  #        8.      UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
010933,000730: 
010934,000731: 43,2552                                           COUNT*   $$/EXTVB                              
010935,000732: 
010936,000733: 43,2552           40102        DAPDISP            CS       FLAGWRD6                              
010937,000734: 43,2553           74105                           MASK     OCT60000                              
010938,000735: 43,2554           00006                           EXTEND                                         
010939,000736: 43,2555           62557                           BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010940,000737: 43,2556           02120                           TC       ALM/END                               #  RETURN IF TVC
010941,000738: 
010942,000739: 43,2557           02076                           TC       TESTXACT                              
010943,000740: 43,2560           04662                           TC       BANKCALL                              
010944,000741: 43,2561           64000                           CADR     DAPDISP1                              
010945,000742: 42,2000                                           BANK     42                                    
010946,000743: 42,2000                                           SETLOC   EXTVBS                                
010947,000744: 42,2000                                           BANK                                           
010948,000745: 42,2000                                           COUNT    24/R03                                
010949,000746: 
010950,000747: 42,2000           35057        DAPDISP1           CAF      EBANK6                                
010951,000748: 42,2001           54003                           TS       EBANK                                 
010952,000749: 
010953,000750: 42,2002           35003                           CAF      PRIO10                                
010954,000751: 42,2003           05210                           TC       PRIOCHNG                              
010955,000752: 
010956,000753: 42,2004           32061        DONOUN46           CAF      V04N46                                #        R1              R2
010957,000754: 42,2005           04662                           TC       BANKCALL                              #        DAPDATR1        DAPDATR2
010958,000755: 42,2006           20561                           CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010959,000756: 
010960,000757: 42,2007           05534                           TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010961,000758: 42,2010           02012                           TC       +2                                    
010962,000759: 42,2011           02004                           TC       DONOUN46                              
010963,000760: 
010964,000761: 42,2012           31466                           CA       DAPDATR1                              
010965,000762: 42,2013           75014                           MASK     BIT4                                  
010966,000763: 42,2014           10000                           CCS      A                                     
010967,000764: 42,2015           12054                           TCF      MAXIN                                 
010968,000765: 42,2016           05560                           TC       DOWNFLAG                              
010969,000766: 42,2017           00212                           ADRES    MAXDBFLG                              
010970,000767: 42,2020           04662        MAXOUT             TC       BANKCALL                              
010971,000768: 42,2021           40347                           CADR     S41.2                                 
010972,000769: 
010973,000770: 42,2022           32060        DONOUN47           CAF      V06N47                                #        R1              R2              R3

Page 254

010975,000772: 42,2023           04662                           TC       BANKCALL                              #        CSM WGT.        LEM WGT.        BLANK
010976,000773: 42,2024           20561                           CADR     GOXDSPF                               
010977,000774: 
010978,000775: 42,2025           05534                           TC       ENDEXT                                
010979,000776: 42,2026           02030                           TC       +2                                    
010980,000777: 42,2027           02022                           TC       DONOUN47                              
010981,000778: 42,2030           31466                           CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
010982,000779: 42,2031           74371                           MASK     PRIO30                                #  CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA)
010983,000780: 42,2032           00006                           EXTEND                                         
010984,000781: 42,2033           12046                           BZF      DONOUN48                              #  SKIP IF 0,4
010985,000782: 42,2034           40000                           COM                                            
010986,000783: 42,2035           74371                           MASK     PRIO30                                
010987,000784: 42,2036           00006                           EXTEND                                         
010988,000785: 42,2037           12046                           BZF      DONOUN48                              #  SKIP IF 3,7
010989,000786: 42,2040           00004                           INHINT                                         
010990,000787: 42,2041           04740                           TC       IBNKCALL                              
010991,000788: 42,2042           13366                           CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLX
010992,000789: 
010993,000790: 42,2043           00003                           RELINT                                         
010994,000791: 42,2044           04662                           TC       BANKCALL                              
010995,000792: 42,2045           40500                           CADR     S40.14                                #  COMPUTE RCS DAP STUFF
010996,000793: 
010997,000794: 42,2046           32057        DONOUN48           CAF      V0648                                 #        R1              R2              R3
010998,000795: 42,2047           04662                           TC       BANKCALL                              #        PTRIM           YTRIM           BLANK
010999,000796: 42,2050           20561                           CADR     GOXDSPF                               
011000,000797: 
011001,000798: 42,2051           05534                           TC       ENDEXT                                
011002,000799: 42,2052           05534                           TC       ENDEXT                                
011003,000800: 42,2053           02046                           TC       DONOUN48                              
011004,000801: 
011005,000802: 42,2054           05546        MAXIN              TC       UPFLAG                                
011006,000803: 42,2055           00212                           ADRES    MAXDBFLG                              
011007,000804: 42,2056           02020                           TC       MAXOUT                                
011008,000805: 
011009,000806: 42,2057           01460        V0648              VN       0648                                  
011010,000807: 42,2060           01457        V06N47             VN       0647                                  
011011,000808: 42,2061           01056        V04N46             VN       0446                                  
011012,000809: 43,2562                                           BANK     43                                    
011013,000810: 43,2000                                           SETLOC   EXTVERBS                              
011014,000811: 43,2000                                           BANK                                           
011015,000812: 
011016,000813: 43,2562                                           COUNT*   $$/EXTVB                              
011017,000814: 
011018,000815:                                                                                                  #  V82PERF       VERB82          DESCRIPTION
011019,000816:                                                                                                  #        REQUEST ORBIT PARAMETERS DISPLAY (R30)
011020,000817: 
011021,000818:                                                                                                  #        1.      IF AVERAGE G IS OFF:
011022,000819:                                                                                                  #                        FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011023,000820:                                                                                                  #                         TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
011024,000821:                                                                                                  #                         CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011025,000822:                                                                                                  #                        SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011026,000823:                                                                                                  #                        CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE

Page 255

011028,000825:                                                                                                  #                         RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011029,000826:                                                                                                  #                         HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011030,000827:                                                                                                  #                         HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
011031,000828:                                                                                                  #                         INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011032,000829:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
011033,000830:                                                                                                  #                         NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011034,000831:                                                                                                  #                         ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011035,000832:                                                                                                  #                         DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011036,000833:                                                                                                  #                         ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011037,000834: 
011038,000835:                                                                                                  #        2.      IF AVERAGE G IS ON:
011039,000836:                                                                                                  #                        CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
011040,000837:                                                                                                  #                         FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
011041,000838:                                                                                                  #                         OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011042,000839:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011043,000840:                                                                                                  #                         IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011044,000841:                                                                                                  #                         RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011045,000842: 
011046,000843:                                                                                                  #  ADDENDUM:     HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
011047,000844:                                                                                                  #                ABOVE REMARKS.
011048,000845: 
011049,000846: 43,2562           02076        V82PERF            TC       TESTXACT                              
011050,000847: 
011051,000848: 43,2563           35063                           CAF      PRIO7                                 
011052,000849: 43,2564           05210                           TC       PRIOCHNG                              
011053,000850: 43,2565           04701                           TC       POSTJUMP                              
011054,000851: 43,2566           46332                           CADR     V82CALL                               #  ***** V82CALL MUST NOT BE A FINDVAC JOB.
011055,000852: 
011056,000853:                                                                                                  #  VB83PERF      VERB 83         DESCRIPTION
011057,000854:                                                                                                  #        REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011058,000855: 
011059,000856:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011060,000857:                                                                                                  #        2.      SCHEDULE V83CALL WITH PRIORITY 10.
011061,000858:                                                                                                  #                A.      DISPLAY
011062,000859:                                                                                                  #                        R1      RANGE
011063,000860:                                                                                                  #                        R2      RANGE RATE
011064,000861:                                                                                                  #                        R3      THETA
011065,000862: 
011066,000863: 43,2567           02076        V83PERF            TC       TESTXACT                              
011067,000864: 43,2570           00004                           INHINT                                         
011068,000865: 43,2571           40105                           CS       FLAGWRD9                              #  SET R31 FLAG-BIT 4 FLAGWRD9
011069,000866: 43,2572           75014                           MASK     R31FLBIT                              
011070,000867: 43,2573           26105                           ADS      FLAGWRD9                              
011071,000868: 43,2574           35061                           CAF      PRIO5                                 
011072,000869: 43,2575           05134                           TC       NOVAC                                 
011073,000870: 43,2576  E4,1770                                  EBANK=   SUBEXIT                               
011074,000871: 43,2576           02000 62064                     2CADR    R31CALL                               
011075,000872: 
011076,000873: 43,2600           05217                           TC       ENDOFJOB                              
011077,000874: 

Page 256

011079,000876: 43,2601           02076        V85PERF            TC       TESTXACT                              
011080,000877: 43,2602           00004                           INHINT                                         
011081,000878: 43,2603           45014                           CS       R31FLBIT                              #  RESET R31 FLAG TO INDICATE R34
011082,000879: 43,2604           70105                           MASK     FLAGWRD9                              
011083,000880: 43,2605           54105                           TS       FLAGWRD9                              
011084,000881: 43,2606           02574                           TC       V83PERF    +5                         

Page 257

011086,000883:                                                                                                  #        GOTOR21         VERB 57
011087,000884:                                                                                                  #        GOTOR23-        VERB 54         DESCRIPTION
011088,000885:                                                                                                  #  SET UP MARKING FOR R22 (REND TRACK DATA PROC)
011089,000886:                                                                                                  #  1.    SET EXT VERB DISPLAY BUSY FLAG
011090,000887:                                                                                                  #  2.    IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
011091,000888:                                                                                                  #        SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
011092,000889:                                                                                                  #  3.    RELEASE EXT VERB DISPLAY SYSTEM
011093,000890: 
011094,000891: 43,2607           05560        GOTOR21            TC       DOWNFLAG                              #  CLEAR R23FLG
011095,000892: 43,2610           00025                           ADRES    R23FLG                                #  BIT 9 FLAG 1
011096,000893: 43,2611           02614                           TC       +3                                    
011097,000894: 43,2612           05546        GOTOR23            TC       UPFLAG                                #  SET R23FLG
011098,000895: 43,2613           00025                           ADRES    R23FLG                                #  BIT 9 FLAG 1
011099,000896: 43,2614           02076                           TC       TESTXACT                              
011100,000897: 43,2615           30074                           CA       FLAGWRD0                              #  VB 57 UNNACCEPTABLE UNLESS BOTH
011101,000898: 43,2616           75011                           MASK     RNDVZBIT                              #        RENDEZVOUS AND TRACK FLAGS ON
011102,000899: 43,2617           00006                           EXTEND                                         
011103,000900: 43,2620           12643                           BZF      R22ALARM                              
011104,000901: 
011105,000902: 43,2621           30075                           CA       FLAGWRD1                              
011106,000903: 43,2622           75013                           MASK     TRACKBIT                              
011107,000904: 43,2623           00006                           EXTEND                                         
011108,000905: 43,2624           12643                           BZF      R22ALARM                              
011109,000906: 
011110,000907: 43,2625           30075                           CA       FLAGWRD1                              #  TEST R23FLG
011111,000908: 43,2626           75007                           MASK     R23BIT                                
011112,000909: 43,2627           00006                           EXTEND                                         
011113,000910: 43,2630           12636                           BZF      REGR21                                #  R21
011114,000911: 43,2631           35070                           CAF      PRIO16                                
011115,000912: 43,2632           05134                           TC       NOVAC                                 
011116,000913: 43,2633  E7,1725                                  EBANK=   MRKBUF1                               
011117,000914: 43,2633           02470 76067                     2CADR    R23CSM                                
011118,000915: 
011119,000916: 43,2635           05217                           TC       ENDOFJOB                              
011120,000917: 43,2636           35070        REGR21             CAF      PRIO16                                
011121,000918: 43,2637           05134                           TC       NOVAC                                 
011122,000919: 43,2640  E7,1725                                  EBANK=   MRKBUF1                               
011123,000920: 43,2640           02466 76067                     2CADR    R21CSM                                
011124,000921: 
011125,000922: 43,2642           05217                           TC       ENDOFJOB                              
011126,000923: 43,2643           05650        R22ALARM           TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
011127,000924: 43,2644           00406                           OCT      00406                                 #        NOR TRACK FLAG WERE ON.
011128,000925: 43,2645           05534                           TC       ENDEXT                                
011129,000926: 

Page 258

011131,000928:                                                                                                  #  VERB 86       DESCRIPTION
011132,000929:                                                                                                  #        V86 IS TO R23 AS MARK REJECT IS TO R21
011133,000930:                                                                                                  #        V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
011134,000931: 
011135,000932: 43,2646  E7,1725                                  EBANK=   MRKBUF1                               
011136,000933: 43,2646           35060        V86PERF            CAF      EBANK7                                #  BACKUP MARK REJECT (R23)
011137,000934: 43,2647           56003                           XCH      EBANK                                 
011138,000935: 43,2650           37716                           CA       NEGONE                                
011139,000936: 43,2651           55725                           TS       MRKBUF1                               
011140,000937: 43,2652           02121                           TC       GOPIN                                 
011141,000938: 

Page 259

011143,000940:                                                                                                  #  TRACKTRM      VERB 56         DESCRIPTION
011144,000941:                                                                                                  #        TERMINATE TRACKING (P20)
011145,000942:                                                                                                  #        1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011146,000943:                                                                                                  #        2.      REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011147,000944:                                                                                                  #        3.      REQUIRE R22 RUNNING OR GO TO PINBRNCH.
011148,000945:                                                                                                  #        4.      IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
011149,000946:                                                                                                  #        3.      KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
011150,000947:                                                                                                  #        4.      GO TO ENEMA (SOFTWARE RESTART).
011151,000948:                                                                                                  #        REFERENCE
011152,000949:                                                                                                  #                P20     RENDEZVOUS      NAVIGATION.
011153,000950:                                                                                                  #                R21     RENDEZVOUS      TRACKING SIGHTING MARK.
011154,000951:                                                                                                  #                R22     RENDEZVOUS      TRACKING DATA PROCESSING.
011155,000952: 
011156,000953: 43,2653           35011        TRACKTRM           CA       RNDVZBIT                              #  IS REND FLAG ON
011157,000954: 43,2654           70074                           MASK     FLAGWRD0                              
011158,000955: 43,2655           00006                           EXTEND                                         
011159,000956: 43,2656           12121                           BZF      GOPIN                                 #  NO
011160,000957: 
011161,000958: 43,2657           05560                           TC       DOWNFLAG                              
011162,000959: 43,2660           00010                           ADRES    RNDVZFLG                              
011163,000960: 
011164,000961: 43,2661           35013                           CA       TRACKBIT                              #  IS TRACK FLAG ON
011165,000962: 43,2662           70075                           MASK     FLAGWRD1                              
011166,000963: 43,2663           00006                           EXTEND                                         
011167,000964: 43,2664           12121                           BZF      GOPIN                                 #  NO
011168,000965: 
011169,000966: 43,2665           05560                           TC       DOWNFLAG                              
011170,000967: 43,2666           00031                           ADRES    TRACKFLG                              
011171,000968: 
011172,000969: 43,2667           05560                           TC       DOWNFLAG                              
011173,000970: 43,2670           00027                           ADRES    UPDATFLG                              
011174,000971: 
011175,000972: 43,2671           05560                           TC       DOWNFLAG                              
011176,000973: 43,2672           00007                           ADRES    IMUSE                                 
011177,000974: 
011178,000975: 43,2673           35057                           CAF      EBANK6                                
011179,000976: 43,2674           54003                           TS       EBANK                                 
011180,000977: 
011181,000978: 43,2675           00004                           INHINT                                         
011182,000979: 43,2676           04526                           TC       STOPRATE                              
011183,000980: 
011184,000981: 43,2677           37716                           CAF      NEGONE                                
011185,000982: 43,2700           55303                           TS       OPTIND                                
011186,000983: 
011187,000984: 43,2701           06006                           TC       INTPRET                               
011188,000985: 43,2702           77624                           CALL                                           
011189,000986: 43,2703           27442                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
011190,000987: 43,2704           77776                           EXIT                                           
011191,000988: 
011192,000989: 43,2705           05372                           TC       2PHSCHNG                              

Page 260

011194,000991: 43,2706           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
011195,000992: 43,2707           00001                           OCT      1                                     #  ALSO KILL GROUP 1
011196,000993: 
011197,000994: 43,2710           00004        CLEANOUT           INHINT                                         
011198,000995: 43,2711           04701                           TC       POSTJUMP                              
011199,000996: 43,2712           12651                           CADR     ENEMA                                 #  CAUSE RESTART
011200,000997: 
011201,000998:                                                                                                  #  LEMVEC        VERB 80         DESCRIPTION
011202,000999:                                                                                                  #        UPDATE LEM STATE VECTOR
011203,001000:                                                                                                  #                RESET VEHUPFLG TO 0
011204,001001: 
011205,001002: 43,2713           05560        LEMVEC             TC       DOWNFLAG                              
011206,001003: 43,2714           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
011207,001004: 
011208,001005: 43,2715           12121                           TCF      GOPIN                                 
011209,001006: 
011210,001007:                                                                                                  #  CSMVEC        VERB 81         DESCRIPTION
011211,001008:                                                                                                  #        UPDATE CSM STATE VECTOR
011212,001009:                                                                                                  #                SET VEHUPFLG TO 1
011213,001010: 
011214,001011: 43,2716           05546        CSMVEC             TC       UPFLAG                                
011215,001012: 43,2717           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG UP INDICATES CM.
011216,001013: 
011217,001014: 43,2720           12121                           TCF      GOPIN                                 
011218,001015: 
011219,001016:                                                                                                  #  DNEDUMP       VERB 74         DESCRIPTION
011220,001017:                                                                                                  #        INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011221,001018: 
011222,001019:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011223,001020:                                                                                                  #        2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011224,001021:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY.
011225,001022: 
011226,001023: 43,2721     0010                                  EBANK=   10                                    
011227,001024: 43,2721           32724        DNEDUMP            CAF      LDNDUMPI                              
011228,001025: 43,2722           54335                           TS       DNTMGOTO                              
011229,001026: 43,2723           02121                           TC       GOPIN                                 
011230,001027: 
011231,001028: 43,2724  43,2721               V74                EQUALS   DNEDUMP                               
011232,001029: 43,2724           03722        LDNDUMPI           REMADR   DNDUMPI                               
011233,001030: 
011234,001031:                                                                                                  #  LFTFLGON      VERB 75         DESCRIPTION
011235,001032:                                                                                                  #        SET LIFT-OFF FLAG
011236,001033:                                                                                                  #        1.      SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011237,001034:                                                                                                  #        2.      RETURN VIA PINBRNCH
011238,001035: 
011239,001036: 43,2725           05546        LFTFLGON           TC       UPFLAG                                #  VB 75 - SET LIFTOFF FLAG BIT
011240,001037: 43,2726           00125                           ADRES    GRRBKFLG                              #  BIT 5 FLAG 5
011241,001038: 43,2727           02121                           TC       GOPIN                                 
011242,001039: 

Page 261

011244,001041: 43,2730           31011        CHKPOOH            CA       MODREG                                
011245,001042: 43,2731           00006                           EXTEND                                         
011246,001043: 43,2732           16711                           BZF      TCQ                                   
011247,001044: 43,2733           12120                           TCF      ALM/END                               
011248,001045: 
011249,001046: 43,2734           00006        EXDAPOFF           EXTEND                                         
011250,001047: 43,2735           32744                           DCA      IDLECADR                              #  SET T5 TO IDLE.
011251,001048: 43,2736           53313                           DXCH     T5LOC                                 
011252,001049: 43,2737           44105                           CS       OCT60000                              
011253,001050: 43,2740           70102                           MASK     FLAGWRD6                              #  RESET DAPBITS 1 AND 2.
011254,001051: 43,2741           54102                           TS       FLAGWRD6                              
011255,001052: 43,2742           00002                           TC       Q                                     
011256,001053: 
011257,001054: 43,2743  E6,1423                                  EBANK=   PACTOFF                               
011258,001055: 43,2743           03153 12106  IDLECADR           2CADR    T5IDLOC                               
011259,001056: 

Page 262

011261,001058:                                                                                                  #  VERB 89       DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011262,001059:                                                                                                  #  
011263,001060:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED. CALCULATES AND
011264,001061:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011265,001062:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011266,001063: 
011267,001064:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
011268,001065:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
011269,001066: 
011270,001067:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH).  IF IMU ON AND ITS
011271,001068:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
011272,001069: 
011273,001070:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011274,001071:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
011275,001072:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
011276,001073:                                                                                                  #  AFTER KEYING IN PROCEED.
011277,001074: 
011278,001075:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
011279,001076:                                                                                                  #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
011280,001077: 
011281,001078:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011282,001079: 
011283,001080:                                                                                                  #        R63COMP JOB:
011284,001081: 
011285,001082:                                                                                                  #                UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
011286,001083: 
011287,001084:                                                                                                  #                CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011288,001085: 
011289,001086:                                                                                                  #                DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011290,001087:                                                                                                  #                ARE STORED FOR LATER R60CSM CALL.
011291,001088: 
011292,001089:                                                                                                  #  6.  FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011293,001090: 
011294,001091:                                                                                                  #  7.  RECYCLE-  RETURN TO STEP 5.
011295,001092:                                                                                                  #      TERMINATE-  EXIT R63 ROUTINE
011296,001093:                                                                                                  #      PROCEED-  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011297,001094: 
011298,001095: 43,2745           02730        V89PERF            TC       CHKPOOH                               #  DEMAND P00
011299,001096: 43,2746           02076                           TC       TESTXACT                              
011300,001097: 43,2747           00004                           INHINT                                         
011301,001098: 43,2750           35003                           CAF      PRIO10                                
011302,001099: 43,2751           05147                           TC       FINDVAC                               
011303,001100: 43,2752  E4,1715                                  EBANK=   P21TIME                               
011304,001101: 43,2752           03712 70064                     2CADR    V89CALL                               
011305,001102: 
011306,001103: 43,2754           15217                           TCF      ENDOFJOB                              
011307,001104: 
011308,001105: 43,2755           05560        WMATRXNG           TC       DOWNFLAG                              #  RESET RENDWFLG
011309,001106: 43,2756           00131                           ADRES    RENDWFLG                              

Page 263

011311,001108: 
011312,001109: 43,2757           05560                           TC       DOWNFLAG                              #  RESET ORBWFLAG
011313,001110: 43,2760           00066                           ADRES    ORBWFLAG                              
011314,001111: 43,2761           02121                           TC       GOPIN                                 
011315,001112: 
011316,001113: 43,2762  43,2762               GOSHOSUM           EQUALS   SHOWSUM                               
011317,001114: 
011318,001115: 43,2762           02730        SHOWSUM            TC       CHKPOOH                               
011319,001116: 43,2763           02076                           TC       TESTXACT                              #  *
011320,001117: 43,2764           35017                           CAF      S+1                                   #  *
011321,001118: 43,2765           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
011322,001119: 43,2766           35021                           CAF      S+ZERO                                #  *
011323,001120: 43,2767           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
011324,001121: 43,2770           33247                           CA       SELFADRS                              #  *
011325,001122: 43,2771           55361                           TS       SELFRET                               #  *
011326,001123: 43,2772           03524                           TC       STSHOSUM                              #  * ENTER ROPECHK
011327,001124: 
011328,001125: 43,2773           23372        SDISPLAY           LXCH     SKEEP2                                #  * BNK NO FOR DSP
011329,001126: 43,2774           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
011330,001127: 43,2775           33246        NOKILL             CA       ADRS1                                 #  *
011331,001128: 43,2776           54156                           TS       MPAC       +2                         #  *
011332,001129: 43,2777           33010                           CA       VNCON                                 #  * 0501
011333,001130: 43,3000           04662                           TC       BANKCALL                              #  *
011334,001131: 43,3001           20561                           CADR     GOXDSPF                               #  *
011335,001132: 43,3002           03005                           TC       +3                                    #  *
011336,001133: 43,3003           03635                           TC       NXTBNK                                #  *
011337,001134: 43,3004           02775                           TC       NOKILL                                #  *
011338,001135: 43,3005           33247                           CA       SELFADRS                              
011339,001136: 43,3006           55371                           TS       SKEEP1                                
011340,001137: 
011341,001138: 43,3007           05534                           TC       ENDEXT                                #  *
011342,001139: 
011343,001140: 43,3010           01201        VNCON              VN       501                                   #  *
011344,001141: 
011345,001142: 43,3011           31376        ENDSUMS            CA       SKEEP6                                #  *
011346,001143: 43,3012           00006                           EXTEND                                         #  *
011347,001144: 43,3013           13340                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
011348,001145: 43,3014           03524                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
011349,001146: 
011350,001147: 
011351,001148:                                                                                                  #  VB 76   SET PREFERRED ATTITUDE FLAG - DRIVE TO PREFERRED.
011352,001149: 
011353,001150: 43,3015           05546        SETPRFLG           TC       UPFLAG                                
011354,001151: 43,3016           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011355,001152: 43,3017           02121                           TC       GOPIN                                 
011356,001153: 
011357,001154:                                                                                                  #  VB 77  RESET PREFERRED ATTITUDE FLAG - DRIVE TO +X-AXIS ATT.
011358,001155: 
011359,001156: 43,3020           05560        RESETPRF           TC       DOWNFLAG                              
011360,001157: 43,3021           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011361,001158: 43,3022           02121                           TC       GOPIN                                 
011362,001159: 

Page 264

011364,001161:                                                                                                  #  VB 87   SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
011365,001162: 
011366,001163: 43,3023           06006        SETVHFLG           TC       INTPRET                               
011367,001164: 43,3024           77414                           SET      EXIT                                  
011368,001165: 43,3025           04466                                    VHFRFLAG                              
011369,001166: 43,3026           02121                           TC       GOPIN                                 
011370,001167: 
011371,001168:                                                                                                  #  VB 88   RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
011372,001169: 
011373,001170: 43,3027           06006        RESETVHF           TC       INTPRET                               
011374,001171: 43,3030           77414                           CLEAR    EXIT                                  
011375,001172: 43,3031           04666                                    VHFRFLAG                              
011376,001173: 43,3032           05631                           TC       TRFAILOF                              #  TRACKER FAIL LIGHT
011377,001174: 
011378,001175: 43,3033           02121                           TC       GOPIN                                 
011379,001176: 
011380,001177:                                                                                                  #  VERB 66.      VEHICLES ARE ATTACHED.- MOVE THIS VEHICLE STATE VECTOR TO
011381,001178:                                                                                                  #                OTHER VEHICLE STATE VECTOR.
011382,001179: 
011383,001180:                                                                                                  #  USE SUBROUTINE GENTRAN.
011384,001181: 
011385,001182: 43,3034  E3,1554                                  EBANK=   RRECTHIS                              
011386,001183: 43,3034           35003        ATTACHED           CAF      PRIO10                                
011387,001184: 43,3035           05147                           TC       FINDVAC                               
011388,001185: 43,3036  E3,1554                                  EBANK=   RRECTHIS                              
011389,001186: 43,3036           03041 66103                     2CADR    ATTACHIT                              
011390,001187: 
011391,001188: 43,3040           05217                           TC       ENDOFJOB                              
011392,001189: 
011393,001190: 43,3041           06006        ATTACHIT           TC       INTPRET                               
011394,001191: 43,3042           77624                           CALL                                           
011395,001192: 43,3043           27442                                    INTSTALL                              
011396,001193: 43,3044           43014                           SET      BON                                   
011397,001194: 43,3045           04064                                    MOONOTH                               
011398,001195: 43,3046           04303                                    MOONTHIS                              
011399,001196: 43,3047           67052                                    +3                                    
011400,001197: 43,3050           77614                           CLEAR                                          
011401,001198: 43,3051           04264                                    MOONOTH                               
011402,001199: 43,3052           77776                           EXIT                                           
011403,001200: 43,3053           33100                           CAF      OCT51                                 
011404,001201: 43,3054           05606                           TC       GENTRAN                               
011405,001202: 43,3055           01554                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
011406,001203: 43,3056           01626                           ADRES    RRECTOTH                              
011407,001204: 
011408,001205: 43,3057           00003        TACHEXIT           RELINT                                         
011409,001206: 43,3060           06006                           TC       INTPRET                               
011410,001207: 43,3061           77624                           CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
011411,001208: 43,3062           26731                                    PTOACSM                               

Page 265

011413,001210: 43,3063           45154                           LXA,2    CALL                                  
011414,001211: 43,3064           02150                                    PBODY                                 
011415,001212: 43,3065           20237                                    SVDWN1                                
011416,001213: 43,3066           77624                           CALL                                           
011417,001214: 43,3067           20263                                    SVDWN2                                
011418,001215: 43,3070           77776                           EXIT                                           
011419,001216: 
011420,001217: 43,3071           33101                           CAF      TCPINAD                               
011421,001218: 43,3072           50120                           INDEX    FIXLOC                                
011422,001219: 43,3073           54052                           TS       QPRET                                 
011423,001220: 43,3074           04701                           TC       POSTJUMP                              
011424,001221: 43,3075           27457                           CADR     INTWAKE                               
011425,001222: 
011426,001223: 43,3076           77634        TCPIN              RTB                                            
011427,001224: 43,3077           21272                                    PINBRNCH                              
011428,001225: 
011429,001226: 43,3100           00051        OCT51              OCT      51                                    
011430,001227: 43,3101           67076        TCPINAD            CADR     TCPIN                                 
011431,001228: 
011432,001229:                                                                                                  #  VERB 47  MOVE LM STATE VECTOR INTO CM STATE VECTOR.
011433,001230: 
011434,001231: 43,3102           35003        LMTOCMSV           CAF      PRIO10                                
011435,001232: 43,3103           05147                           TC       FINDVAC                               
011436,001233: 43,3104  E3,1554                                  EBANK=   RRECTHIS                              
011437,001234: 43,3104           03107 66103                     2CADR    LMTOCM                                
011438,001235: 
011439,001236: 43,3106           05217                           TC       ENDOFJOB                              
011440,001237: 
011441,001238: 43,3107           06006        LMTOCM             TC       INTPRET                               
011442,001239: 43,3110           77624                           CALL                                           
011443,001240: 43,3111           27442                                    INTSTALL                              
011444,001241: 43,3112           43014                           SET      BON                                   
011445,001242: 43,3113           04063                                    MOONTHIS                              
011446,001243: 43,3114           04304                                    MOONOTH                               
011447,001244: 43,3115           67120                                    +3                                    
011448,001245: 43,3116           77614                           CLEAR                                          
011449,001246: 43,3117           04263                                    MOONTHIS                              
011450,001247: 43,3120           77776                           EXIT                                           
011451,001248: 
011452,001249: 43,3121           33100                           CAF      OCT51                                 
011453,001250: 43,3122           05606                           TC       GENTRAN                               
011454,001251: 43,3123           01626                           ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
011455,001252: 43,3124           01554                           ADRES    RRECTHIS                              
011456,001253: 
011457,001254: 43,3125           13057                           TCF      TACHEXIT                              
011458,001255: 
011459,001256:                                                                                                  #  VERB 94   DO R64 VIA ENEMA TO PICK UP IN P23.
011460,001257: 
011461,001258: 43,3126           35005        VERB94             CAF      V94FLBIT                              
011462,001259: 43,3127           70105                           MASK     FLAGWRD9                              #  IS V94FLAG SET

Page 266

011464,001261: 43,3130           00006                           EXTEND                                         
011465,001262: 43,3131           12120                           BZF      ALM/END                               #  NO - OPERATOR ERROR
011466,001263: 
011467,001264: 43,3132           05560                           TC       DOWNFLAG                              
011468,001265: 43,3133           00213                           ADRES    V94FLAG                               
011469,001266: 
011470,001267: 43,3134           05364                           TC       CHECKMM                               #  IS IT P23
011471,001268: 43,3135           00027                           MM       23         B-14                       
011472,001269: 43,3136           02120                           TC       ALM/END                               #  NO - OPERATOR ERROR
011473,001270: 43,3137           05412                           TC       PHASCHNG                              
011474,001271: 43,3140           00112                           OCT      112                                   #  SET GROUP 2 TO DO R64
011475,001272: 
011476,001273: 43,3141           02710                           TC       CLEANOUT                              #  CAUSE RESTART
011477,001274: 
011478,001275:                                                                                                  #  V90PERF       VERB 90         DESCRIPTION
011479,001276:                                                                                                  #        REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011480,001277: 
011481,001278:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011482,001279:                                                                                                  #        2.      SCHEDULE R36 CALL WITH PRIORITY 10
011483,001280:                                                                                                  #                A.      DISPLAY
011484,001281:                                                                                                  #                        TIME OF EVENT - HOURS, MINUTES, SECONDS
011485,001282:                                                                                                  #                        Y       OUT-OF-PLANE POSITION - NAUTICAL MILES
011486,001283:                                                                                                  #                        YDOT    OUT-OF-PLANE VELOCITY - FEET/SECOND
011487,001284:                                                                                                  #                        PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
011488,001285:                                                                                                  #                                DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011489,001286: 
011490,001287: 43,3142           02076        V90PERF            TC       TESTXACT                              
011491,001288: 43,3143           35063                           CAF      PRIO7                                 #  R36.V90
011492,001289: 43,3144           05147                           TC       FINDVAC                               
011493,001290: 43,3145  E4,1726                                  EBANK=   RPASS36                               
011494,001291: 43,3145           02164 40104                     2CADR    R36                                   
011495,001292: 
011496,001293: 43,3147           15217                           TCF      ENDOFJOB                              
011497,001294: 
011498,001295:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
011499,001296: 
011500,001297: 43,3150           05546        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011501,001298: 43,3151           00221                           ADRES    QUITFLAG                              #        AT NEXT TIMESTEP
011502,001299: 
011503,001300: 43,3152           05546                           TC       UPFLAG                                
011504,001301: 43,3153           00204                           ADRES    V96ONFLG                              
011505,001302: 43,3154           35021                           CAF      ZERO                                  
011506,001303: 43,3155           04701                           TC       POSTJUMP                              
011507,001304: 43,3156           10011                           CADR     V37                                   #  GO TO POO
011508,001305: 
011509,001306: 43,3157  E5,1751                                  EBANK=   LANDMARK                              
011510,001307: 43,3157           05364        V52                TC       CHECKMM                               #  IS P22 OPERATING
011511,001308: 43,3160           00026                           MM       22         B-14                       
011512,001309: 43,3161           02120                           TC       ALM/END                               #  NO
011513,001310: 43,3162           33200                           CAF      LANDBANK                              
011514,001311: 43,3163           54003                           TS       EBANK                                 
011515,001312: 

Page 267

011517,001314: 43,3164           45063                           CS       PRIO7                                 #  YES   SET BITS 12,11,10 OF LANDMARK =
011518,001315: 43,3165           71751                           MASK     LANDMARK                              #        BITS 14,13,12 OF MARKSTAT AFTER
011519,001316: 43,3166           55751                           TS       LANDMARK                              #        SUBT. THEM FROM 5 TO GET OFFSET
011520,001317: 43,3167           31330                           CA       MARKSTAT                              #        MARK NO.
011521,001318: 43,3170           54021                           TS       SR                                    
011522,001319: 43,3171           30021                           CA       SR                                    
011523,001320: 43,3172           30021                           CA       SR                                    
011524,001321: 43,3173           75063                           MASK     PRIO7                                 
011525,001322: 43,3174           40000                           CS       A                                     
011526,001323: 43,3175           65061                           AD       PRIO5                                 
011527,001324: 43,3176           27751                           ADS      LANDMARK                              
011528,001325: 43,3177           02121                           TC       GOPIN                                 
011529,001326: 43,3200           02751        LANDBANK           ECADR    LANDMARK                              
011530,001327: 
011531,001328:                                                                                                  #  VERB 67  ASTRONAUT DISPLAY OF W MATRIX
011532,001329: 
011533,001330: 43,3201           02076        V67                TC       TESTXACT                              
011534,001331: 43,3202           35061                           CAF      PRIO5                                 
011535,001332: 43,3203           05147                           TC       FINDVAC                               
011536,001333: 43,3204  E5,1400                                  EBANK=   W                                     
011537,001334: 43,3204           03624 60105                     2CADR    V67CALL                               
011538,001335: 
011539,001336: 43,3206           05217                           TC       ENDOFJOB                              
011540,001337: 
011541,001338:                                                                                                  #  VB 44. SET SURFACE FLAG.
011542,001339: 
011543,001340: 43,3207           05546        SETSURF            TC       UPFLAG                                
011544,001341: 43,3210           00177                           ADRES    SURFFLAG                              
011545,001342: 43,3211           12121                           TCF      GOPIN                                 
011546,001343: 
011547,001344:                                                                                                  #  VB 45. RESET SURFACE FLAG.
011548,001345: 
011549,001346: 43,3212           05560        RESTSRF            TC       DOWNFLAG                              
011550,001347: 43,3213           00177                           ADRES    SURFFLAG                              
011551,001348: 43,3214           12121                           TCF      GOPIN                                 

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