{\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}QB041 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} } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} This routine recomplements the dest field. S5=1 = End of dest field} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} It also changes the sign and S7 which is} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}A used as the sign indicator.} \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} } \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}B} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} \par}\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 10 --- 77A } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A I+0+1>I | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}C ----S WRITE |*---} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | |} \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,0 76R |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C3-- 10 --CC |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Oops - wrong addr |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}D ----------------------+----------------------} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 10 --- 776 | 00 --- 778 11 --- 7E7 10 --- 7EE } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} ----| | | K DECA K 0001 | | | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A L>Z | | A 0+-RH+1>DC | A RL^KL>R | A DH+RL>R | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}E QB031.JFE----------------------------------*S IJ>MN MS S*--O-------------------------S WRITE |*------| |*------S IJ>MN MS S*---} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (10) C LZ>S5 | | | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Recomp IJ = Lo stg addr C 007V C 007V C 007V C 007V |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} of dest field R AC,0 78R R 1,1 E7R R 1,0 EER R 0,S5 7CR |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S4=0 = Oflo E2-- *0 --EB E4-- 11 --ED E5-- 10 --EE E6-- 0* --EF |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Test for end Recomp lo digit Change sign Combine sign and |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}F of field Store in D digit. Branch on |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} end of field |} \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} |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}G |} \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} |} \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}H --------------------------------------------- |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 11 --- 081B 01 --- 0815 | | 01 --- 77D} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | | | | K 0001 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | A I-0>I | | | A S^KL>S |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}J ----S IJ>MN MS S ----S WRITE |*--- O---S STORE |*---------------------------------------------------------QB031------JGE} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | | | | | (00,01,10,11)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} C 007V*- | C 007V | C 007V End routines} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} R 1,1 17R | | R 1,1 1BR | R S4,1 7DR from recomp} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} J4-- 11 --JD | | J5-- 11 --JE | J7-- ** --JG} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | Oops - wrong addr | Invert S7 and branch to} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}K | | | set cond reg. S6=0 = Oflo} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 10 --- 081A | | 11 --- 0817 | 00 --- 77C } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | --+-------------------------K 0111,0 DECA | K 1000,0 | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A L-0>L | | A 0+-R+C>RC | | A J-0>J | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}L ----S IJ>MN MS S*--O-------------------------S |*--O---S STORE K>W R*---} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C LZ>S5 | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C 007V C 007V C 007V |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R AC,1 15R R 0,S5 7CR R 1,0 1AR |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | L4-- *1 --LD L6-- 0* --LF L7-- 10 --LG |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Test for end Recomp digits Not end, recomp |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}M | of field Branch on end next digits |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | of field |} \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} } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}N} \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} } \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}P} \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} } \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} } \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} \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} \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} 4 | 128015 09/27/65 | Mach 2030 | Date 11/17/65 Sheet 1 QB041 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 1 | 128045 11/17/65 | Name | Log 3568 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. 837078 | Decimal multiply/divide |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | IBM Corp. | Invalid op |} \par\pard\plain\ltrpar\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}}}