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.

006230,000002:                                                                                                  ## Copyright:   Public domain.
006231,000003:                                                                                                  ## Filename:    AOTMARK.agc
006232,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
006233,000005:                                                                                                  ##              It is part of an early development version of the software
006234,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
006235,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
006236,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
006237,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
006238,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
006239,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
006240,000012:                                                                                                  ##              that the code format has been changed to conform to the
006241,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
006242,000014:                                                                                                  ##              original YUL assembler.
006243,000015:                                                                                                  ## Reference:   pp. 146-154
006244,000016:                                                                                                  ## Assembler:   yaYUL
006245,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
006246,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006247,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
006248,000020:                                                                                                  ##              2017-05-30 RSB  Transcribed.
006249,000021:                                                                                                  ##              2017-06-21 RSB  Proofed using octopus/ProoferComments.
006250,000022: 

Page 146

006252,000024: 13,3017                                           BANK     13                                    
006253,000025: 13,3017  E3,1467                                  EBANK=   AOTAZ                                 
006254,000026: 13,3017           00004        AOTMARK            INHINT                                         
006255,000027: 13,3020           54071                           TS       RUPTREG2                              #  BIT14=INFLIGHT  0=NONFLIGHT
006256,000028: 13,3021           10373                           CCS      MARKSTAT                              #  ARE MARKS BUTTONS IN USE
006257,000029: 13,3022           03024                           TC       +2                                    #  MARKS BUTTONS NOT AVAILABLE
006258,000030: 13,3023           03027                           TC       MKVAC                                 #  FIND A VAC AREA
006259,000031: 13,3024           04744                           TC       ALARM                                 
006260,000032: 13,3025           00105                           OCT      00105                                 
006261,000033: 13,3026           05605                           TC       ENDOFJOB                              
006262,000034: 
006263,000035: 13,3027           10431        MKVAC              CCS      VAC1USE                               
006264,000036: 13,3030           03043                           TC       MKVACFND                              
006265,000037: 13,3031           10505                           CCS      VAC2USE                               
006266,000038: 
006267,000039: 13,3032           03043                           TC       MKVACFND                              
006268,000040: 13,3033           10561                           CCS      VAC3USE                               
006269,000041: 13,3034           03043                           TC       MKVACFND                              
006270,000042: 13,3035           10635                           CCS      VAC4USE                               
006271,000043: 13,3036           03043                           TC       MKVACFND                              
006272,000044: 13,3037           10711                           CCS      VAC5USE                               
006273,000045: 13,3040           03043                           TC       MKVACFND                              
006274,000046: 13,3041           06000                           TC       ABORT                                 #  VAC AREAS OCCUPIED
006275,000047: 13,3042           01207                           OCT      01207                                 
006276,000048: 
006277,000049: 13,3043           67754        MKVACFND           AD       TWO                                   
006278,000050: 13,3044           54373                           TS       MARKSTAT                              
006279,000051: 13,3045           37761                           CAF      ZERO                                  
006280,000052: 13,3046           54374                           TS       XYMARK                                #  INITIALIZE MARK ID REGISTER
006281,000053: 13,3047           50373                           INDEX    MARKSTAT                              
006282,000054: 13,3050           53777                           TS       0          -1                         #  SHOW VAC OCCUPIED
006283,000055: 
006284,000056: 13,3051           30071                           CA       RUPTREG2                              
006285,000057: 13,3052           26373                           ADS      MARKSTAT                              
006286,000058: 
006287,000059: 13,3053           35671                           CAF      PRIO32                                
006288,000060: 13,3054           05523                           TC       NOVAC                                 
006289,000061: 13,3055  E3,1467                                  EBANK=   AOTAZ                                 
006290,000062: 
006291,000063: 13,3055           03066 26003                     2CADR    GETMKS                                
006292,000064: 
006293,000065: 13,3057           02043                           TC       MODEEXIT                              
006294,000066: 
006295,000067: 13,3060           37761        MKRELEAS           CAF      ZERO                                  
006296,000068: 13,3061           56373                           XCH      MARKSTAT                              #  SET MARKSTAT  ZERO
006297,000069: 13,3062           10000                           CCS      A                                     
006298,000070: 13,3063           50000                           INDEX    A                                     
006299,000071: 13,3064           54000                           TS       0                                     #  SHOW VAC AREA AVAILABLE
006300,000072: 13,3065           05237                           TC       SWRETURN                              
006301,000073: 

