Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

010032,000002:                                                                                                  ## Copyright:   Public domain.
010033,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
010034,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
010035,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
010036,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
010037,000007:                                                                                                  ## Assembler:   yaYUL
010038,000008:                                                                                                  ## Reference:   pp. 230-262.
010039,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
010040,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
010041,000011:                                                                                                  ## Mod history: 08/07/04   RSB  Began adapting from corresponding Luminary
010042,000012:                                                                                                  ##                              131 file.
010043,000013:                                                                                                  ##              2011-05-07 JL   Removed workarounds. Flag SBANK= workarounds 
010044,000014:                                                                                                  ##                              for future removal.
010045,000015:                                                                                                  ##              2017-01-05 RSB  Page numbers now agree with those on the
010046,000016:                                                                                                  ##                              original harcopy, as opposed to the PDF page
010047,000017:                                                                                                  ##                              numbers in 1701.pdf.
010048,000018:                                                                                                  ##              2017-01-13 RSB  Fixed comment errors detected in cross-diff vs
010049,000019:                                                                                                  ##                              Colossus 237 and Comanche 55.
010050,000020:                                                                                                  ##              2017-01-22 RSB  Back-ported comment error fixes detected in diff'ing
010051,000021:                                                                                                  ##                              Artemis 72 vs Comanche 55.
010052,000022:                                                                                                  ##              2017-02-23 RSB  CHKP00H -> CHKPOOH
010053,000023:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
010054,000024:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
010055,000025:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
010056,000026: 
010057,000027:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
010058,000028:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
010059,000029:                                                                                                  ## document read, in part:
010060,000030:                                                                                                  ##
010061,000031:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
010062,000032:                                                                                                  ##      2021111-041.  October 28, 1968.  
010063,000033:                                                                                                  ##
010064,000034:                                                                                                  ##      This AGC program shall also be referred to as
010065,000035:                                                                                                  ##                              Colossus 1A
010066,000036:                                                                                                  ##
010067,000037:                                                                                                  ##      Prepared by
010068,000038:                                                                                                  ##                      Massachusetts Institute of Technology
010069,000039:                                                                                                  ##                      75 Cambridge Parkway
010070,000040:                                                                                                  ##                      Cambridge, Massachusetts
010071,000041:                                                                                                  ##      under NASA contract NAS 9-4065.
010072,000042:                                                                                                  ##
010073,000043:                                                                                                  ## Refer directly to the online document mentioned above for further information.
010074,000044:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
010075,000045:                                                                                                  ##
010076,000046:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
010077,000047:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
010078,000048:                                                                                                  ## source file, and then is proofed to incorporate any changes.
010079,000049: 

Page 230

010081,000051: 07,2440                                           BANK     7                                     
010082,000052: 43,2000                                           SETLOC   EXTVERBS                              
010083,000053: 43,2000                                           BANK                                           
010084,000054: 
010085,000055: 43,2000  E5,1757                                  EBANK=   OGC                                   
010086,000056: 
010087,000057: 43,2000                                           COUNT*   $$/EXTVB                              
010088,000058: 
010089,000059:                                                                                                  #  FAN-OUT
010090,000060: 
010091,000061: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
010092,000062: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
010093,000063: 
010094,000064: 43,2002           02124        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 ONLY).
010095,000065: 43,2003           02150                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010096,000066:                                                                                                  #                                91 ONLY)
010097,000067: 43,2004           02240                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
010098,000068: 43,2005           02412                           TC       IMUATTCK                              #  VB43 LOAD IMU ATTITUDE ERROR METERS.
010099,000069: 43,2006           03203                           TC       SETSURF                               #  VB44 SET SURFACE FLAG
010100,000070: 43,2007           03206                           TC       RESTSRF                               #  VB45 RESET SURFACE FLAG
010101,000071: 43,2010           02516                           TC       STABLISH                              #  VB46 ESTABLISH G+C CONTROL.
010102,000072: 43,2011           03100                           TC       LMTOCMSV                              #  VB47 MOVE LM STATE VECTOR INTO CM
010103,000073: 43,2012           02536                           TC       DAPDISP                               #  VB48 LOAD A/P DATA.
010104,000074: 43,2013           12527                           TCF      CREWMANU                              #  VB49 START AUTOMATIC ATTITUDE MANEUVER
010105,000075: 43,2014           02275                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
010106,000076: 43,2015           02275                           TC       GOLOADLV                              #  VB51 PLEASE MARK
010107,000077: 43,2016           03153                           TC       V52                                   #  VB52 SET OFFSET NO. FOR P22
010108,000078: 43,2017           02275                           TC       GOLOADLV                              #  VB53 PLEASE PERFORM COAS MARK
010109,000079: 43,2020           02576                           TC       GOTOR23                               #  V54 START R23 (R21-BACKUP)
010110,000080: 43,2021           02326                           TC       ALINTIME                              #  VB55 ALIGN TIME
010111,000081: 43,2022           02637                           TC       TRACKTRM                              #  VB56 TERMINATE TRACKING (P20 +P25)
010112,000082: 43,2023           02573                           TC       GOTOR21                               #  V57 START R21 REND TRACK SIGHT MARK ROUT
010113,000083: 43,2024           02502                           TC       ENATMA                                #  VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
010114,000084: 43,2025           02275                           TC       GOLOADLV                              #  VB59 PLEASE CALIBRATE
010115,000085: 43,2026           02303                           TC       V60                                   #  VB60 SET CPHIX (N17) EQUAL TO CDU
010116,000086: 43,2027           02311                           TC       V61                                   #  VB61 SELECT MODE I
010117,000087: 43,2030           02314                           TC       V62                                   #  VB62 SELECT MODE II, ERROR WRT N22
010118,000088: 43,2031           02321                           TC       V63                                   #  VB63 SELECT MODE III, ERROR WRT N17
010119,000089: 43,2032           02472                           TC       VB64                                  #  VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
010120,000090: 43,2033           02367                           TC       CKOPTVB                               #  V 65 E OPTICAL VERIFICATION FOR PRELAUNC
010121,000091: 43,2034           03032                           TC       ATTACHED                              #  VB 66 ATTACHED.       MOVE THIS TO OTHER STATE
010122,000092: 43,2035           03175                           TC       V67                                   #  VB67 W MATRIX MONITOR
010123,000093: 43,2036           02505                           TC       STROKON                               #  VB68 CSM STROKE TEST ON.
010124,000094: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 CAUSE RESTART
010125,000095: 43,2040           03722                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
010126,000096: 43,2041           03724                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010127,000097: 43,2042           03726                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010128,000098: 43,2043           03730                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
010129,000099: 43,2044           02706                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010130,000100:                                                                                                  #        FOR ERASABLE DUMP.
010131,000101: 43,2045           02712                           TC       LFTFLGON                              #  VB75 SET LIFTOFF FLAG.

Page 231

010133,000103: 43,2046           03013                           TC       SETPRFLG                              #  VB76 SET PREFERRED ATTITUDE FLAG
010134,000104: 43,2047           03016                           TC       RESETPRF                              #  VB77 RESET PREFERRED ATT. FLAG
010135,000105: 43,2050           02400                           TC       CHAZFOGC                              #  CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
010136,000106: 43,2051           03004                           TC       CALLR35                               #  VB79 REQU LUNAR LNDMRK SELECTION (R35)
010137,000107: 43,2052           02700                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
010138,000108: 43,2053           02703                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
010139,000109: 43,2054           02546                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010140,000110: 43,2055           02553                           TC       V83PERF                               #  VB83 RANGE, RANGE RATE, +X AXIS  (R31)
010141,000111: 43,2056           02120                           TC       ALM/END                               #  V84  SPARE
010142,000112: 43,2057           02565                           TC       V85PERF                               #  VB85 RANGE, RANGE RATE, SLOS     (R34)
010143,000113: 43,2060           02632                           TC       V86PERF                               #  VB86 BACKUP MARK REJECT
010144,000114: 43,2061           03021                           TC       SETVHFLG                              #  VB87 SET VHF RANGE FLAG
010145,000115: 43,2062           03025                           TC       RESETVHF                              #  VB88 RESET VHF RANGE FLAG
010146,000116: 43,2063           02732                           TC       V89PERF                               #  V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
010147,000117: 43,2064           03140                           TC       V90PERF                               #  VB90-OUT OF PLANE PARAMETERS     %R36"
010148,000118: 43,2065           02751                           TC       GOSHOSUM                              #  VB91 TEMP FOR HYBRID AND STG.
010149,000119: 43,2066           02360                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST
010150,000120: 43,2067           02742                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
010151,000121: 43,2070           03124                           TC       VERB94                                #  VB94 DO R64
010152,000122: 43,2071           02120                           TC       ALM/END                               #  VB95 SPARE
010153,000123: 43,2072           13146                           TCF      VERB96                                #  VB96 SET QUITFLAG TO STOP INTEGRATION
010154,000124: 43,2073           02275                           TC       GOLOADLV                              #  V97 PLEASE PERFORM ENGINE-FAIL (R41)
010155,000125: 43,2074           02120                           TC       ALM/END                               #  VB98 SPARE
010156,000126: 43,2075           02275                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
010157,000127: 
010158,000128:                                                                                                  #  END OF EXTENDED VERB FAN
010159,000129: 
010160,000130: 43,2076           11044        TESTXACT           CCS      EXTVBACT                              
010161,000131: 43,2077           02120                           TC       ALM/END                               #  YES. TURN ON OPERATOR ERROR LIGHT
010162,000132: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIOS USING DSKY
010163,000133: 43,2101           72123                           MASK     OC24100                               
010164,000134: 43,2102           10000                           CCS      A                                     
010165,000135: 43,2103           02120                           TC       ALM/END                               
010166,000136: 
010167,000137: 43,2104           34112                           CAF      OCT24                                 #  SET BITS 3 AND 5
010168,000138: 43,2105           55044        SETXTACT           TS       EXTVBACT                              #  NO.  SET FLAG TO SHOW EXT VERB DISPLAY
010169,000139:                                                                                                  #  SYSTEM BUSY
010170,000140: 
010171,000141: 43,2106           30002                           CA       Q                                     
010172,000142: 43,2107           54155                           TS       MPAC       +1                         
010173,000143: 
010174,000144: 43,2110           44711                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
010175,000145: 43,2111           04170                           TC       NVSUB                                 
010176,000146: 43,2112           02113                           TC       +1                                    
010177,000147: 43,2113           00155                           TC       MPAC       +1                         
010178,000148: 
010179,000149: 43,2114           04400        XACTALM            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT.
010180,000150: 43,2115           05423                           TC       ENDEXT                                #  RELEASE MARK AND EXT. VERB DISPLAY SYS.

