Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

010868,000002:                                                                                                  ## Copyright:   Public domain.
010869,000003:                                                                                                  ## Filename:    EXTENDED_VERBS.agc
010870,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
010871,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
010872,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
010873,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
010874,000008:                                                                                                  ##              that the code format has been changed to conform to the
010875,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
010876,000010:                                                                                                  ##              original YUL assembler.
010877,000011:                                                                                                  ## Reference:   pp. 262-301
010878,000012:                                                                                                  ## Assembler:   yaYUL
010879,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
010880,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010881,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
010882,000016:                                                                                                  ##              2017-02-23 RSB  CHKP00H -> CHKPOOH
010883,000017:                                                                                                  ##              2017-03-06 RSB  Transcribed, and then proofed comment-text using
010884,000018:                                                                                                  ##                              3-way diff vs Luminary 99 and Luminary 131.
010885,000019:                                                                                                  ##                              (Admittedly, the former is more for detecting errors
010886,000020:                                                                                                  ##                              in Luminary 99 than the other way around.)
010887,000021:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
010888,000022:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
010889,000023:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
010890,000024:                                                                                                  ##                              Luminary 99 vs Comanche 55.
010891,000025:                                                                                                  ##              2017-03-19 HG   Add missing statement adres NEED2FLG
010892,000026:                                                                                                  ##                              Fix values OCT 33113 --> OCT 33133 (DSPLYMSK)
010893,000027:                                                                                                  ##                                         OCT 13113 --> OCT 13133 (BOOLSMSK)
010894,000028:                                                                                                  ##                              Fix operator TC --> TCF
010895,000029: 

Page 262

010897,000031: 07,2667                                           BANK     7                                     
010898,000032: 43,2000                                           SETLOC   EXTVERBS                              
010899,000033: 43,2000                                           BANK                                           
010900,000034: 
010901,000035: 43,2000  E5,1737                                  EBANK=   OGC                                   
010902,000036: 
010903,000037: 43,2000                                           COUNT*   $$/EXTVB                              
010904,000038: 
010905,000039:                                                                                                  #  FAN-OUT
010906,000040: 
010907,000041: 43,2000           50154        GOEXTVB            INDEX    MPAC                                  #  VERB-40 IS IN MPAC
010908,000042: 43,2001           02002                           TC       LST2FAN                               #  FAN AS BEFORE.
010909,000043: 
010910,000044: 43,2002           02124        LST2FAN            TC       VBZERO                                #  VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
010911,000045: 43,2003           02172                           TC       VBCOARK                               #  VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010912,000046:                                                                                                  #                                  72 ONLY)
010913,000047: 43,2004           02363                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
010914,000048: 43,2005           02727                           TC       IMUATTCK                              #  VB43  LOAD IMU ATTITUDE ERROR METERS.
010915,000049: 43,2006           02277                           TC       RRDESEND                              #  VB44 TERMINATE CONTINUOUS DESIGNATE
010916,000050: 43,2007           02114                           TC       ALM/END                               #  VB45 SPARE
010917,000051: 43,2010           02114                           TC       ALM/END                               #  VB46 SPARE
010918,000052: 43,2011           02422                           TC       V47TXACT                              #  VB47 AGS INITIALIZATION
010919,000053: 43,2012           03152                           TC       DAPDISP                               #  VB48  LOAD A/P DATA
010920,000054: 43,2013           13032                           TCF      CREWMANU                              #  VB49 START AUTOMATIC ATTITUDE MANEUVER
010921,000055: 43,2014           02414                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
010922,000056: 43,2015           02114                           TC       ALM/END                               #  VB51 SPARE
010923,000057: 43,2016           02414                           TC       GOLOADLV                              #  VB52 PLEASE MARK X - RETICLE.
010924,000058: 43,2017           02414                           TC       GOLOADLV                              #  VB53 PLEASE MARK Y - RETICLE.
010925,000059: 43,2020           02414                           TC       GOLOADLV                              #  VB54 PLEASE MARK X OR Y - RETICLE
010926,000060: 43,2021           02434                           TC       ALINTIME                              #  VB55 ALIGN TIME
010927,000061: 43,2022           03041                           TC       TRMTRACK                              #  VB56 TERMINATE TRACKING - P20 + P25
010928,000062: 43,2023           02317                           TC       LRON                                  #  VB57 PERMIT  LANDING RADAR UPDATES
010929,000063: 43,2024           02360                           TC       LROFF                                 #  VB58 INHIBIT LANDING RADAR UPDATES
010930,000064: 43,2025           02145                           TC       LRPOS2K                               #  VB59 COMMAND LR TO POSITION 2.
010931,000065: 43,2026           02167                           TC       RATEDISP                              #  VB60 DISPLAY DAP ESTIMATED RATES
010932,000066: 43,2027           02157                           TC       DAPATTER                              #  VB61 DISPLAY DAP ATTITUDE ERROR
010933,000067: 43,2030           02162                           TC       TOTATTER                              #  VB62 DISPLAY TOTAL ATTITUDE ERROR
010934,000068: 43,2031           02447                           TC       R04                                   #  VB63 SAMPLE RADAR ONCE PER SECOND
010935,000069: 43,2032           02721                           TC       VB64                                  #  VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
010936,000070: 43,2033           03242                           TC       SNUFFOUT                              #  VB65 DISABLE U,V JETS DURING DPS BURNS.
010937,000071: 43,2034           03157                           TC       ATTACHED                              #  VB66 ATTACHED   MOVE THIS TO OTHER STATE
010938,000072: 43,2035           03234                           TC       V67                                   #  VB67 W MATRIX MONITOR
010939,000073: 43,2036           02114                           TC       ALM/END                               #  VB68 SPARE
010940,000074: 43,2037           02037        VERB69             TC       VERB69                                #  VB69 FORCE A HARDWARE RESTART
010941,000075: 43,2040           03745                           TC       V70UPDAT                              #  VB70 UPDATE LIFTOFF TIME.
010942,000076: 43,2041           03747                           TC       V71UPDAT                              #  VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010943,000077: 43,2042           03751                           TC       V72UPDAT                              #  VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010944,000078: 43,2043           03753                           TC       V73UPDAT                              #  VB73 UPDATE AGC TIME (OCTAL).
010945,000079: 43,2044           03062                           TC       DNEDUMP                               #  VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010946,000080:                                                                                                  #           FOR ERASABLE DUMP.
010947,000081: 43,2045           03245                           TC       OUTSNUFF                              #  VB75 ENABLE U,V JETS DURING DPS BURNS.

Page 263

010949,000083: 43,2046           03021                           TC       MINIMP                                #  VB76 MINIMUM IMPULSE MODE
010950,000084: 43,2047           03024                           TC       NOMINIMP                              #  VB77 RATE COMMAND MODE
010951,000085: 43,2050           02437                           TC       R77                                   #  VB78 START LR SPURIOUS RETURN TEST
010952,000086: 43,2051           02651                           TC       R77END                                #  VB79 TERMINATE LR SPURIOUS RETURN TEST
010953,000087: 43,2052           03066                           TC       LEMVEC                                #  VB80 UPDATE LEM STATE VECTOR
010954,000088: 43,2053           03071                           TC       CSMVEC                                #  VB81 UPDATE CSM STATE VECTOR
010955,000089: 43,2054           02766                           TC       V82PERF                               #  VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010956,000090: 43,2055           02776                           TC       V83PERF                               #  VB83 REQUEST REND PARAM DISPLAY (R31)
010957,000091: 43,2056           02114                           TC       ALM/END                               #  VB84 SPARE
010958,000092: 43,2057           03250                           TC       VERB85                                #  VB85 DISPLAY RR LOS AZ AND ELEV
010959,000093: 43,2060           02114                           TC       ALM/END                               #  VB86 SPARE
010960,000094: 43,2061           02114                           TC       ALM/END                               #  VB87 SPARE
010961,000095: 43,2062           02114                           TC       ALM/END                               #  VB88 SPARE
010962,000096: 43,2063           03004                           TC       V89PERF                               #  VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
010963,000097: 43,2064           03013                           TC       V90PERF                               #  VB90 OUT OF PLANE RENDEZVOUS DISPLAY
010964,000098: 43,2065           03115                           TC       GOSHOSUM                              #  VB91 DISPLAY BANK SUM.
010965,000099: 43,2066           03101                           TC       SYSTEST                               #  VB92 OPERATE IMU PERFORMANCE TEST.
010966,000100: 43,2067           03110                           TC       WMATRXNG                              #  VB93 CLEAR RENDWFLG
010967,000101: 43,2070           02114                           TC       ALM/END                               #  VB94 SPARE
010968,000102: 43,2071           03076                           TC       UPDATOFF                              #  VB95 NO STATE VECTOR UPDATE ALLOWED
010969,000103: 43,2072           03227                           TC       VERB96                                #  VB96 INTERRUPT INTEGRATION AND GO TO POO
010970,000104: 43,2073           02414                           TC       GOLOADLV                              #  VB97 PLEASE VERIFY ENGINE FAILURE
010971,000105: 43,2074           02114                           TC       ALM/END                               #  VB98 SPARE
010972,000106: 43,2075           02414                           TC       GOLOADLV                              #  VB99 PLEASE ENABLE ENGINE
010973,000107: 
010974,000108:                                                                                                  #  END OF EXTENDED VERB FAN
010975,000109: 
010976,000110: 43,2076           11043        TESTXACT           CCS      EXTVBACT                              #  ARE EXTENDED VERBS BUSY
010977,000111: 43,2077           02114                           TC       ALM/END                               #  YES, TURN ON OPERATOR LIGHT
010978,000112: 43,2100           30100                           CA       FLAGWRD4                              #  ARE PRIORITY DISPLAYS USING DSKY
010979,000113: 43,2101           72123                           MASK     OC24100                               
010980,000114: 43,2102           10000                           CCS      A                                     
010981,000115: 43,2103           02114                           TC       ALM/END                               #  YES
010982,000116: 43,2104           34362                           CAF      OCT25                                 #  SET BITS 1, 3, AND 5
010983,000117: 43,2105           55043        SETXTACT           TS       EXTVBACT                              #  NO. SET FLAG TO SHOW EXT VERB DISPLAY
010984,000118:                                                                                                  #  SYSTEM BUSY
010985,000119: 
010986,000120: 43,2106           30002                           CA       Q                                     
010987,000121: 43,2107           54155                           TS       MPAC       +1                         
010988,000122: 
010989,000123: 43,2110           44752                           CS       TWO                                   #  BLANK EVERYTHING EXCEPT MM AND VERB
010990,000124: 43,2111           04154                           TC       NVSUB                                 
010991,000125: 43,2112           02113                           TC       +1                                    
010992,000126: 43,2113           00155                           TC       MPAC       +1                         
010993,000127: 
010994,000128: 43,2114     5472               TERMEXTV           EQUALS   ENDEXT                                
010995,000129: 43,2114     5472               ENDEXTVB           EQUALS   ENDEXT                                
010996,000130: 
010997,000131: 43,2114           04364        ALM/END            TC       FALTON                                #  TURN ON OPERATOR ERROR LIGHT

Page 264

010999,000133: 43,2115           04635        GOPIN              TC       POSTJUMP                              
011000,000134: 43,2116           21051                           CADR     PINBRNCH                              
011001,000135: 
011002,000136: 43,2117           31010        CHKPOOH            CA       MODREG                                #  CHECK FOR POO OR POO-.
011003,000137: 43,2120           00006                           EXTEND                                         
011004,000138: 43,2121           16745                           BZF      TCQ                                   
011005,000139: 43,2122           02114                           TC       ALM/END                               
011006,000140: 
011007,000141: 43,2123           24100        OC24100            OCT      24100                                 
011008,000142: 

Page 265

011010,000144:                                                                                                  #  VBZERO       VERB 40            DESCRIPTION
011011,000145: 
011012,000146:                                                                                                  #      1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
011013,000147:                                                                                                  #     2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
011014,000148:                                                                                                  #        FOR N72, CHECK IF EITHER RADAR IS IN USE.
011015,000149:                                                                                                  #      3. EXECUTE THE CDU ZERO.
011016,000150:                                                                                                  #      4. STALL UNTILL THE ZERO IS DONE.
011017,000151:                                                                                                  #      5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
011018,000152:                                                                                                  #      6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
011019,000153: 
011020,000154: 43,2124           02175        VBZERO             TC       OP/INERT                              
011021,000155: 43,2125           02127                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)
011022,000156: 43,2126           02136                           TC       RRZEROK                               #  RETURN HERE IF NOUN = RCDU(72)
011023,000157: 43,2127           02430        IMUZEROK           TC       CKMODCAD                              
011024,000158: 43,2130           04616                           TC       BANKCALL                              #  KEYBOARD REQ FOR ISS CDUZERO
011025,000159: 43,2131           16706                           CADR     IMUZERO                               
011026,000160: 
011027,000161: 43,2132           04616                           TC       BANKCALL                              #  STALL
011028,000162: 43,2133           17710                           CADR     IMUSTALL                              
011029,000163: 43,2134           02135                           TC       +1                                    
011030,000164: 
011031,000165: 43,2135           02115                           TC       GOPIN                                 #  IMUZERO
011032,000166: 
011033,000167: 43,2136           02674        RRZEROK            TC       RDRUSECK                              
011034,000168: 43,2137           04616                           TC       BANKCALL                              
011035,000169: 43,2140           52354                           CADR     RRZERO                                
011036,000170: 
011037,000171: 43,2141           04616        RWAITK             TC       BANKCALL                              
011038,000172: 43,2142           17706                           CADR     RADSTALL                              
011039,000173: 43,2143           12144                           TCF      +1                                    
011040,000174: 43,2144           02115                           TC       GOPIN                                 #  RRZERO
011041,000175: 
011042,000176:                                                                                                  #  LRPOS2K          VERB 59            DESCRIPTION
011043,000177:                                                                                                  #      COMMAND LANDING RADAR TO POSITION 2
011044,000178:                                                                                                  #     1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
011045,000179:                                                                                                  #      2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
011046,000180:                                                                                                  #         THE PRESCRIBED TIME.
011047,000181:                                                                                                  #      3. RE-ESTABLISH THE DISPLAYS.
011048,000182: 
011049,000183: 43,2145           02674        LRPOS2K            TC       RDRUSECK                              
011050,000184: 43,2146           04616                           TC       BANKCALL                              #  COMMAND LR TO POSITION 2
011051,000185: 43,2147           53454                           CADR     LRPOS2                                
011052,000186: 43,2150           04616                           TC       BANKCALL                              
011053,000187: 43,2151           17706                           CADR     RADSTALL                              
011054,000188: 43,2152           02154                           TC       LRP2ALM                               
011055,000189: 43,2153           02115                           TC       GOPIN                                 
011056,000190: 
011057,000191: 43,2154           05567        LRP2ALM            TC       ALARM                                 
011058,000192: 43,2155           00523                           OCT      523                                   
011059,000193: 43,2156           02115                           TC       GOPIN                                 

