Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

011930,000002:                                                                                                  ## Copyright:   Public domain.
011931,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
011932,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
011933,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
011934,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
011935,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
011936,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
011937,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
011938,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
011939,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
011940,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
011941,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
011942,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
011943,000015:                                                                                                  ## Reference:   pp. 268-305
011944,000016:                                                                                                  ## Assembler:   yaYUL
011945,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
011946,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
011947,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
011948,000020:                                                                                                  ##              2017-08-21 RSB  Transcribed.
011949,000021:                                                                                                  ##              2017-08-21 MAS  Fixed a missed VxxNxx label/value change.
011950,000022: 

Page 268

011952,000024: 07,2661                                           BANK     7                                     
011953,000025: 43,2000                                           SETLOC   EXTVERBS                              
011954,000026: 43,2000                                           BANK                                           
011955,000027: 
011956,000028: 43,2000  E5,1737                                  EBANK=   OGC                                   
011957,000029: 
011958,000030: 43,2000                                           COUNT*   $$/EXTVB                              
011959,000031:                                                                                                  #  FAN-OUT
011960,000032: 
011961,000033: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
011962,000034: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
011963,000035: 
011964,000036: 43,2002           02126        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
011965,000037: 43,2003           02177                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011966,000038:                                                                                                  #                                  72 ONLY)
011967,000039: 43,2004           02337                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
011968,000040: 43,2005           02675                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
011969,000041: 43,2006           02304                           TC       RRDESEND                              #  VB44 TERMINATE CONTINUOUS DESIGNATE
011970,000042: 43,2007           02116                           TC       ALM/END                               #  VB45 SPARE
011971,000043: 43,2010           02116                           TC       ALM/END                               #  VB46 SPARE
011972,000044: 43,2011           02376                           TC       V47TXACT                              #  VB47 AGS INITIALIZATION
011973,000045: 43,2012           03130                           TC       DAPDISP                               #  VB48  LOAD A/P DATA
011974,000046: 43,2013           13004                           TCF      CREWMANU                              #  VB49 START AUTOMATIC ATTITUDE MANEUVER
011975,000047: 43,2014           02370                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
011976,000048: 43,2015           02116                           TC       ALM/END                               #  VB51 SPARE
011977,000049: 43,2016           02370                           TC       GOLOADLV                              #  VB52 PLEASE MARK X - RETICLE.
011978,000050: 43,2017           02370                           TC       GOLOADLV                              #  VB53 PLEASE MARK Y - RETICLE.
011979,000051: 43,2020           02370                           TC       GOLOADLV                              #  VB54 PLEASE MARK X OR Y - RETICLE
011980,000052: 43,2021           02410                           TC       ALINTIME                              #  VB55 ALIGN TIME
011981,000053: 43,2022           03013                           TC       TRMTRACK                              #  VB56 TERMINATE TRACKING - P20 + P25
011982,000054: 43,2023           02326                           TC       LRON                                  #  VB57 PERMIT  LANDING RADAR UPDATES
011983,000055: 43,2024           02331                           TC       LROFF                                 #  VB58 INHIBIT LANDING RADAR UPDATES
011984,000056: 43,2025           02147                           TC       LRPOS2K                               #  VB59 COMMAND LR TO POSITION 2.
011985,000057: 43,2026           02174                           TC       RATEDISP                              #  VB60 DISPLAY DAP ESTIMATED RATES
011986,000058: 43,2027           02164                           TC       DAPATTER                              #  VB61 DISPLAY DAP ATTITUDE ERROR
011987,000059: 43,2030           02167                           TC       TOTATTER                              #  VB62 DISPLAY TOTAL ATTITUDE ERROR
011988,000060: 43,2031           02423                           TC       R04                                   #  VB63 SAMPLE RADAR ONCE PER SECOND
011989,000061: 43,2032           02667                           TC       VB64                                  #  VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
011990,000062: 43,2033           03220                           TC       SNUFFOUT                              #  VB65 DISABLE U,V JETS DURING DPS BURNS.
011991,000063: 43,2034           03135                           TC       ATTACHED                              #  VB66 ATTACHED   MOVE THIS TO OTHER STATE
011992,000064: 43,2035           03212                           TC       V67                                   #  VB67 W MATRIX MONITOR
011993,000065: 43,2036           02334                           TC       TEROFF                                #  VB68 TAKE OUT TERRAIN MODEL IN DESCENT
011994,000066: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 FORCE A HARDWARE RESTART
011995,000067: 43,2040           03723                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
011996,000068: 43,2041           03725                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
011997,000069: 43,2042           03727                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
011998,000070: 43,2043           03731                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
011999,000071: 43,2044           03034                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
012000,000072:                                                                                                  #         FOR ERASABLE DUMP.
012001,000073: 43,2045           03223                           TC       OUTSNUFF                              #  VB75 ENABLE U,V JETS DURING DPS BURNS.

Page 269

012003,000075: 43,2046           02773                           TC       MINIMP                                #  VB76 MINIMUM IMPULSE MODE
012004,000076: 43,2047           02776                           TC       NOMINIMP                              #  VB77 RATE COMMAND MODE
012005,000077: 43,2050           02413                           TC       R77                                   #  VB78 START LR SPURIOUS RETURN TEST
012006,000078: 43,2051           02623                           TC       R77END                                #  VB79 TERMINATE LR SPURIOUS RETURN TEST
012007,000079: 43,2052           03040                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
012008,000080: 43,2053           03043                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
012009,000081: 43,2054           02734                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
012010,000082: 43,2055           02744                           TC       V83PERF                               #  VB83 REQUEST REND PARAM DISPLAY (R31)
012011,000083: 43,2056           02116                           TC       ALM/END                               #  VB84 SPARE
012012,000084: 43,2057           03226                           TC       VERB85                                #  VB85 DISPLAY RR LOS AZ AND ELEV
012013,000085: 43,2060           02116                           TC       ALM/END                               #  VB86 SPARE
012014,000086: 43,2061           02116                           TC       ALM/END                               #  VB87 SPARE
012015,000087: 43,2062           02116                           TC       ALM/END                               #  VB88 SPARE
012016,000088: 43,2063           02752                           TC       V89PERF                               #  VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
012017,000089: 43,2064           02761                           TC       V90PERF                               #  VB90 OUT OF PLANE RENDEZVOUS DISPLAY
012018,000090: 43,2065           03073                           TC       GOSHOSUM                              #  VB91 DISPLAY BANK SUM.
012019,000091: 43,2066           03053                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST.
012020,000092: 43,2067           03066                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
012021,000093: 43,2070           02116                           TC       ALM/END                               #  VB94 SPARE
012022,000094: 43,2071           03050                           TC       UPDATOFF                              #  VB95 NO STATE VECTOR UPDATE ALLOWED
012023,000095: 43,2072           03205                           TC       VERB96                                #  VB96 INTERRUPT INTEGRATION AND GO TO POO
012024,000096: 43,2073           02370                           TC       GOLOADLV                              #  VB97 PLEASE VERIFY ENGINE FAILURE
012025,000097: 43,2074           02116                           TC       ALM/END                               #  VB98 SPARE
012026,000098: 43,2075           02370                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
012027,000099: 
012028,000100:                                                                                                  #  END OF EXTENDED VERB FAN
012029,000101: 
012030,000102: 
012031,000103: 43,2076           11043        TESTXACT           CCS      EXTVBACT                              #  ARE EXTENDED VERBS BUSY
012032,000104: 43,2077           02116                           TC       ALM/END                               #  YES, TURN ON OPERATOR LIGHT
012033,000105: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIORITY DISPLAYS USING DSKY
012034,000106: 43,2101           72125                           MASK     OC24100                               
012035,000107: 43,2102           10000                           CCS      A                                     
012036,000108: 43,2103           02116                           TC       ALM/END                               #  YES
012037,000109: 43,2104           34362                           CAF      OCT25                                 #  SET BITS 1, 3, AND 5
012038,000110: 43,2105           55043        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
012039,000111:                                                                                                  #  SYSTEM BUSY
012040,000112: 
012041,000113: 43,2106           30002                           CA       Q                                     
012042,000114: 43,2107           54155                           TS       MPAC       +1                         
012043,000115: 
012044,000116: 43,2110           44752                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
012045,000117: 43,2111           04154                           TC       NVSUB                                 
012046,000118: 43,2112           02113                           TC       +1                                    
012047,000119: 43,2113           10067                           CCS      NEWJOB                                
012048,000120: 43,2114           05122                           TC       CHANG1                                
012049,000121: 
012050,000122: 43,2115           00155                           TC       MPAC       +1                         
012051,000123: 
012052,000124: 43,2116     5503               TERMEXTV           EQUALS   ENDEXT                                

Page 270

012054,000126: 43,2116     5503               ENDEXTVB           EQUALS   ENDEXT                                
012055,000127: 
012056,000128: 43,2116           04364        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT
012057,000129: 43,2117           04635        GOPIN              TC       POSTJUMP                              
012058,000130: 43,2120           21051                           CADR     PINBRNCH                              
012059,000131: 
012060,000132: 43,2121           31010        CHKPOOH            CA       MODREG                                #  CHECK FOR POO OR POO-.
012061,000133: 43,2122           00006                           EXTEND                                         
012062,000134: 43,2123           16754                           BZF      TCQ                                   
012063,000135: 43,2124           02116                           TC       ALM/END                               
012064,000136: 
012065,000137: 43,2125           24100        OC24100            OCT      24100                                 
012066,000138: 

Page 271

012068,000140:                                                                                                  #           VBZERO       VERB 40            DESCRIPTION
012069,000141: 
012070,000142:                                                                                                  #               1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
012071,000143:                                                                                                  #              2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
012072,000144:                                                                                                  #                 FOR N72, CHECK IF EITHER RADAR IS IN USE.
012073,000145:                                                                                                  #               3. EXECUTE THE CDU ZERO.
012074,000146:                                                                                                  #               4. STALL UNTILL THE ZERO IS DONE.
012075,000147:                                                                                                  #               5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
012076,000148:                                                                                                  #               6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
012077,000149: 
012078,000150: 43,2126           02202        VBZERO             TC       OP/INERT                              
012079,000151: 43,2127           02131                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
012080,000152: 43,2130           02140                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(72)
012081,000153: 43,2131           02404        IMUZEROK           TC       CKMODCAD                              
012082,000154: 43,2132           04616                           TC       BANKCALL                              #  KEYBOARD REQ FOR ISS CDUZERO
012083,000155: 43,2133           16661                           CADR     IMUZERO                               
012084,000156: 
012085,000157: 43,2134           04616                           TC       BANKCALL                              #  STALL
012086,000158: 43,2135           17715                           CADR     IMUSTALL                              
012087,000159: 43,2136           02137                           TC       +1                                    
012088,000160: 
012089,000161: 43,2137           02117                           TC       GOPIN                                 #  IMUZERO
012090,000162: 
012091,000163: 43,2140           02646        RRZEROK            TC       RDRUSECK                              
012092,000164: 43,2141           04616                           TC       BANKCALL                              
012093,000165: 43,2142           52334                           CADR     RRZERO                                
012094,000166: 
012095,000167: 43,2143           04616        RWAITK             TC       BANKCALL                              
012096,000168: 43,2144           17713                           CADR     RADSTALL                              
012097,000169: 43,2145           12146                           TCF      +1                                    
012098,000170: 43,2146           02117                           TC       GOPIN                                 #  RRZERO
012099,000171: 
012100,000172:                                                                                                  #           LRPOS2K          VERB 59            DESCRIPTION
012101,000173:                                                                                                  #               COMMAND LANDING RADAR TO POSITION 2
012102,000174:                                                                                                  #              1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
012103,000175:                                                                                                  #               2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
012104,000176:                                                                                                  #                  THE PRESCRIBED TIME.
012105,000177:                                                                                                  #               3. RE-ESTABLISH THE DISPLAYS.
012106,000178: 
012107,000179: 43,2147           30103        LRPOS2K            CA       FLAGWRD7                              
012108,000180: 43,2150           74747                           MASK     AVEGFBIT                              
012109,000181: 43,2151           00006                           EXTEND                                         
012110,000182: 43,2152           12161                           BZF      LRPOS2K1                              #  AVERAGE G NOT ON
012111,000183: 43,2153           40107                           CS       FLGWRD11                              
012112,000184: 43,2154           74735                           MASK     LRBYBIT                               
012113,000185: 43,2155           00006                           EXTEND                                         
012114,000186: 43,2156           12116                           BZF      ALM/END                               #  IF AVE G ON AND NOT R12- OPERATOR ERROR
012115,000187: 43,2157           04635                           TC       POSTJUMP                              
012116,000188: 43,2160           53604                           CADR     V59GP63                               
012117,000189: 43,2161           02646        LRPOS2K1           TC       RDRUSECK                              

Page 272

