Source Code
|
These source-code files were transcribed from the Raytheon document "FINAL REPORT:
AUXILIARY MEMORY FOR APOLLO GUIDANCE COMPUTER CONTRACT NAS 9-5994". This code is
unique, in that it was written by Raytheon Corporation, rather than by the MIT
Instrumentation Laboratory, for the purpose of working with the prototype
Auxiliary Memory devices built by Raytheon, though never deployed in a mission.
The AGC software syntax differs slightly
from the more-usual AGC code, because Raytheon clearly had created their own assembler
instead of using the existing YUL or GAP assemblers. The report was obtained from Internet Archive mirrors of the NASA Technical Reports Server (NTRS). The report can be found here and the appendix containing the listing can be found here. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: SUPER JOB BY SUPER TEAM JAN 8, 1968 |
000251,000002: ## Copyright: Public domain.
000252,000003: ## Filename: MAIN.agc
000253,000004: ## Purpose: Part of the source code for SUPER JOB, a program developed
000254,000005: ## at Raytheon to exercise the Auxiliary Memory for the AGC.
000255,000006: ## It appears to have been developed from scratch, and shares
000256,000007: ## no heritage with any programs from MIT. It was also built
000257,000008: ## with a Raytheon assembler rather than YUL or GAP.
000258,000009: ## Reference: pp. D-4 - D-35
000259,000010: ## Assembler: yaYUL
000260,000011: ## Contact: Ron Burkey <info@sandroid.org>.
000261,000012: ## Website: https://www.ibiblio.org/apollo/index.html
000262,000013: ## Page Scans: http://www.ibiblio.org/apollo/Documents/R68-4125-Volume2.pdf
000263,000014: ## Mod history: 2017-01-27 MAS Created and transcribed, then corrected
000264,000015: ## errors until assembly succeeded. Octals
000265,000016: ## have not yet been extracted, so errors
000266,000017: ## almost certainly remain.
000267,000018: ## 2017-01-28 MAS Corrected errors found by counting lines
000268,000019: ## on each page (there should be 58).
000269,000020: ## 2017-01-29 MAS Fixed a few errors identified during
000270,000021: ## octal transcription.
000271,000022: ## 2017-01-30 MAS Fixed a transcription error in the octals
000272,000023: ## noticed while transcribing the inline
000273,000024: ## assembled octals. There are probably more
000274,000025: ## of those left, but for now the assembly
000275,000026: ## matches the binsource.
000276,000027: ## 2017-02-02 MAS Did a quick visual proofing pass over the
000277,000028: ## comments and fixed a few errors.
000278,000029: ## 2017-03-14 MAS Fixed a comment text typo.
000279,000030:
000280,000031: ## Page D-4 (continued)
000281,000032: 4000 SETLOC FF024000
000282,000033: 4000 00004 GOJAM INHINT # 4000
000283,000034: 4001 06017 TC GOJAMPR # 4001
000284,000035: 4002 00021 VBCDEL OCT 00021 # VERB CODE
000285,000036: 4003 00001 ONE OCT 00001
000286,000037: 4004 50017 T6RUPT RESUME # 4004
000287,000038: 4005 00000 ZERO OCT 00000
000288,000039: 4006 01010 D520 OCT 01010
000289,000040: 4007 50000 VBB OCT 50000 # CODE TO BLANK DSKY VERB
000290,000041: 4010 50017 T5RUPT RESUME # 4010
000291,000042: 4011 00030 THIRTY OCT 00030
000292,000043: 4012 00037 FIRST5 OCT 00037
000293,000044: 4013 00034 ENTRCDEL OCT 00034 # ENTER CODE
|
|
Page D-5 |
000295,000046: 4014 14444 T3RUPT TCF T3RPTPR # 4014
000296,000047: 4015 00002 TWO OCT 00002
000297,000048: 4016 00032 HGHTST+1 OCT 00032 # HIGHEST TEST +1
000298,000049: 4017 00360 BLANKNRL OCT 00360
000299,000050: 4020 14462 T4RUPT TCF T4RPTPR # 4020
000300,000051: 4021 00017 OC17 OCT 00017
000301,000052: 4022 00012 D10 OCT 00012
000302,000053: 4023 01740 CENTERL OCT 01740
000303,000054: 4024 14107 K1RUPT TCF KYPROC1L # 4024
000304,000055: 4025 00100 OPERCDL OCT 00100 # CODE FOR OPERATOR ERROR
000305,000056: 4026 00040 FLASHL OCT 00040
000306,000057: 4027 77737 NOFLASHL OCT 77737
000307,000058: 4030 14115 K2RUPT TCF KYPROC2L # 4030
000308,000059: 4031 07446 MDISPLA TC UPDISPLA # XFER TO DISPLAY FOR MIKE
000309,000060: 4032 05224 JMPTBL TC V01 # TURN ON ACM AND ATM
000310,000061: 4033 05321 TC V02 # TURN ON ACM
000311,000062: 4034 05362 TC V03 # TURN OFF ACM AND ATM
000312,000063: 4035 05411 TC V04 # TURN OFF ATM
000313,000064: 4036 05435 TC V05 # TURN ATM FROM ON TO STANDBY
000314,000065: 4037 05504 TC V0607 # DSKY DEMONSTRATION NO ERRORS
000315,000066: 4040 05504 TC V0607 # DSKY DEMONSTRATION CORRECTABLE
000316,000067: 4041 05510 TC V08 # UNCORRECTABLE ERROR LOCATION 3000
000317,000068: 4042 05523 TC V09 # 4 BANKS WITH SUM CHECK
000318,000069: 4043 07346 TC V10 # CORRECTABLE ERRORS
000319,000070: 4044 05526 TC V11 # SHORT TAPE BANK
000320,000071: 4045 05531 TC V12 # LONG TAPE BANK
000321,000072: 4046 05534 TC V13 # NONEXISTENT TAPE BANK
000322,000073: 4047 07032 TC V14 # SINGLE BANK TRIPLEX
000323,000074: 4050 07040 TC V15 # SINGLE BANK SIMPLEX
000324,000075: 4051 07301 TC V16 # 4 BK XFER WITH 1 BK REWRITE
000325,000076: 4052 05537 TC V17 # AM PARITY GOJAM
000326,000077: 4053 04471 TC V18 # GENERATE TC TRAP GOJAM
000327,000078: 4054 04475 TC V19 # GENERATE RUPTLOC GOJAM
000328,000079: 4055 04501 TC V20 # GENERATE NWATCH GOJAM
000329,000080: 4056 07617 TC V21 # MU 4 4000 WORD PROGRAM
000330,000081: 4057 07623 TC V22 # PAC TO MU4 TO MU5 TO ATM TO MU5 CHK
000331,000082: 4060 04060 TC +0 # V23
000332,000083: 4061 04061 TC +0 # V24
000333,000084: 4062 04062 TC +0 # V25
000334,000085: 4063 52025 VB0F OCT 52025 # CODE FOR 0 LEAST SIG DIGIT
000335,000086: 4064 52003 OCT 52003 # CODE FOR 1 LEAST SIG DIGIT
000336,000087: 4065 52031 OCT 52031 # CODE FOR 2 LEAST SIG DIGIT
000337,000088: 4066 52033 OCT 52033 # CODE FOR 3 LEAST SIG DIGIT
000338,000089: 4067 52017 OCT 52017 # CODE FOR 4 LEAST SIG DIGIT
000339,000090: 4070 52036 OCT 52036 # CODE FOR 5 LEAST SIG DIGIT
000340,000091: 4071 52034 OCT 52034 # CODE FOR 6 LEAST SIG DIGIT
000341,000092: 4072 52023 OCT 52023 # CODE FOR 7 LEAST SIG DIGIT
000342,000093: 4073 52035 OCT 52035 # CODE FOR 8 LEAST SIG DIGIT
000343,000094: 4074 52037 OCT 52037 # CODE FOR 9 LEAST SIG DIGIT
000344,000095: 4075 53240 V0BF OCT 53240 # CODE FOR 0 MOST SIG DIGIT
000345,000096: 4076 52140 OCT 52140 # CODE FOR 1 MOST SIG DIGIT
000346,000097: 4077 53440 OCT 53440 # CODE FOR 2 MOST SIG DIGIT
000347,000098: 4100 53540 OCT 53540 # CODE FOR 3 MOST SIG DIGIT
000348,000099: 4101 52740 OCT 52740 # CODE FOR 4 MOST SIG DIGIT
000349,000100: 4102 53700 OCT 53700 # CODE FOR 5 MOST SIG DIGIT
000350,000101: 4103 53600 OCT 53600 # CODE FOR 6 MOST SIG DIGIT
000351,000102: 4104 53140 OCT 53140 # CODE FOR 7 MOST SIG DIGIT
000352,000103: 4105 53640 OCT 53640 # CODE FOR 8 MOST SIG DIGIT
|
|
Page D-6 |
000354,000105: 4106 53740 OCT 53740 # CODE FOR 9 MOST SIG DIGIT
000355,000106: 4107 52011 KYPROC1L DXCH ARUPT # START PROCESSING MAIN DSKY
000356,000107: 4110 00006 EXTEND
000357,000108: 4111 22012 QXCH QRUPT
000358,000109: 4112 00006 EXTEND
000359,000110: 4113 00015 READ CH15
000360,000111: 4114 04122 TC PROCL
000361,000112: 4115 52011 KYPROC2L DXCH ARUPT # START PROCESSING NAV DSKY
000362,000113: 4116 00006 EXTEND
000363,000114: 4117 22012 QXCH QRUPT
000364,000115: 4120 00006 EXTEND
000365,000116: 4121 00016 READ CH16
000366,000117: 4122 74012 PROCL MSK FIRST5
000367,000118: 4123 54110 TS TEMP1L # STORE DSKY OUTPUT CODE
000368,000119: 4124 40110 CS TEMP1L
000369,000120: 4125 64321 AD ERRSTL # ERROR RESET CODE
000370,000121: 4126 10000 CCS A # WAS ERROR RESET HIT+
000371,000122: 4127 04135 TC +6 # NO
000372,000123: 4130 06000 TC MERR
000373,000124: 4131 04135 TC +4 # NO
000374,000125: 4132 30007 CA ZEROS # YES
000375,000126: 4133 54166 TS SWITCH
000376,000127: 4134 04171 TC PRERSTL
000377,000128: 4135 40110 CS TEMP1L
000378,000129: 4136 64002 AD VBCDEL # VERB CODE
000379,000130: 4137 10000 CCS A # WAS VERB HIT
000380,000131: 4140 04204 TC NONVERBL # NO
000381,000132: 4141 06000 TC MERR # NO
000382,000133: 4142 04204 TC NONVERBL # NO
000383,000134: 4143 30007 CA ZEROS # YES
000384,000135: 4144 54166 TS SWITCH
000385,000136: 4145 00006 EXTEND
000386,000137: 4146 00027 READ CH27 # CLEAR CONIN
000387,000138: 4147 36110 CA FEXTA # LOAD BITS 7 AND 6 IN FEXT
000388,000139: 4150 00006 EXTEND
000389,000140: 4151 01007 WRITE CH7
000390,000141: 4152 34003 CA ONE
000391,000142: 4153 54114 TS VERBFFL
000392,000143: 4154 34005 CA ZERO
000393,000144: 4155 54115 TS VERBREGL # CLEAR TEST NO
000394,000145: 4156 54107 TS ZZTAG
000395,000146: 4157 54106 TS DCNTL # CLEAR DIGIT COUNTER
000396,000147: 4160 34007 VBBLNK CA VBB
000397,000148: 4161 00006 EXTEND
000398,000149: 4162 01010 WRITE CH10 # BLANKS VERB ON DSKY
000399,000150: 4163 34006 CH10RST CA D520 # START OF 20MS DELAY TO CLEAR CH 10
000400,000151: 4164 10000 CCS A
000401,000152: 4165 04164 TC -1 # ACC IS NOT ZERO
000402,000153: 4166 00006 EXTEND # ACC IS ZERO
000403,000154: 4167 01010 WRITE CH10 # CLEAR CH 10
000404,000155: 4170 04454 TC RETURNL
000405,000156: 4171 34005 PRERSTL CA ZERO # ERROR RESET FROM DSKY
000406,000157: 4172 54115 TS VERBREGL
000407,000158: 4173 54114 TS VERBFFL
000408,000159: 4174 54106 TS DCNTL
000409,000160: 4175 54107 TS ZZTAG
000410,000161: 4176 00006 EXTEND # TURNS FLASH OFF
000411,000162: 4177 00011 READ CH11
|
|
Page D-7 |
000413,000164: 4200 74320 MSK OUTCOML
000414,000165: 4201 00006 EXTEND
000415,000166: 4202 01011 WRITE CH11
000416,000167: 4203 04160 TC VBBLNK
000417,000168: 4204 44003 NONVERBL CS ONE
000418,000169: 4205 60107 AD ZZTAG
000419,000170: 4206 10000 CCS A
000420,000171: 4207 04213 TC +4
000421,000172: 4210 04213 TC +3
000422,000173: 4211 04213 TC +2
000423,000174: 4212 07404 TC ZZPROC
000424,000175: 4213 10114 CCS VERBFFL # HAD VERB PREVIOUSLY BEEN HIT
000425,000176: 4214 04220 TC +4 # YES
000426,000177: 4215 04435 TC OPERROR # NO
000427,000178: 4216 04435 TC OPERROR # NO
000428,000179: 4217 04435 TC OPERROR # NO
000429,000180: 4220 40110 CS TEMP1L
000430,000181: 4221 74011 MSK THIRTY
000431,000182: 4222 10000 CCS A # WAS A DIGIT HIT+
000432,000183: 4223 04366 TC PROCDIGT # YES
000433,000184: 4224 40110 CS TEMP1L # NO
000434,000185: 4225 64013 AD ENTRCDEL
000435,000186: 4226 10000 CCS A # WAS ENTER HIT+
000436,000187: 4227 04435 TC OPERROR # NO
000437,000188: 4230 04435 TC OPERROR # NO
000438,000189: 4231 04435 TC OPERROR # NO
000439,000190: 4232 40106 CS DCNTL # YES
000440,000191: 4233 64015 AD TWO
000441,000192: 4234 10000 CCS A # WERE TWO DIGITS PREVIOUSLY HIT+
000442,000193: 4235 04435 TC OPERROR # NO
000443,000194: 4236 04435 TC OPERROR # NO
000444,000195: 4237 04435 TC OPERROR # NO
000445,000196: 4240 10115 CCS VERBREGL # YES WAS V00 HIT
000446,000197: 4241 04244 TC +3 # NO
000447,000198: 4242 24107 INCR ZZTAG # YES
000448,000199: 4243 07363 TC V00PROC
000449,000200: 4244 44016 CS HGHTST+1
000450,000201: 4245 60115 AD VERBREGL
000451,000202: 4246 10000 CCS A # IS VERB CODE LEGAL+
000452,000203: 4247 04435 TC OPERROR # NO
000453,000204: 4250 06000 TC MERR
000454,000205: 4251 04253 TC +2 # YES
000455,000206: 4252 04435 TC OPERROR # NO
000456,000207: 4253 00006 EXTEND
000457,000208: 4254 00011 READ CH11
000458,000209: 4255 74027 MASK NOFLASHL
000459,000210: 4256 00006 EXTEND
000460,000211: 4257 01011 WRITE CH11 # TURNS FLASH OFF
000461,000212: 4260 34005 CA ZERO
000462,000213: 4261 54106 TS DCNTL
000463,000214: 4262 54114 TS VERBFFL
000464,000215: 4263 34017 CA BLANKNRL
000465,000216: 4264 54071 TS STATUS
000466,000217: 4265 50115 NDX VERBREGL
000467,000218: 4266 34031 CA JMPTBL -1
000468,000219: 4267 54017 TS BRUPT
000469,000220: 4270 05146 TC AMSTAT
000470,000221: 4271 50115 INDEX VERBREGL
|
|
Page D-8 |
000472,000223: 4272 34275 CA STARTBLE -6
000473,000224: 4273 54120 TS IDSTARTL # GET IDSTART
000474,000225: 4274 50115 INDEX VERBREGL
000475,000226: 4275 34316 CA STOPTBLE -6
000476,000227: 4276 54121 TS IDSTOPL # GET IDSTOP
000477,000228: 4277 50115 INDEX VERBREGL
000478,000229: 4300 34337 CA CH25TBLE -6
000479,000230: 4301 54124 TS CH25LOAD # GET CONOUT TO BE LOADED IN REGISTER
000480,000231: 4302 50017 RESUME
000481,000232: 4303 00024 STARTBLE OCT 00024 # START TABLE V06
000482,000233: 4304 04025 OCT 04025 # V07
000483,000234: 4305 10026 OCT 10026 # V08
000484,000235: 4306 14124 OCT 14124 # V09
000485,000236: 4307 20024 OCT 20024 # V10
000486,000237: 4310 24025 OCT 24025 # V11
000487,000238: 4311 30026 OCT 30026 # V12
000488,000239: 4312 34127 OCT 34127
000489,000240: 4313 40001 OCT 40001 # V14
000490,000241: 4314 50000 OCT 50000 # V15
000491,000242: 4315 40001 OCT 40001 # V16
000492,000243: 4316 37774 4TOGO OCT 37774
000493,000244: 4317 37716 50TOGO OCT 37716
000494,000245: 4320 00400 OUTCOML OCT 00400
000495,000246: 4321 00022 ERRSTL OCT 00022 # ERROR RESET CODE
000496,000247: 4322 14020 OCT 14020 # V21
000497,000248: 4323 51005 OCT 51005 # V22
000498,000249: 4324 00000 STOPTBLE OCT 00000 # STOP TABLE V06
000499,000250: 4325 00000 OCT 00000 # V07
000500,000251: 4326 00000 OCT 00000 # V08
000501,000252: 4327 00030 OCT 00030 # V09
000502,000253: 4330 00000 OCT 00000 # V10
000503,000254: 4331 00000 OCT 00000 # V11
000504,000255: 4332 00000 OCT 00000 # V12
000505,000256: 4333 00000 OCT 00000 # V13
000506,000257: 4334 00006 OCT 00006 # V14
000507,000258: 4335 00006 OCT 00006 # V15
000508,000259: 4336 00000 OCT 00000 # V16
000509,000260: 4337 77777 ALL7SL OCT 77777
000510,000261: 4340 66666 ALL6SL OCT 66666
000511,000262: 4341 00037 MASKAA OCT 37
000512,000263: 4342 00012 NUMAA OCT 12
000513,000264: 4343 00024 OCT 00024 # V21
000514,000265: 4344 00000 OCT 00000 # V22
000515,000266: 4345 02000 CH25TBLE OCT 02000 # CH 25 LOAD TABLE V06
000516,000267: 4346 02000 OCT 02000 # V07
000517,000268: 4347 02000 OCT 02000 # V08
000518,000269: 4350 02000 OCT 02000 # V09
000519,000270: 4351 02000 OCT 02000 # V10
000520,000271: 4352 02000 OCT 02000 # V11
000521,000272: 4353 02000 OCT 02000 # V12
000522,000273: 4354 02000 OCT 02000 # V13
000523,000274: 4355 03000 OCT 03000 # V14
000524,000275: 4356 03400 OCT 03400 # V15
000525,000276: 4357 03000 OCT 03000 # V16
000526,000277: 4360 00007 MASKBA OCT 7
000527,000278: 4361 01740 MASKCA OCT 1740
000528,000279: 4362 01053 TIMAA OCT 1053
000529,000280: 4363 04254 TIMBA OCT 4254
|
|
Page D-9 |
000531,000282: 4364 02000 OCT 02000 # V21
000532,000283: 4365 03000 OCT 03000 # V22
000533,000284: 4366 44003 PROCDIGT CS ONE
000534,000285: 4367 60106 AD DCNTL
000535,000286: 4370 10000 CCS A # HOW MANY DIGITS HAVE BEEN HIT
000536,000287: 4371 04435 TC OPERROR # 3
000537,000288: 4372 06000 TC MERR
000538,000289: 4373 04414 TC FRSTDIG # 1
000539,000290: 4374 24106 INCR DCNTL # 2
000540,000291: 4375 30110 CA TEMP1L
000541,000292: 4376 74021 MSK OC17
000542,000293: 4377 54115 TS VERBREGL # STORE 2ND DIGIT
000543,000294: 4400 50000 NDX A
000544,000295: 4401 34063 CA VB0F
000545,000296: 4402 60111 AD TEMP2L
000546,000297: 4403 00006 EXTEND
000547,000298: 4404 01010 WRITE CH10 # SENDS BOTH DIGITS TO DSKY
000548,000299: 4405 54113 TS TEMP4L
000549,000300: 4406 30112 CA TEMP3L
000550,000301: 4407 00006 EXTEND
000551,000302: 4410 74022 MP D10
000552,000303: 4411 30001 CA L
000553,000304: 4412 26115 ADS VERBREGL
000554,000305: 4413 04163 TC CH10RST
000555,000306: 4414 30110 FRSTDIG CA TEMP1L
000556,000307: 4415 74021 MSK OC17
000557,000308: 4416 54112 TS TEMP3L
000558,000309: 4417 50000 NDX A
000559,000310: 4420 34075 CA V0BF
000560,000311: 4421 00006 EXTEND
000561,000312: 4422 01010 WRITE CH10
000562,000313: 4423 74023 MSK CENTERL
000563,000314: 4424 54111 TS TEMP2L
000564,000315: 4425 24106 INCR DCNTL
000565,000316: 4426 00006 EXTEND # TURNS FLASH ON
000566,000317: 4427 00011 READ CH11
000567,000318: 4430 74027 MSK NOFLASHL
000568,000319: 4431 64026 AD FLASHL
000569,000320: 4432 00006 EXTEND
000570,000321: 4433 01011 WRITE CH11
000571,000322: 4434 04163 TC CH10RST
000572,000323: 4435 35462 OPERROR CA COMOUT
000573,000324: 4436 00006 EXTEND
000574,000325: 4437 02011 RAND CH11
000575,000326: 4440 64025 AD OPERCDL
000576,000327: 4441 00006 EXTEND
000577,000328: 4442 01011 WRITE CH11
000578,000329: 4443 04454 TC RETURNL
000579,000330: 4444 52011 T3RPTPR DXCH ARUPT
000580,000331: 4445 00006 EXTEND
000581,000332: 4446 22012 QXCH QRUPT
000582,000333: 4447 34316 CA 4TOGO
000583,000334: 4450 54026 TS TIME3
000584,000335: 4451 54031 TS TIME6
000585,000336: 4452 34005 CA ZERO
000586,000337: 4453 54030 TS TIME5
000587,000338: 4454 52011 RETURNL DXCH ARUPT
000588,000339: 4455 00006 EXTEND
|
|
Page D-10 |
000590,000341: 4456 22012 QXCH QRUPT
000591,000342: 4457 50017 RESUME
000592,000343: 4460 05146 IDLE TC AMSTAT
000593,000344: 4461 04460 TC -1
000594,000345: 4462 52011 T4RPTPR DXCH ARUPT
000595,000346: 4463 00006 EXTEND
000596,000347: 4464 22012 QXCH QRUPT
000597,000348: 4465 34317 CA 50TOGO
000598,000349: 4466 54027 TS TIME4
000599,000350: 4467 30067 CA NWATCH
000600,000351: 4470 04454 TC RETURNL
000601,000352: 4471 04506 V18 TC DISPLAY # GENERATES TC TRAP GOJAM
000602,000353: 4472 34005 CA ZERO
000603,000354: 4473 00000 TC A
000604,000355: 4474 00000 TC A
000605,000356: 4475 04506 V19 TC DISPLAY # GENERATES RUPTLOC GOJAM
000606,000357: 4476 00004 INHINT
000607,000358: 4477 30000 CA A
000608,000359: 4500 04477 TC -1
000609,000360: 4501 04506 V20 TC DISPLAY # GENERATES NWATCH GOJAM
000610,000361: 4502 34005 CA ZERO
000611,000362: 4503 54027 TS TIME4
000612,000363: 4504 30000 CA A
000613,000364: 4505 04504 TC -1
000614,000365: # * STATUS WORD FOR DISPLAY
000615,000366: # * 9 8 7 6 5 4 3 2 1
000616,000367: # * BLK NOUN BLK R1 R2 R3 UPDATE NOUN R1 R2 R3
000617,000368: 4506 30002 DISPLAY CA Q
000618,000369: 4507 54070 TS QSTORE
000619,000370: 4510 30071 CA STATUS
000620,000371: 4511 74712 MASK MASKA
000621,000372: 4512 10000 CCS A
000622,000373: 4513 04605 TC BLANKNA # BLANK NOUN
000623,000374: 4514 34712 CA MASKA
000624,000375: 4515 54020 TS CYR
000625,000376: 4516 30020 CA CYR
000626,000377: 4517 54076 TS TMASKA
000627,000378: 4520 30071 CA STATUS
000628,000379: 4521 70076 MASK TMASKA
000629,000380: 4522 10000 CCS A
000630,000381: 4523 04613 TC BLANKR1A # BLANK R1
000631,000382: 4524 30076 CA TMASKA # TMASKA CONTAINS LAST CONTENTS OF CYR
000632,000383: 4525 54020 TS CYR # RESTORE CYR
000633,000384: 4526 30020 CA CYR
000634,000385: 4527 54076 TS TMASKA
000635,000386: 4530 30071 CA STATUS
000636,000387: 4531 70076 MASK TMASKA
000637,000388: 4532 10000 CCS A
000638,000389: 4533 04625 TC BLANKR2A # BLANK R2
000639,000390: 4534 30076 CA TMASKA # TMASKA CONTAINS LAST CONTENTS OF CYR
000640,000391: 4535 54020 TS CYR # RESTORE CYR
000641,000392: 4536 30020 CA CYR
000642,000393: 4537 54076 TS TMASKA
000643,000394: 4540 30071 CA STATUS
000644,000395: 4541 70076 MASK TMASKA
000645,000396: 4542 10000 CCS A
000646,000397: 4543 04653 TC BLANKR3A # BLANK R3
000647,000398: 4544 30076 CA TMASKA # TMASKA CONTAINS LAST CONTENTS OF CYR
|
|
Page D-11 |
000649,000400: 4545 54020 TS CYR # RESTORE CYR
000650,000401: 4546 30020 CA CYR
000651,000402: 4547 54076 TS TMASKA
000652,000403: 4550 30071 CA STATUS
000653,000404: 4551 70076 MASK TMASKA
000654,000405: 4552 10000 CCS A
000655,000406: 4553 04736 TC UPDATENA # UPDATE NOUN
000656,000407: 4554 30076 CA TMASKA # TMASKA CONTAINS LAST CONTENTS OF CYR
000657,000408: 4555 54020 TS CYR # RESTORE CYR
000658,000409: 4556 30020 CA CYR
000659,000410: 4557 54076 TS TMASKA
000660,000411: 4560 30071 CA STATUS
000661,000412: 4561 70076 MASK TMASKA
000662,000413: 4562 10000 CCS A
000663,000414: 4563 04746 TC UPDATE1A # UPDATE R1
000664,000415: 4564 30076 CA TMASKA # TMASKA CONTAINS LAST CONTENTS OF CYR
000665,000416: 4565 54020 TS CYR # RESTORE CYR
000666,000417: 4566 30020 CA CYR
000667,000418: 4567 54076 TS TMASKA
000668,000419: 4570 30071 CA STATUS
000669,000420: 4571 70076 MASK TMASKA
000670,000421: 4572 10000 CCS A
000671,000422: 4573 04774 TC UPDATE2A # UPDATE R2
000672,000423: 4574 30076 CA TMASKA # TMASKA CONTAINS LAST CONTENTS OF CYR
000673,000424: 4575 54020 TS CYR # RESTORE CYR
000674,000425: 4576 30020 CA CYR
000675,000426: 4577 54076 TS TMASKA
000676,000427: 4600 30071 CA STATUS
000677,000428: 4601 70076 MASK TMASKA
000678,000429: 4602 10000 CCS A
000679,000430: 4603 05052 TC UPDATE3A # UPDATE R3
000680,000431: 4604 00070 TC QSTORE
000681,000432: 4605 30002 BLANKNA CA Q
000682,000433: 4606 54077 TS RESUMEA
000683,000434: 4607 30007 CA ZEROS
000684,000435: 4610 64713 AD ADDRESSA
000685,000436: 4611 04677 TC WRITEBA
000686,000437: 4612 00077 TC RESUMEA
000687,000438: 4613 30002 BLANKR1A CA Q
000688,000439: 4614 54077 TS RESUMEA
000689,000440: 4615 30007 CA ZEROS
000690,000441: 4616 64714 AD ADDRESSA +1
000691,000442: 4617 04677 TC WRITEBA
000692,000443: 4620 64715 AD ADDRESSA +2
000693,000444: 4621 04677 TC WRITEBA
000694,000445: 4622 64716 AD ADDRESSA +3
000695,000446: 4623 04677 TC WRITEBA
000696,000447: 4624 00077 TC RESUMEA
000697,000448: 4625 30002 BLANKR2A CA Q
000698,000449: 4626 54077 TS RESUMEA
000699,000450: 4627 30007 CA ZEROS
000700,000451: 4630 64717 AD ADDRESSA +4
000701,000452: 4631 04677 TC WRITEBA
000702,000453: 4632 64720 AD ADDRESSA +5
000703,000454: 4633 04677 TC WRITEBA
000704,000455: 4634 30075 CA R3
000705,000456: 4635 54020 TS CYR
000706,000457: 4636 34342 CA NUMAA
|
|
Page D-12 |
000708,000459: 4637 54105 AAA TS NUMA # SET NUMA EQUAL TO NUMAA FOR CCS E
000709,000460: 4640 30020 CA CYR # SHIFT ONCE PLUS NUMA TIMES
000710,000461: 4641 10105 CCS NUMA
000711,000462: 4642 04637 TC AAA
000712,000463: 4643 30020 CA CYR # SHIFT ONE POSITION
000713,000464: 4644 74360 MASK MASKBA
000714,000465: 4645 50000 INDEX A
000715,000466: 4646 34724 CA LOOKUPA
000716,000467: 4647 74341 MASK MASKAA
000717,000468: 4650 64721 AD ADDRESSA +6
000718,000469: 4651 04677 TC WRITEBA
000719,000470: 4652 00077 TC RESUMEA
000720,000471: 4653 30002 BLANKR3A CA Q
000721,000472: 4654 54077 TS RESUMEA
000722,000473: 4655 30071 CA STATUS
000723,000474: 4656 75145 MASK MASKR2CA # IS R2 BLANK
000724,000475: 4657 10000 CCS A
000725,000476: 4660 04675 TC BLKR2R3A # R2 IS BLANK
000726,000477: 4661 30074 CA R2 # R2 IS NOT BLANK
000727,000478: 4662 74360 MASK MASKBA
000728,000479: 4663 50000 INDEX A
000729,000480: 4664 34724 CA LOOKUPA
000730,000481: 4665 74361 MASK MASKCA
000731,000482: 4666 64721 CCA AD ADDRESSA +6 # 14000
000732,000483: 4667 04677 TC WRITEBA
000733,000484: 4670 64722 AD ADDRESSA +7
000734,000485: 4671 04677 TC WRITEBA
000735,000486: 4672 64723 AD ADDRESSA +8
000736,000487: 4673 04677 TC WRITEBA
000737,000488: 4674 00077 TC RESUMEA
000738,000489: 4675 30007 BLKR2R3A CA ZEROS # BOTH BLANK
000739,000490: 4676 04666 TC CCA
000740,000491: 4677 00006 WRITEBA EXTEND
000741,000492: 4700 01010 WRITE CH10
000742,000493: 4701 34362 CA TIMAA # 20MS DELAY
000743,000494: 4702 10000 CCS A
000744,000495: 4703 14702 TCF -1
000745,000496: 4704 00006 EXTEND
000746,000497: 4705 01010 WRITE CH10
000747,000498: 4706 34363 CA TIMBA # 100MS DELAY
000748,000499: 4707 10000 CCS A
000749,000500: 4710 14707 TCF -1
000750,000501: 4711 00002 TC Q
000751,000502: 4712 00200 MASKA OCT 200
000752,000503: 4713 44000 ADDRESSA OCT 44000
000753,000504: 4714 40000 OCT 40000
000754,000505: 4715 34000 OCT 34000
000755,000506: 4716 30000 OCT 30000
000756,000507: 4717 24000 OCT 24000
000757,000508: 4720 20000 OCT 20000
000758,000509: 4721 14000 OCT 14000
000759,000510: 4722 10000 OCT 10000
000760,000511: 4723 04000 OCT 4000
000761,000512: 4724 01265 LOOKUPA OCT 1265 # 00
000762,000513: 4725 00143 OCT 143 # 11
000763,000514: 4726 01471 OCT 1471 # 22
000764,000515: 4727 01573 OCT 1573 # 33
000765,000516: 4730 00757 OCT 757 # 44
|
|
Page D-13 |
000767,000518: 4731 01736 OCT 1736 # 55
000768,000519: 4732 01634 OCT 1634 # 66
000769,000520: 4733 01163 OCT 1163 # 77
000770,000521: 4734 01675 OCT 1675 # 88
000771,000522: 4735 01777 OCT 1777 # 99
000772,000523: 4736 30002 UPDATENA CA Q
000773,000524: 4737 54077 TS RESUMEA
000774,000525: 4740 30072 CA NOUN
000775,000526: 4741 54101 TS ITA
000776,000527: 4742 34713 CA ADDRESSA
000777,000528: 4743 54102 TS ADDERA
000778,000529: 4744 05117 TC ROUTINA
000779,000530: 4745 00077 TC RESUMEA
000780,000531: 4746 30002 UPDATE1A CA Q
000781,000532: 4747 54077 TS RESUMEA
000782,000533: 4750 30073 CA R1
000783,000534: 4751 54101 TS ITA
000784,000535: 4752 34716 CA ADDRESSA +3
000785,000536: 4753 54102 TS ADDERA
000786,000537: 4754 05117 TC ROUTINA
000787,000538: 4755 30020 CA CYR
000788,000539: 4756 30020 CA CYR
000789,000540: 4757 30020 CA CYR
000790,000541: 4760 54101 TS ITA
000791,000542: 4761 34715 CA ADDRESSA +2
000792,000543: 4762 54102 TS ADDERA
000793,000544: 4763 05117 TC ROUTINA
000794,000545: 4764 30020 CA CYR
000795,000546: 4765 30020 CA CYR
000796,000547: 4766 30020 CA CYR
000797,000548: 4767 54101 TS ITA
000798,000549: 4770 34714 CA ADDRESSA +1
000799,000550: 4771 54102 TS ADDERA
000800,000551: 4772 05117 TC ROUTINA
000801,000552: 4773 00077 TC RESUMEA
000802,000553: 4774 30002 UPDATE2A CA Q
000803,000554: 4775 54077 TS RESUMEA
000804,000555: 4776 30007 CA ZEROS
000805,000556: 4777 54103 TS TEMPA
000806,000557: 5000 30071 CA STATUS
000807,000558: 5001 75144 MASK MASKR3CA # IS R3 BLANK+
000808,000559: 5002 10000 CCS A
000809,000560: 5003 05021 TC PART2A
000810,000561: 5004 30075 CA R3
000811,000562: 5005 54020 TS CYR
000812,000563: 5006 34342 CA NUMAA
000813,000564: 5007 54105 BBA TS NUMA # SET NUMA EQUAL TO NUMAA FOR CCS E
000814,000565: 5010 30020 CA CYR # SHIFT ONCE PLUS NUMA TIMES
000815,000566: 5011 10105 CCS NUMA
000816,000567: 5012 05007 TC BBA
000817,000568: 5013 30020 CA CYR # SHIFT ONE POSITION
000818,000569: 5014 74360 MASK MASKBA
000819,000570: 5015 50000 INDEX A
000820,000571: 5016 34724 CA LOOKUPA
000821,000572: 5017 74341 MASK MASKAA
000822,000573: 5020 54103 TS TEMPA
000823,000574: 5021 30074 PART2A CA R2
000824,000575: 5022 74360 MASK MASKBA
|
|
Page D-14 |
000826,000577: 5023 50000 INDEX A
000827,000578: 5024 34724 CA LOOKUPA
000828,000579: 5025 74361 MASK MASKCA
000829,000580: 5026 60103 AD TEMPA
000830,000581: 5027 64721 AD ADDRESSA +6
000831,000582: 5030 04677 TC WRITEBA
000832,000583: 5031 30074 CA R2
000833,000584: 5032 54020 TS CYR
000834,000585: 5033 30020 CA CYR
000835,000586: 5034 30020 CA CYR
000836,000587: 5035 30020 CA CYR
000837,000588: 5036 54101 TS ITA
000838,000589: 5037 34720 CA ADDRESSA +5
000839,000590: 5040 54102 TS ADDERA
000840,000591: 5041 05117 TC ROUTINA
000841,000592: 5042 30020 CA CYR
000842,000593: 5043 30020 CA CYR
000843,000594: 5044 30020 CA CYR
000844,000595: 5045 54101 TS ITA
000845,000596: 5046 34717 CA ADDRESSA +4
000846,000597: 5047 54102 TS ADDERA
000847,000598: 5050 05117 TC ROUTINA
000848,000599: 5051 00077 TC RESUMEA
000849,000600: 5052 30002 UPDATE3A CA Q
000850,000601: 5053 54077 TS RESUMEA
000851,000602: 5054 30075 CA R3
000852,000603: 5055 54101 TS ITA
000853,000604: 5056 34723 CA ADDRESSA +8
000854,000605: 5057 54102 TS ADDERA
000855,000606: 5060 05117 TC ROUTINA
000856,000607: 5061 30020 CA CYR
000857,000608: 5062 30020 CA CYR
000858,000609: 5063 30020 CA CYR
000859,000610: 5064 54101 TS ITA
000860,000611: 5065 34722 CA ADDRESSA +7
000861,000612: 5066 54102 TS ADDERA
000862,000613: 5067 05117 TC ROUTINA
000863,000614: 5070 30020 CA CYR
000864,000615: 5071 30020 CA CYR
000865,000616: 5072 30020 CA CYR
000866,000617: 5073 74360 MASK MASKBA
000867,000618: 5074 50000 INDEX A
000868,000619: 5075 34724 CA LOOKUPA
000869,000620: 5076 74341 MASK MASKAA
000870,000621: 5077 54103 TS TEMPA
000871,000622: 5100 30071 CA STATUS
000872,000623: 5101 75145 MASK MASKR2CA # IS R2 BLANK+
000873,000624: 5102 10000 CCS A
000874,000625: 5103 05115 TC PARTCONA
000875,000626: 5104 30074 CA R2
000876,000627: 5105 74360 MASK MASKBA
000877,000628: 5106 50000 INDEX A
000878,000629: 5107 34724 CA LOOKUPA
000879,000630: 5110 74361 MASK MASKCA
000880,000631: 5111 60103 3CONT AD TEMPA
000881,000632: 5112 64721 AD ADDRESSA +6
000882,000633: 5113 04677 TC WRITEBA
000883,000634: 5114 00077 TC RESUMEA
|
|
Page D-15 |
000885,000636: 5115 30007 PARTCONA CA ZEROS
000886,000637: 5116 05111 TC 3CONT
000887,000638: 5117 30002 ROUTINA CA Q # STANDARD LOOKUP ROUTINE
000888,000639: 5120 54104 TS GOBAKA
000889,000640: 5121 30101 CA ITA
000890,000641: 5122 74360 MASK MASKBA
000891,000642: 5123 50000 INDEX A
000892,000643: 5124 34724 CA LOOKUPA
000893,000644: 5125 74341 MASK MASKAA
000894,000645: 5126 54103 TS TEMPA
000895,000646: 5127 30101 CA ITA
000896,000647: 5130 54020 TS CYR
000897,000648: 5131 30020 CA CYR
000898,000649: 5132 30020 CA CYR # SHIFT
000899,000650: 5133 30020 CA CYR
000900,000651: 5134 74360 MASK MASKBA
000901,000652: 5135 50000 INDEX A
000902,000653: 5136 34724 CA LOOKUPA
000903,000654: 5137 74361 MASK MASKCA
000904,000655: 5140 60103 AD TEMPA
000905,000656: 5141 60102 AD ADDERA
000906,000657: 5142 04677 TC WRITEBA
000907,000658: 5143 00104 TC GOBAKA
000908,000659: 5144 00020 MASKR3CA OCT 20
000909,000660: 5145 00040 MASKR2CA OCT 40
000910,000661: 5146 30002 AMSTAT CA Q
000911,000662: 5147 54070 TS QSTORE
000912,000663: 5150 30006 CA BB # FOR W PICKUP
000913,000664: 5151 54000 TS A
000914,000665: 5152 00006 EXTEND
000915,000666: 5153 00025 READ CONOUT
000916,000667: 5154 75222 MASK MASK1A
000917,000668: 5155 54103 TS TEMPA
000918,000669: 5156 45223 CS SUBA
000919,000670: 5157 60103 AD TEMPA
000920,000671: 5160 10000 CCS A
000921,000672: 5161 05165 TC BOTHONA
000922,000673: 5162 06000 TC MERR
000923,000674: 5163 05167 TC NOTONA
000924,000675: 5164 05172 TC ACMONA
000925,000676: 5165 35220 BOTHONA CA BOTHN1A # 11
000926,000677: 5166 05170 TC WRITE1A
000927,000678: 5167 35217 NOTONA CA NOTON1A # 00
000928,000679: 5170 04677 WRITE1A TC WRITEBA
000929,000680: 5171 00070 TC QSTORE
000930,000681: 5172 35221 ACMONA CA ACMON1A # 10
000931,000682: 5173 05170 TC WRITE1A
000932,000683: 5174 05146 TERR TC AMSTAT
000933,000684: 5175 00006 EXTEND
000934,000685: 5176 00025 READ CONOUT
000935,000686: 5177 54074 TS R2
000936,000687: 5200 34712 CA MASKA
000937,000688: 5201 00006 EXTEND
000938,000689: 5202 01025 WRITE CH25
000939,000690: 5203 00006 EXTEND
000940,000691: 5204 00027 READ CONIN
000941,000692: 5205 54075 TS R3
000942,000693: 5206 04506 TC DISPLAY
|
|
Page D-16 |
000944,000695: 5207 35216 CA SUPIMPA
000945,000696: 5210 00006 EXTEND
000946,000697: 5211 04011 ROR CH11
000947,000698: 5212 00006 EXTEND
000948,000699: 5213 01011 WRITE CH11
000949,000700: 5214 04460 TC IDLE
000950,000701: 5215 34000 V00BK OCT 34000
000951,000702: 5216 00040 SUPIMPA OCT 40
000952,000703: 5217 55265 NOTON1A OCT 55265 # 00 NOUN
000953,000704: 5220 54143 BOTHN1A OCT 54143 # 11 NOUN
000954,000705: 5221 54165 ACMON1A OCT 54165 # 10 NOUN
000955,000706: 5222 24000 MASK1A OCT 24000
000956,000707: 5223 20000 SUBA OCT 20000
000957,000708: 5224 04506 V01 TC DISPLAY # TURN ON ACM AND ATM
000958,000709: 5225 35462 CA COMOUT
000959,000710: 5226 00006 EXTEND
000960,000711: 5227 01011 WRITE CH11 # SET OUTCOM
000961,000712: 5230 35463 CA STATUS1A
000962,000713: 5231 54071 TS STATUS
000963,000714: 5232 35471 CA C1A
000964,000715: 5233 54116 TS ACMSTAT
000965,000716: 5234 35464 CA TIME1A # 8MSEC
000966,000717: 5235 10000 CCS A
000967,000718: 5236 05235 TC -1
000968,000719: 5237 00006 EXTEND
000969,000720: 5240 00025 READ CONOUT # CH25
000970,000721: 5241 75461 MASK BOTEOT6A # ELIMINATE BITS 5 AND 6
000971,000722: 5242 54103 TS TEMPA
000972,000723: 5243 45465 CS OUTCONAA
000973,000724: 5244 60103 AD TEMPA
000974,000725: 5245 10000 CCS A
000975,000726: 5246 05252 TC CONT1A
000976,000727: 5247 05252 TC CONT1A
000977,000728: 5250 05252 TC CONT1A
000978,000729: 5251 05255 TC SUCCESAA
000979,000730: 5252 35471 CONT1A CA C1A # ERROR N1 N0 20010
000980,000731: 5253 54072 TS NOUN
000981,000732: 5254 05174 TC TERR
000982,000733: 5255 35475 SUCCESAA CA OC10
000983,000734: 5256 54116 TS ACMSTAT
000984,000735: 5257 00006 EXTEND
000985,000736: 5260 00027 READ CH27 # CLEAR VFAIL
000986,000737: 5261 00006 EXTEND
000987,000738: 5262 00026 READ CH26
000988,000739: 5263 10000 CCS A
000989,000740: 5264 05270 TC CONT2A
000990,000741: 5265 05273 TC SUCCESBA
000991,000742: 5266 05270 TC CONT2A
000992,000743: 5267 05270 TC CONT2A
000993,000744: 5270 35472 CONT2A CA C2A # ERROR N2 N0 00000
000994,000745: 5271 54072 TS NOUN
000995,000746: 5272 05174 TC TERR
000996,000747: 5273 35466 SUCCESBA CA OUTCONBA
000997,000748: 5274 00006 EXTEND
000998,000749: 5275 01025 WRITE CONOUT # CH25
000999,000750: 5276 35470 CA TIME2A # 500MSEC
001000,000751: 5277 10000 CCS A
001001,000752: 5300 05277 TC -1
|
|
Page D-17 |
001003,000754: 5301 00006 EXTEND
001004,000755: 5302 00025 READ CONOUT # CH25
001005,000756: 5303 75461 MASK BOTEOT6A # ELIMINATE BITS 5 AND 6
001006,000757: 5304 54103 TS TEMPA
001007,000758: 5305 45467 CS OUTCONCA
001008,000759: 5306 60103 AD TEMPA
001009,000760: 5307 10000 CCS A
001010,000761: 5310 05314 TC CONT3A
001011,000762: 5311 05314 TC CONT3A
001012,000763: 5312 05314 TC CONT3A
001013,000764: 5313 05317 TC SUCCESCA
001014,000765: 5314 35473 CONT3A CA C3A # ERROR N3 N0 74000
001015,000766: 5315 54072 TS NOUN
001016,000767: 5316 05174 TC TERR
001017,000768: 5317 05146 SUCCESCA TC AMSTAT
001018,000769: 5320 05620 TC SUCCESS
001019,000770: 5321 04506 V02 TC DISPLAY # TURN ON ACM
001020,000771: 5322 35462 CA COMOUT
001021,000772: 5323 00006 EXTEND
001022,000773: 5324 01011 WRITE CH11 # SET OUTCOM
001023,000774: 5325 35463 CA STATUS1A
001024,000775: 5326 54071 TS STATUS
001025,000776: 5327 35471 CA C1A
001026,000777: 5330 54116 TS ACMSTAT
001027,000778: 5331 35464 CA TIME1A # 8MSEC
001028,000779: 5332 10000 CCS A
001029,000780: 5333 05332 TC -1
001030,000781: 5334 00006 EXTEND
001031,000782: 5335 00025 READ CONOUT # CH25
001032,000783: 5336 75461 MASK BOTEOT6A # ELIMINATE BITS 5 AND 6
001033,000784: 5337 54103 TS TEMPA
001034,000785: 5340 45465 CS OUTCONAA
001035,000786: 5341 60103 AD TEMPA
001036,000787: 5342 10000 CCS A
001037,000788: 5343 05252 TC CONT1A # ERROR N1 N0 20010
001038,000789: 5344 05252 TC CONT1A
001039,000790: 5345 05252 TC CONT1A
001040,000791: 5346 05347 TC SUCCESDA
001041,000792: 5347 35475 SUCCESDA CA OC10
001042,000793: 5350 54116 TS ACMSTAT
001043,000794: 5351 00006 EXTEND
001044,000795: 5352 00027 READ CH27 # CLEAR VFAIL
001045,000796: 5353 00006 EXTEND
001046,000797: 5354 00026 READ CH26
001047,000798: 5355 10000 CCS A
001048,000799: 5356 05270 TC CONT2A
001049,000800: 5357 05317 TC SUCCESCA
001050,000801: 5360 05270 TC CONT2A
001051,000802: 5361 05270 TC CONT2A # ERROR N2 N0 0000
001052,000803: 5362 04506 V03 TC DISPLAY # TURN OFF ACM AND ATM
001053,000804: 5363 30007 CA ZEROS
001054,000805: 5364 00006 EXTEND
001055,000806: 5365 01011 WRITE CH11 # OUTCOM OFF
001056,000807: 5366 35474 CA STATUS2A
001057,000808: 5367 54071 TS STATUS
001058,000809: 5370 35470 CA TIME2A # 1/2 OF 1 SEC.
001059,000810: 5371 10000 CCS A
001060,000811: 5372 05371 TC -1
|
|
Page D-18 |
001062,000813: 5373 35470 CA TIME2A # 1/2 OF 1 SEC.
001063,000814: 5374 10000 CCS A
001064,000815: 5375 05374 TC -1
001065,000816: 5376 00006 EXTEND
001066,000817: 5377 00025 READ CONOUT # CH25
001067,000818: 5400 75461 MASK BOTEOT6A # ELIMINATE BITS 5 AND 6
001068,000819: 5401 10000 CCS A
001069,000820: 5402 05174 TC TERR
001070,000821: 5403 05406 TC DDA
001071,000822: 5404 05174 TC TERR
001072,000823: 5405 05174 TC TERR
001073,000824: 5406 30007 DDA CA ZEROS
001074,000825: 5407 54116 TS ACMSTAT
001075,000826: 5410 05317 TC SUCCESCA
001076,000827: 5411 04506 V04 TC DISPLAY # TURN OFF ATM
001077,000828: 5412 35477 CA OUTCONDA
001078,000829: 5413 00006 EXTEND
001079,000830: 5414 01025 WRITE CONOUT # CH25
001080,000831: 5415 35474 CA STATUS2A
001081,000832: 5416 54071 TS STATUS
001082,000833: 5417 35476 CA TIME4A # 50MSEC
001083,000834: 5420 10000 CCS A
001084,000835: 5421 05420 TC -1
001085,000836: 5422 00006 EXTEND
001086,000837: 5423 00025 READ CONOUT # CH25
001087,000838: 5424 75461 MASK BOTEOT6A # ELIMINATE BITS 5 AND 6
001088,000839: 5425 54103 TS TEMPA
001089,000840: 5426 45500 CS OUTCONEA
001090,000841: 5427 60103 AD TEMPA
001091,000842: 5430 10000 CCS A
001092,000843: 5431 05174 TC TERR
001093,000844: 5432 05174 TC TERR
001094,000845: 5433 05174 TC TERR
001095,000846: 5434 05317 TC SUCCESCA
001096,000847: 5435 04506 V05 TC DISPLAY # TURN ATM TO STANBY
001097,000848: 5436 35501 CA OUTCONFA
001098,000849: 5437 00006 EXTEND
001099,000850: 5440 01025 WRITE CONOUT # CH25
001100,000851: 5441 35474 CA STATUS2A
001101,000852: 5442 54071 TS STATUS
001102,000853: 5443 35503 CA TIME5A # 200USEC
001103,000854: 5444 10000 CCS A
001104,000855: 5445 05444 TC -1
001105,000856: 5446 00006 EXTEND
001106,000857: 5447 00025 READ CONOUT # CH25
001107,000858: 5450 75461 MASK BOTEOT6A # ELIMINATE BITS 5 AND 6
001108,000859: 5451 54103 TS TEMPA
001109,000860: 5452 45502 CS OUTCONGA
001110,000861: 5453 60103 AD TEMPA
001111,000862: 5454 10000 CCS A
001112,000863: 5455 05174 TC TERR
001113,000864: 5456 05174 TC TERR
001114,000865: 5457 05174 TC TERR
001115,000866: 5460 05317 TC SUCCESCA
001116,000867: 5461 77717 BOTEOT6A OCT 77717
001117,000868: 5462 00400 COMOUT OCT 400
001118,000869: 5463 00113 STATUS1A OCT 113
001119,000870: 5464 00350 TIME1A OCT 350 # 8MSEC
|
|
Page D-19 |
001121,000872: 5465 20010 OUTCONAA OCT 20010
001122,000873: 5466 50000 OUTCONBA OCT 50000
001123,000874: 5467 74000 OUTCONCA OCT 74000
001124,000875: 5470 34000 TIME2A OCT 34000 # 500MSEC
001125,000876: 5471 00001 C1A OCT 1
001126,000877: 5472 00002 C2A OCT 2
001127,000878: 5473 00003 C3A OCT 3
001128,000879: 5474 00303 STATUS2A OCT 303 # R2,R3 UPDATE
001129,000880: 5475 00010 OC10 OCT 10
001130,000881: 5476 02640 TIME4A OCT 2640 # 50MSEC
001131,000882: 5477 24000 OUTCONDA OCT 24000
001132,000883: 5500 20010 OUTCONEA OCT 20010
001133,000884: 5501 04000 OUTCONFA OCT 04000
001134,000885: 5502 60000 OUTCONGA OCT 60000
001135,000886: 5503 00006 TIME5A OCT 6
001136,000887: 5504 04506 V0607 TC DISPLAY
001137,000888: 5505 06142 TC TPTRAN
001138,000889: 5506 02001 TC 2001
001139,000890: 5507 05620 TC SUCCESS
001140,000891: 5510 04506 V08 TC DISPLAY
001141,000892: 5511 06142 TC TPTRAN # GO TO READ TAPE
001142,000893: 5512 00030 MU530A OCT 00030
001143,000894: 5513 00031 MU531A OCT 00031
001144,000895: 5514 00032 MU532A OCT 00032
001145,000896: 5515 00033 MU533A OCT 00033
001146,000897: 5516 00010 OCT10A OCT 00010
001147,000898: 5517 00400 AMTOGOA OCT 00400
001148,000899: 5520 00207 STATUS4A OCT 00207
001149,000900: 5521 07777 LAST4A OCT 07777
001150,000901: 5522 74000 BANK536A OCT 74000
001151,000902: 5523 04506 V09 TC DISPLAY
001152,000903: 5524 06142 TC TPTRAN
001153,000904: 5525 05620 TC SUCCESS
001154,000905: 5526 04506 V11 TC DISPLAY
001155,000906: 5527 06142 TC TPTRAN
001156,000907: 5530 05620 TC SUCCESS
001157,000908: 5531 04506 V12 TC DISPLAY
001158,000909: 5532 06142 TC TPTRAN
001159,000910: 5533 05620 TC SUCCESS
001160,000911: 5534 04506 V13 TC DISPLAY
001161,000912: 5535 06142 TC TPTRAN
001162,000913: 5536 05620 TC SUCCESS
001163,000914: 5537 04506 V17 TC DISPLAY
001164,000915: 5540 35614 CA STATU17A
001165,000916: 5541 54071 TS STATUS # LOAD STATUS
001166,000917: 5542 35502 CA OUTCONGA # GET FIRST FIXED BANK REG LOAD
001167,000918: 5543 54133 STARTBKA TS BANKNUMA
001168,000919: 5544 54073 TS R1 # LOAD R1 WITH BANK REG LOAD
001169,000920: 5545 54004 TS FB
001170,000921: 5546 35617 CA OCT77A
001171,000922: 5547 54135 TS DISYES # DISPLAY ADDRESS EVERY 100 LOCATIONS
001172,000923: 5550 30007 CA ZEROS # START ADDRESS WITH ZEROS
001173,000924: 5551 54134 TS LOCA
001174,000925: 5552 50134 GOA INDEX LOCA
001175,000926: 5553 32000 CA 2000 # READ ALL LOCATIONS
001176,000927: 5554 24134 INCR LOCA
001177,000928: 5555 30134 CA LOCA # ADDRESS 2000 IN L
001178,000929: 5556 54001 TS L
|
|
Page D-20 |
001180,000931: 5557 45613 CS STOPA
001181,000932: 5560 60134 AD LOCA
001182,000933: 5561 10000 CCS A # IS IT THE END OF THE BANK
001183,000934: 5562 06000 TC MERR
001184,000935: 5563 06000 TC MERR
001185,000936: 5564 05566 TC GOBAA # NOT THE END OF THE BANK
001186,000937: 5565 05600 TC ENDFBA # THE END OF THE FIXED BANK
001187,000938: 5566 10135 GOBAA CCS DISYES # IS IT TIME TO UPDATE DSKY DISPLAY
001188,000939: 5567 05576 TC GOBBA # NO
001189,000940: 5570 35617 CA OCT77A # YES
001190,000941: 5571 54135 TS DISYES # SET DISYES EQUAL TO 77
001191,000942: 5572 30134 CA LOCA # GET LOCATION ADDRESS
001192,000943: 5573 54074 TS R2 # LOAD IT INTO R2
001193,000944: 5574 04506 TC DISPLAY # GO TO UPDATE DISPLAY
001194,000945: 5575 05552 TC GOA # GO TO READ
001195,000946: 5576 54135 GOBBA TS DISYES # DIMINISH DISYES
001196,000947: 5577 05552 TC GOA # GO TO READ
001197,000948: 5600 45615 ENDFBA CS LASTBKA # END OF FIXED BANK ROUTINE
001198,000949: 5601 60133 AD BANKNUMA
001199,000950: 5602 10000 CCS A # IS THE LAST BANK DONE
001200,000951: 5603 06000 TC MERR
001201,000952: 5604 06000 TC MERR
001202,000953: 5605 05607 TC GETNXBA # NO GET NEXT BANK REG LOAD
001203,000954: 5606 05620 TC SUCCESS # YES ALL DONE
001204,000955: 5607 30133 GETNXBA CA BANKNUMA
001205,000956: 5610 65616 AD INCRBKA # INCREMENT TO NEXT BANK
001206,000957: 5611 05543 TC STARTBKA # START NEXT BANK
001207,000958: 5612 70000 FIRSTBKA OCT 70000
001208,000959: 5613 02000 STOPA OCT 02000
001209,000960: 5614 00226 STATU17A OCT 00226
001210,000961: 5615 76000 LASTBKA OCT 76000
001211,000962: 5616 02000 INCRBKA OCT 02000
001212,000963: 5617 00077 OCT77A OCT 00077
001213,000964: 5620 34021 SUCCESS CA OC17 # LOAD NOUN R1 R2 R3 WITH ALL 7S
001214,000965: 5621 54071 TS STATUS # INDICATES TEST SUCCESS
001215,000966: 5622 34337 CA ALL7SL
001216,000967: 5623 54073 TS R1
001217,000968: 5624 54074 TS R2
001218,000969: 5625 54075 TS R3
001219,000970: 5626 54072 TS NOUN
001220,000971: 5627 04506 TC DISPLAY
001221,000972: 5630 04460 TC IDLE
001222,000973: 5631 30153 FXDPR CA BANKNO
001223,000974: 5632 54020 TS CYR
001224,000975: 5633 30020 CA CYR
001225,000976: 5634 30020 CA CYR
001226,000977: 5635 30020 CA CYR
001227,000978: 5636 30020 CA CYR
001228,000979: 5637 30020 CA CYR
001229,000980: 5640 54153 TS BANKNO
001230,000981: 5641 54073 TS R1
001231,000982: 5642 07446 TC UPDISPLA
001232,000983: 5643 54157 SHIFT3L TS 1STBNKNO
001233,000984: 5644 30146 CA HOLDIT
001234,000985: 5645 60160 AD HOLDBKDG
001235,000986: 5646 54022 TS CYL
001236,000987: 5647 30022 CA CYL
001237,000988: 5650 30022 CA CYL
|
|
Page D-21 |
001239,000990: 5651 30022 CA CYL
001240,000991: 5652 54160 TS HOLDBKDG
001241,000992: 5653 04454 TC RETURNL
001242,000993: 5654 00010 BIT4 OCT 00010
001243,000994: 5655 10000 BIT13 OCT 10000
001244,000995: 5656 20000 BIT14 OCT 20000
001245,000996: 5657 40000 BIT15 OCT 40000
001246,000997: 5660 16000 BNK3A OCT 16000
001247,000998: 5661 11110 FOUR1S OCT 11110
001248,000999: 5662 22220 FOUR2S OCT 22220
001249,001000: 5663 33330 FOUR3S OCT 33330
001250,001001: 5664 44440 FOUR4S OCT 44440
001251,001002: 5665 55550 FOUR5S OCT 55550
001252,001003: 5666 66660 FOUR6S OCT 66660
001253,001004: 5667 00037 LOW5 OCT 00037
001254,001005: 5670 77740 HIGH10 OCT 77740
001255,001006: 5671 03777 LOW11 OCT 03777
001256,001007: 5672 00124 WAIT2L OCT 00124
001257,001008: 5673 37777 PFS OCT 37777
001258,001009: 5674 00200 BIT8 OCT 00200
001259,001010: 5675 07700 ABORTL OCT 07700
001260,001011: 5676 31145 WAIT1L OCT 31145
001261,001012: 5677 02200 GOATTRNS OCT 02200
001262,001013: 5700 07740 ABORTCER OCT 07740
001263,001014: 5701 01000 WDATAL OCT 01000
001264,001015: 5702 06000 BNK3 OCT 06000
001265,001016: 5703 70000 BNK34 OCT 70000
001266,001017: 5704 01776 HIGHLOC OCT 01776
001267,001018: 5705 00003 LASTBNK OCT 00003
001268,001019: 5706 00005 BNK5 OCT 00005
001269,001020: 5707 02000 INCRFB OCT 02000
001270,001021: 5710 00076 NOUN76 OCT 00076
001271,001022: 5711 00075 NOUN75 OCT 00075
001272,001023: 5712 00074 NOUN74 OCT 00074
001273,001024: 5713 00073 NOUN73 OCT 00073
001274,001025: 5714 00072 NOUN72 OCT 00072
001275,001026: 5715 00071 NOUN71 OCT 00071
001276,001027: 5716 00070 NOUN70 OCT 00070
001277,001028: 5717 00067 NOUN67 OCT 00067
001278,001029: 5720 00065 NOUN65 OCT 00065
001279,001030: 5721 00064 NOUN64 OCT 00064
001280,001031: 5722 00063 NOUN63 OCT 00063
001281,001032: 5723 00062 NOUN62 OCT 00062
001282,001033: 5724 00061 NOUN61 OCT 00061
001283,001034: 5725 11400 EBKEQUIV OCT 11400
001284,001035: 5726 13400 OCT 13400
001285,001036: 5727 15400 OCT 15400
001286,001037: 5730 17400 OCT 17400
001287,001038: 5731 00014 OC14 OCT 00014
001288,001039: 5732 77767 VERB8 OCT 77767
001289,001040: 5733 41001 READK14 OCT 41001
001290,001041: 5734 51005 READK15 OCT 51005
001291,001042: 5735 00400 EBFULL OCT 00400
001292,001043: 5736 02000 FBFULL OCT 02000
001293,001044: 5737 72000 ACMFBKA OCT 72000
001294,001045: 5740 00057 NOUN57 OCT 00057
001295,001046: 5741 02000 READKC25 OCT 02000
001296,001047: 5742 00056 NOUN56 OCT 00056
|
|
Page D-22 |
001298,001049: 5743 10024 BBKAA OCT 10024 # PAC BANK 4
001299,001050: 5744 22024 BBKBA OCT 22024 # PAC BANK 11
001300,001051: 5745 01776 FULLESS2 OCT 01776
001301,001052: 5746 12020 1STBKA OCT 12020 # FBANK 5 EBANK 20
001302,001053: 5747 14024 2NDBKA OCT 14024 # 6 24
001303,001054: 5750 16030 3RDBKA OCT 16030 # 7 30
001304,001055: 5751 20034 4THBKA OCT 20034 # 10 34
001305,001056: 5752 24100 BBKCA OCT 24100 # F BANK 12 EBANK 100
001306,001057: 5753 26104 BBKDA OCT 26104 # F BANK 13 EBANK 104
001307,001058: 5754 30010 BBKEA OCT 30010 # F BANK 14 EBANK 10
001308,001059: 5755 32014 BBKFA OCT 32014 # F BANK 15 EBANK 14
001309,001060: 5756 60020 BBKGA OCT 60020 # FEXT 6 F BANK 30 EBANK 20
001310,001061: 5757 62024 BBKHA OCT 62024 # FEXT 6 F BANK 31 EBANK 24
001311,001062: 5760 64030 BBKIA OCT 64030 # FEXT 6 F BANK 32 EBANK 30
001312,001063: 5761 66034 BBKJA OCT 66034 # FEXT 6 F BANK 33 EBANK 34
001313,001064: 5762 51010 OCT51010 OCT 51010
001314,001065: 5763 77757 MINUS20 OCT 77757
001315,001066: 5764 77771 MINUS6 OCT 77771
001316,001067: 5765 00066 NOUN66 OCT 00066
001317,001068: 6000 SETLOC FF036000
001318,001069: 6000 34021 MERR CA OC17 # LOAD NOUN R1 R2 WITH ALL 6S
001319,001070: 6001 54071 TS STATUS # INDICATES MACHINE ERROR
001320,001071: 6002 34340 CA ALL6SL # R3 HAS LOCATION WHERE ERROR OCCURED
001321,001072: 6003 54073 TS R1
001322,001073: 6004 54074 TS R2
001323,001074: 6005 54072 TS NOUN
001324,001075: 6006 30002 CA Q
001325,001076: 6007 54075 TS R3
001326,001077: 6010 04506 TC DISPLAY
001327,001078: 6011 34026 CA FLASHL
001328,001079: 6012 00006 EXTEND
001329,001080: 6013 04011 ROR CH11
001330,001081: 6014 00006 EXTEND
001331,001082: 6015 01011 WRITE CH11
001332,001083: 6016 04460 TC IDLE
001333,001084: 6017 34316 GOJAMPR CA 4TOGO
001334,001085: 6020 54026 TS TIME3
001335,001086: 6021 54031 TS TIME6
001336,001087: 6022 34317 CA 50TOGO
001337,001088: 6023 54027 TS TIME4
001338,001089: 6024 34005 CA ZERO
001339,001090: 6025 54030 TS TIME5
001340,001091: 6026 54117 TS R1ADD
001341,001092: 6027 34320 CA OUTCOML
001342,001093: 6030 00006 EXTEND
001343,001094: 6031 02011 RAND CH11
001344,001095: 6032 10000 CCS A # WAS OUTCOM ON
001345,001096: 6033 24117 INCR R1ADD # YES
001346,001097: 6034 35655 CA BIT13 # NO
001347,001098: 6035 00006 EXTEND
001348,001099: 6036 02026 RAND CH26
001349,001100: 6037 10000 CCS A # WAS GOJAM CAUSED BY E PARITY FAIL
001350,001101: 6040 06111 TC EPARPRO # YES
001351,001102: 6041 35656 CA BIT14 # NO
001352,001103: 6042 00006 EXTEND
001353,001104: 6043 02026 RAND CH26
001354,001105: 6044 10000 CCS A # WAS GOJAM CAUSED BY F PARITY FAIL
001355,001106: 6045 06115 TC FPARPRO # YES
|
|
Page D-23 |
001357,001108: 6046 35657 CA BIT15 # NO
001358,001109: 6047 00006 EXTEND
001359,001110: 6050 02026 RAND CH26
001360,001111: 6051 10000 CCS A # WAS GOJAM CAUSED BY ECHO CHECK
001361,001112: 6052 06121 TC ECHCKPRO # YES
001362,001113: 6053 30116 CA ACMSTAT # NO
001363,001114: 6054 75654 MSK BIT4
001364,001115: 6055 10000 CCS A # WAS ACM SUPPOSED TO BE ON
001365,001116: 6056 06125 TC REQCHK # YES
001366,001117: 6057 30116 CA ACMSTAT # NO
001367,001118: 6060 74003 MSK ONE
001368,001119: 6061 10000 CCS A # WAS ACM REQUESTED TO TURN ON
001369,001120: 6062 06067 TC +5
001370,001121: 6063 35664 CA FOUR4S
001371,001122: 6064 60117 AD R1ADD
001372,001123: 6065 54073 TS R1
001373,001124: 6066 06102 TC GETOUT
001374,001125: 6067 34005 CA ZERO
001375,001126: 6070 54116 TS ACMSTAT
001376,001127: 6071 35666 CA FOUR6S
001377,001128: 6072 60117 AD R1ADD
001378,001129: 6073 54073 TS R1
001379,001130: 6074 06102 TC GETOUT
001380,001131: 6075 34320 OUTCMSET CA OUTCOML
001381,001132: 6076 00006 EXTEND
001382,001133: 6077 04011 ROR CH11
001383,001134: 6100 00006 EXTEND
001384,001135: 6101 01011 WRITE CH11
001385,001136: 6102 00003 GETOUT RELINT
001386,001137: 6103 30116 CA ACMSTAT
001387,001138: 6104 54072 TS NOUN # 01 REQ 10 ON 00 OFF
001388,001139: 6105 34021 CA OC17
001389,001140: 6106 54071 TS STATUS
001390,001141: 6107 05174 TC TERR
001391,001142: 6110 00140 FEXTA OCT 00140
001392,001143: 6111 35661 EPARPRO CA FOUR1S
001393,001144: 6112 60117 AD R1ADD
001394,001145: 6113 54073 TS R1
001395,001146: 6114 06075 TC OUTCMSET
001396,001147: 6115 35662 FPARPRO CA FOUR2S
001397,001148: 6116 60117 AD R1ADD
001398,001149: 6117 54073 TS R1
001399,001150: 6120 06075 TC OUTCMSET
001400,001151: 6121 35663 ECHCKPRO CA FOUR3S
001401,001152: 6122 60117 AD R1ADD
001402,001153: 6123 54073 TS R1
001403,001154: 6124 06075 TC OUTCMSET
001404,001155: 6125 35656 REQCHK CA BIT14
001405,001156: 6126 00006 EXTEND
001406,001157: 6127 02025 RAND CH25
001407,001158: 6130 10000 CCS A # IS CH 25 ACM-ON BIT ON
001408,001159: 6131 06136 TC AGCFAULT # YES
001409,001160: 6132 35665 CA FOUR5S # NO
001410,001161: 6133 60117 AD R1ADD
001411,001162: 6134 54073 TS R1
001412,001163: 6135 06102 TC GETOUT
001413,001164: 6136 35664 AGCFAULT CA FOUR4S
001414,001165: 6137 60117 AD R1ADD
|
|
Page D-24 |
001416,001167: 6140 54073 TS R1
001417,001168: 6141 06075 TC OUTCMSET
001418,001169: 6142 30002 TPTRAN CA Q
001419,001170: 6143 54137 TS QSTORL
001420,001171: 6144 35462 CA COMOUT
001421,001172: 6145 54171 TS LSTCNT
001422,001173: 6146 54170 TS OLDID
001423,001174: 6147 30124 CA CH25LOAD
001424,001175: 6150 75701 MASK WDATAL # 01000
001425,001176: 6151 10000 CCS A # WILL THE XFER BE READ OR WRITE TAPE
001426,001177: 6152 06675 TC SUMIT # WRITE
001427,001178: 6153 30120 BEGINL CA IDSTARTL # READ
001428,001179: 6154 00006 EXTEND
001429,001180: 6155 01021 WRITE CH21 # LOAD ID START
001430,001181: 6156 30121 CA IDSTOPL # LOAD LAST BANK OF AM DATA TRANSFER
001431,001182: 6157 00006 EXTEND
001432,001183: 6160 01023 WRITE CH23 # LOAD ID STOP
001433,001184: 6161 00006 EXTEND # CHECK ID STOP
001434,001185: 6162 02020 RAND CH20
001435,001186: 6163 40000 CS A
001436,001187: 6164 00006 EXTEND
001437,001188: 6165 02020 RAND CH20
001438,001189: 6166 75667 MASK LOW5
001439,001190: 6167 10000 CCS A # IS ID STOP OK
001440,001191: 6170 06604 TC IDSTPERR # NO
001441,001192: 6171 00006 EXTEND # YES CHECK ID START
001442,001193: 6172 00020 READ CH20
001443,001194: 6173 75670 MSK HIGH10
001444,001195: 6174 54122 TS JUNK1L # STORE CH20 IDSTART BITS 6 TO 15
001445,001196: 6175 00006 EXTEND
001446,001197: 6176 00021 READ CH21
001447,001198: 6177 54123 TS TPBNKL # STORE CH21
001448,001199: 6200 54021 TS SR
001449,001200: 6201 30021 CA SR # SHIFT THREE PLACES RIGHT
001450,001201: 6202 30021 CA SR
001451,001202: 6203 30021 CA SR
001452,001203: 6204 54023 TS EDOP # SHIFT SEVEN PLACES RIGHT
001453,001204: 6205 30023 CA EDOP
001454,001205: 6206 74341 MASK MASKAA # MASK LOW 5
001455,001206: 6207 26122 ADS JUNK1L # COMPLETE ID START WORD
001456,001207: 6210 40000 CS A
001457,001208: 6211 60120 AD IDSTARTL
001458,001209: 6212 10000 CCS A # IS ID START OK
001459,001210: 6213 06612 TC IDSTAERR # NO
001460,001211: 6214 06612 TC IDSTAERR # NO
001461,001212: 6215 06612 TC IDSTAERR # NO
001462,001213: 6216 00006 CONOTCHK EXTEND # YES
001463,001214: 6217 00025 READ CH25 # CONOUT
001464,001215: 6220 75461 MASK BOTEOT6A
001465,001216: 6221 65671 AD LOW11
001466,001217: 6222 10000 CCS A # IS CONOUT OK
001467,001218: 6223 06624 TC CONOUTER # NO
001468,001219: 6224 06624 TC CONOUTER # NO
001469,001220: 6225 06624 TC CONOUTER # NO
001470,001221: 6226 00006 EXTEND # YES
001471,001222: 6227 00027 READ CH27
001472,001223: 6230 00006 EXTEND
001473,001224: 6231 00026 READ CH26
001474,001225: # Page D-25
001475,001226: 6232 10000 CCS A # IS CONIN OK
001476,001227: 6233 06640 TC CONINERR # NO
001477,001228: 6234 06237 TC +3 # YES
001478,001229: 6235 06640 TC CONINERR # NO
001479,001230: 6236 06640 TC CONINERR # NO
001480,001231: 6237 30120 CA IDSTARTL
001481,001232: 6240 75657 MASK BIT15
001482,001233: 6241 10000 CCS A
001483,001234: 6242 06000 TC MERR
001484,001235: 6243 06246 TC PROG
001485,001236: 6244 06270 TC OKNDATA
001486,001237: 6245 06000 TC MERR
001487,001238: 6246 30121 PROG CA IDSTOPL
001488,001239: 6247 75667 MASK LOW5
001489,001240: 6250 10000 CCS A
001490,001241: 6251 06255 TC CHECK
001491,001242: 6252 06270 TC OKNDATA
001492,001243: 6253 06000 TC MERR
001493,001244: 6254 06000 TC MERR
001494,001245: 6255 65763 CHECK AD MINUS20
001495,001246: 6256 10000 CCS A
001496,001247: 6257 06263 TC CHECKAG
001497,001248: 6260 06000 TC MERR
001498,001249: 6261 06604 TC IDSTPERR
001499,001250: 6262 06270 TC OKNDATA
001500,001251: 6263 65764 CHECKAG AD MINUS6
001501,001252: 6264 10000 CCS A
001502,001253: 6265 06604 TC IDSTPERR
001503,001254: 6266 06000 TC MERR
001504,001255: 6267 06270 TC +1
001505,001256: 6270 30124 OKNDATA CA CH25LOAD
001506,001257: 6271 00006 EXTEND # LOAD CONOUT
001507,001258: 6272 01025 WRITE CH25
001508,001259: 6273 00006 EXTEND
001509,001260: 6274 02025 RAND CH25
001510,001261: 6275 40000 CS A
001511,001262: 6276 60124 AD CH25LOAD
001512,001263: 6277 10000 CCS A # DID CH25 LOAD CORRECTLY
001513,001264: 6300 06643 TC CH25ERR # NO
001514,001265: 6301 06643 TC CH25ERR # NO
001515,001266: 6302 06643 TC CH25ERR # NO
001516,001267: 6303 34005 CA ZERO # YES
001517,001268: 6304 54125 TS CORERCNT # CLEAR CORRECTABLE ERROR COUNT
001518,001269: 6305 35672 CA WAIT2L
001519,001270: 6306 54126 TS CNTDWN2L
001520,001271: 6307 35673 LOOKAGAN CA PFS
001521,001272: 6310 54127 TS CNTDWN1L
001522,001273: 6311 00006 FNDTRNSP EXTEND # LOOK FOR TRNSIP
001523,001274: 6312 00025 READ CH25
001524,001275: 6313 75674 MSK BIT8
001525,001276: 6314 10000 CCS A # HAS TRNSIP APPEARED
001526,001277: 6315 06337 TC DATATRAN # YES
001527,001278: 6316 30127 CA CNTDWN1L # NO
001528,001279: 6317 10000 CCS A # IS FIRST COUNTDOWN OVER
001529,001280: 6320 06322 TC +2 # NO
001530,001281: 6321 06324 TC +3 # YES
001531,001282: 6322 54127 TS CNTDWN1L
001532,001283: 6323 07751 TC LISTID
|
|
Page D-26 |
001534,001285: 6324 30126 CA CNTDWN2L
001535,001286: 6325 10000 CCS A # HAVE 7 MINUTES PASSED
001536,001287: 6326 06330 TC +2 # NO
001537,001288: 6327 06646 TC 7MINERR # YES
001538,001289: 6330 54126 TS CNTDWN2L
001539,001290: 6331 00006 EXTEND
001540,001291: 6332 00026 READ CH26
001541,001292: 6333 75675 MSK ABORTL
001542,001293: 6334 10000 CCS A # HAS AN ABORT BIT APPEARED
001543,001294: 6335 06570 TC ABORTER1 # YES
001544,001295: 6336 06307 TC LOOKAGAN # NO
001545,001296: 6337 34003 DATATRAN CA ONE # AM DATA TRANSFER IS IN PROGRESS
001546,001297: 6340 54126 TS CNTDWN2L
001547,001298: 6341 35676 STARTCNT CA WAIT1L
001548,001299: 6342 54127 TS CNTDWN1L
001549,001300: 6343 00006 DEVIDES EXTEND
001550,001301: 6344 10122 DV JUNK1L
001551,001302: 6345 00006 EXTEND
001552,001303: 6346 10122 DV JUNK1L
001553,001304: 6347 00006 EXTEND
001554,001305: 6350 10122 DV JUNK1L
001555,001306: 6351 00006 EXTEND
001556,001307: 6352 70122 MP JUNK1L
001557,001308: 6353 35677 CA GOATTRNS
001558,001309: 6354 00006 EXTEND
001559,001310: 6355 02025 RAND CH25
001560,001311: 6356 00006 EXTEND
001561,001312: 6357 16414 BZF BOTHGONE # HAVE BOTH GOATM AND TRNSIP GONE
001562,001313: 6360 40000 CS A # NO
001563,001314: 6361 65677 AD GOATTRNS
001564,001315: 6362 00006 EXTEND
001565,001316: 6363 16365 BZF +2 # HAVE EITHER GOATM OR TRNSIP GONE
001566,001317: 6364 06573 TC ONEUPERR # YES
001567,001318: 6365 30127 CA CNTDWN1L
001568,001319: 6366 10000 CCS A # IS FIRST COUNTDOWN OVER
001569,001320: 6367 06376 TC CONTINUE # NO
001570,001321: 6370 30126 CA CNTDWN2L # YES
001571,001322: 6371 10000 CCS A # HAVE 16 SECONDS PASSED
001572,001323: 6372 06374 TC +2 # NO
001573,001324: 6373 06576 TC TRANSERR # YES
001574,001325: 6374 54126 TS CNTDWN2L
001575,001326: 6375 06341 TC STARTCNT
001576,001327: 6376 54127 CONTINUE TS CNTDWN1L
001577,001328: 6377 35700 CA ABORTCER
001578,001329: 6400 00006 EXTEND
001579,001330: 6401 02026 RAND CH26
001580,001331: 6402 00006 EXTEND
001581,001332: 6403 16343 BZF DEVIDES # HAS AN ABORT OR CORRECTABLE ERROR
001582,001333: 6404 75675 MSK ABORTL # OCCURED YES
001583,001334: 6405 00006 EXTEND
001584,001335: 6406 16410 BZF UPERRCNT # HAS AN ABORT OCCURED
001585,001336: 6407 06601 TC ABORTER2 # YES
001586,001337: 6410 24125 UPERRCNT INCR CORERCNT
001587,001338: 6411 00006 EXTEND # CLEAR CONIN
001588,001339: 6412 00027 READ CH27
001589,001340: 6413 06343 TC DEVIDES
001590,001341: 6414 35700 BOTHGONE CA ABORTCER
001591,001342: 6415 00006 EXTEND
|
|
Page D-27 |
001593,001344: 6416 02026 RAND CH26
001594,001345: 6417 00006 EXTEND
001595,001346: 6420 16430 BZF RDORWRTL # HAS AN ABORT OR CORRECTABLE ERROR
001596,001347: 6421 75675 MSK ABORTL # OCCURED YES
001597,001348: 6422 00006 EXTEND
001598,001349: 6423 16425 BZF INCRERRC # HAS AN ABORT OCCURED
001599,001350: 6424 06654 TC ABORTER3 # YES
001600,001351: 6425 24125 INCRERRC INCR CORERCNT
001601,001352: 6426 00006 EXTEND # CLEAR CHANNEL 27
001602,001353: 6427 00027 READ CH27
001603,001354: 6430 30124 RDORWRTL CA CH25LOAD
001604,001355: 6431 75701 MASK WDATAL
001605,001356: 6432 10000 CCS A # WAS THE DATA XFER READ OR WRITE TAPE
001606,001357: 6433 07601 TC 7SCHKA # WRITE
001607,001358: 6434 30123 CA TPBNKL # READ CH21
001608,001359: 6435 75660 MASK BNK3A # BITS 11, 12, AND 13
001609,001360: 6436 65502 AD OUTCONGA # BITS 14 AND 15
001610,001361: 6437 54064 TS TEMPAA # STORE
001611,001362: 6440 00006 EXTEND
001612,001363: 6441 01001 WRITE CH1 # STORE IN L
001613,001364: 6442 30122 CA JUNK1L # CH20
001614,001365: 6443 75657 MASK BIT15 # BIT 15 DATA
001615,001366: 6444 10000 CCS A # DATA OR PROG
001616,001367: 6445 06000 TC MERR # ERROR
001617,001368: 6446 06451 TC +3 # PROG
001618,001369: 6447 06454 TC +5 # DATA
001619,001370: 6450 06000 TC MERR # ERROR
001620,001371: 6451 30064 CA TEMPAA # PROG O.K.
001621,001372: 6452 54004 TS FB # LOAD FB
001622,001373: 6453 06460 TC +5 # CONTINUE
001623,001374: 6454 35655 CA BIT13 # ADD
001624,001375: 6455 00006 EXTEND # BIT
001625,001376: 6456 04001 ROR CH1 # 13
001626,001377: 6457 54004 TS FB # LOAD FB
001627,001378: 6460 34005 STARTADD CA ZERO
001628,001379: 6461 54130 TS SUML
001629,001380: 6462 54131 TS OVFLOL
001630,001381: 6463 35704 CA HIGHLOC
001631,001382: 6464 54127 TS CNTDWN1L
001632,001383: 6465 10127 LOCCNTDN CCS CNTDWN1L # HAS BANK BEEN SUMMED
001633,001384: 6466 06551 TC CONTSUM # NO
001634,001385: 6467 43776 CS FXDSUM # YES
001635,001386: 6470 60130 AD SUML
001636,001387: 6471 10000 CCS A # WAS SUM OK
001637,001388: 6472 06657 TC SUMERR # NO
001638,001389: 6473 06657 TC SUMERR # NO
001639,001390: 6474 06657 TC SUMERR # NO
001640,001391: 6475 43777 CS FXDOVFLO # YES
001641,001392: 6476 60131 AD OVFLOL
001642,001393: 6477 10000 CCS A # WAS OVERFLOW OK
001643,001394: 6500 06666 TC OVFLOERR # NO
001644,001395: 6501 06666 TC OVFLOERR # NO
001645,001396: 6502 06666 TC OVFLOERR # NO
001646,001397: 6503 00006 EXTEND # YES
001647,001398: 6504 00020 READ CH20
001648,001399: 6505 75667 MASK LOW5
001649,001400: 6506 10000 CCS A # WAS ID STOP ZERO
001650,001401: 6507 06511 TC +2 # NO
|
|
Page D-28 |
001652,001403: 6510 00137 TC QSTORL # YES
001653,001404: 6511 54103 TS TEMPA # IDSTOP-1
001654,001405: 6512 30123 CA TPBNKL
001655,001406: 6513 75615 MASK LASTBKA
001656,001407: 6514 54022 TS CYL
001657,001408: 6515 30022 CA CYL
001658,001409: 6516 30022 CA CYL
001659,001410: 6517 30022 CA CYL
001660,001411: 6520 30022 CA CYL
001661,001412: 6521 30022 CA CYL
001662,001413: 6522 40000 CS A
001663,001414: 6523 60103 AD TEMPA
001664,001415: 6524 10000 CCS A # WAS LAST BANK OF TRANSFER SUMMED
001665,001416: 6525 06531 TC +4 # NO
001666,001417: 6526 06531 TC +3 # NO
001667,001418: 6527 06531 TC +2 # NO
001668,001419: 6530 00137 TC QSTORL # YES
001669,001420: 6531 30123 CA TPBNKL
001670,001421: 6532 65707 AD INCRFB
001671,001422: 6533 54123 TS TPBNKL
001672,001423: 6534 45615 CS LASTBKA
001673,001424: 6535 60004 AD FB
001674,001425: 6536 10000 CCS A
001675,001426: 6537 06545 TC INKFB
001676,001427: 6540 06545 TC INKFB
001677,001428: 6541 06545 TC INKFB
001678,001429: 6542 35703 CA BNK34
001679,001430: 6543 54004 TS FB
001680,001431: 6544 06460 TC STARTADD
001681,001432: 6545 30004 INKFB CA FB # INCREMENT FIXED BANK REGISTER
001682,001433: 6546 65707 AD INCRFB
001683,001434: 6547 54004 TS FB
001684,001435: 6550 06460 TC STARTADD
001685,001436: 6551 54127 CONTSUM TS CNTDWN1L
001686,001437: 6552 54001 TS L # ADDRESS 2000 IN L
001687,001438: 6553 50000 NDX A
001688,001439: 6554 32000 CA 2000
001689,001440: 6555 60130 AD SUML
001690,001441: 6556 54130 TS SUML
001691,001442: 6557 06465 TC LOCCNTDN
001692,001443: 6560 24131 INCR OVFLOL
001693,001444: 6561 06465 TC LOCCNTDN
001694,001445: 6562 00006 R1STATLD EXTEND # LOAD R1 WITH ID READ AND STATUS 17
001695,001446: 6563 00023 READ CH23
001696,001447: 6564 54073 TS R1
001697,001448: 6565 34021 IDSERRA CA OC17
001698,001449: 6566 54071 TS STATUS
001699,001450: 6567 05174 TC TERR
001700,001451: 6570 35716 ABORTER1 CA NOUN70 # LOAD NOUN WITH 70
001701,001452: 6571 54072 TS NOUN # INDICATES ABORT WAS DETECTED BEFORE
001702,001453: 6572 07020 TC V8CHK
001703,001454: 6573 35717 ONEUPERR CA NOUN67 # LOAD NOUN WITH 67
001704,001455: 6574 54072 TS NOUN # INDICATES EITHER GOATM OR TRNSIP
001705,001456: 6575 07020 TC V8CHK
001706,001457: 6576 35720 TRANSERR CA NOUN65 # LOAD NOUN WITH 65
001707,001458: 6577 54072 TS NOUN # INDICATES DATA TRANSFER HAS NOT
001708,001459: 6600 06562 TC R1STATLD # ENDED AFTER 16 SECONDS
001709,001460: 6601 35721 ABORTER2 CA NOUN64 # LAOD NOUN WITH 64
|
|
Page D-29 |
001711,001462: 6602 54072 TS NOUN # INDICATES AN ABORT WAS DETECTED
001712,001463: 6603 07020 TC V8CHK
001713,001464: 6604 35710 IDSTPERR CA NOUN76 # LOAD NOUN WITH 76
001714,001465: 6605 54072 TS NOUN # INDICATES ID STOP IN CH 20 DID
001715,001466: 6606 00006 EXTEND # NOT VERIFIED
001716,001467: 6607 00020 READ CH20
001717,001468: 6610 54073 TS R1
001718,001469: 6611 06565 TC IDSERRA
001719,001470: 6612 35711 IDSTAERR CA NOUN75 # LOAD NOUN WITH 75
001720,001471: 6613 54072 TS NOUN # INDICATES ID START IN CHS 20 AND 21
001721,001472: 6614 30122 CA JUNK1L # DID NOT VERIFY
001722,001473: 6615 54073 TS R1
001723,001474: 6616 06565 TC IDSERRA
001724,001475: 6617 35765 IDSTAERA CA NOUN66
001725,001476: 6620 54072 TS NOUN
001726,001477: 6621 32000 CA 2000
001727,001478: 6622 54073 TS R1
001728,001479: 6623 06565 TC IDSERRA
001729,001480: 6624 35674 CONOUTER CA BIT8
001730,001481: 6625 00006 EXTEND
001731,001482: 6626 02025 RAND CH25
001732,001483: 6627 10000 CCS A
001733,001484: 6630 06634 TC RESTRNSP
001734,001485: 6631 35712 CA NOUN74 # LOAD NOUN WITH 74
001735,001486: 6632 54072 TS NOUN # INDICATES CONOUT CH 25 DID NOT
001736,001487: 6633 06562 TC R1STATLD # VERIFY
001737,001488: 6634 35674 RESTRNSP CA BIT8
001738,001489: 6635 00006 EXTEND
001739,001490: 6636 01025 WRITE CH25
001740,001491: 6637 06216 TC CONOTCHK
001741,001492: 6640 35713 CONINERR CA NOUN73 # LOAD NOUN WITH 73
001742,001493: 6641 54072 TS NOUN # INDICATES CONIN CH 26 IS NOT ZERO
001743,001494: 6642 06562 TC R1STATLD
001744,001495: 6643 35714 CH25ERR CA NOUN72 # LOAD NOUN WITH 72
001745,001496: 6644 54072 TS NOUN # INDICATES CONOUT CH 25 DID NOT
001746,001497: 6645 06562 TC R1STATLD # LOAD CORRECTLY
001747,001498: 6646 35715 7MINERR CA NOUN71 # LOAD NOUN WITH 71
001748,001499: 6647 54072 TS NOUN # INDICATES TRNSIP HAS NOT APPEARED
001749,001500: 6650 30007 CA ZEROS
001750,001501: 6651 00006 EXTEND
001751,001502: 6652 01025 WRITE CH25
001752,001503: 6653 06562 TC R1STATLD # WITHIN 7 MIN AFTER GOATM WAS LOADED
001753,001504: 6654 35722 ABORTER3 CA NOUN63 # LOAD NOUN WITH 63
001754,001505: 6655 54072 TS NOUN # INDICATES ABORT WAS DETECTED AFTER
001755,001506: 6656 07020 TC V8CHK
001756,001507: 6657 35723 SUMERR CA NOUN62 # LOAD NOUN WITH 62
001757,001508: 6660 54072 TS NOUN # INDICATES SUM CHECK NOT CORRECT
001758,001509: 6661 30130 CA SUML # LOAD R1 WITH SUM
001759,001510: 6662 54073 TS R1
001760,001511: 6663 34021 CA OC17
001761,001512: 6664 54071 TS STATUS
001762,001513: 6665 05174 TC TERR
001763,001514: 6666 35724 OVFLOERR CA NOUN61 # LOAD NOUN WITH 61
001764,001515: 6667 54072 TS NOUN # INDICATES OVERFLOW COUNT NOT CORRECT
001765,001516: 6670 30131 CA OVFLOL # LOAD R1 WITH OVERFLOW COUNT
001766,001517: 6671 54073 TS R1
001767,001518: 6672 34021 CA OC17
001768,001519: 6673 54071 TS STATUS
|
|
Page D-30 |
001770,001521: 6674 05174 TC TERR
001771,001522: 6675 30121 SUMIT CA IDSTOPL # GET BANK SUM + LOAD LAST 2 LOC IN BK
001772,001523: 6676 75731 MSK OC14 # 00014
001773,001524: 6677 54020 TS CYR
001774,001525: 6700 30020 CA CYR
001775,001526: 6701 30020 CA CYR
001776,001527: 6702 54140 TS HOLD1STB # STORE FIRST BANK OF TRANSFER
001777,001528: 6703 54022 TS CYL
001778,001529: 6704 30022 CA CYL
001779,001530: 6705 30022 CA CYL
001780,001531: 6706 30022 CA CYL
001781,001532: 6707 30022 CA CYL
001782,001533: 6710 30022 CA CYL
001783,001534: 6711 30022 CA CYL
001784,001535: 6712 30022 CA CYL
001785,001536: 6713 30022 CA CYL
001786,001537: 6714 30022 CA CYL
001787,001538: 6715 30022 CA CYL
001788,001539: 6716 65703 AD BNK34
001789,001540: 6717 54004 TS FB
001790,001541: 6720 34005 STARTSUM CA ZERO
001791,001542: 6721 54130 TS SUML
001792,001543: 6722 54131 TS OVFLOL
001793,001544: 6723 35704 CA HIGHLOC
001794,001545: 6724 54127 TS CNTDWN1L
001795,001546: 6725 10127 CHKCNTDN CCS CNTDWN1L # HAS BANK BEEN SUMMED
001796,001547: 6726 07007 TC GETSUM # NO
001797,001548: 6727 30140 CA HOLD1STB # YES
001798,001549: 6730 50000 NDX A
001799,001550: 6731 35725 CA EBKEQUIV
001800,001551: 6732 54003 TS EB
001801,001552: 6733 42000 CS 2000
001802,001553: 6734 60120 AD IDSTARTL
001803,001554: 6735 10000 CCS A
001804,001555: 6736 06617 TC IDSTAERA
001805,001556: 6737 06617 TC IDSTAERA
001806,001557: 6740 06742 TC SOMEA
001807,001558: 6741 06617 TC IDSTAERA
001808,001559: 6742 30124 SOMEA CA CH25LOAD
001809,001560: 6743 75462 MASK COMOUT
001810,001561: 6744 54020 TS CYR
001811,001562: 6745 30020 CA CYR
001812,001563: 6746 30020 CA CYR
001813,001564: 6747 30020 CA CYR
001814,001565: 6750 30020 CA CYR
001815,001566: 6751 30020 CA CYR
001816,001567: 6752 30020 CA CYR
001817,001568: 6753 54144 TS HOLD
001818,001569: 6754 32000 CA 2000
001819,001570: 6755 77362 MASK BIT3
001820,001571: 6756 60144 AD HOLD
001821,001572: 6757 77362 MASK BIT3
001822,001573: 6760 10000 CCS A
001823,001574: 6761 06617 TC IDSTAERA
001824,001575: 6762 30130 CA SUML
001825,001576: 6763 55776 TS 1776
001826,001577: 6764 30131 CA OVFLOL
001827,001578: 6765 55777 TS 1777
|
|
Page D-31 |
001829,001580: 6766 30140 CA HOLD1STB
001830,001581: 6767 24000 INCR A
001831,001582: 6770 75705 MSK LASTBNK
001832,001583: 6771 54140 TS HOLD1STB
001833,001584: 6772 30121 CA IDSTOPL
001834,001585: 6773 75705 MSK LASTBNK
001835,001586: 6774 40000 CS A
001836,001587: 6775 60140 AD HOLD1STB
001837,001588: 6776 10000 CCS A
001838,001589: 6777 07003 TC +4
001839,001590: 7000 07003 TC +3
001840,001591: 7001 07003 TC +2
001841,001592: 7002 06153 TC BEGINL
001842,001593: 7003 30004 CA FB
001843,001594: 7004 65707 AD INCRFB
001844,001595: 7005 54004 TS FB
001845,001596: 7006 06720 TC STARTSUM
001846,001597: 7007 54127 GETSUM TS CNTDWN1L
001847,001598: 7010 54001 TS L # ADDRESS 2000 IN L
001848,001599: 7011 50000 NDX A
001849,001600: 7012 32000 CA 2000
001850,001601: 7013 60130 AD SUML
001851,001602: 7014 54130 TS SUML
001852,001603: 7015 06725 TC CHKCNTDN # NO OVERFLOW
001853,001604: 7016 24131 INCR OVFLOL # OVERFLOW
001854,001605: 7017 06725 TC CHKCNTDN
001855,001606: 7020 30115 V8CHK CA VERBREGL
001856,001607: 7021 65732 AD VERB8
001857,001608: 7022 10000 CCS A
001858,001609: 7023 06562 TC R1STATLD
001859,001610: 7024 06562 TC R1STATLD
001860,001611: 7025 06562 TC R1STATLD
001861,001612: 7026 00006 EXTEND
001862,001613: 7027 00021 READ CH21
001863,001614: 7030 54073 TS R1
001864,001615: 7031 06565 TC IDSERRA
001865,001616: 7032 04506 V14 TC DISPLAY
001866,001617: 7033 35733 CA READK14
001867,001618: 7034 54136 TS READKSTA
001868,001619: 7035 35743 CA BBKAA
001869,001620: 7036 54145 TS BBK
001870,001621: 7037 07045 TC COMROUTN
001871,001622: 7040 04506 V15 TC DISPLAY
001872,001623: 7041 35734 CA READK15
001873,001624: 7042 54136 TS READKSTA
001874,001625: 7043 35744 CA BBKBA
001875,001626: 7044 54145 TS BBK
001876,001627: 7045 30145 COMROUTN CA BBK # TRANSFER DATA FROM PAC TO ACM
001877,001628: 7046 54006 TS BB
001878,001629: 7047 35737 CA ACMFBKA
001879,001630: 7050 54165 TS ACMFBK
001880,001631: 7051 34005 CA ZERO
001881,001632: 7052 54141 TS EBCOUNT
001882,001633: 7053 54142 TS FBCOUNT
001883,001634: 7054 07060 TC PACTRNS
001884,001635: 7055 06142 TC TPTRAN
001885,001636: 7056 07107 TC CLRACM
001886,001637: 7057 07164 TC CRTNAFT
|
|
Page D-32 |
001888,001639: 7060 30002 PACTRNS CA Q
001889,001640: 7061 54137 TS QSTORL
001890,001641: 7062 50142 CONTTRNS NDX FBCOUNT
001891,001642: 7063 32000 CA 2000
001892,001643: 7064 50141 NDX EBCOUNT
001893,001644: 7065 55400 TS 1400
001894,001645: 7066 24142 INCR FBCOUNT
001895,001646: 7067 24141 INCR EBCOUNT
001896,001647: 7070 30142 CA FBCOUNT
001897,001648: 7071 54001 TS L # ADDRESS 1400 IN L
001898,001649: 7072 45735 CS EBFULL
001899,001650: 7073 60141 AD EBCOUNT
001900,001651: 7074 10000 CCS A # IS AN ACM EBANK FULL
001901,001652: 7075 06000 TC MERR # ERROR
001902,001653: 7076 06000 TC MERR # ERROR
001903,001654: 7077 07062 TC CONTTRNS # NO
001904,001655: 7100 45736 CS FBFULL # YES
001905,001656: 7101 60142 AD FBCOUNT
001906,001657: 7102 10000 CCS A # HAS A COMPLETE PAC BANK BEEN TRANSFD
001907,001658: 7103 06000 TC MERR # ERROR
001908,001659: 7104 06000 TC MERR # ERROR
001909,001660: 7105 07257 TC INCREB # NO
001910,001661: 7106 00137 TC QSTORL # YES GO TO SUBROUTINE WHICH XFERS
001911,001662: # DATA FROM ACM TO ATM
001912,001663: 7107 30145 CLRACM CA BBK # CLEAR ACM
001913,001664: 7110 54006 TS BB
001914,001665: 7111 34005 CA ZERO
001915,001666: 7112 54142 TS FBCOUNT
001916,001667: 7113 54141 TS EBCOUNT
001917,001668: 7114 30002 CA Q
001918,001669: 7115 54070 TS QSTORE
001919,001670: 7116 30142 CONTCLR CA FBCOUNT
001920,001671: 7117 54103 TS TEMPA
001921,001672: 7120 30007 CA ZEROS
001922,001673: 7121 50141 NDX EBCOUNT
001923,001674: 7122 55400 TS 1400
001924,001675: 7123 24141 INCR EBCOUNT
001925,001676: 7124 24142 INCR FBCOUNT
001926,001677: 7125 45735 CS EBFULL
001927,001678: 7126 60141 AD EBCOUNT
001928,001679: 7127 10000 CCS A # HAS AN ACM EBANK BEEN CLEARED
001929,001680: 7130 06000 TC MERR # ERROR
001930,001681: 7131 06000 TC MERR # ERROR
001931,001682: 7132 07263 TC ZEROA # NO
001932,001683: 7133 45736 CS FBFULL # YES
001933,001684: 7134 60142 AD FBCOUNT
001934,001685: 7135 10000 CCS A # HAVE 4 ACM EBANKS BEEN CLEARED
001935,001686: 7136 06000 TC MERR # ERROR
001936,001687: 7137 06000 TC MERR # ERROR
001937,001688: 7140 07265 TC INCREBA # NO
001938,001689: 7141 30103 CA TEMPA
001939,001690: 7142 54142 TS FBCOUNT
001940,001691: 7143 30165 CA ACMFBK
001941,001692: 7144 54004 TS FB
001942,001693: 7145 50142 CONTZCHK NDX FBCOUNT
001943,001694: 7146 32000 CA 2000
001944,001695: 7147 10000 CCS A # IS ACM WORD CLARED
001945,001696: 7150 07271 TC CLRERROR # NO
|
|
Page D-33 |
001947,001698: 7151 07154 TC +3 # YES
001948,001699: 7152 07271 TC CLRERROR # NO
001949,001700: 7153 07271 TC CLRERROR # NO
001950,001701: 7154 24142 INCR FBCOUNT
001951,001702: 7155 45736 CS FBFULL
001952,001703: 7156 60142 AD FBCOUNT
001953,001704: 7157 10000 CCS A # HAS EVERY ACM WORD BEEN CHECKED
001954,001705: 7160 06000 TC MERR # ERROR
001955,001706: 7161 06000 TC MERR # ERROR
001956,001707: 7162 07145 TC CONTZCHK # NO
001957,001708: 7163 00070 TC QSTORE # YES
001958,001709: 7164 35741 CRTNAFT CA READKC25 # CONTINUE
001959,001710: 7165 54124 TS CH25LOAD
001960,001711: 7166 30136 CA READKSTA
001961,001712: 7167 54120 TS IDSTARTL
001962,001713: 7170 34005 CA ZERO
001963,001714: 7171 54121 TS IDSTOPL
001964,001715: 7172 06142 TC TPTRAN
001965,001716: 7173 30007 AMCHKLA CA ZEROS # CHECK ACM AGAINST PAC
001966,001717: 7174 54142 TS FBCOUNT
001967,001718: 7175 54143 TS ERRCOUNT
001968,001719: 7176 07200 TC +2
001969,001720: 7177 07230 TC ERRCHKAA
001970,001721: 7200 30002 CA Q
001971,001722: 7201 54137 TS QSTORL
001972,001723: 7202 30145 CONTWDCK CA BBK
001973,001724: 7203 54006 TS BB
001974,001725: 7204 50142 NDX FBCOUNT
001975,001726: 7205 32000 CA 2000
001976,001727: 7206 54144 TS HOLD
001977,001728: 7207 30165 CA ACMFBK
001978,001729: 7210 54004 TS FB
001979,001730: 7211 50142 NDX FBCOUNT
001980,001731: 7212 42000 CS 2000
001981,001732: 7213 60144 AD HOLD
001982,001733: 7214 10000 CCS A # DOES ACM WORD AGREE WITH PAC WORD
001983,001734: 7215 07234 TC UPERCNT # NO
001984,001735: 7216 07234 TC UPERCNT # NO
001985,001736: 7217 07234 TC UPERCNT # NO
001986,001737: 7220 24142 CONTINU INCR FBCOUNT
001987,001738: 7221 40142 CS FBCOUNT
001988,001739: 7222 65745 AD FULLESS2
001989,001740: 7223 10000 CCS A # HAS EVERY WORD BEEN CHECKED
001990,001741: 7224 07202 TC CONTWDCK # NO
001991,001742: 7225 07202 TC CONTWDCK # NO
001992,001743: 7226 07202 TC CONTWDCK # NO
001993,001744: 7227 00137 TC QSTORL
001994,001745: 7230 30143 ERRCHKAA CA ERRCOUNT
001995,001746: 7231 10000 CCS A # WERE THERE ANY ERRORS
001996,001747: 7232 04460 TC IDLE # YES
001997,001748: 7233 05620 TC SUCCESS # NO
001998,001749: 7234 24143 UPERCNT INCR ERRCOUNT
001999,001750: 7235 35742 CA NOUN56
002000,001751: 7236 54072 TS NOUN
002001,001752: 7237 35736 CA FBFULL
002002,001753: 7240 60142 AD FBCOUNT
002003,001754: 7241 54073 TS R1 # LOAD R1 WITH ADDRESS OF ERROR
002004,001755: 7242 50000 NDX A
|
|
Page D-34 |
002006,001757: 7243 30000 CA A
002007,001758: 7244 54074 TS R2 # LOAD R2 WITH ACM DATA
002008,001759: 7245 30145 CA BBK
002009,001760: 7246 54006 TS BB
002010,001761: 7247 30073 CA R1
002011,001762: 7250 50000 NDX A
002012,001763: 7251 30000 CA A
002013,001764: 7252 54075 TS R3 # LOAD R3 WITH PAC DATA
002014,001765: 7253 34021 CA OC17
002015,001766: 7254 54071 TS STATUS
002016,001767: 7255 04506 TC DISPLAY # DISPLAY NOUN R1 R2 AND R3
002017,001768: 7256 07220 TC CONTINU # CHECK NEXT WORD
002018,001769: 7257 34005 INCREB CA ZERO # PAC DATA XFER NOT COMPLETE UPDATE
002019,001770: 7260 54141 TS EBCOUNT # ACM EBANK
002020,001771: 7261 24006 INCR BB
002021,001772: 7262 07062 TC CONTTRNS
002022,001773: 7263 34005 ZEROA CA ZERO
002023,001774: 7264 07116 TC CONTCLR
002024,001775: 7265 24006 INCREBA INCR BB
002025,001776: 7266 34005 CA ZERO
002026,001777: 7267 54141 TS EBCOUNT
002027,001778: 7270 07116 TC CONTCLR
002028,001779: 7271 35736 CLRERROR CA FBFULL # LOAD NOUN WITH 57
002029,001780: 7272 60142 AD FBCOUNT # INDICATES ACM DID NOT CLEAR AFTER
002030,001781: 7273 54073 TS R1 # DATA WAS SENT TO ATM
002031,001782: 7274 34021 CA OC17 # LOAD R1 WITH FIRST ACM ADDRESS THAT
002032,001783: 7275 54071 TS STATUS # WAS NOT CLEARED
002033,001784: 7276 35740 CA NOUN57
002034,001785: 7277 54072 TS NOUN
002035,001786: 7300 05174 TC TERR
002036,001787: 7301 04506 V16 TC DISPLAY
002037,001788: 7302 35746 CA 1STBKA
002038,001789: 7303 54163 TS BNKNUMAA
002039,001790: 7304 35747 CA 2NDBKA
002040,001791: 7305 54164 TS BNKNUMBA
002041,001792: 7306 07315 TC TRFRA
002042,001793: 7307 35750 CA 3RDBKA
002043,001794: 7310 54163 TS BNKNUMAA
002044,001795: 7311 35751 CA 4THBKA
002045,001796: 7312 54164 TS BNKNUMBA
002046,001797: 7313 07315 TC TRFRA
002047,001798: 7314 07336 TC NARTCAPA
002048,001799: 7315 30002 TRFRA CA Q
002049,001800: 7316 54070 TS QSTORE
002050,001801: 7317 30163 CA BNKNUMAA
002051,001802: 7320 54006 TS BB
002052,001803: 7321 32000 CA 2000 # LOAD ID FOR EBANK
002053,001804: 7322 55400 TS 1400 # ENDING ZERO
002054,001805: 7323 35475 CA OC10
002055,001806: 7324 54141 TS EBCOUNT
002056,001807: 7325 54142 TS FBCOUNT
002057,001808: 7326 07060 TC PACTRNS
002058,001809: 7327 30164 CA BNKNUMBA
002059,001810: 7330 54006 TS BB
002060,001811: 7331 30007 CA ZEROS
002061,001812: 7332 54141 TS EBCOUNT
002062,001813: 7333 54142 TS FBCOUNT
002063,001814: 7334 07060 TC PACTRNS
|
|
Page D-35 |
002065,001816: 7335 00070 TC QSTORE
002066,001817: 7336 06142 NARTCAPA TC TPTRAN
002067,001818: 7337 34313 CA STARTBLE +8
002068,001819: 7340 54120 TS IDSTARTL
002069,001820: 7341 34334 CA STOPTBLE +8
002070,001821: 7342 54121 TS IDSTOPL
002071,001822: 7343 34355 CA CH25TBLE +8
002072,001823: 7344 54124 TS CH25LOAD
002073,001824: 7345 07032 TC V14
002074,001825: 7346 04506 V10 TC DISPLAY
002075,001826: 7347 06142 TC TPTRAN
002076,001827: 7350 30125 CA CORERCNT
002077,001828: 7351 54073 TS R1
002078,001829: 7352 34337 CA ALL7SL
002079,001830: 7353 54074 TS R2
002080,001831: 7354 54075 TS R3
002081,001832: 7355 54072 TS NOUN
002082,001833: 7356 34021 CA OC17
002083,001834: 7357 54071 TS STATUS
002084,001835: 7360 04506 TC DISPLAY
002085,001836: 7361 04460 TC IDLE
002086,001837: 7362 00004 BIT3 OCT 00004
002087,001838: 7363 34005 V00PROC CA ZERO
002088,001839: 7364 54152 TS READX
002089,001840: 7365 54153 TS BANKNO
002090,001841: 7366 54162 TS DATAHOLD
002091,001842: 7367 54154 TS ADDHOLD
002092,001843: 7370 54156 TS BNKSHFT
002093,001844: 7371 54160 TS HOLDBKDG
002094,001845: 7372 35706 CA BNK5
002095,001846: 7373 54161 TS GETDATA
002096,001847: 7374 54151 TS GETADD
002097,001848: 7375 34015 CA TWO
002098,001849: 7376 54157 TS 1STBNKNO
002099,001850: 7377 64003 AD ONE
002100,001851: 7400 54150 TS BNKPR
002101,001852: 7401 34003 CA ONE
002102,001853: 7402 54147 TS 1STDIGPR
002103,001854: 7403 04454 TC RETURNL
002104,001855: 7404 30166 ZZPROC CA SWITCH
002105,001856: 7405 10000 CCS A
002106,001857: 7406 02000 TC 2000
002107,001858: 7407 40110 CS TEMP1L
002108,001859: 7410 74011 MSK THIRTY
002109,001860: 7411 10000 CCS A # WAS A DIGIT HIT
002110,001861: 7412 07414 TC +2 # YES
002111,001862: 7413 04435 TC OPERROR # NO
002112,001863: 7414 30110 CA TEMP1L
002113,001864: 7415 75475 MSK OC10
002114,001865: 7416 10000 CCS A # WAS 8 OR 9 HIT
002115,001866: 7417 04435 TC OPERROR # YES
002116,001867: 7420 30110 CA TEMP1L # NO
002117,001868: 7421 74360 MSK MASKBA
002118,001869: 7422 54146 TS HOLDIT
002119,001870: 7423 10147 CCS 1STDIGPR # IS THIS FIRST DIGIT HIT
002120,001871: 7424 07463 TC MODESEL # YES
002121,001872: 7425 10150 CCS BNKPR # NO IS THIS THE 2ND OR 3RD DIGIT
002122,001873: 7426 07515 TC LDBNKL # YES
|
|
Page D-36 |
002124,001875: 7427 10151 CCS GETADD # NO IS THE ADDRESS COMPLETE
002125,001876: 7430 07530 TC ADDPROC # NO
002126,001877: 7431 10152 CCS READX # YES IS THIS A LOAD
002127,001878: 7432 07542 TC DATALD # YES
002128,001879: 7433 30153 CA BANKNO # NO
002129,001880: 7434 54006 TS BB
002130,001881: 7435 10146 CCS HOLDIT
002131,001882: 7436 07440 TC +2
002132,001883: 7437 07455 TC TRANSC
002133,001884: 7440 30154 CA ADDHOLD
002134,001885: 7441 54074 TS R2 # DISPLAY ADDRESS IN R2
002135,001886: 7442 50000 NDX A
002136,001887: 7443 30000 CA A
002137,001888: 7444 54075 TS R3 # DISPLAY DATA IN R3
002138,001889: 7445 24154 INCR ADDHOLD
002139,001890: 7446 37451 UPDISPLA CA GODISP # UPDATE DISPLAY WITH BRUPT
002140,001891: 7447 54017 TS BRUPT
002141,001892: 7450 50017 RESUME
002142,001893: 7451 07452 GODISP TC +1
002143,001894: 7452 04506 TC DISPLAY
002144,001895: 7453 04460 TC IDLE
002145,001896: 7454 05620 TOSUCCL TC SUCCESS
002146,001897: 7455 37454 TRANSC CA TOSUCCL
002147,001898: 7456 54070 TS QSTORE
002148,001899: 7457 54137 TS QSTORL
002149,001900: 7460 30154 CA ADDHOLD
002150,001901: 7461 54017 TS BRUPT
002151,001902: 7462 50017 RESUME
002152,001903: 7463 54147 MODESEL TS 1STDIGPR
002153,001904: 7464 30146 CA HOLDIT
002154,001905: 7465 54072 TS NOUN
002155,001906: 7466 34021 CA OC17
002156,001907: 7467 54071 TS STATUS
002157,001908: 7470 30007 CA ZEROS
002158,001909: 7471 54073 TS R1
002159,001910: 7472 54074 TS R2
002160,001911: 7473 54075 TS R3
002161,001912: 7474 10146 CCS HOLDIT # WILL THE OP BE READ FXD
002162,001913: 7475 07501 TC CONTMODE # NO
002163,001914: 7476 34003 CA ONE # YES
002164,001915: 7477 54156 TS BNKSHFT
002165,001916: 7500 07446 TC UPDISPLA
002166,001917: 7501 10000 CONTMODE CCS A # WILL THE OP BE LOAD OR READ ERR
002167,001918: 7502 07504 TC ENDOP
002168,001919: 7503 07446 TC UPDISPLA
002169,001920: 7504 10000 ENDOP CCS A
002170,001921: 7505 07512 TC MIKEB
002171,001922: 7506 07507 TC LOADSET
002172,001923: 7507 34003 LOADSET CA ONE
002173,001924: 7510 54152 TS READX
002174,001925: 7511 07446 TC UPDISPLA
002175,001926: 7512 35215 MIKEB CA V00BK
002176,001927: 7513 54004 TS FB
002177,001928: 7514 02001 TC 2001
002178,001929: 7515 54150 LDBNKL TS BNKPR
002179,001930: 7516 10157 CCS 1STBNKNO # IS THIS THE 1ST BNK NO
002180,001931: 7517 05643 TC SHIFT3L # YES
002181,001932: 7520 30146 CA HOLDIT # NO
|
|
Page D-37 |
002183,001934: 7521 60160 AD HOLDBKDG
002184,001935: 7522 54153 TS BANKNO
002185,001936: 7523 10156 CCS BNKSHFT # IS THE ADDRESS FXD OR ERR
002186,001937: 7524 05631 TC FXDPR
002187,001938: 7525 30153 CA BANKNO
002188,001939: 7526 54073 TS R1
002189,001940: 7527 07446 TC UPDISPLA
002190,001941: 7530 54151 ADDPROC TS GETADD
002191,001942: 7531 30154 CA ADDHOLD
002192,001943: 7532 54022 TS CYL
002193,001944: 7533 30022 CA CYL
002194,001945: 7534 30022 CA CYL
002195,001946: 7535 30022 CA CYL
002196,001947: 7536 60146 AD HOLDIT
002197,001948: 7537 54154 TS ADDHOLD
002198,001949: 7540 54074 TS R2
002199,001950: 7541 07446 TC UPDISPLA
002200,001951: 7542 10161 DATALD CCS GETDATA # IS DATA COMPLETE
002201,001952: 7543 07567 TC CONTDATA # NO
002202,001953: 7544 30153 CA BANKNO # YES
002203,001954: 7545 54006 TS BB
002204,001955: 7546 30154 CA ADDHOLD
002205,001956: 7547 54074 TS R2
002206,001957: 7550 35706 CA BNK5
002207,001958: 7551 54161 TS GETDATA
002208,001959: 7552 30162 CA DATAHOLD
002209,001960: 7553 50154 NDX ADDHOLD
002210,001961: 7554 54000 TS A
002211,001962: 7555 50154 NDX ADDHOLD
002212,001963: 7556 30000 CA A
002213,001964: 7557 54073 TS R1
002214,001965: 7560 24154 INCR ADDHOLD
002215,001966: 7561 34005 CA ZERO
002216,001967: 7562 54162 TS DATAHOLD
002217,001968: 7563 37451 CA GODISP
002218,001969: 7564 54017 TS BRUPT
002219,001970: 7565 50017 RESUME
002220,001971: 7566 04460 TC IDLE
002221,001972: 7567 54161 CONTDATA TS GETDATA
002222,001973: 7570 30162 CA DATAHOLD
002223,001974: 7571 54022 TS CYL
002224,001975: 7572 30022 CA CYL
002225,001976: 7573 30022 CA CYL
002226,001977: 7574 30022 CA CYL
002227,001978: 7575 60146 AD HOLDIT
002228,001979: 7576 54162 TS DATAHOLD
002229,001980: 7577 54075 TS R3
002230,001981: 7600 07446 TC UPDISPLA
002231,001982: 7601 00006 7SCHKA EXTEND
002232,001983: 7602 00023 READ CH23
002233,001984: 7603 10000 CCS A
002234,001985: 7604 00137 TC QSTORL
002235,001986: 7605 00137 TC QSTORL
002236,001987: 7606 00137 TC QSTORL
002237,001988: 7607 37615 CA OC177
002238,001989: 7610 00006 EXTEND
002239,001990: 7611 01011 WRITE CH11
002240,001991: 7612 37616 CA NOUN60
|
|
Page D-38 |
002242,001993: 7613 54072 TS NOUN
002243,001994: 7614 06562 TC R1STATLD
002244,001995: 7615 00177 OC177 OCT 00177
002245,001996: 7616 00060 NOUN60 OCT 00060
002246,001997: 7617 04506 V21 TC DISPLAY
002247,001998: 7620 06142 TC TPTRAN
002248,001999: 7621 02001 TC 2001
002249,002000: 7622 05620 TC SUCCESS
002250,002001: 7623 04506 V22 TC DISPLAY
002251,002002: 7624 35752 CA BBKCA # ...........
002252,002003: 7625 54163 TS BNKNUMAA # .
002253,002004: 7626 35753 CA BBKDA # .
002254,002005: 7627 54164 TS BNKNUMBA # .
002255,002006: 7630 07315 TC TRFRA # PAC TO MU4
002256,002007: 7631 35754 CA BBKEA # .
002257,002008: 7632 54163 TS BNKNUMAA # .
002258,002009: 7633 35755 CA BBKFA # .
002259,002010: 7634 54164 TS BNKNUMBA # .
002260,002011: 7635 07315 TC TRFRA # ...........
002261,002012: 7636 35756 CA BBKGA # .
002262,002013: 7637 54163 TS BNKNUMAA # .
002263,002014: 7640 35757 CA BBKHA # .
002264,002015: 7641 54164 TS BNKNUMBA # .
002265,002016: 7642 07315 TC TRFRA # MU4 TO MU5
002266,002017: 7643 35760 CA BBKIA # .
002267,002018: 7644 54163 TS BNKNUMAA # .
002268,002019: 7645 35761 CA BBKJA # .
002269,002020: 7646 54164 TS BNKNUMBA # .
002270,002021: 7647 07315 TC TRFRA # ...........
002271,002022: 7650 06142 TC TPTRAN # MU5 TO ATM
002272,002023: 7651 35756 CA BBKGA
002273,002024: 7652 54006 TS BB
002274,002025: 7653 35703 CA BNK34 # 70000
002275,002026: 7654 54165 TS ACMFBK
002276,002027: 7655 35475 CA OC10
002277,002028: 7656 54142 TS FBCOUNT
002278,002029: 7657 54141 TS EBCOUNT
002279,002030: 7660 07114 TC CONTCLR -2
002280,002031: 7661 35757 CA BBKHA
002281,002032: 7662 54145 TS BBK
002282,002033: 7663 35737 CA ACMFBKA # 72000
002283,002034: 7664 54165 TS ACMFBK
002284,002035: 7665 07107 TC CLRACM # CLEAR ACM MU5 BK35
002285,002036: 7666 35760 CA BBKIA
002286,002037: 7667 54006 TS BB
002287,002038: 7670 35467 CA OUTCONCA # 74000
002288,002039: 7671 54165 TS ACMFBK
002289,002040: 7672 35475 CA OC10
002290,002041: 7673 54142 TS FBCOUNT
002291,002042: 7674 54141 TS EBCOUNT
002292,002043: 7675 07114 TC CONTCLR -2
002293,002044: 7676 35761 CA BBKJA
002294,002045: 7677 54145 TS BBK
002295,002046: 7700 35615 CA LASTBKA # 76000
002296,002047: 7701 54165 TS ACMFBK
002297,002048: 7702 07107 TC CLRACM # CLEAR ACM MU5 BK37
002298,002049: 7703 35613 CA STOPA # ...........
002299,002050: 7704 54124 TS CH25LOAD # .
|
|
Page D-39 |
002301,002052: 7705 35762 CA OCT51010
002302,002053: 7706 54120 TS IDSTARTL # SET UP TPTRAN
002303,002054: 7707 35731 CA OC14
002304,002055: 7710 54121 TS IDSTOPL # .
002305,002056: 7711 06142 TC TPTRAN # ...........
002306,002057: 7712 30007 CA ZEROS
002307,002058: 7713 54143 TS ERRCOUNT # SET ERROR COUNT TO ZERO
002308,002059: 7714 35475 CA OC10
002309,002060: 7715 54142 TS FBCOUNT # START 1ST BANK AT 2010
002310,002061: 7716 35756 CA BBKGA # MU4 FBANK 30 R3 IF ERROR
002311,002062: 7717 54145 TS BBK
002312,002063: 7720 35703 CA BNK34 # MU5 FBANK 34 R2 IF ERROR
002313,002064: 7721 54165 TS ACMFBK
002314,002065: 7722 07200 TC CONTWDCK -2
002315,002066: 7723 30007 CA ZEROS
002316,002067: 7724 54142 TS FBCOUNT # START 2ND BANK AT 2000
002317,002068: 7725 35757 CA BBKHA # MU4 FBANK 31 R3 IF ERROR
002318,002069: 7726 54145 TS BBK
002319,002070: 7727 35737 CA ACMFBKA # MU5 FBANK 35 R2 IF ERROR
002320,002071: 7730 54165 TS ACMFBK
002321,002072: 7731 07200 TC CONTWDCK -2
002322,002073: 7732 35475 CA OC10
002323,002074: 7733 54142 TS FBCOUNT # START 3RD BANK AT 2010
002324,002075: 7734 35760 CA BBKIA # MU4 FBANK 32 R3 IF ERROR
002325,002076: 7735 54145 TS BBK
002326,002077: 7736 35467 CA OUTCONCA # MU5 FBANK 36 R2 IF ERROR
002327,002078: 7737 54165 TS ACMFBK
002328,002079: 7740 07200 TC CONTWDCK -2
002329,002080: 7741 30007 CA ZEROS
002330,002081: 7742 54142 TS FBCOUNT # START 4TH BANK AT 2000
002331,002082: 7743 35761 CA BBKJA # MU4 FBANK 33 R3 IF ERROR
002332,002083: 7744 54145 TS BBK
002333,002084: 7745 35615 CA LASTBKA # MU5 FBANK 37 R2 IF ERROR
002334,002085: 7746 54165 TS ACMFBK
002335,002086: 7747 07200 TC CONTWDCK -2
002336,002087: 7750 07230 TC ERRCHKAA
002337,002088: 7751 00006 LISTID EXTEND
002338,002089: 7752 00023 READ CH23
002339,002090: 7753 54167 TS NEWID
002340,002091: 7754 40000 CS A
002341,002092: 7755 60170 AD OLDID
002342,002093: 7756 10000 CCS A # IS NEWID EQUAL TO OLDID
002343,002094: 7757 07763 TC +4 # STORE NEWID
002344,002095: 7760 07763 TC +3 # STORE NEWID
002345,002096: 7761 07763 TC +2 # STORE NEWID
002346,002097: 7762 06311 TC FNDTRNSP # YES GO BACK TO ROUTINE
002347,002098: 7763 30167 CA NEWID
002348,002099: 7764 54170 TS OLDID
002349,002100: 7765 50171 INDEX LSTCNT
002350,002101: 7766 54000 TS A # LOAD LIST
002351,002102: 7767 24171 INCR LSTCNT
002352,002103: 7770 35462 CA COMOUT
002353,002104: 7771 50171 INDEX LSTCNT
002354,002105: 7772 54000 TS A
002355,002106: 7773 06311 TC FNDTRNSP
002356,002107: 16,2000 SETLOC CF162000
002357,002108: 16,2000 02047 TC STDATTR
002358,002109: 16,2001 32426 CA FIVE
|
|
Page D-40 |
002360,002111: 16,2002 54172 TS ONETO5
002361,002112: 16,2003 34005 CA ZERO
002362,002113: 16,2004 54173 TS SIXTH
002363,002114: 16,2005 54174 TS SEVENTH
002364,002115: 16,2006 54175 TS EIGHTH
002365,002116: 16,2007 54201 TS PUNCH5
002366,002117: 16,2010 54210 TS PUNCH6
002367,002118: 16,2011 34021 CA OC17
002368,002119: 16,2012 54071 TS STATUS
002369,002120: 16,2013 35472 CA C2A
002370,002121: 16,2014 54202 TS LDFBLL
002371,002122: 16,2015 35705 CA LASTBNK
002372,002123: 16,2016 54203 TS LDEBLL
002373,002124: 16,2017 50146 NDX HOLDIT
002374,002125: 16,2020 02021 TC WHCHMBD
002375,002126: 16,2021 04435 WHCHMBD TC OPERROR
002376,002127: 16,2022 04435 TC OPERROR
002377,002128: 16,2023 04435 TC OPERROR
002378,002129: 16,2024 02035 TC RLRD # THREE READ
002379,002130: 16,2025 02040 TC RLLD # FOUR LOAD
002380,002131: 16,2026 02265 TC LDPN5
002381,002132: 16,2027 02031 TC AMCHKL
002382,002133: 16,2030 04435 TC OPERROR
002383,002134: 16,2031 34003 AMCHKL CA ONE
002384,002135: 16,2032 54210 TS PUNCH6
002385,002136: 16,2033 54201 TS PUNCH5
002386,002137: 16,2034 02044 TC SETSW
002387,002138: 16,2035 34003 RLRD CA ONE
002388,002139: 16,2036 54176 TS RDLD
002389,002140: 16,2037 02042 TC +3
002390,002141: 16,2040 34005 RLLD CA ZERO
002391,002142: 16,2041 54176 TS RDLD
002392,002143: 16,2042 34005 CA ZERO
002393,002144: 16,2043 54146 TS HOLDIT
002394,002145: 16,2044 34003 SETSW CA ONE
002395,002146: 16,2045 54166 TS SWITCH
002396,002147: 16,2046 07446 TC UPDISPLA
002397,002148: 16,2047 10201 STDATTR CCS PUNCH5
002398,002149: 16,2050 02270 TC TRPACBNK
002399,002150: 16,2051 40110 CS TEMP1L
002400,002151: 16,2052 74011 MSK THIRTY
002401,002152: 16,2053 10000 CCS A # DIGIT
002402,002153: 16,2054 02056 TC +2 # YES
002403,002154: 16,2055 02063 TC ENTCHK # NO
002404,002155: 16,2056 30110 CA TEMP1L
002405,002156: 16,2057 75475 MSK OC10
002406,002157: 16,2060 10000 CCS A # 8 OR 9
002407,002158: 16,2061 04435 TC OPERROR # YES
002408,002159: 16,2062 02071 TC ENTROK # NO
002409,002160: 16,2063 40110 ENTCHK CS TEMP1L
002410,002161: 16,2064 64013 AD ENTRCDEL
002411,002162: 16,2065 10000 CCS A # ENTER
002412,002163: 16,2066 04435 TC OPERROR # NO
002413,002164: 16,2067 04435 TC OPERROR # NO
002414,002165: 16,2070 04435 TC OPERROR # NO
002415,002166: 16,2071 30110 ENTROK CA TEMP1L
002416,002167: 16,2072 74360 MSK MASKBA
002417,002168: 16,2073 54177 TS HOLDNO
|
|
Page D-41 |
002419,002170: 16,2074 30172 CA ONETO5
002420,002171: 16,2075 10000 CCS A
002421,002172: 16,2076 02100 TC +2
002422,002173: 16,2077 02125 TC SMPXTPX
002423,002174: 16,2100 54172 TS ONETO5
002424,002175: 16,2101 30177 CA HOLDNO
002425,002176: 16,2102 26146 ADS HOLDIT
002426,002177: 16,2103 30172 CA ONETO5
002427,002178: 16,2104 10000 CCS A
002428,002179: 16,2105 02107 TC +2
002429,002180: 16,2106 02117 TC DISPITL
002430,002181: 16,2107 30146 CA HOLDIT
002431,002182: 16,2110 54073 TS R1
002432,002183: 16,2111 54022 TS CYL
002433,002184: 16,2112 30022 CA CYL
002434,002185: 16,2113 30022 CA CYL
002435,002186: 16,2114 30022 CA CYL
002436,002187: 16,2115 54146 TS HOLDIT
002437,002188: 16,2116 07446 TC UPDISPLA
002438,002189: 16,2117 30146 DISPITL CA HOLDIT
002439,002190: 16,2120 54073 TS R1
002440,002191: 16,2121 34005 CA ZERO
002441,002192: 16,2122 54074 TS R2
002442,002193: 16,2123 54075 TS R3
002443,002194: 16,2124 07446 TC UPDISPLA
002444,002195: 16,2125 30173 SMPXTPX CA SIXTH
002445,002196: 16,2126 10000 CCS A
002446,002197: 16,2127 02145 TC NOBNKS
002447,002198: 16,2130 30177 CA HOLDNO
002448,002199: 16,2131 10000 CCS A # ZERO TRIPLEX
002449,002200: 16,2132 34320 CA OUTCOML # ONE SIMPLEX
002450,002201: 16,2133 64345 AD CH25TBLE
002451,002202: 16,2134 54146 TS HOLDIT
002452,002203: 16,2135 10176 CCS RDLD
002453,002204: 16,2136 02140 TC +2 # ONE READ TAPE
002454,002205: 16,2137 35701 CA WDATAL # ZERO WRITE TAPE
002455,002206: 16,2140 60146 AD HOLDIT
002456,002207: 16,2141 54075 TS R3
002457,002208: 16,2142 34003 CA ONE
002458,002209: 16,2143 54173 TS SIXTH
002459,002210: 16,2144 07446 TC UPDISPLA
002460,002211: 16,2145 30174 NOBNKS CA SEVENTH
002461,002212: 16,2146 10000 CCS A
002462,002213: 16,2147 02201 TC KEEPGNG
002463,002214: 16,2150 30177 CA HOLDNO
002464,002215: 16,2151 54200 TS NOOFBNKS
002465,002216: 16,2152 50000 NDX A
002466,002217: 16,2153 02154 TC BNKNOOK
002467,002218: 16,2154 04435 BNKNOOK TC OPERROR
002468,002219: 16,2155 02164 TC ONEBNK
002469,002220: 16,2156 02171 TC BNKGD
002470,002221: 16,2157 02171 TC BNKGD
002471,002222: 16,2160 02171 TC BNKGD
002472,002223: 16,2161 04435 TC OPERROR
002473,002224: 16,2162 04435 TC OPERROR
002474,002225: 16,2163 04435 TC OPERROR
002475,002226: 16,2164 34005 ONEBNK CA ZERO
002476,002227: 16,2165 54074 TS R2
|
|
Page D-42 |
002478,002229: 16,2166 34003 CA ONE
002479,002230: 16,2167 54174 TS SEVENTH
002480,002231: 16,2170 07446 TC UPDISPLA
002481,002232: 16,2171 30073 BNKGD CA R1
002482,002233: 16,2172 74012 MSK FIRST5
002483,002234: 16,2173 60177 AD HOLDNO
002484,002235: 16,2174 74012 MSK FIRST5
002485,002236: 16,2175 54074 TS R2
002486,002237: 16,2176 34003 CA ONE
002487,002238: 16,2177 54174 TS SEVENTH
002488,002239: 16,2200 07446 TC UPDISPLA
002489,002240: 16,2201 30175 KEEPGNG CA EIGHTH
002490,002241: 16,2202 10000 CCS A
002491,002242: 16,2203 02256 TC WRITEIT
002492,002243: 16,2204 40110 CS TEMP1L
002493,002244: 16,2205 64013 AD ENTRCDEL
002494,002245: 16,2206 10000 CCS A # WAS ENTER HIT
002495,002246: 16,2207 02230 TC WRITTPL # NO
002496,002247: 16,2210 02230 TC WRITTPL # NO
002497,002248: 16,2211 02230 TC WRITTPL # NO
002498,002249: 16,2212 10176 CCS RDLD # YES WAS A READ REQUESTED
002499,002250: 16,2213 02215 TC +2 # YES
002500,002251: 16,2214 04435 TC OPERROR # NO
002501,002252: 16,2215 30073 EXITLLL CA R1
002502,002253: 16,2216 54120 TS IDSTARTL
002503,002254: 16,2217 30074 CA R2
002504,002255: 16,2220 54121 TS IDSTOPL
002505,002256: 16,2221 30075 CA R3
002506,002257: 16,2222 54124 TS CH25LOAD
002507,002258: 16,2223 34005 CA ZERO
002508,002259: 16,2224 54107 TS ZZTAG
002509,002260: 16,2225 32427 CA GOL
002510,002261: 16,2226 54017 TS BRUPT
002511,002262: 16,2227 50017 RESUME
002512,002263: 16,2230 10176 WRITTPL CCS RDLD
002513,002264: 16,2231 04435 TC OPERROR
002514,002265: 16,2232 30177 CA HOLDNO
002515,002266: 16,2233 10000 CCS A
002516,002267: 16,2234 10000 CCS A
002517,002268: 16,2235 10000 CCS A
002518,002269: 16,2236 30000 CA A
002519,002270: 16,2237 10000 CCS A
002520,002271: 16,2240 04435 TC OPERROR
002521,002272: 16,2241 30177 CA HOLDNO
002522,002273: 16,2242 54022 TS CYL
002523,002274: 16,2243 30022 CA CYL
002524,002275: 16,2244 30022 CA CYL
002525,002276: 16,2245 54074 TS R2
002526,002277: 16,2246 30200 CA NOOFBNKS
002527,002278: 16,2247 60177 AD HOLDNO
002528,002279: 16,2250 75473 MSK C3A
002529,002280: 16,2251 60074 AD R2
002530,002281: 16,2252 54074 TS R2
002531,002282: 16,2253 34003 CA ONE
002532,002283: 16,2254 54175 TS EIGHTH
002533,002284: 16,2255 07446 TC UPDISPLA
002534,002285: 16,2256 40110 WRITEIT CS TEMP1L
002535,002286: 16,2257 64013 AD ENTRCDEL
|
|
Page D-43 |
002537,002288: 16,2260 10000 CCS A
002538,002289: 16,2261 04435 TC OPERROR
002539,002290: 16,2262 04435 TC OPERROR
002540,002291: 16,2263 04435 TC OPERROR
002541,002292: 16,2264 02215 TC EXITLLL
002542,002293: 16,2265 34003 LDPN5 CA ONE
002543,002294: 16,2266 54201 TS PUNCH5
002544,002295: 16,2267 02044 TC SETSW
002545,002296: 16,2270 30110 TRPACBNK CA TEMP1L
002546,002297: 16,2271 74360 MSK MASKBA
002547,002298: 16,2272 54177 TS HOLDNO
002548,002299: 16,2273 30202 CA LDFBLL
002549,002300: 16,2274 10000 CCS A
002550,002301: 16,2275 02277 TC FBKPR
002551,002302: 16,2276 02335 TC EBKPR
002552,002303: 16,2277 54202 FBKPR TS LDFBLL
002553,002304: 16,2300 30177 CA HOLDNO
002554,002305: 16,2301 60173 AD SIXTH
002555,002306: 16,2302 54173 TS SIXTH
002556,002307: 16,2303 10202 CCS LDFBLL
002557,002308: 16,2304 02306 TC SHFBNK
002558,002309: 16,2305 02315 TC TWOSH
002559,002310: 16,2306 30173 SHFBNK CA SIXTH
002560,002311: 16,2307 54022 TS CYL
002561,002312: 16,2310 30022 CA CYL
002562,002313: 16,2311 30022 CA CYL
002563,002314: 16,2312 30022 CA CYL
002564,002315: 16,2313 54173 TS SIXTH
002565,002316: 16,2314 07446 TC UPDISPLA
002566,002317: 16,2315 30173 TWOSH CA SIXTH
002567,002318: 16,2316 54022 TS CYL
002568,002319: 16,2317 30022 CA CYL
002569,002320: 16,2320 30022 CA CYL
002570,002321: 16,2321 30022 CA CYL
002571,002322: 16,2322 30022 CA CYL
002572,002323: 16,2323 30022 CA CYL
002573,002324: 16,2324 30022 CA CYL
002574,002325: 16,2325 30022 CA CYL
002575,002326: 16,2326 30022 CA CYL
002576,002327: 16,2327 30022 CA CYL
002577,002328: 16,2330 30022 CA CYL
002578,002329: 16,2331 54173 TS SIXTH
002579,002330: 16,2332 10210 CCS PUNCH6
002580,002331: 16,2333 02431 TC GTNXTBK
002581,002332: 16,2334 07446 TC UPDISPLA
002582,002333: 16,2335 10210 EBKPR CCS PUNCH6
002583,002334: 16,2336 02366 TC GOTRPAC
002584,002335: 16,2337 30203 CA LDEBLL
002585,002336: 16,2340 10000 CCS A
002586,002337: 16,2341 02343 TC EBKPRA
002587,002338: 16,2342 02366 TC GOTRPAC
002588,002339: 16,2343 54203 EBKPRA TS LDEBLL
002589,002340: 16,2344 30177 CA HOLDNO
002590,002341: 16,2345 60174 AD SEVENTH
002591,002342: 16,2346 54174 TS SEVENTH
002592,002343: 16,2347 10203 CCS LDEBLL
002593,002344: 16,2350 02352 TC SHEBNK
002594,002345: 16,2351 02361 TC TWOSHE
|
|
Page D-44 |
002596,002347: 16,2352 30174 SHEBNK CA SEVENTH
002597,002348: 16,2353 54022 TS CYL
002598,002349: 16,2354 30022 CA CYL
002599,002350: 16,2355 30022 CA CYL
002600,002351: 16,2356 30022 CA CYL
002601,002352: 16,2357 54174 TS SEVENTH
002602,002353: 16,2360 07446 TC UPDISPLA
002603,002354: 16,2361 30173 TWOSHE CA SIXTH
002604,002355: 16,2362 60174 AD SEVENTH
002605,002356: 16,2363 54073 TS R1
002606,002357: 16,2364 54145 TS BBK
002607,002358: 16,2365 07446 TC UPDISPLA
002608,002359: 16,2366 40110 GOTRPAC CS TEMP1L
002609,002360: 16,2367 64013 AD ENTRCDEL
002610,002361: 16,2370 10000 CCS A
002611,002362: 16,2371 04435 TC OPERROR
002612,002363: 16,2372 04435 TC OPERROR
002613,002364: 16,2373 04435 TC OPERROR
002614,002365: 16,2374 10210 CCS PUNCH6
002615,002366: 16,2375 02447 TC BLOBA
002616,002367: 16,2376 32422 CA GOTOERR
002617,002368: 16,2377 54204 TS TRXYB
002618,002369: 16,2400 32423 CA GOTOSUC
002619,002370: 16,2401 54205 TS TRYXB
002620,002371: 16,2402 32424 CA XXX
002621,002372: 16,2403 54206 TS TRXXB
002622,002373: 16,2404 32425 CA YYY
002623,002374: 16,2405 54207 TS TRYYB
002624,002375: 16,2406 32430 CA ZZZ
002625,002376: 16,2407 54017 TS BRUPT
002626,002377: 16,2410 30174 CA SEVENTH
002627,002378: 16,2411 74360 MASK MASKBA
002628,002379: 16,2412 10000 CCS A
002629,002380: 16,2413 02420 TC +5
002630,002381: 16,2414 35475 CA OC10
002631,002382: 16,2415 54141 TS EBCOUNT
002632,002383: 16,2416 54142 TS FBCOUNT
002633,002384: 16,2417 50017 RESUME
002634,002385: 16,2420 30007 CA ZEROS
002635,002386: 16,2421 02415 TC -4
002636,002387: 16,2422 30145 GOTOERR CA BBK
002637,002388: 16,2423 54006 GOTOSUC TS BB
002638,002389: 16,2424 07060 XXX TC PACTRNS
002639,002390: 16,2425 05620 YYY TC SUCCESS
002640,002391: 16,2426 00005 FIVE OCT 00005
002641,002392: 16,2427 05526 GOL TC V11
002642,002393: 16,2430 00204 ZZZ TC TRXYB
002643,002394: 16,2431 10172 GTNXTBK CCS ONETO5
002644,002395: 16,2432 02437 TC +5
002645,002396: 16,2433 30173 CA SIXTH
002646,002397: 16,2434 54165 TS ACMFBK
002647,002398: 16,2435 54074 TS R2
002648,002399: 16,2436 07446 TC UPDISPLA
002649,002400: 16,2437 30173 CA SIXTH
002650,002401: 16,2440 54145 TS BBK
002651,002402: 16,2441 54073 TS R1
002652,002403: 16,2442 30007 CA ZEROS
002653,002404: 16,2443 54172 TS ONETO5
|
|
Page D-45 |
002655,002406: 16,2444 35472 CA C2A
002656,002407: 16,2445 54202 TS LDFBLL
|
|
The note preceding this listing suggests that the following word be replaced with 12453, or "TCF 2453", if certain functionalities are to be executed. This transfers control to just past the end of this program at FINKBKA. |
002659,002410: 16,2446 07446 TC UPDISPLA
002660,002411: 16,2447 32452 BLOBA CA FINKBKA
002661,002412: 16,2450 54017 TS BRUPT
002662,002413: 16,2451 50017 RESUME
002663,002414: 16,2452 07173 FINKBKA TC AMCHKLA
|
|
As above, three extra words are required to be added here in order to execute a particular function. The words, and their
associated disassemblies, are: 30007 CA ZEROS 54173 TS SIXTH 07446 TC UPDISPLA |
End of include-file SUPER_JOB.agc. Parent file is MAIN.agc