Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

009751,000002:                                                                                                  ## Copyright:   Public domain.
009752,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
009753,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
009754,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
009755,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
009756,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
009757,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
009758,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
009759,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
009760,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
009761,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
009762,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
009763,000014:                                                                                                  ##              reconstruction is correct.
009764,000015:                                                                                                  ## Assembler:   yaYUL
009765,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009766,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009767,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
009768,000019:                                                                                                  ##              2024-05-15 MAS  Implemented ACB-98, "Delete INHINT before
009769,000020:                                                                                                  ##                              FINDVAC in V89" (which also changes how R31FLAG
009770,000021:                                                                                                  ##                              is taken down in V85PERF). Also implemented
009771,000022:                                                                                                  ##                              the fix for anomaly COM-22, "V79, V41, V55, V42,
009772,000023:                                                                                                  ##                              do not perform CCS NEWJOB".
009773,000024:                                                                                                  ##              2024-05-16 MAS  Implemented fix for COM-26, "Extended verb 92
009774,000025:                                                                                                  ##                              flag 6 is changed while job is not in INHINT".
009775,000026:                                                                                                  ##                              Also changed erasable bank for R36 as part of
009776,000027:                                                                                                  ##                              PCR-936.1, "Initialize V90 time to TIG".
009777,000028: 
009778,000029: 07,2441                                           BANK     7                                     
009779,000030: 43,2000                                           SETLOC   EXTVERBS                              
009780,000031: 43,2000                                           BANK                                           
009781,000032: 
009782,000033: 43,2000  E5,1757                                  EBANK=   OGC                                   
009783,000034: 
009784,000035: 43,2000                                           COUNT*   $$/EXTVB                              
009785,000036: 
009786,000037:                                                                                                  #  FAN-OUT
009787,000038: 
009788,000039: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
009789,000040: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
009790,000041: 
009791,000042: 43,2002           02126        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 ONLY).
009792,000043: 43,2003           02152                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
009793,000044:                                                                                                  #                                91 ONLY)
009794,000045: 43,2004           02242                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
009795,000046: 43,2005           02422                           TC       IMUATTCK                              #  VB43 LOAD IMU ATTITUDE ERROR METERS.
009796,000047: 43,2006           03137                           TC       SETSURF                               #  VB44 SET SURFACE FLAG
009797,000048: 43,2007           03142                           TC       RESTSRF                               #  VB45 RESET SURFACE FLAG
009798,000049: 43,2010           02527                           TC       STABLISH                              #  VB46 ESTABLISH G+C CONTROL.
009799,000050: 43,2011           03040                           TC       LMTOCMSV                              #  VB47 MOVE LM STATE VECTOR INTO CM
009800,000051: 43,2012           02555                           TC       DAPDISP                               #  VB48 LOAD A/P DATA.
009801,000052: 43,2013           12546                           TCF      CREWMANU                              #  VB 49 START AUTOMATIC ATTITUDE MANEUVER
009802,000053: 43,2014           02277                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
009803,000054: 43,2015           02277                           TC       GOLOADLV                              #  VB51 PLEASE MARK
009804,000055: 43,2016           03110                           TC       V52                                   #  VB52 SET OFFSET NO. FOR P22
009805,000056: 43,2017           02277                           TC       GOLOADLV                              #  VB 53 PLEASE PERFORM COAS MARK
009806,000057: 43,2020           02611                           TC       GOTOR23                               #  V54 START R23 (R21-BACKUP)
009807,000058: 43,2021           02330                           TC       ALINTIME                              #  VB55 ALIGN TIME
009808,000059: 43,2022           02652                           TC       TRACKTRM                              #  VB56 TERMINATE TRACKING (P20 + P25)
009809,000060: 43,2023           02606                           TC       GOTOR21                               #  V57 START R21 REND TRACK SIGHT MARK ROUT
009810,000061: 43,2024           02511                           TC       ENATMA                                #  VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
009811,000062: 43,2025           02277                           TC       GOLOADLV                              #  VB59 PLEASE CALIBRATE
009812,000063: 43,2026           02305                           TC       V60                                   #  VB60 SET CPHIX (N17) EQUAL TO CDU
009813,000064: 43,2027           02313                           TC       V61                                   #  VB61 SELECT MODE I
009814,000065: 43,2030           02316                           TC       V62                                   #  VB62 SELECT MODE II, ERROR WRT N22
009815,000066: 43,2031           02323                           TC       V63                                   #  VB63 SELECT MODE III, ERROR WRT N17
009816,000067: 43,2032           02502                           TC       VB64                                  #  VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
009817,000068: 43,2033           02377                           TC       CKOPTVB                               #  V 65 E OPTICAL VERIFICATION FOR PRELAUNC
009818,000069: 43,2034           03033                           TC       ATTACHED                              #  VB66 ATTACHED. MOVE THIS TO OTHER STATE
009819,000070: 43,2035           03131                           TC       V67                                   #  VB67 W MATRIX MONITOR
009820,000071: 43,2036           02516                           TC       STROKON                               #  VB68 CSM STROKE TEST ON.
009821,000072: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 CAUSE RESTART
009822,000073: 43,2040           03736                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
009823,000074: 43,2041           03740                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
009824,000075: 43,2042           03742                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
009825,000076: 43,2043           03744                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
009826,000077: 43,2044           02720                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
009827,000078:                                                                                                  #        FOR ERASABLE DUMP.
009828,000079: 43,2045           02724                           TC       LFTFLGON                              #  VB75 SET LIFTOFF FLAG.
009829,000080: 43,2046           03014                           TC       SETPRFLG                              #  VB76 SET PREFERRED ATTITUDE FLAG
009830,000081: 43,2047           03017                           TC       RESETPRF                              #  VB77 RESET PREFERRED ATT. FLAG
009831,000082: 43,2050           02410                           TC       CHAZFOGC                              #  CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
009832,000083: 43,2051           03145                           TC       V79                                   #  VB79 START BARBECUE MODE ROUTINE (R64)
009833,000084: 43,2052           02712                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
009834,000085: 43,2053           02715                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
009835,000086: 43,2054           02565                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
009836,000087: 43,2055           02572                           TC       V83PERF                               #  VB83 RANGE, RANGE RATE, +X AXIS  (R31)
009837,000088: 43,2056           02122                           TC       ALM/END                               #  V84  SPARE
009838,000089: 43,2057           02602                           TC       V85PERF                               #  VB85 RANGE, RANGE RATE, SLOS     (R34)
009839,000090: 43,2060           02645                           TC       V86PERF                               #  VB86 BACKUP MARK REJECT
009840,000091: 43,2061           03022                           TC       SETVHFLG                              #  VB87 SET VHF RANGE FLAG
009841,000092: 43,2062           03026                           TC       RESETVHF                              #  VB88 RESET VHF RANGE FLAG
009842,000093: 43,2063           02745                           TC       V89PERF                               #  V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
009843,000094: 43,2064           03073                           TC       V90PERF                               #  VB90-OUT OF PLANE PARAMETERS %R36"
009844,000095: 43,2065           02761                           TC       GOSHOSUM                              #  VB91 TEMP FOR HYBRID AND STG.
009845,000096: 43,2066           02362                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST
009846,000097: 43,2067           02754                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
009847,000098: 43,2070           03057                           TC       VERB94                                #  VB94 DO R64
009848,000099: 43,2071           02122                           TC       ALM/END                               #  VB95 SPARE
009849,000100: 43,2072           13101                           TCF      VERB96                                #  VB96 SET QUITFLAG TO STOP INTEGRATION
009850,000101: 43,2073           02277                           TC       GOLOADLV                              #  V97 PLEASE PERFORM ENGINE-FAIL (R41)
009851,000102: 43,2074           02122                           TC       ALM/END                               #  VB98 SPARE
009852,000103: 43,2075           02277                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
009853,000104: 
009854,000105:                                                                                                  #  END OF EXTENDED VERB FAN
009855,000106: 
009856,000107: 43,2076           11044        TESTXACT           CCS      EXTVBACT                              
009857,000108: 43,2077           02122                           TC       ALM/END                               #  YES. TURN ON OPERATOR ERROR LIGHT
009858,000109: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIOS USING DSKY
009859,000110: 43,2101           72125                           MASK     OC24100                               
009860,000111: 43,2102           10000                           CCS      A                                     
009861,000112: 43,2103           02122                           TC       ALM/END                               
009862,000113: 
009863,000114: 43,2104           34112                           CAF      OCT24                                 #  SET BITS 3 AND 5
009864,000115: 43,2105           55044        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
009865,000116:                                                                                                  #  SYSTEM BUSY
009866,000117: 
009867,000118: 43,2106           30002                           CA       Q                                     
009868,000119: 43,2107           54155                           TS       MPAC       +1                         
009869,000120: 
009870,000121: 43,2110           45032                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
009871,000122: 43,2111           04170                           TC       NVSUB                                 
009872,000123: 43,2112           02113                           TC       +1                                    

Reconstruction: The following two lines were added to Comanche 72 to correct anomaly COM-22, "V79, V41, V55, V42, do not perform CCS NEWJOB".