012119,000191: 43,2162           04616                           TC       BANKCALL                              
012120,000192: 43,2163           53573                           CADR     LRP2COMM                              #  COMMAND LR TO POS2
012121,000193:                                                                                                  #  V61      VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012122,000194: 
012123,000195: 43,2164           05527        DAPATTER           TC       DOWNFLAG                              
012124,000196: 43,2165           00013                           ADRES    NEEDLFLG                              
012125,000197: 43,2166           12171                           TCF      TOTATTER   +2                         
012126,000198: 
012127,000199:                                                                                                  #  V62      VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012128,000200: 
012129,000201: 43,2167           05515        TOTATTER           TC       UPFLAG                                
012130,000202: 43,2170           00013                           ADRES    NEEDLFLG                              
012131,000203: 43,2171           05527                 +2        TC       DOWNFLAG                              
012132,000204: 43,2172           00000                           ADRES    NEED2FLG                              
012133,000205: 43,2173           02117                           TC       GOPIN                                 
012134,000206: 
012135,000207:                                                                                                  #  V60      VERB 60, DISPLAY DAP ESTIMATED RATES ON FDAI ATTITUDE ERROR NEEDLES.
012136,000208: 
012137,000209: 43,2174           05515        RATEDISP           TC       UPFLAG                                
012138,000210: 43,2175           00000                           ADRES    NEED2FLG                              
012139,000211: 43,2176           02117                           TC       GOPIN                                 
012140,000212: 
012141,000213: 
012142,000214: 

Page 273

012144,000216:                                                                                                  #           VBCOARK      VERB 41            DESCRIPTION
012145,000217:                                                                                                  #               COARSE ALIGN IMU OR RADAR
012146,000218:                                                                                                  #              1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
012147,000219:                                                                                                  #               2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
012148,000220:                                                                                                  #               CASE 1     NOUN 20     (ICDU ANGLES)
012149,000221:                                                                                                  #               3. SET EXT VERB DISPLAY ACTIVE FLAG.
012150,000222:                                                                                                  #               4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
012151,000223:                                                                                                  #                  RESPONSES
012152,000224:                                                                                                  #                    A. TERMINATE
012153,000225:                                                                                                  #                       1. RELEASE EXT VERB DISPLAY SYSTEM
012154,000226:                                                                                                  #                    B. PROCEED
012155,000227:                                                                                                  #                      1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
012156,000228:                                                                                                  #                    C. ENTER
012157,000229:                                                                                                  #                      1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
012158,000230:                                                                                                  #               ICORK2
012159,000231:                                                                                                  #                  1. RE-DISPLAY VERB 41.
012160,000232:                                                                                                  #                  2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
012161,000233:                                                                                                  #                  3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
012162,000234:                                                                                                  #                  4. RELEASE EXT VERB DISPLAY SYSTEM.
012163,000235:                                                                                                  #               CASE 2     NOUN 72     (RCDU ANGLES)
012164,000236:                                                                                                  #                 EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
012165,000237:                                                                                                  #               5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
012166,000238:                                                                                                  #                  RESPONSES
012167,000239:                                                                                                  #                  A. TERMINATE
012168,000240:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYS.
012169,000241:                                                                                                  #                  B. PROCEED OR ENTER
012170,000242:                                                                                                  #                     1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
012171,000243:                                                                                                  #                     2. RE-DISPLAY VERB 41.
012172,000244:                                                                                                  #                     3. SCHEDULE RRDESK2 WITH PRIORITY 20.
012173,000245:                                                                                                  #                     4. RELEASE EXT VERB DISPLAY SYS.
012174,000246: 
012175,000247:                                                                                                  #                  AURLOKON
012176,000248: 
012177,000249:                                                                                                  #                 1. FLASH V04 N12 R1 = 00006 R2 = 00002
012178,000250:                                                                                                  #                     RESPONSES
012179,000251:                                                                                                  #                     A. TERMINATE
012180,000252:                                                                                                  #                     B. PROCEED
012181,000253:                                                                                                  #                       1. RESET LOCK-ON SWITCH
012182,000254:                                                                                                  #                       2. SET CONTINUOUS DESIGNATE FLAG
012183,000255:                                                                                                  #                       3. DISABLE R25
012184,000256:                                                                                                  #                    C. V22 E 1 E, R1 = 00001, PROCEED
012185,000257:                                                                                                  #                       1. SET LOCK-ON SWITCH
012186,000258: 43,2177           02202        VBCOARK            TC       OP/INERT                              
012187,000259: 43,2200           02213                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU(20)
012188,000260: 43,2201           02235                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU(72)
012189,000261:                                                                                                  #           RETURNS TO L+1 IF IMU OR L+2 IF RR.
012190,000262: 
012191,000263: 43,2202           46007        OP/INERT           CS       OCT24                                 
012192,000264: 43,2203           61001                           AD       NOUNREG                               
012193,000265: 43,2204           00006                           EXTEND                                         

Page 274

012195,000267: 43,2205           16754                           BZF      TCQ                                   #  IF = 20.
012196,000268: 
012197,000269: 43,2206           62212                           AD       RRIMUDIF                              #  -52
012198,000270: 43,2207           00006                           EXTEND                                         
012199,000271: 43,2210           16751                           BZF      Q+1                                   
012200,000272: 
012201,000273: 43,2211           02116                           TC       ALM/END                               #  ILLEGAL.
012202,000274: 
012203,000275: 43,2212           77713        RRIMUDIF           DEC      -52        B-14                       #  THE IMU
012204,000276: 43,2213           02404        IMUCOARK           TC       CKMODCAD                              
012205,000277: 43,2214           02076                           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
012206,000278: 43,2215           32233                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
012207,000279: 43,2216           04616                           TC       BANKCALL                              
012208,000280: 43,2217           20334                           CADR     GOXDSPF                               
012209,000281: 43,2220           05503                           TC       TERMEXTV                              
012210,000282: 43,2221           12222                           TCF      +1                                    
012211,000283: 
012212,000284: 43,2222           32234        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
012213,000285: 43,2223           04616                           TC       BANKCALL                              
012214,000286: 43,2224           20621                           CADR     EXDSPRET                              
012215,000287: 
012216,000288: 43,2225           04616                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
012217,000289: 43,2226           16745                           CADR     IMUCOARS                              
012218,000290: 
012219,000291: 43,2227           04616                           TC       BANKCALL                              #  STALL
012220,000292: 43,2230           17715                           CADR     IMUSTALL                              
012221,000293: 43,2231           05503                           TC       ENDEXTVB                              
012222,000294: 43,2232           05503                           TC       ENDEXTVB                              
012223,000295: 
012224,000296: 43,2233           06226        VNLODCDU           VN       2522                                  
012225,000297: 43,2234           12200        IMUCOARV           VN       4100                                  
012226,000298: 

Page 275

012228,000300:                                                                                                  #           DESIGNATE TO DESIRED GIMBAL ANGLES.
012229,000301: 
012230,000302: 43,2235           02646        RRDESNBK           TC       RDRUSECK                              
012231,000303: 43,2236           02076                           TC       TESTXACT                              
012232,000304: 43,2237           46021                           CS       BIT10+15                              #  TERMINATE PRESENT DESIGNATION.
012233,000305: 43,2240     4742               REFTAG3            =        DESIGBIT                              
012234,000306: 43,2240     4735               REFTAG4            =        CDESBIT                               
012235,000307: 43,2240           00004                           INHINT                                         #  RELINT DONE IN GOXDSPF
012236,000308: 43,2241           70110                           MASK     RADMODES                              #  RESET CONTINUOUS DESIGNATE BIT AND
012237,000309: 43,2242           54110                           TS       RADMODES                              #    DESIGNATION IN PROGRESS BIT.                
012238,000310: 
012239,000311: 43,2243           32262                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
012240,000312: 43,2244           04616                           TC       BANKCALL                              
012241,000313: 43,2245           20334                           CADR     GOXDSPF                               
012242,000314: 43,2246           05503                           TC       TERMEXTV                              
012243,000315: 43,2247           12243                           TCF      -4                                    #  V33
012244,000316: 
012245,000317: 43,2250           04616                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
012246,000318: 43,2251           46000                           CADR     AURLOKON                              
012247,000319: 
012248,000320: 43,2252           32234                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
012249,000321: 43,2253           04616                           TC       BANKCALL                              
012250,000322: 43,2254           20621                           CADR     EXDSPRET                              
012251,000323: 
012252,000324: 43,2255           34736                           CAF      PRIO20                                
012253,000325: 43,2256           05105                           TC       FINDVAC                               
012254,000326: 43,2257  E7,1456                                  EBANK=   LOSCOUNT                              
012255,000327: 43,2257           02263 66107                     2CADR    RRDESK2                               
012256,000328: 
012257,000329: 
012258,000330: 43,2261           15503                           TCF      TERMEXTV                              #  FREES DISPLAY.
012259,000331: 
012260,000332: 43,2262           06111        VNLDRCDU           VN       2473                                  
012261,000333: 43,2263  43,2234               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
012262,000334: 
012263,000335: 43,2263           04616        RRDESK2            TC       BANKCALL                              
012264,000336: 43,2264           52466                           CADR     RRDESNB                               
012265,000337: 
012266,000338: 43,2265           02266                           TC       +1                                    #  DUMMY NEEDED SINCE DESRETRN DOES INCR
012267,000339: 43,2266           30167                           CA       PRIORITY                              
012268,000340: 43,2267           75004                           MASK     LOW9                                  
012269,000341: 43,2270           10000                           CCS      A                                     
012270,000342: 43,2271           50000                           INDEX    A                                     
012271,000343: 43,2272           54000                           TS       A                                     #  RELEASE THIS JOBS VAC AREA.
012272,000344: 43,2273           40000                           COM                                            #  INSURE ENDOFJOB DOES A NOVAC END (BZMF).
012273,000345: 43,2274           26167                           ADS      PRIORITY                              
012274,000346: 43,2275           04616                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF DESIGNATE
012275,000347: 43,2276           17713                           CADR     RADSTALL                              
012276,000348: 43,2277           02301                           TC       +2                                    #  BADEND-NO LOCKON OR OUT OF LIMITS
012277,000349: 43,2300           05155                           TC       ENDOFJOB                              #  GOODEND-LOCKON ACHIEVED

Page 276

012279,000351: 43,2301           05600                           TC       ALARM                                 
012280,000352: 43,2302           00503                           OCT      503                                   #  TURN ON ALARM LIGHT -503 DESIGNATE FAIL
012281,000353: 43,2303           05155                           TC       ENDOFJOB                              
012282,000354: 
012283,000355: 
012284,000356: 43,2304           10110        RRDESEND           CCS      RADMODES                              #  TERMINATE CONTINUOUS DESIGNATE ONLY
012285,000357: 43,2305           12117                           TCF      GOPIN                                 
012286,000358: 43,2306           12117                           TCF      GOPIN                                 
012287,000359: 43,2307           12310                           TCF      +1                                    
012288,000360: 43,2310           40110        REMODCHK           CS       RADMODES                              #  CHECK FOR REMODE OR REPOSITION
012289,000361: 43,2311           77722                           MASK     BIT14&11                              
012290,000362: 43,2312     4736               REFTAG1            =        REMODBIT                              
012291,000363: 43,2312     4741               REFTAG2            =        REPOSBIT                              
012292,000364: 43,2312           10000                           CCS      A                                     
012293,000365: 43,2313           12320                           TCF      NOREMODE                              #  NO
012294,000366: 43,2314           34777                           CAF      1SEC                                  #  YES- WAIT 1 SECOND AND CHECK AGAIN
012295,000367: 43,2315           04616                           TC       BANKCALL                              
012296,000368: 43,2316           01736                           CADR     DELAYJOB                              
012297,000369: 43,2317           02310                           TC       REMODCHK                              
012298,000370: 43,2320           06011        NOREMODE           TC       CLRADMOD                              
012299,000371: 43,2321           34777                           CAF      1SEC                                  
012300,000372: 43,2322           04616                           TC       BANKCALL                              
012301,000373: 43,2323           01736                           CADR     DELAYJOB                              
012302,000374: 43,2324           05527                           TC       DOWNFLAG                              #  ENABLE R25 GIMBAL MONITOR
012303,000375: 43,2325           00126                           ADRES    NORRMON                               
012304,000376: 43,2326     7722               BIT14&11           =        PRIO22                                
012305,000377: 23,2000                                           BANK     23                                    
012306,000378: 23,2000                                           SETLOC   EXTVB1                                
012307,000379: 23,2000                                           BANK                                           
012308,000380: 23,2000                                           COUNT*   $$/EXTVB                              
012309,000381: 
012310,000382: 23,2000           04645        AURLOKON           TC       MAKECADR                              
012311,000383: 23,2001           55112                           TS       DESRET                                
012312,000384: 23,2002           34752                           CAF      TWO                                   
012313,000385: 23,2003           55051                           TS       OPTIONX    +1                         
012314,000386: 23,2004           36254                           CAF      SIX                                   #  OPTION CODE FOR V04N12
012315,000387: 23,2005           55050                           TS       OPTIONX                               
012316,000388: 
012317,000389: 23,2006           32037                 -5        CAF      V04N1272                              
012318,000390: 23,2007           04616                           TC       BANKCALL                              #       R2   00001  LOCK-ON
012319,000391: 23,2010           20353                           CADR     GOMARKFR                              
012320,000392: 23,2011           15503                           TCF      ENDEXT                                #  V34
012321,000393: 23,2012           12017                           TCF      +5                                    #  V33
012322,000394: 23,2013           12006                           TCF      -5                                    #  V32
012323,000395: 23,2014           34751                           CAF      BIT3                                  
012324,000396: 23,2015           05475                           TC       BLANKET                               
012325,000397: 23,2016           05155                           TC       ENDOFJOB                              
012326,000398: 
012327,000399: 23,2017           31051                 +5        CA       OPTIONX    +1                         
012328,000400: 23,2020           74752                           MASK     BIT2                                  

Page 277

