Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
048395,000002: ## Copyright: Public domain.
048396,000003: ## Filename: INTERPRETER.agc
048397,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
048398,000005: ## build 072. This is for the Command Module's (CM)
048399,000006: ## Apollo Guidance Computer (AGC), for
048400,000007: ## Apollo 15-17.
048401,000008: ## Assembler: yaYUL
048402,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
048403,000010: ## Website: www.ibiblio.org/apollo/index.html
048404,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
048405,000012: ## Mod history: 2009-09-02 JL Adapted from corresponding Comanche 055 file.
048406,000013: ## 2009-09-16 JL Fixed line comment alignment in top section of file.
048407,000014: ## 2010-02-20 RSB Un-##'d this header.
048408,000015: ## 2011-05-07 JL Removed workarounds.
048409,000016: ## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
048410,000017: ## and corrected errors found.
048411,000018: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
048412,000019: ## side-by-side diff of Luminary 69/99/116/131/210.
048413,000020:
![]() |
Page 1108 |
048415,000022:
048416,000023: # SECTION 1 DISPATCHER
048417,000024:
048418,000025: # ENTRY TO THE INTERPRETER. INTPRET SETS LOC TO THE FIRST INSTRUCTION, BANKSET TO THE BBANK OF THE
048419,000026: # OBJECT INTERPRETIVE PROGRAM, AND INTBIT15 TO THE BIT15 CONTENTS OF FBANK. INTERPRETIVE PROGRAMS MAY BE IN
048420,000027: # VIRTUALLY ALL BANKS PRESENT UNDER ANY SUPER-BANK SETTING, WITH THE RESTRICTION THAT PROGRAMS IN HIGH BANKS
048421,000028: # (BIT15 OF FBANK = 1) DO NOT REFER TO LOWBANKS, AND VICE-VERSA. THE INTERPRETER DOES NOT SWITCH SUPERBANKS.
048422,000029: # E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE (100-3777) IS ADDRESSED.
048423,000030:
048424,000031: 6000 SETLOC INTERF3
048425,000032: 6000 BANK
048426,000033:
048427,000034: 6006 COUNT* $$/INTER
048428,000035: 6006 00003 INTPRET RELINT
048429,000036: 6007 00006 EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
048430,000037: 6010 22164 +2 QXCH LOC
048431,000038:
048432,000039: 6011 30006 +3 CA BBANK # INTERPRETIVE BRANCHES FINISH HERE.
048433,000040: 6012 54165 TS BANKSET
048434,000041: 6013 74752 MASK BIT15 # GET 15TH BIT FOR INDEXABLE ADDRESSES.
048435,000042: 6014 54115 TS INTBIT15
048436,000043:
048437,000044: 6015 54023 TS EDOP # MAKE SURE NO INSTRUCTIONS LEFT OVER
048438,000045:
048439,000046: 6016 16037 TCF NEWOPS # PICK UP OP CODE PAIR AND BEGIN.
048440,000047:
048441,000048: 6017 22006 INTRSM LXCH BBANK # RESUME SUSPENDED INTERPRETIVE JOB
048442,000049: 6020 16011 TCF INTPRET +3
048443,000050:
048444,000051: # DLOAD LOADS MPAC, MPAC +1, LEAVING ZERO IN MPAC +2.
048445,000052:
048446,000053: 6021 00006 DLOAD EXTEND
048447,000054: 6022 50116 INDEX ADDRWD
048448,000055: 6023 30001 DCA 0 # LOAD DP C(C(ADDRWD)) INTO MPAC,MPAX +1
048449,000056: 6024 52155 SLOAD2 DXCH MPAC
048450,000057: 6025 34772 CAF ZERO # ZERO MPAC +2
048451,000058:
![]() |
Page 1109 |
048453,000060: # AT THE END OF MOST INSTRUCTIONS, CONTROL IS GIVEN TO DANZIG TO DISPATCH THE NEXT OPERATION.
048454,000061:
048455,000062: 6026 54156 +2 TS MPAC +2 # AND DECLARE DP MODE
048456,000063: 6027 54163 NEWMODE TS MODE # PROLOGUE FOR MODE-CHANGING INSTRUCTIONS.
048457,000064:
048458,000065: 6030 30165 DANZIG CA BANKSET # SET BBANK BEFORE TESTING NEWJOB SO THAT
048459,000066: 6031 54006 TS BBANK # IT MAY BE SAVED DIRECTLY BY CHANJOB.
048460,000067:
048461,000068: 6032 10023 NOIBNKSW CCS EDOP # SEE IF AN ORDER CODE IS LEFT OVER FROM
048462,000069: 6033 16046 TCF OPJUMP # THE LAST PAIR RETRIEVED. IF SO, EXECUTE.
048463,000070: # EDOP IS SET TO ZERO ON ITS RE-EDITING.
048464,000071:
048465,000072: 6034 10067 CCS NEWJOB # SEE IF A JOB OF HIGHER PRIORITY IS
048466,000073: 6035 15156 TCF CHANG2 # PRESENT, AND IF SO, CHANGE JOBS.
048467,000074:
048468,000075: 6036 24164 INCR LOC # ADVANCE THE LOCATION COUNTER.
048469,000076: # ITRACE (1) REFERS TO "NEWOPS".
048470,000077: 6037 50164 NEWOPS INDEX LOC # ENTRY TO BEGIN BY PICKING OP CODE PAIR.
048471,000078: 6040 30000 CA 0 # MAY BE AN OPCODE PAIR OR A STORE CODE.
048472,000079: 6041 10000 CCS A # TEST SIGN AND GET DABS(A).
048473,000080: 6042 16331 TCF DOSTORE # PROCESS STORE CODE.
048474,000081:
048475,000082: 6043 00177 LOW7 OCT 177
048476,000083:
048477,000084: 6044 54023 TS EDOP # OP CODE PAIR. LEAVE THE OTHER IN EDOP
048478,000085: 6045 76043 MASK LOW7 # WHERE CCS EDOP WILL HONOR IT NEXT.
048479,000086:
048480,000087: 6046 54020 OPJUMP TS CYR # LOWWD ENTERS HERE IF A RIGHT-HAND OP
048481,000088: 6047 10020 CCS CYR # CODE IS TO BE PROCESSED. TEST PREFICES.
048482,000089: 6050 16216 TCF OPJUMP2 # TEST SECOND PREFIX BIT.
048483,000090:
048484,000091: 6051 16712 TCF EXIT # +0 OP CODE IS EXIT.
![]() |
Page 1110 |
048486,000093: # PROCESS ADDRESSES WHICH MAY BE DIRECT, INDEXED, OR REFERENCE THE PUSHDOWN LIST.
048487,000094:
048488,000095: 6052 74770 ADDRESS MASK BIT1 # SEE IF ADDRESS IS INDEXED. CYR CONTAINED
048489,000096: 6053 10000 CCS A # 400XX, SO BIT 1 IS NOW AS IT WAS IN CYR.
048490,000097: 6054 16115 TCF INDEX # FORM INDEXED ADDRESS.
048491,000098:
048492,000099: 6055 50164 DIRADRES INDEX LOC # LOOK AHEAD TO NEXT WORD TO SEE IF
048493,000100: 6056 40001 OCT40001 CS 1 # ADDRESS IS GIVEN.
048494,000101: 6057 10000 CCS A
048495,000102: 6060 16164 TCF PUSHUP # IF NOT.
048496,000103:
048497,000104: 6061 77773 NEG4 DEC -4 B-14
048498,000105:
048499,000106: 6062 24164 INCR LOC # IF SO, TO SHOW WE PICKED UP A WORD.
048500,000107: 6063 54116 TS ADDRWD
048501,000108:
![]() |
Page 1111 |
048503,000110: # FINAL DIGESTION OF DIRECT ADDRESSES OF OP CODES WITH 01 PREFIX IS DONE HERE. IN EACH CASE, THE
048504,000111: # REQUIRED 12-BIT SUB-ADDRESS IS LEFT IN ADDRWD, WITH ANY REQUIRED E OR F BANK SWITCHING DONE. ADDRESSES LESS
048505,000112: # THAN 45D ARE TAKEN TO BE RELATIVE TO THE WORK AREA. THE OP CODE IS NOW IN BITS 1-5 OF CYR WITH BIT 14 = 1.
048506,000113:
048507,000114: 6064 66220 AD -ENDVAC # SEE IF ADDRESS RELATIVE TO WORK AREA.
048508,000115: 6065 10000 CCS A
048509,000116: 6066 67676 AD -ENDERAS # IF NOT, SEE IF IN GENERAL ERASABLE.
048510,000117: 6067 16074 TCF IERASTST
048511,000118:
048512,000119: 6070 30120 NETZERO CA FIXLOC # IF SO, LEAVE THE MODIFIED ADDRESS IN
048513,000120: 6071 26116 ADS ADDRWD # ADDRWD AND DISPATCH.
048514,000121: 6072 50020 ITR15 INDEX CYR # THIS INDEX MAKES THE NEXT INSTRUCTION
048515,000122: 6073 76242 7 INDJUMP -1 # TCF INDJUMP + OP, EDITING CYR.
048516,000123:
048517,000124: 6074 00006 IERASTST EXTEND
048518,000125: 6075 66105 BZMF GEADDR # GO PROCESS GENERAL-ERASABLE ADDRESS.
048519,000126:
048520,000127: 6076 75041 MASK LOW10 # FIXED BANK ADDRESS. RESTORE AND ADD B15.
048521,000128: 6077 65041 AD LOW10 # SWITCH BANKS AND LEAVE SUBADDRESS IN
048522,000129: 6100 56116 XCH ADDRWD # ADDRWD FOR OPERAND RETRIEVAL. (THIS
048523,000130: 6101 60115 AD INTBIT15 # METHOD PRECLUDES USE OF THE LAST
048524,000131: 6102 54004 TS FBANK # LOCATION IN EACH FBANK.)
048525,000132: 6103 50020 ITR12 INDEX CYR
048526,000133: 6104 76242 7 INDJUMP -1
048527,000134:
048528,000135: 6105 74350 GEADDR MASK LOW8
048529,000136: 6106 65024 AD OCT1400
048530,000137: 6107 56116 XCH ADDRWD
048531,000138: 6110 54003 TS EBANK
048532,000139: 6111 50020 ITR10 INDEX CYR
048533,000140: 6112 76242 7 INDJUMP -1
048534,000141:
![]() |
Page 1112 |
048536,000143: # THE FOLLOWING ROUTINE PROCESSES INTERPRETIVE INDEXED ADDRESSES. AN INTERPRETER INDEX REGISTER MAY
048537,000144: # CONTAIN THE ADDRESS OF ANY ERASABLE REGISTER (0-42 BEING RELATIVE TO THE VAC AREA) OR ANY INTERPRETIVE PROGRAM
048538,000145: # BANK, OR ANY INTEGER IN THAT RANGE.
048539,000146:
048540,000147: 6113 37666 DODLOAD* CAF DLOAD* # STODL* COMES HERE TO PROCESS LOAD ADR.
048541,000148: 6114 54020 +1 TS CYR # (STOVL* ENTERS HERE).
048542,000149: 6115 30120 INDEX CA FIXLOC # SET UP INDEX LOCATION.
048543,000150: 6116 54130 TS INDEXLOC
048544,000151: 6117 24164 INCR LOC # (ADDRESS ALWAYS GIVEN).
048545,000152: 6120 50164 INDEX LOC
048546,000153: 6121 40000 CS 0
048547,000154: 6122 10000 CCS A # INDEX 2 IF ADDRESS STORED COMPLEMENTED.
048548,000155: 6123 24130 INCR INDEXLOC
048549,000156: 6124 16125 NOOP
048550,000157:
048551,000158: 6125 54116 TS ADDRWD # 14 BIT ADDRESS TO ADDRWD.
048552,000159: 6126 77675 MASK HIGH4 # IF ADDRESS GREATER THAN 2K, ADD INTBIT15
048553,000160: 6127 00006 EXTEND
048554,000161: 6130 16133 BZF INDEX2
048555,000162: 6131 30115 CA INTBIT15
048556,000163: 6132 26116 ADS ADDRWD
048557,000164:
048558,000165: 6133 50130 INDEX2 INDEX INDEXLOC
048559,000166: 6134 40046 CS X1
048560,000167: 6135 26116 ADS ADDRWD # DO AUGMENT, IGNORING AND CORRECTING OVF.
048561,000168:
048562,000169: 6136 77677 MASK HIGH9 # SEE IF ADDRESS IS IN WORK AREA.
048563,000170: 6137 00006 EXTEND
048564,000171: 6140 16153 BZF INDWORK
048565,000172: 6141 77675 MASK HIGH4 # SEE IF IN FIXED BANK.
048566,000173: 6142 00006 EXTEND
048567,000174: 6143 16155 BZF INDERASE
048568,000175:
048569,000176: 6144 30116 CA ADDRWD # IN FIXED - SWITCH BANKS AND CREATE
048570,000177: 6145 54004 TS FBANK # SUB-ADDRESS.
048571,000178: 6146 75041 MASK LOW10
048572,000179: 6147 64756 AD 2K
048573,000180: 6150 54116 TS ADDRWD
048574,000181: 6151 50020 ITR11 INDEX CYR
048575,000182: 6152 36242 3 INDJUMP -1
048576,000183:
048577,000184: 6153 30120 INDWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO WORK AREA.
048578,000185: 6154 16161 TCF ITR13 -1
048579,000186:
048580,000187: 6155 35024 INDERASE CA OCT1400
048581,000188: 6156 56116 XCH ADDRWD
048582,000189: 6157 54003 TS EBANK
048583,000190: 6160 74350 MASK LOW8
048584,000191: 6161 26116 -1 ADS ADDRWD
048585,000192: 6162 50020 ITR13 INDEX CYR
![]() |
Page 1113 |
048587,000194: 6163 36242 3 INDJUMP -1
048588,000195:
![]() |
Page 1114 |
048590,000197: # PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
048591,000198: # LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
048592,000199: # IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.). EXCEPTIONS TO THIS GENERAL RULE ARE LISTED
048593,000200: # BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT):
048594,000201:
048595,000202: # 1. VXSC AND V/SC WANT THE OPPOSITE TYPE OF OPERAND, E.G., IF THE LAST OPERATION YIELDED A VECTOR
048596,000203: # RESULT, VXSC WANTS A SCALAR.
048597,000204:
048598,000205: # 2. THE LOAD CODES SHOULD LOAD THE ACCUMULATOR INDEPENDENT OF THE RESULT OF THE LAST OPERATION. THIS
048599,000206: # INCLUDES VLOAD, DLOAD, TLOAD, PDDL, AND PDVL (NO PUSHUP WITH SLOAD).
048600,000207:
048601,000208: # 3. SOME ARITHMETIC OPERATIONS REQUIRE A STANDARD TYPE OF OPERAND REGARDLESS OF THE PREVIOUS OPERATION.
048602,000209: # THIS INCLUDES SIGN WANTING DP AND TAD REQUIRING TP.
048603,000210:
048604,000211: 6164 34351 PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
048605,000212: 6165 70020 MASK CYR # 20, THIS OP REQUIRES SPECIAL ATTENTION.
048606,000213: 6166 66171 AD -OCT10 # (NO -0).
048607,000214: 6167 10000 CCS A
048608,000215: 6170 16202 TCF REGUP # FOR ALL CODES GREATER THAN OCT 7.
048609,000216:
048610,000217: 6171 77767 -OCT10 OCT -10
048611,000218:
048612,000219: 6172 66061 AD NEG4 # WE NOW HAVE 7 - OP CODE(MOD4). SEE IF
048613,000220: 6173 10000 CCS A # THE OP CODE (MOD4) IS THREE (REVERSE).
048614,000221: 6174 50000 INDEX A # NO - THE MODE IS DEFINITE. PICK UP THE
048615,000222: 6175 46213 CS NO.WDS
048616,000223: 6176 16204 TCF REGUP +2
048617,000224:
048618,000225: 6177 50163 INDEX MODE # FOR VXSC AND V/SC WE WANT THE REQUIRED
048619,000226: 6200 46211 CS REVCNT # PUSHLOC DECREMENT WITHOUT CHANGING THE
048620,000227: 6201 16204 TCF REGUP +2 # MODE AT THIS TIME.
048621,000228:
048622,000229: 6202 50163 REGUP INDEX MODE # MOST ALL OP CODES PUSHUP HERE.
048623,000230: 6203 46213 CS NO.WDS
048624,000231: 6204 26166 +2 ADS PUSHLOC
048625,000232: 6205 54116 TS ADDRWD
048626,000233: 6206 50020 ITR14 INDEX CYR
048627,000234: 6207 76242 7 INDJUMP -1 # (THE INDEX MAKES THIS A TCF.)
048628,000235:
048629,000236: 6210 00002 OCT 2 # REVERSE PUSHUP DECREMENT. VECTOR TAKES 2
048630,000237: 6211 00006 REVCNT OCT 6 # WORDS, SCALAR TAKES 6.
048631,000238: 6212 00006 OCT 6
048632,000239: 6213 00002 NO.WDS OCT 2 # CONVENTIONAL DECREMENT IS 6 WORDS VECTOR
048633,000240: 6214 00003 OCTAL3 OCT 3 # 2 IN DP, AND 3 IN TP.
048634,000241: 6215 00006 OCT 6
048635,000242:
![]() |
Page 1115 |
048637,000244: # TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
048638,000245:
048639,000246: 6216 10020 OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
048640,000247: 6217 16232 TCF OPJUMP3 # TEST THIRD BIT TO SEE IF UNARY OR SHIFT.
048641,000248:
048642,000249: 6220 77722 -ENDVAC DEC -45 B-14
048643,000250:
048644,000251: # THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10. THEY ARE BASICALLY WORK AREA ADDRESSES
048645,000252: # IN THE RANGE 0 - 52, ERASABLE ECADR CONSTANTS FROM 100 - 3777, AND FCADRS ABOVE THAT. ALL 15 BITS ARE AVAILABLE
048646,000253: # IN CONTRAST TO SUFFIX 1, IN WHICH ONLY THE LOW ORDER 14 ARE AVAILABLE.
048647,000254:
048648,000255: 6221 24164 15BITADR INCR LOC # (ENTRY HERE FROM STCALL).
048649,000256: 6222 50164 INDEX LOC # PICK UP ADDRESS WORD.
048650,000257: 6223 30000 CA 0
048651,000258: 6224 54117 TS POLISH # WE MAY NEED A SUBADDRESS LATER.
048652,000259:
048653,000260: 6225 35042 CAF LOW7+2K # THESE INSTRUCTIONS ARE IN BANK 1.
048654,000261: 6226 54004 TS FBANK
048655,000262: 6227 70020 MASK CYR
048656,000263: 6230 50000 ITR7 INDEX A
048657,000264: 6231 16303 TCF MISCJUMP
048658,000265:
![]() |
Page 1116 |
048660,000267: # COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
048661,000268:
048662,000269: 6232 54004 OPJUMP3 TS FBANK # CALL IN BANK 0 (BITS 11-15 OF A ARE 0.)
048663,000270:
048664,000271: 6233 10020 CCS CYR # TEST THIRD PREFIX BIT.
048665,000272: 6234 50000 INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
048666,000273: 6235 12000 TCF UNAJUMP # 1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
048667,000274:
048668,000275: 6236 10163 CCS MODE # ITS A SHORT SHIFT CODE. SEE IF PRESENT
048669,000276: 6237 12017 TCF SHORTT # SCALAR OR VECTOR.
048670,000277: 6240 12017 TCF SHORTT
048671,000278: 6241 12121 TCF SHORTV # CALLS THE APPROPRIATE ROUTINE.
048672,000279:
048673,000280: 6242 4344 FBANKMSK EQUALS BANKMASK
048674,000281: 6242 00122 LVBUF ADRES VBUF
048675,000282:
![]() |
Page 1117 |
048677,000284: # THE FOLLOWING IS THE JUMP TABLE FOR OP CODES WHICH MAY HAVE INDEXABLE ADDRESSES OR MAY PUSH UP.
048678,000285:
048679,000286: 6243 16454 INDJUMP TCF VLOAD # 00 - LOAD MPAC WITH A VECTOR.
048680,000287: 6244 17040 TCF TAD # 01 - TRIPLE PRECISION ADD TO MPAC.
048681,000288: 6245 17611 TCF SIGN # 02 - COMPLEMENT MPAC (V OR SC) IF X NEG.
048682,000289: 6246 17335 TCF VXSC # 03 - VECTOR TIMES SCALAR.
048683,000290: 6247 16652 TCF CGOTO # 04 - COMPUTED GO TO.
048684,000291: 6250 16437 TCF TLOAD # 05 - LOAD MPAC WITH TRIPLE PRECISION.
048685,000292: 6251 16021 TCF DLOAD # 06 - LOAD MPAC WITH A DP SCALAR.
048686,000293: 6252 17560 TCF V/SC # 07 - VECTOR DIVIDED BY SCALAR.
048687,000294:
048688,000295: 6253 16450 TCF SLOAD # 10 - LOAD MPAC IN SINGLE PRECISION.
048689,000296: 6254 16567 TCF SSP # 11 - SET SINGLE PRECISION INTO X.
048690,000297: 6255 16472 TCF PDDL # 12 - PUSH DOWN MPAC AND RE-LOAD IN DP.
048691,000298: 6256 17270 TCF MXV # 13 - MATRIX POST-MULTIPLIED BY VECTOR.
048692,000299: 6257 16526 TCF PDVL # 14 - PUSH DOWN AND VECTOR LOAD.
048693,000300: 6260 16575 TCF CCALL # 15 - COMPUTED CALL.
048694,000301: 6261 17273 TCF VXM # 16 - MATRIX PRE-MULTIPLIED BY VECTOR.
048695,000302: 6262 17552 TCF TSLC # 17 - NORMALIZE MPAC (SCALAR ONLY).
048696,000303:
048697,000304: 6263 17530 TCF DMPR # 20 - DP MULTIPLY AND ROUND.
048698,000305: 6264 17533 TCF DDV # 21 - DP DIVIDE BY.
048699,000306: 6265 17537 TCF BDDV # 22 - DP DIVIDE INTO.
048700,000307: 6266 17555 TCF GSHIFT # 23 - GENERAL SHIFT INSTRUCTION.
048701,000308: 6267 16720 TCF VAD # 24 - VECTOR ADD.
048702,000309: 6270 16716 TCF VSU # 25 - VECTOR SUBTRACT.
048703,000310: 6271 17005 TCF BVSU # 26 - VECTOR SUBTRACT FROM.
048704,000311: 6272 17265 TCF DOT # 27 - VECTOR DOT PRODUCT.
048705,000312:
048706,000313: 6273 17414 TCF VXV # 30 - VECTOR CROSS PRODUCT.
048707,000314: 6274 17361 TCF VPROJ # 31 - VECTOR PROJECTION.
048708,000315: 6275 16754 TCF DSU # 32 - DP SUBTRACT.
048709,000316: 6276 17031 TCF BDSU # 33 - DP SUBTRACT FROM.
048710,000317: 6277 16744 TCF DAD # 34 - DP ADD.
048711,000318: 6300 16300 TCF +0 # 35 - AVAILABLE
048712,000319: 6301 17526 TCF DMP1 # 36 - DP MULTIPLY.
048713,000320: 6302 17547 TCF SETPD # 37 - SET PUSH DOWN POINTER (DIRECT ONLY)
048714,000321:
048715,000322: # CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
048716,000323:
![]() |
Page 1118 |
048718,000325: # THE FOLLOWING JUMP TABLE APPLIES TO INDEX, BRANCH, AND MISCELLANEOUS INSTRUCTIONS.
048719,000326:
048720,000327: 6303 12341 MISCJUMP TCF AXT # 00 - ADDRESS TO INDEX TRUE.
048721,000328: 6304 12346 TCF AXC # 01 - ADDRESS TO INDEX COMPLEMENTED.
048722,000329: 6305 12351 TCF LXA # 02 - LOAD INDEX FROM ERASABLE.
048723,000330: 6306 12355 TCF LXC # 03 - LOAD INDEX FROM COMPLEMENT OF ERAS.
048724,000331: 6307 12361 TCF SXA # 04 - STORE INDEX IN ERASABLE.
048725,000332: 6310 12367 TCF XCHX # 05 - EXCHANGE INDEX WITH ERASABLE.
048726,000333: 6311 12403 TCF INCR # 06 - INCREMENT INDEX REGISTER.
048727,000334: 6312 12412 TCF TIX # 07 - TRANSFER ON INDEX.
048728,000335:
048729,000336: 6313 12375 TCF XAD # 10 - INDEX REGISTER ADD FROM ERASABLE.
048730,000337: 6314 12406 TCF XSU # 11 - INDEX SUBTRACT FROM ERASABLE.
048731,000338: 6315 12464 TCF BZE/GOTO # 12 - BRANCH ZERO AND GOTO.
048732,000339: 6316 12471 TCF BPL/BMN # 13 - BRANCH PLUS AND BRANCH MINUS.
048733,000340: 6317 12444 TCF RTB/BHIZ # 14 - RETURN TO BASIC AND BRANCH HI ZERO.
048734,000341: 6320 12504 TCF CALL/ITA # 15 - CALL AND STORE QPRET.
048735,000342: 6321 12513 TCF SW/ # 16 - SWITCH INSTRUCTIONS AND AVAILABLE.
048736,000343: 6322 12454 TCF BOV(B) # 17 - BRANCH ON OVERFLOW TO BASIC OR INT.
048737,000344:
![]() |
Page 1119 |
048739,000346: # THE FOLLOWING JUMP TABLE APPIES TO UNARY INSTRUCTIONS.
048740,000347:
048741,000348: 00,2000 SETLOC INTERB0
048742,000349: 00,2000 BANK
048743,000350:
048744,000351: 00,2000 COUNT* $$/INTER
048745,000352: 00,2000 13206 UNAJUMP TCF SQRT # 01 - SQUARE ROOT.
048746,000353: 00,2001 13525 TCF SINE # 02 - SIN.
048747,000354: 00,2002 13514 TCF COSINE # 03 - COS.
048748,000355: 00,2003 13605 TCF ARCSIN # 04 - ARC SIN.
048749,000356: 00,2004 13607 TCF ARCCOS # 05 - ARC COS.
048750,000357: 00,2005 13173 TCF DSQ # 06 - DP SQUARE.
048751,000358: 00,2006 12116 TCF ROUND # 07 - ROUND TO DP.
048752,000359:
048753,000360: 00,2007 17624 TCF COMP # 10 - COMPLEMENT VECTOR OR SCALAR.
048754,000361: 00,2010 13231 TCF VDEF # 11 - VECTOR DEFINE.
048755,000362: 00,2011 13022 TCF UNIT # 12 - UNIT VECTOR.
048756,000363: 00,2012 13175 TCF ABVALABS # 13 - LENGTH OF VECTOR OR MAG OF SCALAR.
048757,000364: 00,2013 13244 TCF VSQ # 14 - SQUARE OF LENGTH OF VECTOR.
048758,000365: 00,2014 16323 TCF STADR # 15 - PUSH UP ON STORE CODE.
048759,000366: 00,2015 13273 TCF RVQ # 16 - RETURN VIA QPRET.
048760,000367: 00,2016 13246 TCF PUSH # 17 - PUSH MPAC DOWN.
048761,000368:
![]() |
Page 1120 |
048763,000370: # SECTION 2 LOAD AND STORE PACKAGE.
048764,000371:
048765,000372: # A SET OF EIGHT STORE CODES IS PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
048766,000373: # ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A
048767,000374: # STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS. MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
048768,000375: # FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC. FOUR OPTIONS ARE AVAILABLE:
048769,000376:
048770,000377: # 1. STORE STORE MPAC. THE E ADDRESS MAY BE INDEXED.
048771,000378: # 2. STODL STORE MPAC AND RE-LOAD IT IN DP WITH THE NEXT ADDRESS (THE LOAD MAY BE INDEXED).
048772,000379: # 3. STOVL STORE MPAC AND RE-LOAD A VECTOR (AS ABOVE).
048773,000380: # 4. STCALL STORE AND DO A CALL (BOTH ADDRESSES MUST BE DIRECT HERE).
048774,000381:
048775,000382: # STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
048776,000383:
048777,000384: 6000 SETLOC INTERF3
048778,000385: 6000 BANK
048779,000386:
048780,000387: 6323 COUNT* $$/INTER
048781,000388: 6323 30165 STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
048782,000389: 6324 54004 TS FBANK # ADDRESS) ENTERS HERE.
048783,000390: 6325 24164 INCR LOC
048784,000391: 6326 50164 ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO
048785,000392: 6327 40000 CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR.
048786,000393: 6330 67702 AD NEGONE # (YUL CANT REMOVE 1 BECAUSE OF EARLY CCS)
048787,000394:
048788,000395: 6331 54116 DOSTORE TS ADDRWD
048789,000396: 6332 74347 MASK LOW11 # ENTRY FROM DISPATCHER. SAVE THE ERASABLE
048790,000397: 6333 56116 XCH ADDRWD # ADDRESS AND JUMP ON THE STORE CODE NO.
048791,000398: 6334 77656 MASK B12T14
048792,000399: 6335 00006 EXTEND
048793,000400: 6336 74764 MP BIT5 # EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
048794,000401: 6337 50000 ITR0 INDEX A
048795,000402: 6340 16341 TCF STORJUMP
048796,000403:
![]() |
Page 1121 |
048798,000405: # STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
048799,000406: # A SUPPLIED OPERATION CODE.
048800,000407:
048801,000408: # STORE STORE,1 AND STORE,2 RETURN TO DANZIG, THUS RESETTING THE EBANK TO ITS STATE AT INTPRET.
048802,000409:
048803,000410: 6341 06371 STORJUMP TC STORE # STORE.
048804,000411: 6342 16030 TCF DANZIG # PICK UP NEW OP CODE(S).
048805,000412: 6343 06363 TC STORE,1
048806,000413: 6344 16030 TCF DANZIG
048807,000414: 6345 06366 TC STORE,2
048808,000415: 6346 16030 TCF DANZIG
048809,000416:
048810,000417: 6347 06371 TC STORE # STODL.
048811,000418: 6350 16427 TCF DODLOAD
048812,000419:
048813,000420: 6351 06371 TC STORE # STODL WITH INDEXED LOAD ADDRESS.
048814,000421: 6352 16113 TCF DODLOAD*
048815,000422:
048816,000423: 6353 06371 TC STORE # STOVL.
048817,000424: 6354 16432 TCF DOVLOAD
048818,000425:
048819,000426: 6355 06371 TC STORE # STOVL WITH INDEXED LOAD ADDRESS.
048820,000427: 6356 16435 TCF DOVLOAD*
048821,000428: 6357 06371 TC STORE # STOTC.
048822,000429: 6360 35002 CAF CALLCODE
048823,000430: 6361 54020 TS CYR
048824,000431: 6362 16221 TCF 15BITADR # GET A 15 BIT ADDRESS.
048825,000432:
![]() |
Page 1122 |
048827,000434: # STORE CODE ADDRESS PROCESSOR.
048828,000435:
048829,000436: 6363 50120 STORE,1 INDEX FIXLOC
048830,000437: 6364 40046 CS X1
048831,000438: 6365 16370 TCF PRESTORE
048832,000439:
048833,000440: 6366 50120 STORE,2 INDEX FIXLOC
048834,000441: 6367 40047 CS X2
048835,000442: 6370 26116 PRESTORE ADS ADDRWD # RESULTANT ADDRESS IS IN ERASABLE.
048836,000443:
048837,000444: 6371 40116 STORE CS ADDRWD
048838,000445: 6372 65006 AD DEC45
048839,000446: 6373 10000 CCS A # DOES THE ADDRESS POINT TO THE WORK AREA?
048840,000447: 6374 30120 CA FIXLOC # YES.
048841,000448: 6375 16402 TCF AHEAD5
048842,000449: 6376 35024 CA OCT1400 # NO. SET EBANK & MAKE UP SUBADDRESS.
048843,000450: 6377 56116 XCH ADDRWD
048844,000451: 6400 54003 TS EBANK
048845,000452: 6401 74350 MASK LOW8
048846,000453: 6402 26116 AHEAD5 ADS ADDRWD
048847,000454:
![]() |
Page 1123 |
048849,000456: # STORING ROUTINES. STORE DP, TP, OR VECTOR AS INDICATED BY MODE.
048850,000457:
048851,000458: 6403 00006 STARTSTO EXTEND # MPAC,+1 MUST BE STORED IN ANY EVENT.
048852,000459: # ITRACE (5) REFERS TO "STARTSTO".
048853,000460: 6404 30155 DCA MPAC
048854,000461: 6405 50116 INDEX ADDRWD
048855,000462: 6406 52001 DXCH 0
048856,000463:
048857,000464: 6407 10163 CCS MODE
048858,000465: 6410 16423 TCF TSTORE
048859,000466: 6411 00002 TC Q
048860,000467:
048861,000468: 6412 00006 VSTORE EXTEND
048862,000469: 6413 30160 DCA MPAC +3
048863,000470: 6414 50116 INDEX ADDRWD
048864,000471: 6415 52003 DXCH 2
048865,000472:
048866,000473: 6416 00006 EXTEND
048867,000474: 6417 30162 DCA MPAC +5
048868,000475: 6420 50116 INDEX ADDRWD
048869,000476: 6421 52005 DXCH 4
048870,000477: 6422 00002 TC Q
048871,000478:
048872,000479: 6423 30156 TSTORE CA MPAC +2
048873,000480: 6424 50116 INDEX ADDRWD
048874,000481: 6425 54002 TS 2
048875,000482: 6426 00002 TC Q
048876,000483:
![]() |
Page 1124 |
048878,000485: # ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
048879,000486: # ITSELF.
048880,000487:
048881,000488: 6427 37665 DODLOAD CAF DLOADCOD
048882,000489: 6430 54020 TS CYR
048883,000490: 6431 16055 TCF DIRADRES # GO GET A DIRECT ADDRESS.
048884,000491:
048885,000492: 6432 34752 DOVLOAD CAF VLOADCOD
048886,000493: 6433 54020 TS CYR
048887,000494: 6434 16055 TCF DIRADRES
048888,000495:
048889,000496: 6435 36056 DOVLOAD* CAF VLOAD*
048890,000497: 6436 16114 TCF DODLOAD* +1 # PROLOGUE TO INDEX ROUTINE.
048891,000498:
![]() |
Page 1125 |
048893,000500: # THE FOLLOWING LOAD INSTRUCTIONS ARE PROVIDED FOR LOADING THE MULTI-PURPOSE ACCUMULATOR MPAC.
048894,000501:
048895,000502: 6437 50116 TLOAD INDEX ADDRWD
048896,000503: 6440 30002 CA 2 # LOAD A TRIPLE PRECISION ARGUMENT INTO
048897,000504: 6441 54156 TS MPAC +2 # THE FIRST THREE MPAC REGISTERS, WITH THE
048898,000505: 6442 00006 EXTEND # CONTENTS OF THE OTHER FOUR IRRELEVANT.
048899,000506: 6443 50116 INDEX ADDRWD
048900,000507: 6444 30001 DCA 0
048901,000508: 6445 52155 DXCH MPAC
048902,000509: 6446 34770 TMODE CAF ONE
048903,000510: 6447 16027 TCF NEWMODE # DECLARE TRIPLE PRECISION MODE.
048904,000511:
048905,000512: 6450 22007 SLOAD ZL # LOAD A SINGLE PRECISION NUMBER INTO
048906,000513: 6451 50116 INDEX ADDRWD # MPAC, SETTING MPAC+1,2 TO ZERO. THE
048907,000514: 6452 30000 CA 0 # CONTENTS OF THE REMAINING MPAC REGISTERS
048908,000515: 6453 16024 TCF SLOAD2 # ARE IRRELEVANT.
048909,000516:
048910,000517: 6454 00006 VLOAD EXTEND # LOAD A DOUBLE PRECISION VECTOR INTO
048911,000518: 6455 50116 INDEX ADDRWD # MPAC,+1, MPAC+3,4, AND MPAC+5,6. THE
048912,000519: 6456 30001 DCA 0 # CONTENTS OF MPAC +2 ARE IRRELEVANT.
048913,000520: 6457 52155 DXCH MPAC
048914,000521:
048915,000522: 6460 00006 ENDVLOAD EXTEND # PDVL COMES HERE TO FINISH UP FOR DP, TP.
048916,000523: 6461 50116 INDEX ADDRWD
048917,000524: 6462 30003 DCA 2
048918,000525: 6463 52160 DXCH MPAC +3
048919,000526:
048920,000527: 6464 00006 +4 EXTEND # TPDVL FINISHES HERE.
048921,000528: 6465 50116 INDEX ADDRWD
048922,000529: 6466 30005 DCA 4
048923,000530: 6467 52162 DXCH MPAC +5
048924,000531:
048925,000532: 6470 44770 VMODE CS ONE # DECLARE VECTOR MODE.
048926,000533: 6471 16027 TCF NEWMODE
048927,000534:
![]() |
Page 1126 |
048929,000536: # THE FOLLOWING INSTRUCTIONS ARE PROVIDED FOR STORING OPERANDS IN THE PUSHDOWN LIST:
048930,000537: # 1. PUSH PUSHDOWN AND NO LOAD.
048931,000538: # 2. PDDL PUSHDOWN AND DOUBLE PRECISION LOAD.
048932,000539: # 3. PDVL PUSHDOWN AND VECTOR LOAD.
048933,000540:
048934,000541: 6472 00006 PDDL EXTEND
048935,000542: 6473 50116 INDEX ADDRWD # LOAD MPAC,+1, PUSHING THE FORMER
048936,000543: 6474 30001 DCA 0 # CONTENTS DOWN.
048937,000544: 6475 52155 DXCH MPAC
048938,000545: 6476 50166 INDEX PUSHLOC
048939,000546: 6477 52001 DXCH 0
048940,000547:
048941,000548: 6500 50163 INDEX MODE # ADVANCE THE PUSHDOWN POINTER APPRO-
048942,000549: 6501 36213 CAF NO.WDS # PRIATELY.
048943,000550: 6502 26166 ADS PUSHLOC
048944,000551:
048945,000552: 6503 10163 CCS MODE
048946,000553: 6504 16521 TCF ENDTPUSH
048947,000554: 6505 16517 TCF ENDDPUSH
048948,000555:
048949,000556: 6506 54163 TS MODE # NOW DP.
048950,000557: 6507 54156 ENDVPUSH TS MPAC +2
048951,000558: 6510 52160 DXCH MPAC +3 # PUSH DOWN THE REST OF THE VECTOR HERE.
048952,000559: 6511 50166 INDEX PUSHLOC
048953,000560: 6512 51775 DXCH 0 -4
048954,000561:
048955,000562: 6513 52162 DXCH MPAC +5
048956,000563: 6514 50166 INDEX PUSHLOC
048957,000564: 6515 51777 DXCH 0 -2
048958,000565:
048959,000566: 6516 16030 TCF DANZIG
048960,000567:
048961,000568: 6517 54156 ENDDPUSH TS MPAC +2 # SET MPAC +2 TO ZERO AND EXIT ON DP.
048962,000569: 6520 16030 TCF DANZIG
048963,000570:
048964,000571: 6521 54163 ENDTPUSH TS MODE
048965,000572: 6522 56156 XCH MPAC +2 # ON TRIPLE, SET MPAC +2 TO ZERO, PUSHING
048966,000573: 6523 50166 +2 INDEX PUSHLOC # DOWN THE OLD CONTENTS
048967,000574: 6524 53777 TS 0 -1
048968,000575: 6525 16030 TCF DANZIG
048969,000576:
![]() |
Page 1127 |
048971,000578: # PDVL - PUSHDOWN AND VECTOR LOAD.
048972,000579:
048973,000580: 6526 00006 PDVL EXTEND # RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
048974,000581: 6527 50116 INDEX ADDRWD
048975,000582: 6530 30001 DCA 0
048976,000583: 6531 52155 DXCH MPAC
048977,000584: 6532 50166 INDEX PUSHLOC
048978,000585: 6533 52001 DXCH 0
048979,000586:
048980,000587: 6534 50163 INDEX MODE # ADVANCE THE PUSHDOWN POINTER.
048981,000588: 6535 36213 CAF NO.WDS
048982,000589: 6536 26166 ADS PUSHLOC
048983,000590:
048984,000591: 6537 10163 CCS MODE # TEST PAST MODE.
048985,000592: 6540 16557 TCF TPDVL
048986,000593: 6541 16460 TCF ENDVLOAD # JUST LOAD LAST FOUR REGISTERS ON DP.
048987,000594:
048988,000595: 6542 00006 VPDVL EXTEND # PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
048989,000596: 6543 50116 INDEX ADDRWD
048990,000597: 6544 30003 DCA 2
048991,000598: 6545 52160 DXCH MPAC +3
048992,000599: 6546 50166 INDEX PUSHLOC
048993,000600: 6547 51775 DXCH 0 -4
048994,000601:
048995,000602: 6550 00006 EXTEND
048996,000603: 6551 50116 INDEX ADDRWD
048997,000604: 6552 30005 DCA 4
048998,000605: 6553 52162 DXCH MPAC +5
048999,000606: 6554 50166 INDEX PUSHLOC
049000,000607: 6555 51777 DXCH 0 -2
049001,000608:
049002,000609: 6556 16030 TCF DANZIG
049003,000610:
049004,000611: 6557 00006 TPDVL EXTEND # ON TP, WE MUST LOAD THE Y COMPONENT
049005,000612: 6560 50116 INDEX ADDRWD # BEFORE STORING MPAC +2 IN CASE THIS IS A
049006,000613: 6561 30003 DCA 2 # PUSHUP.
049007,000614: 6562 52160 DXCH MPAC +3
049008,000615:
049009,000616: 6563 30156 CA MPAC +2
049010,000617: 6564 50166 INDEX PUSHLOC # IN DP.
049011,000618: 6565 53777 TS 0 -1
049012,000619: 6566 16464 TCF ENDVLOAD +4
049013,000620:
049014,000621: # SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
049015,000622:
049016,000623: 6567 24164 SSP INCR LOC # PICK UP THE WORD FOLLOWING THE GIVEN
049017,000624: 6570 50164 INDEX LOC # ADDRESS AND STORE IT AT X.
049018,000625: 6571 30000 CA 0
049019,000626: 6572 50116 STORE1 INDEX ADDRWD # SOME INDEX AND MISCELLANEOUS OPS END
049020,000627: 6573 54000 TS 0 # HERE.
![]() |
Page 1128 |
049022,000629: 6574 16030 TCF DANZIG
049023,000630:
![]() |
Page 1129 |
049025,000632: # SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
049026,000633:
049027,000634: # THE FOLLOWING OPERATIONS ARE AVAILABLE FOR SEQUENCING CHANGING, BRANCHING, AND CALLING SUBROUTINES:
049028,000635:
049029,000636: # 1. GOTO GO TO.
049030,000637: # 2. CALL CALL SUBROUTINE SETTING QPRET.
049031,000638: # 3. CGOTO COMPUTED GO TO.
049032,000639: # 4. CCALL COMPUTED CALL.
049033,000640: # 7. BPL BRANCH IF MPAC POSITIVE OR ZERO.
049034,000641: # 8. BZE BRANCH IF MPAC ZERO.
049035,000642: # 9. BMN BRANCH IF MPAC NEGATIVE NON-ZERO.
049036,000643:
049037,000644: 6575 24164 CCALL INCR LOC # MAINTAIN LOC FOR QPRET COMPUTATION.
049038,000645: 6576 50164 INDEX LOC
049039,000646: 6577 30000 CAF 0 # GET BASE ADDRESS OF CADR LIST.
049040,000647: 6600 50116 INDEX ADDRWD
049041,000648: 6601 60000 AD 0 # ADD INCREMENT.
049042,000649: 6602 54004 TS FBANK # SELECT DESIRED CADR.
049043,000650: 6603 75041 MASK LOW10
049044,000651: 6604 50000 INDEX A
049045,000652: 6605 32000 CAF 10000
049046,000653: 6606 54117 TS POLISH
049047,000654:
049048,000655: 6607 30165 CALL CA BANKSET # FOR ANY OF THE CALL OPTIONS, MAKE UP THE
049049,000656: 6610 74344 MASK BANKMASK # ADDRESS OF THE NEXT OP-CODE PAIR/STORE
049050,000657: 6611 64344 AD BANKMASK # CODE AND LEAVE IT IN QPRET. NOTE THAT
049051,000658: 6612 60164 AD LOC # BANKMASK = -(2000 - 1).
049052,000659: 6613 50120 INDEX FIXLOC
049053,000660: 6614 54052 TS QPRET
049054,000661:
049055,000662: 6615 30117 GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
049056,000663: 6616 77675 +1 MASK HIGH4
049057,000664: 6617 00006 EXTEND
049058,000665: 6620 16631 BZF GOTOERS # SEE IF ADDRESS POINTS TO FIXED OR ERAS.
049059,000666: 6621 30165 +4 CA BANKSET # SET EBANK PART OF BBANK. NEXT, SET UP
049060,000667: 6622 54006 TS BBANK # FBANK. THE COMBINATION IS PICKED UP &
049061,000668: 6623 30117 CA POLISH # PUT INTO BANKSET AT INTPRET +2.
049062,000669: 6624 54004 TS FBANK
049063,000670: 6625 75041 MASK LOW10
049064,000671: 6626 64756 AD 2K
049065,000672: 6627 54164 TS LOC
049066,000673: 6630 16011 TCF INTPRET +3
049067,000674:
049068,000675: 6631 E3,1400 EBANK= 1400 # SO YUL DOESN'T CUSS THE "CA 1400" BELOW.
049069,000676:
049070,000677: 6631 30117 GOTOERS CA POLISH # THE GIVEN ADDRESS IS IN ERASABLE - SEE
049071,000678: 6632 66220 AD -ENDVAC # IF RELATIVE TO THE WORK AREA.
049072,000679: 6633 10000 CCS A
049073,000680: 6634 30117 CA POLISH # GENERAL ERASABLE.
049074,000681: 6635 16644 TCF GOTOGE
![]() |
Page 1130 |
049076,000683: 6636 30120 CA FIXLOC # WORK AREA.
049077,000684: 6637 60117 AD POLISH
049078,000685: 6640 50000 INDEX A # USE THE GIVEN ADDRESS AS THE ADDRESS OF
049079,000686: 6641 30000 CA 0 # THE BRANCH ADDRESS.
049080,000687: 6642 54117 TS POLISH
049081,000688: 6643 16616 TCF GOTO +1 # ALLOWS ARBITRARY INDIRECTNESS LEVELS.
049082,000689:
049083,000690: 6644 54003 GOTOGE TS EBANK
049084,000691: 6645 74350 MASK LOW8
049085,000692: 6646 50000 INDEX A # USE THE GIVEN ADDRESS AS THE ADDRESS OF
049086,000693: 6647 31400 CA 1400 # THE BRANCH ADDRESS.
049087,000694: 6650 54117 TS POLISH
049088,000695: 6651 16616 TCF GOTO +1
049089,000696:
049090,000697: 6652 50164 CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
049091,000698: 6653 30001 CA 1 # LIST.
049092,000699: 6654 50116 INDEX ADDRWD # ADD MODIFIER.
049093,000700: 6655 60000 AD 0
049094,000701: 6656 54004 TS FBANK # SELECT GOTO ADDRESS.
049095,000702: 6657 75041 MASK LOW10
049096,000703: 6660 50000 INDEX A
049097,000704: 6661 32000 CA 10000
049098,000705: 6662 54117 TS POLISH
049099,000706: 6663 16616 TCF GOTO +1 # WITH ADDRESS IN A.
049100,000707:
049101,000708: 6664 30165 SWBRANCH CA BANKSET # SWITCH INSTRUCTIONS WHICH ELECT TO
049102,000709: 6665 54004 TS FBANK # BRANCH COME HERE TO DO SO.
049103,000710: 6666 50164 INDEX LOC
049104,000711: 6667 30001 CA 1
049105,000712: 6670 54117 TS POLISH
049106,000713: 6671 16616 TCF GOTO +1
049107,000714:
![]() |
Page 1131 |
049109,000716: # TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
049110,000717:
049111,000718: # L+1 IF MPAC IS GREATER THAN ZERO.
049112,000719: # L+2 IF MPAC IS EQUAL TO +0 OR -0.
049113,000720: # L+3 IF MPAC IS LESS THAN ZERO.
049114,000721:
049115,000722: 6672 10154 BRANCH CCS MPAC
049116,000723: 6673 00002 TC Q
049117,000724: 6674 16676 TCF +2 # ON ZERO.
049118,000725: 6675 16710 TCF NEG
049119,000726:
049120,000727: 6676 10155 CCS MPAC +1
049121,000728: 6677 00002 TC Q
049122,000729: 6700 16702 TCF +2
049123,000730: 6701 16710 TCF NEG
049124,000731:
049125,000732: 6702 10156 CCS MPAC +2
049126,000733: 6703 00002 TC Q
049127,000734: 6704 16706 TCF +2
049128,000735: 6705 16710 TCF NEG
049129,000736:
049130,000737: 6706 50002 Q+1 INDEX Q
049131,000738: 6707 00001 TC 1
049132,000739:
049133,000740: 6710 50002 NEG INDEX Q # IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
049134,000741: 6711 00002 TCQ TC 2
049135,000742:
049136,000743: 6712 6710 Q+2 = NEG
049137,000744:
049138,000745: # ITRACE (3) REFERS TO "EXIT".
049139,000746:
049140,000747: 6712 30165 EXIT CA BANKSET # RESTORE USER'S BANK SETTING, AND LEAVE
049141,000748: 6713 54006 TS BBANK # INTERPRETIVE MODE.
049142,000749: 6714 50164 INDEX LOC
049143,000750: 6715 00001 TC 1
049144,000751:
![]() |
Page 1132 |
049146,000753: # SECTION 3 - ADD/SUBTRACT PACKAGE.
049147,000754:
049148,000755: # THE FOLLOWING OPERATIONS ARE PROVIDED FOR ADDING TO AND SUBTRACTING FROM THE MULTI-PURPOSE ACCUMULATOR
049149,000756: # MPAC:
049150,000757:
049151,000758: # 1. DAD DOUBLE PRECISION ADD.
049152,000759: # 2. DSU DOUBLE PRECISION SUBTRACT.
049153,000760: # 3. BDSU DOUBLE PRECISION SUBTRACT FROM.
049154,000761:
049155,000762: # 4. TAD TRIPLE PRECISION ADD.
049156,000763:
049157,000764: # 5. VAD VECTOR ADD.
049158,000765: # 6. VSU VECTOR SUBTRACT.
049159,000766: # 7. BVSU VECTOR SUBTRACT FROM.
049160,000767:
049161,000768: # THE INTERPRETIVE OVERFLOW INDICATOR OVFIND IS SET NON-ZERO IF OVERFLOW OCCURS IN ANY OF THE ABOVE.
049162,000769:
049163,000770: 6716 34752 VSU CAF BIT15 # CHANGES 0 TO DCS.
049164,000771: 6717 16721 TCF +2
049165,000772:
049166,000773: 6720 34346 VAD CAF PRIO30 # CHANGES 0 TO DCA.
049167,000774: 6721 26116 ADS ADDRWD
049168,000775: 6722 00006 EXTEND
049169,000776: 6723 50116 INDEX ADDRWD
049170,000777: 6724 00003 READ HISCALAR # DCA 2 OR DCS 2
049171,000778: 6725 20160 DAS MPAC +3
049172,000779: 6726 00006 EXTEND # CHECK OVERFLOW.
049173,000780: 6727 16731 BZF +2
049174,000781: 6730 06763 TC OVERFLWY
049175,000782:
049176,000783: 6731 00006 EXTEND
049177,000784: 6732 50116 INDEX ADDRWD
049178,000785: 6733 00005 READ CHAN5 # DCA 4 OR DCS 4
049179,000786: 6734 20162 DAS MPAC +5
049180,000787: 6735 00006 EXTEND
049181,000788: 6736 16740 BZF +2
049182,000789: 6737 06760 TC OVERFLWZ
049183,000790:
049184,000791: 6740 00006 EXTEND
049185,000792: 6741 50116 INDEX ADDRWD
049186,000793: 6742 00001 READ LCHAN # DCA 0 OR DCS 0
049187,000794: 6743 16747 TCF ENDVXV
049188,000795:
049189,000796: 6744 00006 DAD EXTEND
049190,000797: 6745 50116 INDEX ADDRWD
049191,000798: 6746 30001 DCA 0
049192,000799: 6747 20155 ENDVXV DAS MPAC # VXV FINISHES HERE.
049193,000800: 6750 00006 EXTEND
049194,000801: 6751 16030 BZF DANZIG
049195,000802:
![]() |
Page 1133 |
049197,000804: 6752 06766 SETOVF TC OVERFLOW
049198,000805: 6753 16030 TCF DANZIG
049199,000806:
![]() |
Page 1134 |
049201,000808: 6754 00006 DSU EXTEND
049202,000809: 6755 50116 INDEX ADDRWD
049203,000810: 6756 40001 DCS 0
049204,000811: 6757 16747 TCF ENDVXV
049205,000812:
049206,000813: 6760 54001 OVERFLWZ TS L # ENTRY FOR THIRD COMPONENT.
049207,000814: 6761 34773 CAF FIVE
049208,000815: 6762 16765 TCF +3
049209,000816:
049210,000817: 6763 54001 OVERFLWY TS L # ENTRY FOR SECOND COMPONENT.
049211,000818: 6764 36214 CAF THREE
049212,000819: 6765 56001 XCH L
049213,000820:
049214,000821: 6766 50000 OVERFLOW INDEX A # ENTRY FOR 1ST COMP OR DP (L=0).
049215,000822: 6767 44751 CS LIMITS # PICK UP POSMAX OR NEGMAX.
049216,000823: 6770 54130 TS BUF
049217,000824: 6771 00006 EXTEND
049218,000825: 6772 24000 AUG A
049219,000826: 6773 50001 INDEX L
049220,000827: 6774 26155 ADS MPAC +1
049221,000828: 6775 54007 TS 7
049222,000829: 6776 34772 CAF ZERO
049223,000830: 6777 60130 AD BUF
049224,000831: 7000 50001 INDEX L
049225,000832: 7001 26154 ADS MPAC
049226,000833: 7002 54007 TS 7
049227,000834: 7003 00002 TC Q # NO OVERFLOW EXIT.
049228,000835: 7004 17121 TCF SETOVF2 # SET OVFIND AND EXIT.
049229,000836:
049230,000837: 7005 00006 BVSU EXTEND
049231,000838: 7006 50116 INDEX ADDRWD
049232,000839: 7007 30003 DCA 2
049233,000840: 7010 52160 DXCH MPAC +3
049234,000841: 7011 00006 EXTEND
049235,000842: 7012 40001 DCOM
049236,000843: 7013 20160 DAS MPAC +3
049237,000844: 7014 00006 EXTEND
049238,000845: 7015 17017 BZF +2
049239,000846: 7016 06763 TC OVERFLWY
049240,000847:
049241,000848: 7017 00006 EXTEND
049242,000849: 7020 50116 INDEX ADDRWD
049243,000850: 7021 30005 DCA 4
049244,000851: 7022 52162 DXCH MPAC +5
049245,000852: 7023 00006 EXTEND
049246,000853: 7024 40001 DCOM
049247,000854: 7025 20162 DAS MPAC +5
049248,000855: 7026 00006 EXTEND
049249,000856: 7027 17031 BZF +2
049250,000857: 7030 06760 TC OVERFLWZ
049251,000858:
![]() |
Page 1135 |
049253,000860: 7031 00006 BDSU EXTEND
049254,000861: 7032 50116 INDEX ADDRWD
049255,000862: 7033 30001 DCA 0
049256,000863: 7034 52155 DXCH MPAC
049257,000864: 7035 00006 EXTEND
049258,000865: 7036 40001 DCOM
049259,000866: 7037 16747 TCF ENDVXV
049260,000867:
![]() |
Page 1136 |
049262,000869: # TRIPLE PRECISION ADD ROUTINE.
049263,000870:
049264,000871: 7040 00006 TAD EXTEND
049265,000872: 7041 50116 INDEX ADDRWD
049266,000873: 7042 30002 DCA 1 # ADD MINOR PARTS FIRST.
049267,000874: 7043 20156 DAS MPAC +1
049268,000875: 7044 50116 INDEX ADDRWD
049269,000876: 7045 60000 AD 0
049270,000877: 7046 60154 AD MPAC
049271,000878: 7047 54154 TS MPAC
049272,000879: 7050 16030 TCF DANZIG
049273,000880:
049274,000881: 7051 16752 TCF SETOVF # SET OVFIND IF SUCH OCCURS.
049275,000882:
![]() |
Page 1137 |
049277,000884: # ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
049278,000885:
049279,000886: # 1. DMPSUB DOUBLE PRECISION MULTIPLY. MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
049280,000887: # IS IN ADDRWD AND LEAVE A TRIPLE PRECISION RESULT IN MPAC.
049281,000888: # 2. ROUNDSUB ROUND THE TRIPLE PRECISON CONTENTS OF MPAC TO DOUBLE PRECISION.
049282,000889: # 3. DOTSUB TAKE THE DOT PRODUCT OF THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADDRWD
049283,000890: # AND LEAVE THE TRIPLE PRECISION RESULT IN MPAC.
049284,000891: # 4. POLY USING THE CONTENTS OF MPAC AS A DP ARGUMENT, EVALUATE THE POLYNOMIAL WHOSE DEGREE AND
049285,000892: # COEFFICIENTS IMMEDIATELY FOLLOW THE TC POLY INSTRUCTION (SEE ROUTINE FOR DETAILS.)
049286,000893:
049287,000894: 7052 50002 DMP INDEX Q # BASIC SUBROUTINE FOR USE BY PINBALL, ETC
049288,000895: 7053 30000 CAF 0 # ADRES OF ARGUMENT FOLLOWS TC DMP .
049289,000896: 7054 24002 INCR Q
049290,000897: 7055 54116 -1 TS ADDRWD # (PROLOGUE FOR SETTING ADDRWD.)
049291,000898:
049292,000899: 7056 50116 DMPSUB INDEX ADDRWD # GET MINOR PART OF OPERAND AT C(ADDRWD).
049293,000900: 7057 30001 CA 1
049294,000901: 7060 54156 TS MPAC +2 # THIS WORKS FOR SQUARING MPAC AS WELL.
049295,000902: 7061 34772 CAF ZERO # SET MPAC +1 TO ZERO SO WE CAN ACCUMULATE
049296,000903: 7062 56155 XCH MPAC +1 # THE PARTIAL PRODUCTS WITH DAS
049297,000904: 7063 54135 TS MPTEMP # INSTRUCTIONS.
049298,000905: 7064 00006 EXTEND
049299,000906: 7065 70156 MP MPAC +2 # MINOR OF MPAC X MINOR OF C(ADDRWD).
049300,000907:
049301,000908: 7066 56156 XCH MPAC +2 # DISCARD MINOR PART OF ABOVE RESULT AND
049302,000909: 7067 00006 EXTEND # FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
049303,000910: 7070 70154 MP MPAC
049304,000911: 7071 20156 DAS MPAC +1 # GUARANTEED NO OVERFLOW.
049305,000912:
049306,000913: 7072 50116 INDEX ADDRWD # GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
049307,000914: 7073 30000 CA 0
049308,000915: 7074 56135 XCH MPTEMP # SAVE AND BRING OUT MINOR OF MPAC.
049309,000916: 7075 00006 DMPSUB2 EXTEND
049310,000917: 7076 70135 MP MPTEMP # MAJOR OF C(ADDRWD) X MINOR OF MPAC.
049311,000918: 7077 20156 DAS MPAC +1 # ACCUMULATE, SETTING A TO NET OVERFLOW.
049312,000919:
049313,000920: 7100 56154 XCH MPAC # SETTING MPAC TO 0 OR +-1.
049314,000921: 7101 00006 EXTEND
049315,000922: 7102 70135 MP MPTEMP # MAJOR OF MPAC X MAJOR OF C(ADDRWD).
049316,000923: 7103 20155 DAS MPAC # GUARANTEED NO OVERFLOW.
049317,000924: 7104 00002 TC Q # 49 MCT = .573 MS. INCLUDING RETURN.
049318,000925:
![]() |
Page 1138 |
049320,000927: # ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
049321,000928:
049322,000929: 7105 34772 ROUNDSUB CAF ZERO # SET MPAC +2 = 0 FOR SCALARS AND CHANGE
049323,000930: 7106 54163 +1 TS MODE # MODE TO DP.
049324,000931:
049325,000932: 7107 56156 VROUND XCH MPAC +2 # BUT WE NEEDNT TAKE THE TIME FOR VECTORS.
049326,000933: 7110 60000 DOUBLE
049327,000934: 7111 54001 TS L
049328,000935: 7112 00002 TC Q
049329,000936:
049330,000937: 7113 60155 AD MPAC +1 # ADD ROUNDING BIT IF MPAC +2 WAS GREATER
049331,000938: 7114 54155 TS MPAC +1 # THAN .5 IN MAGNITUDE.
049332,000939: 7115 00002 TC Q
049333,000940:
049334,000941: 7116 60154 AD MPAC # PROPAGATE INTERFLOW.
049335,000942: 7117 54154 TS MPAC
049336,000943: 7120 00002 TC Q
049337,000944:
049338,000945: 7121 54121 SETOVF2 TS OVFIND # (RARE).
049339,000946: 7122 00002 TC Q
049340,000947:
![]() |
Page 1139 |
049342,000949: # THE DOT PRODUCT SUBROUTINE USUALLY FORMS THE DOT PRODUCT OF THE VECTOR IN MPAC WITH A STANDARD SIX
049343,000950: # REGISTER VECTOR WHOSE ADDRESS IS IN ADDRWD. IN THIS CASE C(DOTINC) ARE SET TO 2. VXM, HOWEVER, SETS C(DOTINC) TO
049344,000951: # 6 SO THAT DOTSUB DOTS MPAC WITH A COLUMN VECTOR OF THE MATRIX IN QUESTION IN THIS CASE.
049345,000952:
049346,000953: 7123 34767 PREDOT CAF TWO # PROLOGUE TO SET DOTINC TO 2.
049347,000954: 7124 54136 TS DOTINC
049348,000955:
049349,000956: 7125 00006 DOTSUB EXTEND
049350,000957: 7126 22137 QXCH DOTRET # SAVE RETURN.
049351,000958: 7127 07056 TC DMPSUB # DOT X COMPONENTS.
049352,000959: 7130 52160 DXCH MPAC +3 # POSITION Y COMPONENT OF MPAC FOR
049353,000960: 7131 52155 DXCH MPAC # MULTIPLICATION WHILE SAVING RESULT IN
049354,000961: 7132 52131 DXCH BUF # THREE WORD BUFFER, BUF.
049355,000962: 7133 30156 CA MPAC +2
049356,000963: 7134 54132 TS BUF +2
049357,000964:
049358,000965: 7135 30136 CA DOTINC # ADVANCE ADDRWD TO Y COMPONENT OF
049359,000966: 7136 26116 ADS ADDRWD # OTHER ARGUMENT.
049360,000967: 7137 07056 TC DMPSUB
049361,000968: 7140 52156 DXCH MPAC +1 # ACCUMULATE PARTIAL PRODUCTS.
049362,000969: 7141 20132 DAS BUF +1
049363,000970: 7142 60154 AD MPAC
049364,000971: 7143 60130 AD BUF
049365,000972: 7144 54130 TS BUF
049366,000973: 7145 17147 TCF +2
049367,000974: 7146 54121 TS OVFIND # IF OVERFLOW OCCURS.
049368,000975:
049369,000976: 7147 52162 DXCH MPAC +5 # MULTIPLY Z COMPONENTS.
049370,000977: 7150 52155 DXCH MPAC
049371,000978: 7151 30136 CA DOTINC
049372,000979: 7152 26116 ADS ADDRWD
049373,000980: 7153 07056 TC DMPSUB
049374,000981: 7154 52132 ENDDOT DXCH BUF +1 # LEAVE FINAL ACCUMULATION IN MPAC.
049375,000982: 7155 20156 DAS MPAC +1
049376,000983: 7156 60154 AD MPAC
049377,000984: 7157 60130 AD BUF
049378,000985: 7160 54154 TS MPAC
049379,000986: 7161 00137 TC DOTRET
049380,000987:
049381,000988: 7162 06766 TC OVERFLOW # ON OVERFLOW HERE.
049382,000989: 7163 00137 TC DOTRET
049383,000990:
![]() |
Page 1140 |
049385,000992: # DOUBLE PRECISION POLYNOMIAL EVALUATOR
049386,000993:
049387,000994: # N N-1
049388,000995: # THIS ROUTINE EVALUATES A X + A X + ... + A X + A LEAVING THE DP RESULT IN MPAC ON EXIT.
049389,000996: # N N-1 1 0
049390,000997:
049391,000998: # THE ROUTINE HAS TWO ENTRIES
049392,000999:
049393,001000: # 1. ENTRY THRU POWRSERS. THE COEFFICIENTS MAY BE EITHER IN FIXED OR ERASABLE, THE CALL IS BY
049394,001001: # TC POWRSERS, AND THE RETURN IS TO LOC(TC POWRSERS)+1. THE ENTERING DATA MUST BE AS FOLLOWS
049395,001002:
049396,001003: # A SP LOC-3 ADDRESS FOR REFERENCING COEF TABLE
049397,001004: # L SP N-1 N IS THE DEGREE OF THE POWER SERIES
049398,001005: # MPAC DP X ARGUMENT
049399,001006:
049400,001007: # LOC-2N DP A(0)
049401,001008: # ...
049402,001009: # LOC DP A(N)
049403,001010:
049404,001011: # 2. ENTRY THRU POLY. THE CALL TO POLY AND THE ENTERING DATA MUST BE AS FOLLOWS
049405,001012:
049406,001013: # MPAC DP X ARGUMENT
049407,001014:
049408,001015: # LOC TC POLY
049409,001016: # LOC+1 SP N-1
049410,001017: # LOC+2 DP A(0)
049411,001018: # ...
049412,001019: # LOC+2N+2 DP A(N) RETURN IS TO LOC+2N+4
049413,001020:
049414,001021: 7164 00006 POWRSERS EXTEND
049415,001022: 7165 22141 QXCH POLYRET # RETURN ADDRESS
049416,001023: 7166 54117 TS POLISH # POWER SERIES ADDRESS
049417,001024: 7167 22140 LXCH POLYCNT # N-1 TO COUNTER
049418,001025: 7170 17201 TCF POLYCOM # SKIP SET UP BY POLY
049419,001026:
049420,001027: 7171 50002 POLY INDEX Q
049421,001028: 7172 30000 CAF 0
049422,001029: 7173 54140 TS POLYCNT # N-1 TO COUNTER
049423,001030: 7174 60000 DOUBLE
049424,001031: 7175 60002 AD Q
049425,001032: 7176 54117 TS POLISH # L(A(N))-3 TO POLISH
049426,001033: 7177 64773 AD FIVE
049427,001034: 7200 54141 TS POLYRET # STORE RETURN ADDRESS
049428,001035:
049429,001036: 7201 36242 POLYCOM CAF LVBUF # INCOMING X WILL BE MOVED TO VBUF, SO
049430,001037: 7202 54116 TS ADDRWD # SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
049431,001038:
049432,001039: 7203 00006 EXTEND
049433,001040: 7204 50117 INDEX POLISH
049434,001041: 7205 30004 DCA 3
![]() |
Page 1141 |
049436,001043: 7206 52155 DXCH MPAC # LOAD A(N) INTO MPAC,
049437,001044: 7207 52123 DXCH VBUF # SAVING X IN VBUF
049438,001045: 7210 17214 TCF POLY2
049439,001046:
049440,001047: 7211 54140 POLYLOOP TS POLYCNT # SAVE DECREMENTED LOOP COUNTER
049441,001048: 7212 44767 CS TWO
049442,001049: 7213 26117 ADS POLISH # REGRESS COEFFICIENT POINTER
049443,001050:
049444,001051: 7214 07056 POLY2 TC DMPSUB # MULTIPLY BY X
049445,001052: 7215 00006 EXTEND
049446,001053: 7216 50117 INDEX POLISH
049447,001054: 7217 30002 DCA 1 # ADD IN NEXT COEFFICIENT
049448,001055: 7220 20155 DAS MPAC # USERS RESPONSIBILITY TO ASSURE NO OVFLOW
049449,001056:
049450,001057: 7221 10140 CCS POLYCNT
049451,001058: 7222 17211 TCF POLYLOOP
049452,001059: 7223 00141 TC POLYRET # RETURN CALLER
049453,001060:
![]() |
Page 1142 |
049455,001062: # MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
049456,001063:
049457,001064: 7224 34772 DPAGREE CAF ZERO # DOUBLE PRECISION ENTRY -
049458,001065: 7225 54156 BUFAGREE TS MPAC +2 # ZERO LOW-ORDER WORD
049459,001066: 7226 22002 TPAGREE LXCH Q # FORCE SIGN AGREEMENT AMONG THE TRIPLE
049460,001067: 7227 06672 TC BRANCH # PRECISION CONTENTS OF MPAC. RETURNING
049461,001068: 7230 17234 TCF ARG+ # WITH SIGNUM OF THE INPUT IN A.
049462,001069: 7231 17254 TCF ARGZERO
049463,001070:
049464,001071: 7232 44750 CS POSMAX # IF NEGATIVE.
049465,001072: 7233 17235 TCF +2
049466,001073:
049467,001074: 7234 34750 ARG+ CAF POSMAX
049468,001075: 7235 54002 TS Q
049469,001076: 7236 00006 EXTEND
049470,001077: 7237 24000 AUG A # FORMS +-1.0.
049471,001078: 7240 60156 AD MPAC +2
049472,001079: 7241 54156 TS MPAC +2
049473,001080: 7242 34772 CAF ZERO
049474,001081: 7243 60002 AD Q
049475,001082: 7244 60155 AD MPAC +1
049476,001083: 7245 54155 TS MPAC +1
049477,001084: 7246 34772 CAF ZERO
049478,001085: 7247 60002 AD Q # Q STILL HAS POSMAX OR NEGMAX IN IT.
049479,001086: 7250 60154 AD MPAC
049480,001087: 7251 54154 ARGZERO2 TS MPAC # ALWAYS SKIPPING UNLESS ARGZERO.
049481,001088: 7252 54155 TS MPAC +1
049482,001089: 7253 00001 TC L # RETURN VIA L.
049483,001090:
049484,001091: 7254 54156 ARGZERO TS MPAC +2 # SET ALL THREE MPAC REGISTERS TO ZERO.
049485,001092: 7255 17251 TCF ARGZERO2
049486,001093:
049487,001094: # SHORTMP MULTIPLIES THE TP CONTENTS OF MPAC BY THE SINGLE PRECISION NUMBER ARRIVING IN A.
049488,001095:
049489,001096: 7256 54135 SHORTMP TS MPTEMP
049490,001097: 7257 00006 +1 EXTEND
049491,001098: 7260 70156 MP MPAC +2
049492,001099: 7261 54156 TS MPAC +2
049493,001100: 7262 34772 SHORTMP2 CAF ZERO # SO SUBSEQUENT DAS WILL WORK.
049494,001101: 7263 56155 XCH MPAC +1
049495,001102: 7264 17075 TCF DMPSUB2
049496,001103:
![]() |
Page 1143 |
049498,001105: # MISCELLANEOUS VECTOR OPERATIONS. INCLUDED HERE ARE THE FOLLOWING:
049499,001106:
049500,001107: # 1. DOT DP VECTOR DOT PRODUCT.
049501,001108: # 2. VXV DP VECTOR CROSS PRODUCT.
049502,001109: # 3. VXSC DP VECTOR TIMES SCALAR.
049503,001110: # 4. V/SC DP VECTOR DIVIDED BY SCALAR.
049504,001111: # 5. VPROJ DP VECTOR PROJECTION. ( (MPAC.X)MPAC ).
049505,001112: # 6. VXM DP VECTOR POST-MULTIPLIED BY MATRIX.
049506,001113: # 7. MXV DP VECTOR PRE-MULTIPLIED BY MATRIX.
049507,001114:
049508,001115: 7265 07123 DOT TC PREDOT # DO THE DOT PRODUCT AND EXIT, CHANGING
049509,001116: 7266 34772 DMODE CAF ZERO # THE MODE TO DP SCALAR.
049510,001117: 7267 16027 TCF NEWMODE
049511,001118:
049512,001119: 7270 34767 MXV CAF TWO # SET UP MATINC AND DOTINC FOR ROW
049513,001120: 7271 54140 TS MATINC # VECTORS.
049514,001121: 7272 17276 TCF VXM/MXV # GO TO COMMON PORTION.
049515,001122:
049516,001123: 7273 44355 VXM CS TEN # SET MATINC AND DOTINC TO REFER TO MATRIX
049517,001124: 7274 54140 TS MATINC # AS THREE COLUMN VECTORS.
049518,001125: 7275 36211 CAF SIX
049519,001126:
![]() |
Page 1144 |
049521,001128: # COMMON PORTION OF MXV AND VXM.
049522,001129:
049523,001130: 7276 54136 VXM/MXV TS DOTINC
049524,001131:
049525,001132: # ITRACE (2) REFERS TO "VXM/MXV".
049526,001133:
049527,001134: 7277 07466 TC MPACVBUF # SAVE VECTOR IN MPAC FOR FURTHER USE.
049528,001135:
049529,001136: 7300 07125 TC DOTSUB # GO DOT TO GET X COMPONENT OF ANSWER.
049530,001137: 7301 00006 EXTEND
049531,001138: 7302 30123 DCA VBUF # MOVE MPAC VECTOR BACK INTO MPAC, SAVING
049532,001139: 7303 52155 DXCH MPAC # NEW X COMPONENT IN BUF2.
049533,001140: 7304 52134 DXCH BUF2
049534,001141: 7305 00006 EXTEND
049535,001142: 7306 30125 DCA VBUF +2
049536,001143: 7307 52160 DXCH MPAC +3
049537,001144: 7310 00006 EXTEND
049538,001145: 7311 30127 DCA VBUF +4
049539,001146: 7312 52162 DXCH MPAC +5
049540,001147: 7313 30140 CA MATINC # INITIALIZE ADDRWD FOR NEXT DOT PRODUCT.
049541,001148: 7314 26116 ADS ADDRWD # FORMS BASE ADDRESS OF NEXT COLUMN(ROW).
049542,001149:
049543,001150: 7315 07125 TC DOTSUB
049544,001151: 7316 52123 DXCH VBUF # MOVE GIVEN VECTOR BACK TO MPAC, SAVING Y
049545,001152: 7317 52155 DXCH MPAC # COMPONENT OF ANSWER IN VBUF +2.
049546,001153: 7320 52125 DXCH VBUF +2
049547,001154: 7321 52160 DXCH MPAC +3
049548,001155: 7322 52127 DXCH VBUF +4
049549,001156: 7323 52162 DXCH MPAC +5
049550,001157: 7324 30140 CA MATINC # FORM ADDRESS OF LAST COLUMN OR ROW.
049551,001158: 7325 26116 ADS ADDRWD
049552,001159:
049553,001160: 7326 07125 TC DOTSUB
049554,001161: 7327 52134 DXCH BUF2 # ANSWER NOW COMPLETE. PUT COMPONENTS INTO
049555,001162: 7330 52155 DXCH MPAC # PROPER MPAC REGISTERS.
049556,001163: 7331 52162 DXCH MPAC +5
049557,001164: 7332 52125 DXCH VBUF +2
049558,001165: 7333 52160 DXCH MPAC +3
049559,001166: 7334 16030 TCF DANZIG # EXIT.
049560,001167:
![]() |
Page 1145 |
049562,001169: # VXSC - VECTOR TIMES SCALAR.
049563,001170:
049564,001171: 7335 10163 VXSC CCS MODE # TEST PRESENT MODE.
049565,001172: 7336 17364 TCF DVXSC # SEPARATE ROUTINE WHEN SCALAR IS IN MPAC.
049566,001173: 7337 17364 TCF DVXSC
049567,001174:
049568,001175: 7340 07056 VVXSC TC DMPSUB # COMPUTE X COMPONENT
049569,001176: 7341 07107 TC VROUND # AND ROUND IT.
049570,001177: 7342 52160 DXCH MPAC +3 # PUT Y COMPONENT INTO MPAC SAVING MPAC IN
049571,001178: 7343 52155 DXCH MPAC # MPAC +3.
049572,001179: 7344 52160 DXCH MPAC +3
049573,001180:
049574,001181: 7345 07056 TC DMPSUB # DO SAME FOR Y AND Z COMPONENTS.
049575,001182: 7346 07107 TC VROUND
049576,001183: 7347 52162 DXCH MPAC +5
049577,001184: 7350 52155 DXCH MPAC
049578,001185: 7351 52162 DXCH MPAC +5
049579,001186:
049580,001187: 7352 07056 TC DMPSUB
049581,001188: 7353 07107 TC VROUND
049582,001189: 7354 52155 VROTATEX DXCH MPAC # EXIT USED TO RESTORE MPAC AFTER THIS
049583,001190: 7355 52162 DXCH MPAC +5 # TYPE OF ROTATION. CALLED BY VECTOR SHIFT
049584,001191: 7356 52160 DXCH MPAC +3 # RIGHT, V/SC, ETC.
049585,001192: 7357 52155 DXCH MPAC
049586,001193: 7360 16030 TCF DANZIG
049587,001194:
![]() |
Page 1146 |
049589,001196: # DP VECTOR PROJECTION ROUTINE.
049590,001197:
049591,001198: 7361 07123 VPROJ TC PREDOT # (MPAC.X)MPAC IS COMPUTED AND LEFT IN
049592,001199: 7362 44766 CS FOUR # MPAC. DO DOT AND FALL INTO DVXSC.
049593,001200: 7363 26116 ADS ADDRWD
049594,001201:
049595,001202: # VXSC WHEN SCALAR ARRIVES IN MPAC AND VECTOR IS AT X.
049596,001203:
049597,001204: 7364 00006 DVXSC EXTEND # SAVE SCALAR IN MPAC +3 AND GET X
049598,001205: 7365 30155 DCA MPAC # COMPONENT OF ANSWER.
049599,001206: 7366 52160 DXCH MPAC +3
049600,001207: 7367 07056 TC DMPSUB
049601,001208: 7370 07107 TC VROUND
049602,001209:
049603,001210: 7371 34767 CAF TWO # ADVANCE ADDRWD TO Y COMPONENT OF X.
049604,001211: 7372 26116 ADS ADDRWD
049605,001212: 7373 00006 EXTEND
049606,001213: 7374 30160 DCA MPAC +3 # PUT SCALAR BACK INTO MPAC AND SAVE
049607,001214: 7375 52155 DXCH MPAC # X RESULT IN MPAC +5.
049608,001215: 7376 52162 DXCH MPAC +5
049609,001216: 7377 07056 TC DMPSUB
049610,001217: 7400 07107 TC VROUND
049611,001218:
049612,001219: 7401 34767 CAF TWO
049613,001220: 7402 26116 ADS ADDRWD # TO Z COMPONENT.
049614,001221: 7403 52160 DXCH MPAC +3 # BRING SCALAR BACK, PUTTING Y RESULT IN
049615,001222: 7404 52155 DXCH MPAC # THE PROPER PLACE.
049616,001223: 7405 52160 DXCH MPAC +3
049617,001224: 7406 07056 TC DMPSUB
049618,001225: 7407 07107 TC VROUND
049619,001226:
049620,001227: 7410 52155 DXCH MPAC # PUT Z COMPONENT IN PROPER PLACE, ALSO
049621,001228: 7411 52162 DXCH MPAC +5 # POSITIONING X.
049622,001229: 7412 52155 DXCH MPAC
049623,001230:
049624,001231: 7413 16470 TCF VMODE # MODE HAS CHANGED TO VECTOR.
049625,001232:
![]() |
Page 1147 |
049627,001234: # THE VECTOR CROSS PRODUCT ROUTINE CALCULATES (X M -X M ,X M -X M ,X M -X M ) WHERE M IS THE VECTOR IN
049628,001235: # 3 2 2 3 1 3 3 1 2 1 1 2
049629,001236: # MPAC AND X THE VECTOR AT THE GIVEN ADDRESS.
049630,001237:
049631,001238: 7414 00006 VXV EXTEND
049632,001239: 7415 30162 DCA MPAC +5 # FORM UP M3X1, LEAVING M1 IN VBUF.
049633,001240: 7416 52155 DXCH MPAC
049634,001241: 7417 52123 DXCH VBUF
049635,001242: 7420 07056 TC DMPSUB # BY X1.
049636,001243:
049637,001244: 7421 00006 EXTEND
049638,001245: 7422 40160 DCS MPAC +3 # CALCULATE -X1M2, SAVING X1M3 IN VBUF +2.
049639,001246: 7423 52155 DXCH MPAC
049640,001247: 7424 52125 DXCH VBUF +2
049641,001248: 7425 07056 TC DMPSUB
049642,001249:
049643,001250: 7426 34767 CAF TWO # ADVANCE ADDRWD TO X2.
049644,001251: 7427 26116 ADS ADDRWD
049645,001252: 7430 00006 EXTEND
049646,001253: 7431 40162 DCS MPAC +5 # PREPARE TO GET -X2M3, SAVING -X1M2 IN
049647,001254: 7432 52155 DXCH MPAC # MPAC +5.
049648,001255: 7433 52162 DXCH MPAC +5
049649,001256: 7434 07056 TC DMPSUB
049650,001257:
049651,001258: 7435 00006 EXTEND
049652,001259: 7436 30123 DCA VBUF # GET X2M1, SAVING -X2M3 IN VBUF +4.
049653,001260: 7437 52155 DXCH MPAC
049654,001261: 7440 52127 DXCH VBUF +4
049655,001262: 7441 07056 TC DMPSUB
049656,001263:
049657,001264: 7442 34767 CAF TWO # ADVANCE ADDRWD TO X3.
049658,001265: 7443 26116 ADS ADDRWD
049659,001266: 7444 00006 EXTEND
049660,001267: 7445 40123 DCS VBUF # GET -X3M1, ADDING X2M1 TO MPAC +5 TO
049661,001268: 7446 52155 DXCH MPAC # COMPLETE THE Z COMPONENT OF THE ANSWER.
049662,001269: 7447 20162 DAS MPAC +5
049663,001270:
049664,001271: 7450 00006 EXTEND
049665,001272: 7451 17453 BZF +2
049666,001273: 7452 06760 TC OVERFLWZ
049667,001274:
049668,001275: 7453 07056 TC DMPSUB
049669,001276: 7454 52125 DXCH VBUF +2 # MOVE X1M3 TO MPAC +3 SETTING UP FOR X3M2
049670,001277: 7455 52160 DXCH MPAC +3 # AND ADD -X3M1 TO MPAC +3 TO COMPLETE THE
049671,001278: 7456 52155 DXCH MPAC # Y COMPONENT OF THE RESULT.
049672,001279: 7457 20160 DAS MPAC +3
049673,001280:
049674,001281: 7460 00006 EXTEND
049675,001282: 7461 17463 BZF +2
![]() |
Page 1148 |
049677,001284: 7462 06763 TC OVERFLWY
049678,001285:
049679,001286: 7463 07056 TC DMPSUB
049680,001287: 7464 52127 DXCH VBUF +4 # GO ADD -X2M3 TO X3M2 TO COMPLETE THE X
049681,001288: 7465 16747 TCF ENDVXV # COMPONENT (TAIL END OF DAD).
049682,001289:
049683,001290: # THE MPACVBUF SUBROUTINE SAVES THE VECTOR IN MPAC IN VBUF WITHOUT CLOBBERING MPAC.
049684,001291:
049685,001292: 7466 00006 MPACVBUF EXTEND # CALLED BY MXV, VXM, AND UNIT.
049686,001293: 7467 30155 DCA MPAC
049687,001294: 7470 52123 DXCH VBUF
049688,001295: 7471 00006 EXTEND
049689,001296: 7472 30160 DCA MPAC +3
049690,001297: 7473 52125 DXCH VBUF +2
049691,001298: 7474 00006 EXTEND
049692,001299: 7475 30162 DCA MPAC +5
049693,001300: 7476 52127 DXCH VBUF +4
049694,001301: 7477 00002 TC Q # RETURN TO CALLER.
049695,001302:
049696,001303: # DOUBLE PRECISION SIGN AGREE ROUTINE. ARRIVE WITH INPUT IN A+L. OUTPUT IS IN A + L.
049697,001304:
049698,001305: 7500 10000 ALSIGNAG CCS A # TEST UPPER PART.
049699,001306: 7501 17505 TCF UPPOS # IT IS POSITIVE
049700,001307: 7502 00002 TC Q # ZERO
049701,001308: 7503 17515 TCF UPNEG # NEGATIVE
049702,001309: 7504 00002 TC Q # ZERO
049703,001310:
049704,001311: 7505 56001 UPPOS XCH L # SAVE DECREMENTED UPPER PART.
049705,001312: 7506 64753 AD HALF
049706,001313: 7507 64753 AD HALF
049707,001314: 7510 54000 TS A # SKIPS ON OVERFLOW
049708,001315: 7511 17513 TCF +2
049709,001316: 7512 24001 INCR L # RESTORE UPPER TO ROIGINAL VALUE
049710,001317: 7513 56001 XCH L # SWAP A + L BACK.
049711,001318: 7514 00002 TC Q
049712,001319:
049713,001320: 7515 56001 UPNEG XCH L # SAVE COMPLEMENTED + DECREMENTED UPPER PT
049714,001321: 7516 64752 AD NEGMAX
049715,001322: 7517 67702 AD NEGONE
049716,001323: 7520 54000 TS A
049717,001324: 7521 17523 TCF +2 # DONT INCREMENT IF NO OVERFLOW.
049718,001325: 7522 24001 INCR L
049719,001326: 7523 56001 XCH L
049720,001327: 7524 40000 COM # MAKE NEGATIVE AGAIN.
049721,001328: 7525 00002 TC Q
049722,001329:
![]() |
Page 1149 |
049724,001331: # INTERPRETIVE INSTRUCTIONS WHOSE EXECUTION CONSISTS OF PRINCIPALLY CALLING SUBROUTINES.
049725,001332:
049726,001333: 7526 07056 DMP1 TC DMPSUB # DMP INSTRUCTION.
049727,001334: 7527 16030 TCF DANZIG
049728,001335:
049729,001336: 7530 07056 DMPR TC DMPSUB
049730,001337: 7531 07106 TC ROUNDSUB +1 # (C(A) = +0).
049731,001338: 7532 16030 TCF DANZIG
049732,001339:
049733,001340: 7533 00006 DDV EXTEND
049734,001341: 7534 50116 INDEX ADDRWD # MOVE DIVIDEND INTO BUF.
049735,001342: 7535 30001 DCA 0
049736,001343: 7536 17543 TCF BDDV +4
049737,001344:
049738,001345: 7537 00006 BDDV EXTEND # MOVE DIVISOR INTO MPAC SAVING MPAC, THE
049739,001346: 7540 50116 INDEX ADDRWD # DIVIDEND, IN BUF.
049740,001347: 7541 30001 DCA 0
049741,001348: 7542 52155 DXCH MPAC
049742,001349: 7543 52131 +4 DXCH BUF
049743,001350: 7544 34772 CAF ZERO # DIVIDE ROUTINES IN BANK 0.
049744,001351: 7545 54004 TS FBANK
049745,001352: 7546 12353 TCF DDV/BDDV
049746,001353:
049747,001354: 7547 30116 SETPD CA ADDRWD # MUST SET TO WORK AREA, OR EBANK TROUBLE.
049748,001355: 7550 54166 TS PUSHLOC
049749,001356: 7551 16032 TCF NOIBNKSW # NO FBANK SWITCH REQUIRED.
049750,001357:
049751,001358: 7552 34772 TSLC CAF ZERO # SHIFTING ROUTINES LOCATED IN BANK 00.
049752,001359: 7553 54004 TS FBANK
049753,001360: 7554 12172 TCF TSLC2
049754,001361:
049755,001362: 7555 36043 GSHIFT CAF LOW7 # USED AS MASK AT GENSHIFT. THIS PROCESSES
049756,001363: 7556 54004 TS FBANK # ANY SHIFT INSTRUCTION (EXCEPT TSLC) WITH
049757,001364: 7557 12214 TCF GENSHIFT # AN ADDRESS (ROUTINES IN BANK 0).
049758,001365:
![]() |
Page 1150 |
049760,001367: # THE FOLLOWING IS THE PROLOGUE TO V/SC. IF THE PRESENT MODE IS VECTOR, IT SAVES THE SCALAR AT X IN BUF
049761,001368: # AND CALLS THE V/SC ROUTINE IN BANK 0. IF THE PRESENT MODE IS SCALAR, IT MOVES THE VECTOR AT X INTO MPAC, SAVING
049762,001369: # THE SCALAR IN MPAC IN BUF BEFORE CALLING THE V/SC ROUTINE IN BANK 0.
049763,001370:
049764,001371: 7560 10163 V/SC CCS MODE
049765,001372: 7561 17572 TCF DV/SC # MOVE VECTOR INTO MPAC.
049766,001373: 7562 17572 TCF DV/SC
049767,001374:
049768,001375: 7563 00006 VV/SC EXTEND
049769,001376: 7564 50116 INDEX ADDRWD
049770,001377: 7565 30001 DCA 0
049771,001378: 7566 52131 V/SC1 DXCH BUF # IN BOTH CASES, VECTOR IS NOW IN MPAC AND
049772,001379: 7567 34772 CAF ZERO # SCALAR IN BUF.
049773,001380: 7570 54004 TS FBANK
049774,001381: 7571 12653 TCF V/SC2
049775,001382:
049776,001383: 7572 00006 DV/SC EXTEND
049777,001384: 7573 50116 INDEX ADDRWD
049778,001385: 7574 30003 DCA 2
049779,001386: 7575 52160 DXCH MPAC +3
049780,001387: 7576 00006 EXTEND
049781,001388: 7577 50116 INDEX ADDRWD
049782,001389: 7600 30005 DCA 4
049783,001390: 7601 52162 DXCH MPAC +5
049784,001391:
049785,001392: 7602 44770 CS ONE # CHANGE MODE TO VECTOR.
049786,001393: 7603 54163 TS MODE
049787,001394:
049788,001395: 7604 00006 EXTEND
049789,001396: 7605 50116 INDEX ADDRWD
049790,001397: 7606 30001 DCA 0
049791,001398: 7607 52155 DXCH MPAC
049792,001399: 7610 17566 TCF V/SC1 # FINISH PROLOGUE AT COMMON SECTION.
049793,001400:
![]() |
Page 1151 |
049795,001402: # SIGN AND COMPLEMENT INSTRUCTIONS.
049796,001403:
049797,001404: 7611 50116 SIGN INDEX ADDRWD # CALL COMP INSTRUCTION IF WORD AT X IS
049798,001405: 7612 10000 CCS 0 # NEGATIVE NON-ZERO.
049799,001406: 7613 16030 TCF DANZIG
049800,001407: 7614 17616 TCF +2
049801,001408: 7615 17624 TCF COMP # DO THE COMPLEMENT.
049802,001409:
049803,001410: 7616 50116 INDEX ADDRWD
049804,001411: 7617 10001 CCSL CCS 1
049805,001412: 7620 16030 TCF DANZIG
049806,001413: 7621 16030 TCF DANZIG
049807,001414: 7622 17624 TCF COMP
049808,001415: 7623 16030 TCF DANZIG
049809,001416: 7624 00006 COMP EXTEND # COMPLEMENT DP MPAC IN EVERY CASE.
049810,001417: 7625 40155 DCS MPAC
049811,001418: 7626 52155 DXCH MPAC
049812,001419:
049813,001420: 7627 10163 CCS MODE # EITHER COMPLEMENT MPAC +3 OR THE REST OF
049814,001421: 7630 17641 TCF DCOMP # THE VECTOR ACCUMULATOR.
049815,001422: 7631 17641 TCF DCOMP
049816,001423:
049817,001424: 7632 00006 EXTEND # VECTOR COMPLEMENT.
049818,001425: 7633 40160 DCS MPAC +3
049819,001426: 7634 52160 DXCH MPAC +3
049820,001427: 7635 00006 EXTEND
049821,001428: 7636 40162 DCS MPAC +5
049822,001429: 7637 52162 DXCH MPAC +5
049823,001430: 7640 16030 TCF DANZIG
049824,001431:
049825,001432: 7641 40156 DCOMP CS MPAC +2
049826,001433: 7642 54156 TS MPAC +2
049827,001434: 7643 16030 TCF DANZIG
049828,001435:
![]() |
Page 1152 |
049830,001437: # THE FOLLOWING SHORT SHIFT CODES REQUIRE NO ADDRESS WORD:
049831,001438:
049832,001439: # 1. SR1 TO SR4 SCALAR SHIFT RIGHT.
049833,001440: # 2. SR1R TO SR4R SCALAR SHIFT RIGHT AND ROUND.
049834,001441: # 3. SL1 TO SL4 SCALAR SHIFT LEFT.
049835,001442: # 4. SL1R TO SL4R SCALAR SHIFT LEFT AND ROUND.
049836,001443:
049837,001444: # 5. VSR1 TO VSR8 VECTOR SHIFT RIGHT (ALWAYS ROUNDS).
049838,001445: # 6. VSL1 TO VSL8 VECTOR SHIFT LEFT (NEVER ROUNDS).
049839,001446:
049840,001447: # THE FOLLOWING CODES REQUIRE AN ADDRESS WHICH MAY BE INDEXED:*
049841,001448:
049842,001449: # 1. SR SCALAR SHIFT RIGHT.
049843,001450: # 2. SRR SCALAR SHIFT RIGHT AND ROUND.
049844,001451: # 3. SL SCALAR SHIFT LEFT.
049845,001452: # 4. SLR SCALAR SHIFT LEFT AND ROUND.
049846,001453:
049847,001454: # 5. VSR VECTOR SHIFT RIGHT.
049848,001455: # 6. VSL VECTOR SHIFT LEFT.
049849,001456:
049850,001457: # * IF THE ADDRESS IS INDEXED, AND THE INDEX MODIFICATION RESULTS IN A NEGATIVE SHIFT COUNT, A SHIFT OF THE
049851,001458: # ABSOLUTE VALUE OF THE COUNT IS DONE IN THE OPPOSITE DIRECTION.
049852,001459:
049853,001460: 00,2000 SETLOC INTERB0
049854,001461: 00,2000 BANK
049855,001462:
049856,001463: 00,2017 COUNT* $$/INTER
049857,001464: 00,2017 36211 SHORTT CAF SIX # SCALAR SHORT SHIFTS COME HERE. THE SHIFT
049858,001465: 00,2020 70020 MASK CYR # COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE
049859,001466: 00,2021 54021 TS SR # ROUNDING BIT IS IN BIT1 AT THIS POINT.
049860,001467:
049861,001468: 00,2022 10020 CCS CYR # SEE IF RIGHT OR LEFT SHIFT DESIRED.
049862,001469: 00,2023 12101 TCF TSSL # SHIFT LEFT.
049863,001470:
049864,001471: 00,2024 00024 SRDDV DEC 20 B-14 # MPTEMP SETTING FOR SR BEFORE DDV.
049865,001472:
049866,001473: 00,2025 50021 TSSR INDEX SR # GET SHIFTING BIT.
049867,001474: 00,2026 34753 CAF BIT14
049868,001475: 00,2027 54135 TS MPTEMP
049869,001476:
049870,001477: 00,2030 10020 CCS CYR # SEE IF A ROUND IS DESIRED.
049871,001478: 00,2031 02050 RIGHTR TC MPACSRND # YES - SHIFT RIGHT AND ROUND.
049872,001479: 00,2032 16027 TCF NEWMODE # SET MODE TO DP (C(A) = 0).
049873,001480: 00,2033 30135 MPACSHR CA MPTEMP # DO A TRIPLE PRECISION SHIFT RIGHT.
049874,001481: 00,2034 00006 EXTEND
049875,001482: 00,2035 70156 MP MPAC +2
049876,001483: 00,2036 54156 +3 TS MPAC +2 # (EXIT FROM SQRT AND ABVAL).
049877,001484: 00,2037 30135 CA MPTEMP
049878,001485: 00,2040 00006 EXTEND
![]() |
Page 1153 |
049880,001487: 00,2041 70154 MP MPAC # SHIFT MAJOR PART INTO A,L AND PLACE IN
049881,001488: 00,2042 52155 DXCH MPAC # MPAC,+1.
049882,001489: 00,2043 30135 CA MPTEMP
049883,001490: 00,2044 00006 EXTEND
049884,001491: 00,2045 70001 MP L # ORIGINAL C(MPAC +1).
049885,001492: 00,2046 20156 DAS MPAC +1 # GUARANTEED NO OVERFLOW.
049886,001493: 00,2047 16030 TCF DANZIG
049887,001494:
049888,001495: # MPAC SHIFT RIGHT AND ROUND SUBROUTINES.
049889,001496:
049890,001497: 00,2050 30156 MPACSRND CA MPAC +2 # WE HAVE TO DO ALL THREE MULTIPLIES SINCE
049891,001498: 00,2051 00006 EXTEND # MPAC +1 AND MPAC +2 MIGHT HAVE SIGN
049892,001499: 00,2052 70135 MP MPTEMP # DISAGREEMENT WITH A SHIFT RIGHT OF 1.
049893,001500: 00,2053 56155 XCH MPAC +1
049894,001501: 00,2054 00006 EXTEND
049895,001502: 00,2055 70135 MP MPTEMP
049896,001503: 00,2056 56155 XCH MPAC +1 # TRIAL MINOR PART.
049897,001504: 00,2057 60001 AD L
049898,001505:
049899,001506: 00,2060 60000 VSHR2 DOUBLE # (FINISH VECTOR COMPONENT SHIFT RIGHT
049900,001507: 00,2061 54156 TS MPAC +2 # AND ROUND.
049901,001508: 00,2062 12064 TCF +2
049902,001509: 00,2063 26155 ADS MPAC +1 # GUARANTEED NO OVERFLOW.
049903,001510:
049904,001511: 00,2064 34772 CAF ZERO
049905,001512: 00,2065 54156 TS MPAC +2
049906,001513: 00,2066 56154 XCH MPAC # SETTING TO ZERO SO FOLLOWING DAS WORKS.
049907,001514: 00,2067 00006 EXTEND
049908,001515: 00,2070 70135 MP MPTEMP
049909,001516: 00,2071 20155 DAS MPAC # AGAIN NO OVERFLOW.
049910,001517: 00,2072 00002 TC Q
049911,001518:
049912,001519: 00,2073 30135 VSHRRND CA MPTEMP # ENTRY TO SHIFT RIGHT AND ROUND MPAC WHEN
049913,001520: 00,2074 00006 EXTEND # MPAC CONTAINS A VECTOR COMPONENT.
049914,001521: 00,2075 70155 MP MPAC +1
049915,001522: 00,2076 54155 TS MPAC +1
049916,001523: 00,2077 56001 XCH L
049917,001524: 00,2100 12060 TCF VSHR2 # GO ADD ONE IF NECESSARY AND FINISH.
049918,001525:
![]() |
Page 1154 |
049920,001527: # ROUTINE FOR SHORT SCALAR SHIFT LEFT (AND MAYBE ROUND).
049921,001528:
049922,001529: 00,2101 30021 TSSL CA SR # GET SHIFT COUNT FOR SR.
049923,001530: 00,2102 54135 +1 TS MPTEMP
049924,001531:
049925,001532: 00,2103 00006 +2 EXTEND # ENTRY HERE FROM SL FOR SCALARS.
049926,001533: 00,2104 30156 DCA MPAC +1 # SHIFTING LEFT ONE PLACE AT A TIME IS
049927,001534: 00,2105 20156 DAS MPAC +1 # FASTER THAN DOING THE WHOLE SHIFT WITH
049928,001535: 00,2106 60154 AD MPAC # MULTIPLIES ASSUMING THAT FREQUENCY OF
049929,001536: 00,2107 60154 AD MPAC # SHIFT COUNTS GOES DOWN RAPIDLY AS A
049930,001537: 00,2110 54154 TS MPAC # FUNCTION OF THEIR MAGNITUDE.
049931,001538: 00,2111 12113 TCF +2
049932,001539: 00,2112 54121 TS OVFIND # OVERFLOW. (LEAVES OVERFLOW-CORRECTED
049933,001540: # RESULT ANYWAY).
049934,001541: 00,2113 10135 CCS MPTEMP # LOOP ON DECREMENTED SHIFT COUNT.
049935,001542: 00,2114 12102 TCF TSSL +1
049936,001543:
049937,001544: 00,2115 10020 CCS CYR # SEE IF ROUND WANTED.
049938,001545: 00,2116 07105 ROUND TC ROUNDSUB # YES - ROUND AND EXIT.
049939,001546: 00,2117 16030 TCF DANZIG # SL LEAVES A ZERO IN CYR FOR NO ROUND.
049940,001547: 00,2120 16030 TCF DANZIG # NO - EXIT IMMEDIATL
049941,001548:
![]() |
Page 1155 |
049943,001550: # VECTOR SHIFTING ROUTINES.
049944,001551:
049945,001552: 00,2121 34774 SHORTV CAF LOW3 # SAVE 3 BIT SHIFT COUNT - 1 WITHOUT
049946,001553: 00,2122 70020 MASK CYR # EDITING CYR.
049947,001554: 00,2123 54135 TS MPTEMP
049948,001555: 00,2124 10020 CCS CYR # SEE IF LEFT OR RIGHT SHIFT.
049949,001556: 00,2125 12145 TCF VSSL # VECTOR SHIFT LEFT.
049950,001557: 00,2126 00176 OCT176 OCT 176 # USED IN PROCESSED SHIFTS WITH - COUNT.
049951,001558:
049952,001559: 00,2127 50135 VSSR INDEX MPTEMP # (ENTRY FROM SR). PICK UP SHIFTING BIT.
049953,001560: 00,2130 34753 CAF BIT14 # MPTEMP CONTAINS THE SHIFT COUNT - 1.
049954,001561: 00,2131 54135 TS MPTEMP
049955,001562: 00,2132 02073 TC VSHRRND # SHIFT X COMPONENT.
049956,001563:
049957,001564: 00,2133 52155 DXCH MPAC # SWAP X AND Y COMPONENTS.
049958,001565: 00,2134 52160 DXCH MPAC +3
049959,001566: 00,2135 52155 DXCH MPAC
049960,001567: 00,2136 02073 TC VSHRRND # SHIFT Y COMPONENT.
049961,001568:
049962,001569: 00,2137 52155 DXCH MPAC # SWAP Y AND Z COMPONENTS.
049963,001570: 00,2140 52162 DXCH MPAC +5
049964,001571: 00,2141 52155 DXCH MPAC
049965,001572: 00,2142 02073 TC VSHRRND # SHIFT Z COMPONENT.
049966,001573:
049967,001574: 00,2143 17354 TCF VROTATEX # RESTORE COMPONENTS TO PROPER PLACES.
049968,001575:
![]() |
Page 1156 |
049970,001577: # VECTOR SHIFT LEFT - DONE ONE PLACE AT A TIME.
049971,001578:
049972,001579: 00,2144 54135 -1 TS MPTEMP # SHIFTING LOOP.
049973,001580:
049974,001581: 00,2145 00006 VSSL EXTEND
049975,001582: 00,2146 30155 DCA MPAC
049976,001583: 00,2147 20155 DAS MPAC
049977,001584: 00,2150 00006 EXTEND
049978,001585: 00,2151 12153 BZF +2
049979,001586: 00,2152 06766 TC OVERFLOW
049980,001587:
049981,001588: 00,2153 00006 EXTEND
049982,001589: 00,2154 30160 DCA MPAC +3
049983,001590: 00,2155 20160 DAS MPAC +3
049984,001591: 00,2156 00006 EXTEND
049985,001592: 00,2157 12161 BZF +2
049986,001593: 00,2160 06763 TC OVERFLWY
049987,001594:
049988,001595: 00,2161 00006 EXTEND
049989,001596: 00,2162 30162 DCA MPAC +5
049990,001597: 00,2163 20162 DAS MPAC +5
049991,001598: 00,2164 00006 EXTEND
049992,001599: 00,2165 12167 BZF +2
049993,001600: 00,2166 06760 TC OVERFLWZ
049994,001601:
049995,001602: 00,2167 10135 CCS MPTEMP # LOOP ON DECREMENTED SHIFT COUNTER.
049996,001603: 00,2170 12144 TCF VSSL -1
049997,001604: 00,2171 16030 TCF DANZIG # EXIT.
049998,001605:
![]() |
Page 1157 |
050000,001607: # TSLC - TRIPLE SHIFT LEFT AND COUNT. SHIFTS MPAC LEFT UNTIL GREATER THAN .5 IN MAGNITUDE, LEAVING
050001,001608: # THE COMPLEMENT OF THE NUMBER OF SHIFTS REQUIRED IN X.
050002,001609:
050003,001610: 00,2172 54135 TSLC2 TS MPTEMP # START BY ZEROING SHIFT COUNT (IN A NOW).
050004,001611: 00,2173 06672 TC BRANCH # EXIT WITH NO SHIFTING IF ARGUMENT ZERO.
050005,001612: 00,2174 12176 TCF +2
050006,001613: 00,2175 12212 TCF ENDTSLC # STORES ZERO SHIFT COUNT IN THIS CASE.
050007,001614:
050008,001615: 00,2176 07226 TC TPAGREE # MAY CAUSE UPSHIFT OF ONE EXTRA PLACE.
050009,001616:
050010,001617: 00,2177 30154 CA MPAC # BEGIN NORMALIZATION LOOP.
050011,001618: 00,2200 12207 TCF TSLCTEST
050012,001619:
050013,001620: 00,2201 24135 TSLCLOOP INCR MPTEMP # INCREMENT SHIFT COUNTER.
050014,001621: 00,2202 00006 EXTEND
050015,001622: 00,2203 30156 DCA MPAC +1
050016,001623: 00,2204 20156 DAS MPAC +1
050017,001624: 00,2205 60154 AD MPAC
050018,001625: 00,2206 26154 ADS MPAC
050019,001626: 00,2207 60000 TSLCTEST DOUBLE # SEE IF (ANOTHER) SHIFT IS REQUIRED.
050020,001627: 00,2210 54000 OVSK
050021,001628: 00,2211 12201 TCF TSLCLOOP # YES - INCREMENT COUNT AND SHIFT AGAIN.
050022,001629:
050023,001630: 00,2212 40135 ENDTSLC CS MPTEMP
050024,001631: 00,2213 16572 TCF STORE1 # STORE SHIFT COUNT AND RETURN TO DANZIG.
050025,001632:
![]() |
Page 1158 |
050027,001634: # THE FOLLOWING ROUTINES PROCESSES THE GENERAL SHIFT INSTRUCTIONS SR, SRR, SL, AND SLR.
050028,001635: # THE GIVEN ADDRESS IS DECODED AS FOLLOWS:
050029,001636:
050030,001637: # BITS 1-7 SHIFT COUNT (SUBADDRESS) LESS THAN 125 DECIMAL.
050031,001638: # BIT 8 PSEUDO SIGN BIT (DETECTS CHANGE IN SIGN IN INDEXED SHIFTS).
050032,001639: # BIT 9 0 FOR LEFT SHIFT, AND 1 FOR RIGHT SHIFT.
050033,001640: # BIT 10 1 FOR TERMINAL ROUND ON SCALAR SHIFTS, 0 OTHERWISE.
050034,001641: # BITS 11-13 0.
050035,001642: # BIT 14 1.
050036,001643: # BIT 15 0.
050037,001644:
050038,001645: # THE ABOVE ENCODING IS DONE BY THE YUL SYSTEM.
050039,001646:
050040,001647: 00,2214 70116 GENSHIFT MASK ADDRWD # GET SHIFT COUNT, TESTING FOR ZERO.
050041,001648: 00,2215 10000 CCS A # (ARRIVES WITH C(A) = LOW7).
050042,001649: 00,2216 12224 TCF GENSHFT2 # IF NON-ZERO, PROCEED WITH DECREMENTED CT
050043,001650:
050044,001651: 00,2217 34757 CAF BIT10 # ZERO SHIFT COUNT. NO SHIFTS NEEDED BUT
050045,001652: 00,2220 70116 MASK ADDRWD # WE MIGHT HAVE TO ROUND MPAC ON SLR AND
050046,001653: 00,2221 10000 CCS A # SRR (SCALAR ONLY).
050047,001654: 00,2222 07105 TC ROUNDSUB
050048,001655: 00,2223 16030 TCF DANZIG
050049,001656:
050050,001657: 00,2224 54135 GENSHFT2 TS MPTEMP # DECREMENTED SHIFT COUNT TO MPTEMP.
050051,001658: 00,2225 34761 CAF BIT8 # TEST MEANING OF LOW SEVEN BIT COUNT IN
050052,001659: 00,2226 00006 EXTEND # MPTEMP NOW.
050053,001660: 00,2227 70116 MP ADDRWD
050054,001661: 00,2230 76214 MASK LOW2 # JUMPS ON SHIFT DIRECTION (BIT8) AND
050055,001662: 00,2231 50000 INDEX A
050056,001663: 00,2232 12233 TCF +1 # ORIGINAL SHIFT DIRECTION (BIT 9).
050057,001664: 00,2233 12332 TCF RIGHT- # NEGATIVE SHIFT COUNT FOR SL OR SLR.
050058,001665: 00,2234 12342 TCF LEFT # SL OR SLR.
050059,001666: 00,2235 12336 TCF LEFT- # NEGATIVE SHIFT COUNT WITH SR OR SRR.
050060,001667:
![]() |
Page 1159 |
050062,001669: # GENERAL SHIFT RIGHT.
050063,001670:
050064,001671: 00,2236 10163 RIGHT CCS MODE # SEE IF VECTOR OR SCALAR.
050065,001672: 00,2237 12277 TCF GENSCR
050066,001673: 00,2240 12277 TCF GENSCR
050067,001674:
050068,001675: 00,2241 30135 CA MPTEMP # SEE IF SHIFT COUNT LESS THAN 14D.
050069,001676: 00,2242 63726 VRIGHT2 AD NEG12
050070,001677: 00,2243 00006 EXTEND
050071,001678: 00,2244 62127 BZMF VSSR # IF SO, BRANCH AND SHIFT IMMEDIATELY.
050072,001679:
050073,001680: 00,2245 67702 AD NEGONE # IF NOT, REDUCE MPTEMP BY A TOTAL OF 14,
050074,001681: 00,2246 54135 TS MPTEMP # AND DO A SHIFT RIGHT AND ROUND BY 14.
050075,001682: 00,2247 34772 CAF ZERO # THE ROUND AT THIS STAGE MAY INTRODUCE A
050076,001683: 00,2250 54001 TS L # ONE BIT ERROR IN A SHIFT RIGHT 15D.
050077,001684: 00,2251 56154 XCH MPAC
050078,001685: 00,2252 56155 XCH MPAC +1
050079,001686: 00,2253 02272 TC SETROUND # X COMPONENT NOW SHIFTED, SO MAKE UP THE
050080,001687: 00,2254 20155 DAS MPAC # ROUNDING QUANTITY (0 IN A AND 0 OR +-1
050081,001688: # IN L).
050082,001689: 00,2255 56157 XCH MPAC +3 # REPEAT THE ABOVE PROCESS FOR Y AND Z.
050083,001690: 00,2256 56160 XCH MPAC +4
050084,001691: 00,2257 02272 TC SETROUND
050085,001692: 00,2260 20160 DAS MPAC +3 # NO OVERFLOW ON THESE ADDS.
050086,001693:
050087,001694: 00,2261 56161 XCH MPAC +5
050088,001695: 00,2262 56162 XCH MPAC +6
050089,001696: 00,2263 02272 TC SETROUND
050090,001697: 00,2264 20162 DAS MPAC +5
050091,001698:
050092,001699: 00,2265 10135 CCS MPTEMP # SEE IF DONE, DOING FINAL DECREMENT.
050093,001700: 00,2266 54135 TS MPTEMP
050094,001701: 00,2267 12242 TCF VRIGHT2
050095,001702: 00,2270 04604 BIASLO DEC .2974 B-1 # SQRT CONSTANT
050096,001703:
050097,001704: 00,2271 16030 TCF DANZIG
050098,001705:
050099,001706: 00,2272 60000 SETROUND DOUBLE # MAKES UP ROUNDING QUANTITY FROM ARRIVING
050100,001707: 00,2273 54156 TS MPAC +2 # C(A). L IS ZERO INITIALLY.
050101,001708: 00,2274 34772 CAF ZERO
050102,001709: 00,2275 56001 XCH L
050103,001710: 00,2276 00002 TC Q # RETURN AND DO THE DAS, RESETTING L TO 0.
050104,001711:
![]() |
Page 1160 |
050106,001713: # PROCESS SR AND SRR FOR SCALARS.
050107,001714:
050108,001715: 00,2277 30135 GENSCR CA MPTEMP # SEE IF THE ORIGINAL SHIFT COUNT WAS LESS
050109,001716: 00,2300 63726 +1 AD NEG12 # THAN 14D.
050110,001717: 00,2301 00006 EXTEND
050111,001718: 00,2302 62322 BZMF DOSSHFT # DO THE SHIFT IMMEDIATELY IF SO.
050112,001719:
050113,001720: 00,2303 67702 +4 AD NEGONE # IF NOT, DECREMENT SHIFT COUNT BY 14D AND
050114,001721: 00,2304 54135 TS MPTEMP # SHIFT MPAC RIGHT 14 PLACES.
050115,001722: 00,2305 34772 CAF ZERO
050116,001723: 00,2306 56154 XCH MPAC
050117,001724: 00,2307 56155 XCH MPAC +1
050118,001725: 00,2310 54156 TS MPAC +2
050119,001726: 00,2311 10135 CCS MPTEMP # SEE IF FINISHED, DO FINAL DECREMENT.
050120,001727: 00,2312 54135 TS MPTEMP
050121,001728: 00,2313 02300 TC GENSCR +1
050122,001729: 00,2314 22650 SLOPEHI DEC .5884 # SQRT CONSTANT.
050123,001730: 00,2315 34757 CAF BIT10 # FINISHED WITH SHIFT. SEE IF ROUND
050124,001731: 00,2316 70116 MASK ADDRWD # WANTED.
050125,001732: 00,2317 10000 CCS A
050126,001733: 00,2320 07105 TC ROUNDSUB
050127,001734: 00,2321 16030 TCF DANZIG # DO SO AND/OR EXIT.
050128,001735:
050129,001736: 00,2322 50135 DOSSHFT INDEX MPTEMP # PICK UP SHIFTING BIT.
050130,001737: 00,2323 34753 CAF BIT14
050131,001738: 00,2324 54135 TS MPTEMP
050132,001739: 00,2325 34757 CAF BIT10 # SEE IF TERMINAL ROUND DESIRED.
050133,001740: 00,2326 70116 MASK ADDRWD
050134,001741: 00,2327 10000 CCS A
050135,001742: 00,2330 12031 TCF RIGHTR # YES.
050136,001743: 00,2331 12033 TCF MPACSHR # JUST SHIFT RIGHT.
050137,001744:
![]() |
Page 1161 |
050139,001746: # PROCESS THE RIGHT- (SL(R) WITH A NEGATIVE COUNT), LEFT-, AND LEFT OPTIONS.
050140,001747:
050141,001748: 00,2332 40135 RIGHT- CS MPTEMP # GET ABSOLUTE VALUE - 1 OF SHIFT COUNT
050142,001749: 00,2333 62126 AD OCT176 # UNDERSTANDING THAT BIT8 (PSEUDO-SIGN)
050143,001750: 00,2334 54135 TS MPTEMP # WAS 1 INITIALLY.
050144,001751: 00,2335 12236 TCF RIGHT # DO NORMAL SHIFT RIGHT.
050145,001752:
050146,001753: 00,2336 42126 LEFT- CS OCT176 # SAME PROLOGUE TO LEFT FOR INDEXED RIGHT
050147,001754: 00,2337 60135 AD MPTEMP # SHIFTS WHOSE NET SHIFT COUNT IS NEGATIVE
050148,001755: 00,2340 40000 COM
050149,001756: 00,2341 54135 TS MPTEMP
050150,001757:
050151,001758: 00,2342 10163 LEFT CCS MODE # SINCE LEFT SHIFTING IS SONE ONE PLACE AT
050152,001759: 00,2343 12346 TCF GENSCL # A TIME, NO COMPARISON WITH 14 NEED BE
050153,001760: 00,2344 12346 TCF GENSCL # DONE. FOR SCALARS, SEE IF TERMINAL ROUND
050154,001761: 00,2345 12145 TCF VSSL # DESIRED. FOR VECTORS, SHIFT IMMEDIATELY.
050155,001762:
050156,001763: 00,2346 40116 GENSCL CS ADDRWD # PUT ROUNDING BIT (BIT 10 OF ADDRWD) INTO
050157,001764: 00,2347 00006 EXTEND # BIT 15 OF CYR WHERE THE ROUNDING BIT OF
050158,001765: 00,2350 74763 MP BIT6 # A SHORT SHIFT LEFT WOULD BE
050159,001766: 00,2351 54020 TS CYR
050160,001767: 00,2352 12103 TCF TSSL +2 # DO THE SHIFT.
050161,001768:
![]() |
Page 1162 |
050163,001770: # SCALAR DIVISION INSTRUCTIONS, DDV AND BDDV, ARE EXECUTED HERE. AT THIS POINT, THE DIVIDEND IS IN MPAC
050164,001771: # AND THE DIVISOR IN BUF.
050165,001772:
050166,001773: 00,2353 44770 DDV/BDDV CS ONE # INITIALIZATION.
050167,001774: 00,2354 54136 TS DVSIGN # +-1 FOR POSITIVE QUOTIENT - -0 FOR NEG.
050168,001775: 00,2355 54137 TS DVNORMCT # DIVIDEND NORMALIZATION COUNT.
050169,001776: 00,2356 54140 TS MAXDVSW # NEAR-ONE DIVIDE FLAG.
050170,001777:
050171,001778: 00,2357 10130 CCS BUF # FORCE BUF POSITIVE WITH THE MAJOR PART
050172,001779: 00,2360 12515 TCF BUFPOS # NON-ZERO.
050173,001780: 00,2361 12363 TCF +2
050174,001781: 00,2362 12530 TCF BUFNEG
050175,001782:
050176,001783: 00,2363 07225 BUFZERO TC BUFAGREE
050177,001784: 00,2364 10154 CCS MPAC # TEST TO SEE IF MPAC NON-ZERO. (TOO BIG)
050178,001785: 00,2365 12413 TCF OVF+ # MAJOR PART OF DIVIDEND IS POSITIVE NON-0
050179,001786: 00,2366 12370 TCF +2
050180,001787: 00,2367 12412 TCF OVF+ -1 # MAJOR PART OF DIVIDEND IS NEG. NON-ZERO
050181,001788:
050182,001789: 00,2370 56131 XCH BUF +1 # SHIFT DIVIDEND AND DIVISOR LEFT 14.
050183,001790: 00,2371 56130 XCH BUF
050184,001791: 00,2372 56155 XCH MPAC +1
050185,001792: 00,2373 56154 XCH MPAC
050186,001793: 00,2374 10130 CCS BUF # TRY AGAIN ON FORMER MINOR PART.
050187,001794: 00,2375 12421 TCF BUF+
050188,001795: 00,2376 12400 TCF +2 # OVERFLOW ON ZERO DIVISOR.
050189,001796: 00,2377 12415 TCF BUF-
050190,001797:
050191,001798: 00,2400 40154 CS MPAC # SIGN OF MPAC DETERMINES SIGN OF RESULT.
050192,001799: 00,2401 00006 SGNDVOVF EXTEND
050193,001800: 00,2402 62404 BZMF +2
050194,001801: 00,2403 24136 INCR DVSIGN # NEGMAX IN MPAC PERHAPS.
050195,001802: 00,2404 34750 DVOVF CAF POSMAX # ON DIVISION OVERFLOW OF ANY SORT, SET
050196,001803: 00,2405 54154 TS MPAC # SET DP MPAC TO +-POSMAX.
050197,001804: 00,2406 02627 TC FINALDV +3
050198,001805: 00,2407 34770 CAF ONE # SET OVERFLOW INDICATOR AND EXIT.
050199,001806: 00,2410 54121 TS OVFIND
050200,001807: 00,2411 06030 TC DANZIG
050201,001808:
050202,001809: 00,2412 24136 -1 INCR DVSIGN
050203,001810: 00,2413 40131 OVF+ CS BUF +1 # LOAD LOWER ORDER PART OF DIVISOR.
050204,001811: 00,2414 12401 TCF SGNDVOVF # GET SIGN OF RESULT.
050205,001812:
050206,001813: 00,2415 00006 BUF- EXTEND # IF BUF IS NEGATIVE, COMPLEMENT IT AND
050207,001814: 00,2416 40131 DCS BUF # MAINTAIN DVSIGN FOR FINAL QUOTIENT SIGN.
050208,001815: 00,2417 52131 DXCH BUF
050209,001816: 00,2420 24136 INCR DVSIGN # NOW -0.
050210,001817: 00,2421 10154 BUF+ CCS MPAC # FORCE MPAC POSITIVE, CHECKING FOR ZERO
![]() |
Page 1163 |
050212,001819: 00,2422 12436 TCF MPAC+ # DIVIDEND IN THE PROCESS.
050213,001820: 00,2423 12425 TCF +2
050214,001821: 00,2424 12432 TCF MPAC-
050215,001822: 00,2425 10155 CCS MPAC +1
050216,001823: 00,2426 12436 TCF MPAC+
050217,001824: 00,2427 16030 TCF DANZIG # EXIT IMMEDIATELY ON ZERO DIVIDEND.
050218,001825: 00,2430 12432 TCF MPAC-
050219,001826: 00,2431 16030 TCF DANZIG
050220,001827:
050221,001828: 00,2432 00006 MPAC- EXTEND # FORCE MPAC POSITIVE AS BUF IN BUF-.
050222,001829: 00,2433 40155 DCS MPAC
050223,001830: 00,2434 52155 DXCH MPAC
050224,001831: 00,2435 24136 INCR DVSIGN # NOW +1 OR -0.
050225,001832:
![]() |
Page 1164 |
050227,001834: 00,2436 40154 MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
050228,001835: 00,2437 67702 AD NEGONE # MAJOR PART OF THE DIVIDEND IS LESS THAN
050229,001836: 00,2440 60130 AD BUF # THE MAJOR PART OF THE DIVISOR BY AT
050230,001837: 00,2441 10000 CCS A # LEAST TWO, WE CAN PROCEED IMMEDIATELY
050231,001838: 00,2442 12504 TCF DVNORM # WITHOUT NORMALIZATION PRODUCING A DVMAX.
050232,001839: 00,2443 60001 -1/2+2 OCT 60001 # USED IN SQRTSUB.
050233,001840:
050234,001841: 00,2444 12445 TCF +1 # IF THE ABOVE DOES NOT HOLD, FORCE SIGN
050235,001842: 00,2445 34753 CAF HALF # AGREEMENT IN NUMERATOR AND DENOMINATOR
050236,001843: 00,2446 60000 DOUBLE # TO FACILITATE OVERFLOW AND NEAR-ONE
050237,001844: 00,2447 60155 AD MPAC +1 # CHECKING.
050238,001845: 00,2450 54155 TS MPAC +1
050239,001846: 00,2451 34772 CAF ZERO
050240,001847: 00,2452 64750 AD POSMAX
050241,001848: 00,2453 26154 ADS MPAC
050242,001849:
050243,001850: 00,2454 34753 CAF HALF # SAME FOR BUF.
050244,001851: 00,2455 60000 DOUBLE
050245,001852: 00,2456 60131 AD BUF +1
050246,001853: 00,2457 54131 TS BUF +1
050247,001854: 00,2460 34772 CAF ZERO
050248,001855: 00,2461 64750 AD POSMAX
050249,001856: 00,2462 26130 ADS BUF
050250,001857:
050251,001858: 00,2463 40154 CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
050252,001859: 00,2464 60130 AD BUF # OPERANDS.
050253,001860: 00,2465 10000 CCS A
050254,001861: 00,2466 12504 TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
050255,001862: 00,2467 00133 LBUF2 ADRES BUF2
050256,001863: 00,2470 12404 TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.
050257,001864:
050258,001865: 00,2471 54140 TS MAXDVSW # IF THE MAJOR PARTS OF THE DIVIDEND AND
050259,001866: 00,2472 40155 CS MPAC +1 # DIVISOR ARE EQUAL, A SPECIAL APPROXIMA-
050260,001867: 00,2473 60131 AD BUF +1 # TION IS USED (PROVIDED THE DIVISION IS
050261,001868: 00,2474 00006 EXTEND # POSSIBLE, OF COURSE).
050262,001869: 00,2475 62404 BZMF DVOVF
050263,001870: 00,2476 12504 TCF DVNORM # IF NO OVERFLOW.
050264,001871:
![]() |
Page 1165 |
050266,001873: 00,2477 00006 BUFNORM EXTEND # ADD -1 TO AUGMENT SHIFT COUNT AND SHIFT
050267,001874: 00,2500 24137 AUG DVNORMCT # LEFT ONE PLACE.
050268,001875: 00,2501 00006 EXTEND
050269,001876: 00,2502 30131 DCA BUF
050270,001877: 00,2503 20131 DAS BUF
050271,001878:
050272,001879: 00,2504 30130 DVNORM CA BUF # SEE IF DIVISOR NORMALIZED YET.
050273,001880: 00,2505 60000 DOUBLE
050274,001881: 00,2506 54000 OVSK
050275,001882: 00,2507 12477 TCF BUFNORM # NO - SHIFT LEFT ONE AND TRY AGAIN.
050276,001883:
050277,001884: 00,2510 52155 DXCH MPAC # CALL DIVIDEND NORMALIZATION SEQUENCE
050278,001885: 00,2511 50137 INDEX DVNORMCT # PRIOR TO DOING THE DIVIDE.
050279,001886: 00,2512 02564 TC MAXTEST
050280,001887:
050281,001888: 00,2513 54156 TS MPAC +2 # RETURNS WITH DIVISION DONE AND C(A) = 0.
050282,001889: 00,2514 16030 TCF DANZIG
050283,001890:
050284,001891: 00,2515 10000 BUFPOS CCS A
050285,001892: 00,2516 12421 TCF BUF+ # TO BUF+ IF BUF IS GREATER THAN +1.
050286,001893:
050287,001894: 00,2517 40131 CS BUF +1 # IF BUF IS +1, FORCING SIGN AGREEMENT
050288,001895: 00,2520 00006 EXTEND # MAY CAUSE BUF TO BECOME ZERO.
050289,001896: 00,2521 62421 BZMF BUF+ # BRANCH IF SIGNS AGREE.
050290,001897:
050291,001898: 00,2522 34753 CA HALF # SIGNS DISAGREE. FORCE AGREEMENT.
050292,001899: 00,2523 60000 +6 DOUBLE
050293,001900: 00,2524 26131 ADS BUF +1
050294,001901: 00,2525 34772 CA ZERO
050295,001902: 00,2526 54130 TS BUF
050296,001903: 00,2527 12363 TCF BUFZERO
050297,001904:
050298,001905: 00,2530 10000 BUFNEG CCS A
050299,001906: 00,2531 12415 TCF BUF- # TO BUF- IF BUF IS LESS THAN -1.
050300,001907:
050301,001908: 00,2532 30131 CA BUF +1 # IF BUF IS -1, FORCING SIGN AGREEMENT
050302,001909: 00,2533 00006 EXTEND # MAY CAUSE BUF TO BECOME ZERO.
050303,001910: 00,2534 62415 BZMF BUF- # BRANCH IF SIGNS AGREE.
050304,001911:
050305,001912: 00,2535 44753 CS HALF # SIGNS DISAGREE. FORCE AGREEMENT.
050306,001913: 00,2536 12523 TCF BUFPOS +6
050307,001914:
![]() |
Page 1166 |
050309,001916: # THE FOLLOWING ARE PROLOGUES TO SHIFT THE DIVIDEND ARRIVING IN A AND L BEFORE THE DIVIDE.
050310,001917:
050311,001918: 00,2537 22021 -21D LXCH SR # SPECIAL PROLOGUE FOR UNIT WHEN THE
050312,001919: 00,2540 00006 EXTEND # LENGTH OF THE ARGUMENT WAS NOT LESS THAN
050313,001920: 00,2541 74753 MP HALF # .5. IN THIS CASE, EACH COMPONENT MUST BE
050314,001921: 00,2542 56001 XCH L # SHIFTED RIGHT ONE TO PRODUCE A HALF-UNIT
050315,001922: 00,2543 60021 AD SR # VECTOR.
050316,001923: 00,2544 56001 XCH L
050317,001924: 00,2545 12570 TCF GENDDV +1 # WITH DP DIVIDEND IN A,L.
050318,001925:
050319,001926: 00,2546 20001 DDOUBL # PROLOGUE WHICH NORMALIZES THE DIVIDEND
050320,001927: 00,2547 20001 DDOUBL # WHEN IT IS KNOWN THAT NO DIVISION
050321,001928: 00,2550 20001 DDOUBL # OVERFLOW WILL OCCUR.
050322,001929: 00,2551 20001 DDOUBL
050323,001930: 00,2552 20001 DDOUBL
050324,001931: 00,2553 20001 DDOUBL
050325,001932: 00,2554 20001 DDOUBL
050326,001933: 00,2555 20001 DDOUBL
050327,001934: 00,2556 20001 DDOUBL
050328,001935: 00,2557 20001 DDOUBL
050329,001936: 00,2560 20001 DDOUBL
050330,001937: 00,2561 20001 DDOUBL
050331,001938: 00,2562 20001 DDOUBL
050332,001939: 00,2563 52155 -1 DXCH MPAC
050333,001940: 00,2564 10140 MAXTEST CCS MAXDVSW # 0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
050334,001941: 00,2565 06552 BIASHI DEC .4192 B-1 # SQRT CONSTANTS
050335,001942:
050336,001943: 00,2566 12641 TCF MAXDV # CHECK TO SEE IF THEY ARE NOW EQUAL.
050337,001944:
![]() |
Page 1167 |
050339,001946: # THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY BUF AND LEAVES
050340,001947: # THE RESULT IN MPAC. THE FOLLOWING CONDITIONS MUST BE SATISFIED:
050341,001948:
050342,001949: # 1. THE DIVISOR (BUF) MUST BE POSITIVE AND NOT LESS THAN .5.
050343,001950:
050344,001951: # 2. THE DIVIDEND (MPAC) MUST BE POSITIVE WITH THE MAJOR PART OF MPAC STRICTLY LESS THAN THAT OF BUF
050345,001952: # (A SPECIAL APPROXIMATION, MAXDV, IS USED WHEN THE MAJOR PARTS ARE EQUAL).
050346,001953:
050347,001954: # UNDERSTANDING THAT A/B = Q + S(R/B) WHERE S = 2(-14) AND Q AND R ARE QUOTIENT AND REMAINDER, RESPEC-
050348,001955: # TIVELY, THE FOLLOWING APPROXIMATION IS OBTAINED BY MULTIPLYING ABOVE AND BELOW BY C - SD AND NEGLECTING TERMS OF
050349,001956: # ORDER S-SQUARED (POSSIBLY INTRODUCING ERROR INTO THE LOW TWO BITS OF THE RESULT). SIGN AGREEMENT IS UNNECESSARY.
050350,001957:
050351,001958: # A + SB . (R - QD) A + SB
050352,001959: # ------ = Q + S(------) WHERE Q AND R ARE QUOTIENT AND REMAINDER OF ------ RESPECTIVELY.
050353,001960: # C + SD ( C ) C
050354,001961:
050355,001962: 00,2567 52155 GENDDV DXCH MPAC # WE NEED A AND B ONLY FOR FIRST DV.
050356,001963: 00,2570 00006 +1 EXTEND # (SPECIAL UNIT PROLOGUE ENTERS HERE).
050357,001964: 00,2571 10130 DV BUF # A NOW CONTAINS Q AND L, R.
050358,001965: 00,2572 52155 DXCH MPAC
050359,001966:
050360,001967: 00,2573 40154 CS MPAC # FORM DIVIDEND FOR MINOR PART OF RESULT.
050361,001968: 00,2574 00006 EXTEND
050362,001969: 00,2575 70131 MP BUF +1
050363,001970: 00,2576 60155 AD MPAC +1 # OVERFLOW AT THIS POINT IS POSITIVE SINCE
050364,001971: 00,2577 54000 OVSK # R IS POSITIVE IN EVERY CASE.
050365,001972: 00,2600 12605 TCF +5
050366,001973:
050367,001974: 00,2601 00006 EXTEND # OVERFLOW CAN BE REMOVED BY SUBTRACTING C
050368,001975: 00,2602 60130 SU BUF # (BUF) ONCE SINCE R IS ALWAYS LESS THAN C
050369,001976: 00,2603 24154 INCR MPAC # IN THIS CASE. INCR COMPENSATES SUBTRACT.
050370,001977: 00,2604 12607 TCF +DOWN # (SINCE C(A) IS STILL POSITIVE).
050371,001978:
050372,001979: 00,2605 00006 +5 EXTEND # C(A) CAN BE MADE LESS THAN C IN MAGNI-
050373,001980: 00,2606 62617 BZMF -UP # TUDE BY DIMINISHING IT BY C (SINCE C IS
050374,001981: # NOT LESS THAN .5) UNLESS C(A) = 0.
050375,001982:
![]() |
Page 1168 |
050377,001984: 00,2607 00006 +DOWN EXTEND
050378,001985: 00,2610 60130 SU BUF # IF POSITIVE, REDUCE ONLY IF NECESSARY
050379,001986: 00,2611 00006 EXTEND # SINCE THE COMPENSATING INCR MIGHT CAUSE
050380,001987: 00,2612 12615 BZF +3 # OVERFLOW.
050381,001988: 00,2613 00006 EXTEND # DONT SUBTRACT UNLESS RESULT IS POSITIVE
050382,001989: 00,2614 62623 BZMF ENDMAXDV # OR ZERO.
050383,001990:
050384,001991: 00,2615 24154 +3 INCR MPAC # KEEP SUBTRACT HERE AND COMPENSATE.
050385,001992: 00,2616 12624 TCF FINALDV
050386,001993:
050387,001994: 00,2617 00006 -UP EXTEND # IF ZERO, SET MINOR PART OF RESULT TO
050388,001995: 00,2620 12627 BZF FINALDV +3 # ZERO.
050389,001996:
050390,001997: 00,2621 00006 EXTEND # IF NEGATIVE, ADD C TO A, SUBTRACTING ONE
050391,001998: 00,2622 26154 DIM MPAC # TO COMPENSATE. DIM IS OK HERE SINCE THE
050392,001999: 00,2623 60130 ENDMAXDV AD BUF # MAJOR PART NEVER GOES NEGATIVE.
050393,002000:
![]() |
Page 1169 |
050395,002002: 00,2624 22007 FINALDV ZL # DO DV TO OBTAIN MINOR PART OF RESULT.
050396,002003: 00,2625 00006 EXTEND
050397,002004: 00,2626 10130 DV BUF
050398,002005: 00,2627 54155 +3 TS MPAC +1
050399,002006:
050400,002007: 00,2630 10136 CCS DVSIGN # LEAVE RESULT POSITIVE UNLESS C(DVSIGN)=
050401,002008: 00,2631 00002 TC Q # -0.
050402,002009: 00,2632 00002 TC Q
050403,002010: 00,2633 00002 TC Q
050404,002011:
050405,002012: 00,2634 00006 EXTEND
050406,002013: 00,2635 40155 DCS MPAC
050407,002014: 00,2636 52155 DXCH MPAC
050408,002015: 00,2637 34772 CAF ZERO # SO WE ALWAYS RETURN WITH C(A) = 0.
050409,002016: 00,2640 00002 TC Q
050410,002017:
![]() |
Page 1170 |
050412,002019: # IF THE MAJOR PARTS OF THE DIVISOR AND DIVIDEND ARE EQUAL, BUT THE MINOR PARTS ARE SUCH THAT THE
050413,002020: # DIVIDEND IS STRICTLY LESS THAN THE DIVISOR IN MAGNITUDE, THE FOLLOWING APPROXIMATION IS USED. THE ASSUMPTIONS
050414,002021: # ARE THE SAME AS THE GENERAL ROUTINE WITH THE ADDITION THAT SIGN AGREEMENT IS NECESSARY (B, C, & D POSITIVE).
050415,002022:
050416,002023: # C + SB . (C + B - D)
050417,002024: # ------ = 37777 + S(---------)
050418,002025: # C + SD ( C )
050419,002026:
050420,002027: # THE DIVISION MAY BE PERFORMED IMMEDIATELY SINCE B IS STRICTLY LESS THAN D AND C IS NOT LESS THAN .5.
050421,002028:
050422,002029: 00,2641 40154 MAXDV CS MPAC # SEE IF MAXDV CASE STILL HOLDS AFTER
050423,002030: 00,2642 60130 AD BUF # NORMALIZATION.
050424,002031: 00,2643 00006 EXTEND
050425,002032: 00,2644 12646 BZF +2
050426,002033: 00,2645 12567 TCF GENDDV # MPAC NOW LESS THAN BUF - DIVIDE AS USUAL
050427,002034:
050428,002035: 00,2646 34750 +2 CAF POSMAX # SET MAJOR PART OF RESULT.
050429,002036: 00,2647 54154 TS MPAC
050430,002037:
050431,002038: 00,2650 40131 CS BUF +1 # FORM DIVIDEND OF MINOR PART OF RESULT.
050432,002039: 00,2651 60155 AD MPAC +1
050433,002040: 00,2652 12623 TCF ENDMAXDV # GO ADD C AND DO DIVIDE, ATTACHING SIGN
050434,002041: # BEFORE EXITING.
050435,002042:
![]() |
Page 1171 |
050437,002044: # VECTOR DIVIDED BY SCALAR, V/SC, IS EXECUTED HERE. THE VECTOR IS NOW IN MPAC WITH SCALAR IN BUF.
050438,002045:
050439,002046: 00,2653 44770 V/SC2 CS ONE # INITIALIZE DIVIDEND NORMALIZATION COUNT
050440,002047: 00,2654 54137 TS DVNORMCT # AND DIVISION SIGN REGISTER.
050441,002048: 00,2655 54127 TS VBUF +5
050442,002049:
050443,002050: 00,2656 03007 TC VECAGREE # FORCE SIGN AGREEMENT IN VECTOR
050444,002051:
050445,002052: 00,2657 52131 DXCH BUF
050446,002053: 00,2660 07500 TC ALSIGNAG # SIGN AGREE BUF
050447,002054: 00,2661 52131 DXCH BUF
050448,002055: 00,2662 10130 CCS BUF # FORCE DIVISOR POSITIVE WITH MAJOR PART
050449,002056: 00,2663 12720 TCF /BUF+ # NON-ZERO (IF POSSIBLE).
050450,002057: 00,2664 12666 TCF +2
050451,002058: 00,2665 12714 TCF /BUF-
050452,002059:
050453,002060: 00,2666 56131 XCH BUF +1 # SHIFT VECTOR AND SCALAR LEFT 14.
050454,002061: 00,2667 56130 XCH BUF
050455,002062: 00,2670 56155 XCH MPAC +1
050456,002063: 00,2671 56154 XCH MPAC
050457,002064: 00,2672 00006 EXTEND # CHECK FOR OVERFLOW IN EACH CASE.
050458,002065: 00,2673 12675 BZF +2
050459,002066: 00,2674 12404 TCF DVOVF
050460,002067:
050461,002068: 00,2675 56160 XCH MPAC +4
050462,002069: 00,2676 56157 XCH MPAC +3
050463,002070: 00,2677 00006 EXTEND
050464,002071: 00,2700 12702 BZF +2
050465,002072: 00,2701 12404 TCF DVOVF
050466,002073:
050467,002074: 00,2702 56162 XCH MPAC +6
050468,002075: 00,2703 56161 XCH MPAC +5
050469,002076: 00,2704 00006 EXTEND
050470,002077: 00,2705 12707 BZF +2
050471,002078: 00,2706 12404 TCF DVOVF
050472,002079:
050473,002080: 00,2707 10130 CCS BUF
050474,002081: 00,2710 12720 TCF /BUF+
050475,002082: 00,2711 12404 TCF DVOVF # ZERO DIVISOR - OVERFLOW.
050476,002083: 00,2712 12714 TCF /BUF-
050477,002084: 00,2713 12404 TCF DVOVF
050478,002085:
050479,002086: 00,2714 00006 /BUF- EXTEND # ON NEGATIVE, COMPLEMENT BUF AND MAINTAIN
050480,002087: 00,2715 40131 DCS BUF # DVSIGN IN VBUF +5.
050481,002088: 00,2716 52131 DXCH BUF
050482,002089: 00,2717 24127 INCR VBUF +5
050483,002090:
![]() |
Page 1172 |
050485,002092: 00,2720 00006 /BUF+ EXTEND
050486,002093: 00,2721 30131 DCA BUF # LEAVE ABS(ORIG DIVISOR) IN BUF2
050487,002094: 00,2722 52134 DXCH BUF2 # FOR OVERFLOW TESTING
050488,002095: 00,2723 12731 TCF /NORM # NORMALIZE DIVISOR IN BUF.
050489,002096:
050490,002097: 00,2724 00006 /NORM2 EXTEND # IF LESS THAN .5, AUGMENT DVNORMCT AND
050491,002098: 00,2725 24137 AUG DVNORMCT # DOUBLE DIVISOR.
050492,002099: 00,2726 00006 EXTEND
050493,002100: 00,2727 30131 DCA BUF
050494,002101: 00,2730 20131 DAS BUF
050495,002102:
050496,002103: 00,2731 30130 /NORM CA BUF # SEE IF DIVISOR NORMALIZED.
050497,002104: 00,2732 60000 DOUBLE
050498,002105: 00,2733 54000 OVSK
050499,002106: 00,2734 12724 TCF /NORM2 # DOUBLE AND TRY AGAIN IF NOT.
050500,002107:
050501,002108: 00,2735 02747 TC V/SCDV # DO X COMPONENT DIVIDE.
050502,002109: 00,2736 52160 DXCH MPAC +3 # SUPPLY ARGUMENTS IN USUAL SEQUENCE.
050503,002110: 00,2737 52155 DXCH MPAC
050504,002111: 00,2740 52160 DXCH MPAC +3
050505,002112:
050506,002113: 00,2741 02747 TC V/SCDV # Y COMPONENT.
050507,002114: 00,2742 52162 DXCH MPAC +5
050508,002115: 00,2743 52155 DXCH MPAC
050509,002116: 00,2744 52162 DXCH MPAC +5
050510,002117:
050511,002118: 00,2745 02747 TC V/SCDV # Z COMPONENT.
050512,002119: 00,2746 17354 TCF VROTATEX # GO RE-ARRANGE COMPONENTS BEFORE EXIT.
050513,002120:
![]() |
Page 1173 |
050515,002122: # SUBROUTINE USED BY V/SC TO DIVIDE VECTOR COMPONENT IN MPAC,+1 BY THE SCALAR GIVEN IN BUF.
050516,002123:
050517,002124: 00,2747 30127 V/SCDV CA VBUF +5 # REFLECTS SIGN OF SCALAR.
050518,002125: 00,2750 54136 TS DVSIGN
050519,002126:
050520,002127: 00,2751 10154 CCS MPAC # FORCE MPAC POSITIVE, EXITING ON ZERO.
050521,002128: 00,2752 12766 TCF /MPAC+
050522,002129: 00,2753 12755 TCF +2
050523,002130: 00,2754 12762 TCF /MPAC-
050524,002131:
050525,002132: 00,2755 10155 CCS MPAC +1
050526,002133: 00,2756 12766 TCF /MPAC+
050527,002134: 00,2757 00002 TC Q
050528,002135: 00,2760 12762 TCF /MPAC-
050529,002136: 00,2761 00002 TC Q
050530,002137:
050531,002138: 00,2762 00006 /MPAC- EXTEND # USUAL COMPLEMENTING AND SETTING OF SIGN.
050532,002139: 00,2763 40155 DCS MPAC
050533,002140: 00,2764 52155 DXCH MPAC
050534,002141: 00,2765 24136 INCR DVSIGN
050535,002142:
050536,002143: 00,2766 44770 /MPAC+ CS ONE # INITIALIZE NEAR-ONE SWITCH.
050537,002144: 00,2767 54140 TS MAXDVSW
050538,002145:
050539,002146: 00,2770 40154 CS MPAC # CHECK POSSIBLE OVERFLOW.
050540,002147: 00,2771 60133 AD BUF2 # UNNORMALIZED INPUT DIVISOR.
050541,002148: 00,2772 10000 CCS A
050542,002149: 00,2773 13003 TCF DDVCALL # NOT NEAR-ONE
050543,002150: 00,2774 12776 TCF +2 # +0 IS JUST POSSIBLE
050544,002151: 00,2775 12404 TCF DVOVF # NO HOPE
050545,002152: 00,2776 54140 TS MAXDVSW # SIGNAL POSSIBLE NEAR-ONE CASE
050546,002153: 00,2777 40155 CS MPAC +1 # SEE IF DIVISION CAN BE DONE
050547,002154: 00,3000 60134 AD BUF2 +1
050548,002155: 00,3001 00006 EXTEND
050549,002156: 00,3002 62404 BZMF DVOVF
050550,002157:
050551,002158: 00,3003 52155 DDVCALL DXCH MPAC # CALL PRE-DIVIDE NORMALIZATION.
050552,002159: 00,3004 50137 INDEX DVNORMCT
050553,002160: 00,3005 12564 TCF MAXTEST
050554,002161:
![]() |
Page 1174 |
050556,002163: 00,3006 32506 SLOPELO DEC .8324
050557,002164:
050558,002165: 00,3007 56002 VECAGREE XCH Q # SAVE Q IN A
050559,002166: 00,3010 52155 DXCH MPAC
050560,002167: 00,3011 07500 TC ALSIGNAG # SIGNAGREE MPAC
050561,002168: 00,3012 52155 DXCH MPAC
050562,002169: 00,3013 52160 DXCH MPAC +3
050563,002170: 00,3014 07500 TC ALSIGNAG # SIGN AGREE MPAC +3
050564,002171: 00,3015 52160 DXCH MPAC +3
050565,002172: 00,3016 52162 DXCH MPAC +5
050566,002173: 00,3017 07500 TC ALSIGNAG # SIGNAGREE MPAC +5
050567,002174: 00,3020 52162 DXCH MPAC +5
050568,002175: 00,3021 00000 TC A
050569,002176:
![]() |
Page 1175 |
050571,002178: # THE FOLLOWING ROUTINE EXECUTES THE UNIT INSTRUCTION, WHICH TAKES THE UNIT OF THE VECTOR IN MPAC.
050572,002179:
050573,002180: 00,3022 03007 UNIT TC VECAGREE # FORCE SIGN AGREEMENT IN VECTOR
050574,002181: 00,3023 07466 TC MPACVBUF # SAVE ARGUMENT IN VBUF
050575,002182: 00,3024 34772 CAF ZERO # MUST SENSE OVERFLOW IN FOLLOWING DOT.
050576,002183: 00,3025 56121 XCH OVFIND
050577,002184: 00,3026 54141 TS TEM1
050578,002185: 00,3027 03316 TC VSQSUB # DOT MPAC WITH ITSELF.
050579,002186: 00,3030 30141 CA TEM1
050580,002187: 00,3031 56121 XCH OVFIND
050581,002188: 00,3032 00006 EXTEND
050582,002189: 00,3033 13035 BZF +2
050583,002190: 00,3034 12404 TCF DVOVF
050584,002191: 00,3035 00006 EXTEND
050585,002192: 00,3036 30155 DCA MPAC # LEAVE THE SQUARE OF THE LENGTH OF THE
050586,002193: 00,3037 50120 INDEX FIXLOC # ARGUMENT IN LVSQUARE.
050587,002194: 00,3040 52043 DXCH LVSQUARE
050588,002195:
050589,002196: 00,3041 03342 TC SQRTSUB # GO TAKE THE NORMALIZED SQUARE ROOT.
050590,002197:
050591,002198: 00,3042 10154 CCS MPAC # CHECK FOR UNIT OVERFLOW.
050592,002199: 00,3043 13050 TCF +5 # MPAC IS NOT LESS THAN .5 UNLESS
050593,002200: 00,3044 54001 TS L
050594,002201: 00,3045 50120 INDEX FIXLOC
050595,002202: 00,3046 52045 DXCH LV
050596,002203: 00,3047 12404 TCF DVOVF # INPUT TO SQRTSUB WAS 0.
050597,002204:
050598,002205: 00,3050 44321 CS FOURTEEN # SEE IF THE INPUT WAS SO SMALL THE THE
050599,002206: 00,3051 60135 AD MPTEMP # FIRST TWO REGISTERS OF THE SQUARE WERE 0
050600,002207: 00,3052 10000 CCS A
050601,002208: 00,3053 40000 COM # IF SO, SAVE THE NEGATIVE OF THE SHIFT
050602,002209: 00,3054 13132 TCF SMALL # COUNT -15D.
050603,002210:
050604,002211: 00,3055 13064 TCF LARGE # (THIS IS USUALLY THE CASE.)
050605,002212:
050606,002213: 00,3056 44776 CS THIRTEEN # IF THE SHIFT COUNT WAS EXACTLY 14, SET
050607,002214: 00,3057 54135 TS MPTEMP # THE PRE-DIVIDE NORM COUNT TO -13D.
050608,002215:
050609,002216: 00,3060 30154 CA MPAC # SHIFT THE LENGTH RIGHT 14 BEFORE STORING
050610,002217: 00,3061 54001 SMALL2 TS L # (SMALL EXITS TO THIS POINT).
050611,002218: 00,3062 34772 CAF ZERO
050612,002219: 00,3063 13111 TCF LARGE2 # GO TO STORE LENGTH AND PROCEED.
050613,002220:
050614,002221: 00,3064 10135 LARGE CCS MPTEMP # MOST ALL CASES COME HERE.
050615,002222: 00,3065 13073 TCF LARGE3 # SEE IF NO NORMALIZATION WAS REQUIRED BY
050616,002223: 00,3066 42024 CS SRDDV # SQRT, AND IF SO, SET UP FOR A SHIFT
050617,002224: 00,3067 54135 TS MPTEMP # RIGHT 1 BEFORE DIVIDING TO PRODUCE
050618,002225: 00,3070 00006 EXTEND # THE DESIRED HALF UNIT VECTOR.
050619,002226: 00,3071 30155 DCA MPAC
![]() |
Page 1176 |
050621,002228: 00,3072 13111 TCF LARGE2
050622,002229:
![]() |
Page 1177 |
050624,002231: 00,3073 40000 LARGE3 COM # LEAVE NEGATIVE OF SHIFT COUNT-1 FOR
050625,002232: 00,3074 54135 TS MPTEMP # PREDIVIDE LEFT SHIFT.
050626,002233:
050627,002234: 00,3075 40000 COM # PICK UP REQUIRED SHIFTING BIT TO UNNORM-
050628,002235: 00,3076 50000 INDEX A # ALIZE THE SQRT RESULT.
050629,002236: 00,3077 34753 CAF BIT14
050630,002237: 00,3100 54130 TS BUF
050631,002238: 00,3101 00006 EXTEND
050632,002239: 00,3102 70155 MP MPAC +1
050633,002240: 00,3103 56130 XCH BUF
050634,002241: 00,3104 00006 EXTEND # (UNNORMALIZE THE SQRT FOR LV).
050635,002242: 00,3105 70154 MP MPAC
050636,002243: 00,3106 56001 XCH L
050637,002244: 00,3107 60130 AD BUF
050638,002245: 00,3110 56001 XCH L
050639,002246:
050640,002247: 00,3111 50120 LARGE2 INDEX FIXLOC
050641,002248: 00,3112 52045 DXCH LV # LENGTH NOW STORED IN WORK AREA.
050642,002249:
050643,002250: 00,3113 44770 CS ONE
050644,002251: 00,3114 54140 TS MAXDVSW # NO MAXDV CASES IN UNIT.
050645,002252:
050646,002253: 00,3115 52123 DXCH VBUF # PREPARE X COMPONENT FOR DIVIDE, SETTING
050647,002254: 00,3116 52155 DXCH MPAC # LENGTH OF VECTOR AS DIVISOR IN BUF.
050648,002255: 00,3117 52131 DXCH BUF
050649,002256: 00,3120 03150 TC UNITDV
050650,002257:
050651,002258: 00,3121 52125 DXCH VBUF +2 # DO Y AND Z IN USUAL FASHION SO WE CAN
050652,002259: 00,3122 52155 DXCH MPAC # EXIT THROUGH VROTATEX.
050653,002260: 00,3123 52160 DXCH MPAC +3
050654,002261: 00,3124 03150 TC UNITDV
050655,002262:
050656,002263: 00,3125 52127 DXCH VBUF +4
050657,002264: 00,3126 52155 DXCH MPAC
050658,002265: 00,3127 52162 DXCH MPAC +5
050659,002266: 00,3130 03150 TC UNITDV
050660,002267: 00,3131 17354 TCF VROTATEX # AND EXIT.
050661,002268:
![]() |
Page 1178 |
050663,002270: # IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST
050664,002271: # 14 PLACES BEFORE THE DIVIDE. NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
050665,002272:
050666,002273: 00,3132 54135 SMALL TS MPTEMP # NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
050667,002274:
050668,002275: 00,3133 34772 CAF ZERO # SHIFT EACH COMPONENT LEFT 14.
050669,002276: 00,3134 56123 XCH VBUF +1
050670,002277: 00,3135 56122 XCH VBUF
050671,002278: 00,3136 56125 XCH VBUF +3
050672,002279: 00,3137 56124 XCH VBUF +2
050673,002280: 00,3140 56127 XCH VBUF +5
050674,002281: 00,3141 56126 XCH VBUF +4
050675,002282:
050676,002283: 00,3142 40135 CS MPTEMP
050677,002284: 00,3143 50000 INDEX A
050678,002285: 00,3144 34753 CAF BIT14
050679,002286: 00,3145 00006 EXTEND
050680,002287: 00,3146 70154 MP MPAC
050681,002288: 00,3147 13061 TCF SMALL2
050682,002289:
050683,002290: 00,3150 4776 THIRTEEN = OCT15
050684,002291: 00,3150 4321 FOURTEEN = OCT16
050685,002292: 00,3150 4321 OCT16 = R1D1
050686,002293:
![]() |
Page 1179 |
050688,002295: # THE FOLLOWING ROUTINE SETS UP THE CALL TO THE DIVIDE ROUTINES.
050689,002296:
050690,002297: 00,3150 10154 UNITDV CCS MPAC # FORCE MPAC POSITIVE IF POSSIBLE, SETTING
050691,002298: 00,3151 13167 TCF UMPAC+ # DVSIGN ACCORDING TO THE SIGN OF MPAC
050692,002299: 00,3152 13154 TCF +2 # SINCE THE DIVISOR IS ALWAYS POSITIVE
050693,002300: 00,3153 13161 TCF UMPAC- # HERE.
050694,002301:
050695,002302: 00,3154 10155 CCS MPAC +1
050696,002303: 00,3155 13167 TCF UMPAC+
050697,002304: 00,3156 00002 TC Q # EXIT IMMEDIATELY ON ZERO.
050698,002305: 00,3157 13161 TCF UMPAC-
050699,002306: 00,3160 00002 TC Q
050700,002307:
050701,002308: 00,3161 44772 UMPAC- CS ZERO # IF NEGATIVE, SET -0 IN DVSIGN FOR FINAL
050702,002309: 00,3162 54136 TS DVSIGN # COMPLEMENT.
050703,002310: 00,3163 00006 EXTEND
050704,002311: 00,3164 40155 DCS MPAC # PICK UP ABSOLUTE VALUE OF ARG AND JUMP.
050705,002312: 00,3165 50135 INDEX MPTEMP
050706,002313: 00,3166 12563 TCF MAXTEST -1
050707,002314:
050708,002315: 00,3167 54136 UMPAC+ TS DVSIGN # SET DVSIGN FOR POSITIVE QUOTIENT.
050709,002316: 00,3170 52155 DXCH MPAC
050710,002317: 00,3171 50135 INDEX MPTEMP
050711,002318: 00,3172 12563 TCF MAXTEST -1
050712,002319:
![]() |
Page 1180 |
050714,002321: # MISCELLANEOUS UNARY OPERATIONS.
050715,002322:
050716,002323: 00,3173 03277 DSQ TC DSQSUB # SQUARE THE DP CONTENTS OF MPAC.
050717,002324: 00,3174 16030 TCF DANZIG
050718,002325:
050719,002326: 00,3175 10163 ABVALABS CCS MODE # ABVAL OR ABS INSTRUCTION.
050720,002327: 00,3176 13225 TCF ABS # DO ABS ON SCALAR.
050721,002328: 00,3177 13225 TCF ABS
050722,002329:
050723,002330: 00,3200 03316 ABVAL TC VSQSUB # DOT MPAC WITH ITSELF.
050724,002331: 00,3201 22163 LXCH MODE # MODE IS NOW DP (L ZERO AFTER DAS).
050725,002332:
050726,002333: 00,3202 00006 EXTEND # STORE SQUARE OF LENGTH IN WORK AREA.
050727,002334: 00,3203 30155 DCA MPAC
050728,002335: 00,3204 50120 INDEX FIXLOC
050729,002336: 00,3205 52043 DXCH LVSQUARE
050730,002337:
![]() |
Page 1181 |
050732,002339: # PROGRAM DESCRIPTION - SUBROUTINE SQRT
050733,002340: #
050734,002341: # FUNCTIONAL DESCRIPTION - DOUBLE PRECISION SQUARE ROOT ROUTINE
050735,002342: #
050736,002343: # THIS PROGRAM TAKES THE SQUARE ROOT OF THE 27 OR 28 MOST SIGNIFICANT BITS IN THE TRIPLE PRECISION SET OF
050737,002344: # NUMBERS - MPAC, MPAC+1, AND MPAC+2. THE ROOT IS RETURNED DOUBLE PRECISION IN MPAC AND MPAC+1.
050738,002345: #
050739,002346: # WARNING - THIS SUBROUTINE USES A TRIPLE PRECISION INPUT. THE PROGRAMMER MUST ASSURE THE CONTENTS OF MPAC+2
050740,002347: # ESPECIALLY IF THE CONTENTS OF MPAC IS SMALL OR ZERO. FOR DETAILS SEE STG MEMO NO.949.
050741,002348: #
050742,002349: # CALLING SEQUENCE - IN INTERPRETIVE MODE I.E., FOLLOWING TC INTPRET, SQRT NO ADDRESS IS ALLOWED
050743,002350:
050744,002351: # INPUT SCALING THE BINARY POINT IS ASSUMED TO THE RIGHT OF BIT 15. THE ANSWER IS RETURNED WITH THE SAME SCALING
050745,002352:
050746,002353: # SUBROUTINES - GENSCR, MPACSHR, SQRTSUB, ABORT
050747,002354:
050748,002355: # ABORT EXIT MODE - ABORTS ON NEGATIVE INPUT -1.2X10E-4 (77775 OCTAL) OR LESS.
050749,002356: # DISPLAYS ERROR CODE 1302
050750,002357: # TC ABORT
050751,002358: # OCT 1302
050752,002359:
050753,002360: # DEBRIS - LOCATIONS BUF, MPTEMP, ADDRWD ARE USED
050754,002361:
050755,002362: 00,3206 03342 SQRT TC SQRTSUB # TAKE THE SQUARE ROOT OF MPAC.
050756,002363: 00,3207 10135 CCS MPTEMP # RETURNED NORMALIZED SQUARE ROOT. SEE IF
050757,002364: 00,3210 13212 TCF +2 # ANY UN-NORMALIZATION REQUIRED AND EXIT
050758,002365: 00,3211 16030 TCF DANZIG # IF NOT.
050759,002366:
050760,002367: 00,3212 63726 AD NEG12 # A RIGHT SHIFT OF MORE THAN 13 COULD BE
050761,002368: 00,3213 00006 EXTEND # REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
050762,002369: 00,3214 63220 BZMF SQRTSHFT # GOES HERE IN MOST CASES.
050763,002370: 00,3215 22007 ZL # IF A LONG SHIFT IS REQUIRED, GO TO
050764,002371: 00,3216 22116 LXCH ADDRWD # GENERAL RIGHT SHIFT ROUTINES.
050765,002372: 00,3217 12303 TCF GENSCR +4 # ADDRWD WAS ZERO TO PREVENT ROUND.
050766,002373:
050767,002374: 00,3220 50135 SQRTSHFT INDEX MPTEMP # SELECT SHIFTING BIT AND EXIT THROUGH
050768,002375: 00,3221 34752 CAF BIT15 # SHIFT ROUTINES.
050769,002376: 00,3222 54135 TS MPTEMP
050770,002377: 00,3223 34772 CAF ZERO # TO ZERO MPAC +2 IN THE PROCESS.
050771,002378: 00,3224 12036 TCF MPACSHR +3
050772,002379:
050773,002380: 00,3225 06672 ABS TC BRANCH # TEST SIGN OF MPAC AND COMPLEMENT IF
050774,002381: 00,3226 16030 TCF DANZIG
050775,002382: 00,3227 16030 TCF DANZIG
050776,002383: 00,3230 17624 TCF COMP
050777,002384:
![]() |
Page 1182 |
050779,002386: 00,3231 44766 VDEF CS FOUR # VECTOR DEFINE - ESSENTIALLY TREATS
050780,002387: 00,3232 26166 ADS PUSHLOC # SCALAR IN MPAC AS X COMPONENT, PUSHES UP
050781,002388: 00,3233 00006 EXTEND # FOR Y AND THEN AGAIN FOR Z.
050782,002389: 00,3234 50000 INDEX A
050783,002390: 00,3235 30003 DCA 2
050784,002391: 00,3236 52160 DXCH MPAC +3
050785,002392: 00,3237 00006 EXTEND
050786,002393: 00,3240 50166 INDEX PUSHLOC
050787,002394: 00,3241 30001 DCA 0
050788,002395: 00,3242 52162 DXCH MPAC +5
050789,002396: 00,3243 16470 TCF VMODE # MODE IS NON VECTOR.
050790,002397:
050791,002398: 00,3244 03316 VSQ TC VSQSUB # DOT MPAC WITH ITSELF.
050792,002399: 00,3245 17266 TCF DMODE # MODE IS NOW DP.
050793,002400:
050794,002401: 00,3246 00006 PUSH EXTEND # PUSH DOWN MPAC LEAVING IT LOADED.
050795,002402: 00,3247 30155 DCA MPAC
050796,002403: 00,3250 50166 INDEX PUSHLOC # PUSH DOWN FIRST TWO REGISTERS IN EACH
050797,002404: 00,3251 52001 DXCH 0
050798,002405:
050799,002406: 00,3252 50163 INDEX MODE # INCREMENT PUSHDOWN POINTER.
050800,002407: 00,3253 36213 CAF NO.WDS
050801,002408: 00,3254 26166 ADS PUSHLOC
050802,002409:
050803,002410: 00,3255 10163 CCS MODE
050804,002411: 00,3256 13271 TCF TPUSH # PUSH DOWN MPAC +2.
050805,002412: 00,3257 16030 TCF DANZIG # DONE FOR DP.
050806,002413:
050807,002414: 00,3260 00006 EXTEND # ON VECTOR, PUSH DOWN Y AND Z COMPONENTS.
050808,002415: 00,3261 30160 DCA MPAC +3
050809,002416: 00,3262 50166 INDEX PUSHLOC
050810,002417: 00,3263 51775 DXCH 0 -4
050811,002418: 00,3264 00006 EXTEND
050812,002419: 00,3265 30162 DCA MPAC +5
050813,002420: 00,3266 50166 INDEX PUSHLOC
050814,002421: 00,3267 51777 DXCH 0 -2
050815,002422: 00,3270 16030 TCF DANZIG
050816,002423:
050817,002424: 00,3271 30156 TPUSH CA MPAC +2
050818,002425: 00,3272 16523 TCF ENDTPUSH +2
050819,002426:
050820,002427: 00,3273 50120 RVQ INDEX FIXLOC # RVQ - RETURN IVA QPRET.
050821,002428: 00,3274 30052 CA QPRET
050822,002429: 00,3275 54117 TS POLISH
050823,002430: 00,3276 16621 TCF GOTO +4 # (ASSUME QPRET POINTS TO FIXED ONLY.)
050824,002431:
![]() |
Page 1183 |
050826,002433: # THE FOLLOWING SUBROUTINES ARE USED IN SQUARING MPAC, IN BOTH THE SCALAR AND VECTOR SENSE. THEY ARE
050827,002434: # SPECIAL CASES OF DMPSUB AND DOTSUB, PUT IN TO SAVE SOME TIME.
050828,002435:
050829,002436: 00,3277 30155 DSQSUB CA MPAC +1 # SQUARES THE SCALAR CONTENTS OF MPAC.
050830,002437: 00,3300 00006 EXTEND
050831,002438: 00,3301 70000 SQUARE
050832,002439: 00,3302 54156 TS MPAC +2
050833,002440: 00,3303 34772 CAF ZERO # FORM 2(CROSS TERM).
050834,002441: 00,3304 56155 XCH MPAC +1
050835,002442: 00,3305 00006 EXTEND
050836,002443: 00,3306 70154 MP MPAC
050837,002444: 00,3307 20001 DDOUBL # AND MAYBE OVERFLOW.
050838,002445: 00,3310 20156 DAS MPAC +1 # AND SET A TO NET OVERFLOW.
050839,002446: 00,3311 56154 XCH MPAC
050840,002447: 00,3312 00006 EXTEND
050841,002448: 00,3313 70000 SQUARE
050842,002449: 00,3314 20155 DAS MPAC
050843,002450: 00,3315 00002 TC Q
050844,002451:
050845,002452: 00,3316 00006 VSQSUB EXTEND # DOTS THE VECTOR IN MPAC WITH ITSELF.
050846,002453: 00,3317 22137 QXCH DOTRET
050847,002454: 00,3320 03277 TC DSQSUB # SQUARE THE X COMPONENT.
050848,002455: 00,3321 52160 DXCH MPAC +3
050849,002456: 00,3322 52155 DXCH MPAC
050850,002457: 00,3323 52131 DXCH BUF # SO WE CAN END IN DOTSUB.
050851,002458: 00,3324 30156 CA MPAC +2
050852,002459: 00,3325 54132 TS BUF +2
050853,002460:
050854,002461: 00,3326 03277 TC DSQSUB # SQUARE Y COMPONENT.
050855,002462: 00,3327 52156 DXCH MPAC +1
050856,002463: 00,3330 20132 DAS BUF +1
050857,002464: 00,3331 60154 AD MPAC
050858,002465: 00,3332 60130 AD BUF
050859,002466: 00,3333 54130 TS BUF
050860,002467: 00,3334 13336 TCF +2
050861,002468: 00,3335 54121 TS OVFIND # IF OVERFLOW.
050862,002469:
050863,002470: 00,3336 52162 DXCH MPAC +5
050864,002471: 00,3337 52155 DXCH MPAC
050865,002472: 00,3340 03277 TC DSQSUB # SQUARE Z COMPONENT.
050866,002473: 00,3341 17154 TCF ENDDOT # END AS IN DOTSUB.
050867,002474:
![]() |
Page 1184 |
050869,002476: # DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
050870,002477: # IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
050871,002478: # .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.
050872,002479:
050873,002480: 00,3342 34772 SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
050874,002481: 00,3343 54135 TS MPTEMP
050875,002482:
050876,002483: 00,3344 10154 CCS MPAC # CHECK FOR POSITIVE ARGUMENT, SHIFTING
050877,002484: 00,3345 13403 TCF SMPAC+ # FIRST SIGNIFICANT MPAC REGISTER INTO
050878,002485: 00,3346 13350 TCF +2 # MPAC ITSELF.
050879,002486: 00,3347 13372 TCF SQRTNEG # SEE IF MAG OF ARGUMENT LESS THAN 10(-4).
050880,002487:
050881,002488: 00,3350 56156 XCH MPAC +2 # MPAC IS ZERO - SHIFT LEFT 14.
050882,002489: 00,3351 56155 XCH MPAC +1
050883,002490: 00,3352 54154 TS MPAC
050884,002491: 00,3353 34774 CAF SEVEN # AUGMENT RIGHT SHIFT COUNTER.
050885,002492: 00,3354 54135 TS MPTEMP
050886,002493:
050887,002494: 00,3355 10154 CCS MPAC # SEE IF MPAC NOW PNZ.
050888,002495: 00,3356 13403 TCF SMPAC+
050889,002496: 00,3357 13361 TCF +2
050890,002497: 00,3360 13375 TCF ZEROANS # NEGATIVE BUT LESS THAN 10(-4) IN MAG.
050891,002498:
050892,002499: 00,3361 56155 XCH MPAC +1 # ZERO - SHIFT LEFT 14 AGAIN.
050893,002500: 00,3362 54154 TS MPAC
050894,002501: 00,3363 34774 CAF SEVEN # AUGMENT RIGHT SHIFT COUNTER.
050895,002502: 00,3364 26135 ADS MPTEMP
050896,002503:
050897,002504: 00,3365 10154 CCS MPAC
050898,002505: 00,3366 13403 TCF SMPAC+
050899,002506: 00,3367 00002 TC Q # SQRT(0) = 0.
050900,002507: 00,3370 13375 TCF ZEROANS
050901,002508: 00,3371 13450 TCF FIXROOT # DO NOT LEAVE SQRTSUB WITH -0 IN MPAC.
050902,002509:
050903,002510: 00,3372 10000 SQRTNEG CCS A # ARGUMENT IS NEGATIVE, BUT SEE IF SIGN-
050904,002511: 00,3373 13401 TCF SQRTABRT # CORRECTED ARGUMENT IS LESS THAN 10(-4)
050905,002512:
050906,002513: 00,3374 10155 CCS MPAC +1 # IN MAGNITUDE. IF SO, CALL ANSWER ZERO.
050907,002514: 00,3375 34772 ZEROANS CAF ZERO # FORCE ANSWER TO ZERO HERE.
050908,002515: 00,3376 13450 TCF FIXROOT
050909,002516: 00,3377 13401 TCF SQRTABRT
050910,002517: 00,3400 13450 TCF FIXROOT
050911,002518:
050912,002519: 00,3401 05726 SQRTABRT TC POODOO
050913,002520: 00,3402 21302 OCT 21302 # SQRT CALLED WITH NEGATIVE ARGUMENT
050914,002521:
050915,002522: 00,3403 62443 SMPAC+ AD -1/2+2 # SEE IF ARGUMENT GREATER THAN OR EQUAL TO
050916,002523: 00,3404 00006 EXTEND # .5.
![]() |
Page 1185 |
050918,002525: 00,3405 63453 BZMF SRTEST # IF SO, SEE IF LESS THAN .25.
050919,002526:
050920,002527: 00,3406 52155 DXCH MPAC # WE WILL TAKE THE SQUARE ROOT OF MPAC/2.
050921,002528: 00,3407 22021 LXCH SR # SHIFT RIGHT 1 AND GO TO THE SQRT ROUTINE
050922,002529: 00,3410 00006 EXTEND
050923,002530: 00,3411 74753 MP HALF
050924,002531: 00,3412 52155 DXCH MPAC
050925,002532: 00,3413 56021 XCH SR
050926,002533: 00,3414 26155 ADS MPAC +1 # GUARANTEED NO OVERFLOW.
050927,002534:
050928,002535: 00,3415 32314 ARGHI CAF SLOPEHI # ARGUMENT BETWEEN .25 AND .5. GET A
050929,002536: 00,3416 00006 EXTEND # LINEAR APPROXIMATION FOR THIS RANGE.
050930,002537: 00,3417 70154 MP MPAC
050931,002538: 00,3420 62565 AD BIASHI # X0/2 = (MPAC/2)(SLOPEHI) + BIASHI/2.
050932,002539:
050933,002540: 00,3421 54130 +4 TS BUF # X0/2 (ARGLO ENTERS HERE).
050934,002541: 00,3422 30154 CA MPAC # SINGLE-PRECISION THROUGHOUT.
050935,002542: 00,3423 00006 EXTEND
050936,002543: 00,3424 74753 MP HALF # .5(MPAC/2)
050937,002544: 00,3425 00006 EXTEND
050938,002545: 00,3426 10130 DV BUF # .5(MPAC/2)/(X0/2)
050939,002546: 00,3427 26130 ADS BUF # X1 = X0/2 + .5(MPAC/2)/(X0/2).
050940,002547:
050941,002548: 00,3430 00006 EXTEND
050942,002549: 00,3431 74753 MP HALF # FORM UP X1/2.
050943,002550: 00,3432 52155 DXCH MPAC # SAVE AND BRING OUT ARGUMENT.
050944,002551: 00,3433 00006 EXTEND # TAKE DP QUOTIENT WITH X1.
050945,002552: 00,3434 10130 DV BUF
050946,002553: 00,3435 54131 TS BUF +1 # SAVE MAJOR PART OF QUOTIENT.
050947,002554: 00,3436 34772 CAF ZERO # FORM MINOR PART OF QUOTIENT USING
050948,002555: 00,3437 56001 XCH L # (REMAINDER,0).
050949,002556: 00,3440 00006 EXTEND
050950,002557: 00,3441 10130 DV BUF
050951,002558: 00,3442 54001 TS L # IN PREPARATION FOR DAS.
050952,002559: 00,3443 30131 CA BUF +1
050953,002560: 00,3444 20155 DAS MPAC # X2 = X1/2 + (MPAC/2)X1
050954,002561:
050955,002562: 00,3445 00006 EXTEND # OVERFLOWS IF ARG. NEAR POSMAX.
050956,002563: 00,3446 13452 BZF TCQBNK00
050957,002564: 00,3447 34750 CAF POSMAX
050958,002565: 00,3450 54154 FIXROOT TS MPAC
050959,002566: 00,3451 54155 TS MPAC +1
050960,002567: 00,3452 00002 TCQBNK00 TC Q # RETURN TO CALLER TO UNNORMALIZE, ETC.
050961,002568:
![]() |
Page 1186 |
050963,002570: 00,3453 64754 SRTEST AD QUARTER # ARGUMENT WAS LESS THAN .5, SEE IF LESS
050964,002571: 00,3454 00006 EXTEND # THAN .25.
050965,002572: 00,3455 63477 BZMF SQRTNORM # IF SO, BEGIN NORMALIZATION.
050966,002573:
050967,002574: 00,3456 52155 DXCH MPAC # IF BETWEEN .5 AND .25, SHIFT RIGHT 1 AND
050968,002575: 00,3457 22021 LXCH SR # START AT ARGLO.
050969,002576: 00,3460 00006 EXTEND
050970,002577: 00,3461 74753 MP HALF
050971,002578: 00,3462 52155 DXCH MPAC
050972,002579: 00,3463 56021 XCH SR
050973,002580: 00,3464 26155 ADS MPAC +1 # NO OVERFLOW.
050974,002581:
050975,002582: 00,3465 33006 ARGLO CAF SLOPELO # (NORMALIZED) ARGUMENT BETWEEN .125 AND
050976,002583: 00,3466 00006 EXTEND # .25
050977,002584: 00,3467 70154 MP MPAC
050978,002585: 00,3470 62270 AD BIASLO
050979,002586: 00,3471 13421 TCF ARGHI +4 # BEGIN SQUARE ROOT.
050980,002587:
050981,002588: 00,3472 00006 SQRTNM2 EXTEND # SHIFT LEFT 2 AND INCREMENT RIGHT SHIFT
050982,002589: 00,3473 30156 DCA MPAC +1 # COUNT (FOR TERMINAL UNNORMALIZATION).
050983,002590: 00,3474 20156 DAS MPAC +1
050984,002591: 00,3475 60154 AD MPAC
050985,002592: 00,3476 26154 ADS MPAC # (NO OVERFLOW).
050986,002593:
050987,002594: 00,3477 24135 SQRTNORM INCR MPTEMP # FIRST TIME THROUGH, JUST SHIFT LEFT 1
050988,002595: 00,3500 00006 EXTEND # (PUTS IN EFFECTIVE RIGHT SHIFT SINCE
050989,002596: 00,3501 30156 DCA MPAC +1 # WE WANT MPAC/2).
050990,002597: 00,3502 20156 DAS MPAC +1
050991,002598: 00,3503 60154 AD MPAC
050992,002599: 00,3504 26154 ADS MPAC # (AGAIN NO OVERFLOW).
050993,002600: 00,3505 60000 DOUBLE
050994,002601: 00,3506 54022 TS CYL
050995,002602:
050996,002603: 00,3507 10022 NORMTEST CCS CYL # SEE IF ARGUMENT NOW NORMALIZED AT
050997,002604: 00,3510 10022 CCS CYL # GREATER THAN .125.
050998,002605: 00,3511 13472 TCF SQRTNM2 # NO - SHIFT LEFT 2 MORE AND TRY AGAIN.
050999,002606: 00,3512 13415 TCF ARGHI # YES - NOW BETWEEN .5 AND .25.
051000,002607: 00,3513 13465 TCF ARGLO # ARGUMENT NOW BETWEEN .25 AND .125.
051001,002608:
![]() |
Page 1187 |
051003,002610: # TRIGONOMETRIC FUNCTION PACKAGE.
051004,002611:
051005,002612: # THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAILABLE AS INTERPRETIVE OPERATIONS:
051006,002613:
051007,002614: # 1. SIN COMPUTES (1/2)SINE(2 PI MPAC).
051008,002615: # 2. COS COMPUTES (1/2)COSINE(2 PI MPAC).
051009,002616:
051010,002617: # 3. ASIN COMPUTES (1/2PI)ARCSINE(2 MPAC).
051011,002618: # 4. ACOS COMPUTES (1/2PI)ARCCOSINE(2 MPAC).
051012,002619:
051013,002620: # SIN-ASIN AND COS-ACOS ARE MUTUALLY INVERSE, IE SIN(ASIN(X)) = X.
051014,002621:
051015,002622: 00,3514 06672 COSINE TC BRANCH # FINDS COSINE USING THE IDENTITY
051016,002623: 00,3515 13520 TCF +3 # COS(X) = SIN(PI/2 - ABS(X)).
051017,002624: 00,3516 13523 TCF PRESINE
051018,002625: 00,3517 13523 TCF PRESINE
051019,002626:
051020,002627: 00,3520 00006 +3 EXTEND
051021,002628: 00,3521 40155 DCS MPAC
051022,002629: 00,3522 52155 DXCH MPAC
051023,002630:
051024,002631: 00,3523 34754 PRESINE CAF QUARTER # PI/2 SCALED.
051025,002632: 00,3524 26154 ADS MPAC
051026,002633:
051027,002634: 00,3525 52155 SINE DXCH MPAC # DOUBLE ARGUMENT.
051028,002635: 00,3526 20001 +1 DDOUBL
051029,002636: 00,3527 54000 OVSK # SEE IF OVERFLOW PRESENT.
051030,002637: 00,3530 13533 TCF +3 # IF NOT, ARGUMENT OK AS IS.
051031,002638:
051032,002639: 00,3531 00006 EXTEND # IF SO, WE LOST (OR GAINED) PI, SO
051033,002640: 00,3532 40001 DCOM # COMPLEMENT MPAC USING THE IDENTITY
051034,002641: # SIN(X-(+)PI) = SIN(-X).
051035,002642: 00,3533 52155 +3 DXCH MPAC
051036,002643: 00,3534 30154 CA MPAC # SEE IF ARGUMENT GREATER THAN .5 IN
051037,002644: 00,3535 60000 DOUBLE # MAGNITUDE. IF SO, REDUCE IT TO LESS THAN
051038,002645: 00,3536 54001 TS L # .5 (+-PI/2 SCALED) AS FOLLOWS:
051039,002646: 00,3537 13550 TCF SN1
051040,002647:
051041,002648: 00,3540 50000 INDEX A # IF POSITIVE, FORM PI - X, IF NEGATIVE
051042,002649: 00,3541 34752 CAF NEG1/2 +1 # USE -PI -X.
051043,002650: 00,3542 60000 DOUBLE
051044,002651: 00,3543 00006 EXTEND
051045,002652: 00,3544 60154 SU MPAC # GUARANTEED NO OVERFLOW.
051046,002653: 00,3545 54154 TS MPAC
051047,002654: 00,3546 40155 CS MPAC +1
051048,002655: 00,3547 54155 TS MPAC +1
051049,002656:
![]() |
Page 1188 |
051051,002658: 00,3550 00006 SN1 EXTEND # SET UP TO EVALUATE HASTINGS POLYNOMIAL
051052,002659: 00,3551 30155 DCA MPAC
051053,002660: 00,3552 52134 DXCH BUF2
051054,002661: 00,3553 03277 TC DSQSUB # SQUARE MPAC.
051055,002662:
051056,002663: 00,3554 07171 TC POLY # EVALUATE FOURTH ORDER POLYNOMIAL.
051057,002664: 00,3555 00003 DEC 3 B-14
051058,002665: 00,3556 14441 37325 2DEC +.3926990796
051059,002666: 00,3560 53250 60764 2DEC -.6459637111
051060,002667: 00,3562 12146 21276 2DEC +.318758717
051061,002668: 00,3564 75466 71471 2DEC -.074780249
051062,002669: 00,3566 00236 32757 2DEC +.009694988
051063,002670:
051064,002671: 00,3570 32467 CAF LBUF2 # MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
051065,002672: 00,3571 07055 TC DMPSUB -1
051066,002673:
051067,002674: 00,3572 00006 EXTEND
051068,002675: 00,3573 30156 DCA MPAC +1
051069,002676: 00,3574 20156 DAS MPAC +1
051070,002677: 00,3575 60154 AD MPAC
051071,002678: 00,3576 26154 ADS MPAC # NEITHER SHIFT OVERFLOWS.
051072,002679: 00,3577 00006 EXTEND
051073,002680: 00,3600 30156 DCA MPAC +1
051074,002681: 00,3601 20156 DAS MPAC +1
051075,002682: 00,3602 60154 AD MPAC
051076,002683: 00,3603 26154 ADS MPAC
051077,002684: 00,3604 16030 TCF DANZIG
051078,002685:
![]() |
Page 1189 |
051080,002687: # ARCSIN/ARCCOS ROUTINE.
051081,002688:
051082,002689: 00,3605 33626 ARCSIN CAF LASINEX # COMPUTE ARCSIN BY USING THE IDENTITY
051083,002690: 00,3606 13610 TCF +2 # ARCSIN(X) = PI/2 - ARCCOS(X).
051084,002691:
051085,002692: 00,3607 33710 ARCCOS CAF LDANZIG # (EXITS IMMEDIATELY).
051086,002693: 00,3610 54136 TS ESCAPE
051087,002694: 00,3611 06672 TC BRANCH # TEST SIGN OF INPUT.
051088,002695: 00,3612 13622 TCF ACOSST # START IMMEDIATELY IF POSITIVE.
051089,002696: 00,3613 13724 TCF ACOSZERO # ARCCOS(0) = PI/2 = .25.
051090,002697: 00,3614 00006 EXTEND # IF NEGATIVE, USE THE IDENTITY
051091,002698: 00,3615 40155 DCS MPAC # ARCCOS(X) = PI - ARCCOS(-X), FORCING
051092,002699: 00,3616 52155 DXCH MPAC # ARGUMENT POSITIVE.
051093,002700: 00,3617 33727 CAF TCSUBTR # SET EXIT TO DO ABOVE BEFORE
051094,002701: 00,3620 56136 XCH ESCAPE # ARCSIN/ARCCOS CONSIDERATIONS.
051095,002702: 00,3621 54137 TS ESCAPE2
051096,002703:
051097,002704: 00,3622 44753 ACOSST CS HALF # TEST MAGNITUDE OF INPUT.
051098,002705: 00,3623 60154 AD MPAC
051099,002706: 00,3624 10000 CCS A
051100,002707: 00,3625 13716 TCF ACOSOVF # THIS IS PROBABLY AN OVERFLOW CASE.
051101,002708:
051102,002709: 00,3626 13704 LASINEX TCF ASINEX
051103,002710:
051104,002711: 00,3627 13637 TCF ACOSST2 # NO OVERFLOW - PROCEED.
051105,002712:
051106,002713: 00,3630 10155 CCS MPAC +1 # IF MAJOR PART IS .5, CALL ANSWER 0
051107,002714: 00,3631 34772 CAF ZERO # UNLESS MINOR PART NEGATIVE.
051108,002715: 00,3632 13634 TCF ACOS=0
051109,002716:
051110,002717: 00,3633 13637 TCF ACOSST2
051111,002718:
051112,002719: 00,3634 54155 ACOS=0 TS MPAC +1
051113,002720: 00,3635 54154 +1 TS MPAC
051114,002721: 00,3636 00136 TC ESCAPE
051115,002722:
051116,002723: 00,3637 00006 ACOSST2 EXTEND # NOW THAT ARGUMENT IS IN PROPER RANGE,
051117,002724: 00,3640 40155 DCS MPAC # BEGIN COMPUTATION. USE HASTINGS
051118,002725: 00,3641 64753 AD HALF # APPROXIMATION ARCCOS(X) = SQRT(1-X)P(X)
051119,002726: 00,3642 52155 DXCH MPAC # IN A SCALED VERSION WHERE P(X) IS A
051120,002727: 00,3643 52134 DXCH BUF2 # SEVENTH ORDER POLYNOMIAL.
051121,002728:
051122,002729: 00,3644 03342 TC SQRTSUB # RETURNS WITH NORMALIZED SQUARE ROOT.
051123,002730:
051124,002731: 00,3645 10135 CCS MPTEMP # SEE IF UN-NORMALIZATION REQUIRED.
051125,002732: 00,3646 13711 TCF ACOSSHR # IF SO.
051126,002733:
![]() |
Page 1190 |
051128,002735: 00,3647 52155 ACOS3 DXCH MPAC # SET UP FOR POLYNOMIAL EVALUATION.
051129,002736: 00,3650 52134 DXCH BUF2
051130,002737: 00,3651 52155 DXCH MPAC
051131,002738:
051132,002739: 00,3652 07171 TC POLY
051133,002740: 00,3653 00006 DEC 6 B-14
051134,002741: 00,3654 13240 23630 2DEC +.353553385 # COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
051135,002742: 00,3656 74721 47775 2DEC* -.0483017006 B+1* # I
051136,002743: 00,3660 02440 20237 2DEC* +.0200273085 B+2* # WHERE C STANDS FOR ORIGINAL COEFFS.
051137,002744: 00,3662 75067 70742 2DEC* -.0112931863 B+3*
051138,002745: 00,3664 03436 26756 2DEC* +.00695311612 B+4*
051139,002746: 00,3666 74037 57640 2DEC* -.00384617957 B+5*
051140,002747: 00,3670 03046 07143 2DEC* +.001501297736 B+6*
051141,002748: 00,3672 76654 42244 2DEC* -.000284160334 B+7*
051142,002749:
051143,002750: 00,3674 32467 CAF LBUF2 # DO FINAL MULTIPLY AND GO TO ANY
051144,002751: 00,3675 07055 TC DMPSUB -1 # EPILOGUE SEQUENCES.
051145,002752: 00,3676 00136 TC ESCAPE
051146,002753:
051147,002754: 00,3677 00006 SUBTR EXTEND # EPILOGUE FOR NEGATIVE INPUTS TO ARCCOS.
051148,002755: 00,3700 40155 DCS MPAC
051149,002756: 00,3701 64753 AD HALF # FORMS PI - ARCCOS(-X) = ARCCOS(X).
051150,002757: 00,3702 52155 DXCH MPAC
051151,002758: 00,3703 00137 TC ESCAPE2 # GO TO POSSIBLE ARCSIN EPILOGUE.
051152,002759:
051153,002760: 00,3704 00006 ASINEX EXTEND
051154,002761: 00,3705 40155 DCS MPAC # ARCSIN EPILOGUE - GET ARCSIN(X)
051155,002762: 00,3706 64754 AD QUARTER # = PI/2 - ARCCOS(X).
051156,002763: 00,3707 52155 DXCH MPAC
051157,002764: 00,3710 16030 LDANZIG TCF DANZIG
051158,002765:
![]() |
Page 1191 |
051160,002767: 00,3711 50000 ACOSSHR INDEX A # THE SHIFT RIGHT IS LESS THAN 14 SINCE
051161,002768: 00,3712 34753 CAF BIT14 # THE INPUT WAS NON-ZERO DP.
051162,002769: 00,3713 54135 TS MPTEMP
051163,002770: 00,3714 02073 TC VSHRRND # DP SHIFT RIGHT AND ROUND.
051164,002771: 00,3715 13647 TCF ACOS3 # PROCEED.
051165,002772:
051166,002773: 00,3716 00006 ACOSOVF EXTEND # IF MAJOR PART WAS ONLY 1 MORE THAN .5,
051167,002774: 00,3717 13634 BZF ACOS=0 # CALL ANSWER ZERO.
051168,002775:
051169,002776: 00,3720 05671 ACOSABRT TC ALARM # IF OVERFLOW, CALL ANSWER ZERO BUT
051170,002777: 00,3721 01301 OCT 1301 # SOUND AN ALARM.
051171,002778:
051172,002779: 00,3722 34772 CAF ZERO
051173,002780: 00,3723 13634 TCF ACOS=0
051174,002781:
051175,002782: 00,3724 34754 ACOSZERO CAF QUARTER # ACOS(0) = PI/2.
051176,002783: 00,3725 13635 TCF ACOS=0 +1 # SET MPAC AND EXIT VIA ESCAPE.
051177,002784:
051178,002785: 00,3726 77763 NEG12 DEC -12 B-14
051179,002786: 00,3727 13677 TCSUBTR TCF SUBTR
051180,002787:
![]() |
Page 1192 |
051182,002789: # THE FOLLOWING INSTRUCTIONS ARE AVAILABLE FOR SETTING, MODIFYING, AND BRANCHING ON INDEX REGISTERS:
051183,002790:
051184,002791: # 1. AXT ADDRESS TO INDEX TRUE.
051185,002792: # 1. AXC ADDRESS TO INDEX COMPLEMENTED.
051186,002793: # 3. LXA LOAD INDEX FROM ERASABLE.
051187,002794: # 4. LXC LOAD INDEX COMPLEMENTED FROM ERASABLE.
051188,002795: # 5. SXA STORE INDEX IN ERASABLE.
051189,002796: # 6. XCHX EXCHANGE INDEX REIGSTER WITH ERASABLE.
051190,002797:
051191,002798: # 7. INCR INCREMENT INDEX REGISTER.
051192,002799: # 8. XAD ERASABLE ADD TO INDEX REGISTER.
051193,002800: # 9. XSU ERASABLE SUBTRACT FROM INDEX REGISTER.
051194,002801:
051195,002802: # 10. TIX BRANCH ON INDEX REGISTER AND DECREMENT.
051196,002803:
051197,002804: 01,2000 SETLOC INTERB1
051198,002805: 01,2000 BANK
051199,002806:
051200,002807: 01,2341 COUNT* $$/INTER
051201,002808: 01,2341 02436 AXT TC TAGSUB # SELECT APPROPRIATE INDEX REGISTER.
051202,002809: 01,2342 30117 CA POLISH
051203,002810: 01,2343 50130 XSTORE INDEX INDEXLOC # CONTAINS C(FIXLOC) OR C(FIXLOC)+1.
051204,002811: 01,2344 54046 TS X1
051205,002812: 01,2345 16030 TCF DANZIG
051206,002813:
051207,002814: 01,2346 02436 AXC TC TAGSUB
051208,002815: 01,2347 40117 CS POLISH
051209,002816: 01,2350 02343 TC XSTORE
051210,002817:
051211,002818: 01,2351 02424 LXA TC 15ADRERS # LOAD INDEX REGISTER FROM ERASABLE.
051212,002819: 01,2352 50117 INDEX POLISH
051213,002820: 01,2353 30000 CA 0
051214,002821: 01,2354 12343 TCF XSTORE
051215,002822:
051216,002823: 01,2355 02424 LXC TC 15ADRERS # LOAD NDX REG FROM ERASABLE COMPLEMENTED.
051217,002824: 01,2356 50117 INDEX POLISH
051218,002825: 01,2357 40000 CS 0
051219,002826: 01,2360 12343 TCF XSTORE
051220,002827:
051221,002828: 01,2361 02424 SXA TC 15ADRERS # STORE INDEX REGISTER IN ERASABLE.
051222,002829: 01,2362 50130 INDEX INDEXLOC
051223,002830: 01,2363 30046 CA X1
051224,002831: 01,2364 50117 MSTORE1 INDEX POLISH
051225,002832: 01,2365 54000 TS 0
051226,002833: 01,2366 16030 TCF DANZIG
051227,002834:
![]() |
Page 1193 |
051229,002836: 01,2367 02424 XCHX TC 15ADRERS # EXCHANGE INDEX REGISTER WITH ERASABLE.
051230,002837: 01,2370 50117 INDEX POLISH
051231,002838: 01,2371 30000 CA 0
051232,002839: 01,2372 50130 INDEX INDEXLOC
051233,002840: 01,2373 56046 XCH X1
051234,002841: 01,2374 12364 TCF MSTORE1
051235,002842:
051236,002843: 01,2375 02424 XAD TC 15ADRERS # ADD ERASABLE TO INDEX REGISTER.
051237,002844: 01,2376 50117 INDEX POLISH
051238,002845: 01,2377 30000 CA 0
051239,002846: 01,2400 50130 XAD2 INDEX INDEXLOC
051240,002847: 01,2401 26046 ADS X1 # IGNORING OVERFLOWS.
051241,002848: 01,2402 16030 TCF DANZIG
051242,002849:
051243,002850: 01,2403 02436 INCR TC TAGSUB # INCREMENT INDEX REGISTER.
051244,002851: 01,2404 30117 CA POLISH
051245,002852: 01,2405 12400 TCF XAD2
051246,002853:
051247,002854: 01,2406 02424 XSU TC 15ADRERS # SUBTRACT ERASABLE FROM INDEX REGISTER.
051248,002855: 01,2407 50117 INDEX POLISH
051249,002856: 01,2410 40000 CS 0
051250,002857: 01,2411 12400 TCF XAD2
051251,002858:
051252,002859: 01,2412 02436 TIX TC TAGSUB # BRANCH AND DECREMENT ON INDEX.
051253,002860: 01,2413 50130 INDEX INDEXLOC
051254,002861: 01,2414 40050 CS S1
051255,002862: 01,2415 50130 INDEX INDEXLOC
051256,002863: 01,2416 60046 AD X1
051257,002864: 01,2417 00006 EXTEND # NO OPERATION IF DECREMENTED INDEX IS
051258,002865: 01,2420 66030 BZMF DANZIG # NEGATIVE OR ZERO.
051259,002866:
051260,002867: 01,2421 50130 DOTIXBR INDEX INDEXLOC
051261,002868: 01,2422 56046 XCH X1 # IGNORING OVERFLOWS.
051262,002869:
051263,002870: 01,2423 16615 TCF GOTO # DO THE BRANCH USING THE CADR IN POLISH.
051264,002871:
![]() |
Page 1194 |
051266,002873: # SUBROUTINE TO CONVERT AN ERASABLE ADDRESS (11 BITS) TO AN EBANK SETTING AND SUBADDRESS.
051267,002874:
051268,002875: 01,2424 40117 15ADRERS CS POLISH
051269,002876: 01,2425 65006 AD DEC45
051270,002877: 01,2426 10000 CCS A # DOES THE ADDRESS POINT TO THE WORK AREA?
051271,002878: 01,2427 30120 CA FIXLOC # YES. ADD FIXLOC. EBANK OK AS IS.
051272,002879: 01,2430 12435 TCF +5
051273,002880:
051274,002881: 01,2431 35024 CA OCT1400 # NO. SET EBANK & MAKE UP SUBADDRESS.
051275,002882: 01,2432 56117 XCH POLISH
051276,002883: 01,2433 54003 TS EBANK
051277,002884: 01,2434 74350 MASK LOW8
051278,002885: 01,2435 26117 +5 ADS POLISH # FALL INTO TAGSUB, AND RETURN VIA Q.
051279,002886:
051280,002887: # SUBROUTINE WHICH SETS THE ADDRESS OF THE SPECIFIED INDEX IN INDEXLOC. (ACTUALLY, THE ADDRESS -38D.)
051281,002888:
051282,002889: 01,2436 30120 TAGSUB CA FIXLOC
051283,002890: 01,2437 54130 TS INDEXLOC
051284,002891:
051285,002892: 01,2440 10020 CCS CYR # BIT 15 SPECIFIES INDEX.
051286,002893: 01,2441 24130 INCR INDEXLOC # 0 MEANS USE X2.
051287,002894: 01,2442 00002 TC Q
051288,002895: 01,2443 00002 TC Q # 1 FOR X1.
051289,002896:
![]() |
Page 1195 |
051291,002898: # MISCELLANEOUS OPERATION CODES WITH DIRECT ADDRESSES. INCLUDED HERE ARE:
051292,002899:
051293,002900: # 1. ITA STORE QPRET (RETURN ADDRESS) IN ERASABLE.
051294,002901: # 2. CALL CALL A SUBROUTINE, LEAVING RETURN IN QPRET.
051295,002902: # 3. RTB RETURN TO BASIC LANGUAGE AT THE GIVEN ADDRESS.
051296,002903: # 4. BHIZ BRANCH IF THE HIGHORDER OF MPAC IS ZERO (SINGLE PRECISION).
051297,002904: # 5. BOV BRANCH ON OVERFLOW.
051298,002905: # 6. GOTO SIMPLE SEQUENCE CHANGE.
051299,002906:
051300,002907: 01,2444 10020 RTB/BHIZ CCS CYR
051301,002908: 01,2445 30117 RTB CA POLISH
051302,002909: 01,2446 04641 TC SWCALL -1 # SO A "TC Q" FROM ROUTINE LEADS TO DANZIG
051303,002910:
051304,002911: 01,2447 10154 BHIZ CCS MPAC
051305,002912: 01,2450 16030 TCF DANZIG
051306,002913: 01,2451 16615 TCF GOTO
051307,002914: 01,2452 16030 TCF DANZIG
051308,002915: 01,2453 16615 TCF GOTO
051309,002916:
051310,002917: 01,2454 10121 BOV(B) CCS OVFIND # BRANCH ON OVERFLOW TO BASIC OR INTERP.
051311,002918: 01,2455 12457 TCF +2
051312,002919: 01,2456 16030 TCF DANZIG
051313,002920: 01,2457 54121 TS OVFIND
051314,002921: 01,2460 10020 CCS CYR
051315,002922: 01,2461 12445 TCF RTB # IF BASIC.
051316,002923: 01,2462 00360 B5TOB8 OCT 360
051317,002924: 01,2463 16615 TCF GOTO
051318,002925:
![]() |
Page 1196 |
051320,002927: 01,2464 10020 BZE/GOTO CCS CYR # SEE WHICH OP-CODE IS DESIRED.
051321,002928: 01,2465 06672 TC BRANCH # DO BZE.
051322,002929: 01,2466 16030 TCF DANZIG
051323,002930: 01,2467 16615 TCF GOTO # DO GOTO.
051324,002931: 01,2470 16030 TCF DANZIG
051325,002932:
051326,002933: 01,2471 10020 BPL/BMN CCS CYR
051327,002934: 01,2472 12500 TCF BPL
051328,002935: 01,2473 12000 5B10 DEC 5 B+10 # SHIFTS OP CODE IN SWITCH INSTRUCTION ADR
051329,002936:
051330,002937: 01,2474 06672 TC BRANCH # DO BMN.
051331,002938: 01,2475 16030 TCF DANZIG
051332,002939: 01,2476 16030 TCF DANZIG
051333,002940: 01,2477 16615 TCF GOTO # ONLY IF NNZ.
051334,002941:
051335,002942: 01,2500 06672 BPL TC BRANCH
051336,002943: 01,2501 16615 TCF GOTO # IF POSITIVE OR ZERO.
051337,002944: 01,2502 16615 TCF GOTO
051338,002945: 01,2503 16030 TCF DANZIG
051339,002946:
051340,002947: 01,2504 10020 CALL/ITA CCS CYR
051341,002948: 01,2505 16607 TCF CALL
051342,002949:
051343,002950: 01,2506 12507 NOOP # CANNOT GET HERE
051344,002951: 01,2507 02424 TC 15ADRERS # STORE QPRET. (TAGSUB AFTER 15ADRERS IS
051345,002952: 01,2510 50120 INDEX FIXLOC # SLOW IN THIS CASE, BUT SAVES STORAGE.)
051346,002953: 01,2511 30052 CA QPRET
051347,002954: 01,2512 12364 TCF MSTORE1
051348,002955:
![]() |
Page 1197 |
051350,002957: # THE FOLLOWING OPERATIONS ARE AVAILABLE FOR ALTERING AND TESTING INTERPRETIVE SWITCHES:
051351,002958: #
051352,002959: # 00 BONSET SET A SWITCH AND DO A GOTO IF IT WAS ON.
051353,002960: # 01 SETGO SET A SWITCH AND DO A GOTO.
051354,002961: # 02 BOFSET SET A SWITCH AND DO A GOTO IF IT WAS OFF
051355,002962: # 03 SET SET A SWITCH.
051356,002963:
051357,002964: # 04 BONINV INVERT A SWITCH AND BRANCH IF IT WAS ON.
051358,002965: # 05 INVGO INVERT A SWITCH AND DO A GOTO.
051359,002966: # 06 BOFINV INVERT A SWITCH AND BRANCH IF IT WAS OFF
051360,002967: # 07 INVERT INVERT A SWITCH.
051361,002968:
051362,002969: # 10 BONCLR CLEAR A SWITCH AND BRANCH IF IT WAS ON.
051363,002970: # 11 CLRGO CLEAR A SWITCH AND DO A GOTO.
051364,002971: # 12 BOFCLR CLEAR A SWITCH AND BRANCH IF IT WAS OFF.
051365,002972: # 13 CLEAR CLEAR A SWITCH.
051366,002973:
051367,002974: # 14 BON BRANCH IF A SWITCH WAS ON.
051368,002975: # 16 BOFF BRANCH IF A SWITCH WAS OFF.
051369,002976:
051370,002977: # THE ADDRESS SUPPLIED WITH THE SWITCH INSTRUCTION IS INTERPRETED AS FOLLOWS:
051371,002978:
051372,002979: # BITS 1-4 SWITCH BIT NUMBER (1-15).
051373,002980: # BITS 5-8 SWITCH OPERATION NUMBER.
051374,002981: # BITS 9- SWITCH WORD NUMBER (UP TO 64 SWITCH WORDS).
051375,002982:
051376,002983: # THE ADDRESS ITSELF IS MADE UP BY THE YUL SYSTEM ASSEMBLER. THE BRANCH INSTRUCTIONS REQUIRE TWO
051377,002984: # ADDRESSES, THE SECOND TAKEN AS THE DIRECT (OR INDIRECT IF IN ERASABLE) ADDRESS OF THE BRANCH.
051378,002985:
051379,002986: 01,2513 34777 SWITCHES CAF LOW4 # LEAVE THE SWITCH BIT IN SWBIT .
051380,002987: 01,2514 70117 MASK POLISH
051381,002988: 01,2515 50000 INDEX A
051382,002989: 01,2516 34752 CAF BIT15 # (NUMBER FROM LEFT TO RIGHT.)
051383,002990: 01,2517 54131 TS SWBIT
051384,002991:
051385,002992: 01,2520 34762 CAF BIT7 # LEAVE THE SWITCH NUMBER IN SWWORD.
051386,002993: 01,2521 00006 EXTEND
051387,002994: 01,2522 70117 MP POLISH
051388,002995: 01,2523 54130 TS SWWORD
051389,002996:
051390,002997: 01,2524 00004 INHINT # DURING SWITCH CHANGE SO RUPT CAN USE TOO
051391,002998: 01,2525 50000 INDEX A # LEAVE THE SWITCH WORD ITSELF IN L.
051392,002999: 01,2526 30074 CA STATE
051393,003000: 01,2527 54002 TS Q # Q WILL BE USED AS A CHANNEL.
![]() |
Page 1198 |
051395,003002: 01,2530 34756 CAF BIT11
051396,003003: 01,2531 00006 EXTEND # DISPATCH SWITCH BIT OPERATION AS IN BITS
051397,003004: 01,2532 70117 MP POLISH # 7-8 OF POLISH.
051398,003005: 01,2533 73024 MASK B3TOB4 # GETS 4X2-BIT CODE.
051399,003006: 01,2534 50000 INDEX A
051400,003007: 01,2535 12536 TCF +1
051401,003008:
051402,003009: 01,2536 30131 +1 CA SWBIT # 00 - SET SWITCH IN QUESTION.
051403,003010: 01,2537 00006 EXTEND
051404,003011: 01,2540 04002 ROR QCHAN
051405,003012: 01,2541 12550 TCF SWSTORE
051406,003013:
051407,003014: 01,2542 30131 +5 CA SWBIT # 01 - INVERT SWITCH.
051408,003015: 01,2543 00006 EXTEND
051409,003016: 01,2544 06002 RXOR QCHAN
051410,003017: 01,2545 12550 TCF SWSTORE
051411,003018:
051412,003019: 01,2546 40131 +9D CS SWBIT # 10 - CLEAR.
051413,003020: 01,2547 70002 MASK Q
051414,003021: 01,2550 50130 SWSTORE INDEX SWWORD
051415,003022: 01,2551 54074 TS STATE # NEW SWITCH WORD.
![]() |
Page 1199 |
051417,003024: 01,2552 00003 +13D RELINT # 11 - NOOP.
051418,003025: 01,2553 34754 CAF BIT13
051419,003026: 01,2554 00006 EXTEND # DISPATCH SEQUCE CHANGING OR BRANCHING
051420,003027: 01,2555 70117 MP POLISH # CODE.
051421,003028: 01,2556 73024 MASK B3TOB4
051422,003029: 01,2557 50000 INDEX A
051423,003030: 01,2560 12561 TCF +1 # ORIGINALLY STORED IN BITS 5-6.
051424,003031:
051425,003032: 01,2561 40002 +1 CS Q # 00 - BRANCH IF ON.
051426,003033: 01,2562 70131 TEST MASK SWBIT
051427,003034: 01,2563 10000 CCS A
051428,003035: 01,2564 12574 TCF SWSKIP
051429,003036:
051430,003037: 01,2565 16664 +5 TCF SWBRANCH # 01 - GO TO.
051431,003038:
051432,003039: 01,2566 12574 TCF SWSKIP # HERE ONLY ON BIT 15.
051433,003040:
051434,003041: 01,2567 12570 NOOP # CANNOT GET HERE
051435,003042: 01,2570 12571 NOOP # CANNOT GET HERE
051436,003043: 01,2571 30002 +9D CA Q # 10 - BRANCH IF OFF.
051437,003044: 01,2572 12562 TCF TEST
051438,003045:
051439,003046: 01,2573 12574 +11D NOOP # CANNOT GET HERE
051440,003047: 01,2574 24164 SWSKIP INCR LOC
051441,003048:
051442,003049: 01,2575 16030 +13D TCF DANZIG # 11 - NOOP.
051443,003050:
051444,003051: 01,2576 01,3024 B3TOB4 EQUALS COREINC
051445,003052: 01,2576 01,2513 SW/ EQUALS SWITCHES
End of include-file INTERPRETER.agc. Parent file is MAIN.agc