Source Code
![]() |
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55 BY NASA 1021108-021 DEC. 4, 1966Note that the date is the date of the printout, not the date of the program revision. Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions. |
010144,000002: ## Copyright: Public domain.
010145,000003: ## Filename: AGC_SELF-CHECK.agc
010146,000004: ## Purpose: Part of the source code for Solarium build 55. This
010147,000005: ## is for the Command Module's (CM) Apollo Guidance
010148,000006: ## Computer (AGC), for Apollo 6.
010149,000007: ## Assembler: yaYUL --block1
010150,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
010151,000009: ## Website: www.ibiblio.org/apollo/index.html
010152,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
010153,000011: ## Mod history: 2009-10-03 JL Created.
010154,000012: ## 2016-08-19 RSB Typos.
010155,000013: ## 2016-08-23 RSB More of the same.
010156,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
010157,000015: ## and fixed errors found.
010158,000016:
![]() |
Page 265 |
010160,000018:
010161,000019: 11,6000 SETLOC 22000
010162,000020:
010163,000021: # NEXT THREE CONSTANTS ARE USED IN RUPTCHK SUBROUTINE
010164,000022: 11,6000 37767 OVCON OCTAL 37767
010165,000023: 11,6001 00320 TM1WAIT OCTAL 00320
010166,000024: 11,6002 06401 ZRUPTCON ADRES TSKADRS # MUST BE ADDRESS OF TSKADRS
010167,000025:
010168,000026: # NEXT SIX CONSTANTS ARE USED IN ERASCHK, CNTRCHK, AND CYCLSHF SUBROUTINES
010169,000027: 11,6003 4512 CONCNTR1 EQUALS BIT5 # 00020
010170,000028: 11,6003 00060 CONERAS1 OCTAL 00060
010171,000029: 11,6004 01774 CONERAS2 OCTAL 01774
010172,000030: 11,6005 25252 CONC+S1 OCTAL 25252
010173,000031: 11,6006 4664 CONC+S2 EQUALS CSQ # 40001
010174,000032:
010175,000033: # NEXT 3 CONSTANTS ARE USED IN SHOWSUM ROUTINE
010176,000034: 11,6006 01771 SUMADRS ADRES SKEEP1 # SKEEP1 HOLDS SUM OF BANK
010177,000035: 11,6007 00501 VNCON OCTAL 00501 # DISPLAY CONTENTS OF THREE ADDRESSES
010178,000036: 11,6010 23037 SCADR CADR SDISPLAY
010179,000037: # THE FOLLOWING CONSTANTS ARE USED THROUGHOUT SELF-CHECK
010180,000038: 11,6011 5501 SCON0 EQUALS ZERO # +0
010181,000039: 11,6011 4516 SCON1 EQUALS BIT1 # +1
010182,000040: 11,6011 4515 SCON2 EQUALS BIT2 # +2
010183,000041: 11,6011 4514 SCON4 EQUALS BIT3 # +4
010184,000042: 11,6011 4510 SCON64 EQUALS BIT7 # 00100
010185,000043: 11,6011 4502 SCON1/4 EQUALS BIT13 # 10000
010186,000044: 11,6011 4501 SCON1/2 EQUALS BIT14 # 20000
010187,000045: 11,6011 4476 SCON+MAX EQUALS POSMAX # 37777
010188,000046: 11,6011 4340 SCON-2 EQUALS MINUS2 # 77775
010189,000047: 11,6011 4335 SCON-1 EQUALS MINUS1 # 77776
010190,000048: 11,6011 5504 SCONMAX EQUALS NEG0 # 77777
010191,000049:
010192,000050: 11,6011 30115 -2 XCH QADRS # ENTRY HERE FROM -ZEROCHK AND -ONECHK
010193,000051: 11,6012 06014 TC +2
010194,000052:
010195,000053: 11,6013 30001 ERRORS XCH Q # FAILURE DETECTED - ALARM.
010196,000054: 11,6014 51764 TS SFAIL # SAVE CALLING Q FOR POSSIBLE FAILURE LOC.
010197,000055: 11,6015 03007 TC ALARM
010198,000056: 11,6016 01102 OCT 01102
010199,000057: 11,6017 31765 XCH ERCOUNT # ADD +1 TO ERCOUNT REGISTER EVERY TIME
010200,000058: 11,6020 64516 AD SCON1 # THERE IS AN ERROR IN SELF-CHECK
010201,000059: 11,6021 31765 XCH ERCOUNT
010202,000060: 11,6022 03000 TC SMODECHK # START SELF-CHECK AGAIN
010203,000061:
010204,000062: 11,6023 30001 -ZEROCHK XCH Q
010205,000063: 11,6024 50115 TS QADRS # HOLDS ADDRESS THAT WAS IN Q REGISTER
010206,000064: 11,6025 30001 XCH Q
010207,000065: 11,6026 10000 CCS A
010208,000066: 11,6027 06011 TC ERRORS -2
010209,000067: 11,6030 06011 TC ERRORS -2
010210,000068: 11,6031 06011 TC ERRORS -2
![]() |
Page 266 |
010212,000070: 11,6032 00001 TC Q
010213,000071:
010214,000072:
010215,000073:
010216,000074: 11,6033 40000 CS A
010217,000075: 11,6034 30001 -ONECHK XCH Q
010218,000076: 11,6035 50115 TS QADRS # HOLDS ADDRESS THAT WAS IN Q REGISTER
010219,000077: 11,6036 30001 XCH Q
010220,000078: 11,6037 10000 CCS A
010221,000079: 11,6040 06011 TC ERRORS -2
010222,000080: 11,6041 06011 TC ERRORS -2
010223,000081: 11,6042 10000 CCS A
010224,000082: 11,6043 06011 TC ERRORS -2
010225,000083: 11,6044 00001 TC Q
010226,000084:
010227,000085:
010228,000086: # CHECKS MOST CCS PULSES
010229,000087: 11,6045 20016 CCSCHK RELINT # COMES HERE FROM INHIBIT LOOP AT SMODECHK
010230,000088: 11,6046 44515 CS SCON2 # -2
010231,000089: 11,6047 10000 CCS A # C(A) = -2
010232,000090: 11,6050 06013 TC ERRORS
010233,000091: 11,6051 06013 TC ERRORS
010234,000092: 11,6052 06054 TC +2
010235,000093: 11,6053 06013 TC ERRORS
010236,000094: 11,6054 10000 CCS A # C(A) = +1, RESULT OF CCS -NUMBER
010237,000095: 11,6055 06061 TC +4
010238,000096: 11,6056 06013 TC ERRORS
010239,000097: 11,6057 06013 TC ERRORS
010240,000098: 11,6060 06013 TC ERRORS
010241,000099: 11,6061 10000 CCS A # C(A) = +0, RESULT OF CCS + NUMBER
010242,000100: 11,6062 06013 TC ERRORS
010243,000101: 11,6063 06066 TC +3
010244,000102: 11,6064 06013 TC ERRORS
010245,000103: 11,6065 06013 TC ERRORS
010246,000104: 11,6066 40000 CS A
010247,000105: 11,6067 10000 CCS A # C(A) = -0, RESULT OF CCS +0
010248,000106: 11,6070 06013 TC ERRORS
010249,000107: 11,6071 06013 TC ERRORS
010250,000108: 11,6072 06013 TC ERRORS
010251,000109: 11,6073 10000 CCS A # RESULT OF CCS -0
010252,000110: 11,6074 06013 TC ERRORS
010253,000111: 11,6075 06100 TC +3
010254,000112: 11,6076 06013 TC ERRORS
010255,000113: 11,6077 06013 TC ERRORS
010256,000114: # SPECIFICALLY CHECKS RSC PULSE OF TC INSTRUCTION (ALSO MOST OF TC
010257,000115: # PULSES)
010258,000116: 11,6100 06102 TC +2
010259,000117: 11,6101 06103 TC +2 # NEXT SUBROUTINE
010260,000118: 11,6102 00001 TC Q
![]() |
Page 267 |
010262,000120:
010263,000121: # CHECKS WP, GP, TP - WP2, RP2 - RG, WP, OF CCS1
010264,000122: # CHECKS RB, WG PULSES (READ BACK INTO ERASABLE)
010265,000123: 11,6103 35777 PTY+ERAS CAF 5777 # 47777
010266,000124: 11,6104 51771 TS SKEEP1
010267,000125: 11,6105 71771 MASK SKEEP1
010268,000126: 11,6106 31771 XCH SKEEP1
010269,000127: 11,6107 61771 AD SKEEP1
010270,000128: 11,6110 25777 INDEX 5777
010271,000129: 11,6111 41771 4 SKEEP1 # MP SKEEP1
010272,000130: 11,6112 25777 INDEX 5777
010273,000131: 11,6113 51771 5 SKEEP1 # DV SKEEP1
010274,000132: 11,6114 41771 CS SKEEP1
010275,000133: 11,6115 51772 TS SKEEP2 # 30000
010276,000134: 11,6116 21771 INDEX SKEEP1 # TROUBLE IF C(SKEEP1) NOT 47777
010277,000135: 11,6117 61772 6 SKEEP2 # SU SKEEP2, C(A) = -0
010278,000136: 11,6120 51772 TS SKEEP2 # -0
010279,000137: 11,6121 11772 CCS SKEEP2
010280,000138: 11,6122 06013 TC ERRORS
010281,000139: 11,6123 06013 TC ERRORS
010282,000140: 11,6124 06013 TC ERRORS
010283,000141: 11,6125 11772 CCS SKEEP2
010284,000142: 11,6126 06013 TC ERRORS
010285,000143: 11,6127 06013 TC ERRORS
010286,000144: 11,6130 06013 TC ERRORS
010287,000145: # START ERASABLE INSTRUCTION CHECK
010288,000146: 11,6131 36147 CAF EINST1
010289,000147: 11,6132 51771 TS SKEEP1
010290,000148: 11,6133 36150 CAF EINST2
010291,000149: 11,6134 51772 TS SKEEP2
010292,000150: 11,6135 36151 CAF EINST3
010293,000151: 11,6136 51773 TS SKEEP3
010294,000152: 11,6137 36152 CAF EINST4
010295,000153: 11,6140 51774 TS SKEEP4
010296,000154: 11,6141 36153 CAF EINST5
010297,000155: 11,6142 51775 TS SKEEP5
010298,000156: 11,6143 36154 CAF EINST6
010299,000157: 11,6144 51776 TS SKEEP6
010300,000158: 11,6145 34501 CAF SCON1/2
010301,000159: 11,6146 01771 TC SKEEP1
010302,000160: 11,6147 25777 EINST1 INDEX 5777
010303,000161: 11,6150 44515 EINST2 4 SCON2 # MP, C(A) = +1, THEN +0
010304,000162: 11,6151 60000 EINST3 AD A # CHECKS ST2 PARITY
010305,000163: 11,6152 10000 EINST4 CCS A
010306,000164: 11,6153 01771 EINST5 TC SKEEP1
010307,000165: 11,6154 06155 EINST6 TC +1 # NEXT SUBROUTINE
010308,000166:
010309,000167:
010310,000168:
010311,000169: # CHECKS RSC, WSC PULSES
010312,000170: # NO WSC PULSE IN MASK INSTRUCTION
010313,000171: 11,6155 34510 SCCHK CAF SCON64 # 00100
![]() |
Page 268 |
010315,000173: 11,6156 30003 XCH LP # 00040
010316,000174: 11,6157 30003 XCH LP
010317,000175: 11,6160 50003 TS LP # 00020
010318,000176: 11,6161 60003 AD LP # 00010
010319,000177: 11,6162 20003 INDEX LP # 00004
010320,000178: 11,6163 25767 2 5767 # INDEX 5777
010321,000179: 11,6164 60003 6 0003 # SU LP, 00002
010322,000180: # NEXT 4 INSTRUCTIONS CHECK RSC PULSE IN MASK INSTRUCTION
010323,000181: 11,6165 40003 CS LP # C(A) = -2, C(LP) = +1
010324,000182: 11,6166 70003 MASK LP # C(A) = +1, C(LP) = +1
010325,000183: 11,6167 40000 CS A
010326,000184: 11,6170 06034 TC -ONECHK
010327,000185: 11,6171 10003 CCS LP
010328,000186: 11,6172 06176 TC +4
010329,000187: 11,6173 06013 TC ERRORS
010330,000188: 11,6174 06013 TC ERRORS
010331,000189: 11,6175 06013 TC ERRORS
010332,000190: 11,6176 10003 CCS LP
010333,000191: 11,6177 06013 TC ERRORS
010334,000192: 11,6200 06013 TC ERRORS
010335,000193: 11,6201 06203 TC +2
010336,000194: 11,6202 06013 TC ERRORS
010337,000195: 11,6203 10003 CCS LP
010338,000196: 11,6204 06013 TC ERRORS
010339,000197: 11,6205 06210 TC +3 # NEXT SUBROUTINE
010340,000198: 11,6206 06013 TC ERRORS
010341,000199: 11,6207 06013 TC ERRORS
010342,000200: # CHECKS MOST OF MP PULSES
010343,000201: 11,6210 34514 MPCHK CAF SCON4
010344,000202: 11,6211 50003 TS LP
010345,000203: 11,6212 34476 MP++ CAF SCON+MAX
010346,000204: 11,6213 25777 INDEX 5777
010347,000205: 11,6214 40003 4 LP # C(A) = +1, CHECKS RSC PULSE
010348,000206: 11,6215 60003 AD LP # C(LP) = +37776
010349,000207: 11,6216 51771 TS SKEEP1 # 37777
010350,000208: 11,6217 34476 MP+- CAF SCON+MAX
010351,000209: 11,6220 25777 INDEX 5777
010352,000210: 11,6221 44340 4 SCON-2
010353,000211: 11,6222 60003 AD LP # C(LP) = -37776
010354,000212: 11,6223 61771 AD SKEEP1
010355,000213: 11,6224 06023 TC -ZEROCHK
010356,000214: 11,6225 44476 MP-- CS SCON+MAX
010357,000215: 11,6226 25777 INDEX 5777
010358,000216: 11,6227 44340 4 SCON-2 # C(A) = +1
010359,000217: 11,6230 60003 AD LP # C(LP) = +37776
010360,000218: 11,6231 51771 TS SKEEP1 # 37777
010361,000219: 11,6232 44476 MP-+ CS SCON+MAX
010362,000220: 11,6233 25777 INDEX 5777
010363,000221: 11,6234 44515 4 SCON2 # C(A) = -1
010364,000222: 11,6235 60003 AD LP # C(LP) = -37776
![]() |
Page 269 |
010366,000224: 11,6236 61771 AD SKEEP1
010367,000225: 11,6237 06023 TC -ZEROCHK
010368,000226:
010369,000227:
010370,000228: # CHECKS MOST OF SU PULSES
010371,000229: 11,6240 34476 SUCHK CAF SCON+MAX
010372,000230: 11,6241 25777 INDEX 5777
010373,000231: 11,6242 66421 6 SCONSU # SU 37776, C(A) = +1
010374,000232: 11,6243 06033 TC -ONECHK -1
010375,000233:
010376,000234: # CHECKS MOST OF DV PULSES (ALL EXCEPT WP, GP, TP)
010377,000235: # DIVIDE USES ST2
010378,000236: # ++ AND --, C(A) = 25252, C(Q) = 67777, C(LP) = +1
010379,000237: # +- AND -+ , C(A) = 52525, C(Q) = 67777, C(LP) = 40000 AND 40001
010380,000238: 11,6244 36557 DVCHK CAF SCON3/8
010381,000239: 11,6245 50001 TS Q
010382,000240: 11,6246 34502 DV++ CAF SCON1/4
010383,000241: 11,6247 25777 INDEX 5777
010384,000242: 11,6250 50001 5 Q # C(A) = 25252, CHECKS RSC PULSE
010385,000243: 11,6251 51771 TS SKEEP1
010386,000244: 11,6252 30003 XCH LP
010387,000245: 11,6253 51772 TS SKEEP2
010388,000246: 11,6254 40001 DV+- CS Q # +1/4
010389,000247: 11,6255 25777 INDEX 5777
010390,000248: 11,6256 56560 5 SCON-3/8 # C(A) = 52525
010391,000249: 11,6257 61771 AD SKEEP1 # C(A) = -0
010392,000250: 11,6260 51775 TS SKEEP5 # SHOULD BE -0
010393,000251: 11,6261 30003 XCH LP
010394,000252: 11,6262 51773 TS SKEEP3
010395,000253: 11,6263 30001 DV-- XCH Q # -1/4
010396,000254: 11,6264 25777 INDEX 5777
010397,000255: 11,6265 56560 5 SCON-3/8 # C(A) = 25252
010398,000256: 11,6266 51771 TS SKEEP1
010399,000257: 11,6267 30003 XCH LP
010400,000258: 11,6270 51774 TS SKEEP4
010401,000259: 11,6271 30001 DV-+ XCH Q # -1/4
010402,000260: 11,6272 25777 INDEX 5777
010403,000261: 11,6273 56557 5 SCON3/8
010404,000262: 11,6274 61771 AD SKEEP1 # C(A) = -0
010405,000263: 11,6275 51771 TS SKEEP1
010406,000264: 11,6276 40003 CS LP # C(A) = 37776
010407,000265: 11,6277 61771 AD SKEEP1 # C(A) = 37776
010408,000266: 11,6300 61772 AD SKEEP2 # C(A) = 37777
010409,000267: 11,6301 61773 AD SKEEP3 # C(A) = -0
010410,000268: 11,6302 61774 AD SKEEP4 # C(A) = +1
010411,000269: 11,6303 61775 AD SKEEP5 # C(A) = +1
010412,000270: 11,6304 06033 TC -ONECHK -1
010413,000271:
010414,000272:
010415,000273: # CHECKS MOST TS PULSES
![]() |
Page 270 |
010417,000275: # CHECKS ALL OF PINC AND MINC PULSES EXCEPT WOVR
010418,000276: 11,6305 34516 TS+-CHK CAF SCON1
010419,000277: 11,6306 50034 TS OVCTR
010420,000278: 11,6307 64476 AD SCON+MAX # C(A) = + WITH OVERFLOW
010421,000279: 11,6310 51771 TS SKEEP1
010422,000280: 11,6311 06013 TC ERRORS
010423,000281: 11,6312 61771 AD SKEEP1 # C(A) = +1
010424,000282: 11,6313 60034 AD OVCTR # C(A) = +3
010425,000283: 11,6314 50034 TS OVCTR
010426,000284: 11,6315 40000 CS A # C(A) = 77774
010427,000285: 11,6316 25777 INDEX 5777
010428,000286: 11,6317 66376 6 SCONTS # C(A) = -0 WITH UNDERFLOW
010429,000287: 11,6320 51771 TS SKEEP1
010430,000288: 11,6321 06013 TC ERRORS
010431,000289: 11,6322 61771 AD SKEEP1 # C(A) = -1
010432,000290: 11,6323 60034 AD OVCTR # C(A) = -1+2
010433,000291: 11,6324 06033 TC -ONECHK -1
010434,000292:
010435,000293: # NOT POSSIBLE TO CHECK WOVI PULSE IN NXI1
010436,000294: # START WOVI PULSE CHECK AND INHINT RELINT CHECK
010437,000295: 11,6325 20017 RUPTCHK INDEX INHINT
010438,000296: 11,6326 35501 CAF SCON0
010439,000297: 11,6327 50024 TS 0024 # ZRUPT
010440,000298: 11,6330 20016 INDEX RELINT
010441,000299: 11,6331 60036 AD TIME1
010442,000300: 11,6332 51771 TS SKEEP1
010443,000301: 11,6333 41771 TENMS CS SKEEP1 # CHECK FOR NEXT PULSE TP TIME1
010444,000302: 11,6334 60036 AD TIME1
010445,000303: 11,6335 10000 CCS A
010446,000304: 11,6336 10000 CCS A
010447,000305: 11,6337 06325 TC RUPTCHK # START AGAIN, TIMING IS OFF DUE TO RUPT
010448,000306: 11,6340 06342 TC +2 # 10 MS PULSE HAS ARRIVED AT TIME1
010449,000307: 11,6341 06333 TC TENMS
010450,000308: 11,6342 36001 CAF TM1WAIT # START 7 TO 8 MS WAIT
010451,000309: 11,6343 10000 7-8WAIT CCS A
010452,000310: 11,6344 06343 TC 7-8WAIT
010453,000311: 11,6345 20017 INDEX INHINT
010454,000312: 11,6346 10024 CCS 0024 # ZRUPT
010455,000313: 11,6347 06325 TC RUPTCHK # THERE WAS AN INTERRUPT, START AGAIN
010456,000314: 11,6350 34516 CAF SCON1
010457,000315: 11,6351 02173 TC WAITLIST
010458,000316: 11,6352 22401 CADR TSKADRS
010459,000317: 11,6353 34476 XCH SCON+MAX
010460,000318: 11,6354 66000 AD OVCON # WILL STAY IN OVERFLOW, UNDERFLOW FOR
010461,000319: 11,6355 20016 INDEX RELINT # APPROXIMATELY 3 MS
010462,000320: 11,6356 10000 WAIT1 CCS A
010463,000321: 11,6357 64515 AD SCON2
010464,000322: 11,6360 06362 TC +2
010465,000323: 11,6361 06374 TC WOVIRPT
010466,000324: 11,6362 25777 INDEX 5777
![]() |
Page 271 |
010468,000326: 11,6363 65504 6 SCONMAX # SU -0
010469,000327: 11,6364 30000 XCH A
010470,000328: 11,6365 25501 INDEX SCON0
010471,000329: 11,6366 40000 CS A
010472,000330: 11,6367 70000 MASK A
010473,000331: 11,6370 40000 CS A
010474,000332: 11,6371 50000 TS A
010475,000333: 11,6372 06013 TC ERRORS
010476,000334: 11,6373 06356 TC WAIT1
010477,000335: 11,6374 20017 WOVIRPT INDEX INHINT
010478,000336: 11,6375 51771 TS SKEEP1
010479,000337: 11,6376 37775 SCONTS OCTAL 37775
010480,000338: 11,6377 20016 INDEX RELINT
010481,000339: # INTERRUPT SHOULD APPEAR BEFORE NEXT INSTRUCTION
010482,000340: 11,6400 06410 TC SOPTION1 # END OF PULSES CHECK
010483,000341: 11,6401 40024 TSKADRS CS 0024 # C(ZRUPT) = ADDRESS OF TSKADRS
010484,000342: 11,6402 66002 AD ZRUPTCON
010485,000343: 11,6403 06023 TC -ZEROCHK
010486,000344: 11,6404 31766 XCH SCOUNT # ADD +1 TO SCOUNT REGISTER AT THIS
010487,000345: 11,6405 64516 AD SCON1 # POINT OF SELF-CHECK.
010488,000346: 11,6406 31766 XCH SCOUNT
010489,000347: 11,6407 02256 TC TASKOVER
010490,000348:
010491,000349:
010492,000350: 11,6410 11762 SOPTION1 CCS SMODE # 3 OPTIONS OF SELF-CHECK
010493,000351: 11,6411 03000 TC SMODECHK # END OF PULSES ONLY CHECK
010494,000352: 11,6412 03000 TC SMODECHK
010495,000353: 11,6413 06414 TC +1 # CONTINUE IF C(SMODE) IS A NEG. NUMB5R
010496,000354:
010497,000355: # COUNTS DOWN 15 BIT NUMBER (APPROXIMATELY 10 SECONDS)
010498,000356: 11,6414 44476 COUNTCHK CS SCON+MAX
010499,000357: 11,6415 51775 TS SKEEP5
010500,000358: 11,6416 50001 COUNTS TS Q
010501,000359: 11,6417 10001 CCS Q
010502,000360: 11,6420 06434 TC -NMBR
010503,000361: 11,6421 37776 SCONSU OCTAL 37776
010504,000362: 11,6422 06424 TC +2
010505,000363: 11,6423 06443 TC OFCOUNT
010506,000364: 11,6424 61775 AD SKEEP5
010507,000365: 11,6425 06034 TC -ONECHK
010508,000366: 11,6426 10215 CCS NEWJOB
010509,000367: 11,6427 07377 TC DUMEXIT
010510,000368: 11,6430 41775 CS SKEEP5
010511,000369: 11,6431 65504 AD SCONMAX # -0
010512,000370: 11,6432 51774 TS SKEEP4
010513,000371: 11,6433 06416 TC COUNTS
010514,000372: 11,6434 40000 -NMBR CS A
010515,000373: 11,6435 51775 TS SKEEP5
010516,000374: 11,6436 61774 AD SKEEP4
010517,000375: 11,6437 06033 TC -ONECHK -1
![]() |
Page 272 |
010519,000377: 11,6440 41775 CS SKEEP5
010520,000378: 11,6441 40000 CS A
010521,000379: 11,6442 06416 TC COUNTS
010522,000380:
010523,000381: # COUNTS DOWN OVERFLOW NUMBER (APPROXIMATELY 3.5 SECONDS)
010524,000382: 11,6443 51777 OFCOUNT TS SKEEP7 # +0
010525,000383: 11,6444 34476 CAF SCON+MAX
010526,000384: 11,6445 60000 AD A
010527,000385: 11,6446 64516 COUNTSOF AD SCON1
010528,000386: 11,6447 20017 INHINT
010529,000387: 11,6450 30001 XCH Q
010530,000388: 11,6451 10001 CCS Q
010531,000389: 11,6452 51776 TS SKEEP6
010532,000390: 11,6453 06466 TC ENDOF
010533,000391: 11,6454 20016 RELINT
010534,000392: 11,6455 61777 AD SKEEP7
010535,000393: 11,6456 51777 TS SKEEP7
010536,000394: 11,6457 06461 TC +2
010537,000395: 11,6460 06013 TC ERRORS
010538,000396: 11,6461 10215 CCS NEWJOB
010539,000397: 11,6462 07377 TC DUMEXIT
010540,000398: 11,6463 34476 CAF SCON+MAX
010541,000399: 11,6464 61776 AD SKEEP6
010542,000400: 11,6465 06446 TC COUNTSOF
010543,000401: 11,6466 40000 ENDOF CS A
010544,000402: 11,6467 20016 RELINT
010545,000403: 11,6470 61777 AD SKEEP7
010546,000404: 11,6471 06023 TC -ZEROCHK
010547,000405:
010548,000406: # REGISTER 1777 ALWAYS HOLDS LOWEST (X-1) ADDRESS JUST CHECKED
010549,000407: # REGISTER 1776 HOLDS BEFORE CONTENTS OF X
010550,000408: # REGISTER 1775 HOLDS BEFORE CONTENTS OF X-1
010551,000409: # REGISTER 1774 IS STARTING ADDRESS
010552,000410: # PUTS OWN ADDRESS IN REGISTERS OCT 1774 THROUGH OCT 60 (APPROX. 1.2 SEC)
010553,000411: 11,6472 36004 ERASCHK CAF CONERAS2 # 01774
010554,000412: 11,6473 51777 TS 1777
010555,000413: 11,6474 20016 ERASLOOP RELINT
010556,000414: 11,6475 11777 CCS 1777
010557,000415: 11,6476 51777 TS 1777
010558,000416: 11,6477 20017 INHINT
010559,000417: 11,6500 21777 NDX 1777
010560,000418: 11,6501 40001 CS 0001
010561,000419: 11,6502 40000 CS A
010562,000420: 11,6503 51776 TS 1776 # PUT C(X) IN 1776
010563,000421: 11,6504 21777 NDX 1777
010564,000422: 11,6505 40000 CS 0000
010565,000423: 11,6506 40000 CS A
010566,000424: 11,6507 51775 TS 1775 # PUT C(X-1) IN 1775
010567,000425: 11,6510 41777 CS 1777
010568,000426: 11,6511 40000 CS A
![]() |
Page 273 |
010570,000428: 11,6512 51760 TS ERESTORE # IF RESTART, RESTORE C(X) AND C(X-1)
010571,000429: 11,6513 21777 NDX 1777
010572,000430: 11,6514 50000 TS 0000 # PUT OWN ADDRESS IN X-1
010573,000431: 11,6515 64516 AD SCON1
010574,000432: 11,6516 21777 NDX 1777
010575,000433: 11,6517 50001 TS 0001 # PUT OWN ADDRESS IN X
010576,000434: 11,6520 21777 INDEX 1777
010577,000435: 11,6521 40001 CS 0001
010578,000436: 11,6522 21777 INDEX 1777
010579,000437: 11,6523 60000 AD 0000
010580,000438: 11,6524 06034 TC -ONECHK
010581,000439: 11,6525 41777 COMPLMNT CS 1777
010582,000440: 11,6526 21777 INDEX 1777
010583,000441: 11,6527 50000 TS 0000 # PUTS COMPLEMENT OF ADDRESS IN X-1
010584,000442: 11,6530 64335 AD SCON-1
010585,000443: 11,6531 21777 INDEX 1777
010586,000444: 11,6532 50001 TS 0001 # PUTS COMPLEMENT OF ADDRESS IN X
010587,000445: 11,6533 21777 INDEX 1777
010588,000446: 11,6534 40000 CS 0000
010589,000447: 11,6535 21777 INDEX 1777
010590,000448: 11,6536 60001 AD 0001
010591,000449: 11,6537 06034 TC -ONECHK
010592,000450: 11,6540 41776 CS 1776
010593,000451: 11,6541 40000 CS A
010594,000452: 11,6542 21777 NDX 1777
010595,000453: 11,6543 50001 TS 0001 # RESTORE C(X)
010596,000454: 11,6544 41775 CS 1775
010597,000455: 11,6545 40000 CS A
010598,000456: 11,6546 21777 NDX 1777
010599,000457: 11,6547 50000 TS 0000 # RESTORE C(X-1)
010600,000458: 11,6550 45504 CS SCONMAX
010601,000459: 11,6551 51760 TS ERESTORE # IF RESTART, DO NOT RESTORE C(X), C(X-1).
010602,000460: 11,6552 10215 CCS NEWJOB
010603,000461: 11,6553 07377 TC DUMEXIT
010604,000462: 11,6554 41777 ENDERAS CS 1777
010605,000463: 11,6555 66003 AD CONERAS1 # +60 OCT
010606,000464: 11,6556 10000 CCS A
010607,000465: 11,6557 14000 SCON3/8 OCTAL 14000
010608,000466: 11,6560 63777 SCON-3/8 OCTAL 63777
010609,000467: 11,6561 06474 TC ERASLOOP
010610,000468: 11,6562 20016 INDEX RELINT
010611,000469:
010612,000470: # CS ALL REGISTERS FROM OCT 57 THROUGH OCT 20
010613,000471: # ALL COUNTERS, PLUS 4 SPARES, PLUS 4 RUPT REGISTERS.
010614,000472: # PLUS CYCLE AND SHIFT REGISTERS
010615,000473: 11,6563 33220 CNTRCHK CAF LOW5
010616,000474: 11,6564 51771 CNTRLOOP TS SKEEP1
010617,000475: 11,6565 64512 AD CONCNTR1 # +20 OCT
010618,000476: 11,6566 20000 INDEX A
010619,000477: 11,6567 40000 CS 0000
![]() |
Page 274 |
010621,000479: 11,6570 11771 CCS SKEEP1
010622,000480: 11,6571 06564 TC CNTRLOOP
010623,000481:
010624,000482: 11,6572 36005 CYCLSHFT CAF CONC+S1
010625,000483: 11,6573 50020 TS CYR # C(CYR) = 12525
010626,000484: 11,6574 50022 TS CYL # C(CYL) = 52524
010627,000485: 11,6575 50021 TS SR # C(SR) = 12525
010628,000486: 11,6576 50023 TS SL # C(SL) = 12524
010629,000487: 11,6577 60020 AD CYR
010630,000488: 11,6600 60022 AD CYL
010631,000489: 11,6601 60021 AD SR
010632,000490: 11,6602 60023 AD SL
010633,000491: 11,6603 64664 AD CONC+S2 # C(A) = -1
010634,000492: 11,6604 06034 TC -ONECHK
010635,000493:
010636,000494: 11,6605 31767 XCH SCOUNT +1 # ADD +1 TO SCOUNT +1 REGISTER AT THIS
010637,000495: 11,6606 64516 AD SCON1 # POINT OF SELF-CHECK
010638,000496: 11,6607 31767 XCH SCOUNT +1
010639,000497: 11,6610 11762 SOPTION2 CCS SMODE # TWO OPTIONS LEFT
010640,000498: 11,6611 06414 TC COUNTCHK
010641,000499: 11,6612 03000 TC SMODECHK
010642,000500: 11,6613 03000 TC SMODECHK # END OF PULSES + SC + ERASABLE CHECK
010643,000501: 11,6614 06646 TC ROPECHK # CONTINUE WITH SELF-CHECK
010644,000502:
010645,000503: # THE BNKCON CONSTANTS (BANK NUMBERS) ARE USED BY ROPECHK AND SHOWSUM
010646,000504: # THEY MUST BE IN THE FOLLOWING TABLE FORM
010647,000505: 11,6615 02000 BNKCON1 OCTAL 02000
010648,000506: 11,6616 04000 BNKCON2 OCTAL 04000
010649,000507: 11,6617 06000 BNKCON3 OCTAL 06000
010650,000508: 11,6620 10000 BNKCON4 OCTAL 10000
010651,000509: 11,6621 12000 BNKCON5 OCTAL 12000
010652,000510: 11,6622 14000 BNKCON6 OCTAL 14000
010653,000511: 11,6623 16000 BNKCON7 OCTAL 16000
010654,000512: 11,6624 20000 BNKCON10 OCTAL 20000
010655,000513: 11,6625 22000 BNKCON11 OCTAL 22000
010656,000514: 11,6626 24000 BNKCON12 OCTAL 24000
010657,000515: 11,6627 26000 BNKCON13 OCTAL 26000
010658,000516: 11,6630 30000 BNKCON14 OCTAL 30000
010659,000517: 11,6631 42000 BNKCON21 OCTAL 42000
010660,000518: 11,6632 44000 BNKCON22 OCTAL 44000
010661,000519: 11,6633 46000 BNKCON23 OCTAL 46000
010662,000520: 11,6634 50000 BNKCON24 OCTAL 50000
010663,000521: 11,6635 52000 BNKCON25 OCTAL 52000
010664,000522: 11,6636 54000 BNKCON26 OCTAL 54000
010665,000523: 11,6637 56000 BNKCON27 OCTAL 56000
010666,000524: 11,6640 60000 BNKCON30 OCTAL 60000
010667,000525: 11,6641 62000 BNKCON31 OCTAL 62000
010668,000526: 11,6642 64000 BNKCON32 OCTAL 64000
010669,000527: 11,6643 66000 BNKCON33 OCTAL 66000
010670,000528: 11,6644 70000 BNKCON34 OCTAL 70000
![]() |
Page 275 |
010672,000530: 11,6645 00000 BANKSTOP OCTAL 00000 # PUT +0 AFTER LAST BANK TO BE CHECKED
010673,000531:
010674,000532: # TAKES BETWEEN 17 AND 20 SECONDS FOR ROPECHK TO GO THROUGH ALL BANKS.
010675,000533: # INITIALIZE 2OPTIONS TO -1 TO PERFORM ROPECHK
010676,000534: # SKEEP1 HOLDS SUM
010677,000535: # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPCHEK AND SHOWSUM ROUTINES
010678,000536: # SKEEP2 HOLDS ACTUAL BANK NUMBER USED IN THE BANK REGISTER BUT CYCLED 5
010679,000537: # PLACES LEFT FOR DISPLAY IN SHOWSUM ROUTINE
010680,000538: # SKEEP3 HOLDS PRESENT ADDRESS (02000 TO 05777 IN FXFX BANKS)
010681,000539: # (00000 TO 01777 IN FXSW BANKS)
010682,000540: # SKEEP3 HOLDS BUGGER WORD FOR DISPLAY IN SHOWSUM ROUTINE
010683,000541: # SKEEP4 HOLDS ADDRESS OF BANK NUMBER
010684,000542: # SKEEP5 COUNTS TWO SUCCESSIVE TC SELF WORDS
010685,000543: # SKEEP6 HOLDS END OF BANK NUMBERS
010686,000544: # SKEEP7 COUNTS DOWN FIXED FIXED BANKS
010687,000545: 11,6646 44516 ROPECHK CS SCON1
010688,000546: 11,6647 51761 TS 2OPTIONS
010689,000547: 11,6650 37023 FXFXCHK CAF FXCON1 # 43776
010690,000548: 11,6651 51776 TS SKEEP6
010691,000549: 11,6652 36615 CAF BNKCON1 # 02000
010692,000550: 11,6653 51773 TS SKEEP3
010693,000551: 11,6654 36766 CAF STBNKCON
010694,000552: 11,6655 51774 TS SKEEP4
010695,000553: 11,6656 34516 CAF SCON1
010696,000554: 11,6657 51777 TS SKEEP7
010697,000555: 11,6660 35501 FXFXBNKS CAF SCON0
010698,000556: 11,6661 51771 TS SKEEP1
010699,000557: 11,6662 34515 CAF SCON2
010700,000558: 11,6663 51775 TS SKEEP5 # COUNTS DOWN TWO TC SELF WORDS
010701,000559: 11,6664 21773 FXADRS INDEX SKEEP3
010702,000560: 11,6665 30000 CAF 0000
010703,000561: 11,6666 06774 TC ADSUM
010704,000562: 11,6667 06721 TC ADRSCHK
010705,000563:
010706,000564: 11,6670 51777 BANK2 TS SKEEP7
010707,000565: 11,6671 37024 CAF FXCON2 # 45776
010708,000566: 11,6672 51776 TS SKEEP6
010709,000567: 11,6673 36616 CAF BNKCON2 # 04000
010710,000568: 11,6674 51773 TS SKEEP3
010711,000569: 11,6675 06660 TC FXFXBNKS
010712,000570:
010713,000571: 11,6676 34515 FXSWBNKS CAF SCON2
010714,000572: 11,6677 51775 TS SKEEP5 # COUNTS DOWN TWO TC SELF WORDS
010715,000573: 11,6700 35501 CAF SCON0
010716,000574: 11,6701 51771 TS SKEEP1
010717,000575: 11,6702 51773 TS SKEEP3
010718,000576: 11,6703 61773 SWADRS AD SKEEP3
010719,000577: 11,6704 21774 INDEX SKEEP4
010720,000578: 11,6705 60000 AD 0000
010721,000579: 11,6706 05730 TC DATACALL
![]() |
Page 276 |
010723,000581: 11,6707 06774 TC ADSUM
010724,000582: 11,6710 66617 AD BNKCON3 # 06000
010725,000583: 11,6711 06721 TC ADRSCHK
010726,000584:
010727,000585: # SUBROUTINES ADRS+1, ADRSCHK, OPTION, NXTBNK, ADSUM, AND BNKCHK ARE
010728,000586: # USED BY BOTH FXFX AND FXSW BANKS
010729,000587: 11,6712 31773 ADRS+1 XCH SKEEP3
010730,000588: 11,6713 64516 AD SCON1
010731,000589: 11,6714 51773 TS SKEEP3
010732,000590: 11,6715 11777 CCS SKEEP7
010733,000591: 11,6716 06664 TC FXADRS
010734,000592: 11,6717 06664 TC FXADRS
010735,000593: 11,6720 06703 TC SWADRS
010736,000594:
010737,000595: 11,6721 10000 ADRSCHK CCS A
010738,000596: 11,6722 06730 TC CONTINU
010739,000597: 11,6723 06730 TC CONTINU
010740,000598: 11,6724 06730 TC CONTINU
010741,000599: 11,6725 11775 CCS SKEEP5
010742,000600: 11,6726 51775 TS SKEEP5
010743,000601: 11,6727 06735 TC CONTINU +5
010744,000602: 11,6730 11775 CONTINU CCS SKEEP5
010745,000603: 11,6731 06733 TC +2
010746,000604: 11,6732 06743 TC SOPTION
010747,000605: 11,6733 34515 CAF SCON2
010748,000606: 11,6734 51775 TS SKEEP5 # MAKES SURE TWO CONSECUTIVE TC SELF WORDS
010749,000607: 11,6735 10215 CCS NEWJOB
010750,000608: 11,6736 07377 TC DUMEXIT
010751,000609: 11,6737 41773 CS SKEEP3
010752,000610: 11,6740 61776 AD SKEEP6
010753,000611: 11,6741 50000 TS A # UNDERFLOW AT END OF BANK
010754,000612: 11,6742 06712 TC ADRS+1 # STAY IN SAME BANK
010755,000613:
010756,000614: 11,6743 11761 SOPTION CCS 2OPTIONS
010757,000615: 11,6744 07037 TC SDISPLAY
010758,000616: 11,6745 06750 TC NXTBNK
010759,000617: 11,6746 07005 TC BNKCHK
010760,000618: 11,6747 06034 TC -ONECHK
010761,000619:
010762,000620: 11,6750 31774 NXTBNK XCH SKEEP4
010763,000621: 11,6751 64516 AD SCON1
010764,000622: 11,6752 51774 TS SKEEP4
010765,000623: 11,6753 11777 CCS SKEEP7
010766,000624: 11,6754 06670 TC BANK2
010767,000625: 11,6755 06756 TC +1
010768,000626: 11,6756 44516 CS SCON1
010769,000627: 11,6757 51777 TS SKEEP7
010770,000628: 11,6760 36772 CAF SWCON # 41776
010771,000629: 11,6761 51776 TS SKEEP6
010772,000630: 11,6762 21774 ENDBANKS INDEX SKEEP4
![]() |
Page 277 |
010774,000632: 11,6763 40000 CS 0000
010775,000633: 11,6764 10000 CCS A
010776,000634: 11,6765 06676 TC FXSWBNKS
010777,000635: 11,6766 06615 STBNKCON ADRES BNKCON1 # CONSTANT. STARTING ADDRESS OF BANK LIST
010778,000636: 11,6767 06676 TC FXSWBNKS
010779,000637: 11,6770 11761 CCS 2OPTIONS # END OF FIXED MEMORY CHECKING
010780,000638: 11,6771 07025 TC SHOWSUM # END OF SHOWSUM, START AGAIN
010781,000639: 11,6772 41776 SWCON OCTAL 41776 # CONSTANT
010782,000640: 11,6773 07102 TC 1/2OPTN # END OF BANK SUMCHECKING SUBROUTINE
010783,000641:
010784,000642: 11,6774 51772 ADSUM TS SKEEP2
010785,000643: 11,6775 61771 AD SKEEP1
010786,000644: 11,6776 51771 TS SKEEP1
010787,000645: 11,6777 35501 CAF SCON0
010788,000646: 11,7000 61771 AD SKEEP1
010789,000647: 11,7001 51771 TS SKEEP1
010790,000648: 11,7002 41772 CS SKEEP2
010791,000649: 11,7003 61773 AD SKEEP3
010792,000650: 11,7004 00001 TC Q
010793,000651:
010794,000652:
010795,000653: 11,7005 30001 BNKCHK XCH Q
010796,000654: 11,7006 50115 TS QADRS
010797,000655: 11,7007 11771 CCS SKEEP1
010798,000656: 11,7010 07014 TC +4
010799,000657: 11,7011 06013 TC ERRORS
010800,000658: 11,7012 07014 TC +2
010801,000659: 11,7013 06013 TC ERRORS
010802,000660: 11,7014 51771 TS SKEEP1
010803,000661: 11,7015 21774 INDEX SKEEP4
010804,000662: 11,7016 30000 CAF 0000
010805,000663: 11,7017 03203 TC LEFT5 # CYCLES LEFT 5 PLACES
010806,000664: 11,7020 40000 CS A
010807,000665: 11,7021 61771 AD SKEEP1
010808,000666: 11,7022 00115 TC QADRS
010809,000667: 11,7023 43776 FXCON1 OCTAL 43776 # CONSTANT
010810,000668: 11,7024 45776 FXCON2 OCTAL 45776 # CONSTANT
010811,000669:
010812,000670: # INITIALIZE 2OPTIONS TO +1 TO PERFORM SHOWSUM
010813,000671: # START OF ROUTINE THAT DISPLAYS SUM OF EACH BANK
010814,000672: 11,7025 34516 SHOWSUM CAF SCON1
010815,000673: 11,7026 51761 TS 2OPTIONS # SHOWSUM OPTION
010816,000674: 11,7027 35501 CAF SCON0
010817,000675: 11,7030 51762 TS SMODE # PUT SELF-CHECK TO SLEEP
010818,000676: 11,7031 20017 INDEX INHINT
010819,000677: 11,7032 34504 CAF PRIO2
010820,000678: 11,7033 02052 TC NOVAC
010821,000679: 11,7034 22650 CADR FXFXCHK
010822,000680: 11,7035 20016 INDEX RELINT
010823,000681: 11,7036 02124 TC ENDOFJOB
![]() |
Page 278 |
010825,000683: 11,7037 21774 SDISPLAY INDEX SKEEP4
010826,000684: 11,7040 30000 CAF 0000
010827,000685: 11,7041 03203 TC LEFT5 # CYCLES LEFT 5 PLACES
010828,000686: 11,7042 51772 TS SKEEP2 # HOLDS BANK NUMBER FOR DSKY DISPLAY
010829,000687: 11,7043 11777 CCS SKEEP7 # 12 INSTRUCTIONS TO PUT BUGGER WORD
010830,000688: 11,7044 07054 TC FXFXWORD # IN SKEEP3.
010831,000689: 11,7045 07054 TC FXFXWORD
010832,000690: 11,7046 41773 CS SKEEP3 # GETS FXSW BUGGER WORD
010833,000691: 11,7047 40000 CS A
010834,000692: 11,7050 21774 INDEX SKEEP4
010835,000693: 11,7051 60000 AD 0000
010836,000694: 11,7052 05730 TC DATACALL
010837,000695: 11,7053 07056 TC +3
010838,000696: 11,7054 21773 FXFXWORD INDEX SKEEP3 # GETS FXFX BUGGER WORD
010839,000697: 11,7055 30000 CAF 0000
010840,000698: 11,7056 51773 TS SKEEP3 # SKEEP3 NOW HOLDS BUGGER WORD
010841,000699: 11,7057 03302 TC GRABDSP
010842,000700: 11,7060 03310 TC PREGBSY
010843,000701: 11,7061 36006 NOKILL CAF SUMADRS
010844,000702: 11,7062 50117 TS MPAC +2
010845,000703: 11,7063 36007 CAF VNCON
010846,000704: 11,7064 03100 TC NVSUB
010847,000705: 11,7065 07100 TC SBUSY
010848,000706: 11,7066 05654 TC BANKCALL
010849,000707: 11,7067 14000 CADR FLASHON
010850,000708: 11,7070 03136 TC ENDIDLE
010851,000709: 11,7071 07074 TC +3 # FINISHED WITH SHOWSUM
010852,000710: 11,7072 07076 TC SALLOW # PROCEED TO NEXT BANK
010853,000711: 11,7073 07061 TC NOKILL # SO CAN LOAD WITHOUT KILLING SHOWSUM.
010854,000712: 11,7074 03362 TC FREEDSP
010855,000713: 11,7075 02124 TC ENDOFJOB
010856,000714:
010857,000715: 11,7076 03362 SALLOW TC FREEDSP # ALLOWS ANOTHER JOB TO DISPLAY. LEAVES
010858,000716: 11,7077 06750 TC NXTBNK # SUM IN DSKY FOR 10 SEC. AFTER PROC. VERB
010859,000717:
010860,000718: 11,7100 36010 SBUSY CAF SCADR
010861,000719: 11,7101 03320 TC NVSUBUSY
010862,000720:
010863,000721: 11,7102 11762 1/2OPTN CCS SMODE
010864,000722: 11,7103 07107 TC +4 # STAY IN ROPECHK LOOP
010865,000723: 11,7104 07367 TC SOPTION3 -3
010866,000724: 11,7105 03000 TC SMODECHK # SHOULD NOT COME HERE
010867,000725: 11,7106 07113 TC MPNMBRS # CONTINUE WITH SELF-CHECK
010868,000726: 11,7107 31770 XCH SCOUNT +2
010869,000727: 11,7110 64516 AD SCON1
010870,000728: 11,7111 31770 XCH SCOUNT +2
010871,000729: 11,7112 06646 TC ROPECHK
010872,000730:
010873,000731: # MULTIPLY SUBROUTINES TAKE APPROXIMATELY 30 SECONDS
010874,000732: # (37777) X (37777 THROUGH 00001)
![]() |
Page 279 |
010876,000734: # C(A) COUNTS DOWN. C(LP) COUNTS UP.
010877,000735: 11,7113 34476 MPNMBRS CAF SCON+MAX
010878,000736: 11,7114 51772 TS SKEEP2
010879,000737: 11,7115 34476 CAF SCON+MAX
010880,000738: 11,7116 25777 EXTEND
010881,000739: 11,7117 41772 MP SKEEP2
010882,000740: 11,7120 60003 AD LP # C(A) = 37777
010883,000741: 11,7121 40000 CS A
010884,000742: 11,7122 64476 AD SCON+MAX
010885,000743: 11,7123 06023 TC -ZEROCHK
010886,000744: 11,7124 10215 CCS NEWJOB
010887,000745: 11,7125 07377 TC DUMEXIT
010888,000746: 11,7126 11772 CCS SKEEP2
010889,000747: 11,7127 51772 TS SKEEP2
010890,000748: 11,7130 11772 CCS SKEEP2
010891,000749: 11,7131 07115 TC MPNMBRS +2
010892,000750: # (-1) X (37777 THROUGH 00001)
010893,000751: 11,7132 34476 CAF SCON+MAX
010894,000752: 11,7133 51772 TS SKEEP2
010895,000753: 11,7134 34335 MPHIGH1 CAF SCON-1
010896,000754: 11,7135 25777 EXTEND
010897,000755: 11,7136 41772 MP SKEEP2 # C(A) = -0
010898,000756: 11,7137 60003 AD LP
010899,000757: 11,7140 61772 AD SKEEP2
010900,000758: 11,7141 06023 TC -ZEROCHK
010901,000759: 11,7142 10215 CCS NEWJOB
010902,000760: 11,7143 07377 TC DUMEXIT
010903,000761: 11,7144 11772 CCS SKEEP2
010904,000762: 11,7145 51772 TS SKEEP2
010905,000763: 11,7146 11772 CCS SKEEP2
010906,000764: 11,7147 07134 TC MPHIGH1
010907,000765:
010908,000766: # INTERCHANGE MULTIPLIER AND MULTIPLICAND
010909,000767: # (37777 THROUGH 00001) X (37777)
010910,000768: # C(A) COUNTS DOWN. C(LP) COUNTS UP.
010911,000769: 11,7150 34476 CAF SCON+MAX
010912,000770: 11,7151 51771 TS SKEEP1
010913,000771: 11,7152 41771 MPAGAIN CS SKEEP1
010914,000772: 11,7153 40000 CS A
010915,000773: 11,7154 25777 EXTEND
010916,000774: 11,7155 44476 MP SCON+MAX
010917,000775: 11,7156 60003 AD LP # C(A) = 37777
010918,000776: 11,7157 40000 CS A
010919,000777: 11,7160 64476 AD SCON+MAX
010920,000778: 11,7161 06023 TC -ZEROCHK
010921,000779: 11,7162 10215 CCS NEWJOB
010922,000780: 11,7163 07377 TC DUMEXIT
010923,000781: 11,7164 11771 CCS SKEEP1
010924,000782: 11,7165 51771 TS SKEEP1
010925,000783: 11,7166 11771 CCS SKEEP1
![]() |
Page 280 |
010927,000785: 11,7167 07152 TC MPAGAIN
010928,000786: # (37777 THROUGH 00001) X (-1)
010929,000787: 11,7170 34476 CAF SCON+MAX
010930,000788: 11,7171 51771 TS SKEEP1
010931,000789: 11,7172 41771 MPHIGH2 CS SKEEP1
010932,000790: 11,7173 40000 CS A
010933,000791: 11,7174 25777 EXTEND
010934,000792: 11,7175 44335 MP SCON-1
010935,000793: 11,7176 60003 AD LP
010936,000794: 11,7177 61771 AD SKEEP1
010937,000795: 11,7200 06023 TC -ZEROCHK
010938,000796: 11,7201 10215 CCS NEWJOB
010939,000797: 11,7202 07377 TC DUMEXIT
010940,000798: 11,7203 11771 CCS SKEEP1
010941,000799: 11,7204 51771 TS SKEEP1
010942,000800: 11,7205 11771 CCS SKEEP1
010943,000801: 11,7206 07172 TC MPHIGH2
010944,000802: 11,7207 07212 TC DV1
010945,000803:
010946,000804: # THESE 2 CONSTANTS USED BY DIVIDE SUBROUTINES
010947,000805: 11,7210 37776 DVCON1 OCTAL 37776
010948,000806: 11,7211 50001 DVCON2 OCTAL 50001
010949,000807: # DIVIDE 1/4 BY 3/8
010950,000808: # ONCE THROUGH ALL DEVIDE SUBROUTINES TAKES APPROX. 0.012 SECONDS
010951,000809: # TOTAL TIME IN DEVIDE SUBROUTINES IS APPROX. 20 SECONDS
010952,000810: 11,7212 36004 DV1 CAF CONERAS2 # 01774
010953,000811: 11,7213 51777 TS SKEEP7
010954,000812: 11,7214 36557 DV1++ CAF SCON3/8
010955,000813: 11,7215 50001 TS Q
010956,000814: 11,7216 34502 CAF SCON1/4
010957,000815: 11,7217 25777 EXTEND
010958,000816: 11,7220 50001 DV Q # C(A) = 25252
010959,000817: 11,7221 51771 TS SKEEP1
010960,000818: 11,7222 30003 XCH LP
010961,000819: 11,7223 51772 TS SKEEP2
010962,000820: 11,7224 40001 DV1+- CS Q # +1/4
010963,000821: 11,7225 25777 EXTEND
010964,000822: 11,7226 56560 DV SCON-3/8 # C(A) = 52525
010965,000823: 11,7227 61771 AD SKEEP1 # C(A) = -0
010966,000824: 11,7230 51775 TS SKEEP5
010967,000825: 11,7231 30003 XCH LP
010968,000826: 11,7232 51773 TS SKEEP3
010969,000827: 11,7233 30001 DV1-- XCH Q # -1/4
010970,000828: 11,7234 25777 EXTEND
010971,000829: 11,7235 56560 DV SCON-3/8
010972,000830: 11,7236 51771 TS SKEEP1
010973,000831: 11,7237 30003 XCH LP
010974,000832: 11,7240 51774 TS SKEEP4
010975,000833: 11,7241 30001 DV1-+ XCH Q
010976,000834: 11,7242 25777 EXTEND
![]() |
Page 281 |
010978,000836: 11,7243 56557 DV SCON3/8
010979,000837: 11,7244 61771 AD SKEEP1 # C(A) = -0
010980,000838: 11,7245 51771 TS SKEEP1
010981,000839: 11,7246 40003 CS LP # C(A) = 37776
010982,000840: 11,7247 61771 AD SKEEP1 # C(A) = 37776
010983,000841: 11,7250 61772 AD SKEEP2 # C(A) = 37777
010984,000842: 11,7251 61773 AD SKEEP3 # C(A) = -0
010985,000843: 11,7252 61774 AD SKEEP4 # C(A) = +1
010986,000844: 11,7253 61775 AD SKEEP5 # C(A) = +1
010987,000845: 11,7254 06033 TC -ONECHK -1
010988,000846:
010989,000847: # DIVIDE INCREASING BIT POSITIONS BY 1/2 (13 DEVISIONS)
010990,000848: 11,7255 34516 DV2 CAF SCON1
010991,000849: 11,7256 51772 DV2LOOP TS SKEEP2
010992,000850: 11,7257 25777 EXTEND
010993,000851: 11,7260 54501 DV SCON1/2
010994,000852: 11,7261 51773 TS SKEEP3
010995,000853: 11,7262 60001 AD Q # Q = -0
010996,000854: 11,7263 50020 TS CYR
010997,000855: 11,7264 40020 CS CYR
010998,000856: 11,7265 61772 AD SKEEP2
010999,000857: 11,7266 60003 AD LP
011000,000858: 11,7267 06033 TC -ONECHK -1
011001,000859: 11,7270 41773 CS SKEEP3
011002,000860: 11,7271 60000 AD A
011003,000861: 11,7272 50000 TS A # OVERFLOW AT END OF DV2 SUBROUTINE
011004,000862: 11,7273 07275 TC +2
011005,000863: 11,7274 07300 TC DV3
011006,000864: 11,7275 31773 XCH SKEEP3
011007,000865: 11,7276 64516 AD SCON1
011008,000866: 11,7277 07256 TC DV2LOOP
011009,000867:
011010,000868: # DIVIDE SEPARATE DECREASING BIT POSITIONS BY 37777 (14DEVISIONS)
011011,000869: # AFTER C(A) = BEFORE C(A) AND AFTER C(Q) = -C(A)
011012,000870: 11,7300 44476 DV3 CS SCON+MAX
011013,000871: 11,7301 50020 TS CYR # C(CYR) = 20000
011014,000872: 11,7302 40020 DV3LOOP CS CYR
011015,000873: 11,7303 40000 CS A
011016,000874: 11,7304 25777 EXTEND
011017,000875: 11,7305 54476 DV SCON+MAX
011018,000876: 11,7306 51774 TS SKEEP4
011019,000877: 11,7307 60001 AD Q
011020,000878: 11,7310 06023 TC -ZEROCHK
011021,000879: 11,7311 11774 CCS SKEEP4
011022,000880: 11,7312 10000 CCS A
011023,000881: 11,7313 07302 TC DV3LOOP
011024,000882:
011025,000883: # DEVIDE 37776 BY 37776
011026,000884: # C(A) = +MAX FOR POSITIVE SIGN AND -MAX FOR NEGATIVE SIGN
011027,000885: # C(Q) = - ABSOLUTE VALUE OF DEVISOR = 40001
![]() |
Page 282 |
011029,000887: 11,7314 37210 DV4++ CAF DVCON1 # 37776
011030,000888: 11,7315 25777 EXTEND
011031,000889: 11,7316 57210 DV DVCON1 # C(A) = 37777 C(Q) = -37776
011032,000890: 11,7317 60001 AD Q
011033,000891: 11,7320 06033 TC -ONECHK -1
011034,000892: 11,7321 30003 XCH LP # C(LP) = +1
011035,000893: 11,7322 51775 TS SKEEP5
011036,000894: 11,7323 47210 CS DVCON1
011037,000895: 11,7324 51774 TS SKEEP4
011038,000896: 11,7325 37210 DV4+- CAF DVCON1
011039,000897: 11,7326 25777 EXTEND
011040,000898: 11,7327 51774 DV SKEEP4 # C(A) = 40000 C(Q) = -37776
011041,000899: 11,7330 40000 CS A
011042,000900: 11,7331 60001 AD Q
011043,000901: 11,7332 06033 TC -ONECHK -1
011044,000902: 11,7333 60003 AD LP # C(LP) = 40000
011045,000903: 11,7334 61775 AD SKEEP5
011046,000904: 11,7335 51775 TS SKEEP5 # -37776
011047,000905: 11,7336 47210 DV4-+ CS DVCON1
011048,000906: 11,7337 25777 EXTEND
011049,000907: 11,7340 57210 DV DVCON1 # C(A) = 40000 C(Q) = -37776
011050,000908: 11,7341 40000 CS A
011051,000909: 11,7342 60001 AD Q
011052,000910: 11,7343 06033 TC -ONECHK -1
011053,000911: 11,7344 40003 CS LP # C(LP) = 40001
011054,000912: 11,7345 61775 AD SKEEP5
011055,000913: 11,7346 51775 TS SKEEP5 # -0
011056,000914: 11,7347 47210 DV4-- CS DVCON1
011057,000915: 11,7350 51774 TS SKEEP4
011058,000916: 11,7351 25777 EXTEND
011059,000917: 11,7352 51774 DV SKEEP4 # C(A) = 37777 C(Q) = -37776
011060,000918: 11,7353 60001 AD Q
011061,000919: 11,7354 06033 TC -ONECHK -1
011062,000920: 11,7355 40003 CS LP # C(LP) = +1
011063,000921: 11,7356 61775 AD SKEEP5
011064,000922: 11,7357 06034 TC -ONECHK
011065,000923: 11,7360 10215 CCS NEWJOB
011066,000924: 11,7361 07377 TC DUMEXIT
011067,000925: 11,7362 11777 CCS SKEEP7
011068,000926: 11,7363 07365 TC +2
011069,000927: 11,7364 07367 TC SOPTION3 -3
011070,000928: 11,7365 51777 TS SKEEP7
011071,000929: 11,7366 07214 TC DV1++ # BACK TO DEVIDE LOOP
011072,000930:
011073,000931: 11,7367 31770 XCH SCOUNT +2 # ADD +1 TO SCOUNT +2 REGISTER AT THIS
011074,000932: 11,7370 64516 AD SCON1 # POINT OF SELF-CHECK
011075,000933: 11,7371 31770 XCH SCOUNT +2
011076,000934: 11,7372 11762 SOPTION3 CCS SMODE
011077,000935: 11,7373 07113 TC MPNMBRS # STAY IN MPNMBRS LOOP
011078,000936: 11,7374 03000 TC SMODECHK
![]() |
Page 283 |
011080,000938: 11,7375 03000 TC SMODECHK # SHOULD NOT COME HERE
011081,000939: 11,7376 03000 TC SMODECHK # END OF SELF-CHECK. START AGAIN
011082,000940:
011083,000941: 3000 BANK 1
011084,000942:
![]() |
Page 284 |
011086,000944:
011087,000945: # COMPUTER ACTIVITY LIGHT (GREEN LIGHT) MAINTENANCE.
011088,000946:
011089,000947: 3000 10215 SMODECHK CCS NEWJOB # SEE IF ITS TIME FOR A CHANGE.
011090,000948: 3001 07377 TC DUMEXIT
011091,000949:
011092,000950: 3002 11762 ADVAN CCS SMODE # SEE IF SELF-CHECK IS WANTED
011093,000951: 3003 06045 TC CCSCHK # YES PULSES ONLY
011094,000952: 3004 03000 TC SMODECHK
011095,000953: 3005 06045 TC CCSCHK # YES PULSES + SC + ERASABLE
011096,000954: 3006 06045 TC CCSCHK # YES ALL OF SELF-CHECK
011097,000955:
011098,000956: 11,7377 BANK 11
011099,000957: 11,7377 30001 DUMEXIT XCH Q
011100,000958: 11,7400 50115 TS QADRS # STORE RETURN ADDRESS
011101,000959: 11,7401 45503 CS TWO # TURN ON GREEN LIGHT (COMP ACT) AND
011102,000960: 11,7402 20017 INHINT
011103,000961: 11,7403 70011 MASK OUT1 # GO TO CHANG1.
011104,000962: 11,7404 65503 AD TWO
011105,000963: 11,7405 50011 TS OUT1
011106,000964: 11,7406 02101 TC CHANG1
011107,000965:
011108,000966: 11,7407 45503 DUMYJOB CS TWO # IDLING AGAIN- TURN OFF ACTIVITY LIGHT
011109,000967: 11,7410 20017 INHINT
011110,000968: 11,7411 70011 MASK OUT1 # LIGHT.
011111,000969: 11,7412 50011 TS OUT1
011112,000970: 11,7413 20016 RELINT
011113,000971: 11,7414 00115 TC QADRS # BACK TO CHECKING COMPUTER
011114,000972:
011115,000973: 11,7415 37420 DUMMYJOB CAF SMODECON # ENTER AT SMODECHK IF THERE IS A
011116,000974: 11,7416 50115 TS QADRS # FRESH START OR A GOJAM
011117,000975: 11,7417 07407 TC DUMYJOB
011118,000976: 11,7420 03000 SMODECON ADRES SMODECHK
011119,000977:
![]() |
Page 285 |
011121,000979:
011122,000980: # C-RELAY TESTER
011123,000981:
011124,000982: 11,7421 34500 CCHK CAF BIT15
011125,000983: 11,7422 50723 TS DSPTAB +11D
011126,000984: 11,7423 50724 TS DSPTAB +12D
011127,000985: 11,7424 50725 TS DSPTAB +13D
011128,000986:
011129,000987: 11,7425 34510 CAF BIT7
011130,000988: 11,7426 20017 INHINT
011131,000989: 11,7427 02173 TC WAITLIST
011132,000990: 11,7430 23433 CADR CCHKA
011133,000991: 11,7431 37530 CAF LCCHKB
011134,000992: 11,7432 02127 TC JOBSLEEP
011135,000993:
011136,000994: 11,7433 37530 CCHKA CAF LCCHKB
011137,000995: 11,7434 02060 TC JOBWAKE
011138,000996: 11,7435 02256 TC TASKOVER
011139,000997:
011140,000998: 11,7436 35503 CCHKB CAF TWO
011141,000999: 11,7437 50115 TS MPAC
011142,001000:
011143,001001: 11,7440 33232 CAF TEN
011144,001002: 11,7441 50116 CCHK0 TS MPAC +1
011145,001003:
011146,001004: 11,7442 20000 INDEX A
011147,001005: 11,7443 34504 CAF BIT11
011148,001006: 11,7444 64500 AD BIT15
011149,001007: 11,7445 20115 INDEX MPAC
011150,001008: 11,7446 50723 TS DSPTAB +11D
011151,001009:
011152,001010: 11,7447 34507 CAF BIT8
011153,001011: 11,7450 20017 INHINT
011154,001012: 11,7451 02173 TC WAITLIST
011155,001013: 11,7452 23455 CADR CCHK1
011156,001014:
011157,001015: 11,7453 37531 CAF LCCHK2
011158,001016: 11,7454 02127 TC JOBSLEEP
011159,001017:
011160,001018: 11,7455 37531 CCHK1 CAF LCCHK2
011161,001019: 11,7456 02060 TC JOBWAKE
011162,001020: 11,7457 02256 TC TASKOVER
011163,001021:
011164,001022: 11,7460 30007 CCHK2 XCH IN3
011165,001023: 11,7461 10007 CCS IN3
011166,001024: 11,7462 07525 TC CCHKALM
011167,001025: 11,7463 07525 TC CCHKALM
011168,001026: 11,7464 07466 TC +2
011169,001027: 11,7465 07525 TC CCHKALM
011170,001028:
011171,001029: 11,7466 10116 CCS MPAC +1
![]() |
Page 286 |
011173,001031: 11,7467 07441 TC CCHK0
011174,001032:
011175,001033: 11,7470 34500 CAF BIT15 # TURN OFF LAST RELAY.
011176,001034: 11,7471 20115 INDEX MPAC
011177,001035: 11,7472 50723 TS DSPTAB +11D
011178,001036:
011179,001037: 11,7473 10115 CCS MPAC
011180,001038: 11,7474 07437 TC CCHK0 -2
011181,001039: 11,7475 34510 CAF BIT7
011182,001040: 11,7476 20017 INHINT
011183,001041: 11,7477 02173 TC WAITLIST
011184,001042: 11,7500 23503 CADR CCHKC
011185,001043: 11,7501 37533 CAF LCCHKD
011186,001044: 11,7502 02127 TC JOBSLEEP
011187,001045:
011188,001046: 11,7503 37533 CCHKC CAF LCCHKD
011189,001047: 11,7504 02060 TC JOBWAKE
011190,001048: 11,7505 02256 TC TASKOVER
011191,001049:
011192,001050: 11,7506 30007 CCHKD XCH IN3
011193,001051: 11,7507 10007 CCS IN3
011194,001052: 11,7510 07514 TC +4
011195,001053: 11,7511 07514 TC +3
011196,001054: 11,7512 07525 TC CCHKALM
011197,001055: 11,7513 07525 TC CCHKALM
011198,001056:
011199,001057: 11,7514 35362 CAF SEVEN
011200,001058: 11,7515 50117 TS MPAC +2
011201,001059: 11,7516 37532 CAF CCHKNV
011202,001060: 11,7517 03100 TC NVSUB
011203,001061: 11,7520 03315 TC PRENVBSY
011204,001062: 11,7521 03362 TSTOUT TC FREEDSP
011205,001063: 11,7522 02362 TC NEWMODE # REVERT TO MODE 00.
011206,001064: 11,7523 00000 OCT 0
011207,001065: 11,7524 02124 TC ENDOFJOB
011208,001066:
011209,001067: 11,7525 03007 CCHKALM TC ALARM
011210,001068: 11,7526 01104 OCT 1104
011211,001069: 11,7527 02124 TC ENDOFJOB
011212,001070:
011213,001071: 11,7530 23436 LCCHKB CADR CCHKB
011214,001072: 11,7531 23460 LCCHK2 CADR CCHK2
011215,001073: 11,7532 00101 CCHKNV OCT 00101
011216,001074: 11,7533 23506 LCCHKD CADR CCHKD
011217,001075:
![]() |
Page 287 |
011219,001077:
011220,001078: # DSKY TESTER
011221,001079:
011222,001080: 11,7534 33232 DCHECK CAF TEN
011223,001081: 11,7535 50115 DC9 TS MPAC
011224,001082: 11,7536 20115 INDEX MPAC
011225,001083: 11,7537 37643 CAF DSKYCODE
011226,001084: 11,7540 50116 TS MPAC +1
011227,001085: 11,7541 20017 INHINT
011228,001086: 11,7542 40000 COM
011229,001087: 11,7543 50721 TS DSPTAB +9D
011230,001088: 11,7544 43221 CS MID5
011231,001089: 11,7545 70116 MASK MPAC +1
011232,001090: 11,7546 40000 COM
011233,001091: 11,7547 50717 TS DSPTAB +7
011234,001092: 11,7550 44504 CS BIT11
011235,001093: 11,7551 70116 MASK MPAC +1
011236,001094: 11,7552 40000 COM
011237,001095: 11,7553 50710 TS DSPTAB
011238,001096: 11,7554 50711 TS DSPTAB +1
011239,001097: 11,7555 50712 TS DSPTAB +2
011240,001098: 11,7556 50713 TS DSPTAB +3
011241,001099: 11,7557 50714 TS DSPTAB +4
011242,001100: 11,7560 50715 TS DSPTAB +5
011243,001101: 11,7561 50716 TS DSPTAB +6
011244,001102: 11,7562 50720 TS DSPTAB +8D
011245,001103: 11,7563 50722 TS DSPTAB +10D
011246,001104: 11,7564 37656 CAF DCNOUT
011247,001105: 11,7565 50707 TS NOUT
011248,001106: 11,7566 34504 DCWAIT CAF BIT11 # 10.24 SEC WAIT
011249,001107: 11,7567 02173 TC WAITLIST
011250,001108: 11,7570 23573 CADR DC10
011251,001109: 11,7571 37657 CAF LDC11
011252,001110: 11,7572 02127 TC JOBSLEEP
011253,001111:
011254,001112: 11,7573 37657 DC10 CAF LDC11
011255,001113: 11,7574 02060 TC JOBWAKE
011256,001114: 11,7575 02256 TC TASKOVER
011257,001115:
011258,001116: 11,7576 10115 DC11 CCS MPAC
011259,001117: 11,7577 07535 TC DC9
011260,001118:
011261,001119: 11,7600 07602 TC +2
011262,001120: 11,7601 07613 TC DC+
011263,001121:
011264,001122: 11,7602 20017 INHINT
011265,001123: 11,7603 44373 CS 6K # - SIGNS.
011266,001124: 11,7604 50710 TS DSPTAB
011267,001125: 11,7605 50713 TS DSPTAB +3
011268,001126: 11,7606 50715 TS DSPTAB +5
011269,001127: 11,7607 50115 TS MPAC
![]() |
Page 288 |
011271,001129: 11,7610 34473 CAF THREE
011272,001130: 11,7611 50707 TS NOUT
011273,001131: 11,7612 07566 TC DCWAIT
011274,001132:
011275,001133: 11,7613 20017 DC+ INHINT
011276,001134: 11,7614 44373 CS 6K
011277,001135: 11,7615 50711 TS DSPTAB +1
011278,001136: 11,7616 50714 TS DSPTAB +4
011279,001137: 11,7617 50716 TS DSPTAB +6
011280,001138: 11,7620 44503 CS BIT12
011281,001139: 11,7621 50710 TS DSPTAB
011282,001140: 11,7622 50713 TS DSPTAB +3
011283,001141: 11,7623 50715 TS DSPTAB +5
011284,001142: 11,7624 34475 CAF SIX
011285,001143: 11,7625 50707 TS NOUT
011286,001144: 11,7626 33220 CAF LOW5
011287,001145: 11,7627 50011 TS OUT1 # TURNS ON DSKY LAMPS.
011288,001146: 11,7630 20016 RELINT
011289,001147: 11,7631 34506 CAF BIT9
011290,001148: 11,7632 50115 DC++ TS MPAC # KEEP GLIT ON FOR A WHILE.
011291,001149: 11,7633 34504 CAF BIT11 # LOOPS FOR ABOUT 40 MS.
011292,001150: 11,7634 10000 CCS A
011293,001151: 11,7635 07634 TC -1
011294,001152: 11,7636 10215 CCS NEWJOB
011295,001153: 11,7637 02101 TC CHANG1
011296,001154: 11,7640 10115 CCS MPAC
011297,001155: 11,7641 07632 TC DC++
011298,001156: 11,7642 07521 TC TSTOUT
011299,001157:
011300,001158: 11,7643 04000 DSKYCODE OCT 04000 # BLANKS
011301,001159: 11,7644 07265 OCT 07265 # 00
011302,001160: 11,7645 06143 OCT 06143 # 11
011303,001161: 11,7646 07471 OCT 07471 # 22
011304,001162: 11,7647 07573 OCT 07573 # 33
011305,001163: 11,7650 06757 OCT 06757 # 44
011306,001164: 11,7651 07736 OCT 07736 # 55
011307,001165: 11,7652 07634 OCT 07634 # 66
011308,001166: 11,7653 07163 OCT 07163 # 77
011309,001167: 11,7654 07675 OCT 07675 # 88
011310,001168: 11,7655 07777 OCT 07777 # 99
011311,001169: 11,7656 00013 DCNOUT DEC 11 B-14
011312,001170: 11,7657 23576 LDC11 CADR DC11
011313,001171:
![]() |
Page 289 |
011315,001173:
011316,001174: # ENGINE-ON PROGRAM FOLLOWING A +XXX.XX SECOND DELAY OF LESS THAN 2 MINUTES, ENGINE WILL REMAIN ON FOR +XXX.XX
011317,001175:
011318,001176: 11,7660 03302 BROKYPRG TC GRABDSP
011319,001177: 11,7661 03310 TC PREGBSY
011320,001178: 11,7662 34516 CAF ONE
011321,001179: 11,7663 51564 TS CUSSANG
011322,001180: 11,7664 37723 CAF V21N24G
011323,001181: 11,7665 03100 TC NVSUB
011324,001182: 11,7666 03315 TC PRENVBSY
011325,001183: 11,7667 03136 TC ENDIDLE
011326,001184: 11,7670 02124 TC ENDOFJOB
011327,001185: 11,7671 07664 TC -5
011328,001186: 11,7672 30616 XCH DSPTEM1
011329,001187: 11,7673 31460 XCH LONGTIME
011330,001188: 11,7674 30617 XCH DSPTEM1 +1
011331,001189: 11,7675 31461 XCH LONGTIME +1
011332,001190: 11,7676 51563 TS PLOW
011333,001191: 11,7677 11564 CCS CUSSANG
011334,001192: 11,7700 07663 TC BROKYPRG +3
011335,001193: 11,7701 31563 XCH PLOW
011336,001194: 11,7702 02173 TC WAITLIST
011337,001195: 11,7703 23706 CADR ENGNON
011338,001196: 11,7704 03362 TC FREEDSP
011339,001197: 11,7705 02124 TC ENDOFJOB
011340,001198: 11,7706 44502 ENGNON CS BIT13
011341,001199: 11,7707 70011 MASK OUT1
011342,001200: 11,7710 64502 AD BIT13
011343,001201: 11,7711 50011 TS OUT1
011344,001202: 11,7712 37724 CAF ENGOFLOC
011345,001203: 11,7713 51467 TS CALLCADR
011346,001204: 11,7714 05742 TC IBNKCALL
011347,001205: 11,7715 10552 CADR LONGCALL
011348,001206: 11,7716 02256 TC TASKOVER
011349,001207: 11,7717 44502 ENGNOFF CS BIT13
011350,001208: 11,7720 70011 MASK OUT1
011351,001209: 11,7721 50011 TS OUT1
011352,001210: 11,7722 02256 TC TASKOVER
011353,001211: 11,7723 02124 V21N24G OCT 02124
011354,001212: 11,7724 23717 ENGOFLOC CADR ENGNOFF
End of include-file AGC_SELF-CHECK.agc. Parent file is MAIN.agc