Page 232

010182,000152: 43,2116     5423               TERMEXTV           EQUALS   ENDEXT                                
010183,000153: 43,2116     5423               ENDEXTVB           EQUALS   ENDEXT                                
010184,000154: 
010185,000155: 43,2116           34714        XACT0              CAF      ZERO                                  #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
010186,000156: 43,2117           02105                           TC       SETXTACT                              
010187,000157: 
010188,000158: 43,2120           04400        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
010189,000159: 43,2121           04574        GOPIN              TC       POSTJUMP                              
010190,000160: 43,2122           21176                           CADR     PINBRNCH                              
010191,000161: 
010192,000162: 43,2123           24100        OC24100            OCT      24100                                 
010193,000163: 

Page 233

010195,000165:                                                                                                  #  VBZERO        VERB 40         DESCRIPTION
010196,000166:                                                                                                  #        ZERO
010197,000167:                                                                                                  #        1.      REQUIRE NOUN 20 (ICDU ANGLES)
010198,000168:                                                                                                  #        2.      REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
010199,000169:                                                                                                  #        3.      IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010200,000170:                                                                                                  #        4.      SET EXT VERB DISPLAY ACTIVE FLAG.
010201,000171:                                                                                                  #        5.      EXECUTE IMUZERO (ZERO IMU CDU ANGLES).
010202,000172:                                                                                                  #        6.      EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010203,000173:                                                                                                  #        7.      RELEASE EXT. VERB DISPLAY SYSTEM.
010204,000174: 
010205,000175: 43,2124           02136        VBZERO             TC       OP/INERT                              
010206,000176: 43,2125           02127                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
010207,000177: 43,2126           02120                           TC       ALM/END                               #  RETURN HERE IF NOUN = OCDU(91)
010208,000178:                                                                                                  #        (NOT IN USE YET)
010209,000179: 
010210,000180: 43,2127           02271        IMUZEROK           TC       CKMODCAD                              #  KEYBOARD REQUEST FOR ISS CDUZERO
010211,000181: 43,2130           04555                           TC       BANKCALL                              
010212,000182: 43,2131           16516                           CADR     IMUZERO                               
010213,000183: 
010214,000184: 43,2132           04555                           TC       BANKCALL                              #  STALL
010215,000185: 43,2133           17516                           CADR     IMUSTALL                              
010216,000186: 43,2134           02135                           TC       +1                                    
010217,000187: 
010218,000188: 43,2135           02121                           TC       GOPIN                                 
010219,000189: 
010220,000190: 43,2136           44112        OP/INERT           CS       OCT24                                 
010221,000191: 43,2137           61002                           AD       NOUNREG                               
010222,000192: 43,2140           00006                           EXTEND                                         
010223,000193: 43,2141           12470                           BZF      XACT0Q                                #  IF = 20.
010224,000194: 
010225,000195: 43,2142           24002                           INCR     Q                                     
010226,000196: 43,2143           62147                           AD       OPIMDIFF                              #  -71
010227,000197: 43,2144           00006                           EXTEND                                         
010228,000198: 43,2145           12470                           BZF      XACT0Q                                
010229,000199: 
010230,000200: 43,2146           02120                           TC       ALM/END                               #  ILLEGAL.
010231,000201: 
010232,000202: 43,2147           77670        OPIMDIFF           DEC      -71        B-14                       
010233,000203: 

Page 234

010235,000205:                                                                                                  #  VBCOARK       VERB 41         DESCRIPTION
010236,000206:                                                                                                  #        COURSE ALIGN IMU OR OPTICS
010237,000207: 
010238,000208:                                                                                                  #        1.      REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
010239,000209:                                                                                                  #        2.      REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010240,000210:                                                                                                  #                                CASE 1  NOUN 20 (ICDU ANGLES)
010241,000211:                                                                                                  #        3.      SET EXT VERB DISPLAY ACTIVE FLAG.
010242,000212:                                                                                                  #        4.      DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010243,000213:                                                                                                  #                RESPONSES
010244,000214:                                                                                                  #                A.      TERMINATE
010245,000215:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM
010246,000216:                                                                                                  #                B.      PROCEED
010247,000217:                                                                                                  #                        1.      DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
010248,000218:                                                                                                  #                                RESPONSES
010249,000219:                                                                                                  #                                A.      TERMINATE
010250,000220:                                                                                                  #                                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
010251,000221:                                                                                                  #                                B.      PROCEED
010252,000222:                                                                                                  #                                        1.      EXECUTE ICORK2.
010253,000223:                                                                                                  #                                C.      ENTER
010254,000224:                                                                                                  #                                        1.      INCREMENT CDU ANGLES
010255,000225:                                                                                                  #                                        2.      EXECUTE ICORK2.
010256,000226:                                                                                                  #                C.      ENTER
010257,000227:                                                                                                  #                        1.      EXECUTE ICORK2.
010258,000228:                                                                                                  #  ICORK2
010259,000229:                                                                                                  #        1.      RE-DISPLAY VERB 41.
010260,000230:                                                                                                  #        2.      EXECUTE IMUCOARS (IMU COARSE ALIGN).
010261,000231:                                                                                                  #        3.      EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010262,000232:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY SYSTEM.
010263,000233:                                                                                                  #                        CASE 2  NOUN 91 (OCDU ANGLES)
010264,000234:                                                                                                  #        5.      (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
010265,000235:                                                                                                  #                OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
010266,000236:                                                                                                  #                AND RELEASE EXT VERB DISPLAY SYSTEM).
010267,000237:                                                                                                  #        6.      RESPONSES TO V29,N92.
010268,000238:                                                                                                  #                A.      TERMINATE
010269,000239:                                                                                                  #                        RELEASE EXT VERB DISPLAY SYSTEM
010270,000240:                                                                                                  #                B.      PROCEED OR ENTER
010271,000241:                                                                                                  #                        RE-DISPLAY V41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
010272,000242:                                                                                                  #                        RELEASE EXT VERB DISPLAY SYSTEM.
010273,000243: 
010274,000244: 43,2150           02136        VBCOARK            TC       OP/INERT                              
010275,000245: 43,2151           02153                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
010276,000246: 43,2152           02175                           TC       OPTCOARK                              #  RETURN HERE IF NOUN = OCDU (91)
010277,000247: 
010278,000248:                                                                                                  #  RETURN TO L+1 IF NOUN 20 - TO L+2 IF NOUN 91.
010279,000249: 
010280,000250: 43,2153           02271        IMUCOARK           TC       CKMODCAD                              #  COARSE ALIGN FROM KEYBOARD
010281,000251: 43,2154           02076                           TC       TESTXACT                              
010282,000252: 43,2155           32173                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
010283,000253: 43,2156           04555                           TC       BANKCALL                              
010284,000254: 43,2157           20465                           CADR     GOXDSPF                               
010285,000255: 43,2160           05423                           TC       TERMEXTV                              
010286,000256: 43,2161           12162                           TCF      +1                                    

Page 235

010288,000258: 
010289,000259: 43,2162           32174        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
010290,000260: 43,2163           04555                           TC       BANKCALL                              
010291,000261: 43,2164           20746                           CADR     EXDSPRET                              
010292,000262: 
010293,000263: 43,2165           04555                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
010294,000264: 43,2166           16602                           CADR     IMUCOARS                              
010295,000265: 
010296,000266: 43,2167           04555                           TC       BANKCALL                              #  STALL
010297,000267: 43,2170           17516                           CADR     IMUSTALL                              
010298,000268: 43,2171           05423                           TC       ENDEXTVB                              
010299,000269: 43,2172           05423                           TC       ENDEXTVB                              
010300,000270: 
010301,000271: 43,2173           06226        VNLODCDU           VN       2522                                  
010302,000272: 43,2174           12200        IMUCOARV           VN       4100                                  
010303,000273: 

Page 236

010305,000275:                                                                                                  #  TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
010306,000276: 
010307,000277: 43,2175           31323        OPTCOARK           CA       OPTCADR                               
010308,000278: 43,2176           02272                           TC       CKMODCAD   +1                         
010309,000279: 43,2177           02076                           TC       TESTXACT                              
010310,000280: 43,2200           34751                           CAF      EBANK5                                
010311,000281: 43,2201           54003                           TS       EBANK                                 
010312,000282: 
010313,000283: 43,2202           11314                           CCS      SWSAMPLE                              #  SEE IF SWITCH AT COMPUTER
010314,000284: 43,2203           02210                           TC       +5                                    #  SWITCH AT COMPUTER
010315,000285: 43,2204           02205                           TC       +1                                    #  NOT ON COMPUTER
010316,000286: 43,2205           04400                           TC       FALTON                                #  TURN ON OPERATOR ERR
010317,000287: 43,2206           05537                           TC       ALARM                                 #  AND ALARM
010318,000288: 43,2207           00115                           OCT      00115                                 
010319,000289: 
010320,000290: 43,2210           11303                           CCS      OPTIND                                #  SEE IF OPTICS AVAILABLE
010321,000291: 43,2211           02217                           TC       OPTC1                                 #  IN USE
010322,000292: 43,2212           02217                           TC       OPTC1                                 #  IN USE
010323,000293: 43,2213           02217                           TC       OPTC1                                 #  IN USE
010324,000294: 
010325,000295: 43,2214           05537                           TC       ALARM                                 #  OPTICS RESERVED (OPTIND=-0)
010326,000296: 43,2215           00117                           OCT      00117                                 
010327,000297: 43,2216           05423                           TC       ENDEXT                                
010328,000298: 
010329,000299: 43,2217           32237        OPTC1              CAF      VNLD0CDU                              #  VERB-NOUN TO LOAD OPTICS CDUS
010330,000300: 43,2220           04555                           TC       BANKCALL                              
010331,000301: 43,2221           20465                           CADR     GOXDSPF                               
010332,000302: 43,2222           05423                           TC       TERMEXTV                              
010333,000303: 43,2223           02224                           TC       +1                                    #  PROCEED
010334,000304: 
010335,000305: 43,2224           31773                           CA       SAC                                   
010336,000306: 43,2225           55161                           TS       DESOPTS                               
010337,000307: 43,2226           31775                           CA       PAC                                   
010338,000308: 43,2227           55160                           TS       DESOPTT                               
010339,000309: 43,2230           32174                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
010340,000310: 43,2231           04555                           TC       BANKCALL                              
010341,000311: 43,2232           20746                           CADR     EXDSPRET                              
010342,000312: 
010343,000313: 43,2233           34712                           CAF      ONE                                   
010344,000314: 43,2234           55303                           TS       OPTIND                                #  SET COARS WORKING
010345,000315: 
010346,000316: 43,2235           05423                           TC       ENDEXTVB                              
010347,000317: 43,2236           05423                           TC       ENDEXTVB                              
010348,000318: 
010349,000319: 43,2237           06134        VNLD0CDU           VN       2492                                  
010350,000320: 43,2240  43,2174               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
010351,000321: 

