{\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}QB151 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 prog performs Edit, Edit and Mark. It determines S1=0=source addr invalid S6=0=RO new source digit} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} whether to use EBCDIC or ASCII zones and reads out S1=1=source addr valid S6=1=use lo source digit} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}A pattern characters to determine if they are control S3=0=lo 4 bits of source are a digit S7=0=significance stat off} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} characters or not. It also reads out source S3=1=lo 4 bits of source are a sign S7=1=significance stat on} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} characters as required and tests the lo 4 bits for signs. S3 also stores carry out of J reg UV=source addr} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S4=0=source digit not zero IJ=dest(pattern) addr} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S4=1=source digit=zero L=length of pattern field} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S5=0=not signif start char DH=ASCII or EBCDIC zone bits} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}B S5=1=signif start char T=fill character} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} S4-S5 also used for char decode} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 00 --- 7FC} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} K 1011,1 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A 0+0+1>G |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}C ----S *8B LS S*-----------------------------------------------------------------------------------------------------------------------------------------------------------------------QB031------CBE} \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 Set cond reg} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R S2,S7 80R} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C2-- ** --CB} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Set G7=1 to} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}D | avoid minuz} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | zero correction} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 10 --- 0832 | 10 --- 07FE 00 --- 7F4 10 --- 7F6 00 --- 7F8} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} K 0111,0 | | | | K 0010 | K 0011 | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A I+0+C>IC | | | | A R=KH+1>Z | A RL-KL+1>Z | A J+0+1>JC |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}E QB161.GFE------------*S K>W R*--O---S IJ>MN MS S*------S WRITE |*------| |*--O---S IJ>MN MS S-O----------------------------------------------------------------------------------------} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (10) | | | | C HZ>S4,LZ>S5 | C 0>S4,S5 | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Update I C 007V C 007V ------C 007V C 007V | C 007V | - Control characters - |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} R AC,0 FCR R 0,0 F4R | R 1,0 F6R R S4,S5 F8R | R 1,S7 4AR | 20=digit select |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} E1-- *0 --EA E2-- 00 --EB | E3-- 10 --EC E4-- ** --ED | E5-- 1* --EE | 21=signif start |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} No pattern | Test hi bits=2 Test lo bits | Not ctrl char | 22=field separator |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}F character | and lo bits=0 less than 3 | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | --------------------------------------------- | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 01 --- 7FD | | 01 --- 7F9 | 11 --- 77B |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} K 0101 | | | | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} A 0+KH>D | | | A J+0+1>JC | | A J+0+1>JC | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}G QA761.LEE-------------------------------O--*| |*O O---S IJ>MN MS S*--------------------------------------------- S IJ>MN MS S-O} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (01,11) | | | | | | | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Edits | C 007V | | C 007V ------------------------------------------------------------------------------------------------------------------C 007V |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R 0,S7 F4R | | R 1,S7 4AR | R 1,S7 4BR |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | G2-- 0* --GB | | G3-- 1* --GC | G9-- 1* --GJ |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | ASCII | | Not ctrl char | Not ctrl char |} \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 --- 7FF | | 10 --- 7FA | 01 --- 779. 00 --- 083C 11 --- 082B |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | K 1111 | | | | | | K 1000,0 | | | K 0111,0 | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | A 0+KH>D | | | A RL-0>Z | | | | A J+0+1>JC | A T>R | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}J QB161.QHE-------------------------------O---| |-O O---| |*--O---S K>W R*--O---S IJ>MN MS S*------------------------------------------------------------------------S K>W R-O------------QB161------GCE} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (01,11) | | | | | | | | | C 0>S7 | C 0>S2 | (10,11)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} Store zone C 007V | | C 007V C 007V | C 007V C 007V Leave char or} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} in D R 0,S7 F4R | | R AC,1 79R R 0,Z=0 3CR | R 1,1 2BR R 1,1 4CR store fill} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} J2-- 0* --JB | | J3-- *1 --JC J4-- 0* --JD | J5-- 11 --JE J9-- 1* --JJ} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} EBCDIC | | Test lo bits=1 Field sep or | Field sep Store fill} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}K | | signif start | char} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | 01 --- 083D 11 --- 727} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | K 0111,0 | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | A GXH>G | A 0>ZC |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}L | | ----S K>W R*----------------------O-------------------------------------------------S IJ>MN MS S*-------------QB161------LJE} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | C HZ>S4,LZ>S5 | | C 0>S6 | (00,01,10,11)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | C 007V | C 007V Store lo} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | R S6,1 25R | R S4,S7 4CR result bits} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | L5-- *1 --LE | L9-- ** --LJ} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | Signif start Set S5=1 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}M | | test if hi bits=0 | ---------------------------------QB161------NHE} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | ----------------------------------------------------------------- |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | 11 --- 7FB | 01 --- 725 11 --- 07F3 00 --- 0740 01 --- 73D | 10 --- 0746} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | | | | | | | K 0110 | K 0110 | | K 0111,0 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | A GXH>G | | A V+0+1>V | A R>G | A GH+KH>Z | A GXH+KH>ZC | | A 0+KL>L | } \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}N | ----| |---O---S UV>MN MS S*--O---S WRITE |*--O-------------------------| |*------| |*--O---| |*-} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | C HZ>S4 | C 1>S6 | | 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 |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R S6,1 25R R S1,1 F1R | R AC,0 40R | | R 0,1 3DR R AC,0 44R R 1,CA01>W 47R |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | N3-- *1 --NC N4-- *1 --ND | N5-- *0 --NE | | N7-- 01 --NG N8-- *0 --NH N9-- 11 --NJ |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Digit select No source char | Test hibits=0 | | Test for digit Test for sign Invalid data |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}P | Test hibits=0 | Store source | | in hi bits in lo bits |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | char in G | | S3=1=sign |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | 01 --- 07F1 | 10 --- 0742 | 11 --- XXX |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | K 0101,0 | | | | | | Go to | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | A 0+KL>L | | A U+0+1>U | | | QA879.CAE | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}Q | ----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-- C 007V | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | R 1,CA01>W 47R | R 0,0 40R | | | |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Q5-- 11 --QE | Q6-- 00 --QF | Q9-- 11 --QJ |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | Inv addr | | Prg Int |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | | |} \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} -----------------------------------------------------------------------------------------------------------------------------------------------------------------------QB161------GBE} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} (01)} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}S Continue edit} \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} 1} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} 5 | 128015 09/27/65 | Mach 2030 | Date 11/17/65 Sheet 1 QB151 |} \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. 837088 | Edit, Edit and Mark |} \par\pard\plain\ltrpar\s25\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0} | | IBM Corp. | |} \par\pard\plain\ltrpar\sl240\slmult1{\f0\fs14\lang1033{\*\listtag0}}}