Source Code

These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
These dumps were then modified using memos, checklists, observed address changes, and the Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible. Without more information, it is not possible to say how close it actually is; however, this code should be quite close. It is capable of flying the whole Apollo 9 mission using the original checklists and padload. Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

008927,000002:                                                                                                  ## Copyright:   Public domain.
008928,000003:                                                                                                  ## Filename:    AOTMARK.agc
008929,000004:                                                                                                  ## Purpose:     A section of an attempt to reconstruct Sundance revision 306
008930,000005:                                                                                                  ##              as closely as possible with available information. Sundance
008931,000006:                                                                                                  ##              306 is the source code for the Lunar Module's (LM) Apollo
008932,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 9. This program was created
008933,000008:                                                                                                  ##              using the mixed-revision SundanceXXX as a starting point, and
008934,000009:                                                                                                  ##              pulling back features from Luminary 69 believed to have been
008935,000010:                                                                                                  ##              added based on memos, checklists, observed address changes,
008936,000011:                                                                                                  ##              or the Sundance GSOPs.
008937,000012:                                                                                                  ## Assembler:   yaYUL
008938,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
008939,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
008940,000015:                                                                                                  ## Mod history: 2020-07-24 MAS  Created from SundanceXXX.
008941,000016: 
008942,000017: 
008943,000018: 
008944,000019: 12,2000                                           BANK     12                                    
008945,000020: 07,2000                                           SETLOC   AOTMARK1                              
008946,000021: 07,2000                                           BANK                                           
008947,000022: 
008948,000023: 07,2000  E7,1536                                  EBANK=   XYMARK                                
008949,000024: 07,2000                                           COUNT*   $$/MARK                               
008950,000025: 
008951,000026: 07,2000           00004        AOTMARK            INHINT                                         
008952,000027: 07,2001           11314                           CCS      MARKSTAT                              #  SEE IF AOTMARK BUSY
008953,000028: 07,2002           02004                           TC       +2                                    #  MARK SYSTEM BUSY-DO ALARM
008954,000029: 07,2003           02007                           TC       EXTVBCHK                              
008955,000030: 07,2004           05651                           TC       ALARM                                 
008956,000031: 07,2005           00105                           OCT      00105                                 
008957,000032: 07,2006           05225                           TC       ENDOFJOB                              
008958,000033: 
008959,000034: 07,2007           36216        EXTVBCHK           CAF      SIX                                   #  SEE IF EXT. VERB WORKING
008960,000035: 07,2010           71045                           MASK     EXTVBACT                              
008961,000036: 07,2011           10000                           CCS      A                                     
008962,000037: 07,2012           12044                           TCF      MKABORT                               #  YES-ABORT
008963,000038: 
008964,000039: 07,2013           35025                           CAF      BIT2                                  #  NO-DISALLOW SOME EXTENDED VERB ACTION
008965,000040: 07,2014           27045                           ADS      EXTVBACT                              #  BIT2 RESET IN ENDMARK
008966,000041: 07,2015           10400        MKVAC              CCS      VAC1USE                               #  LOOK FOR A VAC AREA-DO ABORT IF
008967,000042: 07,2016           12031                           TCF      MKVACFND                              #  NONE AVAILABLE
008968,000043: 07,2017           10454                           CCS      VAC2USE                               
008969,000044: 07,2020           12031                           TCF      MKVACFND                              
008970,000045: 07,2021           10530                           CCS      VAC3USE                               
008971,000046: 07,2022           12031                           TCF      MKVACFND                              
008972,000047: 07,2023           10604                           CCS      VAC4USE                               
008973,000048: 07,2024           12031                           TCF      MKVACFND                              
008974,000049: 07,2025           10660                           CCS      VAC5USE                               
008975,000050: 07,2026           12031                           TCF      MKVACFND                              
008976,000051: 07,2027           05716                           TC       ABORT                                 #  ALL VAC AREAS OCCUPIED - ABORT.
008977,000052: 07,2030           01207                           OCT      01207                                 
008978,000053: 
008979,000054: 07,2031           65025        MKVACFND           AD       TWO                                   
008980,000055: 07,2032           55314                           TS       MARKSTAT                              #  STORE VAC ADR IN LOW 9 OF MARKSTAT
008981,000056: 
008982,000057: 07,2033           35030                           CAF      ZERO                                  
008983,000058: 07,2034           51314                           INDEX    MARKSTAT                              
008984,000059: 07,2035           53777                           TS       0          -1                         #  ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
008985,000060: 
008986,000061: 07,2036           37672                           CAF      PRIO32                                
008987,000062: 07,2037           05155                           TC       FINDVAC                               #  SET UP JOB FOR GETDAT
008988,000063: 07,2040  E7,1536                                  EBANK=   XYMARK                                
008989,000064: 07,2040           02057 16067                     2CADR    GETDAT                                
008990,000065: 
008991,000066: 07,2042           00003                           RELINT                                         
008992,000067: 07,2043           14670                           TCF      SWRETURN                              
008993,000068: 
008994,000069: 07,2044           05716        MKABORT            TC       ABORT                                 #  CONFLICT WITH EXTENDED VERB
008995,000070: 07,2045           01211                           OCT      01211                                 
008996,000071: 
008997,000072: 07,2046           35030        MKRELEAS           CAF      ZERO                                  
008998,000073: 07,2047           57314                           XCH      MARKSTAT                              #  SET MARKSTAT TO ZERO
008999,000074: 07,2050           75054                           MASK     LOW9                                  #  PICK UP VAC AREA ADR
009000,000075: 07,2051           10000                           CCS      A                                     
009001,000076: 07,2052           50000                           INDEX    A                                     
009002,000077: 07,2053           54000                           TS       0                                     #  SHOW MKVAC AREA AVAILABLE
009003,000078: 07,2054           35026                           CAF      ONE                                   
009004,000079: 07,2055           04737                           TC       IBNKCALL                              
009005,000080: 07,2056           17576                           CADR     GOODEND                               #  GO WAKE UP CALLING JOB
009006,000081: 
009007,000082: 07,2057           32355        GETDAT             CAF      V01N71                                #  DISPLAY DETENT AND STAR CODE
009008,000083: 07,2060           04655                           TC       BANKCALL                              
009009,000084: 07,2061           20406                           CADR     GOFLASH                               
009010,000085: 
009011,000086: 07,2062           04106                           TC       GOTOPOOH                              #  V34-TERMINATE
009012,000087: 07,2063           12065                           TCF      DODAT                                 #  V33-PROCEED-USE THIS STAR FOR MARKS
009013,000088: 07,2064           12057        ENTERDAT           TCF      GETDAT                                #  ENTER-REDISPLAY STAR CODE
009014,000089: 
009015,000090: 07,2065           41314        DODAT              CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
009016,000091: 07,2066           75013                           MASK     BIT12                                 #    BIT12 RESET AT GETMARK
009017,000092: 07,2067           27314                           ADS      MARKSTAT                              
009018,000093: 
009019,000094: 07,2070           37715                           CAF      HIGH9                                 #  PICK DETENT CODE FROM BITS7-9 OF AOTCODE
009020,000095: 07,2071           70735                           MASK     AOTCODE                               #  AND SEE IF CODE IS 1,2 OR 3
009021,000096: 07,2072           00006                           EXTEND                                         
009022,000097: 07,2073           75016                           MP       BIT9                                  
009023,000098: 07,2074           55536                           TS       XYMARK                                #  STORE DETENT
009024,000099: 
009025,000100: 07,2075           00006                           EXTEND                                         
009026,000101: 07,2076           62057                           BZMF     GETDAT                                #  NO GOOD-MAKE REQUEST AGAIN
009027,000102: 
009028,000103: 07,2077           75024                           MASK     BIT3                                  #  SEE IF DETENT CODE 4 OR 5
009029,000104: 07,2100           00006                           EXTEND                                         
009030,000105: 07,2101           12122                           BZF      CODE123                               #  NOT 4 OR 5, MUST BE 1,2 OR 3
009031,000106: 
009032,000107: 07,2102                                           COUNT*   $$/COAS                               
009033,000108: 
009034,000109: 07,2102           32356        CODE4OR5           CAF      V06N87*                               #  CODE 4 OR 5, GET OPTIC AXIS CALIBRATIONS
009035,000110: 07,2103           04655                           TC       BANKCALL                              #  AZ AND EL OF SIGHTING DEVICE FROM ASTRO
009036,000111: 07,2104           20406                           CADR     GOFLASH                               
009037,000112: 
009038,000113: 07,2105           04106                           TC       GOTOPOOH                              #  V34-TERMINATE
009039,000114: 07,2106           12110                           TCF      +2                                    #  PROCEED
009040,000115: 07,2107           12102                           TCF      CODE4OR5                              #  ON ENTER, RECYCLE
009041,000116: 07,2110           00006                           EXTEND                                         
009042,000117: 07,2111           31350                           DCA      AZ                                    #  PICK UP AZ AND EL IN SP 2S COMP
009043,000118: 07,2112           50120                           INDEX    FIXLOC                                
009044,000119: 07,2113           52011                           DXCH     8D                                    #  STORE IN 8D AND 9D OF LOCAL VAC
009045,000120: 07,2114           35026                           CAF      BIT1                                  #  IF CODE 4, REAR AOT POSITIONS USED
009046,000121: 07,2115           71536                           MASK     XYMARK                                #  SO CALC APPARENT ROTATION
009047,000122: 07,2116           00006                           EXTEND                                         #  IF CODE 5, BACKUP, ZERO ROTATION
009048,000123: 07,2117           12132                           BZF      CODE4                                 #  REAR AOT DETENTS TO BE USED
009049,000124: 07,2120           35030                           CAF      ZERO                                  #  BACKUP SYSTEM TO BE USED
009050,000125: 07,2121           12136                           TCF      CODE5                                 
009051,000126: 
009052,000127: 07,2122                                           COUNT*   $$/MARK                               
009053,000128: 
009054,000129: 07,2122           51536        CODE123            INDEX    XYMARK                                #  INDEX DET CODE 1,2 OR 3
009055,000130: 07,2123           31406                           CA       AOTEL      -1                         
009056,000131: 07,2124           50120                           INDEX    FIXLOC                                
009057,000132: 
009058,000133: 07,2125           54011                           TS       9D                                    #  STORE ELEVATION IN VAC+9D
009059,000134: 
009060,000135: 07,2126           51536                           INDEX    XYMARK                                #  INDEX DET CODE 1,2 OR 3
009061,000136: 07,2127           31403                           CA       AOTAZ      -1                         
009062,000137: 07,2130           50120                           INDEX    FIXLOC                                
009063,000138: 07,2131           54010                           TS       8D                                    #  STORE AZIMUTH IN VAC+8D
009064,000139: 
009065,000140: 07,2132           31405        CODE4              CA       AOTAZ      +1                         #  COMPENSATION FOR APPARENT RATATION OF
009066,000141: 07,2133           00006                           EXTEND                                         #  AOT FIELD OF VIEW IN LEFT AND RIGTHT
009067,000142: 07,2134           50120                           INDEX    FIXLOC                                #  DETENTS IS STORED IN VAC +10D IN SP
009068,000143: 07,2135           20010                           MSU      8D                                    #  PRECISION ONES COMPLEMENT
009069,000144: 07,2136           50120        CODE5              INDEX    FIXLOC                                
009070,000145: 07,2137           54012                           TS       10D                                   #  ROT ANGLE
009071,000146: 
009072,000147: 07,2140           06014                           TC       INTPRET                               #  COMPUTE X AND Y PLANE VECTORS
009073,000148: 
009074,000149:                                                                                                  #  THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
009075,000150:                                                                                                  #  AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
009076,000151:                                                                                                  #  OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
009077,000152:                                                                                                  #   INPUT-AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
009078,000153:                                                                                                  #         ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC
009079,000154:                                                                                                  #         ROTATION ANGLE IN SINGLE PREC 1S COMP SCALED BY PI IN 10D OF VAC
009080,000155:                                                                                                  #   OUTPUT-OPTIC AXIS VEC IN NB COORDS IN SCAXIS
009081,000156:                                                                                                  #          X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC
009082,000157:                                                                                                  #          Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC
009083,000158: 
009084,000159: 07,2141           77624        OPTAXIS            CALL                                           #  GO COMPUTE OA AND X AND Y PLANE VECS
009085,000160: 07,2142           16170                                    OANB                                  
009086,000161: 07,2143           70535                           SLOAD    SR1                                   #  LOAD APP ROTATION IN ONES COMP
009087,000162: 07,2144           00013                                    10D                                   #  RESCALE BY 2PI
009088,000163: 07,2145           73406                           PUSH     SIN                                   #  1/2SIN(ROT)  0-1
009089,000164: 07,2146           71525                           PDDL     COS                                   
009090,000165: 07,2147           74206                           PUSH     VXSC                                  #  1/2COS(ROT)  2-3
009091,000166: 07,2150           00023                                    18D                                   
009092,000167: 07,2151           74325                           PDDL     VXSC                                  #  1/4COS(ROT)UYP   4-9
009093,000168: 07,2152           00001                                    0                                     
009094,000169: 07,2153           00031                                    24D                                   #  1/4SIN(ROT)UXP
009095,000170: 07,2154           45445                           BVSU     STADR                                 #  UP 4-9
009096,000171: 07,2155           63762                           STODL    12D                                   #  YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
009097,000172: 07,2156           65361                           VXSC     PDDL                                  #  UP 2-3  UP 0-1  FOR EXCHANGE
009098,000173: 07,2157           00031                                    24D                                   #  1/4COS(ROT)UXP  PUSH 0-5
009099,000174: 07,2160           53361                           VXSC     VAD                                   #  1/4SIN(ROT)UYP
009100,000175: 07,2161           00023                                    18D                                   #  UP 0-5
009101,000176: 07,2162           77626                           STADR                                          
009102,000177: 07,2163           53754                           STOVL    18D                                   #  XPNB=1/4(COS(ROT)UXP+SIN(ROT)UYP)
009103,000178: 07,2164           22276                                    LO6ZEROS                              #  INITIALIZE AVE STAR VEC ACCUMULATOR
009104,000179: 07,2165           02715                           STORE    STARAD     +6                         
009105,000180: 07,2166           77776                           EXIT                                           
009106,000181: 07,2167           12230                           TCF      GETMKS                                
009107,000182: 
009108,000183:                                                                                                  #  THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
009109,000184:                                                                                                  #  FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
009110,000185:                                                                                                  #     INPUT- AZIMUTH ANGLE IN SINGLE PREC 2S COMP IN 8D OF JOB VAC
009111,000186:                                                                                                  #            ELEVATION ANGLE IN SINGLE PREC 2S COMP IN 9D OF VAC
009112,000187:                                                                                                  #     OUTPUT-OPTIC AXIS IN NB COORDS. IN SCAXIS
009113,000188:                                                                                                  #            X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
009114,000189:                                                                                                  #            Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
009115,000190: 
009116,000191: 07,2170           44001        OANB               SETPD    STQ                                   
009117,000192: 07,2171           00001                                    0                                     
009118,000193: 07,2172           02736                                    GCTR                                  #  STORE RETURN
009119,000194: 07,2173           47135                           SLOAD    RTB                                   
009120,000195: 07,2174           00012                                    9D                                    #  PICK UP SP ELV
009121,000196: 07,2175           21457                                    CDULOGIC                              
009122,000197: 07,2176           71406                           PUSH     COS                                   
009123,000198: 07,2177           73525                           PDDL     SIN                                   #  1/2COS(ELV)  PD 0-1
009124,000199: 07,2200           77626                           STADR                                          
009125,000200: 07,2201           62527                           STODL    SCAXIS                                #  OAX=1/2SIN(ELV)
009126,000201: 07,2202           00011                                    8D                                    #  PICK UP AZ SP
009127,000202: 07,2203           77634                           RTB                                            
009128,000203: 07,2204           21457                                    CDULOGIC                              
009129,000204: 07,2205           71406                           PUSH     COS                                   
009130,000205: 07,2206           00025                           STORE    20D                                   #  STORE UYP(Y) 20-21
009131,000206: 07,2207           73525                           PDDL     SIN                                   #  1/2COS(AZ) PD 2-3
009132,000207: 07,2210           57406                           PUSH     DCOMP                                 #  PUSH 1/2SIN(AZ) 4-5
009133,000208: 07,2211           14027                           STODL    22D                                   #  STORE UYP(Z) 22-23
009134,000209: 07,2212           22276                                    LO6ZEROS                              
009135,000210: 07,2213           14023                           STODL    18D                                   #  STORE UYP(X) 18-19   UP 4-5
009136,000211: 07,2214           72405                           DMP      SL1                                   
009137,000212: 07,2215           00001                                    0                                     
009138,000213: 07,2216           15252                           STODL    SCAXIS     +2                         #  OAY=1/2COS(ELV)SIN(AZ)
009139,000214: 07,2217           72405                           DMP      SL1                                   #  UP 2-3
009140,000215: 07,2220           77626                           STADR                                          #  UP 0-1
009141,000216: 07,2221           52523                           STOVL    SCAXIS     +4                         #  OAZ=1/2COS(ELV)COS(AZ)
009142,000217: 07,2222           00023                                    18D                                   #  LOAD UYP VEC
009143,000218: 07,2223           76435                           VXV      VSL1                                  
009144,000219: 07,2224           01250                                    SCAXIS                                #  UXP VEC=UYP X OA
009145,000220: 07,2225           00031                           STORE    24D                                   #  STORE UXP
009146,000221: 07,2226           77650                           GOTO                                           
009147,000222: 07,2227           02736                                    GCTR                                  
009148,000223: 
009149,000224:                                                                                                  #  THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
009150,000225: 
009151,000226: 07,2230           35030        GETMKS             CAF      ZERO                                  #  INITIALIZE MARK ID REGISTER AND MARK CNT
009152,000227: 07,2231           55536                           TS       XYMARK                                
009153,000228: 07,2232           55535                           TS       MARKCNTR                              
009154,000229: 07,2233           35054                           CAF      LOW9                                  #  ZERO BITS10 TO 15 RETAINING MKVAC ADR
009155,000230: 07,2234           71314                           MASK     MARKSTAT                              
009156,000231: 07,2235           55314                           TS       MARKSTAT                              
009157,000232: 07,2236           32615                           CAF      MKVB54*                               #  DISPLAY VB54 INITIALLY
009158,000233: 07,2237           04655        PASTIT             TC       BANKCALL                              
009159,000234: 07,2240           20237                           CADR     GOMARK4                               
009160,000235: 
009161,000236: 07,2241           04106                           TC       GOTOPOOH                              #  VB34 TERMINATE-THIS RELEASES MKVAC AREA
009162,000237: 07,2242           12244                           TCF      MARKCHEX                              #  VB33-PROCEED, GOT MARKS, COMPUTE LOS
009163,000238: 07,2243           12057                           TCF      GETDAT                                #  ENTER- RECYCLE TO V01N71
009164,000239: 
009165,000240: 07,2244           41314        MARKCHEX           CS       MARKSTAT                              #  SET BIT12 TO DISCOURAGE MARKRUPT
009166,000241: 07,2245           75013                           MASK     BIT12                                 
009167,000242: 07,2246           27314                           ADS      MARKSTAT                              
009168,000243: 07,2247           75054                           MASK     LOW9                                  
009169,000244: 07,2250           55536                           TS       XYMARK                                #  JAM MARK VAC ADR IN XYMARK FOR AVESTAR
009170,000245: 07,2251           35030                           CAF      ZERO                                  
009171,000246: 07,2252           55537                           TS       MKDEX                                 #  SET MKDEX ZERO FOR LOS VEC CNTR
009172,000247: 07,2253           31314                           CA       MARKSTAT                              
009173,000248: 07,2254           75065                           MASK     PRIO3                                 #  SEE IF LAST MK PARI COMPLETE
009174,000249: 07,2255           54001                           TS       L                                     
009175,000250: 07,2256           35065                           CAF      PRIO3                                 #  BITS10 AND 11
009176,000251: 07,2257           00006                           EXTEND                                         
009177,000252: 07,2260           06001                           RXOR     LCHAN                                 
009178,000253: 07,2261           00006                           EXTEND                                         
009179,000254: 07,2262           12267                           BZF      AVESTAR                               #  LAST PAIR COMPLETE-GO COMPUTE LOS
009180,000255: 07,2263           11535        CNTCHK             CCS      MARKCNTR                              #  NO PAIR SHOWING-SEE IF PAIR IN HOLD
009181,000256: 07,2264           12266                           TCF      +2                                    #  PAIR BURIED-DECREMENT COUNTER
009182,000257: 07,2265           12352                           TCF      MKALARM                               #  NO PAIR-ALARM
009183,000258: 07,2266           55535                           TS       MARKCNTR                              #  STORE DECREMENTED COUNTER
009184,000259: 
009185,000260: 07,2267           31535        AVESTAR            CA       MARKCNTR                              
009186,000261: 07,2270           00006                           EXTEND                                         
009187,000262: 07,2271           76216                           MP       SIX                                   #  GET C(L) = - 6 MARKCNTR
009188,000263: 07,2272           56001                           XCH      L                                     
009189,000264: 07,2273           61536                           AD       XYMARK                                #  ADD - MARK VAC ADR SET IN MARKCHEX
009190,000265: 07,2274           50120                           INDEX    FIXLOC                                
009191,000266: 07,2275           54050                           TS       S1                                    #  JAM - CDU ADR OF X-MARK IN S1
009192,000267: 
009193,000268: 07,2276           35013                           CAF      BIT12                                 #  INITIALIZE MKDEX FOR STAR LOS COUNTER
009194,000269: 07,2277           27537                           ADS      MKDEX                                 #  MKDEX WAS INITIALIZED ZERO IN MARKCHEX
009195,000270: 
009196,000271: 07,2300           06014                           TC       INTPRET                               
009197,000272: 
009198,000273: 07,2301           77201                           SETPD    VLOAD                                 
009199,000274: 07,2302           00001                                    0                                     #  SET PD POINTER TO ZERO
009200,000275: 07,2303           00023                                    18D                                   #  LOAD STAR VECTOR IN NB
009201,000276: 07,2304           34041                           STCALL   32D                                   
009202,000277: 07,2305           47441                                    NBSM                                  #  CONVERT IT TO STABLE MEMBER
009203,000278: 07,2306           24031                           STOVL    24D                                   
009204,000279: 07,2307           00015                                    12D                                   
009205,000280: 07,2310           62120                           XCHX,1   INCR,1                                
009206,000281: 07,2311           00050                                    S1                                    
009207,000282: 07,2312           00001                                    1                                     
009208,000283: 07,2313           77720                           XCHX,1                                         
009209,000284: 07,2314           00050                                    S1                                    
009210,000285: 07,2315           34041                           STCALL   32D                                   
009211,000286: 07,2316           47441                                    NBSM                                  
009212,000287: 07,2317           77635                           VXV                                            
009213,000288: 07,2320           00031                                    24D                                   
009214,000289: 07,2321           53476                           VCOMP    UNIT                                  
009215,000290: 07,2322           00031                           STORE    24D                                   
009216,000291: 
009217,000292: 07,2323           63335        AVEIT              SLOAD    PDVL                                  #  N(NUMBER OF VECS) IN 0-1
009218,000293: 07,2324           03540                                    MKDEX                                 
009219,000294: 07,2325           00031                                    24D                                   #  LOAD CURRENT VECTOR
009220,000295: 07,2326           70322                           VSR3     V/SC                                  
009221,000296: 07,2327           00001                                    0                                     
009222,000297: 07,2330           14031                           STODL    24D                                   #  VEC/N
009223,000298: 07,2331           00001                                    0                                     
009224,000299: 07,2332           56225                           DSU      DDV                                   
009225,000300: 07,2333           16617                                    DP1/8                                 #  (N-1)/N
009226,000301: 07,2334           53361                           VXSC     VAD                                   
009227,000302: 07,2335           02715                                    STARAD     +6                         #  ADD VEC TO PREVIOUSLY AVERAGED VECTOR
009228,000303: 07,2336           00031                                    24D                                   #  (N-1)/N AVESTVEC + VEC/N
009229,000304: 07,2337           02715                           STORE    STARAD     +6                         #  AVERAGE STAR VECTOR
009230,000305: 07,2340           02767                           STORE    STARSAV2                              
009231,000306: 07,2341           77776                           EXIT                                           
009232,000307: 07,2342           11535                           CCS      MARKCNTR                              #  SEE IF ANOTHER MARK PAIR IN MKVAC
009233,000308: 07,2343           12266                           TCF      AVESTAR    -1                         #  THERE IS-GO GET IT-DECREMENT COUNTER
009234,000309: 07,2344           35031        ENDMARKS           CAF      FIVE                                  #  NO MORE MARKS-TERMINATE AOTMARK
009235,000310: 07,2345           00004                           INHINT                                         
009236,000311: 07,2346           05252                           TC       WAITLIST                              
009237,000312: 07,2347  E7,1536                                  EBANK=   XYMARK                                
009238,000313: 07,2347           02046 16067                     2CADR    MKRELEAS                              
009239,000314: 
009240,000315: 07,2351           05564                           TC       ENDMARK                               
009241,000316: 
009242,000317: 07,2352           05651        MKALARM            TC       ALARM                                 #  NOT A PAIR TO PROCESS-DO GETMKS
009243,000318: 07,2353           00111                           OCT      111                                   
009244,000319: 07,2354           12230                           TCF      GETMKS                                
009245,000320: 
009246,000321: 07,2355           00307        V01N71             VN       171                                   
009247,000322: 07,2356           01527        V06N87*            VN       687                                   
009248,000323: 
009249,000324:                                                                                                  #  MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
009250,000325:                                                                                                  #  CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
009251,000326: 
009252,000327: 07,2357           54016        MARKRUPT           TS       BANKRUPT                              
009253,000328: 07,2360           30033                           CA       CDUY                                  #  STORE CDUS AND TIME NOW-THEN SEE IF
009254,000329: 07,2361           54063                           TS       ITEMP3                                #  WE NEED THEM
009255,000330: 07,2362           30034                           CA       CDUZ                                  
009256,000331: 07,2363           54064                           TS       ITEMP4                                
009257,000332: 07,2364           30032                           CA       CDUX                                  
009258,000333: 07,2365           54065                           TS       ITEMP5                                
009259,000334: 07,2366           00006                           EXTEND                                         
009260,000335: 07,2367           30025                           DCA      TIME2                                 
009261,000336: 07,2370           52062                           DXCH     ITEMP1                                
009262,000337: 07,2371           56002                           XCH      Q                                     
009263,000338: 07,2372           54012                           TS       QRUPT                                 
009264,000339: 
009265,000340: 07,2373           32620                           CAF      OCT34                                 #  SEE IF X OR Y MARK OR MKREJECT
009266,000341: 07,2374           00006                           EXTEND                                         
009267,000342: 07,2375           02016                           RAND     NAVKEYIN                              
009268,000343: 07,2376           10000                           CCS      A                                     
009269,000344: 07,2377           12401                           TCF      +2                                    #  ITS A LIVE ONE-SEE IF ITS WANTED
009270,000345: 07,2400           12431                           TCF      SOMEKEY                               #  ITS SOME OTHER KEY
009271,000346: 
009272,000347: 07,2401           35013                           CAF      BIT12                                 #  ARE WE ASKING FOR A MARK
009273,000348: 07,2402           71314                           MASK     MARKSTAT                              
009274,000349: 07,2403           10000                           CCS      A                                     
009275,000350: 07,2404           05340                           TC       RESUME                                #  DONT WANT MARK OR MKREJECT-DO NOTHING
009276,000351: 
009277,000352: 07,2405           11314                           CCS      MARKSTAT                              #  ARE MARKS BEING ACCEPTED
009278,000353: 07,2406           12412                           TCF      FINDKEY                               #  THEY ARE-WHICH ONE IS IT
009279,000354: 07,2407           05651                           TC       ALARM                                 #  MARKS NOT BEING ACCEPTED-DO ALARM
009280,000355: 07,2410           00112                           OCT      112                                   
009281,000356: 07,2411           05340                           TC       RESUME                                
009282,000357: 
009283,000358: 07,2412           35022        FINDKEY            CAF      BIT5                                  #  SEE IF MARK REJECT
009284,000359: 07,2413           00006                           EXTEND                                         
009285,000360: 07,2414           02016                           RAND     NAVKEYIN                              
009286,000361: 07,2415           10000                           CCS      A                                     
009287,000362: 07,2416           12502                           TCF      MKREJ                                 #  ITS A MARK REJECT
009288,000363: 
009289,000364: 07,2417           35023                           CAF      BIT4                                  #  SEE IF Y MARK
009290,000365: 07,2420           00006                           EXTEND                                         
009291,000366: 07,2421           02016                           RAND     NAVKEYIN                              
009292,000367: 07,2422           10000                           CCS      A                                     
009293,000368: 
009294,000369: 07,2423           12447                           TCF      YMKRUPT                               #  ITS A Y MARK
009295,000370: 
009296,000371: 07,2424           35024                           CAF      BIT3                                  #  SEE IF X MARK
009297,000372: 07,2425           00006                           EXTEND                                         
009298,000373: 07,2426           02016                           RAND     NAVKEYIN                              
009299,000374: 
009300,000375: 07,2427           10000                           CCS      A                                     
009301,000376: 07,2430           12443                           TCF      XMKRUPT                               #  ITS A X MARK
009302,000377: 
009303,000378: 07,2431           35046        SOMEKEY            CAF      OCT140                                #  NOT MARK OR MKREJECT-SEE IF DESCENT BITS
009304,000379: 07,2432           00006                           EXTEND                                         
009305,000380: 07,2433           02016                           RAND     NAVKEYIN                              
009306,000381: 07,2434           00006                           EXTEND                                         
009307,000382: 07,2435           12440                           BZF      +3                                    #  IF NO BITS
009308,000383: 
009309,000384: 07,2436           04674                           TC       POSTJUMP                              #  IF DESCENT BITS
009310,000385: 07,2437           42074                           CADR     DESCBITS                              
009311,000386: 
009312,000387: 07,2440           05651                           TC       ALARM                                 #  NO INBITS IN CHANNEL 16
009313,000388: 07,2441           00113                           OCT      113                                   
009314,000389: 
009315,000390: 07,2442           05340                           TC       RESUME                                
009316,000391: 
009317,000392: 07,2443           35030        XMKRUPT            CAF      ZERO                                  
009318,000393: 07,2444           54070                           TS       RUPTREG1                              #  SET X MARK STORE INDEX TO ZERO
009319,000394: 07,2445           35015                           CAF      BIT10                                 
009320,000395: 07,2446           12452                           TCF      +4                                    
009321,000396: 07,2447           35026        YMKRUPT            CAF      ONE                                   
009322,000397: 07,2450           54070                           TS       RUPTREG1                              #  SET Y MARK STORE INDEX TO ONE
009323,000398: 07,2451           35014                           CAF      BIT11                                 
009324,000399: 07,2452           55536                           TS       XYMARK                                #  SET MARK IDENTIFIATION
009325,000400: 
009326,000401: 07,2453           35011                           CAF      BIT14                                 #  GOT A MARK-SEE IF MARK PAIR MADE
009327,000402: 07,2454           71314                           MASK     MARKSTAT                              
009328,000403: 07,2455           00006                           EXTEND                                         
009329,000404: 07,2456           12467                           BZF      VERIFYMK                              #  NOT A PAIR, NORMAL PROCEDURE
009330,000405: 07,2457           41535                           CS       MARKCNTR                              #  GOT A PAIR, SEE IF ANOTHER CAN BE MADE
009331,000406: 07,2460           65024                           AD       FOUR                                  #  IF SO, INCREMENT POINTER,CLEAR BITS10,11
009332,000407: 07,2461           00006                           EXTEND                                         
009333,000408: 07,2462           62477                           BZMF     5MKALARM                              #  HAVE FIVE MARK PAIRS-DONT ALLOW MARK
009334,000409: 07,2463           25535                           INCR     MARKCNTR                              #  OK FOR ANOTHER PAIR, INCR POINTER
009335,000410: 07,2464           47663                           CS       PRIO23                                #  CLEAR BITS10,11,14 FOR NEXT PAIR
009336,000411: 07,2465           71314                           MASK     MARKSTAT                              
009337,000412: 07,2466           55314                           TS       MARKSTAT                              
009338,000413: 
009339,000414: 07,2467           31536        VERIFYMK           CA       XYMARK                                
009340,000415: 07,2470           71314                           MASK     MARKSTAT                              
009341,000416: 07,2471           10000                           CCS      A                                     
009342,000417: 07,2472           12474                           TCF      +2                                    #  THIS MARK NOT DESIRED
009343,000418: 07,2473           12526                           TCF      VACSTOR                               #  MARK DESIRED - STORE CDUS
009344,000419: 07,2474           05651                           TC       ALARM                                 
009345,000420: 07,2475           00114                           OCT      114                                   
009346,000421: 07,2476           05340                           TC       RESUME                                #  RESUME-DISPLAY UNCHANGED-WAIT FOR ACTION
009347,000422: 
009348,000423: 07,2477           05651        5MKALARM           TC       ALARM                                 #  ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
009349,000424: 07,2500           00107                           OCT      107                                   
009350,000425: 07,2501           05340                           TC       RESUME                                #  DONT CHANGE DISPLAY-DO NOTHING
009351,000426: 
009352,000427: 07,2502           35065        MKREJ              CAF      PRIO3                                 #  INFLIGHT-SEE IF MARKS MADE
009353,000428: 07,2503           71314                           MASK     MARKSTAT                              
009354,000429: 07,2504           10000                           CCS      A                                     
009355,000430: 07,2505           12511                           TCF      REJECT                                #  MARKS MADE-REJECT ONE
009356,000431: 07,2506           05651                           TC       ALARM                                 #  NO MARK TO REJECT-BAD PROCEDURE-ALARM
009357,000432: 07,2507           00115                           OCT      115                                   
009358,000433: 07,2510           05340                           TC       RESUME                                #  DESIRED ACTION DISPLAYED
009359,000434: 
009360,000435: 07,2511           44367        REJECT             CS       PRIO30                                #  ZERO BIT14,SHOW REJ.,SEE IF MARK SINCE
009361,000436: 07,2512           71314                           MASK     MARKSTAT                              #  LAST REJECT
009362,000437: 07,2513           65012                           AD       BIT13                                 
009363,000438: 07,2514           57314                           XCH      MARKSTAT                              
009364,000439: 07,2515           75012                           MASK     BIT13                                 
009365,000440: 07,2516           10000                           CCS      A                                     
009366,000441: 07,2517           12524                           TCF      REJECT2                               #  ANOTHER REJECT SET BIT 10+11 TO ZERO
009367,000442: 
009368,000443: 07,2520           41536                           CS       XYMARK                                #  MARK MADE SINCE REJECT-REJECT MARK IN 1D
009369,000444: 07,2521           71314        RENEWMK            MASK     MARKSTAT                              
009370,000445: 07,2522           55314                           TS       MARKSTAT                              
009371,000446: 07,2523           12574                           TCF      REMARK                                #  GO REQUEST NEW MARK ACTION
009372,000447: 
009373,000448: 07,2524           45065        REJECT2            CS       PRIO3                                 #  ON SECOND REJECT-DISPLAY VB53 AGAIN
009374,000449: 07,2525           12521                           TCF      RENEWMK                               
009375,000450: 
009376,000451: 07,2526           35054        VACSTOR            CAF      LOW9                                  
009377,000452: 07,2527           71314                           MASK     MARKSTAT                              #  STORE MARK VAC ADR IN RUPTREG2
009378,000453: 07,2530           54071                           TS       RUPTREG2                              
009379,000454: 07,2531           00006                           EXTEND                                         
009380,000455: 07,2532           30062                           DCA      ITEMP1                                #  PICK UP MARKTIME
009381,000456: 07,2533           53547                           DXCH     TSIGHT                                #  STORE LAST MARK TIME
009382,000457: 07,2534           31535                           CA       MARKCNTR                              #  6 X MARKCNTR FOR STORE INDEX
009383,000458: 07,2535           00006                           EXTEND                                         
009384,000459: 07,2536           76216                           MP       SIX                                   
009385,000460: 07,2537           56001                           XCH      L                                     #  GET INDEX FROM LOW ORDER PART
009386,000461: 07,2540           60071                           AD       RUPTREG2                              #  SET CDU STORE INDEX TO MARKVAC
009387,000462: 07,2541           26070                           ADS      RUPTREG1                              #  INCREMENT VAC PICKUP BY MARK FOR FLIGHT
009388,000463: 07,2542           30063                           CA       ITEMP3                                
009389,000464: 07,2543           50070                           INDEX    RUPTREG1                              
009390,000465: 07,2544           54000                           TS       0                                     #  STORE CDUY
009391,000466: 07,2545           30064                           CA       ITEMP4                                
009392,000467: 07,2546           50070                           INDEX    RUPTREG1                              
009393,000468: 07,2547           54002                           TS       2                                     #  STORE CDUZ
009394,000469: 07,2550           30065                           CA       ITEMP5                                
009395,000470: 07,2551           50070                           INDEX    RUPTREG1                              
009396,000471: 07,2552           54004                           TS       4                                     #  STORE CDUX
009397,000472: 
009398,000473: 07,2553           35012                           CAF      BIT13                                 #  CLEAR BIT13 TO SHOW MARK MADE
009399,000474: 07,2554           61536                           AD       XYMARK                                #  SET MARK ID IN MARKSTAT
009400,000475: 07,2555           40000                           COM                                            
009401,000476: 07,2556           71314                           MASK     MARKSTAT                              
009402,000477: 07,2557           61536                           AD       XYMARK                                
009403,000478: 07,2560           55314                           TS       MARKSTAT                              
009404,000479: 07,2561           75065                           MASK     PRIO3                                 #  SEE IF X, Y MARK MADE
009405,000480: 07,2562           54001                           TS       L                                     
009406,000481: 
009407,000482: 07,2563           35065                           CA       PRIO3                                 
009408,000483: 07,2564           00006                           EXTEND                                         
009409,000484: 07,2565           06001                           RXOR     LCHAN                                 
009410,000485: 07,2566           10000                           CCS      A                                     
009411,000486: 07,2567           12574                           TCF      REMARK                                #  NOT PAIR YET, DISPLAY MARK ACTION
009412,000487: 07,2570           41314                           CS       MARKSTAT                              #  MARK PAIR COMPLETE-SET BIT14
009413,000488: 07,2571           75011                           MASK     BIT14                                 
009414,000489: 07,2572           27314                           ADS      MARKSTAT                              
009415,000490: 07,2573           12574                           TCF      REMARK                                #  GO DISPLAY V54
009416,000491: 
009417,000492: 07,2574           35065        REMARK             CAF      PRIO3                                 #  BITS 10 AND 11
009418,000493: 07,2575           71314                           MASK     MARKSTAT                              
009419,000494: 07,2576           00006                           EXTEND                                         
009420,000495: 07,2577           75021                           MP       BIT6                                  #  SHIFT MARK IDS TO BE 0 TO 3 FOR INDEX
009421,000496: 07,2600           55537                           TS       MKDEX                                 #  STORE VERB INDEX
009422,000497: 07,2601           37672                           CAF      PRIO32                                
009423,000498: 07,2602           05142                           TC       NOVAC                                 #  ENTER JOB TO CHANGE DISPLAY TO
009424,000499: 07,2603  E7,1536                                  EBANK=   XYMARK                                #  REQUEST NEXT ACTION
009425,000500: 07,2603           02606 16067                     2CADR    CHANGEVB                              
009426,000501: 
009427,000502: 07,2605           05340                           TC       RESUME                                
009428,000503: 
009429,000504: 07,2606           51537        CHANGEVB           INDEX    MKDEX                                 #  INFLIGHT-PICK UP MARK VB INDEX
009430,000505: 07,2607           32612                           CAF      MKVB54                                
009431,000506: 07,2610           04655                           TC       BANKCALL                              #  PASTE UP NEXT MK VERB DISPLAY
009432,000507: 07,2611           16237                           CADR     PASTIT                                
009433,000508: 
009434,000509:                                                                                                  #  THE FOUR MKVBS ARE INDEXED-THEIR ORDER CANNOT BE CHANGED
009435,000510: 
009436,000511: 07,2612           15507        MKVB54             VN       5471                                  #  MAKE X OR Y MARK
009437,000512: 07,2613           15307        MKVB53             VN       5371                                  #  MAKE Y MARK
009438,000513: 07,2614           15107        MKVB52             VN       5271                                  #  MAKE X MARK
009439,000514: 07,2615           15507        MKVB54*            VN       5471                                  #  MAKE X OR Y MARK
009440,000515: 07,2616           04000 00000  DP1/8              2DEC     .125                                  
009441,000516: 07,2620           00034        OCT34              OCT      34                                    
009442,000517: 07,2621           01507        V06N71             VN       671                                   

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