Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

010554,000002:                                                                                                  ## Copyright:   Public domain.
010555,000003:                                                                                                  ## Filename:    SXTMARK.agc
010556,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
010557,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
010558,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
010559,000007:                                                                                                  ##              Apollo 15-17.
010560,000008:                                                                                                  ## Assembler:   yaYUL
010561,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
010562,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010563,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
010564,000012:                                                                                                  ## Mod history: 2009-08-04 JL   Adapted from corresponding Comanche 055 file.
010565,000013:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
010566,000014:                                                                                                  ##              2010-02-11 JL   Fixed error on p242.
010567,000015:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
010568,000016:                                                                                                  ##              2010-12-29 JL   Fixed indentation.
010569,000017:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
010570,000018:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
010571,000019: 

Page 239

010573,000021: 
010574,000022:                                                                                                  #  PROGRAM NAME     -     SXTMARK
010575,000023: 
010576,000024:                                                                                                  #  MOD. 1        8 AUG. 69       BY P.RYE
010577,000025: 
010578,000026:                                                                                                  #  FUNCTIONAL DESCRIPTION
010579,000027: 
010580,000028:                                                                                                  #        SXTMARK IS CALLED BY P03 AND BY P22, P23, P51, AND P52 VIA R53.
010581,000029:                                                                                                  #        THE REGISTER MARKINDX IS SET TO 5 IF THE CALLING PROGRAM IS P22, OR TO 1 FOR OTHER USERS.
010582,000030:                                                                                                  #           THIS REGISTER INDICATES THE NUMBER OF MARKS DESIRED.
010583,000031:                                                                                                  #        THE REGISTER EXTVBACT IS CHECKED (SUBROUTINE TESTMARK) TO INSURE THAT THE MARK DISPLAY SYSTEM
010584,000032:                                                                                                  #           IS FREE.  IF NOT, BAILOUT (31211) IS DONE.
010585,000033:                                                                                                  #        BIT 2 OF THE REGISTER EXTVBACT IS SET BY SXTMARK, RESERVING THE MARKING AND EXTENDED VERB SYSTEM.
010586,000034:                                                                                                  #        SXTMARK DISPLAYS A FLASHING VERB 51, CALLING FOR MARKS.  A PROCEED RESPONSE TO THIS DISPLAY
010587,000035:                                                                                                  #           WILL RELEASE THE MARKING SYSTEM (SUBROUTINES MKRELEAS, CLEARMARK) AND RETURN TO THE
010588,000036:                                                                                                  #           CALLING PROGRAM.
010589,000037: 
010590,000038:                                                                                                  #        WHEN SUFFICIENT MARKS HAVE BEEN MADE (MARKINDX = 0) A FLASHING V50N25, R1 = 16, IS DISPLAYED.
010591,000039:                                                                                                  #           A PROCEED RESPONSE TO THIS DISPLAY WILL RETURN TO THE CALLING PROGRAM AFTER RELEASING THE
010592,000040:                                                                                                  #           MARKING SYSTEM.
010593,000041: 
010594,000042:                                                                                                  #        MARKS ARE PROCESSED BY THE ROUTINE MARKRUPT AS FOLLOWS:
010595,000043:                                                                                                  #                IF NO MARKS ARE CALLED FOR, ALARM CODE 114 IS SENT AND THE MARKRUPT ROUTINE EXITS.
010596,000044:                                                                                                  #                IF A MARK IS ACCEPTED, MARKFLG IS SET TO ENABLE A REJECT.
010597,000045:                                                                                                  #                IF R21(P20) IS RUNNING, DATA IS MOVED FROM STORAGE MRKBUF1 INTO MRKBUF2.  NEW MARK DATA
010598,000046:                                                                                                  #                        IS STORED INTO MRKBUF1.
010599,000047:                                                                                                  #                IF P22 IS RUNNING, MARK DATA IS STORED INTO SVMRKDAT, USING THE REGISTER P22DEX AS AN
010600,000048:                                                                                                  #                        INDEX AND THE REGISTER 8NN AS A COUNTER.  MARKINDX IS DECREMENTED.
010601,000049:                                                                                                  #                IF R57 IS RUNNING, MARK DATA IS STORED INTO MARKDOWN FOR DOWNLINK, THEN PROCESSED AS FOR
010602,000050:                                                                                                  #                        R21.  MARKRUPT THEN CALLS MARKDISP (IN R57).
010603,000051:                                                                                                  #                FOR OTHER USERS, MARK DATA IS STORED INTO MRKBUF1 AND MARKINDX IS DECREMENTED.
010604,000052: 
010605,000053:                                                                                                  #        MARK REJECTS ARE PROCESSED BY THE ROUTINE MARKRUPT AS FOLLOWS:
010606,000054:                                                                                                  #                IF MARKFLG IS CLEAR (I.E., NO MARK WAS TAKEN), ALARM CODE 110 IS SENT AND THE ROUTINE EXITS.
010607,000055:                                                                                                  #                OTHERWISE, MARKINDX IS INCREMENTED, THE P22 INDICATORS 8NN AND P22DEX ARE DECREMENTED
010608,000056:                                                                                                  #                        (IF THE USER IS P22), AND THE V51FL DISPLAY IN SXTMARK IS REESTABLISHED.
010609,000057: 
010610,000058:                                                                                                  #        IF THE ERASABLE REGISTER CDUCHKWD IS SET TO A NON-ZERO VALUE, VALIDITY OF THE MARKS IS CHECKED
010611,000059:                                                                                                  #           BY THE MARKRUPT ROUTINE AS FOLLOWS:
010612,000060:                                                                                                  #                IF THE CDU'S CHANGE BY MORE THAN 3 BITS OVER THE TIME PERIOD INDICATED BY THE VALUE OF
010613,000061:                                                                                                  #                        CDUCHKWD, ALARM CODE 121 IS SENT AND THE ROUTINE EXITS.
010614,000062: 
010615,000063:                                                                                                  #  CALLING SEQUENCE -
010616,000064: 
010617,000065:                                                                                                  #        TC      BANKCALL
010618,000066:                                                                                                  #        CADR    SXTMARK
010619,000067: 
010620,000068: 

