Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

010026,000002:                                                                                                  ## Copyright:   Public domain.
010027,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
010028,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.  
010029,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
010030,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
010031,000007:                                                                                                  ## Assembler:   yaYUL
010032,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
010033,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010034,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
010035,000011:                                                                                                  ## Mod history: 2011-01-15 JL   Adapted from corresponding Colossus 249 file.
010036,000012:                                                                                                  ##              2016-12-30 RSB  Proofed comment text using octopus/ProoferComments,
010037,000013:                                                                                                  ##                              and corrected errors found.
010038,000014:                                                                                                  ##              2017-01-13 RSB  Fixed comment errors detected in cross-diff vs
010039,000015:                                                                                                  ##                              Colossus 249.
010040,000016:                                                                                                  ##              2017-01-22 RSB  Back-ported comment error fixes detected in diff'ing
010041,000017:                                                                                                  ##                              Artemis 72 vs Comanche 55.
010042,000018:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
010043,000019:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
010044,000020: 

Page 229

010046,000022: 07,2440                                           BANK     7                                     
010047,000023: 43,2000                                           SETLOC   EXTVERBS                              
010048,000024: 43,2000                                           BANK                                           
010049,000025: 
010050,000026: 43,2000  E5,1757                                  EBANK=   OGC                                   
010051,000027: 
010052,000028: 43,2000                                           COUNT*   $$/EXTVB                              
010053,000029:                                                                                                  #  FAN-OUT
010054,000030: 
010055,000031: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
010056,000032: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
010057,000033: 
010058,000034: 43,2002           02130        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 ONLY).
010059,000035: 43,2003           02154                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010060,000036:                                                                                                  #                                91 ONLY)
010061,000037: 43,2004           02244                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
010062,000038: 43,2005           02416                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
010063,000039: 43,2006           03202                           TC       SETSURF                               #  VB44 SET SURFACE FLAG
010064,000040: 43,2007           03205                           TC       RESTSRF                               #  VB45 RESET SURFACE FLAG
010065,000041: 43,2010           02522                           TC       STABLISH                              #  VB46 ESTABLISH G+C CONTROL.
010066,000042: 43,2011           03100                           TC       LMTOCMSV                              #  VB47 MOVE LM STATE VECTOR INTO CM
010067,000043: 43,2012           02541                           TC       DAPDISP                               #  VB48 LOAD A/P DATA.
010068,000044: 43,2013           12533                           TCF      CREWMANU                              #  VB 49  START AUTOMATIC ATTITUDE MANEUVER
010069,000045: 43,2014           02301                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
010070,000046: 43,2015           02301                           TC       GOLOADLV                              #  VB51 PLEASE MARK
010071,000047: 43,2016           03153                           TC       V52                                   #  VB52 SET OFFSET NO. FOR P22
010072,000048: 43,2017           02301                           TC       GOLOADLV                              #  VB 53 PLEASE PERFORM COAS MARK
010073,000049: 43,2020           02601                           TC       GOTOR23                               #  V54 START R23 (R21-BACKUP)
010074,000050: 43,2021           02332                           TC       ALINTIME                              #  VB55 ALIGN TIME
010075,000051: 43,2022           02642                           TC       TRACKTRM                              #  VB56 TERMINATE TRACKING (P20 +P25)
010076,000052: 43,2023           02576                           TC       GOTOR21                               #  V57 START R21 REND TRACK SIGHT MARK ROUT
010077,000053: 43,2024           02506                           TC       ENATMA                                #  VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
010078,000054: 43,2025           02301                           TC       GOLOADLV                              #  VB59 PLEASE CALIBRATE
010079,000055: 43,2026           02307                           TC       V60                                   #  VB60 SET CPHIX (N17) EQUAL TO CDU
010080,000056: 43,2027           02315                           TC       V61                                   #  VB61 SELECT MODE I
010081,000057: 43,2030           02320                           TC       V62                                   #  VB62 SELECT MODE II, ERROR WRT N22
010082,000058: 43,2031           02325                           TC       V63                                   #  VB63 SELECT MODE III, ERROR WRT N17
010083,000059: 43,2032           02476                           TC       VB64                                  #  VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
010084,000060: 43,2033           02373                           TC       CKOPTVB                               #  V 65 E OPTICAL VERIFICATION FOR PRELAUNC
010085,000061: 43,2034           03032                           TC       ATTACHED                              #  VB 66 ATTACHED. MOVE THIS TO OTHER STATE
010086,000062: 43,2035           03174                           TC       V67                                   #  VB67 W MATRIX MONITOR
010087,000063: 43,2036           02511                           TC       STROKON                               #  VB68 CSM STROKE TEST ON.
010088,000064: 43,2037           02037        VERB69             TC       VERB69                                #  VB 69 CAUSE RESTART
010089,000065: 43,2040           03721                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
010090,000066: 43,2041           03723                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010091,000067: 43,2042           03725                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010092,000068: 43,2043           03727                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
010093,000069: 43,2044           02710                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010094,000070:                                                                                                  #           FOR ERASABLE DUMP.
010095,000071: 43,2045           02714                           TC       LFTFLGON                              #  VB75 SET LIFTOFF FLAG.

Page 230

010097,000073: 43,2046           03013                           TC       SETPRFLG                              #  VB76 SET PREFERRED ATTITUDE FLAG
010098,000074: 43,2047           03016                           TC       RESETPRF                              #  VB77 RESET PREFERRED ATT. FLAG
010099,000075: 43,2050           02404                           TC       CHAZFOGC                              #  CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
010100,000076: 43,2051           03004                           TC       CALLR35                               #  VB79 REQU LUNAR LNDMRK SELECTION (R35)
010101,000077: 43,2052           02702                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
010102,000078: 43,2053           02705                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
010103,000079: 43,2054           02551                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010104,000080: 43,2055           02556                           TC       V83PERF                               #  VB83 RANGE, RANGE RATE, +X AXIS  (R31)
010105,000081: 43,2056           02124                           TC       ALM/END                               #  V84 SPARE
010106,000082: 43,2057           02570                           TC       V85PERF                               #  VB85 RANGE, RANGE RATE, SLOS     (R34)
010107,000083: 43,2060           02635                           TC       V86PERF                               #  VB86 BACKUP MARK REJECT
010108,000084: 43,2061           03021                           TC       SETVHFLG                              #  VB87 SET VHF RANGE FLAG
010109,000085: 43,2062           03025                           TC       RESETVHF                              #  VB88 RESET VHF RANGE FLAG
010110,000086: 43,2063           02734                           TC       V89PERF                               #  V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
010111,000087: 43,2064           03140                           TC       V90PERF                               #  VB90-OUT OF PLANE PARAMETERS %R36"
010112,000088: 43,2065           02751                           TC       GOSHOSUM                              #  VB91 TEMP FOR HYBRID AND STG.
010113,000089: 43,2066           02364                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST
010114,000090: 43,2067           02744                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
010115,000091: 43,2070           03124                           TC       VERB94                                #  VB94 DO R64
010116,000092: 43,2071           02124                           TC       ALM/END                               #  VB95 SPARE
010117,000093: 43,2072           13146                           TCF      VERB96                                #  VB96 SET QUITFLAG TO STOP INTEGRATION
010118,000094: 43,2073           02301                           TC       GOLOADLV                              #  V97 PLEASE PERFORM ENGINE-FAIL (R41)
010119,000095: 43,2074           02124                           TC       ALM/END                               #  VB98 SPARE
010120,000096: 43,2075           02301                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
010121,000097: 
010122,000098:                                                                                                  #  END OF EXTENDED VERB FAN
010123,000099: 
010124,000100: 43,2076           11044        TESTXACT           CCS      EXTVBACT                              
010125,000101: 43,2077           02124                           TC       ALM/END                               #  YES. TURN ON OPERATOR ERROR LIGHT
010126,000102: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIOS USING DSKY
010127,000103: 43,2101           72127                           MASK     OC24100                               
010128,000104: 43,2102           10000                           CCS      A                                     
010129,000105: 43,2103           02124                           TC       ALM/END                               
010130,000106: 
010131,000107: 43,2104           34112                           CAF      OCT24                                 #  SET BITS 3 AND 5
010132,000108: 43,2105           55044        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
010133,000109:                                                                                                  #  SYSTEM BUSY
010134,000110: 
010135,000111: 43,2106           30002                           CA       Q                                     
010136,000112: 43,2107           54155                           TS       MPAC       +1                         
010137,000113: 
010138,000114: 43,2110           34754                           CAF      PRIO5                                 #  ALLOW RELDSP AWAKENED JOB TO FINISH
010139,000115: 43,2111           05103                           TC       PRIOCHNG                              
010140,000116: 43,2112           34371                           CAF      PRIO30                                
010141,000117: 43,2113           05103                           TC       PRIOCHNG                              
010142,000118: 
010143,000119: 43,2114           44711                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
010144,000120: 43,2115           04170                           TC       NVSUB                                 
010145,000121: 43,2116           02117                           TC       +1                                    

Page 231

010147,000123: 43,2117           00155                           TC       MPAC       +1                         
010148,000124: 
010149,000125: 43,2120           04400        XACTALM            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT.
010150,000126: 43,2121           05423                           TC       ENDEXT                                #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
010151,000127: 
010152,000128: 43,2122     5423               TERMEXTV           EQUALS   ENDEXT                                
010153,000129: 43,2122     5423               ENDEXTVB           EQUALS   ENDEXT                                
010154,000130: 
010155,000131: 43,2122           34714        XACT0              CAF      ZERO                                  #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
010156,000132: 43,2123           02105                           TC       SETXTACT                              
010157,000133: 
010158,000134: 43,2124           04400        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
010159,000135: 43,2125           04574        GOPIN              TC       POSTJUMP                              
010160,000136: 43,2126           21176                           CADR     PINBRNCH                              
010161,000137: 
010162,000138: 43,2127           24100        OC24100            OCT      24100                                 
010163,000139: 

Page 232

