Source Code

These source-code files are part of a reconstructed copy of Artemis 071, the first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Artemis 072 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes between the two versions. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021154-. Note that page numbers in the reconstructed code match those on the Artemis 072 printout, although the changed code would likely have changed page numbers for a real Artemis 071 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

010503,000002:                                                                                                  ## Copyright:   Public domain.
010504,000003:                                                                                                  ## Filename:    SXTMARK.agc
010505,000004:                                                                                                  ## Purpose:     A section of Artemis revision 071.
010506,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
010507,000006:                                                                                                  ##              release of the flight software for the Command Module's
010508,000007:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
010509,000008:                                                                                                  ##              17. The code has been recreated from a copy of Artemis 072.
010510,000009:                                                                                                  ##              It has been adapted such that the resulting bugger words
010511,000010:                                                                                                  ##              exactly match those specified for Artemis 071 in NASA
010512,000011:                                                                                                  ##              drawing 2021154-, which gives relatively high confidence
010513,000012:                                                                                                  ##              that the reconstruction is correct.
010514,000013:                                                                                                  ## Reference:   239
010515,000014:                                                                                                  ## Assembler:   yaYUL
010516,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
010517,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010518,000017:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Artemis 072.
010519,000018: 

Page 239

010521,000020: 
010522,000021:                                                                                                  #  PROGRAM NAME     -     SXTMARK
010523,000022: 
010524,000023:                                                                                                  #  MOD. 1        8 AUG. 69       BY P.RYE
010525,000024: 
010526,000025:                                                                                                  #  FUNCTIONAL DESCRIPTION
010527,000026: 
010528,000027:                                                                                                  #        SXTMARK IS CALLED BY P03 AND BY P22, P23, P51, AND P52 VIA R53.
010529,000028:                                                                                                  #        THE REGISTER MARKINDX IS SET TO 5 IF THE CALLING PROGRAM IS P22, OR TO 1 FOR OTHER USERS.
010530,000029:                                                                                                  #           THIS REGISTER INDICATES THE NUMBER OF MARKS DESIRED.
010531,000030:                                                                                                  #        THE REGISTER EXTVBACT IS CHECKED (SUBROUTINE TESTMARK) TO INSURE THAT THE MARK DISPLAY SYSTEM
010532,000031:                                                                                                  #           IS FREE.  IF NOT, BAILOUT (31211) IS DONE.
010533,000032:                                                                                                  #        BIT 2 OF THE REGISTER EXTVBACT IS SET BY SXTMARK, RESERVING THE MARKING AND EXTENDED VERB SYSTEM.
010534,000033:                                                                                                  #        SXTMARK DISPLAYS A FLASHING VERB 51, CALLING FOR MARKS.  A PROCEED RESPONSE TO THIS DISPLAY
010535,000034:                                                                                                  #           WILL RELEASE THE MARKING SYSTEM (SUBROUTINES MKRELEAS, CLEARMARK) AND RETURN TO THE
010536,000035:                                                                                                  #           CALLING PROGRAM.
010537,000036: 
010538,000037:                                                                                                  #        WHEN SUFFICIENT MARKS HAVE BEEN MADE (MARKINDX = 0) A FLASHING V50N25, R1 = 16, IS DISPLAYED.
010539,000038:                                                                                                  #           A PROCEED RESPONSE TO THIS DISPLAY WILL RETURN TO THE CALLING PROGRAM AFTER RELEASING THE
010540,000039:                                                                                                  #           MARKING SYSTEM.
010541,000040: 
010542,000041:                                                                                                  #        MARKS ARE PROCESSED BY THE ROUTINE MARKRUPT AS FOLLOWS:
010543,000042:                                                                                                  #                IF NO MARKS ARE CALLED FOR, ALARM CODE 114 IS SENT AND THE MARKRUPT ROUTINE EXITS.
010544,000043:                                                                                                  #                IF A MARK IS ACCEPTED, MARKFLG IS SET TO ENABLE A REJECT.
010545,000044:                                                                                                  #                IF R21(P20) IS RUNNING, DATA IS MOVED FROM STORAGE MRKBUF1 INTO MRKBUF2.  NEW MARK DATA
010546,000045:                                                                                                  #                        IS STORED INTO MRKBUF1.
010547,000046:                                                                                                  #                IF P22 IS RUNNING, MARK DATA IS STORED INTO SVMRKDAT, USING THE REGISTER P22DEX AS AN
010548,000047:                                                                                                  #                        INDEX AND THE REGISTER 8NN AS A COUNTER.  MARKINDX IS DECREMENTED.
010549,000048:                                                                                                  #                IF R57 IS RUNNING, MARK DATA IS STORED INTO MARKDOWN FOR DOWNLINK, THEN PROCESSED AS FOR
010550,000049:                                                                                                  #                        R21.  MARKRUPT THEN CALLS MARKDISP (IN R57).
010551,000050:                                                                                                  #                FOR OTHER USERS, MARK DATA IS STORED INTO MRKBUF1 AND MARKINDX IS DECREMENTED.
010552,000051: 
010553,000052:                                                                                                  #        MARK REJECTS ARE PROCESSED BY THE ROUTINE MARKRUPT AS FOLLOWS:
010554,000053:                                                                                                  #                IF MARKFLG IS CLEAR (I.E., NO MARK WAS TAKEN), ALARM CODE 110 IS SENT AND THE ROUTINE EXITS.
010555,000054:                                                                                                  #                OTHERWISE, MARKINDX IS INCREMENTED, THE P22 INDICATORS 8NN AND P22DEX ARE DECREMENTED
010556,000055:                                                                                                  #                        (IF THE USER IS P22), AND THE V51FL DISPLAY IN SXTMARK IS REESTABLISHED.
010557,000056: 
010558,000057:                                                                                                  #        IF THE ERASABLE REGISTER CDUCHKWD IS SET TO A NON-ZERO VALUE, VALIDITY OF THE MARKS IS CHECKED
010559,000058:                                                                                                  #           BY THE MARKRUPT ROUTINE AS FOLLOWS:
010560,000059:                                                                                                  #                IF THE CDU'S CHANGE BY MORE THAN 3 BITS OVER THE TIME PERIOD INDICATED BY THE VALUE OF
010561,000060:                                                                                                  #                        CDUCHKWD, ALARM CODE 121 IS SENT AND THE ROUTINE EXITS.
010562,000061: 
010563,000062:                                                                                                  #  CALLING SEQUENCE -
010564,000063: 
010565,000064:                                                                                                  #        TC      BANKCALL
010566,000065:                                                                                                  #        CADR    SXTMARK
010567,000066: 
010568,000067: 