Page 240

010622,000070: 
010623,000071:                                                                                                  #  NORMAL EXIT MODE -
010624,000072: 
010625,000073:                                                                                                  #        RETURN TO USER VIA BANKJUMP (RETURN ADDRESS IN OPTCADR).
010626,000074: 
010627,000075: 
010628,000076:                                                                                                  #  ALARM OR ABORT EXIT MODES
010629,000077: 
010630,000078:                                                                                                  #        1. ALARM 110 - MARK REJECT WITH NO MARK
010631,000079:                                                                                                  #        2. ALARM 113 - NO INBITS
010632,000080:                                                                                                  #        3. ALARM 121 - CDU'S NO GOOD AT MARK TIME
010633,000081:                                                                                                  #        4. ALARM 114 - MARK MADE BUT NOT DESIRED
010634,000082:                                                                                                  #        5. BAILOUT 31211 - MARK DISPLAY SYSTEM BUSY
010635,000083: 
010636,000084: 
010637,000085:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
010638,000086: 
010639,000087:                                                                                                  #        NONE
010640,000088: 
010641,000089: 
010642,000090:                                                                                                  #  OUTPUT -
010643,000091: 
010644,000092:                                                                                                  #        FOR P22:
010645,000093:                                                                                                  #                MARK DATA IN SVMRKDAT
010646,000094:                                                                                                  #                MARKINDX DECREMENTED BY ONE FOR EACH MARK TAKEN
010647,000095:                                                                                                  #                NO. OF MARKS IN 8NN
010648,000096:                                                                                                  #        FOR R57:
010649,000097:                                                                                                  #                MARK DATA IN MARKDOWN AND MRKBUF1
010650,000098:                                                                                                  #        FOR OTHER USERS:
010651,000099:                                                                                                  #                MARKINDX DECREMENTED TO ZERO IF A MARK WAS TAKEN
010652,000100:                                                                                                  #                MARK DATA IN MRKBUF1
010653,000101: 
010654,000102: 
010655,000103:                                                                                                  #  CONDITIONS AT EXIT -
010656,000104: 
010657,000105:                                                                                                  #        MARKINDX = INITIAL VALUE - NO. MARKS TAKEN
010658,000106:                                                                                                  #        MARKING SYSTEM IS RELEASED :
010659,000107:                                                                                                  #                EXTVBACT = 0
010660,000108:                                                                                                  #                BIT 9 OPTMODES = 0
010661,000109:                                                                                                  #                OPTIND = -1
010662,000110:                                                                                                  #                BIT 2 CHAN12 = 0
010663,000111:                                                                                                  #        MARKFLG = 0
010664,000112:                                                                                                  #        OPTCADR CONTAINS CADR OF SXTMARK CALLER
010665,000113: 
010666,000114: 

Page 241