010165,000141: 
010166,000142:                                                                                                  #           VBZERO       VERB 40            DESCRIPTION
010167,000143:                                                                                                  #               ZERO
010168,000144:                                                                                                  #               1. REQUIRE NOUN 20 (ICDU ANGLES)
010169,000145:                                                                                                  #               2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
010170,000146:                                                                                                  #               3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010171,000147:                                                                                                  #               4. SET EXT VERB DISPLAY ACTIVE FLAG.
010172,000148:                                                                                                  #               5. EXECUTE IMUZERO (ZERO IMU CDU ANGLES).
010173,000149:                                                                                                  #               6. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010174,000150:                                                                                                  #               7. RELEASE EXT. VERB DISPLAY SYSTEM.
010175,000151: 
010176,000152: 43,2130           02142        VBZERO             TC       OP/INERT                              
010177,000153: 43,2131           02133                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
010178,000154: 43,2132           02124                           TC       ALM/END                               #  RETURN HERE IF NOUN = OCDU(91)
010179,000155:                                                                                                  #          (NOT IN USE YET)
010180,000156: 
010181,000157: 43,2133           02275        IMUZEROK           TC       CKMODCAD                              #  KEYBOARD REQUEST FOR ISS CDU ZERO
010182,000158: 43,2134           04555                           TC       BANKCALL                              
010183,000159: 43,2135           16516                           CADR     IMUZERO                               
010184,000160: 
010185,000161: 43,2136           04555                           TC       BANKCALL                              #  STALL
010186,000162: 43,2137           17516                           CADR     IMUSTALL                              
010187,000163: 43,2140           02141                           TC       +1                                    
010188,000164: 
010189,000165: 43,2141           02125                           TC       GOPIN                                 
010190,000166: 
010191,000167: 43,2142           44112        OP/INERT           CS       OCT24                                 
010192,000168: 43,2143           61002                           AD       NOUNREG                               
010193,000169: 43,2144           00006                           EXTEND                                         
010194,000170: 43,2145           12474                           BZF      XACT0Q                                #  IF = 20.
010195,000171: 
010196,000172: 43,2146           24002                           INCR     Q                                     
010197,000173: 43,2147           62153                           AD       OPIMDIFF                              #  -71
010198,000174: 43,2150           00006                           EXTEND                                         
010199,000175: 43,2151           12474                           BZF      XACT0Q                                
010200,000176: 
010201,000177: 43,2152           02124                           TC       ALM/END                               #  ILLEGAL.
010202,000178: 
010203,000179: 43,2153           77670        OPIMDIFF           DEC      -71        B-14                       
010204,000180: 

Page 233

010206,000182: 
010207,000183:                                                                                                  #           VBCOARK      VERB 41             DESCRIPTION
010208,000184:                                                                                                  #               COURSE ALIGN IMU OR OPTICS
010209,000185:                                                                                                  #               1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
010210,000186:                                                                                                  #               2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010211,000187:                                                                                                  #               CASE 1     NOUN 20     (ICDU ANGLES)
010212,000188:                                                                                                  #               3. SET EXT VERB DISPLAY ACTIVE FLAG.
010213,000189:                                                                                                  #               4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010214,000190:                                                                                                  #                  RESPONSES
010215,000191:                                                                                                  #                    A. TERMINATE
010216,000192:                                                                                                  #                       1. RELEASE EXT VERB DISPLAY SYSTEM
010217,000193:                                                                                                  #                    B. PROCEED
010218,000194:                                                                                                  #                       1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
010219,000195:                                                                                                  #                           RESPONSES
010220,000196:                                                                                                  #                             A. TERMINATE
010221,000197:                                                                                                  #                                1. RELEASE EXT VERB DISPLAY SYSTEM.
010222,000198:                                                                                                  #                             B. PROCEED
010223,000199:                                                                                                  #                                1. EXECUTE ICORK2.
010224,000200:                                                                                                  #                             C. ENTER
010225,000201:                                                                                                  #                                1. INCREMENT CDU ANGLES
010226,000202:                                                                                                  #                                2. EXECUTE ICORK2.
010227,000203:                                                                                                  #                    C. ENTER
010228,000204:                                                                                                  #                       1. EXECUTE ICORK2.
010229,000205:                                                                                                  #               ICORK2
010230,000206:                                                                                                  #                  1. RE-DISPLAY VERB 41.
010231,000207:                                                                                                  #                  2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
010232,000208:                                                                                                  #                  3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010233,000209:                                                                                                  #                  4. RELEASE EXT VERB DISPLAY SYSTEM.
010234,000210:                                                                                                  #               CASE 2     NOUN 91     (OCDU ANGLES)
010235,000211:                                                                                                  #               5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
010236,000212:                                                                                                  #                  OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
010237,000213:                                                                                                  #                  AND RELEASE EXT VERB DISPLAY SYSTEM).
010238,000214:                                                                                                  #               6. RESPONSES TO V29,N92.
010239,000215:                                                                                                  #                  A. TERMINATE
010240,000216:                                                                                                  #                     RELEASE EXT VERB DISPLAY SYSTEM
010241,000217:                                                                                                  #                  B. PROCEED OR ENTER
010242,000218:                                                                                                  #                     RE-DISPLAY V41,    SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
010243,000219:                                                                                                  #                     RELEASE EXT VERB DISPLAY SYSTEM.
010244,000220: 
010245,000221: 43,2154           02142        VBCOARK            TC       OP/INERT                              
010246,000222: 43,2155           02157                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU(20)
010247,000223: 43,2156           02201                           TC       OPTCOARK                              #  RETURN HERE IF NOUN = OCDU(91)
010248,000224:                                                                                                  #            RETURN TO L+1 IF NOUN 20 - TO L+2 IF NOUN 91.
010249,000225: 43,2157           02275        IMUCOARK           TC       CKMODCAD                              #  COARSE ALIGN FROM KEYBOARD
010250,000226: 43,2160           02076                           TC       TESTXACT                              
010251,000227: 43,2161           32177                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
010252,000228: 43,2162           04555                           TC       BANKCALL                              
010253,000229: 43,2163           20465                           CADR     GOXDSPF                               
010254,000230: 43,2164           05423                           TC       TERMEXTV                              
010255,000231: 43,2165           12166                           TCF      +1                                    

Page 234

010257,000233: 
010258,000234: 43,2166           32200        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
010259,000235: 43,2167           04555                           TC       BANKCALL                              
010260,000236: 43,2170           20746                           CADR     EXDSPRET                              
010261,000237: 
010262,000238: 43,2171           04555                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
010263,000239: 43,2172           16602                           CADR     IMUCOARS                              
010264,000240: 
010265,000241: 43,2173           04555                           TC       BANKCALL                              #  STALL
010266,000242: 43,2174           17516                           CADR     IMUSTALL                              
010267,000243: 43,2175           05423                           TC       ENDEXTVB                              
010268,000244: 43,2176           05423                           TC       ENDEXTVB                              
010269,000245: 
010270,000246: 43,2177           06226        VNLODCDU           VN       2522                                  
010271,000247: 43,2200           12200        IMUCOARV           VN       4100                                  
010272,000248: 

Page 235

010274,000250: 
010275,000251:                                                                                                  #  TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
010276,000252: 
010277,000253: 43,2201           31323        OPTCOARK           CA       OPTCADR                               
010278,000254: 43,2202           02276                           TC       CKMODCAD   +1                         
010279,000255: 43,2203           02076                           TC       TESTXACT                              
010280,000256: 43,2204           34751                           CAF      EBANK5                                
010281,000257: 43,2205           54003                           TS       EBANK                                 
010282,000258: 
010283,000259: 43,2206           11314                           CCS      SWSAMPLE                              #  SEE IF SWITCH AT COMPUTER
010284,000260: 43,2207           02214                           TC       +5                                    #  SWITCH AT COMPUTER
010285,000261: 43,2210           02211                           TC       +1                                    #  NOT ON COMPUTER
010286,000262: 43,2211           04400                           TC       FALTON                                #  TURN ON OPERATOR ERR
010287,000263: 43,2212           05537                           TC       ALARM                                 #  AND ALARM
010288,000264: 43,2213           00115                           OCT      00115                                 
010289,000265: 
010290,000266: 43,2214           11303                           CCS      OPTIND                                #  SEE IF OPTICS AVAILABLE
010291,000267: 43,2215           02223                           TC       OPTC1                                 #  IN USE
010292,000268: 43,2216           02223                           TC       OPTC1                                 #  IN USE
010293,000269: 43,2217           02223                           TC       OPTC1                                 #  IN USE
010294,000270: 
010295,000271: 43,2220           05537                           TC       ALARM                                 #  OPTICS RESERVED (OPTIND=-0)
010296,000272: 43,2221           00117                           OCT      00117                                 
010297,000273: 43,2222           05423                           TC       ENDEXT                                
010298,000274: 
010299,000275: 43,2223           32243        OPTC1              CAF      VNLD0CDU                              #  VERB-NOUN TO LOAD OPTICS CDUS
010300,000276: 43,2224           04555                           TC       BANKCALL                              
010301,000277: 43,2225           20465                           CADR     GOXDSPF                               
010302,000278: 43,2226           05423                           TC       TERMEXTV                              
010303,000279: 43,2227           02230                           TC       +1                                    #  PROCEED
010304,000280: 
010305,000281: 43,2230           31773                           CA       SAC                                   
010306,000282: 43,2231           55161                           TS       DESOPTS                               
010307,000283: 43,2232           31775                           CA       PAC                                   
010308,000284: 43,2233           55160                           TS       DESOPTT                               
010309,000285: 43,2234           32200                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
010310,000286: 43,2235           04555                           TC       BANKCALL                              
010311,000287: 43,2236           20746                           CADR     EXDSPRET                              
010312,000288: 
010313,000289: 43,2237           34712                           CAF      ONE                                   
010314,000290: 43,2240           55303                           TS       OPTIND                                #  SET COARS WORKING
010315,000291: 
010316,000292: 43,2241           05423                           TC       ENDEXTVB                              
010317,000293: 43,2242           05423                           TC       ENDEXTVB                              
010318,000294: 
010319,000295: 43,2243           06134        VNLD0CDU           VN       2492                                  
010320,000296: 43,2244  43,2200               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
010321,000297: 

Page 236

