Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

009317,000002:                                                                                                  ## Copyright:   Public domain.
009318,000003:                                                                                                  ## Filename:    SXTMARK.agc
009319,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
009320,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
009321,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
009322,000007:                                                                                                  ## Assembler:   yaYUL
009323,000008:                                                                                                  ## Reference:   pp. 216-229.
009324,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009325,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
009326,000011:                                                                                                  ## Mod history: 08/07/04 RSB.   Began data entry.
009327,000012:                                                                                                  ##              2010-10-24 JL   Pseudo-label indentation fixes.
009328,000013:                                                                                                  ##              2017-01-05 RSB  Page numbers now agree with those on the
009329,000014:                                                                                                  ##                              original harcopy, as opposed to the PDF page
009330,000015:                                                                                                  ##                              numbers in 1701.pdf.
009331,000016:                                                                                                  ##              2017-01-20 RSB  Cross-diff'd comment text (not whitespace)
009332,000017:                                                                                                  ##                              vs the already-proofed corresponding Colossus
009333,000018:                                                                                                  ##                              237 and Comanche 55 source-code files
009334,000019:                                                                                                  ##                              and corrected errors found.
009335,000020:                                                                                                  ##              2021-05-30 ABS  20/SXTMK -> 10/SXTMK
009336,000021:                                                                                                  ##
009337,000022:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
009338,000023:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
009339,000024:                                                                                                  ## document read, in part:
009340,000025:                                                                                                  ##
009341,000026:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
009342,000027:                                                                                                  ##      2021111-041.  October 28, 1968.  
009343,000028:                                                                                                  ##
009344,000029:                                                                                                  ##      This AGC program shall also be referred to as
009345,000030:                                                                                                  ##                              Colossus 1A
009346,000031:                                                                                                  ##
009347,000032:                                                                                                  ##      Prepared by
009348,000033:                                                                                                  ##                      Massachusetts Institute of Technology
009349,000034:                                                                                                  ##                      75 Cambridge Parkway
009350,000035:                                                                                                  ##                      Cambridge, Massachusetts
009351,000036:                                                                                                  ##      under NASA contract NAS 9-4065.
009352,000037:                                                                                                  ##
009353,000038:                                                                                                  ## Refer directly to the online document mentioned above for further information.
009354,000039:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
009355,000040:                                                                                                  ##
009356,000041:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
009357,000042:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
009358,000043:                                                                                                  ## source file, and then is proofed to incorporate any changes.
009359,000044: 

Page 216

009361,000046:                                                                                                  #  PROGRAM NAME - SXTMARK                                        DATE - 5 APRIL 1967
009362,000047:                                                                                                  #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS                       LOG SECTION SXTMARK
009363,000048:                                                                                                  #  MOD BY - R. MELANSON TO ADD DOCUMENTATION                     ASSEMBLY SUNDISK REV. 116
009364,000049:                                                                                                  #  
009365,000050:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009366,000051: 
009367,000052:                                                                                                  #        SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT.  IF
009368,000053:                                                                                                  #        THE MARK SYSTEM IS NOT IN USE, SXTMARK RESERVES A VAC AREA FOR MARKING AND REQUESTS EXECUTIONOF THE MKVB51
009369,000054:                                                                                                  #        ROUTINE VIA THE EXECUTIVE JOB PRIORITY LIST.  R21 USES THIS ROUTINE TO DETERMINE IF THE MARK SYSTEM CAN BE
009370,000055:                                                                                                  #        USED.  IF YES, SXTMARK RETURNS TO R21 TO PERFORM ITS OWN MARK REQUESTS VIA THE V51 FLASH.
009371,000056: 
009372,000057:                                                                                                  #  CALLING SEQUENCE-
009373,000058: 
009374,000059:                                                                                                  #        CAF     (NO. MARK REQUESTS IN BITS 1-3 OF A)
009375,000060:                                                                                                  #        TC      BANKCALL
009376,000061:                                                                                                  #        CADR    SXTMARK
009377,000062: 
009378,000063:                                                                                                  #  NORMAL EXIT MODE-
009379,000064: 
009380,000065:                                                                                                  #        SWRETURN
009381,000066: 
009382,000067:                                                                                                  #  ALARM OR ABORT EXIT MODE-
009383,000068: 
009384,000069:                                                                                                  #        ABORT
009385,000070: 
009386,000071:                                                                                                  #  OUTPUT-
009387,000072: 
009388,000073:                                                                                                  #        1)      MARKSTAT CONTAINS MARK VALUE (BITS 14-12) AND VAC AREA ADDRESS
009389,000074:                                                                                                  #        2)      QPRET = VAC AREA POINTER VALUE
009390,000075:                                                                                                  #        3)      1ST WORD OF RESERVED VAC AREA SET TO +0
009391,000076:                                                                                                  #        4)      PRIO32 PLACED IN A REGISTER
009392,000077: 
009393,000078:                                                                                                  #  ERASABLE INITIALIZATION-
009394,000079: 
009395,000080:                                                                                                  #        1)      BITS 1-3 OF A = NO. MARKS REQUESTED
009396,000081:                                                                                                  #        2)      BITS 2,3 OF EXTVBACT = 0
009397,000082:                                                                                                  #        3)      A VAC AREA MUST BE AVAILABLE (WORD 1 = ADDRESS OF VAC AREA)
009398,000083: 
009399,000084:                                                                                                  #  DEBRIS-
009400,000085: 
009401,000086:                                                                                                  #        A,Q,L,RUPTREG1,MARKSTAT,QPRET,BIT2 OF EXTVBACT
009402,000087: 
009403,000088: 13,2036                                           BANK     13                                    
009404,000089: 07,2000                                           SETLOC   SXTMARKE                              
009405,000090: 07,2000                                           BANK                                           
009406,000091: 
009407,000092: 07,2002  E7,1725                                  EBANK=   MRKBUF1                               
009408,000093: 07,2002                                           COUNT    07/SXTMK                              
009409,000094: 
009410,000095: 07,2002           00004        SXTMARK            INHINT                                         
009411,000096: 07,2003           54070                           TS       RUPTREG1                              #  NUMBER OF MARKS WANTED
009412,000097: 
009413,000098: 07,2004           36211                           CAF      SIX                                   #  BIT2 = MARKING SYSTEM IN USE
009414,000099: 07,2005           71044                           MASK     EXTVBACT                              #  BIT3 = EXTENDED VERB IN PROGRESS
009415,000100: 07,2006           10000                           CCS      A                                     
009416,000101: 07,2007           02013                           TC       MKABORT                               #  SET THEREFORE ABORT

