Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

006604,000002:                                                                                                  ## Copyright:   Public domain.
006605,000003:                                                                                                  ## Filename:    AOTMARK.agc
006606,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
006607,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
006608,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
006609,000007:                                                                                                  ## Assembler:   yaYUL
006610,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
006611,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006612,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
006613,000011:                                                                                                  ##              2016-10-05 RSB  Completed transcription.
006614,000012:                                                                                                  ##              2016-10-30 MAS  Corrected a couple errors (VKVB53 -> MKVB53, V31N43E->V21N43E).
006615,000013:                                                                                                  ##              2016-10-31 RSB  I had messed up the very end of the file with both missing
006616,000014:                                                                                                  ##                              and extra goo.
006617,000015:                                                                                                  ##              2016-11-01 RSB  More typos.
006618,000016:                                                                                                  ##              2016-12-04 RSB  Fixed various typos in the comments, using octopus/ProoferComments.
006619,000017:                                                                                                  ##                              However, don't regard the comments as completely proofed yet.
006620,000018:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
006621,000019:                                                                                                  ##                              changes made.
006622,000020: 

Page 159

006624,000022: 13,3005                                           BANK     13                                    
006625,000023: 13,3005  E3,1467                                  EBANK=   AOTAZ                                 
006626,000024: 13,3005           00004        AOTMARK            INHINT                                         
006627,000025: 13,3006           54071                           TS       RUPTREG2                              #  BIT14=INFLIGHT  0=NONFLIGHT
006628,000026: 13,3007           10373                           CCS      MARKSTAT                              #  ARE MARKS BUTTONS IN USE
006629,000027: 13,3010           03012                           TC       +2                                    #  MARKS BUTTONS NOT AVAILABLE
006630,000028: 13,3011           03015                           TC       MKVAC                                 #  FIND A VAC AREA
006631,000029: 13,3012           04755                           TC       ALARM                                 
006632,000030: 13,3013           00105                           OCT      00105                                 
006633,000031: 13,3014           05567                           TC       ENDOFJOB                              
006634,000032: 
006635,000033: 13,3015           10430        MKVAC              CCS      VAC1USE                               
006636,000034: 13,3016           03031                           TC       MKVACFND                              
006637,000035: 13,3017           10504                           CCS      VAC2USE                               
006638,000036: 13,3020           03031                           TC       MKVACFND                              
006639,000037: 13,3021           10560                           CCS      VAC3USE                               
006640,000038: 13,3022           03031                           TC       MKVACFND                              
006641,000039: 13,3023           10634                           CCS      VAC4USE                               
006642,000040: 13,3024           03031                           TC       MKVACFND                              
006643,000041: 13,3025           10710                           CCS      VAC5USE                               
006644,000042: 13,3026           03031                           TC       MKVACFND                              
006645,000043: 13,3027           06000                           TC       ABORT                                 #  VAC AREAS OCCUPIED
006646,000044: 13,3030           01207                           OCT      01207                                 
006647,000045: 
006648,000046: 13,3031           67762        MKVACFND           AD       TWO                                   
006649,000047: 13,3032           54373                           TS       MARKSTAT                              
006650,000048: 13,3033           37767                           CAF      ZERO                                  
006651,000049: 13,3034           54374                           TS       XYMARK                                #  INITIALIZE MARK ID REGISTER
006652,000050: 13,3035           50373                           INDEX    MARKSTAT                              
006653,000051: 13,3036           53777                           TS       0          -1                         #  SHOW VAC OCCUPIED
006654,000052: 
006655,000053: 13,3037           30071                           CA       RUPTREG2                              
006656,000054: 13,3040           26373                           ADS      MARKSTAT                              
006657,000055: 
006658,000056: 13,3041           35653                           CAF      PRIO32                                
006659,000057: 13,3042           05505                           TC       NOVAC                                 
006660,000058: 13,3043  E3,1467                                  EBANK=   AOTAZ                                 
006661,000059: 13,3043           03054 26063                     2CADR    GETMKS                                
006662,000060: 
006663,000061: 13,3045           02043                           TC       MODEEXIT                              
006664,000062: 
006665,000063: 13,3046           37767        MKRELEAS           CAF      ZERO                                  
006666,000064: 13,3047           56373                           XCH      MARKSTAT                              #  SET MARKSTAT  ZERO
006667,000065: 13,3050           10000                           CCS      A                                     
006668,000066: 13,3051           50000                           INDEX    A                                     
006669,000067: 13,3052           54000                           TS       0                                     #  SHOW VAC AREA AVAILABLE
006670,000068: 13,3053           05221                           TC       SWRETURN                              
006671,000069: 