Page 266

011061,000195: 
011062,000196:                                                                                                  #  V61      VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
011063,000197: 
011064,000198: 43,2157           05516        DAPATTER           TC       DOWNFLAG                              
011065,000199: 43,2160           00013                           ADRES    NEEDLFLG                              
011066,000200: 43,2161           12164                           TCF      TOTATTER   +2                         
011067,000201: 
011068,000202:                                                                                                  #  V62      VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
011069,000203: 
011070,000204: 43,2162           05504        TOTATTER           TC       UPFLAG                                
011071,000205: 43,2163           00013                           ADRES    NEEDLFLG                              
011072,000206: 43,2164           05516                 +2        TC       DOWNFLAG                              
011073,000207: 43,2165           00000                           ADRES    NEED2FLG                              
011074,000208: 43,2166           02115                           TC       GOPIN                                 
011075,000209: 
011076,000210:                                                                                                  #  V60      VERB 60, DISPLAY DAP ESTIMATED RATES ON FDAI ATTITUDE ERROR NEEDLES.
011077,000211: 
011078,000212: 43,2167           05504        RATEDISP           TC       UPFLAG                                
011079,000213: 43,2170           00000                           ADRES    NEED2FLG                              
011080,000214: 43,2171           02115                           TC       GOPIN                                 
011081,000215: 

Page 267

011083,000217:                                                                                                  #  VBCOARK      VERB 41            DESCRIPTION
011084,000218:                                                                                                  #      COARSE ALIGN IMU OR RADAR
011085,000219:                                                                                                  #     1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
011086,000220:                                                                                                  #      2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
011087,000221:                                                                                                  #      CASE 1     NOUN 20     (ICDU ANGLES)
011088,000222:                                                                                                  #      3. SET EXT VERB DISPLAY ACTIVE FLAG.
011089,000223:                                                                                                  #      4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011090,000224:                                                                                                  #         RESPONSES
011091,000225:                                                                                                  #           A. TERMINATE
011092,000226:                                                                                                  #              1. RELEASE EXT VERB DISPLAY SYSTEM
011093,000227:                                                                                                  #           B. PROCEED
011094,000228:                                                                                                  #             1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
011095,000229:                                                                                                  #           C. ENTER
011096,000230:                                                                                                  #             1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
011097,000231:                                                                                                  #      ICORK2
011098,000232:                                                                                                  #         1. RE-DISPLAY VERB 41.
011099,000233:                                                                                                  #         2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
011100,000234:                                                                                                  #         3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
011101,000235:                                                                                                  #         4. RELEASE EXT VERB DISPLAY SYSTEM.
011102,000236:                                                                                                  #      CASE 2     NOUN 72     (RCDU ANGLES)
011103,000237:                                                                                                  #        EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
011104,000238:                                                                                                  #      5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
011105,000239:                                                                                                  #         RESPONSES
011106,000240:                                                                                                  #         A. TERMINATE
011107,000241:                                                                                                  #            1. RELEASE EXT VERB DISPLAY SYS.
011108,000242:                                                                                                  #         B. PROCEED OR ENTER
011109,000243:                                                                                                  #            1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
011110,000244:                                                                                                  #            2. RE-DISPLAY VERB 41.
011111,000245:                                                                                                  #            3. SCHEDULE RRDESK2 WITH PRIORITY 20.
011112,000246:                                                                                                  #            4. RELEASE EXT VERB DISPLAY SYS.
011113,000247: 
011114,000248:                                                                                                  #         AURLOKON
011115,000249: 
011116,000250:                                                                                                  #        1. FLASH V04 N12 R1 = 00006 R2 = 00002
011117,000251:                                                                                                  #            RESPONSES
011118,000252:                                                                                                  #            A. TERMINATE
011119,000253:                                                                                                  #            B. PROCEED
011120,000254:                                                                                                  #              1. RESET LOCK-ON SWITCH
011121,000255:                                                                                                  #              2. SET CONTINUOUS DESIGNATE FLAG
011122,000256:                                                                                                  #              3. DISABLE R25
011123,000257:                                                                                                  #           C. V22 E 1 E, R1 = 00001, PROCEED
011124,000258:                                                                                                  #              1. SET LOCK-ON SWITCH
011125,000259: 43,2172           02175        VBCOARK            TC       OP/INERT                              
011126,000260: 43,2173           02206                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU (20)
011127,000261: 43,2174           02230                           TC       RRDESNBK                              #  RETURN HERE IF NOUN = RCDU (72)
011128,000262:                                                                                                  #  RETURNS TO L+1 IF IMU OR L+2 IF RR.
011129,000263: 
011130,000264: 43,2175           46007        OP/INERT           CS       OCT24                                 
011131,000265: 43,2176           61001                           AD       NOUNREG                               
011132,000266: 43,2177           00006                           EXTEND                                         

Page 268

011134,000268: 43,2200           16745                           BZF      TCQ                                   #  IF = 20.
011135,000269: 
011136,000270: 43,2201           62205                           AD       RRIMUDIF                              #  -52
011137,000271: 43,2202           00006                           EXTEND                                         
011138,000272: 43,2203           16742                           BZF      Q+1                                   
011139,000273: 
011140,000274: 43,2204           02114                           TC       ALM/END                               #  ILLEGAL.
011141,000275: 
011142,000276: 43,2205           77713        RRIMUDIF           DEC      -52        B-14                       #  THE IMU
011143,000277: 43,2206           02430        IMUCOARK           TC       CKMODCAD                              
011144,000278: 43,2207           02076                           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
011145,000279: 43,2210           32226                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
011146,000280: 43,2211           04616                           TC       BANKCALL                              
011147,000281: 43,2212           20334                           CADR     GOXDSPF                               
011148,000282: 43,2213           05472                           TC       TERMEXTV                              
011149,000283: 43,2214           12215                           TCF      +1                                    
011150,000284: 
011151,000285: 43,2215           32227        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
011152,000286: 43,2216           04616                           TC       BANKCALL                              
011153,000287: 43,2217           20621                           CADR     EXDSPRET                              
011154,000288: 
011155,000289: 43,2220           04616                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
011156,000290: 43,2221           16772                           CADR     IMUCOARS                              
011157,000291: 
011158,000292: 43,2222           04616                           TC       BANKCALL                              #  STALL
011159,000293: 43,2223           17710                           CADR     IMUSTALL                              
011160,000294: 43,2224           05472                           TC       ENDEXTVB                              
011161,000295: 43,2225           05472                           TC       ENDEXTVB                              
011162,000296: 
011163,000297: 43,2226           06226        VNLODCDU           VN       2522                                  
011164,000298: 43,2227           12200        IMUCOARV           VN       4100                                  
011165,000299: 

Page 269

011167,000301:                                                                                                  #  DESIGNATE TO DESIRED GIMBAL ANGLES.
011168,000302: 
011169,000303: 43,2230           02674        RRDESNBK           TC       RDRUSECK                              
011170,000304: 43,2231           02076                           TC       TESTXACT                              
011171,000305: 43,2232           42316                           CS       OCT41000                              #  TERMINATE PRESENT DESIGNATION
011172,000306: 43,2233           00004                           INHINT                                         #  RELINT DONE IN GOXDSPF
011173,000307: 43,2234           70110                           MASK     RADMODES                              
011174,000308: 43,2235           54110                           TS       RADMODES                              
011175,000309: 
011176,000310: 43,2236           32255                           CAF      VNLDRCDU                              #  ASK FOR GIMBAL ANGLES.
011177,000311: 43,2237           04616                           TC       BANKCALL                              
011178,000312: 43,2240           20334                           CADR     GOXDSPF                               
011179,000313: 43,2241           05472                           TC       TERMEXTV                              
011180,000314: 43,2242           12236                           TCF      -4                                    #  V33
011181,000315: 
011182,000316: 43,2243           04616                           TC       BANKCALL                              #  ASK OP FOR LOCK ON REQUIREMENTS.
011183,000317: 43,2244           46000                           CADR     AURLOKON                              
011184,000318: 
011185,000319: 43,2245           32227                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
011186,000320: 43,2246           04616                           TC       BANKCALL                              
011187,000321: 43,2247           20621                           CADR     EXDSPRET                              
011188,000322: 
011189,000323: 43,2250           34736                           CAF      PRIO20                                
011190,000324: 43,2251           05105                           TC       FINDVAC                               
011191,000325: 43,2252  E7,1456                                  EBANK=   LOSCOUNT                              
011192,000326: 43,2252           02256 66107                     2CADR    RRDESK2                               
011193,000327: 
011194,000328: 43,2254           15472                           TCF      TERMEXTV                              #  FREES DISPLAY.
011195,000329: 
011196,000330: 43,2255           06111        VNLDRCDU           VN       2473                                  
011197,000331: 43,2256  43,2227               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
011198,000332: 
011199,000333: 43,2256           04616        RRDESK2            TC       BANKCALL                              
011200,000334: 43,2257           52506                           CADR     RRDESNB                               
011201,000335: 
011202,000336: 43,2260           02261                           TC       +1                                    #  DUMMY NEEDED SINCE DESRETRN DOES INCR
011203,000337: 43,2261           30167                           CA       PRIORITY                              
011204,000338: 43,2262           75004                           MASK     LOW9                                  
011205,000339: 43,2263           10000                           CCS      A                                     
011206,000340: 43,2264           50000                           INDEX    A                                     
011207,000341: 43,2265           54000                           TS       A                                     #  RELEASE THIS JOBS VAC AREA.
011208,000342: 43,2266           40000                           COM                                            #  INSURE ENDOFJOB DOES A NOVAC END (BZMF).
011209,000343: 43,2267           26167                           ADS      PRIORITY                              
011210,000344: 43,2270           04616                           TC       BANKCALL                              #  WAIT FOR COMPLETION OF DESIGNATE
011211,000345: 43,2271           17706                           CADR     RADSTALL                              
011212,000346: 43,2272           02274                           TC       +2                                    #  BADEND-NO LOCKON OR OUT OF LIMITS
011213,000347: 43,2273           05155                           TC       ENDOFJOB                              #  GOODEND-LOCKON ACHIEVED
011214,000348: 43,2274           05567                           TC       ALARM                                 
011215,000349: 43,2275           00503                           OCT      503                                   #  TURN ON ALARM LIGHT-503 DESIGNATE FAIL

Page 270

011217,000351: 
011218,000352: 43,2276           05155                           TC       ENDOFJOB                              
011219,000353: 
011220,000354: 43,2277           10110        RRDESEND           CCS      RADMODES                              #  TERMINATE CONTINUOUS DESIGNATE ONLY
011221,000355: 43,2300           12115                           TCF      GOPIN                                 
011222,000356: 43,2301           12115                           TCF      GOPIN                                 
011223,000357: 43,2302           12303                           TCF      +1                                    
011224,000358: 43,2303           42316                           CS       OCT41000                              #  BEGDES GOES TO ENDRADAR
011225,000359: 43,2304           00004                           INHINT                                         #  RELINT DONE IN DOWNFLAG
011226,000360: 43,2305           70110                           MASK     RADMODES                              
011227,000361: 43,2306           54110                           TS       RADMODES                              
011228,000362: 43,2307           06011                           TC       CLRADMOD                              
011229,000363: 43,2310           34777                           CAF      1SEC                                  
011230,000364: 43,2311           04616                           TC       BANKCALL                              
011231,000365: 43,2312           01736                           CADR     DELAYJOB                              
011232,000366: 43,2313           05516                           TC       DOWNFLAG                              #  ENABLE R25 GIMBAL MONITOR
011233,000367: 43,2314           00126                           ADRES    NORRMON                               
011234,000368: 43,2315           12115                           TCF      GOPIN                                 
011235,000369: 43,2316           41000        OCT41000           OCT      41000                                 #  CONTINUOUS DESIGNATE - DESIGNATE
011236,000370: 

Page 271