Page 237

010353,000323:                                                                                                  #  IMUFINEK      VERB 42         DESCRIPTION
010354,000324:                                                                                                  #        FINE ALIGN IMU
010355,000325: 
010356,000326:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
010357,000327:                                                                                                  #        2.      DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
010358,000328:                                                                                                  #                RESPONSES
010359,000329:                                                                                                  #                A.      TERMINATE
010360,000330:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
010361,000331:                                                                                                  #                B.      PROCEED OR ENTER
010362,000332:                                                                                                  #                        1.      RE-DISPLAY VERB 42
010363,000333:                                                                                                  #                        2.      EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
010364,000334:                                                                                                  #                        3.      EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
010365,000335:                                                                                                  #                                A.      FAILED
010366,000336:                                                                                                  #                                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
010367,000337:                                                                                                  #                                B.      GOOD
010368,000338:                                                                                                  #                                        1.      EXECUTE IMUPULSE (TORQUE IRIGS).
010369,000339:                                                                                                  #                                        2.      EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
010370,000340: 
010371,000341: 43,2240           02271        IMUFINEK           TC       CKMODCAD                              #  FINE ALIGN WITH GYRO TORQUING
010372,000342: 43,2241           02076                           TC       TESTXACT                              
010373,000343: 43,2242           32267                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
010374,000344: 43,2243           04555                           TC       BANKCALL                              
010375,000345: 43,2244           20465                           CADR     GOXDSPF                               
010376,000346: 43,2245           05423                           TC       TERMEXTV                              
010377,000347: 43,2246           02247                           TC       +1                                    #  PROCEED WITHOUT A LOAD
010378,000348: 
010379,000349: 43,2247           32270                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
010380,000350: 43,2250           04555                           TC       BANKCALL                              
010381,000351: 43,2251           20746                           CADR     EXDSPRET                              
010382,000352: 
010383,000353: 43,2252           04555                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
010384,000354: 43,2253           17012                           CADR     IMUFINE                               
010385,000355: 
010386,000356: 43,2254           04555                           TC       BANKCALL                              #  HIBERNATION
010387,000357: 43,2255           17516                           CADR     IMUSTALL                              
010388,000358: 43,2256           05423                           TC       ENDEXTVB                              
010389,000359: 
010390,000360: 43,2257           32266        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
010391,000361: 43,2260           04555                           TC       BANKCALL                              
010392,000362: 43,2261           17125                           CADR     IMUPULSE                              
010393,000363: 
010394,000364: 43,2262           04555                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
010395,000365: 43,2263           17516                           CADR     IMUSTALL                              
010396,000366: 43,2264           05423                           TC       ENDEXTVB                              
010397,000367: 43,2265           05423                           TC       ENDEXTVB                              
010398,000368: 
010399,000369: 43,2266           02757        LGYROBIN           ECADR    OGC                                   
010400,000370: 43,2267           06335        VNLODGYR           VN       2593                                  
010401,000371: 43,2270           12400        IMUFINEV           VN       4200                                  #  FINE ALIGN VERB
010402,000372: 
010403,000373: 43,2271           31322        CKMODCAD           CA       MODECADR                              

Page 238

010405,000375: 43,2272           00006                           EXTEND                                         
010406,000376: 43,2273           16711                           BZF      TCQ                                   
010407,000377: 43,2274           02120                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
010408,000378: 
010409,000379:                                                                                                  #  GOLOADLV      VERB 50         DESCRIPTION
010410,000380:                                                                                                  #        AND OTHER PLEASE
010411,000381:                                                                                                  #        DO SOMETHING VERBS
010412,000382: 
010413,000383:                                                                                                  #  PLEASE PERFORM, MARK, CALIBRATE, ETC.
010414,000384: 
010415,000385:                                                                                                  #        1.      PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
010416,000386:                                                                                                  #                SAME RECALL AS A COMPLETED LOAD.
010417,000387:                                                                                                  #        2.      THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
010418,000388: 
010419,000389: 43,2275           04447        GOLOADLV           TC       FLASHOFF                              
010420,000390: 43,2276           34215                           CAF      PINSUPBT                              
010421,000391: 43,2277           00006                           EXTEND                                         
010422,000392: 43,2300           01007                           WRITE    SUPERBNK                              #  TURN ON FE7
010423,000393: 43,2301           04574                           TC       POSTJUMP                              
010424,000394: 43,2302  40,2000                                  SBANK=   PINSUPER                              
010425,000395: 43,2302           62001                           CADR     LOADLV1                               
010426,000396: 
010427,000397:                                                                                                  #  V60   VERB 60
010428,000398: 43,2303           00006        V60                EXTEND                                         #  SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
010429,000399: 43,2304           30033                           DCA      CDUX                                  #  TO PRESENT ATTITUDE
010430,000400: 43,2305           53334                           DXCH     CPHIX                                 
010431,000401: 43,2306           30034                           CA       CDUZ                                  
010432,000402: 43,2307           55335                           TS       CPHIX      +2                         
010433,000403: 43,2310           02121                           TC       GOPIN                                 
010434,000404: 
010435,000405:                                                                                                  #  V61   VERB 61
010436,000406: 43,2311           05447        V61                TC       DOWNFLAG                              #  SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE
010437,000407: 43,2312           00006                           ADRES    NEEDLFLG                              #  PLANE A/P FOLLOWING ERROR DISPLAYED
010438,000408: 43,2313           02121                           TC       GOPIN                                 
010439,000409: 
010440,000410:                                                                                                  #  V62   VERB 62
010441,000411: 43,2314           05435        V62                TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010442,000412: 43,2315           00006                           ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010443,000413: 
010444,000414: 43,2316           05435                           TC       UPFLAG                                #  SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
010445,000415: 43,2317           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ATTITUDE ERROR WRT N22
010446,000416: 43,2320           02121                           TC       GOPIN                                 
010447,000417: 
010448,000418:                                                                                                  #  V63   VERB 63
010449,000419: 43,2321           05435        V63                TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010450,000420: 43,2322           00006                           ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010451,000421: 
010452,000422: 43,2323           05447                           TC       DOWNFLAG                              #  SET N22ORN17 TO 0 (FLAGWRD9,BIT6,

Page 239

010454,000424: 43,2324           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR
010455,000425: 43,2325           02121                           TC       GOPIN                                 
010456,000426: 

Page 240

010458,000428:                                                                                                  #  ALINTIME      VERB 55         DESCRIPTION
010459,000429: 
010460,000430:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
010461,000431:                                                                                                  #        2.      DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
010462,000432:                                                                                                  #        3.      REQUIRE EXECUTION OF VERB 23.
010463,000433:                                                                                                  #        4.      ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
010464,000434:                                                                                                  #        5.      RELEASE EXT VERB DISPLAY SYSTEM
010465,000435: 
010466,000436: 43,2326                                           COUNT    04/R33                                
010467,000437: 
010468,000438: 43,2326           02076        ALINTIME           TC       TESTXACT                              
010469,000439: 43,2327           32357                           CAF      VNLODDT                               
010470,000440: 43,2330           04555                           TC       BANKCALL                              
010471,000441: 43,2331           20465                           CADR     GOMARKF                               
010472,000442: 43,2332           05423                           TC       ENDEXT                                #  TERMINATE
010473,000443: 43,2333           05423                           TC       ENDEXT                                #  PROCEED
010474,000444: 43,2334           42356                           CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
010475,000445: 43,2335           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
010476,000446: 43,2336           00006                           EXTEND                                         
010477,000447: 43,2337           12341                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
010478,000448: 43,2340           05423                           TC       ENDEXT                                #        WITH V23 (DATA IN).
010479,000449: 
010480,000450: 43,2341           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
010481,000451: 43,2342           34714                           CAF      ZERO                                  
010482,000452: 43,2343           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
010483,000453: 43,2344           54001                           TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
010484,000454: 43,2345           52025                           DXCH     TIME2                                 
010485,000455: 43,2346           52155                           DXCH     MPAC                                  
010486,000456: 43,2347           53052                           DXCH     DSPTEM2    +1                         #  INCREMENT
010487,000457: 43,2350           20155                           DAS      MPAC                                  
010488,000458: 
010489,000459: 43,2351           07226                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
010490,000460: 43,2352           52155                           DXCH     MPAC                                  #  NEW CLOCK.
010491,000461: 43,2353           20025                           DAS      TIME2                                 
010492,000462: 43,2354           00003                           RELINT                                         
010493,000463: 43,2355           05423        UPDTMEND           TC       ENDEXT                                
010494,000464: 43,2356           00027        DEC23              DEC      23         B-14                       #  V 23
010495,000465: 
010496,000466: 43,2357           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
010497,000467: 

Page 241