Page 160

006673,000071: 13,3054           37767        GETMKS             CAF      ZERO                                  
006674,000072: 13,3055           54374                           TS       XYMARK                                
006675,000073: 13,3056           37746                           CAF      BIT14                                 #  FIND IF IN-FLIGHT OR NON-FLIGHT
006676,000074: 13,3057           70373                           MASK     MARKSTAT                              
006677,000075: 13,3060           10000                           CCS      A                                     
006678,000076: 13,3061           03070                           TC       MKVB53                                #  IN-FLIGHT
006679,000077: 13,3062           47751                           CS       BIT11                                 #  NON-FLIGHT, SET Y MARK =1
006680,000078: 13,3063           70373                           MASK     MARKSTAT                              
006681,000079: 13,3064           67751                           AD       BIT11                                 
006682,000080: 13,3065           54373                           TS       MARKSTAT                              
006683,000081: 13,3066           33415                           CAF      VB51                                  #  REQUEST X MARK
006684,000082: 13,3067           03071                           TC       +2                                    
006685,000083: 13,3070           33471        MKVB53             CAF      VB53                                  #  REQUEST X AND Y MARKS
006686,000084: 13,3071           04657                           TC       NVSBWAIT                              
006687,000085: 13,3072           04622                           TC       FLASHON                               
006688,000086: 13,3073           04475                           TC       ENDIDLE                               
006689,000087: 13,3074           03055                           TC       GETMKS     +1                         
006690,000088: 13,3075           03055                           TC       GETMKS     +1                         
006691,000089: 
006692,000090: 13,3076           37752        MKCHEK             CAF      BIT10                                 #  WAS X MARK MADE
006693,000091: 13,3077           70373                           MASK     MARKSTAT                              
006694,000092: 13,3100           10000                           CCS      A                                     
006695,000093: 13,3101           03103                           TC       +2                                    #  X MARK MADE-LOOK AT Y MARK
006696,000094: 13,3102           03107                           TC       MKALARM                               
006697,000095: 13,3103           37751                           CAF      BIT11                                 
006698,000096: 13,3104           70373                           MASK     MARKSTAT                              
006699,000097: 13,3105           10000                           CCS      A                                     
006700,000098: 13,3106           03115                           TC       GETDET                                #  BOTH MARKS MADE-SHOW ACCEPT-GET DETENT
006701,000099: 
006702,000100: 13,3107           04755        MKALARM            TC       ALARM                                 #  IF EITHER MARK IS MISSING AFTER ENTER
006703,000101: 13,3110           00111                           OCT      111                                   
006704,000102: 13,3111           45643                           CS       PRIO17                                #  SET BITS 10,11,12,13 TO ZERO IN MARKSTAT
006705,000103: 13,3112           70373                           MASK     MARKSTAT                              
006706,000104: 13,3113           54373                           TS       MARKSTAT                              
006707,000105: 13,3114           03054                           TC       GETMKS                                #  GETMKS AGAIN
006708,000106: 
006709,000107: 13,3115           47750        GETDET             CS       BIT12                                 
006710,000108: 13,3116           70373                           MASK     MARKSTAT                              
006711,000109: 13,3117           67750                           AD       BIT12                                 #  SET BIT12=1 TO SHOW MARKS ACCEPTED
006712,000110: 13,3120           54373                           TS       MARKSTAT                              
006713,000111: 13,3121           33467        DETVB21            CAF      V21N43E                               
006714,000112: 13,3122           04657                           TC       NVSBWAIT                              
006715,000113: 13,3123           04475                           TC       ENDIDLE                               
006716,000114: 13,3124           03121                           TC       DETVB21                               
006717,000115: 13,3125           03121                           TC       DETVB21                               
006718,000116: 
006719,000117: 13,3126           46311                           CS       OCT3                                  
006720,000118: 13,3127           70374                           MASK     DETCODE                               
006721,000119: 13,3130           10000                           CCS      A                                     
006722,000120: 13,3131           03121                           TC       DETVB21                               #  BAD CODE, REQUEST AGAIN
006723,000121: 