011238,000372: 23,2000                                           BANK     23                                    
011239,000373: 23,2000                                           SETLOC   EXTVB1                                
011240,000374: 23,2000                                           BANK                                           
011241,000375: 23,2000                                           COUNT*   $$/EXTVB                              
011242,000376: 
011243,000377: 23,2000           04645        AURLOKON           TC       MAKECADR                              
011244,000378: 23,2001           55112                           TS       DESRET                                
011245,000379: 23,2002           34752                           CAF      TWO                                   
011246,000380: 23,2003           55051                           TS       OPTIONX    +1                         
011247,000381: 23,2004           36245                           CAF      SIX                                   #  OPTION CODE FOR V04N12
011248,000382: 23,2005           55050                           TS       OPTIONX                               
011249,000383: 
011250,000384: 23,2006           32037                 -5        CAF      V04N1272                              
011251,000385: 23,2007           04616                           TC       BANKCALL                              #       R2   00001  LOCK-ON
011252,000386: 23,2010           20353                           CADR     GOMARKFR                              
011253,000387: 23,2011           15472                           TCF      ENDEXT                                #  V34
011254,000388: 23,2012           12017                           TCF      +5                                    #  V33
011255,000389: 23,2013           12006                           TCF      -5                                    #  V32
011256,000390: 23,2014           34751                           CAF      BIT3                                  
011257,000391: 23,2015           05464                           TC       BLANKET                               
011258,000392: 23,2016           05155                           TC       ENDOFJOB                              
011259,000393: 
011260,000394: 23,2017           31051                 +5        CA       OPTIONX    +1                         
011261,000395: 23,2020           74752                           MASK     BIT2                                  
011262,000396: 23,2021           10000                           CCS      A                                     
011263,000397: 23,2022           12026                           TCF      NOLOKON                               
011264,000398: 23,2023           05504                           TC       UPFLAG                                
011265,000399: 23,2024           00012                           ADRES    LOKONSW                               
011266,000400: 23,2025           12034                           TCF      AURLKON1                              
011267,000401: 
011268,000402: 23,2026           05516        NOLOKON            TC       DOWNFLAG                              #  IF NO LOCK-ON, SET BIT15 OF RADMODES TO
011269,000403: 23,2027           00012                           ADRES    LOKONSW                               #  INDICATE THAT CONTINUOUS DESIGNATION IS
011270,000404: 23,2030           05504                           TC       UPFLAG                                #  WANTED (TO BE TERMINATED BY V44.)
011271,000405: 23,2031           00264                           ADRES    CDESFLAG                              
011272,000406: 23,2032           05504                           TC       UPFLAG                                #  SET NO RR ANGLE MONITOR FLAG.
011273,000407: 23,2033           00126                           ADRES    NORRMON                               #  (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
011274,000408: 23,2034           00003        AURLKON1           RELINT                                         
011275,000409: 23,2035           31112                           CA       DESRET                                
011276,000410: 23,2036           14640                           TCF      BANKJUMP                              
011277,000411: 
011278,000412: 23,2037           01014        V04N1272           VN       412                                   
011279,000413: 23,2040           77757        -LOKONFG           OCT      -20                                   
011280,000414: 
011281,000415: 43,2317                                           BANK     43                                    
011282,000416: 43,2000                                           SETLOC   EXTVERBS                              
011283,000417: 43,2000                                           BANK                                           
011284,000418: 43,2317                                           COUNT*   $$/EXTVB                              
011285,000419: 
011286,000420: 43,2317           02076        LRON               TC       TESTXACT                              
011287,000421: 

Page 272

011289,000423: 43,2320           32357        DSP68              CAF      V06N68                                
011290,000424: 43,2321           04616                           TC       BANKCALL                              
011291,000425: 43,2322           20353                           CADR     GOMARKFR                              
011292,000426: 43,2323           02355                           TC       B1+5OFF                               
011293,000427: 43,2324           02346                           TC       SET57                                 
011294,000428: 43,2325           05155                           TC       ENDOFJOB                              
011295,000429: 
011296,000430: 43,2326           04616        WAIT68             TC       BANKCALL                              
011297,000431: 43,2327           01735                           CADR     2SECDELY                              
011298,000432: 
011299,000433: 43,2330           34361                           CAF      OCT21                                 
011300,000434: 43,2331           71043                           MASK     EXTVBACT                              
011301,000435: 43,2332           00006                           EXTEND                                         
011302,000436: 43,2333           15472                           BZF      ENDEXT                                
011303,000437: 
011304,000438: 43,2334           74747                           MASK     BIT5                                  
011305,000439: 43,2335           10000                           CCS      A                                     
011306,000440: 43,2336           12320                           TCF      DSP68                                 
011307,000441: 
011308,000442: 43,2337           32357        DSP5068            CAF      V50N68                                
011309,000443: 43,2340           04616                           TC       BANKCALL                              
011310,000444: 43,2341           20361                           CADR     GOMARK3R   -1                         
011311,000445: 43,2342           12355                           TCF      B1+5OFF                               
011312,000446: 43,2343           12355                           TCF      B1+5OFF                               
011313,000447: 43,2344           12351                           TCF      RESET57                               
011314,000448: 
011315,000449: 43,2345           12326                           TCF      WAIT68                                
011316,000450: 
011317,000451: 43,2346           05504        SET57              TC       UPFLAG                                
011318,000452: 43,2347           00254                           ADRES    LRINH                                 
011319,000453: 
011320,000454: 43,2350           15563                           TCF      B5OFF                                 
011321,000455: 
011322,000456: 43,2351           05516        RESET57            TC       DOWNFLAG                              
011323,000457: 43,2352           00254                           ADRES    LRINH                                 
011324,000458: 
011325,000459: 43,2353           34362                           CAF      OCT25                                 
011326,000460: 43,2354           05565                           TC       B5OFF      +2                         
011327,000461: 
011328,000462: 43,2355           44361        B1+5OFF            CS       OCT21                                 
011329,000463: 43,2356           15564                           TCF      B5OFF      +1                         
011330,000464: 
011331,000465: 43,2357     4361               OCT21              EQUALS   ND1                                   
011332,000466: 
011333,000467: 43,2357           01504        V06N68             VN       0668                                  
011334,000468: 43,2360  43,2357               V50N68             =        V06N68                                
011335,000469: 
011336,000470: 43,2360           05516        LROFF              TC       DOWNFLAG                              #  INHIBIT INCORPORATION OF LR DATA      V58
011337,000471: 43,2361           00254                           ADRES    LRINH                                 
011338,000472: 43,2362           12115                           TCF      GOPIN                                 
011339,000473: 

Page 273

011341,000475: 
011342,000476: 43,2363  E5,1737                                  EBANK=   OGC                                   
011343,000477: 

Page 274

011345,000479:                                                                                                  #  IMUFINEK      VERB 42         DESCRIPTION
011346,000480:                                                                                                  #      FINE ALIGN IMU
011347,000481:                                                                                                  #      1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011348,000482:                                                                                                  #      2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011349,000483:                                                                                                  #         RESPONSES
011350,000484:                                                                                                  #         A. TERMINATE
011351,000485:                                                                                                  #            1. RELEASE EXT VERB DISPLAY SYSTEM.
011352,000486:                                                                                                  #         B. PROCEED OR ENTER
011353,000487:                                                                                                  #            1. RE-DISPLAY VERB 42
011354,000488:                                                                                                  #            2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011355,000489:                                                                                                  #            3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011356,000490:                                                                                                  #               A. FAILED
011357,000491:                                                                                                  #                  1. RELEASE EXT VERB DISPLAY SYSTEM.
011358,000492:                                                                                                  #               B. GOOD
011359,000493:                                                                                                  #                  1. EXECUTE IMUPULSE (TORQUE IRIGS).
011360,000494:                                                                                                  #                  2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011361,000495: 
011362,000496: 43,2363           02430        IMUFINEK           TC       CKMODCAD                              
011363,000497: 43,2364           02076                           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
011364,000498: 43,2365           32412                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
011365,000499: 43,2366           04616                           TC       BANKCALL                              
011366,000500: 43,2367           20334                           CADR     GOXDSPF                               
011367,000501: 43,2370           05472                           TC       TERMEXTV                              
011368,000502: 43,2371           02372                           TC       +1                                    #  PROCEED WITHOUT A LOAD
011369,000503: 
011370,000504: 43,2372           32413                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
011371,000505: 43,2373           04616                           TC       BANKCALL                              
011372,000506: 43,2374           20621                           CADR     EXDSPRET                              
011373,000507: 
011374,000508: 43,2375           04616                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
011375,000509: 43,2376           17202                           CADR     IMUFINE                               
011376,000510: 
011377,000511: 43,2377           04616                           TC       BANKCALL                              #  HIBERNATION
011378,000512: 43,2400           17710                           CADR     IMUSTALL                              
011379,000513: 43,2401           05472                           TC       ENDEXTVB                              
011380,000514: 
011381,000515: 43,2402           32411        FINEK2             CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
011382,000516: 43,2403           04616                           TC       BANKCALL                              
011383,000517: 43,2404           17315                           CADR     IMUPULSE                              
011384,000518: 
011385,000519: 43,2405           04616                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
011386,000520: 43,2406           17710                           CADR     IMUSTALL                              
011387,000521: 43,2407           05472                           TC       ENDEXTVB                              
011388,000522: 43,2410           05472                           TC       ENDEXTVB                              
011389,000523: 
011390,000524: 43,2411           02737        LGYROBIN           ECADR    OGC                                   
011391,000525: 43,2412           06335        VNLODGYR           VN       2593                                  
011392,000526: 43,2413           12400        IMUFINEV           VN       4200                                  
011393,000527:                                                                                                  #  GOLOADLV      VERB 50            DESCRIPTION
011394,000528:                                                                                                  #                AND OTHER PLEASE

Page 275

011396,000530:                                                                                                  #                DO SOMETHING VERBS
011397,000531:                                                                                                  #       PLEASE PERFORM, MARK, CALIBRATE, ETC.
011398,000532:                                                                                                  #       1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011399,000533:                                                                                                  #          SAME RECALL AS A COMPLETED LOAD.
011400,000534:                                                                                                  #       2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011401,000535: 
011402,000536: 43,2414  40,2000                                  SBANK=   PINSUPER                              #  FOR LOADLV1 AND SHOWSUM CADR'S.
011403,000537: 
011404,000538: 43,2414           04433        GOLOADLV           TC       FLASHOFF                              
011405,000539: 
011406,000540: 43,2415           34201                           CAF      PINSUPBT                              
011407,000541: 43,2416           00006                           EXTEND                                         
011408,000542: 43,2417           01007                           WRITE    SUPERBNK                              
011409,000543: 43,2420           04635                           TC       POSTJUMP                              
011410,000544: 43,2421           62001                           CADR     LOADLV1                               
011411,000545: 
011412,000546:                                                                                                  #  VERB 47 - AGS INITIALIZATION - R47.
011413,000547: 
011414,000548:                                                                                                  #           SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
011415,000549: 
011416,000550: 43,2422           02076        V47TXACT           TC       TESTXACT                              #  NO OTHER EXTVERB.
011417,000551: 43,2423           34740                           CAF      PRIO4                                 
011418,000552: 43,2424           05105                           TC       FINDVAC                               

[WORKAROUND] RSB 2009

011420,000554: 43,2425  30,2000                                  SBANK=   LOWSUPER                              
011421,000555: 43,2425  E4,1600                                  EBANK=   AGSBUFF                               
011422,000556: 43,2425           02005 64064                     2CADR    AGSINIT                               
011423,000557: 
011424,000558: 43,2427           05155                           TC       ENDOFJOB                              
011425,000559: 
011426,000560: 43,2430           31301        CKMODCAD           CA       MODECADR                              
011427,000561: 43,2431           00006                           EXTEND                                         
011428,000562: 43,2432           16745                           BZF      TCQ                                   
011429,000563: 43,2433           02114                           TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
011430,000564: 

Page 276

011432,000566:                                                                                                  #  ALINTIME     VERB 55            DESCRIPTION
011433,000567:                                                                                                  #         REQUIRE POO OR POO-.
011434,000568:                                                                                                  #      1. SET EXT VERB DISPLAY BUSY FLAG.
011435,000569:                                                                                                  #      2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011436,000570:                                                                                                  #      3. REQUIRE EXECUTION OF VERB 23.
011437,000571:                                                                                                  #      4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011438,000572:                                                                                                  #      5. RELEASE EXT VERB DISPLAY SYSTEM
011439,000573: 
011440,000574: 43,2434           02076        ALINTIME           TC       TESTXACT                              
011441,000575: 43,2435           04635                           TC       POSTJUMP                              #  NO ROOM IN 43
011442,000576: 43,2436           64002                           CADR     R33                                   
011443,000577: 
011444,000578: 42,2002                                           BANK     42                                    
011445,000579: 42,2000                                           SETLOC   SBAND                                 
011446,000580: 42,2000                                           BANK                                           
011447,000581: 42,2002                                           COUNT*   $$/R33                                
011448,000582: 
011449,000583: 42,2002           35021        R33                CAF      PRIO7                                 
011450,000584: 42,2003           05146                           TC       PRIOCHNG                              
011451,000585: 42,2004           32034                           CAF      VNLODDT                               
011452,000586: 42,2005           04616                           TC       BANKCALL                              
011453,000587: 42,2006           20334                           CADR     GOXDSPF                               
011454,000588: 42,2007           05472                           TC       ENDEXT                                #  TERMINATE
011455,000589: 42,2010           05472                           TC       ENDEXT                                #  PROCEED
011456,000590: 42,2011           42033                           CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
011457,000591: 42,2012           60154                           AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
011458,000592: 42,2013           00006                           EXTEND                                         
011459,000593: 42,2014           12016                           BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
011460,000594: 42,2015           05472                           TC       ENDEXT                                #    WITH V23 (DATA IN).
011461,000595: 
011462,000596: 42,2016           00004        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
011463,000597: 42,2017           34755                           CAF      ZERO                                  
011464,000598: 42,2020           54156                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
011465,000599: 42,2021           54001                           TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
011466,000600: 42,2022           52025                           DXCH     TIME2                                 
011467,000601: 42,2023           52155                           DXCH     MPAC                                  
011468,000602: 42,2024           53051                           DXCH     DSPTEM2    +1                         #  INCREMENT
011469,000603: 42,2025           20155                           DAS      MPAC                                  
011470,000604: 
011471,000605: 42,2026           07262                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
011472,000606: 42,2027           52155                           DXCH     MPAC                                  #  NEW CLOCK.
011473,000607: 42,2030           20025                           DAS      TIME2                                 
011474,000608: 42,2031           00003                           RELINT                                         
011475,000609: 42,2032           05472        UPDTMEND           TC       ENDEXT                                
011476,000610: 
011477,000611: 42,2033           00027        DEC23              DEC      23         B-14                       #  V 23
011478,000612: 
011479,000613: 42,2034           06230        VNLODDT            VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
011480,000614: 

Page 277