012330,000402: 23,2021           10000                           CCS      A                                     
012331,000403: 23,2022           12026                           TCF      NOLOKON                               
012332,000404: 23,2023           05515                           TC       UPFLAG                                
012333,000405: 23,2024           00012                           ADRES    LOKONSW                               
012334,000406: 23,2025           12034                           TCF      AURLKON1                              
012335,000407: 
012336,000408: 23,2026           05527        NOLOKON            TC       DOWNFLAG                              #  IF NO LOCK-ON, SET BIT15 OF RADMODES TO
012337,000409: 23,2027           00012                           ADRES    LOKONSW                               #  INDICATE THAT CONTINUOUS DESIGNATION IS
012338,000410: 23,2030           05515                           TC       UPFLAG                                #  WANTED (TO BE TERMINATED BY V44.)
012339,000411: 23,2031           00264                           ADRES    CDESFLAG                              
012340,000412: 23,2032           05515                           TC       UPFLAG                                #  SET NO RR ANGLE MONITOR FLAG.
012341,000413: 23,2033           00126                           ADRES    NORRMON                               #  (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
012342,000414: 23,2034           00003        AURLKON1           RELINT                                         
012343,000415: 23,2035           31112                           CA       DESRET                                
012344,000416: 23,2036           14640                           TCF      BANKJUMP                              
012345,000417: 
012346,000418: 
012347,000419: 23,2037           01014        V04N1272           VN       412                                   
012348,000420: 23,2040           77757        -LOKONFG           OCT      -20                                   
012349,000421: 
012350,000422: 43,2326                                           BANK     43                                    
012351,000423: 43,2000                                           SETLOC   EXTVERBS                              
012352,000424: 43,2000                                           BANK                                           
012353,000425: 43,2326                                           COUNT*   $$/EXTVB                              
012354,000426: 
012355,000427: 43,2326           05515        LRON               TC       UPFLAG                                #  PERMIT INCORPORATION OF LR DATA      V57
012356,000428: 43,2327           00254                           ADRES    LRINH                                 
012357,000429: 43,2330           02117                           TC       GOPIN                                 
012358,000430: 
012359,000431: 43,2331           05527        LROFF              TC       DOWNFLAG                              #  INHIBIT INCORPORATION OF LR DATA     V58
012360,000432: 43,2332           00254                           ADRES    LRINH                                 
012361,000433: 43,2333           02117                           TC       GOPIN                                 
012362,000434: 
012363,000435: 43,2334           05515        TEROFF             TC       UPFLAG                                #  TURN OFF TERRAIN MODEL               V68
012364,000436: 43,2335           00023                           ADRES    NOTERFLG                              
012365,000437: 43,2336           12117                           TCF      GOPIN                                 
012366,000438: 
012367,000439: 
012368,000440: 43,2337  E5,1737                                  EBANK=   OGC                                   
012369,000441: 

Page 278

012371,000443:                                                                                                  #           IMUFINEK     VERB 42            DESCRIPTION
012372,000444:                                                                                                  #               FINE ALIGN IMU
012373,000445:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
012374,000446:                                                                                                  #               2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
012375,000447:                                                                                                  #                  RESPONSES
012376,000448:                                                                                                  #                  A. TERMINATE
012377,000449:                                                                                                  #                     1. RELEASE EXT VERB DISPLAY SYSTEM.
012378,000450:                                                                                                  #                  B. PROCEED OR ENTER
012379,000451:                                                                                                  #                     1. RE-DISPLAY VERB 42
012380,000452:                                                                                                  #                     2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
012381,000453:                                                                                                  #                     3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
012382,000454:                                                                                                  #                        A. FAILED
012383,000455:                                                                                                  #                           1. RELEASE EXT VERB DISPLAY SYSTEM.
012384,000456:                                                                                                  #                        B. GOOD
012385,000457:                                                                                                  #                           1. EXECUTE IMUPULSE (TORQUE IRIGS).
012386,000458:                                                                                                  #                           2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
012387,000459: 
012388,000460: 43,2337           02404        IMUFINEK           TC       CKMODCAD                              
012389,000461: 43,2340           02076                           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
012390,000462: 43,2341           32366                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
012391,000463: 43,2342           04616                           TC       BANKCALL                              
012392,000464: 43,2343           20334                           CADR     GOXDSPF                               
012393,000465: 43,2344           05503                           TC       TERMEXTV                              
012394,000466: 43,2345           02346                           TC       +1                                    #  PROCEED WITHOUT A LOAD
012395,000467: 
012396,000468: 43,2346           32367                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
012397,000469: 43,2347           04616                           TC       BANKCALL                              
012398,000470: 43,2350           20621                           CADR     EXDSPRET                              
012399,000471: 
012400,000472: 43,2351           04616                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
012401,000473: 43,2352           17155                           CADR     IMUFINE                               
012402,000474: 
012403,000475: 43,2353           04616                           TC       BANKCALL                              #  HIBERNATION
012404,000476: 43,2354           17715                           CADR     IMUSTALL                              
012405,000477: 43,2355           05503                           TC       ENDEXTVB                              
012406,000478: 
012407,000479: 43,2356           32365        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
012408,000480: 43,2357           04616                           TC       BANKCALL                              
012409,000481: 43,2360           17270                           CADR     IMUPULSE                              
012410,000482: 
012411,000483: 43,2361           04616                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
012412,000484: 43,2362           17715                           CADR     IMUSTALL                              
012413,000485: 43,2363           05503                           TC       ENDEXTVB                              
012414,000486: 43,2364           05503                           TC       ENDEXTVB                              
012415,000487: 
012416,000488: 43,2365           02737        LGYROBIN           ECADR    OGC                                   
012417,000489: 43,2366           06335        VNLODGYR           VN       2593                                  
012418,000490: 43,2367           12400        IMUFINEV           VN       4200                                  
012419,000491:                                                                                                  #           GOLOADLV     VERB 50            DESCRIPTION
012420,000492:                                                                                                  #                        AND OTHER PLEASE

Page 279

012422,000494:                                                                                                  #                        DO SOMETHING VERBS
012423,000495:                                                                                                  #               PLEASE PERFORM, MARK, CALIBRATE, ETC.
012424,000496:                                                                                                  #               1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN  PERFORMED, AND THE PROGRAM DOES THE
012425,000497:                                                                                                  #                  SAME RECALL AS A COMPLETED LOAD.
012426,000498:                                                                                                  #               2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
012427,000499: 
012428,000500: 43,2370  40,2000                                  SBANK=   PINSUPER                              #  FOR LOADLV1 AND SHOWSUM CADR'S.
012429,000501: 
012430,000502: 43,2370           04433        GOLOADLV           TC       FLASHOFF                              
012431,000503: 
012432,000504: 43,2371           34201                           CAF      PINSUPBT                              
012433,000505: 43,2372           00006                           EXTEND                                         
012434,000506: 43,2373           01007                           WRITE    SUPERBNK                              
012435,000507: 43,2374           04635                           TC       POSTJUMP                              
012436,000508: 43,2375           62021                           CADR     LOADLV1                               
012437,000509:                                                                                                  #  VERB 47 - AGS INITIALIZATION - R47.
012438,000510: 
012439,000511:                                                                                                  #           SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
012440,000512: 
012441,000513: 43,2376           02076        V47TXACT           TC       TESTXACT                              #  NO OTHER EXTVERB.
012442,000514: 43,2377           34740                           CAF      PRIO4                                 
012443,000515: 43,2400           05105                           TC       FINDVAC                               
012444,000516: 43,2401  E6,1771                                  EBANK=   AGSK                                  
012445,000517: 43,2401           02005 64066                     2CADR    AGSINIT                               
012446,000518: 
012447,000519: 43,2403           05155                           TC       ENDOFJOB                              
012448,000520: 
012449,000521: 43,2404           31301        CKMODCAD           CA       MODECADR                              
012450,000522: 43,2405           00006                           EXTEND                                         
012451,000523: 43,2406           16754                           BZF      TCQ                                   
012452,000524: 43,2407           02116                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
012453,000525: 

Page 280

012455,000527:                                                                                                  #           ALINTIME     VERB 55            DESCRIPTION
012456,000528:                                                                                                  #                  REQUIRE POO OR POO-.
012457,000529:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012458,000530:                                                                                                  #               2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
012459,000531:                                                                                                  #               3. REQUIRE EXECUTION OF VERB 23.
012460,000532:                                                                                                  #               4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
012461,000533:                                                                                                  #               5. RELEASE EXT VERB DISPLAY SYSTEM
012462,000534: 
012463,000535: 43,2410           02076        ALINTIME           TC       TESTXACT                              
012464,000536: 43,2411           04635                           TC       POSTJUMP                              #  NO ROOM IN 43
012465,000537: 43,2412           64002                           CADR     R33                                   
012466,000538: 
012467,000539: 42,2002                                           BANK     42                                    
012468,000540: 42,2000                                           SETLOC   SBAND                                 
012469,000541: 42,2000                                           BANK                                           
012470,000542: 42,2002                                           COUNT*   $$/R33                                
012471,000543: 
012472,000544: 42,2002           35021        R33                CAF      PRIO7                                 
012473,000545: 42,2003           05146                           TC       PRIOCHNG                              
012474,000546: 42,2004           32034                           CAF      VNLODDT                               
012475,000547: 42,2005           04616                           TC       BANKCALL                              
012476,000548: 42,2006           20334                           CADR     GOXDSPF                               
012477,000549: 42,2007           05503                           TC       ENDEXT                                #  TERMINATE
012478,000550: 42,2010           05503                           TC       ENDEXT                                #  PROCEED
012479,000551: 42,2011           42033                           CS       DEC23                                 #  DATA IN OR RESEQUENCE(UNLIKELY)
012480,000552: 42,2012           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
012481,000553: 42,2013           00006                           EXTEND                                         
012482,000554: 42,2014           12016                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
012483,000555: 42,2015           05503                           TC       ENDEXT                                #    WITH V23 (DATA IN).
012484,000556: 
012485,000557: 42,2016           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
012486,000558: 42,2017           34755                           CAF      ZERO                                  
012487,000559: 42,2020           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
012488,000560: 42,2021           54001                           TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
012489,000561: 42,2022           52025                           DXCH     TIME2                                 
012490,000562: 42,2023           52155                           DXCH     MPAC                                  
012491,000563: 42,2024           53051                           DXCH     DSPTEM2    +1                         #  INCREMENT
012492,000564: 42,2025           20155                           DAS      MPAC                                  
012493,000565: 
012494,000566: 42,2026           07271                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
012495,000567: 42,2027           52155                           DXCH     MPAC                                  #  NEW CLOCK.
012496,000568: 42,2030           20025                           DAS      TIME2                                 
012497,000569: 42,2031           00003                           RELINT                                         
012498,000570: 42,2032           05503        UPDTMEND           TC       ENDEXT                                
012499,000571: 
012500,000572: 42,2033           00027        DEC23              DEC      23         B-14                       #  V 23
012501,000573: 
012502,000574: 42,2034           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
012503,000575: 

Page 281

012505,000577:                                                                                                  #           SET UP FOR RADAR SAMPLING.
012506,000578: 
012507,000579: 42,2035                                           BANK     42                                    
012508,000580: 43,2000                                           SETLOC   EXTVERBS                              
012509,000581: 43,2000                                           BANK                                           
012510,000582: 
012511,000583: 43,2413  E4,1571                                  EBANK=   RSTACK                                
012512,000584: 
012513,000585: 43,2413                                           COUNT*   $$/R0477                              
012514,000586: 
012515,000587: 43,2413           02646        R77                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
012516,000588: 43,2414           30077                           CA       FLAGWRD3                              #  IS R04 RUNNING?
012517,000589: 43,2415           74743                           MASK     R04FLBIT                              
012518,000590: 43,2416           10000                           CCS      A                                     
012519,000591: 43,2417           02116                           TC       ALM/END                               #  YES.
012520,000592: 43,2420           05515                           TC       UPFLAG                                
012521,000593: 43,2421           00117                           ADRES    R77FLAG                               
012522,000594: 43,2422           12427                           TCF      R04Z                                  
012523,000595: 
012524,000596: 43,2423           02646        R04                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
012525,000597: 43,2424           02076                           TC       TESTXACT                              
012526,000598: 43,2425           05515                           TC       UPFLAG                                
012527,000599: 43,2426           00063                           ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
012528,000600: 
012529,000601: 43,2427           34741        R04Z               CAF      EBANK4                                
012530,000602: 43,2430           54003                           TS       EBANK                                 
012531,000603: 43,2431           32644                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
012532,000604: 43,2432           55770                           TS       RSAMPDT                               
012533,000605: 43,2433           34755                           CAF      ZERO                                  
012534,000606: 43,2434           55767                           TS       RTSTLOC                               
012535,000607: 43,2435           55566                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
012536,000608: 
012537,000609: 43,2436           00004                           INHINT                                         
012538,000610: 43,2437           42645                           CS       LRPOSCAL                              #  INITIALIZE
012539,000611: 43,2440           70110                           MASK     RADMODES                              #      BIT9   LR RANGE  LOW SCALE =0
012540,000612: 43,2441           54110                           TS       RADMODES                              #      BIT6   LR POS 1 =0
012541,000613: 43,2442           32645                           CAF      LRPOSCAL                              #      BIT3   RR RANGE  LOW SCALE =0
012542,000614: 43,2443           00006                           EXTEND                                         
012543,000615: 43,2444           02033                           RAND     CHAN33                                
012544,000616: 43,2445           26110                           ADS      RADMODES                              
012545,000617: 43,2446           00003                           RELINT                                         
012546,000618: 
012547,000619: 43,2447           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG      R04 =1    R77 =0
012548,000620: 43,2450           74743                           MASK     R04FLBIT                              
012549,000621: 43,2451           10000                           CCS      A                                     
012550,000622: 43,2452           12601                           TCF      R04K                                  
012551,000623: 
012552,000624: 43,2453           34753                           CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
012553,000625: 43,2454           55051                           TS       OPTIONX    +1                         
012554,000626: 43,2455           34751        R04A               CAF      BIT3                                  #  OPTION CODE FOR V04N12
012555,000627: 