Page 161

006725,000123: 13,3132           03135                           TC       +3                                    #  LOOKS GOOD BUT COULD BE ZERO
006726,000124: 13,3133           03134                           TC       +1                                    
006727,000125: 13,3134           03121                           TC       DETVB21                               
006728,000126: 13,3135           36311                           CAF      OCT3                                  
006729,000127: 13,3136           70374                           MASK     DETCODE                               #  SEE IF ZERO
006730,000128: 13,3137           10000                           CCS      A                                     
006731,000129: 13,3140           03142                           TC       +2                                    #  GOOD CODE-STORE ANGLES
006732,000130: 13,3141           03121                           TC       DETVB21                               #  ZERO-BAD CODE-REQUEST AGAIN
006733,000131: 
006734,000132: 13,3142           35341                           CAF      LOW9                                  
006735,000133: 13,3143           70373                           MASK     MARKSTAT                              
006736,000134: 13,3144           54002                           TS       BASVAC                                #  STORE VAC AREA ADDRESS
006737,000135: 13,3145           50374                           INDEX    DETCODE                               
006738,000136: 13,3146           31471                           CA       AOTEL      -1                         
006739,000137: 13,3147           50002                           INDEX    BASVAC                                
006740,000138: 13,3150           54011                           TS       9D                                    #  STORE ELV ANGLE IN VAC +9
006741,000139: 13,3151           50374                           INDEX    DETCODE                               
006742,000140: 13,3152           31466                           CA       AOTAZ      -1                         
006743,000141: 13,3153           50002                           INDEX    BASVAC                                
006744,000142: 13,3154           54010                           TS       8D                                    #  STORE AZIMUTH IN VAC +8
006745,000143: 
006746,000144: 13,3155           31470                           CA       AOTAZ      +1                         #  COMPENSATION FOR THE APPARENT TILT OF
006747,000145: 13,3156           00006                           EXTEND                                         #  AOT FIELD OF VIEW IN THE LEFT AND RIGHT
006748,000146: 13,3157           50374                           INDEX    DETCODE                               #  DETENTS IS STORED IN LOC 10D OF VAC
006749,000147: 13,3160           21466                           MSU      AOTAZ      -1                         #  IN ONES COMPLEMENT
006750,000148: 13,3161           50002                           INDEX    BASVAC                                
006751,000149: 13,3162           54012                           TS       10D                                   #  SINGLE PREC. TILT COMPENSATION ANGLE
006752,000150: 
006753,000151: 13,3163           37746                           CAF      BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006754,000152: 13,3164           70373                           MASK     MARKSTAT                              
006755,000153: 13,3165           10000                           CCS      A                                     
006756,000154: 13,3166           03206                           TC       MKOUT                                 #  IN-FLIGHT, NO MORE DATA NEEDED
006757,000155: 13,3167           03170                           TC       ROTVB24                               #  NON-FLIGHT, GET ROTATION ANGLES
006758,000156: 
006759,000157: 13,3170           33470        ROTVB24            CAF      V24N42E                               #  REQUEST RETICLE ROTATION ANGLES
006760,000158: 13,3171           04657                           TC       NVSBWAIT                              
006761,000159: 13,3172           04475                           TC       ENDIDLE                               
006762,000160: 13,3173           03170                           TC       ROTVB24                               
006763,000161: 13,3174           03170                           TC       ROTVB24                               
006764,000162: 
006765,000163: 13,3175           35341                           CAF      LOW9                                  
006766,000164: 13,3176           70373                           MASK     MARKSTAT                              
006767,000165: 13,3177           54002                           TS       BASVAC                                
006768,000166: 13,3200           30342                           CA       DSPTEM2                               #  YROT
006769,000167: 13,3201           50002                           INDEX    BASVAC                                
006770,000168: 13,3202           54003                           TS       3                                     #  STORE Y RETICLE ROT ANGLE IN VAC +3
006771,000169: 13,3203           30343                           CA       DSPTEM2    +1                         #  SROT
006772,000170: 13,3204           50002                           INDEX    BASVAC                                
006773,000171: 13,3205           54005                           TS       5                                     #  STORE SPIRAL ROT ANGLE VAC +5
006774,000172: 