010499,000469:                                                                                                  #  SYSTEST       VERB 92         DESCRIPTION
010500,000470:                                                                                                  #        OPERATE SELECTED SYSTEM TEST
010501,000471: 
010502,000472:                                                                                                  #        1.      REQUIRE POO OR POO- OR TURN ON OPERATOR ERROR.
010503,000473:                                                                                                  #        2.      TURN OFF DAP IF IT IS ON.
010504,000474:                                                                                                  #        3.      DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17).
010505,000475:                                                                                                  #        4.      UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20.
010506,000476: 
010507,000477:                                                                                                  #        TSELECT
010508,000478:                                                                                                  #        1.      IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND
010509,000479:                                                                                                  #                REPEAT LOAD REQUEST DISPLAY.  (NO. 3 ABOVE)
010510,000480: 
010511,000481: 43,2360  E5,1425                                  EBANK=   QPLACE                                
010512,000482: 
010513,000483: 43,2360                                           COUNT    04/EXTVB                              
010514,000484: 
010515,000485: 43,2360           02715        SYSTEST            TC       CHKPOOH                               
010516,000486: 43,2361           02721                           TC       EXDAPOFF                              
010517,000487: 43,2362           34675                           CAF      PRIO20                                
010518,000488: 43,2363           05042                           TC       FINDVAC                               
010519,000489: 43,2364  E5,1425                                  EBANK=   QPLACE                                
010520,000490: 43,2364  30,2000                                  SBANK=   IMUSUPER                              
010521,000491: 43,2364           02002 66065                     2CADR    REDO                                  
010522,000492: 
010523,000493: 43,2366           02121                           TC       GOPIN                                 
010524,000494:                                                                                                  #  REDO AND TSELECT ARE NOW IN SYSTEM TEST.              
010525,000495: 
010526,000496: 43,2367                                           COUNT*   $$/EXTVB                              
010527,000497:                                                                                                  #  CKOPTVB       VERB 65         DESCRIPTION
010528,000498:                                                                                                  #        OPTICAL VERIFICATION FOR PRELAUNCH.
010529,000499:                                                                                                  #        1.      SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
010530,000500: 
010531,000501: 43,2367           05253        CKOPTVB            TC       CHECKMM                               
010532,000502: 43,2370           00002                           MM       02         B-14                       #  I WONDER IF PRELAUNCH IS RUNNING
010533,000503: 43,2371           02120                           TC       ALM/END                               #  NOT RUNNING OPERATOR ERROR
010534,000504: 43,2372           00004                           INHINT                                         
010535,000505: 43,2373           34763                           CAF      PRIO16                                #  PRELAUNCH OPTICAL VERIFICATION
010536,000506: 43,2374           05042                           TC       FINDVAC                               
010537,000507: 43,2375  E5,1425                                  EBANK=   QPLACE                                
010538,000508: 43,2375           02000 66065                     2CADR    COMPVER                               #  STANDARD LEADIN TO GCOMPVER.
010539,000509: 
010540,000510: 43,2377           02121                           TC       GOPIN                                 
010541,000511: 
010542,000512:                                                                                                  #  V 78 ....     TO CHANGE GYROCOMPASS AZIMUTH
010543,000513: 
010544,000514: 43,2400           05253        CHAZFOGC           TC       CHECKMM                               #  IS IT PRELAUNCH
010545,000515: 43,2401           00002                           MM       02         B-14                       
010546,000516: 43,2402           02120                           TC       ALM/END                               #  NO - OPERA TOR ERROR

Page 242

010548,000518: 43,2403           34763                           CAF      PRIO16                                #  PRELAUNCH AZIMUTH CHANGE
010549,000519: 43,2404           05042                           TC       FINDVAC                               
010550,000520: 43,2405  E5,1671                                  EBANK=   XSM                                   
010551,000521: 43,2405           03736 66065                     2CADR    AZMTHCG1                              
010552,000522: 
010553,000523: 43,2407           05301                           TC       PHASCHNG                              
010554,000524: 43,2410           00174                           OCT      00174                                 
010555,000525: 43,2411           02121                           TC       GOPIN                                 

Page 243

010557,000527:                                                                                                  #  IMUATTCK      VERB 43         DESCRIPTION
010558,000528:                                                                                                  #        LOAD IMU ATTITUDE ERROR METERS
010559,000529: 
010560,000530:                                                                                                  #        1.      REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
010561,000531:                                                                                                  #        2.      IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
010562,000532:                                                                                                  #                FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
010563,000533:                                                                                                  #        3.      REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
010564,000534:                                                                                                  #        4.      DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010565,000535:                                                                                                  #        5.      UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
010566,000536:                                                                                                  #                TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
010567,000537:                                                                                                  #        6.      IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
010568,000538: 
010569,000539: 43,2412           02715        IMUATTCK           TC       CHKPOOH                               
010570,000540: 
010571,000541: 43,2413           32471                           CAF      OCTAL30                               #  CHECK IF IMU ZERO AND IMU COARSE ARE ON
010572,000542: 43,2414           00006                           EXTEND                                         
010573,000543: 43,2415           02012                           RAND     CHAN12                                
010574,000544: 43,2416           10000                           CCS      A                                     
010575,000545: 43,2417           12120                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010576,000546: 
010577,000547: 43,2420           02457                           TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
010578,000548: 43,2421           02076                           TC       TESTXACT                              #  AFTER
010579,000549: 43,2422           44726                           CS       OCT50                                 #  REMOVE COARSE AND ECTR ENABLE.
010580,000550: 43,2423           00006                           EXTEND                                         
010581,000551: 43,2424           03012                           WAND     CHAN12                                
010582,000552: 
010583,000553: 43,2425           32173                           CAF      VNLODCDU                              
010584,000554: 43,2426           04555                           TC       BANKCALL                              
010585,000555: 43,2427           20465                           CADR     GOXDSPF                               
010586,000556: 43,2430           12444                           TCF      TRMATTCK                              
010587,000557: 43,2431           02432                           TC       +1                                    
010588,000558: 43,2432           34752                           CAF      EBANK6                                
010589,000559: 43,2433           54003                           TS       EBANK                                 #  SET E6 FOR NEEDLES.
010590,000560: 
010591,000561: 43,2434  E6,1476                                  EBANK=   AK                                    
010592,000562: 
010593,000563: 43,2434           04555                           TC       BANKCALL                              #  INITIALIZE CURRENT DAC AND
010594,000564: 43,2435           42427                           CADR     NEEDLE11                              #  COMMAND VALUES
010595,000565: 
010596,000566: 43,2436           04555                           TC       BANKCALL                              #  ENABLE ERROR COUNTERS.
010597,000567: 43,2437           42446                           CADR     NEEDLER2                              
010598,000568: 
010599,000569: 43,2440           34711                           CAF      TWO                                   #  4 MS MIN.
010600,000570: 43,2441           05140                           TC       WAITLIST                              
010601,000571: 43,2442  E6,1476                                  EBANK=   AK                                    
010602,000572: 43,2442           02447 66106                     2CADR    ATTCK1                                
010603,000573: 
010604,000574: 43,2444           02457        TRMATTCK           TC       CKLFTBTS                              #  IS IT BEFORE OR AFRER LIFTOFF
010605,000575: 43,2445           15423                           TCF      ENDEXT                                #  AFTER
010606,000576: 43,2446           02121                           TC       GOPIN                                 

Page 244

010608,000578: 43,2447           00006        ATTCK1             EXTEND                                         #  TRANSFER LOADED VALUES TO DESIRED REGS.
010609,000579: 43,2450           31156                           DCA      THETAD                                
010610,000580: 43,2451           53477                           DXCH     AK                                    
010611,000581: 43,2452           31157                           CAE      THETAD     +2                         
010612,000582: 43,2453           55500                           TS       AK         +2                         
010613,000583: 
010614,000584: 43,2454           04633                           TC       IBNKCALL                              #  SENDS COMMANDS LIMITED TO +,- 384 PULSES
010615,000585: 43,2455           42462                           CADR     NEEDLES                               #  AND LEAVES ERROR COUNTERS ENABLED.
010616,000586: 
010617,000587: 43,2456           05213                           TC       TASKOVER                              
010618,000588: 
010619,000589: 43,2457           34706        CKLFTBTS           CAF      BIT5                                  #  HAS LIFTOFF OCCURRED
010620,000590: 43,2460           70101                           MASK     FLAGWRD5                              
010621,000591: 43,2461           10000                           CCS      A                                     
010622,000592: 43,2462           00002                           TC       Q                                     #  YES
010623,000593: 43,2463           34706                           CAF      BIT5                                  
010624,000594: 43,2464           00006                           EXTEND                                         
010625,000595: 43,2465           02030                           RAND     CHAN30                                
010626,000596: 43,2466           10000                           CCS      A                                     
010627,000597: 43,2467           16706                           TCF      Q+1                                   
010628,000598: 43,2470           00002        XACT0Q             TC       Q                                     #  YES
010629,000599: 
010630,000600: 43,2471           00030        OCTAL30            OCT      30                                    
010631,000601: 43,2472           02715        VB64               TC       CHKPOOH                               #  DEMAND PROGRAM 00.
010632,000602: 43,2473           02076                           TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY, MAKE IT BUSY.
010633,000603: 43,2474           00004                           INHINT                                         
010634,000604: 43,2475           34677                           CAF      PRIO4                                 
010635,000605: 43,2476           05042                           TC       FINDVAC                               
010636,000606: 43,2477  E4,1720                                  EBANK=   RHOSB                                 
010637,000607: 43,2477           03565 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
010638,000608: 
010639,000609: 43,2501           05112                           TC       ENDOFJOB                              
010640,000610: 
010641,000611:                                                                                                  #  ENATMA        VERB 58         DESCRIPTION
010642,000612:                                                                                                  #        ENABLE AUTOMATIC ATTITUDE MANEUVER
010643,000613: 
010644,000614:                                                                                                  #  VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT-
010645,000615:                                                                                                  #  IVITY.
010646,000616: 
010647,000617: 43,2502           05447        ENATMA             TC       DOWNFLAG                              #  RESET STIKFLAG.
010648,000618: 43,2503           00020                           ADRES    STIKFLAG                              #  BIT 14 FLAG 1
010649,000619: 43,2504           02121                           TC       GOPIN                                 
010650,000620: 
010651,000621:                                                                                                  #  STROKON       VERB 68         DESCRIPTION
010652,000622:                                                                                                  #        STROKE TEST SETUP/ENABLE
010653,000623:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG
010654,000624:                                                                                                  #        2.      SCHEDULE STRKTST1 WITH PRIORITY 30.
010655,000625:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY.

Page 245

010657,000627: 
010658,000628: 43,2505  E6,1635                                  EBANK=   T5TVCDT                               
010659,000629: 43,2505           40102        STROKON            CS       FLAGWRD6                              #  V68 PERMITTED ONLY DURING TVC
010660,000630: 43,2506           74105                           MASK     OCT60000                              
010661,000631: 43,2507           00006                           EXTEND                                         
010662,000632: 43,2510           62120                           BZMF     ALM/END                               #  NOT TVC....FLASH OP ERROR LIGHT
010663,000633: 43,2511           34371                           CAF      PRIO30                                #  JOB REQUEST, TO SET UP STROKE TEST,
010664,000634: 43,2512           05027                           TC       NOVAC                                 #        INCLUDING INITIALIZATIONS
010665,000635: 43,2513  E6,1614                                  EBANK=   STROKER                               
010666,000636: 43,2513           03446 40106                     2CADR    STRKTSTI                              
010667,000637: 
010668,000638: 43,2515           02121                           TC       GOPIN                                 
010669,000639: 
010670,000640:                                                                                                  #  STABLISH      VERB 46         DESCRIPTION
010671,000641:                                                                                                  #        ESTABLISH G AND N CONTROL
010672,000642:                                                                                                  #        1.      IF TVC DAP IS ON, ALARM AND RETURN OTHERWISE REQUIRE EXT VERB DISPLAY SYSTEM
010673,000643:                                                                                                  #                AVAILABLE, SET BUSY FLAG AND GO TO DAPFIG TO DETERMINE VEHICLE CONFIGURATION.
010674,000644: 
010675,000645: 43,2516           40102        STABLISH           CS       FLAGWRD6                              #  VB 46
010676,000646: 43,2517           74105                           MASK     OCT60000                              #  NOT PERMITTED WHEN TVC DAP IS ON.
010677,000647: 43,2520           00006                           EXTEND                                         
010678,000648: 43,2521           62523                           BZMF     +2                                    
010679,000649: 43,2522           02120                           TC       ALM/END                               
010680,000650: 43,2523           34752                           CAF      EBANK6                                #  SET EBANK TO E6
010681,000651: 43,2524           54003                           TS       EBANK                                 
010682,000652: 43,2525           04574                           TC       POSTJUMP                              
010683,000653: 43,2526           65521                           CADR     DAPFIG                                

