Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

046310,000002:                                                                                                 #  Copyright:    Public domain.
046311,000003:                                                                                                 #  Filename:      INTERPRETER.agc
046312,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
046313,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
046314,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
046315,000007:                                                                                                 #  Assembler:    yaYUL
046316,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
046317,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
046318,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
046319,000011:                                                                                                 #  Mod history:  2011-04-09 JL    Adapted from corresponding Colossus 249 file.
046320,000012: 
046321,000013:                                                                                                 # # Page 1074
046322,000014:                                                                                                 #  SECTION 1  DISPATCHER
046323,000015: 
046324,000016:                                                                                                 #           ENTRY TO THE INTERPRETER. INTPRET SETS LOC TO THE FIRST  INSTRUCTION, BANKSET TO THE BBANK OF THE
046325,000017:                                                                                                 #  OBJECT INTERPRETIVE PROGRAM, AND INTBIT15 TO THE BIT15 CONTENTS OF FBANK. INTERPRETIVE PROGRAMS MAY BE IN
046326,000018:                                                                                                 #  VIRTUALLY ALL BANKS PRESENT UNDER ANY SUPER-BANK SETTING, WITH THE RESTRICTION THAT PROGRAMS IN HIGH BANKS
046327,000019:                                                                                                 #  (BIT15 OF FBANK = 1) DO NOT REFER TO LOWBANKS, AND VICE-VERSA. THE INTERPRETER DOES NOT SWITCH SUPERBANKS.
046328,000020:                                                                                                 #  E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE (100 - 3777) IS ADDRESSED.
046329,000021: 
046330,000022: 
046331,000023:    6006                                          BLOCK    03                                    
046332,000024: 
046333,000025:    6006                                          COUNT    03/INTER                              
046334,000026: 
046335,000027:    6006           00003        INTPRET           RELINT                                         
046336,000028:    6007           00006                          EXTEND                                         #  SET LOC TO THE WORD FOLLOWING THE TC.
046337,000029:    6010           22164                          QXCH     LOC                                   
046338,000030: 
046339,000031:    6011           30006                 +2       CA       BBANK                                 #  INTERPRETIVE BRANCHES FINISH HERE.
046340,000032:    6012           54165                          TS       BANKSET                               
046341,000033:    6013           74674                          MASK     BIT15                                 #  GET 15TH BIT FOR INDEXABLE ADDRESSES.
046342,000034:    6014           54115                          TS       INTBIT15                              
046343,000035: 
046344,000036:    6015           54023                          TS       EDOP                                  #  MAKE SURE NO INSTRUCTIONS LEFT OVER
046345,000037: 
046346,000038:    6016           16037                          TCF      NEWOPS                                #  PICK UP OP CODE PAIR AND BEGIN.
046347,000039: 
046348,000040: 
046349,000041:    6017           22006        INTRSM            LXCH     BBANK                                 #  RESUME SUSPENDED INTERPRETIVE JOB
046350,000042:    6020           16011                          TCF      INTPRET    +3                         
046351,000043:                                                                                                 #           DLOAD LOADS MPAC, MPAC +1, LEAVING ZERO IN MPAC +2.
046352,000044: 
046353,000045:    6021           00006        DLOAD             EXTEND                                         
046354,000046:    6022           50116                          INDEX    ADDRWD                                
046355,000047:    6023           30001                          DCA      0                                     #  LOAD DP C(C(ADDRWD)) INT MPAC,MPAX +1
046356,000048:    6024           52155        SLOAD2            DXCH     MPAC                                  
046357,000049:    6025           34714                          CAF      ZERO                                  #  ZERO MPAC +2
046358,000050: 
046359,000051:                                                                                                 # # Page 1075
046360,000052:                                                                                                 #           AT THE END OF MOST INSTRUCTIONS, CONTROL IS GIVEN TO DANZIG TO DISPATCH THE NEXT OPERATION.
046361,000053: 
046362,000054:    6026           54156                          TS       MPAC       +2                         #  AND DECLARE DP MODE
046363,000055: 
046364,000056:    6027           54163        NEWMODE           TS       MODE                                  #  PROLOGUE FOR MODE-CHANGING INSTRUCTIONS.
046365,000057: 
046366,000058:    6030           30165        DANZIG            CA       BANKSET                               #  SET BBANK BEFORE TESTING NEWJOB SO THAT
046367,000059:    6031           54006                          TS       BBANK                                 #  IT MAY BE SAVED DIRECTLY BY CHANJOB.
046368,000060: 
046369,000061:    6032           10023        NOIBNKSW          CCS      EDOP                                  #  SEE IF AN ORDER CODE IS LEFT OVER FROM
046370,000062:    6033           16046                          TCF      OPJUMP                                #  THE LAST PAIR RETRIEVED. IF SO, EXECUTE.
046371,000063:                                                                                                 #                                           EDOP IS SET TO ZERO ON ITS RE-EDITIING.
046372,000064: 
046373,000065:    6034           10067                          CCS      NEWJOB                                #  SEE IF A JOB OF HIGHER PRIORITY IS
046374,000066:    6035           15063                          TCF      CHANG2                                #  PRESENT, AND IF SO, CHANGE JOBS.
046375,000067: 
046376,000068:    6036           24164                          INCR     LOC                                   #  ADVANCE THE LOCATION COUNTER.
046377,000069:                                                                                                 #           ITRACE (1) REFERS TO "NEWOPS".
046378,000070:    6037           50164        NEWOPS            INDEX    LOC                                   #  ENTRY TO BEGIN BY PICKING OP CODE PAIR.
046379,000071:    6040           30000                          CA       0                                     #  MAY BE AN OPCODE PAIR OR A STORE CODE.
046380,000072:    6041           10000                          CCS      A                                     #  TEST SIGN AND GET DABS(A).
046381,000073:    6042           16331                          TCF      DOSTORE                               #  PROCESS STORE CODE.
046382,000074: 
046383,000075:    6043           00177        LOW7              OCT      177                                   
046384,000076: 
046385,000077:    6044           54023                          TS       EDOP                                  #  OP CODE PAIR. LEAVE THE OTHER IN EDOP
046386,000078:    6045           76043                          MASK     LOW7                                  #  WHERE CCS EDOP WILL HONOR IT NEXT.
046387,000079: 
046388,000080:    6046           54020        OPJUMP            TS       CYR                                   #  LOWWD ENTERS HERE IF A RIGHT-HAND OP
046389,000081:    6047           10020                          CCS      CYR                                   #  CODE IS TO BE PROCESSED. TEST PREFICES.
046390,000082:    6050           16216                          TCF      OPJUMP2                               #  TEST SECOND PREFIX BIT.
046391,000083: 
046392,000084:    6051           16712                          TCF      EXIT                                  #  +0 OP CODE IS EXIT
046393,000085: 
046394,000086:                                                                                                 # # Page 1076
046395,000087:                                                                                                 #           PROCESS ADDRESSES WHICH MAY BE DIRECT, INDEXED, OR REFERENCE THE PUSHDOWN LIST.
046396,000088: 
046397,000089:    6052           74712        ADDRESS           MASK     BIT1                                  #  SEE IF ADDRESS IS INDEXED. CYR CONTAINED
046398,000090:    6053           10000                          CCS      A                                     #  400XX, SO BIT 1 IS NOW AS IT WAS IN CYR.
046399,000091:    6054           16115                          TCF      INDEX                                 #  FORM INDEXED ADDRESS.
046400,000092: 
046401,000093:    6055           50164        DIRADRES          INDEX    LOC                                   #  LOOK AHEAD TO NEXT WORD TO SEE IF
046402,000094:    6056           40001        OCT40001          CS       1                                     #  ADDRESS IS GIVEN.
046403,000095:    6057           10000                          CCS      A                                     
046404,000096:    6060           16164                          TCF      PUSHUP                                #  IF NOT.
046405,000097: 
046406,000098:    6061           77773        NEG4              DEC      -4         B-14                       
046407,000099: 
046408,000100:    6062           24164                          INCR     LOC                                   #  IF SO, TO SHOW WE PICKED UP A WORD.
046409,000101:    6063           54116                          TS       ADDRWD                                
046410,000102: 
046411,000103:                                                                                                 # # Page 1077
046412,000104:                                                                                                 #           FINAL DIGESTION OF DIRECT ADDRESSES OF OP CODES WITH 01 PREFIX IS DONE HERE. IN EACH CASE, THE
046413,000105:                                                                                                 #  REQUIRED 12-BIT SUB-ADDRESS IS LEFT IN ADDRWD, WITH ANY REQUIRED E OR F BANK SWITCHING DONE. ADDRESSES LESS
046414,000106:                                                                                                 #  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.
046415,000107: 
046416,000108: 
046417,000109:    6064           66220                          AD       -ENDVAC                               #  SEE IF ADDRESS RELATIVE TO WORK AREA.
046418,000110:    6065           10000                          CCS      A                                     
046419,000111:    6066           67712                          AD       -ENDERAS                              #  IF NOT, SEE IF IN GENERAL ERASABLE.
046420,000112:    6067           16074                          TCF      IERASTST                              
046421,000113: 
046422,000114:    6070           30120        NETZERO           CA       FIXLOC                                #  IF SO, LEAVE THE MODIFIED ADDRESS IN
046423,000115:    6071           26116                          ADS      ADDRWD                                #  ADDRWD AND DISPATCH.
046424,000116:    6072           50020        ITR15             INDEX    CYR                                   #  THIS INDEX MAKES THE NEXT INSTRUCTION
046425,000117:    6073           76242                          7        INDJUMP    -1                         #  TCF INDJUMP + OP, EDITING CYR.
046426,000118: 
046427,000119:    6074           00006        IERASTST          EXTEND                                         
046428,000120:    6075           66105                          BZMF     GEADDR                                #  GO PROCESS GENERAL-ERASABLE ADDRESS.
046429,000121: 
046430,000122:    6076           74747                          MASK     LOW10                                 #  FIXED BANK ADDRESS. RESTORE AND ADD B15.
046431,000123:    6077           64747                          AD       LOW10                                 #  SWITCH BANKS AND LEAVE SUBADDRESS IN
046432,000124:    6100           56116                          XCH      ADDRWD                                #  ADDRWD FOR OPERAND RETRIEVAL. (THIS
046433,000125:    6101           60115                          AD       INTBIT15                              #  METHOD PRECLUDES USE OF THE LAST
046434,000126:    6102           54004                          TS       FBANK                                 #  LOCATION IN EACH FBANK.)
046435,000127:    6103           50020        ITR12             INDEX    CYR                                   
046436,000128:    6104           76242                          7        INDJUMP    -1                         
046437,000129: 
046438,000130:    6105           74373        GEADDR            MASK     LOW8                                  
046439,000131:    6106           64744                          AD       OCT1400                               
046440,000132:    6107           56116                          XCH      ADDRWD                                
046441,000133:    6110           54003                          TS       EBANK                                 
046442,000134:    6111           50020        ITR10             INDEX    CYR                                   
046443,000135:    6112           76242                          7        INDJUMP    -1                         
046444,000136: 
046445,000137:                                                                                                 # # Page 1078
046446,000138:                                                                                                 #           THE FOLLOWING ROUTINE PROCESSES INTERPRETIVE INDEXED ADDRESSES. AN INTERPRETER INDEX REGISTER MAY
046447,000139:                                                                                                 #  CONTAIN THE ADDRESS OF ANY ERASABLE REGISTER (0-42 BEING RELATIVE TO THE VAC AREA) OR ANY INTERPRETIVE PROGRAM
046448,000140:                                                                                                 #  BANK, OR ANY INTEGER IN THAT RANGE.
046449,000141: 
046450,000142:    6113           37702        DODLOAD*          CAF      DLOAD*                                #  STODL* COMES HERE TO PROCESS LOAD ADR.
046451,000143:    6114           54020                          TS       CYR                                   #  (STOVL* ENTERS HERE).
046452,000144: 
046453,000145:    6115           30120        INDEX             CA       FIXLOC                                #  SET UP INDEX LOCATION.
046454,000146:    6116           54130                          TS       INDEXLOC                              
046455,000147:    6117           24164                          INCR     LOC                                   #  (ADDRESS ALWAYS GIVEN).
046456,000148:    6120           50164                          INDEX    LOC                                   
046457,000149:    6121           40000                          CS       0                                     
046458,000150:    6122           10000                          CCS      A                                     #  INDEX 2 IF ADDRESS STORED COMPLEMENTED.
046459,000151:    6123           24130                          INCR     INDEXLOC                              
046460,000152:    6124           16125                          NOOP                                           
046461,000153: 
046462,000154:    6125           54116                          TS       ADDRWD                                #  14 BIT ADDRESS TO ADDRWD.
046463,000155:    6126           77711                          MASK     HIGH4                                 #  IF ADDRESS GREATER THAN 2K, ADD INTBIT15
046464,000156:    6127           00006                          EXTEND                                         
046465,000157:    6130           16133                          BZF      INDEX2                                
046466,000158:    6131           30115                          CA       INTBIT15                              
046467,000159:    6132           26116                          ADS      ADDRWD                                
046468,000160: 
046469,000161:    6133           50130        INDEX2            INDEX    INDEXLOC                              
046470,000162:    6134           40046                          CS       X1                                    
046471,000163:    6135           26116                          ADS      ADDRWD                                #  DO AUGMENT, IGNORING AND CORRECTING OVF.
046472,000164: 
046473,000165:    6136           77713                          MASK     HIGH9                                 #  SEE IF ADDRESS IS IN WORK AREA.
046474,000166:    6137           00006                          EXTEND                                         
046475,000167:    6140           16153                          BZF      INDWORK                               
046476,000168:    6141           77711                          MASK     HIGH4                                 #  SEE IF IN FIXED BANK.
046477,000169:    6142           00006                          EXTEND                                         
046478,000170:    6143           16155                          BZF      INDERASE                              
046479,000171: 
046480,000172:    6144           30116                          CA       ADDRWD                                #  IN FIXED - SWITCH BANKS AND CREATE
046481,000173:    6145           54004                          TS       FBANK                                 #  SUB-ADDRESS.
046482,000174:    6146           74747                          MASK     LOW10                                 
046483,000175:    6147           64700                          AD       2K                                    
046484,000176:    6150           54116                          TS       ADDRWD                                
046485,000177:    6151           50020        ITR11             INDEX    CYR                                   
046486,000178:    6152           36242                          3        INDJUMP    -1                         
046487,000179: 
046488,000180:    6153           30120        INDWORK           CA       FIXLOC                                #  MAKE ADDRWD RELATIVE TO WORK AREA.
046489,000181:    6154           16161                          TCF      ITR13      -1                         
046490,000182: 
046491,000183:    6155           34744        INDERASE          CA       OCT1400                               
046492,000184:    6156           56116                          XCH      ADDRWD                                
046493,000185:    6157           54003                          TS       EBANK                                 
046494,000186:    6160           74373                          MASK     LOW8                                  
046495,000187:    6161           26116                 -1       ADS      ADDRWD                                
046496,000188:                                                                                                 # # Page 1079
046497,000189:    6162           50020        ITR13             INDEX    CYR                                   
046498,000190:    6163           36242                          3        INDJUMP    -1                         
046499,000191: 
046500,000192:                                                                                                 # # Page 1080
046501,000193:                                                                                                 #           PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
046502,000194:                                                                                                 #  LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARTGHMETIC OPERATION PERFORMED
046503,000195:                                                                                                 #  IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.). EXCEPTIONS TO THIS GENERAL RULE ARE LISTED
046504,000196:                                                                                                 #  BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT):
046505,000197: 
046506,000198:                                                                                                 #           1.  VXSC AND V/SC WANT THE OPPOSITE TYPE OF OPERAND, E.G., IF THE LAST OPERATION YIELDED A VECTOR
046507,000199:                                                                                                 #  RESULT, VXSC WANTS A SCALAR.
046508,000200: 
046509,000201:                                                                                                 #           2.  THE LOAD CODES SHOULD LOAD THE ACCUMULATOR INDEPENDENT OF THE RESULT OF THE LAST OPERATION. THIS
046510,000202:                                                                                                 #  INCLUDES VLOAD, DLOAD, TLOAD, PDDL, AND PDVL (NO PUSHUP WITH SLOAD).
046511,000203: 
046512,000204:                                                                                                 #           3.  SOME ARITHMETIC OPERATIONS REQUIRE A STANDARD TYPE OF OPERAND REGARDLESS OF THE PREVIOUS OPERATION.
046513,000205:                                                                                                 #  THIS INCLUDES SIGN WANTING DP AND TAD REQUIRING TP.
046514,000206: 
046515,000207:    6164           34374        PUSHUP            CAF      OCT23                                 #  IF THE LOW 5 BITS OF CYR ARE LESS THAN
046516,000208:    6165           70020                          MASK     CYR                                   #  20, THIS OP REQUIRES SPECIAL ATTENTION.
046517,000209:    6166           66171                          AD       -OCT10                                #  (NO -0).
046518,000210:    6167           10000                          CCS      A                                     
046519,000211:    6170           16202                          TCF      REGUP                                 #  FOR ALL CODES GREATER THAN OCT 7.
046520,000212: 
046521,000213:    6171           77767        -OCT10            OCT      -10                                   
046522,000214: 
046523,000215:    6172           66061                          AD       NEG4                                  #  WE NOW HAVE 7 - OP CODE(MOD4). SEE IF
046524,000216:    6173           10000                          CCS      A                                     #  THE OP CODE (MOD4) IS THREE (REVERSE).
046525,000217:    6174           50000                          INDEX    A                                     #  NO - THE MODE IS DEFINITE. PICK UP THE
046526,000218:    6175           46213                          CS       NO.WDS                                
046527,000219:    6176           16204                          TCF      REGUP      +2                         
046528,000220: 
046529,000221:    6177           50163                          INDEX    MODE                                  #  FOR VXSC AND V/SC WE WANT THE REQUIRED
046530,000222:    6200           46211                          CS       REVCNT                                #  PUSHLOC DECREMENT WITHOUT CHANGING THE
046531,000223:    6201           16204                          TCF      REGUP      +2                         #  MODE AT THIS TIME.
046532,000224: 
046533,000225:    6202           50163        REGUP             INDEX    MODE                                  #  MOST ALL OP CODES PUSHUP HERE.
046534,000226:    6203           46213                          CS       NO.WDS                                
046535,000227:    6204           26166                 +2       ADS      PUSHLOC                               
046536,000228:    6205           54116                          TS       ADDRWD                                
046537,000229:    6206           50020        ITR14             INDEX    CYR                                   
046538,000230:    6207           76242                          7        INDJUMP    -1                         #  (THE INDEX MAKES THIS A TCF.)
046539,000231: 
046540,000232:    6210           00002                          OCT      2                                     #  REVERSE PUSHUP DECREMENT. VECTOR TAKES 2
046541,000233:    6211           00006        REVCNT            OCT      6                                     #  WORDS, SCALAR TAKES 6.
046542,000234:    6212           00006                          OCT      6                                     
046543,000235:    6213           00002        NO.WDS            OCT      2                                     #  CONVENTIONAL DECREMENT IS 6 WORDS VECTOR
046544,000236:    6214           00003        OCTAL3            OCT      3                                     #  2 IN DP, AND 3 IN TP.
046545,000237:    6215           00006                          OCT      6                                     
046546,000238: 
046547,000239:                                                                                                 # # Page 1081
046548,000240:                                                                                                 #           TEST THE SECOND PREFIX BIT TO SEE IF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION.
046549,000241: 
046550,000242:    6216           10020        OPJUMP2           CCS      CYR                                   #  TEST SECOND PREFIX BIT.
046551,000243:    6217           16232                          TCF      OPJUMP3                               #  TEST THIRD BIT TO SEE IF UNARY OR SHIFT
046552,000244: 
046553,000245:    6220           77722        -ENDVAC           DEC      -45        B-14                       
046554,000246: 
046555,000247:                                                                                                 #           THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10. THEY ARE BASICALLY WORK AREA ADDRESSES
046556,000248:                                                                                                 #  IN THE RANGE 0 - 52, ERASABLE ECADR CONSTANTS FROM 100 - 3777, AND FCADRS ABOVE THAT. ALL 15 BITS ARE AVAILABLE
046557,000249:                                                                                                 #  IN CONTRAST TO SUFFIX 1, IN WHICH ONLY THE LOW ORDER 14 ARE AVAILABLE.
046558,000250: 
046559,000251:    6221           24164        15BITADR          INCR     LOC                                   #  (ENTRY HERE FROM STCALL).
046560,000252:    6222           50164                          INDEX    LOC                                   #  PICK UP ADDRESS WORD.
046561,000253:    6223           30000                          CA       0                                     
046562,000254:    6224           54117                          TS       POLISH                                #  WE MAY NEED A SUBADDRESS LATER.
046563,000255: 
046564,000256:    6225           34750                          CAF      LOW7+2K                               #  THESE INSTRUCTIONS ARE IN BANK 1.
046565,000257:    6226           54004                          TS       FBANK                                 
046566,000258:    6227           70020                          MASK     CYR                                   
046567,000259:    6230           50000        ITR7              INDEX    A                                     
046568,000260:    6231           16303                          TCF      MISCJUMP                              
046569,000261: 
046570,000262:                                                                                                 # # Page 1082
046571,000263:                                                                                                 #           COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
046572,000264: 
046573,000265:    6232           54004        OPJUMP3           TS       FBANK                                 #  CALL IN BANK 0 (BIT5S 11-15 OF A ARE 0.)
046574,000266:                                                                                                 #           ITRACE (6) REFERS TO "OPJUMP3".
046575,000267:    6233           10020                          CCS      CYR                                   #  TEST THIRD PREFIX BIT.
046576,000268:    6234           50000                          INDEX    A                                     #  THE DECREMENTED UNARY CODE IS IN BITS
046577,000269:    6235           12000                          TCF      UNAJUMP                               #  1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
046578,000270: 
046579,000271:    6236           10163                          CCS      MODE                                  #  ITS A SHORT SHIFT CODE. SEE IF PRESENT
046580,000272:    6237           12017                          TCF      SHORTT                                #  SCALAR OR VECTOR.
046581,000273:    6240           12017                          TCF      SHORTT                                
046582,000274:    6241           12121                          TCF      SHORTV                                #  CALLS THE APPROPRIATE ROUTINE.
046583,000275: 
046584,000276: 
046585,000277:    6242     4364               FBANKMSK          EQUALS   BANKMASK                              
046586,000278:    6242           00122        LVBUF             ADRES    VBUF                                  
046587,000279: 
046588,000280:                                                                                                 # # Page 1083
046589,000281:                                                                                                 #           THE FOLLOWING IS THE JUMP TABLE FOR OP CODES WHICH MAY HAVE INDEXABLE ADDRESSES OR MAY PUSH UP.
046590,000282: 
046591,000283:    6243           16454        INDJUMP           TCF      VLOAD                                 #  00 - LOAD MPAC WITH A VECTOR.
046592,000284:    6244           17040                          TCF      TAD                                   #  01 - TRIPLE PRECISION ADD TO MPAC.
046593,000285:    6245           17624                          TCF      SIGN                                  #  02 - COMPLEMENT MPAC (V OR SC) IF X NEG.
046594,000286:    6246           17350                          TCF      VXSC                                  #  03 - VECTOR TIMES SCALAR.
046595,000287:    6247           16652                          TCF      CGOTO                                 #  04 - COMPUTED GO TO.
046596,000288:    6250           16437                          TCF      TLOAD                                 #  05 - LOAD MPAC WITH TRIPLE PRECISION.
046597,000289:    6251           16021                          TCF      DLOAD                                 #  06 - LOAD MPAC WITH A DP SCALAR.
046598,000290:    6252           17573                          TCF      V/SC                                  #  07 - VECTOR DIVIDED BY A SCALAR.
046599,000291: 
046600,000292:    6253           16450                          TCF      SLOAD                                 #  10 - LOAD MPAC IN SINGLE PRECISION.
046601,000293:    6254           16567                          TCF      SSP                                   #  11 - SET SINGLE PRECISION INTO X.
046602,000294:    6255           16472                          TCF      PDDL                                  #  12 - PUSH DOWN MPAC AND RE-LOAD IN DP.
046603,000295:    6256           17303                          TCF      MXV                                   #  13 - MATRIX POST-MULTIPLIED BY VECTOR.
046604,000296:    6257           16526                          TCF      PDVL                                  #  14 - PUSH DOWN AND VECTOR LOAD.
046605,000297:    6260           16575                          TCF      CCALL                                 #  15 - COMPUTED CALL.
046606,000298:    6261           17306                          TCF      VXM                                   #  16 - MATRIX PRE-MULTIPLIED BY VECTOR.
046607,000299:    6262           17565                          TCF      TSLC                                  #  17 - NORMALIZE MPAC (SCALAR ONLY).
046608,000300: 
046609,000301:    6263           17543                          TCF      DMPR                                  #  20 - DP MULTIPLY AND ROUND.
046610,000302:    6264           17546                          TCF      DDV                                   #  21 - DP DIVIDE BY.
046611,000303:    6265           17552                          TCF      BDDV                                  #  22 - DP DIVIDE INTO.
046612,000304:    6266           17570                          TCF      GSHIFT                                #  23 - GENERAL SHIFT INSTRUCTION
046613,000305:    6267           16720                          TCF      VAD                                   #  24 - VECTOR ADD.
046614,000306:    6270           16716                          TCF      VSU                                   #  25 - VECTOR SUBTRACT.
046615,000307:    6271           17005                          TCF      BVSU                                  #  26 - VECTOR SUBTRACT FROM.
046616,000308:    6272           17300                          TCF      DOT                                   #  27 - VECTOR DOT PRODUCT.
046617,000309: 
046618,000310:    6273           17427                          TCF      VXV                                   #  30 - VECTOR CROSS PRODUCT.
046619,000311:    6274           17374                          TCF      VPROJ                                 #  31 - VECTOR PROJECTION.
046620,000312:    6275           16754                          TCF      DSU                                   #  32 - DP SUBTRACT.
046621,000313:    6276           17031                          TCF      BDSU                                  #  33 - DP SUBTRACT FROM.
046622,000314:    6277           16744                          TCF      DAD                                   #  34 - DP ADD.
046623,000315:    6300           16300                          TCF      +0                                    #  35 - AVAILABLE
046624,000316:    6301           17541                          TCF      DMP1                                  #  36 - DP MULTIPLY.
046625,000317:    6302           17562                          TCF      SETPD                                 #  37 - SET PUSH DOWN POINTER (DIRECT ONLY)
046626,000318: 
046627,000319:                                                                                                 #  CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
046628,000320: 
046629,000321:                                                                                                 # # Page 1084
046630,000322:                                                                                                 #           THE FOLLOWING JUMP TABLE APPLIES TO INDEX, BRANCH, AND MISCELLANEOUS INSTRUCTIONS.
046631,000323: 
046632,000324:    6303           12371        MISCJUMP          TCF      AXT                                   #  00 - ADDRESS TO INDEX TRUE.
046633,000325:    6304           12376                          TCF      AXC                                   #  01 - ADDRESS TO INDEX COMPLEMENTED.
046634,000326:    6305           12401                          TCF      LXA                                   #  02 - LOAD INDEX FROM ERASABLE.
046635,000327:    6306           12405                          TCF      LXC                                   #  03 - LOAD INDEX FROM COMPLEMENT OF ERAS.
046636,000328:    6307           12411                          TCF      SXA                                   #  04 - STORE INDEX IN ERASABLE.
046637,000329:    6310           12417                          TCF      XCHX                                  #  05 - EXCHANGE INDEX WITH ERASABLE.
046638,000330:    6311           12433                          TCF      INCR                                  #  06 - INCREMENT INDEX REGISTER.
046639,000331:    6312           12442                          TCF      TIX                                   #  07 - TRANSFER ON INDEX.
046640,000332: 
046641,000333:    6313           12425                          TCF      XAD                                   #  10 - INDEX REGISTER ADD FROM ERASABLE.
046642,000334:    6314           12436                          TCF      XSU                                   #  11 - INDEX SUBTRACT FROM ERASABLE.
046643,000335:    6315           12514                          TCF      BZE/GOTO                              #  12 - BRANCH ZERO AND GOTO
046644,000336:    6316           12521                          TCF      BPL/BMN                               #  13 - BRANCH PLUS AND BRANCH MINUS.
046645,000337:    6317           12474                          TCF      RTB/BHIZ                              #  14 - RETURN TO BASIC AND BRANCH HI ZERO.
046646,000338:    6320           12534                          TCF      CALL/ITA                              #  15 - CALL AND STORE QPRET.
046647,000339:    6321           12543                          TCF      SW/                                   #  16 - SWITCH INSTRUCTIONS AND AVAILABLE.
046648,000340:    6322           12504                          TCF      BOV(B)                                #  17 - BRANCH ON OVERFLOW TO BASIC OR INT.
046649,000341: 
046650,000342:                                                                                                 # # Page 1085
046651,000343:                                                                                                 #           THE FOLLOWING JUMP TABLE APPLIES TO UNARY INSTRUCTIONS.
046652,000344: 
046653,000345:    6323                                          COUNT    00/INTER                              
046654,000346: 
046655,000347: 00,2000                                          BANK     0                                     #  00 - EXIT - DETECTED EARLIER.
046656,000348: 00,2000           13207        UNAJUMP           TCF      SQRT                                  #  01 - SQUARE ROOT.
046657,000349: 00,2001           13527                          TCF      SINE                                  #  02 - SIN.
046658,000350: 00,2002           13516                          TCF      COSINE                                #  03 - COS.
046659,000351: 00,2003           13607                          TCF      ARCSIN                                #  04 - ARC SIN.
046660,000352: 00,2004           13611                          TCF      ARCCOS                                #  05 - ARC COS.
046661,000353: 00,2005           13174                          TCF      DSQ                                   #  06 - DP SQUARE.
046662,000354: 00,2006           12116                          TCF      ROUND                                 #  07 - ROUND TO DP.
046663,000355: 
046664,000356: 00,2007           17637                          TCF      COMP                                  #  10 - COMPLEMENT VECTOR OR SCALAR
046665,000357: 00,2010           13232                          TCF      VDEF                                  #  11 - VECTOR DEFINE.
046666,000358: 00,2011           13023                          TCF      UNIT                                  #  12 - UNIT VECTOR.
046667,000359: 00,2012           13176                          TCF      ABVALABS                              #  13 - LENGTH OF VECTOR OR MAG OF SCALAR.
046668,000360: 00,2013           13245                          TCF      VSQ                                   #  14 - SQUARE OF LENGTH OF VECTOR.
046669,000361: 00,2014           16323                          TCF      STADR                                 #  15 - PUSH UP ON STORE CODE.
046670,000362: 00,2015           13274                          TCF      RVQ                                   #  16 - RETURN VIA QPRET.
046671,000363: 00,2016           13247                          TCF      PUSH                                  #  17 - PUSH MPAC DOWN.
046672,000364: 
046673,000365:                                                                                                 # # Page 1086
046674,000366:                                                                                                 #  SECTION 2  LOAD AND STORE PACKAGE.
046675,000367: 
046676,000368:                                                                                                 #           A SET OF EIGHT STORE CODES IS PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
046677,000369:                                                                                                 #  ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A 
046678,000370:                                                                                                 #  STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS. MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
046679,000371:                                                                                                 #  FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC. FOUR OPTIONS ARE AVAILABLE:
046680,000372: 
046681,000373:                                                                                                 #           1. STORE               STORE MPAC. THE E ADDRESS MAY BE INDEXED.
046682,000374:                                                                                                 #           2. STODL               STORE MPAC AND RE-LOAD IT IN DP WITH THE NEXT ADDRESS (THE LOAD MAY BE INDEXED).
046683,000375:                                                                                                 #           3. STOVL               STORE MPAC AND RE-LOAD A VECTOR (AS ABOVE).
046684,000376:                                                                                                 #           4. STCALL              STORE AND DO A CALL (BOTH ADDRESES MUST BE DIRECT HERE).
046685,000377: 
046686,000378:                                                                                                 #           STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
046687,000379: 
046688,000380:    6323                                          BLOCK    3                                     
046689,000381: 
046690,000382:    6323                                          COUNT    03/INTER                              
046691,000383: 
046692,000384:    6323           30165        STADR             CA       BANKSET                               #  THE STADR CODE (PUSHUP UP ON STORE
046693,000385:    6324           54004                          TS       FBANK                                 #  ADDRESS) ENTERS HERE.
046694,000386:    6325           24164                          INCR     LOC                                   
046695,000387:    6326           50164        ITR1              INDEX    LOC                                   #  THE STORECODE WAS STORED COMPLEMENTED TO
046696,000388:    6327           40000                          CS       0                                     #  MAKE IT LOOK LIKE AN OPCODE PAIR.
046697,000389:    6330           67716                          AD       NEGONE                                #  (YUL CANT REMOVE 1 BECAUSE OF EARLY CCS)
046698,000390: 
046699,000391:    6331           54116        DOSTORE           TS       ADDRWD                                
046700,000392:    6332           74372                          MASK     LOW11                                 #  ENTRY FROM DISPATCHER. SAVE THE ARASABLE
046701,000393:    6333           56116                          XCH      ADDRWD                                #  ADDRESS AND JUMP ON THE STORE CODE NO.
046702,000394:    6334           77671                          MASK     B12T14                                
046703,000395:    6335           00006                          EXTEND                                         
046704,000396:    6336           74706                          MP       BIT5                                  #  EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
046705,000397:    6337           50000        ITR0              INDEX    A                                     
046706,000398:    6340           16341                          TCF      STORJUMP                              
046707,000399: 
046708,000400:                                                                                                 # # Page 1087
046709,000401:                                                                                                 #           STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
046710,000402:                                                                                                 #  A SUPPLIED OPERATION CODE.
046711,000403: 
046712,000404:                                                                                                 #           STORE STORE,1 AND STORE,2 RETURN TO DANZIG, THUS RESETTING THE EBANK TO ITS STATE AT INTPRET.
046713,000405: 
046714,000406:    6341           06371        STORJUMP          TC       STORE                                 #  STORE.
046715,000407:    6342           16030                          TCF      DANZIG                                #  PICK UP NEW OP CODE(S).
046716,000408:    6343           06363                          TC       STORE,1                               
046717,000409:    6344           16030                          TCF      DANZIG                                
046718,000410:    6345           06366                          TC       STORE,2                               
046719,000411:    6346           16030                          TCF      DANZIG                                
046720,000412: 
046721,000413:    6347           06371                          TC       STORE                                 #  STODL.
046722,000414:    6350           16427                          TCF      DODLOAD                               
046723,000415: 
046724,000416:    6351           06371                          TC       STORE                                 #  STODL WITH INDEXED LOAD ADDRESS.
046725,000417:    6352           16113                          TCF      DODLOAD*                              
046726,000418: 
046727,000419:    6353           06371                          TC       STORE                                 #  STOVL.
046728,000420:    6354           16432                          TCF      DOVLOAD                               
046729,000421: 
046730,000422:    6355           06371                          TC       STORE                                 #  STOVL WITH INDEXED LOAD ADDRESS.
046731,000423:    6356           16435                          TCF      DOVLOAD*                              
046732,000424:    6357           06371                          TC       STORE                                 #  STOTC.
046733,000425:    6360           34723                          CAF      CALLCODE                              
046734,000426:    6361           54020                          TS       CYR                                   
046735,000427:    6362           16221                          TCF      15BITADR                              #  GET A 15 BIT ADDRESS.
046736,000428: 
046737,000429:                                                                                                 # # Page 1088
046738,000430:                                                                                                 #           STORE CODE ADDRESS PROCESSOR.
046739,000431: 
046740,000432:    6363           50120        STORE,1           INDEX    FIXLOC                                
046741,000433:    6364           40046                          CS       X1                                    
046742,000434:    6365           16370                          TCF      PRESTORE                              
046743,000435: 
046744,000436:    6366           50120        STORE,2           INDEX    FIXLOC                                
046745,000437:    6367           40047                          CS       X2                                    
046746,000438:    6370           26116        PRESTORE          ADS      ADDRWD                                #  RESULTANT ADDRESS IS IN ERASABLE.
046747,000439: 
046748,000440:    6371           40116        STORE             CS       ADDRWD                                
046749,000441:    6372           64727                          AD       DEC45                                 
046750,000442:    6373           10000                          CCS      A                                     #  DOES THE ADDRESS POINT TO THE WORK AREA?
046751,000443:    6374           30120                          CA       FIXLOC                                #  YES.
046752,000444:    6375           16402                          TCF      AHEAD5                                
046753,000445:    6376           34744                          CA       OCT1400                               #  NO.  SET EBANK & MAKE UP SUBADDRESS.
046754,000446:    6377           56116                          XCH      ADDRWD                                
046755,000447:    6400           54003                          TS       EBANK                                 
046756,000448:    6401           74373                          MASK     LOW8                                  
046757,000449:    6402           26116        AHEAD5            ADS      ADDRWD                                
046758,000450: 
046759,000451:                                                                                                 # # Page 1089
046760,000452:                                                                                                 #           STORING ROUTINES. STORE DP, TP, OR VECTOR AS INDICATED BY MODE.
046761,000453: 
046762,000454:    6403           00006        STARTSTO          EXTEND                                         #  MPAC,+1 MUST BE STORED IN ANY EVENT.
046763,000455:                                                                                                 #           ITRACE (5) REFERS TO "STARTSTO".
046764,000456:    6404           30155                          DCA      MPAC                                  
046765,000457:    6405           50116                          INDEX    ADDRWD                                
046766,000458:    6406           52001                          DXCH     0                                     
046767,000459: 
046768,000460:    6407           10163                          CCS      MODE                                  
046769,000461:    6410           16423                          TCF      TSTORE                                
046770,000462:    6411           00002                          TC       Q                                     
046771,000463: 
046772,000464:    6412           00006        VSTORE            EXTEND                                         
046773,000465:    6413           30160                          DCA      MPAC       +3                         
046774,000466:    6414           50116                          INDEX    ADDRWD                                
046775,000467:    6415           52003                          DXCH     2                                     
046776,000468: 
046777,000469:    6416           00006                          EXTEND                                         
046778,000470:    6417           30162                          DCA      MPAC       +5                         
046779,000471:    6420           50116                          INDEX    ADDRWD                                
046780,000472:    6421           52005                          DXCH     4                                     
046781,000473:    6422           00002                          TC       Q                                     
046782,000474: 
046783,000475:    6423           30156        TSTORE            CA       MPAC       +2                         
046784,000476:    6424           50116                          INDEX    ADDRWD                                
046785,000477:    6425           54002                          TS       2                                     
046786,000478:    6426           00002                          TC       Q                                     
046787,000479: 
046788,000480:                                                                                                 # # Page 1090
046789,000481:                                                                                                 #           ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
046790,000482:                                                                                                 #  ITSELF.
046791,000483: 
046792,000484:    6427           37701        DODLOAD           CAF      DLOADCOD                              
046793,000485:    6430           54020                          TS       CYR                                   
046794,000486:    6431           16055                          TCF      DIRADRES                              #  GO GET A DIRECT ADDRESS.
046795,000487: 
046796,000488:    6432           34674        DOVLOAD           CAF      VLOADCOD                              
046797,000489:    6433           54020                          TS       CYR                                   
046798,000490:    6434           16055                          TCF      DIRADRES                              
046799,000491: 
046800,000492:    6435           36056        DOVLOAD*          CAF      VLOAD*                                
046801,000493:    6436           16114                          TCF      DODLOAD*   +1                         #  PROLOGUE TO INDEX ROUTINE.
046802,000494: 
046803,000495:                                                                                                 # # Page 1091
046804,000496:                                                                                                 #           THE FOLLOWING LOAD INSTRUCTIONS ARE PROVIDED FOR LOADING THE MULTI-PURPOSE ACCUMULATOR MPAC.
046805,000497: 
046806,000498:    6437           50116        TLOAD             INDEX    ADDRWD                                
046807,000499:    6440           30002                          CA       2                                     #  LOAD A TRIPLE PRECISION ARGUMENT INTO
046808,000500:    6441           54156                          TS       MPAC       +2                         #  THE FIRST THREE MPAC REGISTERS, WITH THE
046809,000501:    6442           00006                          EXTEND                                         #  CONTENTS OF THE OTHER FOUR IRRELEVANT.
046810,000502:    6443           50116                          INDEX    ADDRWD                                
046811,000503:    6444           30001                          DCA      0                                     
046812,000504:    6445           52155                          DXCH     MPAC                                  
046813,000505:    6446           34712        TMODE             CAF      ONE                                   
046814,000506:    6447           16027                          TCF      NEWMODE                               #  DECLARE TRIPLE PRECISION MODE.
046815,000507: 
046816,000508:    6450           22007        SLOAD             ZL                                             #  LOAD A SINGLE PRECISION NUMBER INTO
046817,000509:    6451           50116                          INDEX    ADDRWD                                #  MPAC, SETTING MPAC+1,2 TO ZERO. THE
046818,000510:    6452           30000                          CA       0                                     #  CONTENTS OF THE REMAINING MPAC REGISTERS
046819,000511:    6453           16024                          TCF      SLOAD2                                #  ARE IRRELEVANT.
046820,000512: 
046821,000513:    6454           00006        VLOAD             EXTEND                                         #  LOAD A DOUBLE PRECISION VECTOR INTO
046822,000514:    6455           50116                          INDEX    ADDRWD                                #  MPAC,+1, MPAC+3,4, AND MPAC+5,6. THE
046823,000515:    6456           30001                          DCA      0                                     #  CONTENTS OF MPAC +2 ARE IRRELEVANT.
046824,000516:    6457           52155                          DXCH     MPAC                                  
046825,000517: 
046826,000518:    6460           00006        ENDVLOAD          EXTEND                                         #  PDVL COMES HERE TO FINISH UP FOR DP, TP.
046827,000519:    6461           50116                          INDEX    ADDRWD                                
046828,000520:    6462           30003                          DCA      2                                     
046829,000521:    6463           52160                          DXCH     MPAC       +3                         
046830,000522: 
046831,000523:    6464           00006                 +4       EXTEND                                         #  TPDVL FINISHES HERE.
046832,000524:    6465           50116                          INDEX    ADDRWD                                
046833,000525:    6466           30005                          DCA      4                                     
046834,000526:    6467           52162                          DXCH     MPAC       +5                         
046835,000527: 
046836,000528:    6470           44712        VMODE             CS       ONE                                   #  DECLARE VECTOR MODE.
046837,000529:    6471           16027                          TCF      NEWMODE                               
046838,000530: 
046839,000531:                                                                                                 # # Page 1092
046840,000532:                                                                                                 #           THE FOLLOWING INSTRUCTIONS ARE PROVIDED FOR STORING OPERANDS IN THE PUSHDOWN LIST:
046841,000533: 
046842,000534:                                                                                                 #           1.  PUSH               PUSHDOWN AND NO LOAD.
046843,000535:                                                                                                 #           2.  PDDL               PUSHDOWN AND DOUBLE PRECISION LOAD.
046844,000536:                                                                                                 #           3.  PDVL               PUSHDOWN AND VECTOR LOAD.
046845,000537: 
046846,000538:    6472           00006        PDDL              EXTEND                                         
046847,000539:    6473           50116                          INDEX    ADDRWD                                #  LOAD MPAC,+1, PUSHING THE FORMER
046848,000540:    6474           30001                          DCA      0                                     #  CONTENTS DOWN.
046849,000541:    6475           52155                          DXCH     MPAC                                  
046850,000542:    6476           50166                          INDEX    PUSHLOC                               
046851,000543:    6477           52001                          DXCH     0                                     
046852,000544: 
046853,000545:    6500           50163                          INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER APPRO-
046854,000546:    6501           36213                          CAF      NO.WDS                                #  PRIATELY.
046855,000547:    6502           26166                          ADS      PUSHLOC                               
046856,000548: 
046857,000549:    6503           10163                          CCS      MODE                                  
046858,000550:    6504           16521                          TCF      ENDTPUSH                              
046859,000551:    6505           16517                          TCF      ENDDPUSH                              
046860,000552: 
046861,000553:    6506           54163                          TS       MODE                                  #  NOW DP.
046862,000554:    6507           54156        ENDVPUSH          TS       MPAC       +2                         
046863,000555:    6510           52160                          DXCH     MPAC       +3                         #  PUSH DOWN THE REST OF THE VECTOR HERE.
046864,000556:    6511           50166                          INDEX    PUSHLOC                               
046865,000557:    6512           51775                          DXCH     0          -4                         
046866,000558: 
046867,000559:    6513           52162                          DXCH     MPAC       +5                         
046868,000560:    6514           50166                          INDEX    PUSHLOC                               
046869,000561:    6515           51777                          DXCH     0          -2                         
046870,000562: 
046871,000563:    6516           16030                          TCF      DANZIG                                
046872,000564: 
046873,000565:    6517           54156        ENDDPUSH          TS       MPAC       +2                         #  SET MPAC +2 TO ZERO AND EXIT ON DP.
046874,000566:    6520           16030                          TCF      DANZIG                                
046875,000567: 
046876,000568:    6521           54163        ENDTPUSH          TS       MODE                                  
046877,000569:    6522           56156                          XCH      MPAC       +2                         #  ON TRIPLE, SET MPAC +2 TO ZERO, PUSHING
046878,000570:    6523           50166                 +2       INDEX    PUSHLOC                               #  DOWN THE OLD CONTENTS
046879,000571:    6524           53777                          TS       0          -1                         
046880,000572:    6525           16030                          TCF      DANZIG                                
046881,000573: 
046882,000574:                                                                                                 # # Page 1093
046883,000575:                                                                                                 #           PDVL - PUSHDOWN AND VECTOR LOAD
046884,000576: 
046885,000577:    6526           00006        PDVL              EXTEND                                         #  RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
046886,000578:    6527           50116                          INDEX    ADDRWD                                
046887,000579:    6530           30001                          DCA      0                                     
046888,000580:    6531           52155                          DXCH     MPAC                                  
046889,000581:    6532           50166                          INDEX    PUSHLOC                               
046890,000582:    6533           52001                          DXCH     0                                     
046891,000583: 
046892,000584:    6534           50163                          INDEX    MODE                                  #  ADVANCE THE PUSHDOWN POINTER.
046893,000585:    6535           36213                          CAF      NO.WDS                                
046894,000586:    6536           26166                          ADS      PUSHLOC                               
046895,000587: 
046896,000588:    6537           10163                          CCS      MODE                                  #  TEST PAST MODE.
046897,000589:    6540           16557                          TCF      TPDVL                                 
046898,000590:    6541           16460                          TCF      ENDVLOAD                              #  JUST LOAD LAST FOUR REGISTERS ON DP.
046899,000591: 
046900,000592:    6542           00006        VPDVL             EXTEND                                         #  PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
046901,000593:    6543           50116                          INDEX    ADDRWD                                
046902,000594:    6544           30003                          DCA      2                                     
046903,000595:    6545           52160                          DXCH     MPAC       +3                         
046904,000596:    6546           50166                          INDEX    PUSHLOC                               
046905,000597:    6547           51775                          DXCH     0          -4                         
046906,000598: 
046907,000599:    6550           00006                          EXTEND                                         
046908,000600:    6551           50116                          INDEX    ADDRWD                                
046909,000601:    6552           30005                          DCA      4                                     
046910,000602:    6553           52162                          DXCH     MPAC       +5                         
046911,000603:    6554           50166                          INDEX    PUSHLOC                               
046912,000604:    6555           51777                          DXCH     0          -2                         
046913,000605: 
046914,000606:    6556           16030                          TCF      DANZIG                                
046915,000607: 
046916,000608:    6557           00006        TPDVL             EXTEND                                         #  ON TP, WE MUST LOAD THE Y COMPONENT
046917,000609:    6560           50116                          INDEX    ADDRWD                                #  BEFORE STORING MPAC +2 INCASE THIS IS A
046918,000610:    6561           30003                          DCA      2                                     #  PUSHUP.
046919,000611:    6562           52160                          DXCH     MPAC       +3                         
046920,000612: 
046921,000613:    6563           30156                          CA       MPAC       +2                         
046922,000614:    6564           50166                          INDEX    PUSHLOC                               #  IN DP.
046923,000615:    6565           53777                          TS       0          -1                         
046924,000616:    6566           16464                          TCF      ENDVLOAD   +4                         
046925,000617: 
046926,000618:                                                                                                 #           SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
046927,000619: 
046928,000620:    6567           24164        SSP               INCR     LOC                                   #  PICK UP THE WORD FOLLOWING THE GIVEN
046929,000621:    6570           50164                          INDEX    LOC                                   #  ADDRESS AND STORE IT AT X.
046930,000622:    6571           30000                          CA       0                                     
046931,000623:    6572           50116        STORE1            INDEX    ADDRWD                                #  SOME INDEX AND MISCELLANEOUS OPS END
046932,000624:    6573           54000                          TS       0                                     #  HERE.
046933,000625:                                                                                                 # # Page 1094
046934,000626:    6574           16030                          TCF      DANZIG                                
046935,000627: 
046936,000628:                                                                                                 # # Page 1095
046937,000629:                                                                                                 #  SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
046938,000630: 
046939,000631:                                                                                                 #           THE FOLLOWING OPERATIONS ARE AVAILABLE FOR SEQUENCING CHANGING, BRANCHING, AND CALLING SUBROUTINES:
046940,000632: 
046941,000633:                                                                                                 #           1.  GOTO               GO TO.
046942,000634:                                                                                                 #           2.  CALL               CALL SUBROUTINE SETTING QPRET.
046943,000635:                                                                                                 #           3.  CGOTO              COMPUTED GO TO.
046944,000636:                                                                                                 #           4.  CCALL              COMPUTED CALL.
046945,000637:                                                                                                 #           7.  BPL                BRANCH IF MPAC POSITIVE OR ZERO.
046946,000638:                                                                                                 #           8.  BZE                BRANCH IF MPAC ZERO.
046947,000639:                                                                                                 #           9.  BMN                BRANCH IF MPAC NEGATIVE NON-ZERO.
046948,000640: 
046949,000641:    6575           24164        CCALL             INCR     LOC                                   #  MAINTAIN LOC FOR QPRET COMPUTATION
046950,000642:    6576           50164                          INDEX    LOC                                   
046951,000643:    6577           30000                          CAF      0                                     #  GET BASE ADDRESS OF CADR LIST.
046952,000644:    6600           50116                          INDEX    ADDRWD                                
046953,000645:    6601           60000                          AD       0                                     #  ADD INCREMENT.
046954,000646:    6602           54004                          TS       FBANK                                 #  SELECT DESIRED CADR.
046955,000647:    6603           74747                          MASK     LOW10                                 
046956,000648:    6604           50000                          INDEX    A                                     
046957,000649:    6605           32000                          CAF      10000                                 
046958,000650:    6606           54117                          TS       POLISH                                
046959,000651: 
046960,000652:    6607           30165        CALL              CA       BANKSET                               #  FOR ANY OF THE CALL OPTIONS, MAKE UP THE
046961,000653:    6610           74364                          MASK     BANKMASK                              #  ADDRESS OF THE NEXT OP-CODE PAIR/STORE
046962,000654:    6611           64364                          AD       BANKMASK                              #  CODE AND LEAVE IT IN QPRET.  NOTE THAT
046963,000655:    6612           60164                          AD       LOC                                   #  BANKMASK = -(2000 - 1).
046964,000656:    6613           50120                          INDEX    FIXLOC                                
046965,000657:    6614           54052                          TS       QPRET                                 
046966,000658: 
046967,000659:    6615           30117        GOTO              CA       POLISH                                #  BASIC BRANCHING SEQUENCE.
046968,000660:    6616           77711                 +1       MASK     HIGH4                                 
046969,000661:    6617           00006                          EXTEND                                         
046970,000662:    6620           16631                          BZF      GOTOERS                               #  SEE IF ADDRESS POINTS TO FIXED OR ERAS.
046971,000663:    6621           30165                 +4       CA       BANKSET                               #  SET EBANK PART OF BBANK. NEXT, SET UP
046972,000664:    6622           54006                          TS       BBANK                                 #  FBANK. THE COMBINATION IS PICKED UP &
046973,000665:    6623           30117                          CA       POLISH                                #  PUT INTO BANKSET AT INTPRET +2.
046974,000666:    6624           54004                          TS       FBANK                                 
046975,000667:    6625           74747                          MASK     LOW10                                 
046976,000668:    6626           64700                          AD       2K                                    
046977,000669:    6627           54164                          TS       LOC                                   
046978,000670:    6630           16011                          TCF      INTPRET    +3                         
046979,000671: 
046980,000672:    6631  E3,1400                                 EBANK=   1400                                  #  SO YUL DOESN'T CUSS THE "CA 1400" BELOW.
046981,000673: 
046982,000674:    6631           30117        GOTOERS           CA       POLISH                                #  THE GIVEN ADDRESS IS IN ERASABLE - SEE
046983,000675:    6632           66220                          AD       -ENDVAC                               #  IF RELATIVE TO THE WORK AREA.
046984,000676:    6633           10000                          CCS      A                                     
046985,000677:    6634           30117                          CA       POLISH                                #  GENERAL ERASABLE.
046986,000678:    6635           16644                          TCF      GOTOGE                                
046987,000679:                                                                                                 # # Page 1096
046988,000680:    6636           30120                          CA       FIXLOC                                #  WORK AREA.
046989,000681:    6637           60117                          AD       POLISH                                
046990,000682:    6640           50000                          INDEX    A                                     #  USE THE GIVEN ADDRESS AS THE ADDRESS OF
046991,000683:    6641           30000                          CA       0                                     #  THE BRANCH ADDRESS.
046992,000684:    6642           54117                          TS       POLISH                                
046993,000685:    6643           16616                          TCF      GOTO       +1                         #  ALLOWS ARBITRARY INDIRECTNESS LEVELS.
046994,000686: 
046995,000687:    6644           54003        GOTOGE            TS       EBANK                                 
046996,000688:    6645           74373                          MASK     LOW8                                  
046997,000689:    6646           50000                          INDEX    A                                     #  USE THE GIVEN ADDRESS AS THE ADDRESS OF
046998,000690:    6647           31400                          CA       1400                                  #  THE BRANCH ADDRESS.
046999,000691:    6650           54117                          TS       POLISH                                
047000,000692:    6651           16616                          TCF      GOTO       +1                         
047001,000693: 
047002,000694:    6652           50164        CGOTO             INDEX    LOC                                   #  COMPUTED GO TO. PICK UP ADDRESS OF CADR
047003,000695:    6653           30001                          CA       1                                     #  LIST.
047004,000696:    6654           50116                          INDEX    ADDRWD                                #  ADD MODIFIER.
047005,000697:    6655           60000                          AD       0                                     
047006,000698:    6656           54004                          TS       FBANK                                 #  SELECT GOTO ADDRESS
047007,000699:    6657           74747                          MASK     LOW10                                 
047008,000700:    6660           50000                          INDEX    A                                     
047009,000701:    6661           32000                          CA       10000                                 
047010,000702:    6662           54117                          TS       POLISH                                
047011,000703:    6663           16616                          TCF      GOTO       +1                         #  WITH ADDRESS IN A.
047012,000704: 
047013,000705:    6664           30165        SWBRANCH          CA       BANKSET                               #  SWITCH INSTRUCTIONS WHICH ELECT TO
047014,000706:    6665           54004                          TS       FBANK                                 #  BRANCH COME HERE TO DO SO.
047015,000707:    6666           50164                          INDEX    LOC                                   
047016,000708:    6667           30001                          CA       1                                     
047017,000709:    6670           54117                          TS       POLISH                                
047018,000710:    6671           16616                          TCF      GOTO       +1                         
047019,000711: 
047020,000712:                                                                                                 # # Page 1097
047021,000713:                                                                                                 #           TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
047022,000714: 
047023,000715:                                                                                                 #           L+1  IF MPAC IS GREATER THAN ZERO.
047024,000716:                                                                                                 #           L+2  IF MPAC IS EQUAL TO +0 OR -0.
047025,000717:                                                                                                 #           L+3  IF MPAC IS LESS THAN ZERO.
047026,000718: 
047027,000719:    6672           10154        BRANCH            CCS      MPAC                                  
047028,000720:    6673           00002                          TC       Q                                     
047029,000721:    6674           16676                          TCF      +2                                    #  ON ZERO.
047030,000722:    6675           16710                          TCF      NEG                                   
047031,000723: 
047032,000724:    6676           10155                          CCS      MPAC       +1                         
047033,000725:    6677           00002                          TC       Q                                     
047034,000726:    6700           16702                          TCF      +2                                    
047035,000727:    6701           16710                          TCF      NEG                                   
047036,000728: 
047037,000729:    6702           10156                          CCS      MPAC       +2                         
047038,000730:    6703           00002                          TC       Q                                     
047039,000731:    6704           16706                          TCF      +2                                    
047040,000732:    6705           16710                          TCF      NEG                                   
047041,000733: 
047042,000734:    6706           50002        Q+1               INDEX    Q                                     
047043,000735:    6707           00001                          TC       1                                     
047044,000736: 
047045,000737:    6710           50002        NEG               INDEX    Q                                     #  IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
047046,000738:    6711           00002                          TC       2                                     
047047,000739: 
047048,000740: 
047049,000741:    6712     6710               Q+2               =        NEG                                   
047050,000742: 
047051,000743:                                                                                                 #           ITRACE (3) REFERS TO "EXIT".
047052,000744:    6712           30165        EXIT              CA       BANKSET                               #  RESTORE USER'S BANK SETTING, AND LEAVE
047053,000745:    6713           54006                          TS       BBANK                                 #  INTERPRETIVE MODE.
047054,000746:    6714           50164                          INDEX    LOC                                   
047055,000747:    6715           00001                          TC       1                                     
047056,000748: 
047057,000749:                                                                                                 # # Page 1098
047058,000750:                                                                                                 #  SECTION 3 - ADD/SUBTRACT PACKAGE.
047059,000751: 
047060,000752:                                                                                                 #           THE FOLLOWING OPERATIONS ARE PROVIDED FOR ADDING TO AND SUBTRACTING FROM THE MULTI-PURPOSE ACCUMULATOR
047061,000753:                                                                                                 #  MPAC:
047062,000754: 
047063,000755:                                                                                                 #           1.  DAD                DOUBLE PRECISION ADD.
047064,000756:                                                                                                 #           2.  DSU                DOUBLE PRECISION SUBTRACT.
047065,000757:                                                                                                 #           3.  BDSU               DOUBLE PRECISION SUBTRACT FROM.
047066,000758: 
047067,000759:                                                                                                 #           4.  TAD                TRIPLE PRECISION ADD.
047068,000760: 
047069,000761:                                                                                                 #           5.  VAD                VECTOR ADD.
047070,000762:                                                                                                 #           6.  VSU                VECTOR SUBTRACT.
047071,000763:                                                                                                 #           7.  BVSU               VECTOR SUBTRACT FROM.
047072,000764: 
047073,000765:                                                                                                 #  THE INTERPRETIVE OVERFLOW INDICATOR OVFIND IS SET NON-ZERO IF OVERFLOW OCCURS IN ANY OF THE ABOVE.
047074,000766: 
047075,000767:    6716           34674        VSU               CAF      BIT15                                 #  CHANGES 0 TO DCS.
047076,000768:    6717           16721                          TCF      +2                                    
047077,000769: 
047078,000770:    6720           34371        VAD               CAF      PRIO30                                #  CHANGES 0 TO DCA.
047079,000771:    6721           26116                          ADS      ADDRWD                                
047080,000772:    6722           00006                          EXTEND                                         
047081,000773:    6723           50116                          INDEX    ADDRWD                                
047082,000774:    6724           00003                          READ     HISCALAR                              #  DCA  2   OR   DCS  2
047083,000775:    6725           20160                          DAS      MPAC       +3                         
047084,000776:    6726           00006                          EXTEND                                         #  CHECK OVERFLOW.
047085,000777:    6727           16731                          BZF      +2                                    
047086,000778:    6730           06763                          TC       OVERFLWY                              
047087,000779: 
047088,000780:    6731           00006                          EXTEND                                         
047089,000781:    6732           50116                          INDEX    ADDRWD                                
047090,000782:    6733           00005                          READ     CHAN5                                 #  DCA  4   OR   DCS  4
047091,000783:    6734           20162                          DAS      MPAC       +5                         
047092,000784:    6735           00006                          EXTEND                                         
047093,000785:    6736           16740                          BZF      +2                                    
047094,000786:    6737           06760                          TC       OVERFLWZ                              
047095,000787: 
047096,000788:    6740           00006                          EXTEND                                         
047097,000789:    6741           50116                          INDEX    ADDRWD                                
047098,000790:    6742           00001                          READ     LCHAN                                 #  DCA  0   OR   DCS  0
047099,000791:    6743           16747                          TCF      ENDVXV                                
047100,000792: 
047101,000793:    6744           00006        DAD               EXTEND                                         
047102,000794:    6745           50116                          INDEX    ADDRWD                                
047103,000795:    6746           30001                          DCA      0                                     
047104,000796:    6747           20155        ENDVXV            DAS      MPAC                                  #  VXV FINISHES HERE.
047105,000797:    6750           00006                          EXTEND                                         
047106,000798:    6751           16030                          BZF      DANZIG                                
047107,000799:                                                                                                 # # Page 1099
047108,000800:    6752           06766        SETOVF            TC       OVERFLOW                              
047109,000801:    6753           16030                          TCF      DANZIG                                
047110,000802: 
047111,000803:                                                                                                 # # Page 1100
047112,000804:    6754           00006        DSU               EXTEND                                         
047113,000805:    6755           50116                          INDEX    ADDRWD                                
047114,000806:    6756           40001                          DCS      0                                     
047115,000807:    6757           16747                          TCF      ENDVXV                                
047116,000808: 
047117,000809:    6760           54001        OVERFLWZ          TS       L                                     #  ENTRY FOR THIRD COMPONENT.
047118,000810:    6761           34715                          CAF      FIVE                                  
047119,000811:    6762           16765                          TCF      +3                                    
047120,000812: 
047121,000813:    6763           54001        OVERFLWY          TS       L                                     #  ENTRY FOR SECOND COMPONENT.
047122,000814:    6764           36214                          CAF      THREE                                 
047123,000815:    6765           56001                          XCH      L                                     
047124,000816: 
047125,000817:    6766           50000        OVERFLOW          INDEX    A                                     #  ENTRY FOR 1ST COMP OR DP (L=0).
047126,000818:    6767           44673                          CS       LIMITS                                #  PICK UP POSMAX OR NEGMAX.
047127,000819:    6770           54130                          TS       BUF                                   
047128,000820:    6771           00006                          EXTEND                                         
047129,000821:    6772           24000                          AUG      A                                     #  FORCE OVERFLOW.
047130,000822:    6773           50001                          INDEX    L                                     
047131,000823:    6774           26155                          ADS      MPAC       +1                         
047132,000824:    6775           54007                          TS       7                                     
047133,000825:    6776           34714                          CAF      ZERO                                  
047134,000826:    6777           60130                          AD       BUF                                   
047135,000827:    7000           50001                          INDEX    L                                     
047136,000828:    7001           26154                          ADS      MPAC                                  
047137,000829:    7002           54007                          TS       7                                     
047138,000830:    7003           00002                          TC       Q                                     #  NO OVERFLOW EXIT.
047139,000831:    7004           17121                          TCF      SETOVF2                               #  SET OVFIND AND EXIT.
047140,000832: 
047141,000833:    7005           00006        BVSU              EXTEND                                         
047142,000834:    7006           50116                          INDEX    ADDRWD                                
047143,000835:    7007           30003                          DCA      2                                     
047144,000836:    7010           52160                          DXCH     MPAC       +3                         
047145,000837:    7011           00006                          EXTEND                                         
047146,000838:    7012           40001                          DCOM                                           
047147,000839:    7013           20160                          DAS      MPAC       +3                         
047148,000840:    7014           00006                          EXTEND                                         
047149,000841:    7015           17017                          BZF      +2                                    
047150,000842:    7016           06763                          TC       OVERFLWY                              
047151,000843: 
047152,000844:    7017           00006                          EXTEND                                         
047153,000845:    7020           50116                          INDEX    ADDRWD                                
047154,000846:    7021           30005                          DCA      4                                     
047155,000847:    7022           52162                          DXCH     MPAC       +5                         
047156,000848:    7023           00006                          EXTEND                                         
047157,000849:    7024           40001                          DCOM                                           
047158,000850:    7025           20162                          DAS      MPAC       +5                         
047159,000851:    7026           00006                          EXTEND                                         
047160,000852:    7027           17031                          BZF      +2                                    
047161,000853:    7030           06760                          TC       OVERFLWZ                              
047162,000854:                                                                                                 # # Page 1101
047163,000855:    7031           00006        BDSU              EXTEND                                         
047164,000856:    7032           50116                          INDEX    ADDRWD                                
047165,000857:    7033           30001                          DCA      0                                     
047166,000858:    7034           52155                          DXCH     MPAC                                  
047167,000859:    7035           00006                          EXTEND                                         
047168,000860:    7036           40001                          DCOM                                           
047169,000861:    7037           16747                          TCF      ENDVXV                                
047170,000862: 
047171,000863:                                                                                                 # # Page 1102
047172,000864:                                                                                                 #           TRIPLE PRECISION ADD ROUTINE.
047173,000865: 
047174,000866:    7040           00006        TAD               EXTEND                                         
047175,000867:    7041           50116                          INDEX    ADDRWD                                
047176,000868:    7042           30002                          DCA      1                                     #  ADD MINOR PARTS FIRST.
047177,000869:    7043           20156                          DAS      MPAC       +1                         
047178,000870:    7044           50116                          INDEX    ADDRWD                                
047179,000871:    7045           60000                          AD       0                                     
047180,000872:    7046           60154                          AD       MPAC                                  
047181,000873:    7047           54154                          TS       MPAC                                  
047182,000874:    7050           16030                          TCF      DANZIG                                
047183,000875: 
047184,000876:    7051           16752                          TCF      SETOVF                                #  SET OVFIND IF SUCH OCCURS.
047185,000877: 
047186,000878:                                                                                                 # # Page 1103
047187,000879:                                                                                                 #  ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
047188,000880: 
047189,000881:                                                                                                 #           1.  DMPSUB     DOUBLE PRECISION MULTIPLY. MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
047190,000882:                                                                                                 #                          IS IN ADDRWD AND LEAVE A TRIPLE-PRECISION RESULT IN MPAC.
047191,000883:                                                                                                 #           2.  ROUNDSUB   ROUND THE TRIPLE PRECISON CONTENTS OF MPAC TO DOUBLE PRECISION.
047192,000884:                                                                                                 #           3.  DOTSUB     TAKE THE DOT PRODUCT OF THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADDRWD
047193,000885:                                                                                                 #                          AND LEAVE THE TRIPLE PRECISION RESULT IN MPAC.
047194,000886:                                                                                                 #           4.  POLY       USING THE CONTENTS OF MPAC AS A DP ARGUMENT, EVALUATE THE POLYNOMIAL WHOSE DEGREE AND
047195,000887:                                                                                                 #                          COEFFICIENTS IMMEDIATELY FOLLOW THE TC POLY INSTRUCTION (SEE ROUTINE FOR DETAILS.)
047196,000888: 
047197,000889: 
047198,000890:    7052           50002        DMP               INDEX    Q                                     #  BASIC SUBROUTINE FOR USE BY PINBALL, ETC
047199,000891:    7053           30000                          CAF      0                                     #  ADRES OF ARGUMENT FOLLOWS  TC DMP .
047200,000892:    7054           24002                          INCR     Q                                     
047201,000893:    7055           54116                 -1       TS       ADDRWD                                #  (PROLOGUE FOR SETTING ADDRWD.)
047202,000894: 
047203,000895:    7056           50116        DMPSUB            INDEX    ADDRWD                                #  GET MINOR PART OF OPERAND AT C(ADDRWD).
047204,000896:    7057           30001                          CA       1                                     
047205,000897:    7060           54156                          TS       MPAC       +2                         #  THIS WORKS FOR SQUARING MPAC AS WELL.
047206,000898:    7061           34714                          CAF      ZERO                                  #  SET MPAC +1 TO ZERO SO WE CAN ACCUMULATE
047207,000899:    7062           56155                          XCH      MPAC       +1                         #  THE PARTIAL PRODUCTS WITH DAS
047208,000900:    7063           54135                          TS       MPTEMP                                #  INSTRUCTIONS.
047209,000901:    7064           00006                          EXTEND                                         
047210,000902:    7065           70156                          MP       MPAC       +2                         #  MINOR OF MPAC X MINOR OF C(ADDRWD).
047211,000903: 
047212,000904:    7066           56156                          XCH      MPAC       +2                         #  DISCARD MINOR PART OF ABOVE RESULT AND
047213,000905:    7067           00006                          EXTEND                                         #  FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
047214,000906:    7070           70154                          MP       MPAC                                  
047215,000907:    7071           20156                          DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
047216,000908: 
047217,000909:    7072           50116                          INDEX    ADDRWD                                #  GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
047218,000910:    7073           30000                          CA       0                                     
047219,000911:    7074           56135                          XCH      MPTEMP                                #  SAVE AND BRING OUT MINOR OF MPAC.
047220,000912:    7075           00006        DMPSUB2           EXTEND                                         
047221,000913:    7076           70135                          MP       MPTEMP                                #  MAJOR OF C(ADDRWD) X MINOR OF MPAC.
047222,000914:    7077           20156                          DAS      MPAC       +1                         #  ACCUMULATE, SETTING A TO NET OVERFLOW.
047223,000915: 
047224,000916:    7100           56154                          XCH      MPAC                                  #  SETTING MPAC TO 0 OR +-1.
047225,000917:    7101           00006                          EXTEND                                         
047226,000918:    7102           70135                          MP       MPTEMP                                #  MAJOR OF MPAC X MAJOR OF C(ADDRWD).
047227,000919:    7103           20155                          DAS      MPAC                                  #  GUARANTEED NO OVERFLOW.
047228,000920:    7104           00002                          TC       Q                                     #  49 MCT = .573 MS. INCLUDING RETURN.
047229,000921: 
047230,000922:                                                                                                 # # Page 1104
047231,000923:                                                                                                 #           ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
047232,000924: 
047233,000925:    7105           34714        ROUNDSUB          CAF      ZERO                                  #  SET MPAC +2 = 0 FOR SCALARS AND CHANGE
047234,000926:    7106           54163                 +1       TS       MODE                                  #  MODE TO DP.
047235,000927: 
047236,000928:    7107           56156        VROUND            XCH      MPAC       +2                         #  BUT WE NEEDNT TAKE THE TIME FOR VECTORS.
047237,000929:    7110           60000                          DOUBLE                                         
047238,000930:    7111           54001                          TS       L                                     
047239,000931:    7112           00002                          TC       Q                                     
047240,000932: 
047241,000933:    7113           60155                          AD       MPAC       +1                         #  ADD ROUNDING BIT IF MPAC +2 WAS GREATER
047242,000934:    7114           54155                          TS       MPAC       +1                         #  THAN .5 IN MAGNITUDE.
047243,000935:    7115           00002                          TC       Q                                     
047244,000936: 
047245,000937:    7116           60154                          AD       MPAC                                  #  PROPAGATE INTERFLOW.
047246,000938:    7117           54154                          TS       MPAC                                  
047247,000939:    7120           00002                          TC       Q                                     
047248,000940: 
047249,000941:    7121           54121        SETOVF2           TS       OVFIND                                #  (RARE).
047250,000942:    7122           00002                          TC       Q                                     
047251,000943: 
047252,000944:                                                                                                 # # Page 1105
047253,000945:                                                                                                 #           THE DOT PRODUCT SUBROUTINE USUALLY FORMS THE DOT PRODUCT OF THE VECTOR IN MPAC WITH A STANDARD SIX
047254,000946:                                                                                                 #  REGISTER VECTOR WHOSE ADDRESS IS IN ADDRWD. IN THIS CASE C(DOTINC) ARE SET TO 2. VXM, HOWEVER, SETS C(DOTINC) TO
047255,000947:                                                                                                 #  6 SO THAT DOTSUB DOTS MPAC WITH A COLUMN VECTOR OF THE MATRIX IN QUESTION IN THIS CASE.
047256,000948: 
047257,000949:    7123           34711        PREDOT            CAF      TWO                                   #  PROLOGUE TO SET DOTINC TO 2.
047258,000950:    7124           54136                          TS       DOTINC                                
047259,000951: 
047260,000952:    7125           00006        DOTSUB            EXTEND                                         
047261,000953:    7126           22137                          QXCH     DOTRET                                #  SAVE RETURN.
047262,000954:    7127           07056                          TC       DMPSUB                                #  DOT X COMPONENTS.
047263,000955:    7130           52160                          DXCH     MPAC       +3                         #  POSITION Y COMPONENT OF MPAC FOR
047264,000956:    7131           52155                          DXCH     MPAC                                  #  MULTIPLICATION WHILE SAVING RESULT IN
047265,000957:    7132           52131                          DXCH     BUF                                   #  THREE WORD BUFFER, BUF.
047266,000958:    7133           30156                          CA       MPAC       +2                         
047267,000959:    7134           54132                          TS       BUF        +2                         
047268,000960: 
047269,000961:    7135           30136                          CA       DOTINC                                #  ADVANCE ADDRWD TO Y COMPONENT OF
047270,000962:    7136           26116                          ADS      ADDRWD                                #  OTHER ARGUMENT.
047271,000963:    7137           07056                          TC       DMPSUB                                
047272,000964:    7140           52156                          DXCH     MPAC       +1                         #  ACCUMULATE PARTIAL PRODUCTS.
047273,000965:    7141           20132                          DAS      BUF        +1                         
047274,000966:    7142           60154                          AD       MPAC                                  
047275,000967:    7143           60130                          AD       BUF                                   
047276,000968:    7144           54130                          TS       BUF                                   
047277,000969:    7145           17147                          TCF      +2                                    
047278,000970:    7146           54121                          TS       OVFIND                                #  IF OVERFLOW OCCURS.
047279,000971: 
047280,000972:    7147           52162                          DXCH     MPAC       +5                         #  MULTIPLY Z COMPONENTS.
047281,000973:    7150           52155                          DXCH     MPAC                                  
047282,000974:    7151           30136                          CA       DOTINC                                
047283,000975:    7152           26116                          ADS      ADDRWD                                
047284,000976:    7153           07056                          TC       DMPSUB                                
047285,000977:    7154           52132        ENDDOT            DXCH     BUF        +1                         #  LEAVE FINAL ACCUMULATION IN MPAC.
047286,000978:    7155           20156                          DAS      MPAC       +1                         
047287,000979:    7156           60154                          AD       MPAC                                  
047288,000980:    7157           60130                          AD       BUF                                   
047289,000981:    7160           54154                          TS       MPAC                                  
047290,000982:    7161           00137                          TC       DOTRET                                
047291,000983: 
047292,000984:    7162           06766                          TC       OVERFLOW                              #  ON OVERFLOW HERE.
047293,000985:    7163           00137                          TC       DOTRET                                
047294,000986: 
047295,000987:                                                                                                 # # Page 1106
047296,000988:                                                                                                 #  DOUBLE PRECISION POLYNOMIAL EVALUATOR
047297,000989: 
047298,000990:                                                                                                 #                                     N        N-1
047299,000991:                                                                                                 #           THIS ROUTINE EVALUATES A X  + A   X    + ... + A  X + A  LEAVING THE DP RESULT IN MPAC ON EXIT.
047300,000992:                                                                                                 #                                   N      N-1              1      0
047301,000993: 
047302,000994:                                                                                                 #  THE ROUTINE HAS TWO ENTRIES
047303,000995: 
047304,000996:                                                                                                 #           1. ENTRY THRU POWRSERS. THE COEFFICIENTS MAY BE EITHER IN FIXED OR ERASABLE, THE CALL IS BY
047305,000997:                                                                                                 #              TC POWRSERS, AND THE RETURN IS TO LOC(TC POWRSERS)+1. THE ENTERING DATA MUST BE AS FOLLOWS
047306,000998: 
047307,000999:                                                                                                 #                                          A        SP     LOC-3           ADDRESS FOR REFERENCING COEF TABLE
047308,001000:                                                                                                 #                                          L        SP     N-1             N IS THE DEGREE OF THE POWER SERIES
047309,001001:                                                                                                 #                                          MPAC     DP     X               ARGUMENT
047310,001002: 
047311,001003:                                                                                                 #                                          LOC-2N   DP     A(0)
047312,001004:                                                                                                 #                                                   ...
047313,001005:                                                                                                 #                                          LOC      DP     A(N)
047314,001006: 
047315,001007:                                                                                                 #           2. ENTRY THRU POLY. THE CALL TO POLY AND THE ENTERING DATA MUST BE AS FOLLOWS
047316,001008: 
047317,001009:                                                                                                 #                                          MPAC     DP     X               ARGUMENT
047318,001010: 
047319,001011:                                                                                                 #                                          LOC      TC     POLY
047320,001012:                                                                                                 #                                          LOC+1    SP     N-1
047321,001013:                                                                                                 #                                          LOC+2    DP     A(0)
047322,001014:                                                                                                 #                                                   ...
047323,001015:                                                                                                 #                                          LOC+2N+2 DP     A(N)            RETURN IS TO LOC+2N+4
047324,001016: 
047325,001017:    7164           00006        POWRSERS          EXTEND                                         
047326,001018:    7165           22141                          QXCH     POLYRET                               #  RETURN ADDRESS
047327,001019:    7166           54117                          TS       POLISH                                #  POWER SERIES ADDRESS
047328,001020:    7167           22140                          LXCH     POLYCNT                               #  N-1 TO COUNTER
047329,001021:    7170           17201                          TCF      POLYCOM                               #  SKIP SET UP BY POLY
047330,001022: 
047331,001023:    7171           50002        POLY              INDEX    Q                                     
047332,001024:    7172           30000                          CAF      0                                     
047333,001025:    7173           54140                          TS       POLYCNT                               #  N-1 TO COUNTER
047334,001026:    7174           60000                          DOUBLE                                         
047335,001027:    7175           60002                          AD       Q                                     
047336,001028:    7176           54117                          TS       POLISH                                #  L(A(N))-3 TO POLISH
047337,001029:    7177           64715                          AD       FIVE                                  
047338,001030:    7200           54141                          TS       POLYRET                               #  STORE RETURN ADDRESS
047339,001031: 
047340,001032:    7201           36242        POLYCOM           CAF      LVBUF                                 #  INCOMING X WILL BE MOVED TO VBUF, SO
047341,001033:    7202           54116                          TS       ADDRWD                                #  SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
047342,001034: 
047343,001035:    7203           00006                          EXTEND                                         
047344,001036:    7204           50117                          INDEX    POLISH                                
047345,001037:    7205           30004                          DCA      3                                     
047346,001038: 
047347,001039:                                                                                                 # # Page 1107
047348,001040:    7206           52155                          DXCH     MPAC                                  #  LOAD A(N) INTO MPAC,
047349,001041:    7207           52123                          DXCH     VBUF                                  #  SAVING X IN VBUF
047350,001042:    7210           17214                          TCF      POLY2                                 
047351,001043: 
047352,001044:    7211           54140        POLYLOOP          TS       POLYCNT                               #  SAVE DECREMENTD LOOP COUNTER
047353,001045:    7212           44711                          CS       TWO                                   
047354,001046:    7213           26117                          ADS      POLISH                                #  REGRESS COEFFICIENT POINTER
047355,001047: 
047356,001048:    7214           07056        POLY2             TC       DMPSUB                                #  MULTIPLY BY X
047357,001049:    7215           00006                          EXTEND                                         
047358,001050:    7216           50117                          INDEX    POLISH                                
047359,001051:    7217           30002                          DCA      1                                     #  ADD IN NEXT COEFFICIENT
047360,001052:    7220           20155                          DAS      MPAC                                  #  USERS RESPONSIBILITY TO ASSURE NO OVFLOW
047361,001053: 
047362,001054:    7221           10140                          CCS      POLYCNT                               
047363,001055:    7222           17211                          TCF      POLYLOOP                              
047364,001056:    7223           00141                          TC       POLYRET                               #  RETURN CALLER
047365,001057: 
047366,001058:                                                                                                 # # Page 1108
047367,001059:                                                                                                 #           MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
047368,001060: 
047369,001061:    7224           34714        DPAGREE           CAF      ZERO                                  #  DOUBLE PRECISION ENTRY -
047370,001062:    7225           54156                          TS       MPAC       +2                         #  ZERO LOW-ORDER WORD
047371,001063: 
047372,001064:    7226           22002        TPAGREE           LXCH     Q                                     #  FORCE SIGN AGREEMENT AMONG THE TRIPLE
047373,001065:    7227           06672                          TC       BRANCH                                #  PRECISION CONTENTS OF MPAC.  RETURNING
047374,001066:    7230           17234                          TCF      ARG+                                  #  WITH SIGNUM OF THE INPUT IN A.
047375,001067:    7231           17254                          TCF      ARGZERO                               
047376,001068: 
047377,001069:    7232           44672                          CS       POSMAX                                #  IF NEGATIVE.
047378,001070:    7233           17235                          TCF      +2                                    
047379,001071: 
047380,001072:    7234           34672        ARG+              CAF      POSMAX                                
047381,001073:    7235           54002                          TS       Q                                     
047382,001074:    7236           00006                          EXTEND                                         
047383,001075:    7237           24000                          AUG      A                                     #  FORMS +-1.0.
047384,001076:    7240           60156                          AD       MPAC       +2                         
047385,001077:    7241           54156                          TS       MPAC       +2                         
047386,001078:    7242           34714                          CAF      ZERO                                  
047387,001079:    7243           60002                          AD       Q                                     
047388,001080:    7244           60155                          AD       MPAC       +1                         
047389,001081:    7245           54155                          TS       MPAC       +1                         
047390,001082:    7246           34714                          CAF      ZERO                                  
047391,001083:    7247           60002                          AD       Q                                     #  Q STILL HAS POSMAX OR NEGMAX IN IT.
047392,001084:    7250           60154                          AD       MPAC                                  
047393,001085:    7251           54154        ARGZERO2          TS       MPAC                                  #  ALWAYS SKIPPING UNLESS ARGZERO.
047394,001086:    7252           54155                          TS       MPAC       +1                         
047395,001087:    7253           00001                          TC       L                                     #  RETURN VIA L.
047396,001088: 
047397,001089:    7254           54156        ARGZERO           TS       MPAC       +2                         #  SET ALL THREE MPAC REGISTERS TO ZERO.
047398,001090:    7255           17251                          TCF      ARGZERO2                              
047399,001091: 
047400,001092:                                                                                                 #           SHORTMP MULTIPLIES THE TP CONTENTS OF MPAC BY THE SINGLE PRECISION NUMBER ARRIVING IN A.
047401,001093: 
047402,001094:    7256           54135        SHORTMP           TS       MPTEMP                                
047403,001095:    7257           00006                          EXTEND                                         
047404,001096:    7260           70156                          MP       MPAC       +2                         
047405,001097:    7261           54156                          TS       MPAC       +2                         
047406,001098:    7262           34714        SHORTMP2          CAF      ZERO                                  #  SO SUBSEQUENT DAS WILL WORK.
047407,001099:    7263           56155                          XCH      MPAC       +1                         
047408,001100:    7264           17075                          TCF      DMPSUB2                               
047409,001101: 
047410,001102:                                                                                                 # # Page 1109
047411,001103:                                                                                                 #           DMPNSUB MULTIPLIES THE DP FRACTION ARRIVING IN MPAC BY THE SP
047412,001104:                                                                                                 #  INTEGER ARRIVING IN A.  THE DP PRODUCT DEPARTS BOTH IN MPAC AND IN
047413,001105:                                                                                                 #  A AND L.  NOTE THAT DMPNSUB NORMALLY INCREASES THE MAGNITUDE OF THE
047414,001106:                                                                                                 #  CONTENTS OF MPAC.  THE CUSTOMER MUST INSURE THAT B(A) X B(MPAC,MPAC+1)
047415,001107:                                                                                                 #  AND B(A) X B(MPAC) ARE LESS THAN 1 IN MAGNITUDE, WHERE B, AS IS OBVIOUS,
047416,001108:                                                                                                 #  INDICATES THE ARRIVING CONTENTS.
047417,001109: 
047418,001110:    7265           54135        DMPNSUB           TS       DMPNTEMP                              
047419,001111:    7266           00006                          EXTEND                                         
047420,001112:    7267           70155                          MP       MPAC       +1                         
047421,001113:    7270           52155                          DXCH     MPAC                                  #  LOW PRODUCT TO MPAC, HIGH FACTOR TO A
047422,001114:    7271           00006                          EXTEND                                         
047423,001115:    7272           70135                          MP       DMPNTEMP                              
047424,001116:    7273           30001                          CA       L                                     
047425,001117:    7274           26154                          ADS      MPAC                                  #  COMPLETING THE PRODUCT IN MPAC
047426,001118:    7275           00006                          EXTEND                                         
047427,001119:    7276           30155                          DCA      MPAC                                  #  BRINGING THE PRODUCT INTO A AND L
047428,001120:    7277           00002                          TC       Q                                     
047429,001121: 
047430,001122:                                                                                                 # # Page 1110
047431,001123:                                                                                                 #  MISCELLANEOUS VECTOR OPERATIONS. INCLUDED HERE ARE THE FOLLOWING:
047432,001124: 
047433,001125:                                                                                                 #           1.  DOT                DP VECTOR DOT PRODUCT.
047434,001126:                                                                                                 #           2.  VXV                DP VECTOR CROSS PRODUCT.
047435,001127:                                                                                                 #           3.  VXSC               DP VECTOR TIMES SCALAR.
047436,001128:                                                                                                 #           4.  V/SC               DP VECTOR DIVIDED BY SCALAR.
047437,001129:                                                                                                 #           5.  VPROJ              DP VECTOR PROJECTION. ( (MPAC.X)MPAC ).
047438,001130:                                                                                                 #           6.  VXM                DP VECTOR POST-MULTIPLIED BY MATRIX.
047439,001131:                                                                                                 #           7.  MXV                DP VECTOR PRE-MULTIPLIED BY MATRIX.
047440,001132: 
047441,001133:    7300           07123        DOT               TC       PREDOT                                #  DO THE DOT PRODUCT AND EXIT, CHANGING
047442,001134:    7301           34714        DMODE             CAF      ZERO                                  #  THE MODE TO DP SCALAR.
047443,001135:    7302           16027                          TCF      NEWMODE                               
047444,001136: 
047445,001137: 
047446,001138:    7303           34711        MXV               CAF      TWO                                   #  SET UP MATINC AND DOTINC FOR ROW
047447,001139:    7304           54140                          TS       MATINC                                #  VECTORS.
047448,001140:    7305           17311                          TCF      VXM/MXV                               #  GO TO COMMON PORTION.
047449,001141: 
047450,001142:    7306           44377        VXM               CS       TEN                                   #  SET MATINC AND DOTINC TO REFER TO MATRIX
047451,001143:    7307           54140                          TS       MATINC                                #  AS THREE COLUMN VECTORS.
047452,001144:    7310           36211                          CAF      SIX                                   
047453,001145: 
047454,001146:                                                                                                 # # Page 1111
047455,001147:                                                                                                 #           COMMON PORTION OF MXV AND VXM.
047456,001148: 
047457,001149:    7311           54136        VXM/MXV           TS       DOTINC                                
047458,001150:                                                                                                 #           ITRACE (2) REFERS TO "VXM/MXV".
047459,001151:    7312           07501                          TC       MPACVBUF                              #  SAVE VECTOR IN MPAC FOR FURTHER USE.
047460,001152: 
047461,001153:    7313           07125                          TC       DOTSUB                                #  GO DOT TO GET X COMPONENT OF ANSWER.
047462,001154:    7314           00006                          EXTEND                                         
047463,001155:    7315           30123                          DCA      VBUF                                  #  MOVE MPAC VECTOR BACK INTO MPAC, SAVING
047464,001156:    7316           52155                          DXCH     MPAC                                  #  NEW X COMPONENT IN BUF2.
047465,001157:    7317           52134                          DXCH     BUF2                                  
047466,001158:    7320           00006                          EXTEND                                         
047467,001159:    7321           30125                          DCA      VBUF       +2                         
047468,001160:    7322           52160                          DXCH     MPAC       +3                         
047469,001161:    7323           00006                          EXTEND                                         
047470,001162:    7324           30127                          DCA      VBUF       +4                         
047471,001163:    7325           52162                          DXCH     MPAC       +5                         
047472,001164:    7326           30140                          CA       MATINC                                #  INITIALIZE ADDRWD FOR NEXT DOT PRODUCT.
047473,001165:    7327           26116                          ADS      ADDRWD                                #  FORMS HAS ADDRESS OF NEXT COLUMN(ROW).
047474,001166: 
047475,001167:    7330           07125                          TC       DOTSUB                                
047476,001168:    7331           52123                          DXCH     VBUF                                  #  MOVE GIVEN VECTOR BACK TO MPAC, SAVING Y
047477,001169:    7332           52155                          DXCH     MPAC                                  #  COMPONENT OF ANSWER IN VBUF +2.
047478,001170:    7333           52125                          DXCH     VBUF       +2                         
047479,001171:    7334           52160                          DXCH     MPAC       +3                         
047480,001172:    7335           52127                          DXCH     VBUF       +4                         
047481,001173:    7336           52162                          DXCH     MPAC       +5                         
047482,001174:    7337           30140                          CA       MATINC                                #  FORM ADDRESS OF LAST COLUMN OR ROW.
047483,001175:    7340           26116                          ADS      ADDRWD                                
047484,001176: 
047485,001177:    7341           07125                          TC       DOTSUB                                
047486,001178:    7342           52134                          DXCH     BUF2                                  #  ANSWER NOW COMPLETE. PUT COMPONENTS INTO
047487,001179:    7343           52155                          DXCH     MPAC                                  #  PROPER MPAC REGISTERS.
047488,001180:    7344           52162                          DXCH     MPAC       +5                         
047489,001181:    7345           52125                          DXCH     VBUF       +2                         
047490,001182:    7346           52160                          DXCH     MPAC       +3                         
047491,001183:    7347           16030                          TCF      DANZIG                                #  EXIT.
047492,001184: 
047493,001185:                                                                                                 # # Page 1112
047494,001186:                                                                                                 #           VXSC - VECTOR TIMES SCALAR.
047495,001187: 
047496,001188:    7350           10163        VXSC              CCS      MODE                                  #  TEST PRESENT MODE.
047497,001189:    7351           17377                          TCF      DVXSC                                 #  SEPARATE ROUTINE WHEN SCALAR IS IN MPAC.
047498,001190:    7352           17377                          TCF      DVXSC                                 
047499,001191: 
047500,001192:    7353           07056        VVXSC             TC       DMPSUB                                #  COMPUTE X COMPONENT
047501,001193:    7354           07107                          TC       VROUND                                #  AND ROUND IT.
047502,001194:    7355           52160                          DXCH     MPAC       +3                         #  PUT Y COMPONENT INTO MPAC SAVING MPAC IN
047503,001195:    7356           52155                          DXCH     MPAC                                  #  MPAC +3.
047504,001196:    7357           52160                          DXCH     MPAC       +3                         
047505,001197: 
047506,001198:    7360           07056                          TC       DMPSUB                                #  DO SAME FOR Y AND Z COMPONENTS.
047507,001199:    7361           07107                          TC       VROUND                                
047508,001200:    7362           52162                          DXCH     MPAC       +5                         
047509,001201:    7363           52155                          DXCH     MPAC                                  
047510,001202:    7364           52162                          DXCH     MPAC       +5                         
047511,001203: 
047512,001204:    7365           07056                          TC       DMPSUB                                
047513,001205:    7366           07107                          TC       VROUND                                
047514,001206:    7367           52155        VROTATEX          DXCH     MPAC                                  #  EXIT USED TO RESTORE MPAC AFTER THIS
047515,001207:    7370           52162                          DXCH     MPAC       +5                         #  TYPE OF ROTATION. CALLED BY VECTOR SHIFT
047516,001208:    7371           52160                          DXCH     MPAC       +3                         #  RIGHT, V/SC, ETC.
047517,001209:    7372           52155                          DXCH     MPAC                                  
047518,001210:    7373           16030                          TCF      DANZIG                                
047519,001211: 
047520,001212:                                                                                                 # # Page 1113
047521,001213:                                                                                                 #           DP VECTOR PROJECTION ROUTINE.
047522,001214: 
047523,001215:    7374           07123        VPROJ             TC       PREDOT                                #  (MPAC.X)MPAC IS COMPUTED AND LEFT IN
047524,001216:    7375           44710                          CS       FOUR                                  #  MPAC. DO DOT AND FALL INTO DVXSC.
047525,001217:    7376           26116                          ADS      ADDRWD                                
047526,001218: 
047527,001219:                                                                                                 #           VXSC WHEN SCALAR ARRIVES IN MPAC AND VECTOR IS AT X.
047528,001220: 
047529,001221:    7377           00006        DVXSC             EXTEND                                         #  SAVE SCALAR IN MPAC +3 AND GET X
047530,001222:    7400           30155                          DCA      MPAC                                  #  COMPONENT OF ANWER.
047531,001223:    7401           52160                          DXCH     MPAC       +3                         
047532,001224:    7402           07056                          TC       DMPSUB                                
047533,001225:    7403           07107                          TC       VROUND                                
047534,001226: 
047535,001227:    7404           34711                          CAF      TWO                                   #  ADVANCE ADDRWD TO Y COMPONENT OF X.
047536,001228:    7405           26116                          ADS      ADDRWD                                
047537,001229:    7406           00006                          EXTEND                                         
047538,001230:    7407           30160                          DCA      MPAC       +3                         #  PUT SCALAR BACK INTO MPAC AND SAVE
047539,001231:    7410           52155                          DXCH     MPAC                                  #  X RESULT IN MPAC +5.
047540,001232:    7411           52162                          DXCH     MPAC       +5                         
047541,001233:    7412           07056                          TC       DMPSUB                                
047542,001234:    7413           07107                          TC       VROUND                                
047543,001235: 
047544,001236:    7414           34711                          CAF      TWO                                   
047545,001237:    7415           26116                          ADS      ADDRWD                                #  TO Z COMPONENT.
047546,001238:    7416           52160                          DXCH     MPAC       +3                         #  BRING SCALAR BACK, PUTTING Y RESULT IN
047547,001239:    7417           52155                          DXCH     MPAC                                  #  THE PROPER PLACE.
047548,001240:    7420           52160                          DXCH     MPAC       +3                         
047549,001241:    7421           07056                          TC       DMPSUB                                
047550,001242:    7422           07107                          TC       VROUND                                
047551,001243: 
047552,001244:    7423           52155                          DXCH     MPAC                                  #  PUT Z COMPONENT IN PROPER PLACE, ALSO
047553,001245:    7424           52162                          DXCH     MPAC       +5                         #  POSITIONING X.
047554,001246:    7425           52155                          DXCH     MPAC                                  
047555,001247: 
047556,001248:    7426           16470                          TCF      VMODE                                 #  MODE HAS CHANGED TO VECTOR.
047557,001249: 
047558,001250:                                                                                                 # # Page 1114
047559,001251:                                                                                                 #           THE VECTOR CROSS PRODUCT ROUTINE CALCULATES (X M -X M ,X M -X M ,X M -X M ) WHERE M IS THE VECTOR IN
047560,001252:                                                                                                 #                                                         3 2  2 3  1 3  3 1  2 1  1 2
047561,001253:                                                                                                 #  MPAC AND X THE VECTOR AT THE GIVEN ADDRESS.
047562,001254: 
047563,001255: 
047564,001256:    7427           00006        VXV               EXTEND                                         
047565,001257:    7430           30162                          DCA      MPAC       +5                         #  FORM UP M3X1, LEAVING M1 IN VBUF.
047566,001258:    7431           52155                          DXCH     MPAC                                  
047567,001259:    7432           52123                          DXCH     VBUF                                  
047568,001260:    7433           07056                          TC       DMPSUB                                #  BY X1.
047569,001261: 
047570,001262:    7434           00006                          EXTEND                                         
047571,001263:    7435           40160                          DCS      MPAC       +3                         #  CALCULATE -X1M2, SAVING X1M3 IN VBUF +2.
047572,001264:    7436           52155                          DXCH     MPAC                                  
047573,001265:    7437           52125                          DXCH     VBUF       +2                         
047574,001266:    7440           07056                          TC       DMPSUB                                
047575,001267: 
047576,001268:    7441           34711                          CAF      TWO                                   #  ADVANCE ADDRWD TO X2.
047577,001269:    7442           26116                          ADS      ADDRWD                                
047578,001270:    7443           00006                          EXTEND                                         
047579,001271:    7444           40162                          DCS      MPAC       +5                         #  PREPARE TO GET -X2M3, SAVING -X1M2 IN
047580,001272:    7445           52155                          DXCH     MPAC                                  #  MPAC +5.
047581,001273:    7446           52162                          DXCH     MPAC       +5                         
047582,001274:    7447           07056                          TC       DMPSUB                                
047583,001275: 
047584,001276:    7450           00006                          EXTEND                                         
047585,001277:    7451           30123                          DCA      VBUF                                  #  GET X2M1, SAVING -X2M3 IN VBUF +4.
047586,001278:    7452           52155                          DXCH     MPAC                                  
047587,001279:    7453           52127                          DXCH     VBUF       +4                         
047588,001280:    7454           07056                          TC       DMPSUB                                
047589,001281: 
047590,001282:    7455           34711                          CAF      TWO                                   #  ADVANCE ADDRWD TO X3.
047591,001283:    7456           26116                          ADS      ADDRWD                                
047592,001284:    7457           00006                          EXTEND                                         
047593,001285:    7460           40123                          DCS      VBUF                                  #  GET -X3M1, ADDING X2M1 TO MPAC +5 TO
047594,001286:    7461           52155                          DXCH     MPAC                                  #  COMPLETE THE Z COMPONENT OF THE ANSWER.
047595,001287:    7462           20162                          DAS      MPAC       +5                         
047596,001288: 
047597,001289:    7463           00006                          EXTEND                                         
047598,001290:    7464           17466                          BZF      +2                                    
047599,001291:    7465           06760                          TC       OVERFLWZ                              
047600,001292: 
047601,001293:    7466           07056                          TC       DMPSUB                                
047602,001294:    7467           52125                          DXCH     VBUF       +2                         #  MOVE X1M3 TO MPAC +3 SETTING UP FOR X3M2
047603,001295:    7470           52160                          DXCH     MPAC       +3                         #  AND ADD -X3M1 TO MPAC +3 TO COMPLETE THE
047604,001296:    7471           52155                          DXCH     MPAC                                  #  Y COMPONENT OF THE RESULT.
047605,001297:    7472           20160                          DAS      MPAC       +3                         
047606,001298: 
047607,001299:    7473           00006                          EXTEND                                         
047608,001300:    7474           17476                          BZF      +2                                    
047609,001301:                                                                                                 # # Page 1115
047610,001302:    7475           06763                          TC       OVERFLWY                              
047611,001303: 
047612,001304:    7476           07056                          TC       DMPSUB                                
047613,001305:    7477           52127                          DXCH     VBUF       +4                         #  GO ADD -X2M3 TO X3M2 TO COMPLETE THE X
047614,001306:    7500           16747                          TCF      ENDVXV                                #  COMPONENT (TAIL END OF DAD).
047615,001307: 
047616,001308:                                                                                                 #           THE MPACVBUF SUBROUTINE SAVES THE VECTOR IN MPAC IN VBUF WITHOUT CLOBBERING MPAC.
047617,001309: 
047618,001310:    7501           00006        MPACVBUF          EXTEND                                         #  CALLED BY MXV, VXM, AND UNIT.
047619,001311:    7502           30155                          DCA      MPAC                                  
047620,001312:    7503           52123                          DXCH     VBUF                                  
047621,001313:    7504           00006                          EXTEND                                         
047622,001314:    7505           30160                          DCA      MPAC       +3                         
047623,001315:    7506           52125                          DXCH     VBUF       +2                         
047624,001316:    7507           00006                          EXTEND                                         
047625,001317:    7510           30162                          DCA      MPAC       +5                         
047626,001318:    7511           52127                          DXCH     VBUF       +4                         
047627,001319:    7512           00002                          TC       Q                                     #  RETURN TO CALLER.
047628,001320: 
047629,001321: 
047630,001322:                                                                                                 #           DOUBLE PRECISION SIGN AGREE ROUTINE. ARRIVE WITH INPUT IN A+L. OUTPUT IS IN A + L.
047631,001323: 
047632,001324:    7513           10000        ALSIGNAG          CCS      A                                     #  TEST UPPER PART.
047633,001325:    7514           17520                          TCF      UPPOS                                 #  IT IS POSITIVE
047634,001326:    7515           00002                          TC       Q                                     #  ZERO
047635,001327:    7516           17530                          TCF      UPNEG                                 #  NEGATIVE
047636,001328:    7517           00002                          TC       Q                                     #  ZERO
047637,001329: 
047638,001330:    7520           56001        UPPOS             XCH      L                                     #  SAVE DECREMENTED UPPER PART.
047639,001331:    7521           64675                          AD       HALF                                  
047640,001332:    7522           64675                          AD       HALF                                  
047641,001333:    7523           54000                          TS       A                                     #  SKIPS ON OVERFLOW
047642,001334:    7524           17526                          TCF      +2                                    
047643,001335:    7525           24001                          INCR     L                                     #  RESTORE UPPER TO ROIGINAL VALUE
047644,001336:    7526           56001                          XCH      L                                     #  SWAP A + L BACK.
047645,001337:    7527           00002                          TC       Q                                     
047646,001338: 
047647,001339:    7530           56001        UPNEG             XCH      L                                     #  SAVE COMPLEMENTED + DECREMENTED UPPER PT
047648,001340:    7531           64674                          AD       NEGMAX                                
047649,001341:    7532           67716                          AD       NEGONE                                
047650,001342:    7533           54000                          TS       A                                     
047651,001343:    7534           17536                          TCF      +2                                    #  DONT INCREMENT IF NO OVERFLOW.
047652,001344:    7535           24001                          INCR     L                                     
047653,001345:    7536           56001                          XCH      L                                     
047654,001346:    7537           40000                          COM                                            #  MAKE NEGATIVE AGAIN.
047655,001347:    7540           00002                          TC       Q                                     
047656,001348: 
047657,001349:                                                                                                 # # Page 1116
047658,001350:                                                                                                 #           INTERPRETIVE INSTRUCTIONS WHOSE EXECUTION CONSISTS OF PRINCIPALLY CALLING SUBROUTINES.
047659,001351: 
047660,001352:    7541           07056        DMP1              TC       DMPSUB                                #  DMP INSTRUCTION.
047661,001353:    7542           16030                          TCF      DANZIG                                
047662,001354: 
047663,001355:    7543           07056        DMPR              TC       DMPSUB                                
047664,001356:    7544           07106                          TC       ROUNDSUB   +1                         #  (C(A) = +0).
047665,001357:    7545           16030                          TCF      DANZIG                                
047666,001358: 
047667,001359:    7546           00006        DDV               EXTEND                                         
047668,001360:    7547           50116                          INDEX    ADDRWD                                #  MOVE DIVIDEND INTO BUF.
047669,001361:    7550           30001                          DCA      0                                     
047670,001362:    7551           17556                          TCF      BDDV       +4                         
047671,001363: 
047672,001364:    7552           00006        BDDV              EXTEND                                         #  MOVE DIVISOR INTO MPAC SAVING MPAC, THE
047673,001365:    7553           50116                          INDEX    ADDRWD                                #  DIVIDEND, IN BUF.
047674,001366:    7554           30001                          DCA      0                                     
047675,001367:    7555           52155                          DXCH     MPAC                                  
047676,001368:    7556           52131                 +4       DXCH     BUF                                   
047677,001369:    7557           34714                          CAF      ZERO                                  #  DIVIDE ROUTINES IN BANK 0.
047678,001370:    7560           54004                          TS       FBANK                                 
047679,001371:    7561           12353                          TCF      DDV/BDDV                              
047680,001372: 
047681,001373:    7562           30116        SETPD             CA       ADDRWD                                #  MUST SET TO WORK AREA, OR EBANK TROUBLE.
047682,001374:    7563           54166                          TS       PUSHLOC                               
047683,001375:    7564           16032                          TCF      NOIBNKSW                              #  NO FBANK SWITCH REQUIRED.
047684,001376: 
047685,001377:    7565           34714        TSLC              CAF      ZERO                                  #  SHIFTING ROUTINES LOCATED IN BANK 00.
047686,001378:    7566           54004                          TS       FBANK                                 
047687,001379:    7567           12172                          TCF      TSLC2                                 
047688,001380: 
047689,001381:    7570           36043        GSHIFT            CAF      LOW7                                  #  USED AS MASK AT GENSHIFT. THIS PROCESSES
047690,001382:    7571           54004                          TS       FBANK                                 #  ANY SHIFT INSTRUCTION (EXCEPT TSLC) WITH
047691,001383:    7572           12214                          TCF      GENSHIFT                              #  AN ADDRESS (ROUTINES IN BANK 0).
047692,001384: 
047693,001385:                                                                                                 # # Page 1117
047694,001386:                                                                                                 #           THE FOLLOWING IS THE PROLOGUE TO V/SC. IF THE PRESENT MODE IS VECTOR, IT SAVES THE SCALAR AT X IN BUF
047695,001387:                                                                                                 #  AND CALLS THE V/SC ROUTINE IN BANK 0. IF THE PRESENT MODE IS SCALAR, IT MOVES THE VECTOR AT X INTO MPAC, SAVING
047696,001388:                                                                                                 #  THE SCALAR IN MPAC IN BUF BEFORE CALLING THE V/SC ROUTINE IN BANK 0.
047697,001389: 
047698,001390: 
047699,001391:    7573           10163        V/SC              CCS      MODE                                  
047700,001392:    7574           17605                          TCF      DV/SC                                 #  MOVE VECTOR INTO MPAC.
047701,001393:    7575           17605                          TCF      DV/SC                                 
047702,001394: 
047703,001395:    7576           00006        VV/SC             EXTEND                                         
047704,001396:    7577           50116                          INDEX    ADDRWD                                
047705,001397:    7600           30001                          DCA      0                                     
047706,001398:    7601           52131        V/SC1             DXCH     BUF                                   #  IN BOTH CASES, VECTOR IS NOW IN MPAC AND
047707,001399:    7602           34714                          CAF      ZERO                                  #  SCALAR IN BUF.
047708,001400:    7603           54004                          TS       FBANK                                 
047709,001401:    7604           12654                          TCF      V/SC2                                 
047710,001402: 
047711,001403:    7605           00006        DV/SC             EXTEND                                         
047712,001404:    7606           50116                          INDEX    ADDRWD                                
047713,001405:    7607           30003                          DCA      2                                     
047714,001406:    7610           52160                          DXCH     MPAC       +3                         
047715,001407:    7611           00006                          EXTEND                                         
047716,001408:    7612           50116                          INDEX    ADDRWD                                
047717,001409:    7613           30005                          DCA      4                                     
047718,001410:    7614           52162                          DXCH     MPAC       +5                         
047719,001411: 
047720,001412:    7615           44712                          CS       ONE                                   #  CHANGE MODE TO VECTOR.
047721,001413:    7616           54163                          TS       MODE                                  
047722,001414: 
047723,001415:    7617           00006                          EXTEND                                         
047724,001416:    7620           50116                          INDEX    ADDRWD                                
047725,001417:    7621           30001                          DCA      0                                     
047726,001418:    7622           52155                          DXCH     MPAC                                  
047727,001419:    7623           17601                          TCF      V/SC1                                 #  FINISH PROLOGUE AT COMMON SECTION.
047728,001420: 
047729,001421:                                                                                                 # # Page 1118
047730,001422:                                                                                                 #           SIGN AND COMPLEMENT INSTRUCTIONS.
047731,001423: 
047732,001424:    7624           50116        SIGN              INDEX    ADDRWD                                #  CALL COMP INSTRUCTION IF WORD AT X IS
047733,001425:    7625           10000                          CCS      0                                     #  NEGATIVE NON-ZERO.
047734,001426:    7626           16030                          TCF      DANZIG                                
047735,001427:    7627           17631                          TCF      +2                                    
047736,001428:    7630           17637                          TCF      COMP                                  #  DO THE COMPLEMENT.
047737,001429: 
047738,001430:    7631           50116                          INDEX    ADDRWD                                
047739,001431:    7632           10001        CCSL              CCS      1                                     
047740,001432:    7633           16030                          TCF      DANZIG                                
047741,001433:    7634           16030                          TCF      DANZIG                                
047742,001434:    7635           17637                          TCF      COMP                                  
047743,001435:    7636           16030                          TCF      DANZIG                                
047744,001436:    7637           00006        COMP              EXTEND                                         #  COMPLEMENT DP MPAC IN EVERY CASE.
047745,001437:    7640           40155                          DCS      MPAC                                  
047746,001438:    7641           52155                          DXCH     MPAC                                  
047747,001439: 
047748,001440:    7642           10163                          CCS      MODE                                  #  EITHER COMPLEMENT MPAC +3 OR THE REST OF
047749,001441:    7643           17654                          TCF      DCOMP                                 #  THE VECTOR ACCUMULATOR.
047750,001442:    7644           17654                          TCF      DCOMP                                 
047751,001443: 
047752,001444:    7645           00006                          EXTEND                                         #  VECTOR COMPLEMENT.
047753,001445:    7646           40160                          DCS      MPAC       +3                         
047754,001446:    7647           52160                          DXCH     MPAC       +3                         
047755,001447:    7650           00006                          EXTEND                                         
047756,001448:    7651           40162                          DCS      MPAC       +5                         
047757,001449:    7652           52162                          DXCH     MPAC       +5                         
047758,001450:    7653           16030                          TCF      DANZIG                                
047759,001451: 
047760,001452:    7654           40156        DCOMP             CS       MPAC       +2                         
047761,001453:    7655           54156                          TS       MPAC       +2                         
047762,001454:    7656           16030                          TCF      DANZIG                                
047763,001455: 
047764,001456:                                                                                                 # # Page 1119
047765,001457:                                                                                                 #           THE FOLLOWING SHORT SHIFT CODES REQUIRE NO ADDRESS WORD:
047766,001458: 
047767,001459:                                                                                                 #           1.  SR1 TO SR4         SCALAR SHIFT RIGHT.
047768,001460:                                                                                                 #           2.  SR1R TO SR4R       SCALAR SHIFT RIGHT AND ROUND.
047769,001461:                                                                                                 #           3.  SL1 TO SL4         SCALAR SHIFT LEFT.
047770,001462:                                                                                                 #           4.  SL1R TO SL4R       SCALAR SHIFT LEFT AND ROUND.
047771,001463: 
047772,001464:                                                                                                 #           5.  VSR1 TO VSR8       VECTOR SHIFT RIGHT (ALWAYS ROUNDS).
047773,001465:                                                                                                 #           6.  VSL1 TO VSL8       VECTOR SHIFT LEFT (NEVER ROUNDS).
047774,001466: 
047775,001467:                                                                                                 #           THE FOLLOWING CODES REQUIRE AND ADDRESS WHICH MAY BE INDEXED:*
047776,001468: 
047777,001469:                                                                                                 #           1.  SR                 SCALAR SHIFT RIGHT.
047778,001470:                                                                                                 #           2.  SRR                SCALAR SHIFT RIGHT AND ROUND.
047779,001471:                                                                                                 #           3.  SL                 SCALAR SHIFT LEFT.
047780,001472:                                                                                                 #           4.  SLR                SCALAR SHIFT LEFT AND ROUND.
047781,001473: 
047782,001474:                                                                                                 #           5.  VSR                VECTOR SHIFT RIGHT.
047783,001475:                                                                                                 #           6.  VSL                VECTOR SHIFT LEFT.
047784,001476: 
047785,001477:                                                                                                 #  *  IF THE ADDRESS IS INDEXED, AND THE INDEX MODIFICATION RESULTS IN A NEGATIVE SHIFT COUNT, A SHIFT OF THE
047786,001478:                                                                                                 #  ABSOLUTE VALUE OF THE COUNT IS DONE IN THE OPPOSITE DIRECTION.
047787,001479: 
047788,001480: 
047789,001481: 00,2017                                          BANK     00                                    
047790,001482: 
047791,001483: 00,2017                                          COUNT    00/INTER                              
047792,001484: 
047793,001485: 00,2017           36211        SHORTT            CAF      SIX                                   #  SCALAR SHORT SHIFTS COME HERE. THE SHIFT
047794,001486: 00,2020           70020                          MASK     CYR                                   #  COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE
047795,001487: 00,2021           54021                          TS       SR                                    #  ROUNDING BIT IS IN BIT1 AT THIS POINT.
047796,001488: 
047797,001489: 00,2022           10020                          CCS      CYR                                   #  SEE IF RIGHT OR LEFT SHIFT DESIRED.
047798,001490: 00,2023           12101                          TCF      TSSL                                  #  SHIFT LEFT.
047799,001491: 
047800,001492: 00,2024           00024        SRDDV             DEC      20         B-14                       #  MPTEMP SETTING FOR SR BEFORE DDV.
047801,001493: 
047802,001494: 00,2025           50021        TSSR              INDEX    SR                                    #  GET SHIFTING BIT.
047803,001495: 00,2026           34675                          CAF      BIT14                                 
047804,001496: 00,2027           54135                          TS       MPTEMP                                
047805,001497: 
047806,001498: 00,2030           10020                          CCS      CYR                                   #  SEE IF A ROUND IS DESIRED.
047807,001499: 00,2031           02050        RIGHTR            TC       MPACSRND                              #  YES - SHIFT RIGHT AND ROUND.
047808,001500: 00,2032           16027                          TCF      NEWMODE                               #  SET MODE TO DP (C(A) = 0).
047809,001501: 00,2033           30135        MPACSHR           CA       MPTEMP                                #  DO A TRIPLE PRECISION SHIFT RIGHT.
047810,001502: 00,2034           00006                          EXTEND                                         
047811,001503: 00,2035           70156                          MP       MPAC       +2                         
047812,001504: 00,2036           54156                 +3       TS       MPAC       +2                         #  (EXIT FROM SQRT AND ABVAL).
047813,001505: 00,2037           30135                          CA       MPTEMP                                
047814,001506: 00,2040           00006                          EXTEND                                         
047815,001507:                                                                                                 # # Page 1120
047816,001508: 00,2041           70154                          MP       MPAC                                  #  SHIFT MAJOR PART INTO A,L AND PLACE IN
047817,001509: 00,2042           52155                          DXCH     MPAC                                  #  MPAC,+1.
047818,001510: 00,2043           30135                          CA       MPTEMP                                
047819,001511: 00,2044           00006                          EXTEND                                         
047820,001512: 00,2045           70001                          MP       L                                     #  ORIGINAL C(MPAC +1).
047821,001513: 00,2046           20156                          DAS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
047822,001514: 00,2047           16030                          TCF      DANZIG                                
047823,001515: 
047824,001516:                                                                                                 #           MPAC SHIFT RIGHT AND ROUND SUBROUTINES.
047825,001517: 
047826,001518: 00,2050           30156        MPACSRND          CA       MPAC       +2                         #  WE HAVE TO DO ALL THREE MULTIPLIES SINCE
047827,001519: 00,2051           00006                          EXTEND                                         #  MPAC +1 AND MPAC +2 MIGHT HAVE SIGN
047828,001520: 00,2052           70135                          MP       MPTEMP                                #  DISAGREEMENT WITH A SHIFT RIGHT OF 1.
047829,001521: 00,2053           56155                          XCH      MPAC       +1                         
047830,001522: 00,2054           00006                          EXTEND                                         
047831,001523: 00,2055           70135                          MP       MPTEMP                                
047832,001524: 00,2056           56155                          XCH      MPAC       +1                         #  TRIAL MINOR PART.
047833,001525: 00,2057           60001                          AD       L                                     
047834,001526: 
047835,001527: 00,2060           60000        VSHR2             DOUBLE                                         #  (FINISH VECTOR COMPONENT SHIFT RIGHT
047836,001528: 00,2061           54156                          TS       MPAC       +2                         #  AND ROUND.
047837,001529: 00,2062           12064                          TCF      +2                                    
047838,001530: 00,2063           26155                          ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
047839,001531: 
047840,001532: 00,2064           34714                          CAF      ZERO                                  
047841,001533: 00,2065           54156                          TS       MPAC       +2                         
047842,001534: 00,2066           56154                          XCH      MPAC                                  #  SETTING TO ZERO SO FOLLOWING DAS WORKS.
047843,001535: 00,2067           00006                          EXTEND                                         
047844,001536: 00,2070           70135                          MP       MPTEMP                                
047845,001537: 00,2071           20155                          DAS      MPAC                                  #  AGAIN NO OVERFLOW.
047846,001538: 00,2072           00002                          TC       Q                                     
047847,001539: 
047848,001540: 00,2073           30135        VSHRRND           CA       MPTEMP                                #  ENTRY TO SHIFT RIGHT AND ROUND MPAC WHEN
047849,001541: 00,2074           00006                          EXTEND                                         #  MPAC CONTAINS A VECTOR COMPONENT.
047850,001542: 00,2075           70155                          MP       MPAC       +1                         
047851,001543: 00,2076           54155                          TS       MPAC       +1                         
047852,001544: 00,2077           56001                          XCH      L                                     
047853,001545: 00,2100           12060                          TCF      VSHR2                                 #  GO ADD ONE IF NECESSARY AND FINISH.
047854,001546: 
047855,001547:                                                                                                 # # Page 1121
047856,001548:                                                                                                 #           ROUTINE FOR SHORT SCALAR SHIFT LEFT (AND MAYBE ROUND).
047857,001549: 
047858,001550: 00,2101           30021        TSSL              CA       SR                                    #  GET SHIFT COUNT FOR SR.
047859,001551: 00,2102           54135                 +1       TS       MPTEMP                                
047860,001552: 
047861,001553: 00,2103           00006                 +2       EXTEND                                         #  ENTRY HERE FROM SL FOR SCALARS.
047862,001554: 00,2104           30156                          DCA      MPAC       +1                         #  SHIFTING LEFT ONE PLACE AT A TIME IS
047863,001555: 00,2105           20156                          DAS      MPAC       +1                         #  FASTER THAN DOING THE WHOLE SHIFT WITH
047864,001556: 00,2106           60154                          AD       MPAC                                  #  MULTIPLIES ASSUMING THAT FREQUENCY OF
047865,001557: 00,2107           60154                          AD       MPAC                                  #  SHIFT COUNTS GOES DOWN RAPIDLY AS A
047866,001558: 00,2110           54154                          TS       MPAC                                  #  FUNCTION OF THEIR MAGNITUDE.
047867,001559: 00,2111           12113                          TCF      +2                                    
047868,001560: 00,2112           54121                          TS       OVFIND                                #  OVERFLOW. (LEAVES OVERFLOW-CORRECTED
047869,001561:                                                                                                 #                                           RESULT ANYWAY).
047870,001562: 00,2113           10135                          CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNT.
047871,001563: 00,2114           12102                          TCF      TSSL       +1                         
047872,001564: 
047873,001565: 00,2115           10020                          CCS      CYR                                   #  SEE IF ROUND WANTED.
047874,001566: 00,2116           07105        ROUND             TC       ROUNDSUB                              #  YES - ROUND AND EXIT.
047875,001567: 00,2117           16030                          TCF      DANZIG                                #  SL LEAVES A ZERO IN CYR FOR NO ROUND.
047876,001568: 00,2120           16030                          TCF      DANZIG                                #  NO - EXIT IMMEDIATELY
047877,001569: 
047878,001570:                                                                                                 # # Page 1122
047879,001571:                                                                                                 #  VECTOR SHIFTING ROUTINES.
047880,001572: 
047881,001573: 00,2121           34716        SHORTV            CAF      LOW3                                  #  SAVE 3 BIT SHIFT COUNT - 1 WITHOUT
047882,001574: 00,2122           70020                          MASK     CYR                                   #  EDITING CYR.
047883,001575: 00,2123           54135                          TS       MPTEMP                                
047884,001576: 00,2124           10020                          CCS      CYR                                   #  SEE IF LEFT OR RIGHT SHIFT.
047885,001577: 00,2125           12145                          TCF      VSSL                                  #  VECTOR SHIFT LEFT.
047886,001578: 00,2126           00176        OCT176            OCT      176                                   #  USED IN PROCESSED SHIFTS WITH - COUNT.
047887,001579: 
047888,001580: 00,2127           50135        VSSR              INDEX    MPTEMP                                #  (ENTRY FROM SR). PICK UP SHIFTING BIT.
047889,001581: 00,2130           34675                          CAF      BIT14                                 #  MPTEMP CONTAINS THE SHIFT COUNT - 1.
047890,001582: 00,2131           54135                          TS       MPTEMP                                
047891,001583: 00,2132           02073                          TC       VSHRRND                               #  SHIFT X COMPONENT.
047892,001584: 
047893,001585: 00,2133           52155                          DXCH     MPAC                                  #  SWAP X AND Y COMPONENTS.
047894,001586: 00,2134           52160                          DXCH     MPAC       +3                         
047895,001587: 00,2135           52155                          DXCH     MPAC                                  
047896,001588: 00,2136           02073                          TC       VSHRRND                               #  SHIFT Y COMPONENT.
047897,001589: 
047898,001590: 00,2137           52155                          DXCH     MPAC                                  #  SWAP Y AND Z COMPONENTS.
047899,001591: 00,2140           52162                          DXCH     MPAC       +5                         
047900,001592: 00,2141           52155                          DXCH     MPAC                                  
047901,001593: 00,2142           02073                          TC       VSHRRND                               #  SHIFT Z COMPONENT.
047902,001594: 
047903,001595: 00,2143           17367                          TCF      VROTATEX                              #  RESTORE COMPONENTS TO PROPER PLACES.
047904,001596: 
047905,001597:                                                                                                 # # Page 1123
047906,001598:                                                                                                 #  VECTOR SHIFT LEFT - DONE ONE PLACE AT A TIME.
047907,001599: 
047908,001600: 00,2144           54135                 -1       TS       MPTEMP                                #  SHIFTING LOOP.
047909,001601: 
047910,001602: 00,2145           00006        VSSL              EXTEND                                         
047911,001603: 00,2146           30155                          DCA      MPAC                                  
047912,001604: 00,2147           20155                          DAS      MPAC                                  
047913,001605: 00,2150           00006                          EXTEND                                         
047914,001606: 00,2151           12153                          BZF      +2                                    
047915,001607: 00,2152           06766                          TC       OVERFLOW                              
047916,001608: 
047917,001609: 00,2153           00006                          EXTEND                                         
047918,001610: 00,2154           30160                          DCA      MPAC       +3                         
047919,001611: 00,2155           20160                          DAS      MPAC       +3                         
047920,001612: 00,2156           00006                          EXTEND                                         
047921,001613: 00,2157           12161                          BZF      +2                                    
047922,001614: 00,2160           06763                          TC       OVERFLWY                              
047923,001615: 
047924,001616: 00,2161           00006                          EXTEND                                         
047925,001617: 00,2162           30162                          DCA      MPAC       +5                         
047926,001618: 00,2163           20162                          DAS      MPAC       +5                         
047927,001619: 00,2164           00006                          EXTEND                                         
047928,001620: 00,2165           12167                          BZF      +2                                    
047929,001621: 00,2166           06760                          TC       OVERFLWZ                              
047930,001622: 
047931,001623: 00,2167           10135                          CCS      MPTEMP                                #  LOOP ON DECREMENTED SHIFT COUNTER.
047932,001624: 00,2170           12144                          TCF      VSSL       -1                         
047933,001625: 00,2171           16030                          TCF      DANZIG                                #  EXIT.
047934,001626: 
047935,001627:                                                                                                 # # Page 1124
047936,001628:                                                                                                 #           TSLC - TRIPLE SHIFT LEFT AND COUNT. SHIFTS MPAC LEFT UNTIL GREATER THAN .5 IN MAGNITUDE, LEAVING
047937,001629:                                                                                                 #  THE COMPLEMENT OF THE NUMBER OF SHIFTS REQUIRED IN X.
047938,001630: 
047939,001631: 00,2172           54135        TSLC2             TS       MPTEMP                                #  START BY ZEROING SHIFT COUNT (IN A NOW).
047940,001632: 00,2173           06672                          TC       BRANCH                                #  EXIT WITH NO SHIFTING IF ARGUMENT ZERO.
047941,001633: 00,2174           12176                          TCF      +2                                    
047942,001634: 00,2175           12212                          TCF      ENDTSLC                               #  STORES ZERO SHIFT COUNT IN THIS CASE.
047943,001635: 
047944,001636: 00,2176           07226                          TC       TPAGREE                               #  MAY CAUSE UPSHIFT OF ONE EXTRA PLACE.
047945,001637: 
047946,001638: 00,2177           30154                          CA       MPAC                                  #  BEGIN NORMALIZATION LOOP.
047947,001639: 00,2200           12207                          TCF      TSLCTEST                              
047948,001640: 
047949,001641: 00,2201           24135        TSLCLOOP          INCR     MPTEMP                                #  INCREMENT SHIFT COUNTER.
047950,001642: 00,2202           00006                          EXTEND                                         
047951,001643: 00,2203           30156                          DCA      MPAC       +1                         
047952,001644: 00,2204           20156                          DAS      MPAC       +1                         
047953,001645: 00,2205           60154                          AD       MPAC                                  
047954,001646: 00,2206           26154                          ADS      MPAC                                  
047955,001647: 00,2207           60000        TSLCTEST          DOUBLE                                         #  SEE IF (ANOTHER) SHIFT IS REQUIRED
047956,001648: 00,2210           54000                          OVSK                                           
047957,001649: 00,2211           12201                          TCF      TSLCLOOP                              #  YES - INCREMENT COUNT AND SHIFT AGAIN.
047958,001650: 
047959,001651: 00,2212           40135        ENDTSLC           CS       MPTEMP                                
047960,001652: 00,2213           16572                          TCF      STORE1                                #  STORE SHIFT COUNT AND RETURN TO DANZIG.
047961,001653: 
047962,001654:                                                                                                 # # Page 1125
047963,001655:                                                                                                 #           THE FOLLOWING ROUTINE PROCESSES THE GENERAL SHIFT INSTRUCTIONS SR, SRR, SL, AND SLR.
047964,001656:                                                                                                 #  THE GIVEN ADDRESS IS DECODED AS FOLLOWS:
047965,001657: 
047966,001658:                                                                                                 #           BITS 1-7    SHIFT COUNT (SUBADDRESS) LESS THAN 125 DECIMAL.
047967,001659:                                                                                                 #           BIT 8       PSEUDO SIGN BIT (DETECTS CHANGE IN SIGN IN INDEXED SHIFTS).
047968,001660:                                                                                                 #           BIT 9       0 FOR LEFT SHIFT, AND 1 FOR RIGHT SHIFT.
047969,001661:                                                                                                 #           BIT 10      1 FOR TERMINAL ROUND ON SCALAR SHIFTS, 0 OTHERWISE.
047970,001662:                                                                                                 #           BITS 11-13  0.
047971,001663:                                                                                                 #           BIT 14      1.
047972,001664:                                                                                                 #           BIT 15      0.
047973,001665: 
047974,001666:                                                                                                 #  THE ABOVE ENCODING IS DONE BY THE YUL SYSTEM.
047975,001667: 
047976,001668: 
047977,001669: 00,2214           70116        GENSHIFT          MASK     ADDRWD                                #  GET SHIFT COUNT, TESTING FOR ZERO.
047978,001670: 00,2215           10000                          CCS      A                                     #  (ARRIVES WITH C(A) = LOW7).
047979,001671: 00,2216           12224                          TCF      GENSHFT2                              #  IF NON-ZERO, PROCEED WITH DECREMENTED CT
047980,001672: 
047981,001673: 00,2217           34701                          CAF      BIT10                                 #  ZERO SHIFT COUNT. NO SHIFTS NEEDED BUT
047982,001674: 00,2220           70116                          MASK     ADDRWD                                #  WE MIGHT HAVE TO ROUND MPAC ON SLR AND
047983,001675: 00,2221           10000                          CCS      A                                     #  SRR (SCALAR ONLY).
047984,001676: 00,2222           07105                          TC       ROUNDSUB                              
047985,001677: 00,2223           16030                          TCF      DANZIG                                
047986,001678: 
047987,001679: 00,2224           54135        GENSHFT2          TS       MPTEMP                                #  DECREMENTED SHIFT COUNT TO MPTEMP.
047988,001680: 00,2225           34703                          CAF      BIT8                                  #  TEST MEANING OF LOW SEVEN BIT COUNT IN
047989,001681: 00,2226           00006                          EXTEND                                         #  MPTEMP NOW.
047990,001682: 00,2227           70116                          MP       ADDRWD                                
047991,001683: 00,2230           76214                          MASK     LOW2                                  #  JUMPS ON SHIFT DIRECTION (BIT8) AND
047992,001684: 00,2231           50000                          INDEX    A                                     
047993,001685: 00,2232           12233                          TCF      +1                                    #  ORIGINAL SHIFT DIRECTION (BIT 9)
047994,001686: 00,2233           12332                          TCF      RIGHT-                                #  NEGATIVE SHIFT COUNT FOR SL OR SLR.
047995,001687: 00,2234           12342                          TCF      LEFT                                  #  SL OR SLR.
047996,001688: 00,2235           12336                          TCF      LEFT-                                 #  NEGATIVE SHIFT COUNT WITH SR OR SRR.
047997,001689: 
047998,001690:                                                                                                 # # Page 1126
047999,001691:                                                                                                 #           GENERAL SHIFT RIGHT.
048000,001692: 
048001,001693: 00,2236           10163        RIGHT             CCS      MODE                                  #  SET IF VECTOR OR SCALAR.
048002,001694: 00,2237           12277                          TCF      GENSCR                                
048003,001695: 00,2240           12277                          TCF      GENSCR                                
048004,001696: 
048005,001697: 00,2241           30135                          CA       MPTEMP                                #  SEE IF SHIFT COUNT LESS THAN 14D.
048006,001698: 00,2242           63726        VRIGHT2           AD       NEG12                                 
048007,001699: 00,2243           00006                          EXTEND                                         
048008,001700: 00,2244           62127                          BZMF     VSSR                                  #  IF SO, BRANCH AND SHIFT IMMEDIATELY.
048009,001701: 
048010,001702: 00,2245           67716                          AD       NEGONE                                #  IF NOT, REDUCE MPTEMP BY A TOTAL OF 14.
048011,001703: 00,2246           54135                          TS       MPTEMP                                #  AND DO A SHIFT RIGHT AND ROUND BY 14.
048012,001704: 00,2247           34714                          CAF      ZERO                                  #  THE ROUND AT THIS STAGE MAY INTRODUCE A
048013,001705: 00,2250           54001                          TS       L                                     #  ONE BIT ERROR IN A SHIFT RIGHT 15D.
048014,001706: 00,2251           56154                          XCH      MPAC                                  
048015,001707: 00,2252           56155                          XCH      MPAC       +1                         
048016,001708: 00,2253           02272                          TC       SETROUND                              #  X COMPONENT NOW SHIFTED, SO MAKE UP THE
048017,001709: 00,2254           20155                          DAS      MPAC                                  #  ROUNDING QUANTITY (0 IN A AND 0 OR +-1
048018,001710:                                                                                                 #                                           IN L).
048019,001711: 00,2255           56157                          XCH      MPAC       +3                         #  REPEAT THE ABOVE PROCESS FOR Y AND Z.
048020,001712: 00,2256           56160                          XCH      MPAC       +4                         
048021,001713: 00,2257           02272                          TC       SETROUND                              
048022,001714: 00,2260           20160                          DAS      MPAC       +3                         #  NO OVERFLOW ON THESE ADDS.
048023,001715: 
048024,001716: 00,2261           56161                          XCH      MPAC       +5                         
048025,001717: 00,2262           56162                          XCH      MPAC       +6                         
048026,001718: 00,2263           02272                          TC       SETROUND                              
048027,001719: 00,2264           20162                          DAS      MPAC       +5                         
048028,001720: 
048029,001721: 00,2265           10135                          CCS      MPTEMP                                #  SEE IF DONE, DOING FINAL DECREMENT.
048030,001722: 00,2266           54135                          TS       MPTEMP                                
048031,001723: 00,2267           12242                          TCF      VRIGHT2                               
048032,001724: 00,2270           04604        BIASLO            DEC      .2974      B-1                        #  SQRT CONSTANT
048033,001725: 
048034,001726: 00,2271           16030                          TCF      DANZIG                                
048035,001727: 
048036,001728: 
048037,001729: 00,2272           60000        SETROUND          DOUBLE                                         #  MAKES UP ROUNDING QUANTITY FROM ARRIVING
048038,001730: 00,2273           54156                          TS       MPAC       +2                         #  C(A). L IS ZERO INITIALLY.
048039,001731: 00,2274           34714                          CAF      ZERO                                  
048040,001732: 00,2275           56001                          XCH      L                                     
048041,001733: 00,2276           00002                          TC       Q                                     #  RETURN AND DO THE DAS, RESETTING L TO 0.
048042,001734: 
048043,001735:                                                                                                 # # Page 1127
048044,001736:                                                                                                 #           PROCESS SR AND SRR FOR SCALARS.
048045,001737: 
048046,001738: 00,2277           30135        GENSCR            CA       MPTEMP                                #  SEE IF THE ORIGINAL SHIFT COUNT WAS LESS
048047,001739: 00,2300           63726                 +1       AD       NEG12                                 #  THAN 14D.
048048,001740: 00,2301           00006                          EXTEND                                         
048049,001741: 00,2302           62322                          BZMF     DOSSHFT                               #  DO THE SHIFT IMMEDIATELY IF SO.
048050,001742: 
048051,001743: 00,2303           67716                 +4       AD       NEGONE                                #  IF NOT, DECREMENT SHIFT COUNT BY 14D AND
048052,001744: 00,2304           54135                          TS       MPTEMP                                #  SHIFT MPAC RIGHT 14 PLACES.
048053,001745: 00,2305           34714                          CAF      ZERO                                  
048054,001746: 00,2306           56154                          XCH      MPAC                                  
048055,001747: 00,2307           56155                          XCH      MPAC       +1                         
048056,001748: 00,2310           54156                          TS       MPAC       +2                         
048057,001749: 00,2311           10135                          CCS      MPTEMP                                #  SEE IF FINISHED, DO FINAL DECREMENT.
048058,001750: 00,2312           54135                          TS       MPTEMP                                
048059,001751: 00,2313           02300                          TC       GENSCR     +1                         
048060,001752: 00,2314           22650        SLOPEHI           DEC      .5884                                 #  SQRT CONSTANT.
048061,001753: 00,2315           34701                          CAF      BIT10                                 #  FINISHED WITH SHIFT. SEE IF ROUND
048062,001754: 00,2316           70116                          MASK     ADDRWD                                #  WANTED.
048063,001755: 00,2317           10000                          CCS      A                                     
048064,001756: 00,2320           07105                          TC       ROUNDSUB                              
048065,001757: 00,2321           16030                          TCF      DANZIG                                #  DO SO AND/OR EXIT.
048066,001758: 
048067,001759: 00,2322           50135        DOSSHFT           INDEX    MPTEMP                                #  PICK UP SHIFTING BIT.
048068,001760: 00,2323           34675                          CAF      BIT14                                 
048069,001761: 00,2324           54135                          TS       MPTEMP                                
048070,001762: 00,2325           34701                          CAF      BIT10                                 #  SEE IF TERMINAL ROUND DESIRED.
048071,001763: 00,2326           70116                          MASK     ADDRWD                                
048072,001764: 00,2327           10000                          CCS      A                                     
048073,001765: 00,2330           12031                          TCF      RIGHTR                                #  YES.
048074,001766: 00,2331           12033                          TCF      MPACSHR                               #  JUST SHIFT RIGHT.
048075,001767: 
048076,001768:                                                                                                 # # Page 1128
048077,001769:                                                                                                 #           PROCESS THE RIGHT- (SL(R) WITH A NEGATIVE COUNT), LEFT-, AND LEFT OPTIONS.
048078,001770: 
048079,001771: 00,2332           40135        RIGHT-            CS       MPTEMP                                #  GET ABSOLUTE VALUE - 1 OF SHIFT COUNT
048080,001772: 00,2333           62126                          AD       OCT176                                #  UNDERSTANDING THAT BIT8 (PSEUDO-SIGN)
048081,001773: 00,2334           54135                          TS       MPTEMP                                #  WAS 1 INITIALLY.
048082,001774: 00,2335           12236                          TCF      RIGHT                                 #  DO NORMAL SHIFT RIGHT.
048083,001775: 
048084,001776: 00,2336           42126        LEFT-             CS       OCT176                                #  SAME PROLOGUE TO LEFT FOR INDEXED RIGHT
048085,001777: 00,2337           60135                          AD       MPTEMP                                #  SHIFT WHOSE NET SHIFT COUNT IS NEGATIVE
048086,001778: 00,2340           40000                          COM                                            
048087,001779: 00,2341           54135                          TS       MPTEMP                                
048088,001780: 
048089,001781: 00,2342           10163        LEFT              CCS      MODE                                  #  SINCE LEFT SHIFTING IS DONE ONE PLACE AT
048090,001782: 00,2343           12346                          TCF      GENSCL                                #  A TIME, NO COMPARISON WITH 14 NEED BE
048091,001783: 00,2344           12346                          TCF      GENSCL                                #  DONE. FOR SCALARS, SEE IF TERMINAL ROUND
048092,001784: 00,2345           12145                          TCF      VSSL                                  #  DESIRED. FOR VECTORS, SHIFT IMMEDIATELY.
048093,001785: 
048094,001786: 00,2346           40116        GENSCL            CS       ADDRWD                                #  PUT ROUNDING BIT (BIT 10 OF ADDRWD)INTO
048095,001787: 00,2347           00006                          EXTEND                                         #  BIT 15 OF CYR WHERE THE ROUNDING BIT OF
048096,001788: 00,2350           74705                          MP       BIT6                                  #  A SHORT SHIFT LEFT WOULD BE
048097,001789: 00,2351           54020                          TS       CYR                                   
048098,001790: 00,2352           12103                          TCF      TSSL       +2                         #  DO THE SHIFT.
048099,001791: 
048100,001792:                                                                                                 # # Page 1129
048101,001793:                                                                                                 #           SCALAR DIVISION INSTRUCTIONS, DDV AND BDDV, ARE EXECUTED HERE. AT THIS POINT, THE DIVIDEND IS IN MPAC
048102,001794:                                                                                                 #  AND THE DIVISOR IS IN BUF.
048103,001795: 
048104,001796: 00,2353           44712        DDV/BDDV          CS       ONE                                   #  INITIALIZATION.
048105,001797: 00,2354           54136                          TS       DVSIGN                                #  +-1 FOR POSITIVE QUOTIENT - -0 FOR NEG.
048106,001798: 00,2355           54137                          TS       DVNORMCT                              #  DIVIDEND NORMALIZATION COUNT.
048107,001799: 00,2356           54140                          TS       MAXDVSW                               #  NEAR-ONE DIVIDE FLAG.
048108,001800: 
048109,001801: 00,2357           10130                          CCS      BUF                                   #  FORCE BUF POSITIVE WITH THE MAJOR PART
048110,001802: 00,2360           12516                          TCF      BUFPOS                                #  NON-ZERO.
048111,001803: 00,2361           12363                          TCF      +2                                    
048112,001804: 00,2362           12531                          TCF      BUFNEG                                
048113,001805: 
048114,001806: 00,2363           54156        BUFZERO           TS       MPAC       +2                         #  ZERO THIS.
048115,001807: 00,2364           07226                          TC       TPAGREE                               #  FORCE SIGN AGREEMENT BEFORE OVERFLOW
048116,001808: 
048117,001809: 00,2365           10154                          CCS      MPAC                                  #  TEST TO SEE IF MPAC NON-ZERO.  (TOO BIG)
048118,001810: 00,2366           12414                          TCF      OVF+                                  #  MAJOR PART OF DIVIDEND IS POSITIVE NON-0
048119,001811: 00,2367           12371                          TCF      +2                                    
048120,001812: 00,2370           12413                          TCF      OVF+       -1                         #  MAJOR PART OF DIVIDEND IS NEG. NON-ZERO
048121,001813: 
048122,001814: 00,2371           56131                          XCH      BUF        +1                         #  SHIFT DIVIDEND AND DIVISOR LEFT 14
048123,001815: 00,2372           56130                          XCH      BUF                                   
048124,001816: 00,2373           56155                          XCH      MPAC       +1                         
048125,001817: 00,2374           56154                          XCH      MPAC                                  
048126,001818: 00,2375           10130                          CCS      BUF                                   #  TRY AGAIN ON FORMER MINOR PART.
048127,001819: 00,2376           12422                          TCF      BUF+                                  
048128,001820: 00,2377           12401                          TCF      +2                                    #  OVERFLOW ON ZERO DIVISOR.
048129,001821: 00,2400           12416                          TCF      BUF-                                  
048130,001822: 
048131,001823: 00,2401           40154                          CS       MPAC                                  #  SIGN OF MPAC DETERMINES SIGN OF RESULT.
048132,001824: 00,2402           00006        SGNDVOVF          EXTEND                                         
048133,001825: 00,2403           62405                          BZMF     +2                                    
048134,001826: 00,2404           24136                          INCR     DVSIGN                                #  NEGMAX IN MPAC PERHAPS.
048135,001827: 00,2405           34672        DVOVF             CAF      POSMAX                                #  ON DIVISION OVERFLOW OF ANY SORT, SET
048136,001828: 00,2406           54154                          TS       MPAC                                  #  SET DP MPAC TO +-POSMAX.
048137,001829: 00,2407           02630                          TC       FINALDV    +3                         
048138,001830: 00,2410           34712                          CAF      ONE                                   #  SET OVEFLOW INDICATOR AND EXIT.
048139,001831: 00,2411           54121                          TS       OVFIND                                
048140,001832: 00,2412           06030                          TC       DANZIG                                
048141,001833: 
048142,001834: 
048143,001835: 00,2413           24136        -1                INCR     DVSIGN                                
048144,001836: 00,2414           40131        OVF+              CS       BUF        +1                         #  LOAD LOWER ORDER PART OF DIVISOR.
048145,001837: 00,2415           12402                          TCF      SGNDVOVF                              #  GET SIGN OF RESULT.
048146,001838: 
048147,001839: 00,2416           00006        BUF-              EXTEND                                         #  IF BUF IS NEGATIVE, COMPLEMENT IT AND
048148,001840: 00,2417           40131                          DCS      BUF                                   #  MAINTAIN DVSIGN FOR FINAL QUOTIENT SIGN.
048149,001841: 00,2420           52131                          DXCH     BUF                                   
048150,001842: 00,2421           24136                          INCR     DVSIGN                                #  NOW -0.
048151,001843: 
048152,001844:                                                                                                 # # Page 1130
048153,001845: 00,2422           10154        BUF+              CCS      MPAC                                  #  FORCE MPAC POSITIVE, CHECKING FOR ZERO
048154,001846: 00,2423           12437                          TCF      MPAC+                                 #  DIVIDEND IN THE PROCESS.
048155,001847: 00,2424           12426                          TCF      +2                                    
048156,001848: 00,2425           12433                          TCF      MPAC-                                 
048157,001849: 00,2426           10155                          CCS      MPAC       +1                         
048158,001850: 00,2427           12437                          TCF      MPAC+                                 
048159,001851: 00,2430           16030                          TCF      DANZIG                                #  EXIT IMMEDIATELY ON ZERO DIVIDEND.
048160,001852: 00,2431           12433                          TCF      MPAC-                                 
048161,001853: 00,2432           16030                          TCF      DANZIG                                
048162,001854: 
048163,001855: 00,2433           00006        MPAC-             EXTEND                                         #  FORCE MPAC POSITIVE AS BUF IN BUF-.
048164,001856: 00,2434           40155                          DCS      MPAC                                  
048165,001857: 00,2435           52155                          DXCH     MPAC                                  
048166,001858: 00,2436           24136                          INCR     DVSIGN                                #  NOW +1 OR -0.
048167,001859: 
048168,001860:                                                                                                 # # Page 1131
048169,001861: 00,2437           40154        MPAC+             CS       MPAC                                  #  CHECK FOR DIVISION OVERFLOW. IF THE
048170,001862: 00,2440           67716                          AD       NEGONE                                #  MAJOR PART OF THE DIVIDEND IS LESS THAN
048171,001863: 00,2441           60130                          AD       BUF                                   #  THE MAJOR PART OF THE DIVISOR BY AT
048172,001864: 00,2442           10000                          CCS      A                                     #  LEAST TWO, WE CAN PROCEED IMMEDIATELY
048173,001865: 00,2443           12505                          TCF      DVNORM                                #  WITHOUT NORMALIZATION PRODUCING A DVMAX.
048174,001866: 00,2444           60001        -1/2+2            OCT      60001                                 #  USED IN SQRTSUB.
048175,001867: 
048176,001868: 00,2445           12446                          TCF      +1                                    #  IF THE ABOVE DOES NOT HOLD, FORCE SIGN
048177,001869: 00,2446           34675                          CAF      HALF                                  #  AGREEMENT IN NUMERATOR AND DENOMINATOR
048178,001870: 00,2447           60000                          DOUBLE                                         #  TO FACILITATE OVERFLOW AND NEAR-ONE
048179,001871: 00,2450           60155                          AD       MPAC       +1                         #  CHECKING.
048180,001872: 00,2451           54155                          TS       MPAC       +1                         
048181,001873: 00,2452           34714                          CAF      ZERO                                  
048182,001874: 00,2453           64672                          AD       POSMAX                                
048183,001875: 00,2454           26154                          ADS      MPAC                                  
048184,001876: 
048185,001877: 00,2455           34675                          CAF      HALF                                  #  SAME FOR BUF.
048186,001878: 00,2456           60000                          DOUBLE                                         
048187,001879: 00,2457           60131                          AD       BUF        +1                         
048188,001880: 00,2460           54131                          TS       BUF        +1                         
048189,001881: 00,2461           34714                          CAF      ZERO                                  
048190,001882: 00,2462           64672                          AD       POSMAX                                
048191,001883: 00,2463           26130                          ADS      BUF                                   
048192,001884: 
048193,001885: 00,2464           40154                          CS       MPAC                                  #  CHECK MAGNITUDE OF SIGN-CORRECTED
048194,001886: 00,2465           60130                          AD       BUF                                   #  OPERANDS.
048195,001887: 00,2466           10000                          CCS      A                                     
048196,001888: 00,2467           12505                          TCF      DVNORM                                #  DIVIDE OK - WILL NOT BECOME MAXOV CASE.
048197,001889: 00,2470           00133        LBUF2             ADRES    BUF2                                  
048198,001890: 00,2471           12405                          TCF      DVOVF                                 #  DIVISOR NOT LESS THAN DIVIDEND - OVF.
048199,001891: 
048200,001892: 00,2472           54140                          TS       MAXDVSW                               #  IF THE MAJOR PARTS OF THE DIVIDEND AND
048201,001893: 00,2473           40155                          CS       MPAC       +1                         #  DIVISOR ARE EQUAL, A SPECIAL APPROXIMA-
048202,001894: 00,2474           60131                          AD       BUF        +1                         #  TION IS USED (PROVIDED THE DIVISION IS
048203,001895: 00,2475           00006                          EXTEND                                         #  POSSIBLE, OF COURSE).
048204,001896: 00,2476           62405                          BZMF     DVOVF                                 
048205,001897: 00,2477           12505                          TCF      DVNORM                                #  IF NO OVERFLOW.
048206,001898: 
048207,001899:                                                                                                 # # Page 1132
048208,001900: 00,2500           00006        BUFNORM           EXTEND                                         #  ADD -1 TO AUGMENT SHIFT COUNT AND SHIFT
048209,001901: 00,2501           24137                          AUG      DVNORMCT                              #  LEFT ONE PLACE.
048210,001902: 00,2502           00006                          EXTEND                                         
048211,001903: 00,2503           30131                          DCA      BUF                                   
048212,001904: 00,2504           20131                          DAS      BUF                                   
048213,001905: 
048214,001906: 00,2505           30130        DVNORM            CA       BUF                                   #  SEE IF DIVISOR NORMALIZED YET.
048215,001907: 00,2506           60000                          DOUBLE                                         
048216,001908: 00,2507           54000                          OVSK                                           
048217,001909: 00,2510           12500                          TCF      BUFNORM                               #  NO - SHIFT LEFT ONE AND TRY AGAIN.
048218,001910: 
048219,001911: 00,2511           52155                          DXCH     MPAC                                  #  CALL DIVIDEND NORMALIZATION SEQUENCE
048220,001912: 00,2512           50137                          INDEX    DVNORMCT                              #  PRIOR TO DOING THE DIVIDE.
048221,001913: 00,2513           02565                          TC       MAXTEST                               
048222,001914: 
048223,001915: 00,2514           54156                          TS       MPAC       +2                         #  RETURNS WITH DIVISION DONE AND C(A) = 0.
048224,001916: 00,2515           16030                          TCF      DANZIG                                
048225,001917: 
048226,001918: 00,2516           10000        BUFPOS            CCS      A                                     
048227,001919: 00,2517           12422                          TCF      BUF+                                  #  TO BUF+ IF BUF IS GREATER THAN +1.
048228,001920: 
048229,001921: 00,2520           40131                          CS       BUF        +1                         #  IF BUF IS +1, FORCING SIGN AGREEMENT
048230,001922: 00,2521           00006                          EXTEND                                         #  MAY CAUSE BUF TO BECOME ZERO.
048231,001923: 00,2522           62422                          BZMF     BUF+                                  #  BRANCH IF SIGNS AGREE.
048232,001924: 
048233,001925: 00,2523           34675                          CA       HALF                                  #  SIGNS DISAGREE.  FORCE AGREEMENT.
048234,001926: 00,2524           60000                 +6       DOUBLE                                         
048235,001927: 00,2525           26131                          ADS      BUF        +1                         
048236,001928: 00,2526           34714                          CA       ZERO                                  
048237,001929: 00,2527           54130                          TS       BUF                                   
048238,001930: 00,2530           12363                          TCF      BUFZERO                               
048239,001931: 
048240,001932: 
048241,001933: 00,2531           10000        BUFNEG            CCS      A                                     
048242,001934: 00,2532           12416                          TCF      BUF-                                  #  TO BUF- IF BUF IS LESS THAN -1.
048243,001935: 
048244,001936: 00,2533           30131                          CA       BUF        +1                         #  IF BUF IS -1, FORCING SIGN AGREEMENT
048245,001937: 00,2534           00006                          EXTEND                                         #  MAY CAUSE BUF TO BECOME ZERO.
048246,001938: 00,2535           62416                          BZMF     BUF-                                  #  BRANCH IF SIGNS AGREE.
048247,001939: 
048248,001940: 00,2536           44675                          CS       HALF                                  #  SIGNS DISAGREE.  FORCE AGREEMENT.
048249,001941: 00,2537           12524                          TCF      BUFPOS     +6                         
048250,001942: 
048251,001943:                                                                                                 # # Page 1133
048252,001944:                                                                                                 #           THE FOLLOWING ARE PROLOGUES TO SHIFT THE DIVIDEND ARRIVING IN A AND L BEFORE THE DIVIDE.
048253,001945: 
048254,001946: 00,2540           22021                 -21D     LXCH     SR                                    #  SPECIAL PROLOGUE FOR UNIT WHEN THE
048255,001947: 00,2541           00006                          EXTEND                                         #  LENGTH OF THE ARGUMENT WAS NOT LESS THAN
048256,001948: 00,2542           74675                          MP       HALF                                  #  .5. IN THIS CASE, EACH COMPONENT MUST BE
048257,001949: 00,2543           56001                          XCH      L                                     #  SHIFTED RIGHT ONE TO PRODUCE A HALF-UNIT
048258,001950: 00,2544           60021                          AD       SR                                    #  VECTOR.
048259,001951: 00,2545           56001                          XCH      L                                     
048260,001952: 00,2546           12571                          TCF      GENDDV     +1                         #  WITH DP DIVIDEND IN A,L.
048261,001953: 
048262,001954: 00,2547           20001                          DDOUBL                                         #  PROLOGUE WHICH NORMALIZES THE DIVIDEND
048263,001955: 00,2550           20001                          DDOUBL                                         #  WHEN IT IS KNOWN THAT NO DIVISION
048264,001956: 00,2551           20001                          DDOUBL                                         #  OVEFLOW WILL OCCUR.
048265,001957: 00,2552           20001                          DDOUBL                                         
048266,001958: 00,2553           20001                          DDOUBL                                         
048267,001959: 00,2554           20001                          DDOUBL                                         
048268,001960: 00,2555           20001                          DDOUBL                                         
048269,001961: 00,2556           20001                          DDOUBL                                         
048270,001962: 00,2557           20001                          DDOUBL                                         
048271,001963: 00,2560           20001                          DDOUBL                                         
048272,001964: 00,2561           20001                          DDOUBL                                         
048273,001965: 00,2562           20001                          DDOUBL                                         
048274,001966: 00,2563           20001                          DDOUBL                                         
048275,001967: 00,2564           52155                          DXCH     MPAC                                  
048276,001968: 
048277,001969: 00,2565           10140        MAXTEST           CCS      MAXDVSW                               #  0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
048278,001970: 00,2566           06552        BIASHI            DEC      .4192      B-1                        #  SQRT CONSTANTS
048279,001971: 
048280,001972: 00,2567           12642                          TCF      MAXDV                                 #  CHECK TO SEE IF THAY ARE NOW EQUAL.
048281,001973: 
048282,001974:                                                                                                 # # Page 1134
048283,001975:                                                                                                 #           THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY BUF AND LEAVES
048284,001976:                                                                                                 #  THE RESULT IN MPAC. THE FOLLOWING CONDITIONS MUST BE SATISFIED:
048285,001977: 
048286,001978:                                                                                                 #           1.  THE DIVISOR (BUF) MUST BE POSITIVE AND NOT LESS THAN .5.
048287,001979: 
048288,001980:                                                                                                 #           2.  THE DIVIDEND (MPAC) MUST BE POSITIVE WITH THE MAJOR PART OF MPAC STRICTLY LESS THAN THAT OF BUF
048289,001981:                                                                                                 #  (A SPECIAL APPROXIMATION, MAXDV, IS USED WHEN THE MAJOR PARTS ARE EQUAL).
048290,001982: 
048291,001983:                                                                                                 #           UNDERSTANDING THAT A/B = Q + S(R/B) WHERE S = 2(-14) AND Q AND R ARE QUOTIENT AND REMAINDER, RESPEC-
048292,001984:                                                                                                 #  TIVELY, THE FOLLOWING APPROXIMATION IS OBTAINED BY MULTIPLYING ABOVE AND BELOW BY C - SD AND NEGLECTING TERMS OF
048293,001985:                                                                                                 #  ORDER S-SQUARED (POSSIBLY INTRODUCING ERROR INTO THE LOW TWO BITS OF THE RESULT). SIGN AGREEMENT IS UNNECESSARY.
048294,001986: 
048295,001987:                                                                                                 #           A + SB .      (R - CD)                                             A + SB
048296,001988:                                                                                                 #           ------ = Q + S(------) WHERE Q AND R ARE QUOTIENT AND REMAINDER OF ------ RESPECTIVELY.
048297,001989:                                                                                                 #           C + SD        (  C   }                                                C
048298,001990: 
048299,001991: 00,2570           52155        GENDDV            DXCH     MPAC                                  #  WE NEED A AND B ONLY FOR FIRST DV.
048300,001992: 00,2571           00006                 +1       EXTEND                                         #  (SPECIAL UNIT PROLOGUE ENTERS HERE).
048301,001993: 00,2572           10130                          DV       BUF                                   #  A NOW CONTAINS Q AND L, R.
048302,001994: 00,2573           52155                          DXCH     MPAC                                  
048303,001995: 
048304,001996: 00,2574           40154                          CS       MPAC                                  #  FORM DIVIDEND FOR MINOR PART OF RESULT.
048305,001997: 00,2575           00006                          EXTEND                                         
048306,001998: 00,2576           70131                          MP       BUF        +1                         
048307,001999: 00,2577           60155                          AD       MPAC       +1                         #  OVERFLOW AT THIS POINT IS POSITIVE SINCE
048308,002000: 00,2600           54000                          OVSK                                           #  R IS POSITIVE IN EVERY CASE.
048309,002001: 00,2601           12606                          TCF      +5                                    
048310,002002: 
048311,002003: 00,2602           00006                          EXTEND                                         #  OVERFLOW CAN BE REMOVED BY SUBTRACTING C
048312,002004: 00,2603           60130                          SU       BUF                                   #  (BUF) ONCE SINCE R IS ALWAYS LESS THAN C
048313,002005: 00,2604           24154                          INCR     MPAC                                  #  IN THIS CASE. INCR COMPENSATES SUBTRACT.
048314,002006: 00,2605           12610                          TCF      +DOWN                                 #  (SINCE C(A) IS STILL POSITIVE).
048315,002007: 
048316,002008: 00,2606           00006                 +5       EXTEND                                         #  C(A) CAN BE MADE LESS THAN C IN MAGNI-
048317,002009: 00,2607           62620                          BZMF     -UP                                   #  TUDE BY DIMINISHING IT BY C (SINCE C IS
048318,002010:                                                                                                 #                                           NOT LESS THAN .5) UNLESS C(A) = 0.
048319,002011: 
048320,002012:                                                                                                 # # Page 1135
048321,002013: 00,2610           00006        +DOWN             EXTEND                                         
048322,002014: 00,2611           60130                          SU       BUF                                   #  IF POSITIVE, REDUCE ONLY IF NECESSARY
048323,002015: 00,2612           00006                          EXTEND                                         #  SINCE THE COMPENSATING INCR MIGHT CAUSE
048324,002016: 00,2613           12616                          BZF      +3                                    #  OVERFLOW.
048325,002017: 00,2614           00006                          EXTEND                                         #  DONT SUBTRACT UNLESS RESULT IS POSITIVE
048326,002018: 00,2615           62624                          BZMF     ENDMAXDV                              #  OR ZERO.
048327,002019: 
048328,002020: 00,2616           24154                 +3       INCR     MPAC                                  #  KEEP SUBTRACT HERE AND COMPENSATE.
048329,002021: 00,2617           12625                          TCF      FINALDV                               
048330,002022: 
048331,002023: 00,2620           00006        -UP               EXTEND                                         #  IF ZERO, SET MINOR PART OF RESULT TO
048332,002024: 00,2621           12630                          BZF      FINALDV    +3                         #  ZERO.
048333,002025: 
048334,002026: 00,2622           00006                          EXTEND                                         #  IF NEGATIVE, ADD C TO A, SUBTRACTING ONE
048335,002027: 00,2623           26154                          DIM      MPAC                                  #  TO COMPENSATE. DIM IS OK HERE SINCE THE
048336,002028: 00,2624           60130        ENDMAXDV          AD       BUF                                   #  MAJOR PART NEVER GOES NEGATIVE.
048337,002029: 
048338,002030:                                                                                                 # # Page 1136
048339,002031: 00,2625           22007        FINALDV           ZL                                             #  DO DV TO OBTAIN MINOR PART OF RESULT.
048340,002032: 00,2626           00006                          EXTEND                                         
048341,002033: 00,2627           10130                          DV       BUF                                   
048342,002034: 00,2630           54155                 +3       TS       MPAC       +1                         
048343,002035: 
048344,002036: 00,2631           10136                          CCS      DVSIGN                                #  LEAVE RESULT POSITIVE UNLESS C(DVSIGN)=
048345,002037: 00,2632           00002                          TC       Q                                     #  -0.
048346,002038: 00,2633           00002                          TC       Q                                     
048347,002039: 00,2634           00002                          TC       Q                                     
048348,002040: 
048349,002041: 00,2635           00006                          EXTEND                                         
048350,002042: 00,2636           40155                          DCS      MPAC                                  
048351,002043: 00,2637           52155                          DXCH     MPAC                                  
048352,002044: 00,2640           34714                          CAF      ZERO                                  #  SO WE ALWAYS RETURN WITH C(A) = 0.
048353,002045: 00,2641           00002                          TC       Q                                     
048354,002046: 
048355,002047:                                                                                                 # # Page 1137
048356,002048:                                                                                                 #           IF THE MAJOR PARTS OF THE DIVISOR AND DIVIDEND ARE EQUAL, BUT THE MINOR PARTS ARE SUCH THAT THE
048357,002049:                                                                                                 #  DIVIDEND IS STRICTLY LESS THAN THE DIVISOR IN MAGNITUDE, THE FOLLOWING APPROXIMATION IS USED. THE ASSUMPTIONS
048358,002050:                                                                                                 #  ARE THE SAME AS THE GENERAL ROUTINE WITH THE ADDITION THAT SIGN AGREEMENT IS NECESSARY (B, C, & D POSITIVE).
048359,002051: 
048360,002052:                                                                                                 #                  C + SB .          (C + B - D)
048361,002053:                                                                                                 #                  ------ = 37777 + S(---------)
048362,002054:                                                                                                 #                  C + SD            (    C    )
048363,002055: 
048364,002056:                                                                                                 #           THE DIVISION MAY BE PERFORMED IMMEDIATELY SINCE B IS STRICTLY LESS THAN D AND C IS NOT LESS THAN .5.
048365,002057: 
048366,002058: 
048367,002059: 00,2642           40154        MAXDV             CS       MPAC                                  #  SEE IF MAXDV CASE STILL HOLDS AFTER
048368,002060: 00,2643           60130                          AD       BUF                                   #  NORMALIZATION.
048369,002061: 00,2644           00006                          EXTEND                                         
048370,002062: 00,2645           12647                          BZF      +2                                    
048371,002063: 00,2646           12570                          TCF      GENDDV                                #  MPAC NOW LESS THAN BUFF - DIVIDE AS USUAL
048372,002064: 
048373,002065: 00,2647           34672                 +2       CAF      POSMAX                                #  SET MAJOR PART OF RESULT.
048374,002066: 00,2650           54154                          TS       MPAC                                  
048375,002067: 
048376,002068: 00,2651           40131                          CS       BUF        +1                         #  FORM DIVIDEND OF MINOR PART OF RESULT.
048377,002069: 00,2652           60155                          AD       MPAC       +1                         
048378,002070: 00,2653           12624                          TCF      ENDMAXDV                              #  GO ADD C AND DO DIVIDE, ATTACHING SIGN
048379,002071:                                                                                                 #                                           BEFORE EXITING.
048380,002072: 
048381,002073:                                                                                                 # # Page 1138
048382,002074:                                                                                                 #           VECTOR DIVIDED BY SCALAR, V/SC, IS EXECUTED HERE. THE VECTOR IS NOW IN MPAC WITH SCALAR IN BUF.
048383,002075: 
048384,002076: 00,2654           44712        V/SC2             CS       ONE                                   #  INITIALIZE DIVIDEND NORMALIZATION COUNT
048385,002077: 00,2655           54137                          TS       DVNORMCT                              #  AND DIVISION SIGN REGISTER.
048386,002078: 00,2656           54127                          TS       VBUF       +5                         
048387,002079: 
048388,002080: 00,2657           03010                          TC       VECAGREE                              #  FORCE SIGN AGREEMENT IN VECTOR
048389,002081: 
048390,002082: 00,2660           52131                          DXCH     BUF                                   
048391,002083: 00,2661           07513                          TC       ALSIGNAG                              #  SIGN AGREE BUF
048392,002084: 00,2662           52131                          DXCH     BUF                                   
048393,002085: 00,2663           10130                          CCS      BUF                                   #  FORCE DIVISOR POSITIVE WITH MAJOR PART
048394,002086: 00,2664           12721                          TCF      /BUF+                                 #  NON-ZERO (IF POSSIBLE).
048395,002087: 00,2665           12667                          TCF      +2                                    
048396,002088: 00,2666           12715                          TCF      /BUF-                                 
048397,002089: 
048398,002090: 00,2667           56131                          XCH      BUF        +1                         #  SHIFT VECTOR AND SCALAR LEFT 14.
048399,002091: 00,2670           56130                          XCH      BUF                                   
048400,002092: 00,2671           56155                          XCH      MPAC       +1                         
048401,002093: 00,2672           56154                          XCH      MPAC                                  
048402,002094: 00,2673           00006                          EXTEND                                         #  CHECK FOR OVERFLOW IN EACH CASE.
048403,002095: 00,2674           12676                          BZF      +2                                    
048404,002096: 00,2675           12405                          TCF      DVOVF                                 
048405,002097: 
048406,002098: 00,2676           56160                          XCH      MPAC       +4                         
048407,002099: 00,2677           56157                          XCH      MPAC       +3                         
048408,002100: 00,2700           00006                          EXTEND                                         
048409,002101: 00,2701           12703                          BZF      +2                                    
048410,002102: 00,2702           12405                          TCF      DVOVF                                 
048411,002103: 
048412,002104: 00,2703           56162                          XCH      MPAC       +6                         
048413,002105: 00,2704           56161                          XCH      MPAC       +5                         
048414,002106: 00,2705           00006                          EXTEND                                         
048415,002107: 00,2706           12710                          BZF      +2                                    
048416,002108: 00,2707           12405                          TCF      DVOVF                                 
048417,002109: 
048418,002110: 00,2710           10130                          CCS      BUF                                   
048419,002111: 00,2711           12721                          TCF      /BUF+                                 
048420,002112: 00,2712           12405                          TCF      DVOVF                                 #  ZERO DIVISOR - OVERFLOW.
048421,002113: 00,2713           12715                          TCF      /BUF-                                 
048422,002114: 00,2714           12405                          TCF      DVOVF                                 
048423,002115: 
048424,002116: 00,2715           00006        /BUF-             EXTEND                                         #  ON NEGATIVE, COMPLEMENT BUF AND MAINTAIN
048425,002117: 00,2716           40131                          DCS      BUF                                   #  DVSIGN IN VBUF +5.
048426,002118: 00,2717           52131                          DXCH     BUF                                   
048427,002119: 00,2720           24127                          INCR     VBUF       +5                         
048428,002120: 
048429,002121:                                                                                                 # # Page 1139
048430,002122: 00,2721           00006        /BUF+             EXTEND                                         
048431,002123: 00,2722           30131                          DCA      BUF                                   #  LEAVE ABS(ORIG DIVISOR) IN BUF2
048432,002124: 00,2723           52134                          DXCH     BUF2                                  #  FOR OVERFLOW TESTING
048433,002125: 00,2724           12732                          TCF      /NORM                                 #  NORMALIZE DIVISOR IN BUF.
048434,002126: 
048435,002127: 00,2725           00006        /NORM2            EXTEND                                         #  IF LESS THAN .5, AUGMENT DVNORMCT AND
048436,002128: 00,2726           24137                          AUG      DVNORMCT                              #  DOUBLE DIVISOR.
048437,002129: 00,2727           00006                          EXTEND                                         
048438,002130: 00,2730           30131                          DCA      BUF                                   
048439,002131: 00,2731           20131                          DAS      BUF                                   
048440,002132: 
048441,002133: 00,2732           30130        /NORM             CA       BUF                                   #  SEE IF DIVISOR NORMALIZED.
048442,002134: 00,2733           60000                          DOUBLE                                         
048443,002135: 00,2734           54000                          OVSK                                           
048444,002136: 00,2735           12725                          TCF      /NORM2                                #  DOUBLE AND TRY AGAIN IF NOT.
048445,002137: 
048446,002138: 00,2736           02750                          TC       V/SCDV                                #  DO X COMPONENT DIVIDE.
048447,002139: 00,2737           52160                          DXCH     MPAC       +3                         #  SUPPLY ARGUMENTS IN USUAL SEQUENCE.
048448,002140: 00,2740           52155                          DXCH     MPAC                                  
048449,002141: 00,2741           52160                          DXCH     MPAC       +3                         
048450,002142: 
048451,002143: 00,2742           02750                          TC       V/SCDV                                #  Y COMPONENT.
048452,002144: 00,2743           52162                          DXCH     MPAC       +5                         
048453,002145: 00,2744           52155                          DXCH     MPAC                                  
048454,002146: 00,2745           52162                          DXCH     MPAC       +5                         
048455,002147: 
048456,002148: 00,2746           02750                          TC       V/SCDV                                #  Z COMPONENT.
048457,002149: 00,2747           17367                          TCF      VROTATEX                              #  GO RE-ARRANGE COMPONENTS BEFORE EXIT.
048458,002150: 
048459,002151:                                                                                                 # # Page 1140
048460,002152:                                                                                                 #           SUBROUTINE USED BY V/SC TO DIVIDE VECTOR COMPONENT IN MPAC,+1 BY THE SCALAR GIVEN IN BUF.
048461,002153: 
048462,002154: 00,2750           30127        V/SCDV            CA       VBUF       +5                         #  REFLECTS SIGN OF SCALAR.
048463,002155: 00,2751           54136                          TS       DVSIGN                                
048464,002156: 
048465,002157: 00,2752           10154                          CCS      MPAC                                  #  FORCE MPAC POSITIVE, EXITING ON ZERO.
048466,002158: 00,2753           12767                          TCF      /MPAC+                                
048467,002159: 00,2754           12756                          TCF      +2                                    
048468,002160: 00,2755           12763                          TCF      /MPAC-                                
048469,002161: 
048470,002162: 00,2756           10155                          CCS      MPAC       +1                         
048471,002163: 00,2757           12767                          TCF      /MPAC+                                
048472,002164: 00,2760           00002                          TC       Q                                     
048473,002165: 00,2761           12763                          TCF      /MPAC-                                
048474,002166: 00,2762           00002                          TC       Q                                     
048475,002167: 
048476,002168: 00,2763           00006        /MPAC-            EXTEND                                         #  USUAL COMPLEMENTING AND SETTING OF SIGN.
048477,002169: 00,2764           40155                          DCS      MPAC                                  
048478,002170: 00,2765           52155                          DXCH     MPAC                                  
048479,002171: 00,2766           24136                          INCR     DVSIGN                                
048480,002172: 
048481,002173: 00,2767           44712        /MPAC+            CS       ONE                                   #  INITIALIZE NEAR-ONE SWITCH.
048482,002174: 00,2770           54140                          TS       MAXDVSW                               
048483,002175: 
048484,002176: 00,2771           40154                          CS       MPAC                                  #  CHECK POSSIBLE OVERFLOW.
048485,002177: 00,2772           60133                          AD       BUF2                                  #  UNNORMALIZED INPUT DIVISOR.
048486,002178: 00,2773           10000                          CCS      A                                     
048487,002179: 00,2774           13004                          TCF      DDVCALL                               #  NOT NEAR-ONE
048488,002180: 00,2775           12777                          TCF      +2                                    #  +0 IS JUST POSSIBLE
048489,002181: 00,2776           12405                          TCF      DVOVF                                 #  NO HOPE
048490,002182: 00,2777           54140                          TS       MAXDVSW                               #  SIGNAL POSSIBLE NEAR-ONE CASE
048491,002183: 00,3000           40155                          CS       MPAC       +1                         #  SEE IF DIVISION CAN BE DONE
048492,002184: 00,3001           60134                          AD       BUF2       +1                         
048493,002185: 00,3002           00006                          EXTEND                                         
048494,002186: 00,3003           62405                          BZMF     DVOVF                                 
048495,002187: 
048496,002188: 00,3004           52155        DDVCALL           DXCH     MPAC                                  #  CALL PRE-DIVIDE NORMALIZATION.
048497,002189: 00,3005           50137                          INDEX    DVNORMCT                              
048498,002190: 00,3006           12565                          TCF      MAXTEST                               
048499,002191: 
048500,002192:                                                                                                 # # Page 1141
048501,002193: 00,3007           32506        SLOPELO           DEC      .8324                                 
048502,002194: 
048503,002195: 00,3010           56002        VECAGREE          XCH      Q                                     #  SAVE Q IN A
048504,002196: 00,3011           52155                          DXCH     MPAC                                  
048505,002197: 00,3012           07513                          TC       ALSIGNAG                              #  SIGNAGREE MPAC
048506,002198: 00,3013           52155                          DXCH     MPAC                                  
048507,002199: 00,3014           52160                          DXCH     MPAC       +3                         
048508,002200: 00,3015           07513                          TC       ALSIGNAG                              #  SIGN AGREE MPAC +3
048509,002201: 00,3016           52160                          DXCH     MPAC       +3                         
048510,002202: 00,3017           52162                          DXCH     MPAC       +5                         
048511,002203: 00,3020           07513                          TC       ALSIGNAG                              #  SIGNAGREE MPAC +5
048512,002204: 00,3021           52162                          DXCH     MPAC       +5                         
048513,002205: 00,3022           00000                          TC       A                                     
048514,002206: 
048515,002207:                                                                                                 # # Page 1142
048516,002208:                                                                                                 #           THE FOLLOWING ROUTINE EXECUTES THE UNIT INSTRUCTION, WHICH TAKES THE UNIT OF THE VECTOR IN MPAC.
048517,002209: 
048518,002210: 00,3023           03010        UNIT              TC       VECAGREE                              #  FORCE SIGN AGREEMENT IN VECTOR
048519,002211: 00,3024           07501                          TC       MPACVBUF                              #  SAVE ARGUMENT IN VBUF
048520,002212: 00,3025           34714                          CAF      ZERO                                  #  MUST SENSE OVERFLOW IN FOLLOWING DOT.
048521,002213: 00,3026           56121                          XCH      OVFIND                                
048522,002214: 00,3027           54141                          TS       TEM1                                  
048523,002215: 00,3030           03317                          TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
048524,002216: 00,3031           30141                          CA       TEM1                                  
048525,002217: 00,3032           56121                          XCH      OVFIND                                
048526,002218: 00,3033           00006                          EXTEND                                         
048527,002219: 00,3034           13036                          BZF      +2                                    
048528,002220: 00,3035           12405                          TCF      DVOVF                                 
048529,002221: 00,3036           00006                          EXTEND                                         
048530,002222: 00,3037           30155                          DCA      MPAC                                  #  LEAVE THE SQUARE OF THE LENGTH OF THE
048531,002223: 00,3040           50120                          INDEX    FIXLOC                                #  ARGUMENT IN LVSQUARE.
048532,002224: 00,3041           52043                          DXCH     LVSQUARE                              
048533,002225: 
048534,002226: 00,3042           03343                          TC       SQRTSUB                               #  GO TAKE THE NORMALIZED SQUARE ROOT.
048535,002227: 
048536,002228: 00,3043           10154                          CCS      MPAC                                  #  CHECK FOR UNIT OVERFLOW.
048537,002229: 00,3044           13051                          TCF      +5                                    #  MPAC IS NOT LESS THAN .5 UNLESS
048538,002230: 00,3045           54001                          TS       L                                     
048539,002231: 00,3046           50120                          INDEX    FIXLOC                                
048540,002232: 00,3047           52045                          DXCH     LV                                    
048541,002233: 00,3050           12405                          TCF      DVOVF                                 #  INPUT TO SQRTSUB WAS 0.
048542,002234: 
048543,002235: 00,3051           44333                          CS       FOURTEEN                              #  SEE IF THE INPUT WAS SO SMALL THE THE
048544,002236: 00,3052           60135                          AD       MPTEMP                                #  FIRST TWO REGISTERS OF THE SQUARE WERE 0
048545,002237: 00,3053           10000                          CCS      A                                     
048546,002238: 00,3054           40000                          COM                                            #  IF SO, SAVE THE NEGATIVE OF THE SHIFT
048547,002239: 00,3055           13133                          TCF      SMALL                                 #  COUNT -15D.
048548,002240: 
048549,002241: 00,3056           13065                          TCF      LARGE                                 #  (THIS IS USUALLY THE CASE.)
048550,002242: 
048551,002243: 00,3057           44720                          CS       THIRTEEN                              #  IF THE SHIFT COUNT WAS EXACTLY 14, SET
048552,002244: 00,3060           54135                          TS       MPTEMP                                #  THE PRE-DIVIDE NORM COUNT TO -13D.
048553,002245: 
048554,002246: 00,3061           30154                          CA       MPAC                                  #  SHIFT THE LENGTH RIGHT 14 BEFORE STORING
048555,002247: 00,3062           54001        SMALL2            TS       L                                     #  (SMALL EXITS TO THIS POINT).
048556,002248: 00,3063           34714                          CAF      ZERO                                  
048557,002249: 00,3064           13112                          TCF      LARGE2                                #  GO TO STORE LENGTH AND PROCEED.
048558,002250: 
048559,002251: 00,3065           10135        LARGE             CCS      MPTEMP                                #  MOST ALL CASES COME HERE.
048560,002252: 00,3066           13074                          TCF      LARGE3                                #  SEE IF NO NORMALIZATION WAS REQUIRED BY
048561,002253: 
048562,002254: 00,3067           42024                          CS       SRDDV                                 #  SQRT, AND IF SO, SET UP FOR A SHIFT
048563,002255: 00,3070           54135                          TS       MPTEMP                                #  RIGHT 1 BEFORE DIVIDING TO PRODUCE
048564,002256: 00,3071           00006                          EXTEND                                         #  THE DESIRED HALF UNIT VECTOR.
048565,002257: 00,3072           30155                          DCA      MPAC                                  
048566,002258:                                                                                                 # # Page 1143
048567,002259: 00,3073           13112                          TCF      LARGE2                                
048568,002260: 
048569,002261:                                                                                                 # # Page 1144
048570,002262: 00,3074           40000        LARGE3            COM                                            #  LEAVE NEGATIVE OF SHIFT COUNT-1 FOR
048571,002263: 00,3075           54135                          TS       MPTEMP                                #  PREDIVIDE LEFT SHIFT.
048572,002264: 
048573,002265: 00,3076           40000                          COM                                            #  PICK UP REQUIRED SHIFTING BIT TO UNNORM-
048574,002266: 00,3077           50000                          INDEX    A                                     #  ALIZE THE SQRT RESULT.
048575,002267: 00,3100           34675                          CAF      BIT14                                 
048576,002268: 00,3101           54130                          TS       BUF                                   
048577,002269: 00,3102           00006                          EXTEND                                         
048578,002270: 00,3103           70155                          MP       MPAC       +1                         
048579,002271: 00,3104           56130                          XCH      BUF                                   
048580,002272: 00,3105           00006                          EXTEND                                         #  (UNNORMALIZE THE SQRT FOR LV).
048581,002273: 00,3106           70154                          MP       MPAC                                  
048582,002274: 00,3107           56001                          XCH      L                                     
048583,002275: 00,3110           60130                          AD       BUF                                   
048584,002276: 00,3111           56001                          XCH      L                                     
048585,002277: 
048586,002278: 00,3112           50120        LARGE2            INDEX    FIXLOC                                
048587,002279: 00,3113           52045                          DXCH     LV                                    #  LENGTH NOW STORED IN WORK AREA.
048588,002280: 
048589,002281: 00,3114           44712                          CS       ONE                                   
048590,002282: 00,3115           54140                          TS       MAXDVSW                               #  NO MAXDV CASES IN UNIT.
048591,002283: 
048592,002284: 00,3116           52123                          DXCH     VBUF                                  #  PREPARE X COMPONENT FOR DIVIDE, SETTING
048593,002285: 00,3117           52155                          DXCH     MPAC                                  #  LENGTH OF VECTOR AS DIVISOR IN BUF.
048594,002286: 00,3120           52131                          DXCH     BUF                                   
048595,002287: 00,3121           03151                          TC       UNITDV                                
048596,002288: 
048597,002289: 00,3122           52125                          DXCH     VBUF       +2                         #  DO Y AND Z IN USUAL FASHION SO WE CAN
048598,002290: 00,3123           52155                          DXCH     MPAC                                  #  EXIT THROUGH VROTATEX.
048599,002291: 00,3124           52160                          DXCH     MPAC       +3                         
048600,002292: 00,3125           03151                          TC       UNITDV                                
048601,002293: 
048602,002294: 00,3126           52127                          DXCH     VBUF       +4                         
048603,002295: 00,3127           52155                          DXCH     MPAC                                  
048604,002296: 00,3130           52162                          DXCH     MPAC       +5                         
048605,002297: 00,3131           03151                          TC       UNITDV                                
048606,002298: 00,3132           17367                          TCF      VROTATEX                              #  AND EXIT.
048607,002299: 
048608,002300:                                                                                                 # # Page 1145
048609,002301:                                                                                                 #           IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST
048610,002302:                                                                                                 #  14 PLACES BEFORE THE DIVIDE, NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO.
048611,002303: 
048612,002304: 00,3133           54135        SMALL             TS       MPTEMP                                #  NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
048613,002305: 
048614,002306: 00,3134           34714                          CAF      ZERO                                  #  SHIFT EACH COMPONENT LEFT 14.
048615,002307: 00,3135           56123                          XCH      VBUF       +1                         
048616,002308: 00,3136           56122                          XCH      VBUF                                  
048617,002309: 00,3137           56125                          XCH      VBUF       +3                         
048618,002310: 00,3140           56124                          XCH      VBUF       +2                         
048619,002311: 00,3141           56127                          XCH      VBUF       +5                         
048620,002312: 00,3142           56126                          XCH      VBUF       +4                         
048621,002313: 
048622,002314: 00,3143           40135                          CS       MPTEMP                                
048623,002315: 00,3144           50000                          INDEX    A                                     
048624,002316: 00,3145           34675                          CAF      BIT14                                 
048625,002317: 00,3146           00006                          EXTEND                                         
048626,002318: 00,3147           70154                          MP       MPAC                                  
048627,002319: 00,3150           13062                          TCF      SMALL2                                
048628,002320: 
048629,002321: 00,3151     4720               THIRTEEN          =        OCT15                                 
048630,002322: 00,3151     4333               FOURTEEN          =        OCT16                                 
048631,002323: 00,3151     4333               OCT16             =        R1D1                                  
048632,002324: 
048633,002325:                                                                                                 # # Page 1146
048634,002326:                                                                                                 #           THE FOLLOWING ROUTINE SETS UP THE CALL TO THE DIVIDE ROUTINES.
048635,002327: 
048636,002328: 00,3151           10154        UNITDV            CCS      MPAC                                  #  FORCE MPAC POSITIVE IF POSSIBLE, SETTING
048637,002329: 00,3152           13170                          TCF      UMPAC+                                #  DVSIGN ACCORDING TO THE SIGN OF MPAC
048638,002330: 00,3153           13155                          TCF      +2                                    #  SINCE THE DIVISOR IS ALWAYS POSITIVE
048639,002331: 00,3154           13162                          TCF      UMPAC-                                #  HERE.
048640,002332: 
048641,002333: 00,3155           10155                          CCS      MPAC       +1                         
048642,002334: 00,3156           13170                          TCF      UMPAC+                                
048643,002335: 00,3157           00002                          TC       Q                                     #  EXIT IMMEDIATELY ON ZERO.
048644,002336: 00,3160           13162                          TCF      UMPAC-                                
048645,002337: 00,3161           00002                          TC       Q                                     
048646,002338: 
048647,002339: 00,3162           44714        UMPAC-            CS       ZERO                                  #  IF NEGATIVE, SET -0 IN DVSIGN FOR FINAL
048648,002340: 00,3163           54136                          TS       DVSIGN                                #  COMPLEMENT.
048649,002341: 00,3164           00006                          EXTEND                                         
048650,002342: 00,3165           40155                          DCS      MPAC                                  #  PICK UP ABSOLUTE VALUE OF ARG AND JUMP.
048651,002343: 00,3166           50135                          INDEX    MPTEMP                                
048652,002344: 00,3167           12564                          TCF      MAXTEST    -1                         
048653,002345: 
048654,002346: 00,3170           54136        UMPAC+            TS       DVSIGN                                #  SET DVSIGN FOR POSITIVE QUOTIENT.
048655,002347: 00,3171           52155                          DXCH     MPAC                                  
048656,002348: 00,3172           50135                          INDEX    MPTEMP                                
048657,002349: 00,3173           12564                          TCF      MAXTEST    -1                         
048658,002350: 
048659,002351:                                                                                                 # # Page 1147
048660,002352:                                                                                                 #           MISCELLANEOUS UNARY OPERATIONS.
048661,002353: 
048662,002354: 00,3174           03300        DSQ               TC       DSQSUB                                #  SQUARE THE DP CONTENTS OF MPAC.
048663,002355: 00,3175           16030                          TCF      DANZIG                                
048664,002356: 
048665,002357: 00,3176           10163        ABVALABS          CCS      MODE                                  #  ABVAL OR ABS INSTRUCTION.
048666,002358: 00,3177           13226                          TCF      ABS                                   #  DO ABS ON SCALAR.
048667,002359: 00,3200           13226                          TCF      ABS                                   
048668,002360: 
048669,002361: 00,3201           03317        ABVAL             TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
048670,002362: 00,3202           22163                          LXCH     MODE                                  #  MODE IS NOW DP (L ZERO AFTER DAS).
048671,002363: 
048672,002364: 00,3203           00006                          EXTEND                                         #  STORE SQUARE OF LENGTH IN WORK AREA.
048673,002365: 00,3204           30155                          DCA      MPAC                                  
048674,002366: 00,3205           50120                          INDEX    FIXLOC                                
048675,002367: 00,3206           52043                          DXCH     LVSQUARE                              
048676,002368: 
048677,002369:                                                                                                 # # Page 1148
048678,002370:                                                                                                 #  PROGRAM DESCRIPTION- SUBROUTINE SQRT
048679,002371:                                                                                                 #  FUNCTIONAL DESCRIPTION-DOUBLE PRECISION SQUARE ROOT ROUTINE
048680,002372:                                                                                                 #      THIS PROGRAM TAKES THE SQUARE ROOT OF THE 27 OR 28 MOST SIGNIFICANT BITS IN THE TRIPLE PRECISION SET OF
048681,002373:                                                                                                 #      NUMBERS-MPAC,MPAC+1,AND MPAC+2.  THE ROOT IS RETURNED DOUBLE        PRECISION IN MPAC AND MPAC+1.
048682,002374:                                                                                                 #  WARNING- THIS SUBROUTINE USES A TRIPLE PRECISION INPUT. THE PROGRAMMER  MUST ASSURE THE CONTENTS OF MPAC+2
048683,002375:                                                                                                 #      ESPECIALLY IF THE CONTENTS OF MPAC IS SMALL OR ZERO.  FOR DETAILS SEE STG MEMO NO.949.
048684,002376:                                                                                                 #  CALLING SEQUENCE- IN INTERPRETIVE MODE I.E., FOLLOWING TC   INTPRET,SQRT  NO ADDRESS IS ALLOWED
048685,002377:                                                                                                 #  INPUT SCALING  THE BINARY POINT IS ASSUMED TO THE RIGHT OF BIT 15. THE  ANSWER IS RETURNED WITH THE SAME SCALING
048686,002378:                                                                                                 #  SUBROUTINES- GENSCR,MPACSHR, SQRTSUB,ABORT
048687,002379:                                                                                                 #  ABORT EXIT MODE- ABORTS ON NEGATIVE INPUT -1.2X10E-4 (77775  OCTAL)     OR LESS.
048688,002380:                                                                                                 #      DISPLAYS ERROR CODE 1302
048689,002381:                                                                                                 #                  TC   ABORT
048690,002382:                                                                                                 #                  OCT  1302
048691,002383:                                                                                                 #  DEBRIS -  LOCATIONS BUF,MPTEMP,ADDRWD ARE USED
048692,002384: 00,3207           03343        SQRT              TC       SQRTSUB                               #  TAKE THE SQUARE ROOT OF MPAC.
048693,002385: 00,3210           10135                          CCS      MPTEMP                                #  RETURNED NORMALIZED SQUARE ROOT. SEE IF
048694,002386: 00,3211           13213                          TCF      +2                                    #  ANY UN-NORMALIZATION REQUIRED AND EXIT
048695,002387: 00,3212           16030                          TCF      DANZIG                                #  IF NOT.
048696,002388: 
048697,002389: 00,3213           63726                          AD       NEG12                                 #  A RIGHT SHIFT OF MORE THAN 13 COULD BE
048698,002390: 00,3214           00006                          EXTEND                                         #  REQUIRED IF INPUT WAS ZERO IN MPAC,+1.
048699,002391: 00,3215           63221                          BZMF     SQRTSHFT                              #  GOES HERE IN MOST CASES.
048700,002392: 00,3216           22007                          ZL                                             #  IF A LONG SHIFT IS REQUIRED, GO TO
048701,002393: 00,3217           22116                          LXCH     ADDRWD                                #  GENERAL RIGHT SHIFT ROUTINES.
048702,002394: 00,3220           12303                          TCF      GENSCR     +4                         #  ADDRWD WAS ZERO TO PREVENT ROUND.
048703,002395: 
048704,002396: 00,3221           50135        SQRTSHFT          INDEX    MPTEMP                                #  SELECT SHIFTING BIT AND EXIT THROUGH
048705,002397: 00,3222           34674                          CAF      BIT15                                 #  SHIFT ROUTINES.
048706,002398: 00,3223           54135                          TS       MPTEMP                                
048707,002399: 00,3224           34714                          CAF      ZERO                                  #  TO ZERO MPAC +2 IN THE PROCESS.
048708,002400: 00,3225           12036                          TCF      MPACSHR    +3                         
048709,002401: 
048710,002402: 00,3226           06672        ABS               TC       BRANCH                                #  TEST SIGN OF MPAC AND COMPLEMENT IF
048711,002403: 00,3227           16030                          TCF      DANZIG                                
048712,002404: 00,3230           16030                          TCF      DANZIG                                
048713,002405: 00,3231           17637                          TCF      COMP                                  
048714,002406: 
048715,002407:                                                                                                 # # Page 1149
048716,002408: 00,3232           44710        VDEF              CS       FOUR                                  #  VECTOR DEFINE - ESSENTIALLY TREATS
048717,002409: 00,3233           26166                          ADS      PUSHLOC                               #  SCALAR IN MPAC AS X COMPONENT, PUSHES UP
048718,002410: 00,3234           00006                          EXTEND                                         #  FOR Y AND THEN AGAIN FOR Z.
048719,002411: 00,3235           50000                          INDEX    A                                     
048720,002412: 00,3236           30003                          DCA      2                                     
048721,002413: 00,3237           52160                          DXCH     MPAC       +3                         
048722,002414: 00,3240           00006                          EXTEND                                         
048723,002415: 00,3241           50166                          INDEX    PUSHLOC                               
048724,002416: 00,3242           30001                          DCA      0                                     
048725,002417: 00,3243           52162                          DXCH     MPAC       +5                         
048726,002418: 00,3244           16470                          TCF      VMODE                                 #  MODE IS NON VECTOR.
048727,002419: 
048728,002420: 00,3245           03317        VSQ               TC       VSQSUB                                #  DOT MPAC WITH ITSELF.
048729,002421: 00,3246           17301                          TCF      DMODE                                 #  MODE IS NOW DP.
048730,002422: 
048731,002423: 00,3247           00006        PUSH              EXTEND                                         #  PUSH DOWN MPAC LEAVING IT LOADED.
048732,002424: 00,3250           30155                          DCA      MPAC                                  
048733,002425: 00,3251           50166                          INDEX    PUSHLOC                               #  PUSH DOWN FIRST TWO REGISTERS IN EACH
048734,002426: 00,3252           52001                          DXCH     0                                     
048735,002427: 
048736,002428: 00,3253           50163                          INDEX    MODE                                  #  INCREMENT PUSHDOWN POINTER.
048737,002429: 00,3254           36213                          CAF      NO.WDS                                
048738,002430: 00,3255           26166                          ADS      PUSHLOC                               
048739,002431: 
048740,002432: 00,3256           10163                          CCS      MODE                                  
048741,002433: 00,3257           13272                          TCF      TPUSH                                 #  PUSH DOWN MPAC +2.
048742,002434: 00,3260           16030                          TCF      DANZIG                                #  DONE FOR DP.
048743,002435: 
048744,002436: 00,3261           00006                          EXTEND                                         #  ON VECTOR, PUSH DOWN Y AND Z COMPONENTS.
048745,002437: 00,3262           30160                          DCA      MPAC       +3                         
048746,002438: 00,3263           50166                          INDEX    PUSHLOC                               
048747,002439: 00,3264           51775                          DXCH     0          -4                         
048748,002440: 00,3265           00006                          EXTEND                                         
048749,002441: 00,3266           30162                          DCA      MPAC       +5                         
048750,002442: 00,3267           50166                          INDEX    PUSHLOC                               
048751,002443: 00,3270           51777                          DXCH     0          -2                         
048752,002444: 00,3271           16030                          TCF      DANZIG                                
048753,002445: 
048754,002446: 00,3272           30156        TPUSH             CA       MPAC       +2                         
048755,002447: 00,3273           16523                          TCF      ENDTPUSH   +2                         
048756,002448: 
048757,002449: 00,3274           50120        RVQ               INDEX    FIXLOC                                #  RVQ - RETURN IVA QPRET.
048758,002450: 00,3275           30052                          CA       QPRET                                 
048759,002451: 00,3276           54117                          TS       POLISH                                
048760,002452: 00,3277           16621                          TCF      GOTO       +4                         #  (ASSUME QPRET POINTS TO FIXED ONLY.)
048761,002453: 
048762,002454:                                                                                                 # # Page 1150
048763,002455:                                                                                                 #           THE FOLLOWING SUBROUTINES ARE USED IN SQUARING MPAC, IN BOTH THE SCALAR AND VECTOR SENSE. THEY ARE
048764,002456:                                                                                                 #  SPECIAL CASES OF DMPSUB AND DOTSUB, PUT IN TO SAVE SOME TIME.
048765,002457: 
048766,002458: 00,3300           30155        DSQSUB            CA       MPAC       +1                         #  SQUARES THE SCALAR CONTENTS OF MPAC.
048767,002459: 00,3301           00006                          EXTEND                                         
048768,002460: 00,3302           70000                          SQUARE                                         
048769,002461: 00,3303           54156                          TS       MPAC       +2                         
048770,002462: 00,3304           34714                          CAF      ZERO                                  #  FORM 2(CROSS TERM).
048771,002463: 00,3305           56155                          XCH      MPAC       +1                         
048772,002464: 00,3306           00006                          EXTEND                                         
048773,002465: 00,3307           70154                          MP       MPAC                                  
048774,002466: 00,3310           20001                          DDOUBL                                         #  AND MAYBE OVEFLOW.
048775,002467: 00,3311           20156                          DAS      MPAC       +1                         #  AND SET A TO NET OVERFLOW.
048776,002468: 00,3312           56154                          XCH      MPAC                                  
048777,002469: 00,3313           00006                          EXTEND                                         
048778,002470: 00,3314           70000                          SQUARE                                         
048779,002471: 00,3315           20155                          DAS      MPAC                                  
048780,002472: 00,3316           00002                          TC       Q                                     
048781,002473: 
048782,002474: 00,3317           00006        VSQSUB            EXTEND                                         #  DOTS THE VECTOR IN MPAC WITH ITSELF.
048783,002475: 00,3320           22137                          QXCH     DOTRET                                
048784,002476: 00,3321           03300                          TC       DSQSUB                                #  SQUARE THE X COMPONENT.
048785,002477: 00,3322           52160                          DXCH     MPAC       +3                         
048786,002478: 00,3323           52155                          DXCH     MPAC                                  
048787,002479: 00,3324           52131                          DXCH     BUF                                   #  SO WE CAN END IN DOTSUB.
048788,002480: 00,3325           30156                          CA       MPAC       +2                         
048789,002481: 00,3326           54132                          TS       BUF        +2                         
048790,002482: 
048791,002483: 00,3327           03300                          TC       DSQSUB                                #  SQUARE Y COMPONENT.
048792,002484: 00,3330           52156                          DXCH     MPAC       +1                         
048793,002485: 00,3331           20132                          DAS      BUF        +1                         
048794,002486: 00,3332           60154                          AD       MPAC                                  
048795,002487: 00,3333           60130                          AD       BUF                                   
048796,002488: 00,3334           54130                          TS       BUF                                   
048797,002489: 00,3335           13337                          TCF      +2                                    
048798,002490: 00,3336           54121                          TS       OVFIND                                #  IF OVERFLOW.
048799,002491: 
048800,002492: 00,3337           52162                          DXCH     MPAC       +5                         
048801,002493: 00,3340           52155                          DXCH     MPAC                                  
048802,002494: 00,3341           03300                          TC       DSQSUB                                #  SQUARE Z COMPONENT.
048803,002495: 00,3342           17154                          TCF      ENDDOT                                #  END AS IN DOTSUB.
048804,002496: 
048805,002497:                                                                                                 # # Page 1151
048806,002498:                                                                                                 #           DOUBLE PRECISION SQUARE ROOT ROUTINE. TAKE THE SQUARE ROOT OF THE TRIPLE PRECISION (MPAC +2 USED ONLY
048807,002499:                                                                                                 #  IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THE NORMALIZED RESULT IN MPAC (C(MPAC) GREATER THAN OR EQUAL TO
048808,002500:                                                                                                 #  .5). THE RIGHT SHIFT COUNT (TO UNNORMALIZE) IS LEFT IN MPTEMP.
048809,002501: 
048810,002502: 
048811,002503: 00,3343           34714        SQRTSUB           CAF      ZERO                                  #  START BY ZEROING RIGHT SHIFT COUNT.
048812,002504: 00,3344           54135                          TS       MPTEMP                                
048813,002505: 
048814,002506: 00,3345           10154                          CCS      MPAC                                  #  CHECK FOR POSITIVE ARGUMENT, SHIFTING
048815,002507: 00,3346           13404                          TCF      SMPAC+                                #  FIRST SIGNIFICANT MPAC REGISTER INTO
048816,002508: 00,3347           13351                          TCF      +2                                    #  MPAC ITSELF.
048817,002509: 00,3350           13373                          TCF      SQRTNEG                               #  SEE IF MAG OF ARGUMENT LESS THAN 10(-4).
048818,002510: 
048819,002511: 00,3351           56156                          XCH      MPAC       +2                         #  MPAC IS ZERO - SHIFT LEFT 14.
048820,002512: 00,3352           56155                          XCH      MPAC       +1                         
048821,002513: 00,3353           54154                          TS       MPAC                                  
048822,002514: 00,3354           34716                          CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
048823,002515: 00,3355           54135                          TS       MPTEMP                                
048824,002516: 
048825,002517: 00,3356           10154                          CCS      MPAC                                  #  SEE IF MPAC NOW PNZ.
048826,002518: 00,3357           13404                          TCF      SMPAC+                                
048827,002519: 00,3360           13362                          TCF      +2                                    
048828,002520: 00,3361           13376                          TCF      ZEROANS                               #  NEGATIVE BUT LESS THAN 10(-4) IN MAG.
048829,002521: 
048830,002522: 00,3362           56155                          XCH      MPAC       +1                         #  ZERO - SHIFT LEFT 14 AGAIN.
048831,002523: 00,3363           54154                          TS       MPAC                                  
048832,002524: 00,3364           34716                          CAF      SEVEN                                 #  AUGMENT RIGHT SHIFT COUNTER.
048833,002525: 00,3365           26135                          ADS      MPTEMP                                
048834,002526: 
048835,002527: 00,3366           10154                          CCS      MPAC                                  
048836,002528: 00,3367           13404                          TCF      SMPAC+                                
048837,002529: 00,3370           00002                          TC       Q                                     #  SQRT(0) = 0.
048838,002530: 00,3371           13376                          TCF      ZEROANS                               
048839,002531: 00,3372           13452                          TCF      FIXROOT                               #  DO NOT LEAVE SQRTSUB WITH -0 IN MPAC.
048840,002532: 
048841,002533: 
048842,002534: 00,3373           10000        SQRTNEG           CCS      A                                     #  ARGUMENT IS NEGATIVE, BUT SEE IF SIGN-
048843,002535: 00,3374           13402                          TCF      SQRTABRT                              #  CORRECTED ARGUMENT IS LESS THAN 10(-4)
048844,002536: 
048845,002537: 00,3375           10155                          CCS      MPAC       +1                         #  IN MAGNITUDE. IF SO, CALL ANSWER ZERO.
048846,002538: 00,3376           34714        ZEROANS           CAF      ZERO                                  #  FORCE ANSWER TO ZERO HERE.
048847,002539: 00,3377           13452                          TCF      FIXROOT                               
048848,002540: 00,3400           13402                          TCF      SQRTABRT                              
048849,002541: 00,3401           13452                          TCF      FIXROOT                               
048850,002542: 
048851,002543: 00,3402           05622        SQRTABRT          TC       POODOO                                
048852,002544: 00,3403           01302                          OCT      1302                                  
048853,002545: 
048854,002546:                                                                                                 # # Page 1152
048855,002547: 00,3404           62444        SMPAC+            AD       -1/2+2                                #  SEE IF ARGUMENT GREATER THAN OR EQUAL TO
048856,002548: 00,3405           00006                          EXTEND                                         #  .5.
048857,002549: 00,3406           63455                          BZMF     SRTEST                                #  IF SO, SEE IF LESS THAN .25.
048858,002550: 
048859,002551: 00,3407           52155                          DXCH     MPAC                                  #  WE WILL TAKE THE SQUARE ROOT OF MPAC/2.
048860,002552: 00,3410           22021                          LXCH     SR                                    #  SHIFT RIGHT 1 AND GO TO THE SQRT ROUTINE
048861,002553: 00,3411           00006                          EXTEND                                         
048862,002554: 00,3412           74675                          MP       HALF                                  
048863,002555: 00,3413           52155                          DXCH     MPAC                                  
048864,002556: 00,3414           56021                          XCH      SR                                    
048865,002557: 00,3415           26155                          ADS      MPAC       +1                         #  GUARANTEED NO OVERFLOW.
048866,002558: 
048867,002559: 00,3416           32314        ARGHI             CAF      SLOPEHI                               #  ARGUMENT BETWEEN .25 AND .5, GET A
048868,002560: 00,3417           00006                          EXTEND                                         #  LINEAR APPROXIMATION FOR THIS RANGE.
048869,002561: 00,3420           70154                          MP       MPAC                                  
048870,002562: 00,3421           62566                          AD       BIASHI                                #  X0/2 = (MPAC/2)(SLOPHI) + BIASHI/2.
048871,002563: 
048872,002564: 00,3422           54130                 +4       TS       BUF                                   #  X0/2 (ARGLO ENTERS HERE).
048873,002565: 00,3423           30154                          CA       MPAC                                  #  SINGLE-PRECISION THROUGHOUT.
048874,002566: 00,3424           22007                          ZL                                             
048875,002567: 00,3425           00006                          EXTEND                                         
048876,002568: 00,3426           10130                          DV       BUF                                   #  (MPAC/2)/(X0/2)
048877,002569: 00,3427           00006                          EXTEND                                         
048878,002570: 00,3430           74675                          MP       HALF                                  
048879,002571: 00,3431           26130                          ADS      BUF                                   #  X1 = X0/2 + .5(MPAC/2)/(X0/2).
048880,002572: 
048881,002573: 00,3432           00006                          EXTEND                                         
048882,002574: 00,3433           74675                          MP       HALF                                  #  FORM UP X1/2.
048883,002575: 00,3434           52155                          DXCH     MPAC                                  #  SAVE AND BRING OUT ARGUMENT.
048884,002576: 00,3435           00006                          EXTEND                                         #  TAKE DP QUOTIENT WITH X1.
048885,002577: 00,3436           10130                          DV       BUF                                   
048886,002578: 00,3437           54131                          TS       BUF        +1                         #  SAVE MAJOR PART OF QUOTIENT.
048887,002579: 00,3440           34714                          CAF      ZERO                                  #  FORM MINOR PART OF QUOTIENT USING
048888,002580: 00,3441           56001                          XCH      L                                     #  (REMAINDER,0).
048889,002581: 00,3442           00006                          EXTEND                                         
048890,002582: 00,3443           10130                          DV       BUF                                   
048891,002583: 00,3444           54001                          TS       L                                     #  IN PREPARATION FOR DAS.
048892,002584: 00,3445           30131                          CA       BUF        +1                         
048893,002585: 00,3446           20155                          DAS      MPAC                                  #  X2 = X1/2 + (MPAC/2)X1
048894,002586: 
048895,002587: 00,3447           00006                          EXTEND                                         #  OVERFLOWS IF ARG. NEAR POSMAX.
048896,002588: 00,3450           13454                          BZF      TCQBNK00                              
048897,002589: 00,3451           34672                          CAF      POSMAX                                
048898,002590: 00,3452           54154        FIXROOT           TS       MPAC                                  
048899,002591: 00,3453           54155                          TS       MPAC       +1                         
048900,002592: 00,3454           00002        TCQBNK00          TC       Q                                     #  RETURN TO CALLER TO UNNORMALIZE, ETC.
048901,002593: 
048902,002594:                                                                                                 # # Page 1153
048903,002595: 00,3455           64676        SRTEST            AD       QUARTER                               #  ARGUMENT WAS LESS THAN .5, SEE IF LESS
048904,002596: 00,3456           00006                          EXTEND                                         #  THAN .25.
048905,002597: 00,3457           63501                          BZMF     SQRTNORM                              #  IF SO, BEGIN NORMALIZATION.
048906,002598: 
048907,002599: 00,3460           52155                          DXCH     MPAC                                  #  IF BETWEEN .5 AND .25, SHIFT RIGHT 1 AND
048908,002600: 00,3461           22021                          LXCH     SR                                    #  START AT ARGLO.
048909,002601: 00,3462           00006                          EXTEND                                         
048910,002602: 00,3463           74675                          MP       HALF                                  
048911,002603: 00,3464           52155                          DXCH     MPAC                                  
048912,002604: 00,3465           56021                          XCH      SR                                    
048913,002605: 00,3466           26155                          ADS      MPAC       +1                         #  NO OVERFLOW.
048914,002606: 
048915,002607: 00,3467           33007        ARGLO             CAF      SLOPELO                               #  (NORMALIZED) ARGUMENT BETWEEN .125 AND
048916,002608: 00,3470           00006                          EXTEND                                         #  .25
048917,002609: 00,3471           70154                          MP       MPAC                                  
048918,002610: 00,3472           62270                          AD       BIASLO                                
048919,002611: 00,3473           13422                          TCF      ARGHI      +4                         #  BEGIN SQUARE ROOT.
048920,002612: 
048921,002613: 00,3474           00006        SQRTNM2           EXTEND                                         #  SHIFT LEFT 2 AND INCREMENT RIGHT SHIFT
048922,002614: 00,3475           30156                          DCA      MPAC       +1                         #  COUNT (FOR TERMINAL UNNORMALIZATION).
048923,002615: 00,3476           20156                          DAS      MPAC       +1                         
048924,002616: 00,3477           60154                          AD       MPAC                                  
048925,002617: 00,3500           26154                          ADS      MPAC                                  #  (NO OVERFLOW).
048926,002618: 
048927,002619: 00,3501           24135        SQRTNORM          INCR     MPTEMP                                #  FIRST TIME THROUGH, JUST SHIFT LEFT 1
048928,002620: 00,3502           00006                          EXTEND                                         #  (PUTS IN EFFECTIVE RIGHT SHIFT SINCE
048929,002621: 00,3503           30156                          DCA      MPAC       +1                         #  WE WANT MPAC/2).
048930,002622: 00,3504           20156                          DAS      MPAC       +1                         
048931,002623: 00,3505           60154                          AD       MPAC                                  
048932,002624: 00,3506           26154                          ADS      MPAC                                  #  (AGAIN NO OVERFLOW).
048933,002625: 00,3507           60000                          DOUBLE                                         
048934,002626: 00,3510           54022                          TS       CYL                                   
048935,002627: 
048936,002628: 00,3511           10022        NORMTEST          CCS      CYL                                   #  SEE IF ARGUMENT NOW NORMALIZED AT
048937,002629: 00,3512           10022                          CCS      CYL                                   #  GREATER THAN .125.
048938,002630: 00,3513           13474                          TCF      SQRTNM2                               #  NO - SHIFT LEFT 2 MORE AND TRY AGAIN.
048939,002631: 00,3514           13416                          TCF      ARGHI                                 #  YES - NOW BETWEEN .5 AND .25.
048940,002632: 00,3515           13467                          TCF      ARGLO                                 #  ARGUMENT NOW BETWEEN .25 AND .125.
048941,002633: 
048942,002634:                                                                                                 # # Page 1154
048943,002635:                                                                                                 #  TRIGONOMETRIC FUNCTION PACKAGE.
048944,002636: 
048945,002637:                                                                                                 #           THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAIALABLE AS INTERPRETIVE OPERATIONS:
048946,002638: 
048947,002639:                                                                                                 #           1.  SIN                COMPUTES (1/2)SINE(2 PI MPAC).
048948,002640:                                                                                                 #           2.  COS                COMPUTES (1/2)COSINE(2 PI MPAC).
048949,002641: 
048950,002642:                                                                                                 #           3.  ASIN               COMPUTES (1/2PI)ARCSINE(2 MPAC).
048951,002643:                                                                                                 #           4.  ACOS               COMPUTES (1/2PI)ARCCOSINE(2 MPAC).
048952,002644: 
048953,002645:                                                                                                 #  SIN-ASIN AND COS-ACOS ARE MUTUALLY INVERSE, IE SIN(ASIN(X))  = X.
048954,002646: 
048955,002647: 
048956,002648: 00,3516           06672        COSINE            TC       BRANCH                                #  FINDS COSINE USING THE IDENTITY
048957,002649: 00,3517           13522                          TCF      +3                                    #  COS(X) = SIN(PI/2 - ABS(X)).
048958,002650: 00,3520           13525                          TCF      PRESINE                               
048959,002651: 00,3521           13525                          TCF      PRESINE                               
048960,002652: 
048961,002653: 00,3522           00006                 +3       EXTEND                                         
048962,002654: 00,3523           40155                          DCS      MPAC                                  
048963,002655: 00,3524           52155                          DXCH     MPAC                                  
048964,002656: 
048965,002657: 00,3525           34676        PRESINE           CAF      QUARTER                               #  PI/2 SCALED.
048966,002658: 00,3526           26154                          ADS      MPAC                                  
048967,002659: 
048968,002660: 
048969,002661: 00,3527           52155        SINE              DXCH     MPAC                                  #  DOUBLE ARGUMENT.
048970,002662: 00,3530           20001                          DDOUBL                                         
048971,002663: 00,3531           54000                          OVSK                                           #  SEE IF OVERFLOW PRESENT.
048972,002664: 00,3532           13535                          TCF      +3                                    #  IF NOT, ARGUMENT OK AS IS.
048973,002665: 
048974,002666: 00,3533           00006                          EXTEND                                         #  IF SO, WE LOST (OR GAINED) PI, SO
048975,002667: 00,3534           40001                          DCOM                                           #  COMPLEMENT MPAC USING THE IDENTITY
048976,002668:                                                                                                 #                                           SIN(X-(+)PI) = SIN(-X).
048977,002669: 00,3535           52155                 +3       DXCH     MPAC                                  
048978,002670: 00,3536           30154                          CA       MPAC                                  #  SEE IF ARGUMENT GREATER THAN .5 IN
048979,002671: 00,3537           60000                          DOUBLE                                         #  MAGNITUDE. IF SO, REDUCE IT TO LESS THAN
048980,002672: 00,3540           54001                          TS       L                                     #  .5 (+-PI/2 SCALED) AS FOLLOWS:
048981,002673: 00,3541           13552                          TCF      SN1                                   
048982,002674: 
048983,002675: 00,3542           50000                          INDEX    A                                     #  IF POSITIVE, FORM PI - X, IF NEGATIVE
048984,002676: 00,3543           34674                          CAF      NEG1/2     +1                         #  USE -PI - X.
048985,002677: 00,3544           60000                          DOUBLE                                         
048986,002678: 00,3545           00006                          EXTEND                                         
048987,002679: 00,3546           60154                          SU       MPAC                                  #  GUARANTEED NO OVERFLOW.
048988,002680: 00,3547           54154                          TS       MPAC                                  
048989,002681: 00,3550           40155                          CS       MPAC       +1                         
048990,002682: 00,3551           54155                          TS       MPAC       +1                         
048991,002683: 
048992,002684:                                                                                                 # # Page 1155
048993,002685: 00,3552           00006        SN1               EXTEND                                         #  SET UP TO EVALUATE HASTINGS POLYNOMIAL
048994,002686: 00,3553           30155                          DCA      MPAC                                  
048995,002687: 00,3554           52134                          DXCH     BUF2                                  
048996,002688: 00,3555           03300                          TC       DSQSUB                                #  SQUARE MPAC.
048997,002689: 
048998,002690: 00,3556           07171                          TC       POLY                                  #  EVALUATE FOURTH ORDER POLYNOMIAL.
048999,002691: 00,3557           00003                          DEC      3          B-14                       
049000,002692: 00,3560           14441 37325                    2DEC     +.3926990796                            
049001,002693: 00,3562           53250 60764                    2DEC     -.6459637111                            
049002,002694: 00,3564           12146 21276                    2DEC     +.318758717                            
049003,002695: 00,3566           75466 71471                    2DEC     -.074780249                            
049004,002696: 00,3570           00236 32757                    2DEC     +.009694988                            
049005,002697: 
049006,002698: 00,3572           32470                          CAF      LBUF2                                 #  MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
049007,002699: 00,3573           07055                          TC       DMPSUB     -1                         
049008,002700: 
049009,002701: 00,3574           00006                          EXTEND                                         
049010,002702: 00,3575           30156                          DCA      MPAC       +1                         
049011,002703: 00,3576           20156                          DAS      MPAC       +1                         
049012,002704: 00,3577           60154                          AD       MPAC                                  
049013,002705: 00,3600           26154                          ADS      MPAC                                  #  NEITHER SHIFT OVERFLOWS.
049014,002706: 00,3601           00006                          EXTEND                                         
049015,002707: 00,3602           30156                          DCA      MPAC       +1                         
049016,002708: 00,3603           20156                          DAS      MPAC       +1                         
049017,002709: 00,3604           60154                          AD       MPAC                                  
049018,002710: 00,3605           26154                          ADS      MPAC                                  
049019,002711: 00,3606           16030                          TCF      DANZIG                                
049020,002712: 
049021,002713:                                                                                                 # # Page 1156
049022,002714:                                                                                                 #           ARCSIN/ARCCOS ROUTINE.
049023,002715: 
049024,002716: 00,3607           33630        ARCSIN            CAF      LASINEX                               #  COMPUTE ARCSIN BY USING THE IDENTITY
049025,002717: 00,3610           13612                          TCF      +2                                    #  ARCSIN(X) = PI/2 - ARCCOS(X).
049026,002718: 
049027,002719: 00,3611           33712        ARCCOS            CAF      LDANZIG                               #  (EXITS IMMEDIATELY).
049028,002720: 00,3612           54136                          TS       ESCAPE                                
049029,002721: 00,3613           06672                          TC       BRANCH                                #  TEST SIGN OF INPUT.
049030,002722: 00,3614           13624                          TCF      ACOSST                                #  START IMMEDIATELY IF POSITIVE.
049031,002723: 00,3615           13724                          TCF      ACOSZERO                              #  ARCCOS(0) = PI/2 = .25.
049032,002724: 00,3616           00006                          EXTEND                                         #  IF NEGATIVE, USE THE IDENTITY
049033,002725: 00,3617           40155                          DCS      MPAC                                  #  ARCCOS(X) = PI - ARCCOS(-X), FORCING
049034,002726: 00,3620           52155                          DXCH     MPAC                                  #  ARGUMENT POSITIVE.
049035,002727: 00,3621           33727                          CAF      TCSUBTR                               #  SET EXIT  TO DO ABOVE BEFORE
049036,002728: 00,3622           56136                          XCH      ESCAPE                                #  ARCSIN/ARCCOS CONSIDERATIONS.
049037,002729: 00,3623           54137                          TS       ESCAPE2                               
049038,002730: 
049039,002731: 00,3624           44675        ACOSST            CS       HALF                                  #  TEST MAGNITUDE OF INPUT.
049040,002732: 00,3625           60154                          AD       MPAC                                  
049041,002733: 00,3626           10000                          CCS      A                                     
049042,002734: 00,3627           13720                          TCF      ACOSOVF                               #  THIS IS PROBABLY AN OVERFLOW CASE.
049043,002735: 
049044,002736: 00,3630           13706        LASINEX           TCF      ASINEX                                
049045,002737: 
049046,002738: 00,3631           13641                          TCF      ACOSST2                               #  NO OVERFLOW - PROCEED.
049047,002739: 
049048,002740: 00,3632           10155                          CCS      MPAC       +1                         #  IF MAJOR PART IS .5, CALL ANSWER 0
049049,002741: 00,3633           34714                          CAF      ZERO                                  #  UNLESS MINOR PART NEGATIVE.
049050,002742: 00,3634           13636                          TCF      ACOS=0                                
049051,002743: 
049052,002744: 00,3635           13641                          TCF      ACOSST2                               
049053,002745: 
049054,002746: 00,3636           54155        ACOS=0            TS       MPAC       +1                         
049055,002747: 00,3637           54154                          TS       MPAC                                  
049056,002748: 00,3640           00136                          TC       ESCAPE                                
049057,002749: 
049058,002750: 00,3641           00006        ACOSST2           EXTEND                                         #  NOW THAT ARGUMENT IS IN PROPER RANGE,
049059,002751: 00,3642           40155                          DCS      MPAC                                  #  BEGIN COMPUTATION. USE HASTINGS
049060,002752: 00,3643           64675                          AD       HALF                                  #  APPROXIMATION ARCCOS(X) = SQRT(1-X)P(X)
049061,002753: 00,3644           52155                          DXCH     MPAC                                  #  IN A SCALED VERSION WHERE P(X) IS A
049062,002754: 00,3645           52134                          DXCH     BUF2                                  #  SEVENTH ORDER POLYNOMIAL.
049063,002755: 
049064,002756: 00,3646           03343                          TC       SQRTSUB                               #  RETURNS WITH NORMALIZED SQUARE ROOT.
049065,002757: 
049066,002758: 00,3647           10135                          CCS      MPTEMP                                #  SEE IF UN-NORMALIZATION REQUIRED.
049067,002759: 00,3650           13713                          TCF      ACOSSHR                               #  IF SO.
049068,002760: 
049069,002761:                                                                                                 # # Page 1157
049070,002762: 00,3651           52155        ACOS3             DXCH     MPAC                                  #  SET UP FOR POLYNOMIAL EVALUATION.
049071,002763: 00,3652           52134                          DXCH     BUF2                                  
049072,002764: 00,3653           52155                          DXCH     MPAC                                  
049073,002765: 
049074,002766: 00,3654           07171                          TC       POLY                                  
049075,002767: 00,3655           00006                          DEC      6          B-14                       
049076,002768: 00,3656           13240 23630                    2DEC     +.353553385                            #  COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
049077,002769: 00,3660           74721 47775                    2DEC*    -.0483017006 B+1*                       #               I
049078,002770: 00,3662           02440 20237                    2DEC*    +.0200273085 B+2*                       #  WEHRE C STANDS FOR ORIGINAL COEFFS.
049079,002771: 00,3664           75067 70742                    2DEC*    -.0112931863 B+3*                       
049080,002772: 00,3666           03436 26756                    2DEC*    +.00695311612 B+4*                       
049081,002773: 00,3670           74037 57640                    2DEC*    -.00384617957 B+5*                       
049082,002774: 00,3672           03046 07143                    2DEC*    +.001501297736 B+6*                       
049083,002775: 00,3674           76654 42244                    2DEC*    -.000284160334 B+7*                       
049084,002776: 
049085,002777: 00,3676           32470                          CAF      LBUF2                                 #  DO FINAL MULTIPLY AND GO TO ANY
049086,002778: 00,3677           07055                          TC       DMPSUB     -1                         #  EPILOGUE SEQUENCES.
049087,002779: 00,3700           00136                          TC       ESCAPE                                
049088,002780: 
049089,002781: 00,3701           00006        SUBTR             EXTEND                                         #  EPILOGUE FOR NEGATIVE INPUTS TO ARCCOS.
049090,002782: 00,3702           40155                          DCS      MPAC                                  
049091,002783: 00,3703           64675                          AD       HALF                                  #  FORMS PI - ARCCOS(-X) = ARCCOS(X).
049092,002784: 00,3704           52155                          DXCH     MPAC                                  
049093,002785: 00,3705           00137                          TC       ESCAPE2                               #  GO TO POSSIBLE ARCSIN EPILOGUE.
049094,002786: 
049095,002787: 00,3706           00006        ASINEX            EXTEND                                         
049096,002788: 00,3707           40155                          DCS      MPAC                                  #  ARCSIN EPILOGUE - GET ARCSIN(X)
049097,002789: 00,3710           64676                          AD       QUARTER                               #  = PI/2 - ARCCOS(X).
049098,002790: 00,3711           52155                          DXCH     MPAC                                  
049099,002791: 00,3712           16030        LDANZIG           TCF      DANZIG                                
049100,002792: 
049101,002793:                                                                                                 # # Page 1158
049102,002794: 00,3713           50000        ACOSSHR           INDEX    A                                     #  THE SHIFT RIGHT IS LESS THAN 14 SINCE
049103,002795: 00,3714           34675                          CAF      BIT14                                 #  THE INPUT WAS NON-ZERO DP.
049104,002796: 00,3715           54135                          TS       MPTEMP                                
049105,002797: 00,3716           02073                          TC       VSHRRND                               #  DP SHIFT RIGHT AND ROUND.
049106,002798: 00,3717           13651                          TCF      ACOS3                                 #  PROCEED.
049107,002799: 
049108,002800: 00,3720           00006        ACOSOVF           EXTEND                                         #  IF MAJOR PART WAS ONLY 1 MORE THAN .5,
049109,002801: 00,3721           13636                          BZF      ACOS=0                                #  CALL ANSWER ZERO.
049110,002802: 
049111,002803: 00,3722           05622        ACOSABRT          TC       POODOO                                
049112,002804: 00,3723           01301                          OCT      1301                                  
049113,002805: 
049114,002806: 00,3724           34676        ACOSZERO          CAF      QUARTER                               #  ACOS(0) = PI/2.
049115,002807: 00,3725           13637                          TCF      ACOS=0     +1                         #  SET MPAC AND EXIT VIA ESCAPE.
049116,002808: 
049117,002809: 00,3726           77763        NEG12             DEC      -12        B-14                       
049118,002810: 00,3727           13701        TCSUBTR           TCF      SUBTR                                 
049119,002811: 
049120,002812:                                                                                                 # # Page 1159
049121,002813:                                                                                                 #           THE FOLLOWING INSTRUCTIONS ARE AVAILABLE FOR SETTING, MODIFYING, AND BRANCHING ON INDEX REGISTERS:
049122,002814: 
049123,002815:                                                                                                 #           1.  AXT                ADDRESS TO INDEX TRUE.
049124,002816:                                                                                                 #           2.  AXC                ADDRESS TO INDEX COMPLEMENTED.
049125,002817:                                                                                                 #           3.  LXA                LOAD INDEX FROM ERASABLE.
049126,002818:                                                                                                 #           4.  LXC                LOAD INDEX COMPLEMENTED FROM ERASABLE.
049127,002819:                                                                                                 #           5.  SXA                STORE INDEX IN ERASABLE.
049128,002820:                                                                                                 #           6.  XCHX               EXCHANGE INDEX REIGSTER WITH ERASABLE.
049129,002821: 
049130,002822:                                                                                                 #           7.  INCR               INCREMENT INDEX REGISTER.
049131,002823:                                                                                                 #           8.  XAD                ERASABLE ERASABLE ADD TO INDEX REGISTER.
049132,002824:                                                                                                 #           9.  XSU                ERASABLE SUBTRACT FROM INDEX REGISTER.
049133,002825: 
049134,002826:                                                                                                 #          10.  TIX                BRANCH ON INDEX REGISTER AND DECREMENT.
049135,002827: 
049136,002828: 
049137,002829: 01,2371                                          BANK     01                                    
049138,002830: 
049139,002831: 01,2371                                          COUNT    01/INTER                              
049140,002832: 
049141,002833: 01,2371           02466        AXT               TC       TAGSUB                                #  SELECT APPROPRIATE INDEX REGISTER.
049142,002834: 01,2372           30117                          CA       POLISH                                
049143,002835: 01,2373           50130        XSTORE            INDEX    INDEXLOC                              #  CONTAINS C(FIXLOC) OR C(FIXLOC)+1
049144,002836: 01,2374           54046                          TS       X1                                    
049145,002837: 01,2375           16030                          TCF      DANZIG                                
049146,002838: 
049147,002839: 01,2376           02466        AXC               TC       TAGSUB                                
049148,002840: 01,2377           40117                          CS       POLISH                                
049149,002841: 01,2400           02373                          TC       XSTORE                                
049150,002842: 
049151,002843: 01,2401           02454        LXA               TC       15ADRERS                              #  LOAD INDEX REGISTER FROM ERASABLE.
049152,002844: 01,2402           50117                          INDEX    POLISH                                
049153,002845: 01,2403           30000                          CA       0                                     
049154,002846: 01,2404           12373                          TCF      XSTORE                                
049155,002847: 
049156,002848: 01,2405           02454        LXC               TC       15ADRERS                              #  LOAD NDX REG FROM ERASABLE COMPLEMENTED.
049157,002849: 01,2406           50117                          INDEX    POLISH                                
049158,002850: 01,2407           40000                          CS       0                                     
049159,002851: 01,2410           12373                          TCF      XSTORE                                
049160,002852: 
049161,002853: 01,2411           02454        SXA               TC       15ADRERS                              #  STORE INDEX REGISTER IN ERASABLE.
049162,002854: 01,2412           50130                          INDEX    INDEXLOC                              
049163,002855: 01,2413           30046                          CA       X1                                    
049164,002856: 01,2414           50117        MSTORE1           INDEX    POLISH                                
049165,002857: 01,2415           54000                          TS       0                                     
049166,002858: 01,2416           16030                          TCF      DANZIG                                
049167,002859: 
049168,002860:                                                                                                 # # Page 1160
049169,002861: 01,2417           02454        XCHX              TC       15ADRERS                              #  EXCHANGE INDEX REGISTER WITH ERASABLE.
049170,002862: 01,2420           50117                          INDEX    POLISH                                
049171,002863: 01,2421           30000                          CA       0                                     
049172,002864: 01,2422           50130                          INDEX    INDEXLOC                              
049173,002865: 01,2423           56046                          XCH      X1                                    
049174,002866: 01,2424           12414                          TCF      MSTORE1                               
049175,002867: 
049176,002868: 01,2425           02454        XAD               TC       15ADRERS                              #  ADD ERASABLE TO INDEX REGISTER.
049177,002869: 01,2426           50117                          INDEX    POLISH                                
049178,002870: 01,2427           30000                          CA       0                                     
049179,002871: 01,2430           50130        XAD2              INDEX    INDEXLOC                              
049180,002872: 01,2431           26046                          ADS      X1                                    #  IGNORING OVERFLOWS.
049181,002873: 01,2432           16030                          TCF      DANZIG                                
049182,002874: 
049183,002875: 01,2433           02466        INCR              TC       TAGSUB                                #  INCREMENT INDEX REGISTER.
049184,002876: 01,2434           30117                          CA       POLISH                                
049185,002877: 01,2435           12430                          TCF      XAD2                                  
049186,002878: 
049187,002879: 01,2436           02454        XSU               TC       15ADRERS                              #  SUBTRACT ERASABLE FROM INDEX REGISTER.
049188,002880: 01,2437           50117                          INDEX    POLISH                                
049189,002881: 01,2440           40000                          CS       0                                     
049190,002882: 01,2441           12430                          TCF      XAD2                                  
049191,002883: 
049192,002884: 
049193,002885: 01,2442           02466        TIX               TC       TAGSUB                                #  BRANCH AND DECREMENT ON INDEX.
049194,002886: 01,2443           50130                          INDEX    INDEXLOC                              
049195,002887: 01,2444           40050                          CS       S1                                    
049196,002888: 01,2445           50130                          INDEX    INDEXLOC                              
049197,002889: 01,2446           60046                          AD       X1                                    
049198,002890: 01,2447           00006                          EXTEND                                         #  NO OPERATION IF DECREMENTED INDEX IS
049199,002891: 01,2450           66030                          BZMF     DANZIG                                #  NEGATIVE OR ZERO.
049200,002892: 
049201,002893: 01,2451           50130        DOTIXBR           INDEX    INDEXLOC                              
049202,002894: 01,2452           56046                          XCH      X1                                    #  IGNORING OVERFLOWS.
049203,002895: 
049204,002896: 01,2453           16615                          TCF      GOTO                                  #  DO THE BRANCH USING THE CADR IN POLISH.
049205,002897: 
049206,002898:                                                                                                 # # Page 1161
049207,002899:                                                                                                 #           SUBROUTINE TO CONVERT AN ERASABLE ADDRESS (11 BITS) TO AN EBANK SETTING AND SUBADDRESS.
049208,002900: 
049209,002901: 01,2454           40117        15ADRERS          CS       POLISH                                
049210,002902: 01,2455           64727                          AD       DEC45                                 
049211,002903: 01,2456           10000                          CCS      A                                     #  DOES THE ADDRESS POINT TO THE WORK AREA?
049212,002904: 01,2457           30120                          CA       FIXLOC                                #  YES.  ADD FIXLOC.  EBANK OK AS IS.
049213,002905: 01,2460           12465                          TCF      +5                                    
049214,002906: 
049215,002907: 01,2461           34744                          CA       OCT1400                               #  NO.  SET EBANK & MAKE UP SUBADDRESS.
049216,002908: 01,2462           56117                          XCH      POLISH                                
049217,002909: 01,2463           54003                          TS       EBANK                                 
049218,002910: 01,2464           74373                          MASK     LOW8                                  
049219,002911: 01,2465           26117                 +5       ADS      POLISH                                #  FALL INTO TAGSUB, AND RETURN VIA Q.
049220,002912: 
049221,002913:                                                                                                 #           SUBROUTINE WHICH SETS THE ADDRESS OF THE SPECIFIED INDEX IN INDEXLOC. (ACTUALLY, THE ADDRESS -38D.)
049222,002914: 
049223,002915: 01,2466           30120        TAGSUB            CA       FIXLOC                                
049224,002916: 01,2467           54130                          TS       INDEXLOC                              
049225,002917: 
049226,002918: 01,2470           10020                          CCS      CYR                                   #  BIT 15 SPECIFIES INDEX.
049227,002919: 01,2471           24130                          INCR     INDEXLOC                              #  0 MEANS USE X2.
049228,002920: 01,2472           00002                          TC       Q                                     
049229,002921: 01,2473           00002                          TC       Q                                     #  1 FOR X1.
049230,002922: 
049231,002923:                                                                                                 # # Page 1162
049232,002924:                                                                                                 #           MISCELLANEOUS OPERATION CODES WITH DIRECT ADDRESSES. INCLUDED HERE ARE:
049233,002925: 
049234,002926:                                                                                                 #           1.  ITA                STORE CPRET (RETURN ADDRESS) IN ERASABLE.
049235,002927:                                                                                                 #           2.  CALL               CALL A SUBROUTINE, LEAVING RETURN IN QPRET.
049236,002928:                                                                                                 #           3.  RTB                RETURN TO BASIC LANGUAGE AT THE GIVEN ADDRESS.
049237,002929:                                                                                                 #           4.  BHIZ               BRANCH IF THE HIGH ORDER OF MPAC IS ZERO (SINGLE PRECISION).
049238,002930:                                                                                                 #           5.  BOV                BRANCH ON OVERFLOW.
049239,002931:                                                                                                 #           6.  GOTO               SIMPLE SEQUENCE CHANGE.
049240,002932: 
049241,002933: 01,2474           10020        RTB/BHIZ          CCS      CYR                                   
049242,002934: 01,2475           30117        RTB               CA       POLISH                                
049243,002935: 01,2476           04560                          TC       SWCALL     -1                         #  SO A "TC Q" FROM ROUTINE LEADS TO DANZIG
049244,002936: 
049245,002937: 01,2477           10154        BHIZ              CCS      MPAC                                  
049246,002938: 01,2500           16030                          TCF      DANZIG                                
049247,002939: 01,2501           16615                          TCF      GOTO                                  
049248,002940: 01,2502           16030                          TCF      DANZIG                                
049249,002941: 01,2503           16615                          TCF      GOTO                                  
049250,002942: 
049251,002943: 01,2504           10121        BOV(B)            CCS      OVFIND                                #  BRANCH ON OVERFLOW TO BASIC OR INTERP.
049252,002944: 01,2505           12507                          TCF      +2                                    
049253,002945: 01,2506           16030                          TCF      DANZIG                                
049254,002946: 01,2507           54121                          TS       OVFIND                                
049255,002947: 01,2510           10020                          CCS      CYR                                   
049256,002948: 01,2511           12475                          TCF      RTB                                   #  IF BASIC.
049257,002949: 01,2512           00360        B5TOB8            OCT      360                                   
049258,002950: 01,2513           16615                          TCF      GOTO                                  
049259,002951: 
049260,002952:                                                                                                 # # Page 1163
049261,002953: 01,2514           10020        BZE/GOTO          CCS      CYR                                   #  SEE WHICH OP-CODE IS DESIRED.
049262,002954: 01,2515           06672                          TC       BRANCH                                #  DO BZE.
049263,002955: 01,2516           16030                          TCF      DANZIG                                
049264,002956: 01,2517           16615                          TCF      GOTO                                  #  DO GOTO.
049265,002957: 01,2520           16030                          TCF      DANZIG                                
049266,002958: 
049267,002959: 01,2521           10020        BPL/BMN           CCS      CYR                                   
049268,002960: 01,2522           12530                          TCF      BPL                                   
049269,002961: 01,2523           12000        5B10              DEC      5          B+10                       #  SHIFTS OP CODE IN SWITCH INSTRUCTION ADR
049270,002962: 
049271,002963: 01,2524           06672                          TC       BRANCH                                #  DO BMN
049272,002964: 01,2525           16030                          TCF      DANZIG                                
049273,002965: 01,2526           16030                          TCF      DANZIG                                
049274,002966: 01,2527           16615                          TCF      GOTO                                  #  ONLY IF NNZ.
049275,002967: 
049276,002968: 01,2530           06672        BPL               TC       BRANCH                                
049277,002969: 01,2531           16615                          TCF      GOTO                                  #  IF POSITIVE OR ZERO.
049278,002970: 01,2532           16615                          TCF      GOTO                                  
049279,002971: 01,2533           16030                          TCF      DANZIG                                
049280,002972: 
049281,002973: 01,2534           10020        CALL/ITA          CCS      CYR                                   
049282,002974: 01,2535           16607                          TCF      CALL                                  
049283,002975: 
049284,002976: 01,2536           05642                          TC       CCSHOLE                               
049285,002977: 01,2537           02454                          TC       15ADRERS                              #  STORE QPRET. (TAGSUB AFTER 15ADRERS IS
049286,002978: 01,2540           50120                          INDEX    FIXLOC                                #  SLOW IN THIS CASE, BUT SAVES STORAGE.)
049287,002979: 01,2541           30052                          CA       QPRET                                 
049288,002980: 01,2542           12414                          TCF      MSTORE1                               
049289,002981: 
049290,002982:                                                                                                 # # Page 1164
049291,002983:                                                                                                 #           THE FOLLOWING OPERATIONS ARE AVAILABLE FOR ALTERING AND TESTING INTERPRETIVE SWITCHES:
049292,002984: 
049293,002985:                                                                                                 #  00       BONSET                 SET A SWITCH AND DO A GOTO IF IT WAS ON.
049294,002986:                                                                                                 #  01       SETGO                  SET A SWITCH AND DO A GOTO.
049295,002987:                                                                                                 #  02       BOFSET                 SET A SWITCH AND DOA GOTO IF IT WAS OFF
049296,002988:                                                                                                 #  03       SET                    SET A SWITCH.
049297,002989: 
049298,002990:                                                                                                 #  04       BONINV                 INVERT A SWITCH AND BRANCH IF IT WAS ON.
049299,002991:                                                                                                 #  05       INVGO                  INVERT A SWITCH AND DO A GOTO.
049300,002992:                                                                                                 #  06       BOFINV                 INVERT A SWITCH AND BRANCH IF IT WAS OFF
049301,002993:                                                                                                 #  07       INVERT                 INVERT A SWITCH.
049302,002994: 
049303,002995:                                                                                                 #  10       BONCLR                 CLEAR A SWITCH AND BRANCH IF IT WAS ON.
049304,002996:                                                                                                 #  11       CLRGO                  CLEAR A SWITCH AND DO A GOTO.
049305,002997:                                                                                                 #  12       BOFCLR                 CLEAR A SWITCH AND BRANCH IF IT WAS OFF.
049306,002998:                                                                                                 #  13       CLEAR                  CLEAR A SWITCH.
049307,002999: 
049308,003000:                                                                                                 #  14       BON                    BRANCH IF A SWITCH WAS ON.
049309,003001:                                                                                                 #  16       BOFF                   BRANCH IF A SWITCH WAS OFF.
049310,003002: 
049311,003003: 
049312,003004:                                                                                                 #           THE ADDRESS SUPPLIED WITH THE SWITCH INSTRUCTION IS INTERPRETED AS FOLLOWS:
049313,003005: 
049314,003006:                                                                                                 #           BITS 1-4    SWITCH BIT NUMBER (1-15).
049315,003007:                                                                                                 #           BITS 5-8    SWITCH OPERATION NUMBER.
049316,003008:                                                                                                 #           BITS 9-     SWITCH WORD NUMBER (UP TO 64 SWITCH WORDS).
049317,003009: 
049318,003010:                                                                                                 #           THE ADDRESS ITSELF IS MADE UP BY THE YUL SYSTEM ASSEMBLER. THE BRANCH INSTRUCTIONS REQUIRE TWO
049319,003011:                                                                                                 #  ADDRESSES, THE SECOND TAKEN AS THE DIRECT (OR INDIRECT IF IN ERASABLE) ADDRESS OF THE BRANCH.
049320,003012: 
049321,003013: 
049322,003014: 01,2543           34721        SWITCHES          CAF      LOW4                                  #  LEAVE THE SWITCH BIT IN  SWBIT  .
049323,003015: 01,2544           70117                          MASK     POLISH                                
049324,003016: 01,2545           50000                          INDEX    A                                     
049325,003017: 01,2546           34674                          CAF      BIT15                                 #  (NUMBER FROM LEFT TO RIGHT.)
049326,003018: 01,2547           54131                          TS       SWBIT                                 
049327,003019: 
049328,003020: 01,2550           34704                          CAF      BIT7                                  #  LEAVE THE SWITCH NUMBER IN SWWORD.
049329,003021: 01,2551           00006                          EXTEND                                         
049330,003022: 01,2552           70117                          MP       POLISH                                
049331,003023: 01,2553           54130                          TS       SWWORD                                
049332,003024: 
049333,003025: 01,2554           00004                          INHINT                                         #  DURING SWITCH CHANGE SO RUPT CAN USE TOO
049334,003026: 01,2555           50000                          INDEX    A                                     #  LEAVE THE SWITCH WORD ITSELF IN L.
049335,003027: 01,2556           30074                          CA       STATE                                 
049336,003028: 01,2557           54002                          TS       Q                                     #  Q WILL BE USED AS A CHANNEL.
049337,003029: 
049338,003030:                                                                                                 # # Page 1165
049339,003031: 01,2560           34700                          CAF      BIT11                                 
049340,003032: 01,2561           00006                          EXTEND                                         #  DISPATCH SWITCH BIT OPERATION AS IN BITS
049341,003033: 01,2562           70117                          MP       POLISH                                #  7-8 OF POLISH.
049342,003034: 01,2563           72623                          MASK     B3TOB4                                #  GETS 4X2-BIT CODE.
049343,003035: 01,2564           50000                          INDEX    A                                     
049344,003036: 01,2565           12566                          TCF      +1                                    
049345,003037: 
049346,003038: 01,2566           30131                 +1       CA       SWBIT                                 #  00 - SET SWITCH IN QUESTION.
049347,003039: 01,2567           00006                          EXTEND                                         
049348,003040: 01,2570           04002                          ROR      QCHAN                                 
049349,003041: 01,2571           12600                          TCF      SWSTORE                               
049350,003042: 
049351,003043: 01,2572           30131                 +5       CA       SWBIT                                 #  01 - INVERT SWITCH.
049352,003044: 01,2573           00006                          EXTEND                                         
049353,003045: 01,2574           06002                          RXOR     QCHAN                                 
049354,003046: 01,2575           12600                          TCF      SWSTORE                               
049355,003047: 
049356,003048: 01,2576           40131                 +9D      CS       SWBIT                                 #  10 - CLEAR.
049357,003049: 01,2577           70002                          MASK     Q                                     
049358,003050: 01,2600           50130        SWSTORE           INDEX    SWWORD                                
049359,003051: 01,2601           54074                          TS       STATE                                 #  NEW SWITCH WORD.
049360,003052: 
049361,003053:                                                                                                 # # Page 1166
049362,003054: 01,2602           00003                 +13D     RELINT                                         #  11 - NOOP.
049363,003055: 01,2603           34676                          CAF      BIT13                                 
049364,003056: 01,2604           00006                          EXTEND                                         #  DISPATCH SEQUCE CHANGING OR BRANCING
049365,003057: 01,2605           70117                          MP       POLISH                                #  CODE.
049366,003058: 01,2606           72623                          MASK     B3TOB4                                
049367,003059: 01,2607           50000                          INDEX    A                                     
049368,003060: 01,2610           12611                          TCF      +1                                    #  ORIGINALLY STORED IN BITS 5-6.
049369,003061: 
049370,003062: 01,2611           40002                 +1       CS       Q                                     #  00 - BRANCH IF ON.
049371,003063: 01,2612           70131        TEST              MASK     SWBIT                                 
049372,003064: 01,2613           10000                          CCS      A                                     
049373,003065: 01,2614           12624                          TCF      SWSKIP                                
049374,003066: 
049375,003067: 01,2615           16664                 +5       TCF      SWBRANCH                              #  01 - GO TO.
049376,003068: 
049377,003069: 01,2616           12624                          TCF      SWSKIP                                #  HERE ONLY ON BIT 15.
049378,003070: 
049379,003071: 01,2617           05642                          TC       CCSHOLE                               
049380,003072: 01,2620           05642                          TC       CCSHOLE                               
049381,003073: 
049382,003074: 01,2621           30002                 +9D      CA       Q                                     #  10 - BRANCH IF OFF.
049383,003075: 01,2622           12612                          TCF      TEST                                  
049384,003076: 
049385,003077: 01,2623           00014        B3TOB4            OCT      0014                                  
049386,003078: 01,2624           24164        SWSKIP            INCR     LOC                                   
049387,003079: 
049388,003080: 01,2625  01,2543               SW/               EQUALS   SWITCHES                              
049389,003081: 
049390,003082: 01,2625           16030                 +13D     TCF      DANZIG                                #  11 - NOOP.

End of include-file INTERPRETER.agc.  Parent file is MAIN.agc