Page 217

009418,000103: 07,2010           34711                           CAF      BIT2                                  #  NOT SET
009419,000104: 07,2011           27044                           ADS      EXTVBACT                              #  SET IT, RESET IN ENDMARK
009420,000105: 07,2012           02015                           TC       MARKOK                                #  YES, FIND VAC AREA
009421,000106: 
009422,000107: 07,2013           05604        MKABORT            TC       BAILOUT                               
009423,000108: 07,2014           01211                           OCT      01211                                 
009424,000109: 07,2015           10400        MARKOK             CCS      VAC1USE                               #  FIND VAC AREA
009425,000110: 07,2016           02031                           TC       MKVACFND                              
009426,000111: 07,2017           10454                           CCS      VAC2USE                               
009427,000112: 07,2020           02031                           TC       MKVACFND                              
009428,000113: 07,2021           10530                           CCS      VAC3USE                               
009429,000114: 07,2022           02031                           TC       MKVACFND                              
009430,000115: 07,2023           10604                           CCS      VAC4USE                               
009431,000116: 07,2024           02031                           TC       MKVACFND                              
009432,000117: 07,2025           10660                           CCS      VAC5USE                               
009433,000118: 07,2026           02031                           TC       MKVACFND                              
009434,000119: 07,2027           05604                           TC       BAILOUT                               
009435,000120: 07,2030           01207                           OCT      01207                                 
009436,000121: 
009437,000122: 07,2031           64711        MKVACFND           AD       TWO                                   #  ADDRESS OF VAC AREA
009438,000123: 07,2032           55330                           TS       MARKSTAT                              
009439,000124: 07,2033           50000                           INDEX    A                                     
009440,000125: 07,2034           54052                           TS       QPRET                                 #  STORE NEXT AVAILABLE MARK SLOT
009441,000126: 
009442,000127: 07,2035           34714                           CAF      ZERO                                  #  SHOW VAC AREA OCCUPIED
009443,000128: 07,2036           51330                           INDEX    MARKSTAT                              
009444,000129: 07,2037           53777                           TS       0          -1                         
009445,000130: 
009446,000131: 07,2040           05253                           TC       CHECKMM                               #  BACKUP MARK ROUTINE USES SXTMARK
009447,000132: 07,2041           00065                           MM       53         B-14                       
009448,000133: 07,2042           12044                           TCF      +2                                    
009449,000134: 07,2043           14570                           TCF      SWRETURN                              
009450,000135: 07,2044           05253                           TC       CHECKMM                               
009451,000136: 07,2045           00066                           MM       54         B-14                       
009452,000137: 07,2046           12050                           TCF      +2                                    
009453,000138: 07,2047           14570                           TCF      SWRETURN                              
009454,000139: 07,2050           34677                           CAF      BIT12                                 #  DESIRED NUMBER OF MARKS IN 12-14
009455,000140: 07,2051           00006                           EXTEND                                         
009456,000141: 07,2052           70070                           MP       RUPTREG1                              
009457,000142: 07,2053           56001                           XCH      L                                     
009458,000143: 07,2054           27330                           ADS      MARKSTAT                              
009459,000144: 
009460,000145: 07,2055           37667                           CAF      PRIO32                                #  ENTER MARK JOB
009461,000146: 07,2056           05027                           TC       NOVAC                                 
009462,000147: 07,2057     1330                                  EBANK=   MARKSTAT                              
009463,000148: 07,2057           02346 16062                     2CADR    MKVB51                                
009464,000149: 
009465,000150: 07,2061           00003                           RELINT                                         
009466,000151: 07,2062           14570                           TCF      SWRETURN                              #  SAME AS MODEEXIT
009467,000152: 

Page 218

009469,000154:                                                                                                  #  PROGRAM NAME - MKRELEAS                                       DATE - 5 APRIL 1967
009470,000155:                                                                                                  #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS                       LOG SECTION SXTMARK
009471,000156:                                                                                                  #  MOD BY - R. MELANSON TO ADD DOCUMENTATION                     ASSEMBLY SUNDISK REV. 116
009472,000157: 
009473,000158:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009474,000159: 
009475,000160:                                                                                                  #        MKRELEAS IS EXECUTED BY INTERNAL ROUTINES TO RELEASE THE MARK SYSTEM TO MAKE IT AVAILABLE TO OTHER INTERNAL
009476,000161:                                                                                                  #        SYSTEM ROUTINES.  IT ALSO CLEARS THE COARSE OPTICS FLAG BIT AND DISABLES THE OPTICS ERROR COUNTER.
009477,000162: 
009478,000163:                                                                                                  #  CALLING SEQUENCE-
009479,000164: 
009480,000165:                                                                                                  #        TC      BANKCALL
009481,000166:                                                                                                  #        CADR    MKRELEAS
009482,000167: 
009483,000168:                                                                                                  #  NORMAL EXIT MODE-
009484,000169: 
009485,000170:                                                                                                  #        SWRETURN
009486,000171: 
009487,000172:                                                                                                  #  ALARM OR ABORT EXIT MODE - NONE
009488,000173: 
009489,000174:                                                                                                  #  OUTPUT-
009490,000175: 
009491,000176:                                                                                                  #        1)      BIT9 OPTMODES SET TO 0
009492,000177:                                                                                                  #        2)      OPTIND SET TO -1
009493,000178:                                                                                                  #        3)      1ST WORD OF VAC AREA SET TO VAC ADDRESS TO SIGNIFY AVAILABILITY.
009494,000179:                                                                                                  #        4)      MARKSTAT CLEARED
009495,000180:                                                                                                  #        5)      BIT2 CHANNEL 12 SET TO 0
009496,000181: 
009497,000182:                                                                                                  #  ERASABLE INITIALIZATION-  NONE
009498,000183: 
009499,000184:                                                                                                  #  DEBRIS-
009500,000185: 
009501,000186:                                                                                                  #        A,MARKSTAT,BIT9 OPTMODES,OPTIND,BIT2 CHANNEL 12
009502,000187: 
009503,000188: 07,2063           34714        MKRELEAS           CAF      ZERO                                  #  SHOW MARK SYSTEM NOW AVAILABLE
009504,000189: 07,2064           57330                           XCH      MARKSTAT                              
009505,000190: 07,2065           10000                           CCS      A                                     
009506,000191: 07,2066           50000                           INDEX    A                                     
009507,000192: 07,2067           54000                           TS       0                                     
009508,000193: 07,2070           00004        MKRLEES            INHINT                                         
009509,000194: 07,2071           44702                           CS       BIT9                                  #  COARSE OPTICS RETURN FLAG.
009510,000195: 07,2072           71331                           MASK     OPTMODES                              
009511,000196: 07,2073           55331                           TS       OPTMODES                              
009512,000197: 
009513,000198: 07,2074           37716                           CA       NEGONE                                
009514,000199: 07,2075           55303                           TS       OPTIND                                #  KILL COARS OPTICS
009515,000200: 
009516,000201: 07,2076           44711                           CS       BIT2                                  #  DISABLE OPTICS ERROR COUNTER
009517,000202: 07,2077           00006                           EXTEND                                         
009518,000203: 07,2100           03012                           WAND     CHAN12                                
009519,000204: 
009520,000205: 07,2101           00003                           RELINT                                         
009521,000206: 07,2102           04570                           TC       SWRETURN                              