009875,000126: 43,2113           10067                           CCS      NEWJOB                                #  ALLOW POSSIBLE WAITING DISPLAY (FROM
009876,000127: 43,2114           05200                           TC       CHANG1                                #     RELDSP) TO COME UP.
009877,000128: 
009878,000129: 43,2115           00155                           TC       MPAC       +1                         
009879,000130: 
009880,000131: 43,2116           04400        XACTALM            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT.
009881,000132: 43,2117           05550                           TC       ENDEXT                                #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
009882,000133: 43,2120     5550               TERMEXTV           EQUALS   ENDEXT                                
009883,000134: 43,2120     5550               ENDEXTVB           EQUALS   ENDEXT                                
009884,000135: 
009885,000136: 43,2120           35035        XACT0              CAF      ZERO                                  #  RELEASE MARK AND EXT. VERB DISPLAY SYS.
009886,000137: 43,2121           02105                           TC       SETXTACT                              
009887,000138: 
009888,000139: 43,2122           04400        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
009889,000140: 43,2123           04715        GOPIN              TC       POSTJUMP                              
009890,000141: 43,2124           21272                           CADR     PINBRNCH                              
009891,000142: 
009892,000143: 43,2125           24100        OC24100            OCT      24100                                 
009893,000144: 
009894,000145:                                                                                                  #  VBZERO        VERB 40         DESCRIPTION
009895,000146:                                                                                                  #        ZERO
009896,000147:                                                                                                  #        1.      REQUIRE NOUN 20 (ICDU ANGLES) 
009897,000148:                                                                                                  #        2.      REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
009898,000149:                                                                                                  #        3.      IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
009899,000150:                                                                                                  #        4.      SET EXT VERB DISPLAY ACTIVE FLAG.
009900,000151:                                                                                                  #        5.      EXECUTE IMUZERO (ZERO IMU CDU ANGLES).
009901,000152:                                                                                                  #        6.      EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
009902,000153:                                                                                                  #        7.      RELEASE EXT. VERB DISPLAY SYSTEM.
009903,000154: 
009904,000155: 43,2126           02140        VBZERO             TC       OP/INERT                              
009905,000156: 43,2127           02131                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
009906,000157: 43,2130           02122                           TC       ALM/END                               #  RETURN HERE IF NOUN = OCDU(91)
009907,000158:                                                                                                  #        (NOT IN USE YET)
009908,000159: 
009909,000160: 43,2131           02273        IMUZEROK           TC       CKMODCAD                              #  KEYBOARD REQUEST FOR ISS CDUZERO
009910,000161: 43,2132           04676                           TC       BANKCALL                              
009911,000162: 43,2133           16577                           CADR     IMUZERO                               
009912,000163: 
009913,000164: 43,2134           04676                           TC       BANKCALL                              #  STALL
009914,000165: 43,2135           17577                           CADR     IMUSTALL                              
009915,000166: 43,2136           02137                           TC       +1                                    
009916,000167: 
009917,000168: 43,2137           02123                           TC       GOPIN                                 
009918,000169: 
009919,000170: 43,2140           44112        OP/INERT           CS       OCT24                                 
009920,000171: 43,2141           61002                           AD       NOUNREG                               
009921,000172: 43,2142           00006                           EXTEND                                         
009922,000173: 43,2143           12500                           BZF      XACT0Q                                #  IF = 20.
009923,000174: 
009924,000175: 43,2144           24002                           INCR     Q                                     
009925,000176: 43,2145           62151                           AD       OPIMDIFF                              #  -71
009926,000177: 43,2146           00006                           EXTEND                                         
009927,000178: 43,2147           12500                           BZF      XACT0Q                                
009928,000179: 
009929,000180: 43,2150           02122                           TC       ALM/END                               #  ILLEGAL.
009930,000181: 
009931,000182: 43,2151           77670        OPIMDIFF           DEC      -71        B-14                       
009932,000183: 
009933,000184:                                                                                                  #  VBCOARK       VERB 41         DESCRIPTION
009934,000185:                                                                                                  #        COURSE ALIGN IMU OR OPTICS
009935,000186: 
009936,000187:                                                                                                  #        1.      REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
009937,000188:                                                                                                  #        2.      REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
009938,000189: 
009939,000190:                                                                                                  #        CASE 1  NOUN 20 (ICDU ANGLES)
009940,000191:                                                                                                  #        3.      SET EXT VERB DISPLAY ACTIVE FLAG.
009941,000192:                                                                                                  #        4.      DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
009942,000193:                                                                                                  #                RESPONSES
009943,000194:                                                                                                  #                A.      TERMINATE
009944,000195:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM
009945,000196:                                                                                                  #                B.      PROCEED
009946,000197:                                                                                                  #                        1.      DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
009947,000198:                                                                                                  #                                RESPONSES
009948,000199:                                                                                                  #                                A.      TERMINATE
009949,000200:                                                                                                  #                                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
009950,000201:                                                                                                  #                                B.      PROCEED
009951,000202:                                                                                                  #                                        1.      EXECUTE ICORK2.
009952,000203:                                                                                                  #                                C.      ENTER
009953,000204:                                                                                                  #                                        1.      INCREMENT CDU ANGLES
009954,000205:                                                                                                  #                                        2.      EXECUTE ICORK2.
009955,000206:                                                                                                  #                C.      ENTER
009956,000207:                                                                                                  #                        1.      EXECUTE ICORK2.
009957,000208:                                                                                                  #  ICORK2
009958,000209:                                                                                                  #        1.      RE-DISPLAY VERB 41.
009959,000210:                                                                                                  #        2.      EXECUTE IMUCOARS (IMU COARSE ALIGN).
009960,000211:                                                                                                  #        3.      EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
009961,000212:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY SYSTEM.
009962,000213: 
009963,000214:                                                                                                  #        CASE 2  NOUN 91 (OCDU ANGLES)
009964,000215:                                                                                                  #        5.      (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
009965,000216:                                                                                                  #                OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
009966,000217:                                                                                                  #                AND RELEASE EXT VERB DISPLAY SYSTEM).
009967,000218:                                                                                                  #        6.      RESPONSES TO V29,N92.
009968,000219:                                                                                                  #                A.      TERMINATE
009969,000220:                                                                                                  #                        RELEASE EXT VERB DISPLAY SYSTEM
009970,000221:                                                                                                  #                B.      PROCEED OR ENTER
009971,000222:                                                                                                  #                        RE-DISPLAY V41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
009972,000223:                                                                                                  #                        RELEASE EXT VERB DISPLAY SYSTEM.
009973,000224: 
009974,000225: 43,2152           02140        VBCOARK            TC       OP/INERT                              
009975,000226: 43,2153           02155                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
009976,000227: 43,2154           02177                           TC       OPTCOARK                              #  RETURN HERE IF NOUN = OCDU (91)
009977,000228: 
009978,000229:                                                                                                  #  RETURN TO L+1 IF NOUN 20 - TO L+2 IF NOUN 91.
009979,000230: 
009980,000231: 43,2155           02273        IMUCOARK           TC       CKMODCAD                              #  COARSE ALIGN FROM KEYBOARD
009981,000232: 43,2156           02076                           TC       TESTXACT                              
009982,000233: 43,2157           32175                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
009983,000234: 43,2160           04676                           TC       BANKCALL                              
009984,000235: 43,2161           20561                           CADR     GOXDSPF                               
009985,000236: 43,2162           05550                           TC       TERMEXTV                              
009986,000237: 43,2163           12164                           TCF      +1                                    
009987,000238: 
009988,000239: 43,2164           32176        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
009989,000240: 43,2165           04676                           TC       BANKCALL                              
009990,000241: 43,2166           21042                           CADR     EXDSPRET                              
009991,000242: 
009992,000243: 43,2167           04676                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
009993,000244: 43,2170           16663                           CADR     IMUCOARS                              
009994,000245: 
009995,000246: 43,2171           04676                           TC       BANKCALL                              #  STALL
009996,000247: 43,2172           17577                           CADR     IMUSTALL                              
009997,000248: 43,2173           05550                           TC       ENDEXTVB                              
009998,000249: 43,2174           05550                           TC       ENDEXTVB                              
009999,000250: 
010000,000251: 43,2175           06226        VNLODCDU           VN       2522                                  
010001,000252: 43,2176           12200        IMUCOARV           VN       4100                                  
010002,000253: 
010003,000254:                                                                                                  #  TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
010004,000255: 
010005,000256: 43,2177           31323        OPTCOARK           CA       OPTCADR                               
010006,000257: 43,2200           02274                           TC       CKMODCAD   +1                         
010007,000258: 43,2201           02076                           TC       TESTXACT                              
010008,000259: 43,2202           35072                           CAF      EBANK5                                
010009,000260: 43,2203           54003                           TS       EBANK                                 
010010,000261: 
010011,000262: 43,2204           11314                           CCS      SWSAMPLE                              #  SEE IF SWITCH AT COMPUTER
010012,000263: 43,2205           02212                           TC       +5                                    #  SWITCH AT COMPUTER
010013,000264: 43,2206           02207                           TC       +1                                    #  NOT ON COMPUTER
010014,000265: 43,2207           04400                           TC       FALTON                                #  TURN ON OPERATOR ERR
010015,000266: 43,2210           05664                           TC       ALARM                                 #  AND ALARM
010016,000267: 43,2211           00115                           OCT      00115                                 
010017,000268: 
010018,000269: 43,2212           11303                           CCS      OPTIND                                #  SEE IF OPTICS AVAILABLE
010019,000270: 43,2213           02221                           TC       OPTC1                                 #  IN USE
010020,000271: 43,2214           02221                           TC       OPTC1                                 #  IN USE
010021,000272: 43,2215           02221                           TC       OPTC1                                 #  IN USE
010022,000273: 
010023,000274: 43,2216           05664                           TC       ALARM                                 #  OPTICS RESERVED (OPTIND=-0)
010024,000275: 43,2217           00117                           OCT      00117                                 
010025,000276: 43,2220           05550                           TC       ENDEXT                                
010026,000277: 
010027,000278: 43,2221           32241        OPTC1              CAF      VNLD0CDU                              #  VERB-NOUN TO LOAD OPTICS CDUS
010028,000279: 43,2222           04676                           TC       BANKCALL                              
010029,000280: 43,2223           20561                           CADR     GOXDSPF                               
010030,000281: 43,2224           05550                           TC       TERMEXTV                              
010031,000282: 43,2225           02226                           TC       +1                                    #  PROCEED
010032,000283: 
010033,000284: 43,2226           31773                           CA       SAC                                   
010034,000285: 43,2227           55161                           TS       DESOPTS                               
010035,000286: 43,2230           31775                           CA       PAC                                   
010036,000287: 43,2231           55160                           TS       DESOPTT                               
010037,000288: 43,2232           32176                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
010038,000289: 43,2233           04676                           TC       BANKCALL                              
010039,000290: 43,2234           21042                           CADR     EXDSPRET                              
010040,000291: 
010041,000292: 43,2235           35033                           CAF      ONE                                   
010042,000293: 43,2236           55303                           TS       OPTIND                                #  SET COARS WORKING
010043,000294: 
010044,000295: 43,2237           05550                           TC       ENDEXTVB                              
010045,000296: 43,2240           05550                           TC       ENDEXTVB                              
010046,000297: 
010047,000298: 43,2241           06134        VNLD0CDU           VN       2492                                  
010048,000299: 43,2242  43,2176               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
010049,000300: 
010050,000301:                                                                                                  #  IMUFINEK      VERB 42         DESCRIPTION
010051,000302:                                                                                                  #        FINE ALIGN IMU
010052,000303: 
010053,000304:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
010054,000305:                                                                                                  #        2.      DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
010055,000306:                                                                                                  #                RESPONSES
010056,000307:                                                                                                  #                A.      TERMINATE
010057,000308:                                                                                                  #                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
010058,000309:                                                                                                  #                B.      PROCEED OR ENTER
010059,000310:                                                                                                  #                        1.      RE-DISPLAY VERB 42
010060,000311:                                                                                                  #                        2.      EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
010061,000312:                                                                                                  #                        3.      EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
010062,000313:                                                                                                  #                                A.      FAILED
010063,000314:                                                                                                  #                                        1.      RELEASE EXT VERB DISPLAY SYSTEM.
010064,000315:                                                                                                  #                                B.      GOOD
010065,000316:                                                                                                  #                                        1.      EXECUTE IMUPULSE (TORQUE IRIGS).
010066,000317:                                                                                                  #                                        2.      EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
010067,000318: 
010068,000319: 43,2242           02273        IMUFINEK           TC       CKMODCAD                              #  FINE ALIGN WITH GYRO TORQUING
010069,000320: 43,2243           02076                           TC       TESTXACT                              
010070,000321: 43,2244           32271                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
010071,000322: 43,2245           04676                           TC       BANKCALL                              
010072,000323: 43,2246           20561                           CADR     GOXDSPF                               
010073,000324: 43,2247           05550                           TC       TERMEXTV                              
010074,000325: 43,2250           02251                           TC       +1                                    #  PROCEED WITHOUT A LOAD
010075,000326: 
010076,000327: 43,2251           32272                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
010077,000328: 43,2252           04676                           TC       BANKCALL                              
010078,000329: 43,2253           21042                           CADR     EXDSPRET                              
010079,000330: 
010080,000331: 43,2254           04676                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
010081,000332: 43,2255           17073                           CADR     IMUFINE                               
010082,000333: 
010083,000334: 43,2256           04676                           TC       BANKCALL                              #  HIBERNATION
010084,000335: 43,2257           17577                           CADR     IMUSTALL                              
010085,000336: 43,2260           05550                           TC       ENDEXTVB                              
010086,000337: 
010087,000338: 43,2261           32270        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
010088,000339: 43,2262           04676                           TC       BANKCALL                              
010089,000340: 43,2263           17206                           CADR     IMUPULSE                              
010090,000341: 
010091,000342: 43,2264           04676                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
010092,000343: 43,2265           17577                           CADR     IMUSTALL                              
010093,000344: 43,2266           05550                           TC       ENDEXTVB                              
010094,000345: 43,2267           05550                           TC       ENDEXTVB                              
010095,000346: 
010096,000347: 43,2270           02757        LGYROBIN           ECADR    OGC                                   
010097,000348: 43,2271           06335        VNLODGYR           VN       2593                                  
010098,000349: 43,2272           12400        IMUFINEV           VN       4200                                  #  FINE ALIGN VERB
010099,000350: 
010100,000351: 43,2273           31322        CKMODCAD           CA       MODECADR                              
010101,000352: 43,2274           00006                           EXTEND                                         
010102,000353: 43,2275           16711                           BZF      TCQ                                   
010103,000354: 43,2276           02122                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
010104,000355: 
010105,000356:                                                                                                  #  GOLOADLV      VERB 50         DESCRIPTION
010106,000357:                                                                                                  #        AND OTHER PLEASE
010107,000358:                                                                                                  #        DO SOMETHING VERBS
010108,000359: 
010109,000360:                                                                                                  #  PLEASE PERFORM, MARK, CALIBRATE, ETC.
010110,000361: 
010111,000362:                                                                                                  #        1.      PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
010112,000363:                                                                                                  #                SAME RECALL AS A COMPLETED LOAD.
010113,000364:                                                                                                  #        2.      THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
010114,000365: 
010115,000366: 43,2277           04447        GOLOADLV           TC       FLASHOFF                              
010116,000367: 43,2300           34215                           CAF      PINSUPBT                              
010117,000368: 43,2301           00006                           EXTEND                                         
010118,000369: 43,2302           01007                           WRITE    SUPERBNK                              #  TURN ON FE7
010119,000370: 43,2303           04715                           TC       POSTJUMP                              
010120,000371: 43,2304  40,2000                                  SBANK=   PINSUPER                              
010121,000372: 43,2304           62001                           CADR     LOADLV1                               
010122,000373: 
010123,000374:                                                                                                  #  V60   VERB 60
010124,000375: 43,2305           00006        V60                EXTEND                                         #  SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
010125,000376: 43,2306           30033                           DCA      CDUX                                  #  TO PRESENT ATTITUDE
010126,000377: 43,2307           53334                           DXCH     CPHIX                                 
010127,000378: 43,2310           30034                           CA       CDUZ                                  
010128,000379: 43,2311           55335                           TS       CPHIX      +2                         
010129,000380: 43,2312           02123                           TC       GOPIN                                 
010130,000381: 
010131,000382:                                                                                                  #  V61   VERB 61
010132,000383: 43,2313           05574        V61                TC       DOWNFLAG                              #  SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE
010133,000384: 43,2314           00006                           ADRES    NEEDLFLG                              #  PLANE A/P FOLLOWING ERROR DISPLAYED
010134,000385: 43,2315           02123                           TC       GOPIN                                 
010135,000386: 
010136,000387:                                                                                                  #  V62   VERB 62
010137,000388: 43,2316           05562        V62                TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010138,000389: 43,2317           00006                           ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010139,000390: 
010140,000391: 43,2320           05562                           TC       UPFLAG                                #  SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
010141,000392: 43,2321           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ATTITUDE ERROR WRT N22
010142,000393: 43,2322           02123                           TC       GOPIN                                 
010143,000394: 
010144,000395:                                                                                                  #  V63   VERB 63
010145,000396: 43,2323           05562        V63                TC       UPFLAG                                #  SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010146,000397: 43,2324           00006                           ADRES    NEEDLFLG                              #  TOTAL ATTITUDE ERROR DISPLAYED
010147,000398: 
010148,000399: 43,2325           05574                           TC       DOWNFLAG                              #  SET N22ORN17 TO 0 (FLAGWRD9,BIT6,
010149,000400: 43,2326           00220                           ADRES    N22ORN17                              #  COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR
010150,000401: 43,2327           02123                           TC       GOPIN                                 
010151,000402: 
010152,000403:                                                                                                  #  ALINTIME      VERB 55         DESCRIPTION
010153,000404: 
010154,000405:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
010155,000406:                                                                                                  #        2.      DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
010156,000407:                                                                                                  #        3.      REQUIRE EXECUTION OF VERB 23.
010157,000408:                                                                                                  #        4.      ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
010158,000409:                                                                                                  #        5.      RELEASE EXT VERB DISPLAY SYSTEM
010159,000410: 
010160,000411: 43,2330                                           COUNT    04/R33                                
010161,000412: 
010162,000413: 43,2330           02076        ALINTIME           TC       TESTXACT                              
010163,000414: 
010164,000415: 43,2331           32361                           CAF      VNLODDT                               
010165,000416: 43,2332           04676                           TC       BANKCALL                              
010166,000417: 43,2333           20561                           CADR     GOMARKF                               
010167,000418: 43,2334           05550                           TC       ENDEXT                                #  TERMINATE
010168,000419: 43,2335           05550                           TC       ENDEXT                                #  PROCEED
010169,000420: 43,2336           42360                           CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
010170,000421: 43,2337           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
010171,000422: 43,2340           00006                           EXTEND                                         
010172,000423: 43,2341           12343                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
010173,000424: 43,2342           05550                           TC       ENDEXT                                #        WITH V23 (DATA IN).
010174,000425: 
010175,000426: 43,2343           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
010176,000427: 43,2344           35035                           CAF      ZERO                                  
010177,000428: 43,2345           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
010178,000429: 43,2346           54001                           TS       L                                     #  ZERO T1 & 2 WHILE ALIGNING.
010179,000430: 43,2347           52025                           DXCH     TIME2                                 
010180,000431: 43,2350           52155                           DXCH     MPAC                                  
010181,000432: 43,2351           53052                           DXCH     DSPTEM2    +1                         #  INCREMENT
010182,000433: 43,2352           20155                           DAS      MPAC                                  
010183,000434: 
010184,000435: 43,2353           07226                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
010185,000436: 43,2354           52155                           DXCH     MPAC                                  #  NEW CLOCK.
010186,000437: 43,2355           20025                           DAS      TIME2                                 
010187,000438: 43,2356           00003                           RELINT                                         
010188,000439: 43,2357           05550        UPDTMEND           TC       ENDEXT                                
010189,000440: 43,2360           00027        DEC23              DEC      23         B-14                       #  V 23
010190,000441: 
010191,000442: 43,2361           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
010192,000443: 
010193,000444:                                                                                                  #  SYSTEST       VERB 92         DESCRIPTION
010194,000445:                                                                                                  #        OPERATE SELECTED SYSTEM TEST
010195,000446: 
010196,000447:                                                                                                  #        1.      REQUIRE POO OR POO- OR TURN ON OPERATOR ERROR.
010197,000448:                                                                                                  #        2.      TURN OFF DAP IF IT IS ON.
010198,000449:                                                                                                  #        3.      DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17).
010199,000450:                                                                                                  #        4.      UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20.
010200,000451: 
010201,000452:                                                                                                  #        TSELECT
010202,000453:                                                                                                  #        1.      IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND
010203,000454:                                                                                                  #                REPEAT LOAD REQUEST DISPLAY.  (NO. 3 ABOVE)
010204,000455: 
010205,000456: 43,2362  E5,1425                                  EBANK=   QPLACE                                
010206,000457: 
010207,000458: 43,2362                                           COUNT    04/EXTVB                              
010208,000459: 
010209,000460: 43,2362           02727        SYSTEST            TC       CHKPOOH                               
010210,000461: 43,2363           30075                           CA       FLAGWRD1                              #  IS NODOP01 FLAGBIT ON? (SET BY P11)
010211,000462: 43,2364           75020                           MASK     NOP01BIT                              
010212,000463: 43,2365           00006                           EXTEND                                         
010213,000464: 43,2366           12371                           BZF      V92CONT                               #  IF IT'S NOT YET SET, CONTINUE
010214,000465: 43,2367           05725                           TC       POODOO                                #  IT'S ON. SEND NODO ALARM FOR P07
010215,000466: 43,2370           21521                           OCT      21521                                 
010216,000467: 43,2371           02733        V92CONT            TC       EXDAPOFF                              #  TURN DAP OFF IT IT'S ON
010217,000468: 43,2372           35016                           CAF      PRIO20                                
010218,000469: 43,2373           05163                           TC       FINDVAC                               
010219,000470: 43,2374  E5,1425                                  EBANK=   QPLACE                                
010220,000471: 43,2374  30,2000                                  SBANK=   IMUSUPER                              
010221,000472: 43,2374           02002 66065                     2CADR    REDO                                  
010222,000473: 
010223,000474: 43,2376           02123                           TC       GOPIN                                 
010224,000475: 
010225,000476:                                                                                                  #  REDO AND TSELECT ARE NOW IN SYSTEM TEST.              
010226,000477: 
010227,000478: 43,2377                                           COUNT*   $$/EXTVB                              
010228,000479:                                                                                                  #  CKOPTVB       VERB 65         DESCRIPTION
010229,000480:                                                                                                  #        OPTICAL VERIFICATION FOR PRELAUNCH.
010230,000481:                                                                                                  #        1.      SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
010231,000482: 
010232,000483: 43,2377           05400        CKOPTVB            TC       CHECKMM                               
010233,000484: 43,2400           00002                           MM       02         B-14                       #  I WONDER IF PRELAUNCH IS RUNNING
010234,000485: 43,2401           02122                           TC       ALM/END                               #  NOT RUNNING OPERATOR ERROR
010235,000486: 43,2402           00004                           INHINT                                         
010236,000487: 43,2403           35104                           CAF      PRIO16                                #  PRELAUNCH OPTICAL VERIFICATION
010237,000488: 43,2404           05163                           TC       FINDVAC                               
010238,000489: 43,2405  E5,1425                                  EBANK=   QPLACE                                
010239,000490: 43,2405           02000 66065                     2CADR    COMPVER                               #  STANDARD LEADIN TO GCOMPVER.
010240,000491: 
010241,000492: 43,2407           02123                           TC       GOPIN                                 
010242,000493: 
010243,000494:                                                                                                  #  V 78 ....     TO CHANGE GYROCOMPASS AZIMUTH
010244,000495: 
010245,000496: 43,2410           05400        CHAZFOGC           TC       CHECKMM                               #  IS IT PRELAUNCH
010246,000497: 43,2411           00002                           MM       02         B-14                       
010247,000498: 43,2412           02122                           TC       ALM/END                               #  NO - OPERA TOR ERROR
010248,000499: 
010249,000500: 43,2413           35104                           CAF      PRIO16                                #  PRELAUNCH AZIMUTH CHANGE
010250,000501: 43,2414           05163                           TC       FINDVAC                               
010251,000502: 43,2415  E5,1671                                  EBANK=   XSM                                   
010252,000503: 43,2415           03742 66065                     2CADR    AZMTHCG1                              
010253,000504: 
010254,000505: 43,2417           05426                           TC       PHASCHNG                              
010255,000506: 43,2420           00174                           OCT      00174                                 
010256,000507: 43,2421           02123                           TC       GOPIN                                 
010257,000508:                                                                                                  #  IMUATTCK      VERB 43         DESCRIPTION
010258,000509:                                                                                                  #        LOAD IMU ATTITUDE ERROR METERS
010259,000510: 
010260,000511:                                                                                                  #        1.      REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
010261,000512:                                                                                                  #        2.      IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
010262,000513:                                                                                                  #                FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
010263,000514:                                                                                                  #        3.      REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
010264,000515:                                                                                                  #        4.      DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010265,000516:                                                                                                  #        5.      UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
010266,000517:                                                                                                  #                TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
010267,000518:                                                                                                  #        6.      IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
010268,000519: 
010269,000520: 43,2422           02727        IMUATTCK           TC       CHKPOOH                               
010270,000521: 
010271,000522: 43,2423           32501                           CAF      OCTAL30                               #  CHECK IF IMU ZERO AND IMU COARSE ARE ON
010272,000523: 43,2424           00006                           EXTEND                                         
010273,000524: 43,2425           02012                           RAND     CHAN12                                
010274,000525: 43,2426           10000                           CCS      A                                     
010275,000526: 43,2427           12122                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010276,000527: 
010277,000528: 43,2430           02467                           TC       CKLFTBTS                              #  IS IT BEFORE OR AFTER LIFTOFF
010278,000529: 43,2431           02076                           TC       TESTXACT                              #  AFTER
010279,000530: 43,2432           45047                           CS       OCT50                                 #  REMOVE COARSE AND ECTR ENABLE.
010280,000531: 43,2433           00006                           EXTEND                                         
010281,000532: 43,2434           03012                           WAND     CHAN12                                
010282,000533: 
010283,000534: 43,2435           32175                           CAF      VNLODCDU                              
010284,000535: 43,2436           04676                           TC       BANKCALL                              
010285,000536: 43,2437           20561                           CADR     GOXDSPF                               
010286,000537: 43,2440           12454                           TCF      TRMATTCK                              
010287,000538: 43,2441           02442                           TC       +1                                    
010288,000539: 43,2442           35073                           CAF      EBANK6                                
010289,000540: 43,2443           54003                           TS       EBANK                                 #  SET E6 FOR NEEDLES.
010290,000541: 
010291,000542: 43,2444  E6,1476                                  EBANK=   AK                                    
010292,000543: 
010293,000544: 43,2444           04676                           TC       BANKCALL                              #  INITIALIZE CURRENT DAC AND
010294,000545: 43,2445           42455                           CADR     NEEDLE11                              #  COMMAND VALUES
010295,000546: 
010296,000547: 43,2446           04676                           TC       BANKCALL                              #  ENABLE ERROR COUNTERS.
010297,000548: 43,2447           42474                           CADR     NEEDLER2                              
010298,000549: 
010299,000550: 43,2450           35032                           CAF      TWO                                   #  4 MS MIN.
010300,000551: 43,2451           05261                           TC       WAITLIST                              
010301,000552: 43,2452  E6,1476                                  EBANK=   AK                                    
010302,000553: 43,2452           02457 66106                     2CADR    ATTCK1                                
010303,000554: 
010304,000555: 43,2454           02467        TRMATTCK           TC       CKLFTBTS                              #  IS IT BEFORE OR AFRER LIFTOFF
010305,000556: 43,2455           15550                           TCF      ENDEXT                                #  AFTER
010306,000557: 43,2456           02123                           TC       GOPIN                                 
010307,000558: 43,2457           00006        ATTCK1             EXTEND                                         #  TRANSFER LOADED VALUES TO DESIRED REGS.
010308,000559: 43,2460           31156                           DCA      THETAD                                
010309,000560: 43,2461           53477                           DXCH     AK                                    
010310,000561: 43,2462           31157                           CAE      THETAD     +2                         
010311,000562: 43,2463           55500                           TS       AK         +2                         
010312,000563: 
010313,000564: 43,2464           04754                           TC       IBNKCALL                              #  SENDS COMMANDS LIMITED TO +,- 384 PULSES
010314,000565: 43,2465           42510                           CADR     NEEDLES                               #  AND LEAVES ERROR COUNTERS ENABLED.
010315,000566: 
010316,000567: 43,2466           05340                           TC       TASKOVER                              
010317,000568: 
010318,000569: 43,2467           35027        CKLFTBTS           CAF      GRRBKBIT                              #  HAS LIFTOFF OCCURRED
010319,000570: 43,2470           70101                           MASK     FLAGWRD5                              
010320,000571: 43,2471           10000                           CCS      A                                     
010321,000572: 43,2472           00002                           TC       Q                                     #  YES
010322,000573: 43,2473           35027                           CAF      BIT5                                  
010323,000574: 43,2474           00006                           EXTEND                                         
010324,000575: 43,2475           02030                           RAND     CHAN30                                
010325,000576: 43,2476           10000                           CCS      A                                     
010326,000577: 43,2477           16706                           TCF      Q+1                                   
010327,000578: 43,2500           00002        XACT0Q             TC       Q                                     #  YES
010328,000579: 
010329,000580: 43,2501           00030        OCTAL30            OCT      30                                    
010330,000581: 43,2502           02076        VB64               TC       TESTXACT                              
010331,000582: 43,2503           00004                           INHINT                                         
010332,000583: 43,2504           35020                           CAF      PRIO4                                 
010333,000584: 43,2505           05163                           TC       FINDVAC                               
010334,000585: 43,2506  E4,1720                                  EBANK=   RHOSB                                 
010335,000586: 43,2506           03651 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
010336,000587: 
010337,000588: 43,2510           05233                           TC       ENDOFJOB                              
010338,000589: 
010339,000590:                                                                                                  #  ENATMA        VERB 58         DESCRIPTION
010340,000591:                                                                                                  #        ENABLE AUTOMATIC ATTITUDE MANEUVER
010341,000592: 
010342,000593:                                                                                                  #  VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT-
010343,000594:                                                                                                  #  IVITY.
010344,000595: 
010345,000596: 43,2511           05574        ENATMA             TC       DOWNFLAG                              #  RESET STIKFLAG.
010346,000597: 43,2512           00020                           ADRES    STIKFLAG                              #  BIT 14 FLAG 1
010347,000598: 43,2513           05562                           TC       UPFLAG                                #  SET FLAG TO ENABLE R60 MANEUVER
010348,000599: 43,2514           00055                           ADRES    V50N18FL                              
010349,000600: 43,2515           02123                           TC       GOPIN                                 
010350,000601: 
010351,000602:                                                                                                  #  STROKON       VERB 68         DESCRIPTION
010352,000603:                                                                                                  #        STROKE TEST SETUP/ENABLE
010353,000604:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG
010354,000605:                                                                                                  #        2.      SCHEDULE STRKTST1 WITH PRIORITY 30.
010355,000606:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY.
010356,000607: 
010357,000608: 43,2516  E6,1625                                  EBANK=   T5TVCDT                               
010358,000609: 43,2516           40102        STROKON            CS       FLAGWRD6                              #  V68   PERMITTED ONLY DURING TVC
010359,000610: 43,2517           74105                           MASK     OCT60000                              
010360,000611: 43,2520           00006                           EXTEND                                         
010361,000612: 43,2521           62122                           BZMF     ALM/END                               #  NOT TVC....FLASH OP ERROR LIGHT
010362,000613: 43,2522           34371                           CAF      PRIO30                                #  JOB REQUEST, TO SET UP STROKE TEST,
010363,000614: 43,2523           05150                           TC       NOVAC                                 #        INCLUDING INITIALIZATIONS
010364,000615: 43,2524  E6,1574                                  EBANK=   STROKER                               
010365,000616: 43,2524           03537 40106                     2CADR    STRKTSTI                              
010366,000617: 
010367,000618: 43,2526           02123                           TC       GOPIN                                 
010368,000619: 
010369,000620:                                                                                                  #  STABLISH      VERB 46         DESCRIPTION
010370,000621:                                                                                                  #        ESTABLISH G & N AUTOPILOT CONTROL
010371,000622:                                                                                                  #        1.      SETS UP EITHER RCS, ENTRY, OR SATURN
010372,000623:                                                                                                  #        2.      IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
010373,000624:                                                                                                  #                        FROM HIGH BW TO LOW BW
010374,000625: 
010375,000626: 
010376,000627: 43,2527           35073        STABLISH           CAF      EBANK6                                #  V46 - SET EBANK TO E6
010377,000628: 43,2530           54003                           TS       EBANK                                 
010378,000629: 
010379,000630: 43,2531           40102                           CS       FLAGWRD6                              #  TEST FOR TVC
010380,000631: 43,2532           74105                           MASK     OCT60000                              
010381,000632: 43,2533           00006                           EXTEND                                         
010382,000633: 43,2534           62544                           BZMF     +8D                                   
010383,000634: 
010384,000635: 43,2535           31466                           CAE      DAPDATR1                              #  TEST FOR CSM/LM
010385,000636: 43,2536           75016                           MASK     BIT14                                 
010386,000637: 43,2537           00006                           EXTEND                                         
010387,000638: 43,2540           62543                           BZMF     +3                                    
010388,000639: 
010389,000640: 43,2541           04715                           TC       POSTJUMP                              #  CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
010390,000641: 43,2542           36407                           CADR     PRESWTCH                              
010391,000642: 
010392,000643: 43,2543           02122                 +3        TC       ALM/END                               #  CSM, SO ALARM AND EXIT
010393,000644: 
010394,000645: 43,2544           04715                 +8        TC       POSTJUMP                              #  SET UP RCS, ENTRY, OR SATURN-STICK DAP
010395,000646: 43,2545           65605                           CADR     DAPFIG                                
010396,000647:                                                                                                  #  CREWMANU      VERB 49         DESCRIPTION
010397,000648:                                                                                                  #        START AUTOMATIC ATTITUDE MANEUVER
010398,000649: 
010399,000650:                                                                                                  #        1.      REQUIRE PROGRAM 00 ACTIVE.
010400,000651:                                                                                                  #        2.      SET EXT VERB DISPLAY BUSY FLAG.
010401,000652:                                                                                                  #        3.      SCHEDULE R62DISP WITH PRIORITY 10.
010402,000653:                                                                                                  #        4.      RELEASE EXT VERB DISPLAY.
010403,000654: 
010404,000655:                                                                                                  #        R62DISP
010405,000656:                                                                                                  #        1.      DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES).  UPON IMMEDIATE RETURN, SET-UP GROUP
010406,000657:                                                                                                  #                4 FOR RESTART OF DISPLAY SEQUENCE.
010407,000658:                                                                                                  #                RESPONSES
010408,000659:                                                                                                  #                A.      TERMINATE
010409,000660:                                                                                                  #                        1.      GO TO GOTOPOOH.
010410,000661:                                                                                                  #                B.      PROCEED
010411,000662:                                                                                                  #                        1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010412,000663:                                                                                                  #                        2.      EXECUTE R60CSM (ATTITUDE MANEUVER).
010413,000664:                                                                                                  #                        3.      ZERO GROUP 4 (END R62).
010414,000665:                                                                                                  #                C.      ENTER
010415,000666:                                                                                                  #                        1.      REPEAT FLASHING V06,N22.
010416,000667: 
010417,000668: 43,2546           02727        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
010418,000669: 
010419,000670: 43,2547           02076                           TC       TESTXACT                              
010420,000671: 
010421,000672: 43,2550           35017                           CAF      PRIO10                                
010422,000673: 43,2551           05163                           TC       FINDVAC                               
010423,000674: 43,2552     1155                                  EBANK=   CPHI                                  
010424,000675: 43,2552           02330 56102                     2CADR    R62DISP                               
010425,000676: 
010426,000677: 43,2554           05233                           TC       ENDOFJOB                              
010427,000678: 
010428,000679:                                                                                                  #  DAPDISP       VERB 48         DESCRIPTION
010429,000680:                                                                                                  #        LOAD AUTOPILOT DATA (ROUTINE R03)
010430,000681: 
010431,000682:                                                                                                  #        0.      CHECKFAIL AND RETURN IF TVC.
010432,000683:                                                                                                  #        1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010433,000684:                                                                                                  #        2.      LOWER PRIORITY TO 10.
010434,000685:                                                                                                  #        3.      DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
010435,000686:                                                                                                  #        4.      UPON PROCEED RESPONSE, EXECUTE S41.2.
010436,000687:                                                                                                  #        5.      DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010437,000688:                                                                                                  #        6.      UPON PROCEED RESPONSE EXECUTE S40.14.
010438,000689:                                                                                                  #        7.      DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010439,000690:                                                                                                  #        8.      UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
010440,000691: 
010441,000692: 43,2555                                           COUNT*   $$/EXTVB                              
010442,000693: 
010443,000694: 43,2555           40102        DAPDISP            CS       FLAGWRD6                              
010444,000695: 43,2556           74105                           MASK     OCT60000                              
010445,000696: 43,2557           00006                           EXTEND                                         
010446,000697: 43,2560           62562                           BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010447,000698: 43,2561           02122                           TC       ALM/END                               #  RETURN IF TVC
010448,000699: 
010449,000700: 43,2562           02076                           TC       TESTXACT                              
010450,000701: 43,2563           04676                           TC       BANKCALL                              
010451,000702: 43,2564           64000                           CADR     DAPDISP1                              
010452,000703: 42,2000                                           BANK     42                                    
010453,000704: 42,2000                                           SETLOC   EXTVBS                                
010454,000705: 42,2000                                           BANK                                           
010455,000706: 42,2000                                           COUNT    24/R03                                
010456,000707: 
010457,000708: 42,2000           35073        DAPDISP1           CAF      EBANK6                                
010458,000709: 42,2001           54003                           TS       EBANK                                 
010459,000710: 
010460,000711: 42,2002           35017                           CAF      PRIO10                                
010461,000712: 42,2003           05224                           TC       PRIOCHNG                              
010462,000713: 
010463,000714: 42,2004           32061        DONOUN46           CAF      V04N46                                #        R1              R2
010464,000715: 42,2005           04676                           TC       BANKCALL                              #        DAPDATR1        DAPDATR2
010465,000716: 42,2006           20561                           CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010466,000717: 
010467,000718: 42,2007           05550                           TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010468,000719: 42,2010           02012                           TC       +2                                    
010469,000720: 42,2011           02004                           TC       DONOUN46                              
010470,000721: 
010471,000722: 42,2012           31466                           CA       DAPDATR1                              
010472,000723: 42,2013           75030                           MASK     BIT4                                  
010473,000724: 42,2014           10000                           CCS      A                                     
010474,000725: 42,2015           12054                           TCF      MAXIN                                 
010475,000726: 42,2016           05574                           TC       DOWNFLAG                              
010476,000727: 42,2017           00212                           ADRES    MAXDBFLG                              
010477,000728: 42,2020           04676        MAXOUT             TC       BANKCALL                              
010478,000729: 42,2021           40366                           CADR     S41.2                                 
010479,000730: 
010480,000731: 42,2022           32060        DONOUN47           CAF      V06N47                                #        R1              R2              R3
010481,000732: 42,2023           04676                           TC       BANKCALL                              #        CSM WGT.        LEM WGT.        BLANK
010482,000733: 42,2024           20561                           CADR     GOXDSPF                               
010483,000734: 
010484,000735: 42,2025           05550                           TC       ENDEXT                                
010485,000736: 42,2026           02030                           TC       +2                                    
010486,000737: 42,2027           02022                           TC       DONOUN47                              
010487,000738: 42,2030           31466                           CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
010488,000739: 42,2031           74371                           MASK     PRIO30                                #  CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA)
010489,000740: 42,2032           00006                           EXTEND                                         
010490,000741: 42,2033           12046                           BZF      DONOUN48                              #  SKIP IF 0,4
010491,000742: 42,2034           40000                           COM                                            
010492,000743: 42,2035           74371                           MASK     PRIO30                                
010493,000744: 42,2036           00006                           EXTEND                                         
010494,000745: 42,2037           12046                           BZF      DONOUN48                              #  SKIP IF 3,7
010495,000746: 42,2040           00004                           INHINT                                         
010496,000747: 42,2041           04754                           TC       IBNKCALL                              
010497,000748: 42,2042           13370                           CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLX
010498,000749: 
010499,000750: 42,2043           00003                           RELINT                                         
010500,000751: 42,2044           04676                           TC       BANKCALL                              
010501,000752: 42,2045           40517                           CADR     S40.14                                #  COMPUTE RCS DAP STUFF
010502,000753: 
010503,000754: 42,2046           32057        DONOUN48           CAF      V0648                                 #        R1              R2              R3
010504,000755: 42,2047           04676                           TC       BANKCALL                              #        PTRIM           YTRIM           BLANK
010505,000756: 42,2050           20561                           CADR     GOXDSPF                               
010506,000757: 
010507,000758: 42,2051           05550                           TC       ENDEXT                                
010508,000759: 42,2052           05550                           TC       ENDEXT                                
010509,000760: 42,2053           02046                           TC       DONOUN48                              
010510,000761: 
010511,000762: 42,2054           05562        MAXIN              TC       UPFLAG                                
010512,000763: 42,2055           00212                           ADRES    MAXDBFLG                              
010513,000764: 42,2056           02020                           TC       MAXOUT                                
010514,000765: 
010515,000766: 42,2057           01460        V0648              VN       0648                                  
010516,000767: 42,2060           01457        V06N47             VN       0647                                  
010517,000768: 42,2061           01056        V04N46             VN       0446                                  
010518,000769: 43,2565                                           BANK     43                                    
010519,000770: 43,2000                                           SETLOC   EXTVERBS                              
010520,000771: 43,2000                                           BANK                                           
010521,000772: 
010522,000773: 43,2565                                           COUNT*   $$/EXTVB                              
010523,000774: 
010524,000775:                                                                                                  #  V82PERF       VERB82          DESCRIPTION
010525,000776:                                                                                                  #        REQUEST ORBIT PARAMETERS DISPLAY (R30)
010526,000777: 
010527,000778:                                                                                                  #        1.      IF AVERAGE G IS OFF:
010528,000779:                                                                                                  #                        FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010529,000780:                                                                                                  #                         TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
010530,000781:                                                                                                  #                         CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
010531,000782:                                                                                                  #                        SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010532,000783:                                                                                                  #                        CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
010533,000784:                                                                                                  #                         RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
010534,000785:                                                                                                  #                         HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010535,000786:                                                                                                  #                         HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
010536,000787:                                                                                                  #                         INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010537,000788:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
010538,000789:                                                                                                  #                         NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010539,000790:                                                                                                  #                         ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010540,000791:                                                                                                  #                         DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010541,000792:                                                                                                  #                         ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010542,000793: 
010543,000794:                                                                                                  #        2.      IF AVERAGE G IS ON:
010544,000795:                                                                                                  #                        CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
010545,000796:                                                                                                  #                         FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
010546,000797:                                                                                                  #                         OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010547,000798:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010548,000799:                                                                                                  #                         IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010549,000800:                                                                                                  #                         RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010550,000801: 
010551,000802:                                                                                                  #  ADDENDUM:     HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
010552,000803:                                                                                                  #                ABOVE REMARKS.
010553,000804: 
010554,000805: 43,2565           02076        V82PERF            TC       TESTXACT                              
010555,000806: 
010556,000807: 43,2566           35077                           CAF      PRIO7                                 
010557,000808: 43,2567           05224                           TC       PRIOCHNG                              
010558,000809: 43,2570           04715                           TC       POSTJUMP                              
010559,000810: 43,2571           46332                           CADR     V82CALL                               #  ***** V82CALL MUST NOT BE A FINDVAC JOB.
010560,000811: 
010561,000812:                                                                                                  #  VB83PERF      VERB 83         DESCRIPTION
010562,000813:                                                                                                  #        REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010563,000814: 
010564,000815:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
010565,000816:                                                                                                  #        2.      SCHEDULE V83CALL WITH PRIORITY 10.
010566,000817:                                                                                                  #                A.      DISPLAY
010567,000818:                                                                                                  #                        R1      RANGE
010568,000819:                                                                                                  #                        R2      RANGE RATE
010569,000820:                                                                                                  #                        R3      THETA
010570,000821: 
010571,000822: 43,2572           02076        V83PERF            TC       TESTXACT                              
010572,000823: 43,2573           05562                           TC       UPFLAG                                
010573,000824: 43,2574           00222                           ADRES    R31FLAG                               
010574,000825: 43,2575           35075                 +3        CAF      PRIO5                                 
010575,000826: 43,2576           05150                           TC       NOVAC                                 
010576,000827: 43,2577  E4,1770                                  EBANK=   SUBEXIT                               
010577,000828: 43,2577           02000 62064                     2CADR    R31CALL                               
010578,000829: 
010579,000830: 43,2601           05233                           TC       ENDOFJOB                              
010580,000831: 

