Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

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

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