010323,000299: 
010324,000300:                                                                                                  #           IMUFINEK      VERB 42            DESCRIPTION
010325,000301:                                                                                                  #               FINE ALIGN IMU
010326,000302:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
010327,000303:                                                                                                  #               2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
010328,000304:                                                                                                  #                  RESPONSES
010329,000305:                                                                                                  #                  A. TERMINATE
010330,000306:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYSTEM.
010331,000307:                                                                                                  #                  B. PROCEED OR ENTER
010332,000308:                                                                                                  #                     1. RE-DISPLAY VERB 42
010333,000309:                                                                                                  #                     2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
010334,000310:                                                                                                  #                     3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
010335,000311:                                                                                                  #                        A. FAILED
010336,000312:                                                                                                  #                           1. RELEASE EXT VERB DISPLAY SYSTEM.
010337,000313:                                                                                                  #                        B. GOOD
010338,000314:                                                                                                  #                           1. EXECUTE IMUPULSE (TORQUE IRIGS).
010339,000315:                                                                                                  #                           2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
010340,000316: 
010341,000317: 43,2244           02275        IMUFINEK           TC       CKMODCAD                              #  FINE ALIGN WITH GYRO TORQUING
010342,000318: 43,2245           02076                           TC       TESTXACT                              
010343,000319: 43,2246           32273                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
010344,000320: 43,2247           04555                           TC       BANKCALL                              
010345,000321: 43,2250           20465                           CADR     GOXDSPF                               
010346,000322: 43,2251           05423                           TC       TERMEXTV                              
010347,000323: 43,2252           02253                           TC       +1                                    #  PROCEED WITHOUT A LOAD
010348,000324: 
010349,000325: 43,2253           32274                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
010350,000326: 43,2254           04555                           TC       BANKCALL                              
010351,000327: 43,2255           20746                           CADR     EXDSPRET                              
010352,000328: 
010353,000329: 43,2256           04555                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
010354,000330: 43,2257           17012                           CADR     IMUFINE                               
010355,000331: 
010356,000332: 43,2260           04555                           TC       BANKCALL                              #  HIBERNATION
010357,000333: 43,2261           17516                           CADR     IMUSTALL                              
010358,000334: 43,2262           05423                           TC       ENDEXTVB                              
010359,000335: 
010360,000336: 43,2263           32272        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
010361,000337: 43,2264           04555                           TC       BANKCALL                              
010362,000338: 43,2265           17125                           CADR     IMUPULSE                              
010363,000339: 
010364,000340: 43,2266           04555                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
010365,000341: 43,2267           17516                           CADR     IMUSTALL                              
010366,000342: 43,2270           05423                           TC       ENDEXTVB                              
010367,000343: 43,2271           05423                           TC       ENDEXTVB                              
010368,000344: 
010369,000345: 43,2272           02757        LGYROBIN           ECADR    OGC                                   
010370,000346: 43,2273           06335        VNLODGYR           VN       2593                                  
010371,000347: 43,2274           12400        IMUFINEV           VN       4200                                  #  FINE ALIGN VERB
010372,000348: 
010373,000349: 43,2275           31322        CKMODCAD           CA       MODECADR                              

Page 237

010375,000351: 43,2276           00006                           EXTEND                                         
010376,000352: 43,2277           16711                           BZF      TCQ                                   
010377,000353: 43,2300           02124                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
010378,000354:                                                                                                  #           GOLOADLV     VERB 50            DESCRIPTION
010379,000355:                                                                                                  #                        AND OTHER PLEASE
010380,000356:                                                                                                  #                        DO SOMETHING VERBS
010381,000357:                                                                                                  #               PLEASE PERFORM, MARK, CALIBRATE, ETC.
010382,000358:                                                                                                  #               1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN  PERFORMED, AND THE PROGRAM DOES THE
010383,000359:                                                                                                  #                  SAME RECALL AS A COMPLETED LOAD.
010384,000360:                                                                                                  #               2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
010385,000361: 
010386,000362: 43,2301           04447        GOLOADLV           TC       FLASHOFF                              
010387,000363: 43,2302           34215                           CAF      PINSUPBT                              
010388,000364: 43,2303           00006                           EXTEND                                         
010389,000365: 43,2304           01007                           WRITE    SUPERBNK                              #  TURN ON FE7
010390,000366: 43,2305           04574                           TC       POSTJUMP                              
010391,000367: 43,2306  40,2000                                  SBANK=   PINSUPER                              
010392,000368: 43,2306           62001                           CADR     LOADLV1                               
010393,000369:                                                                                                  #            V60     VERB 60
010394,000370: 
010395,000371: 43,2307           00006        V60                EXTEND                                         #  SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
010396,000372: 43,2310           30033                           DCA      CDUX                                  #  TO PRESENT ATTITUDE
010397,000373: 43,2311           53334                           DXCH     CPHIX                                 
010398,000374: 43,2312           30034                           CA       CDUZ                                  
010399,000375: 43,2313           55335                           TS       CPHIX      +2                         
010400,000376: 43,2314           02125                           TC       GOPIN                                 
010401,000377: 
010402,000378: 
010403,000379:                                                                                                  #            V61     VERB 61
010404,000380: 
010405,000381: 43,2315           05447        V61                TC       DOWNFLAG                              #  SET NEEDLFLG TO 0 (FLAGWRD0,BIT9),PHASE
010406,000382: 43,2316           00006                           ADRES    NEEDLFLG                              #  PLANE A/P FOLLOWING ERROR DISPLAYED
010407,000383: 43,2317           02125                           TC       GOPIN                                 
010408,000384: 
010409,000385: 
010410,000386:                                                                                                  #            V62     VERB 62
010411,000387: 
010412,000388: 43,2320           05435        V62                TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010413,000389: 43,2321           00006                           ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010414,000390: 
010415,000391: 43,2322           05435                           TC       UPFLAG                                #  SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
010416,000392: 43,2323           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ATTITUDE ERROR WRT N22
010417,000393: 43,2324           02125                           TC       GOPIN                                 
010418,000394: 
010419,000395:                                                                                                  #            V63     VERB 63
010420,000396: 
010421,000397: 43,2325           05435        V63                TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010422,000398: 43,2326           00006                           ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010423,000399: 
010424,000400: 43,2327           05447                           TC       DOWNFLAG                              #  SET N22ORN17 TO 0 (FLAGWRD9,BIT6,

Page 238

010426,000402: 43,2330           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR
010427,000403: 43,2331           02125                           TC       GOPIN                                 
010428,000404: 

Page 239

010430,000406: 
010431,000407:                                                                                                  #           ALINTIME     VERB 55            DESCRIPTION
010432,000408:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
010433,000409:                                                                                                  #               2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
010434,000410:                                                                                                  #               3. REQUIRE EXECUTION OF VERB 23.
010435,000411:                                                                                                  #               4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
010436,000412:                                                                                                  #               5. RELEASE EXT VERB DISPLAY SYSTEM
010437,000413: 
010438,000414: 43,2332                                           COUNT    04/R33                                
010439,000415: 
010440,000416: 43,2332           02076        ALINTIME           TC       TESTXACT                              
010441,000417: 
010442,000418: 43,2333           32363                           CAF      VNLODDT                               
010443,000419: 43,2334           04555                           TC       BANKCALL                              
010444,000420: 43,2335           20465                           CADR     GOMARKF                               
010445,000421: 43,2336           05423                           TC       ENDEXT                                #  TERMINATE
010446,000422: 43,2337           05423                           TC       ENDEXT                                #  PROCEED
010447,000423: 43,2340           42362                           CS       DEC23                                 #  DATA IN OR RESEQUENCE(UNLIKELY)
010448,000424: 43,2341           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
010449,000425: 43,2342           00006                           EXTEND                                         
010450,000426: 43,2343           12345                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
010451,000427: 43,2344           05423                           TC       ENDEXT                                #    WITH V23 (DATA IN).
010452,000428: 43,2345           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
010453,000429: 43,2346           34714                           CAF      ZERO                                  
010454,000430: 43,2347           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
010455,000431: 43,2350           54001                           TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
010456,000432: 43,2351           52025                           DXCH     TIME2                                 
010457,000433: 43,2352           52155                           DXCH     MPAC                                  
010458,000434: 43,2353           53052                           DXCH     DSPTEM2    +1                         #  INCREMENT
010459,000435: 43,2354           20155                           DAS      MPAC                                  
010460,000436: 
010461,000437: 43,2355           07226                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
010462,000438: 43,2356           52155                           DXCH     MPAC                                  #  NEW CLOCK.
010463,000439: 43,2357           20025                           DAS      TIME2                                 
010464,000440: 43,2360           00003                           RELINT                                         
010465,000441: 43,2361           05423        UPDTMEND           TC       ENDEXT                                
010466,000442: 43,2362           00027        DEC23              DEC      23         B-14                       #  V 23
010467,000443: 
010468,000444: 43,2363           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
010469,000445: 

Page 240

010471,000447: 
010472,000448:                                                                                                  #           SYSTEST       VERB 92            DESCRIPTION
010473,000449:                                                                                                  #               OPERATE SELECTED SYSTEM TEST
010474,000450:                                                                                                  #               1. REQUIRE POO OR POO- OR TURN ON OPERATOR ERROR.
010475,000451:                                                                                                  #               2. TURN OFF DAP IF IT IS ON.
010476,000452:                                                                                                  #               3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17).
010477,000453:                                                                                                  #               4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20.
010478,000454:                                                                                                  #               TSELECT
010479,000455:                                                                                                  #                  1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND
010480,000456:                                                                                                  #                     REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE)
010481,000457: 
010482,000458: 43,2364  E5,1425                                  EBANK=   QPLACE                                
010483,000459: 
010484,000460: 43,2364                                           COUNT    04/EXTVB                              
010485,000461: 
010486,000462: 43,2364           02717        SYSTEST            TC       CHKPOOH                               
010487,000463: 43,2365           02723                           TC       EXDAPOFF                              
010488,000464: 43,2366           34675                           CAF      PRIO20                                
010489,000465: 43,2367           05042                           TC       FINDVAC                               
010490,000466: 43,2370  E5,1425                                  EBANK=   QPLACE                                
010491,000467: 43,2370  30,2000                                  SBANK=   IMUSUPER                              
010492,000468: 43,2370           02002 66065                     2CADR    REDO                                  
010493,000469: 
010494,000470: 43,2372           02125                           TC       GOPIN                                 
010495,000471: 
010496,000472: 
010497,000473:                                                                                                  #  REDO AND TSELECT ARE NOW IN SYSTEM TEST.              
010498,000474: 
010499,000475: 43,2373                                           COUNT*   $$/EXTVB                              
010500,000476:                                                                                                  #           CKOPTVB     VERB 65             DESCRIPTION
010501,000477:                                                                                                  #               OPTICAL VERIFICATION FOR PRELAUNCH.
010502,000478:                                                                                                  #               1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
010503,000479: 
010504,000480: 43,2373           05253        CKOPTVB            TC       CHECKMM                               
010505,000481: 43,2374           00002                           MM       02         B-14                       #  I WONDER IF PRELAUNCH IS RUNNING
010506,000482: 43,2375           02124                           TC       ALM/END                               #  NOT RUNNING OPERATOR ERROR
010507,000483: 43,2376           00004                           INHINT                                         
010508,000484: 43,2377           34763                           CAF      PRIO16                                #   PRELAUNCH OPTICAL VERIFICATION
010509,000485: 43,2400           05042                           TC       FINDVAC                               
010510,000486: 43,2401  E5,1425                                  EBANK=   QPLACE                                
010511,000487: 43,2401           02000 66065                     2CADR    COMPVER                               #  STANDARD LEADIN TO GCOMPVER.
010512,000488: 43,2403           02125                           TC       GOPIN                                 
010513,000489: 
010514,000490: 
010515,000491:                                                                                                  #  V 78 ....         TO CHANGE GYROCOMPASS AZIMUTH
010516,000492: 
010517,000493: 43,2404           05253        CHAZFOGC           TC       CHECKMM                               #  IS IT PRELAUNCH
010518,000494: 43,2405           00002                           MM       02         B-14                       
010519,000495: 43,2406           02124                           TC       ALM/END                               #  NO - OPERA TOR ERROR