Page 147

006303,000075: 13,3066           37761        GETMKS             CAF      ZERO                                  
006304,000076: 13,3067           54374                           TS       XYMARK                                
006305,000077: 13,3070           37740                           CAF      BIT14                                 #  FIND IF IN-FLIGHT OR NON-FLIGHT
006306,000078: 13,3071           70373                           MASK     MARKSTAT                              
006307,000079: 13,3072           10000                           CCS      A                                     
006308,000080: 13,3073           03102                           TC       MKVB53                                #  IN-FLIGHT
006309,000081: 13,3074           47743                           CS       BIT11                                 #  NON-FLIGHT, SET Y MARK =1
006310,000082: 13,3075           70373                           MASK     MARKSTAT                              
006311,000083: 13,3076           67743                           AD       BIT11                                 
006312,000084: 13,3077           54373                           TS       MARKSTAT                              
006313,000085: 13,3100           33427                           CAF      VB51                                  #  REQUEST X MARK
006314,000086: 13,3101           03103                           TC       +2                                    
006315,000087: 13,3102           33503        MKVB53             CAF      VB53                                  #  REQUEST X AND Y MARKS
006316,000088: 13,3103           04646                           TC       NVSBWAIT                              
006317,000089: 13,3104           04611                           TC       FLASHON                               
006318,000090: 13,3105           04464                           TC       ENDIDLE                               
006319,000091: 13,3106           03067                           TC       GETMKS     +1                         
006320,000092: 13,3107           03067                           TC       GETMKS     +1                         
006321,000093: 
006322,000094: 13,3110           37744        MKCHEK             CAF      BIT10                                 #  WAS X MARK MADE
006323,000095: 13,3111           70373                           MASK     MARKSTAT                              
006324,000096: 13,3112           10000                           CCS      A                                     
006325,000097: 13,3113           03115                           TC       +2                                    #  X MARK MADE-LOOK AT Y MARK
006326,000098: 13,3114           03121                           TC       MKALARM                               
006327,000099: 13,3115           37743                           CAF      BIT11                                 
006328,000100: 13,3116           70373                           MASK     MARKSTAT                              
006329,000101: 13,3117           10000                           CCS      A                                     
006330,000102: 13,3120           03127                           TC       GETDET                                #  BOTH MARKS MADE-SHOW ACCEPT-GET DETENT
006331,000103: 
006332,000104: 13,3121           04744        MKALARM            TC       ALARM                                 #  IF EITHER MARK IS MISSING AFTER ENTER
006333,000105: 13,3122           00111                           OCT      111                                   
006334,000106: 13,3123           45661                           CS       PRIO17                                #  SET BITS 10,11,12,13 TO ZERO IN MARKSTAT
006335,000107: 13,3124           70373                           MASK     MARKSTAT                              
006336,000108: 13,3125           54373                           TS       MARKSTAT                              
006337,000109: 13,3126           03066                           TC       GETMKS                                #  GETMKS AGAIN
006338,000110: 
006339,000111: 13,3127           47742        GETDET             CS       BIT12                                 
006340,000112: 13,3130           70373                           MASK     MARKSTAT                              
006341,000113: 13,3131           67742                           AD       BIT12                                 #  SET BIT12=1 TO SHOW MARKS ACCEPTED
006342,000114: 13,3132           54373                           TS       MARKSTAT                              
006343,000115: 13,3133           33501        DETVB21            CAF      V21N43E                               
006344,000116: 13,3134           04646                           TC       NVSBWAIT                              
006345,000117: 13,3135           04464                           TC       ENDIDLE                               
006346,000118: 
006347,000119: 13,3136           03133                           TC       DETVB21                               
006348,000120: 13,3137           03133                           TC       DETVB21                               
006349,000121: 
006350,000122: 13,3140           46301                           CS       OCT3                                  
006351,000123: 13,3141           70374                           MASK     DETCODE                               
006352,000124: 13,3142           10000                           CCS      A                                     
006353,000125: 13,3143           03133                           TC       DETVB21                               #  BAD CODE, REQUEST AGAIN
006354,000126: 

