Source Code
![]() |
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966Note that the date is the date of the printout, not the date of the program revision. |
008423,000002: ## Copyright: Public domain.
008424,000003: ## Filename: AOTMARK.agc
008425,000004: ## Purpose: Part of the source code for Aurora (revision 12).
008426,000005: ## Assembler: yaYUL
008427,000006: ## Contact: Ron Burkey <info@sandroid.org>.
008428,000007: ## Website: https://www.ibiblio.org/apollo.
008429,000008: ## Pages: 218-226
008430,000009: ## Mod history: 2016-09-20 JL Created.
008431,000010: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
008432,000011: ## but no errors found.
008433,000012:
008434,000013: ## This source code has been transcribed or otherwise adapted from
008435,000014: ## digitized images of a hardcopy from the private collection of
008436,000015: ## Don Eyles. The digitization was performed by archive.org.
008437,000016:
008438,000017: ## Notations on the hardcopy document read, in part:
008439,000018:
008440,000019: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
008441,000020: ## NOV 10, 1966
008442,000021:
008443,000022: ## [Note that this is the date the hardcopy was made, not the
008444,000023: ## date of the program revision or the assembly.]
008445,000024:
008446,000025: ## The scan images (with suitable reduction in storage size and consequent
008447,000026: ## reduction in image quality) are available online at
008448,000027: ## https://www.ibiblio.org/apollo.
008449,000028: ## The original high-quality digital images are available at archive.org:
008450,000029: ## https://archive.org/details/aurora00dapg
008451,000030:
![]() |
Page 218 |
008453,000032: 13,2753 SETLOC ENDIMODS
008454,000033:
008455,000034: 13,2753 E3,1463 EBANK= AOTAZ
008456,000035: 13,2753 00004 AOTMARK INHINT
008457,000036: 13,2754 54075 TS RUPTREG2 # BIT14=INFLIGHT 0=NONFLIGHT
008458,000037: 13,2755 10374 CCS MARKSTAT # ARE MARKS BUTTONS IN USE
008459,000038: 13,2756 02760 TC +2 # MARKS BUTTONS NOT AVAILABLE
008460,000039: 13,2757 02763 TC MKVAC # FIND A VAC AREA
008461,000040: 13,2760 05413 TC ALARM
008462,000041: 13,2761 00105 OCT 00105
008463,000042: 13,2762 04440 TC ENDOFJOB
008464,000043:
008465,000044: 13,2763 10431 MKVAC CCS VAC1USE
008466,000045: 13,2764 02777 TC MKVACFND
008467,000046: 13,2765 10505 CCS VAC2USE
008468,000047: 13,2766 02777 TC MKVACFND
008469,000048: 13,2767 10561 CCS VAC3USE
008470,000049: 13,2770 02777 TC MKVACFND
008471,000050: 13,2771 10635 CCS VAC4USE
008472,000051: 13,2772 02777 TC MKVACFND
008473,000052: 13,2773 10711 CCS VAC5USE
008474,000053: 13,2774 02777 TC MKVACFND
008475,000054: 13,2775 05446 TC ABORT # VAC AREAS OCCUPIED
008476,000055: 13,2776 01207 OCT 01207
008477,000056:
008478,000057: 13,2777 67656 MKVACFND AD TWO
008479,000058: 13,3000 54374 TS MARKSTAT
008480,000059: 13,3001 37665 CAF ZERO
008481,000060: 13,3002 54375 TS XYMARK # INITIALIZE MARK ID REGISTER
008482,000061: 13,3003 50374 INDEX MARKSTAT
008483,000062: 13,3004 53777 TS 0 -1 # SHOW VAC OCCUPIED
008484,000063:
008485,000064: 13,3005 30075 CA RUPTREG2
008486,000065: 13,3006 26374 ADS MARKSTAT
008487,000066:
008488,000067: 13,3007 34530 CAF PRIO32
008489,000068: 13,3010 04363 TC NOVAC
008490,000069: 13,3011 03022 26003 2CADR GETMKS
008491,000070:
008492,000071: 13,3013 02033 TC MODEEXIT
008493,000072:
008494,000073: 13,3014 37665 MKRELEAS CAF ZERO
008495,000074: 13,3015 56374 XCH MARKSTAT # SET MARKSTAT ZERO
008496,000075: 13,3016 10000 CCS A
008497,000076: 13,3017 50000 INDEX A
008498,000077: 13,3020 54000 TS 0 # SHOW VAC AREA AVAILABLE
008499,000078: 13,3021 04076 TC SWRETURN
![]() |
Page 219 |
008501,000080: 13,3022 37665 GETMKS CAF ZERO
008502,000081: 13,3023 54375 TS XYMARK
008503,000082: 13,3024 37642 CAF BIT14 # FIND IF IN-FLIGHT OR NON-FLIGHT
008504,000083: 13,3025 70374 MASK MARKSTAT
008505,000084: 13,3026 10000 CCS A
008506,000085: 13,3027 03036 TC MKVB53 # IN-FLIGHT
008507,000086: 13,3030 47645 CS BIT11 # NON-FLIGHT, SET Y MARK =1
008508,000087: 13,3031 70374 MASK MARKSTAT
008509,000088: 13,3032 67645 AD BIT11
008510,000089: 13,3033 54374 TS MARKSTAT
008511,000090: 13,3034 33355 CAF VB51 # REQUEST X MARK
008512,000091: 13,3035 03037 TC +2
008513,000092: 13,3036 33431 MKVB53 CAF VB53 # REQUEST X AND Y MARKS
008514,000093: 13,3037 05332 TC NVSBWAIT
008515,000094: 13,3040 05274 TC FLASHON
008516,000095: 13,3041 05140 TC ENDIDLE
008517,000096: 13,3042 03023 TC GETMKS +1
008518,000097: 13,3043 03023 TC GETMKS +1
008519,000098:
008520,000099: 13,3044 37646 MKCHEK CAF BIT10 # WAS X MARK MADE
008521,000100: 13,3045 70374 MASK MARKSTAT
008522,000101: 13,3046 10000 CCS A
008523,000102: 13,3047 03051 TC +2 # X MARK MADE-LOOK AT Y MARK
008524,000103: 13,3050 03055 TC MKALARM
008525,000104: 13,3051 37645 CAF BIT11
008526,000105: 13,3052 70374 MASK MARKSTAT
008527,000106: 13,3053 10000 CCS A
008528,000107: 13,3054 03063 TC GETDET # BOTH MARKS MADE-SHOW ACCEPT-GET DETENT
008529,000108:
008530,000109: 13,3055 05413 MKALARM TC ALARM # IF EITHER MARK IS MISSING AFTER ENTER
008531,000110: 13,3056 00111 OCT 111
008532,000111: 13,3057 44516 CS PRIO17 # SET BITS 10,11,12,13 TO ZERO IN MARKSTAT
008533,000112: 13,3060 70374 MASK MARKSTAT
008534,000113: 13,3061 54374 TS MARKSTAT
008535,000114: 13,3062 03022 TC GETMKS # GETMKS AGAIN
008536,000115:
008537,000116: 13,3063 47644 GETDET CS BIT12
008538,000117: 13,3064 70374 MASK MARKSTAT
008539,000118: 13,3065 67644 AD BIT12 # SET BIT12=1 TO SHOW MARKS ACCEPTED
008540,000119: 13,3066 54374 TS MARKSTAT
008541,000120: 13,3067 33427 DETVB21 CAF V21N43E
008542,000121: 13,3070 05332 TC NVSBWAIT
008543,000122: 13,3071 05140 TC ENDIDLE
008544,000123: 13,3072 03067 TC DETVB21
008545,000124: 13,3073 03067 TC DETVB21
008546,000125:
008547,000126: 13,3074 46165 CS OCT3
008548,000127: 13,3075 70375 MASK DETCODE
008549,000128: 13,3076 10000 CCS A
008550,000129: 13,3077 03067 TC DETVB21 # BAD CODE, REQUEST AGAIN
![]() |
Page 220 |
008552,000131: 13,3100 03103 TC +3 # LOOKS GOOD BUT COULD BE ZERO
008553,000132: 13,3101 03102 TC +1
008554,000133: 13,3102 03067 TC DETVB21
008555,000134: 13,3103 36165 CAF OCT3
008556,000135: 13,3104 70375 MASK DETCODE # SEE IF ZERO
008557,000136: 13,3105 10000 CCS A
008558,000137: 13,3106 03110 TC +2 # GOOD CODE-STORE ANGLES
008559,000138: 13,3107 03067 TC DETVB21 # ZERO-BAD CODE-REQUEST AGAIN
008560,000139:
008561,000140: 13,3110 37672 CAF LOW9
008562,000141: 13,3111 70374 MASK MARKSTAT
008563,000142: 13,3112 54002 TS BASVAC # STORE VAC AREA ADDRESS
008564,000143: 13,3113 50375 INDEX DETCODE
008565,000144: 13,3114 31465 CA AOTEL -1
008566,000145: 13,3115 50002 INDEX BASVAC
008567,000146: 13,3116 54011 TS 9D # STORE ELV ANGLE IN VAC +9
008568,000147: 13,3117 50375 INDEX DETCODE
008569,000148: 13,3120 31462 CA AOTAZ -1
008570,000149: 13,3121 50002 INDEX BASVAC
008571,000150: 13,3122 54010 TS 8D # STORE AZIMUTH IN VAC +8
008572,000151:
008573,000152: 13,3123 37642 CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
008574,000153: 13,3124 70374 MASK MARKSTAT
008575,000154: 13,3125 10000 CCS A
008576,000155: 13,3126 03146 TC MKOUT # IN-FLIGHT, NO MORE DATA NEEDED
008577,000156: 13,3127 03130 TC ROTVB24 # NON-FLIGHT, GET ROTATION ANGLES
008578,000157:
008579,000158: 13,3130 33430 ROTVB24 CAF V24N42E # REQUEST RETICLE ROTATION ANGLES
008580,000159: 13,3131 05332 TC NVSBWAIT
008581,000160: 13,3132 05140 TC ENDIDLE
008582,000161: 13,3133 03130 TC ROTVB24
008583,000162: 13,3134 03130 TC ROTVB24
008584,000163:
008585,000164: 13,3135 37672 CAF LOW9
008586,000165: 13,3136 70374 MASK MARKSTAT
008587,000166: 13,3137 54002 TS BASVAC
008588,000167: 13,3140 30336 CA DSPTEM2 # YROT
008589,000168: 13,3141 50002 INDEX BASVAC
008590,000169: 13,3142 54003 TS 3 # STORE Y RETICLE ROT ANGLE IN VAC +3
008591,000170: 13,3143 30337 CA DSPTEM2 +1 # SROT
008592,000171: 13,3144 50002 INDEX BASVAC
008593,000172: 13,3145 54005 TS 5 # STORE SPIRAL ROT ANGLE VAC +5
008594,000173:
008595,000174: 13,3146 37672 MKOUT CAF LOW9
008596,000175: 13,3147 70374 MASK MARKSTAT
008597,000176: 13,3150 54374 TS MARKSTAT # SET HI5 ZERO
008598,000177:
008599,000178: 13,3151 00004 INHINT
008600,000179: 13,3152 37657 CAF ONE
008601,000180: 13,3153 04536 TC WAITLIST
![]() |
Page 221 |
008603,000182: 13,3154 03157 26003 2CADR ENDMARKS
008604,000183: 13,3156 04440 TC ENDOFJOB
008605,000184:
008606,000185: 13,3157 37657 ENDMARKS CAF ONE
008607,000186: 13,3160 12667 TCF GOODEND
![]() |
Page 222 |
008609,000188: 13,3161 54016 MARKRUPT TS BANKRUPT
008610,000189: 13,3162 30033 CA CDUY # STORE CDU DATA AND TIME IN TEMP
008611,000190: 13,3163 54072 TS RUPTSTOR +2
008612,000191: 13,3164 30034 CA CDUZ
008613,000192: 13,3165 54074 TS RUPTSTOR +4
008614,000193: 13,3166 30032 CA CDUX
008615,000194: 13,3167 54076 TS RUPTSTOR +6
008616,000195: 13,3170 00006 EXTEND
008617,000196: 13,3171 30025 DCA TIME2
008618,000197: 13,3172 52071 DXCH RUPTSTOR
008619,000198:
008620,000199: 13,3173 56002 XCH Q
008621,000200: 13,3174 54012 TS QRUPT
008622,000201:
008623,000202: 13,3175 33425 CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
008624,000203: 13,3176 00006 EXTEND
008625,000204: 13,3177 02016 RAND NAVKEYIN
008626,000205: 13,3200 10000 CCS A
008627,000206: 13,3201 03203 TC +2 # ITS A LIVE ONE-CHECK FOR ACCEPT
008628,000207: 13,3202 03233 TC SOMEKEY # SOME OTHER KEY
008629,000208:
008630,000209: 13,3203 37644 CAF BIT12 # HAVE MARKS BEEN ACCEPTED
008631,000210: 13,3204 70374 MASK MARKSTAT
008632,000211: 13,3205 10000 CCS A
008633,000212: 13,3206 04606 TC RESUME # MARKS MADE AND ACCEPTED - DO NOTHING
008634,000213:
008635,000214: 13,3207 10374 CCS MARKSTAT # ARE MARKS BEING ACCEPTED
008636,000215: 13,3210 03214 TC FINDKEY
008637,000216: 13,3211 05413 TC ALARM # MARKS NOT BEING ACCEPTED
008638,000217: 13,3212 00112 OCT 112
008639,000218: 13,3213 04606 TC RESUME
008640,000219:
008641,000220: 13,3214 37653 FINDKEY CAF BIT5
008642,000221: 13,3215 00006 EXTEND
008643,000222: 13,3216 02016 RAND NAVKEYIN # CHANNEL 16
008644,000223: 13,3217 10000 CCS A
008645,000224: 13,3220 03361 TC MKREJ # ITS A MARK REJECT
008646,000225: 13,3221 37654 CAF BIT4
008647,000226: 13,3222 00006 EXTEND
008648,000227: 13,3223 02016 RAND NAVKEYIN
008649,000228: 13,3224 10000 CCS A
008650,000229: 13,3225 03251 TC YMKRUPT # ITS A Y MARK
008651,000230: 13,3226 37655 CAF BIT3
008652,000231: 13,3227 00006 EXTEND
008653,000232: 13,3230 02016 RAND NAVKEYIN
008654,000233: 13,3231 10000 CCS A
008655,000234: 13,3232 03245 TC XMKRUPT # ITS AN X MARK
008656,000235: 13,3233 33426 SOMEKEY CAF OCT140 # NOT MARK OR MARK REJECT
008657,000236: 13,3234 00006 EXTEND
008658,000237: 13,3235 02016 RAND NAVKEYIN
![]() |
Page 223 |
008660,000239: 13,3236 00006 EXTEND
008661,000240: 13,3237 13242 BZF +3 # IF NO INBITS.
008662,000241:
008663,000242: 13,3240 04102 TC POSTJUMP # IF DESCENT BITS.
008664,000243: 13,3241 22730 CADR DESCBITS
008665,000244: 13,3242 05413 +3 TC ALARM
008666,000245: 13,3243 00113 OCT 113
008667,000246: 13,3244 04606 TC RESUME
008668,000247:
008669,000248: 13,3245 37665 XMKRUPT CAF ZERO
008670,000249: 13,3246 54065 TS ITEMP1
008671,000250: 13,3247 37646 CAF BIT10
008672,000251: 13,3250 03254 TC +4
008673,000252: 13,3251 37657 YMKRUPT CAF ONE
008674,000253: 13,3252 54065 TS ITEMP1
008675,000254: 13,3253 37645 CAF BIT11
008676,000255: 13,3254 54375 TS XYMARK # SET MARK ID
008677,000256:
008678,000257: 13,3255 70374 MASK MARKSTAT
008679,000258: 13,3256 10000 CCS A
008680,000259: 13,3257 03261 TC +2 # MARK MADE BUT NOT DESIRED
008681,000260: 13,3260 03264 TC VACSTOR # MARK DESIRED AND MADE-STORE CDUS
008682,000261: 13,3261 05413 TC ALARM
008683,000262: 13,3262 00114 OCT 114
008684,000263: 13,3263 03315 TC REMARK # RENEW REQUEST
008685,000264:
008686,000265: 13,3264 37672 VACSTOR CAF LOW9 # STORE TIME AND CDUS IN VAC AREA
008687,000266: 13,3265 70374 MASK MARKSTAT
008688,000267: 13,3266 54066 TS ITEMP2
008689,000268: 13,3267 00006 EXTEND
008690,000269: 13,3270 30071 DCA RUPTSTOR
008691,000270: 13,3271 50066 INDEX ITEMP2
008692,000271: 13,3272 52001 DXCH 0 # STORE TIME1 AND TIME2 IN VAC
008693,000272: 13,3273 30066 CA ITEMP2
008694,000273: 13,3274 26065 ADS ITEMP1
008695,000274: 13,3275 30072 CA RUPTSTOR +2
008696,000275: 13,3276 50065 INDEX ITEMP1
008697,000276: 13,3277 54002 TS 2
008698,000277: 13,3300 30074 CA RUPTSTOR +4
008699,000278: 13,3301 50065 INDEX ITEMP1
008700,000279: 13,3302 54004 TS 4
008701,000280: 13,3303 30076 CA RUPTSTOR +6
008702,000281: 13,3304 50065 INDEX ITEMP1
008703,000282: 13,3305 54006 TS 6
008704,000283:
008705,000284: 13,3306 37643 CAF BIT13
008706,000285: 13,3307 60375 AD XYMARK
008707,000286: 13,3310 40000 COM
008708,000287: 13,3311 70374 MASK MARKSTAT
![]() |
Page 224 |
008710,000289: 13,3312 60375 AD XYMARK # SET MARK MADE BIT IN MARKSTAT=1
008711,000290: 13,3313 54374 TS MARKSTAT # AND SET BIT13 ZERO TO SHOW MARK
008712,000291: 13,3314 03315 TC REMARK # MADE BEFORE A REJECT - GO REMARK
![]() |
Page 225 |
008714,000293: 13,3315 37665 REMARK CAF ZERO
008715,000294: 13,3316 54077 TS MKDEX # MKDEX=0
008716,000295: 13,3317 37645 CAF BIT11 # LOOK A Y MARK
008717,000296: 13,3320 70374 MASK MARKSTAT
008718,000297: 13,3321 10000 CCS A
008719,000298: 13,3322 03325 TC +3 # Y MARK MADE
008720,000299: 13,3323 37650 CAF BIT8 # Y MARK REQUIRED
008721,000300: 13,3324 54077 TS MKDEX
008722,000301:
008723,000302: 13,3325 37646 CAF BIT10 # LOOK AT X MARK
008724,000303: 13,3326 70374 MASK MARKSTAT
008725,000304: 13,3327 10000 CCS A
008726,000305: 13,3330 03333 TC MKJOB
008727,000306: 13,3331 37651 CAF BIT7 # X MARK REQUIRED
008728,000307: 13,3332 26077 ADS MKDEX
008729,000308:
008730,000309: 13,3333 34530 MKJOB CAF PRIO32
008731,000310: 13,3334 04363 TC NOVAC # ENTER JOB TO PASTE VERB
008732,000311: 13,3335 03343 26003 2CADR CHANGVB
008733,000312:
008734,000313: 13,3337 30077 CA RUPTREG4
008735,000314: 13,3340 50071 INDEX LOCCTR
008736,000315: 13,3341 54140 TS MPAC
008737,000316: 13,3342 04606 TC RESUME
008738,000317:
008739,000318: 13,3343 10140 CHANGVB CCS MPAC
008740,000319: 13,3344 03347 TC SHOWVB
008741,000320: 13,3345 33432 CAF VB21N30E
008742,000321: 13,3346 03351 TC SHOWVB +2
008743,000322: 13,3347 33433 SHOWVB CAF VB50
008744,000323: 13,3350 60140 AD MPAC
008745,000324: 13,3351 54107 TS NVTEMP
008746,000325: 13,3352 30323 CA CADRSTOR # NVSUB CLOBBERS THIS-USE LOC AS TEMP
008747,000326: 13,3353 54150 TS LOC
008748,000327: 13,3354 05112 TC NVSUB +3
008749,000328: 13,3355 05100 VB51 OCT 5100
008750,000329: 13,3356 30150 CA LOC # RESTORE CADRSTOR
008751,000330: 13,3357 54323 TS CADRSTOR
008752,000331: 13,3360 04440 TC ENDOFJOB
008753,000332:
008754,000333: 13,3361 37642 MKREJ CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
008755,000334: 13,3362 70374 MASK MARKSTAT
008756,000335: 13,3363 10000 CCS A
008757,000336: 13,3364 03372 TC REJIN # IN-FLIGHT
008758,000337: 13,3365 37646 CAF BIT10 # NON-FLIGHT, SEE IF X MARK MADE
008759,000338: 13,3366 70374 MASK MARKSTAT
008760,000339: 13,3367 10000 CCS A
008761,000340: 13,3370 03414 TC REJECT2 # XMARK MADE-REJECT IT
008762,000341: 13,3371 03376 TC REJALARM # X MARK NOT MADE-ALARM-NO MARKS TO REJ
![]() |
Page 226 |
008764,000343: 13,3372 34504 REJIN CAF PRIO3 # WERE IN-FLIGHT MARKS MADE
008765,000344: 13,3373 70374 MASK MARKSTAT
008766,000345: 13,3374 10000 CCS A
008767,000346: 13,3375 03401 TC REJECT # MARKS MADE-REJECT ONE
008768,000347: 13,3376 05413 REJALARM TC ALARM # NO MARKS MADE TO REJECT-GET MARKS
008769,000348: 13,3377 00115 OCT 115
008770,000349: 13,3400 03414 TC REJECT2
008771,000350: 13,3401 47643 REJECT CS BIT13 # SHOW MKREJECT AND SEE MARK MADE
008772,000351: 13,3402 70374 MASK MARKSTAT # SINCE LAST REJECT
008773,000352: 13,3403 67643 AD BIT13
008774,000353: 13,3404 56374 XCH MARKSTAT
008775,000354: 13,3405 77643 MASK BIT13
008776,000355: 13,3406 10000 CCS A
008777,000356: 13,3407 03414 TC REJECT2 # ANOTHER REJECT
008778,000357: 13,3410 40375 CS XYMARK # MARK MADE SINCE LAST REJECT-REJECT IT
008779,000358: 13,3411 70374 MASK MARKSTAT
008780,000359: 13,3412 54374 TS MARKSTAT
008781,000360: 13,3413 03315 TC REMARK # GO REQUEST MARKS
008782,000361:
008783,000362: 13,3414 44504 REJECT2 CS PRIO3 # NO MARKS SINCE LAST REJECT SO SET
008784,000363: 13,3415 70374 MASK MARKSTAT # MARKSTAT TO WANT X AND Y MARKS
008785,000364: 13,3416 56374 XCH MARKSTAT
008786,000365: 13,3417 77642 MASK BIT14 # IN-FLIGHT OR NON-FLIGHT
008787,000366: 13,3420 10000 CCS A
008788,000367: 13,3421 03315 TC REMARK # IN-FLIGHT, GO GET MARKS
008789,000368: 13,3422 37645 CAF BIT11 # NON-FLIGHT, STILL REQUEST X MARK ONLY
008790,000369: 13,3423 26374 ADS MARKSTAT
008791,000370: 13,3424 03315 TC REMARK # GO GET X MARK
008792,000371:
008793,000372: 13,3425 6165 OCT3 EQUALS THREE
008794,000373: 13,3425 00034 OCT34 OCT 00034
008795,000374: 13,3426 00140 OCT140 OCT 00140
008796,000375: 13,3427 02143 V21N43E OCT 2143
008797,000376: 13,3430 02442 V24N42E OCT 2442
008798,000377: 13,3431 05300 VB53 OCT 5300
008799,000378: 13,3432 0077 MKDEX EQUALS RUPTREG4
008800,000379: 13,3432 0375 DETCODE EQUALS XYMARK
008801,000380: 13,3432 0000002 BASVAC EQUALS Q
008802,000381: 13,3432 02130 VB21N30E OCT 2130
008803,000382: 13,3433 05000 VB50 OCT 5000
008804,000383: 13,3434 ENDAMODS EQUALS
End of include-file AOTMARK.agc. Parent file is MAIN.agc