Page 241

010521,000497: 43,2407           34763                           CAF      PRIO16                                #  PRELAUNCH AZIMUTH CHANGE
010522,000498: 43,2410           05042                           TC       FINDVAC                               
010523,000499: 43,2411  E5,1671                                  EBANK=   XSM                                   
010524,000500: 43,2411           03737 66065                     2CADR    AZMTHCG1                              
010525,000501: 43,2413           05301                           TC       PHASCHNG                              
010526,000502: 43,2414           00174                           OCT      00174                                 
010527,000503: 43,2415           02125                           TC       GOPIN                                 
010528,000504: 

Page 242

010530,000506: 
010531,000507:                                                                                                  #           IMUATTCK     VERB 43            DESCRIPTION
010532,000508:                                                                                                  #               LOAD IMU ATTITUDE ERROR METERS
010533,000509:                                                                                                  #               1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
010534,000510:                                                                                                  #               2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED  REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
010535,000511:                                                                                                  #                  FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
010536,000512:                                                                                                  #               3.  REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
010537,000513:                                                                                                  #               4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010538,000514:                                                                                                  #               5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
010539,000515:                                                                                                  #                  TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
010540,000516:                                                                                                  #               6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
010541,000517: 
010542,000518: 43,2416           02717        IMUATTCK           TC       CHKPOOH                               
010543,000519: 
010544,000520: 43,2417           32475                           CAF      OCTAL30                               #  CHECK IF IMU ZERO AND IMU COARSE ARE ON
010545,000521: 43,2420           00006                           EXTEND                                         
010546,000522: 43,2421           02012                           RAND     CHAN12                                
010547,000523: 43,2422           10000                           CCS      A                                     
010548,000524: 43,2423           12124                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010549,000525: 
010550,000526: 43,2424           02463                           TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
010551,000527: 43,2425           02076                           TC       TESTXACT                              #  AFTER
010552,000528: 43,2426           44726                           CS       OCT50                                 #  REMOVE COARSE AND ECTR ENABLE.
010553,000529: 43,2427           00006                           EXTEND                                         
010554,000530: 43,2430           03012                           WAND     CHAN12                                
010555,000531: 
010556,000532: 43,2431           32177                           CAF      VNLODCDU                              
010557,000533: 43,2432           04555                           TC       BANKCALL                              
010558,000534: 43,2433           20465                           CADR     GOXDSPF                               
010559,000535: 43,2434           12450                           TCF      TRMATTCK                              
010560,000536: 43,2435           02436                           TC       +1                                    
010561,000537: 43,2436           34752                           CAF      EBANK6                                
010562,000538: 43,2437           54003                           TS       EBANK                                 #  SET E6 FOR NEEDLES.
010563,000539: 
010564,000540: 43,2440  E6,1476                                  EBANK=   AK                                    
010565,000541: 
010566,000542: 43,2440           04555                           TC       BANKCALL                              #  INITIALIZE CURRENT DAC AND
010567,000543: 43,2441           42427                           CADR     NEEDLE11                              #  COMMAND VALUES
010568,000544: 
010569,000545: 43,2442           04555                           TC       BANKCALL                              #  ENABLE ERROR COUNTERS.
010570,000546: 43,2443           42446                           CADR     NEEDLER2                              
010571,000547: 
010572,000548: 43,2444           34711                           CAF      TWO                                   #  4 MS MIN.
010573,000549: 43,2445           05140                           TC       WAITLIST                              
010574,000550: 43,2446  E6,1476                                  EBANK=   AK                                    
010575,000551: 43,2446           02453 66106                     2CADR    ATTCK1                                
010576,000552: 43,2450           02463        TRMATTCK           TC       CKLFTBTS                              #  IS IT BEFORE OR AFRER LIFTOFF
010577,000553: 43,2451           15423                           TCF      ENDEXT                                #  AFTER
010578,000554: 43,2452           02125                           TC       GOPIN                                 

Page 243

010580,000556: 43,2453           00006        ATTCK1             EXTEND                                         #  TRANSFER LOADED VALUES TO DESIRED REGS.
010581,000557: 43,2454           31156                           DCA      THETAD                                
010582,000558: 43,2455           53477                           DXCH     AK                                    
010583,000559: 43,2456           31157                           CAE      THETAD     +2                         
010584,000560: 43,2457           55500                           TS       AK         +2                         
010585,000561: 
010586,000562: 43,2460           04633                           TC       IBNKCALL                              #  SENDS COMMANDS LIMITED TO +,- 384 PULSES
010587,000563: 43,2461           42462                           CADR     NEEDLES                               #  AND LEAVES ERROR COUNTERS ENABLED.
010588,000564: 
010589,000565: 43,2462           05213                           TC       TASKOVER                              
010590,000566: 
010591,000567: 43,2463           34706        CKLFTBTS           CAF      BIT5                                  #  HAS LIFTOFF OCCURRED
010592,000568: 43,2464           70101                           MASK     FLAGWRD5                              
010593,000569: 43,2465           10000                           CCS      A                                     
010594,000570: 43,2466           00002                           TC       Q                                     #  YES
010595,000571: 43,2467           34706                           CAF      BIT5                                  
010596,000572: 43,2470           00006                           EXTEND                                         
010597,000573: 43,2471           02030                           RAND     CHAN30                                
010598,000574: 43,2472           10000                           CCS      A                                     
010599,000575: 43,2473           16706                           TCF      Q+1                                   
010600,000576: 43,2474           00002        XACT0Q             TC       Q                                     #  YES
010601,000577: 
010602,000578: 43,2475           00030        OCTAL30            OCT      30                                    
010603,000579: 43,2476           02717        VB64               TC       CHKPOOH                               #  DEMAND PROGRAM 00.
010604,000580: 43,2477           02076                           TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
010605,000581: 43,2500           00004                           INHINT                                         
010606,000582: 43,2501           34677                           CAF      PRIO4                                 
010607,000583: 43,2502           05042                           TC       FINDVAC                               
010608,000584: 43,2503  E4,1720                                  EBANK=   RHOSB                                 
010609,000585: 43,2503           03565 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
010610,000586: 43,2505           05112                           TC       ENDOFJOB                              
010611,000587: 
010612,000588:                                                                                                  #           ENATMA     VERB 58              DESCRIPTION
010613,000589:                                                                                                  #               ENABLE AUTOMATIC ATTITUDE MANEUVER
010614,000590: 
010615,000591:                                                                                                  #      VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT- 
010616,000592:                                                                                                  #      IVITY.
010617,000593: 
010618,000594: 43,2506           05447        ENATMA             TC       DOWNFLAG                              #  RESET STIKFLAG.
010619,000595: 43,2507           00020                           ADRES    STIKFLAG                              #  BIT 14 FLAG 1
010620,000596: 43,2510           02125                           TC       GOPIN                                 
010621,000597: 
010622,000598: 
010623,000599:                                                                                                  #           STROKON     VERB 68             DESCRIPTION
010624,000600:                                                                                                  #               STROKE TEST SETUP/ENABLE
010625,000601:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG
010626,000602:                                                                                                  #               2. SCHEDULE STRKTST1 WITH PRIORITY 30.
010627,000603:                                                                                                  #               3. RELEASE EXT VERB DISPLAY.

Page 244

010629,000605: 43,2511  E6,1635                                  EBANK=   T5TVCDT                               
010630,000606: 43,2511           40102        STROKON            CS       FLAGWRD6                              #  V68    PERMITTED ONLY DURING TVC
010631,000607: 43,2512           74105                           MASK     OCT60000                              
010632,000608: 43,2513           00006                           EXTEND                                         
010633,000609: 43,2514           62124                           BZMF     ALM/END                               #  NOT TVC....FLASH OP ERROR LIGHT
010634,000610: 43,2515           34371                           CAF      PRIO30                                #  JOB REQUEST, TO SET UP STROKE TEST,
010635,000611: 43,2516           05027                           TC       NOVAC                                 #       INCLUDING INITIALIZATIONS
010636,000612: 43,2517  E6,1614                                  EBANK=   STROKER                               
010637,000613: 43,2517           03431 40106                     2CADR    STRKTSTI                              
010638,000614: 43,2521           02125                           TC       GOPIN                                 
010639,000615: 
010640,000616: 
010641,000617:                                                                                                  #           STABLISH     VERB 46            DESCRIPTION
010642,000618:                                                                                                  #               ESTABLISH G AND N CONTROL
010643,000619:                                                                                                  #        1. IF TVC DAP IS ON, ALARM AND RETURN OTHERWISE REQUIRE EXT VERB DISPLAY SYSTEM
010644,000620:                                                                                                  #                  AVAILABLE, SET BUSY FLAG AND GO TO DAPFIG TO DETERMINE VEHICLE CONFIGURATION.
010645,000621: 
010646,000622: 43,2522           40102        STABLISH           CS       FLAGWRD6                              #  VB 46
010647,000623: 43,2523           74105                           MASK     OCT60000                              #  NOT PERMITTED WHEN TVC DAP IS ON.
010648,000624: 43,2524           00006                           EXTEND                                         
010649,000625: 43,2525           62527                           BZMF     +2                                    
010650,000626: 43,2526           02124                           TC       ALM/END                               
010651,000627: 43,2527           34752                           CAF      EBANK6                                #  SET EBANK TO E6
010652,000628: 43,2530           54003                           TS       EBANK                                 
010653,000629: 43,2531           04574                           TC       POSTJUMP                              
010654,000630: 43,2532           65521                           CADR     DAPFIG                                
010655,000631: 