Page 240

010570,000069: 
010571,000070:                                                                                                  #  NORMAL EXIT MODE -
010572,000071: 
010573,000072:                                                                                                  #        RETURN TO USER VIA BANKJUMP (RETURN ADDRESS IN OPTCADR).
010574,000073: 
010575,000074: 
010576,000075:                                                                                                  #  ALARM OR ABORT EXIT MODES
010577,000076: 
010578,000077:                                                                                                  #        1. ALARM 110 - MARK REJECT WITH NO MARK
010579,000078:                                                                                                  #        2. ALARM 113 - NO INBITS
010580,000079:                                                                                                  #        3. ALARM 121 - CDU'S NO GOOD AT MARK TIME
010581,000080:                                                                                                  #        4. ALARM 114 - MARK MADE BUT NOT DESIRED
010582,000081:                                                                                                  #        5. BAILOUT 31211 - MARK DISPLAY SYSTEM BUSY
010583,000082: 
010584,000083: 
010585,000084:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
010586,000085: 
010587,000086:                                                                                                  #        NONE
010588,000087: 
010589,000088: 
010590,000089:                                                                                                  #  OUTPUT -
010591,000090: 
010592,000091:                                                                                                  #        FOR P22:
010593,000092:                                                                                                  #                MARK DATA IN SVMRKDAT
010594,000093:                                                                                                  #                MARKINDX DECREMENTED BY ONE FOR EACH MARK TAKEN
010595,000094:                                                                                                  #                NO. OF MARKS IN 8NN
010596,000095:                                                                                                  #        FOR R57:
010597,000096:                                                                                                  #                MARK DATA IN MARKDOWN AND MRKBUF1
010598,000097:                                                                                                  #        FOR OTHER USERS:
010599,000098:                                                                                                  #                MARKINDX DECREMENTED TO ZERO IF A MARK WAS TAKEN
010600,000099:                                                                                                  #                MARK DATA IN MRKBUF1
010601,000100: 
010602,000101: 
010603,000102:                                                                                                  #  CONDITIONS AT EXIT -
010604,000103: 
010605,000104:                                                                                                  #        MARKINDX = INITIAL VALUE - NO. MARKS TAKEN
010606,000105:                                                                                                  #        MARKING SYSTEM IS RELEASED :
010607,000106:                                                                                                  #                EXTVBACT = 0
010608,000107:                                                                                                  #                BIT 9 OPTMODES = 0
010609,000108:                                                                                                  #                OPTIND = -1
010610,000109:                                                                                                  #                BIT 2 CHAN12 = 0
010611,000110:                                                                                                  #        MARKFLG = 0
010612,000111:                                                                                                  #        OPTCADR CONTAINS CADR OF SXTMARK CALLER
010613,000112: 
010614,000113: 

