{\rtf1\ansi\ansicpg1252\deff0 {\fonttbl {\f0\fnil\fcharset0\fprq0\fttruetype Courier New;} {\f1\fnil\fcharset0\fprq0\fttruetype NULL;} {\f2\fnil\fcharset0\fprq0\fttruetype Dingbats;} {\f3\fnil\fcharset0\fprq0\fttruetype Symbol;} {\f4\fnil\fcharset0\fprq0\fttruetype Times New Roman;} {\f5\fnil\fcharset0\fprq0\fttruetype Arial;}} {\colortbl \red0\green0\blue0; \red255\green255\blue255;} {\stylesheet {\s7\sl240\slmult1\f4\fs24 Default;} {\s18\sl240\slmult1\fi-431\li720\sbasedon19 Lower Roman List;} {\s20\sl240\slmult1\tx431\sbasedon10\snext19 Numbered Heading 1;} {\s21\sl240\slmult1\tx431\sbasedon11\snext19 Numbered Heading 2;} {\s8\sl240\slmult1\fi-431\li720 Diamond List;} {\s22\sl240\slmult1\tx431\sbasedon12\snext19 Numbered Heading 3;} {\s23\sl240\slmult1\fi-431\li720 Numbered List;} {\s10\sl240\slmult1\sb440\sa60\f5\fs34\b\sbasedon19\snext19 Heading 1;} {\s27\sl240\slmult1\fi-431\li720 Square List;} {\s6\sl240\slmult1\fi-431\li720 Dashed List;} {\s29\sl240\slmult1\sa117\f4\fs24\sbasedon7 Text body;} {\s13\sl240\slmult1\fi-431\li720 Heart List;} {\s33\sl240\slmult1\fi-431\li720\sbasedon23 Upper Roman List;} {\s25\sl240\slmult1\f0\fs20\sbasedon7 Preformatted Text;} {\s4\sl240\slmult1\sb117\sa117\f4\fs20\i\sbasedon7 Caption;} {\s31\sl240\slmult1\fi-431\li720 Triangle List;} {\s32\sl240\slmult1\fi-431\li720\sbasedon23 Upper Case List;} {\s3\sl240\slmult1\fi-431\li720 Bullet List;} {\s9\sl240\slmult1\fi-431\li720 Hand List;} {\s26\sl240\slmult1\tx1584\sbasedon20\snext19 Section Heading;} {\s11\sl240\slmult1\sb440\sa60\f5\fs28\b\sbasedon19\snext19 Heading 2;} {\s12\sl240\slmult1\sb440\sa60\f5\fs24\b\sbasedon19\snext19 Heading 3;} {\s30\sl240\slmult1\fi-431\li720 Tick List;} {\s19\sl240\slmult1\f4\fs24 Normal;} {\s17\sl240\slmult1\fi-431\li720\sbasedon23 Lower Case List;} {\s1\sl240\slmult1\li1440\ri1440\sa117\sbasedon19 Block Text;} {\s16\sl240\slmult1\f4\fs24\sbasedon29 List;} {\s15\sl240\slmult1\f4\fs24\sbasedon7 Index;} {\s14\sl240\slmult1\fi-431\li720 Implies List;} {\s2\sl240\slmult1\fi-431\li720 Box List;} {\s28\sl240\slmult1\fi-431\li720 Star List;} {\s24\sl240\slmult1\f0\sbasedon19 Plain Text;} {\s5\sl240\slmult1\tx1584\sbasedon20\snext19 Chapter Heading;}} \kerning0\cf0\viewkind1\paperw23811\paperh16837\margl1440\margr1440\landscape\widowctl \sectd\sbknone\colsx360\margtsxn720\margbsxn720\pgncont\ltrsect \pard\plain\ltrpar\s19\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}QB061 0 1 2 3 4 5 6 7 8 9} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} \par}\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 10 --- 03E2} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} This page tests for the inv op which occurs if G6=1. The hi order byte is always located in addr K 1000 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} It then directs the prg to the first page of the F8 and E8. THe fields extend to the right A G!KL>G | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}A dec add/sub prog where the signs and lo order digits as required, depending upon the field length ----S WRITE |*-------------QA081------AJE} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} are examined. The prg will then branch back to this As these copies are made, the data is checked | | | (01)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} page where length checks are made to be sure that for zero and for being valid decimal digits. | C 007V Set Inv Op} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} L1 is greater than L2 and that L2 is less than 8. | R 0,1 7DR} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A straight copy of the div/plier field with the sign | A9-- 01 --AJ} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} stripped out is then made in LS row F and a copy | Inv Op-Restore} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}B skewed right 1 digit is made in LS row E | G4 (Ver 000)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 11 --- 37F | 00 --- 03E0} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} K 1000 | | K 1011 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A G.-KL>G | | A RL-KL+1>Z | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}C QA081.NGE----------------------------------------------------------------------------------------------------------------------------------------------------------------------*S UV>MN MS S*--O---S WRITE |*-------------QB001------CJE} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (11) | | C 0>S0 | (00,01)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Decimal C 007V C 007V Mpy/Div} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Mpy/Div R G6,0 E0R R 0,R=VDD 64R sign tests} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} C8-- *0 --CH C9-- 0* --CJ} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Set G4=0 to Test div/plier} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}D indicate Mpy/Div sign byte for} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} G6=1.=Inv Op ASCII minus sign} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (Ver007) (Ver 000)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}E QB001.EGE-------------------------------------------------------- All wds on this page are Ver 007} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (01) |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Decimal Mpy Decimal add/sub routine has tested |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Div prep the signs and lo order digits of |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} both fields. |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S0=Quo/Prod sign (0=+, 1=-) |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}F S2=0 | ---------------------------------------------------------------------------------------------} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S3=Carry from decrement of V | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S4=1=Div/Plier is a 1 char field | 10 --- 78A 01 --- 078D | 11 --- 793 10 --- 792 01 --- 79D |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S6=0 | | | K 0110,0 | | K 1111 | K 1000 | K 0110,0 | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S7=Dvd/Cand field sign which is | A U-0>U | A 0+KL>L | | A T+KH>T | A G.-KH>G | A 0+KL>L | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}G sign of the rem (0=+, 1=-_ | ----| |*- | |*O S STORE |*------| |*--- ----S STORE |*----O} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} D=Lo order div/plier char | | | | | C 0>S6 | | | | C 1>S6 | | | C 0>S6 | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} L=L1,L2 | | C 007V | ----C 007V | ----C 007V C 007V | | C 007V |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} UV=Lo order div/plier addr with | | R 1,1 8BR | | R 1,CA01>W 47R | | R 1,0 92R R 1,0 96R | | R 1,CA01>W 47R |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} V decremented by 1 | | G4-- 11 --GD | | G5-- 11 --GE | | G6-- 10 --GF G7-- 10 --GG | | G9-- 11 --GJ |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} IJ=Lo order Dvd/Cand addr | | | | Spec CH-L2 is | | Div/plier field=1 char Set G0=0 | | Spec CH-L1 not |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}H | | | | greater than 7 | | T=E8, S6=1 for divide 1st cycle | | greater than L2 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | ------------------- | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 01 --- 081D | | 11 --- 078B | 00 --- 78C | | 01 --- 791 | 10 --- 796 | 00 --- 79C |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | K 0111 | | --| | | | | | | | | ----| | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | A LL-KL>TC | | A LXH-LH+1>ZC | | A DH>R | | | A T-0>T | A DXL>R | | A LXL-LL+1>D | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}J -*S K>W R*--O---| |*--O---S T>MN LS S*+-O-------------------------S STORE |*--O---S T>MN LS S*--O---S STORE |*----+--------QB071------JJE} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | | | | | | | C ANSNZ>S2 | | | | (00,10)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} C 007V C 007V C 007V | ----C 007V | C 007V ---*C 007V | Continue} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} R 1,S3 8AR R 0,S3 8CR R S4,1 91R | | R S6,0 94R | R 0,S3 9CR | R S0,0 50R | Mpy/Div prep} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} J3-- 1* --JC J4-- 0* --JD J5-- *1 --JE | | J7-- *0 --JG | J8-- 0* --JH | J9-- *0 --JJ |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Test for L2 < 8 Test for L1 Store first | | | Store last skew | D=Signif Cand |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}K Set T=lo order greater than L2 straight char | | | char in LS E8 | field length |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} addr for straight (L2-L1, carry = | | | | (L1-L2) |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} copy of div/plier spec on) 10 --- 78E | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} field to LS K 0111,0 | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (Carry=spec on) A 0+KL>L | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}L ----S WRITE |*- | | | -----------------------} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C 0>S6 | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C 007V | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R 1,CA01>W 47R | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | L5-- 11 --LE | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Invalid data | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}M | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} ----------------------------------------------------------------+-------------------------------------------+---------------------- | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 00 --- 794 01 --- 795 10 --- 79A | 11 --- 78F 11 --- 797 | 00 --- 790 | | 11 --- XXX} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} --| | | | K 1111 | | K 1001 | | | | K 1110 | | | | Go to |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A V-0>V | A DXL+RH>D | A T+KH+1>T | | A T^K>Z | A RXH+DL>R | | A T+KL>T | | | | QA879.CAE |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}N S UV>MN MS S*------S WRITE |*O-----S T>MN LS S*--O---S STORE |*------S T>MN LS S*--O---S STORE |*--- | --| |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} C 1>S6 | | | | | | C LZ>S5 | C ANSNZ>S2 | | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} ----C 007V C 007V | ----C 007V C 007V C 007V C 007V | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R 0,1 95R R AC,0 98R | | R 1,R=VDD 8ER R 1,1 97R R 0,S5 90R R 0,0 94R | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | N2-- 01 --NB N3-- *0 --NC | | N4-- 1* --ND N5-- 11 --NE N6-- 0* --NF N7-- 00 --NG | | N9-- 11 --NJ} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | RO next div/plier D=skew digits | | Set TH=E, Store straight R=skewed byte Store skewed | | Prg Int} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}P | digits. Set S6=1 | | increment TL char in LS F Test for zero char in LS E | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | for divide 1st | --------------------- row, test for row. Set TH=F | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | cycle and to | 00 --- 798 | TL=9 Decrement TL | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | stop step J6 from | | | | by 2 | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | returning to this | A U-0>U | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}Q | routine ------| |*- The above routine stores the div/plier field | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | staight in LS row F with the sign stripped out. | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C 007V It also stores it skewed right 1 digit in | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R 1,0 9AR row E. THe hi order byte is always located | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Q4-- 10 --QD in E8 and F8. | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}R ------------------------------------------------------------------------------------------------------------------------------------- |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Q........------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} \par}\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}S} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} \par}\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Q} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} B} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 0} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 6 | 128015 09/27/65 | Mach 2030 | Date 11/17/65 Sheet 1 QB061 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 1 | 128045 11/17/65 | Name | Log 3564 Version 007 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | Mode Manual | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | P.N. 837080 | Decimal multiply/divide |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | IBM Corp. | Common prep |} \par\pard\plain\ltrpar\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}}}