Page 245

010657,000633: 
010658,000634:                                                                                                  #           CREWMANU     VERB 49            DESCRIPTION
010659,000635:                                                                                                  #               START AUTOMATIC ATTITUDE MANEUVER
010660,000636:                                                                                                  #               1. REQUIRE PROGRAM 00 ACTIVE.
010661,000637:                                                                                                  #               2. SET EXT VERB DISPLAY BUSY FLAG.
010662,000638:                                                                                                  #               3. SCHEDULE R62DISP WITH PRIORITY 10.
010663,000639:                                                                                                  #               4. RELEASE EXT VERB DISPLAY.
010664,000640: 
010665,000641:                                                                                                  #             R62DISP
010666,000642:                                                                                                  #               1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
010667,000643:                                                                                                  #                  4 FOR RESTART OF DISPLAY SEQUENCE.
010668,000644:                                                                                                  #                  RESPONSES
010669,000645:                                                                                                  #                  A. TERMINATE
010670,000646:                                                                                                  #                     1. GO TO GOTOPOOH.
010671,000647:                                                                                                  #                  B. PROCEED
010672,000648:                                                                                                  #                     1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010673,000649:                                                                                                  #                     2. EXECUTE R60CSM (ATTITUDE MANEUVER).
010674,000650:                                                                                                  #                     3. ZERO GROUP 4 (END R62).
010675,000651:                                                                                                  #                  C. ENTER
010676,000652:                                                                                                  #                     1. REPEAT FLASHING V06,N22.
010677,000653: 
010678,000654: 43,2533           02717        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
010679,000655: 
010680,000656: 43,2534           02076                           TC       TESTXACT                              
010681,000657: 
010682,000658: 43,2535           34676                           CAF      PRIO10                                
010683,000659: 43,2536           05042                           TC       FINDVAC                               
010684,000660: 43,2537     1155                                  EBANK=   CPHI                                  
010685,000661: 43,2537           02330 56102                     2CADR    R62DISP                               
010686,000662: 

Page 246

010688,000664: 
010689,000665:                                                                                                  #           DAPDISP      VERB 48             DESCRIPTION
010690,000666:                                                                                                  #               LOAD AUTOPILOT DATA (ROUTINE R03)
010691,000667:                                                                                                  #               0. CHECKFAIL AND RETURN IF TVC.
010692,000668:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010693,000669:                                                                                                  #               2. LOWER PRIORITY TO 10.
010694,000670:                                                                                                  #               3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
010695,000671:                                                                                                  #               4. UPON PROCEED RESPONSE, EXECUTE S41.2.
010696,000672:                                                                                                  #               5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010697,000673:                                                                                                  #               6. UPON PROCEED RESPONSE EXECUTE S40.14.
010698,000674:                                                                                                  #               7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010699,000675:                                                                                                  #               8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
010700,000676: 43,2541                                           COUNT*   $$/EXTVB                              
010701,000677: 43,2541           40102        DAPDISP            CS       FLAGWRD6                              
010702,000678: 43,2542           74105                           MASK     OCT60000                              
010703,000679: 43,2543           00006                           EXTEND                                         
010704,000680: 43,2544           62546                           BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010705,000681: 43,2545           02124                           TC       ALM/END                               #  RETURN IF TVC
010706,000682: 
010707,000683: 43,2546           02076                           TC       TESTXACT                              
010708,000684: 43,2547           04555                           TC       BANKCALL                              
010709,000685: 43,2550           64000                           CADR     DAPDISP1                              
010710,000686: 42,2000                                           BANK     42                                    
010711,000687: 42,2000                                           SETLOC   EXTVBS                                
010712,000688: 42,2000                                           BANK                                           
010713,000689: 42,2000                                           COUNT    24/R03                                
010714,000690: 
010715,000691: 42,2000           34752        DAPDISP1           CAF      EBANK6                                
010716,000692: 42,2001           54003                           TS       EBANK                                 
010717,000693: 
010718,000694: 42,2002           34676                           CAF      PRIO10                                
010719,000695: 42,2003           05103                           TC       PRIOCHNG                              
010720,000696: 
010721,000697: 42,2004           32061        DONOUN46           CAF      V04N46                                #     R1         R2
010722,000698: 42,2005           04555                           TC       BANKCALL                              #   DAPDATR1   DAPDATR2
010723,000699: 42,2006           20465                           CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010724,000700: 
010725,000701: 42,2007           05423                           TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010726,000702: 42,2010           02012                           TC       +2                                    
010727,000703: 42,2011           02004                           TC       DONOUN46                              
010728,000704: 
010729,000705: 42,2012           31466                           CA       DAPDATR1                              
010730,000706: 42,2013           74707                           MASK     BIT4                                  
010731,000707: 42,2014           10000                           CCS      A                                     
010732,000708: 42,2015           12054                           TCF      MAXIN                                 
010733,000709: 42,2016           05447                           TC       DOWNFLAG                              
010734,000710: 42,2017           00212                           ADRES    MAXDBFLG                              
010735,000711: 42,2020           04555        MAXOUT             TC       BANKCALL                              
010736,000712: 42,2021           40145                           CADR     S41.2                                 
010737,000713: 
010738,000714: 42,2022           32060        DONOUN47           CAF      V06N47                                #     R1         R2         R3

Page 247

010740,000716: 42,2023           04555                           TC       BANKCALL                              #  CSM WGT.   LEM WGT.     BLANK
010741,000717: 42,2024           20465                           CADR     GOXDSPF                               
010742,000718: 
010743,000719: 42,2025           05423                           TC       ENDEXT                                
010744,000720: 42,2026           02030                           TC       +2                                    
010745,000721: 42,2027           02022                           TC       DONOUN47                              
010746,000722: 42,2030           31466                           CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
010747,000723: 42,2031           74371                           MASK     PRIO30                                #  CONFIG = 1(CSM), 2(CSM/LM), 6(CSM/LMA)
010748,000724: 42,2032           00006                           EXTEND                                         
010749,000725: 42,2033           12046                           BZF      DONOUN48                              #  SKIP IF 0, 4
010750,000726: 42,2034           40000                           COM                                            
010751,000727: 42,2035           74371                           MASK     PRIO30                                
010752,000728: 42,2036           00006                           EXTEND                                         
010753,000729: 42,2037           12046                           BZF      DONOUN48                              #  SKIP IF 3, 7
010754,000730: 42,2040           00004                           INHINT                                         
010755,000731: 42,2041           04633                           TC       IBNKCALL                              
010756,000732: 42,2042           13176                           CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLX
010757,000733: 
010758,000734: 42,2043           00003                           RELINT                                         
010759,000735: 42,2044           04555                           TC       BANKCALL                              
010760,000736: 42,2045           40276                           CADR     S40.14                                #  COMPUTE RCS DAP STUFF
010761,000737: 
010762,000738: 42,2046           32057        DONOUN48           CAF      V0648                                 #     R1         R2         R3
010763,000739: 42,2047           04555                           TC       BANKCALL                              #    PTRIM      YTRIM      BLANK
010764,000740: 42,2050           20465                           CADR     GOXDSPF                               
010765,000741: 
010766,000742: 42,2051           05423                           TC       ENDEXT                                
010767,000743: 42,2052           05423                           TC       ENDEXT                                
010768,000744: 42,2053           02046                           TC       DONOUN48                              
010769,000745: 
010770,000746: 42,2054           05435        MAXIN              TC       UPFLAG                                
010771,000747: 42,2055           00212                           ADRES    MAXDBFLG                              
010772,000748: 42,2056           02020                           TC       MAXOUT                                
010773,000749: 
010774,000750: 42,2057           01460        V0648              VN       0648                                  
010775,000751: 42,2060           01457        V06N47             VN       0647                                  
010776,000752: 42,2061           01056        V04N46             VN       0446                                  
010777,000753: 43,2551                                           BANK     43                                    
010778,000754: 43,2000                                           SETLOC   EXTVERBS                              
010779,000755: 43,2000                                           BANK                                           
010780,000756: 
010781,000757: 43,2551                                           COUNT*   $$/EXTVB                              
010782,000758:                                                                                                  #           V82PERF     VERB82              DESCRIPTION
010783,000759:                                                                                                  #               REQUEST ORBIT PARAMETERS DISPLAY (R30)
010784,000760:                                                                                                  #  1. IF AVERAGE G IS OFF:
010785,000761:                                                                                                  #           FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010786,000762:                                                                                                  #            TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
010787,000763:                                                                                                  #            CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
010788,000764:                                                                                                  #           SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010789,000765:                                                                                                  #           CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE

Page 248