Page 241

010616,000115: 07,2000                                           SETLOC   SXTMARKE                              
010617,000116: 07,2000                                           BANK                                           
010618,000117: 
010619,000118: 07,2000  E7,1722                                  EBANK=   MRKBUF1                               
010620,000119: 07,2000                                           COUNT*   $$/SXTMK                              
010621,000120: 07,2000           02062        SXTMARK            TC       TESTMARK                              
010622,000121: 07,2001           05354                           TC       CHECKMM                               #  IS THIS P24
010623,000122: 07,2002           00030                           MM       24         B-14                       
010624,000123: 07,2003           12005                           TCF      +2                                    #  NO
010625,000124: 07,2004           12010                           TCF      SXTMRKA                               #  YES
010626,000125: 07,2005           05354                           TC       CHECKMM                               
010627,000126: 07,2006           00026                           MM       22         B-14                       
010628,000127: 07,2007           12015                           TCF      SETMRK                                
010629,000128: 07,2010           34772        SXTMRKA            CAF      ZERO                                  #  INITIALIZE MARK COUNTER
010630,000129: 07,2011           55747                           TS       8NN                                   
010631,000130: 
010632,000131: 07,2012           55753                           TS       P22DEX                                
010633,000132: 07,2013           34773                           CAF      FIVE                                  #  5 MARKS FOR P22, ONE FOR ALL OTHERS
010634,000133: 07,2014           12016                           TCF      SETMRK     +1                         
010635,000134: 07,2015           34770        SETMRK             CAF      ONE                                   
010636,000135: 07,2016           54301                           TS       MARKINDX                              
010637,000136: 
010638,000137: 07,2017           04665                           TC       MAKECADR                              #  STORE RETURN TO USER WHO CALLED
010639,000138: 07,2020           55336                           TS       OPTCADR                               #     SXTMARK IN OPTCADR
010640,000139: 
010641,000140: 07,2021           04636        MKVB51             TC       BANKCALL                              #  CLEAR DISPLAY FOR MARK VERB
010642,000141: 07,2022           20575                           CADR     KLEENEX                               
010643,000142: 07,2023           32061        MKVBDSP            CAF      VB51                                  #  DISPLAY MARK VERB 51
010644,000143: 07,2024           04636                 +1        TC       BANKCALL                              
010645,000144: 07,2025           20604                           CADR     GOMARK4                               
010646,000145: 07,2026           12031                           TCF      TERMSXT                               #  VB34-TERMINATE
010647,000146: 07,2027           12042                           TCF      ENTANSWR                              #  V33-PROCEED-MARKING DONE
010648,000147: 07,2030           12052                           TCF      MKVB5X                                #  ENTER-RECYCLE TO INITIAL MARK DISPLAY
010649,000148: 
010650,000149: 07,2031           05527        TERMSXT            TC       CLEARMRK                              #  CLEAR MARK ACTIVITY.
010651,000150: 
010652,000151: 07,2032           02073                           TC       MKRLEES                               
010653,000152: 
010654,000153: 07,2033           05354                           TC       CHECKMM                               
010655,000154: 07,2034           00003                           MM       03         B-14                       
010656,000155: 07,2035           12037                           TCF      +2                                    
010657,000156: 07,2036           02040                           TC       TERMP03                               
010658,000157: 07,2037           04103                           TC       GOTOPOOH                              
010659,000158: 
010660,000159: 07,2040           04655        TERMP03            TC       POSTJUMP                              
010661,000160: 07,2041           67370                           CADR     GCOMP5                                
010662,000161: 
010663,000162: 07,2042           37645        ENTANSWR           CAF      PRIO24                                
010664,000163: 07,2043           05121                           TC       NOVAC                                 

Page 242