Page 162

006776,000174: 13,3206           35341        MKOUT              CAF      LOW9                                  
006777,000175: 13,3207           70373                           MASK     MARKSTAT                              
006778,000176: 13,3210           54373                           TS       MARKSTAT                              #  SET HI5 ZERO
006779,000177: 
006780,000178: 13,3211           00004                           INHINT                                         
006781,000179: 13,3212           37763                           CAF      ONE                                   
006782,000180: 13,3213           05663                           TC       WAITLIST                              
006783,000181: 13,3214  E3,1467                                  EBANK=   AOTAZ                                 
006784,000182: 13,3214           03217 26063                     2CADR    ENDMARKS                              
006785,000183: 
006786,000184: 13,3216           05567                           TC       ENDOFJOB                              
006787,000185: 
006788,000186: 13,3217           37763        ENDMARKS           CAF      ONE                                   
006789,000187: 13,3220           12720                           TCF      GOODEND                               
006790,000188: 

Page 163

006792,000190: 13,3221           54016        MARKRUPT           TS       BANKRUPT                              
006793,000191: 13,3222           30033                           CA       CDUY                                  #  STORE CDU DATA AND TIME IN TEMP
006794,000192: 13,3223           54063                           TS       ITEMP3                                
006795,000193: 13,3224           30034                           CA       CDUZ                                  
006796,000194: 13,3225           54064                           TS       ITEMP4                                
006797,000195: 13,3226           30032                           CA       CDUX                                  
006798,000196: 13,3227           54065                           TS       ITEMP5                                
006799,000197: 13,3230           00006                           EXTEND                                         
006800,000198: 13,3231           30025                           DCA      TIME2                                 
006801,000199: 13,3232           52062                           DXCH     ITEMP1                                
006802,000200: 13,3233           56002                           XCH      Q                                     
006803,000201: 13,3234           54012                           TS       QRUPT                                 
006804,000202: 
006805,000203: 13,3235           33465                           CAF      OCT34                                 #  SEE IF X OR Y MARK OR MKREJECT
006806,000204: 13,3236           00006                           EXTEND                                         
006807,000205: 13,3237           02016                           RAND     NAVKEYIN                              
006808,000206: 13,3240           10000                           CCS      A                                     
006809,000207: 13,3241           03243                           TC       +2                                    #  ITS A LIVE ONE-CHECK FOR ACCEPT
006810,000208: 13,3242           03273                           TC       SOMEKEY                               #  SOME OTHER KEY
006811,000209: 
006812,000210: 13,3243           37750                           CAF      BIT12                                 #  HAVE MARKS BEEN ACCEPTED
006813,000211: 13,3244           70373                           MASK     MARKSTAT                              
006814,000212: 13,3245           10000                           CCS      A                                     
006815,000213: 13,3246           05733                           TC       RESUME                                #  MARKS MADE AND ACCEPTED - DO NOTHING
006816,000214: 
006817,000215: 13,3247           10373                           CCS      MARKSTAT                              #  ARE MARKS BEING ACCEPTED
006818,000216: 13,3250           03254                           TC       FINDKEY                               
006819,000217: 13,3251           04755                           TC       ALARM                                 #  MARKS NOT BEING ACCEPTED
006820,000218: 13,3252           00112                           OCT      112                                   
006821,000219: 13,3253           05733                           TC       RESUME                                
006822,000220: 
006823,000221: 13,3254           37757        FINDKEY            CAF      BIT5                                  
006824,000222: 13,3255           00006                           EXTEND                                         
006825,000223: 13,3256           02016                           RAND     NAVKEYIN                              #  CHANNEL 16
006826,000224: 13,3257           10000                           CCS      A                                     
006827,000225: 13,3260           03421                           TC       MKREJ                                 #  ITS A MARK REJECT
006828,000226: 13,3261           37760                           CAF      BIT4                                  
006829,000227: 13,3262           00006                           EXTEND                                         
006830,000228: 13,3263           02016                           RAND     NAVKEYIN                              
006831,000229: 13,3264           10000                           CCS      A                                     
006832,000230: 13,3265           03311                           TC       YMKRUPT                               #  ITS A Y MARK
006833,000231: 13,3266           37761                           CAF      BIT3                                  
006834,000232: 13,3267           00006                           EXTEND                                         
006835,000233: 13,3270           02016                           RAND     NAVKEYIN                              
006836,000234: 13,3271           10000                           CCS      A                                     
006837,000235: 13,3272           03305                           TC       XMKRUPT                               #  ITS AN X MARK
006838,000236: 13,3273           33466        SOMEKEY            CAF      OCT140                                #  NOT MARK OR MARK REJECT
006839,000237: 13,3274           00006                           EXTEND                                         
006840,000238: 13,3275           02016                           RAND     NAVKEYIN                              
006841,000239: 13,3276           00006                           EXTEND                                         