010668,000116: 07,2000                                           SETLOC   SXTMARKE                              
010669,000117: 07,2000                                           BANK                                           
010670,000118: 
010671,000119: 07,2000  E7,1722                                  EBANK=   MRKBUF1                               
010672,000120: 07,2000                                           COUNT*   $$/SXTMK                              
010673,000121: 07,2000           02062        SXTMARK            TC       TESTMARK                              
010674,000122: 07,2001           05354                           TC       CHECKMM                               #  IS THIS P24
010675,000123: 07,2002           00030                           MM       24         B-14                       
010676,000124: 07,2003           12005                           TCF      +2                                    #  NO
010677,000125: 07,2004           12010                           TCF      SXTMRKA                               #  YES
010678,000126: 07,2005           05354                           TC       CHECKMM                               
010679,000127: 07,2006           00026                           MM       22         B-14                       
010680,000128: 07,2007           12015                           TCF      SETMRK                                
010681,000129: 07,2010           34772        SXTMRKA            CAF      ZERO                                  #  INITIALIZE MARK COUNTER
010682,000130: 07,2011           55747                           TS       8NN                                   
010683,000131: 
010684,000132: 07,2012           55753                           TS       P22DEX                                
010685,000133: 07,2013           34773                           CAF      FIVE                                  #  5 MARKS FOR P22, ONE FOR ALL OTHERS
010686,000134: 07,2014           12016                           TCF      SETMRK     +1                         
010687,000135: 07,2015           34770        SETMRK             CAF      ONE                                   
010688,000136: 07,2016           54301                           TS       MARKINDX                              
010689,000137: 
010690,000138: 07,2017           04665                           TC       MAKECADR                              #  STORE RETURN TO USER WHO CALLED
010691,000139: 07,2020           55336                           TS       OPTCADR                               #     SXTMARK IN OPTCADR
010692,000140: 
010693,000141: 07,2021           04636        MKVB51             TC       BANKCALL                              #  CLEAR DISPLAY FOR MARK VERB
010694,000142: 07,2022           20575                           CADR     KLEENEX                               
010695,000143: 07,2023           32061        MKVBDSP            CAF      VB51                                  #  DISPLAY MARK VERB 51
010696,000144: 07,2024           04636                 +1        TC       BANKCALL                              
010697,000145: 07,2025           20604                           CADR     GOMARK4                               
010698,000146: 07,2026           12031                           TCF      TERMSXT                               #  VB34-TERMINATE
010699,000147: 07,2027           12042                           TCF      ENTANSWR                              #  V33-PROCEED-MARKING DONE
010700,000148: 07,2030           12052                           TCF      MKVB5X                                #  ENTER-RECYCLE TO INITIAL MARK DISPLAY
010701,000149: 
010702,000150: 07,2031           05527        TERMSXT            TC       CLEARMRK                              #  CLEAR MARK ACTIVITY.
010703,000151: 
010704,000152: 07,2032           02073                           TC       MKRLEES                               
010705,000153: 
010706,000154: 07,2033           05354                           TC       CHECKMM                               
010707,000155: 07,2034           00003                           MM       03         B-14                       
010708,000156: 07,2035           12037                           TCF      +2                                    
010709,000157: 07,2036           02040                           TC       TERMP03                               
010710,000158: 07,2037           04103                           TC       GOTOPOOH                              
010711,000159: 
010712,000160: 07,2040           04655        TERMP03            TC       POSTJUMP                              
010713,000161: 07,2041           67370                           CADR     GCOMP5                                
010714,000162: 
010715,000163: 07,2042           37645        ENTANSWR           CAF      PRIO24                                
010716,000164: 07,2043           05121                           TC       NOVAC                                 

Page 242