Page 282

012557,000629: 43,2456           55050                           TS       OPTIONX                               
012558,000630: 43,2457           32641                           CAF      V04N12X                               
012559,000631: 43,2460           04616                           TC       BANKCALL                              #      R2   00001  RENDEZVOUS RADAR
012560,000632: 43,2461           20353                           CADR     GOMARKFR                              #           00002  LANDING RADAR
012561,000633: 43,2462           12607                           TCF      R04END                                #  V34
012562,000634: 43,2463           12470                           TCF      +5                                    #  V33
012563,000635: 43,2464           12457                           TCF      R04A       +2                         #  R2
012564,000636: 43,2465           34751                           CAF      BIT3                                  
012565,000637: 43,2466           05475                           TC       BLANKET                               
012566,000638: 43,2467           05155                           TC       ENDOFJOB                              
012567,000639: 
012568,000640: 43,2470           31051                           CA       OPTIONX    +1                         #  SAVE DESIRED OPTION     RR =1     LR =2
012569,000641: 43,2471           55764                           TS       RTSTDEX                               
012570,000642: 
012571,000643: 43,2472           36254        R04X               CAF      SIX                                   #  RR OR LR DESIRED
012572,000644: 43,2473           71764                           MASK     RTSTDEX                               
012573,000645: 43,2474           10000                           CCS      A                                     
012574,000646: 43,2475           12603                           TCF      R04L                                  #  LANDING RADAR
012575,000647: 43,2476           55766                           TS       RTSTBASE                              #  FOR RR   BASE = 0, MAX = 1
012576,000648: 
012577,000649: 43,2477           34752        R04B               CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
012578,000650: 43,2500           00006                           EXTEND                                         
012579,000651: 43,2501           02033                           RAND     CHAN33                                
012580,000652: 43,2502           00006                           EXTEND                                         
012581,000653: 43,2503           12514                           BZF      R04C                                  #  YES
012582,000654: 
012583,000655: 43,2504           32643                           CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
012584,000656: 43,2505           55044                           TS       DSPTEM1                               
012585,000657: 43,2506           32642                           CAF      V50N25X                               
012586,000658: 43,2507           04616                           TC       BANKCALL                              
012587,000659: 43,2510           20345                           CADR     GOMARK4                               
012588,000660: 43,2511           12607                           TCF      R04END                                #  V34
012589,000661: 43,2512           12477                           TCF      R04B                                  #  V33
012590,000662: 43,2513           12504                           TCF      -7                                    #  E
012591,000663: 
012592,000664: 43,2514           34736        R04C               CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
012593,000665: 43,2515           00006                           EXTEND                                         
012594,000666: 43,2516           05012                           WOR      CHAN12                                
012595,000667: 
012596,000668: 43,2517           34752                           CAF      TWO                                   
012597,000669: 43,2520           55765                           TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
012598,000670: 
012599,000671: 43,2521           05214                           TC       WAITLIST                              
012600,000672: 43,2522  E4,1571                                  EBANK=   RSTACK                                
012601,000673: 43,2522           02050 32104                     2CADR    RADSAMP                               
012602,000674: 
012603,000675: 43,2524           00003                           RELINT                                         
012604,000676: 
012605,000677: 43,2525           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG      R04 =1    R77 =0
012606,000678: 43,2526           74743                           MASK     R04FLBIT                              

Page 283

012608,000680: 43,2527           10000                           CCS      A                                     
012609,000681: 43,2530           12117                           TCF      GOPIN                                 #  R77
012610,000682: 
012611,000683: 43,2531           36254                           CAF      SIX                                   #  RR OR LR
012612,000684: 43,2532           71764                           MASK     RTSTDEX                               
012613,000685: 43,2533           10000                           CCS      A                                     
012614,000686: 43,2534           12551                           TCF      R04LR                                 #  LR
012615,000687: 
012616,000688: 43,2535           32635        R04RR              CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
012617,000689: 43,2536           04616                           TC       BANKCALL                              #           R1  +  XXX.XX DEG   TRUNNION
012618,000690: 43,2537           20334                           CADR     GOMARKF                               #           R2  +  XXX.XX DEG   SHAFT
012619,000691: 43,2540           12607                           TCF      R04END                                #  V34      R3     BLANK
012620,000692: 43,2541           12543                           TCF      +2                                    #  V33
012621,000693: 43,2542           12535                           TCF      R04RR                                 #  V32
012622,000694: 
012623,000695: 43,2543           32636                           CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
012624,000696: 43,2544           04616                           TC       BANKCALL                              #           R1  +- XXX.XX NM    RANGE
012625,000697: 43,2545           20334                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   RANGE RATE
012626,000698: 43,2546           12607                           TCF      R04END                                #  V34      R3     BLANK
012627,000699: 43,2547           12565                           TCF      R04Y                                  #  V33
012628,000700: 43,2550           12535                           TCF      R04RR                                 #  V32
012629,000701: 
012630,000702: 43,2551           32637        R04LR              CAF      V16N66                                #  DISPLAY LR RANGE AND POSITION (1/SEC)
012631,000703: 43,2552           04616                           TC       BANKCALL                              #           R1  +- XXXXX. FT    LR RANGE
012632,000704: 43,2553           20334                           CADR     GOMARKF                               #           R2  +  0000X.       POS. NO.
012633,000705: 43,2554           12607                           TCF      R04END                                #  V34      R3     BLANK
012634,000706: 43,2555           12557                           TCF      +2                                    #  V33
012635,000707: 43,2556           12551                           TCF      R04LR                                 #  V32
012636,000708: 
012637,000709: 43,2557           32640                           CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
012638,000710: 43,2560           04616                           TC       BANKCALL                              #           R1  +- XXXXX. FPS   LR V(X)
012639,000711: 43,2561           20334                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   LR V(Y)
012640,000712: 43,2562           12607                           TCF      R04END                                #  V34      R3  +- XXXXX. FPS   LR V(Z)
012641,000713: 43,2563           12565                           TCF      R04Y                                  #  V33
012642,000714: 43,2564           12551                           TCF      R04LR                                 #  V32
012643,000715: 
012644,000716: 43,2565           34755        R04Y               CAF      ZERO                                  #  TO TERMINATE SAMPLING
012645,000717: 43,2566           55770                           TS       RSAMPDT                               
012646,000718: 43,2567           04616                           TC       BANKCALL                              
012647,000719: 43,2570           01735                           CADR     2SECDELY                              #  WAIT FOR LAST RADARUPT
012648,000720: 43,2571           32644                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
012649,000721: 43,2572           55770                           TS       RSAMPDT                               
012650,000722: 43,2573           34755                           CAF      ZERO                                  #  FOR STORING RESULTS
012651,000723: 43,2574           55767                           TS       RTSTLOC                               
012652,000724: 43,2575           11766                           CCS      RTSTBASE                              #   CHECK WHICH RADAR HAD BEEN SAMPLED
012653,000725: 43,2576           44753                           CS       ONE                                   #  WAS LR
012654,000726: 43,2577           64752                           AD       TWO                                   #  WAS RR
012655,000727: 43,2600           12471                           TCF      R04X       -1                         
012656,000728: 
012657,000729: 43,2601           34766        R04K               CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.

Page 284

012659,000731: 43,2602           55770                           TS       RSAMPDT                               
012660,000732: 
012661,000733: 43,2603           34752        R04L               CAF      TWO                                   
012662,000734: 43,2604           55766                           TS       RTSTBASE                              #  FOR LR   BASE = 2, MAX = 3
012663,000735: 43,2605           36254                           CAF      SIX                                   
012664,000736: 43,2606           12520                           TCF      R04C       +4                         
012665,000737: 43,2607           34755        R04END             CAF      ZERO                                  #  ZERO RSAMPDT
012666,000738: 43,2610           55770                           TS       RSAMPDT                               #  TO TERMINATE SAMPLING
012667,000739: 43,2611           34744                           CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
012668,000740: 43,2612           04616                           TC       BANKCALL                              #  PENDING RUPT.
012669,000741: 43,2613           01736                           CADR     DELAYJOB                              
012670,000742: 
012671,000743: 43,2614           00004                           INHINT                                         
012672,000744: 43,2615           44736                           CS       BIT14                                 #  DISABLE RR AUTO TRACKER
012673,000745: 43,2616           00006                           EXTEND                                         
012674,000746: 43,2617           03012                           WAND     CHAN12                                
012675,000747: 
012676,000748: 43,2620           05527                           TC       DOWNFLAG                              
012677,000749: 43,2621           00063                           ADRES    R04FLAG                               #  SIGNAL END OF R04.
012678,000750: 
012679,000751: 43,2622           05503                           TC       ENDEXT                                
012680,000752: 
012681,000753: 43,2623           34741        R77END             CAF      EBANK4                                #  TO TERMINATE SAMPLING
012682,000754: 43,2624           54003                           TS       EBANK                                 
012683,000755: 43,2625           34755                           CAF      ZERO                                  
012684,000756: 43,2626           55770                           TS       RSAMPDT                               
012685,000757: 43,2627           34746                           CAF      BIT6                                  #  WAIT 320 MS FOR POSSIBLE
012686,000758: 43,2630           04616                           TC       BANKCALL                              #  PENDING RUPT.
012687,000759: 43,2631           01736                           CADR     DELAYJOB                              
012688,000760: 
012689,000761: 43,2632           05527                           TC       DOWNFLAG                              
012690,000762: 43,2633           00117                           ADRES    R77FLAG                               
012691,000763: 43,2634           12117                           TCF      GOPIN                                 
012692,000764: 
012693,000765: 43,2635           04110        V16N72             VN       1672                                  
012694,000766: 43,2636           04116        V16N78             VN       1678                                  
012695,000767: 43,2637           04102        V16N66             VN       1666                                  
012696,000768: 43,2640           04103        V16N67             VN       1667                                  
012697,000769: 43,2641           01014        V04N12X            VN       412                                   
012698,000770: 43,2642           14431        V50N25X            VN       5025                                  
012699,000771: 43,2643           00201        201R04             OCT      00201                                 
012700,000772: 43,2644           00145        1SEC+1             DEC      101        B-14                       
012701,000773: 43,2645     4766               250MS+1            EQUALS   CALLCODE                              
012702,000774: 43,2645           00444        LRPOSCAL           OCT      444                                   
012703,000775: 

Page 285

012705,000777: 43,2646           30101        RDRUSECK           CA       FLAGWRD5                              #  IS R77 RUNNING?
012706,000778: 43,2647           74741                           MASK     R77FLBIT                              
012707,000779: 43,2650           10000                           CCS      A                                     
012708,000780: 43,2651           02116                           TC       ALM/END                               #  YES.
012709,000781: 43,2652           40103                           CS       FLAGWRD7                              #  IS SERVICER RUNNING AND HENCE POSSIBLY
012710,000782: 43,2653           74746                           MASK     V37FLBIT                              #  R12 USING THE LR?
012711,000783: 43,2654           10000                           CCS      A                                     
012712,000784: 43,2655           12662                           TCF      CHECKRR                               #  NO
012713,000785: 43,2656           30107                           CA       FLGWRD11                              #  YES, IS R12 ON?
012714,000786: 43,2657           74735                           MASK     LRBYBIT                               #  BIT 15
012715,000787: 43,2660           00006                           EXTEND                                         
012716,000788: 43,2661           12116                           BZF      ALM/END                               #  YES
012717,000789: 43,2662           40075        CHECKRR            CS       FLAGWRD1                              #  IS THE TRACK FLAG SET AND HENCE POSSIBLY
012718,000790: 43,2663           74747                           MASK     TRACKBIT                              #  P20 USING THE RR?
012719,000791: 43,2664           10000                           CCS      A                                     
012720,000792: 43,2665           00002                           TC       Q                                     #  NOT ALLOWED DURING P20
012721,000793: 43,2666           02116                           TC       ALM/END                               #  P22 OR P25,  (R65)
012722,000794: 43,2667                                           COUNT*   $$/EXTVB                              
012723,000795: 
012724,000796: 43,2667           02076        VB64               TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
012725,000797: 43,2670           34740                           CAF      PRIO4                                 
012726,000798: 43,2671           05105                           TC       FINDVAC                               
012727,000799: 43,2672  E4,1571                                  EBANK=   ALPHASB                               
012728,000800: 43,2672           03614 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
012729,000801: 
012730,000802: 43,2674           05155                           TC       ENDOFJOB                              
012731,000803: 

Page 286

