mirror of
https://github.com/ibm2030/IBM2030.git
synced 2026-01-11 23:52:47 +00:00
151 lines
26 KiB
Plaintext
151 lines
26 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}QB011 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 inserts the sign and digit computed on the S4=1 = Dest field ended}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} }{\f0\fs14\lang1033{\*\listtag0} prevvious page. It then goes into the main loop S5=1 = Source field ended}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}A}{\f0\fs14\lang1033{\*\listtag0} which covers all cases except when the dest ends G2 or G3 = 0 = Z Add}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} }{\f0\fs14\lang1033{\*\listtag0} before the source. Both source and dest digits G7 = 1 = Compare}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} }{\f0\fs14\lang1033{\*\listtag0} are checked for valid characters except for Zero}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} }{\f0\fs14\lang1033{\*\listtag0} and Add where only the source data is checked}
|
|
\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} 00 --- 0824 00 --- 720 10 --- 726 00 --- 0800 11 --- XXX}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} K 1010 | K 0001 | K 1000,0 | K 0111,0 | | Go to |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A DH+KL>R | A T-K+1>T | A R>D | A 0+KL>L | | QA879.CAE |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}C ---*S IJ>MN MS S---- ----S UV>MN MS S*--O-------------------------S WRITE K>W R*--O---| |*----------------------------------------------O---| |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | | C HZ>S4,LZ>S5 | | | | | 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,G7 22R | | R AC,0 24R | | R 0,R=VDD 00R | R 1,CA01>W 46R | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C1-- 1* --CA | | C3-- *0 --CC | | C5-- 0* --CE | C6-- 11 --CF | C9-- 11 --CJ}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | ASCII sign + | | Neither ended | | | Invalid data | Prg Int}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}D | | | Decrement L1 | | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | and L2 and | | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 01 --- 0825 | 10 --- 0822 | test for end | 00 --- 724 | | 01 --- 0801 00 --- 0804 00 --- 728 |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | K 1011 | | K 0111,0 | | | | | | | | | K 0111,0 | K 0111,0 | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | A DH+KL>R | | A J-0>J | | | A I-0>I | | | A V-0>V | A D>R | A 0+KL>L | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}E QB001.LJE---------O---S IJ>MN MS S*--O---S STORE K>W R*--O ----S WRITE |*--- ----S IJ>MN MS S*--O---S K>W R*--O---S WRITE |---O}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (00,01,10,11) | | | | C 0>S4,S5 | | | | | | | C ANSNZ>S2 | | C 0>S6 | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Insert sign | 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,G7 22R | R S4,S5 20R | R 1,0 26R R G2,G7 04R | R AC,1 29R | R 1,CA01>W 47R |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | E1-- 1* --EA | E2-- ** --EB | E4-- 10 --ED E6-- ** --EF | E7-- ** --EG | E8-- 11 --EH |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | ASCII sign - | A/S, Z Add | | Z Add | Invalid data |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}F | | Store result | | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 10 --- 0826 | 11 --- 0823 | 01 --- 721 10 --- 80E | 10 --- 0806 | 10 --- 72A |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | K 1100 | | K 0111,0 | | K 1000,0 | K 0001 | | K 0111,0 DECA | K 0111,0 | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | A DH+KL>R | | A J-0>J | | A 0>D | A T-KH+1>T | | A R+-D+C>RC | | A 0+KL>L | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}G O---S IJ>MN MS S---O---S WRITE K>W R---O---S K>W R*--O-------------------------S IJ>MN MS S-------------------------O---S K>W R---O---S WRITE |----}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | C 0>S4,S5 | | C LZ>S5 | | C HZ>S4 | | C ANSNZ>S2 | | 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 }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R 1,G7 22R | R S4,S5 20R | R AC,0 0CR | | R G2,G7 04R | R AC,R=VDD 28R | R 1,CA01>W 47R }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | G1-- 1* --GA | G2-- ** --GB | G3-- *0 --GC | | G5-- ** --GE | G7-- ** --GG | G8-- 11 --GH }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | EBCDIC sign + | Cmp = Do not | Source ended | | Decrement L1 | Add or Sub |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}H | | store results | Set S5=1 | | and test for | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | Branch on any | | | end | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 11 --- 0827 | fields ended | | 00 --- 80C | | 11 --- 0807 | 01 --- 729 }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | K 1101 | | | | | | | | K 0111,0 DECA | | | }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | A DH+KL>R | | | | A I-0>I | | | A R+-D+C>ZC | | A U-0>U | }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}J ----S IJ>MN MS S---- | ----| |*--- ----S K>W R---O---S WRITE |*---}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | | C ANSNZ>S2 | | | | |}
|
|
\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,G7 22R | R 1,0 0ER R AC,R=VDD 28R | R 1,1 2BR |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} J1-- 1* --JA | J4-- 10 --JD J7-- ** --JG | J8-- 11 --JH |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} EBCDIC sign - | Compare | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}K | | ---------------------}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | 11 --- 72B }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | --| | }
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | A J-0>J | }
|
|
\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>S4,S5 | |}
|
|
\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 S4,S5 20R |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | L8-- ** --LH |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Branch on any |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}M | fields ended |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} O------------------------------------------------------------------------------------------------------------------------------------}
|
|
\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} | 11 --- 723}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} QB021.LJE-----------------------------------------------------+--*| |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (11) | A J+0+1>J |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}Q Dest ended O---| |*-------------------------------------------------------------------------------------------------------------------------------------------------QB031------QCE}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | |}{\f0\fs14\lang1033{\*\listtag0} (00,01,10,11)}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C 007V}{\f0\fs14\lang1033{\*\listtag0} End routines}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R S0,S3 70R}{\f0\fs14\lang1033{\*\listtag0} from main}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Q3-- ** --QC}{\f0\fs14\lang1033{\*\listtag0} loop}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Both ended}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}R | Restore J}
|
|
\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} ---------------------------------------------------------------------------------------------------------------------------------------------------------------------QB021------EBE}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (10)}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}S}{\f0\fs14\lang1033{\*\listtag0} Dest ended}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} }{\f0\fs14\lang1033{\*\listtag0} loop}
|
|
\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} 1 | 128015 09/27/65 | Mach 2030 | Date 11/17/65 Sheet 1 QB011 |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 1 | 128025 10/21/65 | Name | Log 3562 Version 007 |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | 128043 11/17/65 | Mode Manual | |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | P.N. 837075 | Decimal add, sub, cmp |}
|
|
\par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | IBM Corp. | z add main loop |}
|
|
\par\pard\plain\ltrpar\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}}} |