010718,000166: 07,2044  0003777                                  EBANK=   WHOCARES                              
010719,000167: 07,2044           05524 04067                     2CADR    ENDEXT                                
010720,000168: 
010721,000169: 07,2046           35052                           CAF      PRIO13                                #  ALLOW LEFTOVER SLEEPING JOB IF ANY
010722,000170: 07,2047           05176                           TC       PRIOCHNG                              
010723,000171: 
010724,000172: 07,2050           31336        MKVRET             CA       OPTCADR                               #  OPTCADR HAS RETURN CADR OF USER WHO
010725,000173: 07,2051           04660                           TC       BANKJUMP                              #     CALLED SXTMARK
010726,000174: 
010727,000175: 07,2052           10301        MKVB5X             CCS      MARKINDX                              #  REDISPLAY VB51 IF MORE MARKS WANTED
010728,000176: 07,2053           12021                           TCF      MKVB51                                
010729,000177: 07,2054           34321        MKVB50             CAF      R1D1                                  #  OCT 16
010730,000178: 07,2055           55250                           TS       DSPTEM1                               
010731,000179: 07,2056           32060                           CAF      V50N25                                #  DISPLAY V50N25 IF MARKING DONE.
010732,000180: 07,2057           12024                           TCF      MKVBDSP    +1                         
010733,000181: 07,2060           14431        V50N25             VN       5025                                  
010734,000182: 07,2061           14600        VB51               VN       5100                                  
010735,000183: 
010736,000184: 07,2062           36211        TESTMARK           CAF      SIX                                   
010737,000185: 07,2063           71247                           MASK     EXTVBACT                              
010738,000186: 07,2064           10000                           CCS      A                                     
010739,000187: 07,2065           12071                           TCF      MKABORT                               
010740,000188: 07,2066           34767                           CAF      BIT2                                  
010741,000189: 07,2067           27247                           ADS      EXTVBACT                              
010742,000190: 07,2070           00002                           TC       Q                                     
010743,000191: 
010744,000192: 07,2071           07706        MKABORT            TC       BAILOUT                               
010745,000193: 07,2072           31211                           OCT      31211                                 
010746,000194: 
010747,000195: 07,2073  07,2073               MKRELEAS           EQUALS   MKRLEES                               
010748,000196: 
010749,000197: 07,2073           00004        MKRLEES            INHINT                                         
010750,000198: 07,2074           37702                           CA       NEGONE                                
010751,000199: 07,2075           55323                           TS       OPTIND                                #  KILL COARS OPTICS
010752,000200: 
010753,000201: 07,2076           34772                           CAF      ZERO                                  
010754,000202: 07,2077           54301                           TS       MARKINDX                              
010755,000203: 
010756,000204: 07,2100           44765                           CS       MARKBIT                               
010757,000205: 07,2101           70075                           MASK     FLAGWRD1                              
010758,000206: 07,2102           54075                           TS       FLAGWRD1                              
010759,000207: 
010760,000208: 07,2103           00003                           RELINT                                         
010761,000209: 
010762,000210: 07,2104           00002                           TC       Q                                     
010763,000211: 

Page 243

010765,000213: 
010766,000214: 07,2105           54016        MARKRUPT           TS       BANKRUPT                              #  STORE CDUS AND OPTICS NOW
010767,000215: 07,2106           30035                           CA       CDUT                                  
010768,000216: 07,2107           54361                           TS       MKCDUT                                
010769,000217: 07,2110           30036                           CA       CDUS                                  
010770,000218: 07,2111           54357                           TS       MKCDUS                                
010771,000219: 07,2112           30033                           CA       CDUY                                  
010772,000220: 07,2113           54356                           TS       MKCDUY                                
010773,000221: 07,2114           30034                           CA       CDUZ                                  
010774,000222: 07,2115           54360                           TS       MKCDUZ                                
010775,000223: 07,2116           30032                           CA       CDUX                                  
010776,000224: 07,2117           54362                           TS       MKCDUX                                
010777,000225: 07,2120           00006                           EXTEND                                         
010778,000226: 07,2121           30025                           DCA      TIME2                                 #  GET TIME
010779,000227: 07,2122           52355                           DXCH     MKT2T1                                
010780,000228: 07,2123           00006                           EXTEND                                         
010781,000229: 07,2124           30355                           DCA      MKT2T1                                
010782,000230: 07,2125           52014                           DXCH     SAMPTIME                              #  RUPT TIME FOR NOUN 65.
010783,000231: 
010784,000232: 07,2126           56002                           XCH      Q                                     
010785,000233: 07,2127           54012                           TS       QRUPT                                 
010786,000234: 
010787,000235: 07,2130           34763                           CAF      BIT6                                  #  SEE IF MARK OR MKREJECT
010788,000236: 07,2131           00006                           EXTEND                                         
010789,000237: 07,2132           02016                           RAND     NAVKEYIN                              
010790,000238: 07,2133           10000                           CCS      A                                     
010791,000239: 07,2134           02154                           TC       MARKIT                                #  ITS A MARK
010792,000240: 
010793,000241: 07,2135           34762                           CAF      BIT7                                  #  NOT A MARK, SEE IF MKREJECT
010794,000242: 07,2136           00006                           EXTEND                                         
010795,000243: 07,2137           02016                           RAND     NAVKEYIN                              
010796,000244: 07,2140           10000                           CCS      A                                     
010797,000245: 07,2141           02344                           TC       MKREJECT                              #  ITS A MARK REJECT
010798,000246: 
010799,000247: 07,2142           34342        KEYCALL            CAF      OCT37                                 #  NOT MARK OR MKREJECT, SEE IF KEYCODE
010800,000248: 07,2143           00006                           EXTEND                                         
010801,000249: 07,2144           02016                           RAND     NAVKEYIN                              
010802,000250: 07,2145           00006                           EXTEND                                         
010803,000251: 07,2146           12151                           BZF      +3                                    #  IF NO INBITS
010804,000252: 07,2147           04655                           TC       POSTJUMP                              
010805,000253: 07,2150           17675                           CADR     KEYCOM                                #  IT,S A KEY CODE, NOT A MARK.
010806,000254: 
010807,000255: 07,2151           05671                 +3        TC       ALARM                                 #  ALARM IF NO INBITS
010808,000256: 07,2152           00113                           OCT      113                                   
010809,000257: 07,2153           05323                           TC       RESUME                                
010810,000258: 

