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