Reconstruction: In Comanche 67 and earlier, R31FLAG is taken down with the sequence
 INHINT
 CS    R31FLBIT
 MASK  FLAGWRD9
 TS    FLAGWRD9
This coding was replaced with the more space-efficient DOWNFLAG call as part of ACB-98, "Delete INHINT before FINDVAC in V89". The apparent disconnect between the ACB title and this change is due to the fact that ACB forms did not have formal titles. Usually such forms only listed out a single change, but in this instance, the ACB form covers two different changes. The first change appearing on the form was apparently used as its title; this second change is therefore mentioned nowhere other than the original ACB form itself.

010597,000848: 43,2602           02076        V85PERF            TC       TESTXACT                              
010598,000849: 43,2603           05574                           TC       DOWNFLAG                              #  RESET R31 FLAG TO INDICATE R34
010599,000850: 43,2604           00222                           ADRES    R31FLAG                               
010600,000851: 43,2605           02575                           TC       V83PERF    +3                         
010601,000852:                                                                                                  #        GOTOR21         VERB 57
010602,000853:                                                                                                  #        GOTOR23-        VERB 54         DESCRIPTION
010603,000854:                                                                                                  #  SET UP MARKING FOR R22 (REND TRACK DATA PROC)
010604,000855:                                                                                                  #  1.    SET EXT VERB DISPLAY BUSY FLAG
010605,000856:                                                                                                  #  2.    IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
010606,000857:                                                                                                  #        SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
010607,000858:                                                                                                  #  3.    RELEASE EXT VERB DISPLAY SYSTEM
010608,000859: 
010609,000860: 43,2606           05574        GOTOR21            TC       DOWNFLAG                              #  CLEAR R23FLG
010610,000861: 43,2607           00025                           ADRES    R23FLG                                #  BIT 9 FLAG 1
010611,000862: 43,2610           02613                           TC       +3                                    
010612,000863: 43,2611           05562        GOTOR23            TC       UPFLAG                                #  SET R23FLG
010613,000864: 43,2612           00025                           ADRES    R23FLG                                #  BIT 9 FLAG 1
010614,000865: 43,2613           02076                           TC       TESTXACT                              
010615,000866: 43,2614           30074                           CA       FLAGWRD0                              #  VB 57 UNNACCEPTABLE UNLESS BOTH
010616,000867: 43,2615           75025                           MASK     RNDVZBIT                              #        RENDEZVOUS AND TRACK FLAGS ON
010617,000868: 43,2616           00006                           EXTEND                                         
010618,000869: 43,2617           12642                           BZF      R22ALARM                              
010619,000870: 
010620,000871: 43,2620           30075                           CA       FLAGWRD1                              
010621,000872: 43,2621           75027                           MASK     TRACKBIT                              
010622,000873: 43,2622           00006                           EXTEND                                         
010623,000874: 43,2623           12642                           BZF      R22ALARM                              
010624,000875: 
010625,000876: 43,2624           30075                           CA       FLAGWRD1                              #  TEST R23FLG
010626,000877: 43,2625           75023                           MASK     R23BIT                                
010627,000878: 43,2626           00006                           EXTEND                                         
010628,000879: 43,2627           12635                           BZF      REGR21                                #  R21
010629,000880: 43,2630           35104                           CAF      PRIO16                                
010630,000881: 43,2631           05150                           TC       NOVAC                                 
010631,000882: 43,2632  E7,1725                                  EBANK=   MRKBUF1                               
010632,000883: 43,2632           02501 76067                     2CADR    R23CSM                                
010633,000884: 
010634,000885: 43,2634           05233                           TC       ENDOFJOB                              
010635,000886: 43,2635           35104        REGR21             CAF      PRIO16                                
010636,000887: 43,2636           05150                           TC       NOVAC                                 
010637,000888: 43,2637  E7,1725                                  EBANK=   MRKBUF1                               
010638,000889: 43,2637           02477 76067                     2CADR    R21CSM                                
010639,000890: 
010640,000891: 43,2641           05233                           TC       ENDOFJOB                              
010641,000892: 43,2642           05664        R22ALARM           TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
010642,000893: 43,2643           00406                           OCT      00406                                 #        NOR TRACK FLAG WERE ON.
010643,000894: 43,2644           05550                           TC       ENDEXT                                
010644,000895: 
010645,000896:                                                                                                  #  VERB 86       DESCRIPTION
010646,000897:                                                                                                  #        V86 IS TO R23 AS MARK REJECT IS TO R21
010647,000898:                                                                                                  #        V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
010648,000899: 
010649,000900: 43,2645  E7,1725                                  EBANK=   MRKBUF1                               
010650,000901: 43,2645           35074        V86PERF            CAF      EBANK7                                #  BACKUP MARK REJECT (R23)
010651,000902: 43,2646           56003                           XCH      EBANK                                 
010652,000903: 43,2647           37716                           CA       NEGONE                                
010653,000904: 43,2650           55725                           TS       MRKBUF1                               
010654,000905: 43,2651           02123                           TC       GOPIN                                 
010655,000906: 
010656,000907:                                                                                                  #  TRACKTRM      VERB 56         DESCRIPTION
010657,000908:                                                                                                  #        TERMINATE TRACKING (P20)
010658,000909:                                                                                                  #        1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
010659,000910:                                                                                                  #        2.      REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
010660,000911:                                                                                                  #        3.      REQUIRE R22 RUNNING OR GO TO PINBRNCH.
010661,000912:                                                                                                  #        4.      IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
010662,000913:                                                                                                  #        3.      KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
010663,000914:                                                                                                  #        4.      GO TO ENEMA (SOFTWARE RESTART).
010664,000915:                                                                                                  #        REFERENCE
010665,000916:                                                                                                  #                P20     RENDEZVOUS      NAVIGATION.
010666,000917:                                                                                                  #                R21     RENDEZVOUS      TRACKING SIGHTING MARK.
010667,000918:                                                                                                  #                R22     RENDEZVOUS      TRACKING DATA PROCESSING.
010668,000919: 
010669,000920: 43,2652           35025        TRACKTRM           CA       RNDVZBIT                              #  IS REND FLAG ON
010670,000921: 43,2653           70074                           MASK     FLAGWRD0                              
010671,000922: 43,2654           00006                           EXTEND                                         
010672,000923: 43,2655           12123                           BZF      GOPIN                                 #  NO
010673,000924: 
010674,000925: 43,2656           05574                           TC       DOWNFLAG                              
010675,000926: 43,2657           00010                           ADRES    RNDVZFLG                              
010676,000927: 
010677,000928: 43,2660           35027                           CA       TRACKBIT                              #  IS TRACK FLAG ON
010678,000929: 43,2661           70075                           MASK     FLAGWRD1                              
010679,000930: 43,2662           00006                           EXTEND                                         
010680,000931: 43,2663           12123                           BZF      GOPIN                                 #  NO
010681,000932: 
010682,000933: 43,2664           05574                           TC       DOWNFLAG                              
010683,000934: 43,2665           00031                           ADRES    TRACKFLG                              
010684,000935: 
010685,000936: 43,2666           05574                           TC       DOWNFLAG                              
010686,000937: 43,2667           00027                           ADRES    UPDATFLG                              
010687,000938: 
010688,000939: 43,2670           05574                           TC       DOWNFLAG                              
010689,000940: 43,2671           00007                           ADRES    IMUSE                                 
010690,000941: 
010691,000942: 43,2672           35073                           CAF      EBANK6                                
010692,000943: 43,2673           54003                           TS       EBANK                                 
010693,000944: 
010694,000945: 43,2674           00004                           INHINT                                         
010695,000946: 43,2675           04526                           TC       STOPRATE                              
010696,000947: 
010697,000948: 43,2676           37716                           CAF      NEGONE                                
010698,000949: 43,2677           55303                           TS       OPTIND                                
010699,000950: 
010700,000951: 43,2700           06006                           TC       INTPRET                               
010701,000952: 43,2701           77624                           CALL                                           
010702,000953: 43,2702           27446                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
010703,000954: 43,2703           77776                           EXIT                                           
010704,000955: 
010705,000956: 43,2704           05406                           TC       2PHSCHNG                              
010706,000957: 43,2705           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
010707,000958: 43,2706           00001                           OCT      1                                     #  ALSO KILL GROUP 1
010708,000959: 
010709,000960: 43,2707           00004        CLEANOUT           INHINT                                         
010710,000961: 43,2710           04715                           TC       POSTJUMP                              
010711,000962: 43,2711           12651                           CADR     ENEMA                                 #  CAUSE RESTART
010712,000963: 
010713,000964:                                                                                                  #  LEMVEC        VERB 80         DESCRIPTION
010714,000965:                                                                                                  #        UPDATE LEM STATE VECTOR
010715,000966:                                                                                                  #                RESET VEHUPFLG TO 0
010716,000967: 
010717,000968: 43,2712           05574        LEMVEC             TC       DOWNFLAG                              
010718,000969: 43,2713           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
010719,000970: 
010720,000971: 43,2714           12123                           TCF      GOPIN                                 
010721,000972: 
010722,000973:                                                                                                  #  CSMVEC        VERB 81         DESCRIPTION
010723,000974:                                                                                                  #        UPDATE CSM STATE VECTOR
010724,000975:                                                                                                  #                SET VEHUPFLG TO 1
010725,000976: 
010726,000977: 43,2715           05562        CSMVEC             TC       UPFLAG                                
010727,000978: 43,2716           00026                           ADRES    VEHUPFLG                              #  VEHUPFLG UP INDICATES CM.
010728,000979: 
010729,000980: 43,2717           12123                           TCF      GOPIN                                 
010730,000981: 
010731,000982:                                                                                                  #  DNEDUMP       VERB 74         DESCRIPTION
010732,000983:                                                                                                  #        INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
010733,000984: 
010734,000985:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
010735,000986:                                                                                                  #        2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
010736,000987:                                                                                                  #        3.      RELEASE EXT VERB DISPLAY.
010737,000988: 
010738,000989: 43,2720     0010                                  EBANK=   10                                    
010739,000990: 43,2720           32723        DNEDUMP            CAF      LDNDUMPI                              
010740,000991: 43,2721           54334                           TS       DNTMGOTO                              
010741,000992: 43,2722           02123                           TC       GOPIN                                 
010742,000993: 
010743,000994: 43,2723  43,2720               V74                EQUALS   DNEDUMP                               
010744,000995: 43,2723           03715        LDNDUMPI           REMADR   DNDUMPI                               
010745,000996: 
010746,000997:                                                                                                  #  LFTFLGON      VERB 75         DESCRIPTION
010747,000998:                                                                                                  #        SET LIFT-OFF FLAG
010748,000999:                                                                                                  #        1.      SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
010749,001000:                                                                                                  #        2.      RETURN VIA PINBRNCH
010750,001001: 
010751,001002: 43,2724           05562        LFTFLGON           TC       UPFLAG                                #  VB 75 - SET LIFTOFF FLAG BIT
010752,001003: 43,2725           00125                           ADRES    GRRBKFLG                              #  BIT 5 FLAG 5
010753,001004: 43,2726           02123                           TC       GOPIN                                 
010754,001005: 
010755,001006: 43,2727           31011        CHKPOOH            CA       MODREG                                
010756,001007: 43,2730           00006                           EXTEND                                         
010757,001008: 43,2731           16711                           BZF      TCQ                                   
010758,001009: 43,2732           12122                           TCF      ALM/END                               
010759,001010: 

