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.

006571,000002:                                                                                                  ## Copyright:   Public domain.
006572,000003:                                                                                                  ## Filename:    AOTMARK.agc
006573,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
006574,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
006575,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
006576,000007:                                                                                                  ## Assembler:   yaYUL
006577,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
006578,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
006579,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
006580,000011:                                                                                                  ##              2016-10-05 RSB  Completed transcription.
006581,000012:                                                                                                  ##              2016-10-30 MAS  Corrected a couple errors (VKVB53 -> MKVB53, V31N43E->V21N43E).
006582,000013:                                                                                                  ##              2016-10-31 RSB  I had messed up the very end of the file with both missing
006583,000014:                                                                                                  ##                              and extra goo.
006584,000015:                                                                                                  ##              2016-11-01 RSB  More typos.
006585,000016:                                                                                                  ##              2016-12-04 RSB  Fixed various typos in the comments, using octopus/ProoferComments.
006586,000017:                                                                                                  ##                              However, don't regard the comments as completely proofed yet.
006587,000018:                                                                                                  ##              2016-12-05 RSB  Comment-proofing pass with octopus/ProoferComments completed;
006588,000019:                                                                                                  ##                              changes made.
006589,000020: 

Page 159

006591,000022: 13,3005                                           BANK     13                                    
006592,000023: 13,3005  E3,1467                                  EBANK=   AOTAZ                                 
006593,000024: 13,3005           00004        AOTMARK            INHINT                                         
006594,000025: 13,3006           54071                           TS       RUPTREG2                              #  BIT14=INFLIGHT  0=NONFLIGHT
006595,000026: 13,3007           10373                           CCS      MARKSTAT                              #  ARE MARKS BUTTONS IN USE
006596,000027: 13,3010           03012                           TC       +2                                    #  MARKS BUTTONS NOT AVAILABLE
006597,000028: 13,3011           03015                           TC       MKVAC                                 #  FIND A VAC AREA
006598,000029: 13,3012           04755                           TC       ALARM                                 
006599,000030: 13,3013           00105                           OCT      00105                                 
006600,000031: 13,3014           05567                           TC       ENDOFJOB                              
006601,000032: 
006602,000033: 13,3015           10430        MKVAC              CCS      VAC1USE                               
006603,000034: 13,3016           03031                           TC       MKVACFND                              
006604,000035: 13,3017           10504                           CCS      VAC2USE                               
006605,000036: 13,3020           03031                           TC       MKVACFND                              
006606,000037: 13,3021           10560                           CCS      VAC3USE                               
006607,000038: 13,3022           03031                           TC       MKVACFND                              
006608,000039: 13,3023           10634                           CCS      VAC4USE                               
006609,000040: 13,3024           03031                           TC       MKVACFND                              
006610,000041: 13,3025           10710                           CCS      VAC5USE                               
006611,000042: 13,3026           03031                           TC       MKVACFND                              
006612,000043: 13,3027           06000                           TC       ABORT                                 #  VAC AREAS OCCUPIED
006613,000044: 13,3030           01207                           OCT      01207                                 
006614,000045: 
006615,000046: 13,3031           67762        MKVACFND           AD       TWO                                   
006616,000047: 13,3032           54373                           TS       MARKSTAT                              
006617,000048: 13,3033           37767                           CAF      ZERO                                  
006618,000049: 13,3034           54374                           TS       XYMARK                                #  INITIALIZE MARK ID REGISTER
006619,000050: 13,3035           50373                           INDEX    MARKSTAT                              
006620,000051: 13,3036           53777                           TS       0          -1                         #  SHOW VAC OCCUPIED
006621,000052: 
006622,000053: 13,3037           30071                           CA       RUPTREG2                              
006623,000054: 13,3040           26373                           ADS      MARKSTAT                              
006624,000055: 
006625,000056: 13,3041           35653                           CAF      PRIO32                                
006626,000057: 13,3042           05505                           TC       NOVAC                                 
006627,000058: 13,3043  E3,1467                                  EBANK=   AOTAZ                                 
006628,000059: 13,3043           03054 26063                     2CADR    GETMKS                                
006629,000060: 
006630,000061: 13,3045           02043                           TC       MODEEXIT                              
006631,000062: 
006632,000063: 13,3046           37767        MKRELEAS           CAF      ZERO                                  
006633,000064: 13,3047           56373                           XCH      MARKSTAT                              #  SET MARKSTAT  ZERO
006634,000065: 13,3050           10000                           CCS      A                                     
006635,000066: 13,3051           50000                           INDEX    A                                     
006636,000067: 13,3052           54000                           TS       0                                     #  SHOW VAC AREA AVAILABLE
006637,000068: 13,3053           05221                           TC       SWRETURN                              
006638,000069: 

