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