Page 246

010685,000655:                                                                                                  #  CREWMANU      VERB 49         DESCRIPTION
010686,000656:                                                                                                  #        START AUTOMATIC ATTITUDE MANEUVER
010687,000657: 
010688,000658:                                                                                                  #        1.      REQUIRE PROGRAM 00 ACTIVE.
010689,000659:                                                                                                  #        2.      SET EXT VERB DISPLAY BUSY FLAG.
010690,000660:                                                                                                  #        3.      SCHEDULE R62DISP WITH PRIORITY 10.
010691,000661:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY.
010692,000662: 
010693,000663:                                                                                                  #        R62DISP
010694,000664:                                                                                                  #        1.      DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES).  UPON IMMEDIATE RETURN, SET-UP GROUP
010695,000665:                                                                                                  #                4 FOR RESTART OF DISPLAY SEQUENCE.
010696,000666:                                                                                                  #                RESPONSES
010697,000667:                                                                                                  #                A.      TERMINATE
010698,000668:                                                                                                  #                        1.      GO TO GOTOPOOH.
010699,000669:                                                                                                  #                B.      PROCEED
010700,000670:                                                                                                  #                        1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010701,000671:                                                                                                  #                        2.      EXECUTE R60CSM (ATTITUDE MANEUVER).
010702,000672:                                                                                                  #                        3.      ZERO GROUP 4 (END R62).
010703,000673:                                                                                                  #                C.      ENTER
010704,000674:                                                                                                  #                        1.      REPEAT FLASHING V06,N22.
010705,000675: 
010706,000676: 43,2527           02715        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
010707,000677: 
010708,000678: 43,2530           02076                           TC       TESTXACT                              
010709,000679: 
010710,000680: 43,2531           34676                           CAF      PRIO10                                
010711,000681: 43,2532           05042                           TC       FINDVAC                               
010712,000682: 43,2533     1155                                  EBANK=   CPHI                                  
010713,000683: 43,2533           02330 56102                     2CADR    R62DISP                               
010714,000684: 
010715,000685: 43,2535           05112                           TC       ENDOFJOB                              
010716,000686: 

Page 247

010718,000688:                                                                                                  #  DAPDISP       VERB 48         DESCRIPTION
010719,000689:                                                                                                  #        LOAD AUTOPILOT DATA (ROUTINE R03)
010720,000690: 
010721,000691:                                                                                                  #        0.      CHECKFAIL AND RETURN IF TVC.
010722,000692:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010723,000693:                                                                                                  #        2.      LOWER PRIORITY TO 10.
010724,000694:                                                                                                  #        3.      DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
010725,000695:                                                                                                  #        4.      UPON PROCEED RESPONSE, EXECUTE S41.2.
010726,000696:                                                                                                  #        5.      DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010727,000697:                                                                                                  #        6.      UPON PROCEED RESPONSE EXECUTE S40.14.
010728,000698:                                                                                                  #        7.      DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010729,000699:                                                                                                  #        8.      UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
010730,000700: 
010731,000701: 43,2536                                           COUNT*   $$/EXTVB                              
010732,000702: 
010733,000703: 43,2536           40102        DAPDISP            CS       FLAGWRD6                              
010734,000704: 43,2537           74105                           MASK     OCT60000                              
010735,000705: 43,2540           00006                           EXTEND                                         
010736,000706: 43,2541           62543                           BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010737,000707: 43,2542           02120                           TC       ALM/END                               #  RETURN IF TVC
010738,000708: 
010739,000709: 43,2543           02076                           TC       TESTXACT                              
010740,000710: 43,2544           04555                           TC       BANKCALL                              
010741,000711: 43,2545           64000                           CADR     DAPDISP1                              
010742,000712: 42,2000                                           BANK     42                                    
010743,000713: 42,2000                                           SETLOC   EXTVBS                                
010744,000714: 42,2000                                           BANK                                           
010745,000715: 42,2000                                           COUNT    24/R03                                
010746,000716: 
010747,000717: 42,2000           34752        DAPDISP1           CAF      EBANK6                                
010748,000718: 42,2001           54003                           TS       EBANK                                 
010749,000719: 
010750,000720: 42,2002           34676                           CAF      PRIO10                                
010751,000721: 42,2003           05103                           TC       PRIOCHNG                              
010752,000722: 
010753,000723: 42,2004           32061        DONOUN46           CAF      V04N46                                #        R1              R2
010754,000724: 42,2005           04555                           TC       BANKCALL                              #        DAPDATR1        DAPDATR2
010755,000725: 42,2006           20465                           CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010756,000726: 
010757,000727: 42,2007           05423                           TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010758,000728: 42,2010           02012                           TC       +2                                    
010759,000729: 42,2011           02004                           TC       DONOUN46                              
010760,000730: 
010761,000731: 42,2012           31466                           CA       DAPDATR1                              
010762,000732: 42,2013           74707                           MASK     BIT4                                  
010763,000733: 42,2014           10000                           CCS      A                                     
010764,000734: 42,2015           12054                           TCF      MAXIN                                 
010765,000735: 42,2016           05447                           TC       DOWNFLAG                              
010766,000736: 42,2017           00212                           ADRES    MAXDBFLG                              
010767,000737: 42,2020           04555        MAXOUT             TC       BANKCALL                              
010768,000738: 42,2021           40146                           CADR     S41.2                                 
010769,000739: 
010770,000740: 42,2022           32060        DONOUN47           CAF      V06N47                                #        R1              R2              R3

Page 248

010772,000742: 42,2023           04555                           TC       BANKCALL                              #        CSM WGT.        LEM WGT.        BLANK
010773,000743: 42,2024           20465                           CADR     GOXDSPF                               
010774,000744: 
010775,000745: 42,2025           05423                           TC       ENDEXT                                
010776,000746: 42,2026           02030                           TC       +2                                    
010777,000747: 42,2027           02022                           TC       DONOUN47                              
010778,000748: 42,2030           31466                           CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
010779,000749: 42,2031           74371                           MASK     PRIO30                                #  CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA)
010780,000750: 42,2032           00006                           EXTEND                                         
010781,000751: 42,2033           12046                           BZF      DONOUN48                              #  SKIP IF 0,4
010782,000752: 42,2034           40000                           COM                                            
010783,000753: 42,2035           74371                           MASK     PRIO30                                
010784,000754: 42,2036           00006                           EXTEND                                         
010785,000755: 42,2037           12046                           BZF      DONOUN48                              #  SKIP IF 3,7
010786,000756: 42,2040           00004                           INHINT                                         
010787,000757: 42,2041           04633                           TC       IBNKCALL                              
010788,000758: 42,2042           13207                           CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLX
010789,000759: 
010790,000760: 42,2043           00003                           RELINT                                         
010791,000761: 42,2044           04555                           TC       BANKCALL                              
010792,000762: 42,2045           40277                           CADR     S40.14                                #  COMPUTE RCS DAP STUFF
010793,000763: 
010794,000764: 42,2046           32057        DONOUN48           CAF      V0648                                 #        R1              R2              R3
010795,000765: 42,2047           04555                           TC       BANKCALL                              #        PTRIM           YTRIM           BLANK
010796,000766: 42,2050           20465                           CADR     GOXDSPF                               
010797,000767: 
010798,000768: 42,2051           05423                           TC       ENDEXT                                
010799,000769: 42,2052           05423                           TC       ENDEXT                                
010800,000770: 42,2053           02046                           TC       DONOUN48                              
010801,000771: 
010802,000772: 42,2054           05435        MAXIN              TC       UPFLAG                                
010803,000773: 42,2055           00212                           ADRES    MAXDBFLG                              
010804,000774: 42,2056           02020                           TC       MAXOUT                                
010805,000775: 
010806,000776: 42,2057           01460        V0648              VN       0648                                  
010807,000777: 42,2060           01457        V06N47             VN       0647                                  
010808,000778: 42,2061           01056        V04N46             VN       0446                                  
010809,000779: 43,2546                                           BANK     43                                    
010810,000780: 43,2000                                           SETLOC   EXTVERBS                              
010811,000781: 43,2000                                           BANK                                           
010812,000782: 
010813,000783: 43,2546                                           COUNT*   $$/EXTVB                              
010814,000784: 
010815,000785:                                                                                                  #  V82PERF       VERB82          DESCRIPTION
010816,000786:                                                                                                  #        REQUEST ORBIT PARAMETERS DISPLAY (R30)
010817,000787: 
010818,000788:                                                                                                  #        1.      IF AVERAGE G IS OFF:
010819,000789:                                                                                                  #                        FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010820,000790:                                                                                                  #                        TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
010821,000791:                                                                                                  #                        CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
010822,000792:                                                                                                  #                        SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010823,000793:                                                                                                  #                        CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE

Page 249