Page 160

006640,000071: 13,3054           37767        GETMKS             CAF      ZERO                                  
006641,000072: 13,3055           54374                           TS       XYMARK                                
006642,000073: 13,3056           37746                           CAF      BIT14                                 #  FIND IF IN-FLIGHT OR NON-FLIGHT
006643,000074: 13,3057           70373                           MASK     MARKSTAT                              
006644,000075: 13,3060           10000                           CCS      A                                     
006645,000076: 13,3061           03070                           TC       MKVB53                                #  IN-FLIGHT
006646,000077: 13,3062           47751                           CS       BIT11                                 #  NON-FLIGHT, SET Y MARK =1
006647,000078: 13,3063           70373                           MASK     MARKSTAT                              
006648,000079: 13,3064           67751                           AD       BIT11                                 
006649,000080: 13,3065           54373                           TS       MARKSTAT                              
006650,000081: 13,3066           33415                           CAF      VB51                                  #  REQUEST X MARK
006651,000082: 13,3067           03071                           TC       +2                                    
006652,000083: 13,3070           33471        MKVB53             CAF      VB53                                  #  REQUEST X AND Y MARKS
006653,000084: 13,3071           04657                           TC       NVSBWAIT                              
006654,000085: 13,3072           04622                           TC       FLASHON                               
006655,000086: 13,3073           04475                           TC       ENDIDLE                               
006656,000087: 13,3074           03055                           TC       GETMKS     +1                         
006657,000088: 13,3075           03055                           TC       GETMKS     +1                         
006658,000089: 
006659,000090: 13,3076           37752        MKCHEK             CAF      BIT10                                 #  WAS X MARK MADE
006660,000091: 13,3077           70373                           MASK     MARKSTAT                              
006661,000092: 13,3100           10000                           CCS      A                                     
006662,000093: 13,3101           03103                           TC       +2                                    #  X MARK MADE-LOOK AT Y MARK
006663,000094: 13,3102           03107                           TC       MKALARM                               
006664,000095: 13,3103           37751                           CAF      BIT11                                 
006665,000096: 13,3104           70373                           MASK     MARKSTAT                              
006666,000097: 13,3105           10000                           CCS      A                                     
006667,000098: 13,3106           03115                           TC       GETDET                                #  BOTH MARKS MADE-SHOW ACCEPT-GET DETENT
006668,000099: 
006669,000100: 13,3107           04755        MKALARM            TC       ALARM                                 #  IF EITHER MARK IS MISSING AFTER ENTER
006670,000101: 13,3110           00111                           OCT      111                                   
006671,000102: 13,3111           45643                           CS       PRIO17                                #  SET BITS 10,11,12,13 TO ZERO IN MARKSTAT
006672,000103: 13,3112           70373                           MASK     MARKSTAT                              
006673,000104: 13,3113           54373                           TS       MARKSTAT                              
006674,000105: 13,3114           03054                           TC       GETMKS                                #  GETMKS AGAIN
006675,000106: 
006676,000107: 13,3115           47750        GETDET             CS       BIT12                                 
006677,000108: 13,3116           70373                           MASK     MARKSTAT                              
006678,000109: 13,3117           67750                           AD       BIT12                                 #  SET BIT12=1 TO SHOW MARKS ACCEPTED
006679,000110: 13,3120           54373                           TS       MARKSTAT                              
006680,000111: 13,3121           33467        DETVB21            CAF      V21N43E                               
006681,000112: 13,3122           04657                           TC       NVSBWAIT                              
006682,000113: 13,3123           04475                           TC       ENDIDLE                               
006683,000114: 13,3124           03121                           TC       DETVB21                               
006684,000115: 13,3125           03121                           TC       DETVB21                               
006685,000116: 
006686,000117: 13,3126           46311                           CS       OCT3                                  
006687,000118: 13,3127           70374                           MASK     DETCODE                               
006688,000119: 13,3130           10000                           CCS      A                                     
006689,000120: 13,3131           03121                           TC       DETVB21                               #  BAD CODE, REQUEST AGAIN
006690,000121: 