Page 148

006356,000128: 13,3144           03147                           TC       +3                                    #  LOOKS GOOD BUT COULD BE ZERO
006357,000129: 13,3145           03146                           TC       +1                                    
006358,000130: 
006359,000131: 13,3146           03133                           TC       DETVB21                               
006360,000132: 13,3147           36301                           CAF      OCT3                                  
006361,000133: 13,3150           70374                           MASK     DETCODE                               #  SEE IF ZERO
006362,000134: 13,3151           10000                           CCS      A                                     
006363,000135: 13,3152           03154                           TC       +2                                    #  GOOD CODE-STORE ANGLES
006364,000136: 13,3153           03133                           TC       DETVB21                               #  ZERO-BAD CODE-REQUEST AGAIN
006365,000137: 
006366,000138: 13,3154           35360                           CAF      LOW9                                  
006367,000139: 13,3155           70373                           MASK     MARKSTAT                              
006368,000140: 13,3156           54002                           TS       BASVAC                                #  STORE VAC AREA ADDRESS
006369,000141: 13,3157           50374                           INDEX    DETCODE                               
006370,000142: 13,3160           31471                           CA       AOTEL      -1                         
006371,000143: 13,3161           50002                           INDEX    BASVAC                                
006372,000144: 13,3162           54011                           TS       9D                                    #  STORE ELV ANGLE IN VAC +9
006373,000145: 13,3163           50374                           INDEX    DETCODE                               
006374,000146: 13,3164           31466                           CA       AOTAZ      -1                         
006375,000147: 13,3165           50002                           INDEX    BASVAC                                
006376,000148: 13,3166           54010                           TS       8D                                    #  STORE AZIMUTH IN VAC +8
006377,000149: 
006378,000150: 13,3167           31470                           CA       AOTAZ      +1                         #  COMPENSATION FOR THE APPARENT TILT OF
006379,000151: 13,3170           00006                           EXTEND                                         #  AOT FIELD OF VIEW IN THE LEFT AND RIGHT
006380,000152: 13,3171           50374                           INDEX    DETCODE                               #  DETENTS IS STORED IN LOC 10D OF VAC
006381,000153: 13,3172           21466                           MSU      AOTAZ      -1                         #  IN ONES COMPLEMENT
006382,000154: 
006383,000155: 13,3173           50002                           INDEX    BASVAC                                
006384,000156: 13,3174           54012                           TS       10D                                   #  SINGLE PREC. TILT COMPENSATION ANGLE
006385,000157: 
006386,000158: 13,3175           37740                           CAF      BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006387,000159: 13,3176           70373                           MASK     MARKSTAT                              
006388,000160: 13,3177           10000                           CCS      A                                     
006389,000161: 13,3200           03220                           TC       MKOUT                                 #  IN-FLIGHT, NO MORE DATA NEEDED
006390,000162: 13,3201           03202                           TC       ROTVB24                               #  NON-FLIGHT, GET ROTATION ANGLES
006391,000163: 
006392,000164: 13,3202           33502        ROTVB24            CAF      V24N42E                               #  REQUEST RETICLE ROTATION ANGLES
006393,000165: 13,3203           04646                           TC       NVSBWAIT                              
006394,000166: 13,3204           04464                           TC       ENDIDLE                               
006395,000167: 13,3205           03202                           TC       ROTVB24                               
006396,000168: 13,3206           03202                           TC       ROTVB24                               
006397,000169: 
006398,000170: 13,3207           35360                           CAF      LOW9                                  
006399,000171: 13,3210           70373                           MASK     MARKSTAT                              
006400,000172: 13,3211           54002                           TS       BASVAC                                
006401,000173: 13,3212           30342                           CA       DSPTEM2                               #  YROT
006402,000174: 13,3213           50002                           INDEX    BASVAC                                
006403,000175: 13,3214           54003                           TS       3                                     #  STORE Y RETICLE ROT ANGLE IN VAC +3
006404,000176: 13,3215           30343                           CA       DSPTEM2    +1                         #  SROT
006405,000177: 13,3216           50002                           INDEX    BASVAC                                
006406,000178: 
006407,000179: 13,3217           54005                           TS       5                                     #  STORE SPIRAL ROT ANGLE VAC +5
006408,000180: 

