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