010666,000165: 07,2044  0003777                                  EBANK=   WHOCARES                              
010667,000166: 07,2044           05524 04067                     2CADR    ENDEXT                                
010668,000167: 
010669,000168: 07,2046           35052                           CAF      PRIO13                                #  ALLOW LEFTOVER SLEEPING JOB IF ANY
010670,000169: 07,2047           05176                           TC       PRIOCHNG                              
010671,000170: 
010672,000171: 07,2050           31336        MKVRET             CA       OPTCADR                               #  OPTCADR HAS RETURN CADR OF USER WHO
010673,000172: 07,2051           04660                           TC       BANKJUMP                              #     CALLED SXTMARK
010674,000173: 
010675,000174: 07,2052           10301        MKVB5X             CCS      MARKINDX                              #  REDISPLAY VB51 IF MORE MARKS WANTED
010676,000175: 07,2053           12021                           TCF      MKVB51                                
010677,000176: 07,2054           34321        MKVB50             CAF      R1D1                                  #  OCT 16
010678,000177: 07,2055           55250                           TS       DSPTEM1                               
010679,000178: 07,2056           32060                           CAF      V50N25                                #  DISPLAY V50N25 IF MARKING DONE.
010680,000179: 07,2057           12024                           TCF      MKVBDSP    +1                         
010681,000180: 07,2060           14431        V50N25             VN       5025                                  
010682,000181: 07,2061           14600        VB51               VN       5100                                  
010683,000182: 
010684,000183: 07,2062           36211        TESTMARK           CAF      SIX                                   
010685,000184: 07,2063           71247                           MASK     EXTVBACT                              
010686,000185: 07,2064           10000                           CCS      A                                     
010687,000186: 07,2065           12071                           TCF      MKABORT                               
010688,000187: 07,2066           34767                           CAF      BIT2                                  
010689,000188: 07,2067           27247                           ADS      EXTVBACT                              
010690,000189: 07,2070           00002                           TC       Q                                     
010691,000190: 
010692,000191: 07,2071           07706        MKABORT            TC       BAILOUT                               
010693,000192: 07,2072           31211                           OCT      31211                                 
010694,000193: 
010695,000194: 07,2073  07,2073               MKRELEAS           EQUALS   MKRLEES                               
010696,000195: 
010697,000196: 07,2073           00004        MKRLEES            INHINT                                         
010698,000197: 07,2074           37702                           CA       NEGONE                                
010699,000198: 07,2075           55323                           TS       OPTIND                                #  KILL COARS OPTICS
010700,000199: 
010701,000200: 07,2076           34772                           CAF      ZERO                                  
010702,000201: 07,2077           54301                           TS       MARKINDX                              
010703,000202: 
010704,000203: 07,2100           44765                           CS       MARKBIT                               
010705,000204: 07,2101           70075                           MASK     FLAGWRD1                              
010706,000205: 07,2102           54075                           TS       FLAGWRD1                              
010707,000206: 
010708,000207: 07,2103           00003                           RELINT                                         
010709,000208: 
010710,000209: 07,2104           00002                           TC       Q                                     
010711,000210: 

Page 243

010713,000212: 
010714,000213: 07,2105           54016        MARKRUPT           TS       BANKRUPT                              #  STORE CDUS AND OPTICS NOW
010715,000214: 07,2106           30035                           CA       CDUT                                  
010716,000215: 07,2107           54361                           TS       MKCDUT                                
010717,000216: 07,2110           30036                           CA       CDUS                                  
010718,000217: 07,2111           54357                           TS       MKCDUS                                
010719,000218: 07,2112           30033                           CA       CDUY                                  
010720,000219: 07,2113           54356                           TS       MKCDUY                                
010721,000220: 07,2114           30034                           CA       CDUZ                                  
010722,000221: 07,2115           54360                           TS       MKCDUZ                                
010723,000222: 07,2116           30032                           CA       CDUX                                  
010724,000223: 07,2117           54362                           TS       MKCDUX                                
010725,000224: 07,2120           00006                           EXTEND                                         
010726,000225: 07,2121           30025                           DCA      TIME2                                 #  GET TIME
010727,000226: 07,2122           52355                           DXCH     MKT2T1                                
010728,000227: 07,2123           00006                           EXTEND                                         
010729,000228: 07,2124           30355                           DCA      MKT2T1                                
010730,000229: 07,2125           52014                           DXCH     SAMPTIME                              #  RUPT TIME FOR NOUN 65.
010731,000230: 
010732,000231: 07,2126           56002                           XCH      Q                                     
010733,000232: 07,2127           54012                           TS       QRUPT                                 
010734,000233: 
010735,000234: 07,2130           34763                           CAF      BIT6                                  #  SEE IF MARK OR MKREJECT
010736,000235: 07,2131           00006                           EXTEND                                         
010737,000236: 07,2132           02016                           RAND     NAVKEYIN                              
010738,000237: 07,2133           10000                           CCS      A                                     
010739,000238: 07,2134           02154                           TC       MARKIT                                #  ITS A MARK
010740,000239: 
010741,000240: 07,2135           34762                           CAF      BIT7                                  #  NOT A MARK, SEE IF MKREJECT
010742,000241: 07,2136           00006                           EXTEND                                         
010743,000242: 07,2137           02016                           RAND     NAVKEYIN                              
010744,000243: 07,2140           10000                           CCS      A                                     
010745,000244: 07,2141           02344                           TC       MKREJECT                              #  ITS A MARK REJECT
010746,000245: 
010747,000246: 07,2142           34342        KEYCALL            CAF      OCT37                                 #  NOT MARK OR MKREJECT, SEE IF KEYCODE
010748,000247: 07,2143           00006                           EXTEND                                         
010749,000248: 07,2144           02016                           RAND     NAVKEYIN                              
010750,000249: 07,2145           00006                           EXTEND                                         
010751,000250: 07,2146           12151                           BZF      +3                                    #  IF NO INBITS
010752,000251: 07,2147           04655                           TC       POSTJUMP                              
010753,000252: 07,2150           17675                           CADR     KEYCOM                                #  IT,S A KEY CODE, NOT A MARK.
010754,000253: 
010755,000254: 07,2151           05671                 +3        TC       ALARM                                 #  ALARM IF NO INBITS
010756,000255: 07,2152           00113                           OCT      113                                   
010757,000256: 07,2153           05323                           TC       RESUME                                
010758,000257: 