Page 164

006843,000241: 13,3277           13302                           BZF      +3                                    #  IF NO INBITS.
006844,000242: 
006845,000243: 13,3300           05225                           TC       POSTJUMP                              #  IF DESCENT BITS.
006846,000244: 13,3301           22707                           CADR     DESCBITS                              
006847,000245: 
006848,000246: 13,3302           04755                 +3        TC       ALARM                                 
006849,000247: 13,3303           00113                           OCT      113                                   
006850,000248: 13,3304           05733                           TC       RESUME                                
006851,000249: 
006852,000250: 13,3305           37767        XMKRUPT            CAF      ZERO                                  
006853,000251: 13,3306           54070                           TS       RUPTREG1                              #  SET X MARK STORE INDEX TO ZERO
006854,000252: 13,3307           37752                           CAF      BIT10                                 
006855,000253: 13,3310           03314                           TC       +4                                    
006856,000254: 13,3311           37763        YMKRUPT            CAF      ONE                                   
006857,000255: 13,3312           54070                           TS       RUPTREG1                              #  SET Y MARK STORE INDEX TO ONE
006858,000256: 13,3313           37751                           CAF      BIT11                                 
006859,000257: 13,3314           54374                           TS       XYMARK                                #  SET MARK ID
006860,000258: 
006861,000259: 13,3315           70373                           MASK     MARKSTAT                              
006862,000260: 13,3316           10000                           CCS      A                                     
006863,000261: 13,3317           03321                           TC       +2                                    #  MARK MADE BUT NOT DESIRED
006864,000262: 13,3320           03324                           TC       VACSTOR                               #  MARK DESIRED AND MADE-STORE CDUS
006865,000263: 13,3321           04755                           TC       ALARM                                 
006866,000264: 13,3322           00114                           OCT      114                                   
006867,000265: 13,3323           03355                           TC       REMARK                                #  RENEW REQUEST
006868,000266: 
006869,000267: 13,3324           35341        VACSTOR            CAF      LOW9                                  #  STORE TIME AND CDUS IN VAC AREA
006870,000268: 13,3325           70373                           MASK     MARKSTAT                              
006871,000269: 13,3326           54071                           TS       RUPTREG2                              #  PICK UP VAC ADR
006872,000270: 13,3327           00006                           EXTEND                                         
006873,000271: 13,3330           30062                           DCA      ITEMP1                                
006874,000272: 13,3331           50071                           INDEX    RUPTREG2                              
006875,000273: 13,3332           52001                           DXCH     0                                     #  STORE TIME1 AND TIME2 IN VAC
006876,000274: 13,3333           30071                           CA       RUPTREG2                              
006877,000275: 13,3334           26070                           ADS      RUPTREG1                              #  INCREMENT CDU STORE ADR BY MARK INDEX
006878,000276: 13,3335           30063                           CA       ITEMP3                                #  PICK UP CDUY
006879,000277: 13,3336           50070                           INDEX    RUPTREG1                              
006880,000278: 13,3337           54002                           TS       2                                     
006881,000279: 13,3340           30064                           CA       ITEMP4                                #  PICK UP CDUZ
006882,000280: 13,3341           50070                           INDEX    RUPTREG1                              
006883,000281: 13,3342           54004                           TS       4                                     
006884,000282: 13,3343           30065                           CA       ITEMP5                                #  PICK UP CDUX
006885,000283: 13,3344           50070                           INDEX    RUPTREG1                              
006886,000284: 13,3345           54006                           TS       6                                     
006887,000285: 
006888,000286: 13,3346           37747                           CAF      BIT13                                 
006889,000287: 13,3347           60374                           AD       XYMARK                                
006890,000288: 13,3350           40000                           COM                                            
006891,000289: 13,3351           70373                           MASK     MARKSTAT                              
006892,000290: 13,3352           60374                           AD       XYMARK                                #  SET MARK MADE BIT IN MARKSTAT=1
006893,000291: 

