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