010791,000767:                                                                                                  #            RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
010792,000768:                                                                                                  #            HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010793,000769:                                                                                                  #            HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
010794,000770:                                                                                                  #            INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010795,000771:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
010796,000772:                                                                                                  #            NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010797,000773:                                                                                                  #            ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010798,000774:                                                                                                  #            DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010799,000775:                                                                                                  #            ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010800,000776: 
010801,000777:                                                                                                  #  2. IF AVERAGE G IS ON:
010802,000778:                                                                                                  #           CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
010803,000779:                                                                                                  #            FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
010804,000780:                                                                                                  #            OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010805,000781:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010806,000782:                                                                                                  #           IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010807,000783:                                                                                                  #            RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010808,000784: 
010809,000785: 
010810,000786:                                                                                                  #  ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
010811,000787:                                                                                                  #            ABOVE REMARKS.
010812,000788: 43,2551           02076        V82PERF            TC       TESTXACT                              
010813,000789: 43,2552           34756                           CAF      PRIO7                                 
010814,000790: 43,2553           05103                           TC       PRIOCHNG                              
010815,000791: 43,2554           04574                           TC       POSTJUMP                              
010816,000792: 43,2555           46332                           CADR     V82CALL                               #  ***** V82CALL MUST NOT BE A FINDVAC JOB.
010817,000793: 
010818,000794:                                                                                                  #           VB83PERF      VERB 83            DESCRIPTION
010819,000795:                                                                                                  #               REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010820,000796:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
010821,000797:                                                                                                  #               2. SCHEDULE V83CALL WITH PRIORITY 10.
010822,000798:                                                                                                  #                  A. DISPLAY
010823,000799:                                                                                                  #                      R1  RANGE
010824,000800:                                                                                                  #                      R2  RANGE RATE
010825,000801:                                                                                                  #                      R3  THETA
010826,000802: 
010827,000803: 43,2556           02076        V83PERF            TC       TESTXACT                              
010828,000804: 43,2557           00004                           INHINT                                         
010829,000805: 43,2560           40105                           CS       FLAGWRD9                              #  SET R31 FLAG-BIT 4 FLAGWRD9
010830,000806: 43,2561           74707                           MASK     BIT4                                  
010831,000807: 43,2562           26105                           ADS      FLAGWRD9                              
010832,000808: 43,2563           34754                           CAF      PRIO5                                 
010833,000809: 43,2564           05027                           TC       NOVAC                                 
010834,000810: 43,2565  E4,1770                                  EBANK=   SUBEXIT                               
010835,000811: 43,2565           03150 72064                     2CADR    R31CALL                               
010836,000812: 43,2567           05112                           TC       ENDOFJOB                              
010837,000813: 

Page 249

010839,000815: 43,2570           02076        V85PERF            TC       TESTXACT                              
010840,000816: 43,2571           00004                           INHINT                                         
010841,000817: 43,2572           44707                           CS       BIT4                                  #  RESET R31 FLAG TO INDICATE R34
010842,000818: 43,2573           70105                           MASK     FLAGWRD9                              
010843,000819: 43,2574           54105                           TS       FLAGWRD9                              
010844,000820: 43,2575           02563                           TC       V83PERF    +5                         
010845,000821: 

Page 250

010847,000823: 
010848,000824:                                                                                                  #           GOTOR21  VERB 57
010849,000825:                                                                                                  #           GOTOR23- VERB 54  DESCRIPTION
010850,000826:                                                                                                  #      SET UP MARKING FOR R22(REND TRACK DATA PROC)
010851,000827:                                                                                                  #      1. SET EXT VERB DISPLAY BUSY FLAG
010852,000828:                                                                                                  #      2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
010853,000829:                                                                                                  #         SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
010854,000830:                                                                                                  #      3. RELEASE EXT VERB DISPLAY SYSTEM
010855,000831: 43,2576           05447        GOTOR21            TC       DOWNFLAG                              #  CLEAR R23FLG
010856,000832: 43,2577           00025                           ADRES    R23FLG                                #  BIT 9  FLAG 1
010857,000833: 43,2600           02603                           TC       +3                                    
010858,000834: 43,2601           05435        GOTOR23            TC       UPFLAG                                #  SET R23FLG
010859,000835: 43,2602           00025                           ADRES    R23FLG                                #  BIT 9  FLAG 1
010860,000836: 43,2603           02076                           TC       TESTXACT                              
010861,000837: 43,2604           30074                           CA       FLAGWRD0                              #  VB 57 UNNACCEPTABLE UNLESS BOTH
010862,000838: 43,2605           74704                           MASK     BIT7                                  #        RENDEZVOUS AND TRACK FLAGS ON
010863,000839: 43,2606           00006                           EXTEND                                         
010864,000840: 43,2607           12632                           BZF      R22ALARM                              
010865,000841: 
010866,000842: 43,2610           30075                           CA       FLAGWRD1                              
010867,000843: 43,2611           74706                           MASK     BIT5                                  
010868,000844: 43,2612           00006                           EXTEND                                         
010869,000845: 43,2613           12632                           BZF      R22ALARM                              
010870,000846: 
010871,000847: 43,2614           30075                           CA       FLAGWRD1                              #  TEST R23FLG
010872,000848: 43,2615           74702                           MASK     BIT9                                  
010873,000849: 43,2616           00006                           EXTEND                                         
010874,000850: 43,2617           12625                           BZF      REGR21                                #  R21
010875,000851: 43,2620           34763                           CAF      PRIO16                                
010876,000852: 43,2621           05027                           TC       NOVAC                                 
010877,000853: 43,2622  E7,1725                                  EBANK=   MRKBUF1                               
010878,000854: 43,2622           02447 76067                     2CADR    R23CSM                                
010879,000855: 43,2624           05112                           TC       ENDOFJOB                              
010880,000856: 43,2625           34763        REGR21             CAF      PRIO16                                
010881,000857: 43,2626           05027                           TC       NOVAC                                 
010882,000858: 43,2627  E7,1725                                  EBANK=   MRKBUF1                               
010883,000859: 43,2627           02445 76067                     2CADR    R21CSM                                
010884,000860: 43,2631           05112                           TC       ENDOFJOB                              
010885,000861: 43,2632           05537        R22ALARM           TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
010886,000862: 43,2633           00406                           OCT      00406                                 #    NOR TRACK FLAG WERE ON.
010887,000863: 43,2634           05423                           TC       ENDEXT                                
010888,000864: 

Page 251

010890,000866:                                                                                                  #           VERB 86    DESCRIPTION
010891,000867:                                                                                                  #             V86 IS TO R23 AS MARK REJECT IS TO R21
010892,000868:                                                                                                  #             V86 IS THE MARK REJECT FOR R23(THE BACKUP MARKING ROUTINE)
010893,000869: 43,2635  E7,1725                                  EBANK=   MRKBUF1                               
010894,000870: 43,2635           34753        V86PERF            CAF      EBANK7                                #  BACKUP MARK REJECT (R23)
010895,000871: 43,2636           56003                           XCH      EBANK                                 
010896,000872: 43,2637           37716                           CA       NEGONE                                
010897,000873: 43,2640           55725                           TS       MRKBUF1                               
010898,000874: 43,2641           02125                           TC       GOPIN                                 
010899,000875: 

Page 252

010901,000877: 
010902,000878:                                                                                                  #           TRACKTRM     VERB 56            DESCRIPTION
010903,000879:                                                                                                  #               TERMINATE TRACKING (P20)
010904,000880:                                                                                                  #               1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
010905,000881:                                                                                                  #               2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
010906,000882:                                                                                                  #               3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
010907,000883:                                                                                                  #               4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
010908,000884:                                                                                                  #               3. KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
010909,000885:                                                                                                  #               4. GO TO ENEMA (SOFTWARE RESTART).
010910,000886:                                                                                                  #               REFERENCE
010911,000887:                                                                                                  #                  P20 RENDEZVOUS  NAVIGATION.
010912,000888:                                                                                                  #                  R21 RENDEZVOUS  TRACKING SIGHTING MARK.
010913,000889:                                                                                                  #                  R22 RENDEZVOUS  TRACKING DATA PROCESSING.
010914,000890: 
010915,000891: 43,2642           34704        TRACKTRM           CA       BIT7                                  #  IS REND FLAG ON
010916,000892: 43,2643           70074                           MASK     FLAGWRD0                              
010917,000893: 43,2644           00006                           EXTEND                                         
010918,000894: 43,2645           12125                           BZF      GOPIN                                 #  NO
010919,000895: 
010920,000896: 43,2646           05447                           TC       DOWNFLAG                              
010921,000897: 43,2647           00010                           ADRES    RNDVZFLG                              
010922,000898: 
010923,000899: 43,2650           34706                           CA       BIT5                                  #  IS TRACK FLAG ON
010924,000900: 43,2651           70075                           MASK     FLAGWRD1                              
010925,000901: 43,2652           00006                           EXTEND                                         
010926,000902: 43,2653           12125                           BZF      GOPIN                                 #  NO
010927,000903: 
010928,000904: 43,2654           05447                           TC       DOWNFLAG                              
010929,000905: 43,2655           00031                           ADRES    TRACKFLG                              
010930,000906: 
010931,000907: 43,2656           05447                           TC       DOWNFLAG                              
010932,000908: 43,2657           00027                           ADRES    UPDATFLG                              
010933,000909: 
010934,000910: 43,2660           05447                           TC       DOWNFLAG                              
010935,000911: 43,2661           00007                           ADRES    IMUSE                                 
010936,000912: 
010937,000913: 43,2662           34752                           CAF      EBANK6                                
010938,000914: 43,2663           54003                           TS       EBANK                                 
010939,000915: 
010940,000916: 43,2664           04555                           TC       BANKCALL                              
010941,000917: 43,2665           45245                           CADR     STOPRATE                              
010942,000918: 
010943,000919: 43,2666           37716                           CAF      NEGONE                                
010944,000920: 43,2667           55303                           TS       OPTIND                                
010945,000921: 
010946,000922: 43,2670           06006                           TC       INTPRET                               
010947,000923: 43,2671           77624                           CALL                                           
010948,000924: 43,2672           27371                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
010949,000925: 43,2673           77776                           EXIT                                           
010950,000926: 43,2674           05261                           TC       2PHSCHNG                              

Page 253

