- B1 — Revision 292
- B2 — Revision 302
- B3 — Revision 302
- B4 — Revision 302
- B5 — Revision 292
- B6 — Revision 306
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:
|
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