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