010952,000928: 43,2675           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
010953,000929: 43,2676           00001                           OCT      1                                     #  ALSO KILL GROUP 1
010954,000930: 
010955,000931: 43,2677           00004        CLEANOUT           INHINT                                         
010956,000932: 43,2700           04574                           TC       POSTJUMP                              
010957,000933: 43,2701           12632                           CADR     ENEMA                                 #  CAUSE RESTART
010958,000934: 
010959,000935:                                                                                                  #           LEMVEC     VERB 80              DESCRIPTION
010960,000936:                                                                                                  #               UPDATE LEM STATE VECTOR
010961,000937:                                                                                                  #                  RESET VEHUPFLG TO 0
010962,000938: 
010963,000939: 43,2702           05447        LEMVEC             TC       DOWNFLAG                              
010964,000940: 43,2703           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
010965,000941: 
010966,000942: 43,2704           12125                           TCF      GOPIN                                 
010967,000943: 
010968,000944:                                                                                                  #           CSMVEC     VERB 81              DESCRIPTION
010969,000945:                                                                                                  #               UPDATE CSM STATE VECTOR
010970,000946:                                                                                                  #                  SET   VEHUPFLG TO 1
010971,000947: 
010972,000948: 43,2705           05435        CSMVEC             TC       UPFLAG                                
010973,000949: 43,2706           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG UP INDICATES CM.
010974,000950: 
010975,000951: 43,2707           12125                           TCF      GOPIN                                 
010976,000952: 
010977,000953:                                                                                                  #           DNEDUMP     VERB 74             DESCRIPTION
010978,000954:                                                                                                  #               INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
010979,000955:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
010980,000956:                                                                                                  #               2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
010981,000957:                                                                                                  #               3. RELEASE EXT VERB DISPLAY.
010982,000958: 
010983,000959: 43,2710     0010                                  EBANK=   10                                    
010984,000960: 43,2710           32713        DNEDUMP            CAF      LDNDUMPI                              
010985,000961: 43,2711           54335                           TS       DNTMGOTO                              
010986,000962: 43,2712           02125                           TC       GOPIN                                 
010987,000963: 
010988,000964: 43,2713  43,2710               V74                EQUALS   DNEDUMP                               
010989,000965: 43,2713           03532        LDNDUMPI           REMADR   DNDUMPI                               
010990,000966: 
010991,000967:                                                                                                  #           LFTFLGON    VERB 75             DESCRIPTION
010992,000968:                                                                                                  #               SET LIFT-OFF FLAG
010993,000969:                                                                                                  #               1. SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
010994,000970:                                                                                                  #               2. RETURN VIA PINBRNCH
010995,000971: 
010996,000972: 43,2714           05435        LFTFLGON           TC       UPFLAG                                #  VB 75 - SET LIFTOFF FLAG BIT
010997,000973: 43,2715           00125                           ADRES    GRRBKFLG                              #  BIT 5 FLAG 5
010998,000974: 43,2716           02125                           TC       GOPIN                                 

Page 254

011000,000976: 43,2717           31011        CHKPOOH            CA       MODREG                                
011001,000977: 43,2720           00006                           EXTEND                                         
011002,000978: 43,2721           16711                           BZF      TCQ                                   
011003,000979: 43,2722           12124                           TCF      ALM/END                               
011004,000980: 
011005,000981: 43,2723           00006        EXDAPOFF           EXTEND                                         
011006,000982: 43,2724           32733                           DCA      IDLECADR                              #  SET T5 TO IDLE.
011007,000983: 43,2725           53313                           DXCH     T5LOC                                 
011008,000984: 43,2726           44105                           CS       OCT60000                              
011009,000985: 43,2727           70102                           MASK     FLAGWRD6                              #  RESET DAPBITS 1 AND 2.
011010,000986: 43,2730           54102                           TS       FLAGWRD6                              
011011,000987: 43,2731           00002                           TC       Q                                     
011012,000988: 
011013,000989: 43,2732  E6,1425                                  EBANK=   PACTOFF                               
011014,000990: 43,2732           03132 12106  IDLECADR           2CADR    T5IDLOC                               
011015,000991: 

Page 255

011017,000993: 
011018,000994:                                                                                                  #  VERB 89 DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011019,000995:                                                                                                  #  
011020,000996:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
011021,000997:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011022,000998:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011023,000999: 
011024,001000:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011025,001001:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
011026,001002: 
011027,001003:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
011028,001004:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
011029,001005: 
011030,001006:                                                                                                  #  3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011031,001007:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
011032,001008:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
011033,001009:                                                                                                  #  AFTER KEYING IN PROCEED.
011034,001010: 
011035,001011:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
011036,001012:                                                                                                  #  FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
011037,001013: 
011038,001014:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011039,001015: 
011040,001016:                                                                                                  #      R63COMP JOB:
011041,001017: 
011042,001018:                                                                                                  #        UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
011043,001019: 
011044,001020:                                                                                                  #        CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011045,001021: 
011046,001022:                                                                                                  #        DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011047,001023:                                                                                                  #        ARE STORED FOR LATER R60CSM CALL.
011048,001024: 
011049,001025:                                                                                                  #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011050,001026: 
011051,001027:                                                                                                  #  7. RECYCLE- RETURN TO STEP 5.
011052,001028:                                                                                                  #     TERMINATE- EXIT R63 ROUTINE
011053,001029:                                                                                                  #     PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011054,001030: 
011055,001031: 43,2734           02717        V89PERF            TC       CHKPOOH                               #  DEMAND P00
011056,001032: 43,2735           02076                           TC       TESTXACT                              
011057,001033: 43,2736           00004                           INHINT                                         
011058,001034: 43,2737           34676                           CAF      PRIO10                                
011059,001035: 43,2740           05042                           TC       FINDVAC                               
011060,001036: 43,2741  E4,1715                                  EBANK=   P21TIME                               
011061,001037: 43,2741           03603 70064                     2CADR    V89CALL                               
011062,001038: 
011063,001039: 43,2743           15112                           TCF      ENDOFJOB                              
011064,001040: 
011065,001041: 43,2744           00004        WMATRXNG           INHINT                                         #  VB 86 - CLEAR RENDWFLG TO REINITIALIZE
011066,001042: 43,2745           44712                           CS       BIT1                                  #          W-MATRIX

Page 256

011068,001044: 43,2746           70101                           MASK     FLAGWRD5                              
011069,001045: 43,2747           54101                           TS       FLAGWRD5                              
011070,001046: 
011071,001047: 43,2750           02125                           TC       GOPIN                                 
011072,001048: 
011073,001049: 43,2751  43,2751               GOSHOSUM           EQUALS   SHOWSUM                               
011074,001050: 
011075,001051: 43,2751           02717        SHOWSUM            TC       CHKPOOH                               
011076,001052: 43,2752           02076                           TC       TESTXACT                              #  *
011077,001053: 43,2753           34712                           CAF      S+1                                   #  *
011078,001054: 43,2754           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
011079,001055: 43,2755           34714                           CAF      S+ZERO                                #  *
011080,001056: 43,2756           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
011081,001057: 43,2757           33242                           CA       SELFADRS                              #  *
011082,001058: 43,2760           55361                           TS       SELFRET                               #  *
011083,001059: 43,2761           03517                           TC       STSHOSUM                              #  * ENTER ROPECHK
011084,001060: 
011085,001061: 43,2762           23372        SDISPLAY           LXCH     SKEEP2                                #  * BNK NO FOR DSP
011086,001062: 43,2763           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
011087,001063: 43,2764           33241        NOKILL             CA       ADRS1                                 #  *
011088,001064: 43,2765           54156                           TS       MPAC       +2                         #  *
011089,001065: 43,2766           32777                           CA       VNCON                                 #  * 0501
011090,001066: 43,2767           04555                           TC       BANKCALL                              #  *
011091,001067: 43,2770           20465                           CADR     GOXDSPF                               #  *
011092,001068: 43,2771           02774                           TC       +3                                    #  *
011093,001069: 43,2772           03630                           TC       NXTBNK                                #  *
011094,001070: 43,2773           02764                           TC       NOKILL                                #  *
011095,001071: 43,2774           33242                           CA       SELFADRS                              
011096,001072: 43,2775           55371                           TS       SKEEP1                                
011097,001073: 
011098,001074: 43,2776           05423                           TC       ENDEXT                                #  *
011099,001075: 
011100,001076: 43,2777           01201        VNCON              VN       501                                   #  *
011101,001077: 
011102,001078: 43,3000           31376        ENDSUMS            CA       SKEEP6                                #  *
011103,001079: 43,3001           00006                           EXTEND                                         #  *
011104,001080: 43,3002           13333                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
011105,001081: 43,3003           03517                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
011106,001082: 
011107,001083:                                                                                                  #  VERB 79 REQUEST LUNAR LANDMARK SELECTION.  RESTRICTED TO POO.
011108,001084: 
011109,001085: 43,3004           02717        CALLR35            TC       CHKPOOH                               
011110,001086: 43,3005           02076                           TC       TESTXACT                              
011111,001087: 
011112,001088: 43,3006           34754                           CAF      PRIO5                                 
011113,001089: 43,3007           05042                           TC       FINDVAC                               
011114,001090: 43,3010  E4,1725                                  EBANK=   KLOOPCNT                              
011115,001091: 43,3010           03215 62064                     2CADR    LNDMKSEL                              
011116,001092: 43,3012           05112                           TC       ENDOFJOB                              #  R35 WILL DO ENDEXT
011117,001093: 

Page 257

011119,001095: 
011120,001096:                                                                                                  #           VB 76  SET PREFERRED ATTITUDE FLAG - DRIVE TO PREFERRED.
011121,001097: 
011122,001098: 43,3013           05435        SETPRFLG           TC       UPFLAG                                
011123,001099: 43,3014           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011124,001100: 43,3015           02125                           TC       GOPIN                                 
011125,001101: 
011126,001102: 
011127,001103:                                                                                                  #           VB 77  RESET PREFERRED ATTITUDE FLAG - DRIVE TO +X-AXIS ATT.
011128,001104: 
011129,001105: 43,3016           05447        RESETPRF           TC       DOWNFLAG                              
011130,001106: 43,3017           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011131,001107: 43,3020           02125                           TC       GOPIN                                 
011132,001108: 
011133,001109: 
011134,001110:                                                                                                  #           VB 87  SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
011135,001111: 
011136,001112: 43,3021           06006        SETVHFLG           TC       INTPRET                               
011137,001113: 43,3022           77414                           SET      EXIT                                  
011138,001114: 43,3023           04466                                    VHFRFLAG                              
011139,001115: 43,3024           02125                           TC       GOPIN                                 
011140,001116: 
011141,001117: 
011142,001118:                                                                                                  #           VB 88  RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
011143,001119: 
011144,001120: 43,3025           06006        RESETVHF           TC       INTPRET                               
011145,001121: 43,3026           77414                           CLEAR    EXIT                                  
011146,001122: 43,3027           04666                                    VHFRFLAG                              
011147,001123: 43,3030           05520                           TC       TRFAILOF                              #  TRACKER FAIL LIGHT
011148,001124: 
011149,001125: 43,3031           02125                           TC       GOPIN                                 
011150,001126: 
011151,001127: 
011152,001128:                                                                                                  #  VERB 66.  VEHICLES ARE ATTACHED.- MOVE THIS VEHICLE STATE VECTOR TO
011153,001129:                                                                                                  #            OTHER VEHICLE STATE VECTOR.
011154,001130: 
011155,001131:                                                                                                  #      USE SUBROUTINE GENTRAN.
011156,001132: 
011157,001133: 43,3032  E3,1554                                  EBANK=   RRECTHIS                              
011158,001134: 43,3032           34676        ATTACHED           CAF      PRIO10                                
011159,001135: 43,3033           05042                           TC       FINDVAC                               
011160,001136: 43,3034  E3,1554                                  EBANK=   RRECTHIS                              
011161,001137: 43,3034           03037 66103                     2CADR    ATTACHIT                              
011162,001138: 43,3036           05112                           TC       ENDOFJOB                              
011163,001139: 
011164,001140: 43,3037           06006        ATTACHIT           TC       INTPRET                               
011165,001141: 43,3040           77624                           CALL                                           
011166,001142: 43,3041           27371                                    INTSTALL                              
011167,001143: 43,3042           43014                           SET      BON                                   
011168,001144: 43,3043           04064                                    MOONOTH                               