Page 244

010812,000260: 
010813,000261:                                                                                                  #  PROGRAM NAME - MARKIT                                 DATE- 19 SEPT 1967
010814,000262: 
010815,000263:                                                                                                  #  CALLING SEQUENCE
010816,000264:                                                                                                  #        FROM MARKRUPT IF CHAN 16 BIT 6 = 1
010817,000265: 
010818,000266:                                                                                                  #  EXIT
010819,000267:                                                                                                  #        RESUME
010820,000268: 
010821,000269:                                                                                                  #  INPUT
010822,000270:                                                                                                  #        CDUCHKWD. ALSO ALL INITIALIZATION FOR MARKCONT
010823,000271: 
010824,000272:                                                                                                  #  OUTPUT
010825,000273:                                                                                                  #        MKT2T1,MKCDUX,MKCDUY,MKCDUZ,MKCDUS,MKCDUT
010826,000274: 
010827,000275:                                                                                                  #  ALARM EXIT
010828,000276:                                                                                                  #        NONE
010829,000277: 
010830,000278: 07,2154           11341        MARKIT             CCS      CDUCHKWD                              
010831,000279: 07,2155           12160                           TCF      +3                                    #  DELAY OF CDUCHKWD CS IF PNZ
010832,000280: 07,2156           12160                           TCF      +2                                    
010833,000281: 07,2157           34772                           CAF      ZERO                                  
010834,000282: 07,2160           64770                           AD       ONE                                   #  10 MS IF NO CHECK
010835,000283: 07,2161           05233                           TC       WAITLIST                              
010836,000284: 07,2162  E7,1722                                  EBANK=   MRKBUF1                               
010837,000285: 07,2162           02165 16067                     2CADR    MARKDIF                               
010838,000286: 
010839,000287: 07,2164           15323                           TCF      RESUME                                
010840,000288: 
010841,000289: 07,2165           34753        MARKDIF            CAF      P24BIT                                #  IS THIS P24
010842,000290: 07,2166           70105                           MASK     FLAGWRD9                              
010843,000291: 07,2167           10000                           CCS      A                                     
010844,000292: 07,2170           12204                           TCF      MARKCONT                              #  YES ACCEPT MARK
010845,000293: 07,2171           31341                           CA       CDUCHKWD                              #  IF DELAY CHECK IS ZERO OR NEG, ACP MARK
010846,000294: 07,2172           00006                           EXTEND                                         
010847,000295: 07,2173           62204                           BZMF     MARKCONT                              
010848,000296: 07,2174           44770                           CS       BIT1                                  
010849,000297: 07,2175           54353                           TS       MKNDX                                 #  SET INDEX -1
010850,000298: 07,2176           30362                           CA       MKCDUX                                
010851,000299: 07,2177           02325                           TC       DIFCHK                                #  SEE IF VEHICLE RATE TO MUCH AT MARK
010852,000300: 07,2200           30356                           CA       MKCDUY                                
010853,000301: 07,2201           02325                           TC       DIFCHK                                
010854,000302: 07,2202           30360                           CA       MKCDUZ                                
010855,000303: 07,2203           02325                           TC       DIFCHK                                
010856,000304: 
010857,000305: 07,2204           34753        MARKCONT           CAF      R21BIT                                #  R21 MARKING
010858,000306: 07,2205           70076                           MASK     FLAGWRD2                              
010859,000307: 07,2206           10000                           CCS      A                                     
010860,000308: 07,2207           12314                           TCF      PUTMARK                               #  YES
010861,000309: 
010862,000310: 07,2210           34755                           CAF      V59FLBIT                              

