Source Code

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