012733,000805:                                                                                                  #           IMUATTCK     VERB 43            DESCRIPTION
012734,000806:                                                                                                  #               LOAD IMU ATTITUDE ERROR METERS
012735,000807:                                                                                                  #                  1. REQUIRE POO OR FRESH START.
012736,000808:                                                                                                  #                  2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
012737,000809:                                                                                                  #                  3. REQUIRE THAT NEEDLES BE OFF.
012738,000810:                                                                                                  #                  4. REQUEST LOAD OF N22  (VAUES TO BE DISPLAYED).
012739,000811:                                                                                                  #                  5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
012740,000812: 
012741,000813: 43,2675           02121        IMUATTCK           TC       CHKPOOH                               #  VB 76 - LOAD IMU ATT. ERROR METERS
012742,000814: 
012743,000815: 43,2676           34763                           CAF      BITS4&5                               #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
012744,000816: 43,2677           00006                           EXTEND                                         #  CDUS BITS ARE ON
012745,000817: 43,2700           02012                           RAND     CHAN12                                
012746,000818: 43,2701           10000                           CCS      A                                     
012747,000819: 43,2702           12116                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
012748,000820: 
012749,000821: 43,2703           34355                           CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
012750,000822: 43,2704           00006                           EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
012751,000823: 43,2705           06031                           RXOR     CHAN31                                
012752,000824: 43,2706           74355                           MASK     BIT13-14                              
012753,000825: 43,2707           00006                           EXTEND                                         
012754,000826: 43,2710           12712                           BZF      +2                                    #  NEEDLES IS OFF.
012755,000827: 43,2711           12116                           TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
012756,000828: 
012757,000829: 43,2712           02076                           TC       TESTXACT                              
012758,000830: 
012759,000831: 43,2713           32233                           CAF      VNLODCDU                              
012760,000832: 43,2714           04616                           TC       BANKCALL                              
012761,000833: 43,2715           20334                           CADR     GOXDSPF                               
012762,000834: 43,2716           05503                           TC       ENDEXT                                #  V34
012763,000835: 43,2717           02720                           TC       +1                                    
012764,000836: 43,2720           32733                           CAF      V43K                                  #  REDISPLAY OUR VERB.
012765,000837: 43,2721           04616                           TC       BANKCALL                              
012766,000838: 43,2722           20621                           CADR     EXDSPRET                              
012767,000839: 43,2723           34746                           CAF      BIT6                                  
012768,000840: 43,2724           00006                           EXTEND                                         
012769,000841: 43,2725           05012                           WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
012770,000842: 43,2726           34752                           CAF      TWO                                   
012771,000843: 43,2727           05214                           TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
012772,000844: 43,2730     0321                                  EBANK=   THETAD                                
012773,000845: 43,2730           02035 64100                     2CADR    ATTCK2                                
012774,000846: 
012775,000847: 43,2732           15503                           TCF      ENDEXT                                
012776,000848: 
012777,000849: 42,2035                                           BANK     42                                    
012778,000850: 42,2000                                           SETLOC   PINBALL3                              #  SOMETHING IN B42.
012779,000851: 42,2000                                           BANK                                           
012780,000852: 
012781,000853: 42,2035                                           COUNT*   $$/EXTVB                              

Page 287

012783,000855: 42,2035           34752        ATTCK2             CAF      TWO                                   #  PUT OUT COMMANDS.
012784,000856: 42,2036           54002                 +1        TS       Q                                     #  CDU WILL LIMIT EXCESS DATA.
012785,000857: 42,2037           50000                           INDEX    A                                     
012786,000858: 42,2040           30321                           CA       THETAD                                
012787,000859: 42,2041           00006                           EXTEND                                         
012788,000860: 42,2042           72053                           MP       ATTSCALE                              
012789,000861: 42,2043           50002                           INDEX    Q                                     
012790,000862: 42,2044           56050                           XCH      CDUXCMD                               
012791,000863: 42,2045           10002                           CCS      Q                                     
012792,000864: 42,2046           12036                           TCF      ATTCK2     +1                         
012793,000865: 
012794,000866: 42,2047           37752                           CAF      13,14,15                              
012795,000867: 42,2050           00006                           EXTEND                                         
012796,000868: 42,2051           05014                           WOR      CHAN14                                
012797,000869: 42,2052           15272                           TCF      TASKOVER                              #  LEAVE ERROR COUNTERS ENABLED.
012798,000870: 
012799,000871: 42,2053           03146        ATTSCALE           DEC      0.1                                   
012800,000872: 
012801,000873: 07,2661                                           BANK     7                                     
012802,000874: 43,2000                                           SETLOC   EXTVERBS                              
012803,000875: 43,2000                                           BANK                                           
012804,000876: 
012805,000877: 43,2733                                           COUNT*   $$/EXTVB                              
012806,000878: 
012807,000879: 43,2733           12600        V43K               VN       4300                                  
012808,000880:                                                                                                  #           V82PERF     VERB 82             DESCRIPTION
012809,000881:                                                                                                  #               REQUEST ORBIT PARAMETERS DISPLAY (R30)
012810,000882:                                                                                                  #  1. IF AVERAGE G IS OFF:
012811,000883:                                                                                                  #           FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
012812,000884:                                                                                                  #            TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
012813,000885:                                                                                                  #            CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
012814,000886:                                                                                                  #           SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
012815,000887:                                                                                                  #           CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
012816,000888:                                                                                                  #            RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
012817,000889:                                                                                                  #            HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
012818,000890:                                                                                                  #            HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
012819,000891:                                                                                                  #            INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
012820,000892:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
012821,000893:                                                                                                  #            NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
012822,000894:                                                                                                  #            ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
012823,000895:                                                                                                  #            DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
012824,000896:                                                                                                  #            ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
012825,000897: 
012826,000898:                                                                                                  #  2. IF AVERAGE G IS ON:
012827,000899:                                                                                                  #           CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
012828,000900:                                                                                                  #            FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
012829,000901:                                                                                                  #            OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
012830,000902:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).
012831,000903:                                                                                                  #           IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
012832,000904:                                                                                                  #            RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
012833,000905: 

Page 288

012835,000907: 43,2734           02076        V82PERF            TC       TESTXACT                              
012836,000908: 
012837,000909: 43,2735           35021                           CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
012838,000910: 43,2736           05146                           TC       PRIOCHNG                              
012839,000911: 43,2737           00006                           EXTEND                                         
012840,000912: 43,2740           32743                           DCA      V82CON                                
012841,000913: 43,2741           05176                           TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
012842,000914: 
012843,000915: 43,2742  E4,1707                                  EBANK=   HAPO                                  
012844,000916: 43,2742           03242 44104  V82CON             2CADR    V82CALL                               
012845,000917: 
012846,000918:                                                                                                  #           VB83PERF     VERB 83            DESCRIPTION
012847,000919:                                                                                                  #               REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
012848,000920:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012849,000921:                                                                                                  #               2. SCHEDULE R31CALL WITH PRIORITY 5.
012850,000922:                                                                                                  #                  A. DISPLAY
012851,000923:                                                                                                  #                      R1  RANGE
012852,000924:                                                                                                  #                      R2  RANGE RATE
012853,000925:                                                                                                  #                      R3  THETA
012854,000926: 
012855,000927: 43,2744           02076        V83PERF            TC       TESTXACT                              
012856,000928: 
012857,000929: 43,2745           34752                           CAF      BIT2                                  
012858,000930: 43,2746           05214                           TC       WAITLIST                              
012859,000931: 43,2747  E7,1611                                  EBANK=   TSTRT                                 
012860,000932: 43,2747           03734 60107                     2CADR    R31CALL                               
012861,000933: 
012862,000934: 43,2751           05155                           TC       ENDOFJOB                              
012863,000935: 
012864,000936:                                                                                                  #  VERB 89 DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
012865,000937: 
012866,000938:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED.  CALCULATES AND
012867,000939:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
012868,000940: 
012869,000941:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
012870,000942:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
012871,000943: 
012872,000944:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
012873,000945:                                                                                                  #  ORIENTATION KNOWN TO LGC, CONTINUE.
012874,000946: 
012875,000947:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
012876,000948:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
012877,000949:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
012878,000950:                                                                                                  #  AFTER KEYING IN PROCEED.
012879,000951: 
012880,000952:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
012881,000953: 
012882,000954:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND

Page 289

012884,000956:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
012885,000957:                                                                                                  #  PREPARED FOR VECPOINT.
012886,000958: 
012887,000959:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
012888,000960:                                                                                                  #  BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
012889,000961: 
012890,000962:                                                                                                  #  7. RECYCLE - RETURN TO STEP 4.
012891,000963:                                                                                                  #     TERMINATE - EXIT R63.
012892,000964:                                                                                                  #     PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
012893,000965: 
012894,000966: 
012895,000967: 43,2752           02121        V89PERF            TC       CHKPOOH                               
012896,000968: 43,2753           02076                           TC       TESTXACT                              
012897,000969: 43,2754           34737                           CAF      PRIO10                                
012898,000970: 43,2755           05105                           TC       FINDVAC                               
012899,000971: 43,2756  E4,1577                                  EBANK=   RONE                                  
012900,000972: 43,2756           02024 54104                     2CADR    V89CALL                               
012901,000973: 
012902,000974: 43,2760           05155                           TC       ENDOFJOB                              
012903,000975: 
012904,000976:                                                                                                  #           V90PERF     VERB 90             DESCRIPTION
012905,000977:                                                                                                  #               REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
012906,000978:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
012907,000979:                                                                                                  #               2. SCHEDULE R36 CALL WITH PRIORITY 10
012908,000980:                                                                                                  #                  A. DISPLAY
012909,000981:                                                                                                  #                      TIME OF EVENT - HOURS , MINUTES , SECONDS
012910,000982:                                                                                                  #                      Y  OUT-OF-PLANE POSITION - NAUTICAL MILES
012911,000983:                                                                                                  #                      YDOT  OUT-OF-PLANE VELOCITY - FEET/SECOND
012912,000984:                                                                                                  #                      PSI  ANGLE BTW LINE OF SIGHT AND FORWARD
012913,000985:                                                                                                  #                           DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012914,000986: 
012915,000987: 43,2761           40103        V90PERF            CS       FLAGWRD7                              
012916,000988: 43,2762           74746                           MASK     V37FLBIT                              
012917,000989: 43,2763           00006                           EXTEND                                         
012918,000990: 43,2764           12116                           BZF      ALM/END                               #  AVERAGE G ON: ILL EAGLE
012919,000991: 43,2765           02076                           TC       TESTXACT                              
012920,000992: 43,2766           35021                           CAF      PRIO7                                 #  R36,V90
012921,000993: 43,2767           05105                           TC       FINDVAC                               
012922,000994: 43,2770  E7,1441                                  EBANK=   TIG                                   
012923,000995: 43,2770           02650 10107                     2CADR    R36                                   
012924,000996: 
012925,000997: 43,2772           15155                           TCF      ENDOFJOB                              
012926,000998:                                                                                                  #           MINIMP     VERB 76              DESCRIPTION
012927,000999:                                                                                                  #               MINIMUM IMPULSE MODE
012928,001000:                                                                                                  #               1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
012929,001001: 
012930,001002: 43,2773           05515        MINIMP             TC       UPFLAG                                #  SET PULSES = 1 (MIN. IMPULSE MODE)
012931,001003: 43,2774           00303                           ADRES    PULSEFLG                              
012932,001004: 43,2775           12117                           TCF      GOPIN                                 #  RETURN VIA PINBRNCH
012933,001005: 

Page 290

012935,001007:                                                                                                  #           NOMINIMP     VERB 77            DESCRIPTION
012936,001008:                                                                                                  #               RATE COMMAND MODE
012937,001009:                                                                                                  #               1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
012938,001010:                                                                                                  #               2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
012939,001011: 
012940,001012: 43,2776           05527        NOMINIMP           TC       DOWNFLAG                              #  SET PULSES = 0 (NOT MINIMUM IMPULSE MODE
012941,001013: 43,2777           00303                           ADRES    PULSEFLG                              
012942,001014: 43,3000           00004                           INHINT                                         
012943,001015: 43,3001           04674                           TC       IBNKCALL                              
012944,001016: 43,3002           40154                           CADR     ZATTEROR                              
012945,001017: 43,3003           02117                           TC       GOPIN                                 
012946,001018: 

Page 291

012948,001020:                                                                                                  #           CREWMANU     VERB 49            DESCRIPTION
012949,001021:                                                                                                  #               START AUTOMATIC ATTITUDE MANEUVER
012950,001022:                                                                                                  #               1. REQUIRE PROGRAM 00 ACTIVE.
012951,001023:                                                                                                  #               2. SET EXT VERB DISPLAY BUSY FLAG.
012952,001024:                                                                                                  #               3. SCHEDULE R62DISP WITH PRIORITY 10.
012953,001025:                                                                                                  #               4. RELEASE EXT VERB DISPLAY.
012954,001026: 
012955,001027:                                                                                                  #             R62DISP
012956,001028:                                                                                                  #               1. DISPLAY FLASHING V06,N22.
012957,001029:                                                                                                  #                  RESPONSES
012958,001030:                                                                                                  #                  A. TERMINATE
012959,001031:                                                                                                  #                     1. GO TO GOTOPOOH.
012960,001032:                                                                                                  #                  B. PROCEED
012961,001033:                                                                                                  #                     1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
012962,001034:                                                                                                  #                     2. EXECUTE R60LEM (ATTITUDE MANEUVER).
012963,001035:                                                                                                  #                  C. ENTER
012964,001036:                                                                                                  #                     1. REPEAT FLASHING V06,N22.
012965,001037: 
012966,001038: 43,3004           02121        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
012967,001039: 
012968,001040: 43,3005           02076                           TC       TESTXACT                              
012969,001041: 
012970,001042: 43,3006           34737                           CAF      PRIO10                                
012971,001043: 43,3007           05105                           TC       FINDVAC                               
012972,001044: 43,3010  E6,1675                                  EBANK=   BCDU                                  
012973,001045: 43,3010           02103 46106                     2CADR    R62DISP                               
012974,001046: 
012975,001047: 43,3012           05155                           TC       ENDOFJOB                              
012976,001048: 

