Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

009339,000002:                                                                                                 #  Copyright:     Public domain.
009340,000003:                                                                                                 #  Filename:      SXTMARK.agc
009341,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
009342,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
009343,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
009344,000007:                                                                                                 #  Assembler:     yaYUL
009345,000008:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
009346,000009:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
009347,000010:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Colossus237/
009348,000011:                                                                                                 #  Mod history:   2011-01-13 JL   Adapted from corresponding Colossus 249 file.
009349,000012: 
009350,000013:                                                                                                 # # Page 215
009351,000014: 
009352,000015:                                                                                                 #  PROGRAM NAME - SXTMARK                         DATE- 5 APRIL 1967
009353,000016:                                                                                                 #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS               LOG SECTION SXTMARK
009354,000017:                                                                                                 #  MOD BY- R. MELANSON TO ADD DOCUMENTATION        ASSEMBLY SUNDISK REV. 116
009355,000018:                                                                                                 #  
009356,000019:                                                                                                 #  FUNCTIONAL DESCRIPTION-
009357,000020:                                                                                                 #     SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF
009358,000021:                                                                                                 #     THE MARK SYSTEM IS NOT IN USE, SXTMARK RESERVES A VAC AREA FOR MARKING AND REQUESTS EXECUTIONOF THE MKVB51
009359,000022:                                                                                                 #     ROUTINE VIA THE EXECUTIVE JOB PRIORITY LIST. R21 USES THIS ROUTINE TO DETERMINE IF THE MARK SYSTEM CAN BE
009360,000023:                                                                                                 #     USED. IF YES, SXTMARK RETURNS TO R21 TO PERFORM ITS OWN MARK REQUESTS VIA THE V51 FLASH.
009361,000024: 
009362,000025:                                                                                                 #  CALLING SEQUENCE-
009363,000026: 
009364,000027:                                                                                                 #     CAF    (NO. MARK REQUESTS IN BITS 1-3 OF A)
009365,000028:                                                                                                 #     TC     BANKCALL
009366,000029:                                                                                                 #     CADR   SXTMARK
009367,000030: 
009368,000031:                                                                                                 #  NORMAL EXIT MODE-
009369,000032:                                                                                                 #     SWRETURN
009370,000033: 
009371,000034:                                                                                                 #  ALARM OR ABORT EXIT MODE-
009372,000035:                                                                                                 #     ABORT
009373,000036: 
009374,000037:                                                                                                 #  OUTPUT-
009375,000038:                                                                                                 #     1) MARKSTAT CONTAINS MARK VALUE (BITS 14-12) AND VAC AREA ADDRESS
009376,000039:                                                                                                 #     2) QPRET = VAC AREA POINTER VALUE
009377,000040:                                                                                                 #     3) 1ST WORD OF RESERVED VAC AREA SET TO +0
009378,000041:                                                                                                 #     4) PRIO32 PLACED IN A REGISTER
009379,000042: 
009380,000043:                                                                                                 #  ERASABLE INITIALIZATION-
009381,000044:                                                                                                 #     1) BITS 1-3 OF A = NO. MARKS REQUESTED
009382,000045:                                                                                                 #     2) BITS 2,3 OF EXTVBACT =0
009383,000046:                                                                                                 #     3) A VAC AREA MUST BE AVAILABLE (WORD 1 = ADDRESS OF VAC AREA)
009384,000047: 
009385,000048:                                                                                                 #  DEBRIS-
009386,000049:                                                                                                 #     A,Q,L,RUPTREG1,MARKSTAT,QPRET,BIT2 OF EXTVBACT
009387,000050: 
009388,000051: 13,2036                                          BANK     13                                    
009389,000052: 07,2000                                          SETLOC   SXTMARKE                              
009390,000053: 07,2000                                          BANK                                           
009391,000054: 
009392,000055: 07,2002  E7,1725                                 EBANK=   MRKBUF1                               
009393,000056: 07,2002                                          COUNT    07/SXTMK                              
009394,000057: 
009395,000058: 07,2002           00004        SXTMARK           INHINT                                         
009396,000059: 07,2003           54070                          TS       RUPTREG1                              #  NUMBER OF MARKS WANTED
009397,000060: 
009398,000061: 07,2004           36211                          CAF      SIX                                   #  BIT2 = MARKING SYSTEM IN USE
009399,000062: 07,2005           71044                          MASK     EXTVBACT                              #  BIT3 = EXTENDED VERB IN PROGRESS
009400,000063: 07,2006           10000                          CCS      A                                     
009401,000064: 07,2007           02013                          TC       MKABORT                               #  SET THEREFORE ABORT
009402,000065:                                                                                                 # # Page 216
009403,000066: 07,2010           34711                          CAF      BIT2                                  #  NOT SET
009404,000067: 07,2011           27044                          ADS      EXTVBACT                              #  SET IT, RESET IN ENDMARK
009405,000068: 07,2012           02015                          TC       MARKOK                                #  YES, FIND VAC AREA
009406,000069: 
009407,000070: 07,2013           05604        MKABORT           TC       BAILOUT                               
009408,000071: 07,2014           01211                          OCT      01211                                 
009409,000072: 07,2015           10400        MARKOK            CCS      VAC1USE                               #  FIND VAC AREA
009410,000073: 07,2016           02031                          TC       MKVACFND                              
009411,000074: 07,2017           10454                          CCS      VAC2USE                               
009412,000075: 07,2020           02031                          TC       MKVACFND                              
009413,000076: 07,2021           10530                          CCS      VAC3USE                               
009414,000077: 07,2022           02031                          TC       MKVACFND                              
009415,000078: 07,2023           10604                          CCS      VAC4USE                               
009416,000079: 07,2024           02031                          TC       MKVACFND                              
009417,000080: 07,2025           10660                          CCS      VAC5USE                               
009418,000081: 07,2026           02031                          TC       MKVACFND                              
009419,000082: 07,2027           05604                          TC       BAILOUT                               
009420,000083: 07,2030           01207                          OCT      01207                                 
009421,000084: 
009422,000085: 07,2031           64711        MKVACFND          AD       TWO                                   #  ADDRESS OF VAC AREA
009423,000086: 07,2032           55330                          TS       MARKSTAT                              
009424,000087: 07,2033           50000                          INDEX    A                                     
009425,000088: 07,2034           54052                          TS       QPRET                                 #  STORE NEXT AVAILABLE MARK SLOT
009426,000089: 
009427,000090: 07,2035           34714                          CAF      ZERO                                  #  STORE VAC AREA OCCUPIED
009428,000091: 07,2036           51330                          INDEX    MARKSTAT                              
009429,000092: 07,2037           53777                          TS       0          -1                         
009430,000093: 
009431,000094: 07,2040           05253                          TC       CHECKMM                               #  BACKUP MARK ROUTINE USES SXTMARK
009432,000095: 07,2041           00065                          MM       53         B-14                       
009433,000096: 07,2042           12044                          TCF      +2                                    
009434,000097: 07,2043           14570                          TCF      SWRETURN                              
009435,000098: 07,2044           05253                          TC       CHECKMM                               
009436,000099: 07,2045           00066                          MM       54         B-14                       
009437,000100: 07,2046           12050                          TCF      +2                                    
009438,000101: 07,2047           14570                          TCF      SWRETURN                              
009439,000102: 07,2050           34677                          CAF      BIT12                                 #  DESIRED NUMBER OF MARKS IN 12-14
009440,000103: 07,2051           00006                          EXTEND                                         
009441,000104: 07,2052           70070                          MP       RUPTREG1                              
009442,000105: 07,2053           56001                          XCH      L                                     
009443,000106: 07,2054           27330                          ADS      MARKSTAT                              
009444,000107: 
009445,000108: 07,2055           37667                          CAF      PRIO32                                #  ENTER MARK JOB
009446,000109: 07,2056           05027                          TC       NOVAC                                 
009447,000110: 07,2057     1330                                 EBANK=   MARKSTAT                              
009448,000111: 07,2057           02346 16062                    2CADR    MKVB51                                
009449,000112: 
009450,000113: 07,2061           00003                          RELINT                                         
009451,000114: 07,2062           14570                          TCF      SWRETURN                              #  SAME AS MODEEXIT
009452,000115: 
009453,000116:                                                                                                 # # Page 217
009454,000117: 
009455,000118:                                                                                                 #  PROGRAM NAME - MKRELEAS                                DATE- 5 APRIL 1967
009456,000119:                                                                                                 #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS               LOG SECTION SXTMARK
009457,000120:                                                                                                 #  MOD BY- R. MELANSON TO ADD DOCUMENTATION        ASSEMBLY SUNDISK REV. 116
009458,000121: 
009459,000122:                                                                                                 #  FUNCTIONAL DESCRIPTION-
009460,000123:                                                                                                 #     MKRELEAS IS EXECUTED BY INTERNAL ROUTINES TO RELEASE THE MARK SYSTEM TO MAKE IT AVAILABLE TO OTHER INTERNAL
009461,000124:                                                                                                 #     SYSTEM ROUTINES. IT ALSO CLEARS THE COARSE OPTICS FLAG BIT AND DISABLES THE OPTICS ERROR COUNTER.
009462,000125: 
009463,000126:                                                                                                 #  CALLING SEQUENCE-
009464,000127: 
009465,000128:                                                                                                 #     TC    BANKCALL
009466,000129:                                                                                                 #     CADR MKRELEAS
009467,000130: 
009468,000131:                                                                                                 #  NORMAL EXIT MODE-
009469,000132:                                                                                                 #     SWRETURN
009470,000133: 
009471,000134:                                                                                                 #  ALARM OR ABORT EXIT MODE- NONE
009472,000135: 
009473,000136:                                                                                                 #  OUTPUT-
009474,000137:                                                                                                 #     1) BIT9 OPTMODES SET TO 0
009475,000138:                                                                                                 #     2) OPTIND SET TO -1
009476,000139:                                                                                                 #     3) 1ST WORD OF VAC AREA SET TO VAC ADDRESS TO SIGNIFY AVAILABILITY.
009477,000140:                                                                                                 #     4) MARKSTAT CLEARED
009478,000141:                                                                                                 #     5) BIT2 CHANNEL 12 SET TO 0
009479,000142: 
009480,000143:                                                                                                 #  ERASABLE INITIALIZATION- NONE
009481,000144: 
009482,000145:                                                                                                 #  DEBRIS-
009483,000146:                                                                                                 #     A,MARKSTAT,BIT9 OPTMODES,OPTIND,BIT2 CHANNEL 12
009484,000147: 
009485,000148: 07,2063           34714        MKRELEAS          CAF      ZERO                                  #  SHOW MARK SYSTEM NOW AVAILABLE
009486,000149: 07,2064           57330                          XCH      MARKSTAT                              
009487,000150: 07,2065           10000                          CCS      A                                     
009488,000151: 07,2066           50000                          INDEX    A                                     
009489,000152: 07,2067           54000                          TS       0                                     
009490,000153: 07,2070           00004        MKRLEES           INHINT                                         
009491,000154: 07,2071           44702                          CS       BIT9                                  #  COARSE OPTICS RETURN FLAG.
009492,000155: 07,2072           71331                          MASK     OPTMODES                              
009493,000156: 07,2073           55331                          TS       OPTMODES                              
009494,000157: 
009495,000158: 07,2074           37716                          CA       NEGONE                                
009496,000159: 07,2075           55303                          TS       OPTIND                                #  KILL COARS OPTICS
009497,000160: 
009498,000161: 07,2076           44711                          CS       BIT2                                  #  DISABLE OPTICS ERROR COUNTER
009499,000162: 07,2077           00006                          EXTEND                                         
009500,000163: 07,2100           03012                          WAND     CHAN12                                
009501,000164: 
009502,000165: 07,2101           00003                          RELINT                                         
009503,000166: 07,2102           04570                          TC       SWRETURN                              
009504,000167: 
009505,000168:                                                                                                 # # Page 218
009506,000169: 
009507,000170:                                                                                                 #  PROGRAM NAME - MARKRUPT                                        DATE:  5 APRIL 1967
009508,000171:                                                                                                 #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS                        LOG SECTION SXTMARK
009509,000172:                                                                                                 #  MOD BY- R. MELANSON TO ADD DOCUMENTATION                       ASSEMBLY SUNDISK REV. 116
009510,000173: 
009511,000174:                                                                                                 #  FUNCTIONAL DESCRIPTION-
009512,000175:                                                                                                 #     MARKRUPT STORES CDUS,OPTICS AND TIME AND TRANSFERS CONTROL TO THE MARKIT,MARK REJECT OR KEYCOM ROUTINES IF
009513,000176:                                                                                                 #     BITS IN CHANNEL 16 ARE SET AS REQUIRED.
009514,000177: 
009515,000178:                                                                                                 #  CALLING SEQUENCE-
009516,000179:                                                                                                 #     ROUTINE ENTERED VIA KEYRUPT2 WHEN MARK,MARK REJECT OR DSKY KEYS DEPRESSED BY THE OPERATOR.
009517,000180: 
009518,000181:                                                                                                 #  NORMAL EXIT MODE-
009519,000182:                                                                                                 #     MARKIT, MKREJECT, OR POSTJUMP ROUTINES (MARK, MARK REJECT, OR DSKY CODE)
009520,000183: 
009521,000184:                                                                                                 #  ALARM OR ABORT EXIT MODE-
009522,000185:                                                                                                 #     ALARM AND RESUME
009523,000186: 
009524,000187:                                                                                                 #  OUTPUT-
009525,000188:                                                                                                 #     RUPTSTOR+5 = CDUT, RUPTSTOR+3 = CDUS, RUPTSTOR+2 = CDUY,
009526,000189:                                                                                                 #     RUPTREG3 = CDUZ, RUPTSTOR+6 = CDUX, RUPTSTOR+1 AND SAMPTIME+1 =TIME1,
009527,000190:                                                                                                 #     RUPTSTOR AND SAMPTIME = TIME2
009528,000191: 
009529,000192:                                                                                                 #  ERASABLE INITIALIZATION-
009530,000193:                                                                                                 #     CDUT,CDUS,CDUY,CDUZ,CDUX,TIME2,TIME1,CHANNEL 16 BITS 6,7 OR 1-5
009531,000194: 
009532,000195:                                                                                                 #  DEBRIS-
009533,000196:                                                                                                 #     A,QRUPT,RUPTREG3,SAMPTIME,SAMPTIME+1,RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4 (LOCATION 67)
009534,000197: 
009535,000198: 07,2103           54016        MARKRUPT          TS       BANKRUPT                              #  STORE  CDUS AND OPTICS NOW
009536,000199: 07,2104           30035                          CA       CDUT                                  
009537,000200: 07,2105           54362                          TS       MKCDUT                                
009538,000201: 07,2106           30036                          CA       CDUS                                  
009539,000202: 07,2107           54360                          TS       MKCDUS                                
009540,000203: 07,2110           30033                          CA       CDUY                                  
009541,000204: 07,2111           54357                          TS       MKCDUY                                
009542,000205: 07,2112           30034                          CA       CDUZ                                  
009543,000206: 07,2113           54361                          TS       MKCDUZ                                
009544,000207: 07,2114           30032                          CA       CDUX                                  
009545,000208: 07,2115           54363                          TS       MKCDUX                                
009546,000209: 07,2116           00006                          EXTEND                                         
009547,000210: 07,2117           30025                          DCA      TIME2                                 #  GET TIME
009548,000211: 07,2120           52356                          DXCH     MKT2T1                                
009549,000212: 07,2121           00006                          EXTEND                                         
009550,000213: 07,2122           30356                          DCA      MKT2T1                                
009551,000214: 07,2123           52014                          DXCH     SAMPTIME                              #  RUPT TIME FOR NOUN 65.
009552,000215: 
009553,000216: 07,2124           56002                          XCH      Q                                     
009554,000217: 07,2125           54012                          TS       QRUPT                                 
009555,000218: 
009556,000219: 07,2126           34705                          CAF      BIT6                                  #  SEE IF MARK OR MKREJECT
009557,000220:                                                                                                 # # Page 219
009558,000221: 07,2127           00006                          EXTEND                                         
009559,000222: 07,2130           02016                          RAND     NAVKEYIN                              
009560,000223: 07,2131           10000                          CCS      A                                     
009561,000224: 07,2132           02427                          TC       MARKIT                                #  ITS A MARK
009562,000225: 
009563,000226: 07,2133           34704                          CAF      BIT7                                  #  NOT A MARK, SEE IF MKREJECT
009564,000227: 07,2134           00006                          EXTEND                                         
009565,000228: 07,2135           02016                          RAND     NAVKEYIN                              
009566,000229: 07,2136           10000                          CCS      A                                     
009567,000230: 07,2137           02300                          TC       MKREJECT                              #  ITS A MARK REJECT
009568,000231: 
009569,000232: 07,2140           34362        KEYCALL           CAF      OCT37                                 #  NOT MARK OR MKREJECT, SEE IF KEYCODE
009570,000233: 07,2141           00006                          EXTEND                                         
009571,000234: 07,2142           02016                          RAND     NAVKEYIN                              
009572,000235: 07,2143           00006                          EXTEND                                         
009573,000236: 07,2144           12147                          BZF      +3                                    #  IF NO INBITS
009574,000237: 07,2145           04574                          TC       POSTJUMP                              
009575,000238: 07,2146           17622                          CADR     KEYCOM                                #  IT,S A KEY CODE, NOT A MARK.
009576,000239: 
009577,000240: 07,2147           05537                 +3       TC       ALARM                                 #  ALARM IF NO INBITS
009578,000241: 07,2150           00113                          OCT      113                                   
009579,000242: 07,2151           05222                          TC       RESUME                                
009580,000243: 
009581,000244:                                                                                                 # # Page 220
009582,000245: 
009583,000246:                                                                                                 #  PROGRAM NAME - MARKCONT                                  DATE- 19 SEPT 1967
009584,000247: 
009585,000248:                                                                                                 #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS                 LOG SECTION SXTMARK
009586,000249:                                                                                                 #  MOD BY- R. MELANSON TO ADD DOCUMENTATION          ASSEMBLY SUNDISK REV. 116
009587,000250: 
009588,000251:                                                                                                 #  FUNCTIONAL DESCRIPTION-
009589,000252:                                                                                                 #     MARKCONT IS USED TO PERFORM A SPECIAL MARK FUNCTION FOR R21, TO EXECUTE A SPECIAL DISPLAY OF OPTICS AND TIME OR
009590,000253:                                                                                                 #       TO PERFORM A MARK OF THE STAR OR LAND SIGHTING BASED UPON FLASHING V-N.
009591,000254: 
009592,000255:                                                                                                 #  CALLING SEQUENCE-
009593,000256:                                                                                                 #       FROM MARKDIF
009594,000257: 
009595,000258:                                                                                                 #  NORMAL EXIT MODE-
009596,000259:                                                                                                 #       TASKOVER
009597,000260: 
009598,000261:                                                                                                 #  ALARM OR ABORT EXIT MODE-
009599,000262:                                                                                                 #       ALARM AND TASKOVER
009600,000263: 
009601,000264:                                                                                                 #  OUTPUT-
009602,000265:                                                                                                 #     1) FOR R21-
009603,000266:                                                                                                 #         EBANK=EBANK7
009604,000267:                                                                                                 #         MRKBUF1 TO MRKBUF1+6 = TIME2,TIME1,CDUY,OPTICX,CDUZ,OPTICSY,CDUX OF CURRENT R21 MARK FUNCTION.
009605,000268:                                                                                                 #         MRKBUF2 TO MRKBUF2+6 CONTAINS PREVIOUS R21 MARK VALUES.
009606,000269:                                                                                                 #     2) FOR SPECIAL DISPLAY JOB-
009607,000270:                                                                                                 #         RUPTREG1 AND MRKBUF1 = CDUS,RUPTREG2, AND MRKBUF1 +1 = CDUT.
009608,000271:                                                                                                 #         RUPTREG3 AND MRKBUF1 +2 = TIME2,RUPTREG4 AND MRKBUF1 +3 = TIME1
009609,000272:                                                                                                 #     3) FOR NORMAL MARKING-
009610,000273:                                                                                                 #         DECREMENT BITS14-12 OF MARKSTAT BY 1,
009611,000274:                                                                                                 #         BIT10 MARKSTAT SET TO 1,INCREMENT QPRET BY 7,
009612,000275:                                                                                                 #         STORE TIME2,TIME1,CDUY,CDUS,CDUZ,CDUT AND CDUX IN VAC+1 TO VAC+7
009613,000276: 
009614,000277:                                                                                                 #  ERASABLE INITIALIZATION-
009615,000278:                                                                                                 #     1) FOR R21-
009616,000279:                                                                                                 #         BIT14 OF STATE+2 =1, MRKBUF1 TO MRKBUF1+6, ITEMP1, RUPTREG3,
009617,000280:                                                                                                 #         RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009618,000281:                                                                                                 #     2) FOR SPECIAL DISPLAY JOB-
009619,000282:                                                                                                 #         BIT14 OF STATE+2 =0,MARKSTAT =+0,RUPTREG1,RUPTREG2,RUPTREG3
009620,000283:                                                                                                 #         RUPTREG4,RUPTSTOR,RUPTSTOR+1,RUPTSTOR+3,RUPTSTOR+5,
009621,000284:                                                                                                 #         BIT12 OF STATE+5 (V59 FLAG),MRKBUF1 THRU MRKBUF1+3
009622,000285:                                                                                                 #     3) FOR NORMAL MARKING-
009623,000286:                                                                                                 #         BIT14 OF STATE+2 =0, MARKSTATE =VAC ADDRESS,A REG,ITEMP1,RUPTREG3,
009624,000287:                                                                                                 #         RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009625,000288: 
009626,000289:                                                                                                 #  DEBRIS-
009627,000290:                                                                                                 #     1) FOR R21-
009628,000291:                                                                                                 #         A,ITEMP1,MRKBUF1,MRKBUF2
009629,000292:                                                                                                 #     2) FOR SPECIAL DISPLAY JOB-
009630,000293:                                                                                                 #         A,RUPTREG1,RUPTREG2,RUPTREG3,RUPTREG4,MPAC TO MPAC+3
009631,000294:                                                                                                 #     3) FOR NORMAL MARKING-
009632,000295:                                                                                                 #         A,MARKSTAT,ITEMP1,QPRET,VAC+1 TO VAC+7 OF VAC AREA IN USE
009633,000296: 
009634,000297:                                                                                                 # # Page 221
009635,000298: 
009636,000299: 07,2152           34675        MARKCONT          CAF      BIT14                                 
009637,000300: 07,2153           70076                          MASK     STATE      +2                         #  R21 MARK (SPECIAL MARKING FOR R21)
009638,000301: 07,2154           00006                          EXTEND                                         
009639,000302: 07,2155           12167                          BZF      MARKET                                #  NOT SET THEREFORE REGULAR MARKING
009640,000303: 07,2156           36211        MARKIT1           CAF      SIX                                   #  SPECIAL FOR R21
009641,000304: 07,2157           05475                          TC       GENTRAN                               #  TRANSFER MRKBUF1 TO MRKBUF2
009642,000305: 07,2160           01725                          ADRES    MRKBUF1                               
009643,000306: 07,2161           01734                          ADRES    MRKBUF2                               
009644,000307: 
009645,000308: 07,2162           36211                          CAF      SIX                                   #  TRANSFER CURRENT MARK DATA TO MARKBUF1
009646,000309: 07,2163           05475                          TC       GENTRAN                               
009647,000310: 07,2164           00355                          ADRES    MKT2T1                                
009648,000311: 07,2165           01725                          ADRES    MRKBUF1                               
009649,000312: 
009650,000313: 07,2166           15213                          TCF      TASKOVER                              
009651,000314: 
009652,000315: 07,2167           11330        MARKET            CCS      MARKSTAT                              #  SEE IF MARKS CALLED FOR
009653,000316: 07,2170           02224                          TC       MARK2                                 #  COLLECT MARKS
009654,000317: 
009655,000318: 07,2171           36211                          CAF      SIX                                   
009656,000319: 07,2172           05475                          TC       GENTRAN                               #  TRANSFER MARK DATA TO MARKDOWN
009657,000320: 07,2173           00355                          ADRES    MKT2T1                                
009658,000321: 07,2174           01674                          ADRES    MARKDOWN                              
009659,000322: 
009660,000323: 07,2175           36211                          CAF      SIX                                   
009661,000324: 07,2176           05475                          TC       GENTRAN                               #  TRANSFER MARK DATA TO MRKBUF1 FOR
009662,000325: 07,2177           00355                          ADRES    MKT2T1                                #  SPECIAL DISPLAY OF SHAFT AND TRUNION
009663,000326: 07,2200           01725                          ADRES    MRKBUF1                               #  IF V59 ACTING
009664,000327: 
009665,000328: 07,2201           34711                          CAF      TWO                                   #  IS MARKING SYSTEM IN USE (BIT2)
009666,000329: 07,2202           71044                          MASK     EXTVBACT                              
009667,000330: 07,2203           00006                          EXTEND                                         
009668,000331: 07,2204           12216                          BZF      MARKET3                               #  MARKING NOT CALLED FOR
009669,000332: 07,2205           34677                          CAF      BIT12                                 
009670,000333: 07,2206           70101                          MASK     STATE      +5                         #  V59FLAG
009671,000334: 07,2207           00006                          EXTEND                                         
009672,000335: 07,2210           12216                          BZF      MARKET3                               #  IF V59FLAG NOT SET-MARK UNCALLED FOR
009673,000336: 07,2211           34754                          CAF      PRIO5                                 #  CALIBRATION MARK (SET) FOR P23
009674,000337: 07,2212           05027                          TC       NOVAC                                 #  SPECIAL DISPLAY JOB
009675,000338: 07,2213  E7,1725                                 EBANK=   MRKBUF1                               
009676,000339: 07,2213           02405 76067                    2CADR    MARKDISP                              
009677,000340: 
009678,000341: 07,2215           15213                          TCF      TASKOVER                              
009679,000342: 07,2216           05537        MARKET3           TC       ALARM                                 
009680,000343: 07,2217           00122                          OCT      122                                   #  MARKING NOT CALLED FOR
009681,000344: 07,2220           15213                          TCF      TASKOVER                              
009682,000345: 07,2221           05537        114ALM            TC       ALARM                                 #  MARK NOT WANTED
009683,000346: 07,2222           00114                          OCT      114                                   
009684,000347: 07,2223           15213                          TCF      TASKOVER                              
009685,000348: 
009686,000349:                                                                                                 # # Page 222
009687,000350:                                                                                                 #     STORE MARK DATA IN MKVAC AND INCREMENT POINTER
009688,000351: 
009689,000352: 07,2224           67711        MARK2             AD       74K                                   #  SEE IF MARKS WANTED-REDUCE MARKS WANTED
009690,000353: 07,2225           00006                          EXTEND                                         
009691,000354: 07,2226           62221                          BZMF     114ALM                                #  MARK NOT WANTED-ALARM
009692,000355: 07,2227           55330                          TS       MARKSTAT                              
009693,000356: 07,2230           40000                          COM                                            
009694,000357: 07,2231           74701                          MASK     BIT10                                 #  SET BIT10 TO ENABLE REJECT
009695,000358: 07,2232           27330                          ADS      MARKSTAT                              
009696,000359: 
009697,000360: 07,2233           74741                          MASK     LOW9                                  
009698,000361: 07,2234           54061                          TS       ITEMP1                                
009699,000362: 07,2235           50000                          INDEX    A                                     
009700,000363: 07,2236           56052                          XCH      QPRET                                 #  PICK UP MARK SLOT-POINTER
009701,000364: 07,2237           54062                          TS       ITEMP2                                #  SAVE CURRENT POINTER
009702,000365: 07,2240           64716                          AD       SEVEN                                 #  INCREMENT POINTER
009703,000366: 07,2241           50061                          INDEX    ITEMP1                                
009704,000367: 07,2242           54052                          TS       QPRET                                 #  STORE ADVANCED POINTER
009705,000368: 
009706,000369: 07,2243           00006        VACSTOR           EXTEND                                         
009707,000370: 07,2244           30356                          DCA      MKT2T1                                
009708,000371: 07,2245           50062                          INDEX    ITEMP2                                
009709,000372: 07,2246           52001                          DXCH     0                                     
009710,000373: 07,2247           30357                          CA       MKCDUY                                
009711,000374: 07,2250           50062                          INDEX    ITEMP2                                
009712,000375: 07,2251           54002                          TS       2                                     
009713,000376: 07,2252           30360                          CA       MKCDUS                                
009714,000377: 07,2253           50062                          INDEX    ITEMP2                                
009715,000378: 07,2254           54003                          TS       3                                     
009716,000379: 07,2255           30361                          CA       MKCDUZ                                
009717,000380: 07,2256           50062                          INDEX    ITEMP2                                
009718,000381: 07,2257           54004                          TS       4                                     
009719,000382: 07,2260           30362                          CA       MKCDUT                                
009720,000383: 07,2261           50062                          INDEX    ITEMP2                                
009721,000384: 07,2262           54005                          TS       5                                     
009722,000385: 07,2263           30363                          CA       MKCDUX                                
009723,000386: 07,2264           50062                          INDEX    ITEMP2                                
009724,000387: 07,2265           54006                          TS       6                                     
009725,000388: 
009726,000389: 07,2266           37671                          CAF      PRIO34                                #  IF ALL MARKS MADE FLASH VB50
009727,000390: 07,2267           71330                          MASK     MARKSTAT                              
009728,000391: 07,2270           00006                          EXTEND                                         
009729,000392: 07,2271           12273                          BZF      +2                                    
009730,000393: 07,2272           15213                          TCF      TASKOVER                              
009731,000394: 07,2273           37667                          CAF      PRIO32                                
009732,000395: 07,2274           05027                          TC       NOVAC                                 
009733,000396: 07,2275     1330                                 EBANK=   MARKSTAT                              
009734,000397: 07,2275           02421 16062                    2CADR    MKVB50                                
009735,000398: 07,2277           15213                          TCF      TASKOVER                              
009736,000399: 
009737,000400:                                                                                                 # # Page 223
009738,000401: 
009739,000402:                                                                                                 #  PROGRAM NAME - MKREJECT                                DATE- 5 APRIL 1967
009740,000403:                                                                                                 #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS               LOG SECTION SXTMARK
009741,000404:                                                                                                 #  MOD BY- R. MELANSON TO ADD DOCUMENTATION        ASSEMBLY SUNDISK REV. 116
009742,000405: 
009743,000406:                                                                                                 #  FUNCTIONAL DESCRIPTION-
009744,000407:                                                                                                 #     ROUTINE ALLOWS OPERATOR TO REJECT MARK MADE PRIOR TO ACCEPTANCE AND ALLOWS A NEW MARK TO BE MADE BY ASTRONAUT
009745,000408: 
009746,000409:                                                                                                 #  CALLING SEQUENCE-
009747,000410:                                                                                                 #     FROM MARKRUPT IF BIT7 OF CHANNEL 16 IS 1.
009748,000411: 
009749,000412:                                                                                                 #  NORMAL EXIT MODE-
009750,000413:                                                                                                 #     RESUME
009751,000414: 
009752,000415:                                                                                                 #  ALARM OR ABORT EXIT MODE-
009753,000416:                                                                                                 #     ALARM AND RESUME
009754,000417: 
009755,000418:                                                                                                 #  OUTPUT-
009756,000419:                                                                                                 #     1) FOR R21-
009757,000420:                                                                                                 #       MRKBUF1 SET TO -1
009758,000421:                                                                                                 #     2) FOR NORMAL MARKING-
009759,000422:                                                                                                 #         BIT10 MARKSTAT =0,INCREMENT NO. MARKS BY 1,DECREMENT QPRET BY 7
009760,000423: 
009761,000424:                                                                                                 #  ERASABLE INITIALIZATION-
009762,000425:                                                                                                 #     1) FOR R21-
009763,000426:                                                                                                 #         BIT14 OF STATE+2 SET TO 1
009764,000427:                                                                                                 #     2) FOR NORMAL MARKING-
009765,000428:                                                                                                 #         BIT14 OF STATE+2 SET TO 0,MARKSTAT,QPRET
009766,000429: 
009767,000430:                                                                                                 #  DEBRIS-
009768,000431:                                                                                                 #     1) FOR R21-
009769,000432:                                                                                                 #         A,MARKSTAT,EBANK
009770,000433:                                                                                                 #     2) FOR NORMAL MARKING-
009771,000434:                                                                                                 #         A,MARKSTAT,ITEMP1,QPRET
009772,000435: 
009773,000436: 07,2300           34675        MKREJECT          CAF      BIT14                                 
009774,000437: 07,2301           70076                          MASK     STATE      +2                         #  R21 MARK (SPECIAL MARKING FOR R21)
009775,000438: 07,2302           00006                          EXTEND                                         
009776,000439: 07,2303           12307                          BZF      MRKREJCT                              #  NOT SET THEREFORE REGULAR REJECT
009777,000440: 07,2304           37716                          CA       NEGONE                                #  -1 (FOR R22)
009778,000441: 07,2305           55725                          TS       MRKBUF1                               #  -0 IN TIME IS FLAG TO R22 SIGNIFYING A
009779,000442: 07,2306           05222                          TC       RESUME                                #  REJECTED MARK
009780,000443: 07,2307           11330        MRKREJCT          CCS      MARKSTAT                              #  SEE IF MARKS BEING ACCEPTED
009781,000444: 07,2310           02314                          TC       REJECT2                               
009782,000445: 07,2311           05537                          TC       ALARM                                 #  MARKS NOT BEING ACCEPTED
009783,000446: 07,2312           00112                          OCT      112                                   
009784,000447: 07,2313           05222                          TC       RESUME                                
009785,000448: 
009786,000449: 07,2314           44701        REJECT2           CS       BIT10                                 #  SEE IF MARK HAD BEEN MADE SINCE LAST
009787,000450: 07,2315           71330                          MASK     MARKSTAT                              #  REJECT, AND SET BIT10 TO ZERO TO
009788,000451: 07,2316           57330                          XCH      MARKSTAT                              #  SHOW MARK REJECT
009789,000452:                                                                                                 # # Page 224
009790,000453: 07,2317           74701                          MASK     BIT10                                 
009791,000454: 07,2320           10000                          CCS      A                                     
009792,000455: 07,2321           02325                          TC       REJECT3                               
009793,000456: 
009794,000457: 07,2322           05537                          TC       ALARM                                 #  DONT ACCEPT TWO REJECTS TOGETHER
009795,000458: 07,2323           00110                          OCT      110                                   
009796,000459: 07,2324           05222                          TC       RESUME                                
009797,000460: 
009798,000461: 07,2325           34741        REJECT3           CAF      LOW9                                  #  DECREMENT POINTER TO REJECT MARK
009799,000462: 07,2326           71330                          MASK     MARKSTAT                              
009800,000463: 07,2327           54061                          TS       ITEMP1                                
009801,000464: 07,2330           44716                          CS       SEVEN                                 
009802,000465: 07,2331           50061                          INDEX    ITEMP1                                
009803,000466: 07,2332           26052                          ADS      QPRET                                 #  NEW POINTER
009804,000467: 
009805,000468: 07,2333           34677                          CAF      BIT12                                 #  INCREMENT MARKS WANTED AND IF FIELD
009806,000469: 07,2334           61330                          AD       MARKSTAT                              #  IS NOW NON-ZERO, CHANGE TO VB51 TO
009807,000470: 07,2335           57330                          XCH      MARKSTAT                              #  INDICATE MORE MARKS WANTED
009808,000471: 07,2336           77671                          MASK     PRIO34                                #  INDICATE MORE MARKS WANTED
009809,000472: 07,2337           10000                          CCS      A                                     
009810,000473: 07,2340           05222                          TC       RESUME                                
009811,000474: 07,2341           37667                          CAF      PRIO32                                
009812,000475: 07,2342           05027                          TC       NOVAC                                 
009813,000476: 07,2343     1330                                 EBANK=   MARKSTAT                              
009814,000477: 07,2343           02346 16062                    2CADR    MKVB51                                
009815,000478: 07,2345           05222                          TC       RESUME                                
009816,000479: 
009817,000480:                                                                                                 # # Page 225
009818,000481: 
009819,000482:                                                                                                 #  PROGRAM DESCRIPTON MKVB51 AND MKVB50
009820,000483: 
009821,000484:                                                                                                 #  AUTHOR-BARNERT DATE-2-15-67 MOD-0
009822,000485:                                                                                                 #  PURPOSE  FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING,
009823,000486:                                                                                                 #            AND V50N25 R1=16 TO REQUEST TERMINATE MARKING
009824,000487: 
009825,000488:                                                                                                 #  CALLING SEQUENCE   AS JOB WITHIN SXTMARK
009826,000489: 
009827,000490:                                                                                                 #  EXIT TO ENDMARK UPON RECEIPT OF V33, V34 CAUSES GOTOPOOH, ENTER
009828,000491:                                                                                                 #            RECYCLES THE DISPLAY
009829,000492: 
009830,000493:                                                                                                 #  NOTE-  SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN
009831,000494:                                                                                                 #            SUFFICIENT MARKS HAVE BEEN MADE, AND THE REVERSE WHEN A MARK
009832,000495:                                                                                                 #            REJECT REDUCES THE NUMBER MADE BELOW THAT REQUIRED
009833,000496: 
009834,000497:                                                                                                 #  SUBROUTINES CALLED- BANKCALL, GOMARK2,GOODEND,ENDMARK,WAITLIST
009835,000498: 
009836,000499:                                                                                                 #  ALARM OR ABORT MODES - NONE
009837,000500: 
009838,000501:                                                                                                 #  ERASABLE USED-VERBREG,MARKSTAT,QPRET,DSPTEM1
009839,000502: 
009840,000503:                                                                                                 #  OUTPUT  MARKSTAT=VAC ADDRESS
009841,000504: 
009842,000505:                                                                                                 #          QPRET=   NO. MARKS
009843,000506: 07,2346           04555        MKVB51            TC       BANKCALL                              #  CLEAR DISPLAY FOR MARK VERB
009844,000507: 07,2347           20464                          CADR     KLEENEX                               
009845,000508: 07,2350           32426                          CAF      VB51                                  #  DISPLAY MARK VB51
009846,000509: 07,2351           04555                          TC       BANKCALL                              
009847,000510: 07,2352           20476                          CADR     GOMARK4                               
009848,000511: 07,2353           12356                          TCF      TERMSXT                               #  VB34-TERMINATE
009849,000512: 07,2354           12367                          TCF      ENTANSWR                              #  V33-PROCEED-MARKING DONE
009850,000513: 07,2355           12415                          TCF      MKVB5X                                #  ENTER-RECYCLE TO INITIAL MARK DISPLAY
009851,000514: 
009852,000515: 07,2356           05425        TERMSXT           TC       CLEARMRK                              #  CLEAR MARK ACTIVITY.
009853,000516: 
009854,000517: 07,2357           05253                          TC       CHECKMM                               
009855,000518: 07,2360           00003                          MM       03         B-14                       
009856,000519: 07,2361           12363                          TCF      +2                                    
009857,000520: 07,2362           02365                          TC       TERMP03                               
009858,000521: 07,2363           04574                          TC       POSTJUMP                              
009859,000522: 07,2364           30176                          CADR     TERM52                                
009860,000523: 
009861,000524: 07,2365           05435        TERMP03           TC       UPFLAG                                
009862,000525: 07,2366           00032                          ADRES    TRM03FLG                              
009863,000526: 07,2367           34741        ENTANSWR          CAF      LOW9                                  #  PUT VAC ADR IN MARKSTAT AND NO. OF
009864,000527: 07,2370           71330                          MASK     MARKSTAT                              #  MARKS MADE IN QPRET BEFORE LEAVING
009865,000528: 07,2371           55330                          TS       MARKSTAT                              #  SXTMARK
009866,000529: 07,2372           40000                          COM                                            
009867,000530: 07,2373           51330                          INDEX    MARKSTAT                              
009868,000531: 07,2374           60052                          AD       QPRET                                 
009869,000532:                                                                                                 # # Page 226
009870,000533: 07,2375           00006                          EXTEND                                         
009871,000534: 07,2376           62402                          BZMF     JAMIT                                 #  NO MARKS MADE, SHOW IT IN QPRET, R53
009872,000535: 07,2377           00006                          EXTEND                                         #    WILL PICK IT UP AND RECYCLE
009873,000536: 07,2400           74677                          MP       BIT12                                 #  THIS PUTS NUMBER MARKS-1 IN A
009874,000537: 07,2401           64712                          AD       ONE                                   
009875,000538: 07,2402           51330        JAMIT             INDEX    MARKSTAT                              #  STORE NO OF MARKS MADE
009876,000539: 07,2403           54052                          TS       QPRET                                 
009877,000540: 07,2404           00004                          INHINT                                         #  SERVICE OPTSTALL INTERFACE WITH
009878,000541: 07,2405           34715                          CAF      FIVE                                  
009879,000542: 07,2406           05140                          TC       WAITLIST                              
009880,000543: 07,2407     1330                                 EBANK=   MARKSTAT                              
009881,000544: 07,2407           02412 16062                    2CADR    ENDMARKS                              
009882,000545: 07,2411           05423                          TC       ENDMARK                               #  KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
009883,000546: 
009884,000547: 07,2412           34712        ENDMARKS          CAF      ONE                                   
009885,000548: 07,2413           04633                          TC       IBNKCALL                              
009886,000549: 07,2414           17467                          CADR     GOODEND                               
009887,000550: 07,2415           37671        MKVB5X            CAF      PRIO34                                
009888,000551: 07,2416           71330                          MASK     MARKSTAT                              #  RE-DISPLAY VB51 IF MORE MARKS WANTED
009889,000552: 07,2417           10000                          CCS      A                                     #  AND VB50 IF ALL IN
009890,000553: 07,2420           12346                          TCF      MKVB51                                
009891,000554: 07,2421           34333        MKVB50            CAF      R1D1                                  #  OCT 16
009892,000555: 07,2422           55045                          TS       DSPTEM1                               
009893,000556: 07,2423           32425                          CAF      V50N25                                
009894,000557: 07,2424           12351                          TCF      MKVB51     +3                         
009895,000558: 
009896,000559: 07,2425           14431        V50N25            VN       5025                                  
009897,000560: 07,2426           14600        VB51              VN       5100                                  
009898,000561: 07,2427     4362               OCT37             =        LOW5                                  
009899,000562: 
009900,000563:                                                                                                 #  PROGRAM NAME - MARKIT                                  DATE- 19 SEPT 1967
009901,000564: 
009902,000565:                                                                                                 #  CALLING SEQUENCE-
009903,000566:                                                                                                 #     FROM MARKRUPT IF CHAN 16 BIT 6 = 1
009904,000567: 
009905,000568:                                                                                                 #  EXIT
009906,000569:                                                                                                 #     RESUME
009907,000570: 
009908,000571:                                                                                                 #  INPUT
009909,000572:                                                                                                 #     CDUCHKWD. ALSO ALL INITIALIZATION FOR MARKCONT
009910,000573: 
009911,000574:                                                                                                 #  OUTPUT
009912,000575:                                                                                                 #     MKT2T1,MKCDUX,MKCDUY,MKCDUZ,MKCDUS,MKCDUT
009913,000576: 
009914,000577:                                                                                                 #  ALARM EXIT
009915,000578:                                                                                                 #     NONE
009916,000579: 
009917,000580: 07,2427           11341        MARKIT            CCS      CDUCHKWD                              
009918,000581: 07,2430           12433                          TCF      +3                                    #  DELAY OF CDUCHKWD CS IF PNZ
009919,000582:                                                                                                 # # Page 227
009920,000583: 07,2431           12433                          TCF      +2                                    
009921,000584: 07,2432           34714                          CAF      ZERO                                  
009922,000585: 07,2433           64712                          AD       ONE                                   #  10 MS IF NO CHECK
009923,000586: 07,2434           05140                          TC       WAITLIST                              
009924,000587: 07,2435  E7,1725                                 EBANK=   MRKBUF1                               
009925,000588: 07,2435           02203 20067                    2CADR    MARKDIF                               
009926,000589: 07,2437           15222                          TCF      RESUME                                
009927,000590: 
009928,000591: 10,2000                                          SETLOC   SXTMARK1                              
009929,000592: 10,2000                                          BANK                                           
009930,000593: 
009931,000594: 10,2203                                          COUNT    10/SXTMK                              
009932,000595: 
009933,000596:                                                                                                 #  PROGRAM NAME - MARKDIF                         DATE- 19 SEPT 1967
009934,000597: 
009935,000598:                                                                                                 #  CALLING SEQUENCE
009936,000599:                                                                                                 #     WAITLIST FROM MARKIT
009937,000600: 
009938,000601:                                                                                                 #  EXIT
009939,000602:                                                                                                 #     TASKOVER TO IBNKCALL TO MARKCONT
009940,000603: 
009941,000604:                                                                                                 #  INPUT
009942,000605:                                                                                                 #     OUTPUT FROM MARKIT, INPUT TO MARKCONT, CDUCHKWD
009943,000606: 
009944,000607:                                                                                                 #  OUTPUT
009945,000608:                                                                                                 #     RUPTSTOR - RUPTSTOR+3,RUPTREG3,RUPTSTOR+5 - RUPTSTOR +6
009946,000609: 
009947,000610:                                                                                                 #  ALARM EXIT
009948,000611:                                                                                                 #     ALARM AND TASKOVER
009949,000612: 
009950,000613: 10,2203           31341        MARKDIF           CA       CDUCHKWD                              #  IF DELAY CHECK IS ZERO OR NEG, ACP MARK
009951,000614: 10,2204           00006                          EXTEND                                         
009952,000615: 10,2205           62216                          BZMF     MKACPT                                
009953,000616: 10,2206           44712                          CS       BIT1                                  
009954,000617: 10,2207           54354                          TS       MKNDX                                 #  SET INDEX -1
009955,000618: 10,2210           30363                          CA       MKCDUX                                
009956,000619: 10,2211           02220                          TC       DIFCHK                                #  SEE IF VEHICLE RATE  TO MUCH AT MARK
009957,000620: 10,2212           30357                          CA       MKCDUY                                
009958,000621: 10,2213           02220                          TC       DIFCHK                                
009959,000622: 10,2214           30361                          CA       MKCDUZ                                
009960,000623: 10,2215           02220                          TC       DIFCHK                                
009961,000624: 
009962,000625: 10,2216           04633        MKACPT            TC       IBNKCALL                              
009963,000626: 10,2217           16152                          CADR     MARKCONT                              #  MARK DATA OK, WHAT DO WE DO WITH IT
009964,000627: 
009965,000628: 10,2220           24354        DIFCHK            INCR     MKNDX                                 #  INCREMENT INDEX
009966,000629: 
009967,000630: 10,2221           00006                          EXTEND                                         
009968,000631: 10,2222           50354                          INDEX    MKNDX                                 
009969,000632:                                                                                                 # # Page 228
009970,000633: 10,2223           20032                          MSU      CDUX                                  #  GET MARK(ICDU) - CURRENT(ICDU)
009971,000634: 10,2224           10000                          CCS      A                                     
009972,000635: 10,2225           12231                          TCF      +4                                    
009973,000636: 10,2226           00002                          TC       Q                                     
009974,000637: 10,2227           12231                          TCF      +2                                    
009975,000638: 10,2230           00002                          TC       Q                                     
009976,000639: 10,2231           67715                          AD       NEG2                                  #  SEE IF DIFFERENCE GREATER THAN 3 BITS
009977,000640: 10,2232           00006                          EXTEND                                         
009978,000641: 10,2233           62230                          BZMF     -3                                    #  NOT GREATER
009979,000642: 
009980,000643: 10,2234           05537                          TC       ALARM                                 #  COUPLED WITH PROGRAM ALARM
009981,000644: 10,2235           00121                          OCT      00121                                 
009982,000645: 
009983,000646: 10,2236           15213                          TCF      TASKOVER                              #  DO NOT ACCEPT

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