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