Page 292

012978,001050:                                                                                                  #  TRMTRACK     VERB 56                     DESCRIPTION
012979,001051:                                                                                                  #               TERMINATE TRACKING (P20 AND P25).
012980,001052:                                                                                                  #               1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
012981,001053:                                                                                                  #               2. REQUIRE P20 OR  P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
012982,001054:                                                                                                  #               3. SCHEDULE V56TOVAC WITH PRIORITY 30.
012983,001055: 
012984,001056:                                                                                                  #               V56TOVAC
012985,001057:                                                                                                  #               1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
012986,001058:                                                                                                  #               2. ZERO GROUP 2 TO HALT P20.
012987,001059:                                                                                                  #               3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
012988,001060: 
012989,001061: 43,3013           33033        TRMTRACK           CA       BITS9+7                               #  IS REND OR P25 FLAG ON
012990,001062: 43,3014           70074                           MASK     FLAGWRD0                              
012991,001063: 43,3015           00006                           EXTEND                                         
012992,001064: 43,3016           12117                           BZF      GOPIN                                 #  NO
012993,001065: 
012994,001066: 43,3017           05527                           TC       DOWNFLAG                              
012995,001067: 43,3020           00010                           ADRES    RNDVZFLG                              
012996,001068: 
012997,001069: 43,3021           05527                           TC       DOWNFLAG                              
012998,001070: 43,3022           00006                           ADRES    P25FLAG                               
012999,001071: 
013000,001072: 43,3023           05527                           TC       DOWNFLAG                              #  ENSURE SEARCH FLAG IS OFF
013001,001073: 43,3024           00037                           ADRES    SRCHOPTN                              
013002,001074: 
013003,001075: 43,3025           34747                           CA       TRACKBIT                              #  IS TRACK FLAG ON?
013004,001076: 43,3026           70075                           MASK     FLAGWRD1                              
013005,001077: 43,3027           00006                           EXTEND                                         
013006,001078: 43,3030           12117                           BZF      GOPIN                                 
013007,001079: 
013008,001080: 43,3031           04635                           TC       POSTJUMP                              
013009,001081: 43,3032           64054                           CADR     TRMTRAK1                              
013010,001082: 
013011,001083: 43,3033           00500        BITS9+7            OCT      500                                   
013012,001084: 
013013,001085: 42,2000                                           SETLOC   SBAND                                 #  BANK 42
013014,001086: 42,2000                                           BANK                                           
013015,001087: 
013016,001088: 42,2054                                           COUNT*   $$/EXTVB                              
013017,001089: 
013018,001090: 42,2054           06051        TRMTRAK1           TC       INTPRET                               
013019,001091: 42,2055           43014                           CLEAR    CLEAR                                 
013020,001092: 42,2056           00670                                    UPDATFLG                              #  CLEAR UPDATE FLAG
013021,001093: 42,2057           00672                                    TRACKFLG                              #  CLEAR TRACK FLAG
013022,001094: 42,2060           45014                           CLEAR    CALL                                  
013023,001095: 42,2061           00267                                    IMUSE                                 
013024,001096: 42,2062           27410                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION
013025,001097: 42,2063           77776                           EXIT                                           
013026,001098: 
013027,001099: 42,2064           05364                           TC       PHASCHNG                              

Page 293

013029,001101: 42,2065           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
013030,001102: 
013031,001103: 42,2066           00004                           INHINT                                         
013032,001104: 42,2067           04674                           TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
013033,001105: 42,2070           40166                           CADR     STOPRATE                              #  MANEUVER
013034,001106: 
013035,001107: 42,2071           04674                           TC       IBNKCALL                              
013036,001108: 42,2072           40115                           CADR     RESTORDB                              
013037,001109: 
013038,001110: 42,2073           06011                           TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES.
013039,001111: 
013040,001112: 42,2074           44736                           CS       BIT14                                 #  DISABLE LOCKON
013041,001113: 42,2075           00006                           EXTEND                                         
013042,001114: 42,2076           03012                           WAND     CHAN12                                
013043,001115: 42,2077           04635                           TC       POSTJUMP                              
013044,001116: 42,2100           13004                           CADR     GOPROG2                               #  CAUSE RESTART.
013045,001117: 
013046,001118:                                                                                                  #           DNEDUMP     VERB 74             DESCRIPTION
013047,001119:                                                                                                  #               INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
013048,001120:                                                                                                  #               1. SET EXT VERB DISPLAY BUSY FLAG.
013049,001121:                                                                                                  #               2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
013050,001122:                                                                                                  #               3. RELEASE EXT VERB DISPLAY.
013051,001123: 
013052,001124: 43,2000                                           SETLOC   EXTVERBS                              
013053,001125: 43,2000                                           BANK                                           
013054,001126: 
013055,001127: 43,3034                                           COUNT*   $$/EXTVB                              
013056,001128: 
013057,001129: 43,3034     0400                                  EBANK=   400                                   
013058,001130: 43,3034           33037        DNEDUMP            CAF      LDNDUMPI                              
013059,001131: 43,3035           54335                           TS       DNTMGOTO                              
013060,001132: 43,3036           02117                           TC       GOPIN                                 
013061,001133: 
013062,001134: 43,3037  43,3034               V74                EQUALS   DNEDUMP                               
013063,001135: 43,3037           03723        LDNDUMPI           REMADR   DNDUMPI                               
013064,001136: 
013065,001137:                                                                                                  #           LEMVEC     VERB 80              DESCRIPTION
013066,001138:                                                                                                  #               UPDATE LEM STATE VECTOR
013067,001139:                                                                                                  #                  RESET VEHUPFLG TO 0
013068,001140: 
013069,001141: 43,3040           05527        LEMVEC             TC       DOWNFLAG                              
013070,001142: 43,3041           00026                           ADRES    VEHUPFLG                              #  VB 80 - VEHUPFLG DOWN INDICATES LEM
013071,001143: 
013072,001144: 43,3042           03045                           TC       NOUPDOWN                              
013073,001145:                                                                                                  #           CSMVEC     VERB 81              DESCRIPTION
013074,001146:                                                                                                  #               UPDATE CSM STATE VECTOR
013075,001147:                                                                                                  #                  SET   VEHUPFLG TO 1
013076,001148: 
013077,001149: 43,3043           05515        CSMVEC             TC       UPFLAG                                

Page 294

013079,001151: 43,3044           00026                           ADRES    VEHUPFLG                              #  VB 81 - VEHUPFLG UP INDICATES CSM
013080,001152: 
013081,001153: 43,3045           05527        NOUPDOWN           TC       DOWNFLAG                              
013082,001154: 43,3046           00030                           ADRES    NOUPFLAG                              
013083,001155: 
013084,001156: 43,3047           12117                           TCF      GOPIN                                 
013085,001157: 
013086,001158:                                                                                                  #           UPDATOFF   VERB 95      DESCRIPTION
013087,001159:                                                                                                  #               INHIBIT STATE VECTOR UPDATES BY INCORP
013088,001160:                                                                                                  #                  SET NOUPFLAG TO 1
013089,001161: 
013090,001162: 43,3050           05515        UPDATOFF           TC       UPFLAG                                #  VB 95 SET NOUPFLAG
013091,001163: 43,3051           00030                           ADRES    NOUPFLAG                              
013092,001164: 
013093,001165: 43,3052           02117                           TC       GOPIN                                 
013094,001166: 

Page 295

013096,001168:                                                                                                  #           SYSTEST     VERB 92             DESCRIPTION
013097,001169:                                                                                                  #             OPERATE IMU PERFORMANCE TEST.
013098,001170:                                                                                                  #               1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
013099,001171:                                                                                                  #               2. SET EXT VERB BUSY FLAG.
013100,001172: 43,3053  E5,1417                                  EBANK=   QPLACE                                
013101,001173: 
013102,001174: 43,3053           02121        SYSTEST            TC       CHKPOOH                               #  DEMAND POO
013103,001175: 
013104,001176: 43,3054           40077                           CS       FLAGWRD3                              #  DO NOT ALLOW P07 IN FLIGHT
013105,001177: 43,3055           74741                           MASK     NOP07BIT                              #  IF FLAG IS SET, TURN ON OE LITE AND EXIT
013106,001178: 43,3056           00006                           EXTEND                                         
013107,001179: 43,3057           12116                           BZF      ALM/END                               
013108,001180: 43,3060           02076                           TC       TESTXACT                              
013109,001181: 
013110,001182: 43,3061           37722                           CAF      PRIO22                                
013111,001183: 43,3062           05105                           TC       FINDVAC                               
013112,001184: 43,3063  E5,1417                                  EBANK=   QPLACE                                
013113,001185: 43,3063  37,2000                                  SBANK=   IMUSUPER                              
013114,001186: 43,3063           02002 76065                     2CADR    REDO                                  
013115,001187: 
013116,001188: 43,3065           05155                           TC       ENDOFJOB                              
013117,001189: 
013118,001190:                                                                                                  #  VERB 93         CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
013119,001191: 
013120,001192: 43,3066           00004        WMATRXNG           INHINT                                         
013121,001193: 43,3067           44753                           CS       RENDWBIT                              
013122,001194: 43,3070           70101                           MASK     FLAGWRD5                              
013123,001195: 43,3071           54101                           TS       FLAGWRD5                              
013124,001196: 
013125,001197: 43,3072           02117                           TC       GOPIN                                 
013126,001198: 
013127,001199: 43,3073  43,3073               GOSHOSUM           EQUALS   SHOWSUM                               
013128,001200: 
013129,001201: 43,3073           02121        SHOWSUM            TC       CHKPOOH                               #  *
013130,001202: 43,3074           02076                           TC       TESTXACT                              #  *
013131,001203: 43,3075           35021                           CAF      PRIO7                                 #  ALLOW OTHER CHARINS.
013132,001204: 43,3076           05146                           TC       PRIOCHNG                              
013133,001205: 43,3077           34753                           CAF      S+1                                   #  *
013134,001206: 43,3100           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
013135,001207: 43,3101           34755                           CAF      S+ZERO                                #  *
013136,001208: 43,3102           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
013137,001209: 43,3103           33244                           CA       SELFADRS                              #  *
013138,001210: 43,3104           55361                           TS       SELFRET                               #  *
013139,001211: 43,3105           03521                           TC       STSHOSUM                              #  * ENTER ROPECHK
013140,001212: 
013141,001213: 43,3106           23372        SDISPLAY           LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
013142,001214: 43,3107           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
013143,001215: 43,3110           33243        NOKILL             CA       ADRS1                                 #  *
013144,001216: 43,3111           54156                           TS       MPAC       +2                         #  *
013145,001217: 43,3112           33123                           CA       VNCON                                 #  * 0501

Page 296

013147,001219: 43,3113           04616                           TC       BANKCALL                              #  *
013148,001220: 43,3114           20334                           CADR     GOXDSPF                               #  *
013149,001221: 43,3115           03120                           TC       +3                                    #  *
013150,001222: 43,3116           03632                           TC       NXTBNK                                #  *
013151,001223: 43,3117           03110                           TC       NOKILL                                #  *
013152,001224: 43,3120           33244                           CA       SELFADRS                              
013153,001225: 43,3121           55371                           TS       SKEEP1                                
013154,001226: 
013155,001227: 43,3122           05503                           TC       ENDEXT                                #  *
013156,001228: 
013157,001229: 43,3123           01201        VNCON              VN       501                                   #  *
013158,001230: 
013159,001231: 43,3124           31376        ENDSUMS            CA       SKEEP6                                #  *
013160,001232: 43,3125           00006                           EXTEND                                         #  *
013161,001233: 43,3126           13335                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
013162,001234: 43,3127           03521                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
013163,001235: 

Page 297

013165,001237:                                                                                                  #           DAPDISP     VERB 48             DESCRIPTION
013166,001238:                                                                                                  #               LOAD AUTO PILOT  DATA
013167,001239:                                                                                                  #               1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
013168,001240:                                                                                                  #               2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
013169,001241:                                                                                                  #               3. RELEASE EXT VERB DISPLAY SYSTEM.
013170,001242:                                                                                                  #  KEY
013171,001243:                                                                                                  #  THE FOLLOWING IS A KEY TO THE 5 DIGITS OF THE DAP DATA CODE (N46)
013172,001244: 
013173,001245:                                                                                                  #  DIGIT A - VEHICLE CONFIGURATION
013174,001246:                                                                                                  #           1 - LM ALONE, ASCENT
013175,001247:                                                                                                  #           2 - LM ALONE, DESCENT
013176,001248:                                                                                                  #           3 - CSM AND LM DOCKED
013177,001249: 
013178,001250:                                                                                                  #  DIGIT B - ACCELERATION CODE
013179,001251:                                                                                                  #           0 - 2 JET TRANSLATION, RCS SYSTEM A PREFERRED
013180,001252:                                                                                                  #           1 - 2 JET TRANSLATION, RCS SYSTEM B PREFERRED
013181,001253:                                                                                                  #           2 - 4 JET TRANSLATION, RCS SYSTEM A PREFERRED (NOT MEANINGFUL)
013182,001254:                                                                                                  #           3 - 4 JET TRANSLATION, RCS SYSTEM B PREFERRED (NOT MEANINGFUL)
013183,001255: 
013184,001256:                                                                                                  #  DIGIT C - ACA SCALING
013185,001257:                                                                                                  #           0 - FINE
013186,001258:                                                                                                  #           1 - NORMAL
013187,001259: 
013188,001260:                                                                                                  #  DIGIT D - DEADBAND
013189,001261:                                                                                                  #           0 - 0.3 DEG
013190,001262:                                                                                                  #           1 - 1.0 DEG
013191,001263:                                                                                                  #           2 - 5.0 DEG
013192,001264:                                                                                                  #          (3 - 5.0 DEG BY DEFAULT)
013193,001265: 
013194,001266:                                                                                                  #  DIGIT E - MANEUVER RATE
013195,001267:                                                                                                  #           0 - 0.2 DEG/SEC
013196,001268:                                                                                                  #           1 - 0.5 DEG/SEC
013197,001269:                                                                                                  #           2 - 2.0 DEG/SEC
013198,001270:                                                                                                  #           3 -10.0 DEG/SEC
013199,001271: 
013200,001272: 43,3130           02076        DAPDISP            TC       TESTXACT                              
013201,001273: 43,3131           35021                           CAF      PRIO7                                 #  R03
013202,001274: 43,3132           05146                           TC       PRIOCHNG                              
013203,001275: 43,3133           04635                           TC       POSTJUMP                              
013204,001276: 43,3134           40004                           CADR     DAPDATA1                              
013205,001277: 34,2060                                           BANK     34                                    
013206,001278: 20,2000                                           SETLOC   LOADDAP                               
013207,001279: 20,2000                                           BANK                                           
013208,001280: 
013209,001281: 20,2004                                           COUNT*   $$/R03                                
013210,001282: 
013211,001283: 20,2004  30,2000                                  SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S.
013212,001284: 
013213,001285: 20,2004           32114        DAPDATA1           CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOLS BITS.
013214,001286: 20,2005           70111                           MASK     DAPBOOLS                              #  LM