Page 245

010864,000312: 07,2211           70101                           MASK     FLAGWRD5                              #  V59FLAG
010865,000313: 07,2212           10000                           CCS      A                                     
010866,000314: 07,2213           12304                           TCF      DOWNMRK                               
010867,000315: 
010868,000316: 07,2214           10301                           CCS      MARKINDX                              #  MARKS CALLED FOR
010869,000317: 07,2215           12221                           TCF      MARK2                                 #  YES
010870,000318: 
010871,000319: 07,2216           05671        114ALM             TC       ALARM                                 
010872,000320: 07,2217           00114                           OCT      114                                   #  MARKS NOT CALLED FOR
010873,000321: 07,2220           05314                           TC       TASKOVER                              
010874,000322: 
010875,000323: 07,2221           54301        MARK2              TS       MARKINDX                              #  DECREMENT NO. MARKS WANTED
010876,000324: 
010877,000325: 07,2222           05547                           TC       UPFLAG                                
010878,000326: 07,2223           00032                           ADRES    MARKFLG                               #  SET FLAG TO ENABLE REJECT
010879,000327: 
010880,000328: 07,2224           05354                           TC       CHECKMM                               #  IS THIS P24
010881,000329: 07,2225           00030                           MM       24         B-14                       
010882,000330: 07,2226           12235                           TCF      MRKCHK22                              #  NO
010883,000331: 07,2227           24301                           INCR     MARKINDX                              #  RESTORE THIS REGISTER
010884,000332: 07,2230           05547                           TC       UPFLAG                                
010885,000333: 07,2231           00061                           ADRES    P22MKFLG                              #  DOWNLINK CONTAINS P24 MARKS
010886,000334: 07,2232           05547                           TC       UPFLAG                                
010887,000335: 07,2233           00052                           ADRES    P24MKFLG                              #  NEW P24MARK TAKEN
010888,000336: 07,2234           12240                           TCF      VACSTOR    -1                         
010889,000337: 07,2235           05354        MRKCHK22           TC       CHECKMM                               
010890,000338: 07,2236           00026                           MM       22         B-14                       
010891,000339: 07,2237           12314                           TCF      PUTMARK                               
010892,000340: 07,2240           25747                 -1        INCR     8NN                                   #  NO, MARKS TAKEN.
010893,000341: 07,2241           00006        VACSTOR            EXTEND                                         
010894,000342: 07,2242           30355                           DCA      MKT2T1                                
010895,000343: 07,2243           51753                           INDEX    P22DEX                                
010896,000344: 07,2244           53540                           DXCH     SVMRKDAT                              
010897,000345: 07,2245           00006                           EXTEND                                         
010898,000346: 07,2246           30357                           DCA      MKCDUY                                
010899,000347: 07,2247           51753                           INDEX    P22DEX                                
010900,000348: 07,2250           53542                           DXCH     SVMRKDAT   +2                         
010901,000349: 07,2251           00006                           EXTEND                                         
010902,000350: 07,2252           30361                           DCA      MKCDUZ                                
010903,000351: 07,2253           51753                           INDEX    P22DEX                                
010904,000352: 07,2254           53544                           DXCH     SVMRKDAT   +4                         
010905,000353: 07,2255           30362                           CA       MKCDUX                                
010906,000354: 07,2256           51753                           INDEX    P22DEX                                
010907,000355: 07,2257           55545                           TS       SVMRKDAT   +6                         
010908,000356: 
010909,000357: 07,2260           05354                           TC       CHECKMM                               #  IS THIS P24
010910,000358: 07,2261           00030                           MM       24         B-14                       
010911,000359: 07,2262           12273                           TCF      INDINC                                #  NO
010912,000360: 07,2263           44172                           CS       OCT34                                 #  YES DEC 28
010913,000361: 07,2264           61753                           AD       P22DEX                                

Page 246

