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