Page 244

010760,000259: 
010761,000260:                                                                                                  #  PROGRAM NAME - MARKIT                                 DATE- 19 SEPT 1967
010762,000261: 
010763,000262:                                                                                                  #  CALLING SEQUENCE
010764,000263:                                                                                                  #        FROM MARKRUPT IF CHAN 16 BIT 6 = 1
010765,000264: 
010766,000265:                                                                                                  #  EXIT
010767,000266:                                                                                                  #        RESUME
010768,000267: 
010769,000268:                                                                                                  #  INPUT
010770,000269:                                                                                                  #        CDUCHKWD. ALSO ALL INITIALIZATION FOR MARKCONT
010771,000270: 
010772,000271:                                                                                                  #  OUTPUT
010773,000272:                                                                                                  #        MKT2T1,MKCDUX,MKCDUY,MKCDUZ,MKCDUS,MKCDUT
010774,000273: 
010775,000274:                                                                                                  #  ALARM EXIT
010776,000275:                                                                                                  #        NONE
010777,000276: 
010778,000277: 07,2154           11341        MARKIT             CCS      CDUCHKWD                              
010779,000278: 07,2155           12160                           TCF      +3                                    #  DELAY OF CDUCHKWD CS IF PNZ
010780,000279: 07,2156           12160                           TCF      +2                                    
010781,000280: 07,2157           34772                           CAF      ZERO                                  
010782,000281: 07,2160           64770                           AD       ONE                                   #  10 MS IF NO CHECK
010783,000282: 07,2161           05233                           TC       WAITLIST                              
010784,000283: 07,2162  E7,1722                                  EBANK=   MRKBUF1                               
010785,000284: 07,2162           02165 16067                     2CADR    MARKDIF                               
010786,000285: 
010787,000286: 07,2164           15323                           TCF      RESUME                                
010788,000287: 
010789,000288: 07,2165           34753        MARKDIF            CAF      P24BIT                                #  IS THIS P24
010790,000289: 07,2166           70105                           MASK     FLAGWRD9                              
010791,000290: 07,2167           10000                           CCS      A                                     
010792,000291: 07,2170           12204                           TCF      MARKCONT                              #  YES ACCEPT MARK
010793,000292: 07,2171           31341                           CA       CDUCHKWD                              #  IF DELAY CHECK IS ZERO OR NEG, ACP MARK
010794,000293: 07,2172           00006                           EXTEND                                         
010795,000294: 07,2173           62204                           BZMF     MARKCONT                              
010796,000295: 07,2174           44770                           CS       BIT1                                  
010797,000296: 07,2175           54353                           TS       MKNDX                                 #  SET INDEX -1
010798,000297: 07,2176           30362                           CA       MKCDUX                                
010799,000298: 07,2177           02325                           TC       DIFCHK                                #  SEE IF VEHICLE RATE TO MUCH AT MARK
010800,000299: 07,2200           30356                           CA       MKCDUY                                
010801,000300: 07,2201           02325                           TC       DIFCHK                                
010802,000301: 07,2202           30360                           CA       MKCDUZ                                
010803,000302: 07,2203           02325                           TC       DIFCHK                                
010804,000303: 
010805,000304: 07,2204           34753        MARKCONT           CAF      R21BIT                                #  R21 MARKING
010806,000305: 07,2205           70076                           MASK     FLAGWRD2                              
010807,000306: 07,2206           10000                           CCS      A                                     
010808,000307: 07,2207           12314                           TCF      PUTMARK                               #  YES
010809,000308: 
010810,000309: 07,2210           34755                           CAF      V59FLBIT                              