010915,000363: 07,2265           00006                           EXTEND                                         #  ARE THERE ANY MORE LOC LEFT IN MARK
010916,000364: 07,2266           12270                           BZF      +2                                    #  DOWNLINK BUFFER
010917,000365: 07,2267           12273                           TCF      INDINC                                #  YES
010918,000366: 07,2270           34772                           CA       ZERO                                  #  REINITIALIZE INDEX FOR
010919,000367: 07,2271           55753                           TS       P22DEX                                #  BEGINNING OF BUFFER
010920,000368: 07,2272           12275                           TCF      MARKDONE                              
010921,000369: 07,2273           34774        INDINC             CAF      SEVEN                                 
010922,000370: 07,2274           27753                           ADS      P22DEX                                
010923,000371: 07,2275           10301        MARKDONE           CCS      MARKINDX                              #  ANY MORE MARKS TO BE TAKEN
010924,000372: 07,2276           15314                           TCF      TASKOVER                              
010925,000373: 07,2277           37644                           CAF      PRIO22                                
010926,000374: 07,2300           05135                           TC       FINDVAC                               
010927,000375: 07,2301  E7,1722                                  EBANK=   MRKBUF1                               
010928,000376: 07,2301           02052 16067                     2CADR    MKVB5X                                
010929,000377: 
010930,000378: 07,2303           15314                           TCF      TASKOVER                              
010931,000379: 
010932,000380: 07,2304           36211        DOWNMRK            CAF      SIX                                   #  FOR CALIBRATION MARK
010933,000381: 07,2305           05607                           TC       GENTRAN                               
010934,000382: 07,2306           00354                           ADRES    MKT2T1                                
010935,000383: 07,2307           01674                           ADRES    MARKDOWN                              
010936,000384: 
010937,000385: 07,2310           35047                           CAF      PRIO5                                 
010938,000386: 07,2311           05121                           TC       NOVAC                                 
010939,000387: 07,2312  E7,1722                                  EBANK=   MRKBUF1                               
010940,000388: 07,2312           02230 76067                     2CADR    MARKDISP                              
010941,000389: 
010942,000390: 07,2314           36211        PUTMARK            CAF      SIX                                   
010943,000391: 07,2315           05607                           TC       GENTRAN                               
010944,000392: 07,2316           00354                           ADRES    MKT2T1                                
010945,000393: 07,2317           01722                           ADRES    MRKBUF1                               
010946,000394: 
010947,000395: 07,2320           34753                           CAF      R21BIT                                #  DONT CALL VB50 DISPLAY FOR R21
010948,000396: 07,2321           70076                           MASK     FLAGWRD2                              
010949,000397: 07,2322           10000                           CCS      A                                     
010950,000398: 07,2323           15314                           TCF      TASKOVER                              
010951,000399: 
010952,000400: 07,2324           12275                           TCF      MARKDONE                              
010953,000401: 
010954,000402: 07,2325           24353        DIFCHK             INCR     MKNDX                                 #  INCREMENT INDEX
010955,000403: 
010956,000404: 07,2326           00006                           EXTEND                                         
010957,000405: 07,2327           50353                           INDEX    MKNDX                                 
010958,000406: 07,2330           20032                           MSU      CDUX                                  #  GET MARK(ICDU) - CURRENT(ICDU)
010959,000407: 07,2331           10000                           CCS      A                                     
010960,000408: 07,2332           12336                           TCF      +4                                    
010961,000409: 07,2333           00002                           TC       Q                                     
010962,000410: 07,2334           12336                           TCF      +2                                    
010963,000411: 07,2335           00002                           TC       Q                                     

Page 247

