Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
010554,000002: ## Copyright: Public domain.
010555,000003: ## Filename: SXTMARK.agc
010556,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
010557,000005: ## build 072. This is for the Command Module's (CM)
010558,000006: ## Apollo Guidance Computer (AGC), for
010559,000007: ## Apollo 15-17.
010560,000008: ## Assembler: yaYUL
010561,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
010562,000010: ## Website: www.ibiblio.org/apollo/index.html
010563,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
010564,000012: ## Mod history: 2009-08-04 JL Adapted from corresponding Comanche 055 file.
010565,000013: ## 2010-01-31 JL Fixed build errors.
010566,000014: ## 2010-02-11 JL Fixed error on p242.
010567,000015: ## 2010-02-20 RSB Un-##'d this header.
010568,000016: ## 2010-12-29 JL Fixed indentation.
010569,000017: ## 2017-02-08 RSB Proofed comment text by diff'ing vs Comanche 55
010570,000018: ## and/or octopus/ProoferComments as most-appropriate.
010571,000019:
![]() |
Page 239 |
010573,000021:
010574,000022: # PROGRAM NAME - SXTMARK
010575,000023:
010576,000024: # MOD. 1 8 AUG. 69 BY P.RYE
010577,000025:
010578,000026: # FUNCTIONAL DESCRIPTION
010579,000027:
010580,000028: # SXTMARK IS CALLED BY P03 AND BY P22, P23, P51, AND P52 VIA R53.
010581,000029: # THE REGISTER MARKINDX IS SET TO 5 IF THE CALLING PROGRAM IS P22, OR TO 1 FOR OTHER USERS.
010582,000030: # THIS REGISTER INDICATES THE NUMBER OF MARKS DESIRED.
010583,000031: # THE REGISTER EXTVBACT IS CHECKED (SUBROUTINE TESTMARK) TO INSURE THAT THE MARK DISPLAY SYSTEM
010584,000032: # IS FREE. IF NOT, BAILOUT (31211) IS DONE.
010585,000033: # BIT 2 OF THE REGISTER EXTVBACT IS SET BY SXTMARK, RESERVING THE MARKING AND EXTENDED VERB SYSTEM.
010586,000034: # SXTMARK DISPLAYS A FLASHING VERB 51, CALLING FOR MARKS. A PROCEED RESPONSE TO THIS DISPLAY
010587,000035: # WILL RELEASE THE MARKING SYSTEM (SUBROUTINES MKRELEAS, CLEARMARK) AND RETURN TO THE
010588,000036: # CALLING PROGRAM.
010589,000037:
010590,000038: # WHEN SUFFICIENT MARKS HAVE BEEN MADE (MARKINDX = 0) A FLASHING V50N25, R1 = 16, IS DISPLAYED.
010591,000039: # A PROCEED RESPONSE TO THIS DISPLAY WILL RETURN TO THE CALLING PROGRAM AFTER RELEASING THE
010592,000040: # MARKING SYSTEM.
010593,000041:
010594,000042: # MARKS ARE PROCESSED BY THE ROUTINE MARKRUPT AS FOLLOWS:
010595,000043: # IF NO MARKS ARE CALLED FOR, ALARM CODE 114 IS SENT AND THE MARKRUPT ROUTINE EXITS.
010596,000044: # IF A MARK IS ACCEPTED, MARKFLG IS SET TO ENABLE A REJECT.
010597,000045: # IF R21(P20) IS RUNNING, DATA IS MOVED FROM STORAGE MRKBUF1 INTO MRKBUF2. NEW MARK DATA
010598,000046: # IS STORED INTO MRKBUF1.
010599,000047: # IF P22 IS RUNNING, MARK DATA IS STORED INTO SVMRKDAT, USING THE REGISTER P22DEX AS AN
010600,000048: # INDEX AND THE REGISTER 8NN AS A COUNTER. MARKINDX IS DECREMENTED.
010601,000049: # IF R57 IS RUNNING, MARK DATA IS STORED INTO MARKDOWN FOR DOWNLINK, THEN PROCESSED AS FOR
010602,000050: # R21. MARKRUPT THEN CALLS MARKDISP (IN R57).
010603,000051: # FOR OTHER USERS, MARK DATA IS STORED INTO MRKBUF1 AND MARKINDX IS DECREMENTED.
010604,000052:
010605,000053: # MARK REJECTS ARE PROCESSED BY THE ROUTINE MARKRUPT AS FOLLOWS:
010606,000054: # IF MARKFLG IS CLEAR (I.E., NO MARK WAS TAKEN), ALARM CODE 110 IS SENT AND THE ROUTINE EXITS.
010607,000055: # OTHERWISE, MARKINDX IS INCREMENTED, THE P22 INDICATORS 8NN AND P22DEX ARE DECREMENTED
010608,000056: # (IF THE USER IS P22), AND THE V51FL DISPLAY IN SXTMARK IS REESTABLISHED.
010609,000057:
010610,000058: # IF THE ERASABLE REGISTER CDUCHKWD IS SET TO A NON-ZERO VALUE, VALIDITY OF THE MARKS IS CHECKED
010611,000059: # BY THE MARKRUPT ROUTINE AS FOLLOWS:
010612,000060: # IF THE CDU'S CHANGE BY MORE THAN 3 BITS OVER THE TIME PERIOD INDICATED BY THE VALUE OF
010613,000061: # CDUCHKWD, ALARM CODE 121 IS SENT AND THE ROUTINE EXITS.
010614,000062:
010615,000063: # CALLING SEQUENCE -
010616,000064:
010617,000065: # TC BANKCALL
010618,000066: # CADR SXTMARK
010619,000067:
010620,000068:
![]() |
Page 240 |
010622,000070:
010623,000071: # NORMAL EXIT MODE -
010624,000072:
010625,000073: # RETURN TO USER VIA BANKJUMP (RETURN ADDRESS IN OPTCADR).
010626,000074:
010627,000075:
010628,000076: # ALARM OR ABORT EXIT MODES
010629,000077:
010630,000078: # 1. ALARM 110 - MARK REJECT WITH NO MARK
010631,000079: # 2. ALARM 113 - NO INBITS
010632,000080: # 3. ALARM 121 - CDU'S NO GOOD AT MARK TIME
010633,000081: # 4. ALARM 114 - MARK MADE BUT NOT DESIRED
010634,000082: # 5. BAILOUT 31211 - MARK DISPLAY SYSTEM BUSY
010635,000083:
010636,000084:
010637,000085: # ERASABLE INITIALIZATION REQUIRED -
010638,000086:
010639,000087: # NONE
010640,000088:
010641,000089:
010642,000090: # OUTPUT -
010643,000091:
010644,000092: # FOR P22:
010645,000093: # MARK DATA IN SVMRKDAT
010646,000094: # MARKINDX DECREMENTED BY ONE FOR EACH MARK TAKEN
010647,000095: # NO. OF MARKS IN 8NN
010648,000096: # FOR R57:
010649,000097: # MARK DATA IN MARKDOWN AND MRKBUF1
010650,000098: # FOR OTHER USERS:
010651,000099: # MARKINDX DECREMENTED TO ZERO IF A MARK WAS TAKEN
010652,000100: # MARK DATA IN MRKBUF1
010653,000101:
010654,000102:
010655,000103: # CONDITIONS AT EXIT -
010656,000104:
010657,000105: # MARKINDX = INITIAL VALUE - NO. MARKS TAKEN
010658,000106: # MARKING SYSTEM IS RELEASED :
010659,000107: # EXTVBACT = 0
010660,000108: # BIT 9 OPTMODES = 0
010661,000109: # OPTIND = -1
010662,000110: # BIT 2 CHAN12 = 0
010663,000111: # MARKFLG = 0
010664,000112: # OPTCADR CONTAINS CADR OF SXTMARK CALLER
010665,000113:
010666,000114:
![]() |
Page 241 |
010668,000116: 07,2000 SETLOC SXTMARKE
010669,000117: 07,2000 BANK
010670,000118:
010671,000119: 07,2000 E7,1722 EBANK= MRKBUF1
010672,000120: 07,2000 COUNT* $$/SXTMK
010673,000121: 07,2000 02062 SXTMARK TC TESTMARK
010674,000122: 07,2001 05354 TC CHECKMM # IS THIS P24
010675,000123: 07,2002 00030 MM 24 B-14
010676,000124: 07,2003 12005 TCF +2 # NO
010677,000125: 07,2004 12010 TCF SXTMRKA # YES
010678,000126: 07,2005 05354 TC CHECKMM
010679,000127: 07,2006 00026 MM 22 B-14
010680,000128: 07,2007 12015 TCF SETMRK
010681,000129: 07,2010 34772 SXTMRKA CAF ZERO # INITIALIZE MARK COUNTER
010682,000130: 07,2011 55747 TS 8NN
010683,000131:
010684,000132: 07,2012 55753 TS P22DEX
010685,000133: 07,2013 34773 CAF FIVE # 5 MARKS FOR P22, ONE FOR ALL OTHERS
010686,000134: 07,2014 12016 TCF SETMRK +1
010687,000135: 07,2015 34770 SETMRK CAF ONE
010688,000136: 07,2016 54301 TS MARKINDX
010689,000137:
010690,000138: 07,2017 04665 TC MAKECADR # STORE RETURN TO USER WHO CALLED
010691,000139: 07,2020 55336 TS OPTCADR # SXTMARK IN OPTCADR
010692,000140:
010693,000141: 07,2021 04636 MKVB51 TC BANKCALL # CLEAR DISPLAY FOR MARK VERB
010694,000142: 07,2022 20575 CADR KLEENEX
010695,000143: 07,2023 32061 MKVBDSP CAF VB51 # DISPLAY MARK VERB 51
010696,000144: 07,2024 04636 +1 TC BANKCALL
010697,000145: 07,2025 20604 CADR GOMARK4
010698,000146: 07,2026 12031 TCF TERMSXT # VB34-TERMINATE
010699,000147: 07,2027 12042 TCF ENTANSWR # V33-PROCEED-MARKING DONE
010700,000148: 07,2030 12052 TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY
010701,000149:
010702,000150: 07,2031 05527 TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
010703,000151:
010704,000152: 07,2032 02073 TC MKRLEES
010705,000153:
010706,000154: 07,2033 05354 TC CHECKMM
010707,000155: 07,2034 00003 MM 03 B-14
010708,000156: 07,2035 12037 TCF +2
010709,000157: 07,2036 02040 TC TERMP03
010710,000158: 07,2037 04103 TC GOTOPOOH
010711,000159:
010712,000160: 07,2040 04655 TERMP03 TC POSTJUMP
010713,000161: 07,2041 67370 CADR GCOMP5
010714,000162:
010715,000163: 07,2042 37645 ENTANSWR CAF PRIO24
010716,000164: 07,2043 05121 TC NOVAC
![]() |
Page 242 |
010718,000166: 07,2044 0003777 EBANK= WHOCARES
010719,000167: 07,2044 05524 04067 2CADR ENDEXT
010720,000168:
010721,000169: 07,2046 35052 CAF PRIO13 # ALLOW LEFTOVER SLEEPING JOB IF ANY
010722,000170: 07,2047 05176 TC PRIOCHNG
010723,000171:
010724,000172: 07,2050 31336 MKVRET CA OPTCADR # OPTCADR HAS RETURN CADR OF USER WHO
010725,000173: 07,2051 04660 TC BANKJUMP # CALLED SXTMARK
010726,000174:
010727,000175: 07,2052 10301 MKVB5X CCS MARKINDX # REDISPLAY VB51 IF MORE MARKS WANTED
010728,000176: 07,2053 12021 TCF MKVB51
010729,000177: 07,2054 34321 MKVB50 CAF R1D1 # OCT 16
010730,000178: 07,2055 55250 TS DSPTEM1
010731,000179: 07,2056 32060 CAF V50N25 # DISPLAY V50N25 IF MARKING DONE.
010732,000180: 07,2057 12024 TCF MKVBDSP +1
010733,000181: 07,2060 14431 V50N25 VN 5025
010734,000182: 07,2061 14600 VB51 VN 5100
010735,000183:
010736,000184: 07,2062 36211 TESTMARK CAF SIX
010737,000185: 07,2063 71247 MASK EXTVBACT
010738,000186: 07,2064 10000 CCS A
010739,000187: 07,2065 12071 TCF MKABORT
010740,000188: 07,2066 34767 CAF BIT2
010741,000189: 07,2067 27247 ADS EXTVBACT
010742,000190: 07,2070 00002 TC Q
010743,000191:
010744,000192: 07,2071 07706 MKABORT TC BAILOUT
010745,000193: 07,2072 31211 OCT 31211
010746,000194:
010747,000195: 07,2073 07,2073 MKRELEAS EQUALS MKRLEES
010748,000196:
010749,000197: 07,2073 00004 MKRLEES INHINT
010750,000198: 07,2074 37702 CA NEGONE
010751,000199: 07,2075 55323 TS OPTIND # KILL COARS OPTICS
010752,000200:
010753,000201: 07,2076 34772 CAF ZERO
010754,000202: 07,2077 54301 TS MARKINDX
010755,000203:
010756,000204: 07,2100 44765 CS MARKBIT
010757,000205: 07,2101 70075 MASK FLAGWRD1
010758,000206: 07,2102 54075 TS FLAGWRD1
010759,000207:
010760,000208: 07,2103 00003 RELINT
010761,000209:
010762,000210: 07,2104 00002 TC Q
010763,000211:
![]() |
Page 243 |
010765,000213:
010766,000214: 07,2105 54016 MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW
010767,000215: 07,2106 30035 CA CDUT
010768,000216: 07,2107 54361 TS MKCDUT
010769,000217: 07,2110 30036 CA CDUS
010770,000218: 07,2111 54357 TS MKCDUS
010771,000219: 07,2112 30033 CA CDUY
010772,000220: 07,2113 54356 TS MKCDUY
010773,000221: 07,2114 30034 CA CDUZ
010774,000222: 07,2115 54360 TS MKCDUZ
010775,000223: 07,2116 30032 CA CDUX
010776,000224: 07,2117 54362 TS MKCDUX
010777,000225: 07,2120 00006 EXTEND
010778,000226: 07,2121 30025 DCA TIME2 # GET TIME
010779,000227: 07,2122 52355 DXCH MKT2T1
010780,000228: 07,2123 00006 EXTEND
010781,000229: 07,2124 30355 DCA MKT2T1
010782,000230: 07,2125 52014 DXCH SAMPTIME # RUPT TIME FOR NOUN 65.
010783,000231:
010784,000232: 07,2126 56002 XCH Q
010785,000233: 07,2127 54012 TS QRUPT
010786,000234:
010787,000235: 07,2130 34763 CAF BIT6 # SEE IF MARK OR MKREJECT
010788,000236: 07,2131 00006 EXTEND
010789,000237: 07,2132 02016 RAND NAVKEYIN
010790,000238: 07,2133 10000 CCS A
010791,000239: 07,2134 02154 TC MARKIT # ITS A MARK
010792,000240:
010793,000241: 07,2135 34762 CAF BIT7 # NOT A MARK, SEE IF MKREJECT
010794,000242: 07,2136 00006 EXTEND
010795,000243: 07,2137 02016 RAND NAVKEYIN
010796,000244: 07,2140 10000 CCS A
010797,000245: 07,2141 02344 TC MKREJECT # ITS A MARK REJECT
010798,000246:
010799,000247: 07,2142 34342 KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
010800,000248: 07,2143 00006 EXTEND
010801,000249: 07,2144 02016 RAND NAVKEYIN
010802,000250: 07,2145 00006 EXTEND
010803,000251: 07,2146 12151 BZF +3 # IF NO INBITS
010804,000252: 07,2147 04655 TC POSTJUMP
010805,000253: 07,2150 17675 CADR KEYCOM # IT,S A KEY CODE, NOT A MARK.
010806,000254:
010807,000255: 07,2151 05671 +3 TC ALARM # ALARM IF NO INBITS
010808,000256: 07,2152 00113 OCT 113
010809,000257: 07,2153 05323 TC RESUME
010810,000258:
![]() |
Page 244 |
010812,000260:
010813,000261: # PROGRAM NAME - MARKIT DATE- 19 SEPT 1967
010814,000262:
010815,000263: # CALLING SEQUENCE
010816,000264: # FROM MARKRUPT IF CHAN 16 BIT 6 = 1
010817,000265:
010818,000266: # EXIT
010819,000267: # RESUME
010820,000268:
010821,000269: # INPUT
010822,000270: # CDUCHKWD. ALSO ALL INITIALIZATION FOR MARKCONT
010823,000271:
010824,000272: # OUTPUT
010825,000273: # MKT2T1,MKCDUX,MKCDUY,MKCDUZ,MKCDUS,MKCDUT
010826,000274:
010827,000275: # ALARM EXIT
010828,000276: # NONE
010829,000277:
010830,000278: 07,2154 11341 MARKIT CCS CDUCHKWD
010831,000279: 07,2155 12160 TCF +3 # DELAY OF CDUCHKWD CS IF PNZ
010832,000280: 07,2156 12160 TCF +2
010833,000281: 07,2157 34772 CAF ZERO
010834,000282: 07,2160 64770 AD ONE # 10 MS IF NO CHECK
010835,000283: 07,2161 05233 TC WAITLIST
010836,000284: 07,2162 E7,1722 EBANK= MRKBUF1
010837,000285: 07,2162 02165 16067 2CADR MARKDIF
010838,000286:
010839,000287: 07,2164 15323 TCF RESUME
010840,000288:
010841,000289: 07,2165 34753 MARKDIF CAF P24BIT # IS THIS P24
010842,000290: 07,2166 70105 MASK FLAGWRD9
010843,000291: 07,2167 10000 CCS A
010844,000292: 07,2170 12204 TCF MARKCONT # YES ACCEPT MARK
010845,000293: 07,2171 31341 CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG, ACP MARK
010846,000294: 07,2172 00006 EXTEND
010847,000295: 07,2173 62204 BZMF MARKCONT
010848,000296: 07,2174 44770 CS BIT1
010849,000297: 07,2175 54353 TS MKNDX # SET INDEX -1
010850,000298: 07,2176 30362 CA MKCDUX
010851,000299: 07,2177 02325 TC DIFCHK # SEE IF VEHICLE RATE TO MUCH AT MARK
010852,000300: 07,2200 30356 CA MKCDUY
010853,000301: 07,2201 02325 TC DIFCHK
010854,000302: 07,2202 30360 CA MKCDUZ
010855,000303: 07,2203 02325 TC DIFCHK
010856,000304:
010857,000305: 07,2204 34753 MARKCONT CAF R21BIT # R21 MARKING
010858,000306: 07,2205 70076 MASK FLAGWRD2
010859,000307: 07,2206 10000 CCS A
010860,000308: 07,2207 12314 TCF PUTMARK # YES
010861,000309:
010862,000310: 07,2210 34755 CAF V59FLBIT
![]() |
Page 245 |
010864,000312: 07,2211 70101 MASK FLAGWRD5 # V59FLAG
010865,000313: 07,2212 10000 CCS A
010866,000314: 07,2213 12304 TCF DOWNMRK
010867,000315:
010868,000316: 07,2214 10301 CCS MARKINDX # MARKS CALLED FOR
010869,000317: 07,2215 12221 TCF MARK2 # YES
010870,000318:
010871,000319: 07,2216 05671 114ALM TC ALARM
010872,000320: 07,2217 00114 OCT 114 # MARKS NOT CALLED FOR
010873,000321: 07,2220 05314 TC TASKOVER
010874,000322:
010875,000323: 07,2221 54301 MARK2 TS MARKINDX # DECREMENT NO. MARKS WANTED
010876,000324:
010877,000325: 07,2222 05547 TC UPFLAG
010878,000326: 07,2223 00032 ADRES MARKFLG # SET FLAG TO ENABLE REJECT
010879,000327:
010880,000328: 07,2224 05354 TC CHECKMM # IS THIS P24
010881,000329: 07,2225 00030 MM 24 B-14
010882,000330: 07,2226 12235 TCF MRKCHK22 # NO
010883,000331: 07,2227 24301 INCR MARKINDX # RESTORE THIS REGISTER
010884,000332: 07,2230 05547 TC UPFLAG
010885,000333: 07,2231 00061 ADRES P22MKFLG # DOWNLINK CONTAINS P24 MARKS
010886,000334: 07,2232 05547 TC UPFLAG
010887,000335: 07,2233 00052 ADRES P24MKFLG # NEW P24MARK TAKEN
010888,000336: 07,2234 12240 TCF VACSTOR -1
010889,000337: 07,2235 05354 MRKCHK22 TC CHECKMM
010890,000338: 07,2236 00026 MM 22 B-14
010891,000339: 07,2237 12314 TCF PUTMARK
010892,000340: 07,2240 25747 -1 INCR 8NN # NO, MARKS TAKEN.
010893,000341: 07,2241 00006 VACSTOR EXTEND
010894,000342: 07,2242 30355 DCA MKT2T1
010895,000343: 07,2243 51753 INDEX P22DEX
010896,000344: 07,2244 53540 DXCH SVMRKDAT
010897,000345: 07,2245 00006 EXTEND
010898,000346: 07,2246 30357 DCA MKCDUY
010899,000347: 07,2247 51753 INDEX P22DEX
010900,000348: 07,2250 53542 DXCH SVMRKDAT +2
010901,000349: 07,2251 00006 EXTEND
010902,000350: 07,2252 30361 DCA MKCDUZ
010903,000351: 07,2253 51753 INDEX P22DEX
010904,000352: 07,2254 53544 DXCH SVMRKDAT +4
010905,000353: 07,2255 30362 CA MKCDUX
010906,000354: 07,2256 51753 INDEX P22DEX
010907,000355: 07,2257 55545 TS SVMRKDAT +6
010908,000356:
010909,000357: 07,2260 05354 TC CHECKMM # IS THIS P24
010910,000358: 07,2261 00030 MM 24 B-14
010911,000359: 07,2262 12273 TCF INDINC # NO
010912,000360: 07,2263 44172 CS OCT34 # YES DEC 28
010913,000361: 07,2264 61753 AD P22DEX
![]() |
Page 246 |
010915,000363: 07,2265 00006 EXTEND # ARE THERE ANY MORE LOC LEFT IN MARK
010916,000364: 07,2266 12270 BZF +2 # DOWNLINK BUFFER
010917,000365: 07,2267 12273 TCF INDINC # YES
010918,000366: 07,2270 34772 CA ZERO # REINITIALIZE INDEX FOR
010919,000367: 07,2271 55753 TS P22DEX # BEGINNING OF BUFFER
010920,000368: 07,2272 12275 TCF MARKDONE
010921,000369: 07,2273 34774 INDINC CAF SEVEN
010922,000370: 07,2274 27753 ADS P22DEX
010923,000371: 07,2275 10301 MARKDONE CCS MARKINDX # ANY MORE MARKS TO BE TAKEN
010924,000372: 07,2276 15314 TCF TASKOVER
010925,000373: 07,2277 37644 CAF PRIO22
010926,000374: 07,2300 05135 TC FINDVAC
010927,000375: 07,2301 E7,1722 EBANK= MRKBUF1
010928,000376: 07,2301 02052 16067 2CADR MKVB5X
010929,000377:
010930,000378: 07,2303 15314 TCF TASKOVER
010931,000379:
010932,000380: 07,2304 36211 DOWNMRK CAF SIX # FOR CALIBRATION MARK
010933,000381: 07,2305 05607 TC GENTRAN
010934,000382: 07,2306 00354 ADRES MKT2T1
010935,000383: 07,2307 01674 ADRES MARKDOWN
010936,000384:
010937,000385: 07,2310 35047 CAF PRIO5
010938,000386: 07,2311 05121 TC NOVAC
010939,000387: 07,2312 E7,1722 EBANK= MRKBUF1
010940,000388: 07,2312 02230 76067 2CADR MARKDISP
010941,000389:
010942,000390: 07,2314 36211 PUTMARK CAF SIX
010943,000391: 07,2315 05607 TC GENTRAN
010944,000392: 07,2316 00354 ADRES MKT2T1
010945,000393: 07,2317 01722 ADRES MRKBUF1
010946,000394:
010947,000395: 07,2320 34753 CAF R21BIT # DONT CALL VB50 DISPLAY FOR R21
010948,000396: 07,2321 70076 MASK FLAGWRD2
010949,000397: 07,2322 10000 CCS A
010950,000398: 07,2323 15314 TCF TASKOVER
010951,000399:
010952,000400: 07,2324 12275 TCF MARKDONE
010953,000401:
010954,000402: 07,2325 24353 DIFCHK INCR MKNDX # INCREMENT INDEX
010955,000403:
010956,000404: 07,2326 00006 EXTEND
010957,000405: 07,2327 50353 INDEX MKNDX
010958,000406: 07,2330 20032 MSU CDUX # GET MARK(ICDU) - CURRENT(ICDU)
010959,000407: 07,2331 10000 CCS A
010960,000408: 07,2332 12336 TCF +4
010961,000409: 07,2333 00002 TC Q
010962,000410: 07,2334 12336 TCF +2
010963,000411: 07,2335 00002 TC Q
![]() |
Page 247 |
010965,000413: 07,2336 67701 AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS
010966,000414: 07,2337 00006 EXTEND
010967,000415: 07,2340 62335 BZMF -3 # NOT GREATER
010968,000416:
010969,000417: 07,2341 05671 TC ALARM # COUPLED WITH PROGRAM ALARM
010970,000418: 07,2342 00121 OCT 00121
010971,000419:
010972,000420: 07,2343 15314 TCF TASKOVER # DO NOT ACCEPT
010973,000421:
010974,000422: 07,2344 34753 MKREJECT CAF R21BIT
010975,000423: 07,2345 70076 MASK FLAGWRD2 # R21 MARK (SPECIAL MARKING FOR R21)
010976,000424: 07,2346 00006 EXTEND
010977,000425: 07,2347 12367 BZF MRKREJCT # NOT SET THEREFORE REGULAR REJECT
010978,000426: 07,2350 31722 CA MRKBUF1 # IS THERE A MARK IN THE BUFFER?
010979,000427: 07,2351 00006 EXTEND
010980,000428: 07,2352 12355 BZF +3 # YES - REJECT MARK IN BUFFER
010981,000429:
010982,000430: 07,2353 00006 EXTEND
010983,000431: 07,2354 62360 BZMF REJCTR22 # NO,SET FLAG TO REJECT MARK PROCESSED-R22
010984,000432:
010985,000433: 07,2355 37702 CA NEGONE # -1 (FOR R22)
010986,000434: 07,2356 55722 TS MRKBUF1 # -0 IN TIME IS FLAG TO R22 SIGNIFYING A
010987,000435: 07,2357 05323 TC RESUME
010988,000436:
010989,000437: 07,2360 34762 REJCTR22 CAF R22CABIT # IS R22 PROCESSING A MARK?
010990,000438: 07,2361 70105 MASK FLAGWRD9
010991,000439: 07,2362 00006 EXTEND
010992,000440: 07,2363 15323 BZF RESUME # NO IGNORE MARK REJECT
010993,000441:
010994,000442: 07,2364 05547 TC UPFLAG
010995,000443: 07,2365 00231 ADRES REJCTFLG # YES - SET FLAG FOR R22
010996,000444: 07,2366 05323 TC RESUME
010997,000445:
010998,000446: 07,2367 34765 MRKREJCT CAF MARKBIT
010999,000447: 07,2370 70075 MASK FLAGWRD1
011000,000448: 07,2371 10000 CCS A
011001,000449: 07,2372 02376 TC REJECT3
011002,000450:
011003,000451: 07,2373 05671 TC ALARM # DONT ACCEPT TWO REJECTS TOGETHER
011004,000452: 07,2374 00110 OCT 110
011005,000453: 07,2375 05323 TC RESUME
011006,000454:
011007,000455: 07,2376 05561 REJECT3 TC DOWNFLAG
011008,000456: 07,2377 00032 ADRES MARKFLG
011009,000457:
011010,000458: 07,2400 05354 TC CHECKMM # IS THIS P24
011011,000459: 07,2401 00030 MM 24 B-14
011012,000460: 07,2402 12422 TCF REJECT4 # NO
011013,000461: 07,2403 05561 TC DOWNFLAG # YES
011014,000462: 07,2404 00052 ADRES P24MKFLG
![]() |
Page 248 |
011016,000464: 07,2405 11753 CCS P22DEX # IS MARK TO BE REJ, THE LAST MARK IN BUF
011017,000465: 07,2406 12411 TCF +3 # NO
011018,000466: 07,2407 34172 CA OCT34 # YES
011019,000467: 07,2410 12413 TCF +3
011020,000468: 07,2411 44774 CS SEVEN
011021,000469: 07,2412 61753 AD P22DEX
011022,000470: 07,2413 54070 REJECT5 TS RUPTREG1
011023,000471: 07,2414 00006 EXTEND
011024,000472: 07,2415 50070 INDEX RUPTREG1
011025,000473: 07,2416 41540 DCS SVMRKDAT
011026,000474: 07,2417 50070 INDEX RUPTREG1
011027,000475: 07,2420 53540 DXCH SVMRKDAT
011028,000476: 07,2421 12433 TCF REJEXIT
011029,000477: 07,2422 24301 REJECT4 INCR MARKINDX # CALL FOR ANOTHER MARK
011030,000478: 07,2423 05354 TC CHECKMM
011031,000479: 07,2424 00026 MM 22 B-14
011032,000480: 07,2425 12433 TCF REJEXIT
011033,000481:
011034,000482: 07,2426 44770 CS ONE # FOR P22
011035,000483: 07,2427 27747 ADS 8NN
011036,000484: 07,2430 44774 CS SEVEN
011037,000485: 07,2431 27753 ADS P22DEX # DECREMENT P22 INDEX
011038,000486:
011039,000487: 07,2432 12413 TCF REJECT5
011040,000488:
011041,000489: 07,2433 37644 REJEXIT CAF PRIO22
011042,000490: 07,2434 05135 TC FINDVAC
011043,000491: 07,2435 E7,1722 EBANK= MRKBUF1
011044,000492: 07,2435 02023 16067 2CADR MKVBDSP
011045,000493:
011046,000494: 07,2437 15323 TCF RESUME
End of include-file SXTMARK.agc. Parent file is MAIN.agc