010825,000795:                                                                                                  #                        RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
010826,000796:                                                                                                  #                        HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010827,000797:                                                                                                  #                        HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
010828,000798:                                                                                                  #                        INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010829,000799:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
010830,000800:                                                                                                  #                        NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010831,000801:                                                                                                  #                        ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010832,000802:                                                                                                  #                        DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010833,000803:                                                                                                  #                        ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010834,000804: 
010835,000805:                                                                                                  #        2.      IF AVERAGE G IS ON:
010836,000806:                                                                                                  #                        CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
010837,000807:                                                                                                  #                        FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
010838,000808:                                                                                                  #                        OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010839,000809:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010840,000810:                                                                                                  #                        IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010841,000811:                                                                                                  #                        RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010842,000812: 
010843,000813:                                                                                                  #  ADDENDUM:     HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
010844,000814:                                                                                                  #                ABOVE REMARKS.
010845,000815: 
010846,000816: 43,2546           02076        V82PERF            TC       TESTXACT                              
010847,000817: 
010848,000818: 43,2547           34756                           CAF      PRIO7                                 
010849,000819: 43,2550           05103                           TC       PRIOCHNG                              
010850,000820: 43,2551           04574                           TC       POSTJUMP                              
010851,000821: 43,2552           46332                           CADR     V82CALL                               #  ***** V82CALL MUST NOT BE A FINDVAC JOB.
010852,000822: 
010853,000823:                                                                                                  #  VB83PERF      VERB 83         DESCRIPTION
010854,000824:                                                                                                  #        REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010855,000825: 
010856,000826:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
010857,000827:                                                                                                  #        2.      SCHEDULE V83CALL WITH PRIORITY 10.
010858,000828:                                                                                                  #                A.      DISPLAY
010859,000829:                                                                                                  #                        R1      RANGE
010860,000830:                                                                                                  #                        R2      RANGE RATE
010861,000831:                                                                                                  #                        R3      THETA
010862,000832: 
010863,000833: 43,2553           02076        V83PERF            TC       TESTXACT                              
010864,000834: 43,2554           00004                           INHINT                                         
010865,000835: 43,2555           40105                           CS       FLAGWRD9                              #  SET R31 FLAG-BIT 4 FLAGWRD9
010866,000836: 43,2556           74707                           MASK     BIT4                                  
010867,000837: 43,2557           26105                           ADS      FLAGWRD9                              
010868,000838: 43,2560           34754                           CAF      PRIO5                                 
010869,000839: 43,2561           05027                           TC       NOVAC                                 
010870,000840: 43,2562  E4,1770                                  EBANK=   SUBEXIT                               
010871,000841: 43,2562           03150 72064                     2CADR    R31CALL                               
010872,000842: 
010873,000843: 43,2564           05112                           TC       ENDOFJOB                              
010874,000844: 

Page 250

010876,000846: 43,2565           02076        V85PERF            TC       TESTXACT                              
010877,000847: 43,2566           00004                           INHINT                                         
010878,000848: 43,2567           44707                           CS       BIT4                                  #  RESET R31 FLAG TO INDICATE R34
010879,000849: 43,2570           70105                           MASK     FLAGWRD9                              
010880,000850: 43,2571           54105                           TS       FLAGWRD9                              
010881,000851: 43,2572           02560                           TC       V83PERF    +5                         

Page 251

010883,000853:                                                                                                  #        GOTOR21         VERB 57
010884,000854:                                                                                                  #        GOTOR23-        VERB 54         DESCRIPTION
010885,000855:                                                                                                  #  SET UP MARKING FOR R22 (REND TRACK DATA PROC)
010886,000856:                                                                                                  #  1.    SET EXT VERB DISPLAY BUSY FLAG
010887,000857:                                                                                                  #  2.    IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
010888,000858:                                                                                                  #        SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
010889,000859:                                                                                                  #  3.    RELEASE EXT VERB DISPLAY SYSTEM
010890,000860: 
010891,000861: 43,2573           05447        GOTOR21            TC       DOWNFLAG                              #  CLEAR R23FLG
010892,000862: 43,2574           00025                           ADRES    R23FLG                                #  BIT 9 FLAG 1
010893,000863: 43,2575           02600                           TC       +3                                    
010894,000864: 43,2576           05435        GOTOR23            TC       UPFLAG                                #  SET R23FLG
010895,000865: 43,2577           00025                           ADRES    R23FLG                                #  BIT 9 FLAG 1
010896,000866: 43,2600           02076                           TC       TESTXACT                              
010897,000867: 43,2601           30074                           CA       FLAGWRD0                              #  VB 57 UNNACCEPTABLE UNLESS BOTH
010898,000868: 43,2602           74704                           MASK     BIT7                                  #        RENDEZVOUS AND TRACK FLAGS ON
010899,000869: 43,2603           00006                           EXTEND                                         
010900,000870: 43,2604           12627                           BZF      R22ALARM                              
010901,000871: 
010902,000872: 43,2605           30075                           CA       FLAGWRD1                              
010903,000873: 43,2606           74706                           MASK     BIT5                                  
010904,000874: 43,2607           00006                           EXTEND                                         
010905,000875: 43,2610           12627                           BZF      R22ALARM                              
010906,000876: 
010907,000877: 43,2611           30075                           CA       FLAGWRD1                              #  TEST R23FLG
010908,000878: 43,2612           74702                           MASK     BIT9                                  
010909,000879: 43,2613           00006                           EXTEND                                         
010910,000880: 43,2614           12622                           BZF      REGR21                                #  R21
010911,000881: 43,2615           34763                           CAF      PRIO16                                
010912,000882: 43,2616           05027                           TC       NOVAC                                 
010913,000883: 43,2617  E7,1725                                  EBANK=   MRKBUF1                               
010914,000884: 43,2617           02447 76067                     2CADR    R23CSM                                
010915,000885: 
010916,000886: 43,2621           05112                           TC       ENDOFJOB                              
010917,000887: 43,2622           34763        REGR21             CAF      PRIO16                                
010918,000888: 43,2623           05027                           TC       NOVAC                                 
010919,000889: 43,2624  E7,1725                                  EBANK=   MRKBUF1                               
010920,000890: 43,2624           02445 76067                     2CADR    R21CSM                                
010921,000891: 
010922,000892: 43,2626           05112                           TC       ENDOFJOB                              
010923,000893: 43,2627           05537        R22ALARM           TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
010924,000894: 43,2630           00406                           OCT      00406                                 #        NOR TRACK FLAG WERE ON.
010925,000895: 43,2631           05423                           TC       ENDEXT                                
010926,000896: 

Page 252

010928,000898:                                                                                                  #  VERB 86       DESCRIPTION
010929,000899:                                                                                                  #        V86 IS TO R23 AS MARK REJECT IS TO R21
010930,000900:                                                                                                  #        V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
010931,000901: 
010932,000902: 43,2632  E7,1725                                  EBANK=   MRKBUF1                               
010933,000903: 43,2632           34753        V86PERF            CAF      EBANK7                                #  BACKUP MARK REJECT (R23)
010934,000904: 43,2633           56003                           XCH      EBANK                                 
010935,000905: 43,2634           37716                           CA       NEGONE                                
010936,000906: 43,2635           55725                           TS       MRKBUF1                               
010937,000907: 43,2636           02121                           TC       GOPIN                                 
010938,000908: 

Page 253

010940,000910:                                                                                                  #  TRACKTRM      VERB 56         DESCRIPTION
010941,000911:                                                                                                  #        TERMINATE TRACKING (P20)
010942,000912:                                                                                                  #        1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
010943,000913:                                                                                                  #        2.      REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
010944,000914:                                                                                                  #        3.      REQUIRE R22 RUNNING OR GO TO PINBRNCH.
010945,000915:                                                                                                  #        4.      IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
010946,000916:                                                                                                  #        3.      KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
010947,000917:                                                                                                  #        4.      GO TO ENEMA (SOFTWARE RESTART).
010948,000918:                                                                                                  #        REFERENCE
010949,000919:                                                                                                  #                P20     RENDEZVOUS      NAVIGATION.
010950,000920:                                                                                                  #                R21     RENDEZVOUS      TRACKING SIGHTING MARK.
010951,000921:                                                                                                  #                R22     RENDEZVOUS      TRACKING DATA PROCESSING.
010952,000922: 
010953,000923: 43,2637           34704        TRACKTRM           CA       BIT7                                  #  IS REND FLAG ON
010954,000924: 43,2640           70074                           MASK     FLAGWRD0                              
010955,000925: 43,2641           00006                           EXTEND                                         
010956,000926: 43,2642           12121                           BZF      GOPIN                                 #  NO
010957,000927: 
010958,000928: 43,2643           05447                           TC       DOWNFLAG                              
010959,000929: 43,2644           00010                           ADRES    RNDVZFLG                              
010960,000930: 
010961,000931: 43,2645           34706                           CA       BIT5                                  #  IS TRACK FLAG ON
010962,000932: 43,2646           70075                           MASK     FLAGWRD1                              
010963,000933: 43,2647           00006                           EXTEND                                         
010964,000934: 43,2650           12121                           BZF      GOPIN                                 #  NO
010965,000935: 
010966,000936: 43,2651           05447                           TC       DOWNFLAG                              
010967,000937: 43,2652           00031                           ADRES    TRACKFLG                              
010968,000938: 
010969,000939: 43,2653           05447                           TC       DOWNFLAG                              
010970,000940: 43,2654           00027                           ADRES    UPDATFLG                              
010971,000941: 
010972,000942: 43,2655           05447                           TC       DOWNFLAG                              
010973,000943: 43,2656           00007                           ADRES    IMUSE                                 
010974,000944: 
010975,000945: 43,2657           34752                           CAF      EBANK6                                
010976,000946: 43,2660           54003                           TS       EBANK                                 
010977,000947: 
010978,000948: 43,2661           00004                           INHINT                                         
010979,000949: 43,2662           04555                           TC       BANKCALL                              
010980,000950: 43,2663           45245                           CADR     STOPRATE                              
010981,000951: 
010982,000952: 43,2664           37716                           CAF      NEGONE                                
010983,000953: 43,2665           55303                           TS       OPTIND                                
010984,000954: 
010985,000955: 43,2666           06006                           TC       INTPRET                               
010986,000956: 43,2667           77624                           CALL                                           
010987,000957: 43,2670           27371                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
010988,000958: 43,2671           77776                           EXIT                                           

Page 254

