Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
009708,000002: ## Copyright: Public domain.
009709,000003: ## Filename: AGC_SELF-CHECK.agc
009710,000004: ## Purpose: A section of Corona revision 261.
009711,000005: ## It is part of the source code for the Apollo Guidance Computer
009712,000006: ## (AGC) for AS-202. No original listings of this software are
009713,000007: ## available; instead, this file was created via disassembly of
009714,000008: ## the core rope modules actually flown on the mission.
009715,000009: ## Assembler: yaYUL
009716,000010: ## Contact: Ron Burkey <info@sandroid.org>.
009717,000011: ## Website: www.ibiblio.org/apollo/index.html
009718,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
009719,000013: ## 2023-06-17 MAS Updated for Corona.
009720,000014:
009721,000015:
009722,000016: 11,6000 SETLOC 22000
009723,000017:
009724,000018: # NEXT THREE CONSTANTS ARE USED IN RUPTCHK SUBROUTINE
009725,000019: 11,6000 37767 OVCON OCTAL 37767
009726,000020: 11,6001 00320 TM1WAIT OCTAL 00320
009727,000021: 11,6002 06401 ZRUPTCON ADRES TSKADRS # MUST BE ADDRESS OF TSKADRS
009728,000022:
009729,000023: # NEXT SIX CONSTANTS ARE USED IN ERASCHK, CNTRCHK, AND CYCLSHF SUBROUTINES
009730,000024: 11,6003 4512 CONCNTR1 EQUALS BIT5 # 00020
009731,000025: 11,6003 00060 CONERAS1 OCTAL 00060
009732,000026: 11,6004 01774 CONERAS2 OCTAL 01774
009733,000027: 11,6005 25252 CONC+S1 OCTAL 25252
009734,000028: 11,6006 4664 CONC+S2 EQUALS CSQ # 40001
009735,000029:
009736,000030: # NEXT 3 CONSTANTS ARE USED IN SHOWSUM ROUTINE
009737,000031: 11,6006 01771 SUMADRS ADRES SKEEP1 # SKEEP1 HOLDS SUM OF BANK
009738,000032: 11,6007 00501 VNCON OCTAL 00501 # DISPLAY CONTENTS OF THREE ADDRESSES
009739,000033: 11,6010 23024 SCADR CADR SDISPLAY
009740,000034: # THE FOLLOWING CONSTANTS ARE USED THROUGHOUT SELF-CHECK
009741,000035: 11,6011 5501 SCON0 EQUALS ZERO # +0
009742,000036: 11,6011 4516 SCON1 EQUALS BIT1 # +1
009743,000037: 11,6011 4515 SCON2 EQUALS BIT2 # +2
009744,000038: 11,6011 4514 SCON4 EQUALS BIT3 # +4
009745,000039: 11,6011 4510 SCON64 EQUALS BIT7 # 00100
009746,000040: 11,6011 4502 SCON1/4 EQUALS BIT13 # 10000
009747,000041: 11,6011 4501 SCON1/2 EQUALS BIT14 # 20000
009748,000042: 11,6011 4476 SCON+MAX EQUALS POSMAX # 37777
009749,000043: 11,6011 4340 SCON-2 EQUALS MINUS2 # 77775
009750,000044: 11,6011 4335 SCON-1 EQUALS MINUS1 # 77776
009751,000045: 11,6011 5504 SCONMAX EQUALS NEG0 # 77777
009752,000046:
009753,000047: 11,6011 30115 -2 XCH QADRS # ENTRY HERE FROM -ZEROCHK AND -ONECHK
009754,000048: 11,6012 06014 TC +2
009755,000049:
009756,000050: 11,6013 30001 ERRORS XCH Q # FAILURE DETECTED - ALARM.
009757,000051: 11,6014 51764 TS SFAIL # SAVE CALLING Q FOR POSSIBLE FAILURE LOC.
009758,000052: 11,6015 03015 TC ALARM
009759,000053: 11,6016 01102 OCT 01102
009760,000054: 11,6017 31765 XCH ERCOUNT # ADD +1 TO ERCOUNT REGISTER EVERY TIME
009761,000055: 11,6020 64516 AD SCON1 # THERE IS AN ERROR IN SELF-CHECK
009762,000056: 11,6021 31765 XCH ERCOUNT
009763,000057: 11,6022 03002 TC SMODECHK # START SELF-CHECK AGAIN
009764,000058:
009765,000059: 11,6023 30001 -ZEROCHK XCH Q
009766,000060: 11,6024 50115 TS QADRS # HOLDS ADDRESS THAT WAS IN Q REGISTER
009767,000061: 11,6025 30001 XCH Q
009768,000062: 11,6026 10000 CCS A
009769,000063: 11,6027 06011 TC ERRORS -2
009770,000064: 11,6030 06011 TC ERRORS -2
009771,000065: 11,6031 06011 TC ERRORS -2
009772,000066: 11,6032 00001 TC Q
009773,000067:
009774,000068:
009775,000069:
009776,000070: 11,6033 40000 CS A
009777,000071: 11,6034 30001 -ONECHK XCH Q
009778,000072: 11,6035 50115 TS QADRS # HOLDS ADDRESS THAT WAS IN Q REGISTER
009779,000073: 11,6036 30001 XCH Q
009780,000074: 11,6037 10000 CCS A
009781,000075: 11,6040 06011 TC ERRORS -2
009782,000076: 11,6041 06011 TC ERRORS -2
009783,000077: 11,6042 10000 CCS A
009784,000078: 11,6043 06011 TC ERRORS -2
009785,000079: 11,6044 00001 TC Q
009786,000080:
009787,000081:
009788,000082: # CHECKS MOST CCS PULSES
009789,000083: 11,6045 20016 CCSCHK RELINT # COMES HERE FROM INHIBIT LOOP AT SMODECHK
009790,000084: 11,6046 44515 CS SCON2 # -2
009791,000085: 11,6047 10000 CCS A # C(A) = -2
009792,000086: 11,6050 06013 TC ERRORS
009793,000087: 11,6051 06013 TC ERRORS
009794,000088: 11,6052 06054 TC +2
009795,000089: 11,6053 06013 TC ERRORS
009796,000090: 11,6054 10000 CCS A # C(A) = +1, RESULT OF CCS -NUMBER
009797,000091: 11,6055 06061 TC +4
009798,000092: 11,6056 06013 TC ERRORS
009799,000093: 11,6057 06013 TC ERRORS
009800,000094: 11,6060 06013 TC ERRORS
009801,000095: 11,6061 10000 CCS A # C(A) = +0, RESULT OF CCS + NUMBER
009802,000096: 11,6062 06013 TC ERRORS
009803,000097: 11,6063 06066 TC +3
009804,000098: 11,6064 06013 TC ERRORS
009805,000099: 11,6065 06013 TC ERRORS
009806,000100: 11,6066 40000 CS A
009807,000101: 11,6067 10000 CCS A # C(A) = -0, RESULT OF CCS +0
009808,000102: 11,6070 06013 TC ERRORS
009809,000103: 11,6071 06013 TC ERRORS
009810,000104: 11,6072 06013 TC ERRORS
009811,000105: 11,6073 10000 CCS A # RESULT OF CCS -0
009812,000106: 11,6074 06013 TC ERRORS
009813,000107: 11,6075 06100 TC +3
009814,000108: 11,6076 06013 TC ERRORS
009815,000109: 11,6077 06013 TC ERRORS
009816,000110: # SPECIFICALLY CHECKS RSC PULSE OF TC INSTRUCTION (ALSO MOST OF TC
009817,000111: # PULSES)
009818,000112: 11,6100 06102 TC +2
009819,000113: 11,6101 06103 TC +2 # NEXT SUBROUTINE
009820,000114: 11,6102 00001 TC Q
009821,000115:
009822,000116: # CHECKS WP, GP, TP - WP2, RP2 - RG, WP, OF CCS1
009823,000117: # CHECKS RB, WG PULSES (READ BACK INTO ERASABLE)
009824,000118: 11,6103 35777 PTY+ERAS CAF 5777 # 47777
009825,000119: 11,6104 51771 TS SKEEP1
009826,000120: 11,6105 71771 MASK SKEEP1
009827,000121: 11,6106 31771 XCH SKEEP1
009828,000122: 11,6107 61771 AD SKEEP1
009829,000123: 11,6110 25777 INDEX 5777
009830,000124: 11,6111 41771 4 SKEEP1 # MP SKEEP1
009831,000125: 11,6112 25777 INDEX 5777
009832,000126: 11,6113 51771 5 SKEEP1 # DV SKEEP1
009833,000127: 11,6114 41771 CS SKEEP1
009834,000128: 11,6115 51772 TS SKEEP2 # 30000
009835,000129: 11,6116 21771 INDEX SKEEP1 # TROUBLE IF C(SKEEP1) NOT 47777
009836,000130: 11,6117 61772 6 SKEEP2 # SU SKEEP2, C(A) = -0
009837,000131: 11,6120 51772 TS SKEEP2 # -0
009838,000132: 11,6121 11772 CCS SKEEP2
009839,000133: 11,6122 06013 TC ERRORS
009840,000134: 11,6123 06013 TC ERRORS
009841,000135: 11,6124 06013 TC ERRORS
009842,000136: 11,6125 11772 CCS SKEEP2
009843,000137: 11,6126 06013 TC ERRORS
009844,000138: 11,6127 06013 TC ERRORS
009845,000139: 11,6130 06013 TC ERRORS
009846,000140: # START ERASABLE INSTRUCTION CHECK
009847,000141: 11,6131 36147 CAF EINST1
009848,000142: 11,6132 51771 TS SKEEP1
009849,000143: 11,6133 36150 CAF EINST2
009850,000144: 11,6134 51772 TS SKEEP2
009851,000145: 11,6135 36151 CAF EINST3
009852,000146: 11,6136 51773 TS SKEEP3
009853,000147: 11,6137 36152 CAF EINST4
009854,000148: 11,6140 51774 TS SKEEP4
009855,000149: 11,6141 36153 CAF EINST5
009856,000150: 11,6142 51775 TS SKEEP5
009857,000151: 11,6143 36154 CAF EINST6
009858,000152: 11,6144 51776 TS SKEEP6
009859,000153: 11,6145 34501 CAF SCON1/2
009860,000154: 11,6146 01771 TC SKEEP1
009861,000155: 11,6147 25777 EINST1 INDEX 5777
009862,000156: 11,6150 44515 EINST2 4 SCON2 # MP, C(A) = +1, THEN +0
009863,000157: 11,6151 60000 EINST3 AD A # CHECKS ST2 PARITY
009864,000158: 11,6152 10000 EINST4 CCS A
009865,000159: 11,6153 01771 EINST5 TC SKEEP1
009866,000160: 11,6154 06155 EINST6 TC +1 # NEXT SUBROUTINE
009867,000161:
009868,000162:
009869,000163:
009870,000164: # CHECKS RSC, WSC PULSES
009871,000165: # NO WSC PULSE IN MASK INSTRUCTION
009872,000166: 11,6155 34510 SCCHK CAF SCON64 # 00100
009873,000167: 11,6156 30003 XCH LP # 00040
009874,000168: 11,6157 30003 XCH LP
009875,000169: 11,6160 50003 TS LP # 00020
009876,000170: 11,6161 60003 AD LP # 00010
009877,000171: 11,6162 20003 INDEX LP # 00004
009878,000172: 11,6163 25767 2 5767 # INDEX 5777
009879,000173: 11,6164 60003 6 0003 # SU LP, 00002
009880,000174: # NEXT 4 INSTRUCTIONS CHECK RSC PULSE IN MASK INSTRUCTION
009881,000175: 11,6165 40003 CS LP # C(A) = -2, C(LP) = +1
009882,000176: 11,6166 70003 MASK LP # C(A) = +1, C(LP) = +1
009883,000177: 11,6167 40000 CS A
009884,000178: 11,6170 06034 TC -ONECHK
009885,000179: 11,6171 10003 CCS LP
009886,000180: 11,6172 06176 TC +4
009887,000181: 11,6173 06013 TC ERRORS
009888,000182: 11,6174 06013 TC ERRORS
009889,000183: 11,6175 06013 TC ERRORS
009890,000184: 11,6176 10003 CCS LP
009891,000185: 11,6177 06013 TC ERRORS
009892,000186: 11,6200 06013 TC ERRORS
009893,000187: 11,6201 06203 TC +2
009894,000188: 11,6202 06013 TC ERRORS
009895,000189: 11,6203 10003 CCS LP
009896,000190: 11,6204 06013 TC ERRORS
009897,000191: 11,6205 06210 TC +3 # NEXT SUBROUTINE
009898,000192: 11,6206 06013 TC ERRORS
009899,000193: 11,6207 06013 TC ERRORS
009900,000194: # CHECKS MOST OF MP PULSES
009901,000195: 11,6210 34514 MPCHK CAF SCON4
009902,000196: 11,6211 50003 TS LP
009903,000197: 11,6212 34476 MP++ CAF SCON+MAX
009904,000198: 11,6213 25777 INDEX 5777
009905,000199: 11,6214 40003 4 LP # C(A) = +1, CHECKS RSC PULSE
009906,000200: 11,6215 60003 AD LP # C(LP) = +37776
009907,000201: 11,6216 51771 TS SKEEP1 # 37777
009908,000202: 11,6217 34476 MP+- CAF SCON+MAX
009909,000203: 11,6220 25777 INDEX 5777
009910,000204: 11,6221 44340 4 SCON-2
009911,000205: 11,6222 60003 AD LP # C(LP) = -37776
009912,000206: 11,6223 61771 AD SKEEP1
009913,000207: 11,6224 06023 TC -ZEROCHK
009914,000208: 11,6225 44476 MP-- CS SCON+MAX
009915,000209: 11,6226 25777 INDEX 5777
009916,000210: 11,6227 44340 4 SCON-2 # C(A) = +1
009917,000211: 11,6230 60003 AD LP # C(LP) = +37776
009918,000212: 11,6231 51771 TS SKEEP1 # 37777
009919,000213: 11,6232 44476 MP-+ CS SCON+MAX
009920,000214: 11,6233 25777 INDEX 5777
009921,000215: 11,6234 44515 4 SCON2 # C(A) = -1
009922,000216: 11,6235 60003 AD LP # C(LP) = -37776
009923,000217: 11,6236 61771 AD SKEEP1
009924,000218: 11,6237 06023 TC -ZEROCHK
009925,000219:
009926,000220:
009927,000221: # CHECKS MOST OF SU PULSES
009928,000222: 11,6240 34476 SUCHK CAF SCON+MAX
009929,000223: 11,6241 25777 INDEX 5777
009930,000224: 11,6242 66421 6 SCONSU # SU 37776, C(A) = +1
009931,000225: 11,6243 06033 TC -ONECHK -1
009932,000226:
009933,000227: # CHECKS MOST OF DV PULSES (ALL EXCEPT WP, GP, TP)
009934,000228: # DIVIDE USES ST2
009935,000229: # ++ AND --, C(A) = 25252, C(Q) = 67777, C(LP) = +1
009936,000230: # +- AND -+ , C(A) = 52525, C(Q) = 67777, C(LP) = 40000 AND 40001
009937,000231: 11,6244 36544 DVCHK CAF SCON3/8
009938,000232: 11,6245 50001 TS Q
009939,000233: 11,6246 34502 DV++ CAF SCON1/4
009940,000234: 11,6247 25777 INDEX 5777
009941,000235: 11,6250 50001 5 Q # C(A) = 25252, CHECKS RSC PULSE
009942,000236: 11,6251 51771 TS SKEEP1
009943,000237: 11,6252 30003 XCH LP
009944,000238: 11,6253 51772 TS SKEEP2
009945,000239: 11,6254 40001 DV+- CS Q # +1/4
009946,000240: 11,6255 25777 INDEX 5777
009947,000241: 11,6256 56545 5 SCON-3/8 # C(A) = 52525
009948,000242: 11,6257 61771 AD SKEEP1 # C(A) = -0
009949,000243: 11,6260 51775 TS SKEEP5 # SHOULD BE -0
009950,000244: 11,6261 30003 XCH LP
009951,000245: 11,6262 51773 TS SKEEP3
009952,000246: 11,6263 30001 DV-- XCH Q # -1/4
009953,000247: 11,6264 25777 INDEX 5777
009954,000248: 11,6265 56545 5 SCON-3/8 # C(A) = 25252
009955,000249: 11,6266 51771 TS SKEEP1
009956,000250: 11,6267 30003 XCH LP
009957,000251: 11,6270 51774 TS SKEEP4
009958,000252: 11,6271 30001 DV-+ XCH Q # -1/4
009959,000253: 11,6272 25777 INDEX 5777
009960,000254: 11,6273 56544 5 SCON3/8
009961,000255: 11,6274 61771 AD SKEEP1 # C(A) = -0
009962,000256: 11,6275 51771 TS SKEEP1
009963,000257: 11,6276 40003 CS LP # C(A) = 37776
009964,000258: 11,6277 61771 AD SKEEP1 # C(A) = 37776
009965,000259: 11,6300 61772 AD SKEEP2 # C(A) = 37777
009966,000260: 11,6301 61773 AD SKEEP3 # C(A) = -0
009967,000261: 11,6302 61774 AD SKEEP4 # C(A) = +1
009968,000262: 11,6303 61775 AD SKEEP5 # C(A) = +1
009969,000263: 11,6304 06033 TC -ONECHK -1
009970,000264:
009971,000265:
009972,000266: # CHECKS MOST TS PULSES
009973,000267: # CHECKS ALL OF PINC AND MINC PULSES EXCEPT WOVR
009974,000268: 11,6305 34516 TS+-CHK CAF SCON1
009975,000269: 11,6306 50034 TS OVCTR
009976,000270: 11,6307 64476 AD SCON+MAX # C(A) = + WITH OVERFLOW
009977,000271: 11,6310 51771 TS SKEEP1
009978,000272: 11,6311 06013 TC ERRORS
009979,000273: 11,6312 61771 AD SKEEP1 # C(A) = +1
009980,000274: 11,6313 60034 AD OVCTR # C(A) = +3
009981,000275: 11,6314 50034 TS OVCTR
009982,000276: 11,6315 40000 CS A # C(A) = 77774
009983,000277: 11,6316 25777 INDEX 5777
009984,000278: 11,6317 66376 6 SCONTS # C(A) = -0 WITH UNDERFLOW
009985,000279: 11,6320 51771 TS SKEEP1
009986,000280: 11,6321 06013 TC ERRORS
009987,000281: 11,6322 61771 AD SKEEP1 # C(A) = -1
009988,000282: 11,6323 60034 AD OVCTR # C(A) = -1+2
009989,000283: 11,6324 06033 TC -ONECHK -1
009990,000284:
009991,000285: # NOT POSSIBLE TO CHECK WOVI PULSE IN NXI1
009992,000286: # START WOVI PULSE CHECK AND INHINT RELINT CHECK
009993,000287: 11,6325 20017 RUPTCHK INDEX INHINT
009994,000288: 11,6326 35501 CAF SCON0
009995,000289: 11,6327 50024 TS 0024 # ZRUPT
009996,000290: 11,6330 20016 INDEX RELINT
009997,000291: 11,6331 60036 AD TIME1
009998,000292: 11,6332 51771 TS SKEEP1
009999,000293: 11,6333 41771 TENMS CS SKEEP1 # CHECK FOR NEXT PULSE TP TIME1
010000,000294: 11,6334 60036 AD TIME1
010001,000295: 11,6335 10000 CCS A
010002,000296: 11,6336 10000 CCS A
010003,000297: 11,6337 06325 TC RUPTCHK # START AGAIN, TIMING IS OFF DUE TO RUPT
010004,000298: 11,6340 06342 TC +2 # 10 MS PULSE HAS ARRIVED AT TIME1
010005,000299: 11,6341 06333 TC TENMS
010006,000300: 11,6342 36001 CAF TM1WAIT # START 7 TO 8 MS WAIT
010007,000301: 11,6343 10000 7-8WAIT CCS A
010008,000302: 11,6344 06343 TC 7-8WAIT
010009,000303: 11,6345 20017 INDEX INHINT
010010,000304: 11,6346 10024 CCS 0024 # ZRUPT
010011,000305: 11,6347 06325 TC RUPTCHK # THERE WAS AN INTERRUPT, START AGAIN
010012,000306: 11,6350 34516 CAF SCON1
010013,000307: 11,6351 02173 TC WAITLIST
010014,000308: 11,6352 22401 CADR TSKADRS
010015,000309: 11,6353 34476 XCH SCON+MAX
010016,000310: 11,6354 66000 AD OVCON # WILL STAY IN OVERFLOW, UNDERFLOW FOR
010017,000311: 11,6355 20016 INDEX RELINT # APPROXIMATELY 3 MS
010018,000312: 11,6356 10000 WAIT1 CCS A
010019,000313: 11,6357 64515 AD SCON2
010020,000314: 11,6360 06362 TC +2
010021,000315: 11,6361 06374 TC WOVIRPT
010022,000316: 11,6362 25777 INDEX 5777
010023,000317: 11,6363 65504 6 SCONMAX # SU -0
010024,000318: 11,6364 30000 XCH A
010025,000319: 11,6365 25501 INDEX SCON0
010026,000320: 11,6366 40000 CS A
010027,000321: 11,6367 70000 MASK A
010028,000322: 11,6370 40000 CS A
010029,000323: 11,6371 50000 TS A
010030,000324: 11,6372 06013 TC ERRORS
010031,000325: 11,6373 06356 TC WAIT1
010032,000326: 11,6374 20017 WOVIRPT INDEX INHINT
010033,000327: 11,6375 51771 TS SKEEP1
010034,000328: 11,6376 37775 SCONTS OCTAL 37775
010035,000329: 11,6377 20016 INDEX RELINT
010036,000330: # INTERRUPT SHOULD APPEAR BEFORE NEXT INSTRUCTION
010037,000331: 11,6400 06410 TC SOPTION1 # END OF PULSES CHECK
010038,000332: 11,6401 40024 TSKADRS CS 0024 # C(ZRUPT) = ADDRESS OF TSKADRS
010039,000333: 11,6402 66002 AD ZRUPTCON
010040,000334: 11,6403 06023 TC -ZEROCHK
010041,000335: 11,6404 31766 XCH SCOUNT # ADD +1 TO SCOUNT REGISTER AT THIS
010042,000336: 11,6405 64516 AD SCON1 # POINT OF SELF-CHECK.
010043,000337: 11,6406 31766 XCH SCOUNT
010044,000338: 11,6407 02256 TC TASKOVER
010045,000339:
010046,000340:
010047,000341: 11,6410 11762 SOPTION1 CCS SMODE # 3 OPTIONS OF SELF-CHECK
010048,000342: 11,6411 03002 TC SMODECHK # END OF PULSES ONLY CHECK
010049,000343: 11,6412 03002 TC SMODECHK
010050,000344: 11,6413 06414 TC +1 # CONTINUE IF C(SMODE) IS A NEG. NUMB5R
010051,000345:
010052,000346: # COUNTS DOWN 15 BIT NUMBER (APPROXIMATELY 10 SECONDS)
010053,000347: 11,6414 44476 COUNTCHK CS SCON+MAX
010054,000348: 11,6415 51775 TS SKEEP5
010055,000349: 11,6416 50001 COUNTS TS Q
010056,000350: 11,6417 10001 CCS Q
010057,000351: 11,6420 06434 TC -NMBR
010058,000352: 11,6421 37776 SCONSU OCTAL 37776
010059,000353: 11,6422 06424 TC +2
010060,000354: 11,6423 06443 TC OFCOUNT
010061,000355: 11,6424 61775 AD SKEEP5
010062,000356: 11,6425 06034 TC -ONECHK
010063,000357: 11,6426 10215 CCS NEWJOB
010064,000358: 11,6427 07364 TC DUMEXIT
010065,000359: 11,6430 41775 CS SKEEP5
010066,000360: 11,6431 65504 AD SCONMAX # -0
010067,000361: 11,6432 51774 TS SKEEP4
010068,000362: 11,6433 06416 TC COUNTS
010069,000363: 11,6434 40000 -NMBR CS A
010070,000364: 11,6435 51775 TS SKEEP5
010071,000365: 11,6436 61774 AD SKEEP4
010072,000366: 11,6437 06033 TC -ONECHK -1
010073,000367: 11,6440 41775 CS SKEEP5
010074,000368: 11,6441 40000 CS A
010075,000369: 11,6442 06416 TC COUNTS
010076,000370:
010077,000371: # COUNTS DOWN OVERFLOW NUMBER (APPROXIMATELY 3.5 SECONDS)
010078,000372: 11,6443 51777 OFCOUNT TS SKEEP7 # +0
010079,000373: 11,6444 34476 CAF SCON+MAX
010080,000374: 11,6445 60000 AD A
010081,000375: 11,6446 64516 COUNTSOF AD SCON1
010082,000376: 11,6447 20017 INHINT
010083,000377: 11,6450 30001 XCH Q
010084,000378: 11,6451 10001 CCS Q
010085,000379: 11,6452 51776 TS SKEEP6
010086,000380: 11,6453 06466 TC ENDOF
010087,000381: 11,6454 20016 RELINT
010088,000382: 11,6455 61777 AD SKEEP7
010089,000383: 11,6456 51777 TS SKEEP7
010090,000384: 11,6457 06461 TC +2
010091,000385: 11,6460 06013 TC ERRORS
010092,000386: 11,6461 10215 CCS NEWJOB
010093,000387: 11,6462 07364 TC DUMEXIT
010094,000388: 11,6463 34476 CAF SCON+MAX
010095,000389: 11,6464 61776 AD SKEEP6
010096,000390: 11,6465 06446 TC COUNTSOF
010097,000391: 11,6466 40000 ENDOF CS A
010098,000392: 11,6467 20016 RELINT
010099,000393: 11,6470 61777 AD SKEEP7
010100,000394: 11,6471 06023 TC -ZEROCHK
010101,000395:
010102,000396: # REGISTER 1777 ALWAYS HOLDS LOWEST (X-1) ADDRESS JUST CHECKED
010103,000397: # REGISTER 1776 HOLDS BEFORE CONTENTS OF X
010104,000398: # REGISTER 1775 HOLDS BEFORE CONTENTS OF X-1
010105,000399: # REGISTER 1774 IS STARTING ADDRESS
010106,000400: # PUTS OWN ADDRESS IN REGISTERS OCT 1774 THROUGH OCT 60 (APPROX. 1.2 SEC)
010107,000401: 11,6472 36004 ERASCHK CAF CONERAS2 # 01774
010108,000402: 11,6473 51777 TS 1777
010109,000403: 11,6474 41777 ERASLOOP CS 1777
010110,000404: 11,6475 20016 RELINT
010111,000405: 11,6476 40000 CS 0000
010112,000406: 11,6477 20017 INHINT
010113,000407: 11,6500 20000 NDX 0000
010114,000408: 11,6501 30000 XCH 0000
010115,000409: 11,6502 51776 TS 1776 # PUT C(X) IN 1776
010116,000410: 11,6503 11777 CCS 1777
010117,000411: 11,6504 51777 TS 1777
010118,000412: 11,6505 20000 NDX 0000
010119,000413: 11,6506 30000 XCH 0000
010120,000414: 11,6507 31775 XCH 1775 # PUT C(X-1) IN 1775
010121,000415: 11,6510 21777 INDEX 1777
010122,000416: 11,6511 40001 CS 0001
010123,000417: 11,6512 21777 INDEX 1777
010124,000418: 11,6513 60000 AD 0000
010125,000419: 11,6514 06034 TC -ONECHK
010126,000420: 11,6515 41777 COMPLMNT CS 1777
010127,000421: 11,6516 21777 INDEX 1777
010128,000422: 11,6517 50000 TS 0000 # PUTS COMPLEMENT OF ADDRESS IN X-1
010129,000423: 11,6520 64335 AD SCON-1
010130,000424: 11,6521 21777 INDEX 1777
010131,000425: 11,6522 50001 TS 0001 # PUTS COMPLEMENT OF ADDRESS IN X
010132,000426: 11,6523 21777 INDEX 1777
010133,000427: 11,6524 40000 CS 0000
010134,000428: 11,6525 21777 INDEX 1777
010135,000429: 11,6526 60001 AD 0001
010136,000430: 11,6527 06034 TC -ONECHK
010137,000431: 11,6530 31776 XCH 1776
010138,000432: 11,6531 21777 NDX 1777
010139,000433: 11,6532 50001 TS 0001 # RESTORE C(X)
010140,000434: 11,6533 41775 CS 1775
010141,000435: 11,6534 40000 CS A
010142,000436: 11,6535 21777 NDX 1777
010143,000437: 11,6536 50000 TS 0000 # RESTORE C(X-1)
010144,000438: 11,6537 10215 CCS NEWJOB
010145,000439: 11,6540 07364 TC DUMEXIT
010146,000440: 11,6541 41777 ENDERAS CS 1777
010147,000441: 11,6542 66003 AD CONERAS1 # +60 OCT
010148,000442: 11,6543 10000 CCS A
010149,000443: 11,6544 14000 SCON3/8 OCTAL 14000
010150,000444: 11,6545 63777 SCON-3/8 OCTAL 63777
010151,000445: 11,6546 06474 TC ERASLOOP
010152,000446: 11,6547 20016 INDEX RELINT
010153,000447:
010154,000448: # CS ALL REGISTERS FROM OCT 57 THROUGH OCT 20
010155,000449: # ALL COUNTERS, PLUS 4 SPARES, PLUS 4 RUPT REGISTERS.
010156,000450: # PLUS CYCLE AND SHIFT REGISTERS
010157,000451: 11,6550 33226 CNTRCHK CAF LOW5
010158,000452: 11,6551 51771 CNTRLOOP TS SKEEP1
010159,000453: 11,6552 64512 AD CONCNTR1 # +20 OCT
010160,000454: 11,6553 20000 INDEX A
010161,000455: 11,6554 40000 CS 0000
010162,000456: 11,6555 11771 CCS SKEEP1
010163,000457: 11,6556 06551 TC CNTRLOOP
010164,000458:
010165,000459: 11,6557 36005 CYCLSHFT CAF CONC+S1
010166,000460: 11,6560 50020 TS CYR # C(CYR) = 12525
010167,000461: 11,6561 50022 TS CYL # C(CYL) = 52524
010168,000462: 11,6562 50021 TS SR # C(SR) = 12525
010169,000463: 11,6563 50023 TS SL # C(SL) = 12524
010170,000464: 11,6564 60020 AD CYR
010171,000465: 11,6565 60022 AD CYL
010172,000466: 11,6566 60021 AD SR
010173,000467: 11,6567 60023 AD SL
010174,000468: 11,6570 64664 AD CONC+S2 # C(A) = -1
010175,000469: 11,6571 06034 TC -ONECHK
010176,000470:
010177,000471: 11,6572 31767 XCH SCOUNT +1 # ADD +1 TO SCOUNT +1 REGISTER AT THIS
010178,000472: 11,6573 64516 AD SCON1 # POINT OF SELF-CHECK
010179,000473: 11,6574 31767 XCH SCOUNT +1
010180,000474: 11,6575 11762 SOPTION2 CCS SMODE # TWO OPTIONS LEFT
010181,000475: 11,6576 06414 TC COUNTCHK
010182,000476: 11,6577 03002 TC SMODECHK
010183,000477: 11,6600 03002 TC SMODECHK # END OF PULSES + SC + ERASABLE CHECK
010184,000478: 11,6601 06633 TC ROPECHK # CONTINUE WITH SELF-CHECK
010185,000479:
010186,000480: # THE BNKCON CONSTANTS (BANK NUMBERS) ARE USED BY ROPECHK AND SHOWSUM
010187,000481: # THEY MUST BE IN THE FOLLOWING TABLE FORM
010188,000482: 11,6602 02000 BNKCON1 OCTAL 02000
010189,000483: 11,6603 04000 BNKCON2 OCTAL 04000
010190,000484: 11,6604 06000 BNKCON3 OCTAL 06000
010191,000485: 11,6605 10000 BNKCON4 OCTAL 10000
010192,000486: 11,6606 12000 BNKCON5 OCTAL 12000
010193,000487: 11,6607 14000 BNKCON6 OCTAL 14000
010194,000488: 11,6610 16000 BNKCON7 OCTAL 16000
010195,000489: 11,6611 20000 BNKCON10 OCTAL 20000
010196,000490: 11,6612 22000 BNKCON11 OCTAL 22000
010197,000491: 11,6613 24000 BNKCON12 OCTAL 24000
010198,000492: 11,6614 26000 BNKCON13 OCTAL 26000
010199,000493: 11,6615 30000 BNKCON14 OCTAL 30000
010200,000494: 11,6616 42000 BNKCON21 OCTAL 42000
010201,000495: 11,6617 44000 BNKCON22 OCTAL 44000
010202,000496: 11,6620 46000 BNKCON23 OCTAL 46000
010203,000497: 11,6621 50000 BNKCON24 OCTAL 50000
010204,000498: 11,6622 52000 BNKCON25 OCTAL 52000
010205,000499: 11,6623 54000 BNKCON26 OCTAL 54000
010206,000500: 11,6624 56000 BNKCON27 OCTAL 56000
010207,000501: 11,6625 60000 BNKCON30 OCTAL 60000
010208,000502: 11,6626 62000 BNKCON31 OCTAL 62000
010209,000503: 11,6627 64000 BNKCON32 OCTAL 64000
010210,000504: 11,6630 66000 BNKCON33 OCTAL 66000
010211,000505: 11,6631 70000 BNKCON34 OCTAL 70000
010212,000506: 11,6632 00000 BANKSTOP OCTAL 00000 # PUT +0 AFTER LAST BANK TO BE CHECKED
010213,000507:
010214,000508: # TAKES BETWEEN 17 AND 20 SECONDS FOR ROPECHK TO GO THROUGH ALL BANKS.
010215,000509: # INITIALIZE 2OPTIONS TO -1 TO PERFORM ROPECHK
010216,000510: # SKEEP1 HOLDS SUM
010217,000511: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPCHEK AND SHOWSUM ROUTINES
010218,000512: # SKEEP2 HOLDS ACTUAL BANK NUMBER USED IN THE BANK REGISTER BUT CYCLED 5
010219,000513: # PLACES LEFT FOR DISPLAY IN SHOWSUM ROUTINE
010220,000514: # SKEEP3 HOLDS PRESENT ADDRESS (02000 TO 05777 IN FXFX BANKS)
010221,000515: # (00000 TO 01777 IN FXSW BANKS)
010222,000516: # SKEEP3 HOLDS BUGGER WORD FOR DISPLAY IN SHOWSUM ROUTINE
010223,000517: # SKEEP4 HOLDS ADDRESS OF BANK NUMBER
010224,000518: # SKEEP5 COUNTS TWO SUCCESSIVE TC SELF WORDS
010225,000519: # SKEEP6 HOLDS END OF BANK NUMBERS
010226,000520: # SKEEP7 COUNTS DOWN FIXED FIXED BANKS
010227,000521: 11,6633 44516 ROPECHK CS SCON1
010228,000522: 11,6634 51761 TS 2OPTIONS
010229,000523: 11,6635 37010 FXFXCHK CAF FXCON1 # 43776
010230,000524: 11,6636 51776 TS SKEEP6
010231,000525: 11,6637 36602 CAF BNKCON1 # 02000
010232,000526: 11,6640 51773 TS SKEEP3
010233,000527: 11,6641 36753 CAF STBNKCON
010234,000528: 11,6642 51774 TS SKEEP4
010235,000529: 11,6643 34516 CAF SCON1
010236,000530: 11,6644 51777 TS SKEEP7
010237,000531: 11,6645 35501 FXFXBNKS CAF SCON0
010238,000532: 11,6646 51771 TS SKEEP1
010239,000533: 11,6647 34515 CAF SCON2
010240,000534: 11,6650 51775 TS SKEEP5 # COUNTS DOWN TWO TC SELF WORDS
010241,000535: 11,6651 21773 FXADRS INDEX SKEEP3
010242,000536: 11,6652 30000 CAF 0000
010243,000537: 11,6653 06761 TC ADSUM
010244,000538: 11,6654 06706 TC ADRSCHK
010245,000539:
010246,000540: 11,6655 51777 BANK2 TS SKEEP7
010247,000541: 11,6656 37011 CAF FXCON2 # 45776
010248,000542: 11,6657 51776 TS SKEEP6
010249,000543: 11,6660 36603 CAF BNKCON2 # 04000
010250,000544: 11,6661 51773 TS SKEEP3
010251,000545: 11,6662 06645 TC FXFXBNKS
010252,000546:
010253,000547: 11,6663 34515 FXSWBNKS CAF SCON2
010254,000548: 11,6664 51775 TS SKEEP5 # COUNTS DOWN TWO TC SELF WORDS
010255,000549: 11,6665 35501 CAF SCON0
010256,000550: 11,6666 51771 TS SKEEP1
010257,000551: 11,6667 51773 TS SKEEP3
010258,000552: 11,6670 61773 SWADRS AD SKEEP3
010259,000553: 11,6671 21774 INDEX SKEEP4
010260,000554: 11,6672 60000 AD 0000
010261,000555: 11,6673 05730 TC DATACALL
010262,000556: 11,6674 06761 TC ADSUM
010263,000557: 11,6675 66604 AD BNKCON3 # 06000
010264,000558: 11,6676 06706 TC ADRSCHK
010265,000559:
010266,000560: # SUBROUTINES ADRS+1, ADRSCHK, OPTION, NXTBNK, ADSUM, AND BNKCHK ARE
010267,000561: # USED BY BOTH FXFX AND FXSW BANKS
010268,000562: 11,6677 31773 ADRS+1 XCH SKEEP3
010269,000563: 11,6700 64516 AD SCON1
010270,000564: 11,6701 51773 TS SKEEP3
010271,000565: 11,6702 11777 CCS SKEEP7
010272,000566: 11,6703 06651 TC FXADRS
010273,000567: 11,6704 06651 TC FXADRS
010274,000568: 11,6705 06670 TC SWADRS
010275,000569:
010276,000570: 11,6706 10000 ADRSCHK CCS A
010277,000571: 11,6707 06715 TC CONTINU
010278,000572: 11,6710 06715 TC CONTINU
010279,000573: 11,6711 06715 TC CONTINU
010280,000574: 11,6712 11775 CCS SKEEP5
010281,000575: 11,6713 51775 TS SKEEP5
010282,000576: 11,6714 06722 TC CONTINU +5
010283,000577: 11,6715 11775 CONTINU CCS SKEEP5
010284,000578: 11,6716 06720 TC +2
010285,000579: 11,6717 06730 TC SOPTION
010286,000580: 11,6720 34515 CAF SCON2
010287,000581: 11,6721 51775 TS SKEEP5 # MAKES SURE TWO CONSECUTIVE TC SELF WORDS
010288,000582: 11,6722 10215 CCS NEWJOB
010289,000583: 11,6723 07364 TC DUMEXIT
010290,000584: 11,6724 41773 CS SKEEP3
010291,000585: 11,6725 61776 AD SKEEP6
010292,000586: 11,6726 50000 TS A # UNDERFLOW AT END OF BANK
010293,000587: 11,6727 06677 TC ADRS+1 # STAY IN SAME BANK
010294,000588:
010295,000589: 11,6730 11761 SOPTION CCS 2OPTIONS
010296,000590: 11,6731 07024 TC SDISPLAY
010297,000591: 11,6732 06735 TC NXTBNK
010298,000592: 11,6733 06772 TC BNKCHK
010299,000593: 11,6734 06034 TC -ONECHK
010300,000594:
010301,000595: 11,6735 31774 NXTBNK XCH SKEEP4
010302,000596: 11,6736 64516 AD SCON1
010303,000597: 11,6737 51774 TS SKEEP4
010304,000598: 11,6740 11777 CCS SKEEP7
010305,000599: 11,6741 06655 TC BANK2
010306,000600: 11,6742 06743 TC +1
010307,000601: 11,6743 44516 CS SCON1
010308,000602: 11,6744 51777 TS SKEEP7
010309,000603: 11,6745 36757 CAF SWCON # 41776
010310,000604: 11,6746 51776 TS SKEEP6
010311,000605: 11,6747 21774 ENDBANKS INDEX SKEEP4
010312,000606: 11,6750 40000 CS 0000
010313,000607: 11,6751 10000 CCS A
010314,000608: 11,6752 06663 TC FXSWBNKS
010315,000609: 11,6753 06602 STBNKCON ADRES BNKCON1 # CONSTANT. STARTING ADDRESS OF BANK LIST
010316,000610: 11,6754 06663 TC FXSWBNKS
010317,000611: 11,6755 11761 CCS 2OPTIONS # END OF FIXED MEMORY CHECKING
010318,000612: 11,6756 07012 TC SHOWSUM # END OF SHOWSUM, START AGAIN
010319,000613: 11,6757 41776 SWCON OCTAL 41776 # CONSTANT
010320,000614: 11,6760 07067 TC 1/2OPTN # END OF BANK SUMCHECKING SUBROUTINE
010321,000615:
010322,000616: 11,6761 51772 ADSUM TS SKEEP2
010323,000617: 11,6762 61771 AD SKEEP1
010324,000618: 11,6763 51771 TS SKEEP1
010325,000619: 11,6764 35501 CAF SCON0
010326,000620: 11,6765 61771 AD SKEEP1
010327,000621: 11,6766 51771 TS SKEEP1
010328,000622: 11,6767 41772 CS SKEEP2
010329,000623: 11,6770 61773 AD SKEEP3
010330,000624: 11,6771 00001 TC Q
010331,000625:
010332,000626:
010333,000627: 11,6772 30001 BNKCHK XCH Q
010334,000628: 11,6773 50115 TS QADRS
010335,000629: 11,6774 11771 CCS SKEEP1
010336,000630: 11,6775 07001 TC +4
010337,000631: 11,6776 06013 TC ERRORS
010338,000632: 11,6777 07001 TC +2
010339,000633: 11,7000 06013 TC ERRORS
010340,000634: 11,7001 51771 TS SKEEP1
010341,000635: 11,7002 21774 INDEX SKEEP4
010342,000636: 11,7003 30000 CAF 0000
010343,000637: 11,7004 03211 TC LEFT5 # CYCLES LEFT 5 PLACES
010344,000638: 11,7005 40000 CS A
010345,000639: 11,7006 61771 AD SKEEP1
010346,000640: 11,7007 00115 TC QADRS
010347,000641: 11,7010 43776 FXCON1 OCTAL 43776 # CONSTANT
010348,000642: 11,7011 45776 FXCON2 OCTAL 45776 # CONSTANT
010349,000643:
010350,000644: # INITIALIZE 2OPTIONS TO +1 TO PERFORM SHOWSUM
010351,000645: # START OF ROUTINE THAT DISPLAYS SUM OF EACH BANK
010352,000646: 11,7012 34516 SHOWSUM CAF SCON1
010353,000647: 11,7013 51761 TS 2OPTIONS # SHOWSUM OPTION
010354,000648: 11,7014 35501 CAF SCON0
010355,000649: 11,7015 51762 TS SMODE # PUT SELF-CHECK TO SLEEP
010356,000650: 11,7016 20017 INDEX INHINT
010357,000651: 11,7017 34504 CAF PRIO2
010358,000652: 11,7020 02052 TC NOVAC
010359,000653: 11,7021 22635 CADR FXFXCHK
010360,000654: 11,7022 20016 INDEX RELINT
010361,000655: 11,7023 02124 TC ENDOFJOB
010362,000656: 11,7024 21774 SDISPLAY INDEX SKEEP4
010363,000657: 11,7025 30000 CAF 0000
010364,000658: 11,7026 03211 TC LEFT5 # CYCLES LEFT 5 PLACES
010365,000659: 11,7027 51772 TS SKEEP2 # HOLDS BANK NUMBER FOR DSKY DISPLAY
010366,000660: 11,7030 11777 CCS SKEEP7 # 12 INSTRUCTIONS TO PUT BUGGER WORD
010367,000661: 11,7031 07041 TC FXFXWORD # IN SKEEP3.
010368,000662: 11,7032 07041 TC FXFXWORD
010369,000663: 11,7033 41773 CS SKEEP3 # GETS FXSW BUGGER WORD
010370,000664: 11,7034 40000 CS A
010371,000665: 11,7035 21774 INDEX SKEEP4
010372,000666: 11,7036 60000 AD 0000
010373,000667: 11,7037 05730 TC DATACALL
010374,000668: 11,7040 07043 TC +3
010375,000669: 11,7041 21773 FXFXWORD INDEX SKEEP3 # GETS FXFX BUGGER WORD
010376,000670: 11,7042 30000 CAF 0000
010377,000671: 11,7043 51773 TS SKEEP3 # SKEEP3 NOW HOLDS BUGGER WORD
010378,000672: 11,7044 03310 TC GRABDSP
010379,000673: 11,7045 03316 TC PREGBSY
010380,000674: 11,7046 36006 NOKILL CAF SUMADRS
010381,000675: 11,7047 50117 TS MPAC +2
010382,000676: 11,7050 36007 CAF VNCON
010383,000677: 11,7051 03106 TC NVSUB
010384,000678: 11,7052 07065 TC SBUSY
010385,000679: 11,7053 05654 TC BANKCALL
010386,000680: 11,7054 14000 CADR FLASHON
010387,000681: 11,7055 03144 TC ENDIDLE
010388,000682: 11,7056 07061 TC +3 # FINISHED WITH SHOWSUM
010389,000683: 11,7057 07063 TC SALLOW # PROCEED TO NEXT BANK
010390,000684: 11,7060 07046 TC NOKILL # SO CAN LOAD WITHOUT KILLING SHOWSUM.
010391,000685: 11,7061 03370 TC FREEDSP
010392,000686: 11,7062 02124 TC ENDOFJOB
010393,000687:
010394,000688: 11,7063 03370 SALLOW TC FREEDSP # ALLOWS ANOTHER JOB TO DISPLAY. LEAVES
010395,000689: 11,7064 06735 TC NXTBNK # SUM IN DSKY FOR 10 SEC. AFTER PROC. VERB
010396,000690:
010397,000691: 11,7065 36010 SBUSY CAF SCADR
010398,000692: 11,7066 03326 TC NVSUBUSY
010399,000693:
010400,000694: 11,7067 11762 1/2OPTN CCS SMODE
010401,000695: 11,7070 07074 TC +4 # STAY IN ROPECHK LOOP
010402,000696: 11,7071 07354 TC SOPTION3 -3
010403,000697: 11,7072 03002 TC SMODECHK # SHOULD NOT COME HERE
010404,000698: 11,7073 07100 TC MPNMBRS # CONTINUE WITH SELF-CHECK
010405,000699: 11,7074 31770 XCH SCOUNT +2
010406,000700: 11,7075 64516 AD SCON1
010407,000701: 11,7076 31770 XCH SCOUNT +2
010408,000702: 11,7077 06633 TC ROPECHK
010409,000703:
010410,000704: # MULTIPLY SUBROUTINES TAKE APPROXIMATELY 30 SECONDS
010411,000705: # (37777) X (37777 THROUGH 00001)
010412,000706: # C(A) COUNTS DOWN. C(LP) COUNTS UP.
010413,000707: 11,7100 34476 MPNMBRS CAF SCON+MAX
010414,000708: 11,7101 51772 TS SKEEP2
010415,000709: 11,7102 34476 CAF SCON+MAX
010416,000710: 11,7103 25777 EXTEND
010417,000711: 11,7104 41772 MP SKEEP2
010418,000712: 11,7105 60003 AD LP # C(A) = 37777
010419,000713: 11,7106 40000 CS A
010420,000714: 11,7107 64476 AD SCON+MAX
010421,000715: 11,7110 06023 TC -ZEROCHK
010422,000716: 11,7111 10215 CCS NEWJOB
010423,000717: 11,7112 07364 TC DUMEXIT
010424,000718: 11,7113 11772 CCS SKEEP2
010425,000719: 11,7114 51772 TS SKEEP2
010426,000720: 11,7115 11772 CCS SKEEP2
010427,000721: 11,7116 07102 TC MPNMBRS +2
010428,000722: # (-1) X (37777 THROUGH 00001)
010429,000723: 11,7117 34476 CAF SCON+MAX
010430,000724: 11,7120 51772 TS SKEEP2
010431,000725: 11,7121 34335 MPHIGH1 CAF SCON-1
010432,000726: 11,7122 25777 EXTEND
010433,000727: 11,7123 41772 MP SKEEP2 # C(A) = -0
010434,000728: 11,7124 60003 AD LP
010435,000729: 11,7125 61772 AD SKEEP2
010436,000730: 11,7126 06023 TC -ZEROCHK
010437,000731: 11,7127 10215 CCS NEWJOB
010438,000732: 11,7130 07364 TC DUMEXIT
010439,000733: 11,7131 11772 CCS SKEEP2
010440,000734: 11,7132 51772 TS SKEEP2
010441,000735: 11,7133 11772 CCS SKEEP2
010442,000736: 11,7134 07121 TC MPHIGH1
010443,000737:
010444,000738: # INTERCHANGE MULTIPLIER AND MULTIPLICAND
010445,000739: # (37777 THROUGH 00001) X (37777)
010446,000740: # C(A) COUNTS DOWN. C(LP) COUNTS UP.
010447,000741: 11,7135 34476 CAF SCON+MAX
010448,000742: 11,7136 51771 TS SKEEP1
010449,000743: 11,7137 41771 MPAGAIN CS SKEEP1
010450,000744: 11,7140 40000 CS A
010451,000745: 11,7141 25777 EXTEND
010452,000746: 11,7142 44476 MP SCON+MAX
010453,000747: 11,7143 60003 AD LP # C(A) = 37777
010454,000748: 11,7144 40000 CS A
010455,000749: 11,7145 64476 AD SCON+MAX
010456,000750: 11,7146 06023 TC -ZEROCHK
010457,000751: 11,7147 10215 CCS NEWJOB
010458,000752: 11,7150 07364 TC DUMEXIT
010459,000753: 11,7151 11771 CCS SKEEP1
010460,000754: 11,7152 51771 TS SKEEP1
010461,000755: 11,7153 11771 CCS SKEEP1
010462,000756: 11,7154 07137 TC MPAGAIN
010463,000757: # (37777 THROUGH 00001) X (-1)
010464,000758: 11,7155 34476 CAF SCON+MAX
010465,000759: 11,7156 51771 TS SKEEP1
010466,000760: 11,7157 41771 MPHIGH2 CS SKEEP1
010467,000761: 11,7160 40000 CS A
010468,000762: 11,7161 25777 EXTEND
010469,000763: 11,7162 44335 MP SCON-1
010470,000764: 11,7163 60003 AD LP
010471,000765: 11,7164 61771 AD SKEEP1
010472,000766: 11,7165 06023 TC -ZEROCHK
010473,000767: 11,7166 10215 CCS NEWJOB
010474,000768: 11,7167 07364 TC DUMEXIT
010475,000769: 11,7170 11771 CCS SKEEP1
010476,000770: 11,7171 51771 TS SKEEP1
010477,000771: 11,7172 11771 CCS SKEEP1
010478,000772: 11,7173 07157 TC MPHIGH2
010479,000773: 11,7174 07177 TC DV1
010480,000774:
010481,000775: # THESE 2 CONSTANTS USED BY DIVIDE SUBROUTINES
010482,000776: 11,7175 37776 DVCON1 OCTAL 37776
010483,000777: 11,7176 50001 DVCON2 OCTAL 50001
010484,000778: # DIVIDE 1/4 BY 3/8
010485,000779: # ONCE THROUGH ALL DEVIDE SUBROUTINES TAKES APPROX. 0.012 SECONDS
010486,000780: # TOTAL TIME IN DEVIDE SUBROUTINES IS APPROX. 20 SECONDS
010487,000781: 11,7177 36004 DV1 CAF CONERAS2 # 01774
010488,000782: 11,7200 51777 TS SKEEP7
010489,000783: 11,7201 36544 DV1++ CAF SCON3/8
010490,000784: 11,7202 50001 TS Q
010491,000785: 11,7203 34502 CAF SCON1/4
010492,000786: 11,7204 25777 EXTEND
010493,000787: 11,7205 50001 DV Q # C(A) = 25252
010494,000788: 11,7206 51771 TS SKEEP1
010495,000789: 11,7207 30003 XCH LP
010496,000790: 11,7210 51772 TS SKEEP2
010497,000791: 11,7211 40001 DV1+- CS Q # +1/4
010498,000792: 11,7212 25777 EXTEND
010499,000793: 11,7213 56545 DV SCON-3/8 # C(A) = 52525
010500,000794: 11,7214 61771 AD SKEEP1 # C(A) = -0
010501,000795: 11,7215 51775 TS SKEEP5
010502,000796: 11,7216 30003 XCH LP
010503,000797: 11,7217 51773 TS SKEEP3
010504,000798: 11,7220 30001 DV1-- XCH Q # -1/4
010505,000799: 11,7221 25777 EXTEND
010506,000800: 11,7222 56545 DV SCON-3/8
010507,000801: 11,7223 51771 TS SKEEP1
010508,000802: 11,7224 30003 XCH LP
010509,000803: 11,7225 51774 TS SKEEP4
010510,000804: 11,7226 30001 DV1-+ XCH Q
010511,000805: 11,7227 25777 EXTEND
010512,000806: 11,7230 56544 DV SCON3/8
010513,000807: 11,7231 61771 AD SKEEP1 # C(A) = -0
010514,000808: 11,7232 51771 TS SKEEP1
010515,000809: 11,7233 40003 CS LP # C(A) = 37776
010516,000810: 11,7234 61771 AD SKEEP1 # C(A) = 37776
010517,000811: 11,7235 61772 AD SKEEP2 # C(A) = 37777
010518,000812: 11,7236 61773 AD SKEEP3 # C(A) = -0
010519,000813: 11,7237 61774 AD SKEEP4 # C(A) = +1
010520,000814: 11,7240 61775 AD SKEEP5 # C(A) = +1
010521,000815: 11,7241 06033 TC -ONECHK -1
010522,000816:
010523,000817: # DIVIDE INCREASING BIT POSITIONS BY 1/2 (13 DEVISIONS)
010524,000818: 11,7242 34516 DV2 CAF SCON1
010525,000819: 11,7243 51772 DV2LOOP TS SKEEP2
010526,000820: 11,7244 25777 EXTEND
010527,000821: 11,7245 54501 DV SCON1/2
010528,000822: 11,7246 51773 TS SKEEP3
010529,000823: 11,7247 60001 AD Q # Q = -0
010530,000824: 11,7250 50020 TS CYR
010531,000825: 11,7251 40020 CS CYR
010532,000826: 11,7252 61772 AD SKEEP2
010533,000827: 11,7253 60003 AD LP
010534,000828: 11,7254 06033 TC -ONECHK -1
010535,000829: 11,7255 41773 CS SKEEP3
010536,000830: 11,7256 60000 AD A
010537,000831: 11,7257 50000 TS A # OVERFLOW AT END OF DV2 SUBROUTINE
010538,000832: 11,7260 07262 TC +2
010539,000833: 11,7261 07265 TC DV3
010540,000834: 11,7262 31773 XCH SKEEP3
010541,000835: 11,7263 64516 AD SCON1
010542,000836: 11,7264 07243 TC DV2LOOP
010543,000837:
010544,000838: # DIVIDE SEPARATE DECREASING BIT POSITIONS BY 37777 (14DEVISIONS)
010545,000839: # AFTER C(A) = BEFORE C(A) AND AFTER C(Q) = -C(A)
010546,000840: 11,7265 44476 DV3 CS SCON+MAX
010547,000841: 11,7266 50020 TS CYR # C(CYR) = 20000
010548,000842: 11,7267 40020 DV3LOOP CS CYR
010549,000843: 11,7270 40000 CS A
010550,000844: 11,7271 25777 EXTEND
010551,000845: 11,7272 54476 DV SCON+MAX
010552,000846: 11,7273 51774 TS SKEEP4
010553,000847: 11,7274 60001 AD Q
010554,000848: 11,7275 06023 TC -ZEROCHK
010555,000849: 11,7276 11774 CCS SKEEP4
010556,000850: 11,7277 10000 CCS A
010557,000851: 11,7300 07267 TC DV3LOOP
010558,000852:
010559,000853: # DEVIDE 37776 BY 37776
010560,000854: # C(A) = +MAX FOR POSITIVE SIGN AND -MAX FOR NEGATIVE SIGN
010561,000855: # C(Q) = - ABSOLUTE VALUE OF DEVISOR = 40001
010562,000856: 11,7301 37175 DV4++ CAF DVCON1 # 37776
010563,000857: 11,7302 25777 EXTEND
010564,000858: 11,7303 57175 DV DVCON1 # C(A) = 37777 C(Q) = -37776
010565,000859: 11,7304 60001 AD Q
010566,000860: 11,7305 06033 TC -ONECHK -1
010567,000861: 11,7306 30003 XCH LP # C(LP) = +1
010568,000862: 11,7307 51775 TS SKEEP5
010569,000863: 11,7310 47175 CS DVCON1
010570,000864: 11,7311 51774 TS SKEEP4
010571,000865: 11,7312 37175 DV4+- CAF DVCON1
010572,000866: 11,7313 25777 EXTEND
010573,000867: 11,7314 51774 DV SKEEP4 # C(A) = 40000 C(Q) = -37776
010574,000868: 11,7315 40000 CS A
010575,000869: 11,7316 60001 AD Q
010576,000870: 11,7317 06033 TC -ONECHK -1
010577,000871: 11,7320 60003 AD LP # C(LP) = 40000
010578,000872: 11,7321 61775 AD SKEEP5
010579,000873: 11,7322 51775 TS SKEEP5 # -37776
010580,000874: 11,7323 47175 DV4-+ CS DVCON1
010581,000875: 11,7324 25777 EXTEND
010582,000876: 11,7325 57175 DV DVCON1 # C(A) = 40000 C(Q) = -37776
010583,000877: 11,7326 40000 CS A
010584,000878: 11,7327 60001 AD Q
010585,000879: 11,7330 06033 TC -ONECHK -1
010586,000880: 11,7331 40003 CS LP # C(LP) = 40001
010587,000881: 11,7332 61775 AD SKEEP5
010588,000882: 11,7333 51775 TS SKEEP5 # -0
010589,000883: 11,7334 47175 DV4-- CS DVCON1
010590,000884: 11,7335 51774 TS SKEEP4
010591,000885: 11,7336 25777 EXTEND
010592,000886: 11,7337 51774 DV SKEEP4 # C(A) = 37777 C(Q) = -37776
010593,000887: 11,7340 60001 AD Q
010594,000888: 11,7341 06033 TC -ONECHK -1
010595,000889: 11,7342 40003 CS LP # C(LP) = +1
010596,000890: 11,7343 61775 AD SKEEP5
010597,000891: 11,7344 06034 TC -ONECHK
010598,000892: 11,7345 10215 CCS NEWJOB
010599,000893: 11,7346 07364 TC DUMEXIT
010600,000894: 11,7347 11777 CCS SKEEP7
010601,000895: 11,7350 07352 TC +2
010602,000896: 11,7351 07354 TC SOPTION3 -3
010603,000897: 11,7352 51777 TS SKEEP7
010604,000898: 11,7353 07201 TC DV1++ # BACK TO DEVIDE LOOP
010605,000899:
010606,000900: 11,7354 31770 XCH SCOUNT +2 # ADD +1 TO SCOUNT +2 REGISTER AT THIS
010607,000901: 11,7355 64516 AD SCON1 # POINT OF SELF-CHECK
010608,000902: 11,7356 31770 XCH SCOUNT +2
010609,000903: 11,7357 11762 SOPTION3 CCS SMODE
010610,000904: 11,7360 07100 TC MPNMBRS # STAY IN MPNMBRS LOOP
010611,000905: 11,7361 03002 TC SMODECHK
010612,000906: 11,7362 03002 TC SMODECHK # SHOULD NOT COME HERE
010613,000907: 11,7363 03002 TC SMODECHK # END OF SELF-CHECK. START AGAIN
010614,000908:
010615,000909: 3001 BANK 1
010616,000910:
010617,000911:
010618,000912: # COMPUTER ACTIVITY LIGHT (GREEN LIGHT) MAINTENANCE.
010619,000913:
010620,000914: 3001 50015 TS BANKREG
010621,000915: 3002 10215 SMODECHK CCS NEWJOB # SEE IF ITS TIME FOR A CHANGE.
010622,000916: 3003 03011 TC DUMEXIT1
010623,000917:
010624,000918: 3004 11762 ADVAN CCS SMODE # SEE IF SELF-CHECK IS WANTED
010625,000919: 3005 06045 TC CCSCHK # YES PULSES ONLY
010626,000920: 3006 03001 TC SMODECHK -1
010627,000921: 3007 06045 TC CCSCHK # YES PULSES + SC + ERASABLE
010628,000922: 3010 06045 TC CCSCHK # YES ALL OF SELF-CHECK
010629,000923:
010630,000924: 3011 30001 DUMEXIT1 XCH Q
010631,000925: 3012 50115 TS QADRS
010632,000926: 3013 05720 TC POSTJUMP
010633,000927: 3014 23366 CADR DUMEXIT +2
010634,000928:
010635,000929: 11,7364 BANK 11
010636,000930: 11,7364 30001 DUMEXIT XCH Q
010637,000931: 11,7365 50115 TS QADRS # STORE RETURN ADDRESS
010638,000932: 11,7366 45503 CS TWO # TURN ON GREEN LIGHT (COMP ACT) AND
010639,000933: 11,7367 20017 INHINT
010640,000934: 11,7370 70011 MASK OUT1 # GO TO CHANG1.
010641,000935: 11,7371 65503 AD TWO
010642,000936: 11,7372 50011 TS OUT1
010643,000937: 11,7373 02101 TC CHANG1
010644,000938:
010645,000939: 11,7374 45503 DUMYJOB CS TWO # IDLING AGAIN- TURN OFF ACTIVITY LIGHT
010646,000940: 11,7375 20017 INHINT
010647,000941: 11,7376 70011 MASK OUT1 # LIGHT.
010648,000942: 11,7377 50011 TS OUT1
010649,000943: 11,7400 20016 RELINT
010650,000944: 11,7401 00115 TC QADRS # BACK TO CHECKING COMPUTER
010651,000945:
010652,000946: 11,7402 37405 DUMMYJOB CAF SMODECON # ENTER AT SMODECHK IF THERE IS A
010653,000947: 11,7403 50115 TS QADRS # FRESH START OR A GOJAM
010654,000948: 11,7404 07374 TC DUMYJOB
010655,000949: 11,7405 03006 SMODECON ADRES ADVAN +2
010656,000950:
010657,000951:
010658,000952: # C-RELAY TESTER
010659,000953:
010660,000954: 11,7406 34500 CCHK CAF BIT15
010661,000955: 11,7407 50723 TS DSPTAB +11D
010662,000956: 11,7410 50724 TS DSPTAB +12D
010663,000957: 11,7411 50725 TS DSPTAB +13D
010664,000958:
010665,000959: 11,7412 34510 CAF BIT7
010666,000960: 11,7413 20017 INHINT
010667,000961: 11,7414 02173 TC WAITLIST
010668,000962: 11,7415 23420 CADR CCHKA
010669,000963: 11,7416 37515 CAF LCCHKB
010670,000964: 11,7417 02127 TC JOBSLEEP
010671,000965:
010672,000966: 11,7420 37515 CCHKA CAF LCCHKB
010673,000967: 11,7421 02060 TC JOBWAKE
010674,000968: 11,7422 02256 TC TASKOVER
010675,000969:
010676,000970: 11,7423 35503 CCHKB CAF TWO
010677,000971: 11,7424 50115 TS MPAC
010678,000972:
010679,000973: 11,7425 33240 CAF TEN
010680,000974: 11,7426 50116 CCHK0 TS MPAC +1
010681,000975:
010682,000976: 11,7427 20000 INDEX A
010683,000977: 11,7430 34504 CAF BIT11
010684,000978: 11,7431 64500 AD BIT15
010685,000979: 11,7432 20115 INDEX MPAC
010686,000980: 11,7433 50723 TS DSPTAB +11D
010687,000981:
010688,000982: 11,7434 34507 CAF BIT8
010689,000983: 11,7435 20017 INHINT
010690,000984: 11,7436 02173 TC WAITLIST
010691,000985: 11,7437 23442 CADR CCHK1
010692,000986:
010693,000987: 11,7440 37516 CAF LCCHK2
010694,000988: 11,7441 02127 TC JOBSLEEP
010695,000989:
010696,000990: 11,7442 37516 CCHK1 CAF LCCHK2
010697,000991: 11,7443 02060 TC JOBWAKE
010698,000992: 11,7444 02256 TC TASKOVER
010699,000993:
010700,000994: 11,7445 30007 CCHK2 XCH IN3
010701,000995: 11,7446 10007 CCS IN3
010702,000996: 11,7447 07512 TC CCHKALM
010703,000997: 11,7450 07512 TC CCHKALM
010704,000998: 11,7451 07453 TC +2
010705,000999: 11,7452 07512 TC CCHKALM
010706,001000:
010707,001001: 11,7453 10116 CCS MPAC +1
010708,001002: 11,7454 07426 TC CCHK0
010709,001003:
010710,001004: 11,7455 34500 CAF BIT15 # TURN OFF LAST RELAY.
010711,001005: 11,7456 20115 INDEX MPAC
010712,001006: 11,7457 50723 TS DSPTAB +11D
010713,001007:
010714,001008: 11,7460 10115 CCS MPAC
010715,001009: 11,7461 07424 TC CCHK0 -2
010716,001010: 11,7462 34510 CAF BIT7
010717,001011: 11,7463 20017 INHINT
010718,001012: 11,7464 02173 TC WAITLIST
010719,001013: 11,7465 23470 CADR CCHKC
010720,001014: 11,7466 37520 CAF LCCHKD
010721,001015: 11,7467 02127 TC JOBSLEEP
010722,001016:
010723,001017: 11,7470 37520 CCHKC CAF LCCHKD
010724,001018: 11,7471 02060 TC JOBWAKE
010725,001019: 11,7472 02256 TC TASKOVER
010726,001020:
010727,001021: 11,7473 30007 CCHKD XCH IN3
010728,001022: 11,7474 10007 CCS IN3
010729,001023: 11,7475 07501 TC +4
010730,001024: 11,7476 07501 TC +3
010731,001025: 11,7477 07512 TC CCHKALM
010732,001026: 11,7500 07512 TC CCHKALM
010733,001027:
010734,001028: 11,7501 35362 CAF SEVEN
010735,001029: 11,7502 50117 TS MPAC +2
010736,001030: 11,7503 37517 CAF CCHKNV
010737,001031: 11,7504 03106 TC NVSUB
010738,001032: 11,7505 03323 TC PRENVBSY
010739,001033: 11,7506 03370 TSTOUT TC FREEDSP
010740,001034: 11,7507 02362 TC NEWMODE # REVERT TO MODE 00.
010741,001035: 11,7510 00000 OCT 0
010742,001036: 11,7511 02124 TC ENDOFJOB
010743,001037:
010744,001038: 11,7512 03015 CCHKALM TC ALARM
010745,001039: 11,7513 01104 OCT 1104
010746,001040: 11,7514 02124 TC ENDOFJOB
010747,001041:
010748,001042: 11,7515 23423 LCCHKB CADR CCHKB
010749,001043: 11,7516 23445 LCCHK2 CADR CCHK2
010750,001044: 11,7517 00101 CCHKNV OCT 00101
010751,001045: 11,7520 23473 LCCHKD CADR CCHKD
010752,001046:
010753,001047:
010754,001048: # DSKY TESTER
010755,001049:
010756,001050: 11,7521 33240 DCHECK CAF TEN
010757,001051: 11,7522 50115 DC9 TS MPAC
010758,001052: 11,7523 20115 INDEX MPAC
010759,001053: 11,7524 37630 CAF DSKYCODE
010760,001054: 11,7525 50116 TS MPAC +1
010761,001055: 11,7526 20017 INHINT
010762,001056: 11,7527 40000 COM
010763,001057: 11,7530 50721 TS DSPTAB +9D
010764,001058: 11,7531 43227 CS MID5
010765,001059: 11,7532 70116 MASK MPAC +1
010766,001060: 11,7533 40000 COM
010767,001061: 11,7534 50717 TS DSPTAB +7
010768,001062: 11,7535 44504 CS BIT11
010769,001063: 11,7536 70116 MASK MPAC +1
010770,001064: 11,7537 40000 COM
010771,001065: 11,7540 50710 TS DSPTAB
010772,001066: 11,7541 50711 TS DSPTAB +1
010773,001067: 11,7542 50712 TS DSPTAB +2
010774,001068: 11,7543 50713 TS DSPTAB +3
010775,001069: 11,7544 50714 TS DSPTAB +4
010776,001070: 11,7545 50715 TS DSPTAB +5
010777,001071: 11,7546 50716 TS DSPTAB +6
010778,001072: 11,7547 50720 TS DSPTAB +8D
010779,001073: 11,7550 50722 TS DSPTAB +10D
010780,001074: 11,7551 37643 CAF DCNOUT
010781,001075: 11,7552 50707 TS NOUT
010782,001076: 11,7553 34504 DCWAIT CAF BIT11 # 10.24 SEC WAIT
010783,001077: 11,7554 02173 TC WAITLIST
010784,001078: 11,7555 23560 CADR DC10
010785,001079: 11,7556 37644 CAF LDC11
010786,001080: 11,7557 02127 TC JOBSLEEP
010787,001081:
010788,001082: 11,7560 37644 DC10 CAF LDC11
010789,001083: 11,7561 02060 TC JOBWAKE
010790,001084: 11,7562 02256 TC TASKOVER
010791,001085:
010792,001086: 11,7563 10115 DC11 CCS MPAC
010793,001087: 11,7564 07522 TC DC9
010794,001088:
010795,001089: 11,7565 07567 TC +2
010796,001090: 11,7566 07600 TC DC+
010797,001091:
010798,001092: 11,7567 20017 INHINT
010799,001093: 11,7570 44373 CS 6K # - SIGNS.
010800,001094: 11,7571 50710 TS DSPTAB
010801,001095: 11,7572 50713 TS DSPTAB +3
010802,001096: 11,7573 50715 TS DSPTAB +5
010803,001097: 11,7574 50115 TS MPAC
010804,001098: 11,7575 34473 CAF THREE
010805,001099: 11,7576 50707 TS NOUT
010806,001100: 11,7577 07553 TC DCWAIT
010807,001101:
010808,001102: 11,7600 20017 DC+ INHINT
010809,001103: 11,7601 44373 CS 6K
010810,001104: 11,7602 50711 TS DSPTAB +1
010811,001105: 11,7603 50714 TS DSPTAB +4
010812,001106: 11,7604 50716 TS DSPTAB +6
010813,001107: 11,7605 44503 CS BIT12
010814,001108: 11,7606 50710 TS DSPTAB
010815,001109: 11,7607 50713 TS DSPTAB +3
010816,001110: 11,7610 50715 TS DSPTAB +5
010817,001111: 11,7611 34475 CAF SIX
010818,001112: 11,7612 50707 TS NOUT
010819,001113: 11,7613 33226 CAF LOW5
010820,001114: 11,7614 50011 TS OUT1 # TURNS ON DSKY LAMPS.
010821,001115: 11,7615 20016 RELINT
010822,001116: 11,7616 34506 CAF BIT9
010823,001117: 11,7617 50115 DC++ TS MPAC # KEEP GLIT ON FOR A WHILE.
010824,001118: 11,7620 34504 CAF BIT11 # LOOPS FOR ABOUT 40 MS.
010825,001119: 11,7621 10000 CCS A
010826,001120: 11,7622 07621 TC -1
010827,001121: 11,7623 10215 CCS NEWJOB
010828,001122: 11,7624 02101 TC CHANG1
010829,001123: 11,7625 10115 CCS MPAC
010830,001124: 11,7626 07617 TC DC++
010831,001125: 11,7627 07506 TC TSTOUT
010832,001126:
010833,001127: 11,7630 04000 DSKYCODE OCT 04000 # BLANKS
010834,001128: 11,7631 07265 OCT 07265 # 00
010835,001129: 11,7632 06143 OCT 06143 # 11
010836,001130: 11,7633 07471 OCT 07471 # 22
010837,001131: 11,7634 07573 OCT 07573 # 33
010838,001132: 11,7635 06757 OCT 06757 # 44
010839,001133: 11,7636 07736 OCT 07736 # 55
010840,001134: 11,7637 07634 OCT 07634 # 66
010841,001135: 11,7640 07163 OCT 07163 # 77
010842,001136: 11,7641 07675 OCT 07675 # 88
010843,001137: 11,7642 07777 OCT 07777 # 99
010844,001138: 11,7643 00013 DCNOUT DEC 11 B-14
010845,001139: 11,7644 23563 LDC11 CADR DC11
010846,001140:
010847,001141:
010848,001142: # ENGINE-ON PROGRAM FOLLOWING A +XXX.XX SECOND DELAY OF LESS THAN 2 MINUTES, ENGINE WILL REMAIN ON FOR +XXX.XX
010849,001143:
010850,001144: 11,7645 03310 BROKYPRG TC GRABDSP
010851,001145: 11,7646 03316 TC PREGBSY
010852,001146: 11,7647 34516 CAF ONE
010853,001147: 11,7650 51564 TS CUSSANG
010854,001148: 11,7651 37710 CAF V21N24G
010855,001149: 11,7652 03106 TC NVSUB
010856,001150: 11,7653 03323 TC PRENVBSY
010857,001151: 11,7654 03144 TC ENDIDLE
010858,001152: 11,7655 02124 TC ENDOFJOB
010859,001153: 11,7656 07651 TC -5
010860,001154: 11,7657 30616 XCH DSPTEM1
010861,001155: 11,7660 31460 XCH LONGTIME
010862,001156: 11,7661 30617 XCH DSPTEM1 +1
010863,001157: 11,7662 31461 XCH LONGTIME +1
010864,001158: 11,7663 51563 TS PLOW
010865,001159: 11,7664 11564 CCS CUSSANG
010866,001160: 11,7665 07650 TC BROKYPRG +3
010867,001161: 11,7666 31563 XCH PLOW
010868,001162: 11,7667 02173 TC WAITLIST
010869,001163: 11,7670 23673 CADR ENGNON
010870,001164: 11,7671 03370 TC FREEDSP
010871,001165: 11,7672 02124 TC ENDOFJOB
010872,001166: 11,7673 44502 ENGNON CS BIT13
010873,001167: 11,7674 70011 MASK OUT1
010874,001168: 11,7675 64502 AD BIT13
010875,001169: 11,7676 50011 TS OUT1
010876,001170: 11,7677 37711 CAF ENGOFLOC
010877,001171: 11,7700 51467 TS CALLCADR
010878,001172: 11,7701 05742 TC IBNKCALL
010879,001173: 11,7702 10552 CADR LONGCALL
010880,001174: 11,7703 02256 TC TASKOVER
010881,001175: 11,7704 44502 ENGNOFF CS BIT13
010882,001176: 11,7705 70011 MASK OUT1
010883,001177: 11,7706 50011 TS OUT1
010884,001178: 11,7707 02256 TC TASKOVER
010885,001179: 11,7710 02124 V21N24G OCT 02124
010886,001180: 11,7711 23704 ENGOFLOC CADR ENGNOFF
End of include-file AGC_SELF-CHECK.agc. Parent file is MAIN.agc