Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
006604,000002: ## Copyright: Public domain.
006605,000003: ## Filename: AOTMARK.agc
006606,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst).
006607,000005: ## It is part of the source code for the Lunar Module's (LM)
006608,000006: ## Apollo Guidance Computer (AGC) for Apollo 5.
006609,000007: ## Assembler: yaYUL
006610,000008: ## Contact: Ron Burkey <info@sandroid.org>.
006611,000009: ## Website: www.ibiblio.org/apollo/index.html
006612,000010: ## Mod history: 2016-09-30 RSB Created draft version.
006613,000011: ## 2016-10-05 RSB Completed transcription.
006614,000012: ## 2016-10-30 MAS Corrected a couple errors (VKVB53 -> MKVB53, V31N43E->V21N43E).
006615,000013: ## 2016-10-31 RSB I had messed up the very end of the file with both missing
006616,000014: ## and extra goo.
006617,000015: ## 2016-11-01 RSB More typos.
006618,000016: ## 2016-12-04 RSB Fixed various typos in the comments, using octopus/ProoferComments.
006619,000017: ## However, don't regard the comments as completely proofed yet.
006620,000018: ## 2016-12-05 RSB Comment-proofing pass with octopus/ProoferComments completed;
006621,000019: ## changes made.
006622,000020:
![]() |
Page 159 |
006624,000022: 13,3005 BANK 13
006625,000023: 13,3005 E3,1467 EBANK= AOTAZ
006626,000024: 13,3005 00004 AOTMARK INHINT
006627,000025: 13,3006 54071 TS RUPTREG2 # BIT14=INFLIGHT 0=NONFLIGHT
006628,000026: 13,3007 10373 CCS MARKSTAT # ARE MARKS BUTTONS IN USE
006629,000027: 13,3010 03012 TC +2 # MARKS BUTTONS NOT AVAILABLE
006630,000028: 13,3011 03015 TC MKVAC # FIND A VAC AREA
006631,000029: 13,3012 04755 TC ALARM
006632,000030: 13,3013 00105 OCT 00105
006633,000031: 13,3014 05567 TC ENDOFJOB
006634,000032:
006635,000033: 13,3015 10430 MKVAC CCS VAC1USE
006636,000034: 13,3016 03031 TC MKVACFND
006637,000035: 13,3017 10504 CCS VAC2USE
006638,000036: 13,3020 03031 TC MKVACFND
006639,000037: 13,3021 10560 CCS VAC3USE
006640,000038: 13,3022 03031 TC MKVACFND
006641,000039: 13,3023 10634 CCS VAC4USE
006642,000040: 13,3024 03031 TC MKVACFND
006643,000041: 13,3025 10710 CCS VAC5USE
006644,000042: 13,3026 03031 TC MKVACFND
006645,000043: 13,3027 06000 TC ABORT # VAC AREAS OCCUPIED
006646,000044: 13,3030 01207 OCT 01207
006647,000045:
006648,000046: 13,3031 67762 MKVACFND AD TWO
006649,000047: 13,3032 54373 TS MARKSTAT
006650,000048: 13,3033 37767 CAF ZERO
006651,000049: 13,3034 54374 TS XYMARK # INITIALIZE MARK ID REGISTER
006652,000050: 13,3035 50373 INDEX MARKSTAT
006653,000051: 13,3036 53777 TS 0 -1 # SHOW VAC OCCUPIED
006654,000052:
006655,000053: 13,3037 30071 CA RUPTREG2
006656,000054: 13,3040 26373 ADS MARKSTAT
006657,000055:
006658,000056: 13,3041 35653 CAF PRIO32
006659,000057: 13,3042 05505 TC NOVAC
006660,000058: 13,3043 E3,1467 EBANK= AOTAZ
006661,000059: 13,3043 03054 26063 2CADR GETMKS
006662,000060:
006663,000061: 13,3045 02043 TC MODEEXIT
006664,000062:
006665,000063: 13,3046 37767 MKRELEAS CAF ZERO
006666,000064: 13,3047 56373 XCH MARKSTAT # SET MARKSTAT ZERO
006667,000065: 13,3050 10000 CCS A
006668,000066: 13,3051 50000 INDEX A
006669,000067: 13,3052 54000 TS 0 # SHOW VAC AREA AVAILABLE
006670,000068: 13,3053 05221 TC SWRETURN
006671,000069:
![]() |
Page 160 |
006673,000071: 13,3054 37767 GETMKS CAF ZERO
006674,000072: 13,3055 54374 TS XYMARK
006675,000073: 13,3056 37746 CAF BIT14 # FIND IF IN-FLIGHT OR NON-FLIGHT
006676,000074: 13,3057 70373 MASK MARKSTAT
006677,000075: 13,3060 10000 CCS A
006678,000076: 13,3061 03070 TC MKVB53 # IN-FLIGHT
006679,000077: 13,3062 47751 CS BIT11 # NON-FLIGHT, SET Y MARK =1
006680,000078: 13,3063 70373 MASK MARKSTAT
006681,000079: 13,3064 67751 AD BIT11
006682,000080: 13,3065 54373 TS MARKSTAT
006683,000081: 13,3066 33415 CAF VB51 # REQUEST X MARK
006684,000082: 13,3067 03071 TC +2
006685,000083: 13,3070 33471 MKVB53 CAF VB53 # REQUEST X AND Y MARKS
006686,000084: 13,3071 04657 TC NVSBWAIT
006687,000085: 13,3072 04622 TC FLASHON
006688,000086: 13,3073 04475 TC ENDIDLE
006689,000087: 13,3074 03055 TC GETMKS +1
006690,000088: 13,3075 03055 TC GETMKS +1
006691,000089:
006692,000090: 13,3076 37752 MKCHEK CAF BIT10 # WAS X MARK MADE
006693,000091: 13,3077 70373 MASK MARKSTAT
006694,000092: 13,3100 10000 CCS A
006695,000093: 13,3101 03103 TC +2 # X MARK MADE-LOOK AT Y MARK
006696,000094: 13,3102 03107 TC MKALARM
006697,000095: 13,3103 37751 CAF BIT11
006698,000096: 13,3104 70373 MASK MARKSTAT
006699,000097: 13,3105 10000 CCS A
006700,000098: 13,3106 03115 TC GETDET # BOTH MARKS MADE-SHOW ACCEPT-GET DETENT
006701,000099:
006702,000100: 13,3107 04755 MKALARM TC ALARM # IF EITHER MARK IS MISSING AFTER ENTER
006703,000101: 13,3110 00111 OCT 111
006704,000102: 13,3111 45643 CS PRIO17 # SET BITS 10,11,12,13 TO ZERO IN MARKSTAT
006705,000103: 13,3112 70373 MASK MARKSTAT
006706,000104: 13,3113 54373 TS MARKSTAT
006707,000105: 13,3114 03054 TC GETMKS # GETMKS AGAIN
006708,000106:
006709,000107: 13,3115 47750 GETDET CS BIT12
006710,000108: 13,3116 70373 MASK MARKSTAT
006711,000109: 13,3117 67750 AD BIT12 # SET BIT12=1 TO SHOW MARKS ACCEPTED
006712,000110: 13,3120 54373 TS MARKSTAT
006713,000111: 13,3121 33467 DETVB21 CAF V21N43E
006714,000112: 13,3122 04657 TC NVSBWAIT
006715,000113: 13,3123 04475 TC ENDIDLE
006716,000114: 13,3124 03121 TC DETVB21
006717,000115: 13,3125 03121 TC DETVB21
006718,000116:
006719,000117: 13,3126 46311 CS OCT3
006720,000118: 13,3127 70374 MASK DETCODE
006721,000119: 13,3130 10000 CCS A
006722,000120: 13,3131 03121 TC DETVB21 # BAD CODE, REQUEST AGAIN
006723,000121:
![]() |
Page 161 |
006725,000123: 13,3132 03135 TC +3 # LOOKS GOOD BUT COULD BE ZERO
006726,000124: 13,3133 03134 TC +1
006727,000125: 13,3134 03121 TC DETVB21
006728,000126: 13,3135 36311 CAF OCT3
006729,000127: 13,3136 70374 MASK DETCODE # SEE IF ZERO
006730,000128: 13,3137 10000 CCS A
006731,000129: 13,3140 03142 TC +2 # GOOD CODE-STORE ANGLES
006732,000130: 13,3141 03121 TC DETVB21 # ZERO-BAD CODE-REQUEST AGAIN
006733,000131:
006734,000132: 13,3142 35341 CAF LOW9
006735,000133: 13,3143 70373 MASK MARKSTAT
006736,000134: 13,3144 54002 TS BASVAC # STORE VAC AREA ADDRESS
006737,000135: 13,3145 50374 INDEX DETCODE
006738,000136: 13,3146 31471 CA AOTEL -1
006739,000137: 13,3147 50002 INDEX BASVAC
006740,000138: 13,3150 54011 TS 9D # STORE ELV ANGLE IN VAC +9
006741,000139: 13,3151 50374 INDEX DETCODE
006742,000140: 13,3152 31466 CA AOTAZ -1
006743,000141: 13,3153 50002 INDEX BASVAC
006744,000142: 13,3154 54010 TS 8D # STORE AZIMUTH IN VAC +8
006745,000143:
006746,000144: 13,3155 31470 CA AOTAZ +1 # COMPENSATION FOR THE APPARENT TILT OF
006747,000145: 13,3156 00006 EXTEND # AOT FIELD OF VIEW IN THE LEFT AND RIGHT
006748,000146: 13,3157 50374 INDEX DETCODE # DETENTS IS STORED IN LOC 10D OF VAC
006749,000147: 13,3160 21466 MSU AOTAZ -1 # IN ONES COMPLEMENT
006750,000148: 13,3161 50002 INDEX BASVAC
006751,000149: 13,3162 54012 TS 10D # SINGLE PREC. TILT COMPENSATION ANGLE
006752,000150:
006753,000151: 13,3163 37746 CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
006754,000152: 13,3164 70373 MASK MARKSTAT
006755,000153: 13,3165 10000 CCS A
006756,000154: 13,3166 03206 TC MKOUT # IN-FLIGHT, NO MORE DATA NEEDED
006757,000155: 13,3167 03170 TC ROTVB24 # NON-FLIGHT, GET ROTATION ANGLES
006758,000156:
006759,000157: 13,3170 33470 ROTVB24 CAF V24N42E # REQUEST RETICLE ROTATION ANGLES
006760,000158: 13,3171 04657 TC NVSBWAIT
006761,000159: 13,3172 04475 TC ENDIDLE
006762,000160: 13,3173 03170 TC ROTVB24
006763,000161: 13,3174 03170 TC ROTVB24
006764,000162:
006765,000163: 13,3175 35341 CAF LOW9
006766,000164: 13,3176 70373 MASK MARKSTAT
006767,000165: 13,3177 54002 TS BASVAC
006768,000166: 13,3200 30342 CA DSPTEM2 # YROT
006769,000167: 13,3201 50002 INDEX BASVAC
006770,000168: 13,3202 54003 TS 3 # STORE Y RETICLE ROT ANGLE IN VAC +3
006771,000169: 13,3203 30343 CA DSPTEM2 +1 # SROT
006772,000170: 13,3204 50002 INDEX BASVAC
006773,000171: 13,3205 54005 TS 5 # STORE SPIRAL ROT ANGLE VAC +5
006774,000172:
![]() |
Page 162 |
006776,000174: 13,3206 35341 MKOUT CAF LOW9
006777,000175: 13,3207 70373 MASK MARKSTAT
006778,000176: 13,3210 54373 TS MARKSTAT # SET HI5 ZERO
006779,000177:
006780,000178: 13,3211 00004 INHINT
006781,000179: 13,3212 37763 CAF ONE
006782,000180: 13,3213 05663 TC WAITLIST
006783,000181: 13,3214 E3,1467 EBANK= AOTAZ
006784,000182: 13,3214 03217 26063 2CADR ENDMARKS
006785,000183:
006786,000184: 13,3216 05567 TC ENDOFJOB
006787,000185:
006788,000186: 13,3217 37763 ENDMARKS CAF ONE
006789,000187: 13,3220 12720 TCF GOODEND
006790,000188:
![]() |
Page 163 |
006792,000190: 13,3221 54016 MARKRUPT TS BANKRUPT
006793,000191: 13,3222 30033 CA CDUY # STORE CDU DATA AND TIME IN TEMP
006794,000192: 13,3223 54063 TS ITEMP3
006795,000193: 13,3224 30034 CA CDUZ
006796,000194: 13,3225 54064 TS ITEMP4
006797,000195: 13,3226 30032 CA CDUX
006798,000196: 13,3227 54065 TS ITEMP5
006799,000197: 13,3230 00006 EXTEND
006800,000198: 13,3231 30025 DCA TIME2
006801,000199: 13,3232 52062 DXCH ITEMP1
006802,000200: 13,3233 56002 XCH Q
006803,000201: 13,3234 54012 TS QRUPT
006804,000202:
006805,000203: 13,3235 33465 CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
006806,000204: 13,3236 00006 EXTEND
006807,000205: 13,3237 02016 RAND NAVKEYIN
006808,000206: 13,3240 10000 CCS A
006809,000207: 13,3241 03243 TC +2 # ITS A LIVE ONE-CHECK FOR ACCEPT
006810,000208: 13,3242 03273 TC SOMEKEY # SOME OTHER KEY
006811,000209:
006812,000210: 13,3243 37750 CAF BIT12 # HAVE MARKS BEEN ACCEPTED
006813,000211: 13,3244 70373 MASK MARKSTAT
006814,000212: 13,3245 10000 CCS A
006815,000213: 13,3246 05733 TC RESUME # MARKS MADE AND ACCEPTED - DO NOTHING
006816,000214:
006817,000215: 13,3247 10373 CCS MARKSTAT # ARE MARKS BEING ACCEPTED
006818,000216: 13,3250 03254 TC FINDKEY
006819,000217: 13,3251 04755 TC ALARM # MARKS NOT BEING ACCEPTED
006820,000218: 13,3252 00112 OCT 112
006821,000219: 13,3253 05733 TC RESUME
006822,000220:
006823,000221: 13,3254 37757 FINDKEY CAF BIT5
006824,000222: 13,3255 00006 EXTEND
006825,000223: 13,3256 02016 RAND NAVKEYIN # CHANNEL 16
006826,000224: 13,3257 10000 CCS A
006827,000225: 13,3260 03421 TC MKREJ # ITS A MARK REJECT
006828,000226: 13,3261 37760 CAF BIT4
006829,000227: 13,3262 00006 EXTEND
006830,000228: 13,3263 02016 RAND NAVKEYIN
006831,000229: 13,3264 10000 CCS A
006832,000230: 13,3265 03311 TC YMKRUPT # ITS A Y MARK
006833,000231: 13,3266 37761 CAF BIT3
006834,000232: 13,3267 00006 EXTEND
006835,000233: 13,3270 02016 RAND NAVKEYIN
006836,000234: 13,3271 10000 CCS A
006837,000235: 13,3272 03305 TC XMKRUPT # ITS AN X MARK
006838,000236: 13,3273 33466 SOMEKEY CAF OCT140 # NOT MARK OR MARK REJECT
006839,000237: 13,3274 00006 EXTEND
006840,000238: 13,3275 02016 RAND NAVKEYIN
006841,000239: 13,3276 00006 EXTEND
![]() |
Page 164 |
006843,000241: 13,3277 13302 BZF +3 # IF NO INBITS.
006844,000242:
006845,000243: 13,3300 05225 TC POSTJUMP # IF DESCENT BITS.
006846,000244: 13,3301 22707 CADR DESCBITS
006847,000245:
006848,000246: 13,3302 04755 +3 TC ALARM
006849,000247: 13,3303 00113 OCT 113
006850,000248: 13,3304 05733 TC RESUME
006851,000249:
006852,000250: 13,3305 37767 XMKRUPT CAF ZERO
006853,000251: 13,3306 54070 TS RUPTREG1 # SET X MARK STORE INDEX TO ZERO
006854,000252: 13,3307 37752 CAF BIT10
006855,000253: 13,3310 03314 TC +4
006856,000254: 13,3311 37763 YMKRUPT CAF ONE
006857,000255: 13,3312 54070 TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
006858,000256: 13,3313 37751 CAF BIT11
006859,000257: 13,3314 54374 TS XYMARK # SET MARK ID
006860,000258:
006861,000259: 13,3315 70373 MASK MARKSTAT
006862,000260: 13,3316 10000 CCS A
006863,000261: 13,3317 03321 TC +2 # MARK MADE BUT NOT DESIRED
006864,000262: 13,3320 03324 TC VACSTOR # MARK DESIRED AND MADE-STORE CDUS
006865,000263: 13,3321 04755 TC ALARM
006866,000264: 13,3322 00114 OCT 114
006867,000265: 13,3323 03355 TC REMARK # RENEW REQUEST
006868,000266:
006869,000267: 13,3324 35341 VACSTOR CAF LOW9 # STORE TIME AND CDUS IN VAC AREA
006870,000268: 13,3325 70373 MASK MARKSTAT
006871,000269: 13,3326 54071 TS RUPTREG2 # PICK UP VAC ADR
006872,000270: 13,3327 00006 EXTEND
006873,000271: 13,3330 30062 DCA ITEMP1
006874,000272: 13,3331 50071 INDEX RUPTREG2
006875,000273: 13,3332 52001 DXCH 0 # STORE TIME1 AND TIME2 IN VAC
006876,000274: 13,3333 30071 CA RUPTREG2
006877,000275: 13,3334 26070 ADS RUPTREG1 # INCREMENT CDU STORE ADR BY MARK INDEX
006878,000276: 13,3335 30063 CA ITEMP3 # PICK UP CDUY
006879,000277: 13,3336 50070 INDEX RUPTREG1
006880,000278: 13,3337 54002 TS 2
006881,000279: 13,3340 30064 CA ITEMP4 # PICK UP CDUZ
006882,000280: 13,3341 50070 INDEX RUPTREG1
006883,000281: 13,3342 54004 TS 4
006884,000282: 13,3343 30065 CA ITEMP5 # PICK UP CDUX
006885,000283: 13,3344 50070 INDEX RUPTREG1
006886,000284: 13,3345 54006 TS 6
006887,000285:
006888,000286: 13,3346 37747 CAF BIT13
006889,000287: 13,3347 60374 AD XYMARK
006890,000288: 13,3350 40000 COM
006891,000289: 13,3351 70373 MASK MARKSTAT
006892,000290: 13,3352 60374 AD XYMARK # SET MARK MADE BIT IN MARKSTAT=1
006893,000291:
![]() |
Page 165 |
006895,000293: 13,3353 54373 TS MARKSTAT # AND SET BIT13 ZERO TO SHOW MARK
006896,000294: 13,3354 03355 TC REMARK # MADE BEFORE A REJECT - GO REMARK
006897,000295:
![]() |
Page 166 |
006899,000297: 13,3355 37767 REMARK CAF ZERO
006900,000298: 13,3356 54073 TS MKDEX # MKDEX=0
006901,000299: 13,3357 37751 CAF BIT11 # LOOK A Y MARK
006902,000300: 13,3360 70373 MASK MARKSTAT
006903,000301: 13,3361 10000 CCS A
006904,000302: 13,3362 03365 TC +3 # Y MARK MADE
006905,000303: 13,3363 37754 CAF BIT8 # Y MARK REQUIRED
006906,000304: 13,3364 54073 TS MKDEX
006907,000305:
006908,000306: 13,3365 37752 CAF BIT10 # LOOK AT X MARK
006909,000307: 13,3366 70373 MASK MARKSTAT
006910,000308: 13,3367 10000 CCS A
006911,000309: 13,3370 03373 TC MKJOB
006912,000310: 13,3371 37755 CAF BIT7 # X MARK REQUIRED
006913,000311: 13,3372 26073 ADS MKDEX
006914,000312:
006915,000313: 13,3373 35653 MKJOB CAF PRIO32
006916,000314: 13,3374 05505 TC NOVAC # ENTER JOB TO PASTE VERB
006917,000315: 13,3375 E3,1467 EBANK= AOTAZ
006918,000316: 13,3375 03403 26063 2CADR CHANGVB
006919,000317:
006920,000318: 13,3377 30073 CA RUPTREG4
006921,000319: 13,3400 50064 INDEX LOCCTR
006922,000320: 13,3401 54144 TS MPAC
006923,000321: 13,3402 05733 TC RESUME
006924,000322:
006925,000323: 13,3403 10144 CHANGVB CCS MPAC
006926,000324: 13,3404 03407 TC SHOWVB
006927,000325: 13,3405 33472 CAF VB21N30E
006928,000326: 13,3406 03411 TC SHOWVB +2
006929,000327: 13,3407 33473 SHOWVB CAF VB50
006930,000328: 13,3410 60144 AD MPAC
006931,000329: 13,3411 54113 TS NVTEMP
006932,000330: 13,3412 30327 CA CADRSTOR # NVSUB CLOBBERS THIS-USE LOC AS TEMP
006933,000331: 13,3413 54154 TS LOC
006934,000332: 13,3414 04447 TC NVSUB +3
006935,000333: 13,3415 05100 VB51 OCT 5100
006936,000334: 13,3416 30154 CA LOC # RESTORE CADRSTOR
006937,000335: 13,3417 54327 TS CADRSTOR
006938,000336: 13,3420 05567 TC ENDOFJOB
006939,000337:
006940,000338: 13,3421 37746 MKREJ CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
006941,000339: 13,3422 70373 MASK MARKSTAT
006942,000340: 13,3423 10000 CCS A
006943,000341: 13,3424 03432 TC REJIN # IN-FLIGHT
006944,000342: 13,3425 37752 CAF BIT10 # NON-FLIGHT, SEE IF X MARK MADE
006945,000343: 13,3426 70373 MASK MARKSTAT
006946,000344: 13,3427 10000 CCS A
006947,000345: 13,3430 03454 TC REJECT2 # XMARK MADE-REJECT IT
006948,000346: 13,3431 03436 TC REJALARM # X MARK NOT MADE-ALARM-NO MARKS TO REJ
006949,000347:
![]() |
Page 167 |
006951,000349: 13,3432 35632 REJIN CAF PRIO3 # WERE IN-FLIGHT MARKS MADE
006952,000350: 13,3433 70373 MASK MARKSTAT
006953,000351: 13,3434 10000 CCS A
006954,000352: 13,3435 03441 TC REJECT # MARKS MADE-REJECT ONE
006955,000353: 13,3436 04755 REJALARM TC ALARM # NO MARKS MADE TO REJECT-GET MARKS
006956,000354: 13,3437 00115 OCT 115
006957,000355: 13,3440 03454 TC REJECT2
006958,000356: 13,3441 47747 REJECT CS BIT13 # SHOW MKREJECT AND SEE MARK MADE
006959,000357: 13,3442 70373 MASK MARKSTAT # SINCE LAST REJECT
006960,000358: 13,3443 67747 AD BIT13
006961,000359: 13,3444 56373 XCH MARKSTAT
006962,000360: 13,3445 77747 MASK BIT13
006963,000361: 13,3446 10000 CCS A
006964,000362: 13,3447 03454 TC REJECT2 # ANOTHER REJECT
006965,000363: 13,3450 40374 CS XYMARK # MARK MADE SINCE LAST REJECT-REJECT IT
006966,000364: 13,3451 70373 MASK MARKSTAT
006967,000365: 13,3452 54373 TS MARKSTAT
006968,000366: 13,3453 03355 TC REMARK # GO REQUEST MARKS
006969,000367:
006970,000368: 13,3454 45632 REJECT2 CS PRIO3 # NO MARKS SINCE LAST REJECT SO SET
006971,000369: 13,3455 70373 MASK MARKSTAT # MARKSTAT TO WANT X AND Y MARKS
006972,000370: 13,3456 56373 XCH MARKSTAT
006973,000371: 13,3457 77746 MASK BIT14 # IN-FLIGHT OR NON-FLIGHT
006974,000372: 13,3460 10000 CCS A
006975,000373: 13,3461 03355 TC REMARK # IN-FLIGHT, GO GET MARKS
006976,000374: 13,3462 37751 CAF BIT11 # NON-FLIGHT, STILL REQUEST X MARK ONLY
006977,000375: 13,3463 26373 ADS MARKSTAT
006978,000376: 13,3464 03355 TC REMARK # GO GET X MARK
006979,000377:
006980,000378: 13,3465 6311 OCT3 EQUALS THREE
006981,000379: 13,3465 00034 OCT34 OCT 00034
006982,000380: 13,3466 00140 OCT140 OCT 00140
006983,000381: 13,3467 02143 V21N43E OCT 2143
006984,000382: 13,3470 02442 V24N42E OCT 2442
006985,000383: 13,3471 05300 VB53 OCT 5300
006986,000384: 13,3472 0073 MKDEX EQUALS RUPTREG4
006987,000385: 13,3472 0374 DETCODE EQUALS XYMARK
006988,000386: 13,3472 0000002 BASVAC EQUALS Q
006989,000387: 13,3472 02130 VB21N30E OCT 2130
006990,000388: 13,3473 05000 VB50 OCT 5000
006991,000389:
End of include-file AOTMARK.agc. Parent file is MAIN.agc