Page 149

006410,000182: 13,3220           35360        MKOUT              CAF      LOW9                                  
006411,000183: 13,3221           70373                           MASK     MARKSTAT                              
006412,000184: 13,3222           54373                           TS       MARKSTAT                              #  SET HI5 ZERO
006413,000185: 
006414,000186: 13,3223           00004                           INHINT                                         
006415,000187: 13,3224           37755                           CAF      ONE                                   
006416,000188: 13,3225           05701                           TC       WAITLIST                              
006417,000189: 13,3226  E3,1467                                  EBANK=   AOTAZ                                 
006418,000190: 
006419,000191: 13,3226           03231 26003                     2CADR    ENDMARKS                              
006420,000192: 
006421,000193: 13,3230           05605                           TC       ENDOFJOB                              
006422,000194: 
006423,000195: 13,3231           37755        ENDMARKS           CAF      ONE                                   
006424,000196: 13,3232           12731                           TCF      GOODEND                               
006425,000197: 

Page 150

006427,000199: 13,3233           54016        MARKRUPT           TS       BANKRUPT                              
006428,000200: 13,3234           30033                           CA       CDUY                                  #  STORE CDU DATA AND TIME IN TEMP
006429,000201: 13,3235           54065                           TS       RUPTSTOR   +2                         
006430,000202: 13,3236           30034                           CA       CDUZ                                  
006431,000203: 13,3237           54067                           TS       RUPTSTOR   +4                         
006432,000204: 13,3240           30032                           CA       CDUX                                  
006433,000205: 13,3241           54071                           TS       RUPTSTOR   +6                         
006434,000206: 13,3242           00006                           EXTEND                                         
006435,000207: 13,3243           30025                           DCA      TIME2                                 
006436,000208: 13,3244           52064                           DXCH     RUPTSTOR                              
006437,000209: 
006438,000210: 13,3245           56002                           XCH      Q                                     
006439,000211: 13,3246           54012                           TS       QRUPT                                 
006440,000212: 
006441,000213: 13,3247           33477                           CAF      OCT34                                 #  SEE IF X OR Y MARK OR MKREJECT
006442,000214: 13,3250           00006                           EXTEND                                         
006443,000215: 13,3251           02016                           RAND     NAVKEYIN                              
006444,000216: 13,3252           10000                           CCS      A                                     
006445,000217: 13,3253           03255                           TC       +2                                    #  ITS A LIVE ONE-CHECK FOR ACCEPT
006446,000218: 13,3254           03305                           TC       SOMEKEY                               #  SOME OTHER KEY
006447,000219: 
006448,000220: 13,3255           37742                           CAF      BIT12                                 #  HAVE MARKS BEEN ACCEPTED
006449,000221: 13,3256           70373                           MASK     MARKSTAT                              
006450,000222: 13,3257           10000                           CCS      A                                     
006451,000223: 13,3260           05751                           TC       RESUME                                #  MARKS MADE AND ACCEPTED - DO NOTHING
006452,000224: 
006453,000225: 13,3261           10373                           CCS      MARKSTAT                              #  ARE MARKS BEING ACCEPTED
006454,000226: 13,3262           03266                           TC       FINDKEY                               
006455,000227: 13,3263           04744                           TC       ALARM                                 #  MARKS NOT BEING ACCEPTED
006456,000228: 13,3264           00112                           OCT      112                                   
006457,000229: 13,3265           05751                           TC       RESUME                                
006458,000230: 
006459,000231: 13,3266           37751        FINDKEY            CAF      BIT5                                  
006460,000232: 13,3267           00006                           EXTEND                                         
006461,000233: 13,3270           02016                           RAND     NAVKEYIN                              #  CHANNEL 16
006462,000234: 13,3271           10000                           CCS      A                                     
006463,000235: 13,3272           03433                           TC       MKREJ                                 #  ITS A MARK REJECT
006464,000236: 13,3273           37752                           CAF      BIT4                                  
006465,000237: 
006466,000238: 13,3274           00006                           EXTEND                                         
006467,000239: 13,3275           02016                           RAND     NAVKEYIN                              
006468,000240: 13,3276           10000                           CCS      A                                     
006469,000241: 13,3277           03323                           TC       YMKRUPT                               #  ITS A Y MARK
006470,000242: 13,3300           37753                           CAF      BIT3                                  
006471,000243: 13,3301           00006                           EXTEND                                         
006472,000244: 13,3302           02016                           RAND     NAVKEYIN                              
006473,000245: 13,3303           10000                           CCS      A                                     
006474,000246: 13,3304           03317                           TC       XMKRUPT                               #  ITS AN X MARK
006475,000247: 13,3305           33500        SOMEKEY            CAF      OCT140                                #  NOT MARK OR MARK REJECT
006476,000248: 13,3306           00006                           EXTEND                                         
006477,000249: 13,3307           02016                           RAND     NAVKEYIN                              
006478,000250: 