Page 298

013216,001288: 20,2006           55340                           TS       DAPDATR1                              #  LM
013217,001289: 20,2007           40106                           CS       FLGWRD10                              #  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
013218,001290: 20,2010           74737                           MASK     APSFLBIT                              
013219,001291: 20,2011           10000                           CCS      A                                     
013220,001292: 20,2012           34736                           CAF      BIT14                                 
013221,001293: 20,2013           27340                           ADS      DAPDATR1                              
013222,001294: 20,2014           31340        CHKDATA1           CAE      DAPDATR1                              #  IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
013223,001295: 20,2015           74355                           MASK     BIT13-14                              #    A ONE INTO BIT 13.
013224,001296: 20,2016           00006                           EXTEND                                         
013225,001297: 20,2017           12034                           BZF      FORCEONE                              
013226,001298: 20,2020           31340                           CAE      DAPDATR1                              #  ENSURE THAT NO ILLEGAL BITS SET BY CREW.
013227,001299: 20,2021           72113        MSKDATR1           MASK     DSPLYMSK                              
013228,001300: 20,2022           55340                           TS       DAPDATR1                              
013229,001301: 20,2023           32112                           CAF      V01N46                                #  LM
013230,001302: 20,2024           04616                           TC       BANKCALL                              
013231,001303: 20,2025           20353                           CADR     GOXDSPFR                              
013232,001304: 20,2026           15503                           TCF      ENDEXT                                #  V34E  TERMINATE
013233,001305: 20,2027           12037                           TCF      DPDAT1                                #  V33E  PROCEED
013234,001306: 20,2030           12014                           TCF      CHKDATA1                              #  E     NEW DATA    CHECK AND REDISPLAY
013235,001307: 20,2031           36254                           CAF      REVCNT                                #  BITS 2 & 3:  BLANKS R2 & R3.
013236,001308: 20,2032           05475                           TC       BLANKET                               
013237,001309: 20,2033           15155                           TCF      ENDOFJOB                              
013238,001310: 20,2034           34737        FORCEONE           CAF      BIT13                                 
013239,001311: 20,2035           27340                           ADS      DAPDATR1                              
013240,001312: 20,2036           12021                           TCF      MSKDATR1                              
013241,001313: 
013242,001314: 20,2037           00004        DPDAT1             INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
013243,001315: 20,2040           44737                           CS       APSFLBIT                              #    ON BASIS OF DISPLAYED DAPDATR1.
013244,001316: 20,2041           70106                           MASK     FLGWRD10                              
013245,001317: 20,2042           54001                           TS       L                                     #  SET APSFLAG TO BE COMPLEMENT OF BIT 14.
013246,001318: 20,2043           41340                           CS       DAPDATR1                              
013247,001319: 20,2044           74736                           MASK     BIT14                                 
013248,001320: 20,2045           10000                           CCS      A                                     
013249,001321: 20,2046           34737                           CAF      APSFLBIT                              
013250,001322: 20,2047           60001                           AD       L                                     
013251,001323: 20,2050           54106                           TS       FLGWRD10                              
013252,001324: 20,2051           41340                           CS       DAPDATR1                              #  SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
013253,001325: 20,2052           74355                           MASK     BIT13-14                              #    MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
013254,001326: 20,2053           10000                           CCS      A                                     #    13 AND 14 ARE SET.
013255,001327: 20,2054           44737                           CS       CSMDOCKD                              
013256,001328: 20,2055           62114                           AD       BOOLSMSK                              
013257,001329: 20,2056           71340                           MASK     DAPDATR1                              
013258,001330: 20,2057           54001                           TS       L                                     
013259,001331: 20,2060           42114                           CS       BOOLSMSK                              
013260,001332: 20,2061           70111                           MASK     DAPBOOLS                              
013261,001333: 20,2062           60001                           AD       L                                     
013262,001334: 20,2063           54111                           TS       DAPBOOLS                              
013263,001335: 20,2064           74737                           MASK     CSMDOCKD                              #  LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
013264,001336: 20,2065           10000                           CCS      A                                     #    MASS IS USUALLY ALREADY OKAY, SO DO
013265,001337: 20,2066           31327                           CAE      CSMMASS                               #    NOT TOUCH ITS LOW-ORDER PART.

Page 299

013267,001339: 20,2067           61326                           AD       LEMMASS                               
013268,001340: 20,2070           55245                           TS       MASS                                  
013269,001341: 20,2071           30111                           CAE      DAPBOOLS                              
013270,001342: 20,2072           74741                           MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
013271,001343: 20,2073           00006                           EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
013272,001344: 20,2074           12101                           BZF      +5                                    
013273,001345: 20,2075           44735                           CS       BIT15                                 
013274,001346: 20,2076           70075                           MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
013275,001347: 20,2077           54075                           TS       FLAGWRD1                              
013276,001348: 20,2100           12104                           TCF      +4                                    
013277,001349: 20,2101           40075                           CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
013278,001350: 20,2102           74735                           MASK     BIT15                                 
013279,001351: 20,2103           26075                           ADS      FLAGWRD1                              
013280,001352: 20,2104           30111                           CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
013281,001353: 20,2105           76257                           MASK     THREE                                 #  MANEUVER RATE
013282,001354: 20,2106           60000                           DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
013283,001355: 20,2107           55322                           TS       RATEINDX                              #  ARE DP
013284,001356: 20,2110           04635                           TC       POSTJUMP                              
013285,001357: 20,2111           02214                           CADR     STIKLOAD                              
013286,001358: 
013287,001359: 20,2112           00256        V01N46             VN       0146                                  
013288,001360: 20,2113           33133        DSPLYMSK           OCT      33133                                 
013289,001361: 20,2114           13133        BOOLSMSK           OCT      13133                                 
013290,001362: 01,2214                                           BANK     01                                    
013291,001363: 01,2000                                           SETLOC   LOADDAP1                              
013292,001364: 01,2000                                           BANK                                           
013293,001365: 
013294,001366: 01,2214                                           COUNT*   $$/R03                                
013295,001367: 
013296,001368: 01,2214           35015        STIKLOAD           CAF      EBANK6                                
013297,001369: 01,2215           54003                           TS       EBANK                                 
013298,001370: 01,2216  E6,1444                                  EBANK=   STIKSENS                              
013299,001371: 01,2216           34745                           CA       RHCSCALE                              #  SET STICK SENSITIVITY TO CORRESPOND TO A
013300,001372: 01,2217           70111                           MASK     DAPBOOLS                              #  MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
013301,001373: 01,2220           10000                           CCS      A                                     #  20 D/S(NORMAL) OR 4 D/S(FINE), SCALED
013302,001374: 01,2221           32343                           CA       NORMAL                                #  AT 45 D/S.
013303,001375: 01,2222           62344                           AD       FINE                                  
013304,001376: 01,2223           55444                           TS       STIKSENS                              
013305,001377: 01,2224           32346                           CA       -0.6D/S                               
013306,001378: 01,2225           55476                           TS       -RATEDB                               #  LM-ONLY BREAKOUT LEVEL IS .6 D/S.
013307,001379: 01,2226           34737                           CA       CSMDOCKD                              #  IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
013308,001380: 01,2227           70111                           MASK     DAPBOOLS                              #  BY 10. NORMAL SCALING IS THEN 2 D/S AND
013309,001381: 01,2230           00006                           EXTEND                                         #  FINE SCALING IS 0.4 D/S
013310,001382: 01,2231           12240                           BZF      +7                                    #  BRANCH IF CSM IS NOT DOCKED.
013311,001383: 01,2232           31444                           CA       STIKSENS                              
013312,001384: 01,2233           00006                           EXTEND                                         
013313,001385: 01,2234           72345                           MP       1/10                                  
013314,001386: 01,2235           55444                           TS       STIKSENS                              
013315,001387: 01,2236           32347                           CA       -0.3D/S                               #  CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
013316,001388: 01,2237           55476                           TS       -RATEDB                               

Page 300

013318,001390: 01,2240           00003                           RELINT                                         #  PROCEED TO NOUN 47, MASS LOAD,
013319,001391: 
013320,001392: 01,2241           32341        DAPDATA2           CAF      V0647                                 
013321,001393: 01,2242           04616                           TC       BANKCALL                              
013322,001394: 01,2243           20353                           CADR     GOXDSPFR                              
013323,001395: 01,2244           12252                           TCF      ENDR03                                #  V34E  TERMINATE. FIRST SET DB, DO 1/ACCS
013324,001396: 01,2245           12256                           TCF      DAPDAT2                               #  V33E  PROCEED
013325,001397: 01,2246           12241                           TCF      DAPDATA2                              #        LOAD NEW DATA AND RECYCLE
013326,001398: 01,2247           34751                           CAF      BIT3                                  #  BLANKS R3
013327,001399: 01,2250           05475                           TC       BLANKET                               #             LM
013328,001400: 01,2251           15155                           TCF      ENDOFJOB                              
013329,001401: 01,2252           00004        ENDR03             INHINT                                         
013330,001402: 01,2253           04674                           TC       IBNKCALL                              
013331,001403: 01,2254           40115                           CADR     RESTORDB                              
013332,001404: 01,2255           15503                           TCF      ENDEXT                                #  DOES RELINT
013333,001405: 
013334,001406: 01,2256           40106        DAPDAT2            CS       FLGWRD10                              #  DETERMINE STAGE FROM APSFLAG
013335,001407: 01,2257           74737                           MASK     APSFLBIT                              
013336,001408: 01,2260           10000                           CCS      A                                     
013337,001409: 01,2261           32000                           CA       MINLMD                                
013338,001410: 01,2262           62001                           AD       MINMINLM                              
013339,001411: 01,2263           61326                           AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
013340,001412: 01,2264           00006                           EXTEND                                         
013341,001413: 01,2265           62241                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
013342,001414: 01,2266           30111                           CAE      DAPBOOLS                              
013343,001415: 01,2267           74737                           MASK     CSMDOCKD                              
013344,001416: 01,2270           00006                           EXTEND                                         
013345,001417: 01,2271           12277                           BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
013346,001418: 01,2272           44741                           CS       MINCSM                                #  TEST CSM MASS
013347,001419: 01,2273           61327                           AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM
013348,001420: 01,2274           00006                           EXTEND                                         
013349,001421: 01,2275           62241                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
013350,001422: 01,2276           31327                           CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
013351,001423: 01,2277           61326        LEMALONE           AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
013352,001424: 01,2300           22007                           ZL                                             
013353,001425: 01,2301           53246                           DXCH     MASS                                  
013354,001426: 01,2302           00004                           INHINT                                         
013355,001427: 01,2303           04674                           TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
013356,001428: 01,2304           40115                           CADR     RESTORDB                              #    INERTIA.
013357,001429: 01,2305           00003                           RELINT                                         #  PROCEED TO NOUN 48 (OR END).
013358,001430: 
013359,001431: 01,2306           40106        DAPDATA3           CS       FLGWRD10                              
013360,001432: 01,2307           74737                           MASK     APSFLBIT                              
013361,001433: 01,2310           00006                           EXTEND                                         #  END ROUTINE IF LEM HAS STAGED,
013362,001434: 01,2311           15503                           BZF      ENDEXT                                
013363,001435: 01,2312           32342                           CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
013364,001436: 01,2313           04616                           TC       BANKCALL                              
013365,001437: 01,2314           20353                           CADR     GOXDSPFR                              
013366,001438: 01,2315           05503                           TC       ENDEXT                                
013367,001439: 01,2316           12323                           TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
013368,001440: 

Page 301