Page 165

006895,000293: 13,3353           54373                           TS       MARKSTAT                              #  AND SET BIT13 ZERO TO SHOW MARK
006896,000294: 13,3354           03355                           TC       REMARK                                #  MADE BEFORE A REJECT - GO REMARK
006897,000295: 

Page 166

006899,000297: 13,3355           37767        REMARK             CAF      ZERO                                  
006900,000298: 13,3356           54073                           TS       MKDEX                                 #  MKDEX=0
006901,000299: 13,3357           37751                           CAF      BIT11                                 #  LOOK A Y MARK
006902,000300: 13,3360           70373                           MASK     MARKSTAT                              
006903,000301: 13,3361           10000                           CCS      A                                     
006904,000302: 13,3362           03365                           TC       +3                                    #  Y MARK MADE
006905,000303: 13,3363           37754                           CAF      BIT8                                  #  Y MARK REQUIRED
006906,000304: 13,3364           54073                           TS       MKDEX                                 
006907,000305: 
006908,000306: 13,3365           37752                           CAF      BIT10                                 #  LOOK AT X MARK
006909,000307: 13,3366           70373                           MASK     MARKSTAT                              
006910,000308: 13,3367           10000                           CCS      A                                     
006911,000309: 13,3370           03373                           TC       MKJOB                                 
006912,000310: 13,3371           37755                           CAF      BIT7                                  #  X MARK REQUIRED
006913,000311: 13,3372           26073                           ADS      MKDEX                                 
006914,000312: 
006915,000313: 13,3373           35653        MKJOB              CAF      PRIO32                                
006916,000314: 13,3374           05505                           TC       NOVAC                                 #  ENTER JOB TO PASTE VERB
006917,000315: 13,3375  E3,1467                                  EBANK=   AOTAZ                                 
006918,000316: 13,3375           03403 26063                     2CADR    CHANGVB                               
006919,000317: 
006920,000318: 13,3377           30073                           CA       RUPTREG4                              
006921,000319: 13,3400           50064                           INDEX    LOCCTR                                
006922,000320: 13,3401           54144                           TS       MPAC                                  
006923,000321: 13,3402           05733                           TC       RESUME                                
006924,000322: 
006925,000323: 13,3403           10144        CHANGVB            CCS      MPAC                                  
006926,000324: 13,3404           03407                           TC       SHOWVB                                
006927,000325: 13,3405           33472                           CAF      VB21N30E                              
006928,000326: 13,3406           03411                           TC       SHOWVB     +2                         
006929,000327: 13,3407           33473        SHOWVB             CAF      VB50                                  
006930,000328: 13,3410           60144                           AD       MPAC                                  
006931,000329: 13,3411           54113                           TS       NVTEMP                                
006932,000330: 13,3412           30327                           CA       CADRSTOR                              #  NVSUB CLOBBERS THIS-USE LOC AS TEMP
006933,000331: 13,3413           54154                           TS       LOC                                   
006934,000332: 13,3414           04447                           TC       NVSUB      +3                         
006935,000333: 13,3415           05100        VB51               OCT      5100                                  
006936,000334: 13,3416           30154                           CA       LOC                                   #  RESTORE CADRSTOR
006937,000335: 13,3417           54327                           TS       CADRSTOR                              
006938,000336: 13,3420           05567                           TC       ENDOFJOB                              
006939,000337: 
006940,000338: 13,3421           37746        MKREJ              CAF      BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006941,000339: 13,3422           70373                           MASK     MARKSTAT                              
006942,000340: 13,3423           10000                           CCS      A                                     
006943,000341: 13,3424           03432                           TC       REJIN                                 #  IN-FLIGHT
006944,000342: 13,3425           37752                           CAF      BIT10                                 #  NON-FLIGHT, SEE IF X MARK MADE
006945,000343: 13,3426           70373                           MASK     MARKSTAT                              
006946,000344: 13,3427           10000                           CCS      A                                     
006947,000345: 13,3430           03454                           TC       REJECT2                               #  XMARK MADE-REJECT IT
006948,000346: 13,3431           03436                           TC       REJALARM                              #  X MARK NOT MADE-ALARM-NO MARKS TO REJ
006949,000347: 