Page 258

011170,001146: 43,3044           04303                                    MOONTHIS                              
011171,001147: 43,3045           67050                                    +3                                    
011172,001148: 43,3046           77614                           CLEAR                                          
011173,001149: 43,3047           04264                                    MOONOTH                               
011174,001150: 43,3050           77776                           EXIT                                           
011175,001151: 43,3051           33076                           CAF      OCT51                                 
011176,001152: 43,3052           05475                           TC       GENTRAN                               
011177,001153: 43,3053           01554                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
011178,001154: 43,3054           01626                           ADRES    RRECTOTH                              
011179,001155: 
011180,001156: 43,3055           00003        TACHEXIT           RELINT                                         
011181,001157: 43,3056           06006                           TC       INTPRET                               
011182,001158: 43,3057           77624                           CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
011183,001159: 43,3060           26662                                    PTOACSM                               
011184,001160: 43,3061           45154                           LXA,2    CALL                                  
011185,001161: 43,3062           02150                                    PBODY                                 
011186,001162: 43,3063           20237                                    SVDWN1                                
011187,001163: 43,3064           77624                           CALL                                           
011188,001164: 43,3065           20263                                    SVDWN2                                
011189,001165: 43,3066           77776                           EXIT                                           
011190,001166: 
011191,001167: 43,3067           33077                           CAF      TCPINAD                               
011192,001168: 43,3070           50120                           INDEX    FIXLOC                                
011193,001169: 43,3071           54052                           TS       QPRET                                 
011194,001170: 43,3072           04574                           TC       POSTJUMP                              
011195,001171: 43,3073           27406                           CADR     INTWAKE                               
011196,001172: 
011197,001173: 43,3074           77634        TCPIN              RTB                                            
011198,001174: 43,3075           21176                                    PINBRNCH                              
011199,001175: 
011200,001176: 43,3076           00051        OCT51              OCT      51                                    
011201,001177: 43,3077           67074        TCPINAD            CADR     TCPIN                                 
011202,001178: 
011203,001179:                                                                                                  #  VERB 47  MOVE LM STATE VECTOR INTO CM STATE VECTOR.
011204,001180: 
011205,001181: 43,3100           34676        LMTOCMSV           CAF      PRIO10                                
011206,001182: 43,3101           05042                           TC       FINDVAC                               
011207,001183: 43,3102  E3,1554                                  EBANK=   RRECTHIS                              
011208,001184: 43,3102           03105 66103                     2CADR    LMTOCM                                
011209,001185: 43,3104           05112                           TC       ENDOFJOB                              
011210,001186: 
011211,001187: 43,3105           06006        LMTOCM             TC       INTPRET                               
011212,001188: 43,3106           77624                           CALL                                           
011213,001189: 43,3107           27371                                    INTSTALL                              
011214,001190: 43,3110           43014                           SET      BON                                   
011215,001191: 43,3111           04063                                    MOONTHIS                              
011216,001192: 43,3112           04304                                    MOONOTH                               
011217,001193: 43,3113           67116                                    +3                                    
011218,001194: 43,3114           77614                           CLEAR                                          

Page 259

011220,001196: 43,3115           04263                                    MOONTHIS                              
011221,001197: 43,3116           77776                           EXIT                                           
011222,001198: 
011223,001199: 43,3117           33076                           CAF      OCT51                                 
011224,001200: 43,3120           05475                           TC       GENTRAN                               
011225,001201: 43,3121           01626                           ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
011226,001202: 43,3122           01554                           ADRES    RRECTHIS                              
011227,001203: 
011228,001204: 43,3123           13055                           TCF      TACHEXIT                              
011229,001205: 
011230,001206:                                                                                                  #  VERB 94  DO R64 VIA ENEMA TO PICK UP IN P23.
011231,001207: 
011232,001208: 43,3124           34700        VERB94             CAF      BIT11                                 
011233,001209: 43,3125           70105                           MASK     FLAGWRD9                              #  IS V94FLAG SET
011234,001210: 43,3126           00006                           EXTEND                                         
011235,001211: 43,3127           12124                           BZF      ALM/END                               #  NO - OPERATOR ERROR
011236,001212: 
011237,001213: 43,3130           05447                           TC       DOWNFLAG                              
011238,001214: 43,3131           00213                           ADRES    V94FLAG                               
011239,001215: 
011240,001216: 43,3132           05253                           TC       CHECKMM                               #  IS IT P23
011241,001217: 43,3133           00027                           MM       23         B-14                       
011242,001218: 43,3134           02124                           TC       ALM/END                               #  NO - OPERATOR ERROR
011243,001219: 43,3135           05301                           TC       PHASCHNG                              
011244,001220: 43,3136           00112                           OCT      112                                   #  SET GROUP 2 TO DO R64
011245,001221: 
011246,001222: 43,3137           02677                           TC       CLEANOUT                              #  CAUSE RESTART
011247,001223: 
011248,001224:                                                                                                  #           V90PERF     VERB 90             DESCRIPTION
011249,001225:                                                                                                  #               REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011250,001226:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
011251,001227:                                                                                                  #               2. SCHEDULE R36 CALL WITH PRIORITY 10
011252,001228:                                                                                                  #                  A. DISPLAY
011253,001229:                                                                                                  #                      TIME OF EVENT - HOURS , MINUTES , SECONDS
011254,001230:                                                                                                  #                      Y  OUT-OF-PLANE POSITION - NAUTICAL MILES
011255,001231:                                                                                                  #                      YDOT  OUT-OF-PLANE VELOCITY - FEET/SECOND
011256,001232:                                                                                                  #                      PSI  ANGLE BTW LINE OF SIGHT AND FORWARD
011257,001233:                                                                                                  #                           DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011258,001234: 43,3140           02076        V90PERF            TC       TESTXACT                              
011259,001235: 43,3141           34756                           CAF      PRIO7                                 #  R36.V90
011260,001236: 43,3142           05042                           TC       FINDVAC                               
011261,001237: 43,3143  E4,1726                                  EBANK=   RPASS36                               
011262,001238: 43,3143           02746 10104                     2CADR    R36                                   
011263,001239: 43,3145           15112                           TCF      ENDOFJOB                              
011264,001240:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
011265,001241: 
011266,001242: 43,3146           05435        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011267,001243: 43,3147           00221                           ADRES    QUITFLAG                              #      AT NEXT TIMESTEP

Page 260

011269,001245: 43,3150           34714                           CAF      ZERO                                  
011270,001246: 43,3151           04574                           TC       POSTJUMP                              
011271,001247: 43,3152           10010                           CADR     V37                                   #  GO TO POO
011272,001248: 
011273,001249: 43,3153  E5,1751                                  EBANK=   LANDMARK                              
011274,001250: 43,3153           05253        V52                TC       CHECKMM                               #  IS P22 OPERATING
011275,001251: 43,3154           00026                           MM       22         B-14                       
011276,001252: 43,3155           02124                           TC       ALM/END                               #  NO
011277,001253: 43,3156           33173                           CAF      LANDBANK                              
011278,001254: 43,3157           54003                           TS       EBANK                                 
011279,001255: 
011280,001256: 43,3160           44756                           CS       PRIO7                                 #  YES   SET BITS 12,11,10 OF LANDMARK =
011281,001257: 43,3161           71751                           MASK     LANDMARK                              #        BITS 14,13,12 OF MARKSTAT AFTER
011282,001258: 43,3162           55751                           TS       LANDMARK                              #        ADDING 1 TO THEM TO GET OFFSET
011283,001259: 43,3163           31330                           CA       MARKSTAT                              #        MARK NO.
011284,001260: 43,3164           54021                           TS       SR                                    
011285,001261: 43,3165           30021                           CA       SR                                    
011286,001262: 43,3166           30021                           CA       SR                                    
011287,001263: 43,3167           74756                           MASK     PRIO7                                 
011288,001264: 43,3170           64701                           AD       BIT10                                 #  ADD 1,MARKSTAT IS 1 LESS THAN MARK NO.
011289,001265: 43,3171           27751                           ADS      LANDMARK                              
011290,001266: 43,3172           02125                           TC       GOPIN                                 
011291,001267: 43,3173           02751        LANDBANK           ECADR    LANDMARK                              
011292,001268: 
011293,001269: 
011294,001270:                                                                                                  #  VERB 67  ASTRONAUT DISPLAY OF W MATRIX
011295,001271: 
011296,001272: 43,3174           02076        V67                TC       TESTXACT                              
011297,001273: 43,3175           34754                           CAF      PRIO5                                 
011298,001274: 43,3176           05042                           TC       FINDVAC                               
011299,001275: 43,3177  E5,1400                                  EBANK=   W                                     
011300,001276: 43,3177           03571 60105                     2CADR    V67CALL                               
011301,001277: 43,3201           05112                           TC       ENDOFJOB                              
011302,001278:                                                                                                  #  VB 44.   SET SURFACE FLAG.
011303,001279: 
011304,001280: 43,3202           05435        SETSURF            TC       UPFLAG                                
011305,001281: 43,3203           00177                           ADRES    SURFFLAG                              
011306,001282: 43,3204           12125                           TCF      GOPIN                                 
011307,001283: 
011308,001284: 
011309,001285:                                                                                                  #  VB 45.     RESET SURFACE FLAG.
011310,001286: 
011311,001287: 43,3205           05447        RESTSRF            TC       DOWNFLAG                              
011312,001288: 43,3206           00177                           ADRES    SURFFLAG                              
011313,001289: 43,3207           12125                           TCF      GOPIN                                 

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