Page 151

006480,000252: 13,3310           00006                           EXTEND                                         
006481,000253: 13,3311           13314                           BZF      +3                                    #  IF NO INBITS.
006482,000254: 
006483,000255: 13,3312           05243                           TC       POSTJUMP                              #  IF DESCENT BITS.
006484,000256: 13,3313           22714                           CADR     DESCBITS                              
006485,000257: 
006486,000258: 13,3314           04744                 +3        TC       ALARM                                 
006487,000259: 13,3315           00113                           OCT      113                                   
006488,000260: 13,3316           05751                           TC       RESUME                                
006489,000261: 
006490,000262: 13,3317           37761        XMKRUPT            CAF      ZERO                                  
006491,000263: 13,3320           54061                           TS       ITEMP1                                
006492,000264: 13,3321           37744                           CAF      BIT10                                 
006493,000265: 13,3322           03326                           TC       +4                                    
006494,000266: 13,3323           37755        YMKRUPT            CAF      ONE                                   
006495,000267: 13,3324           54061                           TS       ITEMP1                                
006496,000268: 13,3325           37743                           CAF      BIT11                                 
006497,000269: 13,3326           54374                           TS       XYMARK                                #  SET MARK ID
006498,000270: 
006499,000271: 13,3327           70373                           MASK     MARKSTAT                              
006500,000272: 13,3330           10000                           CCS      A                                     
006501,000273: 13,3331           03333                           TC       +2                                    #  MARK MADE BUT NOT DESIRED
006502,000274: 13,3332           03336                           TC       VACSTOR                               #  MARK DESIRED AND MADE-STORE CDUS
006503,000275: 13,3333           04744                           TC       ALARM                                 
006504,000276: 13,3334           00114                           OCT      114                                   
006505,000277: 13,3335           03367                           TC       REMARK                                #  RENEW REQUEST
006506,000278: 
006507,000279: 13,3336           35360        VACSTOR            CAF      LOW9                                  #  STORE TIME AND CDUS IN VAC AREA
006508,000280: 13,3337           70373                           MASK     MARKSTAT                              
006509,000281: 13,3340           54062                           TS       ITEMP2                                
006510,000282: 13,3341           00006                           EXTEND                                         
006511,000283: 13,3342           30064                           DCA      RUPTSTOR                              
006512,000284: 13,3343           50062                           INDEX    ITEMP2                                
006513,000285: 13,3344           52001                           DXCH     0                                     #  STORE TIME1 AND TIME2 IN VAC
006514,000286: 13,3345           30062                           CA       ITEMP2                                
006515,000287: 13,3346           26061                           ADS      ITEMP1                                
006516,000288: 13,3347           30065                           CA       RUPTSTOR   +2                         
006517,000289: 13,3350           50061                           INDEX    ITEMP1                                
006518,000290: 13,3351           54002                           TS       2                                     
006519,000291: 13,3352           30067                           CA       RUPTSTOR   +4                         
006520,000292: 13,3353           50061                           INDEX    ITEMP1                                
006521,000293: 13,3354           54004                           TS       4                                     
006522,000294: 
006523,000295: 13,3355           30071                           CA       RUPTSTOR   +6                         
006524,000296: 13,3356           50061                           INDEX    ITEMP1                                
006525,000297: 13,3357           54006                           TS       6                                     
006526,000298: 
006527,000299: 13,3360           37741                           CAF      BIT13                                 
006528,000300: 13,3361           60374                           AD       XYMARK                                
006529,000301: 13,3362           40000                           COM                                            
006530,000302: 13,3363           70373                           MASK     MARKSTAT                              
006531,000303: 