011482,000616:                                                                                                  #  SET UP FOR RADAR SAMPLING.
011483,000617: 
011484,000618: 42,2035                                           BANK     42                                    
011485,000619: 43,2000                                           SETLOC   EXTVERBS                              
011486,000620: 43,2000                                           BANK                                           
011487,000621: 
011488,000622: 43,2437  E4,1600                                  EBANK=   RSTACK                                
011489,000623: 
011490,000624: 43,2437                                           COUNT*   $$/R0477                              
011491,000625: 
011492,000626: 43,2437           02674        R77                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011493,000627: 43,2440           30077                           CA       FLAGWRD3                              #  IS R04 RUNNING?
011494,000628: 43,2441           74743                           MASK     R04FLBIT                              
011495,000629: 43,2442           10000                           CCS      A                                     
011496,000630: 43,2443           02114                           TC       ALM/END                               #  YES.
011497,000631: 43,2444           05504                           TC       UPFLAG                                
011498,000632: 43,2445           00117                           ADRES    R77FLAG                               
011499,000633: 43,2446           12453                           TCF      R04Z                                  
011500,000634: 
011501,000635: 43,2447           02674        R04                TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011502,000636: 43,2450           02076                           TC       TESTXACT                              
011503,000637: 43,2451           05504                           TC       UPFLAG                                
011504,000638: 43,2452           00063                           ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
011505,000639: 
011506,000640: 43,2453           34741        R04Z               CAF      EBANK4                                
011507,000641: 43,2454           54003                           TS       EBANK                                 
011508,000642: 43,2455           32672                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011509,000643: 43,2456           55777                           TS       RSAMPDT                               
011510,000644: 43,2457           34755                           CAF      ZERO                                  
011511,000645: 43,2460           55776                           TS       RTSTLOC                               
011512,000646: 43,2461           55575                           TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
011513,000647: 
011514,000648: 43,2462           00004                           INHINT                                         
011515,000649: 43,2463           42673                           CS       LRPOSCAL                              #  INITIALIZE
011516,000650: 43,2464           70110                           MASK     RADMODES                              #      BIT 9  LR RANGE  LOW SCALE =0
011517,000651: 43,2465           54110                           TS       RADMODES                              #      BIT 6  LR POS 1 =0
011518,000652: 43,2466           32673                           CAF      LRPOSCAL                              #      BIT 3  RR RANGE  LOW SCALE =0
011519,000653: 43,2467           00006                           EXTEND                                         
011520,000654: 43,2470           02033                           RAND     CHAN33                                
011521,000655: 43,2471           26110                           ADS      RADMODES                              
011522,000656: 43,2472           00003                           RELINT                                         
011523,000657: 
011524,000658: 43,2473           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG      R04 =1    R77 =0
011525,000659: 43,2474           74743                           MASK     R04FLBIT                              
011526,000660: 43,2475           10000                           CCS      A                                     
011527,000661: 43,2476           12627                           TCF      R04K                                  
011528,000662: 
011529,000663: 43,2477           34753                           CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
011530,000664: 43,2500           55051                           TS       OPTIONX    +1                         
011531,000665: 43,2501           34751        R04A               CAF      BIT3                                  #  OPTION CODE FOR V04N12
011532,000666: 

Page 278

011534,000668: 43,2502           55050                           TS       OPTIONX                               
011535,000669: 43,2503           32667                           CAF      V04N12X                               
011536,000670: 43,2504           04616                           TC       BANKCALL                              #       R2   00001   RENDEZVOUS RADAR
011537,000671: 43,2505           20353                           CADR     GOMARKFR                              #            00002   LANDING RADAR
011538,000672: 43,2506           12635                           TCF      R04END                                #  V34
011539,000673: 43,2507           12514                           TCF      +5                                    #  V33
011540,000674: 43,2510           12503                           TCF      R04A       +2                         #  R2
011541,000675: 43,2511           34751                           CAF      BIT3                                  
011542,000676: 43,2512           05464                           TC       BLANKET                               
011543,000677: 43,2513           05155                           TC       ENDOFJOB                              
011544,000678: 
011545,000679: 43,2514           31051                           CA       OPTIONX    +1                         #  SAVE DESIRED OPTION     RR =1     LR =2
011546,000680: 43,2515           55773                           TS       RTSTDEX                               
011547,000681: 
011548,000682: 43,2516           36245        R04X               CAF      SIX                                   #  RR OR LR DESIRED
011549,000683: 43,2517           71773                           MASK     RTSTDEX                               
011550,000684: 43,2520           10000                           CCS      A                                     
011551,000685: 43,2521           12631                           TCF      R04L                                  #  LANDING RADAR
011552,000686: 43,2522           55775                           TS       RTSTBASE                              #  FOR RR   BASE = 0, MAX = 1
011553,000687: 
011554,000688: 43,2523           34752        R04B               CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
011555,000689: 43,2524           00006                           EXTEND                                         
011556,000690: 43,2525           02033                           RAND     CHAN33                                
011557,000691: 43,2526           00006                           EXTEND                                         
011558,000692: 43,2527           12540                           BZF      R04C                                  #  YES
011559,000693: 
011560,000694: 43,2530           32671                           CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
011561,000695: 43,2531           55044                           TS       DSPTEM1                               
011562,000696: 43,2532           32670                           CAF      V50N25X                               
011563,000697: 43,2533           04616                           TC       BANKCALL                              
011564,000698: 43,2534           20345                           CADR     GOMARK4                               
011565,000699: 43,2535           12635                           TCF      R04END                                #  V34
011566,000700: 43,2536           12523                           TCF      R04B                                  #  V33
011567,000701: 43,2537           12530                           TCF      -7                                    #  E
011568,000702: 
011569,000703: 43,2540           34736        R04C               CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
011570,000704: 43,2541           00006                           EXTEND                                         
011571,000705: 43,2542           05012                           WOR      CHAN12                                
011572,000706: 
011573,000707: 43,2543           34752                           CAF      TWO                                   
011574,000708: 43,2544           55774                           TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
011575,000709: 
011576,000710: 43,2545           05203                           TC       WAITLIST                              

[WORKAROUND] RSB 2009

011578,000712: 43,2546  40,2000                                  SBANK=   PINSUPER                              
011579,000713: 43,2546  E4,1600                                  EBANK=   RSTACK                                
011580,000714: 43,2546           02003 52104                     2CADR    RADSAMP                               
011581,000715: 
011582,000716: 43,2550           00003                           RELINT                                         
011583,000717: 
011584,000718: 43,2551           40077                           CS       FLAGWRD3                              #  CHECK R04FLAG       R04 =1    R77 =0
011585,000719: 43,2552           74743                           MASK     R04FLBIT                              

Page 279

011587,000721: 43,2553           10000                           CCS      A                                     
011588,000722: 43,2554           12115                           TCF      GOPIN                                 #  R77
011589,000723: 
011590,000724: 43,2555           36245                           CAF      SIX                                   #  RR OR LR
011591,000725: 43,2556           71773                           MASK     RTSTDEX                               
011592,000726: 43,2557           10000                           CCS      A                                     
011593,000727: 43,2560           12575                           TCF      R04LR                                 #  LR
011594,000728: 
011595,000729: 43,2561           32663        R04RR              CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
011596,000730: 43,2562           04616                           TC       BANKCALL                              #           R1  +  XXX.XX DEG   TRUNNION
011597,000731: 43,2563           20334                           CADR     GOMARKF                               #           R2  +  XXX.XX DEG   SHAFT
011598,000732: 43,2564           12635                           TCF      R04END                                #  V34      R3     BLANK
011599,000733: 43,2565           12567                           TCF      +2                                    #  V33
011600,000734: 43,2566           12561                           TCF      R04RR                                 #  V32
011601,000735: 
011602,000736: 43,2567           32664                           CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
011603,000737: 43,2570           04616                           TC       BANKCALL                              #           R1  +- XXX.XX NM    RANGE
011604,000738: 43,2571           20334                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   RANGE RATE
011605,000739: 43,2572           12635                           TCF      R04END                                #  V34      R3     BLANK
011606,000740: 43,2573           12611                           TCF      R04Y                                  #  V33
011607,000741: 43,2574           12561                           TCF      R04RR                                 #  V32
011608,000742: 
011609,000743: 43,2575           32665        R04LR              CAF      V16N66                                #  DISPLAY LR RANGE AND POSITION (1/SEC)
011610,000744: 43,2576           04616                           TC       BANKCALL                              #           R1  +- XXXXX. FT    LR RANGE
011611,000745: 43,2577           20334                           CADR     GOMARKF                               #           R2  +  0000X.       POS. NO.
011612,000746: 43,2600           12635                           TCF      R04END                                #  V34      R3     BLANK
011613,000747: 43,2601           12603                           TCF      +2                                    #  V33
011614,000748: 43,2602           12575                           TCF      R04LR                                 #  V32
011615,000749: 
011616,000750: 43,2603           32666                           CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
011617,000751: 43,2604           04616                           TC       BANKCALL                              #           R1  +- XXXXX. FPS   LR V(X)
011618,000752: 43,2605           20334                           CADR     GOMARKF                               #           R2  +- XXXXX. FPS   LR V(Y)
011619,000753: 43,2606           12635                           TCF      R04END                                #  V34      R3  +- XXXXX. FPS   LR V(Z)
011620,000754: 43,2607           12611                           TCF      R04Y                                  #  V33
011621,000755: 43,2610           12575                           TCF      R04LR                                 #  V32
011622,000756: 
011623,000757: 43,2611           34755        R04Y               CAF      ZERO                                  #  TO TERMINATE SAMPLING
011624,000758: 43,2612           55777                           TS       RSAMPDT                               
011625,000759: 43,2613           04616                           TC       BANKCALL                              
011626,000760: 43,2614           01735                           CADR     2SECDELY                              #  WAIT FOR LAST RADARUPT
011627,000761: 43,2615           32672                           CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011628,000762: 43,2616           55777                           TS       RSAMPDT                               
011629,000763: 43,2617           34755                           CAF      ZERO                                  #  FOR STORING RESULTS
011630,000764: 43,2620           55776                           TS       RTSTLOC                               
011631,000765: 43,2621           36245                           CAF      SIX                                   
011632,000766: 43,2622           71773                           MASK     RTSTDEX                               
011633,000767: 43,2623           10000                           CCS      A                                     
011634,000768: 43,2624           44753                           CS       ONE                                   #  WAS LR
011635,000769: 43,2625           64752                           AD       TWO                                   #  WAS RR
011636,000770: 43,2626           12515                           TCF      R04X       -1                         
011637,000771: 

Page 280

011639,000773: 
011640,000774: 43,2627           34766        R04K               CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.
011641,000775: 43,2630           55777                           TS       RSAMPDT                               
011642,000776: 
011643,000777: 43,2631           34752        R04L               CAF      TWO                                   
011644,000778: 43,2632           55775                           TS       RTSTBASE                              #  FOR LR   BASE =2, MAX =3
011645,000779: 43,2633           36245                           CAF      SIX                                   
011646,000780: 43,2634           12544                           TCF      R04C       +4                         
011647,000781: 43,2635           34755        R04END             CAF      ZERO                                  #  ZERO RSAMPDT
011648,000782: 43,2636           55777                           TS       RSAMPDT                               #  TO TERMINATE SAMPLING
011649,000783: 43,2637           34744                           CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
011650,000784: 43,2640           04616                           TC       BANKCALL                              #  PENDING RUPT.
011651,000785: 43,2641           01736                           CADR     DELAYJOB                              
011652,000786: 
011653,000787: 43,2642           00004                           INHINT                                         
011654,000788: 43,2643           44736                           CS       BIT14                                 #  DISABLE RR AUTO TRACKER
011655,000789: 43,2644           00006                           EXTEND                                         
011656,000790: 43,2645           03012                           WAND     CHAN12                                
011657,000791: 
011658,000792: 43,2646           05516                           TC       DOWNFLAG                              
011659,000793: 43,2647           00063                           ADRES    R04FLAG                               #  SIGNAL END OF R04.
011660,000794: 
011661,000795: 43,2650           05472                           TC       ENDEXT                                
011662,000796: 
011663,000797: 43,2651           34741        R77END             CAF      EBANK4                                #  TO TERMINATE SAMPLING
011664,000798: 43,2652           54003                           TS       EBANK                                 
011665,000799: 43,2653           34755                           CAF      ZERO                                  
011666,000800: 43,2654           55777                           TS       RSAMPDT                               
011667,000801: 43,2655           34746                           CAF      BIT6                                  #  WAIT 320 MS FOR POSSIBLE
011668,000802: 43,2656           04616                           TC       BANKCALL                              #  PENDING RUPT.
011669,000803: 43,2657           01736                           CADR     DELAYJOB                              
011670,000804: 
011671,000805: 43,2660           05516                           TC       DOWNFLAG                              
011672,000806: 43,2661           00117                           ADRES    R77FLAG                               
011673,000807: 43,2662           12115                           TCF      GOPIN                                 
011674,000808: 
011675,000809: 43,2663           04110        V16N72             VN       1672                                  
011676,000810: 43,2664           04116        V16N78             VN       1678                                  
011677,000811: 43,2665           04102        V16N66             VN       1666                                  
011678,000812: 43,2666           04103        V16N67             VN       1667                                  
011679,000813: 43,2667           01014        V04N12X            VN       412                                   
011680,000814: 43,2670           14431        V50N25X            VN       5025                                  
011681,000815: 43,2671           00201        201R04             OCT      00201                                 
011682,000816: 43,2672           00145        1SEC+1             DEC      101        B-14                       
011683,000817: 43,2673     4766               250MS+1            EQUALS   CALLCODE                              
011684,000818: 43,2673           00444        LRPOSCAL           OCT      444                                   
011685,000819: 

Page 281