Page 245

010812,000311: 07,2211           70101                           MASK     FLAGWRD5                              #  V59FLAG
010813,000312: 07,2212           10000                           CCS      A                                     
010814,000313: 07,2213           12304                           TCF      DOWNMRK                               
010815,000314: 
010816,000315: 07,2214           10301                           CCS      MARKINDX                              #  MARKS CALLED FOR
010817,000316: 07,2215           12221                           TCF      MARK2                                 #  YES
010818,000317: 
010819,000318: 07,2216           05671        114ALM             TC       ALARM                                 
010820,000319: 07,2217           00114                           OCT      114                                   #  MARKS NOT CALLED FOR
010821,000320: 07,2220           05314                           TC       TASKOVER                              
010822,000321: 
010823,000322: 07,2221           54301        MARK2              TS       MARKINDX                              #  DECREMENT NO. MARKS WANTED
010824,000323: 
010825,000324: 07,2222           05547                           TC       UPFLAG                                
010826,000325: 07,2223           00032                           ADRES    MARKFLG                               #  SET FLAG TO ENABLE REJECT
010827,000326: 
010828,000327: 07,2224           05354                           TC       CHECKMM                               #  IS THIS P24
010829,000328: 07,2225           00030                           MM       24         B-14                       
010830,000329: 07,2226           12235                           TCF      MRKCHK22                              #  NO
010831,000330: 07,2227           24301                           INCR     MARKINDX                              #  RESTORE THIS REGISTER
010832,000331: 07,2230           05547                           TC       UPFLAG                                
010833,000332: 07,2231           00061                           ADRES    P22MKFLG                              #  DOWNLINK CONTAINS P24 MARKS
010834,000333: 07,2232           05547                           TC       UPFLAG                                
010835,000334: 07,2233           00052                           ADRES    P24MKFLG                              #  NEW P24MARK TAKEN
010836,000335: 07,2234           12240                           TCF      VACSTOR    -1                         
010837,000336: 07,2235           05354        MRKCHK22           TC       CHECKMM                               
010838,000337: 07,2236           00026                           MM       22         B-14                       
010839,000338: 07,2237           12314                           TCF      PUTMARK                               
010840,000339: 07,2240           25747                 -1        INCR     8NN                                   #  NO, MARKS TAKEN.
010841,000340: 07,2241           00006        VACSTOR            EXTEND                                         
010842,000341: 07,2242           30355                           DCA      MKT2T1                                
010843,000342: 07,2243           51753                           INDEX    P22DEX                                
010844,000343: 07,2244           53540                           DXCH     SVMRKDAT                              
010845,000344: 07,2245           00006                           EXTEND                                         
010846,000345: 07,2246           30357                           DCA      MKCDUY                                
010847,000346: 07,2247           51753                           INDEX    P22DEX                                
010848,000347: 07,2250           53542                           DXCH     SVMRKDAT   +2                         
010849,000348: 07,2251           00006                           EXTEND                                         
010850,000349: 07,2252           30361                           DCA      MKCDUZ                                
010851,000350: 07,2253           51753                           INDEX    P22DEX                                
010852,000351: 07,2254           53544                           DXCH     SVMRKDAT   +4                         
010853,000352: 07,2255           30362                           CA       MKCDUX                                
010854,000353: 07,2256           51753                           INDEX    P22DEX                                
010855,000354: 07,2257           55545                           TS       SVMRKDAT   +6                         
010856,000355: 
010857,000356: 07,2260           05354                           TC       CHECKMM                               #  IS THIS P24
010858,000357: 07,2261           00030                           MM       24         B-14                       
010859,000358: 07,2262           12273                           TCF      INDINC                                #  NO
010860,000359: 07,2263           44172                           CS       OCT34                                 #  YES DEC 28
010861,000360: 07,2264           61753                           AD       P22DEX                                

Page 246

