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