011687,000821: 43,2674           40077        RDRUSECK           CS       FLAGWRD3                              #  IS R29 ON?
011688,000822: 43,2675           74741                           MASK     NR29FBIT                              
011689,000823: 43,2676           10000                           CCS      A                                     
011690,000824: 43,2677           02114                           TC       ALM/END                               #  YES
011691,000825: 43,2700           30101                           CA       FLAGWRD5                              #  IS R77 RUNNING?
011692,000826: 43,2701           74741                           MASK     R77FLBIT                              
011693,000827: 43,2702           10000                           CCS      A                                     
011694,000828: 43,2703           02114                           TC       ALM/END                               #  YES.
011695,000829: 43,2704           40103                           CS       FLAGWRD7                              #  IS SERVICER RUNNING AND HENCE POSSIBLY
011696,000830: 43,2705           74746                           MASK     V37FLBIT                              #  R12 USING THE LR?
011697,000831: 43,2706           10000                           CCS      A                                     
011698,000832: 43,2707           12714                           TCF      CHECKRR                               #  NO
011699,000833: 43,2710           30107                           CA       FLGWRD11                              #  YES, IS R12 ON?
011700,000834: 43,2711           74735                           MASK     LRBYBIT                               #  BIT 15
011701,000835: 43,2712           00006                           EXTEND                                         
011702,000836: 43,2713           12114                           BZF      ALM/END                               #  YES
011703,000837: 43,2714           40075        CHECKRR            CS       FLAGWRD1                              #  IS THE TRACK FLAG SET AND HENCE POSSIBLY
011704,000838: 43,2715           74747                           MASK     TRACKBIT                              #  P20 USING THE RR?
011705,000839: 43,2716           10000                           CCS      A                                     
011706,000840: 43,2717           00002                           TC       Q                                     #  NOT ALLOWED DURING P20
011707,000841: 43,2720           02114                           TC       ALM/END                               #  P22 OR P25,  (R65)
011708,000842: 43,2721                                           COUNT*   $$/EXTVB                              
011709,000843: 
011710,000844: 43,2721           02076        VB64               TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
011711,000845: 43,2722           34740                           CAF      PRIO4                                 
011712,000846: 43,2723           05105                           TC       FINDVAC                               
011713,000847: 43,2724  E4,1600                                  EBANK=   ALPHASB                               
011714,000848: 43,2724           03606 64104                     2CADR    SBANDANT                              #  CALC.,DISPLAY S-BAND ANTENNA ANGLES.
011715,000849: 
011716,000850: 43,2726           05155                           TC       ENDOFJOB                              
011717,000851: 

Page 282

011719,000853:                                                                                                  #  IMUATTCK     VERB 43            DESCRIPTION
011720,000854:                                                                                                  #      LOAD IMU ATTITUDE ERROR METERS
011721,000855:                                                                                                  #         1. REQUIRE POO OR FRESH START.
011722,000856:                                                                                                  #         2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
011723,000857:                                                                                                  #         3. REQUIRE THAT NEEDLES BE OFF.
011724,000858:                                                                                                  #         4. REQUEST LOAD OF N22 (VAUES TO BE DISPLAYED).
011725,000859:                                                                                                  #         5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
011726,000860: 
011727,000861: 43,2727           02117        IMUATTCK           TC       CHKPOOH                               #  VB 76 - LOAD IMU ATT. ERROR METERS
011728,000862: 
011729,000863: 43,2730           34763                           CAF      BITS4&5                               #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
011730,000864: 43,2731           00006                           EXTEND                                         #  CDUS BITS ARE ON
011731,000865: 43,2732           02012                           RAND     CHAN12                                
011732,000866: 43,2733           10000                           CCS      A                                     
011733,000867: 43,2734           12114                           TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011734,000868: 
011735,000869: 43,2735           34355                           CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
011736,000870: 43,2736           00006                           EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
011737,000871: 43,2737           06031                           RXOR     CHAN31                                
011738,000872: 43,2740           74355                           MASK     BIT13-14                              
011739,000873: 43,2741           00006                           EXTEND                                         
011740,000874: 43,2742           12744                           BZF      +2                                    #  NEEDLES IS OFF.
011741,000875: 43,2743           12114                           TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
011742,000876: 
011743,000877: 43,2744           02076                           TC       TESTXACT                              
011744,000878: 
011745,000879: 43,2745           32226                           CAF      VNLODCDU                              
011746,000880: 43,2746           04616                           TC       BANKCALL                              
011747,000881: 43,2747           20334                           CADR     GOXDSPF                               
011748,000882: 43,2750           05472                           TC       ENDEXT                                #  V34
011749,000883: 43,2751           02752                           TC       +1                                    
011750,000884: 43,2752           32765                           CAF      V43K                                  #  REDISPLAY OUR VERB.
011751,000885: 43,2753           04616                           TC       BANKCALL                              
011752,000886: 43,2754           20621                           CADR     EXDSPRET                              
011753,000887: 43,2755           34746                           CAF      BIT6                                  
011754,000888: 43,2756           00006                           EXTEND                                         
011755,000889: 43,2757           05012                           WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
011756,000890: 43,2760           34752                           CAF      TWO                                   
011757,000891: 43,2761           05203                           TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
011758,000892: 43,2762     0321                                  EBANK=   THETAD                                
011759,000893: 43,2762           02035 64100                     2CADR    ATTCK2                                
011760,000894: 
011761,000895: 43,2764           15472                           TCF      ENDEXT                                
011762,000896: 
011763,000897: 42,2035                                           BANK     42                                    
011764,000898: 42,2000                                           SETLOC   PINBALL3                              #  SOMETHING IN B42.
011765,000899: 42,2000                                           BANK                                           
011766,000900: 
011767,000901: 42,2035                                           COUNT*   $$/EXTVB                              

Page 283

011769,000903: 42,2035           34752        ATTCK2             CAF      TWO                                   #  PUT OUT COMMANDS.
011770,000904: 42,2036           54002                 +1        TS       Q                                     #  CDU WILL LIMIT EXCESS DATA.
011771,000905: 42,2037           50000                           INDEX    A                                     
011772,000906: 42,2040           30321                           CA       THETAD                                
011773,000907: 42,2041           00006                           EXTEND                                         
011774,000908: 42,2042           72053                           MP       ATTSCALE                              
011775,000909: 42,2043           50002                           INDEX    Q                                     
011776,000910: 42,2044           56050                           XCH      CDUXCMD                               
011777,000911: 42,2045           10002                           CCS      Q                                     
011778,000912: 42,2046           12036                           TCF      ATTCK2     +1                         
011779,000913: 
011780,000914: 42,2047           37743                           CAF      13,14,15                              
011781,000915: 42,2050           00006                           EXTEND                                         
011782,000916: 42,2051           05014                           WOR      CHAN14                                
011783,000917: 42,2052           15261                           TCF      TASKOVER                              #  LEAVE ERROR COUNTERS ENABLED.
011784,000918: 
011785,000919: 42,2053           03146        ATTSCALE           DEC      0.1                                   
011786,000920: 
011787,000921: 07,2667                                           BANK     7                                     
011788,000922: 43,2000                                           SETLOC   EXTVERBS                              
011789,000923: 43,2000                                           BANK                                           
011790,000924: 
011791,000925: 43,2765                                           COUNT*   $$/EXTVB                              
011792,000926: 
011793,000927: 43,2765           12600        V43K               VN       4300                                  
011794,000928:                                                                                                  #  V82PERF       VERB82          DESCRIPTION
011795,000929:                                                                                                  #               REQUEST ORBIT PARAMETERS DISPLAY (R30)
011796,000930:                                                                                                  #  1. IF AVERAGE G IS OFF:
011797,000931:                                                                                                  #           FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011798,000932:                                                                                                  #            TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
011799,000933:                                                                                                  #            CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011800,000934:                                                                                                  #           SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011801,000935:                                                                                                  #           CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011802,000936:                                                                                                  #            RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011803,000937:                                                                                                  #            HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011804,000938:                                                                                                  #            HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
011805,000939:                                                                                                  #            INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011806,000940:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
011807,000941:                                                                                                  #            NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011808,000942:                                                                                                  #            ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011809,000943:                                                                                                  #            DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011810,000944:                                                                                                  #            ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011811,000945: 
011812,000946:                                                                                                  #  2. IF AVERAGE G IS ON:
011813,000947:                                                                                                  #           CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
011814,000948:                                                                                                  #            FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
011815,000949:                                                                                                  #            OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011816,000950:                                                                                                  #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011817,000951:                                                                                                  #           IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011818,000952:                                                                                                  #            RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011819,000953: 

Page 284

011821,000955: 43,2766           02076        V82PERF            TC       TESTXACT                              
011822,000956: 
011823,000957: 43,2767           35021                           CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
011824,000958: 43,2770           05146                           TC       PRIOCHNG                              
011825,000959: 43,2771           00006                           EXTEND                                         
011826,000960: 43,2772           32775                           DCA      V82CON                                
011827,000961: 43,2773           05165                           TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
011828,000962: 
011829,000963: 43,2774  E4,1716                                  EBANK=   HAPO                                  
011830,000964: 43,2774           03242 44104  V82CON             2CADR    V82CALL                               
011831,000965: 
011832,000966:                                                                                                  #  VB83PERF     VERB 83            DESCRIPTION
011833,000967:                                                                                                  #      REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011834,000968:                                                                                                  #      1. SET EXT VERB DISPLAY BUSY FLAG.
011835,000969:                                                                                                  #      2. SCHEDULE R31CALL WITH PRIORITY 5.
011836,000970:                                                                                                  #         A. DISPLAY
011837,000971:                                                                                                  #             R1  RANGE
011838,000972:                                                                                                  #             R2  RANGE RATE
011839,000973:                                                                                                  #             R3  THETA
011840,000974: 
011841,000975: 43,2776           02076        V83PERF            TC       TESTXACT                              
011842,000976: 
011843,000977: 43,2777           34752                           CAF      BIT2                                  
011844,000978: 43,3000           05203                           TC       WAITLIST                              
011845,000979: 43,3001  E7,1611                                  EBANK=   TSTRT                                 
011846,000980: 43,3001           03737 60107                     2CADR    R31CALL                               
011847,000981: 
011848,000982: 43,3003           05155                           TC       ENDOFJOB                              
011849,000983: 
011850,000984:                                                                                                  #  VERB 89 DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011851,000985: 
011852,000986:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED.  CALCULATES AND
011853,000987:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
011854,000988: 
011855,000989:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011856,000990:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
011857,000991: 
011858,000992:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
011859,000993:                                                                                                  #  ORIENTATION KNOWN TO LGC, CONTINUE.
011860,000994: 
011861,000995:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011862,000996:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
011863,000997:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
011864,000998:                                                                                                  #  AFTER KEYING IN PROCEED.
011865,000999: 
011866,001000:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
011867,001001: 
011868,001002:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND

Page 285

011870,001004:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
011871,001005:                                                                                                  #  PREPARED FOR VECPOINT.
011872,001006: 
011873,001007:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
011874,001008:                                                                                                  #  BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
011875,001009: 
011876,001010:                                                                                                  #  7. RECYCLE - RETURN TO STEP 4.
011877,001011:                                                                                                  #     TERMINATE - EXIT R63.
011878,001012:                                                                                                  #     PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
011879,001013: 
011880,001014: 43,3004           02117        V89PERF            TC       CHKPOOH                               
011881,001015: 43,3005           02076                           TC       TESTXACT                              
011882,001016: 43,3006           34737                           CAF      PRIO10                                
011883,001017: 43,3007           05105                           TC       FINDVAC                               
011884,001018: 43,3010  E4,1606                                  EBANK=   RONE                                  
011885,001019: 43,3010           02022 54104                     2CADR    V89CALL                               
011886,001020: 
011887,001021: 43,3012           05155                           TC       ENDOFJOB                              
011888,001022: 
011889,001023:                                                                                                  #  V90PERF     VERB 90             DESCRIPTION
011890,001024:                                                                                                  #      REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011891,001025:                                                                                                  #      1. SET EXT VERB DISPLAY BUSY FLAG.
011892,001026:                                                                                                  #      2. SCHEDULE R36 CALL WITH PRIORITY 10
011893,001027:                                                                                                  #         A. DISPLAY
011894,001028:                                                                                                  #             TIME OF EVENT - HOURS , MINUTES , SECONDS
011895,001029:                                                                                                  #             Y  OUT-OF-PLANE POSITION - NAUTICAL MILES
011896,001030:                                                                                                  #             YDOT  OUT-OF-PLANE VELOCITY - FEET/SECOND
011897,001031:                                                                                                  #             PSI  ANGLE BTW LINE OF SIGHT AND FORWARD
011898,001032:                                                                                                  #                  DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011899,001033: 
011900,001034: 43,3013           02076        V90PERF            TC       TESTXACT                              
011901,001035: 43,3014           35021                           CAF      PRIO7                                 #  R36,V90
011902,001036: 43,3015           05105                           TC       FINDVAC                               
011903,001037: 43,3016  E4,1606                                  EBANK=   RPASS36                               
011904,001038: 43,3016           02640 10104                     2CADR    R36                                   
011905,001039: 
011906,001040: 43,3020           15155                           TCF      ENDOFJOB                              
011907,001041:                                                                                                  #  MINIMP     VERB 76              DESCRIPTION
011908,001042:                                                                                                  #      MINIMUM IMPULSE MODE
011909,001043:                                                                                                  #      1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
011910,001044: 
011911,001045: 43,3021           05504        MINIMP             TC       UPFLAG                                #  SET PULSES = 1 (MIN. IMPULSE MODE)
011912,001046: 43,3022           00303                           ADRES    PULSEFLG                              
011913,001047: 43,3023           12115                           TCF      GOPIN                                 #  RETURN VIA PINBRNCH
011914,001048: 
011915,001049:                                                                                                  #  NOMINIMP     VERB 77            DESCRIPTION
011916,001050:                                                                                                  #      RATE COMMAND MODE
011917,001051:                                                                                                  #      1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
011918,001052:                                                                                                  #      2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.

Page 286

011920,001054: 
011921,001055: 43,3024           05516        NOMINIMP           TC       DOWNFLAG                              #  SET PULSES = 0 (NOT MINIMUM IMPULSE MODE
011922,001056: 43,3025           00303                           ADRES    PULSEFLG                              
011923,001057: 43,3026           00004                           INHINT                                         
011924,001058: 43,3027           04674                           TC       IBNKCALL                              
011925,001059: 43,3030           40154                           CADR     ZATTEROR                              
011926,001060: 43,3031           02115                           TC       GOPIN                                 
011927,001061: 

Page 287