Reconstruction: The INHINT instruction in EXDAPOFF below was added to correct anomaly COM-26, "Extended verb 92 flag 6 is changed while job is not in INHINT". Its exact placement is unfortunately ambiguous; while the placement shown here is the most likely, it could also have appeared one instruction later, one instruction earlier, or as the first instruction of the function. In all cases, the anomaly would be fixed, and the resulting bank checksum would be exactly the same. It is therefore unfortunately not possible for us to know its precise location without finding more detailed original sources.

010769,001020: 43,2733           00006        EXDAPOFF           EXTEND                                         
010770,001021: 43,2734           32744                           DCA      IDLECADR                              #  SET T5 TO IDLE.
010771,001022: 43,2735           53313                           DXCH     T5LOC                                 
010772,001023: 43,2736           00004                           INHINT                                         
010773,001024: 43,2737           44105                           CS       OCT60000                              
010774,001025: 43,2740           70102                           MASK     FLAGWRD6                              #  RESET DAPBITS 1 AND 2.
010775,001026: 43,2741           54102                           TS       FLAGWRD6                              
010776,001027: 43,2742           00002                           TC       Q                                     
010777,001028: 
010778,001029: 43,2743  E6,1423                                  EBANK=   PACTOFF                               
010779,001030: 43,2743           03155 12106  IDLECADR           2CADR    T5IDLOC                               
010780,001031: 
010781,001032:                                                                                                  #  VERB 89       DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
010782,001033:                                                                                                  #  
010783,001034:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED. CALCULATES AND
010784,001035:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
010785,001036:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
010786,001037: 
010787,001038:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
010788,001039:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
010789,001040: 
010790,001041:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH).  IF IMU ON AND ITS
010791,001042:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
010792,001043: 
010793,001044:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
010794,001045:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
010795,001046:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
010796,001047:                                                                                                  #  AFTER KEYING IN PROCEED.
010797,001048: 
010798,001049:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
010799,001050:                                                                                                  #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
010800,001051: 
010801,001052:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
010802,001053: 
010803,001054:                                                                                                  #        R63COMP JOB:
010804,001055: 
010805,001056:                                                                                                  #                UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
010806,001057: 
010807,001058:                                                                                                  #                CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
010808,001059: 
010809,001060:                                                                                                  #                DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
010810,001061:                                                                                                  #                ARE STORED FOR LATER R60CSM CALL.
010811,001062: 
010812,001063:                                                                                                  #  6.  FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
010813,001064: 
010814,001065:                                                                                                  #  7.  RECYCLE-  RETURN TO STEP 5.
010815,001066:                                                                                                  #      TERMINATE-  EXIT R63 ROUTINE
010816,001067:                                                                                                  #      PROCEED-  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
010817,001068: 

