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.

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