011929,001063:                                                                                                  #  CREWMANU     VERB 49            DESCRIPTION
011930,001064:                                                                                                  #      START AUTOMATIC ATTITUDE MANEUVER
011931,001065:                                                                                                  #      1. REQUIRE PROGRAM 00 ACTIVE.
011932,001066:                                                                                                  #      2. SET EXT VERB DISPLAY BUSY FLAG.
011933,001067:                                                                                                  #      3. SCHEDULE R62DISP WITH PRIORITY 10.
011934,001068:                                                                                                  #      4. RELEASE EXT VERB DISPLAY.
011935,001069: 
011936,001070:                                                                                                  #    R62DISP
011937,001071:                                                                                                  #      1. DISPLAY FLASHING V06,N22.
011938,001072:                                                                                                  #         RESPONSES
011939,001073:                                                                                                  #         A. TERMINATE
011940,001074:                                                                                                  #            1. GO TO GOTOPOOH.
011941,001075:                                                                                                  #         B. PROCEED
011942,001076:                                                                                                  #            1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011943,001077:                                                                                                  #            2. EXECUTE R60LEM (ATTITUDE MANEUVER).
011944,001078:                                                                                                  #         C. ENTER
011945,001079:                                                                                                  #            1. REPEAT FLASHING V06,N22.
011946,001080: 
011947,001081: 43,3032           02117        CREWMANU           TC       CHKPOOH                               #  DEMAND POO
011948,001082: 
011949,001083: 43,3033           02076                           TC       TESTXACT                              
011950,001084: 
011951,001085: 43,3034           34737                           CAF      PRIO10                                
011952,001086: 43,3035           05105                           TC       FINDVAC                               
011953,001087: 43,3036  E6,1676                                  EBANK=   BCDU                                  
011954,001088: 43,3036           02103 46106                     2CADR    R62DISP                               
011955,001089: 
011956,001090: 43,3040           05155                           TC       ENDOFJOB                              
011957,001091: 

Page 288

011959,001093:                                                                                                  #  TRMTRACK     VERB 56              DESCRIPTION
011960,001094:                                                                                                  #        TERMINATE TRACKING (P20 AND P25).
011961,001095:                                                                                                  #        1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011962,001096:                                                                                                  #        2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011963,001097:                                                                                                  #        3. SCHEDULE V56TOVAC WITH PRIORITY 30.
011964,001098: 
011965,001099:                                                                                                  #        V56TOVAC
011966,001100:                                                                                                  #        1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
011967,001101:                                                                                                  #        2. ZERO GROUP 2 TO HALT P20.
011968,001102:                                                                                                  #        3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
011969,001103: 
011970,001104: 43,3041           33061        TRMTRACK           CA       BITS9+7                               #  IS REND OR P25 FLAG ON
011971,001105: 43,3042           70074                           MASK     FLAGWRD0                              
011972,001106: 43,3043           00006                           EXTEND                                         
011973,001107: 43,3044           12115                           BZF      GOPIN                                 #  NO
011974,001108: 
011975,001109: 43,3045           05516                           TC       DOWNFLAG                              
011976,001110: 43,3046           00010                           ADRES    RNDVZFLG                              
011977,001111: 
011978,001112: 43,3047           05516                           TC       DOWNFLAG                              
011979,001113: 43,3050           00006                           ADRES    P25FLAG                               
011980,001114: 
011981,001115: 43,3051           05516                           TC       DOWNFLAG                              #  ENSURE SEARCH FLAG IS OFF
011982,001116: 43,3052           00037                           ADRES    SRCHOPTN                              
011983,001117: 
011984,001118: 43,3053           34747                           CA       TRACKBIT                              #  IS TRACK FLAG ON?
011985,001119: 43,3054           70075                           MASK     FLAGWRD1                              
011986,001120: 43,3055           00006                           EXTEND                                         
011987,001121: 43,3056           12115                           BZF      GOPIN                                 
011988,001122: 
011989,001123: 43,3057           04635                           TC       POSTJUMP                              
011990,001124: 43,3060           64054                           CADR     TRMTRAK1                              
011991,001125: 
011992,001126: 43,3061           00500        BITS9+7            OCT      500                                   
011993,001127: 
011994,001128: 42,2000                                           SETLOC   SBAND                                 #  BANK 42
011995,001129: 42,2000                                           BANK                                           
011996,001130: 
011997,001131: 42,2054                                           COUNT*   $$/EXTVB                              
011998,001132: 
011999,001133: 42,2054           05516        TRMTRAK1           TC       DOWNFLAG                              
012000,001134: 42,2055           00027                           ADRES    UPDATFLG                              #  UPDATE FLAG DOWN
012001,001135: 42,2056           05516                           TC       DOWNFLAG                              
012002,001136: 42,2057           00031                           ADRES    TRACKFLG                              #  TRACK FLAG DOWN
012003,001137: 42,2060           05516                           TC       DOWNFLAG                              
012004,001138: 42,2061           00007                           ADRES    IMUSE                                 
012005,001139: 
012006,001140: 42,2062           06042                           TC       INTPRET                               
012007,001141: 42,2063           77624                           CALL                                           
012008,001142: 42,2064           27412                                    INTSTALL                              #  DONT INTERRUPT INTEGRATION

Page 289

012010,001144: 42,2065           77776                           EXIT                                           
012011,001145: 
012012,001146: 42,2066           05353                           TC       PHASCHNG                              
012013,001147: 42,2067           00002                           OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
012014,001148: 
012015,001149: 42,2070           00004                           INHINT                                         
012016,001150: 42,2071           04674                           TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
012017,001151: 42,2072           40166                           CADR     STOPRATE                              #  MANEUVER
012018,001152: 
012019,001153: 42,2073           04674                           TC       IBNKCALL                              
012020,001154: 42,2074           40115                           CADR     RESTORDB                              
012021,001155: 
012022,001156: 42,2075           06011                           TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES.
012023,001157: 
012024,001158: 42,2076           44736                           CS       BIT14                                 #  DISABLE LOCKON
012025,001159: 42,2077           00006                           EXTEND                                         
012026,001160: 42,2100           03012                           WAND     CHAN12                                
012027,001161: 42,2101           04635                           TC       POSTJUMP                              
012028,001162: 42,2102           12766                           CADR     GOPROG2                               #  CAUSE RESTART.
012029,001163: 
012030,001164:                                                                                                  #  DNEDUMP     VERB 74             DESCRIPTION
012031,001165:                                                                                                  #      INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
012032,001166:                                                                                                  #      1. SET EXT VERB DISPLAY BUSY FLAG.
012033,001167:                                                                                                  #      2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
012034,001168:                                                                                                  #      3. RELEASE EXT VERB DISPLAY.
012035,001169: 
012036,001170: 43,2000                                           SETLOC   EXTVERBS                              
012037,001171: 43,2000                                           BANK                                           
012038,001172: 
012039,001173: 43,3062                                           COUNT*   $$/EXTVB                              
012040,001174: 
012041,001175: 43,3062     0400                                  EBANK=   400                                   
012042,001176: 43,3062           33065        DNEDUMP            CAF      LDNDUMPI                              
012043,001177: 43,3063           54335                           TS       DNTMGOTO                              
012044,001178: 43,3064           02115                           TC       GOPIN                                 
012045,001179: 
012046,001180: 43,3065  43,3062               V74                EQUALS   DNEDUMP                               
012047,001181: 43,3065           03706        LDNDUMPI           REMADR   DNDUMPI                               
012048,001182: 
012049,001183:                                                                                                  #  LEMVEC     VERB 80             DESCRIPTION
012050,001184:                                                                                                  #      UPDATE LEM STATE VECTOR
012051,001185:                                                                                                  #         RESET VEHUPFLG TO 0
012052,001186: 
012053,001187: 43,3066           05516        LEMVEC             TC       DOWNFLAG                              
012054,001188: 43,3067           00026                           ADRES    VEHUPFLG                              #  VB 80 - VEHUPFLG DOWN INDICATES LEM
012055,001189: 
012056,001190: 43,3070           03073                           TC       NOUPDOWN                              
012057,001191: 
012058,001192:                                                                                                  #  CSMVEC     VERB 81             DESCRIPTION
012059,001193:                                                                                                  #      UPDATE CSM STATE VECTOR

Page 290

012061,001195:                                                                                                  #                SET VEHUPFLG TO 1
012062,001196: 
012063,001197: 43,3071           05504        CSMVEC             TC       UPFLAG                                
012064,001198: 43,3072           00026                           ADRES    VEHUPFLG                              #  VB 81 - VEHUPFLG UP INDICATES CSM
012065,001199: 
012066,001200: 43,3073           05516        NOUPDOWN           TC       DOWNFLAG                              
012067,001201: 43,3074           00030                           ADRES    NOUPFLAG                              
012068,001202: 
012069,001203: 43,3075           12115                           TCF      GOPIN                                 
012070,001204: 
012071,001205:                                                                                                  #  UPDATOFF   VERB 95              DESCRIPTION
012072,001206:                                                                                                  #      INHIBIT STATE VECTOR UPDATES BY INCORP
012073,001207:                                                                                                  #         SET NOUPFLAG TO 1
012074,001208: 
012075,001209: 43,3076           05504        UPDATOFF           TC       UPFLAG                                #  VB 95 SET NOUPFLAG
012076,001210: 43,3077           00030                           ADRES    NOUPFLAG                              
012077,001211: 
012078,001212: 43,3100           02115                           TC       GOPIN                                 

Page 291

012080,001214:                                                                                                  #  SYSTEST     VERB 92             DESCRIPTION
012081,001215:                                                                                                  #    OPERATE IMU PERFORMANCE TEST.
012082,001216:                                                                                                  #      1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
012083,001217:                                                                                                  #      2. SET EXT VERB BUSY FLAG.
012084,001218: 
012085,001219: 43,3101  E5,1417                                  EBANK=   QPLACE                                
012086,001220: 
012087,001221: 43,3101           02117        SYSTEST            TC       CHKPOOH                               #  DEMAND POO
012088,001222: 
012089,001223: 43,3102           02076                           TC       TESTXACT                              
012090,001224: 
012091,001225: 43,3103           37713                           CAF      PRIO22                                
012092,001226: 43,3104           05105                           TC       FINDVAC                               
012093,001227: 43,3105  E5,1417                                  EBANK=   QPLACE                                
012094,001228: 43,3105  37,2000                                  SBANK=   IMUSUPER                              
012095,001229: 43,3105           02002 76065                     2CADR    REDO                                  
012096,001230: 
012097,001231: 43,3107           05155                           TC       ENDOFJOB                              
012098,001232: 
012099,001233:                                                                                                  #  VERB 93       CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
012100,001234: 
012101,001235: 43,3110           00004        WMATRXNG           INHINT                                         
012102,001236: 43,3111           44753                           CS       RENDWBIT                              
012103,001237: 43,3112           70101                           MASK     FLAGWRD5                              
012104,001238: 43,3113           54101                           TS       FLAGWRD5                              
012105,001239: 
012106,001240: 43,3114           02115                           TC       GOPIN                                 
012107,001241: 
012108,001242: 43,3115  43,3115               GOSHOSUM           EQUALS   SHOWSUM                               
012109,001243: 
012110,001244: 43,3115           02117        SHOWSUM            TC       CHKPOOH                               #  *
012111,001245: 43,3116           02076                           TC       TESTXACT                              #  *
012112,001246: 43,3117           35021                           CAF      PRIO7                                 #  ALLOW OTHER CHARINS.
012113,001247: 43,3120           05146                           TC       PRIOCHNG                              
012114,001248: 43,3121           34753                           CAF      S+1                                   #  *
012115,001249: 43,3122           55376                           TS       SKEEP6                                #  * SHOWSUM OPTION
012116,001250: 43,3123           34755                           CAF      S+ZERO                                #  *
012117,001251: 43,3124           55362                           TS       SMODE                                 #  * TURN OFF SELF-CHECK
012118,001252: 43,3125           33266                           CA       SELFADRS                              #  *
012119,001253: 43,3126           55361                           TS       SELFRET                               #  *
012120,001254: 43,3127           03543                           TC       STSHOSUM                              #  * ENTER ROPECHK
012121,001255: 
012122,001256: 43,3130           23372        SDISPLAY           LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
012123,001257: 43,3131           23373                           LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
012124,001258: 43,3132           33265        NOKILL             CA       ADRS1                                 #  *
012125,001259: 43,3133           54156                           TS       MPAC       +2                         #  *
012126,001260: 43,3134           33145                           CA       VNCON                                 #  * 0501
012127,001261: 43,3135           04616                           TC       BANKCALL                              #  *
012128,001262: 43,3136           20334                           CADR     GOXDSPF                               #  *
012129,001263: 43,3137           03142                           TC       +3                                    #  *
012130,001264: 43,3140           03654                           TC       NXTBNK                                #  *

Page 292

012132,001266: 43,3141           03132                           TC       NOKILL                                #  *
012133,001267: 43,3142           33266                           CA       SELFADRS                              
012134,001268: 43,3143           55371                           TS       SKEEP1                                
012135,001269: 
012136,001270: 43,3144           05472                           TC       ENDEXT                                #  *
012137,001271: 
012138,001272: 43,3145           01201        VNCON              VN       501                                   #  *
012139,001273: 
012140,001274: 43,3146           31376        ENDSUMS            CA       SKEEP6                                #  *
012141,001275: 43,3147           00006                           EXTEND                                         #  *
012142,001276: 43,3150           13357                           BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
012143,001277: 43,3151           03543                           TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
012144,001278: 

Page 293