Page 219

009523,000208:                                                                                                  #  PROGRAM NAME - MARKRUPT                                       DATE - 5 APRIL 1967
009524,000209:                                                                                                  #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS                       LOG SECTION SXTMARK
009525,000210:                                                                                                  #  MOD BY - R. MELANSON TO ADD DOCUMENTATION                     ASSEMBLY SUNDISK REV. 116
009526,000211: 
009527,000212:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009528,000213: 
009529,000214:                                                                                                  #        MARKRUPT STORES CDUS,OPTICS AND TIME AND TRANSFERS CONTROL TO THE MARKIT,MARK REJECT OR KEYCOM ROUTINES IF
009530,000215:                                                                                                  #        BITS IN CHANNEL 16 ARE SET AS REQUIRED.
009531,000216: 
009532,000217:                                                                                                  #  CALLING SEQUENCE-
009533,000218: 
009534,000219:                                                                                                  #        ROUTINE ENTERED VIA KEYRUPT2 WHEN MARK,MARK REJECT OR DSKY KEYS DEPRESSED BY THE OPERATOR.
009535,000220: 
009536,000221:                                                                                                  #  NORMAL EXIT MODE-
009537,000222: 
009538,000223:                                                                                                  #        MARKIT, MKREJECT OR POSTJUMP ROUTINES (MARK, MARK REJECT OR DSKY CODE)
009539,000224: 
009540,000225:                                                                                                  #  ALARM OR ABORT EXIT MODE-
009541,000226: 
009542,000227:                                                                                                  #        ALARM AND RESUME
009543,000228: 
009544,000229:                                                                                                  #  OUTPUT-
009545,000230: 
009546,000231:                                                                                                  #        RUPTSTOR+5 = CDUT, RUPTSTOR+3 = CDUS, RUPTSTOR+2 = CDUY,
009547,000232:                                                                                                  #        RUPTREG3 = CDUZ, RUPTSTOR+6 = CDUX, RUPTSTOR+1 AND SAMPTIME+1 = TIME1,
009548,000233:                                                                                                  #        RUPTSTOR AND SAMPTIME = TIME2
009549,000234: 
009550,000235:                                                                                                  #  ERASABLE INITIALIZATION-
009551,000236: 
009552,000237:                                                                                                  #        CDUT,CDUS,CDUY,CDUZ,CDUX,TIME2,TIME1,CHANNEL 16 BITS 6,7 OR 1-5
009553,000238: 
009554,000239:                                                                                                  #  DEBRIS-
009555,000240: 
009556,000241:                                                                                                  #        A,QRUPT,RUPTREG3,SAMPTIME,SAMPTIME+1,RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4 (LOCATION 67)
009557,000242: 
009558,000243: 07,2103           54016        MARKRUPT           TS       BANKRUPT                              #  STORE CDUS AND OPTICS NOW
009559,000244: 07,2104           30035                           CA       CDUT                                  
009560,000245: 07,2105           54362                           TS       MKCDUT                                
009561,000246: 07,2106           30036                           CA       CDUS                                  
009562,000247: 07,2107           54360                           TS       MKCDUS                                
009563,000248: 07,2110           30033                           CA       CDUY                                  
009564,000249: 07,2111           54357                           TS       MKCDUY                                
009565,000250: 07,2112           30034                           CA       CDUZ                                  
009566,000251: 07,2113           54361                           TS       MKCDUZ                                
009567,000252: 07,2114           30032                           CA       CDUX                                  
009568,000253: 07,2115           54363                           TS       MKCDUX                                
009569,000254: 07,2116           00006                           EXTEND                                         
009570,000255: 07,2117           30025                           DCA      TIME2                                 #  GET TIME
009571,000256: 07,2120           52356                           DXCH     MKT2T1                                
009572,000257: 07,2121           00006                           EXTEND                                         
009573,000258: 07,2122           30356                           DCA      MKT2T1                                
009574,000259: 07,2123           52014                           DXCH     SAMPTIME                              #  RUPT TIME FOR NOUN 65.
009575,000260: 
009576,000261: 07,2124           56002                           XCH      Q                                     
009577,000262: 07,2125           54012                           TS       QRUPT                                 
009578,000263: 
009579,000264: 07,2126           34705                           CAF      BIT6                                  #  SEE IF MARK OR MKREJECT

Page 220

009581,000266: 07,2127           00006                           EXTEND                                         
009582,000267: 07,2130           02016                           RAND     NAVKEYIN                              
009583,000268: 07,2131           10000                           CCS      A                                     
009584,000269: 07,2132           02427                           TC       MARKIT                                #  ITS A MARK
009585,000270: 
009586,000271: 07,2133           34704                           CAF      BIT7                                  #  NOT A MARK, SEE IF MKREJECT
009587,000272: 07,2134           00006                           EXTEND                                         
009588,000273: 07,2135           02016                           RAND     NAVKEYIN                              
009589,000274: 07,2136           10000                           CCS      A                                     
009590,000275: 07,2137           02300                           TC       MKREJECT                              #  ITS A MARK REJECT
009591,000276: 
009592,000277: 07,2140           34362        KEYCALL            CAF      OCT37                                 #  NOT MARK OR MKREJECT, SEE IF KEYCODE
009593,000278: 07,2141           00006                           EXTEND                                         
009594,000279: 07,2142           02016                           RAND     NAVKEYIN                              
009595,000280: 07,2143           00006                           EXTEND                                         
009596,000281: 07,2144           12147                           BZF      +3                                    #  IF NO INBITS
009597,000282: 07,2145           04574                           TC       POSTJUMP                              
009598,000283: 07,2146           17622                           CADR     KEYCOM                                #  IT,S A KEY CODE, NOT A MARK.
009599,000284: 
009600,000285: 07,2147           05537                 +3        TC       ALARM                                 #  ALARM IF NO INBITS
009601,000286: 07,2150           00113                           OCT      113                                   
009602,000287: 07,2151           05222                           TC       RESUME                                
009603,000288: 