010965,000413: 07,2336           67701                           AD       NEG2                                  #  SEE IF DIFFERENCE GREATER THAN 3 BITS
010966,000414: 07,2337           00006                           EXTEND                                         
010967,000415: 07,2340           62335                           BZMF     -3                                    #  NOT GREATER
010968,000416: 
010969,000417: 07,2341           05671                           TC       ALARM                                 #  COUPLED WITH PROGRAM ALARM
010970,000418: 07,2342           00121                           OCT      00121                                 
010971,000419: 
010972,000420: 07,2343           15314                           TCF      TASKOVER                              #  DO NOT ACCEPT
010973,000421: 
010974,000422: 07,2344           34753        MKREJECT           CAF      R21BIT                                
010975,000423: 07,2345           70076                           MASK     FLAGWRD2                              #  R21 MARK (SPECIAL MARKING FOR R21)
010976,000424: 07,2346           00006                           EXTEND                                         
010977,000425: 07,2347           12367                           BZF      MRKREJCT                              #  NOT SET THEREFORE REGULAR REJECT
010978,000426: 07,2350           31722                           CA       MRKBUF1                               #  IS THERE A MARK IN THE BUFFER?
010979,000427: 07,2351           00006                           EXTEND                                         
010980,000428: 07,2352           12355                           BZF      +3                                    #  YES - REJECT MARK IN BUFFER
010981,000429: 
010982,000430: 07,2353           00006                           EXTEND                                         
010983,000431: 07,2354           62360                           BZMF     REJCTR22                              #  NO,SET FLAG TO REJECT MARK PROCESSED-R22
010984,000432: 
010985,000433: 07,2355           37702                           CA       NEGONE                                #  -1 (FOR R22)
010986,000434: 07,2356           55722                           TS       MRKBUF1                               #  -0 IN TIME IS FLAG TO R22 SIGNIFYING A
010987,000435: 07,2357           05323                           TC       RESUME                                
010988,000436: 
010989,000437: 07,2360           34762        REJCTR22           CAF      R22CABIT                              #  IS R22 PROCESSING A MARK?
010990,000438: 07,2361           70105                           MASK     FLAGWRD9                              
010991,000439: 07,2362           00006                           EXTEND                                         
010992,000440: 07,2363           15323                           BZF      RESUME                                #  NO IGNORE MARK REJECT
010993,000441: 
010994,000442: 07,2364           05547                           TC       UPFLAG                                
010995,000443: 07,2365           00231                           ADRES    REJCTFLG                              #  YES - SET FLAG FOR R22
010996,000444: 07,2366           05323                           TC       RESUME                                
010997,000445: 
010998,000446: 07,2367           34765        MRKREJCT           CAF      MARKBIT                               
010999,000447: 07,2370           70075                           MASK     FLAGWRD1                              
011000,000448: 07,2371           10000                           CCS      A                                     
011001,000449: 07,2372           02376                           TC       REJECT3                               
011002,000450: 
011003,000451: 07,2373           05671                           TC       ALARM                                 #  DONT ACCEPT TWO REJECTS TOGETHER
011004,000452: 07,2374           00110                           OCT      110                                   
011005,000453: 07,2375           05323                           TC       RESUME                                
011006,000454: 
011007,000455: 07,2376           05561        REJECT3            TC       DOWNFLAG                              
011008,000456: 07,2377           00032                           ADRES    MARKFLG                               
011009,000457: 
011010,000458: 07,2400           05354                           TC       CHECKMM                               #  IS THIS P24
011011,000459: 07,2401           00030                           MM       24         B-14                       
011012,000460: 07,2402           12422                           TCF      REJECT4                               #  NO
011013,000461: 07,2403           05561                           TC       DOWNFLAG                              #  YES
011014,000462: 07,2404           00052                           ADRES    P24MKFLG                              

Page 248

011016,000464: 07,2405           11753                           CCS      P22DEX                                #  IS MARK TO BE REJ, THE LAST MARK IN BUF
011017,000465: 07,2406           12411                           TCF      +3                                    #  NO
011018,000466: 07,2407           34172                           CA       OCT34                                 #  YES
011019,000467: 07,2410           12413                           TCF      +3                                    
011020,000468: 07,2411           44774                           CS       SEVEN                                 
011021,000469: 07,2412           61753                           AD       P22DEX                                
011022,000470: 07,2413           54070        REJECT5            TS       RUPTREG1                              
011023,000471: 07,2414           00006                           EXTEND                                         
011024,000472: 07,2415           50070                           INDEX    RUPTREG1                              
011025,000473: 07,2416           41540                           DCS      SVMRKDAT                              
011026,000474: 07,2417           50070                           INDEX    RUPTREG1                              
011027,000475: 07,2420           53540                           DXCH     SVMRKDAT                              
011028,000476: 07,2421           12433                           TCF      REJEXIT                               
011029,000477: 07,2422           24301        REJECT4            INCR     MARKINDX                              #  CALL FOR ANOTHER MARK
011030,000478: 07,2423           05354                           TC       CHECKMM                               
011031,000479: 07,2424           00026                           MM       22         B-14                       
011032,000480: 07,2425           12433                           TCF      REJEXIT                               
011033,000481: 
011034,000482: 07,2426           44770                           CS       ONE                                   #  FOR P22
011035,000483: 07,2427           27747                           ADS      8NN                                   
011036,000484: 07,2430           44774                           CS       SEVEN                                 
011037,000485: 07,2431           27753                           ADS      P22DEX                                #  DECREMENT P22 INDEX
011038,000486: 
011039,000487: 07,2432           12413                           TCF      REJECT5                               
011040,000488: 
011041,000489: 07,2433           37644        REJEXIT            CAF      PRIO22                                
011042,000490: 07,2434           05135                           TC       FINDVAC                               
011043,000491: 07,2435  E7,1722                                  EBANK=   MRKBUF1                               
011044,000492: 07,2435           02023 16067                     2CADR    MKVBDSP                               
011045,000493: 
011046,000494: 07,2437           15323                           TCF      RESUME                                

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