Page 161

006692,000123: 13,3132           03135                           TC       +3                                    #  LOOKS GOOD BUT COULD BE ZERO
006693,000124: 13,3133           03134                           TC       +1                                    
006694,000125: 13,3134           03121                           TC       DETVB21                               
006695,000126: 13,3135           36311                           CAF      OCT3                                  
006696,000127: 13,3136           70374                           MASK     DETCODE                               #  SEE IF ZERO
006697,000128: 13,3137           10000                           CCS      A                                     
006698,000129: 13,3140           03142                           TC       +2                                    #  GOOD CODE-STORE ANGLES
006699,000130: 13,3141           03121                           TC       DETVB21                               #  ZERO-BAD CODE-REQUEST AGAIN
006700,000131: 
006701,000132: 13,3142           35341                           CAF      LOW9                                  
006702,000133: 13,3143           70373                           MASK     MARKSTAT                              
006703,000134: 13,3144           54002                           TS       BASVAC                                #  STORE VAC AREA ADDRESS
006704,000135: 13,3145           50374                           INDEX    DETCODE                               
006705,000136: 13,3146           31471                           CA       AOTEL      -1                         
006706,000137: 13,3147           50002                           INDEX    BASVAC                                
006707,000138: 13,3150           54011                           TS       9D                                    #  STORE ELV ANGLE IN VAC +9
006708,000139: 13,3151           50374                           INDEX    DETCODE                               
006709,000140: 13,3152           31466                           CA       AOTAZ      -1                         
006710,000141: 13,3153           50002                           INDEX    BASVAC                                
006711,000142: 13,3154           54010                           TS       8D                                    #  STORE AZIMUTH IN VAC +8
006712,000143: 
006713,000144: 13,3155           31470                           CA       AOTAZ      +1                         #  COMPENSATION FOR THE APPARENT TILT OF
006714,000145: 13,3156           00006                           EXTEND                                         #  AOT FIELD OF VIEW IN THE LEFT AND RIGHT
006715,000146: 13,3157           50374                           INDEX    DETCODE                               #  DETENTS IS STORED IN LOC 10D OF VAC
006716,000147: 13,3160           21466                           MSU      AOTAZ      -1                         #  IN ONES COMPLEMENT
006717,000148: 13,3161           50002                           INDEX    BASVAC                                
006718,000149: 13,3162           54012                           TS       10D                                   #  SINGLE PREC. TILT COMPENSATION ANGLE
006719,000150: 
006720,000151: 13,3163           37746                           CAF      BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006721,000152: 13,3164           70373                           MASK     MARKSTAT                              
006722,000153: 13,3165           10000                           CCS      A                                     
006723,000154: 13,3166           03206                           TC       MKOUT                                 #  IN-FLIGHT, NO MORE DATA NEEDED
006724,000155: 13,3167           03170                           TC       ROTVB24                               #  NON-FLIGHT, GET ROTATION ANGLES
006725,000156: 
006726,000157: 13,3170           33470        ROTVB24            CAF      V24N42E                               #  REQUEST RETICLE ROTATION ANGLES
006727,000158: 13,3171           04657                           TC       NVSBWAIT                              
006728,000159: 13,3172           04475                           TC       ENDIDLE                               
006729,000160: 13,3173           03170                           TC       ROTVB24                               
006730,000161: 13,3174           03170                           TC       ROTVB24                               
006731,000162: 
006732,000163: 13,3175           35341                           CAF      LOW9                                  
006733,000164: 13,3176           70373                           MASK     MARKSTAT                              
006734,000165: 13,3177           54002                           TS       BASVAC                                
006735,000166: 13,3200           30342                           CA       DSPTEM2                               #  YROT
006736,000167: 13,3201           50002                           INDEX    BASVAC                                
006737,000168: 13,3202           54003                           TS       3                                     #  STORE Y RETICLE ROT ANGLE IN VAC +3
006738,000169: 13,3203           30343                           CA       DSPTEM2    +1                         #  SROT
006739,000170: 13,3204           50002                           INDEX    BASVAC                                
006740,000171: 13,3205           54005                           TS       5                                     #  STORE SPIRAL ROT ANGLE VAC +5
006741,000172: 