Page 152

006533,000305: 13,3364           60374                           AD       XYMARK                                #  SET MARK MADE BIT IN MARKSTAT=1
006534,000306: 13,3365           54373                           TS       MARKSTAT                              #  AND SET BIT13 ZERO TO SHOW MARK
006535,000307: 
006536,000308: 13,3366           03367                           TC       REMARK                                #  MADE BEFORE A REJECT - GO REMARK
006537,000309: 

Page 153

006539,000311: 13,3367           37761        REMARK             CAF      ZERO                                  
006540,000312: 13,3370           54073                           TS       MKDEX                                 #  MKDEX=0
006541,000313: 13,3371           37743                           CAF      BIT11                                 #  LOOK A Y MARK
006542,000314: 13,3372           70373                           MASK     MARKSTAT                              
006543,000315: 13,3373           10000                           CCS      A                                     
006544,000316: 13,3374           03377                           TC       +3                                    #  Y MARK MADE
006545,000317: 13,3375           37746                           CAF      BIT8                                  #  Y MARK REQUIRED
006546,000318: 13,3376           54073                           TS       MKDEX                                 
006547,000319: 
006548,000320: 13,3377           37744                           CAF      BIT10                                 #  LOOK AT X MARK
006549,000321: 13,3400           70373                           MASK     MARKSTAT                              
006550,000322: 13,3401           10000                           CCS      A                                     
006551,000323: 13,3402           03405                           TC       MKJOB                                 
006552,000324: 13,3403           37747                           CAF      BIT7                                  #  X MARK REQUIRED
006553,000325: 13,3404           26073                           ADS      MKDEX                                 
006554,000326: 
006555,000327: 13,3405           35671        MKJOB              CAF      PRIO32                                
006556,000328: 13,3406           05523                           TC       NOVAC                                 #  ENTER JOB TO PASTE VERB
006557,000329: 13,3407  E3,1467                                  EBANK=   AOTAZ                                 
006558,000330: 13,3407           03415 26003                     2CADR    CHANGVB                               
006559,000331: 
006560,000332: 13,3411           30073                           CA       RUPTREG4                              
006561,000333: 13,3412           50064                           INDEX    LOCCTR                                
006562,000334: 13,3413           54144                           TS       MPAC                                  
006563,000335: 13,3414           05751                           TC       RESUME                                
006564,000336: 
006565,000337: 13,3415           10144        CHANGVB            CCS      MPAC                                  
006566,000338: 13,3416           03421                           TC       SHOWVB                                
006567,000339: 13,3417           33504                           CAF      VB21N30E                              
006568,000340: 13,3420           03423                           TC       SHOWVB     +2                         
006569,000341: 13,3421           33505        SHOWVB             CAF      VB50                                  
006570,000342: 13,3422           60144                           AD       MPAC                                  
006571,000343: 
006572,000344: 13,3423           54113                           TS       NVTEMP                                
006573,000345: 13,3424           30327                           CA       CADRSTOR                              #  NVSUB CLOBBERS THIS-USE LOC AS TEMP
006574,000346: 13,3425           54154                           TS       LOC                                   
006575,000347: 13,3426           04436                           TC       NVSUB      +3                         
006576,000348: 13,3427           05100        VB51               OCT      5100                                  
006577,000349: 13,3430           30154                           CA       LOC                                   #  RESTORE CADRSTOR
006578,000350: 13,3431           54327                           TS       CADRSTOR                              
006579,000351: 13,3432           05605                           TC       ENDOFJOB                              
006580,000352: 
006581,000353: 13,3433           37740        MKREJ              CAF      BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006582,000354: 13,3434           70373                           MASK     MARKSTAT                              
006583,000355: 13,3435           10000                           CCS      A                                     
006584,000356: 13,3436           03444                           TC       REJIN                                 #  IN-FLIGHT
006585,000357: 13,3437           37744                           CAF      BIT10                                 #  NON-FLIGHT, SEE IF X MARK MADE
006586,000358: 13,3440           70373                           MASK     MARKSTAT                              
006587,000359: 13,3441           10000                           CCS      A                                     
006588,000360: 13,3442           03466                           TC       REJECT2                               #  XMARK MADE-REJECT IT
006589,000361: 13,3443           03450                           TC       REJALARM                              #  X MARK NOT MADE-ALARM-NO MARKS TO REJ
006590,000362: 