010990,000960: 43,2672           05261                           TC       2PHSCHNG                              
010991,000961: 43,2673           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
010992,000962: 43,2674           00001                           OCT      1                                     #  ALSO KILL GROUP 1
010993,000963: 
010994,000964: 43,2675           00004        CLEANOUT           INHINT                                         
010995,000965: 43,2676           04574                           TC       POSTJUMP                              
010996,000966: 43,2677           12641                           CADR     ENEMA                                 #  CAUSE RESTART
010997,000967: 
010998,000968:                                                                                                  #  LEMVEC        VERB 80         DESCRIPTION
010999,000969:                                                                                                  #        UPDATE LEM STATE VECTOR
011000,000970:                                                                                                  #                RESET VEHUPFLG TO 0
011001,000971: 
011002,000972: 43,2700           05447        LEMVEC             TC       DOWNFLAG                              
011003,000973: 43,2701           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
011004,000974: 
011005,000975: 43,2702           12121                           TCF      GOPIN                                 
011006,000976: 
011007,000977:                                                                                                  #  CSMVEC        VERB 81         DESCRIPTION
011008,000978:                                                                                                  #        UPDATE CSM STATE VECTOR
011009,000979:                                                                                                  #                SET VEHUPFLG TO 1
011010,000980: 
011011,000981: 43,2703           05435        CSMVEC             TC       UPFLAG                                
011012,000982: 43,2704           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG UP INDICATES CM.
011013,000983: 
011014,000984: 43,2705           12121                           TCF      GOPIN                                 
011015,000985: 
011016,000986:                                                                                                  #  DNEDUMP       VERB 74         DESCRIPTION
011017,000987:                                                                                                  #        INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011018,000988: 
011019,000989:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011020,000990:                                                                                                  #        2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011021,000991:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY.
011022,000992: 
011023,000993: 43,2706     0010                                  EBANK=   10                                    
011024,000994: 43,2706           32711        DNEDUMP            CAF      LDNDUMPI                              
011025,000995: 43,2707           54335                           TS       DNTMGOTO                              
011026,000996: 43,2710           02121                           TC       GOPIN                                 
011027,000997: 
011028,000998: 43,2711  43,2706               V74                EQUALS   DNEDUMP                               
011029,000999: 43,2711           03543        LDNDUMPI           REMADR   DNDUMPI                               
011030,001000: 
011031,001001:                                                                                                  #  LFTFLGON      VERB 75         DESCRIPTION
011032,001002:                                                                                                  #        SET LIFT-OFF FLAG
011033,001003:                                                                                                  #        1.      SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011034,001004:                                                                                                  #        2.      RETURN VIA PINBRNCH
011035,001005: 
011036,001006: 43,2712           05435        LFTFLGON           TC       UPFLAG                                #  VB 75 - SET LIFTOFF FLAG BIT
011037,001007: 43,2713           00125                           ADRES    GRRBKFLG                              #  BIT 5 FLAG 5

Page 255

011039,001009: 43,2714           02121                           TC       GOPIN                                 
011040,001010: 
011041,001011: 43,2715           31011        CHKPOOH            CA       MODREG                                
011042,001012: 43,2716           00006                           EXTEND                                         
011043,001013: 43,2717           16711                           BZF      TCQ                                   
011044,001014: 43,2720           12120                           TCF      ALM/END                               
011045,001015: 
011046,001016: 43,2721           00006        EXDAPOFF           EXTEND                                         
011047,001017: 43,2722           32731                           DCA      IDLECADR                              #  SET T5 TO IDLE.
011048,001018: 43,2723           53313                           DXCH     T5LOC                                 
011049,001019: 43,2724           44105                           CS       OCT60000                              
011050,001020: 43,2725           70102                           MASK     FLAGWRD6                              #  RESET DAPBITS 1 AND 2.
011051,001021: 43,2726           54102                           TS       FLAGWRD6                              
011052,001022: 43,2727           00002                           TC       Q                                     
011053,001023: 
011054,001024: 43,2730  E6,1425                                  EBANK=   PACTOFF                               
011055,001025: 43,2730           03143 12106  IDLECADR           2CADR    T5IDLOC                               
011056,001026: 

Page 256

011058,001028:                                                                                                  #  VERB 89       DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011059,001029:                                                                                                  #  
011060,001030:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED.  CALCULATES AND
011061,001031:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011062,001032:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011063,001033: 
011064,001034:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
011065,001035:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
011066,001036: 
011067,001037:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH).  IF IMU ON AND ITS
011068,001038:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
011069,001039: 
011070,001040:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011071,001041:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
011072,001042:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
011073,001043:                                                                                                  #  AFTER KEYING IN PROCEED.
011074,001044: 
011075,001045:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
011076,001046:                                                                                                  #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
011077,001047: 
011078,001048:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011079,001049: 
011080,001050:                                                                                                  #        R63COMP JOB:
011081,001051: 
011082,001052:                                                                                                  #                UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
011083,001053: 
011084,001054:                                                                                                  #                CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011085,001055: 
011086,001056:                                                                                                  #                DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011087,001057:                                                                                                  #                ARE STORED FOR LATER R60CSM CALL.
011088,001058: 
011089,001059:                                                                                                  #  6.  FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011090,001060: 
011091,001061:                                                                                                  #  7.  RECYCLE-  RETURN TO STEP 5.
011092,001062:                                                                                                  #      TERMINATE-  EXIT R63 ROUTINE
011093,001063:                                                                                                  #      PROCEED-  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011094,001064: 
011095,001065: 43,2732           02715        V89PERF            TC       CHKPOOH                               #  DEMAND P00
011096,001066: 43,2733           02076                           TC       TESTXACT                              
011097,001067: 43,2734           00004                           INHINT                                         
011098,001068: 43,2735           34676                           CAF      PRIO10                                
011099,001069: 43,2736           05042                           TC       FINDVAC                               
011100,001070: 43,2737  E4,1715                                  EBANK=   P21TIME                               
011101,001071: 43,2737           03601 70064                     2CADR    V89CALL                               
011102,001072: 
011103,001073: 43,2741           15112                           TCF      ENDOFJOB                              
011104,001074: 
011105,001075: 43,2742           00004        WMATRXNG           INHINT                                         #  VB 86 - CLEAR RENDWFLG TO REINITIALIZE
011106,001076: 43,2743           44712                           CS       BIT1                                  #           W-MATRIX

Page 257

011108,001078: 43,2744           70101                           MASK     FLAGWRD5                              
011109,001079: 43,2745           54101                           TS       FLAGWRD5                              
011110,001080: 
011111,001081: 43,2746           05447                           TC       DOWNFLAG                              #  RESET ORBWFLAG
011112,001082: 43,2747           00066                           ADRES    ORBWFLAG                              
011113,001083: 43,2750           02121                           TC       GOPIN                                 
011114,001084: 
011115,001085: 43,2751  43,2751               GOSHOSUM           EQUALS   SHOWSUM                               
011116,001086: 
011117,001087: 43,2751           02715        SHOWSUM            TC       CHKPOOH                               
011118,001088: 43,2752           02076                           TC       TESTXACT                              #  *
011119,001089: 43,2753           34712                           CAF      S+1                                   #  *
011120,001090: 43,2754           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
011121,001091: 43,2755           34714                           CAF      S+ZERO                                #  *
011122,001092: 43,2756           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
011123,001093: 43,2757           33243                           CA       SELFADRS                              #  *
011124,001094: 43,2760           55361                           TS       SELFRET                               #  *
011125,001095: 43,2761           03520                           TC       STSHOSUM                              #  * ENTER ROPECHK
011126,001096: 43,2762           23372        SDISPLAY           LXCH     SKEEP2                                #  * BNK NO FOR DSP
011127,001097: 43,2763           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
011128,001098: 43,2764           33242        NOKILL             CA       ADRS1                                 #  *
011129,001099: 43,2765           54156                           TS       MPAC       +2                         #  *
011130,001100: 43,2766           32777                           CA       VNCON                                 #  * 0501
011131,001101: 43,2767           04555                           TC       BANKCALL                              #  *
011132,001102: 43,2770           20465                           CADR     GOXDSPF                               #  *
011133,001103: 43,2771           02774                           TC       +3                                    #  *
011134,001104: 43,2772           03631                           TC       NXTBNK                                #  *
011135,001105: 43,2773           02764                           TC       NOKILL                                #  *
011136,001106: 43,2774           33243                           CA       SELFADRS                              
011137,001107: 43,2775           55371                           TS       SKEEP1                                
011138,001108: 
011139,001109: 43,2776           05423                           TC       ENDEXT                                #  *
011140,001110: 43,2777           01201        VNCON              VN       501                                   #  *
011141,001111: 43,3000           31376        ENDSUMS            CA       SKEEP6                                #  *
011142,001112: 43,3001           00006                           EXTEND                                         #  *
011143,001113: 43,3002           13334                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
011144,001114: 43,3003           03520                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
011145,001115: 
011146,001116:                                                                                                  #  VERB 79 REQUEST LUNAR LANDMARK SELECTION.  RESTRICTED TO POO.
011147,001117: 
011148,001118: 43,3004           02715        CALLR35            TC       CHKPOOH                               
011149,001119: 43,3005           02076                           TC       TESTXACT                              
011150,001120: 
011151,001121: 43,3006           34754                           CAF      PRIO5                                 
011152,001122: 43,3007           05042                           TC       FINDVAC                               
011153,001123: 43,3010  E4,1725                                  EBANK=   KLOOPCNT                              
011154,001124: 43,3010           03215 62064                     2CADR    LNDMKSEL                              

Page 258

011156,001126: 43,3012           05112                           TC       ENDOFJOB                              #  R35 WILL DO ENDEXT
011157,001127: 
011158,001128:                                                                                                  #  VB 76 SET PREFERRED ATTITUDE FLAG - DRIVE TO PREFERRED.
011159,001129: 
011160,001130: 43,3013           05435        SETPRFLG           TC       UPFLAG                                
011161,001131: 43,3014           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011162,001132: 43,3015           02121                           TC       GOPIN                                 
011163,001133: 
011164,001134:                                                                                                  #  VB 77 RESET PREFERRED ATTITUDE FLAG - DRIVE TO +X-AXIS ATT.
011165,001135: 
011166,001136: 43,3016           05447        RESETPRF           TC       DOWNFLAG                              
011167,001137: 43,3017           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011168,001138: 43,3020           02121                           TC       GOPIN                                 
011169,001139: 
011170,001140:                                                                                                  #  VB 87 SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
011171,001141: 
011172,001142: 43,3021           06006        SETVHFLG           TC       INTPRET                               
011173,001143: 43,3022           77414                           SET      EXIT                                  
011174,001144: 43,3023           04466                                    VHFRFLAG                              
011175,001145: 43,3024           02121                           TC       GOPIN                                 
011176,001146: 
011177,001147:                                                                                                  #  VB 88 RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
011178,001148: 
011179,001149: 43,3025           06006        RESETVHF           TC       INTPRET                               
011180,001150: 43,3026           77414                           CLEAR    EXIT                                  
011181,001151: 43,3027           04666                                    VHFRFLAG                              
011182,001152: 43,3030           05520                           TC       TRFAILOF                              #  TRACKER FAIL LIGHT
011183,001153: 
011184,001154: 43,3031           02121                           TC       GOPIN                                 
011185,001155: 
011186,001156:                                                                                                  #  VERB 66.      VEHICLES ARE ATTACHED.- MOVE THIS VEHICLE STATE VECTOR TO
011187,001157:                                                                                                  #                OTHER VEHICLE STATE VECTOR.
011188,001158: 
011189,001159:                                                                                                  #  USE SUBROUTINE GENTRAN.
011190,001160: 
011191,001161: 43,3032  E3,1554                                  EBANK=   RRECTHIS                              
011192,001162: 43,3032           34676        ATTACHED           CAF      PRIO10                                
011193,001163: 43,3033           05042                           TC       FINDVAC                               
011194,001164: 43,3034  E3,1554                                  EBANK=   RRECTHIS                              
011195,001165: 43,3034           03037 66103                     2CADR    ATTACHIT                              
011196,001166: 
011197,001167: 43,3036           05112                           TC       ENDOFJOB                              
011198,001168: 
011199,001169: 43,3037           06006        ATTACHIT           TC       INTPRET                               
011200,001170: 43,3040           77624                           CALL                                           
011201,001171: 43,3041           27371                                    INTSTALL                              

