Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

009986,000002:                                                                                                 #  Copyright:     Public domain.
009987,000003:                                                                                                 #  Filename:      EXTENDED_VERBS.agc
009988,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
009989,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
009990,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
009991,000007:                                                                                                 #  Assembler:     yaYUL
009992,000008:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
009993,000009:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
009994,000010:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Colossus237/
009995,000011:                                                                                                 #  Mod history:   2011-01-15 JL   Adapted from corresponding Colossus 249 file.
009996,000012: 
009997,000013:                                                                                                 # # Page 229
009998,000014: 07,2440                                          BANK     7                                     
009999,000015: 43,2000                                          SETLOC   EXTVERBS                              
010000,000016: 43,2000                                          BANK                                           
010001,000017: 
010002,000018: 43,2000  0002757                                 EBANK=   OGC                                   
010003,000019: 
010004,000020: 43,2000                                          COUNT*   $$/EXTVB                              
010005,000021:                                                                                                 #  FAN-OUT
010006,000022: 
010007,000023: 43,2000           50154        GOEXTVB           INDEX    MPAC                                  #  VERB-40 IS IN MPAC
010008,000024: 43,2001           02002                          TC       LST2FAN                               #  FAN AS BEFORE.
010009,000025: 
010010,000026: 43,2002           02130        LST2FAN           TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY).
010011,000027: 43,2003           02154                          TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010012,000028:                                                                                                 #                                 91 ONLY)
010013,000029: 43,2004           02244                          TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
010014,000030: 43,2005           02416                          TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
010015,000031: 43,2006           03202                          TC       SETSURF                               #  VB44 SET SURFACE FLAG
010016,000032: 43,2007           03205                          TC       RESTSRF                               #  VB45 RESET SURFACE FLAG
010017,000033: 43,2010           02522                          TC       STABLISH                              #  VB46 ESTABLISH G+C CONTROL.
010018,000034: 43,2011           03100                          TC       LMTOCMSV                              #  VB47 MOVE LM STATE VECTOR INTO CM
010019,000035: 43,2012           02541                          TC       DAPDISP                               #  VB48 LOAD A/P DATA.
010020,000036: 43,2013           12533                          TCF      CREWMANU                              #  VB 49  START AUTOMATIC ATTITUDE MANEUVER
010021,000037: 43,2014           02301                          TC       GOLOADLV                              #  VB50 PLEASE PERFORM
010022,000038: 43,2015           02301                          TC       GOLOADLV                              #  VB51 PLEASE MARK
010023,000039: 43,2016           03153                          TC       V52                                   #  VB52 SET OFFSET NO. FOR P22
010024,000040: 43,2017           02301                          TC       GOLOADLV                              #  VB 53 PLEASE PERFORM COAS MARK
010025,000041: 43,2020           02601                          TC       GOTOR23                               #  V54 START R23 (R21-BACKUP)
010026,000042: 43,2021           02332                          TC       ALINTIME                              #  VB55 ALIGN TIME
010027,000043: 43,2022           02642                          TC       TRACKTRM                              #  VB56 TERMINATE TRACKING (P20 +P25)
010028,000044: 43,2023           02576                          TC       GOTOR21                               #  V57 START R21 REND TRACK SIGHT MARK ROUT
010029,000045: 43,2024           02506                          TC       ENATMA                                #  VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
010030,000046: 43,2025           02301                          TC       GOLOADLV                              #  VB59 PLEASE CALIBRATE
010031,000047: 43,2026           02307                          TC       V60                                   #  VB60 SET CPHIX (N17) EQUAL TO CDU
010032,000048: 43,2027           02315                          TC       V61                                   #  VB61 SELECT MODE I
010033,000049: 43,2030           02320                          TC       V62                                   #  VB62 SELECT MODE II, ERROR WRT N22
010034,000050: 43,2031           02325                          TC       V63                                   #  VB63 SELECT MODE III, ERROR WRT N17
010035,000051: 43,2032           02476                          TC       VB64                                  #  VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
010036,000052: 43,2033           02373                          TC       CKOPTVB                               #  V 65 E OPTICAL VERIFICATION FOR PRELAUNC
010037,000053: 43,2034           03032                          TC       ATTACHED                              #  VB 66 ATTACHED. MOVE THIS TO OTHER STATE
010038,000054: 43,2035           03174                          TC       V67                                   #  VB67 W MATRIX MONITOR
010039,000055: 43,2036           02511                          TC       STROKON                               #  VB68 CSM STROKE TEST ON.
010040,000056: 43,2037           02037        VERB69            TC       VERB69                                #  VB 69 CAUSE RESTART
010041,000057: 43,2040           03721                          TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
010042,000058: 43,2041           03723                          TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010043,000059: 43,2042           03725                          TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010044,000060: 43,2043           03727                          TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
010045,000061: 43,2044           02710                          TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010046,000062:                                                                                                 #           FOR ERASABLE DUMP.
010047,000063: 43,2045           02714                          TC       LFTFLGON                              #  VB75 SET LIFTOFF FLAG.
010048,000064:                                                                                                 # # Page 230
010049,000065: 43,2046           03013                          TC       SETPRFLG                              #  VB76 SET PREFERRED ATTITUDE FLAG
010050,000066: 43,2047           03016                          TC       RESETPRF                              #  VB77 RESET PREFERRED ATT. FLAG
010051,000067: 43,2050           02404                          TC       CHAZFOGC                              #  CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
010052,000068: 43,2051           03004                          TC       CALLR35                               #  VB79 REQU LUNAR LNDMRK SELECTION (R35)
010053,000069: 43,2052           02702                          TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
010054,000070: 43,2053           02705                          TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
010055,000071: 43,2054           02551                          TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010056,000072: 43,2055           02556                          TC       V83PERF                               #  VB83 RANGE, RANGE RATE, +X AXIS  (R31)
010057,000073: 43,2056           02124                          TC       ALM/END                               #  V84 SPARE
010058,000074: 43,2057           02570                          TC       V85PERF                               #  VB85 RANGE, RANGE RATE, SLOS      (R34)
010059,000075: 43,2060           02635                          TC       V86PERF                               #  VB86 BACKUP MARK REJECT
010060,000076: 43,2061           03021                          TC       SETVHFLG                              #  VB87 SET VHF RANGE FLAG
010061,000077: 43,2062           03025                          TC       RESETVHF                              #  VB88 RESET VHF RANGE FLAG
010062,000078: 43,2063           02734                          TC       V89PERF                               #  V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
010063,000079: 43,2064           03140                          TC       V90PERF                               #  VB90-OUT OF PLANE PARAMETERS %R36"
010064,000080: 43,2065           02751                          TC       GOSHOSUM                              #  VB91 TEMP FOR HYBRID AND STG.
010065,000081: 43,2066           02364                          TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST
010066,000082: 43,2067           02744                          TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
010067,000083: 43,2070           03124                          TC       VERB94                                #  VB94 DO R64
010068,000084: 43,2071           02124                          TC       ALM/END                               #  VB95 SPARE
010069,000085: 43,2072           13146                          TCF      VERB96                                #  VB96 SET QUITFLAG TO STOP INTEGRATION
010070,000086: 43,2073           02301                          TC       GOLOADLV                              #  V97 PLEASE PERFORM ENGINE-FAIL (R41)
010071,000087: 43,2074           02124                          TC       ALM/END                               #  VB98 SPARE
010072,000088: 43,2075           02301                          TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
010073,000089: 
010074,000090:                                                                                                 #  END OF EXTENDED VERB FAN
010075,000091: 
010076,000092: 43,2076           11044        TESTXACT          CCS      EXTVBACT                              
010077,000093: 43,2077           02124                          TC       ALM/END                               #  YES. TURN ON OPERATOR ERROR LIGHT
010078,000094: 43,2100           30100                          CA       FLAGWRD4                              #  ARE PRIOS USING DSKY
010079,000095: 43,2101           72127                          MASK     OC24100                               
010080,000096: 43,2102           10000                          CCS      A                                     
010081,000097: 43,2103           02124                          TC       ALM/END                               
010082,000098: 
010083,000099: 43,2104           34112                          CAF      OCT24                                 #  SET BITS 3 AND 5
010084,000100: 43,2105           55044        SETXTACT          TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
010085,000101:                                                                                                 #  SYSTEM BUSY
010086,000102: 
010087,000103: 43,2106           30002                          CA       Q                                     
010088,000104: 43,2107           54155                          TS       MPAC       +1                         
010089,000105: 
010090,000106: 43,2110           34754                          CAF      PRIO5                                 #  ALLOW RELDSP AWAKENED JOB TO FINISH
010091,000107: 43,2111           05103                          TC       PRIOCHNG                              
010092,000108: 43,2112           34371                          CAF      PRIO30                                
010093,000109: 43,2113           05103                          TC       PRIOCHNG                              
010094,000110: 
010095,000111: 43,2114           44711                          CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
010096,000112: 43,2115           04170                          TC       NVSUB                                 
010097,000113: 43,2116           02117                          TC       +1                                    
010098,000114:                                                                                                 # # Page 231
010099,000115: 43,2117           00155                          TC       MPAC       +1                         
010100,000116: 
010101,000117: 43,2120           04400        XACTALM           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT.
010102,000118: 43,2121           05423                          TC       ENDEXT                                #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
010103,000119: 
010104,000120: 43,2122     5423               TERMEXTV          EQUALS   ENDEXT                                
010105,000121: 43,2122     5423               ENDEXTVB          EQUALS   ENDEXT                                
010106,000122: 
010107,000123: 43,2122           34714        XACT0             CAF      ZERO                                  #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
010108,000124: 43,2123           02105                          TC       SETXTACT                              
010109,000125: 
010110,000126: 43,2124           04400        ALM/END           TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
010111,000127: 43,2125           04574        GOPIN             TC       POSTJUMP                              
010112,000128: 43,2126           21176                          CADR     PINBRNCH                              
010113,000129: 
010114,000130: 43,2127           24100        OC24100           OCT      24100                                 
010115,000131: 
010116,000132:                                                                                                 # # Page 232
010117,000133: 
010118,000134:                                                                                                 #            VBZERO       VERB 40            DESCRIPTION
010119,000135:                                                                                                 #                ZERO
010120,000136:                                                                                                 #                1. REQUIRE NOUN 20 (ICDU ANGLES)
010121,000137:                                                                                                 #                2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
010122,000138:                                                                                                 #                3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010123,000139:                                                                                                 #                4. SET EXT VERB DISPLAY ACTIVE FLAG.
010124,000140:                                                                                                 #                5. EXECUTE IMUZERO (ZERO IMU CDU ANGLES).
010125,000141:                                                                                                 #                6. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010126,000142:                                                                                                 #                7. RELEASE EXT. VERB DISPLAY SYSTEM.
010127,000143: 
010128,000144: 43,2130           02142        VBZERO            TC       OP/INERT                              
010129,000145: 43,2131           02133                          TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
010130,000146: 43,2132           02124                          TC       ALM/END                               #  RETURN HERE IF NOUN = OCDU(91)
010131,000147:                                                                                                 #           (NOT IN USE YET)
010132,000148: 
010133,000149: 43,2133           02275        IMUZEROK          TC       CKMODCAD                              #  KEYBOARD REQUEST FOR ISS CDU ZERO
010134,000150: 43,2134           04555                          TC       BANKCALL                              
010135,000151: 43,2135           16516                          CADR     IMUZERO                               
010136,000152: 
010137,000153: 43,2136           04555                          TC       BANKCALL                              #  STALL
010138,000154: 43,2137           17516                          CADR     IMUSTALL                              
010139,000155: 43,2140           02141                          TC       +1                                    
010140,000156: 
010141,000157: 43,2141           02125                          TC       GOPIN                                 
010142,000158: 
010143,000159: 43,2142           44112        OP/INERT          CS       OCT24                                 
010144,000160: 43,2143           61002                          AD       NOUNREG                               
010145,000161: 43,2144           00006                          EXTEND                                         
010146,000162: 43,2145           12474                          BZF      XACT0Q                                #  IF = 20.
010147,000163: 
010148,000164: 43,2146           24002                          INCR     Q                                     
010149,000165: 43,2147           62153                          AD       OPIMDIFF                              #  -71
010150,000166: 43,2150           00006                          EXTEND                                         
010151,000167: 43,2151           12474                          BZF      XACT0Q                                
010152,000168: 
010153,000169: 43,2152           02124                          TC       ALM/END                               #  ILLEGAL.
010154,000170: 
010155,000171: 43,2153           77670        OPIMDIFF          DEC      -71        B-14                       
010156,000172: 
010157,000173:                                                                                                 # # Page 233
010158,000174: 
010159,000175:                                                                                                 #            VBCOARK      VERB 41             DESCRIPTION
010160,000176:                                                                                                 #                COARSE ALIGN IMU OR OPTICS
010161,000177:                                                                                                 #                1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
010162,000178:                                                                                                 #                2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010163,000179:                                                                                                 #                CASE 1     NOUN 20     (ICDU ANGLES)
010164,000180:                                                                                                 #                3. SET EXT VERB DISPLAY ACTIVE FLAG.
010165,000181:                                                                                                 #                4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010166,000182:                                                                                                 #                   RESPONSES
010167,000183:                                                                                                 #                     A. TERMINATE
010168,000184:                                                                                                 #                        1. RELEASE EXT VERB DISPLAY SYSTEM
010169,000185:                                                                                                 #                     B. PROCEED
010170,000186:                                                                                                 #                        1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
010171,000187:                                                                                                 #                            RESPONSES
010172,000188:                                                                                                 #                              A. TERMINATE
010173,000189:                                                                                                 #                                 1. RELEASE EXT VERB DISPLAY SYSTEM.
010174,000190:                                                                                                 #                              B. PROCEED
010175,000191:                                                                                                 #                                 1. EXECUTE ICORK2.
010176,000192:                                                                                                 #                              C. ENTER
010177,000193:                                                                                                 #                                 1. INCREMENT CDU ANGLES
010178,000194:                                                                                                 #                                 2. EXECUTE ICORK2.
010179,000195:                                                                                                 #                     C. ENTER
010180,000196:                                                                                                 #                        1. EXECUTE ICORK2.
010181,000197:                                                                                                 #                ICORK2
010182,000198:                                                                                                 #                   1. RE-DISPLAY VERB 41.
010183,000199:                                                                                                 #                   2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
010184,000200:                                                                                                 #                   3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010185,000201:                                                                                                 #                   4. RELEASE EXT VERB DISPLAY SYSTEM.
010186,000202:                                                                                                 #                CASE 2     NOUN 91     (OCDU ANGLES)
010187,000203:                                                                                                 #                5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
010188,000204:                                                                                                 #                   OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
010189,000205:                                                                                                 #                   AND RELEASE EXT VERB DISPLAY SYSTEM).
010190,000206:                                                                                                 #                6. RESPONSES TO V29,N92.
010191,000207:                                                                                                 #                   A. TERMINATE
010192,000208:                                                                                                 #                      RELEASE EXT VERB DISPLAY SYSTEM
010193,000209:                                                                                                 #                   B. PROCEED OR ENTER
010194,000210:                                                                                                 #                      RE-DISPLAY V41,    SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
010195,000211:                                                                                                 #                      RELEASE EXT VERB DISPLAY SYSTEM.
010196,000212: 
010197,000213: 43,2154           02142        VBCOARK           TC       OP/INERT                              
010198,000214: 43,2155           02157                          TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU(20)
010199,000215: 43,2156           02201                          TC       OPTCOARK                              #  RETURN HERE IF NOUN = OCDU(91)
010200,000216:                                                                                                 #             RETURNS TO L+1 IF NOUN 20 - TO L+2 IF NOUN 91.
010201,000217: 43,2157           02275        IMUCOARK          TC       CKMODCAD                              #  COARSE ALIGN FROM KEYBOARD
010202,000218: 43,2160           02076                          TC       TESTXACT                              
010203,000219: 43,2161           32177                          CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
010204,000220: 43,2162           04555                          TC       BANKCALL                              
010205,000221: 43,2163           20465                          CADR     GOXDSPF                               
010206,000222: 43,2164           05423                          TC       TERMEXTV                              
010207,000223: 43,2165           12166                          TCF      +1                                    
010208,000224:                                                                                                 # # Page 234
010209,000225: 
010210,000226: 43,2166           32200        ICORK2            CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB
010211,000227: 43,2167           04555                          TC       BANKCALL                              
010212,000228: 43,2170           20746                          CADR     EXDSPRET                              
010213,000229: 
010214,000230: 43,2171           04555                          TC       BANKCALL                              #  CALL MODE SWITCHING PROG
010215,000231: 43,2172           16602                          CADR     IMUCOARS                              
010216,000232: 
010217,000233: 43,2173           04555                          TC       BANKCALL                              #  STALL
010218,000234: 43,2174           17516                          CADR     IMUSTALL                              
010219,000235: 43,2175           05423                          TC       ENDEXTVB                              
010220,000236: 43,2176           05423                          TC       ENDEXTVB                              
010221,000237: 
010222,000238: 43,2177           06226        VNLODCDU          VN       2522                                  
010223,000239: 43,2200           12200        IMUCOARV          VN       4100                                  
010224,000240: 
010225,000241:                                                                                                 # # Page 235
010226,000242: 
010227,000243:                                                                                                 #  TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
010228,000244: 
010229,000245: 43,2201           31323        OPTCOARK          CA       OPTCADR                               
010230,000246: 43,2202           02276                          TC       CKMODCAD   +1                         
010231,000247: 43,2203           02076                          TC       TESTXACT                              
010232,000248: 43,2204           34751                          CAF      EBANK5                                
010233,000249: 43,2205           54003                          TS       EBANK                                 
010234,000250: 
010235,000251: 43,2206           11314                          CCS      SWSAMPLE                              #  SEE IF SWITCH AT COMPUTER
010236,000252: 43,2207           02214                          TC       +5                                    #  SWITCH AT COMPUTER
010237,000253: 43,2210           02211                          TC       +1                                    #  NOT ON COMPUTER
010238,000254: 43,2211           04400                          TC       FALTON                                #  TURN ON OPERATOR ERR
010239,000255: 43,2212           05537                          TC       ALARM                                 #  AND ALARM
010240,000256: 43,2213           00115                          OCT      00115                                 
010241,000257: 
010242,000258: 43,2214           11303                          CCS      OPTIND                                #  SEE IF OPTICS AVAILABLE
010243,000259: 43,2215           02223                          TC       OPTC1                                 #  IN USE
010244,000260: 43,2216           02223                          TC       OPTC1                                 #  IN USE
010245,000261: 43,2217           02223                          TC       OPTC1                                 #  IN USE
010246,000262: 
010247,000263: 43,2220           05537                          TC       ALARM                                 #  OPTICS RESERVED (OPTIND=-0)
010248,000264: 43,2221           00117                          OCT      00117                                 
010249,000265: 43,2222           05423                          TC       ENDEXT                                
010250,000266: 
010251,000267: 43,2223           32243        OPTC1             CAF      VNLD0CDU                              #  VERB-NOUN TO LOAD OPTICS CDUS
010252,000268: 43,2224           04555                          TC       BANKCALL                              
010253,000269: 43,2225           20465                          CADR     GOXDSPF                               
010254,000270: 43,2226           05423                          TC       TERMEXTV                              
010255,000271: 43,2227           02230                          TC       +1                                    #  PROCEED
010256,000272: 
010257,000273: 43,2230           31773                          CA       SAC                                   
010258,000274: 43,2231           55161                          TS       DESOPTS                               
010259,000275: 43,2232           31775                          CA       PAC                                   
010260,000276: 43,2233           55160                          TS       DESOPTT                               
010261,000277: 43,2234           32200                          CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
010262,000278: 43,2235           04555                          TC       BANKCALL                              
010263,000279: 43,2236           20746                          CADR     EXDSPRET                              
010264,000280: 
010265,000281: 43,2237           34712                          CAF      ONE                                   
010266,000282: 43,2240           55303                          TS       OPTIND                                #  SET COARS WORKING
010267,000283: 
010268,000284: 43,2241           05423                          TC       ENDEXTVB                              
010269,000285: 43,2242           05423                          TC       ENDEXTVB                              
010270,000286: 
010271,000287: 43,2243           06134        VNLD0CDU          VN       2492                                  
010272,000288: 43,2244  43,2200               OPTCOARV          EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
010273,000289: 
010274,000290:                                                                                                 # # Page 236
010275,000291: 
010276,000292:                                                                                                 #            IMUFINEK      VERB 42            DESCRIPTION
010277,000293:                                                                                                 #                FINE ALIGN IMU
010278,000294:                                                                                                 #                1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
010279,000295:                                                                                                 #                2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
010280,000296:                                                                                                 #                   RESPONSES
010281,000297:                                                                                                 #                   A. TERMINATE
010282,000298:                                                                                                 #                      1. RELEASE EXT VERB DISPLAY SYSTEM.
010283,000299:                                                                                                 #                   B. PROCEED OR ENTER
010284,000300:                                                                                                 #                      1. RE-DISPLAY VERB 42
010285,000301:                                                                                                 #                      2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
010286,000302:                                                                                                 #                      3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
010287,000303:                                                                                                 #                         A. FAILED
010288,000304:                                                                                                 #                            1. RELEASE EXT VERB DISPLAY SYSTEM.
010289,000305:                                                                                                 #                         B. GOOD
010290,000306:                                                                                                 #                            1. EXECUTE IMUPULSE (TORQUE IRIGS).
010291,000307:                                                                                                 #                            2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
010292,000308: 
010293,000309: 43,2244           02275        IMUFINEK          TC       CKMODCAD                              #  FINE ALIGN WITH GYRO TORQUING
010294,000310: 43,2245           02076                          TC       TESTXACT                              
010295,000311: 43,2246           32273                          CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
010296,000312: 43,2247           04555                          TC       BANKCALL                              
010297,000313: 43,2250           20465                          CADR     GOXDSPF                               
010298,000314: 43,2251           05423                          TC       TERMEXTV                              
010299,000315: 43,2252           02253                          TC       +1                                    #  PROCEED WITHOUT A LOAD
010300,000316: 
010301,000317: 43,2253           32274                          CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
010302,000318: 43,2254           04555                          TC       BANKCALL                              
010303,000319: 43,2255           20746                          CADR     EXDSPRET                              
010304,000320: 
010305,000321: 43,2256           04555                          TC       BANKCALL                              #  CALL MODE SWITCH PROG
010306,000322: 43,2257           17012                          CADR     IMUFINE                               
010307,000323: 
010308,000324: 43,2260           04555                          TC       BANKCALL                              #  HIBERNATION
010309,000325: 43,2261           17516                          CADR     IMUSTALL                              
010310,000326: 43,2262           05423                          TC       ENDEXTVB                              
010311,000327: 
010312,000328: 43,2263           32272        FINEK2            CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGISTERS
010313,000329: 43,2264           04555                          TC       BANKCALL                              
010314,000330: 43,2265           17125                          CADR     IMUPULSE                              
010315,000331: 
010316,000332: 43,2266           04555                          TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
010317,000333: 43,2267           17516                          CADR     IMUSTALL                              
010318,000334: 43,2270           05423                          TC       ENDEXTVB                              
010319,000335: 43,2271           05423                          TC       ENDEXTVB                              
010320,000336: 
010321,000337: 43,2272           02757        LGYROBIN          ECADR    OGC                                   
010322,000338: 43,2273           06335        VNLODGYR          VN       2593                                  
010323,000339: 43,2274           12400        IMUFINEV          VN       4200                                  #  FINE ALIGN VERB
010324,000340: 
010325,000341: 43,2275           31322        CKMODCAD          CA       MODECADR                              
010326,000342:                                                                                                 # # Page 237
010327,000343: 43,2276           00006                          EXTEND                                         
010328,000344: 43,2277           16711                          BZF      TCQ                                   
010329,000345: 43,2300           02124                          TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
010330,000346:                                                                                                 #            GOLOADLV     VERB 50            DESCRIPTION
010331,000347:                                                                                                 #                         AND OTHER PLEASE
010332,000348:                                                                                                 #                         DO SOMETHING VERBS
010333,000349:                                                                                                 #                PLEASE PERFORM, MARK, CALIBRATE, ETC.
010334,000350:                                                                                                 #                1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN  PERFORMED, AND THE PROGRAM DOES THE
010335,000351:                                                                                                 #                   SAME RECALL AS A COMPLETED LOAD.
010336,000352:                                                                                                 #                2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
010337,000353: 
010338,000354: 43,2301           04447        GOLOADLV          TC       FLASHOFF                              
010339,000355: 43,2302           34215                          CAF      PINSUPBT                              
010340,000356: 43,2303           00006                          EXTEND                                         
010341,000357: 43,2304           01007                          WRITE    SUPERBNK                              #  TURN ON FE7
010342,000358: 43,2305           04574                          TC       POSTJUMP                              
010343,000359: 43,2306  40,2000                                 SBANK=   PINSUPER                              
010344,000360: 43,2306           62001                          CADR     LOADLV1                               
010345,000361:                                                                                                 #             V60     VERB 60
010346,000362: 
010347,000363: 43,2307           00006        V60               EXTEND                                         #  SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
010348,000364: 43,2310           30033                          DCA      CDUX                                  #  TO PRESENT ATTITUDE
010349,000365: 43,2311           53334                          DXCH     CPHIX                                 
010350,000366: 43,2312           30034                          CA       CDUZ                                  
010351,000367: 43,2313           55335                          TS       CPHIX      +2                         
010352,000368: 43,2314           02125                          TC       GOPIN                                 
010353,000369: 
010354,000370: 
010355,000371:                                                                                                 #             V61     VERB 61
010356,000372: 
010357,000373: 43,2315           05447        V61               TC       DOWNFLAG                              #  SET NEEDLFLG TO 0 (FLAGWRD0,BIT9),PHASE
010358,000374: 43,2316           00006                          ADRES    NEEDLFLG                              #  PLANE A/P FOLLOWING ERROR DISPLAYED
010359,000375: 43,2317           02125                          TC       GOPIN                                 
010360,000376: 
010361,000377: 
010362,000378:                                                                                                 #             V62     VERB 62
010363,000379: 
010364,000380: 43,2320           05435        V62               TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010365,000381: 43,2321           00006                          ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010366,000382: 
010367,000383: 43,2322           05435                          TC       UPFLAG                                #  SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
010368,000384: 43,2323           00220                          ADRES    N22ORN17                              #  COMPUTE TOTAL ATTITUDE ERROR WRT N22
010369,000385: 43,2324           02125                          TC       GOPIN                                 
010370,000386: 
010371,000387:                                                                                                 #             V63     VERB 63
010372,000388: 
010373,000389: 43,2325           05435        V63               TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010374,000390: 43,2326           00006                          ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010375,000391: 
010376,000392: 43,2327           05447                          TC       DOWNFLAG                              #  SET N22ORN17 TO 0 (FLAGWRD9,BIT6,
010377,000393:                                                                                                 # # Page 238
010378,000394: 43,2330           00220                          ADRES    N22ORN17                              #  COMPUTE TOAL ASTRONAUT ATTITUDE ERROR
010379,000395: 43,2331           02125                          TC       GOPIN                                 
010380,000396: 
010381,000397:                                                                                                 # # Page 239
010382,000398: 
010383,000399:                                                                                                 #            ALINTIME     VERB 55            DESCRIPTION
010384,000400:                                                                                                 #                1. SET EXT VERB DISPLAY BUSY FLAG.
010385,000401:                                                                                                 #                2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
010386,000402:                                                                                                 #                3. REQUIRE EXECUTION OF VERB 23.
010387,000403:                                                                                                 #                4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
010388,000404:                                                                                                 #                5. RELEASE EXT VERB DISPLAY SYSTEM.
010389,000405: 
010390,000406: 43,2332                                          COUNT    04/R33                                
010391,000407: 
010392,000408: 43,2332           02076        ALINTIME          TC       TESTXACT                              
010393,000409: 
010394,000410: 43,2333           32363                          CAF      VNLODDT                               
010395,000411: 43,2334           04555                          TC       BANKCALL                              
010396,000412: 43,2335           20465                          CADR     GOMARKF                               
010397,000413: 43,2336           05423                          TC       ENDEXT                                #  TERMINATE
010398,000414: 43,2337           05423                          TC       ENDEXT                                #  PROCEED
010399,000415: 43,2340           42362                          CS       DEC23                                 #  DATA IN OR RESEQUENCE(UNLIKELY)
010400,000416: 43,2341           60154                          AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
010401,000417: 43,2342           00006                          EXTEND                                         
010402,000418: 43,2343           12345                          BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
010403,000419: 43,2344           05423                          TC       ENDEXT                                #    WITH V23 (DATA IN).
010404,000420: 43,2345           00004        UPDATIME          INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
010405,000421: 43,2346           34714                          CAF      ZERO                                  
010406,000422: 43,2347           54156                          TS       MPAC       +2                         #  NEEDED FOR TP AGREE
010407,000423: 43,2350           54001                          TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
010408,000424: 43,2351           52025                          DXCH     TIME2                                 
010409,000425: 43,2352           52155                          DXCH     MPAC                                  
010410,000426: 43,2353           53052                          DXCH     DSPTEM2    +1                         #  INCREMENT
010411,000427: 43,2354           20155                          DAS      MPAC                                  
010412,000428: 
010413,000429: 43,2355           07226                          TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
010414,000430: 43,2356           52155                          DXCH     MPAC                                  #  NEW CLOCK.
010415,000431: 43,2357           20025                          DAS      TIME2                                 
010416,000432: 43,2360           00003                          RELINT                                         
010417,000433: 43,2361           05423        UPDTMEND          TC       ENDEXT                                
010418,000434: 43,2362           00027        DEC23             DEC      23         B-14                       #  V 23
010419,000435: 
010420,000436: 43,2363           06230        VNLODDT           VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
010421,000437: 
010422,000438:                                                                                                 # # Page 240
010423,000439: 
010424,000440:                                                                                                 #            SYSTEST       VERB 92            DESCRIPTION
010425,000441:                                                                                                 #                OPERATE SELECTED SYSTEM TEST
010426,000442:                                                                                                 #                1. REQUIRE POO OR POO- OR TURN ON OPERATOR ERROR.
010427,000443:                                                                                                 #                2. TURN OFF DAP IF IT IS ON.
010428,000444:                                                                                                 #                3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17).
010429,000445:                                                                                                 #                4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20.
010430,000446:                                                                                                 #                TSELECT
010431,000447:                                                                                                 #                   1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND
010432,000448:                                                                                                 #                      REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE)
010433,000449: 
010434,000450: 43,2364  E5,1425                                 EBANK=   QPLACE                                
010435,000451: 
010436,000452: 43,2364                                          COUNT    04/EXTVB                              
010437,000453: 
010438,000454: 43,2364           02717        SYSTEST           TC       CHKPOOH                               
010439,000455: 43,2365           02723                          TC       EXDAPOFF                              
010440,000456: 43,2366           34675                          CAF      PRIO20                                
010441,000457: 43,2367           05042                          TC       FINDVAC                               
010442,000458: 43,2370  E5,1425                                 EBANK=   QPLACE                                
010443,000459: 43,2370  30,2000                                 SBANK=   IMUSUPER                              
010444,000460: 43,2370           02002 66065                    2CADR    REDO                                  
010445,000461: 
010446,000462: 43,2372           02125                          TC       GOPIN                                 
010447,000463: 
010448,000464: 
010449,000465:                                                                                                 #  REDO AND TSELECT ARE NOW IN SYSTEM TEST.               
010450,000466: 
010451,000467: 43,2373                                          COUNT*   $$/EXTVB                              
010452,000468:                                                                                                 #            CKOPTVB     VERB 65             DESCRIPTION
010453,000469:                                                                                                 #                OPTICAL VERIFICATION FOR PRELAUNCH.
010454,000470:                                                                                                 #                1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
010455,000471: 
010456,000472: 43,2373           05253        CKOPTVB           TC       CHECKMM                               
010457,000473: 43,2374           00002                          MM       02         B-14                       #  I WONDER IF PRELAUNCH IS RUNNING
010458,000474: 43,2375           02124                          TC       ALM/END                               #  NOT RUNNING OPERATOR ERROR
010459,000475: 43,2376           00004                          INHINT                                         
010460,000476: 43,2377           34763                          CAF      PRIO16                                #   PRELAUNCH OPTICAL VERIFICATION
010461,000477: 43,2400           05042                          TC       FINDVAC                               
010462,000478: 43,2401  E5,1425                                 EBANK=   QPLACE                                
010463,000479: 43,2401           02000 66065                    2CADR    COMPVER                               #  STANDARD LEADIN TO GCOMPVER.
010464,000480: 43,2403           02125                          TC       GOPIN                                 
010465,000481: 
010466,000482: 
010467,000483:                                                                                                 #  V 78 ....         TO CHANGE GYROCOMPASS AZIMUTH
010468,000484: 
010469,000485: 43,2404           05253        CHAZFOGC          TC       CHECKMM                               #  IS IT PRELAUNCH
010470,000486: 43,2405           00002                          MM       02         B-14                       
010471,000487: 43,2406           02124                          TC       ALM/END                               #  NO - OPERA TOR ERROR
010472,000488:                                                                                                 # # Page 241
010473,000489: 43,2407           34763                          CAF      PRIO16                                #  PRELAUNCH AZIMUTH CHANGE
010474,000490: 43,2410           05042                          TC       FINDVAC                               
010475,000491: 43,2411  0002671                                 EBANK=   XSM                                   
010476,000492: 43,2411           03737 66065                    2CADR    AZMTHCG1                              
010477,000493: 43,2413           05301                          TC       PHASCHNG                              
010478,000494: 43,2414           00174                          OCT      00174                                 
010479,000495: 43,2415           02125                          TC       GOPIN                                 
010480,000496: 
010481,000497:                                                                                                 # # Page 242
010482,000498: 
010483,000499:                                                                                                 #            IMUATTCK     VERB 43            DESCRIPTION
010484,000500:                                                                                                 #                LOAD IMU ATTITUDE ERROR METERS
010485,000501:                                                                                                 #                1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
010486,000502:                                                                                                 #                2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED  REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
010487,000503:                                                                                                 #                   FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
010488,000504:                                                                                                 #                3.  REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
010489,000505:                                                                                                 #                4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010490,000506:                                                                                                 #                5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
010491,000507:                                                                                                 #                   TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
010492,000508:                                                                                                 #                6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
010493,000509: 
010494,000510: 43,2416           02717        IMUATTCK          TC       CHKPOOH                               
010495,000511: 
010496,000512: 43,2417           32475                          CAF      OCTAL30                               #  CHECK IF IMU ZERO AND IMU COARSE ARE ON
010497,000513: 43,2420           00006                          EXTEND                                         
010498,000514: 43,2421           02012                          RAND     CHAN12                                
010499,000515: 43,2422           10000                          CCS      A                                     
010500,000516: 43,2423           12124                          TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010501,000517: 
010502,000518: 43,2424           02463                          TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
010503,000519: 43,2425           02076                          TC       TESTXACT                              #  AFTER
010504,000520: 43,2426           44726                          CS       OCT50                                 #  REMOVE COARSE AND ECTR ENABLE.
010505,000521: 43,2427           00006                          EXTEND                                         
010506,000522: 43,2430           03012                          WAND     CHAN12                                
010507,000523: 
010508,000524: 43,2431           32177                          CAF      VNLODCDU                              
010509,000525: 43,2432           04555                          TC       BANKCALL                              
010510,000526: 43,2433           20465                          CADR     GOXDSPF                               
010511,000527: 43,2434           12450                          TCF      TRMATTCK                              
010512,000528: 43,2435           02436                          TC       +1                                    
010513,000529: 43,2436           34752                          CAF      EBANK6                                
010514,000530: 43,2437           54003                          TS       EBANK                                 #  SET E6 FOR NEEDLES.
010515,000531: 
010516,000532: 43,2440  E6,1476                                 EBANK=   AK                                    
010517,000533: 
010518,000534: 43,2440           04555                          TC       BANKCALL                              #  INITIALIZE CURRENT DAC AND
010519,000535: 43,2441           42427                          CADR     NEEDLE11                              #  COMMAND VALUES
010520,000536: 
010521,000537: 43,2442           04555                          TC       BANKCALL                              #  ENABLE ERROR COUNTERS.
010522,000538: 43,2443           42446                          CADR     NEEDLER2                              
010523,000539: 
010524,000540: 43,2444           34711                          CAF      TWO                                   #  4 MS MIN.
010525,000541: 43,2445           05140                          TC       WAITLIST                              
010526,000542: 43,2446  E6,1476                                 EBANK=   AK                                    
010527,000543: 43,2446           02453 66106                    2CADR    ATTCK1                                
010528,000544: 43,2450           02463        TRMATTCK          TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
010529,000545: 43,2451           15423                          TCF      ENDEXT                                #  AFTER
010530,000546: 43,2452           02125                          TC       GOPIN                                 
010531,000547:                                                                                                 # # Page 243
010532,000548: 43,2453           00006        ATTCK1            EXTEND                                         #  TRANSFER LOADED VALUES TO DESIRED REGS.
010533,000549: 43,2454           31156                          DCA      THETAD                                
010534,000550: 43,2455           53477                          DXCH     AK                                    
010535,000551: 43,2456           31157                          CAE      THETAD     +2                         
010536,000552: 43,2457           55500                          TS       AK         +2                         
010537,000553: 
010538,000554: 43,2460           04633                          TC       IBNKCALL                              #  SENDS COMMANDS LIMITED TO +,- 384 PULSES
010539,000555: 43,2461           42462                          CADR     NEEDLES                               #  AND LEAVES ERROR COUNTERS ENABLED.
010540,000556: 
010541,000557: 43,2462           05213                          TC       TASKOVER                              
010542,000558: 
010543,000559: 43,2463           34706        CKLFTBTS          CAF      BIT5                                  #  HAS LIFTOFF OCCURRED
010544,000560: 43,2464           70101                          MASK     FLAGWRD5                              
010545,000561: 43,2465           10000                          CCS      A                                     
010546,000562: 43,2466           00002                          TC       Q                                     #  YES
010547,000563: 43,2467           34706                          CAF      BIT5                                  
010548,000564: 43,2470           00006                          EXTEND                                         
010549,000565: 43,2471           02030                          RAND     CHAN30                                
010550,000566: 43,2472           10000                          CCS      A                                     
010551,000567: 43,2473           16706                          TCF      Q+1                                   
010552,000568: 43,2474           00002        XACT0Q            TC       Q                                     #  YES
010553,000569: 
010554,000570: 43,2475           00030        OCTAL30           OCT      30                                    
010555,000571: 43,2476           02717        VB64              TC       CHKPOOH                               #  DEMAND PROGRAM 00.
010556,000572: 43,2477           02076                          TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
010557,000573: 43,2500           00004                          INHINT                                         
010558,000574: 43,2501           34677                          CAF      PRIO4                                 
010559,000575: 43,2502           05042                          TC       FINDVAC                               
010560,000576: 43,2503  E4,1720                                 EBANK=   RHOSB                                 
010561,000577: 43,2503           03565 64104                    2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
010562,000578: 43,2505           05112                          TC       ENDOFJOB                              
010563,000579: 
010564,000580:                                                                                                 #            ENATMA     VERB 58              DESCRIPTION
010565,000581:                                                                                                 #                ENABLE AUTOMATIC ATTITUDE MANEUVER
010566,000582: 
010567,000583:                                                                                                 #      VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT- 
010568,000584:                                                                                                 #      IVITY.
010569,000585: 
010570,000586: 43,2506           05447        ENATMA            TC       DOWNFLAG                              #  RESET STIKFLAG.
010571,000587: 43,2507           00020                          ADRES    STIKFLAG                              #  BIT 14 FLAG 1
010572,000588: 43,2510           02125                          TC       GOPIN                                 
010573,000589: 
010574,000590: 
010575,000591:                                                                                                 #            STROKON     VERB 68             DESCRIPTION
010576,000592:                                                                                                 #                STROKE TEST SETUP/ENABLE
010577,000593:                                                                                                 #                1. SET EXT VERB DISPLAY BUSY FLAG
010578,000594:                                                                                                 #                2. SCHEDULE STRKTST1 WITH PRIORITY 30.
010579,000595:                                                                                                 #                3. RELEASE EXT VERB DISPLAY.
010580,000596:                                                                                                 # # Page 244
010581,000597: 43,2511  E6,1635                                 EBANK=   T5TVCDT                               
010582,000598: 43,2511           40102        STROKON           CS       FLAGWRD6                              #  V68    PERMITTED ONLY DURING TVC
010583,000599: 43,2512           74105                          MASK     OCT60000                              
010584,000600: 43,2513           00006                          EXTEND                                         
010585,000601: 43,2514           62124                          BZMF     ALM/END                               #  NOT TVC....FLASH OP ERROR LIGHT
010586,000602: 43,2515           34371                          CAF      PRIO30                                #  JOB REQUEST TO SET UP STROKE TEST,
010587,000603: 43,2516           05027                          TC       NOVAC                                 #       INCLUDING INITIALIZATIONS
010588,000604: 43,2517  E6,1614                                 EBANK=   STROKER                               
010589,000605: 43,2517           03431 40106                    2CADR    STRKTSTI                              
010590,000606: 43,2521           02125                          TC       GOPIN                                 
010591,000607: 
010592,000608: 
010593,000609:                                                                                                 #            STABLISH     VERB 46            DESCRIPTION
010594,000610:                                                                                                 #                ESTABLISH G AND N CONTROL
010595,000611:                                                                                                 #         1. IF TVC DAP IS ON, ALARM AND RETURN OTHERWISE REQUIRE EXT VERB DISPLAY SYSTEM
010596,000612:                                                                                                 #                   AVAILABLE, SET BUSY FLAG AND GO TO DAPFIG TO DETERMIN VEHICLE CONFIGURATION.
010597,000613: 
010598,000614: 43,2522           40102        STABLISH          CS       FLAGWRD6                              #  VB 46
010599,000615: 43,2523           74105                          MASK     OCT60000                              #  NOT PERMITTED WHEN TVC DAP IS ON.
010600,000616: 43,2524           00006                          EXTEND                                         
010601,000617: 43,2525           62527                          BZMF     +2                                    
010602,000618: 43,2526           02124                          TC       ALM/END                               
010603,000619: 43,2527           34752                          CAF      EBANK6                                #  SET EBANK TO E6
010604,000620: 43,2530           54003                          TS       EBANK                                 
010605,000621: 43,2531           04574                          TC       POSTJUMP                              
010606,000622: 43,2532           65521                          CADR     DAPFIG                                
010607,000623: 
010608,000624:                                                                                                 # # Page 245
010609,000625: 
010610,000626:                                                                                                 #            CREWMANU     VERB 49            DESCRIPTION
010611,000627:                                                                                                 #                START AUTOMATIC ATTITUDE MANEUVER
010612,000628:                                                                                                 #                1. REQUIRE PROGRAM 00 ACTIVE.
010613,000629:                                                                                                 #                2. SET EXT VERB DISPLAY BUSY FLAG.
010614,000630:                                                                                                 #                3. SCHEDULE R62DISP WITH PRIORITY 10.
010615,000631:                                                                                                 #                4. RELEASE EXT VERB DISPLAY.
010616,000632: 
010617,000633:                                                                                                 #              R62DISP
010618,000634:                                                                                                 #                1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
010619,000635:                                                                                                 #                   4 FOR RESTART OF DISPLAY SEQUENCE.
010620,000636:                                                                                                 #                   RESPONSES
010621,000637:                                                                                                 #                   A. TERMINATE
010622,000638:                                                                                                 #                      1. GO TO GOTOPOOH.
010623,000639:                                                                                                 #                   B. PROCEED
010624,000640:                                                                                                 #                      1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010625,000641:                                                                                                 #                      2. EXECUTE R60CSM (ATTITUDE MANEUVER).
010626,000642:                                                                                                 #                      3. ZERO GROUP 4 (END R62).
010627,000643:                                                                                                 #                   C. ENTER
010628,000644:                                                                                                 #                      1. REPEAT FLASHING V06,N22.
010629,000645: 
010630,000646: 43,2533           02717        CREWMANU          TC       CHKPOOH                               #  DEMAND POO
010631,000647: 
010632,000648: 43,2534           02076                          TC       TESTXACT                              
010633,000649: 
010634,000650: 43,2535           34676                          CAF      PRIO10                                
010635,000651: 43,2536           05042                          TC       FINDVAC                               
010636,000652: 43,2537     1155                                 EBANK=   CPHI                                  
010637,000653: 43,2537           02330 56102                    2CADR    R62DISP                               
010638,000654: 
010639,000655:                                                                                                 # # Page 246
010640,000656: 
010641,000657:                                                                                                 #            DAPDISP      VERB 48             DESCRIPTION
010642,000658:                                                                                                 #                LOAD AUTOPILOT DATA (ROUTINE R03)
010643,000659:                                                                                                 #                0. CHECKFAIL AND RETURN IF TVC.
010644,000660:                                                                                                 #                1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010645,000661:                                                                                                 #                2. LOWER PRIORITY TO 10.
010646,000662:                                                                                                 #                3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
010647,000663:                                                                                                 #                4. UPON PROCEED RESPONSE, EXECUTE S41.2.
010648,000664:                                                                                                 #                5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010649,000665:                                                                                                 #                6. UPON PROCEED RESPONSE EXECUTE S40.14.
010650,000666:                                                                                                 #                7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010651,000667:                                                                                                 #                8. UPON PROCEED REPSONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
010652,000668: 43,2541                                          COUNT*   $$/EXTVB                              
010653,000669: 43,2541           40102        DAPDISP           CS       FLAGWRD6                              
010654,000670: 43,2542           74105                          MASK     OCT60000                              
010655,000671: 43,2543           00006                          EXTEND                                         
010656,000672: 43,2544           62546                          BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010657,000673: 43,2545           02124                          TC       ALM/END                               #  RETURN IF TVC
010658,000674: 
010659,000675: 43,2546           02076                          TC       TESTXACT                              
010660,000676: 43,2547           04555                          TC       BANKCALL                              
010661,000677: 43,2550           64000                          CADR     DAPDISP1                              
010662,000678: 42,2000                                          BANK     42                                    
010663,000679: 42,2000                                          SETLOC   EXTVBS                                
010664,000680: 42,2000                                          BANK                                           
010665,000681: 42,2000                                          COUNT    24/R03                                
010666,000682: 
010667,000683: 42,2000           34752        DAPDISP1          CAF      EBANK6                                
010668,000684: 42,2001           54003                          TS       EBANK                                 
010669,000685: 
010670,000686: 42,2002           34676                          CAF      PRIO10                                
010671,000687: 42,2003           05103                          TC       PRIOCHNG                              
010672,000688: 
010673,000689: 42,2004           32061        DONOUN46          CAF      V04N46                                #     R1         R2
010674,000690: 42,2005           04555                          TC       BANKCALL                              #   DAPDATR1   DAPDATR2
010675,000691: 42,2006           20465                          CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010676,000692: 
010677,000693: 42,2007           05423                          TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010678,000694: 42,2010           02012                          TC       +2                                    
010679,000695: 42,2011           02004                          TC       DONOUN46                              
010680,000696: 
010681,000697: 42,2012           31466                          CA       DAPDATR1                              
010682,000698: 42,2013           74707                          MASK     BIT4                                  
010683,000699: 42,2014           10000                          CCS      A                                     
010684,000700: 42,2015           12054                          TCF      MAXIN                                 
010685,000701: 42,2016           05447                          TC       DOWNFLAG                              
010686,000702: 42,2017           00212                          ADRES    MAXDBFLG                              
010687,000703: 42,2020           04555        MAXOUT            TC       BANKCALL                              
010688,000704: 42,2021           40145                          CADR     S41.2                                 
010689,000705: 
010690,000706: 42,2022           32060        DONOUN47          CAF      V06N47                                #     R1         R2         R3
010691,000707:                                                                                                 # # Page 247
010692,000708: 42,2023           04555                          TC       BANKCALL                              #  CSM WGT.   LEM WGT.     BLANK
010693,000709: 42,2024           20465                          CADR     GOXDSPF                               
010694,000710: 
010695,000711: 42,2025           05423                          TC       ENDEXT                                
010696,000712: 42,2026           02030                          TC       +2                                    
010697,000713: 42,2027           02022                          TC       DONOUN47                              
010698,000714: 42,2030           31466                          CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
010699,000715: 42,2031           74371                          MASK     PRIO30                                #  CONFIG = 1(CSM), 2(CSM/LM), 6(CSM/LMA)
010700,000716: 42,2032           00006                          EXTEND                                         
010701,000717: 42,2033           12046                          BZF      DONOUN48                              #  SKIP IF 0, 4
010702,000718: 42,2034           40000                          COM                                            
010703,000719: 42,2035           74371                          MASK     PRIO30                                
010704,000720: 42,2036           00006                          EXTEND                                         
010705,000721: 42,2037           12046                          BZF      DONOUN48                              #  SKIP IF 3, 7
010706,000722: 42,2040           00004                          INHINT                                         
010707,000723: 42,2041           04633                          TC       IBNKCALL                              
010708,000724: 42,2042           13176                          CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLK
010709,000725: 
010710,000726: 42,2043           00003                          RELINT                                         
010711,000727: 42,2044           04555                          TC       BANKCALL                              
010712,000728: 42,2045           40276                          CADR     S40.14                                #  COMPUTE RCS DAP STUFF
010713,000729: 
010714,000730: 42,2046           32057        DONOUN48          CAF      V0648                                 #     R1         R2         R3
010715,000731: 42,2047           04555                          TC       BANKCALL                              #    PTRIM      YTRIM      BLANK
010716,000732: 42,2050           20465                          CADR     GOXDSPF                               
010717,000733: 
010718,000734: 42,2051           05423                          TC       ENDEXT                                
010719,000735: 42,2052           05423                          TC       ENDEXT                                
010720,000736: 42,2053           02046                          TC       DONOUN48                              
010721,000737: 
010722,000738: 42,2054           05435        MAXIN             TC       UPFLAG                                
010723,000739: 42,2055           00212                          ADRES    MAXDBFLG                              
010724,000740: 42,2056           02020                          TC       MAXOUT                                
010725,000741: 
010726,000742: 42,2057           01460        V0648             VN       0648                                  
010727,000743: 42,2060           01457        V06N47            VN       0647                                  
010728,000744: 42,2061           01056        V04N46            VN       0446                                  
010729,000745: 43,2551                                          BANK     43                                    
010730,000746: 43,2000                                          SETLOC   EXTVERBS                              
010731,000747: 43,2000                                          BANK                                           
010732,000748: 
010733,000749: 43,2551                                          COUNT*   $$/EXTVB                              
010734,000750:                                                                                                 #            V82PERF     VERB82              DESCRIPTION
010735,000751:                                                                                                 #                REQUEST ORBIT PARAMETERS DISPLAY (R30)
010736,000752:                                                                                                 #  1. IF AVERAGE G IS OFF:
010737,000753:                                                                                                 #            FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010738,000754:                                                                                                 #             TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
010739,000755:                                                                                                 #             CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I.
010740,000756:                                                                                                 #            SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010741,000757:                                                                                                 #            CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
010742,000758:                                                                                                 # # Page 248
010743,000759:                                                                                                 #             RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
010744,000760:                                                                                                 #             HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010745,000761:                                                                                                 #             HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
010746,000762:                                                                                                 #             INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010747,000763:                                                                                                 #            FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
010748,000764:                                                                                                 #             NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010749,000765:                                                                                                 #             ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010750,000766:                                                                                                 #             DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010751,000767:                                                                                                 #             ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010752,000768: 
010753,000769:                                                                                                 #  2. IF AVERAGE G IS ON:
010754,000770:                                                                                                 #            CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
010755,000771:                                                                                                 #             FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
010756,000772:                                                                                                 #             OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010757,000773:                                                                                                 #            FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010758,000774:                                                                                                 #            IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010759,000775:                                                                                                 #             RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010760,000776: 
010761,000777: 
010762,000778:                                                                                                 #  ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
010763,000779:                                                                                                 #             ABOVE REMARKS.
010764,000780: 43,2551           02076        V82PERF           TC       TESTXACT                              
010765,000781: 43,2552           34756                          CAF      PRIO7                                 
010766,000782: 43,2553           05103                          TC       PRIOCHNG                              
010767,000783: 43,2554           04574                          TC       POSTJUMP                              
010768,000784: 43,2555           46332                          CADR     V82CALL                               #  ***** V82CALL MUST NOT BE A FINDVAC JOB.
010769,000785: 
010770,000786:                                                                                                 #            VB83PERF      VERB 83            DESCRIPTION
010771,000787:                                                                                                 #                REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010772,000788:                                                                                                 #                1. SET EXT VERB DISPLAY BUSY FLAG.
010773,000789:                                                                                                 #                2. SCHEDULE V83CALL WITH PRIORITY 10.
010774,000790:                                                                                                 #                   A. DISPLAY
010775,000791:                                                                                                 #                       R1  RANGE
010776,000792:                                                                                                 #                       R2  RANGE RATE
010777,000793:                                                                                                 #                       R3  THETA
010778,000794: 
010779,000795: 43,2556           02076        V83PERF           TC       TESTXACT                              
010780,000796: 43,2557           00004                          INHINT                                         
010781,000797: 43,2560           40105                          CS       FLAGWRD9                              #  SET R31 FLAG-BIT 4 FLAGWRD9
010782,000798: 43,2561           74707                          MASK     BIT4                                  
010783,000799: 43,2562           26105                          ADS      FLAGWRD9                              
010784,000800: 43,2563           34754                          CAF      PRIO5                                 
010785,000801: 43,2564           05027                          TC       NOVAC                                 
010786,000802: 43,2565  E4,1770                                 EBANK=   SUBEXIT                               
010787,000803: 43,2565           03150 72064                    2CADR    R31CALL                               
010788,000804: 43,2567           05112                          TC       ENDOFJOB                              
010789,000805: 
010790,000806:                                                                                                 # # Page 249
010791,000807: 43,2570           02076        V85PERF           TC       TESTXACT                              
010792,000808: 43,2571           00004                          INHINT                                         
010793,000809: 43,2572           44707                          CS       BIT4                                  #  RESET R31 FLAG TO INDICATE R34
010794,000810: 43,2573           70105                          MASK     FLAGWRD9                              
010795,000811: 43,2574           54105                          TS       FLAGWRD9                              
010796,000812: 43,2575           02563                          TC       V83PERF    +5                         
010797,000813: 
010798,000814:                                                                                                 # # Page 250
010799,000815: 
010800,000816:                                                                                                 #            GOTOR21  VERB 57
010801,000817:                                                                                                 #            GOTOR23- VERB 54  DESCRIPTION
010802,000818:                                                                                                 #      SET UP MARKING FOR R22(REND TRACK DATA PROC)
010803,000819:                                                                                                 #      1. SET EXT VERB DISPLAY BUSY FLAG
010804,000820:                                                                                                 #      2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
010805,000821:                                                                                                 #         SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
010806,000822:                                                                                                 #      3. RELEASE EXT VERB DISPLAY SYSTEM
010807,000823: 43,2576           05447        GOTOR21           TC       DOWNFLAG                              #  CLEAR R23FLG
010808,000824: 43,2577           00025                          ADRES    R23FLG                                #  BIT 9  FLAG 1
010809,000825: 43,2600           02603                          TC       +3                                    
010810,000826: 43,2601           05435        GOTOR23           TC       UPFLAG                                #  SET R23FLG
010811,000827: 43,2602           00025                          ADRES    R23FLG                                #  BIT 9  FLAG 1
010812,000828: 43,2603           02076                          TC       TESTXACT                              
010813,000829: 43,2604           30074                          CA       FLAGWRD0                              #  VB 57  UNACCEPTABLE UNLESS BOTH
010814,000830: 43,2605           74704                          MASK     BIT7                                  #         RENDEZVOUS AND TRACK FLAGS ON
010815,000831: 43,2606           00006                          EXTEND                                         
010816,000832: 43,2607           12632                          BZF      R22ALARM                              
010817,000833: 
010818,000834: 43,2610           30075                          CA       FLAGWRD1                              
010819,000835: 43,2611           74706                          MASK     BIT5                                  
010820,000836: 43,2612           00006                          EXTEND                                         
010821,000837: 43,2613           12632                          BZF      R22ALARM                              
010822,000838: 
010823,000839: 43,2614           30075                          CA       FLAGWRD1                              #  TEST R23FLG
010824,000840: 43,2615           74702                          MASK     BIT9                                  
010825,000841: 43,2616           00006                          EXTEND                                         
010826,000842: 43,2617           12625                          BZF      REGR21                                #  R21
010827,000843: 43,2620           34763                          CAF      PRIO16                                
010828,000844: 43,2621           05027                          TC       NOVAC                                 
010829,000845: 43,2622  E7,1725                                 EBANK=   MRKBUF1                               
010830,000846: 43,2622           02447 76067                    2CADR    R23CSM                                
010831,000847: 43,2624           05112                          TC       ENDOFJOB                              
010832,000848: 43,2625           34763        REGR21            CAF      PRIO16                                
010833,000849: 43,2626           05027                          TC       NOVAC                                 
010834,000850: 43,2627  E7,1725                                 EBANK=   MRKBUF1                               
010835,000851: 43,2627           02445 76067                    2CADR    R21CSM                                
010836,000852: 43,2631           05112                          TC       ENDOFJOB                              
010837,000853: 43,2632           05537        R22ALARM          TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
010838,000854: 43,2633           00406                          OCT      00406                                 #    NOR TRACK FLAG WERE ON.
010839,000855: 43,2634           05423                          TC       ENDEXT                                
010840,000856: 
010841,000857:                                                                                                 # # Page 251
010842,000858:                                                                                                 #            VERB 86    DESCRIPTION
010843,000859:                                                                                                 #              V86 IS TO R23 AS MARK REJECT IS TO R21
010844,000860:                                                                                                 #              V86 IS THE MARK REJECT FOR R23(THE BACKUP MARKING ROUTINE)
010845,000861: 43,2635  E7,1725                                 EBANK=   MRKBUF1                               
010846,000862: 43,2635           34753        V86PERF           CAF      EBANK7                                #  BACKUP MARK REJECT (R23)
010847,000863: 43,2636           56003                          XCH      EBANK                                 
010848,000864: 43,2637           37716                          CA       NEGONE                                
010849,000865: 43,2640           55725                          TS       MRKBUF1                               
010850,000866: 43,2641           02125                          TC       GOPIN                                 
010851,000867: 
010852,000868:                                                                                                 # # Page 252
010853,000869: 
010854,000870:                                                                                                 #            TRACKTRM     VERB 56            DESCRIPTION
010855,000871:                                                                                                 #                TERMINATE TRACKING (P20)
010856,000872:                                                                                                 #                1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
010857,000873:                                                                                                 #                2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
010858,000874:                                                                                                 #                3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
010859,000875:                                                                                                 #                4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
010860,000876:                                                                                                 #                3. KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
010861,000877:                                                                                                 #                4. GO TO ENEMA (SOFTWARE RESTART).
010862,000878:                                                                                                 #                REFERENCE
010863,000879:                                                                                                 #                   P20 RENDEZVOUS  NAVIGATION.
010864,000880:                                                                                                 #                   R21 RENDEZVOUS  TRACKING SIGHTING MARK.
010865,000881:                                                                                                 #                   R22 RENDEZVOUS  TRACKING DATA PROCESSING.
010866,000882: 
010867,000883: 43,2642           34704        TRACKTRM          CA       BIT7                                  #  IS REND FLAG ON
010868,000884: 43,2643           70074                          MASK     FLAGWRD0                              
010869,000885: 43,2644           00006                          EXTEND                                         
010870,000886: 43,2645           12125                          BZF      GOPIN                                 #  NO
010871,000887: 
010872,000888: 43,2646           05447                          TC       DOWNFLAG                              
010873,000889: 43,2647           00010                          ADRES    RNDVZFLG                              
010874,000890: 
010875,000891: 43,2650           34706                          CA       BIT5                                  #  IS TRACK FLAG ON
010876,000892: 43,2651           70075                          MASK     FLAGWRD1                              
010877,000893: 43,2652           00006                          EXTEND                                         
010878,000894: 43,2653           12125                          BZF      GOPIN                                 #  NO
010879,000895: 
010880,000896: 43,2654           05447                          TC       DOWNFLAG                              
010881,000897: 43,2655           00031                          ADRES    TRACKFLG                              
010882,000898: 
010883,000899: 43,2656           05447                          TC       DOWNFLAG                              
010884,000900: 43,2657           00027                          ADRES    UPDATFLG                              
010885,000901: 
010886,000902: 43,2660           05447                          TC       DOWNFLAG                              
010887,000903: 43,2661           00007                          ADRES    IMUSE                                 
010888,000904: 
010889,000905: 43,2662           34752                          CAF      EBANK6                                
010890,000906: 43,2663           54003                          TS       EBANK                                 
010891,000907: 
010892,000908: 43,2664           04555                          TC       BANKCALL                              
010893,000909: 43,2665           45245                          CADR     STOPRATE                              
010894,000910: 
010895,000911: 43,2666           37716                          CAF      NEGONE                                
010896,000912: 43,2667           55303                          TS       OPTIND                                
010897,000913: 
010898,000914: 43,2670           06006                          TC       INTPRET                               
010899,000915: 43,2671           77624                          CALL                                           
010900,000916: 43,2672           27371                                   INTSTALL                              #  DONT INTERRUPT INTEGRATION
010901,000917: 43,2673           77776                          EXIT                                           
010902,000918: 43,2674           05261                          TC       2PHSCHNG                              
010903,000919:                                                                                                 # # Page 253
010904,000920: 43,2675           00002                          OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
010905,000921: 43,2676           00001                          OCT      1                                     #  ALSO KILL GROUP 1
010906,000922: 
010907,000923: 43,2677           00004        CLEANOUT          INHINT                                         
010908,000924: 43,2700           04574                          TC       POSTJUMP                              
010909,000925: 43,2701           12632                          CADR     ENEMA                                 #  CAUSE RESTART
010910,000926: 
010911,000927:                                                                                                 #            LEMVEC     VERB 80              DESCRIPTION
010912,000928:                                                                                                 #                UPDATE LEM STATE VECTOR
010913,000929:                                                                                                 #                   RESET VEHUPFLG TO 0
010914,000930: 
010915,000931: 43,2702           05447        LEMVEC            TC       DOWNFLAG                              
010916,000932: 43,2703           00026                          ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
010917,000933: 
010918,000934: 43,2704           12125                          TCF      GOPIN                                 
010919,000935: 
010920,000936:                                                                                                 #            CSMVEC     VERB 81              DESCRIPTION
010921,000937:                                                                                                 #                UPDATE CSM STATE VECTOR
010922,000938:                                                                                                 #                   SET   VEHUPFLG TO 1
010923,000939: 
010924,000940: 43,2705           05435        CSMVEC            TC       UPFLAG                                
010925,000941: 43,2706           00026                          ADRES    VEHUPFLG                              #  VEHUPFLG UP INDICATES CM
010926,000942: 
010927,000943: 43,2707           12125                          TCF      GOPIN                                 
010928,000944: 
010929,000945:                                                                                                 #            DNEDUMP     VERB 74             DESCRIPTION
010930,000946:                                                                                                 #                INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
010931,000947:                                                                                                 #                1. SET EXT VERB DISPLAY BUSY FLAG.
010932,000948:                                                                                                 #                2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
010933,000949:                                                                                                 #                3. RELEASE EXT VERB DISPLAY.
010934,000950: 
010935,000951: 43,2710     0010                                 EBANK=   10                                    
010936,000952: 43,2710           32713        DNEDUMP           CAF      LDNDUMPI                              
010937,000953: 43,2711           54335                          TS       DNTMGOTO                              
010938,000954: 43,2712           02125                          TC       GOPIN                                 
010939,000955: 
010940,000956: 43,2713  43,2710               V74               EQUALS   DNEDUMP                               
010941,000957: 43,2713           03532        LDNDUMPI          REMADR   DNDUMPI                               
010942,000958: 
010943,000959:                                                                                                 #            LFTFLGON    VERB 75             DESCRIPTION
010944,000960:                                                                                                 #                SET LIFT-OFF FLAG
010945,000961:                                                                                                 #                1. SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
010946,000962:                                                                                                 #                2. RETURN VIA PINBRNCH
010947,000963: 
010948,000964: 43,2714           05435        LFTFLGON          TC       UPFLAG                                #  VB 75 - SET LIFTOFF FLAG BIT
010949,000965: 43,2715           00125                          ADRES    GRRBKFLG                              #  BIT 5 FLAG 5
010950,000966: 43,2716           02125                          TC       GOPIN                                 
010951,000967:                                                                                                 # # Page 254              
010952,000968: 43,2717           31011        CHKPOOH           CA       MODREG                                
010953,000969: 43,2720           00006                          EXTEND                                         
010954,000970: 43,2721           16711                          BZF      TCQ                                   
010955,000971: 43,2722           12124                          TCF      ALM/END                               
010956,000972: 
010957,000973: 43,2723           00006        EXDAPOFF          EXTEND                                         
010958,000974: 43,2724           32733                          DCA      IDLECADR                              #  SET T5 TO IDLE.
010959,000975: 43,2725           53313                          DXCH     T5LOC                                 
010960,000976: 43,2726           44105                          CS       OCT60000                              
010961,000977: 43,2727           70102                          MASK     FLAGWRD6                              #  RESET DAPBITS 1 AND 2.
010962,000978: 43,2730           54102                          TS       FLAGWRD6                              
010963,000979: 43,2731           00002                          TC       Q                                     
010964,000980: 
010965,000981: 43,2732  E6,1425                                 EBANK=   PACTOFF                               
010966,000982: 43,2732           03132 12106  IDLECADR          2CADR    T5IDLOC                               
010967,000983: 
010968,000984:                                                                                                 # # Page 255
010969,000985: 
010970,000986:                                                                                                 #  VERB 89 DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
010971,000987:                                                                                                 #  
010972,000988:                                                                                                 #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
010973,000989:                                                                                                 #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
010974,000990:                                                                                                 #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
010975,000991: 
010976,000992:                                                                                                 #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
010977,000993:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
010978,000994: 
010979,000995:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
010980,000996:                                                                                                 #  ORIENTATION KNOWN TO OGC, CONTINUE.
010981,000997: 
010982,000998:                                                                                                 #  3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
010983,000999:                                                                                                 #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
010984,001000:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
010985,001001:                                                                                                 #  AFTER KEYING IN PROCEED.
010986,001002: 
010987,001003:                                                                                                 #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
010988,001004:                                                                                                 #  FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
010989,001005: 
010990,001006:                                                                                                 #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
010991,001007: 
010992,001008:                                                                                                 #      R63COMP JOB:
010993,001009: 
010994,001010:                                                                                                 #         UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
010995,001011: 
010996,001012:                                                                                                 #         CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
010997,001013: 
010998,001014:                                                                                                 #         DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
010999,001015:                                                                                                 #         ARE STORED FOR LATER R60CSM CALL.
011000,001016: 
011001,001017:                                                                                                 #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011002,001018: 
011003,001019:                                                                                                 #  7. RECYCLE- RETURN TO STEP 5.
011004,001020:                                                                                                 #     TERMINATE- EXIT R63 ROUTINE
011005,001021:                                                                                                 #     PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011006,001022: 
011007,001023: 43,2734           02717        V89PERF           TC       CHKPOOH                               #  DEMAND P00
011008,001024: 43,2735           02076                          TC       TESTXACT                              
011009,001025: 43,2736           00004                          INHINT                                         
011010,001026: 43,2737           34676                          CAF      PRIO10                                
011011,001027: 43,2740           05042                          TC       FINDVAC                               
011012,001028: 43,2741  E4,1715                                 EBANK=   P21TIME                               
011013,001029: 43,2741           03603 70064                    2CADR    V89CALL                               
011014,001030: 
011015,001031: 43,2743           15112                          TCF      ENDOFJOB                              
011016,001032: 
011017,001033: 43,2744           00004        WMATRXNG          INHINT                                         #  VB 86 - CLEAR RENDWFLG TO REINITIALIZE
011018,001034: 43,2745           44712                          CS       BIT1                                  #           W-MATRIX
011019,001035:                                                                                                 # # Page 256
011020,001036: 43,2746           70101                          MASK     FLAGWRD5                              
011021,001037: 43,2747           54101                          TS       FLAGWRD5                              
011022,001038: 
011023,001039: 43,2750           02125                          TC       GOPIN                                 
011024,001040: 
011025,001041: 43,2751  43,2751               GOSHOSUM          EQUALS   SHOWSUM                               
011026,001042: 
011027,001043: 43,2751           02717        SHOWSUM           TC       CHKPOOH                               
011028,001044: 43,2752           02076                          TC       TESTXACT                              #  *
011029,001045: 43,2753           34712                          CAF      S+1                                   #  *
011030,001046: 43,2754           55376                          TS       SKEEP6                                #  * SHOWSUM OPTION
011031,001047: 43,2755           34714                          CAF      S+ZERO                                #  *
011032,001048: 43,2756           55362                          TS       SMODE                                 #  * TURN OFF SELF-CHECK
011033,001049: 43,2757           33242                          CA       SELFADRS                              #  *
011034,001050: 43,2760           55361                          TS       SELFRET                               #  *
011035,001051: 43,2761           03517                          TC       STSHOSUM                              #  * ENTER ROPECHK
011036,001052: 
011037,001053: 43,2762           23372        SDISPLAY          LXCH     SKEEP2                                #  * BNK NO FOR DSP
011038,001054: 43,2763           23373                          LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
011039,001055: 43,2764           33241        NOKILL            CA       ADRS1                                 #  *
011040,001056: 43,2765           54156                          TS       MPAC       +2                         #  *
011041,001057: 43,2766           32777                          CA       VNCON                                 #  * 0501
011042,001058: 43,2767           04555                          TC       BANKCALL                              #  *
011043,001059: 43,2770           20465                          CADR     GOXDSPF                               #  *
011044,001060: 43,2771           02774                          TC       +3                                    #  *
011045,001061: 43,2772           03630                          TC       NXTBNK                                #  *
011046,001062: 43,2773           02764                          TC       NOKILL                                #  *
011047,001063: 43,2774           33242                          CA       SELFADRS                              
011048,001064: 43,2775           55371                          TS       SKEEP1                                
011049,001065: 
011050,001066: 43,2776           05423                          TC       ENDEXT                                #  *
011051,001067: 
011052,001068: 43,2777           01201        VNCON             VN       501                                   #  *
011053,001069: 
011054,001070: 43,3000           31376        ENDSUMS           CA       SKEEP6                                #  *
011055,001071: 43,3001           00006                          EXTEND                                         #  *
011056,001072: 43,3002           13333                          BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
011057,001073: 43,3003           03517                          TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
011058,001074: 
011059,001075:                                                                                                 #  VERB 79 REQUEST LUNAR LANDMARK SELECTION.  RESTRICTED TO P00.
011060,001076: 
011061,001077: 43,3004           02717        CALLR35           TC       CHKPOOH                               
011062,001078: 43,3005           02076                          TC       TESTXACT                              
011063,001079: 
011064,001080: 43,3006           34754                          CAF      PRIO5                                 
011065,001081: 43,3007           05042                          TC       FINDVAC                               
011066,001082: 43,3010  E4,1725                                 EBANK=   KLOOPCNT                              
011067,001083: 43,3010           03215 62064                    2CADR    LNDMKSEL                              
011068,001084: 43,3012           05112                          TC       ENDOFJOB                              #  R35 WILL DO ENDEXT
011069,001085: 
011070,001086:                                                                                                 # # Page 257
011071,001087: 
011072,001088:                                                                                                 #            VB 76  SET PREFERRED ATTITUDE FLAG - DRIVE TO PREFERRED.
011073,001089: 
011074,001090: 43,3013           05435        SETPRFLG          TC       UPFLAG                                
011075,001091: 43,3014           00120                          ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011076,001092: 43,3015           02125                          TC       GOPIN                                 
011077,001093: 
011078,001094: 
011079,001095:                                                                                                 #            VB 77  RESET PREFERRED ATTITUDE FLAG - DRIVE TO +X-AXIS ATT.
011080,001096: 
011081,001097: 43,3016           05447        RESETPRF          TC       DOWNFLAG                              
011082,001098: 43,3017           00120                          ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011083,001099: 43,3020           02125                          TC       GOPIN                                 
011084,001100: 
011085,001101: 
011086,001102:                                                                                                 #            VB 87  SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
011087,001103: 
011088,001104: 43,3021           06006        SETVHFLG          TC       INTPRET                               
011089,001105: 43,3022           77414                          SET      EXIT                                  
011090,001106: 43,3023           04466                                   VHFRFLAG                              
011091,001107: 43,3024           02125                          TC       GOPIN                                 
011092,001108: 
011093,001109: 
011094,001110:                                                                                                 #            VB 88  RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
011095,001111: 
011096,001112: 43,3025           06006        RESETVHF          TC       INTPRET                               
011097,001113: 43,3026           77414                          CLEAR    EXIT                                  
011098,001114: 43,3027           04666                                   VHFRFLAG                              
011099,001115: 43,3030           05520                          TC       TRFAILOF                              #  TRACKER FAIL LIGHT
011100,001116: 
011101,001117: 43,3031           02125                          TC       GOPIN                                 
011102,001118: 
011103,001119: 
011104,001120:                                                                                                 #  VERB 66.  VEHICLES ARE ATTACHED.- MOVE THIS VEHICLE STATE VECTOR TO
011105,001121:                                                                                                 #             OTHER VEHICLE STATE VECTOR.
011106,001122: 
011107,001123:                                                                                                 #      USE SUBROUTINE GENTRAN.
011108,001124: 
011109,001125: 43,3032  E3,1554                                 EBANK=   RRECTHIS                              
011110,001126: 43,3032           34676        ATTACHED          CAF      PRIO10                                
011111,001127: 43,3033           05042                          TC       FINDVAC                               
011112,001128: 43,3034  E3,1554                                 EBANK=   RRECTHIS                              
011113,001129: 43,3034           03037 66103                    2CADR    ATTACHIT                              
011114,001130: 43,3036           05112                          TC       ENDOFJOB                              
011115,001131: 
011116,001132: 43,3037           06006        ATTACHIT          TC       INTPRET                               
011117,001133: 43,3040           77624                          CALL                                           
011118,001134: 43,3041           27371                                   INTSTALL                              
011119,001135: 43,3042           43014                          SET      BON                                   
011120,001136: 43,3043           04064                                   MOONOTH                               
011121,001137:                                                                                                 # # Page 258
011122,001138: 43,3044           04303                                   MOONTHIS                              
011123,001139: 43,3045           67050                                   +3                                    
011124,001140: 43,3046           77614                          CLEAR                                          
011125,001141: 43,3047           04264                                   MOONOTH                               
011126,001142: 43,3050           77776                          EXIT                                           
011127,001143: 43,3051           33076                          CAF      OCT51                                 
011128,001144: 43,3052           05475                          TC       GENTRAN                               
011129,001145: 43,3053           01554                          ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
011130,001146: 43,3054           01626                          ADRES    RRECTOTH                              
011131,001147: 
011132,001148: 43,3055           00003        TACHEXIT          RELINT                                         
011133,001149: 43,3056           06006                          TC       INTPRET                               
011134,001150: 43,3057           77624                          CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
011135,001151: 43,3060           26662                                   PTOACSM                               
011136,001152: 43,3061           45154                          LXA,2    CALL                                  
011137,001153: 43,3062           02150                                   PBODY                                 
011138,001154: 43,3063           20237                                   SVDWN1                                
011139,001155: 43,3064           77624                          CALL                                           
011140,001156: 43,3065           20263                                   SVDWN2                                
011141,001157: 43,3066           77776                          EXIT                                           
011142,001158: 
011143,001159: 43,3067           33077                          CAF      TCPINAD                               
011144,001160: 43,3070           50120                          INDEX    FIXLOC                                
011145,001161: 43,3071           54052                          TS       QPRET                                 
011146,001162: 43,3072           04574                          TC       POSTJUMP                              
011147,001163: 43,3073           27406                          CADR     INTWAKE                               
011148,001164: 
011149,001165: 43,3074           77634        TCPIN             RTB                                            
011150,001166: 43,3075           21176                                   PINBRNCH                              
011151,001167: 
011152,001168: 43,3076           00051        OCT51             OCT      51                                    
011153,001169: 43,3077           67074        TCPINAD           CADR     TCPIN                                 
011154,001170: 
011155,001171:                                                                                                 #  VERB 47  MOVE LM STATE VECTOR INTO CSM STATE VECTOR.
011156,001172: 
011157,001173: 43,3100           34676        LMTOCMSV          CAF      PRIO10                                
011158,001174: 43,3101           05042                          TC       FINDVAC                               
011159,001175: 43,3102  E3,1554                                 EBANK=   RRECTHIS                              
011160,001176: 43,3102           03105 66103                    2CADR    LMTOCM                                
011161,001177: 43,3104           05112                          TC       ENDOFJOB                              
011162,001178: 
011163,001179: 43,3105           06006        LMTOCM            TC       INTPRET                               
011164,001180: 43,3106           77624                          CALL                                           
011165,001181: 43,3107           27371                                   INTSTALL                              
011166,001182: 43,3110           43014                          SET      BON                                   
011167,001183: 43,3111           04063                                   MOONTHIS                              
011168,001184: 43,3112           04304                                   MOONOTH                               
011169,001185: 43,3113           67116                                   +3                                    
011170,001186: 43,3114           77614                          CLEAR                                          
011171,001187:                                                                                                 # # Page 259
011172,001188: 43,3115           04263                                   MOONTHIS                              
011173,001189: 43,3116           77776                          EXIT                                           
011174,001190: 
011175,001191: 43,3117           33076                          CAF      OCT51                                 
011176,001192: 43,3120           05475                          TC       GENTRAN                               
011177,001193: 43,3121           01626                          ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
011178,001194: 43,3122           01554                          ADRES    RRECTHIS                              
011179,001195: 
011180,001196: 43,3123           13055                          TCF      TACHEXIT                              
011181,001197: 
011182,001198:                                                                                                 #  VERB 94  DO R64 VIA ENEMA TO PICK UP IN P23.
011183,001199: 
011184,001200: 43,3124           34700        VERB94            CAF      BIT11                                 
011185,001201: 43,3125           70105                          MASK     FLAGWRD9                              #  IS V94FLAG SET
011186,001202: 43,3126           00006                          EXTEND                                         
011187,001203: 43,3127           12124                          BZF      ALM/END                               #  NO - OPERATOR ERROR
011188,001204: 
011189,001205: 43,3130           05447                          TC       DOWNFLAG                              
011190,001206: 43,3131           00213                          ADRES    V94FLAG                               
011191,001207: 
011192,001208: 43,3132           05253                          TC       CHECKMM                               #  IS IT P23
011193,001209: 43,3133           00027                          MM       23         B-14                       
011194,001210: 43,3134           02124                          TC       ALM/END                               #  NO - OPERATOR ERROR
011195,001211: 43,3135           05301                          TC       PHASCHNG                              
011196,001212: 43,3136           00112                          OCT      112                                   #  SET GROUP 2 TO DO R64
011197,001213: 
011198,001214: 43,3137           02677                          TC       CLEANOUT                              #  CAUSE RESTART
011199,001215: 
011200,001216:                                                                                                 #            V90PERF     VERB 90             DESCRIPTION
011201,001217:                                                                                                 #                REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011202,001218:                                                                                                 #                1. SET EXT VERB DISPLAY BUSY FLAG.
011203,001219:                                                                                                 #                2. SCHEDULE R36 CALL WITH PRIORITY 10
011204,001220:                                                                                                 #                   A. DISPLAY
011205,001221:                                                                                                 #                       TIME OF EVENT - HOURS , MINUTES , SECONDS
011206,001222:                                                                                                 #                       Y  OUT-OF-PLANE POSITION - NAUTICAL MILES
011207,001223:                                                                                                 #                       YDOT  OUT-OF-PLANE VELOCITY - FEET/SECOND
011208,001224:                                                                                                 #                       PSI  ANGLE BTW LINE OF SIGHT AND FORWARD
011209,001225:                                                                                                 #                            DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011210,001226: 43,3140           02076        V90PERF           TC       TESTXACT                              
011211,001227: 43,3141           34756                          CAF      PRIO7                                 #  R36.V90
011212,001228: 43,3142           05042                          TC       FINDVAC                               
011213,001229: 43,3143  E4,1726                                 EBANK=   RPASS36                               
011214,001230: 43,3143           02746 10104                    2CADR    R36                                   
011215,001231: 43,3145           15112                          TCF      ENDOFJOB                              
011216,001232:                                                                                                 #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
011217,001233: 
011218,001234: 43,3146           05435        VERB96            TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011219,001235: 43,3147           00221                          ADRES    QUITFLAG                              #      AT NEXT TIMESTEP
011220,001236:                                                                                                 # # Page 260
011221,001237: 43,3150           34714                          CAF      ZERO                                  
011222,001238: 43,3151           04574                          TC       POSTJUMP                              
011223,001239: 43,3152           10010                          CADR     V37                                   #  GO TO POO
011224,001240: 
011225,001241: 43,3153  0002751                                 EBANK=   LANDMARK                              
011226,001242: 43,3153           05253        V52               TC       CHECKMM                               #  IS P22 OPERATING
011227,001243: 43,3154           00026                          MM       22         B-14                       
011228,001244: 43,3155           02124                          TC       ALM/END                               #  NO
011229,001245: 43,3156           33173                          CAF      LANDBANK                              
011230,001246: 43,3157           54003                          TS       EBANK                                 
011231,001247: 
011232,001248: 43,3160           44756                          CS       PRIO7                                 #  YES    SET BITS 12,11,10 OF LANDMARK =
011233,001249: 43,3161           71751                          MASK     LANDMARK                              #         BITS 14,13,12 OF MARKSTATE AFTER
011234,001250: 43,3162           55751                          TS       LANDMARK                              #         ADDING 1 TO THEM TO GET OFFSET
011235,001251: 43,3163           31330                          CA       MARKSTAT                              #         MARK NO.
011236,001252: 43,3164           54021                          TS       SR                                    
011237,001253: 43,3165           30021                          CA       SR                                    
011238,001254: 43,3166           30021                          CA       SR                                    
011239,001255: 43,3167           74756                          MASK     PRIO7                                 
011240,001256: 43,3170           64701                          AD       BIT10                                 #  ADD 1,MARKSTAT IS 1 LESS THAN MARK NO.
011241,001257: 43,3171           27751                          ADS      LANDMARK                              
011242,001258: 43,3172           02125                          TC       GOPIN                                 
011243,001259: 43,3173           02751        LANDBANK          ECADR    LANDMARK                              
011244,001260: 
011245,001261: 
011246,001262:                                                                                                 #  VERB 67  ASTRONAUT DISPLAY OF W MATRIX
011247,001263: 
011248,001264: 43,3174           02076        V67               TC       TESTXACT                              
011249,001265: 43,3175           34754                          CAF      PRIO5                                 
011250,001266: 43,3176           05042                          TC       FINDVAC                               
011251,001267: 43,3177  0002400                                 EBANK=   W                                     
011252,001268: 43,3177           03571 60105                    2CADR    V67CALL                               
011253,001269: 43,3201           05112                          TC       ENDOFJOB                              
011254,001270:                                                                                                 #  VB 44.   SET SURFACE FLAG.
011255,001271: 
011256,001272: 43,3202           05435        SETSURF           TC       UPFLAG                                
011257,001273: 43,3203           00177                          ADRES    SURFFLAG                              
011258,001274: 43,3204           12125                          TCF      GOPIN                                 
011259,001275: 
011260,001276: 
011261,001277:                                                                                                 #  VB 45.     RESET SURFACE FLAG.
011262,001278: 
011263,001279: 43,3205           05447        RESTSRF           TC       DOWNFLAG                              
011264,001280: 43,3206           00177                          ADRES    SURFFLAG                              
011265,001281: 43,3207           12125                          TCF      GOPIN                                 

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