012146,001280:                                                                                                  #  DAPDISP     VERB 48             DESCRIPTION
012147,001281:                                                                                                  #      LOAD AUTO PILOT DATA
012148,001282:                                                                                                  #      1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
012149,001283:                                                                                                  #      2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
012150,001284:                                                                                                  #      3. RELEASE EXT VERB DISPLAY SYSTEM.
012151,001285:                                                                                                  #  KEY
012152,001286:                                                                                                  #  THE FOLLOWING IS A KEY TO THE 5 DIGITS OF THE DAP DATA CODE (N46)
012153,001287: 
012154,001288:                                                                                                  #  DIGIT A - VEHICLE CONFIGURATION
012155,001289:                                                                                                  #           1 - LM ALONE, ASCENT
012156,001290:                                                                                                  #           2 - LM ALONE, DESCENT
012157,001291:                                                                                                  #           3 - CSM AND LM DOCKED
012158,001292: 
012159,001293:                                                                                                  #  DIGIT B - ACCELERATION CODE
012160,001294:                                                                                                  #           0 - 2 JET TRANSLATION, RCS SYSTEM A PREFERRED
012161,001295:                                                                                                  #           1 - 2 JET TRANSLATION, RCS SYSTEM B PREFERRED
012162,001296:                                                                                                  #           2 - 4 JET TRANSLATION, RCS SYSTEM A PREFERRED (NOT MEANINGFUL)
012163,001297:                                                                                                  #           3 - 4 JET TRANSLATION, RCS SYSTEM B PREFERRED (NOT MEANINGFUL)
012164,001298: 
012165,001299:                                                                                                  #  DIGIT C - ACA SCALING
012166,001300:                                                                                                  #           0 - FINE
012167,001301:                                                                                                  #           1 - NORMAL
012168,001302: 
012169,001303:                                                                                                  #  DIGIT D - DEADBAND
012170,001304:                                                                                                  #           0 - 0.3 DEG
012171,001305:                                                                                                  #           1 - 1.0 DEG
012172,001306:                                                                                                  #           2 - 5.0 DEG
012173,001307:                                                                                                  #          (3 - 5.0 DEG BY DEFAULT)
012174,001308: 
012175,001309:                                                                                                  #  DIGIT E - MANEUVER RATE
012176,001310:                                                                                                  #           0 - 0.2 DEG/SEC
012177,001311:                                                                                                  #           1 - 0.5 DEG/SEC
012178,001312:                                                                                                  #           2 - 2.0 DEG/SEC
012179,001313:                                                                                                  #           3 -10.0 DEG/SEC
012180,001314: 
012181,001315: 43,3152           02076        DAPDISP            TC       TESTXACT                              
012182,001316: 43,3153           35021                           CAF      PRIO7                                 #  R03
012183,001317: 43,3154           05146                           TC       PRIOCHNG                              
012184,001318: 43,3155           04635                           TC       POSTJUMP                              
012185,001319: 43,3156           40004                           CADR     DAPDATA1                              
012186,001320: 34,2000                                           BANK     34                                    
012187,001321: 20,2000                                           SETLOC   LOADDAP                               
012188,001322: 20,2000                                           BANK                                           
012189,001323: 
012190,001324: 20,2004                                           COUNT*   $$/R03                                
012191,001325: 
012192,001326: 20,2004  30,2000                                  SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S.
012193,001327: 
012194,001328: 20,2004           32114        DAPDATA1           CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOLS BITS.
012195,001329: 20,2005           70111                           MASK     DAPBOOLS                              #  LM

Page 294

012197,001331: 20,2006           55340                           TS       DAPDATR1                              #  LM
012198,001332: 20,2007           40106                           CS       FLGWRD10                              #  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
012199,001333: 20,2010           74737                           MASK     APSFLBIT                              
012200,001334: 20,2011           10000                           CCS      A                                     
012201,001335: 20,2012           34736                           CAF      BIT14                                 
012202,001336: 20,2013           27340                           ADS      DAPDATR1                              
012203,001337: 20,2014           31340        CHKDATA1           CAE      DAPDATR1                              #  IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
012204,001338: 20,2015           74355                           MASK     BIT13-14                              #    A ONE INTO BIT 13.
012205,001339: 20,2016           00006                           EXTEND                                         
012206,001340: 20,2017           12034                           BZF      FORCEONE                              
012207,001341: 20,2020           31340                           CAE      DAPDATR1                              #  ENSURE THAT NO ILLEGAL BITS SET BY CREW.
012208,001342: 20,2021           72113        MSKDATR1           MASK     DSPLYMSK                              
012209,001343: 20,2022           55340                           TS       DAPDATR1                              
012210,001344: 20,2023           32112                           CAF      V01N46                                #  LM
012211,001345: 20,2024           04616                           TC       BANKCALL                              
012212,001346: 20,2025           20353                           CADR     GOXDSPFR                              
012213,001347: 20,2026           15472                           TCF      ENDEXT                                #  V34E  TERMINATE
012214,001348: 20,2027           12037                           TCF      DPDAT1                                #  V33E  PROCEED
012215,001349: 20,2030           12014                           TCF      CHKDATA1                              #  E     NEW DATA    CHECK AND REDISPLAY
012216,001350: 20,2031           36245                           CAF      REVCNT                                #  BITS 2 & 3:  BLANKS R2 & R3.
012217,001351: 20,2032           05464                           TC       BLANKET                               
012218,001352: 20,2033           15155                           TCF      ENDOFJOB                              
012219,001353: 20,2034           34737        FORCEONE           CAF      BIT13                                 
012220,001354: 20,2035           27340                           ADS      DAPDATR1                              
012221,001355: 20,2036           12021                           TCF      MSKDATR1                              
012222,001356: 
012223,001357: 20,2037           00004        DPDAT1             INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
012224,001358: 20,2040           44737                           CS       APSFLBIT                              #    ON BASIS OF DISPLAYED DAPDATR1.
012225,001359: 20,2041           70106                           MASK     FLGWRD10                              
012226,001360: 20,2042           54001                           TS       L                                     #  SET APSFLAG TO BE COMPLEMENT OF BIT 14.
012227,001361: 20,2043           41340                           CS       DAPDATR1                              
012228,001362: 20,2044           74736                           MASK     BIT14                                 
012229,001363: 20,2045           10000                           CCS      A                                     
012230,001364: 20,2046           34737                           CAF      APSFLBIT                              
012231,001365: 20,2047           60001                           AD       L                                     
012232,001366: 20,2050           54106                           TS       FLGWRD10                              
012233,001367: 20,2051           41340                           CS       DAPDATR1                              #  SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
012234,001368: 20,2052           74355                           MASK     BIT13-14                              #    MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
012235,001369: 20,2053           10000                           CCS      A                                     #    13 AND 14 ARE SET.
012236,001370: 20,2054           44737                           CS       CSMDOCKD                              
012237,001371: 20,2055           62114                           AD       BOOLSMSK                              
012238,001372: 20,2056           71340                           MASK     DAPDATR1                              
012239,001373: 20,2057           54001                           TS       L                                     
012240,001374: 20,2060           42114                           CS       BOOLSMSK                              
012241,001375: 20,2061           70111                           MASK     DAPBOOLS                              
012242,001376: 20,2062           60001                           AD       L                                     
012243,001377: 20,2063           54111                           TS       DAPBOOLS                              
012244,001378: 20,2064           74737                           MASK     CSMDOCKD                              #  LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
012245,001379: 20,2065           10000                           CCS      A                                     #    MASS IS USUALLY ALREADY OKAY, SO DO
012246,001380: 20,2066           31327                           CAE      CSMMASS                               #    NOT TOUCH ITS LOW-ORDER PART.

Page 295

012248,001382: 20,2067           61326                           AD       LEMMASS                               
012249,001383: 20,2070           55243                           TS       MASS                                  
012250,001384: 20,2071           30111                           CAE      DAPBOOLS                              
012251,001385: 20,2072           74741                           MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
012252,001386: 20,2073           00006                           EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
012253,001387: 20,2074           12101                           BZF      +5                                    
012254,001388: 20,2075           44735                           CS       BIT15                                 
012255,001389: 20,2076           70075                           MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
012256,001390: 20,2077           54075                           TS       FLAGWRD1                              
012257,001391: 20,2100           12104                           TCF      +4                                    
012258,001392: 20,2101           40075                           CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
012259,001393: 20,2102           74735                           MASK     BIT15                                 
012260,001394: 20,2103           26075                           ADS      FLAGWRD1                              
012261,001395: 20,2104           30111                           CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
012262,001396: 20,2105           76250                           MASK     THREE                                 #  MANEUVER RATE
012263,001397: 20,2106           60000                           DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
012264,001398: 20,2107           55322                           TS       RATEINDX                              #  ARE DP
012265,001399: 20,2110           04635                           TC       POSTJUMP                              
012266,001400: 20,2111           02211                           CADR     STIKLOAD                              
012267,001401: 
012268,001402: 20,2112           00256        V01N46             VN       0146                                  
012269,001403: 20,2113           33133        DSPLYMSK           OCT      33133                                 
012270,001404: 20,2114           13133        BOOLSMSK           OCT      13133                                 
012271,001405: 01,2211                                           BANK     01                                    
012272,001406: 01,2000                                           SETLOC   LOADDAP1                              
012273,001407: 01,2000                                           BANK                                           
012274,001408: 
012275,001409: 01,2211                                           COUNT*   $$/R03                                
012276,001410: 
012277,001411: 01,2211           35015        STIKLOAD           CAF      EBANK6                                
012278,001412: 01,2212           54003                           TS       EBANK                                 
012279,001413: 01,2213  E6,1444                                  EBANK=   STIKSENS                              
012280,001414: 01,2213           34745                           CA       RHCSCALE                              #  SET STICK SENSITIVITY TO CORRESPOND TO A
012281,001415: 01,2214           70111                           MASK     DAPBOOLS                              #  MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
012282,001416: 01,2215           10000                           CCS      A                                     #  20 D/S (NORMAL) OR 4 D/S (FINE), SCALED
012283,001417: 01,2216           32340                           CA       NORMAL                                #  AT 45 D/S.
012284,001418: 01,2217           62341                           AD       FINE                                  
012285,001419: 01,2220           55444                           TS       STIKSENS                              
012286,001420: 01,2221           32343                           CA       -0.6D/S                               
012287,001421: 01,2222           55476                           TS       -RATEDB                               #  LM-ONLY BREAKOUT LEVEL IS .6 D/S.
012288,001422: 01,2223           34737                           CA       CSMDOCKD                              #  IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
012289,001423: 01,2224           70111                           MASK     DAPBOOLS                              #  BY 10. NORMAL SCALING IS THEN 2 D/S AND
012290,001424: 01,2225           00006                           EXTEND                                         #  FINE SCALING IS 0.4 D/S
012291,001425: 01,2226           12235                           BZF      +7                                    #  BRANCH IF CSM IS NOT DOCKED.
012292,001426: 01,2227           31444                           CA       STIKSENS                              
012293,001427: 01,2230           00006                           EXTEND                                         
012294,001428: 01,2231           72342                           MP       1/10                                  
012295,001429: 01,2232           55444                           TS       STIKSENS                              
012296,001430: 01,2233           32344                           CA       -0.3D/S                               #  CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
012297,001431: 01,2234           55476                           TS       -RATEDB                               

Page 296

012299,001433: 01,2235           00003                           RELINT                                         #  PROCEED TO NOUN 47, MASS LOAD,
012300,001434: 
012301,001435: 01,2236           32336        DAPDATA2           CAF      V0647                                 
012302,001436: 01,2237           04616                           TC       BANKCALL                              
012303,001437: 01,2240           20353                           CADR     GOXDSPFR                              
012304,001438: 01,2241           12247                           TCF      ENDR03                                #  V34E  TERMINATE. FIRST SET DB, DO 1/ACCS
012305,001439: 01,2242           12253                           TCF      DAPDAT2                               #  V33E  PROCEED
012306,001440: 01,2243           12236                           TCF      DAPDATA2                              #        LOAD NEW DATA AND RECYCLE
012307,001441: 01,2244           34751                           CAF      BIT3                                  #  BLANKS R3
012308,001442: 01,2245           05464                           TC       BLANKET                               #             LM
012309,001443: 01,2246           15155                           TCF      ENDOFJOB                              
012310,001444: 01,2247           00004        ENDR03             INHINT                                         
012311,001445: 01,2250           04674                           TC       IBNKCALL                              
012312,001446: 01,2251           40115                           CADR     RESTORDB                              
012313,001447: 01,2252           15472                           TCF      ENDEXT                                #  DOES RELINT
012314,001448: 
012315,001449: 01,2253           40106        DAPDAT2            CS       FLGWRD10                              #  DETERMINE STAGE FROM APSFLAG
012316,001450: 01,2254           74737                           MASK     APSFLBIT                              
012317,001451: 01,2255           10000                           CCS      A                                     
012318,001452: 01,2256           32000                           CA       MINLMD                                
012319,001453: 01,2257           62001                           AD       MINMINLM                              
012320,001454: 01,2260           61326                           AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
012321,001455: 01,2261           00006                           EXTEND                                         
012322,001456: 01,2262           62236                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012323,001457: 01,2263           30111                           CAE      DAPBOOLS                              
012324,001458: 01,2264           74737                           MASK     CSMDOCKD                              
012325,001459: 01,2265           00006                           EXTEND                                         
012326,001460: 01,2266           12274                           BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
012327,001461: 01,2267           44741                           CS       MINCSM                                #  TEST CSM MASS
012328,001462: 01,2270           61327                           AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM
012329,001463: 01,2271           00006                           EXTEND                                         
012330,001464: 01,2272           62236                           BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012331,001465: 01,2273           31327                           CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
012332,001466: 01,2274           61326        LEMALONE           AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
012333,001467: 01,2275           22007                           ZL                                             
012334,001468: 01,2276           53244                           DXCH     MASS                                  
012335,001469: 01,2277           00004                           INHINT                                         
012336,001470: 01,2300           04674                           TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
012337,001471: 01,2301           40115                           CADR     RESTORDB                              #    INERTIA.
012338,001472: 01,2302           00003                           RELINT                                         #  PROCEED TO NOUN 48 (OR END).
012339,001473: 
012340,001474: 01,2303           40106        DAPDATA3           CS       FLGWRD10                              
012341,001475: 01,2304           74737                           MASK     APSFLBIT                              
012342,001476: 01,2305           00006                           EXTEND                                         #  END ROUTINE IF LEM HAS STAGED,
012343,001477: 01,2306           15472                           BZF      ENDEXT                                
012344,001478: 01,2307           32337                           CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
012345,001479: 01,2310           04616                           TC       BANKCALL                              
012346,001480: 01,2311           20353                           CADR     GOXDSPFR                              
012347,001481: 01,2312           05472                           TC       ENDEXT                                
012348,001482: 01,2313           12320                           TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)

