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.
|
001536,000002: ## Copyright: Public domain.
001537,000003: ## Filename: FIXED-FIXED_INTERPRETER_SECTION.agc
001538,000004: ## Purpose: Part of the source code for Solarium build 55. This
001539,000005: ## is for the Command Module's (CM) Apollo Guidance
001540,000006: ## Computer (AGC), for Apollo 6.
001541,000007: ## Assembler: yaYUL --block1
001542,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
001543,000009: ## Website: www.ibiblio.org/apollo/index.html
001544,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
001545,000011: ## Mod history: 2009-09-16 JL Created.
001546,000012: ## 2016-08-18 RSB Some corrections.
001547,000013: ## 2016-08-23 RSB More of the same.
001548,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
001549,000015: ## and fixed errors found.
001550,000016:
|
|
Page 37
|
001552,000018:
001553,000019: 4000 SETLOC 4000 # SECOND HALF OF FIXED-FIXED.
001554,000020:
001555,000021: 4000 10001 INTPRET CCS Q # ENTRY TO INTERPRETER
001556,000022: 4001 50121 TS ADRLOC
001557,000023:
001558,000024: 4002 40015 CS BANKREG # GET BANKBITS
001559,000025: 4003 50061 TS BANKSET
001560,000026: 4004 04007 TC +3
001561,000027:
001562,000028: 4005 40061 NEWEQUN CS BANKSET # HERE FOR NEW EQUATIONS
001563,000029: 4006 50015 TS BANKREG
001564,000030: 4007 34516 CAF ONE # SET NEWEQIND TO CALL LOAD
001565,000031: 4010 50066 TS NEWEQIND
001566,000032: 4011 60121 AD ADRLOC # C(ADRLOC) = LOCATION LAST ADDRESS USED
001567,000033: 4012 50120 TS LOC # FOR OPERATORS
001568,000034: 4013 20000 INDEX A # GET FIRST OP AND NO. OF OPERATOR WORDS
001569,000035: 4014 40000 CS 0
001570,000036: 4015 64335 AD MINUS1
001571,000037: 4016 50063 TS ORDER
001572,000038: 4017 74720 MASK LOW7 # NUMBER OF ADDITIONAL OPERATOR WORDS
001573,000039: 4020 60120 AD LOC
001574,000040: 4021 50121 TS ADRLOC # AND SET ADRLOC
001575,000041: 4022 35501 CAF ZERO # TO SET ORDER TO ZERO
001576,000042: 4023 04072 TC IPROC2
001577,000043:
|
|
Page 38
|
001579,000045:
001580,000046: 4024 10215 DANZIG CCS NEWJOB # INTERPRETIVE INTERRUPT
001581,000047: 4025 02113 TC CHANG2 # CALL IN BANK0 AND SWITCH JOBS
001582,000048:
001583,000049: 4026 40061 CS BANKSET # RESET BANK BITS OF OBJECT PROGRAM
001584,000050: 4027 50015 TS BANKREG
001585,000051:
001586,000052: 4030 10063 CCS ORDER # HAS NEXT OP CODE BEEN PROCESSED
001587,000053: 4031 04200 TC LOWWD # NEXT INSTRUCTION WAS RIGHT-HAND
001588,000054:
001589,000055: 4032 20120 INDEX LOC # PICK UP POSSIBLE NEXT INSTRUCTION
001590,000056: 4033 40001 CS 1
001591,000057: 4034 10000 CCS A
001592,000058: 4035 04065 TC IPROC # IT IS - GO PROCESS IT
001593,000059: 4036 04037 TC +1 # IN CASE THE FIRST ADDRESS WAS INACTIVE
001594,000060:
001595,000061: 4037 20121 INDEX ADRLOC # END OF EQUATION
001596,000062: 4040 40001 CS 1
001597,000063: 4041 10000 CCS A # IS THERE ANOTHER ADDRESS
001598,000064: 4042 04317 TC PUSHDOWN # NO - INSERT IN PUSH-DOWN LIST
001599,000065: 4043 00042 D34 DEC 34 B-14 # USED TO DISPATCH STORE OPERATIONS
001600,000066:
001601,000067: 4044 50076 STORADR TS POLISH # PROCESS STORE ADDRESSES
001602,000068: 4045 04364 TC INCADR # TO SHOW WE PICKED UP ANOTHER ADDRESS
001603,000069: 4046 34043 CAF D34 # FORM CODES 32 - 34
001604,000070: 4047 60065 AD MODE
001605,000071: 4050 60000 DOUBLE # BECAUSE WE HAVE TO PUT IT INTO CYR
001606,000072: 4051 50020 TS CYR
001607,000073: 4052 34302 CAF LOW11
001608,000074: 4053 70076 MASK POLISH # SAVE ERASABLE PART PLUS POSSIBLE TAG
001609,000075: 4054 30076 XCH POLISH
001610,000076: 4055 64060 AD NEGIDEX # DIRECT OR INDEXED
001611,000077: 4056 10000 CCS A
001612,000078: 4057 04233 TC INDEX # IT IS INDEXED - PRESENT POLISH OK
001613,000079: 4060 44000 NEGIDEX OCT -33777 # NEGATIVE OF STORE ADDRESS PREFIX +1
001614,000080: 4061 44504 CS BIT11
001615,000081: 4062 60076 AD POLISH
001616,000082: 4063 50076 TS POLISH
001617,000083: 4064 04257 TC NONINDEX
001618,000084:
|
|
Page 39
|
001620,000086:
001621,000087: 4065 50063 IPROC TS ORDER # OP CODE WORD WAS PICKED UP BY CCS
001622,000088: 4066 30120 XCH LOC
001623,000089: 4067 64516 AD ONE
001624,000090: 4070 30120 XCH LOC
001625,000091: 4071 74720 MASK LOW7 # SAVE LOW ORDER CODE
001626,000092: 4072 30063 IPROC2 XCH ORDER # ENTRY FROM NEWEQUN
001627,000093: 4073 25777 INDEX OPOVF
001628,000094: 4074 44507 MP BIT8 # SHIFT IT RIGHT SEVEN PLACES
001629,000095: 4075 50020 TS CYR # GETTING RID OF THE RIGHT-HAND OP
001630,000096:
001631,000097: 4076 10020 JUMPIT CCS CYR # LOOK AT LOW-ORDER PREFIX BIT
001632,000098: 4077 04215 TC ADDRESS # INDEXABLE - DECODE ADDRESS IMMEDIATELY
001633,000099: 4100 00043 LOADOP OCT 43 # USED BY UNARY LOAD
001634,000100:
001635,000101: 4101 10020 CCS CYR # LOOK AT SECOND ONE HERE
001636,000102: 4102 04364 TC INCADR # PROCESS MISCELLANEOUS
001637,000103: 4103 04113 TC MISCPROC
001638,000104:
001639,000105: 4104 10066 UNAPROC CCS NEWEQIND # PROCESS UNARY REQUESTS
001640,000106: 4105 04152 TC UNALOAD # LOAD AN ACCUMULATOR AND RETURN
001641,000107:
001642,000108: 4106 34720 CAF LOW7
001643,000109: 4107 50015 TS BANKREG # CALL IN BANK 0 WHERE UNARIES ARE
001644,000110: 4110 70020 MASK CYR # WITHOUT CLOBBERING
001645,000111: 4111 20000 INDEX A
001646,000112: 4112 04453 TC UNAJUMP
001647,000113:
|
|
Page 40
|
001649,000115:
001650,000116: # PROCESS MISCELLANEOUS OP CODES.
001651,000117:
001652,000118: 4113 20000 MISCPROC INDEX A
001653,000119: 4114 40000 CS 0 # WE KNOW ITS AN ADDRESS
001654,000120: 4115 64516 AD ONE # TO FIT IN WITH THE POLISH ADDRESS SCHEME
001655,000121: 4116 50076 TS POLISH # SAVE ENTIRE ADDRESS
001656,000122:
001657,000123: 4117 10000 CCS A
001658,000124: 4120 04145 TC ENDMISC
001659,000125: 4121 42000 42K OCT 42000
001660,000126: 4122 04124 TC +2
001661,000127: 4123 04143 TC MISCREL
001662,000128: 4124 62261 AD BANKMASK
001663,000129: 4125 10000 CCS A
001664,000130: 4126 64516 AD ONE
001665,000131: 4127 04131 TC +2
001666,000132: 4130 04135 TC MISC2
001667,000133:
001668,000134: 4131 64121 AD 42K
001669,000135: 4132 40000 COM
001670,000136: 4133 50076 TS POLISH
001671,000137: 4134 04145 TC ENDMISC
001672,000138:
001673,000139: 4135 64517 MISC2 AD RELTEST
001674,000140: 4136 10000 CCS A
001675,000141: 4137 40076 CS POLISH
001676,000142: 4140 04143 TC +3
001677,000143: 4141 40076 CS POLISH
001678,000144: 4142 04144 TC +2
001679,000145: 4143 60067 MISCREL AD FIXLOC
001680,000146: 4144 50062 TS ADDRWD
001681,000147:
001682,000148: 4145 34720 ENDMISC CAF LOW7
001683,000149: 4146 50015 TS BANKREG # CALL IN BANK 0
001684,000150: 4147 70020 MASK CYR
001685,000151: 4150 20000 INDEX A
001686,000152: 4151 04433 TC NONJUMP
001687,000153:
|
|
Page 41
|
001689,000155:
001690,000156: 4152 34720 UNALOAD CAF LOW7 # PROCESS LOADING REQUESTS FOR UNARY
001691,000157: 4153 70020 MASK CYR # OPERATIONS. START BY FINDING APPROPRIATE
001692,000158: 4154 10000 CCS A # MODE
001693,000159: 4155 04160 TC +3 # TMOVE HAS CODE 0
001694,000160: 4156 45503 CS TWO
001695,000161: 4157 04164 TC MODESET
001696,000162: 4160 40000 CS A
001697,000163: 4161 64650 AD OCT40003
001698,000164: 4162 50065 TS MODE # SKIP IF SO AND SET A TO -1
001699,000165: 4163 45501 CS ZERO # IF WE DIDNT SKIP
001700,000166: 4164 50065 MODESET TS MODE
001701,000167:
001702,000168: 4165 34500 CAF NEGSIGN # GET INDEXING BIT FROM UNARY OP CODE IN
001703,000169: 4166 70020 MASK CYR # CYR
001704,000170: 4167 64100 AD LOADOP # AD LOAD OPCODE = OCT 43
001705,000171: 4170 60000 60K DOUBLE # DOUBLE OP CODE AND DUPLICATE SIGN IN
001706,000172: 4171 30020 XCH CYR # BIT 1 WHERE IT GOES INTO SIGN OF CYR
001707,000173: 4172 50023 TS SL # RE-EDIT, NOT BOTHERING ABOUT BITS 8-14
001708,000174: 4173 04215 TC ADDRESS # STANDARD ADDRESS ROUTINE
001709,000175:
001710,000176: 4174 50066 ULRET TS NEWEQIND # RETURN HERE AFTER LOADING
001711,000177: 4175 30023 XCH SL
001712,000178: 4176 50020 TS CYR # RESTORE ORIGINAL OP CODE
001713,000179: 4177 04106 TC UNAPROC +2 # AND DISPATCH AS USUAL
001714,000180:
001715,000181: 4200 35501 LOWWD CAF ZERO # RIGHT HAND OP CODE HAS ALREADY BEEN SET
001716,000182: 4201 30063 XCH ORDER
001717,000183: 4202 04075 TC JUMPIT -1
001718,000184:
|
|
Page 42
|
001720,000186:
001721,000187: 4203 50066 LOAD TS NEWEQIND # LOADS FIRST ADDRESS OF NEW EQUATIONS
001722,000188: 4204 20065 INDEX MODE # TRIGGERS TYPE OF CLEAR-AND-ADD
001723,000189: 4205 04210 TC +3
001724,000190: 4206 04533 TC TCA1
001725,000191: 4207 04537 TC DCA1
001726,000192: 4210 04611 TC VCA1
001727,000193:
001728,000194: 4211 10066 LOADRET CCS NEWEQIND # IF A UNARY LOAD, THIS IS STILL ONE
001729,000195: 4212 04174 TC ULRET # NO SECOND ADDRESS FOR UNARY LOADS
001730,000196:
001731,000197: 4213 40061 CS BANKSET
001732,000198: 4214 50015 TS BANKREG
001733,000199:
001734,000200: 4215 20121 ADDRESS INDEX ADRLOC # INDEXABLE ADDRESS ROUTINE
001735,000201: 4216 40001 CS 1 # PICK UP WHAT SHOULD BE THE NEXT ADDRESS
001736,000202: 4217 10000 CCS A
001737,000203: 4220 04354 TC PUSHUP # NO ADDRESS MEANS TAKE OFF TOP OF STACK
001738,000204: 4221 04353 TC PUSHUP2 # INACTIVE ADDRESS MEANS JUST PUSHUP
001739,000205: 4222 30121 XCH ADRLOC # SAVE ADDRESS WHILE WE INCREMENT ADRLOC
001740,000206: 4223 64516 AD ONE
001741,000207: 4224 30121 XCH ADRLOC # NOW BRING IT BACK
001742,000208: 4225 50076 TS POLISH
001743,000209: 4226 34500 CAF NEGSIGN
001744,000210: 4227 70020 MASK CYR
001745,000211: 4230 10000 CCS A # INDEXED OR NOT
001746,000212: 4231 50114 BUGMPAC XCADR MPAC
001747,000213: 4232 04257 TC NONINDEX
001748,000214:
|
|
Page 43
|
001750,000216:
001751,000217: # PROCEDURE FOR INDEXED ADDRESSES.
001752,000218:
001753,000219: 4233 30076 INDEX XCH POLISH
001754,000220: 4234 50021 TS SR # SR NOW CONTAINS SUB-ADDRESS
001755,000221: 4235 30020 XCH CYR # SAVE ORDER CODE
001756,000222: 4236 50022 TS CYL # TO PREPARE FOR RESTORING
001757,000223: 4237 04722 TC TAG
001758,000224: 4240 20075 INDEX TAG1
001759,000225: 4241 40046 CS X1 # INDEX REGISTERS ARE SUBTRACTIVE, ALA 70X
001760,000226: 4242 60021 AD SR
001761,000227: 4243 30076 XCH POLISH # TS WOULD SKIP ON OVERFLOW
001762,000228:
001763,000229: 4244 30022 XCH CYL # RESTORE OP CODE BITS IN CYR
001764,000230: 4245 50020 TS CYR
001765,000231:
001766,000232: 4246 10076 CCS POLISH # SEE IF BIT 15 SHOULD BE ZERO. IT SHOULD
001767,000233: 4247 04257 TC NONINDEX # IF THE ADDRESS IS LESS THAN ROUGHLY
001768,000234: 4250 04362 TC RELTOVAC +1 # -1000D.
001769,000235: 4251 04253 TC +2
001770,000236: 4252 04362 TC RELTOVAC +1 # QUICK ACTION ON THESE ZERO CASES.
001771,000237:
001772,000238: 4253 64517 AD RELTEST # (-976D).
001773,000239: 4254 10000 CCS A
001774,000240: 4255 30076 XCH POLISH # LESS THAN -1000. GO DIRECTLY TO
001775,000241: 4256 04272 TC SWADDR # SWITCHED-BANK ADDRESS ROUTINE.
001776,000242:
|
|
Page 44
|
001778,000244:
001779,000245: 4257 40076 NONINDEX CS POLISH # GET 14 BIT ADDRESS
001780,000246: 4260 64504 AD ERASTEST # SEE IF ERASABLE OR NOT
001781,000247: 4261 10000 CCS A
001782,000248: 4262 64517 AD RELTEST # YES - SEE IF IN TEMPORARY BLOCK
001783,000249: 4263 04300 TC TEST2
001784,000250: 4264 65473 AD STORTEST # NO - SEE IF STORE ADDRESS
001785,000251: 4265 10000 CCS A
001786,000252: 4266 04356 TC PUSHUP3 # YES - PUSHUP
001787,000253: 4267 04270 TC +1 # IN CASE THE STORED ADDRESS WAS 2000.
001788,000254: 4270 34500 CAF BIT15
001789,000255: 4271 60076 AD POLISH
001790,000256: 4272 50015 SWADDR TS BANKREG
001791,000257: 4273 50076 TS POLISH
001792,000258: 4274 74606 MASK LOW10
001793,000259: 4275 64373 AD 6K
001794,000260: 4276 50062 TS ADDRWD
001795,000261: 4277 04305 TC JUMP
001796,000262:
001797,000263: 4300 10000 TEST2 CCS A # DOES THIS REFER TO THE TEMPORARY BLOCK
001798,000264: 4301 04361 TC RELTOVAC # ADDRESS IS RELATIVE TO VAC AREA.
001799,000265: 4302 03777 LOW11 OCT 3777
001800,000266: 4303 30076 XCH POLISH # YES - FORM ADDRESS
001801,000267: 4304 50062 TS ADDRWD
001802,000268:
001803,000269: 4305 34473 JUMP CAF THREE # LOOK AT LOW-ORDER 2 BITS IN 5 BIT CODE
001804,000270: 4306 70020 MASK CYR
001805,000271: 4307 10000 CCS A # IF ZERO, LOAD NOW AND CALL IN BANK 0
001806,000272: 4310 04313 TC +3 # NON-ZERO - GO ON.
001807,000273: 4311 04747 TC DPSET # LOAD DP IF NECESSARY
001808,000274: 4312 50015 TS BANKREG # CALL IN BANK 0
001809,000275: 4313 34720 CAF LOW7 # BITS 6-13 ARE GUARANTEED TO BE ZERO
001810,000276: 4314 70020 MASK CYR
001811,000277: 4315 20000 INDEX A
001812,000278: 4316 04367 TC INDJUMP
001813,000279:
|
|
Page 45
|
001815,000281:
001816,000282: 4317 30123 PUSHDOWN XCH PUSHLOC # NO STORE ADDRESS GIVEN - PUSH DOWN
001817,000283: 4320 50062 TS ADDRWD # STORED IN THE NEXT ENTRY
001818,000284: 4321 20065 INDEX MODE
001819,000285: 4322 64475 AD NO.WDS # 2 FOR DP, 6 FOR VECTORS, 3 FOR TP
001820,000286: 4323 50123 TS PUSHLOC
001821,000287: 4324 20065 INDEX MODE
001822,000288: 4325 04431 TC INDJUMP +34D # DISPATCH TO CORRECT STORE INSTRUCTION
001823,000289:
001824,000290: 4326 30001 PUSHUP1 XCH Q # THE PUSH-UP ROUTINE IS CALLED UNDER THE
001825,000291: 4327 50112 TS COMPON # FOLLOWING CIRCUMSTANCES:
001826,000292: 4330 34720 CAF LOW7 # 1. NO ADDRESS WORD IS FOUND.
001827,000293: 4331 70020 MASK CYR # 2. A STORE ADDRESS IS FOUND.
001828,000294: 4332 64340 AD -VXSC # OR 3. AN INACTIVE ADDRESS IS FOUND.
001829,000295: 4333 10000 CCS A # IF THE REQUESTING OPERATION CODE IS VXSC
001830,000296: 4334 04345 TC PUSHUPOK # THE MODE MUST BE SWITCHED BEFORE PUSHING
001831,000297: 4335 77776 MINUS1 OCT -1 # UP, SINCE VXSC DEMANDS AN ARGUMENT OF
001832,000298: 4336 04345 TC PUSHUPOK # THE OPPOSITE MODE (SCALAR NEEDS VECTOR,
001833,000299:
001834,000300: 4337 10065 CCS MODE # ETC.)
001835,000301: 4340 77775 MINUS2 OCT -2 # UNUSED CCS BRANCHES.
001836,000302: 4341 77774 NEG3 OCT -3
001837,000303: 4342 45502 CS FOUR
001838,000304: 4343 64340 AD NEG2
001839,000305: 4344 04347 TC +3
001840,000306: 4345 20065 PUSHUPOK INDEX MODE # DO PUSH-UP OPERATION.
001841,000307: 4346 44475 CS NO.WDS # 2, 3, OR 6.
001842,000308: 4347 60123 AD PUSHLOC
001843,000309: 4350 50123 TS PUSHLOC
001844,000310: 4351 50062 TS ADDRWD # SET ADDRWD AND LEAVE ADDRESS IN A.
001845,000311: 4352 00112 TC COMPON
001846,000312:
001847,000313: 4353 4340 -VXSC EQUALS MINUS2
001848,000314:
001849,000315: 4353 04364 PUSHUP2 TC INCADR # SENT HERE ON INACTIVE ADDRESS
001850,000316:
001851,000317: 4354 04326 PUSHUP TC PUSHUP1 # NO ADDRESS GIVEN SENDS US HERE
001852,000318: 4355 04305 TC JUMP # AND JUMP
001853,000319:
001854,000320: 4356 10121 PUSHUP3 CCS ADRLOC # AN UNEXPECTED STORE ADDRESS SENDS US
001855,000321: 4357 50121 TS ADRLOC # HERE.
001856,000322: 4360 04354 TC PUSHUP
001857,000323:
001858,000324: 4361 30076 RELTOVAC XCH POLISH # ADDRESS WAS LESS THAN 42, SO ADD
001859,000325: 4362 60067 AD FIXLOC # ADDRESS OF VAC AREA.
001860,000326: 4363 04304 TC JUMP -1
001861,000327:
001862,000328: 4364 34516 INCADR CAF ONE
001863,000329: 4365 60121 AD ADRLOC
001864,000330: 4366 50121 TS ADRLOC
001865,000331: 4367 00001 TC Q
001866,000332:
|
|
Page 46
|
001868,000334:
001869,000335: 4370 05612 IJUMP TC ITCF # INTERPRETIVE TRANSFER CONTROL
001870,000336: 4371 05357 TC VXSC1 # VECTOR TIMES SCALAR
001871,000337: 4372 05211 TC VSU1 # VECTOR SUBTRACT
001872,000338: 4373 06000 TC BMN1 # BRANCH MINUS
001873,000339: 4374 04700 TC STZ1 # STORE ZERO
001874,000340: 4375 05623 TC BOVF # BRANCH ON OVERFLOW
001875,000341: 4376 04766 TC DAD2 # DOUBLE PRECISION ADD
001876,000342: 4377 06014 TC BHIZ1 # BRANCH IF MAJOR PART ZERO
001877,000343: 4400 04732 TC DSU2 # DP SUBTRACT
001878,000344: 4401 04735 TC DBSU # DP BACKWARDS SUBTRACT
001879,000345: 4402 05061 TC DMP2 # DP MULTIPLY
001880,000346: 4403 06402 TC SHIFTL # TP LEFT SHIFT
001881,000347: 4404 05144 TC DDV # DP DIVIDE
001882,000348: 4405 05141 TC BDDV # DP BACKWARDS DIVIDE
001883,000349: 4406 04776 TC TRAD # TRIPLE PRECISION ADD
001884,000350: 4407 06411 TC TSLC # TP SHIFT LEFT AND COUNT
001885,000351: 4410 05075 TC SHIFTR1 # TP SHIFT RIGHT
001886,000352: 4411 05061 TC DMP2 # DP MULTIPLY AND THEN ROUND
001887,000353: 4412 04773 TC TSU1 # TP SUBTRACT
001888,000354: 4413 06213 TC SIGN # AFFIX SIGN OF X TO MPAC
001889,000355: 4414 05316 TC MXV1 # MATRIX TIMES VECTOR
001890,000356: 4415 05306 TC VXM1 # VECTOR TIMES MATRIX
001891,000357: 4416 05221 TC VAD1 # VECTOR ADD
001892,000358: 4417 06010 TC BZE1 # BRANCH ON ZERO
001893,000359: 4420 05214 TC BVSU1 # BACKWARDS VECTOR SUBTRACT
001894,000360: 4421 05633 TC VSRT1 # VECTOR SHIFT RIGHT
001895,000361: 4422 05630 TC VSLT1 # VECTOR SHIFT LEFT
001896,000362: 4423 06004 TC BPL1 # BRANCH POSITIVE
001897,000363: 4424 05234 TC DOT1 # VECTOR DOT PRODUCT
001898,000364: 4425 05511 TC CROSS1 # VECTOR CROSS PRODUCT
001899,000365: 4426 05505 TC VPROJ1 # VECTOR PROJECTION
001900,000366:
001901,000367: 4427 04552 TC TTS1
001902,000368: 4430 04556 TC DTS1 # DP TRANSFER TO STORAGE
001903,000369: 4431 04622 TC VTS1 # VECTOR TS
001904,000370: 4432 04204 TC LOAD +1 # LOADING
001905,000371:
001906,000372: 4433 4373 6K EQUALS IJUMP +3 # BMN STARTS AT LOCATION 6000
001907,000373:
001908,000374: 4433 4367 INDJUMP EQUALS IJUMP -1
001909,000375:
|
|
Page 47
|
001911,000377:
001912,000378: 4433 06206 NONJUMP TC EXIT
001913,000379: 4434 06072 TC AXT # ADDRESS TO INDEX TRUE
001914,000380: 4435 06077 TC LXA # LOAD INDEX FROM THE ADDRESS
001915,000381: 4436 06104 TC LXC # LOAD INDEX FROM ADDRESS COMPLEMENTED
001916,000382: 4437 06110 TC SXA # STORE INDEX IN THE ADDRESS
001917,000383: 4440 06141 TC XCHX # INDEX REGISTER EXCHANGE
001918,000384: 4441 06134 TC INCR # INDEX REGISTER INCREMENT
001919,000385: 4442 06153 TC XAD # INDEX REGISTER ADD FROM ERASABLE
001920,000386: 4443 06147 TC XSU # INDEX REGISTER SUBTRACT FROM ERASABLE
001921,000387: 4444 06062 TC AST # ADDRESS TO STEP TRUE
001922,000388: 4445 06067 TC AXC # ADDRESS TO INDEX COMPLEMENTED
001923,000389: 4446 06115 TC TIX # TRANSFER ON INDEX
001924,000390: 4447 06352 TC NOLOAD # LEAVE MPAC (OR VAC) LOADED
001925,000391: 4450 06174 TC ITA1 # TRANSFER ADDRESS
001926,000392: 4451 06434 TC SWITCHEM # SWITCH AND TEST INSTRUCTIONS
001927,000393: 4452 06341 TC NEXT # LODON AND ITCQ
001928,000394:
001929,000395: 4453 07463 UNAJUMP TC TMOVE # FOR TP AS WELL
001930,000396: 4454 04024 TC VMOVE
001931,000397: 4455 07212 TC UNIT
001932,000398: 4456 06261 TC ABVAL1 # ABVAL
001933,000399: 4457 06226 TC VSQ # SQUARE OF VECTOR LENGTH
001934,000400: 4460 06316 TC SSP # ABSOLUTE VALUE OF SCALAR
001935,000401: 4461 06755 TC ARCSIN1
001936,000402: 4462 06757 TC ARCCOS1
001937,000403: 4463 06620 TC SIN1
001938,000404: 4464 06622 TC COS1
001939,000405: 4465 07453 TC SQRTS
001940,000406: 4466 06323 TC SQUARE
001941,000407: 4467 06325 TC COMP # COMPLEMENT
001942,000408: 4470 04024 TC DMOVE
001943,000409: 4471 06336 TC SMOVE
001944,000410: 4472 06160 TC VDEF # VECTOR DEFINE
001945,000411:
|
|
Page 48
|
001947,000413:
001948,000414: 4473 00003 THREE OCT 3
001949,000415: 4474 00002 OCT 2
001950,000416: 4475 00006 NO.WDS OCT 6 # 3, 2, 6 ORDER IMPORTANT FOR PUSH-DOWN.
001951,000417:
001952,000418: 4476 37777 POSMAX OCT 37777 # MUST BE 2 LOCATIONS BEFORE NEGMAX
001953,000419: 4477 00005 FIVE OCT 5
001954,000420: 4500 4477 LIMITS EQUALS POSMAX +1 # USED BY CDU COUNTER ARITHMETIC PROGRAMS.
001955,000421:
001956,000422: 4500 40000 BIT15 OCT 40000
001957,000423: 4501 20000 BIT14 OCT 20000
001958,000424: 4502 10000 BIT13 OCT 10000
001959,000425: 4503 04000 BIT12 OCT 04000
001960,000426: 4504 02000 BIT11 OCT 02000
001961,000427: 4505 01000 BIT10 OCT 01000
001962,000428: 4506 00400 BIT9 OCT 00400
001963,000429: 4507 00200 BIT8 OCT 00200
001964,000430: 4510 00100 BIT7 OCT 00100
001965,000431: 4511 00040 BIT6 OCT 00040
001966,000432: 4512 00020 BIT5 OCT 00020
001967,000433: 4513 00010 BIT4 OCT 00010
001968,000434: 4514 00004 BIT3 OCT 00004
001969,000435: 4515 00002 BIT2 OCT 00002
001970,000436: 4516 00001 BIT1 OCT 00001
001971,000437:
001972,000438: 4517 4502 QUARTER EQUALS BIT13
001973,000439: 4517 4513 EIGHT EQUALS BIT4
001974,000440: 4517 4516 ONE EQUALS BIT1
001975,000441: 4517 4504 ERASTEST EQUALS BIT11
001976,000442: 4517 BUGBITS EQUALS 5777
001977,000443: 4517 ATSBITS EQUALS 5777
001978,000444: 4517 4340 NEG2 EQUALS MINUS2
001979,000445: 4517 4475 SIX EQUALS NO.WDS
001980,000446: 4517 4335 NEG1 EQUALS MINUS1
001981,000447: 4517 4500 NEGSIGN EQUALS BIT15
001982,000448:
001983,000449: 4517 76057 RELTEST DEC -976 B-14
001984,000450: 4520 57777 77777 NEG1/2 2DEC -.5
001985,000451: 4522 20000 00000 POS1/2 2DEC .5
001986,000452: 4524 4522 HALF EQUALS POS1/2
001987,000453:
|
|
Page 49
|
001989,000455:
001990,000456: 4524 40101 TCS1 CS BUF +2 # USED BY DMP, ETC
001991,000457: 4525 50117 TS MPAC +2
001992,000458: 4526 40100 CS BUF +1
001993,000459: 4527 50116 TS MPAC +1
001994,000460: 4530 40077 CS BUF
001995,000461: 4531 50115 TS MPAC
001996,000462: 4532 00001 TC Q
001997,000463:
001998,000464: 4533 20062 TCA1 INDEX ADDRWD # TRIPLE PRECISION CLEAR AND ADD
001999,000465: 4534 40002 CS 2
002000,000466: 4535 40000 CS A
002001,000467: 4536 04540 TC +2
002002,000468:
002003,000469: 4537 35501 DCA1 XCH ZERO # DOUBLE PRECISION CLEAR AND ADD
002004,000470: 4540 50117 TS MPAC +2 # (CLEARS MPAC +2)
002005,000471: 4541 20062 INDEX ADDRWD
002006,000472: 4542 40001 CS 1
002007,000473: 4543 40000 CS A
002008,000474: 4544 50116 TS MPAC +1
002009,000475: 4545 20062 INDEX ADDRWD
002010,000476: 4546 40000 CS 0
002011,000477: 4547 40000 CS A
002012,000478: 4550 50115 TS MPAC
002013,000479: 4551 04211 TC LOADRET # PREPARE TO DECODE NEXT ADDRESS
002014,000480:
002015,000481: 4552 40117 STORE3 CS MPAC +2 # TRIPLE PRECISION TRANSFER TO STORAGE
002016,000482: 4553 40000 CS A
002017,000483: 4554 20062 INDEX ADDRWD
002018,000484: 4555 50002 TS 2
002019,000485: 4556 40116 DTS1 CS MPAC +1 # DOUBLE PRECISION TRANSFER TO STORAGE
002020,000486: 4557 40000 CS A
002021,000487: 4560 20062 INDEX ADDRWD
002022,000488: 4561 50001 TSQ TS 1
002023,000489: 4562 40115 CS MPAC
002024,000490: 4563 40000 MSIGN CS A
002025,000491: 4564 20062 INDEX ADDRWD
002026,000492: 4565 50000 TS 0
002027,000493: 4566 04005 NEQRET TC NEWEQUN # START NEW EQUATION
002028,000494:
002029,000495: 4567 4552 TTS1 EQUALS STORE3
002030,000496: # 35W
002031,000497:
|
|
Page 50
|
002033,000499:
002034,000500: 4567 30076 DOBR XCH POLISH # DOES BRANCHES
002035,000501: 4570 04602 TC DOBR2
002036,000502:
002037,000503: 4571 40061 EXIT2 CS BANKSET # COMPLETE EXIT EXECUTION BY CALLING IN
002038,000504: 4572 50015 TS BANKREG # BANK OF OBJECT INTERPRETIVE PROGRAM.
002039,000505: 4573 00121 TC ADRLOC
002040,000506:
002041,000507: 4574 40061 SWF/F CS BANKSET # BRANCHING TEST INSTRUCTION
002042,000508: 4575 50015 TS BANKREG # RETURNS HERE TO PICK UP BRANCHING ADDRES
002043,000509: 4576 20121 INDEX ADRLOC
002044,000510: 4577 30000 CAF 0 # BRANCH IS ALWAYS TO FIXED.
002045,000511: 4600 64335 AD NEG1 # UNDO YULISH INCREMENT.
002046,000512: 4601 64500 AD BIT15
002047,000513:
002048,000514: 4602 50015 DOBR2 TS BANKREG
002049,000515: 4603 74606 MASK LOW10
002050,000516: 4604 64610 AD 6K-1
002051,000517: 4605 04001 TC INTPRET +1
002052,000518:
002053,000519: 4606 01777 LOW10 OCT 1777
002054,000520: 4607 00777 LOW9 OCT 777
002055,000521: 4610 05777 6K-1 OCT 5777
002056,000522:
002057,000523: 4611 30001 VCA1 XCH Q # VECTOR CLEAR-AND-ADD ROUTINE
002058,000524: 4612 50104 TS TEM5
002059,000525: 4613 34500 CAF NEGSIGN
002060,000526: 4614 04632 TC VECMOVE
002061,000527: 4615 00104 TC TEM5
002062,000528:
002063,000529: 4616 30001 VCS1 XCH Q # DP VECTOR CLEAR-AND-SUBTRACT
002064,000530: 4617 50104 TS TEM5
002065,000531: 4620 34713 CAF NOOP
002066,000532: 4621 04614 TC VCA1 +3
002067,000533:
002068,000534: 4622 30062 VTS1 XCH ADDRWD # TRANSFER TO STORAGE
002069,000535: 4623 30070 XCH VACLOC # EXCHANGE VACLOC AND ADDRWD AND DO AN
002070,000536: 4624 50062 TS ADDRWD # EFFECTIVE *CLEAR-AND-ADD*.
002071,000537: 4625 34500 CAF NEGSIGN
002072,000538: 4626 04632 TC VECMOVE
002073,000539: 4627 30062 XCH ADDRWD # RESTORE VACLOC
002074,000540: 4630 50070 TS VACLOC
002075,000541: 4631 04005 TC NEWEQUN # THIS ONLY HAPPENS AT END OF EQUATION
002076,000542:
|
|
Page 51
|
002078,000544:
002079,000545: 4632 50102 VECMOVE TS TEM2 # MOVES A DP VECTOR IN THE FASTEST WAY
002080,000546: 4633 20062 INDEX ADDRWD # AVAILABLE. USED BY VCA, VCS, AND VTS.
002081,000547: 4634 40005 CS 5
002082,000548: 4635 20102 INDEX TEM2
002083,000549: 4636 00000 0 0 # COM FOR VCA, VTS. NOOP FOR VCS.
002084,000550: 4637 20070 INDEX VACLOC
002085,000551: 4640 50005 TS 5
002086,000552:
002087,000553: 4641 20062 INDEX ADDRWD
002088,000554: 4642 40004 CS 4
002089,000555: 4643 20102 INDEX TEM2
002090,000556: 4644 00000 0 0
002091,000557: 4645 20070 INDEX VACLOC
002092,000558: 4646 50004 TS 4
002093,000559:
002094,000560: 4647 20062 INDEX ADDRWD
002095,000561: 4650 40003 OCT40003 CS 3 # CONSTANT USED BY UNARY LOAD ROUTINE.
002096,000562: 4651 20102 INDEX TEM2
002097,000563: 4652 00000 0 0
002098,000564: 4653 20070 INDEX VACLOC
002099,000565: 4654 50003 TS 3
002100,000566:
002101,000567: 4655 20062 INDEX ADDRWD
002102,000568: 4656 40002 OCT40002 CS 2
002103,000569: 4657 20102 INDEX TEM2
002104,000570: 4660 00000 0 0
002105,000571: 4661 20070 INDEX VACLOC
002106,000572: 4662 50002 TS 2
002107,000573:
002108,000574: 4663 20062 INDEX ADDRWD
002109,000575: 4664 40001 CSQ CS 1 # CONSTANT USED BY WAITLIST.
002110,000576: 4665 20102 INDEX TEM2
002111,000577: 4666 00000 0 0
002112,000578: 4667 20070 INDEX VACLOC
002113,000579: 4670 50001 TS 1
002114,000580:
002115,000581: 4671 20062 INDEX ADDRWD
002116,000582: 4672 40000 CS 0
002117,000583: 4673 20102 INDEX TEM2
002118,000584: 4674 00000 0 0
002119,000585: 4675 20070 INDEX VACLOC
002120,000586: 4676 50000 TS 0
002121,000587:
002122,000588: 4677 00001 TC Q # DONE
002123,000589:
|
|
Page 52
|
002125,000591:
002126,000592: 4700 35501 STZ1 CAF ZERO
002127,000593: 4701 20062 INDEX ADDRWD
002128,000594: 4702 50000 TS 0
002129,000595:
002130,000596: 4703 40061 RE-ENTER CS BANKSET # ROUTINE SIMILAR TO 'DANZIG' EXCEPT THAT
002131,000597: 4704 50015 TS BANKREG # NO PUSHING DOWN IS DONE AT END OF EQUN.
002132,000598:
002133,000599: 4705 10063 CCS ORDER # IT IS USED BY MISCELLANEOUS INSTRUCTIONS
002134,000600: 4706 04200 TC LOWWD # AND BRANCHES WHICH FAILED
002135,000601:
002136,000602: 4707 20120 INDEX LOC # IF WE HAD RETURNED DIRECTLY TO THE MAIN
002137,000603: 4710 40001 CS 1
002138,000604: 4711 10000 CCS A
002139,000605: 4712 04065 TC IPROC # IT IS USED BY BRANCH INSTRUCTIONS WHICH
002140,000606: 4713 30000 NOOP NOOP # IN CASE THE FIRST ADDRESS WAS INACTIVE
002141,000607:
002142,000608: 4714 20121 INDEX ADRLOC # SEE IF A LEFT-OVER ADDRESS
002143,000609: 4715 40001 CS 1
002144,000610: 4716 10000 CCS A
002145,000611: 4717 04005 TC NEWEQUN # NO - START NEW EQUATION
002146,000612: 4720 00177 LOW7 OCT 177
002147,000613: 4721 04044 TC STORADR # YES - MUST BE STORE ADDRESS
002148,000614:
002149,000615: 4722 4701 STOR1 EQUALS STZ1 +1
002150,000616:
|
|
Page 53
|
002152,000618:
002153,000619: 4722 10020 TAG CCS CYR # SETS TAG1 ACCORDING TO SIGN BIT IN CYR
002154,000620: 4723 35501 CAF ZERO
002155,000621: 4724 10000 CCS A # SKIP NEXT INS WITHOUT CHANGING Q
002156,000622: 4725 34516 CAF ONE
002157,000623: 4726 60067 AD FIXLOC # INDEXES AND STEPS IN VAC AREA
002158,000624: 4727 50075 TS TAG1
002159,000625: 4730 00001 TC Q
002160,000626:
002161,000627: 4731 00077 TCBUF ADRES BUF
002162,000628:
002163,000629: 4732 04747 DSU2 TC DPSET # DP SUBTRACT
002164,000630: 4733 05055 TC ADDTOSUB
002165,000631: 4734 04767 TC DAD2 +1
002166,000632:
002167,000633: 4735 04747 DBSU TC DPSET
002168,000634: 4736 04742 TC DACCOM # COMPLEMENT DP ACCUM
002169,000635: 4737 04767 TC DAD2 +1 # AND ADD
002170,000636:
002171,000637: 4740 40117 MPACCOM CS MPAC +2 # COMPLEMENT MPAC
002172,000638: 4741 50117 TS MPAC +2
002173,000639: 4742 40116 DACCOM CS MPAC +1
002174,000640: 4743 50116 TS MPAC +1
002175,000641: 4744 40115 CS MPAC
002176,000642: 4745 50115 TS MPAC
002177,000643: 4746 00001 TC Q
002178,000644:
002179,000645: 4747 44516 DPSET CS ONE # SET UP DP MODE AND LOAD IF NECESSARY
002180,000646: 4750 50065 TS MODE
002181,000647: 4751 10066 CCS NEWEQIND
002182,000648: 4752 04203 TC LOAD
002183,000649: 4753 00001 TC Q
002184,000650:
002185,000651: 4754 45501 VECSET CS ZERO # SIMILARLY FOR VECTORS
002186,000652: 4755 50065 TS MODE
002187,000653: 4756 10066 CCS NEWEQIND
002188,000654: 4757 04203 TC LOAD
002189,000655: 4760 00001 TC Q
002190,000656:
002191,000657: 4761 45503 TPSET CS TWO # AND FOR TP
002192,000658: 4762 50065 TS MODE
002193,000659: 4763 10066 CCS NEWEQIND
002194,000660: 4764 04203 TC LOAD
002195,000661: 4765 00001 TC Q
002196,000662:
|
|
Page 54
|
002198,000664:
002199,000665: 4766 04747 DAD2 TC DPSET # DOUBLE PRECISION ADD INSTRUCTION
002200,000666: 4767 34772 CAF DAD2 +4
002201,000667: 4770 05020 TC DAD1 # PROGRAM USES CLOSED SUBROUTINE DAD1,
002202,000668: 4771 04024 TC INT1 # WITH ADDRESSES SET UP IN ADDRWD, TEM2
002203,000669:
002204,000670: 4772 00115 +4 ADRES MPAC
002205,000671:
002206,000672: 4773 04761 TSU1 TC TPSET # TRIPLE PRECISION SUBTRACT INSTRUCTION
002207,000673: 4774 05055 TC ADDTOSUB
002208,000674: 4775 04777 TC TRAD +1
002209,000675:
002210,000676: 4776 04761 TRAD TC TPSET # TRIPLE PRECISION ADD INSTRUCTION
002211,000677: 4777 05001 TC +2
002212,000678: 5000 04024 TC INT1
002213,000679:
002214,000680: 5001 30001 +3 XCH Q
002215,000681: 5002 50104 TS TEM5
002216,000682: 5003 34772 CAF DAD2 +4
002217,000683: 5004 50102 TS TEM2
002218,000684: 5005 20000 INDEX A
002219,000685: 5006 30002 XCH 2
002220,000686: 5007 20062 INDEX ADDRWD
002221,000687: 5010 60002 AD 2
002222,000688: 5011 20102 INDEX TEM2
002223,000689: 5012 50002 TS 2 # AGAIN SKIPPING, AS IN DAD1
002224,000690: 5013 35501 CAF ZERO
002225,000691: 5014 20102 INDEX TEM2
002226,000692: 5015 60001 AD 1
002227,000693: 5016 05023 TC DAD1 +3 # FINISH IN DAD1
002228,000694:
002229,000695: 5017 00104 TC TEM5 # AND RETURN
002230,000696:
|
|
Page 55
|
002232,000698:
002233,000699: 5020 50102 DAD1 TS TEM2 # DOUBLE PRECISION ADD ROUTINE
002234,000700: 5021 20102 INDEX TEM2 # POLYNOMIAL EVALUATOR ENTERS HERE.
002235,000701: 5022 30001 XCH 1
002236,000702: 5023 20062 +3 INDEX ADDRWD
002237,000703: 5024 60001 AD 1
002238,000704: 5025 20102 INDEX TEM2
002239,000705: 5026 50001 TS 1 # SKIPS IF OVERFLOW WITH COUNT IN A
002240,000706: 5027 35501 CAF ZERO # NO OVERFLOW IF HERE
002241,000707: 5030 20102 INDEX TEM2 # ARRIVE HERE WITH 1 OR -1 IN A IF OVERFLO
002242,000708: 5031 60000 AD 0
002243,000709: 5032 20062 INDEX ADDRWD
002244,000710: 5033 60000 AD 0
002245,000711: 5034 20102 INDEX TEM2
002246,000712: 5035 50000 TS 0 # AND AGAIN SKIP IF OVERFLOW
002247,000713: 5036 00001 TC Q # EXIT IF NONE
002248,000714: 5037 50122 TS OVFIND # SAVE ANY OVERFLOW FOR BOV TESTING
002249,000715: 5040 00001 TC Q
002250,000716:
002251,000717: 5041 50105 8TO2 TS TEM8 # MOVES THE DP WORD LOCATED AT THE ADDRESS
002252,000718: 5042 20000 INDEX A # IN A TO THE ADDRESS IN TEM2
002253,000719: 5043 40000 CS 0
002254,000720: 5044 40000 CS A
002255,000721: 5045 20102 INDEX TEM2
002256,000722: 5046 50000 TS 0
002257,000723: 5047 20105 INDEX TEM8
002258,000724: 5050 40001 CS 1
002259,000725: 5051 40000 CS A
002260,000726: 5052 20102 INDEX TEM2
002261,000727: 5053 50001 TS 1
002262,000728: 5054 00001 TC Q
002263,000729:
002264,000730: 5055 30062 ADDTOSUB XCH ADDRWD # BY PUTTING THE APPROPRIATE BITS IN
002265,000731: 5056 65777 AD ATSBITS # ADDRWD, DAD1 DOES A DOUBLE SUBTRACT IN-
002266,000732: 5057 50062 TS ADDRWD # STEAD OF A DOUBLE ADD.
002267,000733: 5060 00001 TC Q
002268,000734:
|
|
Page 56
|
002270,000736:
002271,000737: 5061 04747 DMP2 TC DPSET # DP MULTIPLY (AND ROUND) ROUTINE
002272,000738: 5062 30062 XCH ADDRWD
002273,000739: 5063 65777 AD BUGBITS # MAKE EXENDED CODE ADDRESS.
002274,000740: 5064 50103 DSQ2 TS TEM4 # ENTRY FROM DSQ ROUTINE.
002275,000741: 5065 34772 XCH DAD2 +4 # C(DAD2 +4) = TC MPAC
002276,000742: 5066 05102 TC DMP1 # EXECUTE MULTIPLY AT DMP1, THEN EXIT
002277,000743: 5067 04524 TC TCS1 # VIA TCS1 TO MOVE (BUF TO BUF+2)
002278,000744: # INTO (MPAC TO MPAC+2).
002279,000745:
002280,000746: 5070 40020 OCT40020 CS CYR
002281,000747: 5071 10020 CCS CYR
002282,000748: 5072 34772 MPACRND CAF DAD2 +4 # SET UP ROUND SUBROUTINE TO ROUND MPAC.
002283,000749: 5073 05443 TC PREROUND +1
002284,000750: 5074 04024 TC DANZIG
002285,000751:
002286,000752: 5075 04747 SHIFTR1 TC DPSET # TSRT INSTRUCTION.
002287,000753: 5076 50015 TS BANKREG # SUBROUTINE IN BANK 0
002288,000754: 5077 06042 TC TRUE2 # GET INTEGER ADDRESS BACK
002289,000755: 5100 06232 TC SHIFTR -1 # WITH DECREMENTED COUNT IN A.
002290,000756: 5101 04024 TC DANZIG
002291,000757:
|
|
Page 57
|
002293,000759:
002294,000760: 5102 50102 DMP1 TS TEM2 # GENERAL PURPOSE DP MULTIPLICATION
002295,000761: 5103 20102 INDEX TEM2 # POLYNOMIAL ENTERS HERE.
002296,000762: 5104 40001 CS 1
002297,000763: 5105 50034 TS OVCTR # -N1 TO OVCTR
002298,000764: 5106 20103 INDEX TEM4
002299,000765: 5107 40001 MP 1 # -M1N1
002300,000766: 5110 30034 XCH OVCTR # -U(M1N1) TO OVCTR, -N1 TO A
002301,000767: 5111 20103 INDEX TEM4
002302,000768: 5112 40000 MP 0 # -M0N1
002303,000769: 5113 30034 XCH OVCTR # -U(M0N1) TO OVCTR, -U(M1N1) TO A
002304,000770: 5114 60003 AD LP # MAYBE INCREMENT -U(M0N1) IN OVCTR
002305,000771: 5115 30100 XCH BUF +1 # -L(M0N1)-U(M1N1) TO BUF+1
002306,000772: 5116 20102 INDEX TEM2
002307,000773: 5117 40000 CS 0
002308,000774: 5120 50101 TS BUF +2 # -N0 TO BUF+2
002309,000775: 5121 20103 INDEX TEM4
002310,000776: 5122 40001 MP 1 # -M1N0
002311,000777: 5123 30034 XCH OVCTR # -U(M1N0) TO OVCTR, -U(M0N1) TO A
002312,000778: 5124 30100 XCH BUF +1 # -U(M0N1) TO BUF+1, -L(M0N1)-U(M1N1) TO A
002313,000779: 5125 60003 AD LP # MAYBE INCREMENT -U(M1N0) IN OVCTR
002314,000780: 5126 30101 XCH BUF +2 # -L(M1N0)-L(M0N1)-U(M1N1) TO BUF+2, -N0 T
002315,000781: 5127 20103 INDEX TEM4 # O A
002316,000782: 5130 40000 MP 0 # -M0N0
002317,000783: 5131 30034 XCH OVCTR # -U(M0N0) TO OVCTR, -U(M1N0) TO A
002318,000784: 5132 60003 AD LP
002319,000785: 5133 30100 XCH BUF +1
002320,000786: 5134 60100 AD BUF +1
002321,000787: 5135 30100 XCH BUF +1
002322,000788: 5136 30034 XCH OVCTR
002323,000789: 5137 50077 TS BUF
002324,000790: 5140 00001 TC Q
002325,000791:
002326,000792: # TIMING: 86 MC +-2 OR 1.032 MS +-0.024 30 WORDS
002327,000793:
|
|
Page 58
|
002329,000795:
002330,000796: 5141 04747 BDDV TC DPSET # BACKWARDS DP DIVIDE
002331,000797: 5142 34516 CAF ONE # SET SWITCH
002332,000798: 5143 05145 TC +2 # AND GO ON AS USUAL
002333,000799:
002334,000800: 5144 04747 DDV TC DPSET # REGULAR DP DIVIDE
002335,000801: 5145 50110 TS DVSW # DPSET RETURNS WITH 0 IN A
002336,000802: 5146 35553 CAF LDANZIG # RETURN TO DANZIG
002337,000803: 5147 50076 TS TEMQ3
002338,000804: 5150 34731 CAF TCBUF
002339,000805: 5151 50102 TS TEM2
002340,000806: 5152 30062 XCH ADDRWD
002341,000807: 5153 05041 TC 8TO2 # X,X+1 INTO BUF, BUF+1
002342,000808:
002343,000809: 5154 35501 CAF ZERO
002344,000810: 5155 50015 TS BANKREG # CALL IN BANK 0
002345,000811: 5156 06776 TC DDV0 # TO BANK 0 PORTION
002346,000812:
002347,000813: 5157 30001 DMP XCH Q # DP MULTIPLY ROUTINE WHICH CAN BE CALLED
002348,000814: 5160 50104 TS TEM5 # BY TC DMP, FOLLOWED BY A WORD CONTAINING
002349,000815: 5161 20000 INDEX A # THE ADDRESS OF THE MULTIPLIER WITH
002350,000816: 5162 30000 CAF 0 # BITS IN THE ORDER CODE TO CALL IN MP
002351,000817: 5163 50103 TS TEM4 # IN THE EXTENDED CODE (UNKNOWN AS YET)
002352,000818: 5164 34772 CAF DAD2 +4
002353,000819: 5165 05102 TC DMP1
002354,000820: 5166 04524 TC TCS1
002355,000821: 5167 20104 INDEX TEM5 # TIME IS 120 MC+-2, OR ABOUT 1.44 MS
002356,000822: 5170 00001 TC 1 # RETURN TO INSTRUCTION AFTER ADDRESS WORD
002357,000823:
002358,000824: 5171 30001 DAD XCH Q # DP ADD ROUTINE WORKING JUST AS MP ABOVE
002359,000825: 5172 50104 TS TEM5 # HERE, HOWEVER, ONLY *ADRES X* IS NEEDED
002360,000826: 5173 20000 INDEX A # SINCE AD IS PART OF THE REGULAR CODE
002361,000827: 5174 30000 CAF 0
002362,000828: 5175 50062 TS ADDRWD
002363,000829: 5176 34772 CAF DAD2 +4
002364,000830: 5177 05020 TC DAD1
002365,000831: 5200 20104 INDEX TEM5
002366,000832: 5201 00001 TC 1 # TIME IS 48+-2 MC OR 576 MICRO-SEC.
002367,000833:
|
|
Page 59
|
002369,000835:
002370,000836: 5202 30001 VACCOM XCH Q # COMPLEMENT THE APPROPRIATE VAC
002371,000837: 5203 50104 TS TEM5
002372,000838: 5204 40070 CS VACLOC
002373,000839: 5205 40000 COM
002374,000840: 5206 30062 XCH ADDRWD
002375,000841: 5207 50103 TS TEM4
002376,000842: 5210 04620 TC VCS1 +2
002377,000843:
002378,000844: 5211 04754 VSU1 TC VECSET # DP VECTOR SUBTRACT
002379,000845: 5212 05055 TC ADDTOSUB
002380,000846: 5213 05222 TC VAD1 +1 # USES VAD ROUTINE WITH SUBS
002381,000847:
002382,000848: 5214 04754 BVSU1 TC VECSET # DP VECTOR BACKWARDS SUBTRACT
002383,000849: 5215 05202 TC VACCOM # JUST COMPLEMENT VAC
002384,000850: 5216 30103 XCH TEM4
002385,000851: 5217 50062 TS ADDRWD
002386,000852: 5220 05222 TC VAD1 +1 # AND ADD
002387,000853:
002388,000854: 5221 04754 VAD1 TC VECSET
002389,000855: 5222 30070 XCH VACLOC # DP VECTOR ADD
002390,000856: 5223 50070 TS VACLOC
002391,000857: 5224 05020 TC DAD1
002392,000858: 5225 05242 TC AD2
002393,000859: 5226 05412 TC INCRT2
002394,000860: 5227 05020 TC DAD1
002395,000861: 5230 05242 TC AD2
002396,000862: 5231 05412 TC INCRT2
002397,000863: 5232 05020 TC DAD1
002398,000864: 5233 04024 TC INT1
002399,000865:
|
|
Page 60
|
002401,000867:
002402,000868: 5234 04754 DOT1 TC VECSET # DP DOT PRODUCT ROUTINE
002403,000869: 5235 05246 TC DOT2
002404,000870: 5236 04740 TC MPACCOM
002405,000871: 5237 44516 DPEXIT CS ONE # CHANGE MODE TO DOUBLE-PRECISION
002406,000872: 5240 50065 TS MODE
002407,000873: 5241 04024 TC DANZIG
002408,000874:
002409,000875: 5242 30062 AD2 XCH ADDRWD
002410,000876: 5243 65503 AD TWO
002411,000877: 5244 50062 TS ADDRWD
002412,000878: 5245 00001 TC Q
002413,000879:
002414,000880: 5246 35503 DOT2 XCH TWO # SUBROUTINE DOT2 COMPUTES THE TRIPLE-
002415,000881: 5247 50064 TS TEM11
002416,000882: 5250 34731 XCH TCBUF # SIGN, IN MPAC TO MPAC+2.
002417,000883: 5251 30062 XCH ADDRWD
002418,000884: 5252 65777 AD BUGBITS
002419,000885: 5253 50103 TS TEM4
002420,000886: 5254 30001 XCH Q
002421,000887: 5255 50105 TS TEM8
002422,000888: 5256 30070 XCH VACLOC
002423,000889: 5257 50070 TS VACLOC
002424,000890: 5260 05102 TC DMP1
002425,000891: 5261 30077 XCH BUF
002426,000892: 5262 50115 TS MPAC
002427,000893: 5263 30100 XCH BUF +1
002428,000894: 5264 50116 TS MPAC +1
002429,000895: 5265 30101 XCH BUF +2
002430,000896: 5266 50117 TS MPAC +2
002431,000897: 5267 05302 TC INCRT4
002432,000898: 5270 05412 TC INCRT2
002433,000899: 5271 05102 TC DMP1
002434,000900: 5272 05001 TC TRAD +3
002435,000901: 5273 05302 TC INCRT4
002436,000902: 5274 30070 XCH VACLOC
002437,000903: 5275 50070 TS VACLOC
002438,000904: 5276 65502 AD FOUR
002439,000905: 5277 05102 TC DMP1
002440,000906: 5300 05001 TC TRAD +3
002441,000907: 5301 00105 TC TEM8
002442,000908:
|
|
Page 61
|
002444,000910:
002445,000911: 5302 30103 INCRT4 XCH TEM4
002446,000912: 5303 60064 AD TEM11
002447,000913: 5304 50103 TS TEM4
002448,000914: 5305 00001 TC Q
002449,000915:
002450,000916: 5306 04754 VXM1 TC VECSET # DP VECTOR TIMES MATRIX
002451,000917: 5307 40062 CS ADDRWD
002452,000918: 5310 50107 TS TEM10
002453,000919: 5311 35503 XCH TWO
002454,000920: 5312 50106 TS TEM9
002455,000921: 5313 34475 XCH SIX
002456,000922: 5314 05247 TC DOT2 +1
002457,000923: 5315 05324 TC MXV2 # REST OF OPERATION USES MXV ROUTINE
002458,000924:
002459,000925: 5316 04754 MXV1 TC VECSET # MATRIX TIMES DP VECTOR
002460,000926: 5317 40062 CS ADDRWD
002461,000927: 5320 50107 TS TEM10
002462,000928: 5321 34475 XCH SIX # PROGRAM USES DOT PRODUCT ROUTINES TO
002463,000929: 5322 50106 TS TEM9
002464,000930: 5323 05246 TC DOT2
002465,000931:
002466,000932: 5324 35475 MXV2 CAF K2 # USES VBUF
002467,000933: 5325 05347 TC STORDAC
002468,000934: 5326 40107 CS TEM10
002469,000935: 5327 60106 AD TEM9
002470,000936: 5330 50107 TS TEM10
002471,000937: 5331 50062 TS ADDRWD
002472,000938: 5332 05250 TC DOT2 +2
002473,000939:
002474,000940: 5333 35476 CAF K2 +1
002475,000941: 5334 05347 TC STORDAC
002476,000942: 5335 30107 XCH TEM10
002477,000943: 5336 60106 AD TEM9
002478,000944: 5337 50062 TS ADDRWD
002479,000945: 5340 05250 TC DOT2 +2
|
|
Page 62
|
002481,000947: 5341 35475 CAF K2
002482,000948: 5342 50062 TS ADDRWD
002483,000949: 5343 65502 AD FOUR
002484,000950: 5344 05347 TC STORDAC
002485,000951: 5345 04611 TC VCA1
002486,000952: 5346 04024 TC DANZIG
002487,000953:
002488,000954: 5347 50103 STORDAC TS TEM4 # SUBROUTINE TO STORE MPAC, MPAC+1 IN
002489,000955: 5350 40115 CS MPAC # ADDRESSES INDICATED BY C(A) AT ENTRY.
002490,000956: 5351 20103 INDEX TEM4
002491,000957: 5352 50000 TS 0
002492,000958: 5353 40116 CS MPAC +1
002493,000959: 5354 20103 INDEX TEM4
002494,000960: 5355 50001 TS 1
002495,000961: 5356 00001 TC Q
002496,000962:
002497,000963: 5357 10066 VXSC1 CCS NEWEQIND # DP VECTOR TIMES SCALAR
002498,000964: 5360 04754 TC VECSET # LOAD INSTRUCTION
002499,000965: 5361 10065 CCS MODE # IF NOT, WHICH MODE ARE WE IN
002500,000966: 5362 00007 SEVEN OCT 7
002501,000967: 5363 77762 MINUS13 DEC -13 B-14
002502,000968:
002503,000969: 5364 05370 TC VECCHECK
002504,000970:
002505,000971: 5365 30062 XCH ADDRWD
002506,000972: 5366 65777 AD BUGBITS # TO CALL IN MP
002507,000973: 5367 05372 TC VXSC2
002508,000974:
002509,000975: 5370 04611 VECCHECK TC VCA1 # USE ADDRWD TO LOAD VECTOR
002510,000976: 5371 34231 CAF BUGMPAC
002511,000977:
|
|
Page 63
|
002513,000979:
002514,000980: 5372 50103 VXSC2 TS TEM4
002515,000981: 5373 40070 CS VACLOC
002516,000982: 5374 40000 COM
002517,000983: 5375 05102 TC DMP1
002518,000984: 5376 05442 TC PREROUND
002519,000985: 5377 05466 TC STB
002520,000986: 5400 05412 TC INCRT2
002521,000987: 5401 05102 TC DMP1
002522,000988: 5402 05444 TC ROUND
002523,000989: 5403 05466 TC STB
002524,000990: 5404 05412 TC INCRT2
002525,000991: 5405 05102 TC DMP1
002526,000992: 5406 05444 TC ROUND
002527,000993: 5407 05466 TC STB
002528,000994: 5410 45501 ZEROEXIT CS ZERO # CHANGE MODE TO VECTOR
002529,000995: 5411 05240 TC DPEXIT +1
002530,000996:
002531,000997: 5412 4024 INT1 EQUALS DANZIG
002532,000998:
002533,000999: 5412 30102 INCRT2 XCH TEM2
002534,001000: 5413 65503 AD TWO
002535,001001: 5414 50102 TS TEM2
002536,001002: 5415 00001 TC Q
002537,001003:
|
|
Page 64
|
002539,001005:
002540,001006: 5416 30117 SHORTMP XCH MPAC +2 # MULTIPLY THE CONTENTS OF MPAC,MPAC+1,
002541,001007: 5417 25777 EXTEND # MPAC+2 BY THE SINGLE PRECISION NUMBER
002542,001008: 5420 40117 MP MPAC +2 # ARRIVING IN A.
002543,001009: 5421 30117 XCH MPAC +2
002544,001010:
002545,001011: 5422 30116 SHORTMP2 XCH MPAC +1 # FASTER BUT SLOPPIER VERSION FOR DP
002546,001012: 5423 25777 EXTEND
002547,001013: 5424 40116 MP MPAC +1
002548,001014: 5425 50034 TS OVCTR
002549,001015: 5426 30003 XCH LP
002550,001016: 5427 60117 AD MPAC +2 # THE SHORTMP2 RESULT WILL BE OFF IN THE
002551,001017: 5430 30117 XCH MPAC +2 # LAST BIT IF THIS AD OVERFLOWS.
002552,001018: 5431 30115 XCH MPAC
002553,001019: 5432 25777 EXTEND
002554,001020: 5433 40116 MP MPAC +1
002555,001021: 5434 30034 XCH OVCTR
002556,001022: 5435 60003 AD LP
002557,001023: 5436 30116 XCH MPAC +1
002558,001024: 5437 30034 XCH OVCTR # ARGUMENT IN OVCTR UPON EXIT
002559,001025: 5440 50115 TS MPAC
002560,001026: 5441 00001 TC Q
002561,001027:
002562,001028: 5442 34731 PREROUND CAF TCBUF
002563,001029: 5443 50105 TS TEM8
002564,001030:
002565,001031: 5444 35501 ROUND CAF ZERO # ROUND THE TRIPLE-PRECISION NUMBER WHOSE
002566,001032: 5445 20105 INDEX TEM8 # ADDRESS IS IN TEM8 TO DOUBLE-PRECISION,
002567,001033: 5446 30002 XCH 2 # SETING THE LOWEST ORDER OF THE THREE
002568,001034: 5447 60000 DOUBLE # WORDS TO ZERO IN THE PROCESS
002569,001035: 5450 50034 TS OVCTR
002570,001036: 5451 00001 TC Q # DONE IF DOESNT SKIP
002571,001037:
002572,001038: 5452 20105 INDEX TEM8
002573,001039: 5453 60001 AD 1
002574,001040: 5454 20105 INDEX TEM8
002575,001041: 5455 50001 TS 1
002576,001042: 5456 00001 TC Q
002577,001043:
002578,001044: 5457 20105 INDEX TEM8
002579,001045: 5460 60000 AD 0
002580,001046: 5461 20105 INDEX TEM8
002581,001047: 5462 50000 TS 0 # ANY CARRIES BEYOND THIS POINT ARE
002582,001048: 5463 00001 TC Q # OVERFLOW
002583,001049:
002584,001050: 5464 50122 TS OVFIND
002585,001051: 5465 00001 TC Q
002586,001052:
|
|
Page 65
|
002588,001054:
002589,001055: 5466 40077 STB CS BUF
002590,001056: 5467 20102 INDEX TEM2
002591,001057: 5470 50000 TS 0
002592,001058: 5471 40100 CS BUF +1
002593,001059: 5472 20102 INDEX TEM2
002594,001060: 5473 50001 TS 1
002595,001061: 5474 00001 TC Q
002596,001062:
002597,001063: 5475 00071 K2 0 VBUF
002598,001064: 5476 00073 0 VBUF +2
002599,001065: 5477 00075 0 VBUF +4
002600,001066:
002601,001067: 5500 5473 STORTEST EQUALS K2 -2
002602,001068:
002603,001069: 5500 00002 SEQ OCT 2
002604,001070: 5501 00000 ZERO OCT 0
002605,001071: 5502 00004 FOUR OCT 4
002606,001072: 5503 00002 TWO OCT 2
002607,001073: 5504 77777 NEG0 OCT -0
002608,001074:
002609,001075: 5505 04754 VPROJ1 TC VECSET # VECTOR PROJECT
002610,001076: 5506 05246 TC DOT2 # LEAVES (VAC,X)VAC IN VAC
002611,001077: 5507 04742 TC DACCOM
002612,001078: 5510 05371 TC VXSC2 -1 # FINISH IN VXSC (USING MPAC)
002613,001079:
002614,001080: 5511 04754 CROSS1 TC VECSET # DP VECTOR CROSS PRODUCT (BOTH WAYS)
002615,001081: 5512 34731 XCH TCBUF
002616,001082: 5513 30062 XCH ADDRWD
002617,001083: 5514 65777 AD BUGBITS # AGAIN FOR MP
002618,001084: 5515 50104 TS BASE
002619,001085: 5516 65503 AD TWO # WHERE THE VECTOR X IS THAT ADDRESSED
002620,001086: 5517 50103 TS TEM4 # BY THE ORDER, AND V IS C(VAC).
002621,001087: 5520 35503 XCH TWO
002622,001088:
|
|
Page 66
|
002624,001090:
002625,001091: 5521 50107 LUP TS IND
002626,001092: 5522 20107 INDEX IND
002627,001093: 5523 35500 XCH SEQ
002628,001094: 5524 60070 AD VACLOC
002629,001095: 5525 05102 TC DMP1
002630,001096: 5526 20107 INDEX IND
002631,001097: 5527 35502 XCH SEQ +2
002632,001098: 5530 65475 AD K2
002633,001099: 5531 50105 TS TEM6
002634,001100: 5532 50102 TS TEM2
002635,001101: 5533 05466 TC STB
002636,001102: 5534 20107 INDEX IND
002637,001103: 5535 35500 XCH SEQ
002638,001104: 5536 60104 AD BASE
002639,001105: 5537 50103 TS TEM4
002640,001106: 5540 20107 INDEX IND
002641,001107: 5541 35501 XCH SEQ +1
002642,001108: 5542 60070 AD VACLOC
002643,001109: 5543 05102 TC DMP1
002644,001110: 5544 30105 XCH TEM6
002645,001111: 5545 05020 TC DAD1
002646,001112: 5546 10107 CCS IND
002647,001113: 5547 05521 TC LUP
002648,001114:
002649,001115: 5550 35475 CREXIT XCH K2
002650,001116: 5551 50062 TS ADDRWD
002651,001117: 5552 04616 TC VCS1 # VXV
002652,001118: 5553 04024 LDANZIG TC DANZIG
002653,001119:
|
|
Page 67
|
002655,001121:
002656,001122: # DOUBLE-PRECISION POLYNOMIAL EVALUATION ROUTINE.
002657,001123:
002658,001124: # PROGRAM ENTRY
002659,001125: #
002660,001126: # L TC POLY
002661,001127: # N
002662,001128: # L+1 OCT -2N COMPUTES A +A X + ... + A X , WHERE
002663,001129: # 0 1 N
002664,001130: # L+2 D.P. - A X = C(MPAC).
002665,001131: # 0
002666,001132:
002667,001133: # - - - - - - - -
002668,001134:
002669,001135: # L+2+2N D.P. - A
002670,001136: # N
002671,001137:
002672,001138: # L+4+2N NEXT OPERATION
002673,001139:
002674,001140: 5554 35610 POLY CAF BUGBITS2 # CONTAINS XCADR VBUF
002675,001141: 5555 50103 TS TEM4
002676,001142: 5556 35501 CAF ZERO # ZERO INTO BUF, BUF+1 TO START POLYLUP
002677,001143: 5557 50077 TS BUF
002678,001144: 5560 50100 TS BUF +1
002679,001145:
002680,001146: 5561 30115 XCH MPAC # ARGUMENT X INTO 6T, 7T
002681,001147: 5562 50071 TS VBUF # TEMPORARY STORAGE
002682,001148: 5563 30116 XCH MPAC +1
002683,001149: 5564 50072 TS VBUF +1
002684,001150:
002685,001151: 5565 34772 CAF DAD2 +4 # ADDRESS OF MPAC
002686,001152: 5566 50102 TS TEM2
002687,001153:
002688,001154: 5567 20001 INDEX Q # 2N INTO 10T
002689,001155: 5570 30000 CAF 0
002690,001156: 5571 50107 TS TEM10
002691,001157: 5572 60001 AD Q # EXIT ADDRESS INTO 11T
002692,001158: 5573 64473 AD THREE
002693,001159: 5574 50106 TS TEM9
002694,001160: 5575 05601 TC POLYLUP +3
002695,001161:
|
|
Page 68
|
002697,001163:
002698,001164: 5576 50107 POLYLUP TS TEM10
002699,001165: 5577 05103 TC DMP1 +1
002700,001166:
002701,001167: 5600 30062 XCH ADDRWD
002702,001168: 5601 64340 +3 AD NEG2 # REDUCE COEFFICIENT INDEX BY 1
002703,001169: 5602 50062 TS ADDRWD # COEFFICIENT LOC IN ADDRWD FOR USE BY
002704,001170: 5603 04526 TC TCS1 +2 # -BUF,BUF+1 INTO MPAC,MPAC+1
002705,001171: 5604 05021 TC DAD1 +1 # - COEFF + (BUF) INTO BUF
002706,001172:
002707,001173: 5605 10107 CCS TEM10
002708,001174: 5606 64335 AD NEG1 # THE AD NEG1 ORDER, -0 WILL BE THE END
002709,001175: 5607 05576 TC POLYLUP
002710,001176:
002711,001177: 5610 50070 BUGBITS2 XCADR VBUF # USED BY POLY
002712,001178:
002713,001179: 5611 00106 TC TEM9 # RETURN
002714,001180:
|
|
Page 69
|
002716,001182:
002717,001183: 5612 40061 ITCF CS BANKSET # ITC - UNCONDITIONAL TRANSFER
002718,001184: 5613 30121 XCH ADRLOC # PLACE IN QPRET THE POLISH ADDRESS OF
002719,001185: 5614 74606 MASK LOW10 # THE NEXT EQUATION. ITC MUST BE THE LAST
002720,001186: 5615 60121 AD ADRLOC # NON-BLANK OPERATOR IN AN EQUATION
002721,001187: 5616 64516 AD ONE
002722,001188: 5617 20067 INDEX FIXLOC
002723,001189: 5620 50052 TS QPRET
002724,001190: 5621 10062 CCS ADDRWD
002725,001191: 5622 04001 TC INTPRET +1 # BANKREG IS ALREADY SET
002726,001192:
002727,001193: 5623 10122 BOVF CCS OVFIND # BRANCH IF OVERFLOW INDICATOR IS ON
002728,001194: 5624 05626 TC +2 # OVFIND CAN BE EITHER -1, 0, OR +1
002729,001195: 5625 04024 TC DANZIG # IT WAS OFF - DISPATCH NEXT OPERATOR.
002730,001196: 5626 50122 TS OVFIND # IT WAS ON - SET TO 0 (OFF)
002731,001197: 5627 04567 TC DOBR # AND DO THE BRANCH
002732,001198:
002733,001199: 5630 04754 VSLT1 TC VECSET # DP VECTOR SHIFT LEFT
002734,001200: 5631 50015 TS BANKREG
002735,001201: 5632 06477 TC VSLT2
002736,001202:
002737,001203: 5633 04754 VSRT1 TC VECSET # DP VECTOR SHIFT RIGHT
002738,001204: 5634 50116 TS MPAC +1 # SET SHIFTING BIT IN MPAC,MPAC+1
002739,001205: 5635 50015 TS BANKREG # CALL IN BANK ZERO.
002740,001206: 5636 06042 TC TRUE2 # GET INTEGER ADDRESS
002741,001207: 5637 65363 AD NEG13
002742,001208: 5640 10000 CCS A
002743,001209: 5641 05650 TC VSRT3
002744,001210: 5642 77761 NEG14 DEC -14 B-14
002745,001211: 5643 05644 TC +1
002746,001212: 5644 20062 INDEX ADDRWD
002747,001213: 5645 34500 CAF BIT15
002748,001214: 5646 50115 TS MPAC
002749,001215: 5647 05371 TC VECCHECK +1 # FINISH IN VXSC ROUTINE.
002750,001216:
002751,001217: 5650 20000 VSRT3 INDEX A
002752,001218: 5651 34501 CAF BIT14
002753,001219: 5652 30116 XCH MPAC +1 # WHICH PREVIOUSLY CONTAINED A ZERO
002754,001220: 5653 05646 TC VSRT3 -2
002755,001221:
002756,001222: 5777 SETLOC 5777 # STANDARD LOCATION FOR EXTENDING BITS
002757,001223:
002758,001224: 5777 47777 OPOVF XCADR 0
End of include-file FIXED-FIXED_INTERPRETER_SECTION.agc. Parent file is MAIN.agc