Page 221

009605,000290:                                                                                                  #  PROGRAM NAME - MARKCONT                               DATE - 19 SEPT 1967
009606,000291:                                                                                                  #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS               LOG SECTION SXTMARK
009607,000292:                                                                                                  #  MOD BY - R. MELANSON TO ADD DOCUMENTATION             ASSEMBLY SUNDISK REV. 116
009608,000293: 
009609,000294:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009610,000295: 
009611,000296:                                                                                                  #        MARKCONT IS USED TO PERFORM A SPECIAL MARK FUNCTION FOR R21, TO EXECUTE A SPECIAL DISPLAY OF OPTICS AND TIME OR
009612,000297:                                                                                                  #        TO PERFORM A MARK OF A STAR OR LAND SIGHTING BASED UPON FLASHING V-N.
009613,000298: 
009614,000299:                                                                                                  #  CALLING SEQUENCE-
009615,000300: 
009616,000301:                                                                                                  #        FROM MARKDIF
009617,000302: 
009618,000303:                                                                                                  #  NORMAL EXIT MODE-
009619,000304: 
009620,000305:                                                                                                  #        TASKOVER
009621,000306: 
009622,000307:                                                                                                  #  ALARM OR ABORT EXIT MODE-
009623,000308: 
009624,000309:                                                                                                  #        ALARM AND TASKOVER
009625,000310: 
009626,000311:                                                                                                  #  OUTPUT-
009627,000312: 
009628,000313:                                                                                                  #        1)      FOR R21-
009629,000314:                                                                                                  #                EBANK=EBANK7
009630,000315:                                                                                                  #                MRKBUF1 TO MRKBUF1+6 = TIME2,TIME1,CDUY,OPTICX,CDUZ,OPTICSY,CDUX OF CURRENT R21 MARK FUNCTION.
009631,000316:                                                                                                  #                MRKBUF2 TO MRKBUF2+6 CONTAINS PREVIOUS R21 MARK VALUES.
009632,000317:                                                                                                  #        2)      FOR SPECIAL DISPLAY JOB-
009633,000318:                                                                                                  #                RUPTREG1 AND MRKBUF1 = CDUS,RUPTREG2 AND MRKBUF1+1 = CDUT.
009634,000319:                                                                                                  #                RUPTREG3 AND MRKBUF1 +2 = TIME2,RUPTREG4 AND MRKBUF1+3 = TIME1
009635,000320:                                                                                                  #        3)      FOR NORMAL MARKING-
009636,000321:                                                                                                  #                DECREMENT BITS14-12 OF MARKSTAT BY 1,
009637,000322:                                                                                                  #                BIT10 MARKSTAT SET TO 1, INCREMENT QPRET BY 7,
009638,000323:                                                                                                  #                STORE TIME2,TIME1,CDUY,CDUS,CDUZ,CDUT AND CDUX IN VAC+1 TO VAC+7
009639,000324: 
009640,000325:                                                                                                  #  ERASABLE INITIALIZATION-
009641,000326: 
009642,000327:                                                                                                  #        1)      FOR R21-
009643,000328:                                                                                                  #                BIT14 OF STATE+2 =1, MRKBUF1 TO MRKBUF1+6, ITEMP1, RUPTREG3,
009644,000329:                                                                                                  #                RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009645,000330:                                                                                                  #        2)      FOR SPECIAL DISPLAY JOB-
009646,000331:                                                                                                  #                BIT14 OF STATE+2 =0, MARKSTAT =+0, RUPTREG1,RUPTREG2,RUPTREG3
009647,000332:                                                                                                  #                RUPTREG4,RUPTSTOR,RUPTSTOR+1,RUPTSTOR+3,RUPTSTOR+5,
009648,000333:                                                                                                  #                BIT12 OF STATE+5 (V59 FLAG), MRKBUF1 THRU MRKBUF1+3
009649,000334:                                                                                                  #        3)      FOR NORMAL MARKING-
009650,000335:                                                                                                  #                BIT14 OF STATE+2 =0, MARKSTAT =VAC ADDRESS, A REG, ITEMP1, RUPTREG3,
009651,000336:                                                                                                  #                RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009652,000337: 
009653,000338:                                                                                                  #  DEBRIS-
009654,000339: 
009655,000340:                                                                                                  #        1)      FOR R21-
009656,000341:                                                                                                  #                A, ITEMP1, MRKBUF1, MRKBUF2
009657,000342:                                                                                                  #        2)      FOR SPECIAL DISPLAY JOB-
009658,000343:                                                                                                  #                A,RUPTREG1,RUPTREG2,RUPTREG3,RUPTREG4,MPAC TO MPAC+3
009659,000344:                                                                                                  #        3)      FOR NORMAL MARKING-
009660,000345:                                                                                                  #                A,MARKSTAT,ITEMP1,QPRET,VAC+1 TO VAC+7 OF VAC AREA IN USE
009661,000346: 

Page 222