Reconstruction: In Comanche 67 and earlier, V89PERF contained an INHINT prior to the call to FINDVAC. It was deleted as part of ACB-98, "Delete INHINT before FINDVAC in V89".

010821,001072: 43,2745           02727        V89PERF            TC       CHKPOOH                               #  DEMAND P00
010822,001073: 43,2746           02076                           TC       TESTXACT                              
010823,001074: 43,2747           35017                           CAF      PRIO10                                
010824,001075: 43,2750           05163                           TC       FINDVAC                               
010825,001076: 43,2751  E4,1715                                  EBANK=   P21TIME                               
010826,001077: 43,2751           03712 70064                     2CADR    V89CALL                               
010827,001078: 
010828,001079: 43,2753           15233                           TCF      ENDOFJOB                              
010829,001080: 
010830,001081: 43,2754           05574        WMATRXNG           TC       DOWNFLAG                              #  RESET RENDWFLG
010831,001082: 43,2755           00131                           ADRES    RENDWFLG                              
010832,001083: 
010833,001084: 43,2756           05574                           TC       DOWNFLAG                              #  RESET ORBWFLAG
010834,001085: 43,2757           00066                           ADRES    ORBWFLAG                              
010835,001086: 43,2760           02123                           TC       GOPIN                                 
010836,001087: 
010837,001088: 43,2761  43,2761               GOSHOSUM           EQUALS   SHOWSUM                               
010838,001089: 
010839,001090: 43,2761           02727        SHOWSUM            TC       CHKPOOH                               
010840,001091: 43,2762           02076                           TC       TESTXACT                              #  *
010841,001092: 43,2763           35033                           CAF      S+1                                   #  *
010842,001093: 43,2764           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
010843,001094: 43,2765           35035                           CAF      S+ZERO                                #  *
010844,001095: 43,2766           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
010845,001096: 43,2767           33257                           CA       SELFADRS                              #  *
010846,001097: 43,2770           55361                           TS       SELFRET                               #  *
010847,001098: 43,2771           03534                           TC       STSHOSUM                              #  * ENTER ROPECHK
010848,001099: 
010849,001100: 43,2772           23372        SDISPLAY           LXCH     SKEEP2                                #  * BNK NO FOR DSP
010850,001101: 43,2773           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
010851,001102: 43,2774           33256        NOKILL             CA       ADRS1                                 #  *
010852,001103: 43,2775           54156                           TS       MPAC       +2                         #  *
010853,001104: 43,2776           33007                           CA       VNCON                                 #  * 0501
010854,001105: 43,2777           04676                           TC       BANKCALL                              #  *
010855,001106: 43,3000           20561                           CADR     GOXDSPF                               #  *
010856,001107: 43,3001           03004                           TC       +3                                    #  *
010857,001108: 43,3002           03645                           TC       NXTBNK                                #  *
010858,001109: 43,3003           02774                           TC       NOKILL                                #  *
010859,001110: 43,3004           33257                           CA       SELFADRS                              
010860,001111: 43,3005           55371                           TS       SKEEP1                                
010861,001112: 
010862,001113: 43,3006           05550                           TC       ENDEXT                                #  *
010863,001114: 
010864,001115: 43,3007           01201        VNCON              VN       501                                   #  *
010865,001116: 
010866,001117: 43,3010           31376        ENDSUMS            CA       SKEEP6                                #  *
010867,001118: 43,3011           00006                           EXTEND                                         #  *
010868,001119: 43,3012           13350                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
010869,001120: 43,3013           03534                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
010870,001121: 
010871,001122: 
010872,001123:                                                                                                  #  VB 76   SET PREFERRED ATTITUDE FLAG - DRIVE TO PREFERRED.
010873,001124: 
010874,001125: 43,3014           05562        SETPRFLG           TC       UPFLAG                                
010875,001126: 43,3015           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
010876,001127: 43,3016           02123                           TC       GOPIN                                 
010877,001128: 
010878,001129:                                                                                                  #  VB 77  RESET PREFERRED ATTITUDE FLAG - DRIVE TO +X-AXIS ATT.
010879,001130: 
010880,001131: 43,3017           05574        RESETPRF           TC       DOWNFLAG                              
010881,001132: 43,3020           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
010882,001133: 43,3021           02123                           TC       GOPIN                                 
010883,001134: 
010884,001135:                                                                                                  #  VB 87   SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
010885,001136: 
010886,001137: 43,3022           06006        SETVHFLG           TC       INTPRET                               
010887,001138: 43,3023           77414                           SET      EXIT                                  
010888,001139: 43,3024           04466                                    VHFRFLAG                              
010889,001140: 43,3025           02123                           TC       GOPIN                                 
010890,001141: 
010891,001142:                                                                                                  #  VB 88   RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
010892,001143: 
010893,001144: 43,3026           06006        RESETVHF           TC       INTPRET                               
010894,001145: 43,3027           77414                           CLEAR    EXIT                                  
010895,001146: 43,3030           04666                                    VHFRFLAG                              
010896,001147: 43,3031           05645                           TC       TRFAILOF                              #  TRACKER FAIL LIGHT
010897,001148: 
010898,001149: 43,3032           02123                           TC       GOPIN                                 
010899,001150: 
010900,001151:                                                                                                  #  VERB 66.      VEHICLES ARE ATTACHED.- MOVE THIS VEHICLE STATE VECTOR TO
010901,001152:                                                                                                  #                OTHER VEHICLE STATE VECTOR.
010902,001153: 
010903,001154:                                                                                                  #  USE SUBROUTINE GENTRAN.
010904,001155: 
010905,001156: 43,3033  E3,1554                                  EBANK=   RRECTHIS                              
010906,001157: 43,3033           35017        ATTACHED           CAF      PRIO10                                
010907,001158: 43,3034           05163                           TC       FINDVAC                               
010908,001159: 43,3035  E3,1554                                  EBANK=   RRECTHIS                              
010909,001160: 43,3035           02000 42103                     2CADR    ATTACHIT                              
010910,001161: 
010911,001162: 43,3037           05233                           TC       ENDOFJOB                              
010912,001163: 
010913,001164: 21,2000                                           SETLOC   EXTVRBS2                              
010914,001165: 21,2000                                           BANK                                           
010915,001166: 21,2000                                           COUNT*   $$/EXTVB                              
010916,001167: 21,2000           06006        ATTACHIT           TC       INTPRET                               
010917,001168: 21,2001           77624                           CALL                                           
010918,001169: 21,2002           27446                                    INTSTALL                              
010919,001170: 21,2003           43014                           SET      BON                                   
010920,001171: 21,2004           04064                                    MOONOTH                               
010921,001172: 21,2005           04303                                    MOONTHIS                              
010922,001173: 21,2006           36000                                    CMMOVE                                
010923,001174: 21,2007           52014                           CLEAR    GOTO                                  
010924,001175: 21,2010           04264                                    MOONOTH                               
010925,001176: 21,2011           36000                                    CMMOVE                                
010926,001177: 
010927,001178: 17,2000                                           SETLOC   EXTVRBS1                              
010928,001179: 17,2000                                           BANK                                           
010929,001180: 17,2000                                           COUNT*   $$/EXTVB                              
010930,001181: 17,2000           77776        CMMOVE             EXIT                                           
010931,001182: 17,2001           32026                           CAF      OCT51                                 
010932,001183: 17,2002           05622                           TC       GENTRAN                               
010933,001184: 17,2003           01554                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
010934,001185: 17,2004           01626                           ADRES    RRECTOTH                              
010935,001186: 
010936,001187: 17,2005           00003        TACHEXIT           RELINT                                         
010937,001188: 17,2006           06006                           TC       INTPRET                               
010938,001189: 17,2007           77624                           CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
010939,001190: 17,2010           26740                                    PTOACSM                               
010940,001191: 17,2011           45154                           LXA,2    CALL                                  
010941,001192: 17,2012           02150                                    PBODY                                 
010942,001193: 17,2013           20237                                    SVDWN1                                
010943,001194: 17,2014           77624                           CALL                                           
010944,001195: 17,2015           20263                                    SVDWN2                                
010945,001196: 17,2016           77776                           EXIT                                           
010946,001197: 
010947,001198: 17,2017           32027                           CAF      TCPINAD                               
010948,001199: 17,2020           50120                           INDEX    FIXLOC                                
010949,001200: 17,2021           54052                           TS       QPRET                                 
010950,001201: 17,2022           04715                           TC       POSTJUMP                              
010951,001202: 17,2023           27463                           CADR     INTWAKE                               
010952,001203: 
010953,001204: 17,2024           77634        TCPIN              RTB                                            
010954,001205: 17,2025           21272                                    PINBRNCH                              
010955,001206: 
010956,001207: 17,2026           00051        OCT51              OCT      51                                    
010957,001208: 17,2027           36024        TCPINAD            CADR     TCPIN                                 
010958,001209: 
010959,001210: 43,2000                                           SETLOC   EXTVERBS                              
010960,001211: 43,2000                                           BANK                                           
010961,001212: 43,3040                                           COUNT*   $$/EXTVB                              
010962,001213: 
010963,001214:                                                                                                  #  VERB 47  MOVE LM STATE VECTOR INTO CM STATE VECTOR.
010964,001215: 
010965,001216: 43,3040           35017        LMTOCMSV           CAF      PRIO10                                
010966,001217: 43,3041           05163                           TC       FINDVAC                               
010967,001218: 43,3042  E3,1554                                  EBANK=   RRECTHIS                              
010968,001219: 43,3042           03045 66103                     2CADR    LMTOCM                                
010969,001220: 
010970,001221: 43,3044           05233                           TC       ENDOFJOB                              
010971,001222: 
010972,001223: 43,3045           06006        LMTOCM             TC       INTPRET                               
010973,001224: 43,3046           77624                           CALL                                           
010974,001225: 43,3047           27446                                    INTSTALL                              
010975,001226: 43,3050           43014                           SET      BON                                   
010976,001227: 43,3051           04063                                    MOONTHIS                              
010977,001228: 43,3052           04304                                    MOONOTH                               
010978,001229: 43,3053           36030                                    LMMOVE                                
010979,001230: 43,3054           52014                           CLEAR    GOTO                                  
010980,001231: 43,3055           04263                                    MOONTHIS                              
010981,001232: 43,3056           36030                                    LMMOVE                                
010982,001233: 
010983,001234: 17,2000                                           SETLOC   EXTVRBS1                              
010984,001235: 17,2000                                           BANK                                           
010985,001236: 17,2030                                           COUNT*   $$/EXTVB                              
010986,001237: 17,2030           77776        LMMOVE             EXIT                                           
010987,001238: 17,2031           32026                           CAF      OCT51                                 
010988,001239: 17,2032           05622                           TC       GENTRAN                               
010989,001240: 17,2033           01626                           ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
010990,001241: 17,2034           01554                           ADRES    RRECTHIS                              
010991,001242: 
010992,001243: 17,2035           12005                           TCF      TACHEXIT                              
010993,001244: 
010994,001245: 43,2000                                           SETLOC   EXTVERBS                              
010995,001246: 43,2000                                           BANK                                           
010996,001247: 43,3057                                           COUNT*   $$/EXTVB                              
010997,001248: 
010998,001249:                                                                                                  #  VERB 94   DO R64 VIA ENEMA TO PICK UP IN P23.
010999,001250: 
011000,001251: 43,3057           35021        VERB94             CAF      V94FLBIT                              
011001,001252: 43,3060           70105                           MASK     FLAGWRD9                              #  IS V94FLAG SET
011002,001253: 43,3061           00006                           EXTEND                                         
011003,001254: 43,3062           12122                           BZF      ALM/END                               #  NO - OPERATOR ERROR
011004,001255: 
011005,001256: 43,3063           05574                           TC       DOWNFLAG                              
011006,001257: 43,3064           00213                           ADRES    V94FLAG                               
011007,001258: 
011008,001259: 43,3065           05400                           TC       CHECKMM                               #  IS IT P23
011009,001260: 43,3066           00027                           MM       23         B-14                       
011010,001261: 43,3067           02122                           TC       ALM/END                               #  NO - OPERATOR ERROR
011011,001262: 43,3070           05426                           TC       PHASCHNG                              
011012,001263: 43,3071           00112                           OCT      112                                   #  SET GROUP 2 TO DO R64
011013,001264: 
011014,001265: 43,3072           02707                           TC       CLEANOUT                              #  CAUSE RESTART
011015,001266: 
011016,001267:                                                                                                  #  V90PERF       VERB 90         DESCRIPTION
011017,001268:                                                                                                  #        REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011018,001269: 
011019,001270:                                                                                                  #        1.      SET EXT VERB DISPLAY BUSY FLAG.
011020,001271:                                                                                                  #        2.      SCHEDULE R36 CALL WITH PRIORITY 10
011021,001272:                                                                                                  #                A.      DISPLAY
011022,001273:                                                                                                  #                        TIME OF EVENT - HOURS, MINUTES, SECONDS
011023,001274:                                                                                                  #                        Y       OUT-OF-PLANE POSITION - NAUTICAL MILES
011024,001275:                                                                                                  #                        YDOT    OUT-OF-PLANE VELOCITY - FEET/SECOND
011025,001276:                                                                                                  #                        PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
011026,001277:                                                                                                  #                                DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011027,001278: 

