Source Code
|
These source-code files are part of a reconstructed copy of Sundial E, the
final release of the Block II Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum. Since only binary dumps (rather than listings) of Sundial are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
001251,000002: ## Copyright: Public domain.
001252,000003: ## Filename: LIST_PROCESSING_INTERPRETER.agc
001253,000004: ## Purpose: A section of Sundial E.
001254,000005: ## It is part of the reconstructed source code for the final
001255,000006: ## release of the Block II Command Module system test software. No
001256,000007: ## original listings of this program are available; instead, this
001257,000008: ## file was created via disassembly of dumps of Sundial core rope
001258,000009: ## modules and comparison with other AGC programs.
001259,000010: ## Assembler: yaYUL
001260,000011: ## Contact: Ron Burkey <info@sandroid.org>.
001261,000012: ## Website: www.ibiblio.org/apollo/index.html
001262,000013: ## Mod history: 2023-06-22 MAS Created from Aurora 12.
001263,000014: ## 2023-06-30 MAS Updated for Sundial E.
001264,000015: ## 2023-07-03 MAS Corrected a corrupted comment and some whitespace.
001265,000016:
001266,000017:
001267,000018: # SECTION 1 DISPATCHER
001268,000019:
001269,000020: # ENTRY TO THE INTERPRETER. INTPRET SETS LOC TO THE FIRST INSTRUCTION, BANKSET TO THE FBANK OF THE
001270,000021: # OBJECT INTERPRETIVE PROGRAM, AND INTBIT15 TO THE BIT15 CONTENTS OF FBANK. INTERPRETIVE PROGRAMS MAY BE IN
001271,000022: # VIRTUALLY ALL BANKS PRESENT UNDER ANY SUPER-BANK SETTING, WITH THE RESTRICTION THAT PROGRAMS IN HIGH BANKS
001272,000023: # (BIT15 OF FBANK = 1) DO NOT REFER TO LOWBANKS, AND VICE-VERSA. THE INTERPRETER DOES NOT SWITCH SUPER-BANK,
001273,000024: # NOR DOES IT SWITCH EBANKS. MOST EBANK SWITCHING IS DONE BY THE EXECUTIVE PROGRAM.
001274,000025:
001275,000026: 6000 SETLOC 6000
001276,000027:
001277,000028: 6000 00006 INTPRET EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
001278,000029: 6001 22150 QXCH LOC
001279,000030:
001280,000031: 6002 30004 +2 CA FBANK # INTERPRETIVE BRANCHES FINISH HERE.
001281,000032: 6003 54151 TS BANKSET
001282,000033: 6004 77634 MASK BIT15 # GET 15TH BIT FOR INDEXABLE ADDRESSES.
001283,000034: 6005 54101 TS INTBIT15
001284,000035: 6006 66426 AD LOW10 # THIS VERSION IS USED IN PROCESSING
001285,000036: 6007 54100 TS INTB15+ # INDEXABLE FIXED-BANK ADDRESSES.
001286,000037:
001287,000038: 6010 16023 TCF NEWOPS # PICK UP OP CODE PAIR AND BEGIN.
001288,000039:
001289,000040: 6011 22006 INTRSM LXCH BBANK # RESUME SUSPENDED INTERPRETIVE JOB
001290,000041: 6012 16003 TCF INTPRET +3 # (ACTUALLY PART OF THE EXECUTIVE).
001291,000042:
001292,000043: # AT THE END OF MOST INSTRUCTIONS, CONTROL IS GIVEN TO DANZIG TO DISPATCH THE NEXT OPERATION.
001293,000044: 6013 54147 NEWMODE TS MODE # PROLOGUE FOR MODE-CHANGING INSTRUCTIONS.
001294,000045:
001295,000046: 6014 30151 DANZIG CA BANKSET # SET BBANK BEFORE TESTING NEWJOB SO THAT
001296,000047: 6015 54004 TS FBANK # BBANK MAY BE SAVED DIRECTLY BY CHANJOB.
001297,000048:
001298,000049: 6016 10023 NOIBNKSW CCS EDOP # SEE IF AN ORDER CODE IS LEFT OVER FROM
001299,000050: 6017 16032 TCF OPJUMP # THE LAST PAIR RETRIEVED. IF SO, EXECUTE.
001300,000051: # EDOP IS SET TO ZERO ON ITS RE-EDITING.
001301,000052:
001302,000053: 6020 10067 CCS NEWJOB # SEE IF A JOB OF HIGHER PRIORITY IS
001303,000054: 6021 14325 TCF CHANG2 # PRESENT, AND IF SO, CHANGE JOBS.
001304,000055:
001305,000056: 6022 24150 INCR LOC # ADVANCE THE LOCATION COUNTER.
001306,000057: 6023 50150 NEWOPS INDEX LOC # ENTRY TO BEGIN BY PICKING OP CODE PAIR.
001307,000058: 6024 30000 CA 0 # MAY BE AN OPCODE PAIR OR A STORE CODE.
001308,000059: 6025 10000 CCS A # TEST SIGN AND GET DABS(A).
001309,000060: 6026 16342 TCF DOSTORE # PROCESS STORE CODE.
001310,000061:
001311,000062: 6027 00177 LOW7 OCT 177
001312,000063:
001313,000064: 6030 54023 TS EDOP # OP CODE PAIR. LEAVE THE OTHER IN EDOP
001314,000065: 6031 76027 MASK LOW7 # WHERE CCS EDOP WILL HONOR IT NEXT.
001315,000066:
001316,000067: 6032 54020 OPJUMP TS CYR # LOWWD ENTERS HERE IF A RIGHT-HAND OP
001317,000068: 6033 10020 CCS CYR # CODE IS TO BE PROCESSED. TEST PREFICES.
001318,000069: 6034 16167 TCF OPJUMP2 # TEST SECOND PREFIX BIT.
001319,000070:
001320,000071: 6035 16731 TCF EXIT # +0 OP CODE IS EXIT.
001321,000072:
001322,000073: # PROCESS ADDRESSES WHICH MAY BE DIRECT, INDEXED, OR REFERENCE THE PUSHDOWN LIST.
001323,000074:
001324,000075: 6036 77652 ADDRESS MASK BIT1 # SEE IF ADDRESS IS INDEXED. CYR CONTAINED
001325,000076: 6037 10000 CCS A # 400XX, SO BIT 1 IS NOW AS IT WAS IN CYR.
001326,000077: 6040 16073 TCF INDEX # FORM INDEXED ADDRESS.
001327,000078:
001328,000079: 6041 50150 DIRADRES INDEX LOC # LOOK AHEAD TO NEXT WORD TO SEE IF
001329,000080: 6042 40001 OCT40001 CS 1 # ADDRESS IS GIVEN.
001330,000081: 6043 10000 CCS A
001331,000082: 6044 16135 TCF PUSHUP # IF NOT.
001332,000083:
001333,000084: 6045 77773 NEG4 DEC -4 B-14
001334,000085:
001335,000086: 6046 24150 INCR LOC # IF SO, TO SHOW WE PICKED UP A WORD.
001336,000087: 6047 54102 TS ADDRWD
001337,000088:
001338,000089: # FINAL DIGESTION OF DIRECT ADDRESSES OF OP CODES WITH 01 PREFIX IS DONE HERE. IN EACH CASE, THE
001339,000090: # REQUIRED 12 BIT SUB-ADDRESS IS LEFT IN ADDRWD, WITH ANY REQUIRED BANK SWITCHING DONE (F ONLY). ADDRESSES LESS
001340,000091: # 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.
001341,000092:
001342,000093:
001343,000094:
001344,000095: 6050 66171 AD -ENDVAC # SEE IF ADDRESS RELATIVE TO WORK AREA.
001345,000096: 6051 10000 CCS A
001346,000097: 6052 66234 AD -ENDERAS # IF NOT, SEE IF IN GENERAL ERASABLE.
001347,000098: 6053 16060 TCF IERASTST
001348,000099:
001349,000100: 6054 30104 NETZERO CA FIXLOC # IF SO, LEAVE THE MODIFIED ADDRESS IN
001350,000101: 6055 26102 ADS ADDRWD # ADDRWD AND DISPATCH.
001351,000102: 6056 50020 +2 INDEX CYR # THIS INDEX MAKES THE NEXT INSTRUCTION
001352,000103: 6057 76234 7 INDJUMP -1 # TCF INDJUMP + OP, EDITING CYR.
001353,000104:
001354,000105: 6060 00006 IERASTST EXTEND
001355,000106: 6061 66056 BZMF NETZERO +2 # GENERAL ERASABLE - DISPATCH IMMEDIATELY.
001356,000107:
001357,000108: 6062 60100 FIXEDADR AD INTB15+ # FIXED BANK ADDRESS. RESTORE AND ADD B15.
001358,000109: 6063 54004 +1 TS FBANK # SWITCH BANKS AND LEAVE SUB-ADDRESS IN
001359,000110: 6064 76426 MASK LOW10 # ADDRWD FOR OPERAND RETRIEVAL.
001360,000111: 6065 67640 AD 2K
001361,000112: 6066 54102 TS ADDRWD
001362,000113: 6067 50020 INDEX CYR
001363,000114: 6070 76234 7 INDJUMP -1
001364,000115:
001365,000116: # THE FOLLOWING ROUTINE PROCESSES INTERPRETIVE INDEXED ADDRESSES. AN INTERPRETER INDEX REGISTER MAY
001366,000117: # CONTAIN THE ADDRESS OF ANY ERASABLE REGISTER (0-42 BEING RELATIVE TO THE VAC AREA) OR ANY INTERPRETIVE PROGRAM
001367,000118: # BANK, OR ANY INTEGER IN THAT RANGE.
001368,000119:
001369,000120: 6071 37670 DODLOAD* CAF DLOAD* # STODL* COMES HERE TO PROCESS LOAD ADR.
001370,000121: 6072 54020 TS CYR # (STOVL* ENTERS HERE).
001371,000122:
001372,000123: 6073 30104 INDEX CA FIXLOC # SET UP INDEX LOCATION.
001373,000124: 6074 54114 TS INDEXLOC
001374,000125: 6075 24150 INCR LOC # (ADDRESS ALWAYS GIVEN).
001375,000126: 6076 50150 INDEX LOC
001376,000127: 6077 40000 CS 0
001377,000128: 6100 10000 CCS A # INDEX 2 IF ADDRESS STORED COMPLEMENTED.
001378,000129: 6101 24114 INCR INDEXLOC
001379,000130: 6102 16103 NOOP
001380,000131:
001381,000132: 6103 54102 TS ADDRWD # 14 BIT ADDRESS TO ADDRWD.
001382,000133: 6104 76232 MASK BANKMASK # IF ADDRESS GREATER THAN 1K, ADD INTBIT15
001383,000134: 6105 00006 EXTEND
001384,000135: 6106 16111 BZF INDEX2
001385,000136: 6107 30101 CA INTBIT15
001386,000137: 6110 26102 ADS ADDRWD
001387,000138:
001388,000139: 6111 50114 INDEX2 INDEX INDEXLOC
001389,000140: 6112 40046 CS X1
001390,000141: 6113 26102 ADS ADDRWD # DO AUGMENT, IGNORING AND CORRECTING OVF.
001391,000142:
001392,000143: 6114 76231 MASK HIGH9 # SEE IF ADDRESS IS IN WORK AREA.
001393,000144: 6115 00006 EXTEND
001394,000145: 6116 16131 BZF INDWORK
001395,000146: 6117 76232 MASK BANKMASK # SEE IF IN FIXED BANK.
001396,000147: 6120 00006 EXTEND
001397,000148: 6121 16133 BZF INDERASE
001398,000149:
001399,000150: 6122 30102 CA ADDRWD # IN FIXED - SWITCH BANKS AND CREATE
001400,000151: 6123 54004 TS FBANK # SUB-ADDRESS.
001401,000152: 6124 76426 MASK LOW10
001402,000153: 6125 67640 AD 2K
001403,000154: 6126 54102 TS ADDRWD
001404,000155: 6127 50020 INDEX CYR
001405,000156: 6130 36234 3 INDJUMP -1
001406,000157:
001407,000158: 6131 30104 INDWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO WORK AREA.
001408,000159: 6132 26102 ADS ADDRWD
001409,000160:
001410,000161: 6133 50020 INDERASE INDEX CYR
001411,000162: 6134 36234 3 INDJUMP -1
001412,000163:
001413,000164: # PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
001414,000165: # LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
001415,000166: # IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.). EXCEPTIONS TO THIS GENERAL RULE ARE LISTED
001416,000167: # BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT):
001417,000168:
001418,000169: # 1. VXSC AND V/SC WANT THE OPPOSITE TYPE OF OPERAND, E.G., IF THE LAST OPERATION YIELDED A VECTOR
001419,000170: # RESULT, VXSC WANTS A SCALAR.
001420,000171:
001421,000172: # 2. THE LOAD CODES SHOULD LOAD THE ACCUMULATOR INDEPENDENT OF THE RESULT OF THE LAST OPERATION. THIS
001422,000173: # INCLUDES VLOAD, DLOAD, TLOAD, PDDL, AND PDVL (NO PUSHUP WITH SLOAD).
001423,000174:
001424,000175: # 3. SOME ARITHMETIC OPERATIONS REQUIRE A STANDARD TYPE OF OPERAND REGARDLESS OF THE PREVIOUS OPERATION.
001425,000176: # THIS INCLUDES SIGN WANTING DP AND TAD REQUIRING TP.
001426,000177:
001427,000178: 6135 36227 PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
001428,000179: 6136 70020 MASK CYR # 20, THIS OP REQUIRES SPECIAL ATTENTION.
001429,000180: 6137 66142 AD -OCT10 # (NO -0).
001430,000181: 6140 10000 CCS A
001431,000182: 6141 16153 TCF REGUP # FOR ALL CODES GREATER THAN OCT 7.
001432,000183:
001433,000184: 6142 77767 -OCT10 OCT -10
001434,000185:
001435,000186: 6143 66045 AD NEG4 # WE NOW HAVE 7 - OP CODE (MOD4). SEE IF
001436,000187: 6144 10000 CCS A # THE OP CODE (MOD4) IS THREE (REVERSE).
001437,000188: 6145 50000 INDEX A # NO - THE MODE IS DEFINITE. PICK UP THE
001438,000189: 6146 46164 CS NO.WDS
001439,000190: 6147 16155 TCF REGUP +2
001440,000191:
001441,000192: 6150 50147 INDEX MODE # FOR VXSC AND V/SC WE WANT THE REQUIRED
001442,000193: 6151 46162 CS REVCNT # PUSHLOC DECREMENT WITHOUT CHANGING THE
001443,000194: 6152 16155 TCF REGUP +2 # MODE AT THIS TIME.
001444,000195:
001445,000196: 6153 50147 REGUP INDEX MODE # MOST ALL OP CODES PUSHUP HERE.
001446,000197: 6154 46164 CS NO.WDS
001447,000198: 6155 26152 +2 ADS PUSHLOC
001448,000199: 6156 54102 TS ADDRWD
001449,000200: 6157 50020 INDEX CYR
001450,000201: 6160 76234 7 INDJUMP -1 # (THE INDEX MAKES THIS A TCF.)
001451,000202:
001452,000203: 6161 00002 OCT 2 # REVERSE PUSHUP DECREMENT. VECTOR TAKES 2
001453,000204: 6162 00006 REVCNT OCT 6 # WORDS, SCALAR TAKES 6.
001454,000205: 6163 00006 OCT 6
001455,000206: 6164 00002 NO.WDS OCT 2 # CONVENTIONAL DECREMENT IS 6 WORDS VECTOR
001456,000207: 6165 00003 OCT 3 # 2 IN DP, AND 3 IN TP.
001457,000208: 6166 00006 OCT 6
001458,000209:
001459,000210: # TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
001460,000211:
001461,000212: 6167 10020 OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
001462,000213: 6170 16217 TCF OPJUMP3 # TEST THIRD BIT TO SEE IF UNARY OR SHIFT.
001463,000214:
001464,000215: 6171 77722 -ENDVAC DEC -45 B-14
001465,000216:
001466,000217: # THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10. THEY ARE BASICALLY WORK AREA ADDRESSES
001467,000218: # IN THE RANGE 0 - 52, ERASABLE ADRES CONSTANTS FROM 100 - 1777, AND FCADRS ABOVE THAT. ALL 15 BITS ARE AVAILABLE
001468,000219: # IN CONTRAST TO SUFFIX 1, IN WHICH ONLY THE LOW ORDER 14 ARE AVAILABLE.
001469,000220:
001470,000221: 6172 24150 15BITADR INCR LOC # (ENTRY HERE FROM STCALL).
001471,000222: 6173 50150 INDEX LOC # PICK UP ADDRESS WORD.
001472,000223: 6174 30000 CA 0
001473,000224: 6175 54103 TS POLISH # THE ABSOLUTE ADDRESS WILL BE LEFT IN
001474,000225: 6176 54102 TS ADDRWD # POLISH WITH AN ERASABLE SUBADDRESS IN
001475,000226: # ADDRWD.
001476,000227: 6177 76231 MASK HIGH9 # SEE IF RELATIVE TO THE WORK AREA.
001477,000228: 6200 10000 CCS A
001478,000229: 6201 16203 TCF +2
001479,000230: 6202 16210 TCF RELWORK # ONLY IF ZERO.
001480,000231:
001481,000232: 6203 36230 CAF LOW7+2K # THESE INSTRUCTIONS ARE IN BANK 1.
001482,000233: 6204 54004 TS FBANK
001483,000234: 6205 70020 MASK CYR
001484,000235: 6206 50000 INDEX A
001485,000236: 6207 16275 TCF MISCJUMP
001486,000237:
001487,000238: 6210 30104 RELWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO FIXLOC, LEAVING
001488,000239: 6211 26102 ADS ADDRWD # POLISH ABSOLUTE IN CASE THIS WAS AN
001489,000240: 6212 36230 CAF LOW7+2K # AXT, ETC.
001490,000241: 6213 54004 TS FBANK
001491,000242: 6214 70020 MASK CYR
001492,000243: 6215 50000 INDEX A
001493,000244: 6216 16275 TCF MISCJUMP
001494,000245:
001495,000246: # COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
001496,000247:
001497,000248: 6217 54004 OPJUMP3 TS FBANK # CALL IN BANK 0 (BITS 11-15 OF A ARE 0.)
001498,000249: 6220 10020 CCS CYR # TEST THIRD PREFIX BIT.
001499,000250: 6221 50000 INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
001500,000251: 6222 16315 TCF UNAJUMP # 1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
001501,000252:
001502,000253: 6223 10147 CCS MODE # ITS A SHORT SHIFT CODE. SEE IF PRESENT
001503,000254: 6224 12000 TCF SHORTT # SCALAR OR VECTOR.
001504,000255: 6225 12000 TCF SHORTT
001505,000256: 6226 12102 TCF SHORTV # CALLS THE APPROPRIATE ROUTINE.
001506,000257:
001507,000258:
001508,000259: 6227 00023 OCT23 OCT 23 # MASK USED BY PUSH-UP ROUTINE.
001509,000260: 6230 02177 LOW7+2K OCT 2177 # OP CODE MASK + BANK 1 FBANK SETTING.
001510,000261: 6231 77700 HIGH9 OCT 77700
001511,000262: 6232 76000 BANKMASK OCT 76000 # FBANK MASK.
001512,000263: 6233 6232 FBANKMSK EQUALS BANKMASK
001513,000264: 6233 36000 B11T14 OCT 36000 # USED IN PROCESSING STORE CODES.
001514,000265: 6234 76056 -ENDERAS DEC -977 B-14
001515,000266:
001516,000267: # THE FOLLOWING IS THE JUMP TABLE FOR OP CODES WHICH MAY HAVE INDEXABLE ADDRESSES OR MAY PUSH UP.
001517,000268:
001518,000269: 6235 16511 INDJUMP TCF VLOAD # 00 - LOAD MPAC WITH A VECTOR.
001519,000270: 6236 17050 TCF TAD # 01 - TRIPLE PRECISION ADD TO MPAC.
001520,000271: 6237 17576 TCF SIGN # 02 - COMPLEMENT MPAC (V OR SC) IF X NEG.
001521,000272: 6240 17347 TCF VXSC # 03 - VECTOR TIMES SCALAR.
001522,000273: 6241 16672 TCF CGOTO # 04 - COMPUTED GO TO.
001523,000274: 6242 16474 TCF TLOAD # 05 - LOAD MPAC WITH TRIPLE PRECISION.
001524,000275: 6243 16465 TCF DLOAD # 06 - LOAD MPAC WITH A DP SCALAR.
001525,000276: 6244 17545 TCF V/SC # 07 - VECTOR DIVIDED BY SCALAR.
001526,000277:
001527,000278: 6245 16505 TCF SLOAD # 10 - LOAD MPAC IN SINGLE PRECISION.
001528,000279: 6246 16624 TCF SSP # 11 - SET SINGLE PRECISION INTO X.
001529,000280: 6247 16527 TCF PDDL # 12 - PUSH DOWN MPAC AND RE-LOAD IN DP.
001530,000281: 6250 17302 TCF MXV # 13 - MATRIX POST-MULTIPLIED BY VECTOR.
001531,000282: 6251 16563 TCF PDVL # 14 - PUSH DOWN AND VECTOR LOAD.
001532,000283: 6252 16632 TCF CCALL # 15 - COMPUTED CALL.
001533,000284: 6253 17305 TCF VXM # 16 - MATRIX PRE-MULTIPLIED BY VECTOR.
001534,000285: 6254 17537 TCF TSLC # 17 - NORMALIZE MPAC (SCALAR ONLY).
001535,000286:
001536,000287: 6255 17515 TCF DMPR # 20 - DP MULTIPLY AND ROUND.
001537,000288: 6256 17520 TCF DDV # 21 - DP DIVIDE BY.
001538,000289: 6257 17524 TCF BDDV # 22 - DP DIVIDE INTO.
001539,000290: 6260 17542 TCF GSHIFT # 23 - GENERAL SHIFT INSTRUCTION.
001540,000291: 6261 16733 TCF VAD # 24 - VECTOR ADD.
001541,000292: 6262 16761 TCF VSU # 25 - VECTOR SUBTRACT.
001542,000293: 6263 17011 TCF BVSU # 26 - VECTOR SUBTRACT FROM.
001543,000294: 6264 17277 TCF DOT # 27 - VECTOR DOT PRODUCT.
001544,000295:
001545,000296: 6265 17427 TCF VXV # 30 - VECTOR CROSS PRODUCT.
001546,000297: 6266 17373 TCF VPROJ # 31 - VECTOR PROJECTION.
001547,000298: 6267 16777 TCF DSU # 32 - DP SUBTRACT.
001548,000299: 6270 17035 TCF BDSU # 33 - DP SUBTRACT FROM.
001549,000300: 6271 16751 TCF DAD # 34 - DP ADD.
001550,000301: 6272 16272 TCF +0 # 35 - AVAILABLE
001551,000302: 6273 17513 TCF DMP1 # 36 - DP MULTIPLY.
001552,000303: 6274 17534 TCF SETPD # 37 - SET PUSH DOWN POINTER (DIRECT ONLY)
001553,000304:
001554,000305: # CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
001555,000306:
001556,000307: # THE FOLLOWING JUMP TABLE APPLIES TO INDEX, BRANCH, AND MISCELLANEOUS INSTRUCTIONS.
001557,000308:
001558,000309: 6275 12000 MISCJUMP TCF AXT # 00 - ADDRESS TO INDEX TRUE.
001559,000310: 6276 12005 TCF AXC # 01 - ADDRESS TO INDEX COMPLEMENTED.
001560,000311: 6277 12010 TCF LXA # 02 - LOAD INDEX FROM ERASABLE.
001561,000312: 6300 12014 TCF LXC # 03 - LOAD INDEX FROM COMPLEMENT OF ERAS.
001562,000313: 6301 12020 TCF SXA # 04 - STORE INDEX IN ERASABLE.
001563,000314: 6302 12024 TCF XCHX # 05 - EXCHANGE INDEX WITH ERASABLE.
001564,000315: 6303 12040 TCF INCR # 06 - INCREMENT INDEX REGISTER.
001565,000316: 6304 12047 TCF TIX # 07 - TRANSFER ON INDEX.
001566,000317:
001567,000318: 6305 12032 TCF XAD # 10 - INDEX REGISTER ADD FROM ERASABLE.
001568,000319: 6306 12043 TCF XSU # 11 - INDEX SUBTRACT FROM ERASABLE.
001569,000320: 6307 12107 TCF BZE/GOTO # 12 - BRANCH ZERO AND GOTO.
001570,000321: 6310 12114 TCF BPL/BMN # 13 - BRANCH PLUS AND BRANCH MINUS.
001571,000322: 6311 12127 TCF CALL/ITA # 14 - CALL AND STORE QPRET.
001572,000323: 6312 12067 TCF RTB/BHIZ # 15 - RETURN TO BASIC AND BRANCH HI ZERO.
001573,000324: 6313 12135 TCF SW/ # 16 - SWITCH INSTRUCTIONS AND AVAILABLE.
001574,000325: 6314 12077 TCF BOV(B) # 17 - BRANCH ON OVERFLOW TO BASIC OR INT.
001575,000326:
001576,000327: # THE FOLLOWING JUMP TABLE APPIES TO UNARY INSTRUCTIONS.
001577,000328:
001578,000329: # 00 - EXIT - DETECTED EARLIER.
001579,000330: 6315 13135 UNAJUMP TCF SQRT # 01 - SQUARE ROOT.
001580,000331: 6316 13456 TCF SINE # 02 - SIN.
001581,000332: 6317 13445 TCF COSINE # 03 - COS.
001582,000333: 6320 13536 TCF ARCSIN # 04 - ARC SIN.
001583,000334: 6321 13540 TCF ARCCOS # 05 - ARC COS.
001584,000335: 6322 13122 TCF DSQ # 06 - DP SQUARE.
001585,000336: 6323 12077 TCF ROUND # 07 - ROUND TO DP.
001586,000337:
001587,000338: 6324 17611 TCF COMP # 10 - COMPLEMENT VECTOR OR SCALAR.
001588,000339: 6325 13160 TCF VDEF # 11 - VECTOR DEFINE.
001589,000340: 6326 12750 TCF UNIT # 12 - UNIT VECTOR.
001590,000341: 6327 13124 TCF ABVALABS # 13 - LENGTH OF VECTOR OR MAG OF SCALAR.
001591,000342: 6330 13174 TCF VSQ # 14 - SQUARE OF LENGTH OF VECTOR.
001592,000343: 6331 16334 TCF STADR # 15 - PUSH UP ON STORE CODE.
001593,000344: 6332 13224 TCF RVQ # 16 - RETURN VIA QPRET.
001594,000345: 6333 13177 TCF PUSH # 17 - PUSH MPAC DOWN.
001595,000346:
001596,000347: # SECTION 2 LOAD AND STORE PACKAGE.
001597,000348:
001598,000349: # A SET OF SIXTEEN STORE CODES ARE PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
001599,000350: # ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A
001600,000351: # STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS. MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
001601,000352: # FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC. FOUR OPTIONS ARE AVAILABLE:
001602,000353:
001603,000354: # 1. STORE STORE MPAC. THE E ADDRESS MAY BE INDEXED.
001604,000355: # 2. STODL STORE MPAC AND RE-LOAD IT IN DP WITH THE NEXT ADDRESS (EITHER MAY BE INDEXED).
001605,000356: # 3. STOVL STORE MPAC AND RE-LOAD A VECTOR (AS ABOVE).
001606,000357: # 4. STCALL STORE AND DO A CALL (BOTH ADDRESSES MUST BE DIRECT HERE).
001607,000358:
001608,000359: # STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
001609,000360:
001610,000361:
001611,000362:
001612,000363: 6334 30151 STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
001613,000364: 6335 54004 TS FBANK # ADDRESS) ENTERS HERE.
001614,000365: 6336 24150 INCR LOC
001615,000366: 6337 50150 INDEX LOC # THE STORE CODE WAS STORE COMPLEMENTED TO
001616,000367: 6340 40000 CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR.
001617,000368: 6341 67661 AD NEGONE # (YUL CANT REMOVE 1 BECAUSE OF EARLY CCS)
001618,000369:
001619,000370: 6342 54102 DOSTORE TS ADDRWD
001620,000371: 6343 76426 MASK LOW10 # ENTRY FROM DISPATCHER. SAVE THE ERASABLE
001621,000372: 6344 56102 XCH ADDRWD # ADDRESS AND JUMP ON THE STORE CODE NO.
001622,000373: 6345 76233 MASK B11T14
001623,000374: 6346 00006 EXTEND
001624,000375: 6347 77645 MP BIT6 # EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
001625,000376: 6350 50000 INDEX A
001626,000377: 6351 16352 TCF STORJUMP
001627,000378:
001628,000379: # STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
001629,000380: # A SUPPLIED OPERATION CODE.
001630,000381:
001631,000382: 6352 06422 STORJUMP TC STORE # STORE.
001632,000383: 6353 16022 TCF NEWOPS -1 # PICK UP NEW OP CODE(S).
001633,000384: 6354 06414 TC STORE,1
001634,000385: 6355 16022 TCF NEWOPS -1
001635,000386: 6356 06417 TC STORE,2
001636,000387: 6357 16022 TCF NEWOPS -1
001637,000388:
001638,000389: 6360 06422 TC STORE # STODL.
001639,000390: 6361 16455 TCF DODLOAD
001640,000391: 6362 06414 TC STORE,1
001641,000392: 6363 16455 TCF DODLOAD
001642,000393: 6364 06417 TC STORE,2
001643,000394: 6365 16455 TCF DODLOAD
001644,000395:
001645,000396: 6366 06422 TC STORE # STODL WITH INDEXED LOAD ADDRESS.
001646,000397: 6367 16071 TCF DODLOAD*
001647,000398: 6370 06414 TC STORE,1
001648,000399: 6371 16071 TCF DODLOAD*
001649,000400: 6372 06417 TC STORE,2
001650,000401: 6373 16071 TCF DODLOAD*
001651,000402:
001652,000403: 6374 06422 TC STORE # STOVL.
001653,000404: 6375 16460 TCF DOVLOAD
001654,000405: 6376 06414 TC STORE,1
001655,000406: 6377 16460 TCF DOVLOAD
001656,000407: 6400 06417 TC STORE,2
001657,000408: 6401 16460 TCF DOVLOAD
001658,000409:
001659,000410: 6402 06422 TC STORE # STOVL WITH INDEXED LOAD ADDRESS.
001660,000411: 6403 16463 TCF DOVLOAD*
001661,000412: 6404 06414 TC STORE,1
001662,000413: 6405 16463 TCF DOVLOAD*
001663,000414: 6406 06417 TC STORE,2
001664,000415: 6407 16463 TCF DOVLOAD*
001665,000416:
001666,000417: 6410 06422 TC STORE # STOTC.
001667,000418: 6411 37666 CAF CALLCODE
001668,000419: 6412 54020 TS CYR
001669,000420: 6413 16172 TCF 15BITADR # GET A 15 BIT ADDRESS.
001670,000421:
001671,000422: # STORE CODE ADDRESS PROCESSOR.
001672,000423:
001673,000424: 6414 50104 STORE,1 INDEX FIXLOC
001674,000425: 6415 40046 CS X1
001675,000426: 6416 16421 TCF PRESTORE
001676,000427:
001677,000428: 6417 50104 STORE,2 INDEX FIXLOC
001678,000429: 6420 40047 CS X2
001679,000430: 6421 26102 PRESTORE ADS ADDRWD # RESULTANT ADDRESS IS IN ERASABLE.
001680,000431:
001681,000432: 6422 30102 STORE CA ADDRWD # SEE IF ADDRESS RELATIVE TO WORK AREA.
001682,000433: 6423 66171 AD -ENDVAC
001683,000434: 6424 10000 CCS A
001684,000435: 6425 16431 TCF STARTSTO # ADDRESS OK AS IS.
001685,000436:
001686,000437: 6426 01777 LOW10 OCT 1777
001687,000438:
001688,000439: 6427 30104 CA FIXLOC # GIVEN ADDRESS IS RELATIVE TO WORK AREA.
001689,000440: 6430 26102 ADS ADDRWD
001690,000441:
001691,000442: # STORING ROUTINES. STORE DP, TP, OR VECTOR AS INDICATED BY MODE.
001692,000443:
001693,000444: 6431 00006 STARTSTO EXTEND # MPAC,+1 MUST BE STORED IN ANY EVENT.
001694,000445: 6432 30141 DCA MPAC
001695,000446: 6433 50102 INDEX ADDRWD
001696,000447: 6434 52001 DXCH 0
001697,000448:
001698,000449: 6435 10147 CCS MODE
001699,000450: 6436 16451 TCF TSTORE
001700,000451: 6437 00002 TC Q
001701,000452:
001702,000453: 6440 00006 VSTORE EXTEND
001703,000454: 6441 30144 DCA MPAC +3
001704,000455: 6442 50102 INDEX ADDRWD
001705,000456: 6443 52003 DXCH 2
001706,000457:
001707,000458: 6444 00006 EXTEND
001708,000459: 6445 30146 DCA MPAC +5
001709,000460: 6446 50102 INDEX ADDRWD
001710,000461: 6447 52005 DXCH 4
001711,000462: 6450 00002 TC Q
001712,000463:
001713,000464: 6451 30142 TSTORE CA MPAC +2
001714,000465: 6452 50102 INDEX ADDRWD
001715,000466: 6453 54002 TS 2
001716,000467: 6454 00002 TC Q
001717,000468:
001718,000469: # ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
001719,000470: # ITSELF.
001720,000471:
001721,000472: 6455 37667 DODLOAD CAF DLOADCOD
001722,000473: 6456 54020 TS CYR
001723,000474: 6457 16041 TCF DIRADRES # GO GET A DIRECT ADDRESS.
001724,000475:
001725,000476: 6460 37634 DOVLOAD CAF VLOADCOD
001726,000477: 6461 54020 TS CYR
001727,000478: 6462 16041 TCF DIRADRES
001728,000479:
001729,000480: 6463 36042 DOVLOAD* CAF VLOAD*
001730,000481: 6464 16072 TCF DODLOAD* +1 # PROLOGUE TO INDEX ROUTINE.
001731,000482:
001732,000483: # THE FOLLOWING LOAD INSTRUCTIONS ARE PROVIDED FOR LOADING THE MULTI-PURPOSE ACCUMULATOR MPAC.
001733,000484:
001734,000485: 6465 00006 DLOAD EXTEND
001735,000486: 6466 50102 INDEX ADDRWD
001736,000487: 6467 30001 DCA 0 # PICK UP DP ARGUMENT AND LEAVE IT IN
001737,000488: 6470 52141 SLOAD2 DXCH MPAC # MPAC,+1, SETTING MPAC +2 TO ZERO. THE
001738,000489: 6471 37657 CAF ZERO # CONTENTS OF THE OTHER FOUR REGISTERS OF
001739,000490: 6472 54142 TS MPAC +2 # MPAC ARE IRRELEVANT.
001740,000491: 6473 16013 TCF NEWMODE # DECLARE DOUBLE PRECISION MODE.
001741,000492:
001742,000493: 6474 50102 TLOAD INDEX ADDRWD
001743,000494: 6475 30002 CA 2 # LOAD A TRIPLE PRECISION ARGUMENT INTO
001744,000495: 6476 54142 TS MPAC +2 # THE FIRST THREE MPAC REGISTERS, WITH THE
001745,000496: 6477 00006 EXTEND # CONTENTS OF THE OTHER FOUR IRRELEVANT.
001746,000497: 6500 50102 INDEX ADDRWD
001747,000498: 6501 30001 DCA 0
001748,000499: 6502 52141 DXCH MPAC
001749,000500: 6503 37652 CAF ONE
001750,000501: 6504 16013 TCF NEWMODE # DECLARE TRIPLE PRECISION MODE.
001751,000502:
001752,000503: 6505 22007 SLOAD ZL # LOAD A SINGLE PRECISION NUMBER INTO
001753,000504: 6506 50102 INDEX ADDRWD # MPAC, SETTING MPAC+1,2 TO ZERO. THE
001754,000505: 6507 30000 CA 0 # CONTENTS OF THE REMAINING MPAC REGISTERS
001755,000506: 6510 16470 TCF SLOAD2 # ARE IRRELEVANT.
001756,000507:
001757,000508: 6511 00006 VLOAD EXTEND # LOAD A DOUBLE PRECISION VECTOR INTO
001758,000509: 6512 50102 INDEX ADDRWD # MPAC,+1, MPAC+3,4, AND MPAC+5,6. THE
001759,000510: 6513 30001 DCA 0 # CONTENTS OF MPAC +2 ARE IRRELEVANT.
001760,000511: 6514 52141 DXCH MPAC
001761,000512:
001762,000513: 6515 00006 ENDVLOAD EXTEND # PDVL COMES HERE TO FINISH UP FOR DP, TP.
001763,000514: 6516 50102 INDEX ADDRWD
001764,000515: 6517 30003 DCA 2
001765,000516: 6520 52144 DXCH MPAC +3
001766,000517:
001767,000518: 6521 00006 +4 EXTEND # TPDVL FINISHES HERE.
001768,000519: 6522 50102 INDEX ADDRWD
001769,000520: 6523 30005 DCA 4
001770,000521: 6524 52146 DXCH MPAC +5
001771,000522:
001772,000523: 6525 47652 CS ONE # DECLARE VECTOR MODE.
001773,000524: 6526 16013 TCF NEWMODE
001774,000525:
001775,000526: # THE FOLLOWING INSTRUCTIONS ARE PROVIDED FOR STORING OPERANDS IN THE PUSHDOWN LIST:
001776,000527:
001777,000528: # 1. PUSH PUSHDOWN AND NO LOAD.
001778,000529: # 2. PDDL PUSHDOWN AND DOUBLE PRECISION LOAD.
001779,000530: # 3. PDVL PUSHDOWN AND VECTOR LOAD.
001780,000531:
001781,000532: 6527 00006 PDDL EXTEND
001782,000533: 6530 50102 INDEX ADDRWD # LOAD MPAC,+1, PUSHING THE FORMER
001783,000534: 6531 30001 DCA 0 # CONTENTS DOWN.
001784,000535: 6532 52141 DXCH MPAC
001785,000536: 6533 50152 INDEX PUSHLOC
001786,000537: 6534 52001 DXCH 0
001787,000538:
001788,000539: 6535 50147 INDEX MODE # ADVANCE THE PUSHDOWN POINTER APPRO-
001789,000540: 6536 36164 CAF NO.WDS # PRIATELY.
001790,000541: 6537 26152 ADS PUSHLOC
001791,000542:
001792,000543: 6540 10147 CCS MODE
001793,000544: 6541 16556 TCF ENDTPUSH
001794,000545: 6542 16554 TCF ENDDPUSH
001795,000546:
001796,000547: 6543 54147 TS MODE # NOW DP.
001797,000548: 6544 54142 ENDVPUSH TS MPAC +2
001798,000549: 6545 52144 DXCH MPAC +3 # PUSH DOWN THE REST OF THE VECTOR HERE.
001799,000550: 6546 50152 INDEX PUSHLOC
001800,000551: 6547 51775 DXCH 0 -4
001801,000552:
001802,000553: 6550 52146 DXCH MPAC +5
001803,000554: 6551 50152 INDEX PUSHLOC
001804,000555: 6552 51777 DXCH 0 -2
001805,000556:
001806,000557: 6553 16014 TCF DANZIG
001807,000558:
001808,000559: 6554 54142 ENDDPUSH TS MPAC +2 # SET MPAC +2 TO ZERO AND EXIT ON DP.
001809,000560: 6555 16014 TCF DANZIG
001810,000561:
001811,000562: 6556 54147 ENDTPUSH TS MODE
001812,000563: 6557 56142 XCH MPAC +2 # ON TRIPLE, SET MPAC +2 TO ZERO, PUSHING
001813,000564: 6560 50152 +2 INDEX PUSHLOC # DOWN THE OLD CONTENTS
001814,000565: 6561 53777 TS 0 -1
001815,000566: 6562 16014 TCF DANZIG
001816,000567:
001817,000568: # PDVL - PUSHDOWN AND VECTOR LOAD.
001818,000569:
001819,000570: 6563 00006 PDVL EXTEND # RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
001820,000571: 6564 50102 INDEX ADDRWD
001821,000572: 6565 30001 DCA 0
001822,000573: 6566 52141 DXCH MPAC
001823,000574: 6567 50152 INDEX PUSHLOC
001824,000575: 6570 52001 DXCH 0
001825,000576:
001826,000577: 6571 50147 INDEX MODE # ADVANCE THE PUSHDOWN POINTER.
001827,000578: 6572 36164 CAF NO.WDS
001828,000579: 6573 26152 ADS PUSHLOC
001829,000580:
001830,000581: 6574 10147 CCS MODE # TEST PAST MODE.
001831,000582: 6575 16614 TCF TPDVL
001832,000583: 6576 16515 TCF ENDVLOAD # JUST LOAD LAST FOUR REGISTERS ON DP.
001833,000584:
001834,000585: 6577 00006 VPDVL EXTEND # PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
001835,000586: 6600 50102 INDEX ADDRWD
001836,000587: 6601 30003 DCA 2
001837,000588: 6602 52144 DXCH MPAC +3
001838,000589: 6603 50152 INDEX PUSHLOC
001839,000590: 6604 51775 DXCH 0 -4
001840,000591:
001841,000592: 6605 00006 EXTEND
001842,000593: 6606 50102 INDEX ADDRWD
001843,000594: 6607 30005 DCA 4
001844,000595: 6610 52146 DXCH MPAC +5
001845,000596: 6611 50152 INDEX PUSHLOC
001846,000597: 6612 51777 DXCH 0 -2
001847,000598:
001848,000599: 6613 16014 TCF DANZIG
001849,000600:
001850,000601: 6614 00006 TPDVL EXTEND # ON TP, WE MUST LOAD THE Y COMPONENT
001851,000602: 6615 50102 INDEX ADDRWD # BEFORE STORING MPAC +2 IN CASE THIS IS A
001852,000603: 6616 30003 DCA 2 # PUSHUP.
001853,000604: 6617 52144 DXCH MPAC +3
001854,000605:
001855,000606: 6620 30142 CA MPAC +2
001856,000607: 6621 50152 INDEX PUSHLOC # IN DP.
001857,000608: 6622 53777 TS 0 -1
001858,000609: 6623 16521 TCF ENDVLOAD +4
001859,000610:
001860,000611: # SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
001861,000612:
001862,000613: 6624 24150 SSP INCR LOC # PICK UP THE WORD FOLLOWING THE GIVEN
001863,000614: 6625 50150 INDEX LOC # ADDRESS AND STORE IT AT X.
001864,000615: 6626 30000 CA 0
001865,000616: 6627 50102 STORE1 INDEX ADDRWD # SOME INDEX AND MISCELLANEOUS OPS END
001866,000617: 6630 54000 TS 0 # HERE.
001867,000618:
001868,000619: 6631 16014 TCF DANZIG
001869,000620:
001870,000621: # SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
001871,000622:
001872,000623: # THE FOLLOWING OPERATIONS ARE AVAILABLE FOR SEQUENCING CHANGING, BRANCHING, AND CALLING SUBROUTINES:
001873,000624:
001874,000625: # 1. GOTO GO TO.
001875,000626: # 2. CALL CALL SUBROUTINE SETTING QPRET.
001876,000627: # 3. CGOTO COMPUTED GO TO.
001877,000628: # 4. CCALL COMPUTED CALL.
001878,000629: # 7. BPL BRANCH IF MPAC POSITIVE OR ZERO.
001879,000630: # 8. BZE BRANCH IF MPAC ZERO.
001880,000631: # 9. BMN BRANCH IF MPAC NEGATIVE NON-ZERO.
001881,000632:
001882,000633: 6632 24150 CCALL INCR LOC # MAINTAIN LOC FOR QPRET COMPUTATION.
001883,000634: 6633 50150 INDEX LOC
001884,000635: 6634 30000 CAF 0 # GET BASE ADDRESS OF CADR LIST.
001885,000636: 6635 50102 INDEX ADDRWD
001886,000637: 6636 60000 AD 0 # ADD INCREMENT.
001887,000638: 6637 54004 TS FBANK # SELECT DESIRED CADR.
001888,000639: 6640 76426 MASK LOW10
001889,000640: 6641 50000 INDEX A
001890,000641: 6642 32000 CAF 10000
001891,000642: 6643 54103 -1 TS POLISH
001892,000643:
001893,000644: 6644 46426 CALL CS LOW10 # FOR ANY OF THE CALL OPTIONS, MAKE UP THE
001894,000645: 6645 60150 AD LOC # ADDRESS OF THE NEXT OP-CODE PAIR/STORE
001895,000646: 6646 60151 AD BANKSET # CODE AND LEAVE IT IN QPRET. NOTE THAT
001896,000647: 6647 50104 INDEX FIXLOC # LOW10 = 2000 - 1.
001897,000648: 6650 54052 TS QPRET
001898,000649:
001899,000650: 6651 30103 GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
001900,000651: 6652 54004 TS FBANK
001901,000652: 6653 76426 MASK LOW10 # MAKE UP 12 BIT SUB-ADDRESS AND FALL INTO
001902,000653: 6654 67640 AD 2K # FALL INTO THE INTPRET ENTRY UNLESS THE
001903,000654: 6655 54150 TS LOC # GIVEN ADDRESS WAS IN ERASABLE, IN WHICH
001904,000655: 6656 10004 CCS FBANK # CASE IT IS USED AS THE ADDRESS OF THE
001905,000656: 6657 16002 TCF INTPRET +2 # BRANCH ADDRESS.
001906,000657: 6660 16662 TCF +2
001907,000658: 6661 16002 TCF INTPRET +2
001908,000659:
001909,000660: 6662 40150 CS LOC # THE GIVEN ADDRESS IS IN ERASABLE - SEE
001910,000661: 6663 66710 AD EVAC+2K # IF RELATIVE TO THE WORK AREA.
001911,000662: 6664 10000 CCS A
001912,000663: 6665 30104 CA FIXLOC # ADD FIXLOC IF SO.
001913,000664: 6666 26150 ADS LOC
001914,000665:
001915,000666: 6667 50150 INDEX LOC
001916,000667: 6670 26000 CA 0 -2000 # (ADDRESS HAD BEEN AUGMENTED BY 2000.)
001917,000668: 6671 16652 TCF GOTO +1 # ALLOWS ARBITRARY INDIRECTNESS.
001918,000669:
001919,000670: 6672 50150 CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
001920,000671: 6673 30001 CA 1 # LIST.
001921,000672: 6674 50102 INDEX ADDRWD # ADD MODIFIER.
001922,000673: 6675 60000 AD 0
001923,000674: 6676 54004 TS FBANK # SELECT GOTO ADDRESS.
001924,000675: 6677 76426 MASK LOW10
001925,000676: 6700 50000 INDEX A
001926,000677: 6701 32000 CA 10000
001927,000678: 6702 16652 TCF GOTO +1 # WITH ADDRESS IN A.
001928,000679:
001929,000680: 6703 30151 SWBRANCH CA BANKSET # SWITCH INSTRUCTIONS WHICH ELECT TO
001930,000681: 6704 54004 TS FBANK # BRANCH COME HERE TO DO SO.
001931,000682: 6705 50150 INDEX LOC
001932,000683: 6706 30001 CA 1
001933,000684: 6707 16652 TCF GOTO +1
001934,000685:
001935,000686: 6710 02055 EVAC+2K DEC 1069 B-14 # =1024+45
001936,000687:
001937,000688: # TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
001938,000689: # L+1 IF MPAC IS GREATER THAN ZERO.
001939,000690: # L+2 IF MPAC IS EQUAL TO +0 OR -0.
001940,000691: # L+3 IF MPAC IS LESS THAN ZERO.
001941,000692:
001942,000693:
001943,000694:
001944,000695: 6711 10140 BRANCH CCS MPAC
001945,000696: 6712 00002 TC Q
001946,000697: 6713 16715 TCF +2 # ON ZERO.
001947,000698: 6714 16727 TCF NEG
001948,000699:
001949,000700: 6715 10141 CCS MPAC +1
001950,000701: 6716 00002 TC Q
001951,000702: 6717 16721 TCF +2
001952,000703: 6720 16727 TCF NEG
001953,000704:
001954,000705: 6721 10142 CCS MPAC +2
001955,000706: 6722 00002 TC Q
001956,000707: 6723 16725 TCF +2
001957,000708: 6724 16727 TCF NEG
001958,000709:
001959,000710: 6725 50002 INDEX Q # IF ALL THREE REGISTERS WERE +-0.
001960,000711: 6726 00001 TC 1
001961,000712:
001962,000713: 6727 50002 NEG INDEX Q # IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
001963,000714: 6730 00002 TC 2
001964,000715:
001965,000716:
001966,000717:
001967,000718: 6731 50150 EXIT INDEX LOC # LEAVE INTERPRETIVE MODE.
001968,000719: 6732 10001 TCF 1
001969,000720:
001970,000721: # SECTION 3 - ADD/SUBTRACT PACKAGE.
001971,000722:
001972,000723: # THE FOLLOWING OPERATIONS ARE PROVIDED FOR ADDING TO AND SUBTRACTING FROM THE MULTI-PURPOSE ACCUMULATOR
001973,000724: # MPAC:
001974,000725:
001975,000726: # 1. DAD DOUBLE PRECISION ADD.
001976,000727: # 2. DSU DOUBLE PRECISION SUBTRACT.
001977,000728: # 3. BDSU DOUBLE PRECISION SUBTRACT FROM.
001978,000729:
001979,000730: # 4. TAD TRIPLE PRECISION ADD.
001980,000731:
001981,000732: # 5. VAD VECTOR ADD.
001982,000733: # 6. VSU VECTOR SUBTRACT.
001983,000734: # 7. BVSU VECTOR SUBTRACT FROM.
001984,000735:
001985,000736: # THE INTERPRETIVE OVERFLOW INDICATOR OVFIND IS SET NON-ZERO IF OVERFLOW OCCURS IN ANY OF THE ABOVE.
001986,000737:
001987,000738:
001988,000739:
001989,000740: 6733 00006 VAD EXTEND
001990,000741: 6734 50102 INDEX ADDRWD
001991,000742: 6735 30003 DCA 2
001992,000743: 6736 20144 DAS MPAC +3
001993,000744: 6737 00006 EXTEND # CHECK OVERFLOW.
001994,000745: 6740 16742 BZF +2
001995,000746: 6741 07007 TC OVERFLOW
001996,000747:
001997,000748: 6742 00006 EXTEND
001998,000749: 6743 50102 INDEX ADDRWD
001999,000750: 6744 30005 DCA 4
002000,000751: 6745 20146 DAS MPAC +5
002001,000752: 6746 00006 EXTEND
002002,000753: 6747 16751 BZF +2
002003,000754: 6750 07007 TC OVERFLOW
002004,000755:
002005,000756: 6751 00006 DAD EXTEND
002006,000757: 6752 50102 INDEX ADDRWD
002007,000758: 6753 30001 DCA 0
002008,000759: 6754 20141 ENDVXV DAS MPAC # VXV FINISHES HERE.
002009,000760: 6755 00006 EXTEND
002010,000761: 6756 16014 BZF DANZIG
002011,000762: 6757 07007 TC OVERFLOW
002012,000763: 6760 16014 TCF DANZIG
002013,000764:
002014,000765: 6761 00006 VSU EXTEND
002015,000766: 6762 50102 INDEX ADDRWD
002016,000767: 6763 40003 DCS 2
002017,000768: 6764 20144 DAS MPAC +3
002018,000769: 6765 00006 EXTEND
002019,000770: 6766 16770 BZF +2
002020,000771: 6767 07007 TC OVERFLOW
002021,000772:
002022,000773: 6770 00006 EXTEND
002023,000774: 6771 50102 INDEX ADDRWD
002024,000775: 6772 40005 DCS 4
002025,000776: 6773 20146 DAS MPAC +5
002026,000777: 6774 00006 EXTEND
002027,000778: 6775 16777 BZF +2
002028,000779: 6776 07007 TC OVERFLOW
002029,000780:
002030,000781: 6777 00006 DSU EXTEND
002031,000782: 7000 50102 INDEX ADDRWD
002032,000783: 7001 40001 DCS 0
002033,000784: 7002 20141 DAS MPAC
002034,000785: 7003 00006 EXTEND
002035,000786: 7004 16014 BZF DANZIG
002036,000787: 7005 07007 TC OVERFLOW
002037,000788: 7006 16014 TCF DANZIG
002038,000789:
002039,000790: 7007 37652 OVERFLOW CAF ONE # SUBROUTINE TO TURN OVFIND ON.
002040,000791: 7010 17132 TCF SETOVF2
002041,000792:
002042,000793: 7011 00006 BVSU EXTEND
002043,000794: 7012 50102 INDEX ADDRWD
002044,000795: 7013 30003 DCA 2
002045,000796: 7014 52144 DXCH MPAC +3
002046,000797: 7015 00006 EXTEND
002047,000798: 7016 40001 DCOM
002048,000799: 7017 20144 DAS MPAC +3
002049,000800: 7020 00006 EXTEND
002050,000801: 7021 17023 BZF +2
002051,000802: 7022 07007 TC OVERFLOW
002052,000803:
002053,000804: 7023 00006 EXTEND
002054,000805: 7024 50102 INDEX ADDRWD
002055,000806: 7025 30005 DCA 4
002056,000807: 7026 52146 DXCH MPAC +5
002057,000808: 7027 00006 EXTEND
002058,000809: 7030 40001 DCOM
002059,000810: 7031 20146 DAS MPAC +5
002060,000811: 7032 00006 EXTEND
002061,000812: 7033 17035 BZF +2
002062,000813: 7034 07007 TC OVERFLOW
002063,000814:
002064,000815: 7035 00006 BDSU EXTEND
002065,000816: 7036 50102 INDEX ADDRWD
002066,000817: 7037 30001 DCA 0
002067,000818: 7040 52141 DXCH MPAC
002068,000819: 7041 00006 EXTEND
002069,000820: 7042 40001 DCOM
002070,000821: 7043 20141 DAS MPAC
002071,000822: 7044 00006 EXTEND
002072,000823: 7045 16014 BZF DANZIG
002073,000824: 7046 07007 TC OVERFLOW
002074,000825: 7047 16014 TCF DANZIG
002075,000826:
002076,000827: # TRIPLE PRECISION ADD ROUTINE.
002077,000828:
002078,000829: 7050 00006 TAD EXTEND
002079,000830: 7051 50102 INDEX ADDRWD
002080,000831: 7052 30002 DCA 1 # ADD MINOR PARTS FIRST.
002081,000832: 7053 20142 DAS MPAC +1
002082,000833: 7054 50102 INDEX ADDRWD
002083,000834: 7055 60000 AD 0
002084,000835: 7056 60140 AD MPAC
002085,000836: 7057 54140 TS MPAC
002086,000837: 7060 16014 TCF DANZIG
002087,000838:
002088,000839: 7061 54105 SETOVF TS OVFIND # SET OVFIND IF SUCH OCCURS.
002089,000840: 7062 16014 TCF DANZIG
002090,000841:
002091,000842: # ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
002092,000843:
002093,000844: # 1. DMPSUB DOUBLE PRECISION MULTIPLY. MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
002094,000845: # IS IN ADDRWD AND LEAVE A TRIPLE PRECISION RESULT IN MPAC.
002095,000846: # 2. ROUNDSUB ROUND THE TRIPLE PRECISON CONTENTS OF MPAC TO DOUBLE PRECISION.
002096,000847: # 3. DOTSUB TAKE THE DOT PRODUCT OF THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADDRWD
002097,000848: # AND LEAVE THE TRIPLE PRECISION RESULT IN MPAC.
002098,000849: # 4. POLY USING THE CONTENTS OF MPAC AS A DP ARGUMENT, EVALUATE THE POLYNOMIAL WHOSE DEGREE AND
002099,000850: # COEFFICIENTS IMMEDIATELY FOLLOW THE TC POLY INSTRUCTION (SEE ROUTINE FOR DETAILS).
002100,000851:
002101,000852:
002102,000853:
002103,000854: 7063 50002 DMP INDEX Q # BASIC SUBROUTINE FOR USE BY PINBALL, ETC
002104,000855: 7064 30000 CAF 0 # ADRES OF ARGUMENT FOLLOWS TC DMP .
002105,000856: 7065 24002 INCR Q
002106,000857: 7066 54102 -1 TS ADDRWD # (PROLOGUE FOR SETTING ADDRWD.)
002107,000858:
002108,000859: 7067 50102 DMPSUB INDEX ADDRWD # GET MINOR PART OF OPERAND AT C(ADDRWD).
002109,000860: 7070 30001 CA 1
002110,000861: 7071 54142 TS MPAC +2 # THIS WORKS FOR SQUARING MPAC AS WELL.
002111,000862: 7072 37657 CAF ZERO # SET MPAC +1 TO ZERO SO WE CAN ACCUMULATE
002112,000863: 7073 56141 XCH MPAC +1 # THE PARTIAL PRODUCTS WITH DAS
002113,000864: 7074 54121 TS MPTEMP # INSTRUCTIONS.
002114,000865: 7075 00006 EXTEND
002115,000866: 7076 70142 MP MPAC +2 # MINOR OF MPAC X MINOR OF C(ADDRWD).
002116,000867:
002117,000868: 7077 56142 XCH MPAC +2 # DISCARD MINOR PART OF ABOVE RESULT AND
002118,000869: 7100 00006 EXTEND # FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
002119,000870: 7101 70140 MP MPAC
002120,000871: 7102 20142 DAS MPAC +1 # GUARANTEED NO OVERFLOW.
002121,000872:
002122,000873: 7103 50102 INDEX ADDRWD # GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
002123,000874: 7104 30000 CA 0
002124,000875: 7105 56121 XCH MPTEMP # SAVE AND BRING OUT MINOR OF MPAC.
002125,000876: 7106 00006 EXTEND
002126,000877: 7107 70121 MP MPTEMP # MAJOR OF C(ADDRWD) X MINOR OF MPAC.
002127,000878: 7110 20142 DAS MPAC +1 # ACCUMULATE, SETTING A TO NET OVERFLOW.
002128,000879:
002129,000880: 7111 56140 XCH MPAC # SETTING MPAC TO 0 OR +-1.
002130,000881: 7112 00006 EXTEND
002131,000882: 7113 70121 MP MPTEMP # MAJOR OF MPAC X MAJOR OF C(ADDRWD).
002132,000883: 7114 20141 DAS MPAC # GUARANTEED NO OVERFLOW.
002133,000884: 7115 00002 TC Q # 49 MCT = .573 MS. INCLUDING RETURN.
002134,000885:
002135,000886: # ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
002136,000887:
002137,000888: 7116 37657 ROUNDSUB CAF ZERO # SET MPAC +2 = 0 FOR SCALARS AND CHANGE
002138,000889: 7117 54147 +1 TS MODE # MODE TO DP.
002139,000890:
002140,000891: 7120 56142 VROUND XCH MPAC +2 # BUT WE NEEDNT TAKE THE TIME FOR VECTORS.
002141,000892: 7121 60000 DOUBLE
002142,000893: 7122 54001 TS L
002143,000894: 7123 00002 TC Q
002144,000895:
002145,000896: 7124 60141 AD MPAC +1 # ADD ROUNDING BIT IF MPAC +2 WAS GREATER
002146,000897: 7125 54141 TS MPAC +1 # THAN .5 IN MAGNITUDE.
002147,000898: 7126 00002 TC Q
002148,000899:
002149,000900: 7127 60140 AD MPAC # PROPAGATE INTERFLOW.
002150,000901: 7130 54140 TS MPAC
002151,000902: 7131 00002 TC Q
002152,000903:
002153,000904: 7132 54105 SETOVF2 TS OVFIND # (RARE).
002154,000905: 7133 00002 TC Q
002155,000906:
002156,000907: # THE DOT PRODUCT SUBROUTINE USUALLY FORMS THE DOT PRODUCT OF THE VECTOR IN MPAC WITH A STANDARD SIX
002157,000908: # REGISTER VECTOR WHOSE ADDRESS IS IN ADDRWD. IN THIS CASE C(DOTINC) ARE SET TO 2. VXM, HOWEVER, SETS C(DOTINC) TO
002158,000909: # 6 SO THAT DOTSUB DOTS MPAC WITH A COLUMN VECTOR OF THE MATRIX IN QUESTION IN THIS CASE.
002159,000910:
002160,000911:
002161,000912:
002162,000913: 7134 37651 PREDOT CAF TWO # PROLOGUE TO SET DOTINC TO 2.
002163,000914: 7135 54122 TS DOTINC
002164,000915:
002165,000916: 7136 00006 DOTSUB EXTEND
002166,000917: 7137 22123 QXCH DOTRET # SAVE RETURN.
002167,000918: 7140 07067 TC DMPSUB # DOT X COMPONENTS.
002168,000919: 7141 52144 DXCH MPAC +3 # POSITION Y COMPONENT OF MPAC FOR
002169,000920: 7142 52141 DXCH MPAC # MULTIPLICATION WHILE SAVING RESULT IN
002170,000921: 7143 52115 DXCH BUF # THREE WORD BUFFER, BUF.
002171,000922: 7144 30142 CA MPAC +2
002172,000923: 7145 54116 TS BUF +2
002173,000924:
002174,000925: 7146 30122 CA DOTINC # ADVANCE ADDRWD TO Y COMPONENT OF
002175,000926: 7147 26102 ADS ADDRWD # OTHER ARGUMENT.
002176,000927: 7150 07067 TC DMPSUB
002177,000928: 7151 52142 DXCH MPAC +1 # ACCUMULATE PARTIAL PRODUCTS.
002178,000929: 7152 20116 DAS BUF +1
002179,000930: 7153 60140 AD MPAC
002180,000931: 7154 60114 AD BUF
002181,000932: 7155 54114 TS BUF
002182,000933: 7156 17160 TCF +2
002183,000934: 7157 54105 TS OVFIND # IF OVERFLOW OCCURS.
002184,000935:
002185,000936: 7160 52146 DXCH MPAC +5 # MULTIPLY Z COMPONENTS.
002186,000937: 7161 52141 DXCH MPAC
002187,000938: 7162 30122 CA DOTINC
002188,000939: 7163 26102 ADS ADDRWD
002189,000940: 7164 07067 TC DMPSUB
002190,000941: 7165 52116 ENDDOT DXCH BUF +1 # LEAVE FINAL ACCUMULATION IN MPAC.
002191,000942: 7166 20142 DAS MPAC +1
002192,000943: 7167 60140 AD MPAC
002193,000944: 7170 60114 AD BUF
002194,000945: 7171 54140 TS MPAC
002195,000946: 7172 00123 TC DOTRET
002196,000947:
002197,000948: 7173 54105 TS OVFIND # ON OVERFLOW HERE.
002198,000949: 7174 00123 TC DOTRET
002199,000950:
002200,000951: # DOUBLE PRECISION POLYNOMIAL EVALUATOR.
002201,000952:
002202,000953: # N N-1
002203,000954: # THIS ROUTINE EVALUATES A X + A X + ... + A X + A LEAVING THE DP RESULT IN MPAC ON EXIT.
002204,000955: # N N-1 1 0
002205,000956:
002206,000957: # IT IS ASSUMED THAT X ARRIVES IN MPAC AND N AND THE COEFFICIENTS IN THE CALLING SEQUENCE AS FOLLOWS:
002207,000958:
002208,000959: # L TC POLY
002209,000960: # L+1 DEC N-1
002210,000961: # L+2 2DEC A(0)
002211,000962: # ...
002212,000963: # L+2N+2 2DEC A(N) RETURN IS TO L+2N+4.
002213,000964:
002214,000965: 7175 37671 POLY CAF LVBUF # INCOMING X WILL BE STORED IN VBUF, SO
002215,000966: 7176 54102 TS ADDRWD # SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
002216,000967:
002217,000968: 7177 50002 INDEX Q
002218,000969: 7200 30000 CAF 0
002219,000970: 7201 54124 TS POLYCNT # N-1 TO COUNTER.
002220,000971: 7202 60000 DOUBLE
002221,000972: 7203 60002 AD Q
002222,000973: 7204 54125 TS POLYRET # SAVE L+2N-1 FOR RETURN
002223,000974: 7205 54103 TS POLISH # AND FOR REFERENCING COEFFICIENTS.
002224,000975:
002225,000976: 7206 00006 EXTEND
002226,000977: 7207 50000 INDEX A # LOAD A(N) INTO MPAC, SAVING MPAC IN
002227,000978: 7210 30004 DCA 3 # VBUF.
002228,000979: 7211 52141 DXCH MPAC
002229,000980: 7212 52107 DXCH VBUF
002230,000981: 7213 17217 TCF POLY2 # NO ZERO-ORDER POLYNOMIALS ALLOWED.
002231,000982:
002232,000983: 7214 54124 POLYLOOP TS POLYCNT # SAVE DECREMENTED LOOP COUNTER.
002233,000984: 7215 47651 CS TWO # REGRESS COEFFICIENT POINTER.
002234,000985: 7216 26103 ADS POLISH
002235,000986:
002236,000987: 7217 07067 POLY2 TC DMPSUB # MULTIPLY BY X.
002237,000988: 7220 00006 EXTEND
002238,000989: 7221 50103 INDEX POLISH # ADD IN NEXT COEFFICIENT.
002239,000990: 7222 30002 DCA 1
002240,000991: 7223 20141 DAS MPAC # NO CHECK FOR OVERFLOW SINCE SIN, ETC.,
002241,000992: # SHOULD NOT OVERFLOW.
002242,000993: 7224 10124 CCS POLYCNT # LOOP ON COUNTER.
002243,000994: 7225 17214 TCF POLYLOOP
002244,000995: 7226 50125 INDEX POLYRET # DONE - RETURN TO CALLER AT L+2N+4.
002245,000996: 7227 00005 FIVE TC 5
002246,000997:
002247,000998: # MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
002248,000999:
002249,001000: 7230 00006 TPAGREE EXTEND # FORCE SIGN AGREEMENT AMONG THE TRIPLE-
002250,001001: 7231 22114 QXCH BUF # PRECISION CONTENTS OF MPAC, RETURNING
002251,001002: 7232 06711 TC BRANCH # WITH THE SIGNUM OF THE INPUT IN A.
002252,001003: 7233 17237 TCF ARG+
002253,001004: 7234 17257 TCF ARGZERO
002254,001005:
002255,001006: 7235 47632 CS POSMAX # IF NEGATIVE.
002256,001007: 7236 17240 TCF +2
002257,001008:
002258,001009: 7237 37632 ARG+ CAF POSMAX
002259,001010: 7240 54115 +2 TS BUF +1
002260,001011: 7241 00006 EXTEND
002261,001012: 7242 24000 AUG A # FORMS +-1.0.
002262,001013: 7243 60142 AD MPAC +2
002263,001014: 7244 54142 TS MPAC +2
002264,001015: 7245 37657 CAF ZERO
002265,001016: 7246 60115 AD BUF +1
002266,001017: 7247 60141 AD MPAC +1
002267,001018: 7250 54141 TS MPAC +1
002268,001019: 7251 37657 CAF ZERO
002269,001020: 7252 60115 AD BUF +1
002270,001021: 7253 60140 AD MPAC
002271,001022: 7254 54140 ARGZERO2 TS MPAC # ALWAYS SKIPPING UNLESS ARGZERO.
002272,001023: 7255 54141 TS MPAC +1
002273,001024: 7256 00114 TC BUF # RETURN.
002274,001025:
002275,001026: 7257 54142 ARGZERO TS MPAC +2 # SET ALL THREE MPAC REGISTERS TO ZERO.
002276,001027: 7260 17254 TCF ARGZERO2
002277,001028:
002278,001029: # SHORTMP MULTIPLIES THE TP CONTENTS OF MPAC BY THE SINGLE PRECISION NUMBER ARRIVING IN A.
002279,001030:
002280,001031: 7261 54121 SHORTMP TS MPTEMP
002281,001032: 7262 00006 EXTEND
002282,001033: 7263 70142 MP MPAC +2
002283,001034: 7264 54142 TS MPAC +2
002284,001035: 7265 37657 CAF ZERO # SO SUBSEQUENT DAS WILL WORK.
002285,001036: 7266 56141 XCH MPAC +1
002286,001037: 7267 00006 EXTEND
002287,001038: 7270 70121 MP MPTEMP
002288,001039: 7271 20142 DAS MPAC +1
002289,001040: 7272 56140 XCH MPAC # SETTING MPAC TO 0.
002290,001041: 7273 00006 EXTEND
002291,001042: 7274 70121 MP MPTEMP
002292,001043: 7275 20141 DAS MPAC
002293,001044: 7276 00002 TC Q
002294,001045:
002295,001046: # MISCELLANEOUS VECTOR OPERATIONS. INCLUDED HERE ARE THE FOLLOWING:
002296,001047:
002297,001048: # 1. DOT DP VECTOR DOT PRODUCT.
002298,001049: # 2. VXV DP VECTOR CROSS PRODUCT.
002299,001050: # 3. VXSC DP VECTOR TIMES SCALAR.
002300,001051: # 4. V/SC DP VECTOR DIVIDED BY SCALAR.
002301,001052: # 5. VPROJ DP VECTOR PROJECTION. ( (MPAC.X)MPAC ).
002302,001053: # 6. VXM DP VECTOR POST-MULTIPLIED BY MATRIX.
002303,001054: # 7. MXV DP VECTOR PRE-MULTIPLIED BY MATRIX.
002304,001055:
002305,001056: 7277 07134 DOT TC PREDOT # DO THE DOT PRODUCT AND EXIT, CHANGING
002306,001057: 7300 37657 CAF ZERO # THE MODE TO DP SCALAR.
002307,001058: 7301 16013 TCF NEWMODE
002308,001059:
002309,001060:
002310,001061:
002311,001062: 7302 37651 MXV CAF TWO # SET UP MATINC AND DOTINC FOR ROW
002312,001063: 7303 54124 TS MATINC # VECTORS.
002313,001064: 7304 17310 TCF VXM/MXV # GO TO COMMON PORTION.
002314,001065:
002315,001066: 7305 47654 VXM CS TEN # SET MATINC AND DOTINC TO REFER TO MATRIX
002316,001067: 7306 54124 TS MATINC # AS THREE COLUMN VECTORS.
002317,001068: 7307 36162 CAF SIX
002318,001069:
002319,001070: # COMMON PORTION OF MXV AND VXM.
002320,001071:
002321,001072: 7310 54122 VXM/MXV TS DOTINC
002322,001073: 7311 07501 TC MPACVBUF # SAVE VECTOR IN MPAC FOR FURTHER USE.
002323,001074:
002324,001075: 7312 07136 TC DOTSUB # GO DOT TO GET X COMPONENT OF ANSWER.
002325,001076: 7313 00006 EXTEND
002326,001077: 7314 30107 DCA VBUF # MOVE MPAC VECTOR BACK INTO MPAC, SAVING
002327,001078: 7315 52141 DXCH MPAC # NEW X COMPONENT IN BUF2.
002328,001079: 7316 52120 DXCH BUF2
002329,001080: 7317 00006 EXTEND
002330,001081: 7320 30111 DCA VBUF +2
002331,001082: 7321 52144 DXCH MPAC +3
002332,001083: 7322 00006 EXTEND
002333,001084: 7323 30113 DCA VBUF +4
002334,001085: 7324 52146 DXCH MPAC +5
002335,001086: 7325 30124 CA MATINC # INITIALIZE ADDRWD FOR NEXT DOT PRODUCT.
002336,001087: 7326 26102 ADS ADDRWD # FORMS BASE ADDRESS OF NEXT COLUMN(ROW).
002337,001088:
002338,001089: 7327 07136 TC DOTSUB
002339,001090: 7330 52107 DXCH VBUF # MOVE GIVEN VECTOR BACK TO MPAC, SAVING Y
002340,001091: 7331 52141 DXCH MPAC # COMPONENT OF ANSWER IN VBUF +2.
002341,001092: 7332 52111 DXCH VBUF +2
002342,001093: 7333 52144 DXCH MPAC +3
002343,001094: 7334 52113 DXCH VBUF +4
002344,001095: 7335 52146 DXCH MPAC +5
002345,001096: 7336 30124 CA MATINC # FORM ADDRESS OF LAST COLUMN OR ROW.
002346,001097: 7337 26102 ADS ADDRWD
002347,001098:
002348,001099: 7340 07136 TC DOTSUB
002349,001100: 7341 52120 DXCH BUF2 # ANSWER NOW COMPLETE. PUT COMPONENTS INTO
002350,001101: 7342 52141 DXCH MPAC # PROPER MPAC REGISTERS.
002351,001102: 7343 52146 DXCH MPAC +5
002352,001103: 7344 52111 DXCH VBUF +2
002353,001104: 7345 52144 DXCH MPAC +3
002354,001105: 7346 16014 TCF DANZIG # EXIT.
002355,001106:
002356,001107: # VXSC - VECTOR TIMES SCALAR.
002357,001108:
002358,001109: 7347 10147 VXSC CCS MODE # TEST PRESENT MODE.
002359,001110: 7350 17376 TCF DVXSC # SEPARATE ROUTINE WHEN SCALAR IS IN MPAC.
002360,001111: 7351 17376 TCF DVXSC
002361,001112:
002362,001113: 7352 07067 VVXSC TC DMPSUB # COMPUTE X COMPONENT
002363,001114: 7353 07120 TC VROUND # AND ROUND IT.
002364,001115: 7354 52144 DXCH MPAC +3 # PUT Y COMPONENT INTO MPAC SAVING MPAC IN
002365,001116: 7355 52141 DXCH MPAC # MPAC +3.
002366,001117: 7356 52144 DXCH MPAC +3
002367,001118:
002368,001119: 7357 07067 TC DMPSUB # DO SAME FOR Y AND Z COMPONENTS.
002369,001120: 7360 07120 TC VROUND
002370,001121: 7361 52146 DXCH MPAC +5
002371,001122: 7362 52141 DXCH MPAC
002372,001123: 7363 52146 DXCH MPAC +5
002373,001124:
002374,001125: 7364 07067 TC DMPSUB
002375,001126: 7365 07120 TC VROUND
002376,001127: 7366 52141 VROTATEX DXCH MPAC # EXIT USED TO RESTORE MPAC AFTER THIS
002377,001128: 7367 52146 DXCH MPAC +5 # TYPE OF ROTATION. CALLED BY VECTOR SHIFT
002378,001129: 7370 52144 DXCH MPAC +3 # RIGHT, V/SC, ETC.
002379,001130: 7371 52141 DXCH MPAC
002380,001131: 7372 16014 TCF DANZIG
002381,001132:
002382,001133: # DP VECTOR PROJECTION ROUTINE.
002383,001134:
002384,001135:
002385,001136:
002386,001137: 7373 07134 VPROJ TC PREDOT # (MPAC.X)MPAC IS COMPUTED AND LEFT IN
002387,001138: 7374 47650 CS FOUR # MPAC. DO DOT AND FALL INTO DVXSC.
002388,001139: 7375 26102 ADS ADDRWD
002389,001140:
002390,001141: # VXSC WHEN SCALAR ARRIVES IN MPAC AND VECTOR IS AT X.
002391,001142:
002392,001143: 7376 00006 DVXSC EXTEND # SAVE SCALAR IN MPAC +3 AND GET X
002393,001144: 7377 30141 DCA MPAC # COMPONENT OF ANSWER.
002394,001145: 7400 52144 DXCH MPAC +3
002395,001146: 7401 07067 TC DMPSUB
002396,001147: 7402 07120 TC VROUND
002397,001148:
002398,001149: 7403 37651 CAF TWO # ADVANCE ADDRWD TO Y COMPONENT OF X.
002399,001150: 7404 26102 ADS ADDRWD
002400,001151: 7405 00006 EXTEND
002401,001152: 7406 30144 DCA MPAC +3 # PUT SCALAR BACK INTO MPAC AND SAVE
002402,001153: 7407 52141 DXCH MPAC # X RESULT IN MPAC +5.
002403,001154: 7410 52146 DXCH MPAC +5
002404,001155: 7411 07067 TC DMPSUB
002405,001156: 7412 07120 TC VROUND
002406,001157:
002407,001158: 7413 37651 CAF TWO
002408,001159: 7414 26102 ADS ADDRWD # TO Z COMPONENT.
002409,001160: 7415 52144 DXCH MPAC +3 # BRING SCALAR BACK, PUTTING Y RESULT IN
002410,001161: 7416 52141 DXCH MPAC # THE PROPER PLACE.
002411,001162: 7417 52144 DXCH MPAC +3
002412,001163: 7420 07067 TC DMPSUB
002413,001164: 7421 07120 TC VROUND
002414,001165:
002415,001166: 7422 52141 DXCH MPAC # PUT Z COMPONENT IN PROPER PLACE, ALSO
002416,001167: 7423 52146 DXCH MPAC +5 # POSITIONING X.
002417,001168: 7424 52141 DXCH MPAC
002418,001169:
002419,001170: 7425 47652 CS ONE # MODE HAS CHANGED TO VECTOR.
002420,001171: 7426 16013 TCF NEWMODE
002421,001172:
002422,001173: # THE VECTOR CROSS PRODUCT ROUTINE CALCULATES (X M -X M ,X M -X M ,X M -X M ) WHERE M IS THE VECTOR IN
002423,001174: # 3 2 2 3 1 3 3 1 2 1 1 2
002424,001175: # MPAC AND X THE VECTOR AT THE GIVEN ADDRESS.
002425,001176:
002426,001177:
002427,001178:
002428,001179: 7427 00006 VXV EXTEND
002429,001180: 7430 30146 DCA MPAC +5 # FORM UP M3X1, LEAVING M1 IN VBUF.
002430,001181: 7431 52141 DXCH MPAC
002431,001182: 7432 52107 DXCH VBUF
002432,001183: 7433 07067 TC DMPSUB # BY X1.
002433,001184:
002434,001185: 7434 00006 EXTEND
002435,001186: 7435 40144 DCS MPAC +3 # CALCULATE -X1M2, SAVING X1M3 IN VBUF +2.
002436,001187: 7436 52141 DXCH MPAC
002437,001188: 7437 52111 DXCH VBUF +2
002438,001189: 7440 07067 TC DMPSUB
002439,001190:
002440,001191: 7441 37651 CAF TWO # ADVANCE ADDRWD TO X2.
002441,001192: 7442 26102 ADS ADDRWD
002442,001193: 7443 00006 EXTEND
002443,001194: 7444 40146 DCS MPAC +5 # PREPARE TO GET -X2M3, SAVING -X1M2 IN
002444,001195: 7445 52141 DXCH MPAC # MPAC +5.
002445,001196: 7446 52146 DXCH MPAC +5
002446,001197: 7447 07067 TC DMPSUB
002447,001198:
002448,001199: 7450 00006 EXTEND
002449,001200: 7451 30107 DCA VBUF # GET X2M1, SAVING -X2M3 IN VBUF +4.
002450,001201: 7452 52141 DXCH MPAC
002451,001202: 7453 52113 DXCH VBUF +4
002452,001203: 7454 07067 TC DMPSUB
002453,001204:
002454,001205: 7455 37651 CAF TWO # ADVANCE ADDRWD TO X3.
002455,001206: 7456 26102 ADS ADDRWD
002456,001207: 7457 00006 EXTEND
002457,001208: 7460 40107 DCS VBUF # GET -X3M1, ADDING X2M1 TO MPAC +5 TO
002458,001209: 7461 52141 DXCH MPAC # COMPLETE THE Z COMPONENT OF THE ANSWER.
002459,001210: 7462 20146 DAS MPAC +5
002460,001211:
002461,001212: 7463 00006 EXTEND
002462,001213: 7464 17466 BZF +2
002463,001214: 7465 07007 TC OVERFLOW
002464,001215:
002465,001216: 7466 07067 TC DMPSUB
002466,001217: 7467 52111 DXCH VBUF +2 # MOVE X1M3 TO MPAC +3 SETTING UP FOR X3M2
002467,001218: 7470 52144 DXCH MPAC +3 # AND ADD -X3M1 TO MPAC +3 TO COMPLETE THE
002468,001219: 7471 52141 DXCH MPAC # Y COMPONENT OF THE RESULT.
002469,001220: 7472 20144 DAS MPAC +3
002470,001221:
002471,001222: 7473 00006 EXTEND
002472,001223: 7474 17476 BZF +2
002473,001224: 7475 07007 TC OVERFLOW
002474,001225:
002475,001226: 7476 07067 TC DMPSUB
002476,001227: 7477 52113 DXCH VBUF +4 # GO ADD -X2M3 TO X3M2 TO COMPLETE THE X
002477,001228: 7500 16754 TCF ENDVXV # COMPONENT (TAIL END OF DAD).
002478,001229:
002479,001230: # THE MPACVBUF SUBROUTINE SAVES THE VECTOR IN MPAC IN VBUF WITHOUT CLOBBERING MPAC.
002480,001231:
002481,001232: 7501 00006 MPACVBUF EXTEND # CALLED BY MXV, VXM, AND UNIT.
002482,001233: 7502 30141 DCA MPAC
002483,001234: 7503 52107 DXCH VBUF
002484,001235: 7504 00006 EXTEND
002485,001236: 7505 30144 DCA MPAC +3
002486,001237: 7506 52111 DXCH VBUF +2
002487,001238: 7507 00006 EXTEND
002488,001239: 7510 30146 DCA MPAC +5
002489,001240: 7511 52113 DXCH VBUF +4
002490,001241: 7512 00002 TC Q # RETURN TO CALLER.
002491,001242:
002492,001243: # INTERPRETIVE INSTRUCTIONS WHOSE EXECUTION CONSISTS OF PRINCIPALLY CALLING SUBROUTINES.
002493,001244:
002494,001245: 7513 07067 DMP1 TC DMPSUB # DMP INSTRUCTION.
002495,001246: 7514 16014 TCF DANZIG
002496,001247:
002497,001248: 7515 07067 DMPR TC DMPSUB
002498,001249: 7516 07117 TC ROUNDSUB +1 # (C(A) = +0).
002499,001250: 7517 16014 TCF DANZIG
002500,001251:
002501,001252: 7520 00006 DDV EXTEND
002502,001253: 7521 50102 INDEX ADDRWD # MOVE DIVIDEND INTO BUF.
002503,001254: 7522 30001 DCA 0
002504,001255: 7523 17530 TCF BDDV +4
002505,001256:
002506,001257: 7524 00006 BDDV EXTEND # MOVE DIVISOR INTO MPAC SAVING MPAC, THE
002507,001258: 7525 50102 INDEX ADDRWD # DIVIDEND, IN BUF.
002508,001259: 7526 30001 DCA 0
002509,001260: 7527 52141 DXCH MPAC
002510,001261: 7530 52115 +4 DXCH BUF
002511,001262: 7531 37657 CAF ZERO # DIVIDE ROUTINES IN BANK 0.
002512,001263: 7532 54004 TS FBANK
002513,001264: 7533 12332 TCF DDV/BDDV
002514,001265:
002515,001266: 7534 30102 SETPD CA ADDRWD # ANYWHERE IN ERASABLE IN GENERAL, BUT
002516,001267: 7535 54152 TS PUSHLOC # ALMOST ALWAYS IN THE WORK AREA.
002517,001268: 7536 16016 TCF NOIBNKSW # NO FBANK SWITCH REQUIRED.
002518,001269:
002519,001270: 7537 37657 TSLC CAF ZERO # SHIFTING ROUTINES LOCATED IN BANK 00.
002520,001271: 7540 54004 TS FBANK
002521,001272: 7541 12153 TCF TSLC2
002522,001273:
002523,001274: 7542 36027 GSHIFT CAF LOW7 # USED AS MASK AT GENSHIFT. THIS PROCESSES
002524,001275: 7543 54004 TS FBANK # ANY SHIFT INSTRUCTION (EXCEPT TSLC) WITH
002525,001276: 7544 12174 TCF GENSHIFT # AN ADDRESS (ROUTINES IN BANK 0).
002526,001277:
002527,001278: # THE FOLLOWING IS THE PROLOGUE TO V/SC. IF THE PRESENT MODE IS VECTOR, IT SAVES THE SCALAR AT X IN BUF
002528,001279: # AND CALLS THE V/SC ROUTINE IN BANK 0. IF THE PRESENT MODE IS SCALAR, IT MOVES THE VECTOR AT X INTO MPAC, SAVING
002529,001280: # THE SCALAR IN MPAC IN BUF BEFORE CALLING THE V/SC ROUTINE IN BANK 0.
002530,001281:
002531,001282: 7545 10147 V/SC CCS MODE
002532,001283: 7546 17557 TCF DV/SC # MOVE VECTOR INTO MPAC.
002533,001284: 7547 17557 TCF DV/SC
002534,001285:
002535,001286: 7550 00006 VV/SC EXTEND
002536,001287: 7551 50102 INDEX ADDRWD
002537,001288: 7552 30001 DCA 0
002538,001289: 7553 52115 V/SC1 DXCH BUF # IN BOTH CASES, VECTOR IS NOW IN MPAC AND
002539,001290: 7554 37657 CAF ZERO # SCALAR IN BUF.
002540,001291: 7555 54004 TS FBANK
002541,001292: 7556 12576 TCF V/SC2
002542,001293:
002543,001294: 7557 00006 DV/SC EXTEND
002544,001295: 7560 50102 INDEX ADDRWD
002545,001296: 7561 30003 DCA 2
002546,001297: 7562 52144 DXCH MPAC +3
002547,001298: 7563 00006 EXTEND
002548,001299: 7564 50102 INDEX ADDRWD
002549,001300: 7565 30005 DCA 4
002550,001301: 7566 52146 DXCH MPAC +5
002551,001302:
002552,001303: 7567 47652 CS ONE # CHANGE MODE TO VECTOR.
002553,001304: 7570 54147 TS MODE
002554,001305:
002555,001306: 7571 00006 EXTEND
002556,001307: 7572 50102 INDEX ADDRWD
002557,001308: 7573 30001 DCA 0
002558,001309: 7574 52141 DXCH MPAC
002559,001310: 7575 17553 TCF V/SC1 # FINISH PROLOGUE AT COMMON SECTION.
002560,001311:
002561,001312: # SIGN AND COMPLEMENT INSTRUCTIONS.
002562,001313:
002563,001314: 7576 50102 SIGN INDEX ADDRWD # CALL COMP INSTRUCTION IF WORD AT X IS
002564,001315: 7577 10000 CCS 0 # NEGATIVE NON-ZERO.
002565,001316: 7600 16016 TCF NOIBNKSW # NO FBANK SWITCH REQUIRED.
002566,001317: 7601 17603 TCF +2
002567,001318: 7602 17611 TCF COMP # DO THE COMPLEMENT.
002568,001319:
002569,001320: 7603 50102 INDEX ADDRWD
002570,001321: 7604 10001 CCS 1
002571,001322: 7605 16016 TCF NOIBNKSW # NO FBANK SWITCH REQUIRED.
002572,001323: 7606 16016 TCF NOIBNKSW # NO FBANK SWITCH REQUIRED.
002573,001324: 7607 17611 TCF COMP
002574,001325: 7610 16016 TCF NOIBNKSW # NO FBANK SWITCH REQUIRED.
002575,001326:
002576,001327:
002577,001328:
002578,001329: 7611 00006 COMP EXTEND # COMPLEMENT DP MPAC IN EVERY CASE.
002579,001330: 7612 40141 DCS MPAC
002580,001331: 7613 52141 DXCH MPAC
002581,001332:
002582,001333: 7614 10147 CCS MODE # EITHER COMPLEMENT MPAC +3 OR THE REST OF
002583,001334: 7615 17626 TCF DCOMP # THE VECTOR ACCUMULATOR.
002584,001335: 7616 17626 TCF DCOMP
002585,001336:
002586,001337: 7617 00006 EXTEND # VECTOR COMPLEMENT.
002587,001338: 7620 40144 DCS MPAC +3
002588,001339: 7621 52144 DXCH MPAC +3
002589,001340: 7622 00006 EXTEND
002590,001341: 7623 40146 DCS MPAC +5
002591,001342: 7624 52146 DXCH MPAC +5
002592,001343: 7625 16014 TCF DANZIG
002593,001344:
002594,001345: 7626 40142 DCOMP CS MPAC +2
002595,001346: 7627 54142 TS MPAC +2
002596,001347: 7630 16014 TCF DANZIG
002597,001348:
002598,001349: # CONSTANTS REQUIRED IN FIXED-FIXED.
002599,001350:
002600,001351: 7631 37777 DPOSMAX OCT 37777
002601,001352: 7632 37777 POSMAX OCT 37777
002602,001353: 7633 7633 LIMITS EQUALS POSMAX +1
002603,001354: 7633 57777 NEG1/2 OCT -20000 # MUST BE TWO LOCATIONS AHEAD OF POS1/2.
002604,001355:
002605,001356: 7634 40000 BIT15 OCT 40000 # BIT TABLE FOLLOWS.
002606,001357: 7635 20000 BIT14 OCT 20000
002607,001358: 7636 10000 BIT13 OCT 10000
002608,001359: 7637 04000 BIT12 OCT 04000
002609,001360: 7640 02000 BIT11 OCT 02000
002610,001361: 7641 01000 BIT10 OCT 01000
002611,001362: 7642 00400 BIT9 OCT 00400
002612,001363: 7643 00200 BIT8 OCT 00200
002613,001364: 7644 00100 BIT7 OCT 00100
002614,001365: 7645 00040 BIT6 OCT 00040
002615,001366: 7646 00020 BIT5 OCT 00020
002616,001367: 7647 00010 BIT4 OCT 00010
002617,001368: 7650 00004 BIT3 OCT 00004
002618,001369: 7651 00002 BIT2 OCT 00002
002619,001370: 7652 00001 BIT1 OCT 00001
002620,001371:
002621,001372: 7653 7634 NEGMAX EQUALS BIT15
002622,001373: 7653 7635 HALF EQUALS BIT14
002623,001374: 7653 7635 POS1/2 EQUALS HALF
002624,001375: 7653 7636 QUARTER EQUALS BIT13
002625,001376: 7653 7640 2K EQUALS BIT11
002626,001377: 7653 00013 ELEVEN DEC 11 B-14
002627,001378: 7654 7653 NOUTCON = ELEVEN
002628,001379: 7654 00012 TEN DEC 10 B-14
002629,001380: 7655 00011 NINE DEC 9 B-14
002630,001381: 7656 7647 EIGHT EQUALS BIT4
002631,001382: 7656 00007 SEVEN OCT 7
002632,001383: 7657 6162 SIX EQUALS REVCNT
002633,001384: 7657 7650 FOUR EQUALS BIT3
002634,001385: 7657 6165 THREE EQUALS NO.WDS +1
002635,001386: 7657 7651 TWO EQUALS BIT2
002636,001387: 7657 7652 ONE EQUALS BIT1
002637,001388: 7657 00000 ZERO OCT 0
002638,001389: 7660 77777 NEG0 OCT 77777
002639,001390: 7661 77776 NEGONE DEC -1 B-14
002640,001391:
002641,001392: 7662 7661 NEG1 = NEGONE
002642,001393: 7662 7661 MINUS1 EQUALS NEG1
002643,001394: 7662 77775 NEG2 OCT 77775
002644,001395: 7663 77774 NEG3 DEC -3 B-14
002645,001396: 7664 00777 LOW9 OCT 777
002646,001397: 7665 00017 LOW4 OCT 17
002647,001398:
002648,001399: 7666 7656 LOW3 EQUALS SEVEN
002649,001400: 7666 6165 LOW2 EQUALS THREE
002650,001401:
002651,001402: 7666 00030 CALLCODE OCT 00030
002652,001403: 7667 40014 DLOADCOD OCT 40014
002653,001404: 7670 7634 VLOADCOD EQUALS BIT15
002654,001405: 7670 40015 DLOAD* OCT 40015
002655,001406: 7671 6042 VLOAD* EQUALS OCT40001
002656,001407: 7671 00106 LVBUF ADRES VBUF
002657,001408: 7672 ENDINTF EQUALS
002658,001409:
002659,001410: # SHIFTING AND ROUNDING PACKAGE.
002660,001411:
002661,001412: # THE FOLLOWING SHORT SHIFT CODES REQUIRE NO ADDRESS WORD:
002662,001413:
002663,001414: # 1. SR1 TO SR4 SCALAR SHIFT RIGHT.
002664,001415: # 2. SR1R TO SR4R SCALAR SHIFT RIGHT AND ROUND.
002665,001416: # 3. SL1 TO SL4 SCALAR SHIFT LEFT.
002666,001417: # 4. SL1R TO SL4R SCALAR SHIFT LEFT AND ROUND.
002667,001418:
002668,001419: # 5. VSR1 TO VSR8 VECTOR SHIFT RIGHT (ALWAYS ROUNDS).
002669,001420: # 6. VSL1 TO VSL8 VECTOR SHIFT LEFT (NEVER ROUNDS).
002670,001421:
002671,001422: # THE FOLLOWING CODES REQUIRE AN ADDRESS WHICH MAY BE INDEXED:*
002672,001423:
002673,001424: # 1. SR SCALAR SHIFT RIGHT.
002674,001425: # 2. SRR SCALAR SHIFT RIGHT AND ROUND.
002675,001426: # 3. SL SCALAR SHIFT LEFT.
002676,001427: # 4. SLR SCALAR SHIFT LEFT AND ROUND.
002677,001428:
002678,001429: # 5. VSR VECTOR SHIFT RIGHT.
002679,001430: # 6. VSL VECTOR SHIFT LEFT.
002680,001431:
002681,001432: # * IF THE ADDRESS IS INDEXED, AND THE INDEX MODIFICATION RESULTS IN A NEGATIVE SHIFT COUNT, A SHIFT OF THE
002682,001433: # ABSOLUTE VALUE OF THE COUNT IS DONE IN THE OPPOSITE DIRECTION.
002683,001434:
002684,001435:
002685,001436: 00,2000 SETLOC 10000 # BANK 0 PORTION FOLLOWS.
002686,001437:
002687,001438: 00,2000 36162 SHORTT CAF SIX # SCALAR SHORT SHIFTS COME HERE. THE SHIFT
002688,001439: 00,2001 70020 MASK CYR # COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE
002689,001440: 00,2002 54021 TS SR # ROUNDING BIT IS IN BIT1 AT THIS POINT.
002690,001441:
002691,001442: 00,2003 10020 CCS CYR # SEE IF RIGHT OR LEFT SHIFT DESIRED.
002692,001443: 00,2004 12062 TCF TSSL # SHIFT LEFT.
002693,001444:
002694,001445: 00,2005 00024 SRDDV DEC 20 B-14 # MPTEMP SETTING FOR SR BEFORE DDV.
002695,001446:
002696,001447: 00,2006 50021 TSSR INDEX SR # GET SHIFTING BIT.
002697,001448: 00,2007 37635 CAF BIT14
002698,001449: 00,2010 54121 TS MPTEMP
002699,001450:
002700,001451: 00,2011 10020 CCS CYR # SEE IF A ROUND IS DESIRED.
002701,001452: 00,2012 02031 RIGHTR TC MPACSRND # YES - SHIFT RIGHT AND ROUND.
002702,001453: 00,2013 16013 TCF NEWMODE # SET MODE TO DP (C(A) = 0).
002703,001454: 00,2014 30121 MPACSHR CA MPTEMP # DO A TRIPLE PRECISION SHIFT RIGHT.
002704,001455: 00,2015 00006 EXTEND
002705,001456: 00,2016 70142 MP MPAC +2
002706,001457: 00,2017 54142 +3 TS MPAC +2 # (EXIT FROM SQRT AND ABVAL).
002707,001458: 00,2020 30121 CA MPTEMP
002708,001459:
002709,001460: 00,2021 00006 EXTEND
002710,001461: 00,2022 70140 MP MPAC # SHIFT MAJOR PART INTO A,L AND PLACE IN
002711,001462: 00,2023 52141 DXCH MPAC # MPAC,+1.
002712,001463: 00,2024 30121 CA MPTEMP
002713,001464: 00,2025 00006 EXTEND
002714,001465: 00,2026 70001 MP L # ORIGINAL C(MPAC +1).
002715,001466: 00,2027 20142 DAS MPAC +1 # GUARANTEED NO OVERFLOW.
002716,001467: 00,2030 16014 TCF DANZIG
002717,001468:
002718,001469: # MPAC SHIFT RIGHT AND ROUND SUBROUTINES.
002719,001470:
002720,001471: 00,2031 30142 MPACSRND CA MPAC +2 # WE HAVE TO DO ALL THREE MULTIPLIES SINCE
002721,001472: 00,2032 00006 EXTEND # MPAC +1 AND MPAC +2 MIGHT HAVE SIGN
002722,001473: 00,2033 70121 MP MPTEMP # DISAGREEMENT WITH A SHIFT RIGHT OF 1.
002723,001474: 00,2034 56141 XCH MPAC +1
002724,001475: 00,2035 00006 EXTEND
002725,001476: 00,2036 70121 MP MPTEMP
002726,001477: 00,2037 56141 XCH MPAC +1 # TRIAL MINOR PART.
002727,001478: 00,2040 60001 AD L
002728,001479:
002729,001480: 00,2041 60000 VSHR2 DOUBLE # (FINISH VECTOR COMPONENT SHIFT RIGHT
002730,001481: 00,2042 54142 TS MPAC +2 # AND ROUND.
002731,001482: 00,2043 12045 TCF +2
002732,001483: 00,2044 26141 ADS MPAC +1 # GUARANTEED NO OVERFLOW.
002733,001484:
002734,001485: 00,2045 37657 CAF ZERO
002735,001486: 00,2046 54142 TS MPAC +2
002736,001487: 00,2047 56140 XCH MPAC # SETTING TO ZERO SO FOLLOWING DAS WORKS.
002737,001488: 00,2050 00006 EXTEND
002738,001489: 00,2051 70121 MP MPTEMP
002739,001490: 00,2052 20141 DAS MPAC # AGAIN NO OVERFLOW.
002740,001491: 00,2053 00002 TC Q
002741,001492:
002742,001493: 00,2054 30121 VSHRRND CA MPTEMP # ENTRY TO SHIFT RIGHT AND ROUND MPAC WHEN
002743,001494: 00,2055 00006 EXTEND # MPAC CONTAINS A VECTOR COMPONENT.
002744,001495: 00,2056 70141 MP MPAC +1
002745,001496: 00,2057 54141 TS MPAC +1
002746,001497: 00,2060 56001 XCH L
002747,001498: 00,2061 12041 TCF VSHR2 # GO ADD ONE IF NECESSARY AND FINISH.
002748,001499:
002749,001500: # ROUTINE FOR SHORT SCALAR SHIFT LEFT (AND MAYBE ROUND).
002750,001501:
002751,001502: 00,2062 30021 TSSL CA SR # GET SHIFT COUNT FOR SR.
002752,001503: 00,2063 54121 +1 TS MPTEMP
002753,001504:
002754,001505: 00,2064 00006 +2 EXTEND # ENTRY HERE FROM SL FOR SCALARS.
002755,001506: 00,2065 30142 DCA MPAC +1 # SHIFTING LEFT ONE PLACE AT A TIME IS
002756,001507: 00,2066 20142 DAS MPAC +1 # FASTER THAN DOING THE WHOLE SHIFT WITH
002757,001508: 00,2067 60140 AD MPAC # MULTIPLIES ASSUMING THAT FREQUENCY OF
002758,001509: 00,2070 60140 AD MPAC # SHIFT COUNTS GOES DOWN RAPIDLY AS A
002759,001510: 00,2071 54140 TS MPAC # FUNCTION OF THEIR MAGNITUDE.
002760,001511: 00,2072 12074 TCF +2
002761,001512: 00,2073 54105 TS OVFIND # OVERFLOW. (LEAVES OVERFLOW-CORRECTED
002762,001513: # RESULT ANYWAY).
002763,001514: 00,2074 10121 CCS MPTEMP # LOOP ON DECREMENTED SHIFT COUNT.
002764,001515: 00,2075 12063 TCF TSSL +1
002765,001516:
002766,001517: 00,2076 10020 CCS CYR # SEE IF ROUND WANTED.
002767,001518: 00,2077 07116 ROUND TC ROUNDSUB # YES - ROUND AND EXIT.
002768,001519: 00,2100 16014 TCF DANZIG # SL LEAVES A ZERO IN CYR FOR NO ROUND.
002769,001520: 00,2101 16014 TCF DANZIG # NO - EXIT IMMEDIATL
002770,001521:
002771,001522: # VECTOR SHIFTING ROUTINES.
002772,001523:
002773,001524: 00,2102 37656 SHORTV CAF LOW3 # SAVE 3 BIT SHIFT COUNT - 1 WITHOUT
002774,001525: 00,2103 70020 MASK CYR # EDITING CYR.
002775,001526: 00,2104 54121 TS MPTEMP
002776,001527: 00,2105 10020 CCS CYR # SEE IF LEFT OR RIGHT SHIFT.
002777,001528: 00,2106 12126 TCF VSSL # VECTOR SHIFT LEFT.
002778,001529: 00,2107 00176 OCT176 OCT 176 # USED IN PROCESSED SHIFTS WITH - COUNT.
002779,001530:
002780,001531: 00,2110 50121 VSSR INDEX MPTEMP # (ENTRY FROM SR). PICK UP SHIFTING BIT.
002781,001532: 00,2111 37635 CAF BIT14 # MPTEMP CONTAINS THE SHIFT COUNT - 1.
002782,001533: 00,2112 54121 TS MPTEMP
002783,001534: 00,2113 02054 TC VSHRRND # SHIFT X COMPONENT.
002784,001535:
002785,001536: 00,2114 52141 DXCH MPAC # SWAP X AND Y COMPONENTS.
002786,001537: 00,2115 52144 DXCH MPAC +3
002787,001538: 00,2116 52141 DXCH MPAC
002788,001539: 00,2117 02054 TC VSHRRND # SHIFT Y COMPONENT.
002789,001540:
002790,001541: 00,2120 52141 DXCH MPAC # SWAP Y AND Z COMPONENTS.
002791,001542: 00,2121 52146 DXCH MPAC +5
002792,001543: 00,2122 52141 DXCH MPAC
002793,001544: 00,2123 02054 TC VSHRRND # SHIFT Z COMPONENT.
002794,001545:
002795,001546: 00,2124 17366 TCF VROTATEX # RESTORE COMPONENTS TO PROPER PLACES.
002796,001547:
002797,001548: # VECTOR SHIFT LEFT - DONE ONE PLACE AT A TIME.
002798,001549:
002799,001550: 00,2125 54121 -1 TS MPTEMP # SHIFTING LOOP.
002800,001551:
002801,001552: 00,2126 00006 VSSL EXTEND
002802,001553: 00,2127 30141 DCA MPAC
002803,001554: 00,2130 20141 DAS MPAC
002804,001555: 00,2131 00006 EXTEND
002805,001556: 00,2132 12134 BZF +2
002806,001557: 00,2133 07007 TC OVERFLOW
002807,001558:
002808,001559: 00,2134 00006 EXTEND
002809,001560: 00,2135 30144 DCA MPAC +3
002810,001561: 00,2136 20144 DAS MPAC +3
002811,001562: 00,2137 00006 EXTEND
002812,001563: 00,2140 12142 BZF +2
002813,001564: 00,2141 07007 TC OVERFLOW
002814,001565:
002815,001566: 00,2142 00006 EXTEND
002816,001567: 00,2143 30146 DCA MPAC +5
002817,001568: 00,2144 20146 DAS MPAC +5
002818,001569: 00,2145 00006 EXTEND
002819,001570: 00,2146 12150 BZF +2
002820,001571: 00,2147 07007 TC OVERFLOW
002821,001572:
002822,001573: 00,2150 10121 CCS MPTEMP # LOOP ON DECREMENTED SHIFT COUNTER.
002823,001574: 00,2151 12125 TCF VSSL -1
002824,001575: 00,2152 16014 TCF DANZIG # EXIT.
002825,001576:
002826,001577: # TSLC - TRIPLE SHIFT LEFT AND COUNT. SHIFTS MPAC LEFT UNTIL GREATER THAN .5 IN MAGNITUDE, LEAVING
002827,001578: # THE COMPLEMENT OF THE NUMBER OF SHIFTS REQUIRED IN X.
002828,001579:
002829,001580: 00,2153 54121 TSLC2 TS MPTEMP # START BY ZEROING SHIFT COUNT (IN A NOW).
002830,001581: 00,2154 06711 TC BRANCH # EXIT WITH NO SHIFTING IF ARGUMENT ZERO.
002831,001582: 00,2155 12157 TCF +2
002832,001583: 00,2156 12172 TCF ENDTSLC # STORES ZERO SHIFT COUNT IN THIS CASE.
002833,001584:
002834,001585: 00,2157 30140 CA MPAC # BEGIN NORMALIZATION LOOP.
002835,001586: 00,2160 12167 TCF TSLCTEST
002836,001587:
002837,001588: 00,2161 24121 TSLCLOOP INCR MPTEMP # INCREMENT SHIFT COUNTER.
002838,001589: 00,2162 00006 EXTEND
002839,001590: 00,2163 30142 DCA MPAC +1
002840,001591: 00,2164 20142 DAS MPAC +1
002841,001592: 00,2165 60140 AD MPAC
002842,001593: 00,2166 26140 ADS MPAC
002843,001594: 00,2167 60000 TSLCTEST DOUBLE # SEE IF (ANOTHER) SHIFT IS REQUIRED.
002844,001595: 00,2170 54000 OVSK
002845,001596: 00,2171 12161 TCF TSLCLOOP # YES - INCREMENT COUNT AND SHIFT AGAIN.
002846,001597:
002847,001598: 00,2172 40121 ENDTSLC CS MPTEMP
002848,001599: 00,2173 16627 TCF STORE1 # STORE SHIFT COUNT AND RETURN TO DANZIG.
002849,001600:
002850,001601: # THE FOLLOWING ROUTINES PROCESSES THE GENERAL SHIFT INSTRUCTIONS SR, SRR, SL, AND SLR.
002851,001602: # THE GIVEN ADDRESS IS DECODED AS FOLLOWS:
002852,001603:
002853,001604: # BITS 1-7 SHIFT COUNT (SUBADDRESS) LESS THAN 125 DECIMAL.
002854,001605: # BIT 8 PSEUDO SIGN BIT (DETECTS CHANGE IN SIGN IN INDEXED SHIFTS).
002855,001606: # BIT 9 0 FOR LEFT SHIFT, AND 1 FOR RIGHT SHIFT.
002856,001607: # BIT 10 1 FOR TERMINAL ROUND ON SCALAR SHIFTS, 0 OTHERWISE.
002857,001608: # BITS 11-15 0.
002858,001609:
002859,001610: # THE ABOVE ENCODING IS DONE BY THE YUL SYSTEM.
002860,001611:
002861,001612:
002862,001613:
002863,001614: 00,2174 70102 GENSHIFT MASK ADDRWD # GET SHIFT COUNT, TESTING FOR ZERO.
002864,001615: 00,2175 10000 CCS A # (ARRIVES WITH C(A) = LOW7).
002865,001616: 00,2176 12204 TCF GENSHFT2 # IF NON-ZERO, PROCEED WITH DECREMENTED CT
002866,001617:
002867,001618: 00,2177 37641 CAF BIT10 # ZERO SHIFT COUNT. NO SHIFTS NEEDED BUT
002868,001619: 00,2200 70102 MASK ADDRWD # WE MIGHT HAVE TO ROUND MPAC ON SLR AND
002869,001620: 00,2201 10000 CCS A # SRR (SCALAR ONLY).
002870,001621: 00,2202 07116 TC ROUNDSUB
002871,001622: 00,2203 16014 TCF DANZIG
002872,001623:
002873,001624: 00,2204 54121 GENSHFT2 TS MPTEMP # DECREMENTED SHIFT COUNT TO MPTEMP.
002874,001625: 00,2205 37643 CAF BIT8 # TEST MEANING OF LOW SEVEN BIT COUNT IN
002875,001626: 00,2206 00006 EXTEND # MPTEMP NOW.
002876,001627: 00,2207 70102 MP ADDRWD
002877,001628: 00,2210 76165 MASK LOW2 # JUMPS ON SHIFT DIRECTION (BIT8) AND
002878,001629: 00,2211 50000 INDEX A
002879,001630: 00,2212 12213 TCF +1 # ORIGINAL SHIFT DIRECTION (BIT 9).
002880,001631: 00,2213 12312 TCF RIGHT- # NEGATIVE SHIFT COUNT FOR SL OR SLR.
002881,001632: 00,2214 12321 TCF LEFT # SL OR SLR.
002882,001633: 00,2215 12316 TCF LEFT- # NEGATIVE SHIFT COUNT WITH SR OR SRR.
002883,001634:
002884,001635: # GENERAL SHIFT RIGHT.
002885,001636:
002886,001637: 00,2216 10147 RIGHT CCS MODE # SEE IF VECTOR OR SCALAR.
002887,001638: 00,2217 12257 TCF GENSCR
002888,001639: 00,2220 12257 TCF GENSCR
002889,001640:
002890,001641: 00,2221 30121 CA MPTEMP # SEE IF SHIFT COUNT GREATER THAN 13D.
002891,001642: 00,2222 62273 VRIGHT2 AD NEG12
002892,001643: 00,2223 00006 EXTEND
002893,001644: 00,2224 62110 BZMF VSSR # IF SO, BRANCH AND SHIFT IMMEDIATELY.
002894,001645:
002895,001646: 00,2225 67661 AD NEGONE # IF NOT, REDUCE MPTEMP BY A TOTAL OF 14,
002896,001647: 00,2226 54121 TS MPTEMP # AND DO A SHIFT RIGHT AND ROUND BY 14.
002897,001648: 00,2227 37657 CAF ZERO # THE ROUND AT THIS STAGE MAY INTRODUCE A
002898,001649: 00,2230 54001 TS L # ONE BIT ERROR IN A SHIFT RIGHT 15D.
002899,001650: 00,2231 56140 XCH MPAC
002900,001651: 00,2232 56141 XCH MPAC +1
002901,001652: 00,2233 02252 TC SETROUND # X COMPONENT NOW SHIFTED, SO MAKE UP THE
002902,001653: 00,2234 20141 DAS MPAC # ROUNDING QUANTITY (0 IN A AND 0 OR +-1
002903,001654: # IN L).
002904,001655: 00,2235 56143 XCH MPAC +3 # REPEAT THE ABOVE PROCESS FOR Y AND Z.
002905,001656: 00,2236 56144 XCH MPAC +4
002906,001657: 00,2237 02252 TC SETROUND
002907,001658: 00,2240 20144 DAS MPAC +3 # NO OVERFLOW ON THESE ADDS.
002908,001659:
002909,001660: 00,2241 56145 XCH MPAC +5
002910,001661: 00,2242 56146 XCH MPAC +6
002911,001662: 00,2243 02252 TC SETROUND
002912,001663: 00,2244 20146 DAS MPAC +5
002913,001664:
002914,001665: 00,2245 10121 CCS MPTEMP # SEE IF DONE, DOING FINAL DECREMENT.
002915,001666: 00,2246 12222 TCF VRIGHT2
002916,001667: 00,2247 13630 TCSUBTR TCF SUBTR
002917,001668: 00,2250 04604 BIASLO DEC .2974 B-1 # SQRT CONSTANT
002918,001669:
002919,001670: 00,2251 16014 TCF DANZIG
002920,001671:
002921,001672:
002922,001673:
002923,001674: 00,2252 60000 SETROUND DOUBLE # MAKES UP ROUNDING QUANTITY FROM ARRIVING
002924,001675: 00,2253 54142 TS MPAC +2 # C(A). L IS ZERO INITIALLY.
002925,001676: 00,2254 37657 CAF ZERO
002926,001677: 00,2255 56001 XCH L
002927,001678: 00,2256 00002 TC Q # RETURN AND DO THE DAS, RESETTING L TO 0.
002928,001679:
002929,001680: # PROCESS SR AND SRR FOR SCALARS.
002930,001681:
002931,001682: 00,2257 30121 GENSCR CA MPTEMP # SEE IF THE ORIGINAL SHIFT COUNT WAS LESS
002932,001683: 00,2260 62273 +1 AD NEG12 # THAN 14D.
002933,001684: 00,2261 00006 EXTEND
002934,001685: 00,2262 62302 BZMF DOSSHFT # DO THE SHIFT IMMEDIATELY IF SO.
002935,001686:
002936,001687: 00,2263 67661 +4 AD NEGONE # IF NOT, DECREMENT SHIFT COUNT BY 14D AND
002937,001688: 00,2264 54121 TS MPTEMP # SHIFT MPAC RIGHT 14 PLACES.
002938,001689: 00,2265 37657 CAF ZERO
002939,001690: 00,2266 56140 XCH MPAC
002940,001691: 00,2267 56141 XCH MPAC +1
002941,001692: 00,2270 54142 TS MPAC +2
002942,001693: 00,2271 10121 CCS MPTEMP # SEE IF FINISHED, DO FINAL DECREMENT.
002943,001694: 00,2272 02260 TC GENSCR +1
002944,001695: 00,2273 77763 NEG12 DEC -12 B-14
002945,001696: 00,2274 22650 SLOPEHI DEC .5884 # SQRT CONSTANT.
002946,001697: 00,2275 37641 CAF BIT10 # FINISHED WITH SHIFT. SEE IF ROUND
002947,001698: 00,2276 70102 MASK ADDRWD # WANTED.
002948,001699: 00,2277 10000 CCS A
002949,001700: 00,2300 07116 TC ROUNDSUB
002950,001701: 00,2301 16014 TCF DANZIG # DO SO AND/OR EXIT.
002951,001702:
002952,001703: 00,2302 50121 DOSSHFT INDEX MPTEMP # PICK UP SHIFTING BIT.
002953,001704: 00,2303 37635 CAF BIT14
002954,001705: 00,2304 54121 TS MPTEMP
002955,001706: 00,2305 37641 CAF BIT10 # SEE IF TERMINAL ROUND DESIRED.
002956,001707: 00,2306 70102 MASK ADDRWD
002957,001708: 00,2307 10000 CCS A
002958,001709: 00,2310 12012 TCF RIGHTR # YES.
002959,001710: 00,2311 12014 TCF MPACSHR # JUST SHIFT RIGHT.
002960,001711:
002961,001712: # PROCESS THE RIGHT- (SL(R) WITH A NEGATIVE COUNT), LEFT-, AND LEFT OPTIONS.
002962,001713:
002963,001714: 00,2312 40121 RIGHT- CS MPTEMP # GET ABSOLUTE VALUE - 1 OF SHIFT COUNT
002964,001715: 00,2313 62107 AD OCT176 # UNDERSTANDING THAT BIT8 (PSEUDO-SIGN)
002965,001716: 00,2314 54121 TS MPTEMP # WAS 1 INITIALLY.
002966,001717: 00,2315 12216 TCF RIGHT # DO NORMAL SHIFT RIGHT.
002967,001718:
002968,001719: 00,2316 40121 LEFT- CS MPTEMP # SAME PROLOGUE TO LEFT FOR INDEXED RIGHT
002969,001720: 00,2317 62107 AD OCT176 # SHIFTS WHOSE NET SHIFT COUNT IS NEGATIVE
002970,001721: 00,2320 54121 TS MPTEMP
002971,001722:
002972,001723: 00,2321 10147 LEFT CCS MODE # SINCE LEFT SHIFTING IS SONE ONE PLACE AT
002973,001724: 00,2322 12325 TCF GENSCL # A TIME, NO COMPARISON WITH 14 NEED BE
002974,001725: 00,2323 12325 TCF GENSCL # DONE. FOR SCALARS, SEE IF TERMINAL ROUND
002975,001726: 00,2324 12126 TCF VSSL # DESIRED. FOR VECTORS, SHIFT IMMEDIATELY.
002976,001727:
002977,001728: 00,2325 37645 GENSCL CAF BIT6 # PUT ROUNDING BIT (BIT10 OF ADDRWD) INTO
002978,001729: 00,2326 00006 EXTEND # BIT 15 OF CYR WHERE THE ROUNDING BIT OF
002979,001730: 00,2327 70102 MP ADDRWD # A SHORT SHIFT LEFT WOULD BE.
002980,001731: 00,2330 54020 TS CYR
002981,001732: 00,2331 12064 TCF TSSL +2 # DO THE SHIFT.
002982,001733:
002983,001734: # SCALAR DIVISION INSTRUCTIONS, DDV AND BDDV, ARE EXECUTED HERE. AT THIS POINT, THE DIVIDEND IS IN MPAC
002984,001735: # AND THE DIVISOR IN BUF.
002985,001736:
002986,001737: 00,2332 47652 DDV/BDDV CS ONE # INITIALIZATION.
002987,001738: 00,2333 54122 TS DVSIGN # +-1 FOR POSITIVE QUOTIENT - -0 FOR NEG.
002988,001739: 00,2334 54123 TS DVNORMCT # DIVIDEND NORMALIZATION COUNT.
002989,001740: 00,2335 54124 TS MAXDVSW # NEAR-ONE DIVIDE FLAG.
002990,001741:
002991,001742: 00,2336 10114 CCS BUF # FORCE BUF POSITIVE WITH THE MAJOR PART
002992,001743: 00,2337 12366 TCF BUF+ # NON-ZERO.
002993,001744: 00,2340 12342 TCF +2
002994,001745: 00,2341 12362 TCF BUF-
002995,001746:
002996,001747: 00,2342 56115 XCH BUF +1 # SHIFT DIVIDEND AND DIVISOR LEFT 14.
002997,001748: 00,2343 56114 XCH BUF
002998,001749: 00,2344 56141 XCH MPAC +1
002999,001750: 00,2345 56140 XCH MPAC
003000,001751: 00,2346 00006 EXTEND # CHECK FOR OVERFLOW.
003001,001752: 00,2347 12351 BZF +2
003002,001753: 00,2350 12355 TCF DVOVF
003003,001754:
003004,001755: 00,2351 10114 CCS BUF # TRY AGAIN ON FORMER MINOR PART.
003005,001756: 00,2352 12366 TCF BUF+
003006,001757: 00,2353 12355 TCF DVOVF # OVERFLOW ON ZERO DIVISOR.
003007,001758: 00,2354 12362 TCF BUF-
003008,001759:
003009,001760: 00,2355 37632 DVOVF CAF POSMAX # ON DIVISION OVERFLOW OF ANY SORT, SET
003010,001761: 00,2356 54140 TS MPAC # SET DP MPAC TO +-POSMAX.
003011,001762: 00,2357 02552 TC FINALDV +3
003012,001763: 00,2360 37652 CAF ONE # SET OVERFLOW INDICATOR AND EXIT.
003013,001764: 00,2361 17061 TCF SETOVF
003014,001765:
003015,001766: 00,2362 00006 BUF- EXTEND # IF BUF IS NEGATIVE, COMPLEMENT IT AND
003016,001767: 00,2363 40115 DCS BUF # MAINTAIN DVSIGN FOR FINAL QUOTIENT SIGN.
003017,001768: 00,2364 52115 DXCH BUF
003018,001769: 00,2365 24122 INCR DVSIGN # NOW -0.
003019,001770:
003020,001771: 00,2366 10140 BUF+ CCS MPAC # FORCE MPAC POSITIVE, CHECKING FOR ZERO
003021,001772: 00,2367 12403 TCF MPAC+ # DIVIDEND IN THE PROCESS.
003022,001773: 00,2370 12372 TCF +2
003023,001774: 00,2371 12377 TCF MPAC-
003024,001775: 00,2372 10141 CCS MPAC +1
003025,001776: 00,2373 12403 TCF MPAC+
003026,001777: 00,2374 16014 TCF DANZIG # EXIT IMMEDIATELY ON ZERO DIVIDEND.
003027,001778: 00,2375 12377 TCF MPAC-
003028,001779: 00,2376 16014 TCF DANZIG
003029,001780:
003030,001781: 00,2377 00006 MPAC- EXTEND # FORCE MPAC POSITIVE AS BUF IN BUF-.
003031,001782: 00,2400 40141 DCS MPAC
003032,001783: 00,2401 52141 DXCH MPAC
003033,001784:
003034,001785: 00,2402 24122 INCR DVSIGN # NOW +1 OR -0.
003035,001786:
003036,001787: 00,2403 40140 MPAC+ CS MPAC # CHECK FOR DIVISION OVERFLOW. IF THE
003037,001788: 00,2404 67661 AD NEGONE # MAJOR PART OF THE DIVIDEND IS LESS THAN
003038,001789: 00,2405 60114 AD BUF # THE MAJOR PART OF THE DIVISOR BY AT
003039,001790: 00,2406 10000 CCS A # LEAST TWO, WE CAN PROCEED IMMEDIATELY
003040,001791: 00,2407 12451 TCF DVNORM # WITHOUT NORMALIZATION PRODUCING A DVMAX.
003041,001792: 00,2410 60001 -1/2+2 OCT 60001 # USED IN SQRTSUB.
003042,001793:
003043,001794: 00,2411 12412 TCF +1 # IF THE ABOVE DOES NOT HOLD, FORCE SIGN
003044,001795: 00,2412 37635 CAF HALF # AGREEMENT IN NUMERATOR AND DENOMINATOR
003045,001796: 00,2413 60000 DOUBLE # TO FACILITATE OVERFLOW AND NEAR-ONE
003046,001797: 00,2414 60141 AD MPAC +1 # CHECKING.
003047,001798: 00,2415 54141 TS MPAC +1
003048,001799: 00,2416 37657 CAF ZERO
003049,001800: 00,2417 67632 AD POSMAX
003050,001801: 00,2420 26140 ADS MPAC
003051,001802:
003052,001803: 00,2421 37635 CAF HALF # SAME FOR BUF.
003053,001804: 00,2422 60000 DOUBLE
003054,001805: 00,2423 60115 AD BUF +1
003055,001806: 00,2424 54115 TS BUF +1
003056,001807: 00,2425 37657 CAF ZERO
003057,001808: 00,2426 67632 AD POSMAX
003058,001809: 00,2427 26114 ADS BUF
003059,001810:
003060,001811: 00,2430 40140 CS MPAC # CHECK MAGNITUDE OF SIGN-CORRECTED
003061,001812: 00,2431 60114 AD BUF # OPERANDS.
003062,001813: 00,2432 10000 CCS A
003063,001814: 00,2433 12451 TCF DVNORM # DIVIDE OK - WILL NOT BECOME MAXDV CASE.
003064,001815: 00,2434 00117 LBUF2 ADRES BUF2
003065,001816: 00,2435 12355 TCF DVOVF # DIVISOR NOT LESS THAN DIVIDEND - OVF.
003066,001817:
003067,001818: 00,2436 54124 TS MAXDVSW # IF THE MAJOR PARTS OF THE DIVIDEND AND
003068,001819: 00,2437 40141 CS MPAC +1 # DIVISOR ARE EQUAL, A SPECIAL APPROXIMA-
003069,001820: 00,2440 60115 AD BUF +1 # TION IS USED (PROVIDED THE DIVISION IS
003070,001821: 00,2441 00006 EXTEND # POSSIBLE, OF COURSE).
003071,001822: 00,2442 62355 BZMF DVOVF
003072,001823: 00,2443 12451 TCF DVNORM # IF NO OVERFLOW.
003073,001824:
003074,001825: 00,2444 00006 BUFNORM EXTEND # ADD -1 TO AUGMENT SHIFT COUNT AND SHIFT
003075,001826: 00,2445 24123 AUG DVNORMCT # LEFT ONE PLACE.
003076,001827: 00,2446 00006 EXTEND
003077,001828: 00,2447 30115 DCA BUF
003078,001829: 00,2450 20115 DAS BUF
003079,001830:
003080,001831: 00,2451 30114 DVNORM CA BUF # SEE IF DIVISOR NORMALIZED YET.
003081,001832: 00,2452 60000 DOUBLE
003082,001833: 00,2453 54000 OVSK
003083,001834: 00,2454 12444 TCF BUFNORM # NO - SHIFT LEFT ONE AND TRY AGAIN.
003084,001835:
003085,001836: 00,2455 52141 DXCH MPAC # CALL DIVIDEND NORMALIZATION SEQUENCE
003086,001837: 00,2456 50123 INDEX DVNORMCT # PRIOR TO DOING THE DIVIDE.
003087,001838: 00,2457 02507 TC MAXTEST
003088,001839:
003089,001840: 00,2460 54142 TS MPAC +2 # RETURNS WITH DIVISION DONE AND C(A) = 0.
003090,001841: 00,2461 16014 TCF DANZIG
003091,001842:
003092,001843: # THE FOLLOWING ARE PROLOGUES TO SHIFT THE DIVIDEND ARRIVING IN A AND L BEFORE THE DIVIDE.
003093,001844:
003094,001845: 00,2462 22021 -21D LXCH SR # SPECIAL PROLOGUE FOR UNIT WHEN THE
003095,001846: 00,2463 00006 EXTEND # LENGTH OF THE ARGUMENT WAS NOT LESS THAN
003096,001847: 00,2464 77635 MP HALF # .5. IN THIS CASE, EACH COMPONENT MUST BE
003097,001848: 00,2465 56001 XCH L # SHIFTED RIGHT ONE TO PRODUCE A HALF-UNIT
003098,001849: 00,2466 60021 AD SR # VECTOR.
003099,001850: 00,2467 56001 XCH L
003100,001851: 00,2470 12513 TCF GENDDV +1 # WITH DP DIVIDEND IN A,L.
003101,001852:
003102,001853: 00,2471 20001 DDOUBL # PROLOGUE WHICH NORMALIZES THE DIVIDEND
003103,001854: 00,2472 20001 DDOUBL # WHEN IT IS KNOWN THAT NO DIVISION
003104,001855: 00,2473 20001 DDOUBL # OVERFLOW WILL OCCUR.
003105,001856: 00,2474 20001 DDOUBL
003106,001857: 00,2475 20001 DDOUBL
003107,001858: 00,2476 20001 DDOUBL
003108,001859: 00,2477 20001 DDOUBL
003109,001860: 00,2500 20001 DDOUBL
003110,001861: 00,2501 20001 DDOUBL
003111,001862: 00,2502 20001 DDOUBL
003112,001863: 00,2503 20001 DDOUBL
003113,001864: 00,2504 20001 DDOUBL
003114,001865: 00,2505 20001 DDOUBL
003115,001866: 00,2506 52141 DXCH MPAC
003116,001867:
003117,001868: 00,2507 10124 MAXTEST CCS MAXDVSW # 0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
003118,001869: 00,2510 06552 BIASHI DEC .4192 B-1 # SQRT CONSTANTS
003119,001870:
003120,001871: 00,2511 12564 TCF MAXDV # CHECK TO SEE IF THEY ARE NOW EQUAL.
003121,001872:
003122,001873: # THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY BUF AND LEAVES
003123,001874: # THE RESULT IN MPAC. THE FOLLOWING CONDITIONS MUST BE SATISFIED:
003124,001875:
003125,001876: # 1. THE DIVISOR (BUF) MUST BE POSITIVE AND NOT LESS THAN .5.
003126,001877:
003127,001878: # 2. THE DIVIDEND (MPAC) MUST BE POSITIVE WITH THE MAJOR PART OF MPAC STRICTLY LESS THAN THAT OF BUF
003128,001879: # (A SPECIAL APPROXIMATION, MAXDV, IS USED WHEN THE MAJOR PARTS ARE EQUAL).
003129,001880:
003130,001881: # UNDERSTANDING THAT A/B = Q + S(R/B) WHERE S = 2(-14) AND Q AND R ARE QUOTIENT AND REMAINDER, RESPEC-
003131,001882: # TIVELY, THE FOLLOWING APPROXIMATION IS OBTAINED BY MULTIPLYING ABOVE AND BELOW BY C - SD AND NEGLECTING TERMS OF
003132,001883: # ORDER S-SQUARED (POSSIBLY INTRODUCING ERROR INTO THE LOW TWO BITS OF THE RESULT). SIGN AGREEMENT IS UNNECESSARY.
003133,001884:
003134,001885: # A + SB . (R - QD) A + SB
003135,001886: # ------ = Q + S(------) WHERE Q AND R ARE QUOTIENT AND REMAINDER OF ------ RESPECTIVELY.
003136,001887: # C + SD ( C ) C
003137,001888:
003138,001889: 00,2512 52141 GENDDV DXCH MPAC # WE NEED A AND B ONLY FOR FIRST DV.
003139,001890: 00,2513 00006 +1 EXTEND # (SPECIAL UNIT PROLOGUE ENTERS HERE).
003140,001891: 00,2514 10114 DV BUF # A NOW CONTAINS Q AND L, R.
003141,001892: 00,2515 52141 DXCH MPAC
003142,001893:
003143,001894: 00,2516 40140 CS MPAC # FORM DIVIDEND FOR MINOR PART OF RESULT.
003144,001895: 00,2517 00006 EXTEND
003145,001896: 00,2520 70115 MP BUF +1
003146,001897: 00,2521 60141 AD MPAC +1 # OVERFLOW AT THIS POINT IS POSITIVE SINCE
003147,001898: 00,2522 54000 OVSK # R IS POSITIVE IN EVERY CASE.
003148,001899: 00,2523 12530 TCF +5
003149,001900:
003150,001901: 00,2524 00006 EXTEND # OVERFLOW CAN BE REMOVED BY SUBTRACTING C
003151,001902: 00,2525 60114 SU BUF # (BUF) ONCE SINCE R IS ALWAYS LESS THAN C
003152,001903: 00,2526 24140 INCR MPAC # IN THIS CASE. INCR COMPENSATES SUBTRACT.
003153,001904: 00,2527 12532 TCF +DOWN # (SINCE C(A) IS STILL POSITIVE).
003154,001905:
003155,001906: 00,2530 00006 +5 EXTEND # C(A) CAN BE MADE LESS THAN C IN MAGNI-
003156,001907: 00,2531 62542 BZMF -UP # TUDE BY DIMINISHING IT BY C (SINCE C IS
003157,001908: # NOT LESS THAN .5) UNLESS C(A) = 0.
003158,001909:
003159,001910: 00,2532 00006 +DOWN EXTEND
003160,001911: 00,2533 60114 SU BUF # IF POSITIVE, REDUCE ONLY IF NECESSARY
003161,001912: 00,2534 00006 EXTEND # SINCE THE COMPENSATING INCR MIGHT CAUSE
003162,001913: 00,2535 12540 BZF +3 # OVERFLOW.
003163,001914: 00,2536 00006 EXTEND # DONT SUBTRACT UNLESS RESULT IS POSITIVE
003164,001915: 00,2537 62546 BZMF ENDMAXDV # OR ZERO.
003165,001916:
003166,001917: 00,2540 24140 +3 INCR MPAC # KEEP SUBTRACT HERE AND COMPENSATE.
003167,001918: 00,2541 12547 TCF FINALDV
003168,001919:
003169,001920: 00,2542 00006 -UP EXTEND # IF ZERO, SET MINOR PART OF RESULT TO
003170,001921: 00,2543 12552 BZF FINALDV +3 # ZERO.
003171,001922:
003172,001923: 00,2544 00006 EXTEND # IF NEGATIVE, ADD C TO A, SUBTRACTING ONE
003173,001924: 00,2545 26140 DIM MPAC # TO COMPENSATE. DIM IS OK HERE SINCE THE
003174,001925: 00,2546 60114 ENDMAXDV AD BUF # MAJOR PART NEVER GOES NEGATIVE.
003175,001926:
003176,001927: 00,2547 22007 FINALDV ZL # DO DV TO OBTAIN MINOR PART OF RESULT.
003177,001928: 00,2550 00006 EXTEND
003178,001929: 00,2551 10114 DV BUF
003179,001930: 00,2552 54141 +3 TS MPAC +1
003180,001931:
003181,001932: 00,2553 10122 CCS DVSIGN # LEAVE RESULT POSITIVE UNLESS C(DVSIGN)=
003182,001933: 00,2554 00002 TC Q # -0.
003183,001934: 00,2555 00002 TC Q
003184,001935: 00,2556 00002 TC Q
003185,001936:
003186,001937: 00,2557 00006 EXTEND
003187,001938: 00,2560 40141 DCS MPAC
003188,001939: 00,2561 52141 DXCH MPAC
003189,001940: 00,2562 37657 CAF ZERO # SO WE ALWAYS RETURN WITH C(A) = 0.
003190,001941: 00,2563 00002 TC Q
003191,001942:
003192,001943: # IF THE MAJOR PARTS OF THE DIVISOR AND DIVIDEND ARE EQUAL, BUT THE MINOR PARTS ARE SUCH THAT THE
003193,001944: # DIVIDEND IS STRICTLY LESS THAN THE DIVISOR IN MAGNITUDE, THE FOLLOWING APPROXIMATION IS USED. THE ASSUMPTIONS
003194,001945: # ARE THE SAME AS THE GENERAL ROUTINE WITH THE ADDITION THAT SIGN AGREEMENT IS NECESSARY (B, C, & D POSITIVE).
003195,001946:
003196,001947: # C + SB . (C + B - D)
003197,001948: # ------ = 37777 + S(---------)
003198,001949: # C + SD ( C )
003199,001950:
003200,001951: # THE DIVISION MAY BE PERFORMED IMMEDIATELY SINCE B IS STRICTLY LESS THAN D AND C IS NOT LESS THAN .5.
003201,001952:
003202,001953:
003203,001954:
003204,001955: 00,2564 40140 MAXDV CS MPAC # SEE IF MAXDV CASE STILL HOLDS AFTER
003205,001956: 00,2565 60114 AD BUF # NORMALIZATION.
003206,001957: 00,2566 00006 EXTEND
003207,001958: 00,2567 12571 BZF +2
003208,001959: 00,2570 12512 TCF GENDDV # MPAC NOW LESS THAN BUF - DIVIDE AS USUAL
003209,001960:
003210,001961: 00,2571 37632 +2 CAF POSMAX # SET MAJOR PART OF RESULT.
003211,001962: 00,2572 54140 TS MPAC
003212,001963:
003213,001964: 00,2573 40115 CS BUF +1 # FORM DIVIDEND OF MINOR PART OF RESULT.
003214,001965: 00,2574 60141 AD MPAC +1
003215,001966: 00,2575 12546 TCF ENDMAXDV # GO ADD C AND DO DIVIDE, ATTACHING SIGN
003216,001967: # BEFORE EXITING.
003217,001968:
003218,001969: # VECTOR DIVIDED BY SCALAR, V/SC, IS EXECUTED HERE. THE VECTOR IS NOW IN MPAC WITH SCALAR IN BUF.
003219,001970:
003220,001971: 00,2576 47652 V/SC2 CS ONE # INITIALIZE DIVIDEND NORMALIZATION COUNT
003221,001972: 00,2577 54123 TS DVNORMCT # AND DIVISION SIGN REGISTER.
003222,001973: 00,2600 54113 TS VBUF +5
003223,001974:
003224,001975: 00,2601 10114 CCS BUF # FORCE DIVISOR POSITIVE WITH MAJOR PART
003225,001976: 00,2602 12637 TCF /BUF+ # NON-ZERO (IF POSSIBLE).
003226,001977: 00,2603 12605 TCF +2
003227,001978: 00,2604 12633 TCF /BUF-
003228,001979:
003229,001980: 00,2605 56115 XCH BUF +1 # SHIFT VECTOR AND SCALAR LEFT 14.
003230,001981: 00,2606 56114 XCH BUF
003231,001982: 00,2607 56141 XCH MPAC +1
003232,001983: 00,2610 56140 XCH MPAC
003233,001984: 00,2611 00006 EXTEND # CHECK FOR OVERFLOW IN EACH CASE.
003234,001985: 00,2612 12614 BZF +2
003235,001986: 00,2613 12355 TCF DVOVF
003236,001987:
003237,001988: 00,2614 56144 XCH MPAC +4
003238,001989: 00,2615 56143 XCH MPAC +3
003239,001990: 00,2616 00006 EXTEND
003240,001991: 00,2617 12621 BZF +2
003241,001992: 00,2620 12355 TCF DVOVF
003242,001993:
003243,001994: 00,2621 56146 XCH MPAC +6
003244,001995: 00,2622 56145 XCH MPAC +5
003245,001996: 00,2623 00006 EXTEND
003246,001997: 00,2624 12626 BZF +2
003247,001998: 00,2625 12355 TCF DVOVF
003248,001999:
003249,002000: 00,2626 10114 CCS BUF
003250,002001: 00,2627 12637 TCF /BUF+
003251,002002: 00,2630 12355 TCF DVOVF # ZERO DIVISOR - OVERFLOW.
003252,002003: 00,2631 12633 TCF /BUF-
003253,002004: 00,2632 12355 TCF DVOVF
003254,002005:
003255,002006: 00,2633 00006 /BUF- EXTEND # ON NEGATIVE, COMPLEMENT BUF AND MAINTAIN
003256,002007: 00,2634 40115 DCS BUF # DVSIGN IN VBUF +5.
003257,002008: 00,2635 52115 DXCH BUF
003258,002009: 00,2636 24113 INCR VBUF +5
003259,002010:
003260,002011: 00,2637 37635 /BUF+ CAF HALF # FORCE SIGN AGREEMENT IN DIVISOR.
003261,002012: 00,2640 60000 DOUBLE
003262,002013: 00,2641 60115 AD BUF +1
003263,002014: 00,2642 54115 TS BUF +1
003264,002015: 00,2643 37657 CAF ZERO
003265,002016: 00,2644 67632 AD POSMAX
003266,002017: 00,2645 26114 ADS BUF
003267,002018:
003268,002019: 00,2646 56117 XCH BUF2 # LEAVE ABS(ORIGINAL DIVISOR) IN BUF2 FOR
003269,002020: 00,2647 30115 CA BUF +1 # OVERFLOW TESTING.
003270,002021: 00,2650 54120 TS BUF2 +1
003271,002022: 00,2651 12657 TCF /NORM # NORMALIZE DIVISOR IN BUF.
003272,002023:
003273,002024: 00,2652 00006 /NORM2 EXTEND # IF LESS THAN .5, AUGMENT DVNORMCT AND
003274,002025: 00,2653 24123 AUG DVNORMCT # DOUBLE DIVISOR.
003275,002026: 00,2654 00006 EXTEND
003276,002027: 00,2655 30115 DCA BUF
003277,002028: 00,2656 20115 DAS BUF
003278,002029:
003279,002030: 00,2657 30114 /NORM CA BUF # SEE IF DIVISOR NORMALIZED.
003280,002031: 00,2660 60000 DOUBLE
003281,002032: 00,2661 54000 OVSK
003282,002033: 00,2662 12652 TCF /NORM2 # DOUBLE AND TRY AGAIN IF NOT.
003283,002034:
003284,002035: 00,2663 02675 TC V/SCDV # DO X COMPONENT DIVIDE.
003285,002036: 00,2664 52144 DXCH MPAC +3 # SUPPLY ARGUMENTS IN USUAL SEQUENCE.
003286,002037: 00,2665 52141 DXCH MPAC
003287,002038: 00,2666 52144 DXCH MPAC +3
003288,002039:
003289,002040: 00,2667 02675 TC V/SCDV # Y COMPONENT.
003290,002041: 00,2670 52146 DXCH MPAC +5
003291,002042: 00,2671 52141 DXCH MPAC
003292,002043: 00,2672 52146 DXCH MPAC +5
003293,002044:
003294,002045: 00,2673 02675 TC V/SCDV # Z COMPONENT.
003295,002046: 00,2674 17366 TCF VROTATEX # GO RE-ARRANGE COMPONENTS BEFORE EXIT.
003296,002047:
003297,002048: # SUBROUTINE USED BY V/SC TO DIVIDE VECTOR COMPONENT IN MPAC,+1 BY THE SCALAR GIVEN IN BUF.
003298,002049:
003299,002050: 00,2675 30113 V/SCDV CA VBUF +5 # REFLECTS SIGN OF SCALAR.
003300,002051: 00,2676 54122 TS DVSIGN
003301,002052:
003302,002053: 00,2677 10140 CCS MPAC # FORCE MPAC POSITIVE, EXITING ON ZERO.
003303,002054: 00,2700 12714 TCF /MPAC+
003304,002055: 00,2701 12703 TCF +2
003305,002056: 00,2702 12710 TCF /MPAC-
003306,002057:
003307,002058: 00,2703 10141 CCS MPAC +1
003308,002059: 00,2704 12714 TCF /MPAC+
003309,002060: 00,2705 00002 TC Q
003310,002061: 00,2706 12710 TCF /MPAC-
003311,002062: 00,2707 00002 TC Q
003312,002063:
003313,002064: 00,2710 00006 /MPAC- EXTEND # USUAL COMPLEMENTING AND SETTING OF SIGN.
003314,002065: 00,2711 40141 DCS MPAC
003315,002066: 00,2712 52141 DXCH MPAC
003316,002067: 00,2713 24122 INCR DVSIGN
003317,002068:
003318,002069: 00,2714 47652 /MPAC+ CS ONE # INITIALIZE NEAR-ONE SWITCH.
003319,002070: 00,2715 54124 TS MAXDVSW
003320,002071:
003321,002072: 00,2716 40140 CS MPAC # CHECK POSSIBLE OVERFLOW.
003322,002073: 00,2717 60117 AD BUF2 # UNNORMALIZED INPUT DIVISOR.
003323,002074: 00,2720 00006 EXTEND
003324,002075: 00,2721 62725 BZMF /AGREE # CHECK FOR NEAR-ONE OR OVERFLOW.
003325,002076:
003326,002077: 00,2722 52141 DDVCALL DXCH MPAC # CALL PRE-DIVIDE NORMALIZATION.
003327,002078: 00,2723 50123 INDEX DVNORMCT
003328,002079: 00,2724 12507 TCF MAXTEST
003329,002080:
003330,002081: 00,2725 37635 /AGREE CAF HALF # FORCE SIGN AGREEMENT IN DIVIDEND
003331,002082: 00,2726 60000 DOUBLE # (ALREADY DONE FOR DIVISOR).
003332,002083: 00,2727 60141 AD MPAC +1
003333,002084: 00,2730 54141 TS MPAC +1
003334,002085: 00,2731 37657 CAF ZERO
003335,002086: 00,2732 67632 AD POSMAX
003336,002087: 00,2733 26140 ADS MPAC
003337,002088:
003338,002089: 00,2734 40140 CS MPAC # CHECK TO SEE IF OVERFLOW GONE OR IF
003339,002090: 00,2735 60117 AD BUF2 # NEAR-ONE CASE IS PRESENT.
003340,002091: 00,2736 10000 CCS A
003341,002092: 00,2737 12722 TCF DDVCALL # NOT NEAR-ONE.
003342,002093: 00,2740 32506 SLOPELO DEC .8324
003343,002094: 00,2741 12355 TCF DVOVF # NO HOPE.
003344,002095:
003345,002096: 00,2742 54124 TS MAXDVSW # SIGNAL POSSIBLE NEAR-ONE CASE.
003346,002097: 00,2743 40141 CS MPAC +1 # SEE IF DIVISION CAN BE DONE.
003347,002098: 00,2744 60120 AD BUF2 +1
003348,002099: 00,2745 00006 EXTEND
003349,002100: 00,2746 62355 BZMF DVOVF
003350,002101: 00,2747 12722 TCF DDVCALL # GOING TO MAXDV.
003351,002102:
003352,002103: # THE FOLLOWING ROUTINE EXECUTES THE UNIT INSTRUCTION, WHICH TAKES THE UNIT OF THE VECTOR IN MPAC.
003353,002104:
003354,002105: 00,2750 07501 UNIT TC MPACVBUF # SAVE THE ARGUMENT IN VBUF.
003355,002106: 00,2751 37657 CAF ZERO # MUST SENSE OVERFLOW IN FOLLOWING DOT.
003356,002107: 00,2752 56105 XCH OVFIND
003357,002108: 00,2753 54125 TS TEM1
003358,002109: 00,2754 03246 TC VSQSUB # DOT MPAC WITH ITSELF.
003359,002110: 00,2755 30125 CA TEM1
003360,002111: 00,2756 56105 XCH OVFIND
003361,002112: 00,2757 00006 EXTEND
003362,002113: 00,2760 12762 BZF +2
003363,002114: 00,2761 12355 TCF DVOVF
003364,002115: 00,2762 00006 EXTEND
003365,002116: 00,2763 30141 DCA MPAC # LEAVE THE SQUARE OF THE LENGTH OF THE
003366,002117: 00,2764 50104 INDEX FIXLOC # ARGUMENT IN LVSQUARE.
003367,002118: 00,2765 52043 DXCH LVSQUARE
003368,002119:
003369,002120: 00,2766 03272 TC SQRTSUB # GO TAKE THE NORMALIZED SQUARE ROOT.
003370,002121:
003371,002122: 00,2767 10140 CCS MPAC # CHECK FOR UNIT OVERFLOW.
003372,002123: 00,2770 12775 TCF +5 # MPAC IS NOT LESS THAN .5 UNLESS
003373,002124: 00,2771 54001 TS L
003374,002125: 00,2772 50104 INDEX FIXLOC
003375,002126: 00,2773 52045 DXCH LV
003376,002127: 00,2774 12355 TCF DVOVF # INPUT TO SQRTSUB WAS 0.
003377,002128:
003378,002129: 00,2775 43076 CS FOURTEEN # SEE IF THE INPUT WAS SO SMALL THE THE
003379,002130: 00,2776 60121 AD MPTEMP # FIRST TWO REGISTERS OF THE SQUARE WERE 0
003380,002131: 00,2777 10000 CCS A
003381,002132: 00,3000 40000 COM # IF SO, SAVE THE NEGATIVE OF THE SHIFT
003382,002133: 00,3001 13057 TCF SMALL # COUNT -15D.
003383,002134:
003384,002135: 00,3002 13011 TCF LARGE # (THIS IS USUALLY THE CASE.)
003385,002136:
003386,002137: 00,3003 43075 CS THIRTEEN # IF THE SHIFT COUNT WAS EXACTLY 14, SET
003387,002138: 00,3004 54121 TS MPTEMP # THE PRE-DIVIDE NORM COUNT TO -13D.
003388,002139:
003389,002140: 00,3005 30140 CA MPAC # SHIFT THE LENGTH RIGHT 14 BEFORE STORING
003390,002141: 00,3006 54001 SMALL2 TS L # (SMALL EXITS TO THIS POINT).
003391,002142: 00,3007 37657 CAF ZERO
003392,002143: 00,3010 13036 TCF LARGE2 # GO TO STORE LENGTH AND PROCEED.
003393,002144:
003394,002145: 00,3011 10121 LARGE CCS MPTEMP # MOST ALL CASES COME HERE.
003395,002146: 00,3012 13020 TCF LARGE3 # SEE IF NO NORMALIZATION WAS REQUIRED BY
003396,002147:
003397,002148: 00,3013 42005 CS SRDDV # SQRT, AND IF SO, SET UP FOR A SHIFT
003398,002149: 00,3014 54121 TS MPTEMP # RIGHT 1 BEFORE DIVIDING TO PRODUCE
003399,002150: 00,3015 00006 EXTEND # THE DESIRED HALF UNIT VECTOR.
003400,002151: 00,3016 30141 DCA MPAC
003401,002152: 00,3017 13036 TCF LARGE2
003402,002153:
003403,002154: 00,3020 40000 LARGE3 COM # LEAVE NEGATIVE OF SHIFT COUNT-1 FOR
003404,002155: 00,3021 54121 TS MPTEMP # PREDIVIDE LEFT SHIFT.
003405,002156:
003406,002157: 00,3022 40000 COM # PICK UP REQUIRED SHIFTING BIT TO UNNORM-
003407,002158: 00,3023 50000 INDEX A # ALIZE THE SQRT RESULT.
003408,002159: 00,3024 37635 CAF BIT14
003409,002160: 00,3025 54114 TS BUF
003410,002161: 00,3026 00006 EXTEND
003411,002162: 00,3027 70141 MP MPAC +1
003412,002163: 00,3030 56114 XCH BUF
003413,002164: 00,3031 00006 EXTEND # (UNNORMALIZE THE SQRT FOR LV).
003414,002165: 00,3032 70140 MP MPAC
003415,002166: 00,3033 56001 XCH L
003416,002167: 00,3034 60114 AD BUF
003417,002168: 00,3035 56001 XCH L
003418,002169:
003419,002170: 00,3036 50104 LARGE2 INDEX FIXLOC
003420,002171: 00,3037 52045 DXCH LV # LENGTH NOW STORED IN WORK AREA.
003421,002172:
003422,002173: 00,3040 47652 CS ONE
003423,002174: 00,3041 54124 TS MAXDVSW # NO MAXDV CASES IN UNIT.
003424,002175:
003425,002176: 00,3042 52107 DXCH VBUF # PREPARE X COMPONENT FOR DIVIDE, SETTING
003426,002177: 00,3043 52141 DXCH MPAC # LENGTH OF VECTOR AS DIVISOR IN BUF.
003427,002178: 00,3044 52115 DXCH BUF
003428,002179: 00,3045 03077 TC UNITDV
003429,002180:
003430,002181: 00,3046 52111 DXCH VBUF +2 # DO Y AND Z IN USUAL FASHION SO WE CAN
003431,002182: 00,3047 52141 DXCH MPAC # EXIT THROUGH VROTATEX.
003432,002183: 00,3050 52144 DXCH MPAC +3
003433,002184: 00,3051 03077 TC UNITDV
003434,002185:
003435,002186: 00,3052 52113 DXCH VBUF +4
003436,002187: 00,3053 52141 DXCH MPAC
003437,002188: 00,3054 52146 DXCH MPAC +5
003438,002189: 00,3055 03077 TC UNITDV
003439,002190: 00,3056 17366 TCF VROTATEX # AND EXIT.
003440,002191:
003441,002192: # IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST
003442,002193: # 14 PLACES BEFORE THE DIVIDE. NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
003443,002194:
003444,002195: 00,3057 54121 SMALL TS MPTEMP # NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
003445,002196:
003446,002197: 00,3060 37657 CAF ZERO # SHIFT EACH COMPONENT LEFT 14.
003447,002198: 00,3061 56107 XCH VBUF +1
003448,002199: 00,3062 56106 XCH VBUF
003449,002200: 00,3063 56111 XCH VBUF +3
003450,002201: 00,3064 56110 XCH VBUF +2
003451,002202: 00,3065 56113 XCH VBUF +5
003452,002203: 00,3066 56112 XCH VBUF +4
003453,002204:
003454,002205: 00,3067 40121 CS MPTEMP
003455,002206: 00,3070 50000 INDEX A
003456,002207: 00,3071 37635 CAF BIT14
003457,002208: 00,3072 00006 EXTEND
003458,002209: 00,3073 70140 MP MPAC
003459,002210: 00,3074 13006 TCF SMALL2
003460,002211:
003461,002212: 00,3075 00015 THIRTEEN DEC 13 B-14
003462,002213: 00,3076 00016 FOURTEEN DEC 14 B-14
003463,002214:
003464,002215: # THE FOLLOWING ROUTINE SETS UP THE CALL TO THE DIVIDE ROUTINES.
003465,002216:
003466,002217: 00,3077 10140 UNITDV CCS MPAC # FORCE MPAC POSITIVE IF POSSIBLE, SETTING
003467,002218: 00,3100 13116 TCF UMPAC+ # DVSIGN ACCORDING TO THE SIGN OF MPAC
003468,002219: 00,3101 13103 TCF +2 # SINCE THE DIVISOR IS ALWAYS POSITIVE
003469,002220: 00,3102 13110 TCF UMPAC- # HERE.
003470,002221:
003471,002222: 00,3103 10141 CCS MPAC +1
003472,002223: 00,3104 13116 TCF UMPAC+
003473,002224: 00,3105 00002 TC Q # EXIT IMMEDIATELY ON ZERO.
003474,002225: 00,3106 13110 TCF UMPAC-
003475,002226: 00,3107 00002 TC Q
003476,002227:
003477,002228: 00,3110 47657 UMPAC- CS ZERO # IF NEGATIVE, SET -0 IN DVSIGN FOR FINAL
003478,002229: 00,3111 54122 TS DVSIGN # COMPLEMENT.
003479,002230: 00,3112 00006 EXTEND
003480,002231: 00,3113 40141 DCS MPAC # PICK UP ABSOLUTE VALUE OF ARG AND JUMP.
003481,002232: 00,3114 50121 INDEX MPTEMP
003482,002233: 00,3115 12506 TCF MAXTEST -1
003483,002234:
003484,002235: 00,3116 54122 UMPAC+ TS DVSIGN # SET DVSIGN FOR POSITIVE QUOTIENT.
003485,002236: 00,3117 52141 DXCH MPAC
003486,002237: 00,3120 50121 INDEX MPTEMP
003487,002238: 00,3121 12506 TCF MAXTEST -1
003488,002239:
003489,002240: # MISCELLANEOUS UNARY OPERATIONS.
003490,002241:
003491,002242: 00,3122 03227 DSQ TC DSQSUB # SQUARE THE DP CONTENTS OF MPAC.
003492,002243: 00,3123 16014 TCF DANZIG
003493,002244:
003494,002245: 00,3124 10147 ABVALABS CCS MODE # ABVAL OR ABS INSTRUCTION.
003495,002246: 00,3125 13154 TCF ABS # DO ABS ON SCALAR.
003496,002247: 00,3126 13154 TCF ABS
003497,002248:
003498,002249: 00,3127 03246 ABVAL TC VSQSUB # DOT MPAC WITH ITSELF.
003499,002250: 00,3130 22147 LXCH MODE # MODE IS NOW DP (L ZERO AFTER DAS).
003500,002251:
003501,002252: 00,3131 00006 EXTEND # STORE SQUARE OF LENGTH IN WORK AREA.
003502,002253: 00,3132 30141 DCA MPAC
003503,002254: 00,3133 50104 INDEX FIXLOC
003504,002255: 00,3134 52043 DXCH LVSQUARE
003505,002256:
003506,002257: 00,3135 03272 SQRT TC SQRTSUB # TAKE THE SQUARE ROOT OF MPAC.
003507,002258: 00,3136 10121 CCS MPTEMP # RETURNED NORMALIZED SQUARE ROOT. SEE IF
003508,002259: 00,3137 13141 TCF +2 # ANY UN-NORMALIZATION REQUIRED AND EXIT
003509,002260: 00,3140 16014 TCF DANZIG # IF NOT.
003510,002261:
003511,002262: 00,3141 62273 AD NEG12 # A RIGHT SHIFT OF MORE THAN 13 COULD BE
003512,002263: 00,3142 00006 EXTEND # REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
003513,002264: 00,3143 63147 BZMF SQRTSHFT # GOES HERE IN MOST CASES.
003514,002265: 00,3144 22007 ZL # IF A LONG SHIFT IS REQUIRED, GO TO
003515,002266: 00,3145 22102 LXCH ADDRWD # GENERAL RIGHT SHIFT ROUTINES.
003516,002267: 00,3146 12263 TCF GENSCR +4 # ADDRWD WAS ZERO TO PREVENT ROUND.
003517,002268:
003518,002269: 00,3147 50121 SQRTSHFT INDEX MPTEMP # SELECT SHIFTING BIT AND EXIT THROUGH
003519,002270: 00,3150 37634 CAF BIT15 # SHIFT ROUTINES.
003520,002271: 00,3151 54121 TS MPTEMP
003521,002272: 00,3152 37657 CAF ZERO # TO ZERO MPAC +2 IN THE PROCESS.
003522,002273: 00,3153 12017 TCF MPACSHR +3
003523,002274:
003524,002275: 00,3154 06711 ABS TC BRANCH # TEST SIGN OF MPAC AND COMPLEMENT IF
003525,002276: 00,3155 16014 TCF DANZIG
003526,002277: 00,3156 16014 TCF DANZIG
003527,002278: 00,3157 17611 TCF COMP
003528,002279:
003529,002280: 00,3160 47650 VDEF CS FOUR # VECTOR DEFINE - ESSENTIALLY TREATS
003530,002281: 00,3161 26152 ADS PUSHLOC # SCALAR IN MPAC AS X COMPONENT, PUSHES UP
003531,002282: 00,3162 00006 EXTEND # FOR Y AND THEN AGAIN FOR Z.
003532,002283: 00,3163 50000 INDEX A
003533,002284: 00,3164 30003 DCA 2
003534,002285: 00,3165 52144 DXCH MPAC +3
003535,002286: 00,3166 00006 EXTEND
003536,002287: 00,3167 50152 INDEX PUSHLOC
003537,002288: 00,3170 30001 DCA 0
003538,002289: 00,3171 52146 DXCH MPAC +5
003539,002290: 00,3172 47652 CS ONE # MODE IS NOW VECTOR.
003540,002291: 00,3173 16013 TCF NEWMODE
003541,002292:
003542,002293: 00,3174 03246 VSQ TC VSQSUB # DOT MPAC WITH ITSELF.
003543,002294: 00,3175 37657 CAF ZERO
003544,002295: 00,3176 16013 TCF NEWMODE # MODE IS NOW DP.
003545,002296:
003546,002297: 00,3177 00006 PUSH EXTEND # PUSH DOWN MPAC LEAVING IT LOADED.
003547,002298: 00,3200 30141 DCA MPAC
003548,002299: 00,3201 50152 INDEX PUSHLOC # PUSH DOWN FIRST TWO REGISTERS IN EACH
003549,002300: 00,3202 52001 DXCH 0
003550,002301:
003551,002302: 00,3203 50147 INDEX MODE # INCREMENT PUSHDOWN POINTER.
003552,002303: 00,3204 36164 CAF NO.WDS
003553,002304: 00,3205 26152 ADS PUSHLOC
003554,002305:
003555,002306: 00,3206 10147 CCS MODE
003556,002307: 00,3207 13222 TCF TPUSH # PUSH DOWN MPAC +2.
003557,002308: 00,3210 16014 TCF DANZIG # DONE FOR DP.
003558,002309:
003559,002310: 00,3211 00006 EXTEND # ON VECTOR, PUSH DOWN Y AND Z COMPONENTS.
003560,002311: 00,3212 30144 DCA MPAC +3
003561,002312: 00,3213 50152 INDEX PUSHLOC
003562,002313: 00,3214 51775 DXCH 0 -4
003563,002314: 00,3215 00006 EXTEND
003564,002315: 00,3216 30146 DCA MPAC +5
003565,002316: 00,3217 50152 INDEX PUSHLOC
003566,002317: 00,3220 51777 DXCH 0 -2
003567,002318: 00,3221 16014 TCF DANZIG
003568,002319:
003569,002320: 00,3222 30142 TPUSH CA MPAC +2
003570,002321: 00,3223 16560 TCF ENDTPUSH +2
003571,002322:
003572,002323: 00,3224 50104 RVQ INDEX FIXLOC # RVQ - RETURN IVA QPRET.
003573,002324: 00,3225 30052 CA QPRET
003574,002325: 00,3226 16652 TCF GOTO +1
003575,002326:
003576,002327: # THE FOLLOWING SUBROUTINES ARE USED IN SQUARING MPAC, IN BOTH THE SCALAR AND VECTOR SENSE. THEY ARE
003577,002328: # SPECIAL CASES OF DMPSUB AND DOTSUB, PUT IN TO SAVE SOME TIME.
003578,002329:
003579,002330: 00,3227 30141 DSQSUB CA MPAC +1 # SQUARES THE SCALAR CONTENTS OF MPAC.
003580,002331: 00,3230 00006 EXTEND
003581,002332: 00,3231 70000 SQUARE
003582,002333: 00,3232 54142 TS MPAC +2
003583,002334: 00,3233 37657 CAF ZERO # FORM 2(CROSS TERM).
003584,002335: 00,3234 56141 XCH MPAC +1
003585,002336: 00,3235 00006 EXTEND
003586,002337: 00,3236 70140 MP MPAC
003587,002338: 00,3237 20001 DDOUBL # AND MAYBE OVERFLOW.
003588,002339: 00,3240 20142 DAS MPAC +1 # AND SET A TO NET OVERFLOW.
003589,002340: 00,3241 56140 XCH MPAC
003590,002341: 00,3242 00006 EXTEND
003591,002342: 00,3243 70000 SQUARE
003592,002343: 00,3244 20141 DAS MPAC
003593,002344: 00,3245 00002 TC Q
003594,002345:
003595,002346: 00,3246 00006 VSQSUB EXTEND # DOTS THE VECTOR IN MPAC WITH ITSELF.
003596,002347: 00,3247 22123 QXCH DOTRET
003597,002348: 00,3250 03227 TC DSQSUB # SQUARE THE X COMPONENT.
003598,002349: 00,3251 52144 DXCH MPAC +3
003599,002350: 00,3252 52141 DXCH MPAC
003600,002351: 00,3253 52115 DXCH BUF # SO WE CAN END IN DOTSUB.
003601,002352: 00,3254 30142 CA MPAC +2
003602,002353: 00,3255 54116 TS BUF +2
003603,002354:
003604,002355: 00,3256 03227 TC DSQSUB # SQUARE Y COMPONENT.
003605,002356: 00,3257 52142 DXCH MPAC +1
003606,002357: 00,3260 20116 DAS BUF +1
003607,002358: 00,3261 60140 AD MPAC
003608,002359: 00,3262 60114 AD BUF
003609,002360: 00,3263 54114 TS BUF
003610,002361: 00,3264 13266 TCF +2
003611,002362: 00,3265 54105 TS OVFIND # IF OVERFLOW.
003612,002363:
003613,002364: 00,3266 52146 DXCH MPAC +5
003614,002365: 00,3267 52141 DXCH MPAC
003615,002366: 00,3270 03227 TC DSQSUB # SQUARE Z COMPONENT.
003616,002367: 00,3271 17165 TCF ENDDOT # END AS IN DOTSUB.
003617,002368:
003618,002369: # DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
003619,002370: # IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
003620,002371: # .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.
003621,002372:
003622,002373:
003623,002374:
003624,002375: 00,3272 37657 SQRTSUB CAF ZERO # START BY ZEROING RIGHT SHIFT COUNT.
003625,002376: 00,3273 54121 TS MPTEMP
003626,002377:
003627,002378: 00,3274 10140 CCS MPAC # CHECK FOR POSITIVE ARGUMENT, SHIFTING
003628,002379: 00,3275 13333 TCF SMPAC+ # FIRST SIGNIFICANT MPAC REGISTER INTO
003629,002380: 00,3276 13300 TCF +2 # MPAC ITSELF.
003630,002381: 00,3277 13322 TCF SQRTNEG # SEE IF MAG OF ARGUMENT LESS THAN 10(-4).
003631,002382:
003632,002383: 00,3300 56142 XCH MPAC +2 # MPAC IS ZERO - SHIFT LEFT 14.
003633,002384: 00,3301 56141 XCH MPAC +1
003634,002385: 00,3302 54140 TS MPAC
003635,002386: 00,3303 37656 CAF SEVEN # AUGMENT RIGHT SHIFT COUNTER.
003636,002387: 00,3304 54121 TS MPTEMP
003637,002388:
003638,002389: 00,3305 10140 CCS MPAC # SEE IF MPAC NOW PNZ.
003639,002390: 00,3306 13333 TCF SMPAC+
003640,002391: 00,3307 13311 TCF +2
003641,002392: 00,3310 13325 TCF ZEROANS # NEGATIVE BUT LESS THAN 10(-4) IN MAG.
003642,002393:
003643,002394: 00,3311 56141 XCH MPAC +1 # ZERO - SHIFT LEFT 14 AGAIN.
003644,002395: 00,3312 54140 TS MPAC
003645,002396: 00,3313 37656 CAF SEVEN # AUGMENT RIGHT SHIFT COUNTER.
003646,002397: 00,3314 26121 ADS MPTEMP
003647,002398:
003648,002399: 00,3315 10140 CCS MPAC
003649,002400: 00,3316 13333 TCF SMPAC+
003650,002401: 00,3317 00002 TC Q # SQRT(0) = 0.
003651,002402: 00,3320 13325 TCF ZEROANS
003652,002403: 00,3321 00002 TC Q
003653,002404:
003654,002405:
003655,002406:
003656,002407: 00,3322 10000 SQRTNEG CCS A # ARGUMENT IS NEGATIVE, BUT SEE IF SIGN-
003657,002408: 00,3323 13331 TCF SQRTABRT # CORRECTED ARGUMENT IS LESS THAN 10(-4)
003658,002409:
003659,002410: 00,3324 10141 CCS MPAC +1 # IN MAGNITUDE. IF SO, CALL ANSWER ZERO.
003660,002411: 00,3325 37657 ZEROANS CAF ZERO # FORCE ANSWER TO ZERO HERE.
003661,002412: 00,3326 13401 TCF FIXROOT
003662,002413: 00,3327 13331 TCF SQRTABRT
003663,002414: 00,3330 13401 TCF FIXROOT
003664,002415:
003665,002416: 00,3331 05677 SQRTABRT TC ABORT
003666,002417: 00,3332 01302 OCT 1302
003667,002418:
003668,002419: 00,3333 62410 SMPAC+ AD -1/2+2 # SEE IF ARGUMENT GREATER THAN OR EQUAL TO
003669,002420: 00,3334 00006 EXTEND # .5.
003670,002421: 00,3335 63404 BZMF SRTEST # IF SO, SEE IF LESS THAN .25.
003671,002422:
003672,002423: 00,3336 52141 DXCH MPAC # WE WILL TAKE THE SQUARE ROOT OF MPAC/2.
003673,002424: 00,3337 22021 LXCH SR # SHIFT RIGHT 1 AND GO TO THE SQRT ROUTINE
003674,002425: 00,3340 00006 EXTEND
003675,002426: 00,3341 77635 MP HALF
003676,002427: 00,3342 52141 DXCH MPAC
003677,002428: 00,3343 56021 XCH SR
003678,002429: 00,3344 26141 ADS MPAC +1 # GUARANTEED NO OVERFLOW.
003679,002430:
003680,002431: 00,3345 32274 ARGHI CAF SLOPEHI # ARGUMENT BETWEEN .25 AND .5. GET A
003681,002432: 00,3346 00006 EXTEND # LINEAR APPROXIMATION FOR THIS RANGE.
003682,002433: 00,3347 70140 MP MPAC
003683,002434: 00,3350 62510 AD BIASHI # X0/2 = (MPAC/2)(SLOPEHI) + BIASHI/2.
003684,002435:
003685,002436: 00,3351 54114 +4 TS BUF # X0/2 (ARGLO ENTERS HERE).
003686,002437: 00,3352 30140 CA MPAC # SINGLE-PRECISION THROUGHOUT.
003687,002438: 00,3353 22007 ZL
003688,002439: 00,3354 00006 EXTEND
003689,002440: 00,3355 10114 DV BUF # (MPAC/2)/(X0/2)
003690,002441: 00,3356 00006 EXTEND
003691,002442: 00,3357 77635 MP HALF
003692,002443: 00,3360 26114 ADS BUF # X1 = X0/2 + .5(MPAC/2)/(X0/2).
003693,002444:
003694,002445: 00,3361 00006 EXTEND
003695,002446: 00,3362 77635 MP HALF # FORM UP X1/2.
003696,002447: 00,3363 52141 DXCH MPAC # SAVE AND BRING OUT ARGUMENT.
003697,002448: 00,3364 00006 EXTEND # TAKE DP QUOTIENT WITH X1.
003698,002449: 00,3365 10114 DV BUF
003699,002450: 00,3366 54115 TS BUF +1 # SAVE MAJOR PART OF QUOTIENT.
003700,002451: 00,3367 37657 CAF ZERO # FORM MINOR PART OF QUOTIENT USING
003701,002452: 00,3370 56001 XCH L # (REMAINDER,0).
003702,002453: 00,3371 00006 EXTEND
003703,002454: 00,3372 10114 DV BUF
003704,002455: 00,3373 54001 TS L # IN PREPARATION FOR DAS.
003705,002456: 00,3374 30115 CA BUF +1
003706,002457: 00,3375 20141 DAS MPAC # X2 = X1/2 + (MPAC/2)X1
003707,002458:
003708,002459: 00,3376 00006 EXTEND # OVERFLOWS IF ARG. NEAR POSMAX.
003709,002460: 00,3377 13403 BZF TCQBNK00
003710,002461: 00,3400 37632 CAF POSMAX
003711,002462: 00,3401 54140 FIXROOT TS MPAC
003712,002463: 00,3402 54141 TS MPAC +1
003713,002464: 00,3403 00002 TCQBNK00 TC Q # RETURN TO CALLER TO UNNORMALIZE, ETC.
003714,002465:
003715,002466: 00,3404 67636 SRTEST AD QUARTER # ARGUMENT WAS LESS THAN .5, SEE IF LESS
003716,002467: 00,3405 00006 EXTEND # THAN .25.
003717,002468: 00,3406 63430 BZMF SQRTNORM # IF SO, BEGIN NORMALIZATION.
003718,002469:
003719,002470: 00,3407 52141 DXCH MPAC # IF BETWEEN .5 AND .25, SHIFT RIGHT 1 AND
003720,002471: 00,3410 22021 LXCH SR # START AT ARGLO.
003721,002472: 00,3411 00006 EXTEND
003722,002473: 00,3412 77635 MP HALF
003723,002474: 00,3413 52141 DXCH MPAC
003724,002475: 00,3414 56021 XCH SR
003725,002476: 00,3415 26141 ADS MPAC +1 # NO OVERFLOW.
003726,002477:
003727,002478: 00,3416 32740 ARGLO CAF SLOPELO # (NORMALIZED) ARGUMENT BETWEEN .125 AND
003728,002479: 00,3417 00006 EXTEND # .25
003729,002480: 00,3420 70140 MP MPAC
003730,002481: 00,3421 62250 AD BIASLO
003731,002482: 00,3422 13351 TCF ARGHI +4 # BEGIN SQUARE ROOT.
003732,002483:
003733,002484: 00,3423 00006 SQRTNM2 EXTEND # SHIFT LEFT 2 AND INCREMENT RIGHT SHIFT
003734,002485: 00,3424 30142 DCA MPAC +1 # COUNT (FOR TERMINAL UNNORMALIZATION).
003735,002486: 00,3425 20142 DAS MPAC +1
003736,002487: 00,3426 60140 AD MPAC
003737,002488: 00,3427 26140 ADS MPAC # (NO OVERFLOW).
003738,002489:
003739,002490: 00,3430 24121 SQRTNORM INCR MPTEMP # FIRST TIME THROUGH, JUST SHIFT LEFT 1
003740,002491: 00,3431 00006 EXTEND # (PUTS IN EFFECTIVE RIGHT SHIFT SINCE
003741,002492: 00,3432 30142 DCA MPAC +1 # WE WANT MPAC/2).
003742,002493: 00,3433 20142 DAS MPAC +1
003743,002494: 00,3434 60140 AD MPAC
003744,002495: 00,3435 26140 ADS MPAC # (AGAIN NO OVERFLOW).
003745,002496: 00,3436 60000 DOUBLE
003746,002497: 00,3437 54022 TS CYL
003747,002498:
003748,002499: 00,3440 10022 NORMTEST CCS CYL # SEE IF ARGUMENT NOW NORMALIZED AT
003749,002500: 00,3441 10022 CCS CYL # GREATER THAN .125.
003750,002501: 00,3442 13423 TCF SQRTNM2 # NO - SHIFT LEFT 2 MORE AND TRY AGAIN.
003751,002502: 00,3443 13345 TCF ARGHI # YES - NOW BETWEEN .5 AND .25.
003752,002503: 00,3444 13416 TCF ARGLO # ARGUMENT NOW BETWEEN .25 AND .125.
003753,002504:
003754,002505: # TRIGONOMETRIC FUNCTION PACKAGE.
003755,002506:
003756,002507: # THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAILABLE AS INTERPRETIVE OPERATIONS:
003757,002508:
003758,002509: # 1. SIN COMPUTES (1/2)SINE(2 PI MPAC).
003759,002510: # 2. COS COMPUTES (1/2)COSINE(2 PI MPAC).
003760,002511:
003761,002512: # 3. ASIN COMPUTES (1/2PI)ARCSINE(2 MPAC).
003762,002513: # 4. ACOS COMPUTES (1/2PI)ARCCOSINE(2 MPAC).
003763,002514:
003764,002515: # SIN-ASIN AND COS-ACOS ARE MUTUALLY INVERSE, IE SIN(ASIN(X)) = X.
003765,002516:
003766,002517: 00,3445 06711 COSINE TC BRANCH # FINDS COSINE USING THE IDENTITY
003767,002518: 00,3446 13451 TCF +3 # COS(X) = SIN(PI/2 - ABS(X)).
003768,002519: 00,3447 13454 TCF PRESINE
003769,002520: 00,3450 13454 TCF PRESINE
003770,002521:
003771,002522: 00,3451 00006 +3 EXTEND
003772,002523: 00,3452 40141 DCS MPAC
003773,002524: 00,3453 52141 DXCH MPAC
003774,002525:
003775,002526: 00,3454 37636 PRESINE CAF QUARTER # PI/2 SCALED.
003776,002527: 00,3455 26140 ADS MPAC
003777,002528:
003778,002529:
003779,002530:
003780,002531: 00,3456 52141 SINE DXCH MPAC # DOUBLE ARGUMENT.
003781,002532: 00,3457 20001 DDOUBL
003782,002533: 00,3460 54000 OVSK # SEE IF OVERFLOW PRESENT.
003783,002534: 00,3461 13464 TCF +3 # IF NOT, ARGUMENT OK AS IS.
003784,002535:
003785,002536: 00,3462 00006 EXTEND # IF SO, WE LOST (OR GAINED) PI, SO
003786,002537: 00,3463 40001 DCOM # COMPLEMENT MPAC USING THE IDENTITY
003787,002538: # SIN(X-(+)PI) = SIN(-X).
003788,002539: 00,3464 52141 +3 DXCH MPAC
003789,002540: 00,3465 30140 CA MPAC # SEE IF ARGUMENT GREATER THAN .5 IN
003790,002541: 00,3466 60000 DOUBLE # MAGNITUDE. IF SO, REDUCE IT TO LESS THAN
003791,002542: 00,3467 54001 TS L # .5 (+-PI/2 SCALED) AS FOLLOWS:
003792,002543: 00,3470 13501 TCF SN1
003793,002544:
003794,002545: 00,3471 50000 INDEX A # IF POSITIVE, FORM PI - X, IF NEGATIVE
003795,002546: 00,3472 37634 CAF NEG1/2 +1 # USE -PI - X.
003796,002547: 00,3473 60000 DOUBLE
003797,002548: 00,3474 00006 EXTEND
003798,002549: 00,3475 60140 SU MPAC # GUARANTEED NO OVERFLOW.
003799,002550: 00,3476 54140 TS MPAC
003800,002551: 00,3477 40141 CS MPAC +1
003801,002552: 00,3500 54141 TS MPAC +1
003802,002553:
003803,002554: 00,3501 00006 SN1 EXTEND # SET UP TO EVALUATE HASTINGS POLYNOMIAL
003804,002555: 00,3502 30141 DCA MPAC
003805,002556: 00,3503 52120 DXCH BUF2
003806,002557: 00,3504 03227 TC DSQSUB # SQUARE MPAC.
003807,002558:
003808,002559: 00,3505 07175 TC POLY # EVALUATE FOURTH ORDER POLYNOMIAL.
003809,002560: 00,3506 00003 DEC 3 B-14
003810,002561: 00,3507 14441 37325 2DEC +.3926990796
003811,002562:
003812,002563: 00,3511 53250 60764 2DEC -.6459637111
003813,002564:
003814,002565: 00,3513 12146 21276 2DEC +.318758717
003815,002566:
003816,002567: 00,3515 75466 71471 2DEC -.074780249
003817,002568:
003818,002569: 00,3517 00236 32757 2DEC +.009694988
003819,002570:
003820,002571: 00,3521 32434 CAF LBUF2 # MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
003821,002572: 00,3522 07066 TC DMPSUB -1
003822,002573:
003823,002574: 00,3523 00006 EXTEND
003824,002575: 00,3524 30142 DCA MPAC +1
003825,002576: 00,3525 20142 DAS MPAC +1
003826,002577: 00,3526 60140 AD MPAC
003827,002578: 00,3527 26140 ADS MPAC # NEITHER SHIFT OVERFLOWS.
003828,002579: 00,3530 00006 EXTEND
003829,002580: 00,3531 30142 DCA MPAC +1
003830,002581: 00,3532 20142 DAS MPAC +1
003831,002582: 00,3533 60140 AD MPAC
003832,002583: 00,3534 26140 ADS MPAC
003833,002584: 00,3535 16014 TCF DANZIG
003834,002585:
003835,002586: # ARCSIN/ARCCOS ROUTINE.
003836,002587:
003837,002588: 00,3536 33557 ARCSIN CAF LASINEX # COMPUTE ARCSIN BY USING THE IDENTITY
003838,002589: 00,3537 13541 TCF +2 # ARCSIN(X) = PI/2 - ARCCOS(X).
003839,002590:
003840,002591: 00,3540 33641 ARCCOS CAF LDANZIG # (EXITS IMMEDIATELY).
003841,002592: 00,3541 54122 TS ESCAPE
003842,002593: 00,3542 06711 TC BRANCH # TEST SIGN OF INPUT.
003843,002594: 00,3543 13553 TCF ACOSST # START IMMEDIATELY IF POSITIVE.
003844,002595: 00,3544 13655 TCF ACOSZERO # ARCCOS(0) = PI/2 = .25.
003845,002596: 00,3545 00006 EXTEND # IF NEGATIVE, USE THE IDENTITY
003846,002597: 00,3546 40141 DCS MPAC # ARCCOS(X) = PI - ARCCOS(-X), FORCING
003847,002598: 00,3547 52141 DXCH MPAC # ARGUMENT POSITIVE.
003848,002599: 00,3550 32247 CAF TCSUBTR # SET EXIT TO DO ABOVE BEFORE
003849,002600: 00,3551 56122 XCH ESCAPE # ARCSIN/ARCCOS CONSIDERATIONS.
003850,002601: 00,3552 54123 TS ESCAPE2
003851,002602:
003852,002603: 00,3553 47635 ACOSST CS HALF # TEST MAGNITUDE OF INPUT.
003853,002604: 00,3554 60140 AD MPAC
003854,002605: 00,3555 10000 CCS A
003855,002606: 00,3556 13647 TCF ACOSOVF # THIS IS PROBABLY AN OVERFLOW CASE.
003856,002607:
003857,002608: 00,3557 13635 LASINEX TCF ASINEX
003858,002609:
003859,002610: 00,3560 13570 TCF ACOSST2 # NO OVERFLOW - PROCEED.
003860,002611:
003861,002612: 00,3561 10141 CCS MPAC +1 # IF MAJOR PART IS .5, CALL ANSWER 0
003862,002613: 00,3562 37657 CAF ZERO # UNLESS MINOR PART NEGATIVE.
003863,002614: 00,3563 13565 TCF ACOS=0
003864,002615:
003865,002616: 00,3564 13570 TCF ACOSST2
003866,002617:
003867,002618: 00,3565 54141 ACOS=0 TS MPAC +1
003868,002619: 00,3566 54140 TS MPAC
003869,002620: 00,3567 00122 TC ESCAPE
003870,002621:
003871,002622: 00,3570 00006 ACOSST2 EXTEND # NOW THAT ARGUMENT IS IN PROPER RANGE,
003872,002623: 00,3571 40141 DCS MPAC # BEGIN COMPUTATION. USE HASTINGS
003873,002624: 00,3572 67635 AD HALF # APPROXIMATION ARCCOS(X) = SQRT(1-X)P(X)
003874,002625: 00,3573 52141 DXCH MPAC # IN A SCALED VERSION WHERE P(X) IS A
003875,002626: 00,3574 52120 DXCH BUF2 # SEVENTH ORDER POLYNOMIAL.
003876,002627:
003877,002628: 00,3575 03272 TC SQRTSUB # RETURNS WITH NORMALIZED SQUARE ROOT.
003878,002629:
003879,002630: 00,3576 10121 CCS MPTEMP # SEE IF UN-NORMALIZATION REQUIRED.
003880,002631: 00,3577 13642 TCF ACOSSHR # IF SO.
003881,002632:
003882,002633: 00,3600 52141 ACOS3 DXCH MPAC # SET UP FOR POLYNOMIAL EVALUATION.
003883,002634: 00,3601 52120 DXCH BUF2
003884,002635: 00,3602 52141 DXCH MPAC
003885,002636:
003886,002637: 00,3603 07175 TC POLY
003887,002638: 00,3604 00006 DEC 6 B-14
003888,002639: 00,3605 13240 23630 2DEC +.353553385 # COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
003889,002640:
003890,002641: 00,3607 74721 47775 2DEC* -.0483017006 B+1* # I
003891,002642:
003892,002643: 00,3611 02440 20237 2DEC* +.0200273085 B+2* # WHERE C STANDS FOR ORIGINAL COEFFS.
003893,002644:
003894,002645: 00,3613 75067 70742 2DEC* -.0112931863 B+3*
003895,002646:
003896,002647: 00,3615 03436 26756 2DEC* +.00695311612 B+4*
003897,002648:
003898,002649: 00,3617 74037 57640 2DEC* -.00384617957 B+5*
003899,002650:
003900,002651: 00,3621 03046 07143 2DEC* +.001501297736 B+6*
003901,002652:
003902,002653: 00,3623 76654 42244 2DEC* -.000284160334 B+7*
003903,002654:
003904,002655: 00,3625 32434 CAF LBUF2 # DO FINAL MULTIPLY AND GO TO ANY
003905,002656: 00,3626 07066 TC DMPSUB -1 # EPILOGUE SEQUENCES.
003906,002657: 00,3627 00122 TC ESCAPE
003907,002658:
003908,002659: 00,3630 00006 SUBTR EXTEND # EPILOGUE FOR NEGATIVE INPUTS TO ARCCOS.
003909,002660: 00,3631 40141 DCS MPAC
003910,002661: 00,3632 67635 AD HALF # FORMS PI - ARCCOS(-X) = ARCCOS(X).
003911,002662: 00,3633 52141 DXCH MPAC
003912,002663: 00,3634 00123 TC ESCAPE2 # GO TO POSSIBLE ARCSIN EPILOGUE.
003913,002664:
003914,002665: 00,3635 00006 ASINEX EXTEND
003915,002666: 00,3636 40141 DCS MPAC # ARCSIN EPILOGUE - GET ARCSIN(X)
003916,002667: 00,3637 67636 AD QUARTER # = PI/2 - ARCCOS(X).
003917,002668: 00,3640 52141 DXCH MPAC
003918,002669: 00,3641 16014 LDANZIG TCF DANZIG
003919,002670:
003920,002671: 00,3642 50000 ACOSSHR INDEX A # THE SHIFT RIGHT IS LESS THAN 14 SINCE
003921,002672: 00,3643 37635 CAF BIT14 # THE INPUT WAS NON-ZERO DP.
003922,002673: 00,3644 54121 TS MPTEMP
003923,002674: 00,3645 02054 TC VSHRRND # DP SHIFT RIGHT AND ROUND.
003924,002675: 00,3646 13600 TCF ACOS3 # PROCEED.
003925,002676:
003926,002677: 00,3647 10000 ACOSOVF CCS A # IF MAJOR PART WAS ONLY 1 MORE THAN .5,
003927,002678: 00,3650 13652 TCF +2 # CALL ANSWER 0.
003928,002679: 00,3651 13565 TCF ACOS=0
003929,002680: 00,3652 13565 TCF ACOS=0
003930,002681:
003931,002682: 00,3653 05677 ACOSABRT TC ABORT
003932,002683: 00,3654 01301 OCT 1301
003933,002684:
003934,002685: 00,3655 37636 ACOSZERO CAF QUARTER # ACOS(0) = PI/2.
003935,002686: 00,3656 13566 TCF ACOS=0 +1 # SET MPAC AND EXIT VIA ESCAPE.
003936,002687:
003937,002688: 00,3657 ENDINTS0 EQUALS
003938,002689:
003939,002690: # THE FOLLOWING INSTRUCTIONS ARE AVAILABLE FOR SETTING, MODIFYING, AND BRANCHING ON INDEX REGISTERS:
003940,002691: # 1. AXT ADDRESS TO INDEX TRUE.
003941,002692: # 1. AXC ADDRESS TO INDEX COMPLEMENTED.
003942,002693: # 3. LXA LOAD INDEX FROM ERASABLE.
003943,002694: # 4. LXC LOAD INDEX COMPLEMENTED FROM ERASABLE.
003944,002695: # 5. SXA STORE INDEX IN ERASABLE.
003945,002696: # 6. XCHX EXCHANGE INDEX REIGSTER WITH ERASABLE.
003946,002697:
003947,002698: # 7. INCR INCREMENT INDEX REGISTER.
003948,002699: # 8. XAD ERASABLE ADD TO INDEX REGISTER.
003949,002700: # 9. XSU ERASABLE SUBTRACT FROM INDEX REGISTER.
003950,002701:
003951,002702: # 10. TIX BRANCH ON INDEX REGISTER AND DECREMENT.
003952,002703:
003953,002704:
003954,002705:
003955,002706: 01,2000 SETLOC 12000 # SUFFIX CLASS 01 IS IN BANK 1.
003956,002707:
003957,002708: 01,2000 02061 AXT TC TAGSUB # SELECT APPROPRIATE INDEX REGISTER.
003958,002709: 01,2001 30103 CA POLISH
003959,002710: 01,2002 50114 XSTORE INDEX INDEXLOC # CONTAINS C(FIXLOC) OR C(FIXLOC)+1.
003960,002711: 01,2003 54046 TS X1
003961,002712: 01,2004 16014 TCF DANZIG
003962,002713:
003963,002714: 01,2005 02061 AXC TC TAGSUB
003964,002715: 01,2006 40103 CS POLISH
003965,002716: 01,2007 02002 TC XSTORE
003966,002717:
003967,002718: 01,2010 02061 LXA TC TAGSUB # LOAD INDEX FROM ERASABLE.
003968,002719: 01,2011 50102 INDEX ADDRWD
003969,002720: 01,2012 30000 CA 0
003970,002721: 01,2013 12002 TCF XSTORE
003971,002722:
003972,002723: 01,2014 02061 LXC TC TAGSUB # LOAD INDEX FROM ERASABLE COMPLEMENTED.
003973,002724: 01,2015 50102 INDEX ADDRWD
003974,002725: 01,2016 40000 CS 0
003975,002726: 01,2017 12002 TCF XSTORE
003976,002727:
003977,002728: 01,2020 02061 SXA TC TAGSUB # STORE INDEX IN ERASABLE.
003978,002729: 01,2021 50114 INDEX INDEXLOC
003979,002730: 01,2022 30046 CA X1
003980,002731: 01,2023 16627 TCF STORE1 # (STORE SINGLE PRECISION BEFORE EXIT).
003981,002732:
003982,002733: 01,2024 02061 XCHX TC TAGSUB # EXCHANGE INDEX REGISTER WITH ERASABLE.
003983,002734: 01,2025 50102 INDEX ADDRWD
003984,002735: 01,2026 30000 CA 0
003985,002736: 01,2027 50114 INDEX INDEXLOC
003986,002737: 01,2030 56046 XCH X1
003987,002738: 01,2031 16627 TCF STORE1
003988,002739:
003989,002740: 01,2032 02061 XAD TC TAGSUB # ERASABLE ADD TO INDEX.
003990,002741: 01,2033 50102 INDEX ADDRWD
003991,002742: 01,2034 30000 CA 0
003992,002743: 01,2035 50114 XAD2 INDEX INDEXLOC
003993,002744: 01,2036 26046 ADS X1 # IGNORING OVERFLOWS.
003994,002745: 01,2037 16014 TCF DANZIG
003995,002746:
003996,002747: 01,2040 02061 INCR TC TAGSUB # INCREMENT INDEX REGISTER.
003997,002748: 01,2041 30103 CA POLISH
003998,002749: 01,2042 12035 TCF XAD2
003999,002750:
004000,002751: 01,2043 02061 XSU TC TAGSUB # ERASABLE SUBTRACT FROM INDEX.
004001,002752: 01,2044 50102 INDEX ADDRWD
004002,002753: 01,2045 40000 CS 0
004003,002754: 01,2046 12035 TCF XAD2
004004,002755:
004005,002756:
004006,002757:
004007,002758: 01,2047 02061 TIX TC TAGSUB # BRANCH AND DECREMENT ON INDEX.
004008,002759: 01,2050 50114 INDEX INDEXLOC
004009,002760: 01,2051 40050 CS S1
004010,002761: 01,2052 50114 INDEX INDEXLOC
004011,002762: 01,2053 60046 AD X1
004012,002763: 01,2054 00006 EXTEND # NO OPERATION IF DECREMENTED INDEX IS
004013,002764: 01,2055 66014 BZMF DANZIG # NEGATIVE OR ZERO.
004014,002765:
004015,002766: 01,2056 50114 DOTIXBR INDEX INDEXLOC
004016,002767: 01,2057 56046 XCH X1 # IGNORING OVERFLOWS.
004017,002768:
004018,002769: 01,2060 16651 TCF GOTO # DO THE BRANCH USING THE CADR IN POLISH.
004019,002770:
004020,002771:
004021,002772:
004022,002773: # SUBROUTINE WHICH SETS THE ADDRESS OF THE SPECIFIED INDEX IN INDEXLOC. (ACTUALLY, THE ADDRESS -38D.)
004023,002774:
004024,002775: 01,2061 30104 TAGSUB CA FIXLOC
004025,002776: 01,2062 54114 TS INDEXLOC
004026,002777:
004027,002778: 01,2063 10020 CCS CYR # BIT 15 SPECIFIES INDEX.
004028,002779: 01,2064 24114 INCR INDEXLOC # 0 MEANS USE X2.
004029,002780: 01,2065 00002 TC Q
004030,002781: 01,2066 00002 TC Q # 1 FOR X1.
004031,002782:
004032,002783: # MISCELLANEOUS OPERATION CODES WITH DIRECT ADDRESSES. INCLUDED HERE ARE:
004033,002784:
004034,002785: # 1. ITA STORE QPRET (RETURN ADDRESS) IN ERASABLE.
004035,002786: # 2. CALL CALL A SUBROUTINE, LEAVING RETURN IN QPRET.
004036,002787: # 3. RTB RETURN TO BASIC LANGUAGE AT THE GIVEN ADDRESS.
004037,002788: # 4. BHIZ BRANCH IF THE HIGH ORDER OF MPAC IS ZERO (SINGLE PRECISION).
004038,002789: # 5. BOV BRANCH ON OVERFLOW.
004039,002790: # 6. GOTO SIMPLE SEQUENCE CHANGE.
004040,002791:
004041,002792: 01,2067 10020 RTB/BHIZ CCS CYR
004042,002793: 01,2070 30103 RTB CA POLISH
004043,002794: 01,2071 14106 TCF BANKJUMP # CALL BASIC ROUTINE.
004044,002795:
004045,002796: 01,2072 10140 BHIZ CCS MPAC
004046,002797: 01,2073 16014 TCF DANZIG
004047,002798: 01,2074 16651 TCF GOTO
004048,002799: 01,2075 16014 TCF DANZIG
004049,002800: 01,2076 16651 TCF GOTO
004050,002801:
004051,002802: 01,2077 10105 BOV(B) CCS OVFIND # BRANCH ON OVERFLOW TO BASIC OR INTERP.
004052,002803: 01,2100 12102 TCF +2
004053,002804: 01,2101 16014 TCF DANZIG
004054,002805: 01,2102 54105 TS OVFIND
004055,002806: 01,2103 10020 CCS CYR
004056,002807: 01,2104 12070 TCF RTB # IF BASIC.
004057,002808: 01,2105 00360 B5TOB8 OCT 360
004058,002809: 01,2106 16651 TCF GOTO
004059,002810:
004060,002811: 01,2107 10020 BZE/GOTO CCS CYR # SEE WHICH OP-CODE IS DESIRED.
004061,002812: 01,2110 06711 TC BRANCH # DO BZE.
004062,002813: 01,2111 16014 TCF DANZIG
004063,002814: 01,2112 16651 TCF GOTO # DO GOTO.
004064,002815: 01,2113 16014 TCF DANZIG
004065,002816:
004066,002817: 01,2114 10020 BPL/BMN CCS CYR
004067,002818: 01,2115 12123 TCF BPL
004068,002819: 01,2116 12000 5B10 DEC 5 B+10 # SHIFTS OP CODE IN SWITCH INSTRUCTION ADR
004069,002820:
004070,002821: 01,2117 06711 TC BRANCH # DO BMN.
004071,002822: 01,2120 16014 TCF DANZIG
004072,002823: 01,2121 16014 TCF DANZIG
004073,002824: 01,2122 16651 TCF GOTO # ONLY IF NNZ.
004074,002825:
004075,002826: 01,2123 06711 BPL TC BRANCH
004076,002827: 01,2124 16651 TCF GOTO # IF POSITIVE OR ZERO.
004077,002828: 01,2125 16651 TCF GOTO
004078,002829: 01,2126 16014 TCF DANZIG
004079,002830:
004080,002831: 01,2127 10020 CALL/ITA CCS CYR
004081,002832: 01,2130 16644 TCF CALL
004082,002833:
004083,002834: 01,2131 05715 TC CCSHOLE
004084,002835: 01,2132 50104 INDEX FIXLOC # STORE QPRET.
004085,002836: 01,2133 30052 CA QPRET
004086,002837: 01,2134 16627 TCF STORE1
004087,002838:
004088,002839: # THE FOLLOWING OPERATIONS ARE AVAILABLE FOR ALTERING AND TESTING INTERPRETIVE SWITCHES:
004089,002840:
004090,002841: # 00 BONSET SET A SWITCH AND DO A GOTO IF IT WAS ON.
004091,002842: # 01 SETGO SET A SWITCH AND DO A GOTO.
004092,002843: # 02 BOFSET SET A SWITCH AND DO A GOTO IF IT WAS OFF
004093,002844: # 03 SET SET A SWITCH.
004094,002845:
004095,002846: # 04 BONINV INVERT A SWITCH AND BRANCH IF IT WAS ON.
004096,002847: # 05 INVGO INVERT A SWITCH AND DO A GOTO.
004097,002848: # 06 BOFINV INVERT A SWITCH AND BRANCH IF IT WAS OFF
004098,002849: # 07 INVERT INVERT A SWITCH.
004099,002850:
004100,002851: # 10 BONCLR CLEAR A SWITCH AND BRANCH IF IT WAS ON.
004101,002852: # 11 CLRGO CLEAR A SWITCH AND DO A GOTO.
004102,002853: # 12 BOFCLR CLEAR A SWITCH AND BRANCH IF IT WAS OFF.
004103,002854: # 13 CLEAR CLEAR A SWITCH.
004104,002855:
004105,002856: # 14 BON BRANCH IF A SWITCH WAS ON.
004106,002857: # 16 BOFF BRANCH IF A SWITCH WAS OFF.
004107,002858:
004108,002859:
004109,002860:
004110,002861: # THE ADDRESS SUPPLIED WITH THE SWITCH INSTRUCTION IS INTERPRETED AS FOLLOWS:
004111,002862:
004112,002863: # BITS 1-4 SWITCH BIT NUMBER (1-15).
004113,002864: # BITS 5-8 SWITCH OPERATION NUMBER.
004114,002865: # BITS 9- SWITCH WORD NUMBER (UP TO 64 SWITCH WORDS).
004115,002866:
004116,002867: # THE ADDRESS ITSELF IS MADE UP BY THE YUL SYSTEM ASSEMBLER. THE BRANCH INSTRUCTIONS REQUIRE TWO
004117,002868: # ADDRESSES, THE SECOND TAKEN AS THE DIRECT (OR INDIRECT IF IN ERASABLE) ADDRESS OF THE BRANCH.
004118,002869:
004119,002870:
004120,002871:
004121,002872: 01,2135 37665 SWITCHES CAF LOW4 # LEAVE THE SWITCH BIT IN SWBIT .
004122,002873: 01,2136 70103 MASK POLISH
004123,002874: 01,2137 50000 INDEX A
004124,002875: 01,2140 37634 CAF BIT15 # (NUMBER FROM LEFT TO RIGHT.)
004125,002876: 01,2141 54115 TS SWBIT
004126,002877:
004127,002878: 01,2142 37644 CAF BIT7 # LEAVE THE SWITCH NUMBER IN SWWORD.
004128,002879: 01,2143 00006 EXTEND
004129,002880: 01,2144 70103 MP POLISH
004130,002881: 01,2145 54114 TS SWWORD
004131,002882:
004132,002883: 01,2146 00004 INHINT # DURING SWITCH CHANGE SO RUPT CAN USE TOO
004133,002884: 01,2147 50000 INDEX A # LEAVE THE SWITCH WORD ITSELF IN L.
004134,002885: 01,2150 30061 CA STATE
004135,002886: 01,2151 54002 TS Q # Q WILL BE USED AS A CHANNEL.
004136,002887:
004137,002888:
004138,002889: 01,2152 37640 CAF BIT11
004139,002890: 01,2153 00006 EXTEND # DISPATCH SWITCH BIT OPERATION AS IN BITS
004140,002891: 01,2154 70103 MP POLISH # 7-8 OF POLISH.
004141,002892: 01,2155 72215 MASK B3TOB4 # GETS 4X2-BIT CODE.
004142,002893: 01,2156 50000 INDEX A
004143,002894: 01,2157 12160 TCF +1
004144,002895:
004145,002896: 01,2160 30115 +1 CA SWBIT # 00 - SET SWITCH IN QUESTION.
004146,002897: 01,2161 00006 EXTEND
004147,002898: 01,2162 04002 ROR Q
004148,002899: 01,2163 12172 TCF SWSTORE
004149,002900:
004150,002901: 01,2164 30115 +5 CA SWBIT # 01 - INVERT SWITCH.
004151,002902: 01,2165 00006 EXTEND
004152,002903: 01,2166 06002 RXOR Q
004153,002904: 01,2167 12172 TCF SWSTORE
004154,002905:
004155,002906: 01,2170 40115 +9D CS SWBIT # 10 - CLEAR.
004156,002907: 01,2171 70002 MASK Q
004157,002908: 01,2172 50114 SWSTORE INDEX SWWORD
004158,002909: 01,2173 54061 TS STATE # NEW SWITCH WORD.
004159,002910:
004160,002911: 01,2174 00003 +13D RELINT # 11 - NOOP.
004161,002912: 01,2175 37636 CAF BIT13
004162,002913: 01,2176 00006 EXTEND # DISPATCH SEQUCE CHANGING OR BRANCHING
004163,002914: 01,2177 70103 MP POLISH # CODE.
004164,002915: 01,2200 72215 MASK B3TOB4
004165,002916: 01,2201 50000 INDEX A
004166,002917: 01,2202 12203 TCF +1 # ORIGINALLY STORED IN BITS 5-6.
004167,002918:
004168,002919: 01,2203 40002 +1 CS Q # 00 - BRANCH IF ON.
004169,002920: 01,2204 70115 TEST MASK SWBIT
004170,002921: 01,2205 10000 CCS A
004171,002922: 01,2206 12216 TCF SWSKIP
004172,002923:
004173,002924: 01,2207 16703 +5 TCF SWBRANCH # 01 - GO TO.
004174,002925:
004175,002926: 01,2210 12216 TCF SWSKIP # HERE ONLY ON BIT 15.
004176,002927:
004177,002928: 01,2211 05715 TC CCSHOLE
004178,002929: 01,2212 05715 TC CCSHOLE
004179,002930:
004180,002931: 01,2213 30002 +9D CA Q # 10 - BRANCH IF OFF.
004181,002932: 01,2214 12204 TCF TEST
004182,002933:
004183,002934: 01,2215 00014 B3TOB4 OCT 14
004184,002935: 01,2216 24150 SWSKIP INCR LOC
004185,002936:
004186,002937: 01,2217 01,2135 SW/ EQUALS SWITCHES
004187,002938:
004188,002939: 01,2217 16014 +13D TCF DANZIG # 11 - NOOP.
004189,002940: 01,2220 ENDINTS1 EQUALS
End of include-file LIST_PROCESSING_INTERPRETER.agc. Parent file is MAIN.agc