010863,000362: 07,2265           00006                           EXTEND                                         #  ARE THERE ANY MORE LOC LEFT IN MARK
010864,000363: 07,2266           12270                           BZF      +2                                    #  DOWNLINK BUFFER
010865,000364: 07,2267           12273                           TCF      INDINC                                #  YES
010866,000365: 07,2270           34772                           CA       ZERO                                  #  REINITIALIZE INDEX FOR
010867,000366: 07,2271           55753                           TS       P22DEX                                #  BEGINNING OF BUFFER
010868,000367: 07,2272           12275                           TCF      MARKDONE                              
010869,000368: 07,2273           34774        INDINC             CAF      SEVEN                                 
010870,000369: 07,2274           27753                           ADS      P22DEX                                
010871,000370: 07,2275           10301        MARKDONE           CCS      MARKINDX                              #  ANY MORE MARKS TO BE TAKEN
010872,000371: 07,2276           15314                           TCF      TASKOVER                              
010873,000372: 07,2277           37644                           CAF      PRIO22                                
010874,000373: 07,2300           05135                           TC       FINDVAC                               
010875,000374: 07,2301  E7,1722                                  EBANK=   MRKBUF1                               
010876,000375: 07,2301           02052 16067                     2CADR    MKVB5X                                
010877,000376: 
010878,000377: 07,2303           15314                           TCF      TASKOVER                              
010879,000378: 
010880,000379: 07,2304           36211        DOWNMRK            CAF      SIX                                   #  FOR CALIBRATION MARK
010881,000380: 07,2305           05607                           TC       GENTRAN                               
010882,000381: 07,2306           00354                           ADRES    MKT2T1                                
010883,000382: 07,2307           01674                           ADRES    MARKDOWN                              
010884,000383: 
010885,000384: 07,2310           35047                           CAF      PRIO5                                 
010886,000385: 07,2311           05121                           TC       NOVAC                                 
010887,000386: 07,2312  E7,1722                                  EBANK=   MRKBUF1                               
010888,000387: 07,2312           02230 76067                     2CADR    MARKDISP                              
010889,000388: 
010890,000389: 07,2314           36211        PUTMARK            CAF      SIX                                   
010891,000390: 07,2315           05607                           TC       GENTRAN                               
010892,000391: 07,2316           00354                           ADRES    MKT2T1                                
010893,000392: 07,2317           01722                           ADRES    MRKBUF1                               
010894,000393: 
010895,000394: 07,2320           34753                           CAF      R21BIT                                #  DONT CALL VB50 DISPLAY FOR R21
010896,000395: 07,2321           70076                           MASK     FLAGWRD2                              
010897,000396: 07,2322           10000                           CCS      A                                     
010898,000397: 07,2323           15314                           TCF      TASKOVER                              
010899,000398: 
010900,000399: 07,2324           12275                           TCF      MARKDONE                              
010901,000400: 
010902,000401: 07,2325           24353        DIFCHK             INCR     MKNDX                                 #  INCREMENT INDEX
010903,000402: 
010904,000403: 07,2326           00006                           EXTEND                                         
010905,000404: 07,2327           50353                           INDEX    MKNDX                                 
010906,000405: 07,2330           20032                           MSU      CDUX                                  #  GET MARK(ICDU) - CURRENT(ICDU)
010907,000406: 07,2331           10000                           CCS      A                                     
010908,000407: 07,2332           12336                           TCF      +4                                    
010909,000408: 07,2333           00002                           TC       Q                                     
010910,000409: 07,2334           12336                           TCF      +2                                    
010911,000410: 07,2335           00002                           TC       Q                                     

Page 247