009663,000348: 07,2152           34675        MARKCONT           CAF      BIT14                                 
009664,000349: 07,2153           70076                           MASK     STATE      +2                         #  R21 MARK (SPECIAL MARKING FOR R21)
009665,000350: 07,2154           00006                           EXTEND                                         
009666,000351: 07,2155           12167                           BZF      MARKET                                #  NOT SET THEREFORE REGULAR MARKING
009667,000352: 07,2156           36211        MARKIT1            CAF      SIX                                   #  SPECIAL FOR R21
009668,000353: 07,2157           05475                           TC       GENTRAN                               #  TRANSFER MRKBUF1 TO MRKBUF2
009669,000354: 07,2160           01725                           ADRES    MRKBUF1                               
009670,000355: 07,2161           01734                           ADRES    MRKBUF2                               
009671,000356: 
009672,000357: 07,2162           36211                           CAF      SIX                                   #  TRANSFER CURRENT MARK DATA TO MARKBUF1
009673,000358: 07,2163           05475                           TC       GENTRAN                               
009674,000359: 07,2164           00355                           ADRES    MKT2T1                                
009675,000360: 07,2165           01725                           ADRES    MRKBUF1                               
009676,000361: 
009677,000362: 07,2166           15213                           TCF      TASKOVER                              
009678,000363: 
009679,000364: 07,2167           11330        MARKET             CCS      MARKSTAT                              #  SEE IF MARKS CALLED FOR
009680,000365: 07,2170           02224                           TC       MARK2                                 #  COLLECT MARKS
009681,000366: 
009682,000367: 07,2171           34711                           CAF      TWO                                   #  IS MARKING SYSTEM IN USE (BIT2)
009683,000368: 07,2172           71044                           MASK     EXTVBACT                              
009684,000369: 07,2173           00006                           EXTEND                                         
009685,000370: 07,2174           12216                           BZF      MARKET3                               #  MARKING NOT CALLED FOR
009686,000371: 07,2175           34677                           CAF      BIT12                                 
009687,000372: 07,2176           70101                           MASK     STATE      +5                         #  V59FLAG
009688,000373: 07,2177           00006                           EXTEND                                         
009689,000374: 07,2200           12216                           BZF      MARKET3                               #  IF V59FLAG NOT SET-MARK UNCALLED FOR
009690,000375: 07,2201           34754                           CAF      PRIO5                                 #  CALIBRATION MARK (SET) FOR P23
009691,000376: 07,2202           05027                           TC       NOVAC                                 #  SPECIAL DISPLAY JOB
009692,000377: 07,2203  E7,1725                                  EBANK=   MRKBUF1                               
009693,000378: 07,2203           02405 76067                     2CADR    MARKDISP                              
009694,000379: 
009695,000380: 07,2205           36211                           CAF      SIX                                   
009696,000381: 07,2206           05475                           TC       GENTRAN                               #  TRANSFER MARK DATA TO MARKDOWN
009697,000382: 07,2207           00355                           ADRES    MKT2T1                                
009698,000383: 07,2210           01674                           ADRES    MARKDOWN                              
009699,000384: 07,2211           36211                           CAF      SIX                                   
009700,000385: 07,2212           05475                           TC       GENTRAN                               #  TRANSFER MARK DATA TO MRKBUF1 FOR
009701,000386: 07,2213           00355                           ADRES    MKT2T1                                #  SPECIAL DISPLAY OF SHAFT AND TRUNNION
009702,000387: 07,2214           01725                           ADRES    MRKBUF1                               #  IF V59 ACTING
009703,000388: 07,2215           15213                           TCF      TASKOVER                              
009704,000389: 07,2216           05537        MARKET3            TC       ALARM                                 
009705,000390: 07,2217           00122                           OCT      122                                   #  MARKING NOT CALLED FOR
009706,000391: 07,2220           15213                           TCF      TASKOVER                              
009707,000392: 07,2221           05537        114ALM             TC       ALARM                                 #  MARK NOT WANTED
009708,000393: 07,2222           00114                           OCT      114                                   
009709,000394: 07,2223           15213                           TCF      TASKOVER                              
009710,000395: 

Page 223

009712,000397:                                                                                                  #  STORE MARK DATA IN MKVAC AND INCREMENT POINTER
009713,000398: 
009714,000399: 07,2224           67711        MARK2              AD       74K                                   #  SEE IF MARKS WANTED-REDUCE MARKS WANTED
009715,000400: 07,2225           00006                           EXTEND                                         
009716,000401: 07,2226           62221                           BZMF     114ALM                                #  MARK NOT WANTED-ALARM
009717,000402: 07,2227           55330                           TS       MARKSTAT                              
009718,000403: 07,2230           40000                           COM                                            
009719,000404: 07,2231           74701                           MASK     BIT10                                 #  SET BIT10 TO ENABLE REJECT
009720,000405: 07,2232           27330                           ADS      MARKSTAT                              
009721,000406: 
009722,000407: 07,2233           74741                           MASK     LOW9                                  
009723,000408: 07,2234           54061                           TS       ITEMP1                                
009724,000409: 07,2235           50000                           INDEX    A                                     
009725,000410: 07,2236           56052                           XCH      QPRET                                 #  PICK UP MARK SLOT-POINTER
009726,000411: 07,2237           54062                           TS       ITEMP2                                #  SAVE CURRENT POINTER
009727,000412: 07,2240           64716                           AD       SEVEN                                 #  INCREMENT POINTER
009728,000413: 07,2241           50061                           INDEX    ITEMP1                                
009729,000414: 07,2242           54052                           TS       QPRET                                 #  STORE ADVANCED POINTER
009730,000415: 
009731,000416: 07,2243           00006        VACSTOR            EXTEND                                         
009732,000417: 07,2244           30356                           DCA      MKT2T1                                
009733,000418: 07,2245           50062                           INDEX    ITEMP2                                
009734,000419: 07,2246           52001                           DXCH     0                                     
009735,000420: 07,2247           30357                           CA       MKCDUY                                
009736,000421: 07,2250           50062                           INDEX    ITEMP2                                
009737,000422: 07,2251           54002                           TS       2                                     
009738,000423: 07,2252           30360                           CA       MKCDUS                                
009739,000424: 07,2253           50062                           INDEX    ITEMP2                                
009740,000425: 07,2254           54003                           TS       3                                     
009741,000426: 07,2255           30361                           CA       MKCDUZ                                
009742,000427: 07,2256           50062                           INDEX    ITEMP2                                
009743,000428: 07,2257           54004                           TS       4                                     
009744,000429: 07,2260           30362                           CA       MKCDUT                                
009745,000430: 07,2261           50062                           INDEX    ITEMP2                                
009746,000431: 07,2262           54005                           TS       5                                     
009747,000432: 07,2263           30363                           CA       MKCDUX                                
009748,000433: 07,2264           50062                           INDEX    ITEMP2                                
009749,000434: 07,2265           54006                           TS       6                                     
009750,000435: 
009751,000436: 07,2266           37671                           CAF      PRIO34                                #  IF ALL MARKS MADE FLASH VB50
009752,000437: 07,2267           71330                           MASK     MARKSTAT                              
009753,000438: 07,2270           00006                           EXTEND                                         
009754,000439: 07,2271           12273                           BZF      +2                                    
009755,000440: 07,2272           15213                           TCF      TASKOVER                              
009756,000441: 07,2273           37667                           CAF      PRIO32                                
009757,000442: 07,2274           05027                           TC       NOVAC                                 
009758,000443: 07,2275     1330                                  EBANK=   MARKSTAT                              
009759,000444: 07,2275           02421 16062                     2CADR    MKVB50                                
009760,000445: 
009761,000446: 07,2277           15213                           TCF      TASKOVER                              
009762,000447: 