013370,001442: 01,2317           12312                           TCF      -5                                    #       LOAD NEW DATA AND RECYCLE
013371,001443: 01,2320           34751                           CAF      BIT3                                  
013372,001444: 01,2321           05475                           TC       BLANKET                               #  BLANK R3
013373,001445: 01,2322           15155                           TCF      ENDOFJOB                              
013374,001446: 01,2323           34753        DPDAT3             CAF      BIT1                                  
013375,001447: 01,2324           05214                           TC       WAITLIST                              
013376,001448: 01,2325  E6,1401                                  EBANK=   ROLLTIME                              
013377,001449: 01,2325           03216 56066                     2CADR    TRIMGIMB                              
013378,001450: 
013379,001451: 01,2327           15155                           TCF      ENDOFJOB                              #  DOES A RELINT
013380,001452: 01,2330           32342        TRIMDONE           CAF      V50N48                                
013381,001453: 01,2331           04616                           TC       BANKCALL                              #  TRIM IS FINISHED; PLEASE TERMINATE R03
013382,001454: 01,2332           20361                           CADR     GOMARK3R   -1                         
013383,001455: 01,2333           05503                           TC       ENDEXT                                #  V34E TERMINATE
013384,001456: 01,2334           05503                           TC       ENDEXT                                
013385,001457: 01,2335           05503                           TC       ENDEXT                                
013386,001458: 01,2336           36007                           CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
013387,001459: 01,2337           05475                           TC       BLANKET                               
013388,001460: 01,2340           15155                           TCF      ENDOFJOB                              
013389,001461: 
013390,001462: 01,2341           01457        V0647              VN       0647                                  
013391,001463: 01,2342           01460        V06N48             VN       0648                                  
013392,001464: 
013393,001465: 01,2343  01,2342               V50N48             =        V06N48                                
013394,001466: 
013395,001467: 01,2343           25101        NORMAL             DEC      .660214                               
013396,001468:                                                                                                  #  NORMAL SCALING IS 20 D/S
013397,001469: 01,2344           05220        FINE               DEC      .165054                               #  FINE STICK SCALING (4 D/S).
013398,001470: 01,2345           03146        1/10               DEC      .1                                    #  FACTOR FOR CSM-DOCKED SCALING
013399,001471: 01,2346           77445        -0.6D/S            DEC      -218       B-14                       
013400,001472: 01,2347           77622        -0.3D/S            DEC      -109       B-14                       
013401,001473: 

Page 302

013403,001475:                                                                                                  #  VERB 66.  VEHICLES ARE ATTACHED.  MOVE THIS VEHICLE STATE VECTOR TO
013404,001476:                                                                                                  #            OTHER VEHICLE STATE VECTOR.
013405,001477: 
013406,001478:                                                                                                  #      USE SUBROUTINE GENTRAN.
013407,001479: 
013408,001480: 07,2661                                           BANK     7                                     
013409,001481: 43,2000                                           SETLOC   EXTVERBS                              
013410,001482: 43,2000                                           BANK                                           
013411,001483: 
013412,001484: 43,3135                                           COUNT*   $$/EXTVB                              
013413,001485: 
013414,001486: 43,3135  E3,1626                                  EBANK=   RRECTHIS                              
013415,001487: 
013416,001488: 43,3135           40104        ATTACHED           CS       FLAGWRD8                              
013417,001489: 43,3136           74744                           MASK     SURFFBIT                              
013418,001490: 43,3137           00006                           EXTEND                                         
013419,001491: 43,3140           12116                           BZF      ALM/END                               #  TURN ON OE AND EXIT IF SURFFLAG SET.
013420,001492: 43,3141           34737                           CAF      PRIO10                                
013421,001493: 43,3142           05105                           TC       FINDVAC                               
013422,001494: 43,3143  E3,1626                                  EBANK=   RRECTHIS                              
013423,001495: 
013424,001496: 43,3143           03146 66103                     2CADR    ATTACHIT                              
013425,001497: 
013426,001498: 43,3145           05155                           TC       ENDOFJOB                              
013427,001499: 
013428,001500: 43,3146           06051        ATTACHIT           TC       INTPRET                               
013429,001501: 43,3147           77624                           CALL                                           
013430,001502: 43,3150           27410                                    INTSTALL                              
013431,001503: 43,3151           43014                           SET      BON                                   
013432,001504: 43,3152           04063                                    MOONOTH                               
013433,001505: 43,3153           04304                                    MOONTHIS                              
013434,001506: 43,3154           67157                                    +3                                    
013435,001507: 43,3155           77614                           CLEAR                                          
013436,001508: 43,3156           04263                                    MOONOTH                               
013437,001509: 43,3157           77776                           EXIT                                           
013438,001510: 43,3160           33203                           CAF      OCT51                                 
013439,001511: 43,3161           05555                           TC       GENTRAN                               
013440,001512: 43,3162           01626                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
013441,001513: 43,3163           01554                           ADRES    RRECTOTH                              
013442,001514: 
013443,001515: 43,3164           00003                           RELINT                                         
013444,001516: 43,3165           06051                           TC       INTPRET                               
013445,001517: 43,3166           77624                           CALL                                           #  UPDATE R-OTHER, V-OTHER
013446,001518: 43,3167           26757                                    PTOALEM                               
013447,001519: 43,3170           45154                           LXA,2    CALL                                  
013448,001520: 43,3171           02030                                    PBODY                                 
013449,001521: 43,3172           26114                                    SVDWN1                                
013450,001522: 43,3173           77776                           EXIT                                           
013451,001523: 
013452,001524: 43,3174           33204                           CAF      TCPINAD                               

Page 303

013454,001526: 43,3175           50120                           INDEX    FIXLOC                                
013455,001527: 43,3176           54052                           TS       QPRET                                 
013456,001528: 43,3177           04635                           TC       POSTJUMP                              
013457,001529: 43,3200           27421                           CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
013458,001530: 
013459,001531: 43,3201           77634        TCPIN              RTB                                            
013460,001532: 43,3202           21051                                    PINBRNCH                              
013461,001533: 
013462,001534: 43,3203           00051        OCT51              OCT      51                                    
013463,001535: 43,3204           67201        TCPINAD            CADR     TCPIN                                 
013464,001536: 
013465,001537:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
013466,001538: 
013467,001539:                                                                                                  #           GO TO V37 WITH ZERO TO CAUSE POO.
013468,001540:                                                                                                  #           STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
013469,001541:                                                                                                  #                  THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
013470,001542: 
013471,001543: 43,3205           05515        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
013472,001544: 43,3206           00221                           ADRES    QUITFLAG                              #     AT NEXT TIMESTEP
013473,001545: 
013474,001546: 43,3207           34755                           CAF      ZERO                                  
013475,001547: 43,3210           04635                           TC       POSTJUMP                              
013476,001548: 43,3211           10040                           CADR     V37                                   #  GO TO POO
013477,001549: 
013478,001550: 
013479,001551:                                                                                                  #  VERB 67 :   DISPLAY OF W MATRIX
013480,001552: 
013481,001553: 43,3212           02076        V67                TC       TESTXACT                              
013482,001554: 43,3213           35017                           CAF      PRIO5                                 
013483,001555: 43,3214           05105                           TC       FINDVAC                               
013484,001556: 43,3215  E4,1571                                  EBANK=   WWPOS                                 
013485,001557: 43,3215           02007 62064                     2CADR    V67CALL                               
013486,001558: 
013487,001559: 43,3217           05155                           TC       ENDOFJOB                              
013488,001560: 
013489,001561:                                                                                                  #  VERB 65         DISABLE U,V JETS DURING DPS BURNS
013490,001562: 
013491,001563: 43,3220           05515        SNUFFOUT           TC       UPFLAG                                
013492,001564: 43,3221           00115                           ADRES    SNUFFER                               
013493,001565: 43,3222           02117                           TC       GOPIN                                 
013494,001566: 
013495,001567:                                                                                                  #  VERB 75         ENABLE U,V JETS DURING DPS BURNS
013496,001568: 
013497,001569: 43,3223           05527        OUTSNUFF           TC       DOWNFLAG                              
013498,001570: 43,3224           00115                           ADRES    SNUFFER                               
013499,001571: 43,3225           02117                           TC       GOPIN                                 
013500,001572:                                                                                                  #  VERB 85         DISPLAY RR LOS AZIMUTH AND ELEVATION.
013501,001573: 
013502,001574:                                                                                                  #           AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0 - 90 DEG IN THE +Y HEMISPHERE,
013503,001575:                                                                                                  #  360 - 270 DEG IN THE -Y HEMISPHERE.
013504,001576: 

Page 304

013506,001578:                                                                                                  #           ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0 - 360 ABOUT +Y.
013507,001579: 
013508,001580: 43,3226  E4,1571                                  EBANK=   RR-AZ                                 
013509,001581: 43,3226           02076        VERB85             TC       TESTXACT                              
013510,001582: 43,3227           04635                           TC       POSTJUMP                              
013511,001583: 43,3230           62000                           CADR     DSPRRLOS                              
013512,001584: 
013513,001585: 41,2000                                           SETLOC   PINBALL2                              
013514,001586: 41,2000                                           BANK                                           
013515,001587: 
013516,001588: 41,2000                                           COUNT*   $$/EXTVB                              
013517,001589: 
013518,001590: 41,2000           35017        DSPRRLOS           CAF      PRIO5                                 
013519,001591: 41,2001           05105                           TC       FINDVAC                               
013520,001592: 41,2002  E4,1571                                  EBANK=   RR-AZ                                 
013521,001593: 41,2002           02000 60104                     2CADR    RRLOSDSP                              
013522,001594: 
013523,001595: 41,2004           34740                           CAF      PRIO4                                 
013524,001596: 41,2005           05146                           TC       PRIOCHNG                              
013525,001597: 41,2006           32017                           CAF      V16N56                                
013526,001598: 41,2007           04616                           TC       BANKCALL                              
013527,001599: 41,2010           20353                           CADR     GOMARKFR                              
013528,001600: 41,2011           05574                           TC       B5OFF                                 
013529,001601: 41,2012           05574                           TC       B5OFF                                 
013530,001602: 41,2013           05574                           TC       B5OFF                                 
013531,001603: 
013532,001604: 41,2014           34751                           CAF      BIT3                                  
013533,001605: 41,2015           05475                           TC       BLANKET                               
013534,001606: 41,2016           05155                           TC       ENDOFJOB                              
013535,001607: 
013536,001608: 41,2017           04070        V16N56             VN       1656                                  
013537,001609: 
013538,001610: 
013539,001611: 40,2000                                           SETLOC   PINBALL1                              
013540,001612: 40,2000                                           BANK                                           
013541,001613: 
013542,001614: 40,2000           00006        RRLOSDSP           EXTEND                                         
013543,001615: 40,2001           30036                           DCA      CDUT                                  
013544,001616: 40,2002           52155                           DXCH     MPAC                                  
013545,001617: 40,2003           06051                           TC       INTPRET                               
013546,001618: 40,2004           77624                           CALL                                           
013547,001619: 40,2005           46065                                    RRNBMPAC                              #  GET RR LOS IN BODY AXIS.
013548,001620: 40,2006           00001                           STORE    0D                                    #  UNIT LOS
013549,001621: 40,2007           14007                           STODL    6D                                    
013550,001622: 40,2010           06520                                    HI6ZEROS                              
013551,001623: 40,2011           24011                           STOVL    8D                                    
013552,001624: 40,2012           00007                                    6D                                    
013553,001625: 40,2013           77656                           UNIT                                           
013554,001626: 40,2014           00007                           STORE    6D                                    #  UNIT OF LOS PROJ IN X-Z PLANE
013555,001627: 40,2015           77641                           DOT                                            

Page 305

013557,001629: 40,2016           06512                                    UNITZ                                 
013558,001630: 40,2017           24021                           STOVL    COSTH                                 #  16D
013559,001631: 40,2020           06516                                    UNITX                                 
013560,001632: 40,2021           77641                           DOT                                            
013561,001633: 40,2022           00007                                    6D                                    
013562,001634: 40,2023           34023                           STCALL   SINTH                                 #  18D
013563,001635: 40,2024           47316                                    ARCTRIG                               
013564,001636: 40,2025           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0 - 360 DEG.
013565,001637: 40,2026           60030                                    +2                                    
013566,001638: 40,2027           06526                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
013567,001639: 40,2030           26174                           STOVL    RR-ELEV                               
013568,001640: 40,2031           00001                                    0D                                    
013569,001641: 40,2032           77641                           DOT                                            
013570,001642: 40,2033           06514                                    UNITY                                 
013571,001643: 40,2034           24023                           STOVL    SINTH                                 
013572,001644: 40,2035           00001                                    0D                                    
013573,001645: 40,2036           77641                           DOT                                            
013574,001646: 40,2037           00007                                    6D                                    
013575,001647: 40,2040           34021                           STCALL   COSTH                                 
013576,001648: 40,2041           47316                                    ARCTRIG                               
013577,001649: 40,2042           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0 - 360 DEG.
013578,001650: 40,2043           60045                                    +2                                    
013579,001651: 40,2044           06526                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
013580,001652: 40,2045           02172                           STORE    RR-AZ                                 
013581,001653: 40,2046           77776                           EXIT                                           
013582,001654: 40,2047           34777                           CA       1SEC                                  
013583,001655: 40,2050           04616                           TC       BANKCALL                              
013584,001656: 40,2051           01736                           CADR     DELAYJOB                              
013585,001657: 
013586,001658: 40,2052           34747                           CA       BIT5                                  
013587,001659: 40,2053           71043                           MASK     EXTVBACT                              
013588,001660: 40,2054           10000                           CCS      A                                     
013589,001661: 40,2055           02000                           TC       RRLOSDSP                              
013590,001662: 40,2056           05503                           TC       ENDEXT                                

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