010913,000412: 07,2336           67701                           AD       NEG2                                  #  SEE IF DIFFERENCE GREATER THAN 3 BITS
010914,000413: 07,2337           00006                           EXTEND                                         
010915,000414: 07,2340           62335                           BZMF     -3                                    #  NOT GREATER
010916,000415: 
010917,000416: 07,2341           05671                           TC       ALARM                                 #  COUPLED WITH PROGRAM ALARM
010918,000417: 07,2342           00121                           OCT      00121                                 
010919,000418: 
010920,000419: 07,2343           15314                           TCF      TASKOVER                              #  DO NOT ACCEPT
010921,000420: 
010922,000421: 07,2344           34753        MKREJECT           CAF      R21BIT                                
010923,000422: 07,2345           70076                           MASK     FLAGWRD2                              #  R21 MARK (SPECIAL MARKING FOR R21)
010924,000423: 07,2346           00006                           EXTEND                                         
010925,000424: 07,2347           12367                           BZF      MRKREJCT                              #  NOT SET THEREFORE REGULAR REJECT
010926,000425: 07,2350           31722                           CA       MRKBUF1                               #  IS THERE A MARK IN THE BUFFER?
010927,000426: 07,2351           00006                           EXTEND                                         
010928,000427: 07,2352           12355                           BZF      +3                                    #  YES - REJECT MARK IN BUFFER
010929,000428: 
010930,000429: 07,2353           00006                           EXTEND                                         
010931,000430: 07,2354           62360                           BZMF     REJCTR22                              #  NO,SET FLAG TO REJECT MARK PROCESSED-R22
010932,000431: 
010933,000432: 07,2355           37702                           CA       NEGONE                                #  -1 (FOR R22)
010934,000433: 07,2356           55722                           TS       MRKBUF1                               #  -0 IN TIME IS FLAG TO R22 SIGNIFYING A
010935,000434: 07,2357           05323                           TC       RESUME                                
010936,000435: 
010937,000436: 07,2360           34762        REJCTR22           CAF      R22CABIT                              #  IS R22 PROCESSING A MARK?
010938,000437: 07,2361           70105                           MASK     FLAGWRD9                              
010939,000438: 07,2362           00006                           EXTEND                                         
010940,000439: 07,2363           15323                           BZF      RESUME                                #  NO IGNORE MARK REJECT
010941,000440: 
010942,000441: 07,2364           05547                           TC       UPFLAG                                
010943,000442: 07,2365           00231                           ADRES    REJCTFLG                              #  YES - SET FLAG FOR R22
010944,000443: 07,2366           05323                           TC       RESUME                                
010945,000444: 
010946,000445: 07,2367           34765        MRKREJCT           CAF      MARKBIT                               
010947,000446: 07,2370           70075                           MASK     FLAGWRD1                              
010948,000447: 07,2371           10000                           CCS      A                                     
010949,000448: 07,2372           02376                           TC       REJECT3                               
010950,000449: 
010951,000450: 07,2373           05671                           TC       ALARM                                 #  DONT ACCEPT TWO REJECTS TOGETHER
010952,000451: 07,2374           00110                           OCT      110                                   
010953,000452: 07,2375           05323                           TC       RESUME                                
010954,000453: 
010955,000454: 07,2376           05561        REJECT3            TC       DOWNFLAG                              
010956,000455: 07,2377           00032                           ADRES    MARKFLG                               
010957,000456: 
010958,000457: 07,2400           05354                           TC       CHECKMM                               #  IS THIS P24
010959,000458: 07,2401           00030                           MM       24         B-14                       
010960,000459: 07,2402           12422                           TCF      REJECT4                               #  NO
010961,000460: 07,2403           05561                           TC       DOWNFLAG                              #  YES
010962,000461: 07,2404           00052                           ADRES    P24MKFLG                              

Page 248

010964,000463: 07,2405           11753                           CCS      P22DEX                                #  IS MARK TO BE REJ, THE LAST MARK IN BUF
010965,000464: 07,2406           12411                           TCF      +3                                    #  NO
010966,000465: 07,2407           34172                           CA       OCT34                                 #  YES
010967,000466: 07,2410           12413                           TCF      +3                                    
010968,000467: 07,2411           44774                           CS       SEVEN                                 
010969,000468: 07,2412           61753                           AD       P22DEX                                
010970,000469: 07,2413           54070        REJECT5            TS       RUPTREG1                              
010971,000470: 07,2414           00006                           EXTEND                                         
010972,000471: 07,2415           50070                           INDEX    RUPTREG1                              
010973,000472: 07,2416           41540                           DCS      SVMRKDAT                              
010974,000473: 07,2417           50070                           INDEX    RUPTREG1                              
010975,000474: 07,2420           53540                           DXCH     SVMRKDAT                              
010976,000475: 07,2421           12433                           TCF      REJEXIT                               
010977,000476: 07,2422           24301        REJECT4            INCR     MARKINDX                              #  CALL FOR ANOTHER MARK
010978,000477: 07,2423           05354                           TC       CHECKMM                               
010979,000478: 07,2424           00026                           MM       22         B-14                       
010980,000479: 07,2425           12433                           TCF      REJEXIT                               
010981,000480: 
010982,000481: 07,2426           44770                           CS       ONE                                   #  FOR P22
010983,000482: 07,2427           27747                           ADS      8NN                                   
010984,000483: 07,2430           44774                           CS       SEVEN                                 
010985,000484: 07,2431           27753                           ADS      P22DEX                                #  DECREMENT P22 INDEX
010986,000485: 
010987,000486: 07,2432           12413                           TCF      REJECT5                               
010988,000487: 
010989,000488: 07,2433           37644        REJEXIT            CAF      PRIO22                                
010990,000489: 07,2434           05135                           TC       FINDVAC                               
010991,000490: 07,2435  E7,1722                                  EBANK=   MRKBUF1                               
010992,000491: 07,2435           02023 16067                     2CADR    MKVBDSP                               
010993,000492: 
010994,000493: 07,2437           15323                           TCF      RESUME                                

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