Page 259

011203,001173: 43,3042           43014                           SET      BON                                   
011204,001174: 43,3043           04064                                    MOONOTH                               
011205,001175: 43,3044           04303                                    MOONTHIS                              
011206,001176: 43,3045           67050                                    +3                                    
011207,001177: 43,3046           77614                           CLEAR                                          
011208,001178: 43,3047           04264                                    MOONOTH                               
011209,001179: 43,3050           77776                           EXIT                                           
011210,001180: 43,3051           33076                           CAF      OCT51                                 
011211,001181: 43,3052           05475                           TC       GENTRAN                               
011212,001182: 43,3053           01554                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
011213,001183: 43,3054           01626                           ADRES    RRECTOTH                              
011214,001184: 
011215,001185: 43,3055           00003        TACHEXIT           RELINT                                         
011216,001186: 43,3056           06006                           TC       INTPRET                               
011217,001187: 43,3057           77624                           CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
011218,001188: 43,3060           26662                                    PTOACSM                               
011219,001189: 43,3061           45154                           LXA,2    CALL                                  
011220,001190: 43,3062           02150                                    PBODY                                 
011221,001191: 43,3063           20237                                    SVDWN1                                
011222,001192: 43,3064           77624                           CALL                                           
011223,001193: 43,3065           20263                                    SVDWN2                                
011224,001194: 43,3066           77776                           EXIT                                           
011225,001195: 
011226,001196: 43,3067           33077                           CAF      TCPINAD                               
011227,001197: 43,3070           50120                           INDEX    FIXLOC                                
011228,001198: 43,3071           54052                           TS       QPRET                                 
011229,001199: 43,3072           04574                           TC       POSTJUMP                              
011230,001200: 43,3073           27406                           CADR     INTWAKE                               
011231,001201: 
011232,001202: 43,3074           77634        TCPIN              RTB                                            
011233,001203: 43,3075           21176                                    PINBRNCH                              
011234,001204: 
011235,001205: 43,3076           00051        OCT51              OCT      51                                    
011236,001206: 43,3077           67074        TCPINAD            CADR     TCPIN                                 
011237,001207: 
011238,001208:                                                                                                  #  VERB 47  MOVE LM STATE VECTOR INTO CM STATE VECTOR.
011239,001209: 
011240,001210: 43,3100           34676        LMTOCMSV           CAF      PRIO10                                
011241,001211: 43,3101           05042                           TC       FINDVAC                               
011242,001212: 43,3102  E3,1554                                  EBANK=   RRECTHIS                              
011243,001213: 43,3102           03105 66103                     2CADR    LMTOCM                                
011244,001214: 
011245,001215: 43,3104           05112                           TC       ENDOFJOB                              
011246,001216: 
011247,001217: 43,3105           06006        LMTOCM             TC       INTPRET                               
011248,001218: 43,3106           77624                           CALL                                           
011249,001219: 43,3107           27371                                    INTSTALL                              
011250,001220: 43,3110           43014                           SET      BON                                   
011251,001221: 43,3111           04063                                    MOONTHIS                              
011252,001222: 43,3112           04304                                    MOONOTH                               

Page 260

011254,001224: 43,3113           67116                                    +3                                    
011255,001225: 43,3114           77614                           CLEAR                                          
011256,001226: 43,3115           04263                                    MOONTHIS                              
011257,001227: 43,3116           77776                           EXIT                                           
011258,001228: 
011259,001229: 43,3117           33076                           CAF      OCT51                                 
011260,001230: 43,3120           05475                           TC       GENTRAN                               
011261,001231: 43,3121           01626                           ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
011262,001232: 43,3122           01554                           ADRES    RRECTHIS                              
011263,001233: 
011264,001234: 43,3123           13055                           TCF      TACHEXIT                              
011265,001235: 
011266,001236:                                                                                                  #  VERB 94   DO R64 VIA ENEMA TO PICK UP IN P23.
011267,001237: 
011268,001238: 43,3124           34700        VERB94             CAF      BIT11                                 
011269,001239: 43,3125           70105                           MASK     FLAGWRD9                              #  IS V94FLAG SET
011270,001240: 43,3126           00006                           EXTEND                                         
011271,001241: 43,3127           12120                           BZF      ALM/END                               #  NO - OPERATOR ERROR
011272,001242: 
011273,001243: 43,3130           05447                           TC       DOWNFLAG                              
011274,001244: 43,3131           00213                           ADRES    V94FLAG                               
011275,001245: 
011276,001246: 43,3132           05253                           TC       CHECKMM                               #  IS IT P23
011277,001247: 43,3133           00027                           MM       23         B-14                       
011278,001248: 43,3134           02120                           TC       ALM/END                               #  NO - OPERATOR ERROR
011279,001249: 43,3135           05301                           TC       PHASCHNG                              
011280,001250: 43,3136           00112                           OCT      112                                   #  SET GROUP 2 TO DO R64
011281,001251: 
011282,001252: 43,3137           02675                           TC       CLEANOUT                              #  CAUSE RESTART
011283,001253: 
011284,001254:                                                                                                  #  V90PERF       VERB 90         DESCRIPTION
011285,001255:                                                                                                  #        REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011286,001256: 
011287,001257:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011288,001258:                                                                                                  #        2.      SCHEDULE R36 CALL WITH PRIORITY 10
011289,001259:                                                                                                  #                A.      DISPLAY
011290,001260:                                                                                                  #                        TIME OF EVENT - HOURS, MINUTES, SECONDS
011291,001261:                                                                                                  #                        Y       OUT-OF-PLANE POSITION - NAUTICAL MILES
011292,001262:                                                                                                  #                        YDOT    OUT-OF-PLANE VELOCITY - FEET/SECOND
011293,001263:                                                                                                  #                        PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
011294,001264:                                                                                                  #                                DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011295,001265: 
011296,001266: 43,3140           02076        V90PERF            TC       TESTXACT                              
011297,001267: 43,3141           34756                           CAF      PRIO7                                 #  R36.V90
011298,001268: 43,3142           05042                           TC       FINDVAC                               
011299,001269: 43,3143  E4,1726                                  EBANK=   RPASS36                               
011300,001270: 43,3143           02746 10104                     2CADR    R36                                   
011301,001271: 
011302,001272: 43,3145           15112                           TCF      ENDOFJOB                              
011303,001273: 
011304,001274:                                                                                                  #  VERB 96   SET QUITFLAG TO STOP INTEGRATION.
011305,001275: 
011306,001276: 43,3146           05435        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT

Page 261

011308,001278: 43,3147           00221                           ADRES    QUITFLAG                              #        AT NEXT TIMESTEP
011309,001279: 
011310,001280: 43,3150           34714                           CAF      ZERO                                  
011311,001281: 43,3151           04574                           TC       POSTJUMP                              
011312,001282: 43,3152           10010                           CADR     V37                                   #  GO TO POO
011313,001283: 
011314,001284: 43,3153  E5,1751                                  EBANK=   LANDMARK                              
011315,001285: 43,3153           05253        V52                TC       CHECKMM                               #  IS P22 OPERATING
011316,001286: 43,3154           00026                           MM       22         B-14                       
011317,001287: 43,3155           02120                           TC       ALM/END                               #  NO
011318,001288: 43,3156           33174                           CAF      LANDBANK                              
011319,001289: 43,3157           54003                           TS       EBANK                                 
011320,001290: 
011321,001291: 43,3160           44756                           CS       PRIO7                                 #  YES   SET BITS 12,11,10 OF LANDMARK =
011322,001292: 43,3161           71751                           MASK     LANDMARK                              #        BITS 14,13,12 OF MARKSTAT AFTER
011323,001293: 43,3162           55751                           TS       LANDMARK                              #        ADDING 1 TO THEM TO GET OFFSET
011324,001294: 43,3163           31330                           CA       MARKSTAT                              #        MARK NO.
011325,001295: 43,3164           54021                           TS       SR                                    
011326,001296: 43,3165           30021                           CA       SR                                    
011327,001297: 43,3166           30021                           CA       SR                                    
011328,001298: 43,3167           74756                           MASK     PRIO7                                 
011329,001299: 43,3170           40000                           CS       A                                     
011330,001300: 43,3171           64754                           AD       PRIO5                                 
011331,001301: 43,3172           27751                           ADS      LANDMARK                              
011332,001302: 43,3173           02121                           TC       GOPIN                                 
011333,001303: 43,3174           02751        LANDBANK           ECADR    LANDMARK                              
011334,001304: 
011335,001305:                                                                                                  #  VERB 67   ASTRONAUT DISPLAY OF W MATRIX
011336,001306: 
011337,001307: 43,3175           02076        V67                TC       TESTXACT                              
011338,001308: 43,3176           34754                           CAF      PRIO5                                 
011339,001309: 43,3177           05042                           TC       FINDVAC                               
011340,001310: 43,3200  E5,1400                                  EBANK=   W                                     
011341,001311: 43,3200           03574 60105                     2CADR    V67CALL                               
011342,001312: 
011343,001313: 43,3202           05112                           TC       ENDOFJOB                              
011344,001314: 
011345,001315:                                                                                                  #  VB 44.  SET SURFACE FLAG.
011346,001316: 
011347,001317: 43,3203           05435        SETSURF            TC       UPFLAG                                
011348,001318: 43,3204           00177                           ADRES    SURFFLAG                              
011349,001319: 43,3205           12121                           TCF      GOPIN                                 
011350,001320: 
011351,001321:                                                                                                  #  VB 45.  RESET SURFACE FLAG.
011352,001322: 
011353,001323: 43,3206           05447        RESTSRF            TC       DOWNFLAG                              
011354,001324: 43,3207           00177                           ADRES    SURFFLAG                              
011355,001325: 43,3210           12121                           TCF      GOPIN                                 

Page 262 Page is empty.

011358,001328: 

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