mirror of
https://github.com/ibm2030/IBM2030.git
synced 2026-01-11 23:52:47 +00:00
151 lines
23 KiB
Plaintext
151 lines
23 KiB
Plaintext
{\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}QB071 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 page separates mpy and divide. If divide,}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} the prg goes off to the special loop or continues}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}A in the main loop. If mpy a check is made to}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} determine that there are the correct number}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (L2+1) of hi order zero bytes in the cand field.}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} UV is then set to the addr of the hi order}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} signif cand * for use on the next page.}
|
|
\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} 01 --- 751}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A TH+DL>TC |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}C ----| |*-----------------------------------------------------------------------------------------------------QB131------CEE}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | (10)}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C 007V Continue}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R 1,0 62R divide loop}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C5-- 10 --CE}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | TH=lo 4 bits of lo order div addr in LS}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}D | TL=L1-L2 (count field for times thru major loop)}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | S3=0}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 10 --- 0752 01 --- 0755 | 11 --- 0753}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | | K 1000 |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A J-D+1>JC | A I-0+C>IC | | A LXH+K>TC |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}E QB061.JJE-----------------------------O----*| |*--O---| |*------------------------O---| |*-----------------------------------------------------------------------------------------------------QB121------EEE}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (00,10) | | | | | | C 1>S0 | (10)}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Continue IJ=lo addr of | ----C 007V | C 007V C 007V Enter}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} mpy/div prep dvd/cand field | | R 0,G7 54R | R S6,1 51R R 1,0 E6R special loop}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} D=Signif cand * | | E2-- 0* --EB | E3-- *1 --EC E5-- 10 --EE}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} field length | | IJ set to lo addr | Divide, S6=1= TH=lo 4 bits of}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}F (L1-L2) | | for divide trial | Enter special lo order div}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} G7=0=Mpy | | sub, or to lo | loop for trial sub addr in LS.S3=0}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} G7=1=Div | | order zero byte | S6=0=Entering main TL=8}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S2=0,=plier=0 | | in hi part of | loop after trial}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | cand for mpy. | sub.}
|
|
\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} | 00 --- 0750 | | 00 --- 0754 00 --- 0758 | 11 --- 0757 11 --- 075B 00 --- 075C | 10 --- 0756 11 --- XXX}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | K 0100 | | ----| | | | ----K 0001 | | | | | | K 0111 | | Go to |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | A G.-KH>G | | A LXH+DL>D | A I-0>I | A D-KH+1>D | A R>Z | A J-0>J | | A 0+KL>L | | QA879.CAE |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}J ------| |*- S WRITE |*--O---| |*- S IJ>MN MS S*--O---S WRITE |*--O---| |*--O---| |*--O---| |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | C HZ>S4 | | | | | C HZ>S4 | | | | | | | C 0>S6 | | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} C 007V C 007V | C 007V | C 007V --+---C 007V | C 007V C 007V | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} R 1,0 52R R AC,0 58R | R 1,0 5AR | R AC,1 59R | | R S4,0 5CR | R 1,Z=0 56R R 1,CA01>W 47R | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} J2-- 10 --JB J3-- *0 --JC | J4-- 10 --JD | J5-- *1 --JE | | J6-- *0 --JF | J7-- 1* --JG J8-- 11 --JH | J9-- 11 --JJ}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Quo/Prod sign DH=L2 | | Decrement DH | | Z=Cand byte | | Prg Int}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}K is +. Set G1=0 DL=L1-L2 | | Test for end of | | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S4=1 if plier | | field (S4=1) | | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} is only 1 char | | 10 --- 075A | | 01 --- 0759 | 10 --- 075E 00 --- 0760 |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} long (L2=0) | ------| |*- | | | ----| | K 0111 | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | A T!LL>T | | A I-0>I | A J+LL+1>VC | A 0+KL>L | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}L --------------------------S IJ>MN MS S ----S WRITE |*--- | |*--O---| |*---}
|
|
\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 C 007V | C 007V | C 007V }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R 1,1 5BR R 1,0 5AR | R 0,Z=0 60R | R 1,CA01>W 47R }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | L5-- 11 --LE L6-- 10 --LF | L7-- 0* --LG | L8-- 11 --LH }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | T=Lo order plier Oops wrong addr | End of field | If the above 2 wds are reached,}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}M | addr in LS | | there were insufficient hi order zeroes}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} --------------------------------------------- | and an invalid data trap is taken}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 01 --- 0761}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} The above routine tests that cand | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} contains sufficient hi order zeroes. | A I+0+C>UC |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}N (L2+1 defines correct no. of zero bytes) ----| |*-----------------------------------QB081------NHE}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} C 0>S0 | (01)}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} C 007V Move cand}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} R 0,1 99R}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} N8-- 01 --NH}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Words LG and NH set UV to addr}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}P of hi order signif cand *}
|
|
\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 * The signif cand is the lo order portion of the}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} cand defined by the length L1-L2}
|
|
\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} 7 | 128015 07/30/65 | Mach 2030 | Date 11/17/65 Sheet 1 QB071 |}
|
|
\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. 837081 | Decimal Multiply/Divide |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | IBM Corp. | |}
|
|
\par\pard\plain\ltrpar\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}}} |