Page 162

006743,000174: 13,3206           35341        MKOUT              CAF      LOW9                                  
006744,000175: 13,3207           70373                           MASK     MARKSTAT                              
006745,000176: 13,3210           54373                           TS       MARKSTAT                              #  SET HI5 ZERO
006746,000177: 
006747,000178: 13,3211           00004                           INHINT                                         
006748,000179: 13,3212           37763                           CAF      ONE                                   
006749,000180: 13,3213           05663                           TC       WAITLIST                              
006750,000181: 13,3214  E3,1467                                  EBANK=   AOTAZ                                 
006751,000182: 13,3214           03217 26063                     2CADR    ENDMARKS                              
006752,000183: 
006753,000184: 13,3216           05567                           TC       ENDOFJOB                              
006754,000185: 
006755,000186: 13,3217           37763        ENDMARKS           CAF      ONE                                   
006756,000187: 13,3220           12720                           TCF      GOODEND                               
006757,000188: 

Page 163

006759,000190: 13,3221           54016        MARKRUPT           TS       BANKRUPT                              
006760,000191: 13,3222           30033                           CA       CDUY                                  #  STORE CDU DATA AND TIME IN TEMP
006761,000192: 13,3223           54063                           TS       ITEMP3                                
006762,000193: 13,3224           30034                           CA       CDUZ                                  
006763,000194: 13,3225           54064                           TS       ITEMP4                                
006764,000195: 13,3226           30032                           CA       CDUX                                  
006765,000196: 13,3227           54065                           TS       ITEMP5                                
006766,000197: 13,3230           00006                           EXTEND                                         
006767,000198: 13,3231           30025                           DCA      TIME2                                 
006768,000199: 13,3232           52062                           DXCH     ITEMP1                                
006769,000200: 13,3233           56002                           XCH      Q                                     
006770,000201: 13,3234           54012                           TS       QRUPT                                 
006771,000202: 
006772,000203: 13,3235           33465                           CAF      OCT34                                 #  SEE IF X OR Y MARK OR MKREJECT
006773,000204: 13,3236           00006                           EXTEND                                         
006774,000205: 13,3237           02016                           RAND     NAVKEYIN                              
006775,000206: 13,3240           10000                           CCS      A                                     
006776,000207: 13,3241           03243                           TC       +2                                    #  ITS A LIVE ONE-CHECK FOR ACCEPT
006777,000208: 13,3242           03273                           TC       SOMEKEY                               #  SOME OTHER KEY
006778,000209: 
006779,000210: 13,3243           37750                           CAF      BIT12                                 #  HAVE MARKS BEEN ACCEPTED
006780,000211: 13,3244           70373                           MASK     MARKSTAT                              
006781,000212: 13,3245           10000                           CCS      A                                     
006782,000213: 13,3246           05733                           TC       RESUME                                #  MARKS MADE AND ACCEPTED - DO NOTHING
006783,000214: 
006784,000215: 13,3247           10373                           CCS      MARKSTAT                              #  ARE MARKS BEING ACCEPTED
006785,000216: 13,3250           03254                           TC       FINDKEY                               
006786,000217: 13,3251           04755                           TC       ALARM                                 #  MARKS NOT BEING ACCEPTED
006787,000218: 13,3252           00112                           OCT      112                                   
006788,000219: 13,3253           05733                           TC       RESUME                                
006789,000220: 
006790,000221: 13,3254           37757        FINDKEY            CAF      BIT5                                  
006791,000222: 13,3255           00006                           EXTEND                                         
006792,000223: 13,3256           02016                           RAND     NAVKEYIN                              #  CHANNEL 16
006793,000224: 13,3257           10000                           CCS      A                                     
006794,000225: 13,3260           03421                           TC       MKREJ                                 #  ITS A MARK REJECT
006795,000226: 13,3261           37760                           CAF      BIT4                                  
006796,000227: 13,3262           00006                           EXTEND                                         
006797,000228: 13,3263           02016                           RAND     NAVKEYIN                              
006798,000229: 13,3264           10000                           CCS      A                                     
006799,000230: 13,3265           03311                           TC       YMKRUPT                               #  ITS A Y MARK
006800,000231: 13,3266           37761                           CAF      BIT3                                  
006801,000232: 13,3267           00006                           EXTEND                                         
006802,000233: 13,3270           02016                           RAND     NAVKEYIN                              
006803,000234: 13,3271           10000                           CCS      A                                     
006804,000235: 13,3272           03305                           TC       XMKRUPT                               #  ITS AN X MARK
006805,000236: 13,3273           33466        SOMEKEY            CAF      OCT140                                #  NOT MARK OR MARK REJECT
006806,000237: 13,3274           00006                           EXTEND                                         
006807,000238: 13,3275           02016                           RAND     NAVKEYIN                              
006808,000239: 13,3276           00006                           EXTEND                                         