Page 297

012350,001484: 01,2314           12307                           TCF      -5                                    #       LOAD NEW DATA AND RECYCLE
012351,001485: 01,2315           34751                           CAF      BIT3                                  
012352,001486: 01,2316           05464                           TC       BLANKET                               #  BLANK R3
012353,001487: 01,2317           15155                           TCF      ENDOFJOB                              
012354,001488: 01,2320           34753        DPDAT3             CAF      BIT1                                  
012355,001489: 01,2321           05203                           TC       WAITLIST                              
012356,001490: 01,2322  E6,1401                                  EBANK=   ROLLTIME                              
012357,001491: 01,2322           03217 56066                     2CADR    TRIMGIMB                              
012358,001492: 
012359,001493: 01,2324           15155                           TCF      ENDOFJOB                              #  DOES A RELINT
012360,001494: 01,2325           32337        TRIMDONE           CAF      V50N48                                
012361,001495: 01,2326           04616                           TC       BANKCALL                              #  TRIM IS FINISHED; PLEASE TERMINATE R03
012362,001496: 01,2327           20361                           CADR     GOMARK3R   -1                         
012363,001497: 01,2330           05472                           TC       ENDEXT                                #  V34E TERMINATE
012364,001498: 01,2331           05472                           TC       ENDEXT                                
012365,001499: 01,2332           05472                           TC       ENDEXT                                
012366,001500: 01,2333           36007                           CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
012367,001501: 01,2334           05464                           TC       BLANKET                               
012368,001502: 01,2335           15155                           TCF      ENDOFJOB                              
012369,001503: 
012370,001504: 01,2336           01457        V0647              VN       0647                                  
012371,001505: 01,2337           01460        V06N48             VN       0648                                  
012372,001506: 
012373,001507: 01,2340  01,2337               V50N48             =        V06N48                                
012374,001508: 
012375,001509: 01,2340           25101        NORMAL             DEC      .660214                               
012376,001510:                                                                                                  #  NORMAL SCALING IS 20 D/S
012377,001511: 01,2341           05220        FINE               DEC      .165054                               #  FINE STICK SCALING (4 D/S).
012378,001512: 01,2342           03146        1/10               DEC      .1                                    #  FACTOR FOR CSM-DOCKED SCALING
012379,001513: 01,2343           77445        -0.6D/S            DEC      -218       B-14                       
012380,001514: 01,2344           77622        -0.3D/S            DEC      -109       B-14                       
012381,001515: 

Page 298

012383,001517:                                                                                                  #  VERB 66.  VEHICLES ARE ATTACHED.  MOVE THIS VEHICLE STATE VECTOR TO
012384,001518:                                                                                                  #            OTHER VEHICLE STATE VECTOR.
012385,001519: 
012386,001520:                                                                                                  #      USE SUBROUTINE GENTRAN.
012387,001521: 
012388,001522: 07,2667                                           BANK     7                                     
012389,001523: 43,2000                                           SETLOC   EXTVERBS                              
012390,001524: 43,2000                                           BANK                                           
012391,001525: 
012392,001526: 43,3157                                           COUNT*   $$/EXTVB                              
012393,001527: 
012394,001528: 43,3157  E3,1626                                  EBANK=   RRECTHIS                              
012395,001529: 
012396,001530: 43,3157           40104        ATTACHED           CS       FLAGWRD8                              
012397,001531: 43,3160           74744                           MASK     SURFFBIT                              
012398,001532: 43,3161           00006                           EXTEND                                         
012399,001533: 43,3162           12114                           BZF      ALM/END                               #  TURN ON OE AND EXIT IF SURFFLAG SET.
012400,001534: 43,3163           34737                           CAF      PRIO10                                
012401,001535: 43,3164           05105                           TC       FINDVAC                               
012402,001536: 43,3165  E3,1626                                  EBANK=   RRECTHIS                              
012403,001537: 
012404,001538: 43,3165           03170 66103                     2CADR    ATTACHIT                              
012405,001539: 
012406,001540: 43,3167           05155                           TC       ENDOFJOB                              
012407,001541: 
012408,001542: 43,3170           06042        ATTACHIT           TC       INTPRET                               
012409,001543: 43,3171           77624                           CALL                                           
012410,001544: 43,3172           27412                                    INTSTALL                              
012411,001545: 43,3173           43014                           SET      BON                                   
012412,001546: 43,3174           04063                                    MOONOTH                               
012413,001547: 43,3175           04304                                    MOONTHIS                              
012414,001548: 43,3176           67201                                    +3                                    
012415,001549: 43,3177           77614                           CLEAR                                          
012416,001550: 43,3200           04263                                    MOONOTH                               
012417,001551: 43,3201           77776                           EXIT                                           
012418,001552: 43,3202           33225                           CAF      OCT51                                 
012419,001553: 43,3203           05544                           TC       GENTRAN                               
012420,001554: 43,3204           01626                           ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
012421,001555: 43,3205           01554                           ADRES    RRECTOTH                              
012422,001556: 
012423,001557: 43,3206           00003                           RELINT                                         
012424,001558: 43,3207           06042                           TC       INTPRET                               
012425,001559: 43,3210           77624                           CALL                                           #  UPDATE R-OTHER, V-OTHER
012426,001560: 43,3211           26761                                    PTOALEM                               
012427,001561: 43,3212           45154                           LXA,2    CALL                                  
012428,001562: 43,3213           02030                                    PBODY                                 
012429,001563: 43,3214           26114                                    SVDWN1                                
012430,001564: 43,3215           77776                           EXIT                                           
012431,001565: 
012432,001566: 43,3216           33226                           CAF      TCPINAD                               

Page 299

012434,001568: 43,3217           50120                           INDEX    FIXLOC                                
012435,001569: 43,3220           54052                           TS       QPRET                                 
012436,001570: 43,3221           04635                           TC       POSTJUMP                              
012437,001571: 43,3222           27423                           CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
012438,001572: 
012439,001573: 
012440,001574: 43,3223           77634        TCPIN              RTB                                            
012441,001575: 43,3224           21051                                    PINBRNCH                              
012442,001576: 
012443,001577: 43,3225           00051        OCT51              OCT      51                                    
012444,001578: 43,3226           67223        TCPINAD            CADR     TCPIN                                 
012445,001579: 
012446,001580:                                                                                                  #  VERB 96  SET QUITFLAG TO STOP INTEGRATION.
012447,001581: 
012448,001582:                                                                                                  #           GO TO V37 WITH ZERO TO CAUSE POO.
012449,001583:                                                                                                  #           STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
012450,001584:                                                                                                  #                  THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
012451,001585: 
012452,001586: 43,3227           05504        VERB96             TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012453,001587: 43,3230           00221                           ADRES    QUITFLAG                              #     AT NEXT TIMESTEP
012454,001588: 
012455,001589: 43,3231           34755                           CAF      ZERO                                  
012456,001590: 43,3232           04635                           TC       POSTJUMP                              
012457,001591: 43,3233           10040                           CADR     V37                                   #  GO TO POO
012458,001592: 
012459,001593:                                                                                                  #  VERB 67 :   DISPLAY OF W MATRIX
012460,001594: 
012461,001595: 43,3234           02076        V67                TC       TESTXACT                              
012462,001596: 43,3235           35017                           CAF      PRIO5                                 
012463,001597: 43,3236           05105                           TC       FINDVAC                               
012464,001598: 43,3237  E4,1600                                  EBANK=   WWPOS                                 
012465,001599: 43,3237           02007 62064                     2CADR    V67CALL                               
012466,001600: 
012467,001601: 43,3241           05155                           TC       ENDOFJOB                              
012468,001602: 
012469,001603:                                                                                                  #  VERB 65         DISABLE U,V JETS DURING DPS BURNS
012470,001604: 
012471,001605: 43,3242           05504        SNUFFOUT           TC       UPFLAG                                
012472,001606: 43,3243           00115                           ADRES    SNUFFER                               
012473,001607: 43,3244           02115                           TC       GOPIN                                 
012474,001608: 
012475,001609:                                                                                                  #  VERB 75         ENABLE U,V JETS DURING DPS BURNS
012476,001610: 
012477,001611: 43,3245           05516        OUTSNUFF           TC       DOWNFLAG                              
012478,001612: 43,3246           00115                           ADRES    SNUFFER                               
012479,001613: 43,3247           02115                           TC       GOPIN                                 
012480,001614:                                                                                                  #  VERB 85         DISPLAY RR LOS AZIMUTH AND ELEVATION.
012481,001615: 
012482,001616:                                                                                                  #           AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0 - 90 DEG IN THE +Y HEMISPHERE,
012483,001617:                                                                                                  #  360 - 270 DEG IN THE -Y HEMISPHERE.

Page 300

012485,001619: 
012486,001620:                                                                                                  #           ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0 - 360 ABOUT +Y.
012487,001621: 
012488,001622: 43,3250  E4,1600                                  EBANK=   RR-AZ                                 
012489,001623: 43,3250           02076        VERB85             TC       TESTXACT                              
012490,001624: 43,3251           04635                           TC       POSTJUMP                              
012491,001625: 43,3252           60000                           CADR     DSPRRLOS                              
012492,001626: 
012493,001627: 40,2000                                           SETLOC   PINBALL1                              
012494,001628: 40,2000                                           BANK                                           
012495,001629: 
012496,001630: 40,2000                                           COUNT*   $$/EXTVB                              
012497,001631: 
012498,001632: 40,2000           35017        DSPRRLOS           CAF      PRIO5                                 
012499,001633: 40,2001           05105                           TC       FINDVAC                               
012500,001634: 40,2002  E4,1600                                  EBANK=   RR-AZ                                 
012501,001635: 40,2002           02017 60104                     2CADR    RRLOSDSP                              
012502,001636: 
012503,001637: 40,2004           34740                           CAF      PRIO4                                 
012504,001638: 40,2005           05146                           TC       PRIOCHNG                              
012505,001639: 40,2006           32076                           CAF      V16N56                                
012506,001640: 40,2007           04616                           TC       BANKCALL                              
012507,001641: 40,2010           20353                           CADR     GOMARKFR                              
012508,001642: 40,2011           05563                           TC       B5OFF                                 
012509,001643: 40,2012           05563                           TC       B5OFF                                 
012510,001644: 40,2013           05563                           TC       B5OFF                                 
012511,001645: 
012512,001646: 40,2014           34751                           CAF      BIT3                                  
012513,001647: 40,2015           05464                           TC       BLANKET                               
012514,001648: 40,2016           05155                           TC       ENDOFJOB                              
012515,001649: 
012516,001650: 40,2017           00006        RRLOSDSP           EXTEND                                         
012517,001651: 40,2020           30036                           DCA      CDUT                                  
012518,001652: 40,2021           52155                           DXCH     MPAC                                  
012519,001653: 40,2022           06042                           TC       INTPRET                               
012520,001654: 40,2023           77624                           CALL                                           
012521,001655: 40,2024           46065                                    RRNBMPAC                              #  GET RR LOS IN BODY AXIS.
012522,001656: 40,2025           00001                           STORE    0D                                    #  UNIT LOS
012523,001657: 40,2026           14007                           STODL    6D                                    
012524,001658: 40,2027           06524                                    HI6ZEROS                              
012525,001659: 40,2030           24011                           STOVL    8D                                    
012526,001660: 40,2031           00007                                    6D                                    
012527,001661: 40,2032           77656                           UNIT                                           
012528,001662: 40,2033           00007                           STORE    6D                                    #  UNIT OF LOS PROJ IN X-Z PLANE
012529,001663: 40,2034           77641                           DOT                                            
012530,001664: 40,2035           06516                                    UNITZ                                 
012531,001665: 40,2036           24021                           STOVL    COSTH                                 #  16D
012532,001666: 40,2037           06522                                    UNITX                                 
012533,001667: 40,2040           77641                           DOT                                            
012534,001668: 40,2041           00007                                    6D                                    
012535,001669: 40,2042           34023                           STCALL   SINTH                                 #  18D

Page 301

012537,001671: 40,2043           47322                                    ARCTRIG                               
012538,001672: 40,2044           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0 - 360 DEG.
012539,001673: 40,2045           60047                                    +2                                    
012540,001674: 40,2046           06532                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
012541,001675: 40,2047           26203                           STOVL    RR-ELEV                               
012542,001676: 40,2050           00001                                    0D                                    
012543,001677: 40,2051           77641                           DOT                                            
012544,001678: 40,2052           06520                                    UNITY                                 
012545,001679: 40,2053           24023                           STOVL    SINTH                                 
012546,001680: 40,2054           00001                                    0D                                    
012547,001681: 40,2055           77641                           DOT                                            
012548,001682: 40,2056           00007                                    6D                                    
012549,001683: 40,2057           34021                           STCALL   COSTH                                 
012550,001684: 40,2060           47322                                    ARCTRIG                               
012551,001685: 40,2061           43244                           BPL      DAD                                   #  INSURE DISPLAY OF 0 - 360 DEG.
012552,001686: 40,2062           60064                                    +2                                    
012553,001687: 40,2063           06532                                    DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
012554,001688: 40,2064           02201                           STORE    RR-AZ                                 
012555,001689: 40,2065           77776                           EXIT                                           
012556,001690: 40,2066           34777                           CA       1SEC                                  
012557,001691: 40,2067           04616                           TC       BANKCALL                              
012558,001692: 40,2070           01736                           CADR     DELAYJOB                              
012559,001693: 
012560,001694: 40,2071           34747                           CA       BIT5                                  
012561,001695: 40,2072           71043                           MASK     EXTVBACT                              
012562,001696: 40,2073           10000                           CCS      A                                     
012563,001697: 40,2074           02017                           TC       RRLOSDSP                              
012564,001698: 40,2075           05472                           TC       ENDEXT                                
012565,001699: 
012566,001700: 40,2076           04070        V16N56             VN       1656                                  
012567,001701: 

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