Page 224

009764,000449:                                                                                                  #  PROGRAM NAME - MKREJECT                                       DATE - 5 APRIL 1967
009765,000450:                                                                                                  #  PROGRAM MODIFIED BY 258/278 PROGRAMMERS                       LOG SECTION SXTMARK
009766,000451:                                                                                                  #  MOD BY - R. MELANSON TO ADD DOCUMENTATION                     ASSEMBLY SUNDISK REV. 116
009767,000452: 
009768,000453:                                                                                                  #  FUNCTIONAL DESCRIPTION-
009769,000454: 
009770,000455:                                                                                                  #        ROUTINE ALLOWS OPERATOR TO REJECT MARK MADE PRIOR TO ACCEPTANCE AND ALLOWS A NEW MARK TO BE MADE BY ASTRONAUT
009771,000456: 
009772,000457:                                                                                                  #  CALLING SEQUENCE-
009773,000458: 
009774,000459:                                                                                                  #        FROM MARKRUPT IF BIT7 OF CHANNEL 16 IS 1.
009775,000460: 
009776,000461:                                                                                                  #  NORMAL EXIT MODE-
009777,000462: 
009778,000463:                                                                                                  #        RESUME
009779,000464: 
009780,000465:                                                                                                  #  ALARM OR ABORT EXIT MODE-
009781,000466: 
009782,000467:                                                                                                  #        ALARM AND RESUME
009783,000468: 
009784,000469:                                                                                                  #  OUTPUT-
009785,000470: 
009786,000471:                                                                                                  #        1)      FOR R21-
009787,000472:                                                                                                  #                MRKBUF1 SET TO -1
009788,000473:                                                                                                  #        2)      FOR NORMAL MARKING-
009789,000474:                                                                                                  #                BIT10 MARKSTAT =0, INCREMENT NO. MARKS BY 1, DECREMENT QPRET BY 7
009790,000475: 
009791,000476:                                                                                                  #  ERASABLE INITIALIZATION-
009792,000477: 
009793,000478:                                                                                                  #        1)      FOR R21-
009794,000479:                                                                                                  #                BIT14 OF STATE+2 SET TO 1
009795,000480:                                                                                                  #        2)      FOR NORMAL MARKING-
009796,000481:                                                                                                  #                BIT14 OF STATE+2 SET TO 0, MARKSTAT,QPRET
009797,000482: 
009798,000483:                                                                                                  #  DEBRIS-
009799,000484: 
009800,000485:                                                                                                  #        1)      FOR R21-
009801,000486:                                                                                                  #                A,MARKSTAT,EBANK
009802,000487:                                                                                                  #        2)      FOR NORMAL MARKING-
009803,000488:                                                                                                  #                A,MARKSTAT,ITEMP1,QPRET
009804,000489: 
009805,000490: 07,2300           34675        MKREJECT           CAF      BIT14                                 
009806,000491: 07,2301           70076                           MASK     STATE      +2                         #  R21 MARK (SPECIAL MARKING FOR R21)
009807,000492: 07,2302           00006                           EXTEND                                         
009808,000493: 07,2303           12307                           BZF      MRKREJCT                              #  NOT SET THEREFORE REGULAR REJECT
009809,000494: 07,2304           37716                           CA       NEGONE                                #  -1 (FOR R22)
009810,000495: 07,2305           55725                           TS       MRKBUF1                               #  -0 IN TIME IS FLAG TO R22 SIGNIFYING A
009811,000496: 07,2306           05222                           TC       RESUME                                #  REJECTED MARK
009812,000497: 07,2307           11330        MRKREJCT           CCS      MARKSTAT                              #  SEE IF MARKS BEING ACCEPTED
009813,000498: 07,2310           02314                           TC       REJECT2                               
009814,000499: 07,2311           05537                           TC       ALARM                                 #  MARKS NOT BEING ACCEPTED
009815,000500: 07,2312           00112                           OCT      112                                   
009816,000501: 07,2313           05222                           TC       RESUME                                
009817,000502: 
009818,000503: 07,2314           44701        REJECT2            CS       BIT10                                 #  SEE IF MARK HAD BEEN MADE SINCE LAST
009819,000504: 07,2315           71330                           MASK     MARKSTAT                              #  REJECT, AND SET BIT10 TO ZERO TO
009820,000505: 07,2316           57330                           XCH      MARKSTAT                              #  SHOW MARK REJECT

Page 225

009822,000507: 07,2317           74701                           MASK     BIT10                                 
009823,000508: 07,2320           10000                           CCS      A                                     
009824,000509: 07,2321           02325                           TC       REJECT3                               
009825,000510: 
009826,000511: 07,2322           05537                           TC       ALARM                                 #  DONT ACCEPT TWO REJECTS TOGETHER
009827,000512: 07,2323           00110                           OCT      110                                   
009828,000513: 07,2324           05222                           TC       RESUME                                
009829,000514: 
009830,000515: 07,2325           34741        REJECT3            CAF      LOW9                                  #  DECREMENT POINTER TO REJECT MARK
009831,000516: 07,2326           71330                           MASK     MARKSTAT                              
009832,000517: 07,2327           54061                           TS       ITEMP1                                
009833,000518: 07,2330           44716                           CS       SEVEN                                 
009834,000519: 07,2331           50061                           INDEX    ITEMP1                                
009835,000520: 07,2332           26052                           ADS      QPRET                                 #  NEW POINTER
009836,000521: 
009837,000522: 07,2333           34677                           CAF      BIT12                                 #  INCREMENT MARKS WANTED AND IF FIELD
009838,000523: 07,2334           61330                           AD       MARKSTAT                              #  IS NOW NON-ZERO, CHANGE TO VB51 TO
009839,000524: 07,2335           57330                           XCH      MARKSTAT                              #  INDICATE MORE MARKS WANTED
009840,000525: 07,2336           77671                           MASK     PRIO34                                #  INDICATE MORE MARKS WANTED
009841,000526: 07,2337           10000                           CCS      A                                     
009842,000527: 07,2340           05222                           TC       RESUME                                
009843,000528: 07,2341           37667                           CAF      PRIO32                                
009844,000529: 07,2342           05027                           TC       NOVAC                                 
009845,000530: 07,2343     1330                                  EBANK=   MARKSTAT                              
009846,000531: 07,2343           02346 16062                     2CADR    MKVB51                                
009847,000532: 
009848,000533: 07,2345           05222                           TC       RESUME                                
009849,000534: 

