Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
006230,000002: ## Copyright: Public domain.
006231,000003: ## Filename: AOTMARK.agc
006232,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
006233,000005: ## It is part of an early development version of the software
006234,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
006235,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
006236,000008: ## upon which Don Eyles's offline development program Shepatin
006237,000009: ## was based; the listing herein transcribed was actually for
006238,000010: ## the equivalent revision 0 of Shepatin.
006239,000011: ## This file is intended to be a faithful transcription, except
006240,000012: ## that the code format has been changed to conform to the
006241,000013: ## requirements of the yaYUL assembler rather than the
006242,000014: ## original YUL assembler.
006243,000015: ## Reference: pp. 146-154
006244,000016: ## Assembler: yaYUL
006245,000017: ## Contact: Ron Burkey <info@sandroid.org>.
006246,000018: ## Website: www.ibiblio.org/apollo/index.html
006247,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
006248,000020: ## 2017-05-30 RSB Transcribed.
006249,000021: ## 2017-06-21 RSB Proofed using octopus/ProoferComments.
006250,000022:
![]() |
Page 146 |
006252,000024: 13,3017 BANK 13
006253,000025: 13,3017 E3,1467 EBANK= AOTAZ
006254,000026: 13,3017 00004 AOTMARK INHINT
006255,000027: 13,3020 54071 TS RUPTREG2 # BIT14=INFLIGHT 0=NONFLIGHT
006256,000028: 13,3021 10373 CCS MARKSTAT # ARE MARKS BUTTONS IN USE
006257,000029: 13,3022 03024 TC +2 # MARKS BUTTONS NOT AVAILABLE
006258,000030: 13,3023 03027 TC MKVAC # FIND A VAC AREA
006259,000031: 13,3024 04744 TC ALARM
006260,000032: 13,3025 00105 OCT 00105
006261,000033: 13,3026 05605 TC ENDOFJOB
006262,000034:
006263,000035: 13,3027 10431 MKVAC CCS VAC1USE
006264,000036: 13,3030 03043 TC MKVACFND
006265,000037: 13,3031 10505 CCS VAC2USE
006266,000038:
006267,000039: 13,3032 03043 TC MKVACFND
006268,000040: 13,3033 10561 CCS VAC3USE
006269,000041: 13,3034 03043 TC MKVACFND
006270,000042: 13,3035 10635 CCS VAC4USE
006271,000043: 13,3036 03043 TC MKVACFND
006272,000044: 13,3037 10711 CCS VAC5USE
006273,000045: 13,3040 03043 TC MKVACFND
006274,000046: 13,3041 06000 TC ABORT # VAC AREAS OCCUPIED
006275,000047: 13,3042 01207 OCT 01207
006276,000048:
006277,000049: 13,3043 67754 MKVACFND AD TWO
006278,000050: 13,3044 54373 TS MARKSTAT
006279,000051: 13,3045 37761 CAF ZERO
006280,000052: 13,3046 54374 TS XYMARK # INITIALIZE MARK ID REGISTER
006281,000053: 13,3047 50373 INDEX MARKSTAT
006282,000054: 13,3050 53777 TS 0 -1 # SHOW VAC OCCUPIED
006283,000055:
006284,000056: 13,3051 30071 CA RUPTREG2
006285,000057: 13,3052 26373 ADS MARKSTAT
006286,000058:
006287,000059: 13,3053 35671 CAF PRIO32
006288,000060: 13,3054 05523 TC NOVAC
006289,000061: 13,3055 E3,1467 EBANK= AOTAZ
006290,000062:
006291,000063: 13,3055 03066 26003 2CADR GETMKS
006292,000064:
006293,000065: 13,3057 02043 TC MODEEXIT
006294,000066:
006295,000067: 13,3060 37761 MKRELEAS CAF ZERO
006296,000068: 13,3061 56373 XCH MARKSTAT # SET MARKSTAT ZERO
006297,000069: 13,3062 10000 CCS A
006298,000070: 13,3063 50000 INDEX A
006299,000071: 13,3064 54000 TS 0 # SHOW VAC AREA AVAILABLE
006300,000072: 13,3065 05237 TC SWRETURN
006301,000073:
![]() |
Page 147 |
006303,000075: 13,3066 37761 GETMKS CAF ZERO
006304,000076: 13,3067 54374 TS XYMARK
006305,000077: 13,3070 37740 CAF BIT14 # FIND IF IN-FLIGHT OR NON-FLIGHT
006306,000078: 13,3071 70373 MASK MARKSTAT
006307,000079: 13,3072 10000 CCS A
006308,000080: 13,3073 03102 TC MKVB53 # IN-FLIGHT
006309,000081: 13,3074 47743 CS BIT11 # NON-FLIGHT, SET Y MARK =1
006310,000082: 13,3075 70373 MASK MARKSTAT
006311,000083: 13,3076 67743 AD BIT11
006312,000084: 13,3077 54373 TS MARKSTAT
006313,000085: 13,3100 33427 CAF VB51 # REQUEST X MARK
006314,000086: 13,3101 03103 TC +2
006315,000087: 13,3102 33503 MKVB53 CAF VB53 # REQUEST X AND Y MARKS
006316,000088: 13,3103 04646 TC NVSBWAIT
006317,000089: 13,3104 04611 TC FLASHON
006318,000090: 13,3105 04464 TC ENDIDLE
006319,000091: 13,3106 03067 TC GETMKS +1
006320,000092: 13,3107 03067 TC GETMKS +1
006321,000093:
006322,000094: 13,3110 37744 MKCHEK CAF BIT10 # WAS X MARK MADE
006323,000095: 13,3111 70373 MASK MARKSTAT
006324,000096: 13,3112 10000 CCS A
006325,000097: 13,3113 03115 TC +2 # X MARK MADE-LOOK AT Y MARK
006326,000098: 13,3114 03121 TC MKALARM
006327,000099: 13,3115 37743 CAF BIT11
006328,000100: 13,3116 70373 MASK MARKSTAT
006329,000101: 13,3117 10000 CCS A
006330,000102: 13,3120 03127 TC GETDET # BOTH MARKS MADE-SHOW ACCEPT-GET DETENT
006331,000103:
006332,000104: 13,3121 04744 MKALARM TC ALARM # IF EITHER MARK IS MISSING AFTER ENTER
006333,000105: 13,3122 00111 OCT 111
006334,000106: 13,3123 45661 CS PRIO17 # SET BITS 10,11,12,13 TO ZERO IN MARKSTAT
006335,000107: 13,3124 70373 MASK MARKSTAT
006336,000108: 13,3125 54373 TS MARKSTAT
006337,000109: 13,3126 03066 TC GETMKS # GETMKS AGAIN
006338,000110:
006339,000111: 13,3127 47742 GETDET CS BIT12
006340,000112: 13,3130 70373 MASK MARKSTAT
006341,000113: 13,3131 67742 AD BIT12 # SET BIT12=1 TO SHOW MARKS ACCEPTED
006342,000114: 13,3132 54373 TS MARKSTAT
006343,000115: 13,3133 33501 DETVB21 CAF V21N43E
006344,000116: 13,3134 04646 TC NVSBWAIT
006345,000117: 13,3135 04464 TC ENDIDLE
006346,000118:
006347,000119: 13,3136 03133 TC DETVB21
006348,000120: 13,3137 03133 TC DETVB21
006349,000121:
006350,000122: 13,3140 46301 CS OCT3
006351,000123: 13,3141 70374 MASK DETCODE
006352,000124: 13,3142 10000 CCS A
006353,000125: 13,3143 03133 TC DETVB21 # BAD CODE, REQUEST AGAIN
006354,000126:
![]() |
Page 148 |
006356,000128: 13,3144 03147 TC +3 # LOOKS GOOD BUT COULD BE ZERO
006357,000129: 13,3145 03146 TC +1
006358,000130:
006359,000131: 13,3146 03133 TC DETVB21
006360,000132: 13,3147 36301 CAF OCT3
006361,000133: 13,3150 70374 MASK DETCODE # SEE IF ZERO
006362,000134: 13,3151 10000 CCS A
006363,000135: 13,3152 03154 TC +2 # GOOD CODE-STORE ANGLES
006364,000136: 13,3153 03133 TC DETVB21 # ZERO-BAD CODE-REQUEST AGAIN
006365,000137:
006366,000138: 13,3154 35360 CAF LOW9
006367,000139: 13,3155 70373 MASK MARKSTAT
006368,000140: 13,3156 54002 TS BASVAC # STORE VAC AREA ADDRESS
006369,000141: 13,3157 50374 INDEX DETCODE
006370,000142: 13,3160 31471 CA AOTEL -1
006371,000143: 13,3161 50002 INDEX BASVAC
006372,000144: 13,3162 54011 TS 9D # STORE ELV ANGLE IN VAC +9
006373,000145: 13,3163 50374 INDEX DETCODE
006374,000146: 13,3164 31466 CA AOTAZ -1
006375,000147: 13,3165 50002 INDEX BASVAC
006376,000148: 13,3166 54010 TS 8D # STORE AZIMUTH IN VAC +8
006377,000149:
006378,000150: 13,3167 31470 CA AOTAZ +1 # COMPENSATION FOR THE APPARENT TILT OF
006379,000151: 13,3170 00006 EXTEND # AOT FIELD OF VIEW IN THE LEFT AND RIGHT
006380,000152: 13,3171 50374 INDEX DETCODE # DETENTS IS STORED IN LOC 10D OF VAC
006381,000153: 13,3172 21466 MSU AOTAZ -1 # IN ONES COMPLEMENT
006382,000154:
006383,000155: 13,3173 50002 INDEX BASVAC
006384,000156: 13,3174 54012 TS 10D # SINGLE PREC. TILT COMPENSATION ANGLE
006385,000157:
006386,000158: 13,3175 37740 CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
006387,000159: 13,3176 70373 MASK MARKSTAT
006388,000160: 13,3177 10000 CCS A
006389,000161: 13,3200 03220 TC MKOUT # IN-FLIGHT, NO MORE DATA NEEDED
006390,000162: 13,3201 03202 TC ROTVB24 # NON-FLIGHT, GET ROTATION ANGLES
006391,000163:
006392,000164: 13,3202 33502 ROTVB24 CAF V24N42E # REQUEST RETICLE ROTATION ANGLES
006393,000165: 13,3203 04646 TC NVSBWAIT
006394,000166: 13,3204 04464 TC ENDIDLE
006395,000167: 13,3205 03202 TC ROTVB24
006396,000168: 13,3206 03202 TC ROTVB24
006397,000169:
006398,000170: 13,3207 35360 CAF LOW9
006399,000171: 13,3210 70373 MASK MARKSTAT
006400,000172: 13,3211 54002 TS BASVAC
006401,000173: 13,3212 30342 CA DSPTEM2 # YROT
006402,000174: 13,3213 50002 INDEX BASVAC
006403,000175: 13,3214 54003 TS 3 # STORE Y RETICLE ROT ANGLE IN VAC +3
006404,000176: 13,3215 30343 CA DSPTEM2 +1 # SROT
006405,000177: 13,3216 50002 INDEX BASVAC
006406,000178:
006407,000179: 13,3217 54005 TS 5 # STORE SPIRAL ROT ANGLE VAC +5
006408,000180:
![]() |
Page 149 |
006410,000182: 13,3220 35360 MKOUT CAF LOW9
006411,000183: 13,3221 70373 MASK MARKSTAT
006412,000184: 13,3222 54373 TS MARKSTAT # SET HI5 ZERO
006413,000185:
006414,000186: 13,3223 00004 INHINT
006415,000187: 13,3224 37755 CAF ONE
006416,000188: 13,3225 05701 TC WAITLIST
006417,000189: 13,3226 E3,1467 EBANK= AOTAZ
006418,000190:
006419,000191: 13,3226 03231 26003 2CADR ENDMARKS
006420,000192:
006421,000193: 13,3230 05605 TC ENDOFJOB
006422,000194:
006423,000195: 13,3231 37755 ENDMARKS CAF ONE
006424,000196: 13,3232 12731 TCF GOODEND
006425,000197:
![]() |
Page 150 |
006427,000199: 13,3233 54016 MARKRUPT TS BANKRUPT
006428,000200: 13,3234 30033 CA CDUY # STORE CDU DATA AND TIME IN TEMP
006429,000201: 13,3235 54065 TS RUPTSTOR +2
006430,000202: 13,3236 30034 CA CDUZ
006431,000203: 13,3237 54067 TS RUPTSTOR +4
006432,000204: 13,3240 30032 CA CDUX
006433,000205: 13,3241 54071 TS RUPTSTOR +6
006434,000206: 13,3242 00006 EXTEND
006435,000207: 13,3243 30025 DCA TIME2
006436,000208: 13,3244 52064 DXCH RUPTSTOR
006437,000209:
006438,000210: 13,3245 56002 XCH Q
006439,000211: 13,3246 54012 TS QRUPT
006440,000212:
006441,000213: 13,3247 33477 CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
006442,000214: 13,3250 00006 EXTEND
006443,000215: 13,3251 02016 RAND NAVKEYIN
006444,000216: 13,3252 10000 CCS A
006445,000217: 13,3253 03255 TC +2 # ITS A LIVE ONE-CHECK FOR ACCEPT
006446,000218: 13,3254 03305 TC SOMEKEY # SOME OTHER KEY
006447,000219:
006448,000220: 13,3255 37742 CAF BIT12 # HAVE MARKS BEEN ACCEPTED
006449,000221: 13,3256 70373 MASK MARKSTAT
006450,000222: 13,3257 10000 CCS A
006451,000223: 13,3260 05751 TC RESUME # MARKS MADE AND ACCEPTED - DO NOTHING
006452,000224:
006453,000225: 13,3261 10373 CCS MARKSTAT # ARE MARKS BEING ACCEPTED
006454,000226: 13,3262 03266 TC FINDKEY
006455,000227: 13,3263 04744 TC ALARM # MARKS NOT BEING ACCEPTED
006456,000228: 13,3264 00112 OCT 112
006457,000229: 13,3265 05751 TC RESUME
006458,000230:
006459,000231: 13,3266 37751 FINDKEY CAF BIT5
006460,000232: 13,3267 00006 EXTEND
006461,000233: 13,3270 02016 RAND NAVKEYIN # CHANNEL 16
006462,000234: 13,3271 10000 CCS A
006463,000235: 13,3272 03433 TC MKREJ # ITS A MARK REJECT
006464,000236: 13,3273 37752 CAF BIT4
006465,000237:
006466,000238: 13,3274 00006 EXTEND
006467,000239: 13,3275 02016 RAND NAVKEYIN
006468,000240: 13,3276 10000 CCS A
006469,000241: 13,3277 03323 TC YMKRUPT # ITS A Y MARK
006470,000242: 13,3300 37753 CAF BIT3
006471,000243: 13,3301 00006 EXTEND
006472,000244: 13,3302 02016 RAND NAVKEYIN
006473,000245: 13,3303 10000 CCS A
006474,000246: 13,3304 03317 TC XMKRUPT # ITS AN X MARK
006475,000247: 13,3305 33500 SOMEKEY CAF OCT140 # NOT MARK OR MARK REJECT
006476,000248: 13,3306 00006 EXTEND
006477,000249: 13,3307 02016 RAND NAVKEYIN
006478,000250:
![]() |
Page 151 |
006480,000252: 13,3310 00006 EXTEND
006481,000253: 13,3311 13314 BZF +3 # IF NO INBITS.
006482,000254:
006483,000255: 13,3312 05243 TC POSTJUMP # IF DESCENT BITS.
006484,000256: 13,3313 22714 CADR DESCBITS
006485,000257:
006486,000258: 13,3314 04744 +3 TC ALARM
006487,000259: 13,3315 00113 OCT 113
006488,000260: 13,3316 05751 TC RESUME
006489,000261:
006490,000262: 13,3317 37761 XMKRUPT CAF ZERO
006491,000263: 13,3320 54061 TS ITEMP1
006492,000264: 13,3321 37744 CAF BIT10
006493,000265: 13,3322 03326 TC +4
006494,000266: 13,3323 37755 YMKRUPT CAF ONE
006495,000267: 13,3324 54061 TS ITEMP1
006496,000268: 13,3325 37743 CAF BIT11
006497,000269: 13,3326 54374 TS XYMARK # SET MARK ID
006498,000270:
006499,000271: 13,3327 70373 MASK MARKSTAT
006500,000272: 13,3330 10000 CCS A
006501,000273: 13,3331 03333 TC +2 # MARK MADE BUT NOT DESIRED
006502,000274: 13,3332 03336 TC VACSTOR # MARK DESIRED AND MADE-STORE CDUS
006503,000275: 13,3333 04744 TC ALARM
006504,000276: 13,3334 00114 OCT 114
006505,000277: 13,3335 03367 TC REMARK # RENEW REQUEST
006506,000278:
006507,000279: 13,3336 35360 VACSTOR CAF LOW9 # STORE TIME AND CDUS IN VAC AREA
006508,000280: 13,3337 70373 MASK MARKSTAT
006509,000281: 13,3340 54062 TS ITEMP2
006510,000282: 13,3341 00006 EXTEND
006511,000283: 13,3342 30064 DCA RUPTSTOR
006512,000284: 13,3343 50062 INDEX ITEMP2
006513,000285: 13,3344 52001 DXCH 0 # STORE TIME1 AND TIME2 IN VAC
006514,000286: 13,3345 30062 CA ITEMP2
006515,000287: 13,3346 26061 ADS ITEMP1
006516,000288: 13,3347 30065 CA RUPTSTOR +2
006517,000289: 13,3350 50061 INDEX ITEMP1
006518,000290: 13,3351 54002 TS 2
006519,000291: 13,3352 30067 CA RUPTSTOR +4
006520,000292: 13,3353 50061 INDEX ITEMP1
006521,000293: 13,3354 54004 TS 4
006522,000294:
006523,000295: 13,3355 30071 CA RUPTSTOR +6
006524,000296: 13,3356 50061 INDEX ITEMP1
006525,000297: 13,3357 54006 TS 6
006526,000298:
006527,000299: 13,3360 37741 CAF BIT13
006528,000300: 13,3361 60374 AD XYMARK
006529,000301: 13,3362 40000 COM
006530,000302: 13,3363 70373 MASK MARKSTAT
006531,000303:
![]() |
Page 152 |
006533,000305: 13,3364 60374 AD XYMARK # SET MARK MADE BIT IN MARKSTAT=1
006534,000306: 13,3365 54373 TS MARKSTAT # AND SET BIT13 ZERO TO SHOW MARK
006535,000307:
006536,000308: 13,3366 03367 TC REMARK # MADE BEFORE A REJECT - GO REMARK
006537,000309:
![]() |
Page 153 |
006539,000311: 13,3367 37761 REMARK CAF ZERO
006540,000312: 13,3370 54073 TS MKDEX # MKDEX=0
006541,000313: 13,3371 37743 CAF BIT11 # LOOK A Y MARK
006542,000314: 13,3372 70373 MASK MARKSTAT
006543,000315: 13,3373 10000 CCS A
006544,000316: 13,3374 03377 TC +3 # Y MARK MADE
006545,000317: 13,3375 37746 CAF BIT8 # Y MARK REQUIRED
006546,000318: 13,3376 54073 TS MKDEX
006547,000319:
006548,000320: 13,3377 37744 CAF BIT10 # LOOK AT X MARK
006549,000321: 13,3400 70373 MASK MARKSTAT
006550,000322: 13,3401 10000 CCS A
006551,000323: 13,3402 03405 TC MKJOB
006552,000324: 13,3403 37747 CAF BIT7 # X MARK REQUIRED
006553,000325: 13,3404 26073 ADS MKDEX
006554,000326:
006555,000327: 13,3405 35671 MKJOB CAF PRIO32
006556,000328: 13,3406 05523 TC NOVAC # ENTER JOB TO PASTE VERB
006557,000329: 13,3407 E3,1467 EBANK= AOTAZ
006558,000330: 13,3407 03415 26003 2CADR CHANGVB
006559,000331:
006560,000332: 13,3411 30073 CA RUPTREG4
006561,000333: 13,3412 50064 INDEX LOCCTR
006562,000334: 13,3413 54144 TS MPAC
006563,000335: 13,3414 05751 TC RESUME
006564,000336:
006565,000337: 13,3415 10144 CHANGVB CCS MPAC
006566,000338: 13,3416 03421 TC SHOWVB
006567,000339: 13,3417 33504 CAF VB21N30E
006568,000340: 13,3420 03423 TC SHOWVB +2
006569,000341: 13,3421 33505 SHOWVB CAF VB50
006570,000342: 13,3422 60144 AD MPAC
006571,000343:
006572,000344: 13,3423 54113 TS NVTEMP
006573,000345: 13,3424 30327 CA CADRSTOR # NVSUB CLOBBERS THIS-USE LOC AS TEMP
006574,000346: 13,3425 54154 TS LOC
006575,000347: 13,3426 04436 TC NVSUB +3
006576,000348: 13,3427 05100 VB51 OCT 5100
006577,000349: 13,3430 30154 CA LOC # RESTORE CADRSTOR
006578,000350: 13,3431 54327 TS CADRSTOR
006579,000351: 13,3432 05605 TC ENDOFJOB
006580,000352:
006581,000353: 13,3433 37740 MKREJ CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
006582,000354: 13,3434 70373 MASK MARKSTAT
006583,000355: 13,3435 10000 CCS A
006584,000356: 13,3436 03444 TC REJIN # IN-FLIGHT
006585,000357: 13,3437 37744 CAF BIT10 # NON-FLIGHT, SEE IF X MARK MADE
006586,000358: 13,3440 70373 MASK MARKSTAT
006587,000359: 13,3441 10000 CCS A
006588,000360: 13,3442 03466 TC REJECT2 # XMARK MADE-REJECT IT
006589,000361: 13,3443 03450 TC REJALARM # X MARK NOT MADE-ALARM-NO MARKS TO REJ
006590,000362:
![]() |
Page 154 |
006592,000364: 13,3444 35650 REJIN CAF PRIO3 # WERE IN-FLIGHT MARKS MADE
006593,000365: 13,3445 70373 MASK MARKSTAT
006594,000366: 13,3446 10000 CCS A
006595,000367: 13,3447 03453 TC REJECT # MARKS MADE-REJECT ONE
006596,000368: 13,3450 04744 REJALARM TC ALARM # NO MARKS MADE TO REJECT-GET MARKS
006597,000369: 13,3451 00115 OCT 115
006598,000370: 13,3452 03466 TC REJECT2
006599,000371: 13,3453 47741 REJECT CS BIT13 # SHOW MKREJECT AND SEE MARK MADE
006600,000372: 13,3454 70373 MASK MARKSTAT # SINCE LAST REJECT
006601,000373: 13,3455 67741 AD BIT13
006602,000374: 13,3456 56373 XCH MARKSTAT
006603,000375: 13,3457 77741 MASK BIT13
006604,000376: 13,3460 10000 CCS A
006605,000377: 13,3461 03466 TC REJECT2 # ANOTHER REJECT
006606,000378:
006607,000379: 13,3462 40374 CS XYMARK # MARK MADE SINCE LAST REJECT-REJECT IT
006608,000380: 13,3463 70373 MASK MARKSTAT
006609,000381: 13,3464 54373 TS MARKSTAT
006610,000382: 13,3465 03367 TC REMARK # GO REQUEST MARKS
006611,000383:
006612,000384: 13,3466 45650 REJECT2 CS PRIO3 # NO MARKS SINCE LAST REJECT SO SET
006613,000385: 13,3467 70373 MASK MARKSTAT # MARKSTAT TO WANT X AND Y MARKS
006614,000386: 13,3470 56373 XCH MARKSTAT
006615,000387: 13,3471 77740 MASK BIT14 # IN-FLIGHT OR NON-FLIGHT
006616,000388: 13,3472 10000 CCS A
006617,000389: 13,3473 03367 TC REMARK # IN-FLIGHT, GO GET MARKS
006618,000390: 13,3474 37743 CAF BIT11 # NON-FLIGHT, STILL REQUEST X MARK ONLY
006619,000391: 13,3475 26373 ADS MARKSTAT
006620,000392: 13,3476 03367 TC REMARK # GO GET X MARK
006621,000393:
006622,000394: 13,3477 6301 OCT3 EQUALS THREE
006623,000395: 13,3477 00034 OCT34 OCT 00034
006624,000396: 13,3500 00140 OCT140 OCT 00140
006625,000397: 13,3501 02143 V21N43E OCT 2143
006626,000398: 13,3502 02442 V24N42E OCT 2442
006627,000399: 13,3503 05300 VB53 OCT 5300
006628,000400: 13,3504 0073 MKDEX EQUALS RUPTREG4
006629,000401: 13,3504 0374 DETCODE EQUALS XYMARK
006630,000402:
006631,000403: 13,3504 0000002 BASVAC EQUALS Q
006632,000404: 13,3504 02130 VB21N30E OCT 2130
006633,000405: 13,3505 05000 VB50 OCT 5000
006634,000406:
End of include-file AOTMARK.agc. Parent file is MAIN.agc