Page 164

006810,000241: 13,3277           13302                           BZF      +3                                    #  IF NO INBITS.
006811,000242: 
006812,000243: 13,3300           05225                           TC       POSTJUMP                              #  IF DESCENT BITS.
006813,000244: 13,3301           22707                           CADR     DESCBITS                              
006814,000245: 
006815,000246: 13,3302           04755                 +3        TC       ALARM                                 
006816,000247: 13,3303           00113                           OCT      113                                   
006817,000248: 13,3304           05733                           TC       RESUME                                
006818,000249: 
006819,000250: 13,3305           37767        XMKRUPT            CAF      ZERO                                  
006820,000251: 13,3306           54070                           TS       RUPTREG1                              #  SET X MARK STORE INDEX TO ZERO
006821,000252: 13,3307           37752                           CAF      BIT10                                 
006822,000253: 13,3310           03314                           TC       +4                                    
006823,000254: 13,3311           37763        YMKRUPT            CAF      ONE                                   
006824,000255: 13,3312           54070                           TS       RUPTREG1                              #  SET Y MARK STORE INDEX TO ONE
006825,000256: 13,3313           37751                           CAF      BIT11                                 
006826,000257: 13,3314           54374                           TS       XYMARK                                #  SET MARK ID
006827,000258: 
006828,000259: 13,3315           70373                           MASK     MARKSTAT                              
006829,000260: 13,3316           10000                           CCS      A                                     
006830,000261: 13,3317           03321                           TC       +2                                    #  MARK MADE BUT NOT DESIRED
006831,000262: 13,3320           03324                           TC       VACSTOR                               #  MARK DESIRED AND MADE-STORE CDUS
006832,000263: 13,3321           04755                           TC       ALARM                                 
006833,000264: 13,3322           00114                           OCT      114                                   
006834,000265: 13,3323           03355                           TC       REMARK                                #  RENEW REQUEST
006835,000266: 
006836,000267: 13,3324           35341        VACSTOR            CAF      LOW9                                  #  STORE TIME AND CDUS IN VAC AREA
006837,000268: 13,3325           70373                           MASK     MARKSTAT                              
006838,000269: 13,3326           54071                           TS       RUPTREG2                              #  PICK UP VAC ADR
006839,000270: 13,3327           00006                           EXTEND                                         
006840,000271: 13,3330           30062                           DCA      ITEMP1                                
006841,000272: 13,3331           50071                           INDEX    RUPTREG2                              
006842,000273: 13,3332           52001                           DXCH     0                                     #  STORE TIME1 AND TIME2 IN VAC
006843,000274: 13,3333           30071                           CA       RUPTREG2                              
006844,000275: 13,3334           26070                           ADS      RUPTREG1                              #  INCREMENT CDU STORE ADR BY MARK INDEX
006845,000276: 13,3335           30063                           CA       ITEMP3                                #  PICK UP CDUY
006846,000277: 13,3336           50070                           INDEX    RUPTREG1                              
006847,000278: 13,3337           54002                           TS       2                                     
006848,000279: 13,3340           30064                           CA       ITEMP4                                #  PICK UP CDUZ
006849,000280: 13,3341           50070                           INDEX    RUPTREG1                              
006850,000281: 13,3342           54004                           TS       4                                     
006851,000282: 13,3343           30065                           CA       ITEMP5                                #  PICK UP CDUX
006852,000283: 13,3344           50070                           INDEX    RUPTREG1                              
006853,000284: 13,3345           54006                           TS       6                                     
006854,000285: 
006855,000286: 13,3346           37747                           CAF      BIT13                                 
006856,000287: 13,3347           60374                           AD       XYMARK                                
006857,000288: 13,3350           40000                           COM                                            
006858,000289: 13,3351           70373                           MASK     MARKSTAT                              
006859,000290: 13,3352           60374                           AD       XYMARK                                #  SET MARK MADE BIT IN MARKSTAT=1
006860,000291: 