Page 167

006951,000349: 13,3432           35632        REJIN              CAF      PRIO3                                 #  WERE IN-FLIGHT MARKS MADE
006952,000350: 13,3433           70373                           MASK     MARKSTAT                              
006953,000351: 13,3434           10000                           CCS      A                                     
006954,000352: 13,3435           03441                           TC       REJECT                                #  MARKS MADE-REJECT ONE
006955,000353: 13,3436           04755        REJALARM           TC       ALARM                                 #  NO MARKS MADE TO REJECT-GET MARKS
006956,000354: 13,3437           00115                           OCT      115                                   
006957,000355: 13,3440           03454                           TC       REJECT2                               
006958,000356: 13,3441           47747        REJECT             CS       BIT13                                 #  SHOW MKREJECT AND SEE MARK MADE
006959,000357: 13,3442           70373                           MASK     MARKSTAT                              #  SINCE LAST REJECT
006960,000358: 13,3443           67747                           AD       BIT13                                 
006961,000359: 13,3444           56373                           XCH      MARKSTAT                              
006962,000360: 13,3445           77747                           MASK     BIT13                                 
006963,000361: 13,3446           10000                           CCS      A                                     
006964,000362: 13,3447           03454                           TC       REJECT2                               #  ANOTHER REJECT
006965,000363: 13,3450           40374                           CS       XYMARK                                #  MARK MADE SINCE LAST REJECT-REJECT IT
006966,000364: 13,3451           70373                           MASK     MARKSTAT                              
006967,000365: 13,3452           54373                           TS       MARKSTAT                              
006968,000366: 13,3453           03355                           TC       REMARK                                #  GO REQUEST MARKS
006969,000367: 
006970,000368: 13,3454           45632        REJECT2            CS       PRIO3                                 #  NO MARKS SINCE LAST REJECT SO SET
006971,000369: 13,3455           70373                           MASK     MARKSTAT                              #  MARKSTAT TO WANT X AND Y MARKS
006972,000370: 13,3456           56373                           XCH      MARKSTAT                              
006973,000371: 13,3457           77746                           MASK     BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006974,000372: 13,3460           10000                           CCS      A                                     
006975,000373: 13,3461           03355                           TC       REMARK                                #  IN-FLIGHT, GO GET MARKS
006976,000374: 13,3462           37751                           CAF      BIT11                                 #  NON-FLIGHT, STILL REQUEST X MARK ONLY
006977,000375: 13,3463           26373                           ADS      MARKSTAT                              
006978,000376: 13,3464           03355                           TC       REMARK                                #  GO GET X MARK
006979,000377: 
006980,000378: 13,3465     6311               OCT3               EQUALS   THREE                                 
006981,000379: 13,3465           00034        OCT34              OCT      00034                                 
006982,000380: 13,3466           00140        OCT140             OCT      00140                                 
006983,000381: 13,3467           02143        V21N43E            OCT      2143                                  
006984,000382: 13,3470           02442        V24N42E            OCT      2442                                  
006985,000383: 13,3471           05300        VB53               OCT      5300                                  
006986,000384: 13,3472     0073               MKDEX              EQUALS   RUPTREG4                              
006987,000385: 13,3472     0374               DETCODE            EQUALS   XYMARK                                
006988,000386: 13,3472  0000002               BASVAC             EQUALS   Q                                     
006989,000387: 13,3472           02130        VB21N30E           OCT      2130                                  
006990,000388: 13,3473           05000        VB50               OCT      5000                                  
006991,000389: 

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