mirror of
https://github.com/ibm2030/IBM2030.git
synced 2026-01-11 23:52:47 +00:00
151 lines
20 KiB
Plaintext
151 lines
20 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}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}}} |