Reconstruction: In Comanche 67 and earlier, V90PERF starts R36 with EBANK= RPASS36 (erasable bank 4). It was changed to EBANK= TIG (erasable bank 7) as part of PCR-936.1, "Initialize V90 time to TIG".

011031,001282: 43,3073           02076        V90PERF            TC       TESTXACT                              
011032,001283: 43,3074           35077                           CAF      PRIO7                                 #  R36.V90
011033,001284: 43,3075           05163                           TC       FINDVAC                               
011034,001285: 43,3076  E7,1412                                  EBANK=   TIG                                   
011035,001286: 43,3076           02164 40107                     2CADR    R36                                   
011036,001287: 
011037,001288: 43,3100           15233                           TCF      ENDOFJOB                              
011038,001289: 
011039,001290:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
011040,001291: 
011041,001292: 43,3101           05562        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011042,001293: 43,3102           00221                           ADRES    QUITFLAG                              #        AT NEXT TIMESTEP
011043,001294: 
011044,001295: 43,3103           05562                           TC       UPFLAG                                
011045,001296: 43,3104           00204                           ADRES    V96ONFLG                              
011046,001297: 43,3105           35035                           CAF      ZERO                                  
011047,001298: 43,3106           04715                           TC       POSTJUMP                              
011048,001299: 43,3107           10011                           CADR     V37                                   #  GO TO POO
011049,001300: 
011050,001301: 43,3110  E5,1751                                  EBANK=   LANDMARK                              
011051,001302: 43,3110           05400        V52                TC       CHECKMM                               #  IS P22 OPERATING
011052,001303: 43,3111           00026                           MM       22         B-14                       
011053,001304: 43,3112           02122                           TC       ALM/END                               #  NO
011054,001305: 43,3113           35072                           CAF      LANDBANK                              
011055,001306: 43,3114           54003                           TS       EBANK                                 
011056,001307: 
011057,001308: 43,3115           45077                           CS       PRIO7                                 #  YES   SET BITS 12,11,10 OF LANDMARK =
011058,001309: 43,3116           71751                           MASK     LANDMARK                              #        BITS 14,13,12 OF MARKSTAT AFTER
011059,001310: 43,3117           55751                           TS       LANDMARK                              #        SUBT. THEM FROM 5 TO GET OFFSET
011060,001311: 43,3120           31330                           CA       MARKSTAT                              #        MARK NO.
011061,001312: 43,3121           54021                           TS       SR                                    
011062,001313: 43,3122           30021                           CA       SR                                    
011063,001314: 43,3123           30021                           CA       SR                                    
011064,001315: 43,3124           75077                           MASK     PRIO7                                 
011065,001316: 43,3125           40000                           CS       A                                     
011066,001317: 43,3126           65075                           AD       PRIO5                                 
011067,001318: 43,3127           27751                           ADS      LANDMARK                              
011068,001319: 43,3130           02123                           TC       GOPIN                                 
011069,001320: 43,3131     5072               LANDBANK           =        EBANK5                                
011070,001321: 
011071,001322:                                                                                                  #  VERB 67  ASTRONAUT DISPLAY OF W MATRIX
011072,001323: 
011073,001324: 43,3131           02076        V67                TC       TESTXACT                              
011074,001325: 43,3132           35075                           CAF      PRIO5                                 
011075,001326: 43,3133           05163                           TC       FINDVAC                               
011076,001327: 43,3134  E5,1400                                  EBANK=   W                                     
011077,001328: 43,3134           03632 60105                     2CADR    V67CALL                               
011078,001329: 
011079,001330: 43,3136           05233                           TC       ENDOFJOB                              
011080,001331: 
011081,001332:                                                                                                  #  VB 44. SET SURFACE FLAG.
011082,001333: 
011083,001334: 43,3137           05562        SETSURF            TC       UPFLAG                                
011084,001335: 43,3140           00177                           ADRES    SURFFLAG                              
011085,001336: 43,3141           12123                           TCF      GOPIN                                 
011086,001337: 
011087,001338:                                                                                                  #  VB 45. RESET SURFACE FLAG.
011088,001339: 
011089,001340: 43,3142           05574        RESTSRF            TC       DOWNFLAG                              
011090,001341: 43,3143           00177                           ADRES    SURFFLAG                              
011091,001342: 43,3144           12123                           TCF      GOPIN                                 
011092,001343: 
011093,001344:                                                                                                  #  VERB 79  START BARBECUE MODE ROUTINE (R64)
011094,001345: 
011095,001346: 43,3145           02076        V79                TC       TESTXACT                              
011096,001347: 43,3146           35073                           CAF      EBANK6                                
011097,001348: 43,3147           54003                           TS       EBANK                                 
011098,001349: 
011099,001350: 43,3150           33224        RATEMANU           CAF      V06N79                                
011100,001351: 43,3151           04676                           TC       BANKCALL                              
011101,001352: 43,3152           20561                           CADR     GOMARKF                               
011102,001353: 43,3153           15550                           TCF      ENDEXT                                
011103,001354: 43,3154           13156                           TCF      RATECOMP                              
011104,001355: 43,3155           13150                           TCF      RATEMANU                              
011105,001356: 
011106,001357: 43,3156           00004        RATECOMP           INHINT                                         
011107,001358: 43,3157           04526                           TC       STOPRATE                              
011108,001359: 
011109,001360: 43,3160           31572                           CA       THETADX                               
011110,001361: 43,3161           55646                           TS       CDUXD                                 
011111,001362: 43,3162           31573                           CA       THETADY                               
011112,001363: 43,3163           55650                           TS       CDUYD                                 
011113,001364: 43,3164           31574                           CA       THETADZ                               
011114,001365: 43,3165           55652                           TS       CDUZD                                 
011115,001366: 
011116,001367: 43,3166           11733                           CCS      DBPTC                                 
011117,001368: 43,3167           65033                           AD       ONE                                   
011118,001369: 43,3170           03172                           TC       +2                                    
011119,001370: 43,3171           65033                           AD       ONE                                   
011120,001371: 43,3172           55655                           TS       ADB                                   
011121,001372: 
011122,001373: 43,3173           31732                           CA       RATEPTC                               
011123,001374: 43,3174           00006                           EXTEND                                         
011124,001375: 43,3175           73222                           MP       RTOW                                  
011125,001376: 43,3176           53526                           DXCH     WBODY                                 
011126,001377: 43,3177           31732                           CA       RATEPTC                               
011127,001378: 43,3200           00006                           EXTEND                                         
011128,001379: 43,3201           73223                           MP       RTODEL                                
011129,001380: 43,3202           53576                           DXCH     DELCDUX                               
011130,001381: 
011131,001382: 43,3203           31734                           CA       OPTPTC                                
011132,001383: 43,3204           00006                           EXTEND                                         
011133,001384: 43,3205           13215                           BZF      PTCROLL                               
011134,001385: 
011135,001386: 43,3206           35035                           CAF      ZERO                                  
011136,001387: 43,3207           53526                           DXCH     WBODY                                 
011137,001388: 43,3210           53530                           DXCH     WBODY1                                
011138,001389: 43,3211           53576                           DXCH     DELCDUX                               
011139,001390: 43,3212           53600                           DXCH     DELCDUY                               
011140,001391: 
011141,001392: 43,3213           45033                           CS       BIT1                                  
011142,001393: 43,3214           03216                           TC       +2                                    
011143,001394: 43,3215           45027        PTCROLL            CS       BIT5                                  
011144,001395: 43,3216           55332                           TS       HOLDFLAG                              
011145,001396: 43,3217           71632                           MASK     CH31TEMP                              
011146,001397: 43,3220           55632                           TS       CH31TEMP                              
011147,001398: 43,3221           05550                           TC       ENDEXT                                
011148,001399: 
011149,001400: 43,3222           00510        RTOW               DEC      .02                                   
011150,001401: 43,3223           00122        RTODEL             DEC      .005                                  
011151,001402: 43,3224           01517        V06N79             VN       0679                                  

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