Page 226

009851,000536:                                                                                                  #  PROGRAM DESCRIPTION MKVB51 AND MKVB50
009852,000537: 
009853,000538:                                                                                                  #  AUTHOR-       BARNERT         DATE-2-15-67            MOD-0
009854,000539:                                                                                                  #  PURPOSE       FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING,
009855,000540:                                                                                                  #                AND V50N25 R1=16 TO REQUEST TERMINATE MARKING
009856,000541: 
009857,000542:                                                                                                  #  CALLING SEQUENCE      AS JOB WITHIN SXTMARK
009858,000543: 
009859,000544:                                                                                                  #  EXIT TO ENDMARK UPON RECEIPT OF V33, V34 CAUSES GOTOPOOH, ENTER
009860,000545:                                                                                                  #        RECYCLES THE DISPLAY
009861,000546: 
009862,000547:                                                                                                  #  NOTE- SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN
009863,000548:                                                                                                  #        SUFFICIENT MARKS HAVE BEEN MADE, AND THE REVERSE WHEN A MARK
009864,000549:                                                                                                  #        REJECT REDUCES THE NUMBER MADE BELOW THAT REQUIRED
009865,000550: 
009866,000551:                                                                                                  #  SUBROUTINES CALLED-  BANKCALL, GOMARK2, GOODEND, ENDMARK, WAITLIST
009867,000552: 
009868,000553:                                                                                                  #  ALARM OR ABORT MODES -  NONE
009869,000554: 
009870,000555:                                                                                                  #  ERASABLE USED-VERBREG, MARKSTAT, QPRET, DSPTEM1
009871,000556: 
009872,000557:                                                                                                  #  OUTPUT MARKSTAT = VAC ADDRESS
009873,000558: 
009874,000559:                                                                                                  #  QPRET = NO. MARKS
009875,000560: 
009876,000561: 07,2346           04555        MKVB51             TC       BANKCALL                              #  CLEAR DISPLAY FOR MARK VERB
009877,000562: 07,2347           20464                           CADR     KLEENEX                               
009878,000563: 07,2350           32426                           CAF      VB51                                  #  DISPLAY MARK VB51
009879,000564: 07,2351           04555                           TC       BANKCALL                              
009880,000565: 07,2352           20476                           CADR     GOMARK4                               
009881,000566: 07,2353           12356                           TCF      TERMSXT                               #  VB34-TERMINATE
009882,000567: 07,2354           12367                           TCF      ENTANSWR                              #  V33-PROCEED-MARKING DONE
009883,000568: 07,2355           12415                           TCF      MKVB5X                                #  ENTER-RECYCLE TO INITIAL MARK DISPLAY
009884,000569: 
009885,000570: 07,2356           05425        TERMSXT            TC       CLEARMRK                              #  CLEAR MARK ACTIVITY.
009886,000571: 
009887,000572: 07,2357           05253                           TC       CHECKMM                               
009888,000573: 07,2360           00003                           MM       03         B-14                       
009889,000574: 07,2361           12363                           TCF      +2                                    
009890,000575: 07,2362           02365                           TC       TERMP03                               
009891,000576: 07,2363           04574                           TC       POSTJUMP                              
009892,000577: 07,2364           30176                           CADR     TERM52                                
009893,000578: 
009894,000579: 07,2365           05435        TERMP03            TC       UPFLAG                                
009895,000580: 07,2366           00032                           ADRES    TRM03FLG                              
009896,000581: 07,2367           34741        ENTANSWR           CAF      LOW9                                  #  PUT VAC ADR IN MARKSTAT AND NO. OF
009897,000582: 07,2370           71330                           MASK     MARKSTAT                              #  MARKS MADE IN QPRET BEFORE LEAVING
009898,000583: 07,2371           55330                           TS       MARKSTAT                              #  SXTMARK
009899,000584: 07,2372           40000                           COM                                            
009900,000585: 07,2373           51330                           INDEX    MARKSTAT                              
009901,000586: 07,2374           60052                           AD       QPRET                                 

Page 227

009903,000588: 07,2375           00006                           EXTEND                                         
009904,000589: 07,2376           62402                           BZMF     JAMIT                                 #  NO MARKS MADE, SHOW IT IN QPRET, R53
009905,000590: 07,2377           00006                           EXTEND                                         #        WILL PICK IT UP AND RECYCLE
009906,000591: 07,2400           74677                           MP       BIT12                                 #  THIS PUTS NUMBER MARKS-1 IN A
009907,000592: 07,2401           64712                           AD       ONE                                   
009908,000593: 07,2402           51330        JAMIT              INDEX    MARKSTAT                              #  STORE NO OF MARKS MADE
009909,000594: 07,2403           54052                           TS       QPRET                                 
009910,000595: 07,2404           00004                           INHINT                                         #  SERVICE OPTSTALL INTERFACE WITH
009911,000596: 07,2405           34715                           CAF      FIVE                                  
009912,000597: 07,2406           05140                           TC       WAITLIST                              
009913,000598: 07,2407     1330                                  EBANK=   MARKSTAT                              
009914,000599: 07,2407           02412 16062                     2CADR    ENDMARKS                              
009915,000600: 
009916,000601: 07,2411           05423                           TC       ENDMARK                               #  KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
009917,000602: 
009918,000603: 07,2412           34712        ENDMARKS           CAF      ONE                                   
009919,000604: 07,2413           04633                           TC       IBNKCALL                              
009920,000605: 07,2414           17467                           CADR     GOODEND                               
009921,000606: 07,2415           37671        MKVB5X             CAF      PRIO34                                
009922,000607: 07,2416           71330                           MASK     MARKSTAT                              #  RE-DISPLAY VB51 IF MORE MARKS WANTED
009923,000608: 07,2417           10000                           CCS      A                                     #  AND VB50 IF ALL IN
009924,000609: 07,2420           12346                           TCF      MKVB51                                
009925,000610: 07,2421           34333        MKVB50             CAF      R1D1                                  #  OCT 16
009926,000611: 07,2422           55045                           TS       DSPTEM1                               
009927,000612: 07,2423           32425                           CAF      V50N25                                
009928,000613: 07,2424           12351                           TCF      MKVB51     +3                         
009929,000614: 
009930,000615: 07,2425           14431        V50N25             VN       5025                                  
009931,000616: 07,2426           14600        VB51               VN       5100                                  
009932,000617: 07,2427     4362               OCT37              =        LOW5                                  
009933,000618: 
009934,000619:                                                                                                  #  PROGRAM NAME - MARKIT                         DATE- 19 SEPT 1967
009935,000620: 
009936,000621:                                                                                                  #  CALLING SEQUENCE
009937,000622: 
009938,000623:                                                                                                  #        FROM MARKRUPT IF CHAN 16 BIT 6 = 1
009939,000624: 
009940,000625:                                                                                                  #  EXIT
009941,000626: 
009942,000627:                                                                                                  #        RESUME
009943,000628: 
009944,000629:                                                                                                  #  INPUT
009945,000630: 
009946,000631:                                                                                                  #        CDUCHKWD.  ALSO ALL INITIALIZATION FOR MARKCONT
009947,000632: 
009948,000633:                                                                                                  #  OUTPUT
009949,000634: 
009950,000635:                                                                                                  #        MKT2T1,MKCDUX,MKCDUY,MKCDUZ,MKCDUS,MKCDUT
009951,000636: 
009952,000637:                                                                                                  #  ALARM EXIT
009953,000638: 
009954,000639:                                                                                                  #        NONE
009955,000640: 
009956,000641: 07,2427           11341        MARKIT             CCS      CDUCHKWD                              
009957,000642: 07,2430           12433                           TCF      +3                                    #  DELAY OF CDUCHKWD CS IF PNZ