Page 165

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

Page 166

006866,000297: 13,3355           37767        REMARK             CAF      ZERO                                  
006867,000298: 13,3356           54073                           TS       MKDEX                                 #  MKDEX=0
006868,000299: 13,3357           37751                           CAF      BIT11                                 #  LOOK A Y MARK
006869,000300: 13,3360           70373                           MASK     MARKSTAT                              
006870,000301: 13,3361           10000                           CCS      A                                     
006871,000302: 13,3362           03365                           TC       +3                                    #  Y MARK MADE
006872,000303: 13,3363           37754                           CAF      BIT8                                  #  Y MARK REQUIRED
006873,000304: 13,3364           54073                           TS       MKDEX                                 
006874,000305: 
006875,000306: 13,3365           37752                           CAF      BIT10                                 #  LOOK AT X MARK
006876,000307: 13,3366           70373                           MASK     MARKSTAT                              
006877,000308: 13,3367           10000                           CCS      A                                     
006878,000309: 13,3370           03373                           TC       MKJOB                                 
006879,000310: 13,3371           37755                           CAF      BIT7                                  #  X MARK REQUIRED
006880,000311: 13,3372           26073                           ADS      MKDEX                                 
006881,000312: 
006882,000313: 13,3373           35653        MKJOB              CAF      PRIO32                                
006883,000314: 13,3374           05505                           TC       NOVAC                                 #  ENTER JOB TO PASTE VERB
006884,000315: 13,3375  E3,1467                                  EBANK=   AOTAZ                                 
006885,000316: 13,3375           03403 26063                     2CADR    CHANGVB                               
006886,000317: 
006887,000318: 13,3377           30073                           CA       RUPTREG4                              
006888,000319: 13,3400           50064                           INDEX    LOCCTR                                
006889,000320: 13,3401           54144                           TS       MPAC                                  
006890,000321: 13,3402           05733                           TC       RESUME                                
006891,000322: 
006892,000323: 13,3403           10144        CHANGVB            CCS      MPAC                                  
006893,000324: 13,3404           03407                           TC       SHOWVB                                
006894,000325: 13,3405           33472                           CAF      VB21N30E                              
006895,000326: 13,3406           03411                           TC       SHOWVB     +2                         
006896,000327: 13,3407           33473        SHOWVB             CAF      VB50                                  
006897,000328: 13,3410           60144                           AD       MPAC                                  
006898,000329: 13,3411           54113                           TS       NVTEMP                                
006899,000330: 13,3412           30327                           CA       CADRSTOR                              #  NVSUB CLOBBERS THIS-USE LOC AS TEMP
006900,000331: 13,3413           54154                           TS       LOC                                   
006901,000332: 13,3414           04447                           TC       NVSUB      +3                         
006902,000333: 13,3415           05100        VB51               OCT      5100                                  
006903,000334: 13,3416           30154                           CA       LOC                                   #  RESTORE CADRSTOR
006904,000335: 13,3417           54327                           TS       CADRSTOR                              
006905,000336: 13,3420           05567                           TC       ENDOFJOB                              
006906,000337: 
006907,000338: 13,3421           37746        MKREJ              CAF      BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006908,000339: 13,3422           70373                           MASK     MARKSTAT                              
006909,000340: 13,3423           10000                           CCS      A                                     
006910,000341: 13,3424           03432                           TC       REJIN                                 #  IN-FLIGHT
006911,000342: 13,3425           37752                           CAF      BIT10                                 #  NON-FLIGHT, SEE IF X MARK MADE
006912,000343: 13,3426           70373                           MASK     MARKSTAT                              
006913,000344: 13,3427           10000                           CCS      A                                     
006914,000345: 13,3430           03454                           TC       REJECT2                               #  XMARK MADE-REJECT IT
006915,000346: 13,3431           03436                           TC       REJALARM                              #  X MARK NOT MADE-ALARM-NO MARKS TO REJ
006916,000347: 