Page 154

006592,000364: 13,3444           35650        REJIN              CAF      PRIO3                                 #  WERE IN-FLIGHT MARKS MADE
006593,000365: 13,3445           70373                           MASK     MARKSTAT                              
006594,000366: 13,3446           10000                           CCS      A                                     
006595,000367: 13,3447           03453                           TC       REJECT                                #  MARKS MADE-REJECT ONE
006596,000368: 13,3450           04744        REJALARM           TC       ALARM                                 #  NO MARKS MADE TO REJECT-GET MARKS
006597,000369: 13,3451           00115                           OCT      115                                   
006598,000370: 13,3452           03466                           TC       REJECT2                               
006599,000371: 13,3453           47741        REJECT             CS       BIT13                                 #  SHOW MKREJECT AND SEE MARK MADE
006600,000372: 13,3454           70373                           MASK     MARKSTAT                              #  SINCE LAST REJECT
006601,000373: 13,3455           67741                           AD       BIT13                                 
006602,000374: 13,3456           56373                           XCH      MARKSTAT                              
006603,000375: 13,3457           77741                           MASK     BIT13                                 
006604,000376: 13,3460           10000                           CCS      A                                     
006605,000377: 13,3461           03466                           TC       REJECT2                               #  ANOTHER REJECT
006606,000378: 
006607,000379: 13,3462           40374                           CS       XYMARK                                #  MARK MADE SINCE LAST REJECT-REJECT IT
006608,000380: 13,3463           70373                           MASK     MARKSTAT                              
006609,000381: 13,3464           54373                           TS       MARKSTAT                              
006610,000382: 13,3465           03367                           TC       REMARK                                #  GO REQUEST MARKS
006611,000383: 
006612,000384: 13,3466           45650        REJECT2            CS       PRIO3                                 #  NO MARKS SINCE LAST REJECT SO SET
006613,000385: 13,3467           70373                           MASK     MARKSTAT                              #  MARKSTAT TO WANT X AND Y MARKS
006614,000386: 13,3470           56373                           XCH      MARKSTAT                              
006615,000387: 13,3471           77740                           MASK     BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006616,000388: 13,3472           10000                           CCS      A                                     
006617,000389: 13,3473           03367                           TC       REMARK                                #  IN-FLIGHT, GO GET MARKS
006618,000390: 13,3474           37743                           CAF      BIT11                                 #  NON-FLIGHT, STILL REQUEST X MARK ONLY
006619,000391: 13,3475           26373                           ADS      MARKSTAT                              
006620,000392: 13,3476           03367                           TC       REMARK                                #  GO GET X MARK
006621,000393: 
006622,000394: 13,3477     6301               OCT3               EQUALS   THREE                                 
006623,000395: 13,3477           00034        OCT34              OCT      00034                                 
006624,000396: 13,3500           00140        OCT140             OCT      00140                                 
006625,000397: 13,3501           02143        V21N43E            OCT      2143                                  
006626,000398: 13,3502           02442        V24N42E            OCT      2442                                  
006627,000399: 13,3503           05300        VB53               OCT      5300                                  
006628,000400: 13,3504     0073               MKDEX              EQUALS   RUPTREG4                              
006629,000401: 13,3504     0374               DETCODE            EQUALS   XYMARK                                
006630,000402: 
006631,000403: 13,3504  0000002               BASVAC             EQUALS   Q                                     
006632,000404: 13,3504           02130        VB21N30E           OCT      2130                                  
006633,000405: 13,3505           05000        VB50               OCT      5000                                  
006634,000406: 

End of include-file AOTMARK.agc.  Parent file is MAIN.agc