Page 228

009959,000644: 07,2431           12433                           TCF      +2                                    
009960,000645: 07,2432           34714                           CAF      ZERO                                  
009961,000646: 07,2433           64712                           AD       ONE                                   #  10 MS IF NO CHECK
009962,000647: 07,2434           05140                           TC       WAITLIST                              
009963,000648: 07,2435  E7,1725                                  EBANK=   MRKBUF1                               
009964,000649: 07,2435           02203 20067                     2CADR    MARKDIF                               
009965,000650: 
009966,000651: 07,2437           15222                           TCF      RESUME                                
009967,000652: 
009968,000653: 10,2000                                           SETLOC   SXTMARK1                              
009969,000654: 10,2000                                           BANK                                           
009970,000655: 
009971,000656: 10,2203                                           COUNT    10/SXTMK                              
009972,000657: 
009973,000658:                                                                                                  #  PROGRAM NAME - MARKDIF                        DATE-  19 SEPT 1967
009974,000659: 
009975,000660:                                                                                                  #  CALLING SEQUENCE
009976,000661: 
009977,000662:                                                                                                  #        WAITLIST FROM MARKIT
009978,000663: 
009979,000664:                                                                                                  #  EXIT
009980,000665: 
009981,000666:                                                                                                  #        TASKOVER OT IBNKCALL TO MARKCONT
009982,000667: 
009983,000668:                                                                                                  #  INPUT
009984,000669: 
009985,000670:                                                                                                  #        OUTPUT FROM MARKIT, INPUT TO MARKCONT, CDUCHKWD
009986,000671: 
009987,000672:                                                                                                  #  OUTPUT
009988,000673: 
009989,000674:                                                                                                  #        RUPTSTOR - RUPTSTOR+3, RUPTREG3, RUPTSTOR+5 - RUPTSTOR+6
009990,000675: 
009991,000676:                                                                                                  #  ALARM EXIT
009992,000677: 
009993,000678:                                                                                                  #        ALARM AND TASKOVER
009994,000679: 
009995,000680: 10,2203           31341        MARKDIF            CA       CDUCHKWD                              #  IF DELAY CHECK IS ZERO OR NEG, ACP MARK
009996,000681: 10,2204           00006                           EXTEND                                         
009997,000682: 10,2205           62216                           BZMF     MKACPT                                
009998,000683: 10,2206           44712                           CS       BIT1                                  
009999,000684: 10,2207           54354                           TS       MKNDX                                 #  SET INDEX -1
010000,000685: 10,2210           30363                           CA       MKCDUX                                
010001,000686: 10,2211           02220                           TC       DIFCHK                                #  SEE IF VEHICLE RATE TO MUCH AT MARK
010002,000687: 10,2212           30357                           CA       MKCDUY                                
010003,000688: 10,2213           02220                           TC       DIFCHK                                
010004,000689: 10,2214           30361                           CA       MKCDUZ                                
010005,000690: 10,2215           02220                           TC       DIFCHK                                
010006,000691: 
010007,000692: 10,2216           04633        MKACPT             TC       IBNKCALL                              
010008,000693: 10,2217           16152                           CADR     MARKCONT                              #  MARK DATA OK, WHAT DO WE DO WITH IT
010009,000694: 
010010,000695: 10,2220           24354        DIFCHK             INCR     MKNDX                                 #  INCREMENT INDEX
010011,000696: 
010012,000697: 10,2221           00006                           EXTEND                                         
010013,000698: 10,2222           50354                           INDEX    MKNDX                                 

Page 229

010015,000700: 10,2223           20032                           MSU      CDUX                                  #  GET MARK(ICDU) - CURRENT(ICDU)
010016,000701: 10,2224           10000                           CCS      A                                     
010017,000702: 10,2225           12231                           TCF      +4                                    
010018,000703: 10,2226           00002                           TC       Q                                     
010019,000704: 10,2227           12231                           TCF      +2                                    
010020,000705: 10,2230           00002                           TC       Q                                     
010021,000706: 10,2231           67715                           AD       NEG2                                  #  SEE IF DIFFERENCE GREATER THAN 3 BITS
010022,000707: 10,2232           00006                           EXTEND                                         
010023,000708: 10,2233           62230                           BZMF     -3                                    #  NOT GREATER
010024,000709: 
010025,000710: 10,2234           05537                           TC       ALARM                                 #  COUPLED WITH PROGRAM ALARM
010026,000711: 10,2235           00121                           OCT      00121                                 
010027,000712: 
010028,000713: 10,2236           15213                           TCF      TASKOVER                              #  DO NOT ACCEPT
010029,000714: 

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