Page 167

006918,000349: 13,3432           35632        REJIN              CAF      PRIO3                                 #  WERE IN-FLIGHT MARKS MADE
006919,000350: 13,3433           70373                           MASK     MARKSTAT                              
006920,000351: 13,3434           10000                           CCS      A                                     
006921,000352: 13,3435           03441                           TC       REJECT                                #  MARKS MADE-REJECT ONE
006922,000353: 13,3436           04755        REJALARM           TC       ALARM                                 #  NO MARKS MADE TO REJECT-GET MARKS
006923,000354: 13,3437           00115                           OCT      115                                   
006924,000355: 13,3440           03454                           TC       REJECT2                               
006925,000356: 13,3441           47747        REJECT             CS       BIT13                                 #  SHOW MKREJECT AND SEE MARK MADE
006926,000357: 13,3442           70373                           MASK     MARKSTAT                              #  SINCE LAST REJECT
006927,000358: 13,3443           67747                           AD       BIT13                                 
006928,000359: 13,3444           56373                           XCH      MARKSTAT                              
006929,000360: 13,3445           77747                           MASK     BIT13                                 
006930,000361: 13,3446           10000                           CCS      A                                     
006931,000362: 13,3447           03454                           TC       REJECT2                               #  ANOTHER REJECT
006932,000363: 13,3450           40374                           CS       XYMARK                                #  MARK MADE SINCE LAST REJECT-REJECT IT
006933,000364: 13,3451           70373                           MASK     MARKSTAT                              
006934,000365: 13,3452           54373                           TS       MARKSTAT                              
006935,000366: 13,3453           03355                           TC       REMARK                                #  GO REQUEST MARKS
006936,000367: 
006937,000368: 13,3454           45632        REJECT2            CS       PRIO3                                 #  NO MARKS SINCE LAST REJECT SO SET
006938,000369: 13,3455           70373                           MASK     MARKSTAT                              #  MARKSTAT TO WANT X AND Y MARKS
006939,000370: 13,3456           56373                           XCH      MARKSTAT                              
006940,000371: 13,3457           77746                           MASK     BIT14                                 #  IN-FLIGHT OR NON-FLIGHT
006941,000372: 13,3460           10000                           CCS      A                                     
006942,000373: 13,3461           03355                           TC       REMARK                                #  IN-FLIGHT, GO GET MARKS
006943,000374: 13,3462           37751                           CAF      BIT11                                 #  NON-FLIGHT, STILL REQUEST X MARK ONLY
006944,000375: 13,3463           26373                           ADS      MARKSTAT                              
006945,000376: 13,3464           03355                           TC       REMARK                                #  GO GET X MARK
006946,000377: 
006947,000378: 13,3465     6311               OCT3               EQUALS   THREE                                 
006948,000379: 13,3465           00034        OCT34              OCT      00034                                 
006949,000380: 13,3466           00140        OCT140             OCT      00140                                 
006950,000381: 13,3467           02143        V21N43E            OCT      2143                                  
006951,000382: 13,3470           02442        V24N42E            OCT      2442                                  
006952,000383: 13,3471           05300        VB53               OCT      5300                                  
006953,000384: 13,3472     0073               MKDEX              EQUALS   RUPTREG4                              
006954,000385: 13,3472     0374               DETCODE            EQUALS   XYMARK                                
006955,000386: 13,3472  0000002               BASVAC             EQUALS   Q                                     
006956,000387: 13,3472           02130        VB21N30E           OCT      2130                                  
006957,000388: 13,3473           05000        VB50               OCT      5000                                  
006958,000389: 

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