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