ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000054.JPG",,,,"","DavidH/Q1000054" ,,"",,,,"","" 0,"PROGM",,80,0,,8813,"INTERCODE TRANSLATOR","Program 080,0 version 8813",,,, 0,"ENTRY",,102,3,,,, ,,"",,,,"","" 0,,"D1",14,,0,195,"Special form of dual printer (see 19) for software use","PRINT(OR CLEO-SIZED ANNEX)",,,, 0,,"B1",15,,4,27,"Dual input (PT or cards) (see 12.9)","PT/CARDS MODS",,,, 0,,"A1",7,,4,75,"Magnetic tape, first Assembler (see 13.1)",,,, 0,,"A2",8,,4,75,"Magnetic tape, second Assembler",,,,, 0,,"A6",7,,4,75,"Magnetic tape, first Assembler (see 13.1)",,,,, ,,"",,,,"","" 0query,164,"",,,,"","995" 0,"CHAPS",10,100,101,152,327,553,680,776,918,994,995 0,"INDEX",3,1,2,2,2,2,2,2,2,2,2 ,,"",,,,"","" 0query,164,"",,,,"","Sect 3 24 long compartments normal sect chap 2" 1001,,"3",24,0,2,"","PROCR 'LENGTH' INDEX B/FWD" 0query,164,"",,,,"","Sect 4 50 long compartments normal sect chap 2" 1002,,"4",50,0,2,"","PASS 0 INPUT UNPACKED" 0query,164,"",,,,"","Sect 6 450 long compartments normal sect chap 2" 1003,,"6",450,0,2,"","PASS 0 OLD/NEW PROCR INDEX" 0query,164,"",,,,"","Sect 17 50 long compartments normal sect chap 2" 1004,,"17",50,0,2,"","WL'S IN PASS 0" 0query,164,"",,,,"","Sect 22 225 long compartments normal sect chap 2" 1005,,"22",225,0,2,"","PASS 0 PROCR INDEX" 0query,164,"",,,,"","Sect 19 230 long compartments normal sect chap 2" 1006,,"19",230,0,2,"","PASS 0 ADJUST DETAILS" 0query,164,"",,,,"","Sect 21 50 long compartments normal sect chap 2" 1007,,"21",50,0,2,"","PASS 0 UNIQUE REFS" 0query,164,"",,,,"","Sect 2 5 long compartments normal sect chap 2" 1008,,"2",5,0,1,"","EXTENSION BACKWARDS OF SECTION 18" 1009,,"18",1250,0,1,"","SEQUENCE CHANGES FORWARD AND BACK" 1010,,"1",23,0,3,"","PASS 1 INPUT UNPACKED" 1011,,"28",23,0,3,"","PASS 1 NEXT RECORD" 1012,,"29",22,0,3,"","PASS 1 NEXT OUTPUT REC" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000055.JPG",,,,"","DavidH/Q1000055" 1013,,"66",12,0,4,"","PASS 2 INPUT UNPACKED" 1014,,"67",2,0,4,"","PASS 2 O/P UNPACKED" 1015,,"61",60,0,4,"","PASS 2 WL'S" 1016,,"72",16,0,4,"","SWITCH PROCR LENGTHS+CHAP LENGTHS" 1017,,"71",10,0,4,"","17 'MR>3' DETAILS+COUNTER" 1018,,"94",50,0,4,"","MISC EACH PASS" 1019,,"53",0,0,4,"","PASS 1 PROCR INDEX EX ISSUE 5(LENGTH 127" 1020,,"77",22,0,4,"","PASS 2 NEXT INPUT REC" 1021,,"70",0,0,4,"","PASS 1 SECTION DETAILS(LENGTH 50)" 1022,,"30",9,0,4,"","UNPACKED PT FOR 08005" 1023,,"31",11,0,4,"","FOR MT BLOCK FOR 08005" 1024,,"32",85,0,4,"","TD WL'S FOR 08005" 1025,,"54",80,0,4,"","PASS 1 ADJUST DETAILS" 1026,,"55",25,0,4,"","PASS 1 UNIQUE REFS" 1027,,"92",19,0,4,"","GENERAL ALL PASSES" 1028,,"91",18,0,4,"","TWO OTRS.FILES LIST-TX AREAS LIST" 1029,,"98",6,0,4,"","10 'ITEM+'DETAILS AND COUNTER" 1030,,"95",25,0,4,"","48 SWITCH DETAILS AND COUNTER" 1031,,"99",25,0,4,"","25 RADIX PAIRS PER PROGRAMME" 1032,,"23",24,0,4,"","'PRINT PROCEDURES' INDICATORS" 1033,,"25",21,0,4,"","'TRACE'DETAILS" 1034,,"40",10,0,4,"","FRILL FOR PRINTING REPORT SERIALS" 1035,,"27",10,0,4,"","PERMANENT WL'S" 1036,,"10",195,1,0,"","PRINTER/CLEO I/P TX AREA" 1037,,"14",0,0,4,"","DUMMY" 1038,,"5",27,1,4,"","PT IN+PRINT" 1039,,"7",75,1,4,"","MTIN,OUT+PRINT" 1040,,"8",75,1,4,"","" 1041,,"9",75,1,4,"","" 1042,,"26",540,0,6,"","PROCR START ADDRESSES" 1043,,"11",10,0,7,"","" 1044,,"13",16,0,7,"","" 1045,,"16",20,0,7,"","" 1046,,"15",50,0,7,"","" 1047,,"24",18,0,7,"","" 1048,,"12",60,0,9,"","PASS 1 WL'S" 1049,,"93",225,0,9,"","PASS 1 OLD/NEW PROCR INDEX" 1050,,"97",230,0,9,"","PASS 1 ADJUST DETAILS" 1051,,"52",50,0,9,"","PASS 1 UNIQUE REFS" 1052,,"63",30,0,10,"","PASS 2 60 SHORT CONSTS PER CHAPTER" 1053,,"62",110,0,10,"","PASS 2 90 LONG+20 TSL PER CHAPTER" 1054,,"20",150,0,10,"","PASS 2 100 ACTIVE SEQ CHANGES FWD" 10000,PROCR,"100",,,,"","CHAPTER ONE" 10001,NOTES,"",,,,"","MAIN OVERLAY ORDER TO RECALL PASS 0" 10002,152,"101",2,0,0,"0","" 10003,C,"101",2,0,0,"0","" 10004,76,"102",2,0,0,"0","" 10100,PROCR,"101",,,,"","CALL PASS 1-THIS IS THE FIRST PROCR IN PASS 0" 10102,152,"101",2,0,0,"0","" 10103,C,"152",2,0,0,"0","" 10200,PROCR,"102",,,,"","STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000056.JPG",,,,"","DavidH/Q1000056" 10202,62,"",0,0,0,"0","" 10203,125,"",4096,1,1,"0","" 10204,123,"102",5,0,2,"0","" 10205,100,"",0,0,0,"0","" 10206,5,"148",42,1,0,"0","ORIGINAL(A)" 10207,5,"27",0,1,0,"0","CLEAR WL'S" 10208,5,"27",2,1,0,"0","" 10209,5,"27",4,1,0,"0","" 10210,5,"27",6,1,0,"0","" 10211,5,"27",11,0,0,"0","" 10212,5,"27",13,0,0,"0","" 10213,84,"786",2,0,0,"0","CLEAR SWITCH 772" 10214,123,"128",2,0,3,"0","PROG TAG" 10215,30,"",0,0,0,"4","" 10216,35,"",0,0,0,"10000","" 10217,37,"125",4,0,0,"0","FORM LINKS" 10218,37,"125",5,0,0,"0","" 10219,37,"125",6,0,0,"0","" 10220,94,"102",87,0,3,"0","///// *REENTRY" 10221,124,"999",5,0,3,"0","" 10222,106,"",34,0,0,"0","D1" 10223,30,"",0,0,0,"4-","" 10224,5,"27",8,1,0,"0","INITIAL PRINTER TYPE+CLEAR 'OFFLINE'" 10225,124,"999",5,0,3,"0","" 10226,106,"",36,0,0,"0","B1" 10227,30,"",0,0,0,"4-","" 10228,12,"",0,0,0,"4","" 10229,5,"27",10,0,0,"0","INPUT TYPE" 10230,0,"126",15,0,0,"0","23/0/2" 10231,5,"126",7,0,0,"0","" 10232,,"148",42,2,0,"0","" 10233,70,"102",98,0,0,"0","gTHINGS OK.EXIT" 10234,0,"148",42,0,0,"0","" 10235,5,"999",31,0,0,"0","" 10236,10,"",0,0,0,"7","RT7" 10237,80,"103",2,0,0,"0","" 10238,70,"102",45,0,0,"0","gOK" 10239,10,"",0,0,0,"8","RT8" 10240,80,"103",2,0,0,"0","" 10241,70,"102",45,0,0,"0","" 10242,10,"",0,0,0,"e","RT11" 10243,80,"103",2,0,0,"0","" 10244,71,"104",2,0,0,"0","gALARM*10" 10245,84,"787",2,0,0,"0","CLEAR SWITCH" 10246,C,"999",0,0,0,"0","TO OPEN A9" 10247,10,"",0,0,0,"1","" 10248,5,"27",9,0,0,"0","" 10249,96,"",0,0,2,"0","ALLOC ROUTE" 10250,12,"",0,0,0,"40","64" 10251,3,"999",7,0,0,"0","" 10252,31,"",0,0,0,"1","" 10253,32,"",0,0,0,"1-","" 10254,5,"126",2,0,0,"0","CHANNEL" 10255,33,"",0,0,0,"3","" 10256,5,"129",2,0,0,"0","ROUTE" 10257,,"126",2,0,0,"0","CHANNEL" 10258,80,"143",2,0,0,"0","*DEC" 10259,5,"148",42,0,0,"0","" 10260,62,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000057.JPG",,,,"","RayS/Q1000057" 10261,,"27",9,0,0,"0","" 10262,70,"104",9,0,0,"0","" 10263,124,"999",5,0,3,"0","SP CHAP START" 10264,124,"",32,0,3,"0","" 10265,124,"",16,0,3,"0","" 10266,10,"",0,0,0,"0","START OF REEL CTRS" 10267,1,"999",7,0,0,"0","" 10268,5,"142",2,0,0,"0","WL" 10269,124,"142",2,0,3,"0","" 10270,102,"",0,0,0,"0","CLEAR REEL CTR FOR ROUTE" 10271,124,"999",5,0,3,"0","FORM MODIFIER FOR HIGH LOW" 10272,124,"",32,0,3,"0","" 10273,106,"",22,0,0,"0","" 10274,1,"999",7,0,0,"0","" 10275,5,"103",2,0,0,"0","" 10276,124,"999",5,0,3,"0","TEST MACHINE IS HIGH DENSITY" 10277,124,"",32,0,3,"0","" 10278,106,"",21,0,0,"0","" 10279,70,"104",9,0,0,"0","gNO" 10280,,"999",31,0,0,"0","" 10281,12,"",0,0,0,"58","'H'(=HIGH DENSITY WANTED)" 10282,71,"103",22,0,0,"0","gNO" 10283,10,"",0,0,0,"1","" 10284,124,"103",2,0,3,"0","" 10285,102,"",0,0,0,"0","" 10286,76,"104",9,0,0,"0","" 10287,96,"",0,0,3,"0","" 10288,70,"102",92,0,0,"0","gPRINTER WANTED REENTRY" 10289,,"27",9,0,0,"0","" 10290,71,"102",98,0,0,"0","gMT WANTED AND GOT,EXIT" 10291,76,"102",34,0,0,"0","gGET MT" 10292,,"27",9,0,0,"0","" 10293,70,"102",98,0,0,"0","gPRINTER WANTED AND GOT,EXIT" 10294,,"27",8,0,0,"0","INITIAL PRINTER TYPE" 10295,80,"103",2,0,0,"0","" 10296,71,"104",2,0,0,"0","gALARM*10" 10297,76,"102",48,0,0,"0","" 10298,126,"125",4,0,3,"0","gTO MAIN PATH" ,,"",,,,"","" 10300,PROCR,"103",,,,"103","ALLOCATE ANOTHER DEVICE" 10302,81,"103",2,0,0,"0","" 10303,5,"140",2,0,0,"0","" 10304,90,"",0,0,2,"64","" 10305,C,"",0,0,0,"128","" 10306,,"140",2,0,0,"0","" 10307,124,"999",0,0,3,"0","" 10308,105,"",0,0,2,"0","" 10309,70,"103",21,0,0,"0","gMATCH END" 10310,94,"103",6,0,2,"1","" 10311,,"999",9,0,0,"0","KNOWN MT ROUTE" 10312,12,"",0,0,0,"18","CH3/0" 10313,73,"103",21,0,0,"0","gSLOW CHANNEL;END WITHOUT MATCH" 10314,90,"",0,0,2,"192","" 10315,C,"",0,0,0,"240","" 10316,124,"999",0,0,3,"0","TRY FAST CHANNEL" 10317,106,"",0,0,2,"0","" 10318,2,"140",2,0,0,"0","" 10319,70,"103",21,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000058.JPG",,,,"","RayS/Q1000058" 10320,94,"103",16,0,2,"1","THE ALLOCATED ROUTE " 10321,82,"103",2,0,0,"0","(A) NONZERO IF NO MATCH" 10322,10,"",0,0,0,"0","" 10323,76,"102",84,0,0,"0","" 10400,PROCR,"104",,,,"104","ALARM IF CANT FIND REQUIRED ???" 10402,126,"125",5,0,3,"0","" 10403,150,"",0,0,0,"10","" 10404,C,"136",61,0,0,"0","gUNLOAD" 10405,C,"104",7,0,0,"0","gTRY AGAIN" 10406,C,"105",38,0,0,"0","gAS YOU ARE" 10407,,"148",42,1,0,"0","ORIGINAL (A)" 10408,76,"102",2,0,0,"0","" 10409,124,"999",5,0,3,"0","" 10410,106,"",34,0,0,"0","" 10411,32,"",0,0,0,"4-","" 10412,5,"142",2,0,0,"0","ROUTE TYPE" 10413,32,"",0,0,0,"2","" 10414,10,"",0,0,0,"0","(ALT ROUTE)" 10415,32,"",0,0,0,"2","" 10416,5,"143",2,0,0,"0","ROUTE" 10417,124,"999",5,0,3,"0","" 10418,124,"",32,0,3,"0","" 10419,124,"",12,0,3,"0","START OF ASSEMBLER TABLE" 10420,101,"",0,1,3,"0","" 10421,34,"143",2,0,0,"0","BITS 4-8" 10422,36,"148",96,0,0,"0","8XCHANNEL" 10423,5,"126",2,0,0,"0","" 10500,PROCR,"105",,,,"105","START PASS 0-DEAL WITH INITIAL TRANSLATION" 10502,11,"",0,0,0,"80","*" 10503,106,"105",2,0,0,"0","**" 10504,124,"999",5,0,3,"0","ADJUST ORDERS" 10505,124,"",32,0,3,"0","FOR FCC MACHINES" 10506,104,"",32,0,0,"0","*****" 10507,103,"105",24,0,0,"0","****" 10508,102,"105",31,0,0,"0","***" 10509,124,"126",2,0,3,"0","" 10510,106,"",0,0,0,"0","LAST ROUTE ON CHANNEL" 10511,2,"143",2,0,0,"0","" 10512,71,"105",15,0,0,"0","NOT THIS ONE" 10513,124,"126",2,0,3,"0","" 10514,102,"",0,1,0,"0","CLEAR DETAILS" 10515,124,"143",2,0,3,"0","" 10516,106,"",64,0,0,"0","OLD ASL" 10517,124,"999",7,0,3,"0","NEW ROUTE" 10518,102,"",64,0,0,"0","" 10519,,"142",2,0,0,"0","OLD ROUTE TYPE LOAD NEW ROUTE" 10520,124,"143",2,0,3,"0","" 10521,102,"",64,0,0,"0","" 10522,,"140",2,0,0,"0","NEW ROUTE TYPE" 10523,30,"",0,0,0,"2","" 10524,11,"",0,0,0,"80","***** DON'T MOVE *****" 10525,30,"",0,0,0,"2","" 10526,1,"999",7,0,0,"0","NEW ROUTE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000059.JPG",,,,"","RayS/Q1000059" 10527,124,"999",5,0,3,"0","" 10528,102,"",34,0,0,"0","" 10529,,"999",7,0,0,"0","" 10530,30,"",0,0,0,"2","" 10531,11,"",0,0,0,"80","***** DON'T MOVE *****" 10532,124,"999",5,0,3,"0","" 10533,102,"",35,0,0,"0","" 10534,126,"125",6,0,3,"0","" 10535,52,"3",0,0,0,"0","" 10536,C,"149",16,0,0,"0","" 10537,154,"3",0,0,0,"0","" 10538,62,"",0,0,0,"0","" 10539,80,"134",2,0,0,"0","gINTERCHANGE A1;D1 ASL'S" 10540,,"27",10,0,0,"0","INPUT TYPE" 10541,11,"",0,0,0,".","" 10542,34,"148",70,1,0,"0","" 10543,80,"126",2,0,0,"0","gOPEN B1" 10544,54,"3",0,1,0,"2158","ALL SECTIONS PASS 0" 10545,54,"72",0,1,0,"838","ALL SECTIONS PASS 2" 10546,80,"141",2,0,0,"0","READ PT" 10547,,"5",0,1,0,"0","" 10548,2,"148",44,1,0,"0","PROGM'" 10549,3,"148",44,1,0,"0","IND'INITIAL TRANSLATION'" 10550,71,"107",2,0,0,"0","gAMENDMENT" 10551,40,"A6",0,0,0,"0","" 10552,80,"131",2,0,0,"0","gWRITE" 10553,10,"",0,0,0,"63","99" 10554,5,"94",45,0,0,"0","TRANSLATORS PROCR" 10555,80,"141",2,0,0,"0","READ PT" 10556,70,"125",19,0,0,"0","gPT AT END SIGN" 10557,0,"5",0,1,0,"0","" 10558,2,"148",72,1,0,"0","TRAMD'" 10559,71,"105",66,0,0,"0","" 10560,10,"",0,0,0,"1","" 10561,5,"27",11,0,0,"0","IND'INITIAL TRANSLATION'" 10562,80,"131",2,0,0,"0","gWRITE" 10563,80,"141",2,0,0,"0","READ" 10564,70,"125",19,0,0,"0","gPT AT END" 10565,76,"105",62,0,0,"0","" 10566,54,"4",0,1,0,"18","" 10567,,"27",10,0,0,"0","" 10568,12,"",0,0,0,"1","" 10569,70,"105",73,0,0,"0","gPT" 10570,50,"5",4,0,0,"0","" 10571,C,"150",4,0,0,"0","" 10572,76,"105",76,0,0,"0","" 10573,124,"150",4,0,2,"0","" 10574,124,"999",15,1,2,"0","SEC 5" 10575,128,"",0,0,3,"0","" 10576,,"4",6,1,0,"0","" 10577,2,"148",46,1,0,"0","PROCR'" 10578,71,"105",81,0,0,"0","gNO" 10579,3,"148",90,0,0,"0","SET IND FOR 'PROCR'" 10580,76,"105",91,0,0,"0","" 10581,,"4",6,1,0,"0","" 10582,2,"148",48,1,0,"0","TABLE'" 10583,70,"105",90,0,0,"0","" 10584,,"4",6,1,0,"0","" 10585,2,"148",50,1,0,"0","CONST'" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000060.JPG",,,,"","RayS/Q1000060" 10586,71,"106",37,0,0,"0","gNOT A DIRECTIVE" 10587,34,"4",16,0,0,"0","CONSTANT TYPE" 10588,36,"148",2,0,0,"0","BIT 1" 10589,70,"105",91,0,0,"0","gSHORT" 10590,10,"",0,0,0,"1","" 10591,5,"17",0,0,0,"0","" 10592,62,"",0,0,0,"0","" 10593,10,"",0,0,0,"1","" 10594,4,"94",45,0,0,"0","TRANSLATOR PROCR" 10595,60,"",0,0,0,"0","" 10600,PROCR,"106",,,,"106","DEAL WITH CODERS PROCR NUMBER-INITIAL TRANSLATION" 10602,,"4",8,1,0,"0","CODERS PROCR" 10603,12,"",0,0,0,"100","" 10604,73,"106",40,0,0,"0","gLESS THAN 100" 10605,12,"",0,0,0,"899","" 10606,72,"106",40,0,0,"0","" 10607,,"4",8,1,0,"0","gGREATER THAN 998" 10608,80,"142",2,0,0,"0","CONVERT TO BIN" 10609,12,"",0,0,0,"64","-100" 10610,33,"",0,0,0,"1-","" 10611,5,"17",8,1,0,"0","" 10612,74,"106",15,0,0,"0","gC-100 EVEN" 10613,10,"",0,0,0,"t","" 10614,5,"17",9,0,0,"0","NO OF BITS TO BE SHIFTED" 10615,,"94",45,0,0,"0","TRANSLATORS PROCR" 10616,34,"148",68,0,0,"0","BITS 1-10" 10617,124,"17",9,0,1,"0","LS HALF EVEN PROCR NUMBER" 10618,33,"",0,0,0,"0","/////" 10619,5,"142",2,0,0,"0","WL" 10620,124,"17",8,0,1,"0","" 10621,36,"22",0,0,0,"0","" 10622,71,"106",40,0,0,"0","gPROCR ALREADY USED" 10623,,"142",2,0,0,"0","" 10624,124,"17",8,0,1,"0","" 10625,37,"22",0,0,0,"0","" 10626,62,"",0,0,0,"0","SET BIN" 10627,,"94",45,0,0,"0","TRANSLATORS PROCR" 10628,19,"",0,0,0,"14","DIVIDE BY 20" 10629,5,"17",10,0,0,"0","" 10630,32,"",0,0,0,"9","" 10631,5,"17",9,0,0,"0","" 10632,,"17",0,0,0,"0","SHORT/LONG IND" 10633,124,"17",9,0,1,"0","" 10634,31,"",0,0,0,"0","/////" 10635,124,"17",10,0,1,"0","" 10636,4,"94",5-,0,0,"0","AUGMENT TABLE" 10637,80,"131",2,0,0,"0","WRITE A6" 10638,60,"",0,0,0,"0","" 10639,76,"105",55,0,0,"0","gREAD PT, TEST NEXT BLOCK" 10640,10,"",0,0,0,"1","" 10641,5,"17",16,2,0,"0","SET 'PASS 0 DOESN'T LIKE IT'" 10642,76,"106",26,0,0,"0","gO/P, UPDATE 'LENGTH' IND" 10700,PROCR,"107",,,,"","START OF AMENDMENT RUN" 10702,0,"5",0,1,0,"0","" 10703,2,"148",52,1,0,"0","'AMEND'" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000061.JPG",,,,"","GeoffC/Q1000061" 10704,70,"107",16,0,0,"0","" 10705,,"5",0,1,0,"0","" 10706,2,"148",72,1,0,"0","'TRAMD'" 10707,70,"144",2,0,0,"0",">" 10708,150,"",0,0,0,"3","ALARM*3" 10709,C,"136",61,0,0,"0",">UNLOAD" 10710,C,"107",11,0,0,"0",">REENTER" 10711,,"27",9,0,0,"0","" 10712,11,"",0,0,0,"900000","" 10713,91,"",0,0,3,"0","(END VALUE NON ZERO)" 10714,80,"134",2,0,0,"0",">INTERCHANGE A1,D1 ASL'S" 10715,76,"100",2,0,0,"0","" 10716,80,"145",2,0,0,"0","UNPACK AND CHECK AMEND BLOCK" 10717,40,"A6",0,0,0,"0","" 10718,54,"9",4,1,0,"50","" 10719,91,"",0,0,3,"0","CLEAR R3" 10720,80,"131",2,0,0,"0",">WRITE 'AMEND'" 10721,0,"10",14,1,0,"0","" 10722,12,"",0,0,0,"7.0000007.","" 10723,71,"107",27,0,0,"0",">NOT ISSUE 2.3 OUTPUT" 10724,5,"10",12,1,0,"0","" 10725,5,"10",14,1,0,"0","" 10726,5,"10",16,1,0,"0","" 10727,0,"10",16,2,0,"0","'MULTI-RECORD'IND" 10728,5,"27",1,0,0,"0","" 10729,0,"10",14,2,0,"0","'PSEUDO-ISSUE 5'IND" 10730,5,"27",2,0,0,"0","" 10731,0,"10",12,2,0,"0","'ISSUE 6 OR LATER'IND" 10732,3,"27",0,0,0,"0","" 10733,71,"111",2,0,0,"0",">YES" 10734,80,"137",2,0,0,"0",">READ MT" 10735,,"27",1,0,0,"0","" 10736,70,"107",39,0,0,"0",">1-RECORD BLOX" 10737,0,"10",12,1,0,"0","" 10738,76,"107",40,0,0,"0","" 10739,0,"10",10,1,0,"0","" 10740,2,"148",46,1,0,"0","'PROCR'" 10741,70,"107",48,0,0,"0","" 10742,1,"148",46,1,0,"0","" 10743,2,"148",48,1,0,"0","'TABLE'" 10744,70,"107",48,0,0,"0","" 10745,1,"148",48,1,0,"0","" 10746,2,"148",50,1,0,"0","'CONST'" 10747,71,"107",34,0,0,"0",">GET TO FIRST PROCR START" 10748,,"27",1,0,0,"0","" 10749,70,"107",52,0,0,"0",">1-RECORD BLOX" 10750,59,"10",6,0,8,"0","" 10751,C,"10",4,2,0,"0","" 10752,,"27",1,0,0,"0","" 10753,70,"107",56,0,0,"0","" 10754,,"",6,1,8,"0","" 10755,76,"107",57,0,0,"0","" 10756,0,"10",10,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000062.JPG",,,,"","GeoffC/Q1000062" 10757,2,"148",60,1,0,"0","'END '" 10758,70,"109",9,0,0,"0","gEND OF INTERCODE" 10759,1,"148",60,1,0,"0","" 10760,2,"148",46,1,0,"0","'PROCR'" 10761,70,"108",12,0,0,"0","gYES" 10762,1,"148",46,1,0,"0","" 10763,2,"148",48,1,0,"0","'TABLE'" 10764,70,"108",11,0,0,"0","gYES" 10765,1,"148",48,1,0,"0","" 10766,2,"148",50,1,0,"0","'CONST'" 10767,70,"108",2,0,0,"0","gYES" 10768,1,"148",50,1,0,"0","" 10769,2,"148",56,1,0,"0","'DUMPS'" 10770,70,"109",2,0,0,"0","gYES" 10771,1,"148",56,1,0,"0","" 10772,2,"148",58,1,0,"0","'FILES'" 10773,70,"109",2,0,0,"0","gYES" 10774,1,"148",58,1,0,"0","" 10775,12,"",0,0,0,"7551637455","'VALUE'" 10776,71,"108",61,0,0,"0","gNOT A DIRECTIVE" 10777,,"27",1,0,0,"0","" 10778,70,"107",81,0,0,"0","" 10779,,"",4,2,8,"0","" 10780,76,"107",82,0,0,"0","" 10781,0,"10",6,2,0,"0","LINE SERIAL" 10782,70,"108",61,0,0,"0","gDON'T COUNT" 10783,94,"108",61,0,3,"1","g(NEVER RUNS OUT)" 10800,PROCR,"108",,,,"","STORE PROCR LENGTH AT DIRECTIVE BLOCK-ISSUE 5 TRANSLATOR O/P" 10802,,"27",1,0,0,"0","" 10803,70,"108",6,0,0,"0","" 10804,34,"",14,2,8,"0","CONST TYPE 05" 10805,76,"108",7,0,0,"0","" 10806,34,"10",20,2,0,"0","" 10807,10,"",0,0,0,"0","" 10808,32,"",0,0,0,"4-","" 10809,36,"148",2,0,0,"0","BIT 1" 10810,70,"108",12,0,0,"0","gSHORT" 10811,10,"",0,0,0,"1",";TABLE" 10812,5,"3",45,0,0,"0","WL;PROCR" 10813,60,"",0,0,0,"0","" 10814,10,"",0,0,0,"1","" 10815,4,"17",10,0,0,"0","COUNT DIRECTIVE BLOX" 10816,,"17",10,0,0,"0","" 10817,11,"",0,0,0,"99","" 10818,80,"142",2,0,0,"0","gBIN" 10819,3,"6",0,0,3,"0","" 10820,94,"",0,0,3,"1","" 10821,19,"",0,0,0,"14","DIVIDE BY 20" 10822,5,"148",42,1,0,"0","" 10823,91,"148",42,0,1,"0","" 10824,32,"",0,0,0,"9","REMAINDERgA" 10825,5,"3",46,0,0,"0","WL PROCR" 10826,0,"3",45,0,0,"0","BIT IND" 10827,124,"3",46,0,1,"0","" 10828,31,"",0,0,0,"0","/////" 10829,4,"3",5-,0,1,"0","LIST IN 3/0-44" 10830,,"27",2,0,0,"0","" 10831,71,"108",61,0,0,"0","gPSEUDO-ISSUE 5" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000063.JPG",,,,"","GeoffC/Q1000063" 10832,,"4",2,0,0,"0","PROG ID;TEST DUMMY CLEO MOD" 10833,34,"4",4,0,0,"0","PROG SERIAL" 10834,74,"108",61,0,0,"0","gSKIP BUILDING UP SEC 53 FROM LINE SERIA" 10835,,"27",1,0,0,"0","" 10836,70,"108",39,0,0,"0","" 10837,,"",4,2,8,"0","" 10838,76,"108",40,0,0,"0","" 10839,0,"10",6,2,0,"0","LINE SERIAL" 10840,30,"",0,0,0,"2-","" 10841,80,"142",2,0,0,"0","gBIN(NEW PROG)" 10842,5,"143",2,0,0,"0","WL" 10843,,"27",1,0,0,"0","" 10844,70,"108",47,0,0,"0","" 10845,,"",10,2,8,"0","" 10846,76,"108",48,0,0,"0","" 10847,0,"10",16,2,0,"0","OLD PROG" 10848,30,"",0,0,0,"2-","" 10849,70,"108",61,0,0,"0","gDON'T COUNT" 10850,80,"142",2,0,0,"0","gBIN(NEW PROG)" 10851,33,"",0,0,0,"1-","HALVE" 10852,92,"",0,0,2,"0","(CLEARS A)" 10853,74,"108",58,0,0,"0","gEVEN" 10854,34,"148",68,0,0,"0","BITS 1-10" 10855,,"143",2,0,0,"0","" 10856,33,"",0,0,0,"10","" 10857,76,"108",60,0,0,"0","" 10858,34,"148",68,0,0,"0","" 10859,,"143",2,0,0,"0","" 10860,37,"53",50-,0,2,"0","" 10861,,"27",1,0,0,"0","" 10862,70,"108",71,0,0,"0","g1-RECORD BLOCKS" 10863,,"",0,2,8,"0","CURRENT RECORD LENGTH" 10864,5,"137",2,0,0,"0","" 10865,97,"137",2,0,8,"0","" 10866,C,"107",52,0,0,"0","gNOT EMPTY" 10867,80,"137",2,0,0,"0","gREAD A1" 10868,59,"10",6,0,8,"0","" 10869,C,"10",4,2,0,"0","" 10870,76,"107",52,0,0,"0","" 10871,80,"137",2,0,0,"0","gREAD A1" 10872,76,"107",52,0,0,"0","" 10900,PROCR,"109",,,,"","DEAL WITH DUMPS/FILES/END-STORE B/FWD OLD/NEW PROCR INDEX-ISSUE 5" 10902,0,"10",6,2,0,"0","" 10903,5,"3",45,0,0,"0","STORE 5-DIGIT SERIAL FIRST LINE" 10904,80,"137",2,0,0,"0","gREAD MT" 10905,0,"10",10,1,0,"0","" 10906,2,"148",60,1,0,"0","'END '" 10907,71,"109",4,0,0,"0","" 10908,76,"109",15,0,0,"0",";END" 10909,,"27",1,0,0,"0","" 10910,70,"109",13,0,0,"0","gSINGLE-RECORD BLOX" 10911,,"",4,2,8,"0","LINE SERIAL" 10912,76,"109",14,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000064.JPG",,,,"","RayS/Q1000064" 10913,0,"10",6,2,0,"0","" 10914,5,"3",45,0,0,"0","STORE HIGHEST LINE SERIAL" 10915,,"3",45,0,0,"0","" 10916,71,"109",22,0,0,"0","" 10917,60,"",0,0,0,"0","" 10918,0,"17",10,0,0,"0","DIRECTIVE CTR" 10919,11,"",0,0,0,"100","" 10920,30,"",0,0,0,"2","" 10921,3,"3",45,0,0,"0","" 10922,5,"17",21,0,0,"0","" 10923,60,"",0,0,0,"0","HIGHEST EFFECTIVE LINE SERIAL" 10924,35,"",0,0,0,"11","" 10925,36,"3",45,0,0,"0","LINE SERIAL OF DUMPS/FILES/END" 10926,70,"109",28,0,0,"0","gA PROCR-SHAPED LINE" 10927,10,"",0,0,0,"100","STEP PROCR" 10928,1,"3",45,0,0,"0","" 10929,30,"",0,0,0,"2-","" 10930,80,"142",2,0,0,"0","gTO BIN" 10931,5,"3",45,0,0,"0","(HIGHEST B/FWD PROCR+1) IN BINARY" 10932,,"17",10,0,0,"0","DIRECTIVE CTR" 10933,11,"",0,0,0,"100","" 10934,80,"142",2,0,0,"0","gBIN" 10935,5,"94",45,0,0,"0","PROVIS(MAX C/FWD PROCR)+1" 10936,,"27",2,0,0,"0","" 10937,71,"110",27,0,0,"0","gPEUDO-ISSUE 5 O/P" 10938,90,"",0,0,3,"0","" 10939,C,"",0,0,0,"900","" 10940,90,"",0,0,2,"0","" 10941,C,"",0,0,0,"2","TRICK SETTING" 10942,80,"139",2,0,0,"0","gGET NEXT LOCN" 10943,,"4",2,0,0,"0","PROG ID" 10944,34,"4",4,0,0,"0","PROG SERIAL" 10945,75,"109",51,0,0,"0","gBY PASS,EXCEPT PROG'00000'" 10946,0,"10",4,2,2,"0","" 10947,33,"",0,0,0,"10-","" 10948,5,"6",1,0,3,"0","" 10949,33,"",0,0,0,"10","" 10950,5,"6",0,0,3,"0","" 10951,94,"109",42,0,3,"2","" 10952,,"4",2,0,0,"0","" 10953,34,"4",4,0,0,"0","" 10954,75,"109",58,0,0,"0","gNOT PROGM'00000'" 10955,10,"",0,0,0,"1","" 10956,5,"27",2,0,0,"0","SET PSEUDO ISSUE 5" 10957,76,"110",27,0,0,"0","" 10958,,"17",10,0,0,"0","COUNTER OF DIRECTIVE BLOX" 10959,12,"",0,0,0,"500","" 10960,73,"110",2,0,0,"0","gOK" 10961,41,"A1",0,0,0,"1","" 10962,45,"A6",0,0,0,"1","" 10963,150,"",0,0,0,"9","" 10964,C,"136",61,0,0,"0","gUNLOAD" 10965,C,"107",11,0,0,"0","gREENTER" ,,"",,,,"","" 11000,PROCR,"110",,,,"","STORE B/FWD ADJUST DETAILS+UNIQUE REFS I/P TAPE-ISSUE 5" 11002,90,"",0,0,1,"0","" 11003,C,"",0,0,0,"460","(FOR ADJUST DETAILS)" 11004,90,"",0,0,3,"0","" 11005,C,"",0,0,0,"160","FOR STORING" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000065.JPG",,,,"","RayS/Q1000065" 11006,80,"139",2,0,0,"0","gGET ITEM" 11007,0,"10",4,2,2,"0","" 11008,5,"54",0,0,1,"0","" 11009,94,"",0,0,1,"1","" 11010,94,"110",6,0,3,"1","" 11011,80,"139",2,0,0,"0","gGET" 11012,,"10",4,2,2,"0","" 11013,71,"109",61,0,0,"0","gALARM 7, TOO MANY ADJUST DETAILS" 11014,94,"110",11,0,1,"1","" 11015,90,"",0,0,3,"0","" 11016,C,"",0,0,0,"50","" 11017,90,"",0,0,1,"0","" 11018,C,"",0,0,0,"100","(FOR UNIQUE REFS)" 11019,80,"139",2,0,0,"0","gGET" 11020,0,"10",4,2,2,"0","" 11021,5,"55",0,0,1,"0","" 11022,94,"",0,0,1,"1","" 11023,94,"110",19,0,3,"1","" 11024,80,"139",2,0,0,"0","gGET" 11025,0,"10",4,2,2,"0","" 11026,71,"109",61,0,0,"0","gALARM 7, TOO MANY UNIQUE REFS" 11027,46,"A1",8,0,0,"1","" 11028,C,"",0,0,0,"ppppp","" 11029,80,"137",2,0,0,"0","gREAD" 11030,0,"10",6,1,0,"0","" 11031,2,"148",62,1,0,"0","INDEX'" 11032,70,"110",41,0,0,"0","gREAD FWD TO 'PASS 1'" 11033,0,"10",4,2,0,"0","" 11034,2,"4",2,0,0,"0","PROG IDENTITY" 11035,71,"110",39,0,0,"0","gMISALIGNED" 11036,0,"10",6,2,0,"0","" 11037,2,"4",4,0,0,"0","SERIAL" 11038,70,"111",23,0,0,"0","gOK" 11039,45,"A1",0,0,0,"1","" 11040,80,"138",2,0,0,"0","gOPEN A1" 11041,80,"136",2,0,0,"0","gAPPROACH FROM START OF TAPE" 11042,76,"111",23,0,0,"0","" ,,"",,,,"","" 11100,PROCR,"111",,,,"","DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN" 11102,90,"",0,0,1,"0","" 11103,C,"",0,0,0,"46","" 11104,80,"137",2,0,0,"0","READ MT" 11105,55,"10",4,2,0,"46","" 11106,C,"3",0,0,1,"0","INDEX 3/0-45" 11107,94,"111",4,0,1,"23","" 11108,,"3",45,0,0,"0","" 11109,80,"143",2,0,0,"0","gDEC" 11110,30,"",0,0,0,"2","" 11111,5,"17",21,0,0,"0","HIGHEST EFFECTIVE LINE SERIAL" 11112,62,"",0,0,0,"0","" 11113,,"3",45,0,0,"0","(HIGHEST B/FWD PROCR+1) IN BINARY" 11114,30,"",0,0,0,"5","" 11115,101,"",100,1,1,"0","CREATE B/FWD OLD-NEW PROCR INDEX" 11116,91,"",0,0,1,"0","" 11117,101,"",100,1,3,"0","" 11118,3,"6",100-,0,1,"0","STORE ONE-FOR-ONE" 11119,11,"",0,0,0,"1","" 11120,94,"111",18,0,1,"1","MAX B/FWD PROCR" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000066.JPG",,,,"","RayS/Q1000066" 11121,,"3",45,0,0,"0","=PROVIS MAX C/FWD PROCR" 11122,5,"94",45,0,0,"0","" 11123,52,"18",0,0,0,"0","" 11124,C,"149",2,0,0,"0","" 11125,154,"18",0,0,0,"0","TYPE 'AMEND' COMMENT" 11200,PROCR,"112",,,,"","READ/WRITE MODS UP TO FIRST DIRECTIVE" 11202,80,"127",2,0,0,"0","gREAD/TEST PT" 11203,70,"112",6,0,0,"0","gYES" 11204,80,"131",2,0,0,"0","gWRITE" 11205,76,"112",2,0,0,"0","" 11206,10,"",0,0,0,"9999","" 11207,3,"17",10,0,0,"0","SET FOR SEQUENCE CHECKS" 11208,5,"17",14,0,0,"0","" 11209,0,"4",3,0,0,"0","LINE SERIAL" 11210,30,"",0,0,0,"3-","" 11211,12,"",0,0,0,"5e","*" 11212,70,"112",4,0,0,"0","gMOD TO SECTIONS" 11213,,"17",28,1,0,"0","PROG + SERIAL" 11214,71,"113",16,0,0,"0","gNORMAL" 11215,10,"",0,0,0,"1","PROGM 00000" 11216,5,"17",16,1,0,"0","SET PASS 0 DOESN'T LIKE IT" 11217,80,"133",2,0,0,"0","gCOPY" 11218,76,"112",15,0,0,"0","gIGNORE ALL MODS" ,,"",,,,"","" 11300,PROCR,"113",,,,"","MAIN LOOP" 11302,80,"141",2,0,0,"0","gREAD" 11303,70,"124",2,0,0,"0","gPT END" 11304,0,"5",0,1,0,"0","" 11305,2,"148",72,1,0,"0","TRAMD'" 11306,71,"113",13,0,0,"0","gNO" 11307,10,"",0,0,0,"1","" 11308,5,"27",11,0,0,"0","SET IND THAT TRAMDING" 11309,80,"131",2,0,0,"0","gWRITE" 11310,80,"141",2,0,0,"0","gREAD" 11311,71,"113",9,0,0,"0","gNOT PT END" 11312,76,"124",2,0,0,"0","" 11313,80,"132",2,0,0,"0","gUNPACK" 11314,80,"129",2,0,0,"0","gSTORE SWITCH, TEST DIRECTIVE" 11315,71,"120",2,0,0,"0","" 11316,60,"",0,0,0,"0","" 11317,,"17",10,0,0,"0","CHECK SEQUENCE AT NEW DIRECTIVE" 11318,2,"4",2,2,0,"0","" 11319,73,"113",24,0,0,"0","gOK" 11320,71,"121",44,0,0,"0","gREJECT, READ/COPY TO NEXT DIRECTIVE" 11321,0,"17",12,0,0,"0","" 11322,12,"",0,0,0,"3","" 11323,71,"121",44,0,0,"0","gPREVIOUS NOT 'T' H53, IGNORE THIS" 11324,,"17",21,0,0,"0","MAX B/FWD LINE SERIAL" 11325,2,"4",2,2,0,"0","THIS LINE SERIAL" 11326,72,"113",31,0,0,"0","gNORMAL" 11327,10,"",0,0,0,"1","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000067.JPG",,,,"","GeoffC/Q1000067" 11328,5,"17",16,1,0,"0","SET 'PASS 0 DOESNT LIKE IT'" 11329,80,"133",2,0,0,"0","gWRITE A6" 11330,76,"113",27,0,0,"0","" 11331,71,"113",36,0,0,"0","gOK" 11332,86,"129",2,0,0,"0","" 11333,12,"",0,0,0,"3","" 11334,71,"113",27,0,0,"0","gMOD AT END IS NOT 'INSERT'" 11335,76,"119",7,0,0,"0","gINSERTING AT END SIGN" 11336,,"4",2,2,0,"0","" 11337,30,"",0,0,0,"2-","" 11338,80,"142",2,0,0,"0","BIN TEST IF VALUE" 11339,5,"143",2,0,0,"0",";DIRECTIVE?" 11340,124,"143",2,0,1,"0","EQUIV OF CURRENT PROCR" 11341,,"6",100-,0,0,"0","" 11342,70,"121",44,0,0,"0","gREJECT.READ/COPY TO NEXT DIRECTIVE" 11343,85,"129",2,0,0,"0","" 11344,C,"118",2,0,0,"0","R" 11345,C,"114",2,0,0,"0","D" 11346,C,"119",2,0,0,"0","T" 11347,C,"118",30,0,0,"0","A" 11400,PROCR,"114",,,,"","" 11402,80,"130",2,0,0,"0","gFIND 'PROCR 'LENGTH'" 11403,5,"17",0,0,0,"0","0=SHORT, 1=LONG" 11404,35,"",0,0,0,"11","" 11405,36,"4",2,2,0,"0","" 11406,12,"",0,0,0,"1","" 11407,70,"114",12,0,0,"0","gDELETION BEGINS AT'NOTES'" 11408,10,"",0,0,0,"0","" 11409,34,"17",0,0,0,"0","" 11410,36,"4",2,2,0,"0","LINE SERIAL" 11411,71,"121",44,0,0,"0","gUNACCEPTABLE MOD" 11412,0,"4",2,2,0,"0","" 11413,3,"17",14,0,0,"0","" 11414,30,"",0,0,0,"8","" 11415,70,"114",19,0,0,"0","gDELETING PROCR" 11416,,"17",3,0,0,"0","CTR OF ADJUST DETAILS" 11417,101,"",460,1,2,"0","" 11418,70,"121",44,0,0,"0","gLIST FULL.COPY TO NEXT DIRECTIVE" 11419,80,"131",2,0,0,"0","gWRITE A6" 11420,80,"141",2,0,0,"0","gREAD" 11421,70,"115",2,0,0,"0","gPT AT END. SINGLE LINE DELETE" 11422,,"5",0,1,0,"0","" 11423,2,"148",72,1,0,"0","'TRAMD'" 11424,70,"115",2,0,0,"0","" 11425,80,"132",2,0,0,"0","gUNPACK" 11426,80,"129",2,0,0,"0","gTEST DIRECTIVE" 11427,71,"116",2,0,0,"0","gNO, HENCE MULTIPLE DELETE" 11500,PROCR,"115",,,,"","DEAL WITH SINGLE LINE DELETION" 11502,0,"17",14,0,0,"0","" 11503,3,"17",10,0,0,"0","FOR SEQUENCE CHECKS" 11504,30,"",0,0,0,"8","" 11505,71,"115",8,0,0,"0","gNOT DELETING 'PROCR'" 11506,,"17",14,0,0,"0","" 11507,76,"116",19,0,0,"0","gJOIN UP WITH MULTIPLE DELETION" 11508,30,"",0,0,0,"8-","" 11509,12,"",0,0,0,"1","" 11510,70,"115",26,0,0,"0","gDELETING 'NOTES'ONLY" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000068.JPG",,,,"","GeoffC/Q1000068" 11511,10,"",0,0,0,"0","" 11512,2,"17",0,0,0,"0","" 11513,12,"",0,0,0,"1","" 11514,5,"17",15,0,0,"0","" 11515,,"17",14,0,0,"0","" 11516,32,"",0,0,0,"2-","" 11517,5,"17",19,0,0,"0","PROCR" 11518,,"17",14,0,0,"0","" 11519,2,"17",15,0,0,"0","-(NEGATIVE ADJUST DETAILS)" 11520,5,"17",14,0,0,"0","" 11521,,"17",14,0,0,"0","LINE SERIAL+ADJUST DETAIL" 11522,32,"",0,0,0,"2-","" 11523,2,"17",19,0,0,"0","" 11524,71,"115",26,0,0,"0","CARRY INTO NEXT PROCR.DON'T STORE" 11525,80,"140",2,0,0,"0","gSTORE ADJUSTMENT" 11526,0,"5",0,1,0,"0","" 11527,30,"",0,0,0,"4-","" 11528,30,"",0,0,0,"4","" 11529,2,"148",60,1,0,"0","'END'" 11530,70,"124",2,0,0,"0","gPT AT END" 11531,,"5",0,1,0,"0","" 11532,2,"148",72,1,0,"0","'TRAMD'" 11533,70,"113",7,0,0,"0","" 11534,76,"113",16,0,0,"0","gTEST NEW DIRECTIVE IN SEQUENCE" 11600,PROCR,"116",,,,"","DEAL WITH MULTIPLE DELETION" 11602,,"4",2,2,0,"0","" 11603,30,"",0,0,0,"2-",";TEST IF DIRECTIVE" 11604,80,"142",2,0,0,"0","gBIN;IS VALUE SERIAL?" 11605,5,"143",2,0,0,"0","" 11606,124,"143",2,0,1,"0","" 11607,,"6",100-,0,0,"0","" 11608,70,"121",44,0,0,"0","gATTEMPTING TO DELETE 'VALUE' REJECT" 11609,80,"130",2,0,0,"0","gFIND PROCR 'LENGTH'" 11610,5,"17",0,0,0,"0","" 11611,34,"17",0,0,0,"0","" 11612,36,"4",2,2,0,"0","LINE SERIAL 'TO'" 11613,71,"121",44,0,0,"0","gREJECT AMENDMENT" 11614,0,"17",14,0,0,"0","'FROM'" 11615,2,"4",2,2,0,"0","'TO'" 11616,72,"121",44,0,0,"0","gREJECT.OUT OF SEQUENCE" 11617,,"4",2,2,0,"0","'TO'PROCR" 11618,3,"17",10,0,0,"0","FOR SEQUENCE CHECKS" 11619,32,"",0,0,0,"2-","" 11620,5,"17",15,0,0,"0","3-DIGIT'TO'" 11621,,"17",14,0,0,"0","'FROM'PROCR" 11622,32,"",0,0,0,"2-","'TO'PROCR" 11623,3,"17",19,0,0,"0","'3-DIGIT'FROM'" 11624,2,"17",15,0,0,"0","" 11625,70,"116",30,0,0,"0","gDELETIONS IN SAME PROCR" 11626,,"17",14,0,0,"0","'FROM'SERIAL" 11627,30,"",0,0,0,"8","" 11628,70,"117",2,0,0,"0","gOK.ALLOW DELETION" 11629,76,"121",44,0,0,"0","gREJECT" 11630,32,"",0,0,0,"2","" 11631,70,"117",2,0,0,"0","g'FROM' PROCR DELETED ONLY" 11632,0,"17",14,0,0,"0","" 11633,30,"",0,0,0,"8","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000069.JPG",,,,"","GeoffC/Q1000069" 11634,30,"",0,0,0,"8-","" 11635,12,"",0,0,0,"1","" 11636,70,"121",44,0,0,"0","gMULTIPLE DELETION BEGINS AT'NOTES.REJE" 11637,,"17",14,0,0,"0","'FROM'SERIAL" 11638,2,"4",2,2,0,"0","'TO'SERIAL" 11639,2,"17",0,0,0,"0","LENGTH" 11640,12,"",0,0,0,"1","" 11641,5,"17",15,0,0,"0","(NEGATIVE ADJUST DETAIL)" 11642,,"17",14,0,0,"0","" 11643,2,"17",15,0,0,"0","-(NEGATIVE ADJUST DETAIL)" 11644,5,"17",14,0,0,"0","" 11645,,"17",14,0,0,"0","LINE SERIAL+ADJUSTMENT" 11646,30,"",0,0,0,"2-","" 11647,2,"17",19,0,0,"0","PREVIOUS PROCR" 11648,71,"116",50,0,0,"0","gCARRY INTO PROCR.DON'T STORE" 11649,80,"140",2,0,0,"0","gSTORE ADJUSTMENT" 11650,80,"131",2,0,0,"0","gWRITE" 11651,76,"113",2,0,0,"0","gREAD NEXT BLOCK" 11700,PROCR,"117",,,,"","DELETE MANY PROCEDURES" 11702,,"17",15,0,0,"0","'TO'PROCR" 11703,80,"142",2,0,0,"0","gBIN" 11704,11,"",0,0,0,"1","" 11705,2,"3",45,0,0,"0","(HIGHEST PROCR+1)" 11706,73,"117",8,0,0,"0","" 11707,10,"",0,0,0,"0","" 11708,1,"3",45,0,0,"0","" 11709,5,"17",15,0,0,"0","EFFECTIVE'TO'PROCR" 11710,,"17",19,0,0,"0","'FROM'PROCR" 11711,80,"142",2,0,0,"0","gBIN" 11712,5,"17",19,0,0,"0","" 11713,,"17",14,0,0,"0","'FROM' SERIAL" 11714,30,"",0,0,0,"8","" 11715,70,"117",18,0,0,"0","" 11716,10,"",0,0,0,"1","NOT DELETING ALL 'FROM' PROCR" 11717,4,"17",19,0,0,"0","" 11718,,"17",15,0,0,"0","'TO' PROCR+1" 11719,30,"",0,0,0,"5","" 11720,1,"17",19,0,0,"0","'FROM' PROCR" 11721,91,"",0,0,1,"0","" 11722,10,"",0,0,0,"0","" 11723,5,"17",22,0,0,"0","CTR OF VALUE BLOCKS" 11724,,"6",100-,0,1,"0","" 11725,71,"117",28,0,0,"0","g" 11726,10,"",0,0,0,"1","" 11727,4,"17",22,0,0,"0","AUGMENT CTR OF VALUES" 11728,94,"117",24,0,1,"1","" 11729,,"17",15,0,0,"0","" 11730,2,"17",19,0,0,"0","" 11731,3,"142",2,0,0,"0","WL-DELETED QTTY" 11732,11,"",0,0,0,"20000","Bit 18" 11733,30,"",0,0,0,"5","" 11734,124,"17",19,0,1,"0","'FROM'PROCR" 11735,128,"6",100-,0,0,"0","DELETE ALL PROCEDURES" 11736,,"3",45,0,0,"0","HIGHEST PROCR+1" 11737,30,"",0,0,0,"5","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000070.JPG",,,,"","KenK/Q1000070" 11738,1,"17",15,0,0,"0"," 'TO'PROCR+1" 11739,5,"148",42,1,0,"0","" 11740,2,"142",2,0,0,"0","" 11741,1,"17",22,0,0,"0","gNUMBER OF VALUES" 11742,3,"143",2,0,0,"0","(-DELETED QTTY)" 11743,4,"94",45,0,0,"0","REDUCE MAX C/FWD PROCR" 11744,91,"148",42,0,1,"0","" 11745,94,"117",47,0,1,"0","/////" 11746,76,"117",52,0,0,"0","gNONE TO UPDATE" 11747,,"6",100-,0,1,"0","" 11748,70,"117",51,0,0,"0","gVALUE DON'T UPDATE" 11749,,"143",2,0,0,"0","NON-ZERO LOCNS DELETED" 11750,4,"6",100-,0,1,"0","UPDATE PROCR" 11751,94,"117",47,0,1,"1","" 11752,60,"",0,0,0,"0","DEC" 11753,,"17",10,0,0,"0"," 'TO' SERIAL" 11754,2,"17",14,0,0,"0"," 'FROM' SERIAL" 11755,70,"115",26,0,0,"0","gSINGLE LINE DELETE" 11756,76,"116",50,0,0,"0","" 11800,PROCR,"118",,,,""," 'R'DIRECTIVES AND 'A' DIRECTIVES" 11802,35,"",0,0,0,"11",";DIRECTIVE LINE 'R'" 11803,10,"",0,0,0,"0","" 11804,36,"4",2,2,0,"0","" 11805,71,"118",30,0,0,"0","gNOT REPLACING !***00!" 11806,,"4",2,2,0,"0","" 11807,32,"",0,0,0,"2-","" 11808,80,"142",2,0,0,"0","BIN" 11809,2,"3",45,0,0,"0","HIGHEST B/FWD PROCR+1" 11810,72,"118",40,0,0,"0","gREPLACING DUMPS OR FILES" 11811,,"4",6,1,0,"0","" 11812,2,"148",46,1,0,"0"," 'PROCR'" 11813,70,"118",24,0,0,"0","" 11814,,"4",6,1,0,"0","" 11815,2,"148",48,1,0,"0"," 'TABLE'" 11816,70,"118",23,0,0,"0","" 11817,,"4",6,1,0,"0","" 11818,2,"148",50,1,0,"0"," 'CONST'" 11819,71,"121",44,0,0,"0","gNOT REPLACING BY ANOTHER DIRECTIVE ;REJE" 11820,34,"4",16,0,0,"0","" 11821,36,"148",2,0,0,"0","BIT 1" 11822,70,"118",24,0,0,"0","gSHORT CONST" 11823,10,"",0,0,0,"1","" 11824,5,"143",2,0,0,"0","WL=LENGTH OF REPLADEMENT" 11825,80,"130",2,0,0,"0","FIND 'LENGTH'OF REPLACED BLOCK" 11826,3,"17",0,0,0,"0","" 11827,2,"143",2,0,0,"0","" 11828,71,"121",44,0,0,"0","gTRYING TO CHANGE'LENGHT',REJECT" 11829,76,"119",30,0,0,"0","gOK" 11830,80,"130",2,0,0,"0","" 11831,5,"17",0,0,0,"0","gFIND'LENGTH'" 11832,35,"",0,0,0,"11","" 11833,36,"4",2,2,0,"0","LINE SERIAL" 11834,12,"",0,0,0,"1","" 11835,70,"118",40,0,0,"0","gNOTES" 11836,10,"",0,0,0,"0","" 11837,34,"17",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000071.JPG",,,,"","ChuckK/Q1000071" 11838,36,"4",2,2,0,"0","" 11839,71,"121",44,0,0,"0",">UNACCEPTABLE" 11840,,"4",2,2,0,"0","" 11841,3,"17",14,0,0,"0","" 11842,3,"17",10,0,0,"0","" 11843,32,"",0,0,0,"2-","" 11844,5,"17",19,0,0,"0","" 11845,,"4",6,1,0,"0","" 11846,2,"148",46,1,0,"0","PROCR'" 11847,70,"121",44,0,0,"0",">NOT ALLOWED" 11848,,"4",6,1,0,"0","" 11849,2,"148",48,1,0,"0","TABLE'" 11850,70,"121",44,0,0,"0",">" 11851,,"4",6,1,0,"0","" 11852,2,"148",50,1,0,"0","CONST'" 11853,70,"121",44,0,0,"0",">TRYING TO REPLACE BY A DIRECTIVE" 11854,76,"119",30,0,0,"0",">O/P" 11900,PROCR,"119",,,,"","DEAL WITH INSERTIONS" 11902,80,"130",2,0,0,"0","FIND 'LENGTH';INSERTION FIRST LINE" 11903,5,"17",0,0,0,"0","" 11904,34,"17",0,0,0,"0","" 11905,36,"4",2,2,0,"0","" 11906,71,"121",44,0,0,"0",">UNACCEPTABLE" 11907,,"4",2,2,0,"0","LINE SERIAL" 11908,3,"17",10,0,0,"0","" 11909,5,"17",14,0,0,"0","" 11910,,"17",10,0,0,"0","" 11911,3,"17",18,0,0,"0","" 11912,32,"",0,0,0,"2-","" 11913,80,"142",2,0,0,"0",">TO BIN" 11914,5,"17",7,0,0,"0","3 DIGIT REF 'INSERT BEFORE' BIN" 11915,,"17",21,0,0,"0","HIGHEST LINR SERIAL" 11916,2,"17",18,0,0,"0","INSERT BEFORE' SERIAL" 11917,71,"119",24,0,0,"0",">NOT INSERTING BEFORE END SIGN" 11918,60,"",0,0,0,"0","" 11919,,"17",18,0,0,"0","" 11920,11,"",0,0,0,"99","ROUND UP INSERT SERIAL" 11921,32,"",0,0,0,"2-","TO DEAL WITH ISSUE 5 END" 11922,80,"142",2,0,0,"0",">BIN" 11923,5,"17",7,0,0,"0","" 11924,,"4",2,2,0,"0","" 11925,30,"",0,0,0,"8","" 11926,70,"119",30,0,0,"0",">INSERTING BEFORE PROCR START NO.ADJUST" 11927,,"17",3,0,0,"0","CTR OF ADJUST DETAILS" 11928,101,"",460,1,2,"0","" 11929,70,"121",44,0,0,"0",">LIST FULL COPY TO NEXR DIRECTIVE" 11930,80,"131",2,0,0,"0","WRITE" 11931,80,"127",2,0,0,"0",">READ/TEST PT" 11932,70,"113",16,0,0,"0",">YES" 12000,PROCR,"120",,,,"","DEAL WITH NON-DIRECTIVE LINE" 12002,85,"129",2,0,0,"0","" 12003,C,"120",7,0,0,"0","R" 12004,C,"121",44,0,0,"0","D-NOT ACCEPTED, 2 LINES ALREADY" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000072.JPG",,,,"","TonyJ/Q1000072" 12005,C,"121",2,0,0,"0","T" 12006,C,"120",7,0,0,"0","A" 12007,60,"",0,0,0,"0","" 12008,,"17",0,0,0,"0","CURRENT LENGTH" 12009,11,"",0,0,0,"1","" 12010,4,"17",10,0,0,"0","STEP SEQ CTR" 12011,,"17",10,0,0,"0","" 12012,32,"",0,0,0,"2-","" 12013,2,"17",19,0,0,"0","PROCR OF R OR A-DIRECTIVE" 12014,71,"120",25,0,0,"0","> NOT STILL IN SAME PROCR" 12015,,"4",6,1,0,"0","" 12016,2,"148",46,1,0,"0"," 'PROCR'" 12017,70,"121",44,0,0,"0","" 12018,,"4",6,1,0,"0","" 12019,2,"148",48,1,0,"0","TABLE'" 12020,70,"121",44,0,0,"0",">UN ACCEPTABLE" 12021,,"4",6,1,0,"0","" 12022,2,"148",50,1,0,"0","CONST" 12023,70,"121",44,0,0,"0",">UNACCEPTABLE" 12024,76,"116",50,0,0,"0","" 12025,10,"",0,0,0,"1-","" 12026,2,"17",0,0,0,"0","" 12027,4,"17",10,0,0,"0","STEP BACK SEQ CTR SO NEVER ALTERS" 12028,76,"121",44,0,0,"0","> READ/COPY TO NEXT DIRECTIVE" 12100,PROCR,"121",,,DEAL WITH INSERTIONS,"","" 12102,,"4",6,1,0,"0",";INSERTIONS " 12103,2,"148",46,1,0,"0"," 'PROCR'" 12104,70,"121",15,0,0,"0","" 12105,,"4",6,1,0,"0","" 12106,2,"148",48,1,0,"0","" 12107,70,"121",14,0,0,"0","" 12108,,"4",6,1,0,"0","" 12109,2,"148",50,1,0,"0"," 'CONST'" 12110,71,"123",2,0,0,"0"," 'NOT A DIRECTIVE'" 12111,34,"4",16,0,0,"0","CONST TYPE" 12112,36,"148",2,0,0,"0","BIT 1" 12113,70,"121",15,0,0,"0","> SHORT CONST" 12114,10,"",0,0,0,"1","" 12115,5,"17",0,0,0,"0"," 'LENGTH' OF INSERTED PROCR" 12116,35,"",0,0,0,"0","" 12117,,"17",18,0,0,"0","" 12118,32,"",0,0,0,"2-","" 12119,10,"",0,0,0,"0","" 12120,74,"121",32,0,0,"0","> INSERTING BEFORE PROCR START" 12121,,"17",18,0,0,"0","" 12122,2,"17",21,0,0,"0","" 12123,70,"121",32,0,0,"0","> INSERTING AT END OF PROGM" 12124,,"17",10,0,0,"0","" 12125,2,"17",14,0,0,"0","" 12126,70,"121",44,0,0,"0","> NOT IN THE MIDDLE OF AN INSERTION" 12127,5,"17",15,0,0,"0","ADJUST DETAIL" 12128,,"17",10,0,0,"0","" 12129,5,"17",14,0,0,"0","" 12130,80,"140",2,0,0,"0","STORE ADJUST DETAIL" 12131,76,"121",44,0,0,"0","> REJECT 'PROCR'" 12132,,"4",8,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000073.JPG",,,,"","TonyJ/Q1000073" 12133,80,"142",2,0,0,"0","CONVERT TO BIN" 12134,73,"121",44,0,0,"0","> NEGATIVE, IGNORE" 12135,3,"17",4,0,0,"0","NEW PROCR NUMBER (BIN)" 12136,2,"3",45,0,0,"0","HIGHEST B/FWD PROCR (BIN)" 12137,73,"121",44,0,0,"0","NOT UNIQUE" 12138,,"17",4,0,0,"0","" 12139,101,"",999,1,2,"0","MAX PROCR" 12140,72,"121",44,0,0,"0",">IGNORE" 12141,124,"17",4,0,1,"0","" 12142,106,"6",100-,0,0,"0","" 12143,70,"122",2,0,0,"0","> OK, PROCR NOT ALREADY INSETED" 12144,10,"",0,0,0,"1","SET IND 'PASS 0 DOESN'T LIKE IT'" 12145,5,"17",16,1,0,"0","" 12146,80,"133",2,0,0,"0"," READ/WRITE TO NEXT DIRECTIVE" 12147,76,"113",16,0,0,"0","" 12200,PROCR,"122",,122,,"INSERT NEW PROCR INTO LIST IN SEC 6","" 12202,62,"",0,0,0,"0","STEP BACK SEQ CTR SO NEVER ALTERS" 12203,,"3",45,0,0,"0","> READ/COPY TO NEXT DIRECTIVE" 12204,30,"",0,0,0,"5","" 12205,1,"17",7,0,0,"0","" 12206,91,"",0,0,1,"0"," 'PROCR'" 12207,94,"122",10,0,1,"0","/////> NOT INSERTING BEFORE END SIGN" 12208,,"94",45,0,0,"0","CURRENT (HIGHEST C/FWD PROCR) +1" 12209,76,"122",12,0,0,"0","" 12210,124,"17",7,0,1,"0","" 12211,,"6",100-,0,0,"0","UPDATED REF ''INSERT BEFORE''" 12212,5,"135",2,0,0,"0","" 12213,10,"",0,0,0,"1","" 12214,4,"94",45,0,0,"0","" 12215,0,"17",0,0,0,"0","LENGTH IND" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000074.JPG",,,,"","RayS/Q1000074" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000074.JPG",,,,"","RayS/Q1000074" 12216,30,"",0,0,0,"4","" 12217,1,"135",2,0,0,"0","UPDATED REF" 12218,124,"17",4,0,1,"0","CODER'S PROCR" 12219,5,"6",100-,0,0,"0","" 12220,94,"122",22,0,1,"0","/////" 12221,76,"122",27,0,0,"0","gINSERTING BEFORE END SIGN, SKIP" 12222,,"6",100-,0,1,"0","" 12223,70,"122",26,0,0,"0","g'VALUE' DON'T UPDATE" 12224,10,"",0,0,0,"1","" 12225,4,"6",100-,0,1,"0","" 12226,94,"122",22,0,1,"1","" 12227,60,"",0,0,0,"0","" 12228,76,"119",30,0,0,"0","gREAD PT" ,,"",,,,"","" 12300,PROCR,"123",,,,"","INSERTING INSTRUCTIONS" 12302,35,"",0,0,0,"0","" 12303,,"17",18,0,0,"0","" 12304,12,"",0,0,0,"10002","" 12305,73,"121",44,0,0,"0","gUNACCEPTABLE" 12306,,"17",18,0,0,"0","" 12307,32,"",0,0,0,"2-","" 12308,10,"",0,0,0,"0","" 12309,74,"116",50,0,0,"0","gINSERTING AT END OF PROCR" 12310,,"4",2,2,0,"0","LINE SERIAL" 12311,30,"",0,0,0,"2-","" 12312,80,"142",2,0,0,"0","CONVERT TO BIN" 12313,2,"3",45,0,0,"0","(HIGHEST B/FWD PROCR+1)" 12314,73,"123",56,0,0,"0","gNOT A UNIQUE REF" 12315,,"17",2,0,0,"0","" 12316,12,"",0,0,0,"64","" 12317,72,"123",56,0,0,"0","gTOO MANY UNIQUE REFS, DON'T STORE THIS ONE" 12318,,"4",2,2,0,"0","UNIQUE REF" 12319,124,"17",2,0,1,"0","" 12320,5,"21",0,0,0,"0","" 12321,35,"",0,0,0,"11","" 12322,36,"17",14,0,0,"0","" 12323,5,"136",2,0,0,"0","ITEM DEC" 12324,,"17",14,0,0,"0","" 12325,30,"",0,0,0,"2-","" 12326,80,"142",2,0,0,"0","" 12327,5,"141",2,0,0,"0","REF BIN" 12328,124,"141",2,0,1,"0","" 12329,,"6",100-,0,0,"0","" 12330,80,"143",2,0,0,"0","DEC" 12331,3,"17",19,0,0,"0","UPDATED REF DEC" 12332,30,"",0,0,0,"2","" 12333,1,"136",2,0,0,"0","DEC ITEM NOT UPDATED" 12334,5,"17",6,0,0,"0","" 12335,,"17",7,0,0,"0","INSERT BEFORE REF" 12336,2,"141",2,0,0,"0","" 12337,70,"123",40,0,0,"0","gHASN'T GONE OVER THE TOP" 12338,10,"",0,0,0,"1-","" 12339,4,"17",19,0,0,"0","TO GET THE RIGHT ADJUST DETAILS" 12340,90,"",0,0,1,"0","" 12341,C,"",0,0,0,"460","" 12342,,"19",0,0,1,"0","" 12343,70,"123",50,0,0,"0","gEND OF ADJUST DETAILS" 12344,30,"",0,0,0,"2-","" 12345,2,"17",19,0,0,"0","3 DIGIT PROCR" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000110.JPG",,,,"","DavidH/Q1000110" 12346,71,"123",49,0,0,"0","" 12347,,"19",1,0,1,"0","" 12348,4,"17",6,0,0,"0","ADJUST ADDRESS" 12349,94,"123",42,0,1,"2","" 12350,62,"",0,0,0,"0","BIN" 12351,,"17",6,0,0,"0","" 12352,124,"17",2,0,1,"0","" 12353,102,"21",1,0,0,"0","" 12354,10,"",0,0,0,"2","" 12355,4,"17",2,0,0,"0","" 12356,60,"",0,0,0,"0","" 12357,,"17",0,0,0,"0","LENGTH IND" 12358,11,"",0,0,0,"1","" 12359,4,"17",14,0,0,"0","AUGMENT'NEW'LINE SERIAL" 12360,80,"131",2,0,0,"0","O/P" 12361,80,"141",2,0,0,"0","READ" 12362,70,"123",69,0,0,"0","gPT AT END" 12363,,"5",0,1,0,"0","" 12364,2,"148",72,1,0,"0","'TRAMS'" 12365,70,"123",69,0,0,"0","" 12366,80,"132",2,0,0,"0","UNPACK" 12367,80,"129",2,0,0,"0","DIRECTIVE?" 12368,71,"120",2,0,0,"0","gNO" 12369,,"17",14,0,0,"0",";END OF MULTIPLE INSE" 12370,2,"17",10,0,0,"0","DIFFERENCE" 12371,5,"17",15,0,0,"0","QUANTITY ADJUST" 12372,,"17",10,0,0,"0","" 12373,5,"17",14,0,0,"0","" 12374,80,"140",2,0,0,"0","STORE ADJUST DETAIL" 12375,0,"5",0,1,0,"0","g" 12376,30,"",0,0,0,"4-","" 12377,30,"",0,0,0,"4","" 12378,2,"148",60,1,0,"0","'END '" 12379,70,"124",2,0,0,"0","" 12380,,"5",0,1,0,"0","" 12381,2,"148",72,1,0,"0","'TRAMD'" 12382,70,"113",7,0,0,"0","" 12383,71,"113",16,0,0,"0","g PT AT DIRECTIVE" ,,"",,,,"","" 12400,PROCR,"124",,,,"","CONSTRUCT C/FWD PROCR LENGTH INDEX" 12402,62,"",0,0,0,"0","" 12403,54,"94",0,0,0,"45","" 12404,,"3",45,0,0,"0","(HIGHEST B/FWD PROCR+1)" 12405,30,"",0,0,0,"5","" 12406,101,"",100,1,1,"0","" 12407,91,"",0,0,1,"0","" 12408,90,"",0,0,2,"0","SCAN SEC 3" 12409,C,"",0,0,0,"45","" 12410,90,"",0,0,3,"0","SCAN WORD IN SEC 3" 12411,C,"",0,0,0,"20","" 12412,34,"148",2,0,0,"0","BIT 1" 12413,,"6",100-,0,1,"0","" 12414,70,"124",30,0,0,"0","g PROCR DELETED" 0query,164,"",,,,"","unreadable on photo" 12415,10,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000111.JPG",,,,"","TonyJ/Q1000111" 12416,36,"3",0,0,2,"0","" 12417,70,"124",30,0,0,"0","> B/FWD PROCR WAS SHORT" 12418,100,"17",0,1,0,"0","COPY B" 12419,,"6",100-,0,1,"0","C/FWD EQUIVALENT" 12420,19,"",0,0,0,"14","20" 12421,5,"148",42,0,0,"0","" 12422,32,"",0,0,0,"9","" 12423,5,"148",43,0,0,"0","REMAINDER" 12424,10,"",0,0,0,"1","" 12425,124,"148",43,0,1,"0","" 12426,31,"",0,0,0,"0","/////" 12427,124,"148",42,0,1,"0","" 12428,4,"94",5-,0,0,"0","SET C/FWD LENGTH IND" 12429,100,"17",0,1,1,"0","RESTORE B" 12430,33,"",0,0,0,"1","SHIFT COLLATOR" 12431,94,"124",33,0,1,"1","" 12432,76,"124",35,0,0,"0","> END" 12433,94,"124",13,0,3,"1","> THIS BIT NEXT WORD" 12434,94,"124",10,0,2,"1","> NEXT WORD (SHOULD NEVER RUN OUT)" 12435,101,"",1000,1,3,"0","DEAL WITH INSERTED PROCEDURES" 12436,30,"",0,0,0,"5","" 12437,1,"3",45,0,0,"0","" 12438,91,"",0,0,1,"0","" 12439,0,"6",100-,0,1,"0","" 12440,70,"124",54,0,0,"0",">NOT USED" 12441,32,"",0,0,0,"4-","" 12442,70,"124",54,0,0,"0",">SHORT PROCEDURE" 12443,10,"",0,0,0,"0","" 12444,32,"",0,0,0,"4","" 12445,19,"",0,0,0,"14","" 12446,5,"148",42,1,0,"0","" 12447,91,"148",42,0,2,"0","" 12448,32,"",0,0,0,"9","" 12449,5,"17",1,0,0,"0","" 12450,10,"",0,0,0,"1","" 12451,124,"17",1,0,1,"0","" 12452,31,"",0,0,0,"0","/////" 12453,4,"94",5-,0,2,"0","" 12454,94,"124",39,0,1,"1","" 12455,76,"125",6,0,0,"0","" 12500,PROCR,"125",,125,,"END OF PASS 0","" 12502,85,"129",2,0,0,"0","3 ORDER CONST" 12503,C,"105",38,0,0,"0","" 12504,C,"104",3,0,0,"0","" 12505,C,"105",35,0,0,"0","" 12506,90,"",0,0,1,"0","" 12507,C,"",0,0,0,"450","" 12508,90,"",0,0,2,"0","" 12509,C,"",0,0,0,"900","" 12510,10,"",0,0,0,"0","" 12511,35,"",0,0,0,"1111","" 12512,36,"6",1,0,2,"0","" 12513,31,"",0,0,0,"10","" 12514,36,"6",0,0,2,"0","" 12515,5,"22",0,0,1,"0","" 12516,94,"",0,0,1,"1","" 12517,94,"125",12,0,2,"2","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000112.JPG",,,,"","TonyJ/Q1000112" 12518,76,"125",27,0,0,"0","" 12519,62,"",0,0,0,"0","SET BIN" 12520,,"148",90,0,0,"0","IND" 12521,70,"125",25,0,0,"0","" 12522,150,"",0,0,0,"11","" 12523,C,"136",61,0,0,"0","> END" 12524,C,"107",11,0,0,"0","> REENTER" 12525,10,"",0,0,0,"1","" 12526,4,"94",45,0,0,"0","" 12527,80,"131",2,0,0,"0","> WRITE END" 12528,62,"",0,0,0,"0","" 12529,,"27",10,0,0,"0","" 12530,11,"",0,0,0,"18","24" 12531,80,"126",2,0,0,"0","> CLOSE B1" 12532,45,"A6",0,0,0,"0","" 12533,55,"22",0,0,0,"1010","OLD/NEW PROCRS + ADJUSTS + UNIQUE" 12534,C,"18",0,0,0,"0","" 12535,55,"94",0,0,0,"46","" 12536,C,"18",1010,0,0,"0","" 12537,91,"",0,0,3,"0","CLEAR R3" 12538,91,"",0,0,1,"0","& R1" 12539,80,"134",2,0,0,"0","> INTERCHANGE A1. D1 ASL'S" 12540,,"148",44,1,0,"0","" 12541,70,"101",2,0,0,"0","> INITIAL TRANSLATION" 12542,48,"A1",0,0,0,"1","BACK 1 I/P > I/P" 12543,C,"",0,0,0,"1","" 12544,42,"A1",0,0,0,"0","" 12545,C,"7",0,0,0,"0","" 12546,76,"101",2,0,0,"0","> CANN PASS 1" 12600,PROCR,"126",,126,ENTER,"OR B1","" 12602,81,"126",2,0,0,"0","" 12603,30,"",0,0,0,"5","" 12604,1,"999",8,0,0,"0","" 12605,125,"",4096,1,1,"0","" 12606,124,"999",0,0,3,"0","" 12607,123,"",160,0,2,"0","" 12608,82,"126",2,0,0,"0","" 12609,41,"A1",0,0,0,"0","DUMMY FOR ENTRY TO MR" 12610,126,"126",5,0,3,"0","" 12700,PROCR,"127",,127,,"READ, TEST NEXT P/T BLOCK","" 12702,81,"127",2,0,0,"0","3 ORDER CONST" 12703,80,"141",2,0,0,"0","> READ PT" 12704,70,"124",2,0,0,"0","> END" 12705,,"5",0,1,0,"0","" 12706,2,"148",72,1,0,"0"," 'TRAMD'" 12707,70,"113",7,0,0,"0","> YES" 12708,80,"132",2,0,0,"0","> UNPACK" 12709,80,"129",2,0,0,"0","> TEST DIRECTIVE" 12710,82,"127",2,0,0,"0","" 12800,PROCR,"128",,128,,"COPY INTERCODE BLOCKS","" 12802,81,"128",2,0,0,"0","" 12803,55,"10",4,1,0,"148","" 12804,C,"8",4,1,0,"0","" 12805,43,"A2",0,0,0,"0","" 12806,C,"8",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000113.JPG",,,,"","KenK/Q1000113" 12807,80,"137",2,0,0,"0","gREAD " 12808,82,"128",2,0,0,"0","" 12900,PROCR,"129",,,,"","TEST DIRECTIVE " 12902,81,"129",2,0,0,"0","" 12903,60,"",0,0,0,"0","" 12904,34,"4",4,1,0,"0","" 12905,10,"",0,0,0,"0","" 12906,32,"",0,0,0,"2","" 12907,12,"",0,0,0,"69","" 12908,70,"129",18,0,0,"0","" 12909,11,"",0,0,0,"15","" 12910,70,"129",17,0,0,"0","" 12911,12,"",0,0,0,"19","" 12912,70,"129",16,0,0,"0","" 12913,11,"",0,0,0,"22","" 12914,71,"129",24,0,0,"0","gNO DIRECTIVE " 12915,10,"",0,0,0,"1","" 12916,11,"",0,0,0,"1","" 12917,11,"",0,0,0,"1","" 12918,11,"",0,0,0,"1","" 12919,5,"130",2,0,0,"0","" 12920,86,"129",2,0,0,"0","" 12921,5,"17",12,0,0,"0","STORE PREVIOUS SETTING " 12922,84,"129",2,0,0,"0","" 12923,C,"130",2,0,0,"0","(A)ZERO DIRECTIVE FOUND " 12924,82,"129",2,0,0,"0","(A) NON=-ZERO,NO DIRECTIVE FOUND " 13000,PROCR,"130",,,,"","FIND 'LENGTH' " 13002,81,"130",2,0,0,"0","" 13003,,"4",2,2,0,"0","LINE SERIAL OF AMENDMENT " 13004,30,"",0,0,0,"2-","" 13005,80,"142",2,0,0,"0","CONVERT TO BIN " 13006,101,"",100,1,2,"0","" 13007,19,"",0,0,0,"14","DIVIDE BY 20 " 13008,5,"148",42,0,0,"0","" 13009,32,"",0,0,0,"9","" 13010,5,"148",43,0,0,"0","" 13011,34,"148",2,0,0,"0","" 13012,124,"148",43,0,1,"0","" 13013,33,"",0,0,0,"0","///// " 13014,124,"148",42,0,1,"0","" 13015,36,"3",0,0,0,"0","" 13016,70,"130",18,0,0,"0","gSHORT " 13017,10,"",0,0,0,"1","" 13018,60,"",0,0,0,"0","" 13019,82,"130",2,0,0,"0","(A)=ZERO OR ONE " 13100,PROCR,"131",,,,"","WRITE->A6 FROM SEC9 " 13102,81,"131",2,0,0,"0","" 13103,80,"135",2,0,0,"0","REPLACE 'BE' BY 'LE' " 13104,10,"",0,0,0,"7.0000007.","" 13105,5,"9",52,1,0,"0","" 13106,,"17",16,1,0,"0","IND'PASS 0 DIDN'T LIKE IT' NON-ZERO " 13107,5,"9",50,1,0,"0","" 13108,43,"A6",0,0,0,"0","" 13109,C,"9",0,0,0,"0","" 13110,54,"9",4,1,0,"50","" 13111,5,"17",16,1,0,"0","CLEAR IND " 13112,82,"131",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000114.JPG",,,,"","KenK/Q1000114" 13200,PROCR,"132",,,,"","UNPACK POSSIBLE DIRECTIVE BLOCK " 13202,81,"132",2,0,0,"0","" 13203,10,"",0,0,0,"0","" 13204,5,"4",4,1,0,"0","WL FOR AMEND DIRECTIVE " 13205,5,"4",16,1,0,"0","" 13206,87,"27",10,0,0,"0","" 13207,C,"132",12,0,0,"0","gPT " 13208,C,"132",9,0,0,"0","gCARDS " 13209,50,"5",0,0,0,"0","" 13210,C,"150",18,0,0,"0","" 13211,82,"132",2,0,0,"0","" 13212,124,"150",2,0,2,"0","UNPACK PT " 13213,124,"999",15,1,2,"0","" 13214,128,"",0,0,3,"0","" 13215,82,"132",2,0,0,"0","" 13300,PROCR,"133",,,,"","O/P WHEN MOD NOT ACCEPTED " 13302,81,"133",2,0,0,"0","" 13303,80,"131",2,0,0,"0","gO/P TO A6 " 13304,80,"127",2,0,0,"0","gREAD/TEST PT " 13305,71,"133",3,0,0,"0","gNOT YET " 13306,82,"133",2,0,0,"0","NEXT DIRECTIVE FOUND-> " 13400,PROCR,"134",,,,"","INTERCHANGE A1,D1 ASL'S SR " 13402,81,"134",2,0,0,"0","" 13403,125,"",4096,1,1,"0","" 13404,123,"134",6,0,2,"0","" 13405,82,"134",2,0,0,"0","" 13406,100,"",0,0,0,"0","" 13407,124,"999",9,0,3,"0","" 13408,100,"",64,0,2,"0","" 13409,124,"999",7,0,3,"0","" 13410,106,"",64,0,0,"0","" 13411,124,"999",9,0,3,"0","D1->A1 " 13412,102,"",64,0,0,"0","" 13413,32,"",0,0,0,"10","" 13414,124,"999",7,0,3,"0","A1->D1 " 13415,102,"",64,0,0,"0","" 13416,126,"134",6,0,3,"0","" 13500,PROCR,"135",,,,"","REPLACE BE CHAR BY LE CHAR IN SEC 5 " 13502,81,"135",2,0,0,"0","" 13503,87,"27",10,0,0,"0","" 13504,C,"135",51,0,0,"0","gPT " 13505,C,"135",6,0,0,"0","gCARDS " 13506,10,"",0,0,0,"0","" 13507,5,"132",2,0,0,"0","" 13508,90,"",0,0,1,"0","" 13509,C,"",0,0,0,"32","" 13510,90,"",0,0,2,"8","" 13511,C,"",0,0,0,"2-","" 13512,34,"5",0,1,1,"0","" 13513,10,"",0,0,0,"0","" 13514,32,"",0,0,0,"2","" 13515,12,"",0,0,0,"7.","" 13516,70,"135",22,0,0,"0","gBE FOUND " 13517,94,"135",13,0,2,"2-","gNEXT CHAR " 13518,,"5",0,1,1,"0","" 13519,5,"9",4,1,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000115.JPG",,,,"","KenK/Q1000115" 13520,94,"135",10,0,1,"2","gNEXT WORD " 13521,82,"135",2,0,0,"0","" 13522,100,"17",22,1,0,"0","COPY B " 13523,62,"",0,0,0,"0","" 13524,96,"",0,0,1,"0","" 13525,16,"",0,0,0,"5","" 13526,5,"148",42,1,0,"0"," =10 TIMES WORD NUMBER+CLEAR WL " 13527,96,"",0,0,2,"0","" 13528,3,"136",2,0,0,"0","" 13529,35,"",0,0,0,"1","" 13530,37,"148",43,0,0,"0","" 13531,10,"",0,0,0,"t","" 13532,2,"148",43,0,0,"0"," =SUBTRACT R2 MODIFIER " 13533,4,"148",42,0,0,"0","AUG COL POSN " 13534,60,"",0,0,0,"0","" 13535,35,"",0,0,0,"11","" 13536,10,"",0,0,0,"5.","" 13537,124,"136",2,0,1,"0","" 13538,32,"",0,0,0,"0","///// " 13539,37,"5",0,1,1,"0","REPLACE BE BY LE " 13540,62,"",0,0,0,"0","" 13541,,"132",2,0,0,"0","CT OF BE'S X 2 " 13542,12,"",0,0,0,"t","" 13543,70,"135",49,0,0,"0","g5 ALREADY STORED " 13544,92,"132",2,0,4,"0","" 13545,,"148",42,0,0,"0","" 13546,5,"9",36,2,4,"0","2XBE POSN CTR " 13547,10,"",0,0,0,"2","" 13548,4,"132",2,0,0,"0","STEP CTR " 13549,100,"17",22,1,1,"0","" 13550,76,"135",17,0,0,"0","g NEXT CHAR " 13551,90,"",0,0,1,"0","" 13552,C,"",0,0,0,"56","" 13553,90,"",0,0,2,"8","" 13554,C,"",0,0,0,"2-","" 13555,34,"5",0,1,1,"0","" 13556,10,"",0,0,0,"0","" 13557,32,"",0,0,0,"2","" 13558,12,"",0,0,0,"7.","" 13559,70,"135",67,0,0,"0","g BE FOUND " 13560,94,"135",56,0,2,"2-","g GET NEXT CHAR " 13561,,"5",0,1,1,"0","COPY TO O/P SECTION " 13562,5,"9",4,1,1,"0","" 13563,94,"135",53,0,1,"2","gGET NEXT WORD " 13564,10,"",0,0,0,"7.",";MISREAD " 13565,5,"9",46,1,0,"0","" 13566,76,"121",44,0,0,"0","" 13567,96,"",0,0,2,"0","" 13568,5,"136",2,0,0,"0","" 13569,35,"",0,0,0,"11","" 13570,10,"",0,0,0,"5.","" 13571,124,"136",2,0,1,"0","" 13572,32,"",0,0,0,"0","///// " 13573,37,"5",0,1,1,"0","REPLACE BE BY LE " 13574,,"5",0,1,1,"0","COPY LAST WORD " 13575,5,"9",4,1,1,"0","" 13576,100,"17",22,1,0,"0","" 13577,62,"",0,0,0,"0","" 13578,96,"",0,0,1,"0","" 13579,11,"",0,0,0,"4","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000116.JPG",,,,"","ChuckK/Q1000116" 13580,30,"",0,0,0,"3",">Q4,5" 13581,5,"9",48,2,0,"0","" 13582,35,"",0,0,0,"11","COLUMN POSITION" 13583,36,"136",2,0,0,"0","" 13584,37,"9",48,2,0,"0","" 13585,100,"17",26,0,3,"0","" 13586,82,"135",2,0,0,"0","" 13600,PROCR,"136",,,,"","GET TO START OF AMENDED PROGRAM" 13602,81,"136",2,0,0,"0","" 13603,80,"137",2,0,0,"0","READ MT" 13604,62,"",0,0,0,"0","" 13605,0,"10",4,1,0,"0","" 13606,2,"148",64,1,0,"0","FINIS'" 13607,70,"136",51,0,0,"0",">ALARM*02" 13608,0,"10",8,2,0,"0","" 13609,12,"",0,0,0,"£££££","" 13610,71,"136",3,0,0,"0","" 13611,0,"10",10,1,0,"0","" 13612,2,"148",54,1,0,"0","PASS I'" 13613,70,"136",43,0,0,"0","" 13614,0,"10",6,1,0,"0","" 13615,2,"148",62,1,0,"0","INDEX';USE'INDEX'DATA TO " 13616,71,"136",3,0,0,"0",">NO;SEE IF PROGM ON TAPE" 13617,80,"137",2,0,0,"0",">READ" 13618,90,"",0,0,1,"0","" 13619,C,"",0,0,0,"48","" 13620,0,"10",4,2,1,"0","PROG ID" 13621,2,"148",20,0,0,"0","£££££" 13622,71,"136",26,0,0,"0",">NOT END SIGN" 13623,,"148",92,0,0,"0","" 13624,70,"136",3,0,0,"0",">INTERCODE FOUND.REATO 'PASS I'" 13625,76,"136",51,0,0,"0",">ALARM02" 13626,1,"148",20,0,0,"0","" 13627,2,"4",2,0,0,"0","PROG ID" 13628,71,"136",41,0,0,"0",">NOT " 13629,0,"10",6,2,1,"0","" 13630,2,"4",4,0,0,"0","SERIAL" 13631,71,"136",41,0,0,"0",">NOT" 13632,,"10",8,1,1,"0","PASS IND" 13633,12,"",0,0,0,"20","" 13634,70,"136",41,0,0,"0",">CLEO;SKIP" 13635,,"10",8,2,1,"0","" 13636,70,"136",40,0,0,"0",">INTERCODE" 13637,,"10",10,2,1,"0","IDENTIFIER" 13638,84,"786",2,0,0,"0","" 13639,76,"136",41,0,0,"0","" 13640,5,"148",92,0,0,"0","SET'PROGRAM TAPE'" 13641,94,"136",20,0,1,"8","" 13642,76,"136",17,0,0,"0",">NEXT BLOCK" 13643,60,"",0,0,0,"0","SET DEC" 13644,0,"10",4,2,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000117.JPG",,,,"","RayS/Q1000117" 13645,2,"4",2,0,0,"0","PROG IDENTITY" 13646,71,"136",3,0,0,"0","gNO" 13647,0,"10",6,2,0,"0","" 13648,2,"4",4,0,0,"0","" 13649,71,"136",3,0,0,"0","gNO" 13650,82,"136",2,0,0,"0","MATCH FOUND" 13651,41,"A1",0,0,0,"1","" 13652,10,"",0,0,0,"1","" 13653,5,"148",92,0,0,"0","" 13654,84,"786",2,0,0,"0","CLEAR" 13655,150,"",0,0,0,"2","" 13656,C,"136",61,0,0,"0","gUNLOAD" 13657,C,"136",59,0,0,"0","gTRY NEW INPUT TAPE" 13658,C,"107",11,0,0,"0","gREENTER" 13659,80,"138",2,0,0,"0","gOPEN A1" 13660,76,"136",3,0,0,"0","gTRY AGAIN" 13661,151,"",0,0,0,"0","" 13700,PROCR,"137",,,,"","READ A1+SEC7" 13702,81,"137",2,0,0,"0","" 13703,42,"A1",0,0,0,"0","" 13704,C,"10",0,0,0,"0","" 13705,82,"137",2,0,0,"0","" 13800,PROCR,"138",,,,"","OPEN A1" 13802,81,"138",2,0,0,"0","" 13803,40,"A1",0,0,0,"1","" 13804,82,"138",2,0,0,"0","" 13900,PROCR,"139",,,,"","GET NEXT ITEM" 13902,81,"139",2,0,0,"0","" 13903,94,"139",7,0,2,"2","" 13904,80,"137",2,0,0,"0","gREAD MT" 13905,90,"",0,0,2,"0","" 13906,C,"",0,0,0,"46","" 13907,82,"139",2,0,0,"0","" 14000,PROCR,"140",,,,"","STORE ADJUST DETAILS SR" 14002,81,"140",2,0,0,"0","" 14003,,"17",3,0,0,"0","" 14004,101,"",460,1,2,"0","" 14005,72,"140",28,0,0,"0","gTOO MANY STORED" 14006,10,"",0,0,0,"0","" 14007,35,"",0,0,0,"11","" 14008,36,"17",14,0,0,"0","" 14009,5,"136",2,0,0,"0","ITEM" 14010,,"17",14,0,0,"0","" 14011,30,"",0,0,0,"2-","" 14012,80,"142",2,0,0,"0","" 14013,5,"141",2,0,0,"0","BIN REF" 14014,124,"141",2,0,1,"0","" 14015,,"6",100-,0,0,"0","UPDATED REF" 14016,80,"143",2,0,0,"0","gTO DEC" 14017,30,"",0,0,0,"2","" 14018,1,"136",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000118.JPG",,,,"","RayS/Q1000118" 14019,124,"17",3,0,1,"0","" 14020,5,"19",0,0,0,"0","LOCN OF ADJUSTMENT " 14021,0,"17",15,0,0,"0","" 14022,124,"17",3,0,1,"0","" 14023,5,"19",1,0,0,"0","QUANTITY " 14024,62,"",0,0,0,"0","" 14025,10,"",0,0,0,"2","" 14026,4,"17",3,0,0,"0","STEP CTR " 14027,60,"",0,0,0,"0","" 14028,82,"140",2,0,0,"0","" 14100,PROCR,"141",,,,"","SR TO READ PT AND TEST END " 14102,81,"141",2,0,0,"0","" 14103,100,"17",22,1,0,"0","" 14104,62,"",0,0,0,"0","" 14105,34,"999",14,0,0,"0","" 14106,,"27",10,0,0,"0","" 14107,11,"",0,0,0,"4","" 14108,80,"126",2,0,0,"0","gREAD B1 " 14109,100,"17",22,1,1,"0","" 14110,,"5",0,1,0,"0","" 14111,12,"",0,0,0,"7258555573","SHEET' " 14112,71,"141",15,0,0,"0","" 14113,80,"131",2,0,0,"0","" 14114,76,"141",3,0,0,"0","gREAD NEXT BLOCK " 14115,0,"5",0,1,0,"0","" 14116,30,"",0,0,0,"4-","" 14117,30,"",0,0,0,"4","" 14118,2,"148",60,1,0,"0","END ' " 14119,82,"141",2,0,0,"0","(A)=0 IF END " 14200,PROCR,"142",,,,"","CONVERT TO BIN " 14202,81,"142",2,0,0,"0","" 14203,5,"148",42,1,0,"0","" 14204,62,"",0,0,0,"0","" 14205,124,"148",22,0,2,"0","" 14206,112,"148",42,1,0,"0","" 14207,82,"142",2,0,0,"0","" 14300,PROCR,"143",,,,"","" 14302,81,"143",2,0,0,"0","CONVERT TO DEC " 14303,5,"148",42,1,0,"0","" 14304,60,"",0,0,0,"0","" 14305,124,"148",2,0,2,"0","" 14306,112,"148",42,1,0,"0","" 14307,82,"143",2,0,0,"0","" 14400,PROCR,"144",,,,"","DEAL WITH 'TRAMD' BLOCK IF FIRST PT BLOCK " 14402,80,"145",2,0,0,"0","UNPACK AND CHECK PROG ID " 14403,40,"A6",0,0,0,"0","" 14404,0,"10",12,2,0,"0","" 14405,5,"27",0,0,0,"0","SET 'EX ISSUE 7' IND " 14406,10,"",0,0,0,"0","" 14407,34,"10",12,1,0,"0","" 14408,32,"",0,0,0,"2","" 14409,12,"",0,0,0,"47","" 14410,73,"109",61,0,0,"0","gMADE BEFORE ISSUE 7, ALARM 7 " 14411,,"10",16,2,0,"0","MULTIRECORD IND " 14412,5,"27",1,0,0,"0","" 14413,0,"148",72,1,0,"0","'TRAMD' " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000119.JPG",,,,"","KenK/Q1000119" 14414,5,"148",52,1,0,"0","OVER 'AMEND' " 14415,55,"149",12,1,0,"4","ADD'->PTS'TO COMMENT " 14416,C,"149",10,1,0,"0","" 14417,52,"18",0,0,0,"0","" 14418,C,"149",2,0,0,"0","" 14419,154,"18",0,0,0,"0","TYPE 'TRAMD' COMMENT " 14420,80,"131",2,0,0,"0","" 14421,80,"141",2,0,0,"0","READ PT " 14422,71,"144",20,0,0,"0","gNOT END " 14423,80,"131",2,0,0,"0","WRITE END BLOCK ***REWIND A6 " 14424,45,"A6",0,0,0,"0","REWIND A6 " 14425,62,"",0,0,0,"0","" 14426,,"27",10,0,0,"0","" 14427,11,"",0,0,0,"18","" 14428,80,"126",2,0,0,"0","CLOSE B1 " 14429,54,"8",4,1,0,"46","" 14430,40,"A2",0,0,0,"0",";OPEN OUTPUT " 14431,32,"",0,0,0,"10","SPOOL NO->A " 14432,84,"153",2,0,0,"0","" 14433,80,"146",2,0,0,"0","WRITE TWO BLANK BLOCKS " 14434,80,"146",2,0,0,"0","" 14435,55,"148",74,1,0,"10","" 14436,C,"8",4,1,0,"0","" 14437,80,"146",2,0,0,"0","WRITE 'INDEX' BLOCK " 14438,,"17",28,0,0,"0","PROG IDENTITY " 14439,3,"94",0,0,0,"0","" 14440,3,"8",4,2,0,"0","" 14441,3,"8",12,2,0,"0","" 14442,60,"",0,0,0,"0","" 14443,10,"",0,0,0,"1","" 14444,35,"",0,0,0,"11","" 14445,36,"17",29,0,0,"0","" 14446,37,"17",29,0,0,"0","UPDATED PROG SERIAL " 14447,62,"",0,0,0,"0","" 14448,,"17",29,0,0,"0","" 14449,3,"8",6,2,0,"0","" 14450,5,"8",14,2,0,"0","" 14451,10,"",0,0,0,"2","" 14452,5,"8",10,2,0,"0","" 14453,10,"",0,0,0,"3","" 14454,5,"8",18,2,0,"0","" 14455,10,"",0,0,0,"4","" 14456,5,"8",16,2,0,"0","" 14457,,"148",78,1,0,"0","£££££ " 14458,5,"8",20,1,0,"0","" 14459,80,"146",2,0,0,"0","" 14460,,"17",28,0,0,"0","PROG IDENTITY " 14461,5,"8",4,2,0,"0","" 14462,,"17",29,0,0,"0","" 14463,5,"8",6,2,0,"0","" 14464,,"148",78,1,0,"0","" 14465,5,"8",8,1,0,"0","" 14466,,"148",54,1,0,"0"," 'PASS!' " 14467,5,"8",10,1,0,"0","" 14468,155,"",0,0,0,"0","TRANSLATOR SERIAL " 14469,5,"8",12,1,0,"0","" 14470,5,"8",14,1,0,"0","" 14471,,"27",1,0,0,"0","" 14472,5,"8",16,2,0,"0","MULTI RECORD IND " 14473,80,"146",2,0,0,"0","WRITE 'PASS 1' BLOCK " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000120.JPG",,,,"","KenK/Q1000120" 14474,80,"137",2,0,0,"0","gREADA1 " 14475,80,"128",2,0,0,"0","gWRITE +READ;PROCR LENGTH INDEX " 14476,80,"128",2,0,0,"0","" 14477,,"17",29,0,0,"0","" 14478,3,"94",1,0,0,"0","" 14479,5,"10",12,2,0,"0","UPDATE SERIAL IN'PROGM'BLOCK " 14480,80,"128",2,0,0,"0","gCOPY " 14481,,"27",1,0,0,"0","" 14482,70,"144",85,0,0,"0","gSINGLE-RECORD BLOCKS " 14483,0,"10",12,1,0,"0","" 14484,76,"144",86,0,0,"0",";OF INTERCODE " 14485,0,"10",10,1,0,"0","" 14486,2,"148",46,1,0,"0"," 'PROCR' " 14487,70,"147",2,0,0,"0","" 14488,1,"148",46,1,0,"0","" 14489,2,"148",50,1,0,"0"," 'CONST' " 14490,70,"147",2,0,0,"0","" 14491,1,"148",50,1,0,"0","" 14492,2,"148",48,1,0,"0"," 'TABLE' " 14493,71,"144",80,0,0,"0","" 14494,76,"147",2,0,0,"0","" 14500,PROCR,"145",,,,"","UNPACK AMEND HEADING, GET TO PROGM START " 14502,81,"145",2,0,0,"0","" 14503,87,"27",10,0,0,"0","" 14504,C,"145",9,0,0,"0","gPT " 14505,C,"145",6,0,0,"0","gCARDS " 14506,50,"5",0,0,0,"0","" 14507,C,"150",10,0,0,"0","" 14508,76,"145",12,0,0,"0","" 14509,124,"150",10,0,2,"0","UNPACK PT " 14510,124,"999",15,1,2,"0","" 14511,128,"",0,0,3,"0","" 14512,,"4",2,0,0,"0","SUITE " 14513,30,"",0,0,0,"2","" 14514,1,"4",3,0,0,"0","" 14515,3,"4",2,0,0,"0","" 14516,5,"17",28,0,0,"0","PROG ID " 14517,,"4",4,0,0,"0","PROG " 14518,5,"17",29,0,0,"0","" 14519,80,"138",2,0,0,"0","gOPEN A1 " 14520,80,"136",2,0,0,"0","gCHECK PROG ID, GET TO 'PASSI' BLOCK " 14521,82,"145",2,0,0,"0","" 14600,PROCR,"146",,,,"","O/P->A2 " 14602,81,"146",2,0,0,"0","" 14603,10,"",0,0,0,"7.0000007.","" 14604,5,"8",50,1,0,"0","" 14605,43,"A2",0,0,0,"0","" 14606,C,"8",0,0,0,"0","" 14607,54,"8",4,1,0,"46","" 14608,82,"146",2,0,0,"0","" 14700,PROCR,"147",,,,""," 'TRAMD'RUN-COPY INTERCODE UP TO MIDDLE INDEX " 14702,,"27",1,0,0,"0","" 14703,70,"147",16,0,0,"0","" 14704,0,"10",4,2,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000121.JPG",,,,"","KenK/Q1000121" 14705,30,"",0,0,0,"5","" 14706,91,"",0,0,1,"0","" 14707,0,"10",12,1,1,"0","" 14708,2,"148",60,1,0,"0"," 'END' " 14709,70,"147",19,0,0,"0","gYES " 14710,0,"10",6,2,1,"0","RECORD LENGTH " 14711,5,"146",2,0,0,"0","" 14712,97,"146",2,0,1,"0","" 14713,C,"147",7,0,0,"0","" 14714,80,"128",2,0,0,"0","gWRITE/READ " 14715,76,"147",2,0,0,"0","" 14716,0,"10",10,1,0,"0","" 14717,2,"148",60,1,0,"0"," 'END' " 14718,71,"147",14,0,0,"0","gNOT YET " 14719,80,"128",2,0,0,"0","gWRITE/READ/(END SIGNGET TO 'INDEX' " 14720,0,"10",6,1,0,"0","" 14721,2,"148",76,1,0,"0"," 'INDEX' " 14722,71,"147",19,0,0,"0","gNOT YET " 14723,,"10",10,2,0,"0","" 14724,12,"",0,0,0,"3","" 14725,70,"147",33,0,0,"0","" 14726,86,"786",2,0,0,"0","PASS 3 ID " 14727,5,"142",2,0,0,"0","" 14728,46,"A1",10,0,0,"1","" 14729,C,"142",2,0,0,"0","" 14730,80,"137",2,0,0,"0","" 14731,10,"",0,0,0,"3","" 14732,5,"10",10,2,0,"0","" 14733,80,"128",2,0,0,"0","gWRITE/READ " 14734,90,"",0,0,1,"0",";DRAIN INDEX DETAILS " 14735,C,"",0,0,0,"48","" 14736,0,"10",4,2,1,"0","PROG IDENTITY " 14737,2,"148",20,0,0,"0","£££££ " 14738,70,"147",42,0,0,"0","gEND " 14739,94,"147",36,0,1,"8","" 14740,80,"137",2,0,0,"0","gREAD " 14741,76,"147",34,0,0,"0","" 14742,10,"",0,0,0,"1.006","1/1/3 6(R1 NON-ZERO) " 14743,3,"92",30,0,0,"0","SET'AMEND RUN' " 14744,3,"27",13,0,0,"0","SET NONZERO " 14745,3,"27",11,0,0,"0","" 14746,5,"101",4,0,0,"0","CHANGE OLAY ORDER " 14747,10,"",0,0,0,"2","" 14748,5,"27",12,0,0,"0","SET'PTS NEEDED' " 14749,80,"134",2,0,0,"0","RESTORE ASLS " 14750,,"27",9,0,0,"0","OFF LINE PRINT? " 14751,70,"147",59,0,0,"0","gPRINTER " 14752,90,"",0,0,6,"0","" 14753,C,"",0,0,0,"300","" 14754,86,"787",2,0,0,"0","A9 OR NOT " 14755,71,"147",68,0,0,"0","g'PRINT'BLOCK " 14756,10,"",0,0,0,"1200000",";OPEN MT " 14757,34,"148",98,1,0,"0","OFF LINE PRINT? " 14758,76,"147",62,0,0,"0","" 14759,,"27",8,0,0,"0",";OPEN PRINTER " 14760,11,"",0,0,0,"t","" 14761,30,"",0,0,0,"5","" 14762,1,"999",7,0,0,"0","" 14763,125,"",4096,1,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000122.JPG",,,,"","ChuckK/Q1000122" 14764,124,"999",0,0,3,"0","" 14765,123,"",160,0,2,"0","" 14766,,"27",9,0,0,"0","" 14767,70,"125",40,0,0,"0",">ENTER PASS 4" 14768,10,"",0,0,0,"6769596573","PRINT'" 14769,5,"10",4,1,0,"0","" 14770,10,"",0,0,0,"8000","" 14771,5,"10",6,2,0,"0","" 14772,155,"",0,0,0,"0","" 14773,5,"10",8,1,0,"0","TRANSLATOR SERIAL" 14774,,"17",28,0,0,"0","PROG ID" 14775,5,"10",10,2,0,"0","" 14776,10,"",0,0,0,"7.0000007.","" 14777,5,"10",12,1,0,"0","" 14778,10,"",0,0,0,"800000",";WRITE A9 HDG BLOCK" 14779,34,"999",12,0,0,"0","" 14780,125,"",4096,1,1,"0","" 14781,1,"999",7,0,0,"0","" 14782,124,"999",0,0,3,"0","" 14783,123,"",160,0,2,"0","" 14784,76,"125",40,0,0,"0",">ENTER PASS 4" 14800,CONST,"148",,1,,"","CONVERT TABLES" 14802,,"(D)1;",,,,"","BIN>DEC" 14804,,"16;",,,,"","" 14806,,"256;",,,,"","" 14808,,"4096;",,,,"","" 14810,,"65536;",,,,"","" 14812,,"1048576;",,,,"","" 14814,,"16777216;",,,,"","" 14816,,"268435456;",,,,"","" 14818,,"4294967296;",,,,"","" 14820,,"££££££££££;",,,,"","" 14822,,"1;",,,,"","DEC>BIN" 14824,,"t;",,,,"","" 14826,,"64;",,,,"","" 14828,,"3.8;",,,,"","" 14830,,"2710;",,,,"","" 14832,,"186t0;",,,,"","" 14834,,"£4240;",,,,"","" 14836,,"989680;",,,,"","" 14838,,"5£5.100;",,,,"","" 14840,,"3e9t+t00;",,,,"","" 14842,,"0;",,,,"","WL(A)" 14844,,"(A)PROGM;",,,,"","" 14846,,"(A)PROCR;",,,,"","" 14848,,"(A)TABLE;",,,,"","" 14850,,"(A)CONST;",,,,"","" 14852,,"AMEND;",,,,"","" 14854,,"(A)PASSI;",,,,"","" 14856,,"(A)DUMPS;",,,,"","" 14858,,"(A)FILES;",,,,"","" 14860,,"(A)END ;",,,,"","" 14862,,"(A)INDEX;",,,,"","" 14864,,"FINIS;",,,,"","" 14866,,"(D)0000005.5.;",,,,"","DOUBLE LINE END" 14868,,"(D)3££;",,,,"","BITS 1-10" 14870,,"0524108000;",,,,"","" 14872,,"(A)TRAMD;",,,,"","" 14874,,"(D)6£6£6£6£6£;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000123.JPG",,,,"","DavidH/Q1000123" 14876,,"(A)INDEX;",,,,"","" 14878,,"£££££;",,,,"","" 14880,,"2;",,,,"","" 14882,,"CHAIN;",,,,"","" 14884,,"FIEND;",,,,"","" 14886,,"08000;",,,,"","" 14888,,"ALLOC;",,,,"","" 14890,,"ATED ;",,,,"","" 14892,,"EXTRA;",,,,"","" 14894,,"ROUTE;",,,,"","" 14896,,"(D)£8;",,,,"","" 14898,,"(D)0514908000;",,,,"","BITS 4-8" 14900,TABLE,"149",,1,1,"",TYPE'AMEND'COMMENT 14902,148,86,0,0,2,0,5,0,0,0,0,0,0,"08000'" 14904,148,52,0,0,2,0,5,0,2,0,0,0,0,"AMEND'" 14906,4,2,0,0,0,0,5,0,2,0,0,0,0,"PROG NO" 14908,4,4,0,0,0,0,5,0,1,4,0,0,0,"SERIAL NO" 14910,148,66,0,0,2,0,2,3,3,0,0,0,1,"DOUBLE LINE END" 14912,151,2,0,0,2,0,5,0,5,0,0,0,0,"<PTS" 14914,148,66,0,0,2,0,2,3,3,0,0,0,1,"DOUBLE LINE END" 14916,148,86,0,0,2,0,5,0,0,0,0,0,0,"08000'" 14918,148,88,0,0,2,0,5,0,1,0,0,0,0,"ALLOC'" 14920,148,90,0,0,2,0,5,0,0,0,0,0,0,"ATED'" 14922,148,92,0,0,2,0,5,0,0,0,0,0,0,"EXTRA'" 14924,148,94,0,0,2,0,5,0,1,0,0,0,0,"ROUTE'" 14926,148,42,0,0,0,0,2,3,2,1,0,0,0,"CHANNEL" 14928,129,2,0,0,0,0,1,4,0,0,0,0,0,"ROUTE" 14930,148,66,0,0,2,0,2,3,1,0,0,0,1,"DOUBLE LE" 15000,TABLE,150,,3,,3,UNPACK PT OR CARD INPUT,,,,,,"" 15002,4,2,0,0,2,0,5,0,0,0,0,0,0,"SER+AMEND DIRECTIVE" 15004,4,6,0,0,2,0,5,0,0,0,0,0,0,"DIRECTIVE WORD" 15006,4,8,0,0,1,0,3,0,0,0,0,0,0,"PROCR NUMBER" 15008,4,16,0,0,0,0,1,0,0,0,0,0,1,"/////TYPE OR(ANNOTATION+TYPE)" 15010,4,6,0,0,2,0,5,0,0,0,0,0,0,"(AMEND)" 15012,4,2,0,0,0,0,3,0,0,0,0,0,0,"SUITE" 15014,4,3,0,0,0,0,2,0,0,0,0,0,0,"JOB" 15016,4,4,0,0,0,0,5,0,0,0,0,0,1,"SERIAL" 15018,4,2,0,0,2,0,5,0,0,0,0,0,0,"SERIAL" 15020,4,4,0,0,2,0,5,0,0,0,0,0,0,"DIRECTIVE LETER" 15022,4,6,0,0,2,0,5,0,0,0,0,0,0,"DIRECTIVE WORD" 15024,4,8,0,0,1,0,3,0,0,0,0,0,0,"PROCR NUMBER" 15026,4,16,0,0,0,0,1,0,0,0,0,0,1,"TYPE" 15100,CONST,"151",,1,,"1","" 15102,,"(A)+ PTS;",,,,"","" 15104,,";",,,,"","" 15106,,";",,,,"","" 15108,,";",,,,"","" 15110,,";",,,,"","" 15112,,";",,,,"","" 15114,,";",,,,"","" 15116,,";",,,,"","" 15118,,";",,,,"","" 15120,,";",,,,"","" 15122,,";",,,,"","" 15124,,";",,,,"","" 15126,,";",,,,"","" 15128,,";",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000124.JPG",,,,"","ChuckK/Q1000124" 15130,,";",,,,"","" 15132,,";",,,,"","" 15134,,";",,,,"","" 15136,,";",,,,"","" 15138,,";",,,,"","" 15140,,";",,,,"","" 15142,,";",,,,"","" 15144,,";",,,,"","" 15146,,";",,,,"","" 15148,,";",,,,"","" 15150,,";",,,,"","" 15152,,";",,,,"","" 15154,,";",,,,"","" 15156,,";",,,,"","" 15158,,";",,,,"","" 15160,,";",,,,"","" 15162,,";",,,,"","" 15164,,";",,,,"","" 15166,,";",,,,"","" 15168,,";",,,,"","" 15170,,";",,,,"","" 15172,,";",,,,"","" 15174,,";",,,,"","" 15176,,";",,,,"","" 15178,,";",,,,"","" 15180,,";",,,,"","" 15182,,";",,,,"","" 15184,,";",,,,"","" 15186,,";",,,,"","" 15188,,";",,,,"","" 15190,,";",,,,"","" 15192,,";",,,,"","" 15194,,";",,,,"","" 15196,,";",,,,"","" 15198,,";",,,,"","" 15200,PROCR,"152",,152,,"START OF PASS 1","" 15201,NOTES,"",,,,"TEST DID THE COMPILER READ IN THE TRANSLATOR","" 15202,152,"152",4,0,0,"0","CALL/ENTER PASS 2" 15203,C,"327",6,0,0,"0","(OVERLAY THE OLAY ORDER)" 15204,62,"",0,0,0,"0","" 15205,54,"25",0,1,0,"42","CLEAR TRACE SECN" 15206,,"27",10,0,0,"0","" 15207,12,"",0,0,0,"1","" 15208,70,"152",12,0,0,"0",">B1 IS PT" 15209,,"326",8,0,0,"0","28/0/2" 15210,5,"326",4,0,0,"0","SET 'UNPACK FIXED'" 15211,76,"152",17,0,0,"0","" 15212,101,"",512,0,1,"0","Q10" 15213,33,"",0,0,0,"3","" 15214,10,"",0,0,0,"0","" 15215,37,"312",8,1,0,"0","CLEAR BIT 40" 15216,37,"312",14,1,0,"0","DO." 15217,,"326",6,0,0,"0","" 15218,3,"23",46,0,0,"0","SET 'PRINT PASS 2'" 15219,5,"326",3,0,0,"0","" 15220,54,"1",0,1,0,"46","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000125.JPG",,,,"","ChuckK/Q1000125" 15221,83,"100",2,0,0,"1","SET 'PRINT PASS 3'" 15222,5,"27",6,0,0,"0","CLEAR 'PT OMITTED'" 15223,84,"511",2,0,0,"0","" 15224,84,"514",2,0,0,"0","" 15225,5,"27",4,0,0,"0","" 15226,83,"252",2,0,0,"5","AMEND DIRECTIVE SWITCH" 15227,95,"",0,0,1,"0","" 15228,70,"157",2,0,0,"0",">COMPILER DIDN'T CALL TRAMSLATOR" 15229,3,"1",0,1,0,"0","" 15230,54,"27",0,1,0,"20","" 15231,96,"",0,0,3,"0","MOD ONLY A9 IND" 15232,3,"27",9,0,0,"0","SET IND" 15233,10,"",0,0,0,"70000","" 15234,3,"27",0,0,0,"0","SET 'MULTI RECORD'" 15235,3,"27",4,0,0,"0","SET'COMPILER'" 15236,5,"27",1,0,0,"0","SET 'ISSUE 7 O/P'" 15237,54,"72",0,1,0,"888","" 15238,34,"1",1,0,0,"0","" 15239,36,"320",22,0,0,"0","1" 15240,70,"152",42,0,0,"0","" 15241,83,"100",2,0,0,"2","SET 'DONT PRINT'" 15242,36,"318",2,0,0,"0","BIT 2" 15243,12,"",0,0,0,"2","" 15244,5,"23",46,0,0,"0","INHIBIT PRINT" 15245,36,"318",10,0,0,"0","BIT 3='PTS NEEDED'" 15246,12,"",0,0,0,"4","" 15247,70,"152",50,0,0,"0",">NO" 15248,10,"",0,0,0,"2","" 15249,5,"27",12,0,0,"0","" 15250,36,"318",7,0,0,"0","BIT 4='CLEO TRAMD'IF NON-ZERO" 15251,5,"27",2,0,0,"0","SET'PSEUDO-ISSUE 5'" 15252,101,"",450,1,3,"0","" 15253,30,"",0,0,0,"5","" 15254,1,"1",0,0,0,"0","DATA START" 15255,124,"999",1,0,3,"0","" 15256,128,"18",0,1,1,"0","" 15257,5,"153",2,0,0,"0","" 15258,90,"",0,0,3,"0","CALC COMPILER'S HIGHEST PROCR" 15259,C,"",0,0,0,"450","" 15260,34,"18",0,0,3,"0","" 15261,32,"",0,0,0,"7","" 15262,33,"",0,0,0,"2","" 15263,2,"153",2,0,0,"0","" 15264,73,"152",66,0,0,"0","" 15265,4,"153",2,0,0,"0","UPDATE" 15266,10,"",0,0,0,"0","" 15267,33,"",0,0,0,"10","" 15268,2,"153",2,0,0,"0","" 15269,73,"152",71,0,0,"0","" 15270,4,"153",2,0,0,"0","UPDATE" 15271,10,"",0,0,0,"0","" 15272,94,"152",60,0,3,"1","" 15273,,"153",2,0,0,"0","" 15274,11,"",0,0,0,"1","" 15275,5,"18",1055,0,0,"0","(HIGHEST C/FWD PROCR+1)IN BINARY" 15276,54,"18",450,1,0,"596","" 15277,95,"",0,0,2,"0","" 15278,5,"1",0,1,0,"0","PROG ID+SERIAL" 15279,125,"",4096,1,1,"0","" 15280,123,"153",2,0,2,"0",">SET ASL'S+GUARD WORDS" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000126.JPG",,,,"","TonyJ/Q1000126" 15281,76,"156",2,0,0,"0","" 15300,PROCR,"153",,153,,"SET UP TAGS 15 WORDS FOR TX AREAS, AND FILES IN CHAP 3","" 15302,81,"153",2,0,0,"0","LINK" 15303,10,"",0,0,0,"£","" 15304,124,"317",92,0,3,"0","" 15305,123,"",56,1,0,"0","SEC 5" 15306,124,"317",92,0,3,"0","" 15307,123,"",210,1,0,"0","SEC 7" 15308,124,"317",92,0,3,"0","" 15309,123,"",364,1,0,"0","SEC 8" 15310,124,"317",92,0,3,"0","" 15311,123,"",518,1,0,"0","SEC 9" 15312,124,"317",92,0,3,"0","" 15313,123,"",576,1,0,"0","B1" 15314,124,"317",92,0,3,"0","" 15315,123,"",730,1,0,"0","A1" 15316,124,"317",92,0,3,"0","" 15317,123,"",884,1,0,"0","A2" 15318,124,"317",92,0,3,"0","" 15319,123,"",1038,1,0,"0","A6" 15400,PROCR,"154",,154,,"SET UP ASL'S FOR TX AREAS, AND FILES IN CHAP 3","" 15402,123,"317",2,0,3,"0","PROG TAG" 15403,30,"",0,0,0,"4","" 15404,4,"317",92,0,0,"0","" 15405,,"317",92,0,0,"0","ABS START" 15406,124,"999",14,1,2,"0","SEC 5" 15407,103,"",64,0,0,"0","" 15408,101,"",58,1,1,"0","" 15409,124,"999",16,1,2,"0","SEC 7" 15410,103,"",64,0,0,"0","" 15411,101,"",154,1,1,"0","" 15412,124,"999",18,1,2,"0","SEC 8" 15413,103,"",64,0,0,"0","" 15414,101,"",154,1,1,"0","" 15415,124,"999",20,1,2,"0","SEC 9" 15416,103,"",64,0,0,"0","" 15417,101,"",154,1,1,"0","" 15418,124,"999",8,0,3,"0","B1" 15419,103,"",64,0,0,"0","" 15420,101,"",58,1,1,"0","" 15421,124,"999",9,0,3,"0","A1" 15422,103,"",64,0,0,"0","" 15423,101,"",154,1,1,"0","" 15424,124,"999",10,0,3,"0","A2" 15425,103,"",64,0,0,"0","" 15426,101,"",154,1,1,"0","" 15427,124,"999",11,0,3,"0","A6" 15428,102,"",64,0,0,"0","" 15500,PROCR,"155",,155,,"SET UP ASL'S FOR FILES","" 15502,124,"999",5,0,3,"0","" 15503,106,"",34,0,0,"0","PRINTER ROUTE ENTRY SPECIAL CHAPTER" 15504,30,"",0,0,0,"4-","" 15505,5,"27",8,0,0,"0","" 15506,35,"",0,0,0,"1111","Q1-4" 15507,,"999",5,0,0,"0","15-BIT START SPECIAL CHAP" 15508,101,"",204,1,1,"0","" 15509,124,"999",12,1,2,"0","SEC 10" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000127.JPG",,,,"","KenK/Q1000127" 15510,114,"",64,0,0,"0","" 15511,,"999",5,0,0,"0","" 15512,101,"",598,1,1,"0","394+204 " 15513,124,"999",7,1,2,"0","" 15514,114,"",64,0,0,"0","" 15515,10,"",0,0,0,"£","" 15516,124,"999",5,0,3,"0","SPECIAL CHAP 15-BIT START " 15517,123,"",596,1,0,"0","" 15518,124,"999",5,0,3,"0","" 15519,123,"",990,1,0,"0","204+392+394=D1 " 15520,126,"153",2,0,3,"0","gEXIT " 15600,PROCR,"156",,,,"","TIDY UP FOR COMPILER " 15602,54,"12",0,1,0,"120","" 15603,0,"1",0,1,0,"0","" 15604,5,"12",0,1,0,"0","" 15605,40,"A1",0,0,0,"1","" 15606,80,"291",2,0,0,"0","gREAD " 15607,0,"7",10,1,0,"0","" 15608,2,"181",20,1,0,"0"," 'PASS1' " 15609,71,"156",6,0,0,"0","gNOT YET " 15610,10,"",0,0,0,"1","" 15611,3,"92",30,0,0,"0","" 15612,5,"12",8,0,0,"0","" 15613,,"319",14,1,0,"0"," 'END ' " 15614,5,"9",4,1,0,"0","SET END SIGN " 15615,76,"158",3,0,0,"0","gENTER PASS 1 (SIC) " 15700,PROCR,"157",,,,"","TEST INITIAL RUN " 15701,NOTES,"",RADIX,,,"","" 15702,40,"A6",0,0,0,"1","" 15703,54,"12",0,1,0,"120","" 15704,10,"",0,0,0,"6700","" 15705,5,"12",3,0,0,"0","ERROR LETTER'P' " 15706,80,"292",2,0,0,"0","gREAD FIRST BLOCK " 15707,124,"179",2,0,2,"0","" 15708,80,"326",2,0,0,"0","gUNPACK BLOCK " 15709,60,"",0,0,0,"0","" 15710,,"1",2,1,0,"0","TESTTHIS IS AN " 15711,2,"181",16,1,0,"0"," 'AMEND' " 15712,70,"157",20,0,0,"0","" 15713,80,"297",2,0,0,"0","gANNOTATION IF CARD " 15714,80,"176",2,0,0,"0","gCHECK PROGM BLOC " 15715,10,"",0,0,0,"2","" 15716,3,"12",33,0,0,"0","SET'PT INPUT' " 15717,5,"27",12,0,0,"0","SET'PTS NEEDED' " 15718,5,"1",8,1,0,"0","ENSURE FIRST SERIAL=0,INITIAL TRANSLATIO " 15719,76,"160",2,0,0,"0","" 15720,5,"1",16,1,0,"0","CLEAR FOR INDS " 15721,5,"1",18,1,0,"0","" 15722,124,"179",38,0,2,"0","" 15723,80,"326",2,0,0,"0","gUNPACK 'AMEND' BLOCK AGAIN " 15724,10,"",0,0,0,"0","" 15725,34,"1",16,0,0,"0","PRINT INDS " 15726,36,"318",2,0,0,"0","BIT 2 " 15727,5,"23",46,0,0,"0","" 15728,87,"27",10,0,0,"0","" 15729,C,"157",34,0,0,"0","gPT " 15730,C,"157",31,0,0,"0","gCARDS " 15731,,"1",18,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000128.JPG",,,,"","RayS/Q1000128" 15732,12,"",0,0,0,"73","" 15733,76,"157",36,0,0,"0","" 15734,,"1",20,1,0,"0","" 15735,12,"",0,0,0,"7300000000","" 15736,71,"157",39,0,0,"0","" 15737,10,"",0,0,0,"2","" 15738,76,"157",40,0,0,"0","" 15739,10,"",0,0,0,"0","" 15740,5,"27",12,0,0,"0","0/2=PTS NO/YES" 15741,,"27",0,0,0,"0","" 15742,71,"157",46,0,0,"0","gISSUE 6 O/P" 15743,,"1",16,0,0,"0","" 15744,12,"",0,0,0,"4","" 15745,5,"23",46,0,0,"0","PRINT ISSUE5 O/P" 15746,10,"",0,0,0,"2-","" 15747,36,"320",2,0,0,"0","BIT 1" 15748,84,"100",2,0,0,"0","SET AT 1 OR 2" 15749,0,"1",17,0,0,"0","CHANGE TO ISSUE?" 15750,5,"197",2,0,0,"0","SR LINK" 15751,80,"297",2,0,0,"0","gANNOTATION IF CARD" 15752,71,"157",57,0,0,"0","gNOT CARD" 15753,0,"1",8,1,0,"0","RE-FORM ISSUE+SERIAL IN 18'" 15754,30,"",0,0,0,"6","" 15755,1,"1",20,1,0,"0","CARD SERIAL" 15756,5,"1",8,1,0,"0","" 15757,0,"1",4,0,0,"0","SUITE" 15758,30,"",0,0,0,"2","" 15759,1,"1",6,0,0,"0","" 15760,5,"12",0,0,0,"0","" 15761,34,"1",8,1,0,"0","" 15762,80,"321",2,0,0,"0","RIGHT ALIGN" 15763,0,"12",88,2,0,"0","" 15764,5,"12",1,0,0,"0","" 15765,10,"",0,0,0,"1","SET'AMEND RUN'" 15766,3,"92",30,0,0,"0","" 15767,5,"12",8,0,0,"0","" 15800,PROCR,"158",,0,0,"0","" 15801,NOTES,"",RADIX,,,,"" 15802,80,"292",2,0,0,"0","gREAD PT" 15803,54,"1",0,0,0,"46","" 15804,80,"291",2,0,0,"0","gREAD MT" 15805,0,"7",6,1,0,"0","" 15806,2,"181",12,1,0,"0","PROGM'" 15807,71,"158",4,0,0,"0","gGET TO IT" 15808,,"9",4,1,0,"0","" 15809,2,"181",12,1,0,"0","PROGM'" 15810,70,"159",2,0,0,"0","='PROGM' BLOCK IS AMENDED" 15811,50,"7",4,0,0,"0","" 15812,C,"175",32,0,0,"0","" 15813,55,"7",20,1,0,"30","COPY ANNOTATION" 15814,C,"1",16,1,0,"0","" 15815,60,"",0,0,0,"0","" 15816,10,"",0,0,0,"1","AUGMENT PROG SERIAL" 15817,35,"",0,0,0,"11","" 15818,36,"1",8,2,0,"0","" 15819,37,"1",8,2,0,"0","NO CARRY AFTER 99" 15820,76,"160",2,0,0,"0","" 15900,PROCR,"159",,,,"","INPUT AMENDMENTS TO PRGRAM" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000129.JPG",,,,"","RayS/Q1000129" 15901,NOTES,"",RADIX,,,"HEADING","" 15902,124,"179",2,0,2,"0","" 15903,80,"326",2,0,0,"0","gUNPACK NEW 'PROGM' BLOCK" 15904,80,"297",2,0,0,"0","gWORDS IF CARDS" 15905,0,"12",1,0,0,"0","" 15906,3,"1",8,2,0,"0","" 15907,11,"",0,0,0,"1","" 15908,30,"",0,0,0,"2","" 15909,5,"1",0,0,0,"0","" 15910,5,"12",8,0,0,"0","SET PAPER TAPE INPUT INDICATOR" 15911,80,"176",2,0,0,"0","gCHECK 'PROGM' BLOCK" 15912,76,"158",15,0,0,"0","gUPDATE SERIAL" ,,"",,,,"","" 16000,PROCR,"160",,,,"","OPEN O/P FILE;WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK" 16001,NOTES,"",,,,"","" 16002,54,"8",4,0,0,"46","" 16003,,"27",4,0,0,"0","COMPILER?" 16004,70,"160",9,0,0,"0","gNORMAL" 16005,48,"A2",0,0,0,"3","BACK 0 I/P+O/P" 16006,C,"999",0,0,0,"0","" 16007,10,"",0,0,0,"0","(ZERO SPOOL NUMBER)" 16008,76,"160",11,0,0,"0","g" 16009,40,"A2",0,0,0,"0","OPEN FILE" 16010,32,"",0,0,0,"10","" 16011,84,"153",2,0,0,"0","SPOOL NUMBER+WL" 16012,80,"289",2,0,0,"0","" 16013,80,"289",2,0,0,"0","g2 BLANKS" 16014,55,"319",30,1,0,"10","" 16015,C,"8",4,1,0,"0","" 16016,80,"289",2,0,0,"0","" 16017,,"1",4,0,0,"0","SUITE" 16018,30,"",0,0,0,"2","" 16019,1,"1",6,0,0,"0","" 16020,3,"12",32,0,0,"0","WL=PROG IDENTITY" 16021,3,"8",4,2,0,"0","" 16022,3,"8",12,2,0,"0","" 16023,0,"1",8,2,0,"0","PROGRAM SERIAL" 16024,5,"12",1,0,0,"0","WL" 16025,0,"197",2,0,0,"0","NEW ISSUE WL" 16026,70,"160",30,0,0,"0","gNO CHANGE" 16027,30,"",0,0,0,"2","" 16028,35,"",0,0,0,"11100","" 16029,37,"12",1,0,0,"0","REPLACE EXISTING ISSUE" 16030,52,"1",8,0,0,"0","" 16031,C,"175",30,0,0,"0","RESTORE TD 1/8 WITH SIG ZEROS" 16032,0,"1",8,1,0,"0","" 16033,3,"8",6,1,0,"0","" 16034,5,"8",14,1,0,"0","" 16035,10,"",0,0,0,"2","INTERCODE IDENTIFIER" 16036,5,"8",10,2,0,"0","" 16037,10,"",0,0,0,"3","MACHINE CODE IDENTIFIER" 16038,3,"8",18,2,0,"0","" 16039,10,"",0,0,0,"2","" 16040,1,"27",12,0,0,"0","0 OR 2" 16041,5,"8",16,2,0,"0","" 16042,,"319",30,2,0,"0","£££££" 16043,5,"8",20,2,0,"0","" 16044,80,"289",2,0,0,"0","" 16045,,"12",32,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000130.JPG",,,,"","TonyJ/Q1000130" 16046,5,"8",4,2,0,"0","PROG IDENTITY" 16047,,"1",8,1,0,"0","" 16048,5,"8",6,1,0,"0","PROG SERIAL" 16049,10,"",0,0,0,"£££££","" 16050,5,"8",8,2,0,"0","" 16051,,"181",20,1,0,"0","PASSI'" 16052,5,"8",10,1,0,"0","" 16053,0,"27",4,0,0,"0","NON-ZERO IF COMPILER" 16054,3,"8",14,2,0,"0","SET 'PSEUDO ISSUE 5'" 16055,71,"160",58,0,0,"0","" 16056,155,"",0,0,0,"0","PROG SERIAL" 16057,3,"8",12,1,0,"0","ISSUE 6' ND" 16058,5,"8",16,2,0,"0","SET 'MULTI RECORD'" 16059,80,"289",2,0,0,"0","" 16060,,"18",1055,0,0,"0","" 16061,5,"319",23,0,0,"0","" 16062,,"27",4,0,0,"0","" 16063,71,"160",70,0,0,"0",">COMPILER O/P" 16064,55,"18",1010,0,0,"23","FIRST PROCR LENGTH DETAILS BLOCK" 16065,C,"8",4,2,0,"0","A6" 16066,80,"289",2,0,0,"0","" 16067,55,"18",1033,0,0,"23","SECOND PROCR LENGTH DETAILS BLOCK" 16068,C,"8",4,2,0,"0","" 16069,80,"289",2,0,0,"0","" 16070,52,"8",4,0,0,"0","" 16071,C,"175",32,0,0,"0","" 16072,55,"1",16,1,0,"30","COPY ANNOTATION" 16073,C,"8",20,1,0,"0","" 16074,80,"289",2,0,0,"0","" 16075,0,"317",89,0,0,"0","ABS ADDRESS 18:2496" 16076,5,"92",9,0,0,"0","" 16077,60,"",0,0,0,"0","" 16100,PROCR,"161",,161,,"DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS","" 16101,NOTES,"",,,,"","" 16102,,"12",8,0,0,"0","" 16103,70,"162",2,0,0,"0","> FILES REPLACED EX PT" 16104,80,"291",2,0,0,"0","> READ 'ENTRY' EX MT" 16105,10,"",0,0,0,"0","" 16106,5,"7",46,1,0,"0","CLEAR REPORT WORDS" 16107,5,"7",48,1,0,"0","" 16108,5,"12",33,0,0,"0","SET 'MT INPUT'" 16109,,"7",8,2,0,"0","" 16110,80,"200",2,0,0,"0","> REPLACE PROCR" 16111,C,"178",2,0,0,"0","" 16112,71,"161",16,0,0,"0","> OK" 16113,,"319",40,1,0,"0","????R'" 16114,5,"7",48,1,0,"0","" 16115,76,"161",17,0,0,"0","> USE OLD VALUE" 16116,5,"7",8,2,0,"0","" 16117,80,"171",2,0,0,"0","> WRITE" 16118,80,"291",2,0,0,"0","> READ" 16119,,"7",6,1,0,"0","" 16120,2,"181",18,1,0,"0","CHAPS" 16121,70,"161",33,0,0,"0","> YES" 16122,0,"7",8,2,0,"0","ROUTE TYPE" 16123,80,"245",2,0,0,"0","> TO BIN" 16124,33,"",0,0,0,"2-","" 16125,1,"7",7,0,0,"0","FILE ID" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000131.JPG",,,,"","KenK/Q1000131" 16126,33,"",0,0,0,"18-","" 16127,,"7",46,1,0,"0","" 16128,80,"164",2,0,0,"0","gSTORE FILE DETAILS " 16129,71,"161",32,0,0,"0","gLIST NOT FULL " 16130,,"319",26,1,0,"0","SET 'IGNORE' " 16131,5,"7",46,1,0,"0","" 16132,76,"161",17,0,0,"0","gWRITE " 16133,,"9",4,1,0,"0","" 16134,2,"181",18,1,0,"0"," 'CHAPS' " 16135,70,"165",2,0,0,"0","gPT & MT BOTH AT 'CHAPS' " 16136,55,"7",8,2,0,"30","" 16137,C,"12",13,0,0,"0",";MT 'CHAPS' UNAMENDED " 16138,5,"12",33,0,0,"0","SET 'MT INPUT' " 16139,,"12",13,0,0,"0","NUMBER OF CHAPS " 16140,80,"245",2,0,0,"0","gTO BIN " 16141,5,"12",13,0,0,"0","" 16142,91,"12",12,0,2,"0","" 16143,,"12",14,0,2,"0","START " 16144,80,"200",2,0,0,"0","gREPLACE PROCR " 16145,C,"178",2,0,0,"0","" 16146,71,"161",50,0,0,"0","gOK " 16147,,"319",40,1,0,"0"," '????R' " 16148,5,"8",48,1,0,"0","" 16149,76,"161",51,0,0,"0","gUSE OLD VALUE " 16150,5,"12",14,0,2,"0","" 16151,94,"161",43,0,2,"1","" 16152,55,"12",14,0,0,"14","" 16153,C,"7",10,2,0,"0","" 16154,55,"7",4,1,0,"34","COPY ANNEXES " 16155,C,"8",4,1,0,"0","" 16156,76,"165",51,0,0,"0","gTO TEST 'STORE' " 16200,PROCR,"162",,,,"","DEAL WITH PT INPUT FOR ENTRY FILES " 16201,NOTES,"",,,,"","" 16202,54,"1",0,1,0,"46","" 16203,80,"292",2,0,0,"0","gRAD PT " 16204,124,"179",2,0,2,"0","" 16205,80,"326",2,0,0,"0","gUNPACK " 16206,80,"297",2,0,0,"0","gCOPY ANNOTATION FOR CARDS " 16207,10,"",0,0,0,"5500","" 16208,5,"12",3,0,0,"0","LETTER E FOR REPORTS " 16209,,"1",2,1,0,"0",";CHECK 'ENTRY' " 16210,2,"181",14,1,0,"0"," 'ENTRY' " 16211,70,"162",14,0,0,"0","gOK " 16212,10,"",0,0,0,"1","" 16213,80,"177",2,0,0,"0","gREPORT *E1 " 16214,,"1",4,0,0,"0","ENTRY PROCR " 16215,12,"",0,0,0,"100","" 16216,73,"162",19,0,0,"0","gWRONG " 16217,12,"",0,0,0,"899","" 16218,73,"162",22,0,0,"0","gOK " 16219,10,"",0,0,0,"2","" 16220,80,"177",2,0,0,"0","gREPORT *E2 " 16221,80,"295",2,0,0,"0","IGNORE " 16222,10,"",0,0,0,"1","" 16223,5,"12",33,0,0,"0","SET 'PT INPUT' " 16224,,"1",4,0,0,"0","" 16225,80,"200",2,0,0,"0","REPLACE PROCR " 16226,C,"178",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000132.JPG",,,,"","KenK/Q1000132" 16227,71,"162",31,0,0,"0","gOK " 16228,,"319",40,1,0,"0"," '????R' " 16229,5,"1",44,1,0,"0","" 16230,76,"162",32,0,0,"0","" 16231,5,"1",4,0,0,"0","NEW PROCR " 16232,,"1",6,1,0,"0","PRIORITY CLASS " 16233,12,"",0,0,0,"1","" 16234,73,"162",37,0,0,"0","gWRONG " 16235,12,"",0,0,0,"4","" 16236,73,"162",40,0,0,"0","gOK " 16237,10,"",0,0,0,"3","" 16238,80,"177",2,0,0,"0","gREPORT*E3 " 16239,80,"295",2,0,0,"0","IGNORE " 16240,52,"8",4,0,0,"0","" 16241,C,"175",32,0,0,"0","" 16242,55,"1",16,1,0,"30","ANNOTATION " 16243,C,"8",20,1,0,"0","" 16244,80,"289",2,0,0,"0","gWRITE " 16245,80,"292",2,0,0,"0","gREAD PT;TESTS FOR END OF " 16246,,"92",30,0,0,"0",";PT FILE DETAILS " 16247,70,"162",58,0,0,"0","gINITIAL TRANSLATION " 16248,80,"294",2,0,0,"0","gTEST PT AT AMEND DIRECTIVE " 16249,71,"162",53,0,0,"0","gYES " 16250,,"9",4,1,0,"0","" 16251,2,"181",18,1,0,"0"," 'CHAPS' " 16252,71,"162",73,0,0,"0","gASSUME ANOTHER FILE EX PT " 16253,80,"291",2,0,0,"0","gREAD MT " 16254,,"7",6,1,0,"0",";IGNORE MT FILES " 16255,2,"181",18,1,0,"0"," 'CHAPS' " 16256,71,"162",53,0,0,"0","gREAD/IGNORE MT FILES->PROCESS MT CHAPS " 16257,76,"161",33,0,0,"0","gPROCESS MT CHAPS " 16258,,"9",4,1,0,"0","" 16259,2,"181",18,1,0,"0"," 'CHAPS' " 16260,70,"165",2,0,0,"0","gEND OF FILE DETAILS EX PT " 16261,,"9",4,1,0,"0","" 16262,30,"",0,0,0,"4-","" 16263,30,"",0,0,0,"4","" 16264,2,"319",14,1,0,"0"," 'END ' " 16265,71,"162",73,0,0,"0","" 16266,10,"",0,0,0,"900000","" 16267,1,"27",9,0,0,"0","" 16268,91,"",0,0,3,"0","" 16269,150,"",0,0,0,"1"," END' BEFORE 'CHAPS'ALARM*01 " 16270,C,"162",72,0,0,"0","gUNLOAD " 16271,C,"100",2,0,0,"0","gRE-ENTER " 16272,151,"",0,0,0,"0","" 16273,54,"1",0,1,0,"46","" 16274,5,"12",2,0,0,"0","CLEAR CTR " 16275,124,"179",12,0,2,"0","" 16276,80,"326",2,0,0,"0","gUNPACK FILE DETAILS " 16277,80,"297",2,0,0,"0","gUNPACK CARD ANNOTATION " 16300,PROCR,"163",,,,"","CHECK/STORE/OUTPUT FILR DETAILS EX PT " 16301,NOTES,"",,,,"","" 16302,10,"",0,0,0,"5600","" 16303,5,"12",3,0,0,"0","ERROR LETER F " 16304,34,"1",2,1,0,"0","FILE IDENTITY " 16305,80,"300",2,0,0,"0","gL-ALIGN IN A " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000133.JPG",,,,"","KenK/Q1000133" 16306,3,"1",2,1,0,"0","" 16307,32,"",0,0,0,"9-","" 16308,12,"",0,0,0,"5","CONTROL OF ALPHA PART " 16309,73,"163",24,0,0,"0","gREPORT " 16310,10,"",0,0,0,"0","" 16311,32,"",0,0,0,"1","BASIC OF ALPHA PART " 16312,12,"",0,0,0,"t","" 16313,72,"163",24,0,0,"0","gREPORT " 16314,10,"",0,0,0,"0","" 16315,32,"",0,0,0,"2","NUMERIC PART " 16316,12,"",0,0,0,"30","" 16317,70,"163",22,0,0,"0","gOK " 16318,12,"",0,0,0,"11","" 16319,73,"163",24,0,0,"0","gREPORT " 16320,12,"",0,0,0,"9","" 16321,72,"163",24,0,0,"0","gREPORT " 16322,10,"",0,0,0,"0","" 16323,74,"163",26,0,0,"0","gOK " 16324,10,"",0,0,0,"1","" 16325,80,"177",2,0,0,"0","gREPORT*F1 " 16326,,"1",4,1,0,"0","ROUTE TYPE " 16327,12,"",0,0,0,"1","" 16328,73,"163",62,0,0,"0","gIGNORE " 16329,12,"",0,0,0,"2","" 16330,71,"163",33,0,0,"0","gNOT 3. DEC CARD O/P " 16331,10,"",0,0,0,"26","" 16332,76,"163",60,0,0,"0","gSET BLOCK LENGTH " 16333,12,"",0,0,0,"1","" 16334,70,"163",51,0,0,"0","gGP PRINTER " 16335,12,"",0,0,0,"15","" 16336,70,"163",51,0,0,"0","gRT 19 " 16337,12,"",0,0,0,"1","" 16338,70,"163",70,0,0,"0","g OUT, IF RT20 " 16339,12,"",0,0,0,"1","" 16340,70,"163",62,0,0,"0","gREJECT RT 21 " 16341,12,"",0,0,0,"1","" 16342,70,"163",70,0,0,"0","g22,DATA LINK " 16343,12,"",0,0,0,"1","" 16344,70,"163",62,0,0,"0","gREJECT RT 23 " 16345,12,"",0,0,0,"1","" 16346,70,"163",70,0,0,"0","gRT24 " 16347,12,"",0,0,0,"1","" 16348,70,"163",70,0,0,"0","gRT25 " 16349,72,"163",62,0,0,"0","gREJECT " 16350,76,"163",70,0,0,"0","" 16351,,"1",8,1,0,"0","BLOCK LENGTH " 16352,80,"245",2,0,0,"0","gTO BIN " 16353,33,"",0,0,0,"6-","DIVIDE BY 64 " 16354,39,"",0,0,0,"0","ROUND UP " 16355,12,"",0,0,0,"5","" 16356,72,"163",66,0,0,"0","gTOO BIG " 16357,11,"",0,0,0,"5","" 16358,31,"",0,0,0,"6","" 16359,80,"244",2,0,0,"0","gTO DEC " 16360,5,"1",8,1,0,"0","" 16361,76,"163",70,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000134.JPG",,,,"","ChuckK/Q1000134" 16362,10,"",0,0,0,"2","" 16363,80,"177",2,0,0,"0",">REPORT*F2" 16364,80,"295",2,0,0,"0",">IGNORE" 16365,76,"163",70,0,0,"0","" 16366,10,"",0,0,0,"4","" 16367,80,"177",2,0,0,"0",">REPORT*F4" 16368,80,"295",2,0,0,"0",">IGNORE" 16369,76,"163",73,0,0,"0","" 16370,0,"1",8,1,0,"0","BLOCK LENGTH" 16371,73,"163",66,0,0,"0","" 16372,70,"163",66,0,0,"0","" 16373,76,"164",15,0,0,"0","" 16374,10,"",0,0,0,"5","" 16375,80,"177",2,0,0,"0",">REPORT*F5" 16376,80,"295",2,0,0,"0",">IGNORE" 16377,,"1",6,1,0,"0","CHAP IND" 16378,73,"163",81,0,0,"0",">REPORT" 16379,12,"",0,0,0,"100","" 16380,73,"163",84,0,0,"0",">OK" 16381,10,"",0,0,0,"3","" 16382,80,"177",2,0,0,"0",">REPORT*F3" 16383,80,"295",2,0,0,"0","IGNORE" 16384,,"1",4,1,0,"0","ROUTE TYPE" 16385,80,"245",2,0,0,"0",">TO BIN" 16386,33,"",0,0,0," 2-","" 16387,1,"1",3,0,0,"0","FILE ID" 16388,33,"",0,0,0,"18-","" 16389,,"1",42,1,0,"0","" 16390,80,"164",2,0,0,"0",">STORE DETAIL" 16391,71,"163",93,0,0,"0",">OK, LIST NOT FULL" 16392,80,"295",2,0,0,"0",">IGNORE" 16393,52,"8",6,0,0,"0","" 16394,C,"175",2,0,0,"0","" 16395,55,"1",28,1,0,"18","" 16396,C,"8",32,1,0,"0","" 16397,80,"289",2,0,0,"0",">WRITE" 16398,76,"162",45,0,0,"0","" 16400,PROCR,"164",,164,,,"STORE FILE DETAILS SR","" 16401,NOTES,"",,,,"","" 16402,81,"164",2,0,0,"0","" 16403,2,"319",26,1,0,"0","" 16404,70,"164",13,0,0,"0",">IGNORED ALREADY" 16405,10,"",0,0,0,"10"," =16" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000135.JPG",,,,"","ChuckK/Q1000135" 16406,2,"91",1,0,0,"0","" 16407,70,"164",13,0,0,"0","LIST FULL. IGNORE" 16408,32,"",0,0,0,"5","" 16409,124,"91",1,0,1,"0","" 16410,5,"91",5,0,0,"0","STORE" 16411,10,"",0,0,0,"2","" 16412,4,"91",1,0,0,"0","STEP CTR" 16413,60,"",0,0,0,"0","" 16414,82,"164",2,0,0,"0","(A)=0 IF FILE TO BE IGNORED" 16415,,"1",10,0,0,"0","ALT ROUTE IND" 16416,71,"164",21,0,0,"0","" 16417,,"1",4,0,0,"0","" 16418,12,"",0,0,0,"19","" 16419,70,"163",74,0,0,"0",">REPORT" 16420,76,"163",77,0,0,"0",">OK" 16421,,"1",4,0,0,"0","ROUTE TYPE" 16422,12,"",0,0,0,"5","" 16423,70,"164",38,0,0,"0",">PT" 16424,12,"",0,0,0,"2","" 16425,70,"164",38,0,0,"0",">MT 7" 16426,12,"",0,0,0,"1","" 16427,70,"164",38,0,0,"0",">MT 8" 16428,12,"",0,0,0,"3","" 16429,70,"164",38,0,0,"0",">MT 11" 16430,12,"",0,0,0,"4","" 16431,70,"164",38,0,0,"0",">PT 15" 16432,12,"",0,0,0,"4","" 16433,71,"163",74,0,0,"0",">REPORT. NOT 19" 16434,,"1",10,0,0,"0","SPECIAL ANNEX LENGTH" 16435,12,"",0,0,0,"4096","" 16436,72,"163",74,0,0,"0",">REPORT" 16437,76,"163",77,0,0,"0",">OK" 16438,,"1",10,0,0,"0","ALT ROUTE IND" 16439,12,"",0,0,0,"1",">OK" 16440,70,"163",77,0,0,"0",">REPORT" 16441,76,"163",74,0,0,"0","" 16500,PROCR,"165",,,,"'CHAPS' ON PT ","" 16501,NOTES,"",,,,"","" 16502,10,"",0,0,0,"5300","" 16503,3,"12",33,0,0,"0","SET 'PT IN'" 16504,5,"12",3,0,0,"0","ERROR LETTER C" 16505,54,"1",0,1,0,"46","" 16506,,"12",1,0,0,"0","STORE AMEND SERIAL INDICATOR" 16507,30,"",0,0,0,"2","" 16508,5,"1",0,0,0,"0","" 16509,124,"180",2,0,2,"0","" 16510,80,"326",2,0,0,"0",">UNPACK 'CHAPS'" 16511,,"1",4,0,0,"0","NO OF CHARS" 16512,12,"",0,0,0,"1","" 16513,73,"165",16,0,0,"0",">REPORT" 16514,12,"",0,0,0,"14","" 16515,73,"165",19,0,0,"0",">OK" 16516,10,"",0,0,0,"1","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000136.JPG",,,,"","ChuckK/Q1000136" 16517,3,"1",4,0,0,"0","(SAFE VALUE)" 16518,80,"177",2,0,0,"0",">REPORT*C1" 16519,,"1",4,0,0,"0","" 16520,80,"245",2,0,0,"0",">TO BIN" 16521,5,"12",13,0,0,"0","" 16522,60,"",0,0,0,"0","" 16523,91,"12",12,0,2,"0","C:0" 16524,,"1",5,0,2,"0","" 16525,80,"200",2,0,0,"0",">REPLACE PROCR" 16526,C,"178",2,0,0,"0","" 16527,71,"165",31,0,0,"0",">OK" 16528,,"319",40,1,0,"0"," '????R'" 16529,5,"1",44,1,0,"0","" 16530,,"1",5,0,2,"0","OLD VALUE" 16531,3,"12",14,0,2,"0","STORE START POINTS" 16532,3,"1",5,0,2,"0","" 16533,12,"",0,0,0,"100","" 16534,73,"165",37,0,0,"0",">REPORT" 16535,12,"",0,0,0,"899","" 16536,73,"165",39,0,0,"0",">OK" 16537,10,"",0,0,0,"2","" 16538,80,"177",2,0,0,"0",">REPORT*C2" 16539,94,"165",24,0,2,"1","" 16540,,"1",5,0,2,"0","NEXT CHAP START" 16541,70,"165",44,0,0,"0",">OK" 16542,10,"",0,0,0,"3","" 16543,80,"177",2,0,0,"0",">REPORT*C3" 16544,55,"1",4,0,0,"15","NO OF CHAPS*START" 16545,C,"8",8,2,0,"0","" 16546,55,"1",34,1,0,"12","REPORTS" 16547,C,"8",38,1,0,"0","" 16548,52,"8",4,0,0,"0","EDIT AMEND IND+'CHARS'" 16549,C,"175",26,0,0,"0","" 16550,80,"292",2,0,0,"0",">READ PT" 16551,,"9",4,1,0,"0",";DEAL WITH 'STOR" 16552,2,"181",22,1,0,"0"," 'STORE'" 16553,70,"165",57,0,0,"0",">PT AT STORE" 16554,,"92",30,0,0,"0","" 16555,71,"165",74,0,0,"0",">MT UNAMENDED" 16556,76,"166",2,0,0,"0",">INITIAL TRANS WITHOUT STORE" 16557,,"92",30,0,0,"0","" 16558,70,"165",64,0,0,"0","INITIAL TRANS" 16559,80,"291",2,0,0,"0","READ A1" 16560,,"7",6,1,0,"0","" 16561,2,"181",22,1,0,"0"," 'STORE'" 16562,71,"165",64,0,0,"0","" 16563,80,"291",2,0,0,"0","READ A1" 16564,54,"1",0,1,0,"20","" 16565,124,"180",2,0,2,"0","" 16566,80,"326",2,0,0,"0","UNPACK 'STORE'" 16567,80,"289",2,0,0,"0","WRITE 'CHAPS'" 16568,55,"1",4,0,0,"7","" 16569,C,"8",8,1,0,"0","" 16570,,"181",22,1,0,"0"," 'STORE'" 16571,5,"8",6,1,0,"0","" 16572,80,"292",2,0,0,"0","READ A6" 16573,76,"166",2,0,0,"0","" 16574,80,"291",2,0,0,"0","READ A1 MT UNAMENDED" 16575,,"7",6,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000137.JPG",,,,"","KenK/Q1000137" 16576,2,"181",22,1,0,"0","" 16577,71,"166",2,0,0,"0","gNOT STORE " 16578,80,"289",2,0,0,"0","WRITE 'CHAPS' " 16579,55,"7",4,1,0,"40","" 16580,C,"8",4,1,0,"0","" 16581,80,"291",2,0,0,"0","gREAD A1 " 16600,PROCR,"166",,,,"","PREPARE TP PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION " 16601,NOTES,"",,,,"","" 16602,10,"",0,0,0,"pppppppppp","" 16603,5,"18",2498,1,0,"0","LIST END SIGN " 16604,5,"18",2496,1,0,"0","CLEAR FIRST ENTRY " 16605,83,"267",2,0,0,"1","SAFETY SETTINGS " 16606,0,"12",13,0,0,"0","NO OF CHAPS " 16607,80,"244",2,0,0,"0","gTO DEC " 16608,5,"181",8,0,0,"0","" 16609,10,"",0,0,0,"7200","" 16610,5,"12",3,0,0,"0","ERROR LETTERS " 16611,10,"",0,0,0,"99","" 16612,5,"92",3,0,0,"0","FIRST PROCR-1 " 16613,90,"",0,0,4,"0","" 16614,C,"",0,0,0,"14","TO STORE CHAPTER ENDS " 16615,62,"",0,0,0,"0","" 16616,91,"12",12,0,3,"0","" 16617,11,"",0,0,0,"1","" 16618,3,"92",10,0,3,"0","STORE UNCORRECETD CHAP NUMBERS " 16619,94,"166",17,0,3,"1","" 16620,60,"",0,0,0,"0","" 16621,10,"",0,0,0,"1001","" 16622,5,"12",9,0,0,"0","SET FIRST SECTION SERIAL NUMBER " 16623,,"92",30,0,0,"0","" 16624,71,"167",2,0,0,"0","gNOT INITIAL TRANSLATION " 16625,87,"27",10,0,0,"0","" 16626,C,"166",28,0,0,"0","gPT " 16627,C,"166",30,0,0,"0","gCARDS " 16628,,"9",4,1,0,"0","" 16629,76,"166",31,0,0,"0","" 16630,,"9",8,1,0,"0","" 16631,80,"287",2,0,0,"0","gTEST PT='PROCR' ETC " 16632,,"12",38,0,0,"0","" 16633,73,"185",2,0,0,"0","gYES, END OF SECTION DETAILS " 16634,80,"170",2,0,0,"0","gUNPACK/OUTPUT PT " 16635,76,"166",25,0,0,"0","" 16700,PROCR,"167",,,,"","DEAL WITH UNAMENDED SECTION LINE " 16702,80,"173",2,0,0,"0","gTEST PT AT AMEND DIRECTIVE " 16703,71,"167",7,0,0,"0","" 16704,34,"181",10,1,0,"0","FIVE SQUARES " 16705,76,"169",3,0,0,"0","" 16706,80,"291",2,0,0,"0","gREAD MT " 16707,,"12",45,0,0,"0","" 16708,71,"167",13,0,0,"0","gNO MORE PT AMENDS TO SECTIONS " 16709,,"7",4,2,0,"0","" 16710,2,"9",4,2,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000138.JPG",,,,"","KenK/Q1000138" 16711,70,"168",2,0,0,"0","gMT AMENDED " 16712,73,"169",2,0,0,"0","gMT>PT, REPORT " 16713,80,"174",2,0,0,"0","gTEST MT=PROCR ETC " 16714,,"12",38,0,0,"0","" 16715,73,"185",2,0,0,"0","gYES " 16716,50,"7",6,0,0,"0","" 16717,C,"175",16,0,0,"0","" 16718,55,"7",32,1,0,"16","" 16719,C,"1",28,1,0,"0","" 16720,5,"1",44,1,0,"0","CLEAR REPORT WL " 16721,80,"172",2,0,0,"0","gCHECK/EDIT/WRITE SECTION DETAIL " 16722,76,"167",6,0,0,"0","" 16800,PROCR,"168",,,,"","EFFECT REPLACEMENTS, DELETIONS, INSERTIONS " 16802,85,"252",2,0,0,"0","" 16803,C,"168",7,0,0,"0","gREPLACE " 16804,C,"168",15,0,0,"0","gDELETE " 16805,C,"168",27,0,0,"0","gINSERT BEFORE " 16806,C,"168",7,0,0,"0","gANNOTATION " 16807,80,"174",2,0,0,"0","gTEST MT=PROCR ETC " 16808,0,"12",38,0,0,"0","" 16809,73,"185",2,0,0,"0","gYES ;'REPLACE'LOOP " 16810,80,"170",2,0,0,"0","gAPPLY PT " 16811,80,"173",2,0,0,"0","gTEST NEXT PT=DIRECTIVE " 16812,71,"167",6,0,0,"0","gYES " 16813,80,"291",2,0,0,"0","gREAD MT " 16814,76,"168",7,0,0,"0","" 16815,80,"292",2,0,0,"0","gREAD PT " 16816,80,"173",2,0,0,"0","gTEST DIRECTIVE ;DELETE " 16817,71,"167",6,0,0,"0","gYES " 16818,80,"291",2,0,0,"0","gREAD MT " 16819,80,"174",2,0,0,"0","g TEST MT=PROCR ETC " 16820,,"12",38,0,0,"0","" 16821,73,"185",2,0,0,"0","gYES " 16822,,"7",4,2,0,"0","" 16823,2,"9",4,2,0,"0","" 16824,73,"169",2,0,0,"0","gMODS OUT OF ORDER " 16825,70,"168",15,0,0,"0","gEND OF DELETION " 16826,76,"168",18,0,0,"0","gREAD/IGNORE MT " 16827,80,"292",2,0,0,"0","READ FIRST INSERTED BLOCK " 16828,80,"170",2,0,0,"0","gUNPACK/OUTPUT/READ NEXT PT BLOCK " 16829,80,"173",2,0,0,"0","gTEST AMEND DIRECTIVE " 16830,70,"168",28,0,0,"0","gNO " 16831,76,"167",7,0,0,"0","gYES " 16900,PROCR,"169",,,,"","DEAL WITH SEQUENCE ERROR IN MODS " 16902,34,"1",2,1,0,"0","" 16903,0,"8",47,0,0,"0","TEST TOP HALF TO BE'??5' " 16904,2,"318",27,0,0,"0","" 16905,70,"169",10,0,0,"0","gLINE IGNORED, DONT OVERWRITE WORD " 16906,10,"",0,0,0,"0","CLEAR SIGN BIT A " 16907,32,"",0,0,0,"10","" 16908,5,"8",46,1,0,"0","" 16909,76,"169",12,0,0,"0","" 16910,32,"",0,0,0,"10","" 16911,5,"8",44,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000139.JPG",,,,"","KenK/Q1000139" 16912,0,"1",4,1,0,"0","AMEND LETTER " 16913,5,"8",48,1,0,"0","" 16914,35,"",0,0,0,"1111","" 16915,10,"",0,0,0,"1:1:","" 16916,3,"27",6,0,0,"0","SET 'PT OMITTED' " 16917,37,"8",48,1,0,"0","PLANT '??' " 16918,80,"292",2,0,0,"0","gREADPT " 16919,80,"173",2,0,0,"0","gTEST AMEND DIRECTIVE " 16920,70,"169",18,0,0,"0","gNO " 16921,76,"167",7,0,0,"0","gYES(DEAL WITH CURRENT MT BLOCK) " 17000,PROCR,"170",,,,"","AMENDS TO SECTION DESCRIPTION EX PT " 17002,81,"170",2,0,0,"0","" 17003,54,"1",0,1,0,"46","" 17004,124,"179",26,0,2,"0","" 17005,80,"326",2,0,0,"0","gUNPACK PT SECTION " 17006,80,"297",2,0,0,"0","UNPACK ANNOTATION(CARDS) " 17007,86,"252",2,0,0,"0","" 17008,12,"",0,0,0,"4","" 17009,71,"170",13,0,0,"0","gNOT 'UNPACK ANNOTATION' " 17010,50,"7",6,0,0,"0","" 17011,C,"175",16,0,0,"0","UNPACK MT DETAILS " 17012,76,"170",15,0,0,"0","" 17013,0,"12",1,0,0,"0","SET AMEND IND " 17014,5,"1",6,0,0,"0","" 17015,80,"292",2,0,0,"0","gREAD NEXT PT BLOCK " 17016,80,"172",2,0,0,"0","gCHECK/EDIT/OUTPUT SECTION DETAIL " 17017,82,"170",2,0,0,"0","" 17100,PROCR,"171",,,,"","" 17102,81,"171",2,0,0,"0","" 17103,43,"A2",0,0,0,"0","" 17104,C,"7",0,0,0,"0","" 17105,82,"171",2,0,0,"0","" 17200,PROCR,"172",,,,"","CHECK/EDIT/WRITE SECTION DETAILS " 17202,81,"172",2,0,0,"0","" 17203,80,"189",2,0,0,"0","DELETE B/FWD REPORTS " 17204,90,"",0,0,1,"0","" 17205,C,"",0,0,0,"4","" 17206,90,"",0,0,2,"0","" 17207,C,"",0,0,0,"8","" 17208,10,"",0,0,0,"0","" 17209,5,"1",44,1,0,"0","CLEAR REPORT WORD " 17210,,"1",2,0,1,"0","" 17211,2,"181",3,0,2,"0","LOWER LIMIT " 17212,73,"172",16,0,0,"0","gREPORT " 17213,,"181",2,0,2,"0","UPPER LIMIT " 17214,2,"1",2,0,1,"0","" 17215,72,"172",21,0,0,"0","gOK " 17216,96,"",0,0,1,"0","" 17217,11,"",0,0,0,"1","" 17218,80,"177",2,0,0,"0","gREPORT S(NOMBER) " 17219,80,"295",2,0,0,"0","gIGNORE SECTION " 17220,76,"172",44,0,0,"0","" 17221,94,"",0,0,1,"1","" 17222,94,"172",10,0,2,"2","" 17223,,"1",4,0,0,"0","TX AREA IND " 17224,70,"172",31,0,0,"0","gNO " 17225,4,"92",6,0,0,"0","AUG CTR " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000140.JPG",,,,"","DavidH/Q1000140" 17226,,"92",6,0,0,"0","" 17227,12,"",0,0,0,"9","" 17228,73,"172",31,0,0,"0","gOK, NOT >8 TX AREAS" 17229,10,"",0,0,0,"5","" 17230,76,"172",18,0,0,"0","gREPORT, IGNORE" 17231,,"1",2,0,0,"0","" 17232,80,"183",2,0,0,"0","gDECODE SEC NUMBER" 17233,34,"12",40,0,0,"0","" 17234,36,"12",72,0,3,"0","" 17235,71,"172",29,0,0,"0","gSECTION ALREADY USED" 17236,62,"",0,0,0,"0","" 17237,,"12",40,0,0,"0","" 17238,4,"12",72,0,3,"0","SET 'i AM A SECTION' IND" 17239,,"1",4,0,0,"0","" 17240,70,"172",44,0,0,"0","gNOT TX AREA" 17241,,"12",40,0,0,"0","" 17242,31,"",0,0,0,"10","" 17243,4,"12",72,0,3,"0","SET 'i AM A TX AREA' IND" 17244,60,"",0,0,0,"0","" 17245,80,"289",2,0,0,"0","gWRITE PREVINS BLOCK" 17246,52,"8",4,0,0,"0","" 17247,C,"175",12,0,0,"0","" 17248,10,"",0,0,0,"1","" 17249,4,"12",9,0,0,"0","STEP SERIAL CTR" 17250,55,"1",28,1,0,"18","ANNOTATION" 17251,C,"8",32,1,0,"0","" 17252,82,"172",2,0,0,"0","" 17300,PROCR,"173",,,,"",TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION 17302,81,"173",2,0,0,"0","" 17303,80,"294",2,0,0,"0","gTEST AMEND DIRECTIVE/END" 17304,70,"173",12,0,0,"0","gNO" 17305,,"1",3,0,0,"0","TOPCHAR OF SERIAL NUMBER" 17306,30,"",0,0,0,"3-","" 17307,12,"",0,0,0,"5e","*" 17308,70,"173",11,0,0,"0","gIS MOD TO SECTIONS" 17309,10,"",0,0,0,"1","" 17310,5,"12",45,0,0,"0","" 17311,10,"",0,0,0,"1","" 17312,82,"173",2,0,0,"0","(A)=0 IF NOT DIRECTIVE" 17400,PROCR,"174",,,,"",TEST MT AT START OF CODING 17402,81,"174",2,0,0,"0","" 17403,,"27",1,0,0,"0","" 17404,70,"174",8,0,0,"0","gSINGLE RECORD BLOCKS" 17405,,"7",12,1,0,"0","DIRECTIVE WORD" 17406,80,"287",2,0,0,"0","" 17407,82,"174",2,0,0,"0","" 17408,,"7",10,1,0,"0","" 17409,76,"174",6,0,0,"0","" 17500,TABLE,"175",1,1,,"","" 17501,NOTES,,,,,,,,,,,,,"" 17502,1,2,0,0,2,0,5,0,0,0,0,0,0,"FILE IDENTITY==FILES LINE" 17504,1,4,0,0,0,0,5,0,0,5,0,0,0,"RTE TYPE" 17506,1,6,0,0,0,0,5,0,0,5,0,0,0,"RETN PERIOD" 17508,1,8,0,0,0,0,5,0,0,5,0,0,0,"MAX BLOCK" 17510,1,10,0,0,0,0,5,0,0,5,0,0,1,"ALT ROUTE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000141.JPG",,,,"","DavidH/Q1000141" 17512,319,8,0,0,2,0,1,0,0,0,0,0,0,"*" 17514,12,9,0,0,0,0,4,1,0,3,0,0,0,"SECTION SERIAL NUMBER" 17516,1,2,0,0,0,0,5,0,0,4,0,0,0,"SECTION==SECTION LINE" 17518,1,3,0,0,0,0,5,0,0,4,0,0,0,"LENGTH" 17520,1,4,0,0,0,0,5,0,0,4,0,0,0,"TX AREA IND" 17522,1,5,0,0,0,0,5,0,0,4,0,0,0,"CHAPTER" 17524,1,6,0,0,0,0,5,0,0,5,0,0,1,"AMEND IND" 17526,1,0,0,0,0,0,5,0,0,5,0,0,0,"AMEND IND" 17528,1,2,0,0,2,0,5,0,0,0,0,0,1,"'CHAPS'" 17530,12,1,0,0,0,0,5,0,0,4,0,0,1,"FOR UPDATED SERIAL" 17532,1,0,0,0,0,0,5,0,0,5,0,0,0,"AMEND IND" 17534,1,2,0,0,2,0,5,0,0,0,0,0,0,"" 17536,1,4,0,0,0,0,5,0,0,5,0,0,0,"" 17538,1,6,0,0,0,0,5,0,0,4,0,0,0,"" 17540,1,8,0,0,2,0,5,0,0,0,0,0,0,"SERIAL/CODER" 17542,1,10,0,0,1,0,10,0,0,10,0,0,0,"(SPACER)" 17544,1,10,0,0,0,0,5,0,0,5,0,0,1,"(SPACER)" 17600,PROCR,"176",,,,"","CHECK PERFORATING IN PROGM BLOCK" 17601,NOTES,"",,,,"","" 17602,81,"176",2,0,0,"0","" 17603,,"1",4,0,0,"0","SUITE" 17604,12,"",0,0,0,"1000","" 17605,73,"176",8,0,0,"0","gOK" 17606,10,"",0,0,0,"41","" 17607,80,"177",2,0,0,"0","gREPORT*P1" 17608,,"1",6,0,0,"0","JOB" 17609,12,"",0,0,0,"100","" 17610,73,"176",13,0,0,"0","gOK" 17611,10,"",0,0,0,"42","" 17612,80,"177",2,0,0,"0","gREPORT*P2" 17613,,"1",4,0,0,"0","" 17614,1,"1",6,0,0,"0","" 17615,71,"176",18,0,0,"0","gOK" 17616,10,"",0,0,0,"43","" 17617,80,"177",2,0,0,"0","gREPORT*P3" 17618,,"92",30,0,0,"0","" 17619,71,"176",21,0,0,"0","gAMEND RUN" 17620,5,"1",8,1,0,"0","CLEAR SERIAL NUMBER" 17621,10,"",0,0,0,"0","" 17622,5,"12",2,0,0,"0","CLEAR CTR" 17623,82,"176",2,0,0,"0","" 17700,PROCR,"177",,,,"","ERROR REPORT SR" 17702,81,"177",2,0,0,"0","" 17703,5,"12",4,0,0,"0","" 17704,91,"12",2,0,3,"0","CTR" 17705,,"319",8,1,0,"0",";*;" 17706,1,"12",4,0,0,"0","REPORT NUMBER" 17707,1,"12",3,0,0,"0","REPORT LETTER" 17708,5,"1",38,1,3,"0","" 17709,12,"",0,0,0,"2","" 17710,4,"12",2,0,0,"0","REDUCE CTR" 17711,10,"",0,0,0,"0","" 17712,82,"177",2,0,0,"0","" ,,"",,,,"","" 17800,PROCR,"178",,,,"","REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS" 17802,81,"178",2,0,0,"0","(12/119=DEC PROCR)" 17803,,"12",119,0,0,"0","" 17804,80,"245",2,0,0,"0","gBIN" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000142.JPG",,,,"","RayS/Q1000142" 17805,33,"",0,0,0,"1-","" 17806,5,"320",42,1,0,"0","" 17807,91,"320",42,0,1,"0","" 17808,74,"178",12,0,0,"0","gEVEN" 17809,,"18",50-,0,1,"0","" 17810,31,"",0,0,0,"10-","" 17811,76,"178",14,0,0,"0","" 17812,34,"319",20,0,0,"0","BITS 1-10" 17813,36,"18",50-,0,1,"0","" 17814,80,"244",2,0,0,"0","gDEC" 17815,82,"178",2,0,0,"0","" 17900,TABLE,"179",179,3,3,"","UNPACK PROGM/ENTRY/SECTION" 17901,NOTES,,,,,,SALE DESCRIPTION FROM P/T & CARDS,,,,,,,"" 17902,1,2,0,0,2,0,5,0,0,0,0,0,0,"PROGM/ENTRY" 17904,1,4,0,0,1,0,3,0,0,0,0,0,0,"SUITE NO/E POINT" 17906,1,6,0,0,1,0,2,0,0,0,0,0,0,"JOB NO/PRIORITY CLASS" 17908,1,8,0,0,2,0,5,0,0,0,0,0,0,"SERIAL, VERSION, BLANK/CODER" 17910,1,16,0,0,2,1,5,0,0,0,0,0,1,"/////ANNOTATION/CHECKER" 17912,12,48,0,0,0,0,2,0,0,0,0,0,0,"FILES DESCRIPTION-SERIAL NO" 17914,1,2,0,0,2,0,2,0,0,0,0,0,0,"FILE ID" 17916,1,4,0,0,1,0,2,0,0,0,0,0,0,"ROUTE TYPE" 17918,1,6,0,0,1,0,2,0,0,0,0,0,0,"CHAPTER" 17920,1,8,0,0,1,0,4,0,0,0,0,0,0,"BLOCK LENGTH" 17922,1,10,0,0,1,0,4,0,0,0,0,0,0,"ALT ROUTE IND" 17924,1,28,0,0,2,0,5,0,0,0,0,0,1,"ANNOTATION" 17926,12,48,0,0,0,0,6,0,0,0,0,0,0,"/////SERIAL-SEC DESCRIPTION" 17928,1,2,0,0,0,0,2,0,0,0,0,0,0,"SECTION NO" 17930,1,3,0,0,0,0,4,0,0,0,0,0,0,"LENGTH" 17932,1,4,0,0,0,0,1,0,0,0,0,0,0,"TX?" 17934,1,5,0,0,0,0,2,0,0,0,0,0,0,"CHAP NO" 17936,1,28,0,0,2,0,5,0,0,0,0,0,1,"ANNOTATION" 17938,1,2,0,0,2,0,5,0,0,0,0,0,0,"'AMEND'" 17940,1,4,0,0,1,0,3,0,0,0,0,0,0,"SUITE NO" 17942,1,6,0,0,1,0,2,0,0,0,0,0,0,"JOB NO" 17944,1,8,0,0,2,0,2,0,0,0,0,0,0,"(ISSUE+SERIAL)/ISSUE" 17946,1,20,0,0,2,0,3,0,0,0,0,0,0,"(WORDS ETC)/SERIAL" 17948,1,16,0,0,0,0,1,0,0,0,0,0,0,"''PRINT PASS 3'' IND" 17950,1,17,0,0,0,0,3,0,0,0,0,0,0,"NEW ISSUE" 17952,1,18,0,0,2,0,1,0,0,0,0,0,1,"PTS IND(CARDS)" 18000,TABLE,180,3,3,,,UNPACK CHAPS BLOCK,,,,,,,"" 18001,NOTES,,,,,,FROM CARDS,,,,,,,"" 18002,1,2,0,0,2,0,5,0,0,0,0,0,0,"CHAPS'" 18004,1,4,0,0,0,0,2,0,0,0,0,0,0,"NO OF CHAPS" 18006,1,5,0,0,0,0,3,0,0,0,0,0,0,"1-ST START" 18008,1,6,0,0,0,0,3,0,0,0,0,0,0,"2-ND START" 18010,1,7,0,0,0,0,3,0,0,0,0,0,0,"" 18012,1,8,0,0,0,0,3,0,0,0,0,0,0,"" 18014,1,9,0,0,0,0,3,0,0,0,0,0,0,"" 18016,1,10,0,0,0,0,3,0,0,0,0,0,0,"" 18018,1,11,0,0,0,0,3,0,0,0,0,0,0,"" 18020,1,12,0,0,0,0,3,0,0,0,0,0,0,"" 18022,1,13,0,0,0,0,3,0,0,0,0,0,0,"" 18024,1,14,0,0,0,0,3,0,0,0,0,0,0,"10-TH START" 18026,1,15,0,0,0,0,3,0,0,0,0,0,0,"" 18028,1,16,0,0,0,0,3,0,0,0,0,0,0,"" 18030,1,17,0,0,0,0,3,0,0,0,0,0,0,"" 18032,1,18,0,0,0,0,3,0,0,0,0,0,1,"14-TH START" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000143.JPG",,,,"","RayS/Q1000143" 18100,CONST,"181",,1,,"","FUNCTIONAL" 18102,,"(D)100099;",,,,"","UPPER/LOWER LIM SEC NUMBER" 18104,,"4096;",,,,"","DO LENGTH" 18106,,"1;",,,,"","DO TX AREA IND" 18108,,"0;",,,,"","DO CHAP NUMBER" 18110,,"1p1p1p1p1p;",,,,"","" 18112,,"(A)PROGM;",,,,"","" 18114,,"ENTRY;",,,,"","" 18116,,"AMEND;",,,,"","" 18118,,"CHAPS;",,,,"","" 18120,,"PASSI;",,,,"","" 18122,,"STORE;",,,,"","" 18200,CONST,"182",,1,,"",DUMMY 18202,,"(B)0;",,,,"","" 18204,,";",,,,"","" 18206,,";",,,,"","" 18208,,";",,,,"","" 18210,,";",,,,"","" 18300,PROCR,"183",,,,"","DECODE SECTION NUMBER" 18301,NOTES,"",RADIX,"D",,,BITS 1-10 OF 10 LOCATIONS 18302,81,"183",2,0,0,"0","" 18303,70,"183",11,0,0,"0","gZERO SECTION" 18304,32,"",0,0,0,"1-","DIVIDE BY 10" 18305,92,"",0,0,3,"0","SET MODIFIER=LOCN;CLEAR A" 18306,32,"",0,0,0,"1","REMAINDER" 18307,5,"12",40,0,0,"0","WL" 18308,10,"",0,0,0,"1","" 18309,124,"12",40,0,0,"0","" 18310,31,"",0,0,0,"0","/////" 18311,5,"12",40,0,0,"0","STORE COLLATION BIT" 18312,82,"183",2,0,0,"0","" 18400,CONST,"184",,1,0,"0","DUMMY" 18500,PROCR,"185",,,,"","MAIN LOOP-DEAL WITH INITIAL TRANSLATION" 18501,NOTES,"",RADIX,,,"","",BITS 1-10 OF 10 LOCATIONS 18502,55,"18",0,0,0,"1010","COPY CURRENT AMEND DETAILS" 18503,C,"93",0,0,0,"0","" 18504,54,"29",0,1,0,"44","" 18505,83,"191",2,0,0,"2","SAFETY SETTINGS" 18506,10,"",0,0,0,"1","" 18507,5,"27",5,0,0,"0","UNPACK SWITCH" 18508,0,"92",30,0,0,"0","" 18509,3,"12",8,1,0,"0","(CLEAR 12/9)" 18510,70,"185",14,0,0,"0","gINITIAL TRANSLATION" 18511,59,"7",6,0,8,"0","SET I/P MR" 18512,C,"7",4,2,0,"0","" 18513,76,"251",2,0,0,"0","" 18514,10,"",0,0,0,"1","" 18515,5,"12",33,0,0,"0","SET 'PT INS INPUT'" 18516,,"9",4,1,0,"0","" 18517,30,"",0,0,0,"4-","" 18518,30,"",0,0,0,"4","" 18519,2,"319",14,1,0,"0","'END '" 18520,70,"322",2,0,0,"0","gEND OF INITIAL TRANSLATION" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000144.JPG",,,,"","RayS/Q1000144" 18521,,"9",4,1,0,"0","" 18522,2,"319",46,1,0,"0","'TRAMD'" 18523,70,"322",2,0,0,"0","" 18524,87,"27",10,0,0,"0","" 18525,C,"185",27,0,0,"0","gPT" 18526,C,"185",29,0,0,"0","gCARDS" 18527,,"9",4,1,0,"0","" 18528,76,"185",30,0,0,"0","" 18529,,"9",8,1,0,"0","" 18530,80,"287",2,0,0,"0","gTEST STACK DIRECTIVE" 18531,80,"283",2,0,0,"0","gUNPACK PT" 18532,80,"186",2,0,0,"0","gCHECK/EDIT/OUTPUT" 18533,80,"292",2,0,0,"0","gREAD PT" 18534,76,"185",16,0,0,"0","gLOOP TILL END" ,,"",,,,"","" 18600,PROCR,"186",,,,"","START OF CHECK/EDIT/OUTPUT SR" 18601,NOTES,"",RADIX,,,"","" 18602,81,"186",2,0,0,"0","" 18603,,"12",38,0,0,"0","STACKING DIRECTIVE" 18604,70,"190",2,0,0,"0","NO" 18605,72,"191",2,0,0,"0","g'NOTES' BLOCK" 18606,,"12",61,0,0,"0","C-LINE MUST FOLLOW" 18607,70,"186",9,0,0,"0","INDICATOR" 18608,80,"296",2,0,0,"0","IGNORE THIS INSTRUCTION" 18609,,"12",54,0,0,"0","" 18610,12,"",0,0,0,"55","" 18611,70,"186",14,0,0,"0","" 18612,10,"",0,0,0,"0","" 18613,5,"12",60,1,0,"0","" 18614,5,"12",9,0,0,"0","" 18615,5,"12",43,0,0,"0","CLEAR LINE INCREMENT FOR 'SER' CHECKS" 18616,,"92",30,0,0,"0","" 18617,71,"186",22,0,0,"0","gAMEND RUN" 18618,,"9",50,2,0,"0","PASS 0 DOESN'T LIKE IT' IND" 18619,70,"186",22,0,0,"0","gOK" 18620,,"319",40,1,0,"0","????R'" 18621,5,"1",44,1,0,"0","" 18622,,"27",5,0,0,"0","" 18623,12,"",0,0,0,"4","" 18624,70,"187",38,0,0,"0","gVALUE (DIRECTIVE OR DATA)" 18625,,"92",3,0,0,"0","" 18626,11,"",0,0,0,"1","FORM TRANSLATORS PROCR" 18627,3,"92",3,0,0,"0","" 18628,3,"12",0,0,0,"0","" 18629,5,"12",4,0,0,"0","" ,,"",,,,"","" 18700,PROCR,"187",,,,"","TEST NEW CHAPTER" 18702,,"1",8,2,0,"0","" 18703,30,"",0,0,0,"2-","" 18704,3,"1",14,0,0,"0","B/FWD PROCR" 18705,80,"200",2,0,0,"0","gREPLACE PROCR" 18706,C,"202",2,0,0,"0","" 18707,2,"92",3,0,0,"0","" 18708,70,"187",11,0,0,"0","gOK PASS 0 HASN'T BOOBED" 18709,,"319",40,1,0,"0","????R'" 18710,5,"1",44,1,0,"0","" 18711,52,"1",8,0,0,"0","EDIT NEW PROCR" 18712,C,"306",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000145.JPG",,,,"","ChuckK/Q1000145" 18713,,"27",4,0,0,"0","" 18714,71,"187",19,0,0,"0",">COMPILER.DONT SET IND" 18715,,"1",14,0,0,"0","OLD" 18716,2,"12",4,0,0,"0","NEW" 18717,70,"187",19,0,0,"0",">PROCR DOESNT CHANGE" 18718,80,"188",2,0,0,"0",">SET 'PRINT PROCR'" 18719,,"92",3,0,0,"0","" 18720,12,"",0,0,0,"100","" 18721,71,"187",25,0,0,"0",">NOT FIRST TIME THROUGH" 18722,0,"12",0,0,0,"0","FIRST CODERS PROCR" 18723,5,"12",14,0,0,"0","SET AS FIRST CHAP START" 18724,76,"187",33,0,0,"0","" 18725,,"12",14,0,4,"0","" 18726,2,"12",0,0,0,"0","" 18727,71,"187",38,0,0,"0",">THIS PROCR IS NOT A CHAPTER START" 18728,,"92",3,0,0,"0","" 18729,12,"",0,0,0,"1","" 18730,80,"245",2,0,0,"0",">CHAP END IN BIN" 18731,30,"",0,0,0,"2","" 18732,4,"92",9,0,4,"0","STORE CHAP END POINT" 18733,62,"",0,0,0,"0","" 18734,10,"",0,0,0,"1","" 18735,4,"92",0,0,0,"0","STEP UNCORR CHAP IN BIN" 18736,60,"",0,0,0,"0","" 18737,94,"",0,0,4,"1","" 18738,83,"191",2,0,0,"1","SET CHECK SWITCH FOR DIRECTIVES" 18739,76,"191",2,0,0,"0","" 18800,PROCR,"188",,188,,"SET IND IN SEC 23 IF PROCR TO BE PRINTED","" 18802,81,"188",2,0,0,"0","" 18803,,"92",3,0,0,"0","CURRENT PROCR" 18804,80,"245",2,0,0,"0",">BIN" 18805,19,"",0,0,0,"14","" 18806,5,"320",42,0,0,"0","" 18807,32,"",0,0,0,"9","" 18808,5,"320",43,0,0,"0","REMAINDER" 18809,34,"320",22,0,0,"0","1" 18810,124,"320",43,0,1,"0","" 18811,33,"",0,0,0,"0","/////" 18812,,"320",20,0,0,"0","pX5" 18813,124,"320",42,0,1,"0","" 18814,37,"23",5-,0,0,"0","SET BIT" 18815,60,"",0,0,0,"0","" 18816,82,"188",2,0,0,"0","" 18900,PROCR,"189",,189,,"CHECK FOR B/FWD ERROR REPORTS","" 18901,NOTES,"",,0,0,"0","" 18902,81,"189",2,0,0,"0","" 18903,,"1",42,1,0,"0","LAST 5 CHARS OF ANNOTATION" 18904,2,"319",26,1,0,"0"," '?????'" 18905,70,"189",12,0,0,"0","" 18906,,"1",42,1,0,"0","" 18907,12,"",0,0,0,"5p5p5p5p5p","FIVE SQUARES" 18908,70,"189",12,0,0,"0","" 18909,,"1",42,1,0,"0","" 18910,2,"319",24,1,0,"0"," 'SHEET'" 18911,71,"189",13,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000146.JPG",,,,"","ChuckK/Q1000146" 18912,5,"1",42,1,0,"0","CLEAR OUT REPORT" 18913,82,"189",2,0,0,"0","" 19000,PROCR,"190",,,,"CHECK SERIAL NUMBER SEQUENCE - INITIAL TRANSLATION","" 19001,NOTES,"",RADIX,,,,"" 19002,,"92",30,0,0,"0","" 19003,71,"191",2,0,0,"0","" 19004,34,"1",2,1,0,"0","RIGHT ALIGN" 19005,80,"321",2,0,0,"0","SERIAL NO" 19006,,"12",88,2,0,"0","" 19007,2,"12",43,0,0,"0","" 19008,70,"190",14,0,0,"0","SERIAL NO IS IN FACT SERIAL" 19009,86,"191",2,0,0,"0","" 19010,12,"",0,0,0,"6","" 19011,72,"191",2,0,0,"0",">NO CHECK ON PM+TRIAL DATA" 19012,10,"",0,0,0,"725569","PUT'SER' IN ERROR INDICATOR" 19013,5,"1",44,1,0,"0","" 19014,,"12",88,2,0,"0","STORE THIS SERIAL NO" 19015,1,"12",90,0,0,"0","gLONG/SHORT COUNTER" 19016,11,"",0,0,0,"1","1" 19017,5,"12",43,0,0,"0","TO TEST NEXT INSTRUCTION" 19100,PROCR,"191",,0,0,"SWITCH B","" 19101,NOTES,"",RADIX,,,,"" 19102,80,"189",2,0,0,"0",">DELETE B/FWD ERROR REPORTS" 19103,,"12",33,0,0,"0","" 19104,70,"191",9,0,0,"0",">EX MT" 19105,,"92",30,0,0,"0","" 19106,70,"191",9,0,0,"0","" 19107,80,"188",2,0,0,"0",">SET'PRINT PROCR'" 19108,10,"",0,0,0,"0","" 19109,85,"191",2,0,0,"0","" 19110,C,"205",2,0,0,"0","STACKING DIRECTIVE" 19111,C,"210",2,0,0,"0","INSTRUCTIONS" 19112,C,"276",2,0,0,"0","TABLES" 19113,C,"260",2,0,0,"0","CONSTANTS" 19114,C,"191",15,0,0,"0","VALUE'=5" 19115,0,"1",9,0,0,"0","REF" 19116,34,"1",10,0,0,"0","" 19117,74,"191",23,0,0,"0","ZERO REF & ITEM" 19118,80,"275",2,0,0,"0",">UPDATE ADDRESS" 19119,0,"12",4,0,0,"0","" 19120,5,"1",9,0,0,"0","NEW REF" 19121,80,"277",2,0,0,"0","CHECK ADJUSTED REF" 19122,76,"247",2,0,0,"0",">EDIT AND OUTPUT" 19123,85,"108",2,0,0,"0","" 19124,C,"247",2,0,0,"0",">LAST REF/ITEM CORRECT" 19125,C,"191",26,0,0,"0",">LAST REF/ITEM IGNORED" 19126,80,"195",2,0,0,"0","REPORT R" 19127,80,"295",2,0,0,"0","IGNORE THIS LINE" 19128,76,"247",2,0,0,"0",">EDIT AND OUTPUT" 19200,PROCR,"192",,0,0,"CHECK I IS EVEN,REPORT IF NOT","" 19201,NOTES,"",0,0,0,"0","" 19202,81,"192",2,0,0,"0","" 19203,5,"245",2,0,0,"0","ITEM TO WL=SR LINK" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000147.JPG",,,,"","ChuckK/Q1000147" 19204,10,"",0,0,0,"1","" 19205,32,"",0,0,0,"10-","" 19206,36,"245",2,0,0,"0","" 19207,70,"192",9,0,0,"0",">OK" 19208,80,"196",2,0,0,"0",">REPORT I" 19209,82,"192",2,0,0,"0","" 19300,PROCR,"193",,,,"","ERROR REPORT OF D " 19301,NOTES,"",,,,"","" 19302,81,"193",2,0,0,"0","" 19303,10,"",0,0,0,"54","D" 19304,80,"199",2,0,0,"0","" 19305,82,"193",2,0,0,"0","" 19400,PROCR,"194",,,,"","ERROR REPORT OF M " 19401,NOTES,"",,,,"","" 19402,81,"194",2,0,0,"0","" 19403,10,"",0,0,0,"64","M" 19404,80,"199",2,0,0,"0","" 19405,82,"194",2,0,0,"0","" 19500,PROCR,"195",,,,"","ERROR REPORT OF R " 19501,NOTES,"",,,,"","" 19502,81,"195",2,0,0,"0","" 19503,10,"",0,0,0,"69","" 19504,80,"199",2,0,0,"0","" 19505,82,"195",2,0,0,"0","" 19600,PROCR,"196",,,,"","ERROR REPORT OF I " 19601,NOTES,"",,,,"","" 19602,81,"196",2,0,0,"0","" 19603,10,"",0,0,0,"59","I" 19604,80,"199",2,0,0,"0","" 19605,82,"196",2,0,0,"0","" 19700,PROCR,"197",,,,"","ERROR REPORT OF L " 19701,NOTES,"",,,,"","" 19702,81,"197",2,0,0,"0","" 19703,10,"",0,0,0,"63","L" 19704,80,"199",2,0,0,"0","" 19705,82,"197",2,0,0,"0","" 19800,PROCR,"198",,,,"","ERROR REPORT OF T " 19801,NOTES,"",,,,"","" 19802,81,"198",2,0,0,"0","" 19803,10,"",0,0,0,"73","T" 19804,80,"199",2,0,0,"0","" 19805,82,"198",2,0,0,"0","" 19900,PROCR,"199",,,,"","MAKE ERROR REPORT " 19901,NOTES,"",,,,"","" 19902,81,"199",2,0,0,"0","" 19903,32,"",0,0,0,"10-","" 19904,,"1",44,1,0,"0","TEST REPORT ALREADY MADE" 19905,30,"",0,0,0,"2-","WITH '????'" 19906,12,"",0,0,0,"5:5:5:5:","" 19907,70,"199",20,0,0,"0",">YES,DON'T CORRUPT IT" 19908,,"1",44,1,0,"0","" 19909,12,"",0,0,0,"725569"," 'SER'" 19910,71,"199",12,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000148.JPG",,,,"","ChuckK/Q1000148" 19911,5,"1",44,1,0,"0","LET OTHERS TAKE PRECEDENCE" 19912,10,"",0,0,0,"0","" 19913,32,"",0,0,0,"10","" 19914,124,"12",115,1,2,"0","" 19915,30,"",0,0,0,"0","/////" 19916,4,"1",44,1,0,"0","" 19917,10,"",0,0,0,"2","" 19918,1,"12",115,0,0,"0","" 19919,5,"12",115,0,0,"0","" 19920,82,"199",2,0,0,"0","" 20000,PROCR,"200",,,,"","REPLACE CODERS PROCR TO C/FWD VALUE " 20002,81,"200",2,0,0,"0","" 20003,3,"12",119,0,0,"0","" 20004,3,"12",118,0,0,"0","" 20005,12,"",0,0,0,"100","" 20006,73,"200",27,0,0,"0",">EX RANGE" 20007,12,"",0,0,0,"899","" 20008,72,"200",27,0,0,"0",">DON'T REPLACE" 20009,,"12",33,0,0,"0","" 20010,71,"200",21,0,0,"0",">EX PT" 20011,,"27",0,0,0,"0","" 20012,71,"200",21,0,0,"0",">ISSUE 6 O/P" 20013,,"27",4,0,0,"0","" 20014,71,"200",21,0,0,"0",">COMPILER CALLED TRANSLATOR" 20015,80,"201",2,0,0,"0",">REPLACE EX ISSUE 5" 20016,71,"200",19,0,0,"0",">OK" 20017,80,"195",2,0,0,"0",">REPORT R" 20018,76,"200",21,0,0,"0","" 20019,3,"12",119,0,0,"0","" 20020,5,"12",118,0,0,"0","" 20021,80,"1001",0,0,0,"0",">REPLACE EX ISSUE 6" 20022,71,"200",26,0,0,"0",">OK" 20023,,"319",40,1,0,"0"," '????R'" 20024,5,"1",44,1,0,"0","" 20025,82,"200",2,0,0,"0","" 20026,3,"12",119,0,0,"0","" 20027,82,"200",2,0,0,"0","" 20100,PROCR,"201",,,,"","REPLACE CODERS PROCR-ISSUE 5 O/P " 20102,81,"201",2,0,0,"0","(12/119)=DEC PROCR" 20103,,"27",2,0,0,"0","" 20104,70,"201",7,0,0,"0",">NOT PSEUDO-ISSUE 5 O/P" 20105,,"12",119,0,0,"0","REPLACEMENT=ITSELF" 20106,76,"201",23,0,0,"0","" 20107,,"12",119,0,0,"0","" 20108,12,"",0,0,0,"600","" 20109,72,"201",24,0,0,"0",">OUT OF RANGE" 20110,,"12",119,0,0,"0","" 20111,80,"245",2,0,0,"0",">TO BIN" 20112,33,"",0,0,0,"1-","" 20113,5,"245",2,0,0,"0","SR LINK" 20114,74,"201",19,0,0,"0",">EVEN" 20115,124,"245",2,0,1,"0","" 20116,,"53",50-,0,0,"0","" 20117,31,"",0,0,0,"10-","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000149.JPG",,,,"","TonyJ/Q1000149" 20118,76,"201",22,0,0,"0","" 20119,34,"319",20,0,0,"0","BITS 1 -10" 20120,124,"245",2,0,1,"0","" 20121,36,"53",50-,0,0,"0","" 20122,80,"244",2,0,0,"0","> TO DEC" 20123,82,"201",2,0,0,"0","" 20124,10,"",0,0,0,"0","" 20125,82,"201",2,0,0,"0","" 20200,PROCR,"202",,202,,"REPLACE CODERS PROCR-ISSUE 6 O/P","" 20202,81,"202",2,0,0,"0","(12/119-DEC PROCR)" 20203,,"12",119,0,0,"0","" 20204,80,"245",2,0,0,"0","> TO BIN" 20205,33,"",0,0,0,"1-","" 20206,5,"245",2,0,0,"0","" 20207,74,"202",12,0,0,"0","> EVEN" 20208,124,"245",2,0,1,"0","" 20209,,"93",50-,0,0,"0","" 20210,31,"",0,0,0,"10-","" 20211,76,"202",15,0,0,"0","" 20212,34,"319",20,0,0,"0","BITS 1 -10" 20213,124,"245",2,0,1,"0","" 20214,36,"93",50-,0,0,"0","" 20215,80,"244",2,0,0,"0","> TO DEC" 20216,82,"202",2,0,0,"0","" 20300,PROCR,"203",,203,,"ADJUST SR-ISSUE 5 O/P","" 20302,81,"203",2,0,0,"0","(A) = SERIAL TO BE ADJUSTED" 20303,90,"",0,0,1,"0","" 20304,C,"",0,0,0,"160","" 20305,5,"12",58,0,0,"0","" 20306,5,"12",46,0,0,"0","" 20307,35,"",0,0,0,"11100","" 20308,36,"12",58,0,0,"0","" 20309,5,"12",30,0,0,"0","STORE PROCR" 20310,36,"54",0,0,1,"0","" 20311,70,"203",17,0,0,"0","> END" 20312,2,"12",30,0,0,"0","" 20313,70,"203",20,0,0,"0","> PROCR MATCHES" 20314,72,"203",17,0,0,"0","> POINT PASSED ;END" 20315,10,"",0,0,0,"0","" 20316,94,"203",10,0,1,"2","" 20317,,"12",46,0,0,"0","TOTAL ADJUSTMENT" 20318,1,"12",58,0,0,"0","" 20319,82,"203",2,0,0,"0","" 20320,,"12",58,0,0,"0","SEARCH WITHIN PROCR" 20321,2,"54",0,0,1,"0","" 20322,73,"203",15,0,0,"0","> NOT FOR THIS POINT IN PROCR" 20323,,"54",1,0,1,"0","" 20324,4,"12",46,0,0,"0","FORM TOTAL ADJUSTMENT" 20325,76,"203",15,0,0,"0","" 20400,PROCR,"204",,204,,"ADJUST SR-ISSUE 6 O/P","" 20402,81,"204",2,0,0,"0","" 20403,90,"",0,0,1,"0","" 20404,C,"",0,0,0,"460","" 20405,10,"",0,0,0,"0","(12/58)= SERIAL TO BE ADJUSTED" 20406,5,"12",46,0,0,"0","CLEAR FOR TOTAL ADJUSTMENT" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000150.JPG",,,,"","TonyJ/Q1000150" 20407,35,"",0,0,0,"11100","" 20408,36,"12",58,0,0,"0","" 20409,5,"12",30,0,0,"0","PROCR" 20410,36,"97",0,0,1,"0","" 20411,70,"204",23,0,0,"0","> END" 20412,2,"12",30,0,0,"0","" 20413,73,"204",21,0,0,"0","> SEARCH" 20414,71,"204",23,0,0,"0","> END" 20415,,"97",0,0,1,"0","" 20416,2,"12",58,0,0,"0","" 20417,70,"204",19,0,0,"0","" 20418,72,"204",32,0,0,"0","> NEXT ADJUST POINT IN PROCR IS LATER" 20419,,"97",1,0,1,"0","" 20420,4,"12",46,0,0,"0","" 20421,10,"",0,0,0,"0","" 20422,94,"204",10,0,1,"2","" 20423,35,"",0,0,0,"11","" 20424,,"12",46,0,0,"0","TOTAL ADJUSTMENT" 20425,36,"12",58,0,0,"0","" 20426,3,"12",58,0,0,"0","NEW ITEM" 20427,12,"",0,0,0,"100","" 20428,73,"204",31,0,0,"0","" 20429,,"319",42,1,0,"0"," '????i'" 20430,5,"1",44,1,0,"0","REPORT WRITTEN ITEM >99" 20431,82,"204",2,0,0,"0","" 20432,1,"97",1,0,1,"0","QUANTITY (+ -)" 20433,70,"204",35,0,0,"0","> ADDRESS DELETED" 20434,72,"204",23,0,0,"0","> NEXT IS INSERTION" 20435,0,"1",7,0,0,"0","" 20436,12,"",0,0,0,"53000","" 20437,70,"204",47,0,0,"0","> C-LINE REPORT" 20438,,"12",54,0,0,"0","BIN ACTION" 20439,101,"",83,1,2,"0","" 20440,70,"204",23,0,0,"0","> 83 DON'T REPORT" 20441,101,"",1,1,2,"0","" 20442,70,"204",23,0,0,"0","> 84" 20443,101,"",1,1,2,"0","" 20444,70,"204",23,0,0,"0","> 85" 20445,101,"",1,1,2,"0","" 20446,70,"204",23,0,0,"0","> 86" 20447,,"319",44,1,0,"0"," '???? DELTA'" 20448,5,"1",44,1,0,"0","" 20449,76,"204",23,0,0,"0","" 20500,PROCR,"205",,205,,"DEAL WITH PROCR/TABLE/CONST","" 20501,NOTES,"",,RADIX,,"","" 20502,,"1",6,1,0,"0","" 20503,2,"319",6,1,0,"0","PROCR" 20504,71,"205",7,0,0,"0","NO" 20505,5,"12",90,1,0,"0","" 20506,76,"247",2,0,0,"0","FORM SERIAL" 20507,,"1",6,1,0,"0","" 20508,2,"319",2,1,0,"0","TABLE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000151.JPG",,,,"","ChuckK/Q1000151" 20509,71,"206",5,0,0,"0","NO" 20510,10,"",0,0,0,"100001","SET LONG/SHORT" 20511,5,"12",90,1,0,"0","COUNTER" 20512,34,"1",16,1,0,"0","TABLE TYPE" 20513,80,"321",2,0,0,"0",">RIGHT ALIGN" 20514,0,"12",88,2,0,"0","" 20515,73,"205",20,0,0,"0","TABLE TYPE IS" 20516,3,"12",59,0,0,"0","" 20517,70,"205",20,0,0,"0","" 20518,12,"",0,0,0,"5","" 20519,73,"206",2,0,0,"0","" 20520,83,"278",8,0,0,"5","TABLE TYPE IS OUT" 20521,76,"282",29,0,0,"0","" 20600,PROCR,"206",,,,"","" 20601,NOTES,"",RADIX,,,"","" 20602,84,"278",8,0,0,"0","SET TABLE CHECKING" 20603,C,"12",59,0,0,"0","SWITCH ACCORDING TO" 20604,76,"247",2,0,0,"0","FORM SERIAL NO." 20605,,"1",6,1,0,"0","" 20606,2,"319",4,1,0,"0","CONST" 20607,71,"206",25,0,0,"0",">NO" 20608,54,"94",60,0,0,"40","" 20609,34,"318",3,0,0,"0","BIT 17" 20610,36,"1",16,2,0,"0","" 20611,30,"",0,0,0,"4-","" 20612,3,"12",90,0,0,"0","LONG/SHORT IND" 20613,71,"206",15,0,0,"0",">LONG" 20614,10,"",0,0,0,"30","ALPHA ZERO" 20615,30,"",0,0,0,"3","" 20616,35,"",0,0,0,"11000","" 20617,37,"1",17,0,0,"0","" 20618,76,"206",21,0,0,"0","SET ALPHA 0 OR 1" 20619,10,"",0,0,0,"1","" 20620,3,"12",90,0,0,"0","" 20621,83,"263",2,0,0,"1","SAFETY VALUE" 20622,10,"",0,0,0,"4","SET CHECK SWITCH" 20623,84,"191",2,0,0,"0","" 20624,76,"247",2,0,0,"0",">O/P" 20625,0,"1",6,1,0,"0","" 20626,2,"319",28,1,0,"0"," 'VALUE'" 20627,71,"207",2,0,0,"0",">HENCE 'NOTES'" 20628,10,"",0,0,0,"5","" 20629,84,"191",2,0,0,"0","" 20630,5,"12",90,1,0,"0","CLEAR IND=SHORT" 20631,76,"247",2,0,0,"0","O/P" 20700,PROCR,"207",,,,"","DEAL WITH NOTES " 20701,NOTES,"",RADIX,,,"","" 20702,,"12",91,0,0,"0","" 20703,71,"207",6,0,0,"0","" 20704,10,"",0,0,0,"2","FOR INSTRUCTIONS" 20705,76,"207",7,0,0,"0","" 20706,10,"",0,0,0,"3","FOR TABLE ENTRIES" 20707,84,"191",2,0,0,"0","SET CHECK SWITCH" 20708,2,"12",38,0,0,"0","DIRECTIVE IND FOR THIS LINE" 20709,73,"247",2,0,0,"0",">IS'NOTES'(IE>0)" 20710,10,"",0,0,0,"2","" 20711,5,"12",9,0,0,"0","SET THIS LINE SERIAL" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000152.JPG",,,,"","ChuckK/Q1000152" 20712,76,"191",3,0,0,"0",">TO CHECK SWITCH" 20800,PROCR,"208",,,,"","REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI" 20801,NOTES,"",RADIX,,,"","" 20802,81,"208",2,0,0,"0","" 20803,34,"1",8,1,0,"0","REF" 20804,80,"321",2,0,0,"0",">RIGHT ALIGN" 20805,12,"",0,0,0,"67","" 20806,3,"274",2,0,0,"0","" 20807,71,"208",10,0,0,"0",">NOT'P'" 20808,0,"12",0,0,0,"0","" 20809,5,"12",88,2,0,"0","" 20810,0,"12",88,2,0,"0","" 20811,3,"12",4,0,0,"0","" 20812,12,"",0,0,0,"100","" 20813,73,"208",32,0,0,"0",">SECTION" 20814,12,"",0,0,0,"899","" 20815,72,"208",32,0,0,"0",">NOT REPLACEABLE (INCLUDES 999)" 20816,,"1",10,1,0,"0","" 20817,5,"294",2,0,0,"0"," 'PREVIOUS' ITEM" 20818,80,"209",2,0,0,"0",">CALC C/FWD ADDRESS" 20819,,"27",4,0,0,"0","" 20820,71,"208",28,0,0,"0",">COMPILER, DONT SET IND" 20821,,"12",88,2,0,";TEST IMPLICIT" 20822,2,"12",4,0,0,"0",";AMENDMENT" 20823,71,"208",27,0,0,"0",">CHANGE TO REF" 20824,,"1",10,1,0,"0","" 20825,2,"294",2,0,0,"0","" 20826,70,"208",28,0,0,"0",">NO CHANGE TO ITEM" 20827,80,"188",2,0,0,"0",">SET'PRINT PROCEDURE'" 20828,,"12",88,2,0,"0","" 20829,5,"12",4,0,0,"0","NEW REF" 20830,52,"1",8,0,0,"0","REPLACE REF WITH ZEROS" 20831,C,"306",2,0,0,"0","" 20832,82,"208",2,0,0,"0","" 20900,PROCR,"209",,,,"","REPLACE AND ADJUSR ADDRESS" 20901,NOTES,"",,,,"","" 20902,81,"209",2,0,0,"0","" 20903,,"92",30,0,0,"0","" 20904,71,"209",8,0,0,"0",">NOT INITIAL" 20905,10,"",0,0,0,"2","" 20906,4,"1",10,1,0,"0","" 20907,76,"209",50,0,0,"0","" 20908,,"27",0,0,0,"0","" 20909,34,"12",33,0,0,"0","" 20910,75,"209",50,0,0,"0",">ISSUE 6 I/P OR PT I/P" 20911,,"274",2,0,0,"0","" 20912,70,"209",50,0,0,"0",">REF WAS'P'" 20913,,"27",4,0,0,"0","" 20914,71,"209",50,0,0,"0",">COMPILER CALLED TRANSLATOR" 20915,,"12",88,2,0,"0","" 20916,5,"12",119,0,0,"0","" 20917,80,"201",2,0,0,"0",">REPLACE OLD PROCR" 20918,71,"209",38,0,0,"0",">MATCH FOUND;NOW ADJUST" 20919,,"12",88,2,0,"0","" 20920,30,"",0,0,0,"2",";TRY UNIQUE REFS" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000153.JPG",,,,"","ChuckK/Q1000153" 20921,1,"1",10,0,0,"0","" 20922,90,"",0,0,1,"0","" 20923,C,"",0,0,0,"50","" 20924,5,"245",2,0,0,"0","" 20925,,"55",1,0,1,"0","" 20926,70,"209",30,0,0,"0",">END,NO MATCH" 20927,2,"245",2,0,0,"0","" 20928,70,"209",32,0,0,"0","" 20929,94,"209",25,0,1,"2","" 20930,80,"195",2,0,0,"0",">REPORT R" 20931,76,"209",50,0,0,"0",">CARRY ON" 20932,,"55",0,0,1,"0","EQUIVALENT OF UNIQUE REF" 20933,32,"",0,0,0,"2-","" 20934,5,"12",88,2,0,"0","" 20935,32,"",0,0,0,"2","" 20936,5,"1",10,0,0,"0","" 20937,76,"209",50,0,0,"0",">NOW REPLACE/ADJUST(NEW STYLE)" 20938,3,"12",88,2,0,"0","" 20939,30,"",0,0,0,"2","" 20940,1,"1",10,0,0,"0","" 20941,5,"203",2,0,0,"0","WL" 20942,,"1",10,1,0,"0","" 20943,73,"209",50,0,0,"0",">DONT ADJUST NEG ITEM" 20944,,"203",2,0,0,"0","" 20945,80,"203",2,0,0,"0",">ADJUST(OLD STYLE)" 20946,32,"",0,0,0,"2-","" 20947,5,"12",88,2,0,"0","" 20948,32,"",0,0,0,"2","" 20949,5,"1",10,0,0,"0","" 20950,,"12",88,2,0,"0","REPLACE PROCR(NEW STYLE)" 20951,3,"12",118,0,0,"0","" 20952,5,"12",119,0,0,"0","" 20953,,"274",2,0,0,"0","" 20954,71,"209",57,0,0,"0",">REF WAS NOT'P'" 20955,,"12",88,2,0,"0","" 20956,76,"209",79,0,0,"0","" 20957,80,"202",2,0,0,"0",">REPLACE" 20958,71,"209",79,0,0,"0",">MATCH" 20959,,"12",88,2,0,"0","" 20960,30,"",0,0,0,"2","TRY UNIQUE REFS" 20961,1,"1",10,0,0,"0","(NEW STYLE)" 20962,90,"",0,0,1,"0","" 20963,C,"",0,0,0,"100","" 20964,5,"245",2,0,0,"0","" 20965,,"52",0,0,1,"0","" 20966,70,"209",70,0,0,"0",">END,NO MATCH" 20967,2,"245",2,0,0,"0","" 20968,70,"209",73,0,0,"0",">MATCH" 20969,94,"209",65,0,1,"2","" 20970,,"319",40,1,0,"0"," '????R'" 20971,5,"1",44,1,0,"0","" 20972,76,"209",88,0,0,"0",">END" 20973,,"52",1,0,1,"0","" 20974,32,"",0,0,0,"2-","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000154.JPG",,,,"","ChuckK/Q1000154" 20975,5,"12",88,2,0,"0","" 20976,32,"",0,0,0,"2","" 20977,5,"1",10,0,0,"0","" 20978,76,"209",88,0,0,"0",">NEW ADDRESS CALCULATED" 20979,3,"12",88,2,0,"0","" 20980,30,"",0,0,0,"2","NEW REF" 20981,1,"1",10,0,0,"0","" 20982,5,"12",58,0,0,"0","" 20983,,"1",10,1,0,"0","" 20984,73,"209",88,0,0,"0",">DONT ADJUST NEG ITEMS" 20985,80,"204",2,0,0,"0",">ADJUST SR(NEW STYLE)" 20986,,"12",58,0,0,"0","NEW ITEM" 20987,5,"1",10,0,0,"0","" 20988,82,"209",2,0,0,"0","" 21000,PROCR,"210",,,,"","BEGIN CHECKS ON ACTION OR C-LINE" 21001,NOTES,"",RADIX,,,"","" 21002,80,"208",2,0,0,"0",">DEAL WITH ADDRESS OF INSTRUCTION" 21003,,"12",4,0,0,"0","NEW REF" 21004,12,"",0,0,0,"100","" 21005,73,"210",10,0,0,"0",">SECTION" 21006,12,"",0,0,0,"899","" 21007,72,"210",10,0,0,"0",">REF=999+" 21008,,"12",118,0,0,"0","PEVIOUS PROCR" 21009,5,"1",22,0,0,"0","" 21010,,"1",7,0,0,"0","" 21011,12,"",0,0,0,"53000"," 'C '" 21012,71,"210",28,0,0,"0",">NOT C-LINE" 21013,,"12",60,1,0,"0","" 21014,70,"211",2,0,0,"0",">IGNORE;C-LINE NOT POSSIBLE" 21015,124,"12",55,1,2,"0","" 21016,100,"",1,0,2,"0","C-LINE CHECK CONSTANT TO B" 21017,0,"317",88,0,0,"0","A 55 ACTION WILL TERMINATE" 21018,5,"317",25,0,0,"0","AFTER 2 C-LINES" 21019,62,"",0,0,0,"0","" 21020,0,"12",54,0,0,"0","ACION" 21021,12,"",0,0,0,"2e"," 43" 21022,70,"210",25,0,0,"0",">YES" 21023,11,"",0,0,0,"1","" 21024,71,"210",62,0,0,"0",">NOT" 21025,10,"",0,0,0,"1","" 21026,4,"12",55,0,0,"0","(TO GET NEXT C-LINE CHECK CONST)" 21027,76,"210",62,0,0,"0","" 21028,,"12",61,0,0,"0","" 21029,70,"210",31,0,0,"0","" 21030,80,"296",2,0,0,"0","" 21031,34,"1",6,1,0,"0","" 21032,80,"321",2,0,0,"0","RIGHT ALIGN ACTION" 21033,0,"12",88,2,0,"0","" 21034,73,"211",2,0,0,"0",">NEGATIVE ACTION" 21035,12,"",0,0,0,"159","REJECT ACTION>158" 21036,72,"211",2,0,0,"0","" 21037,0,"12",88,2,0,"0","" 21038,80,"245",2,0,0,"0",">BIN" 21039,3,"12",54,0,0,"0","BINARY ACTION" 21040,12,"",0,0,0,"41"," 65" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000156.JPG",,,,"","TonyJ/Q1000156" 21041,72,"210",54,0,0,"0","> SECOND HALF OF TABLE" 21042,0,"12",54,0,0,"0","" 21043,30,"",0,0,0,"3","" 21044,101,"316",2,0,0,"0","TLU" 21045,32,"",0,0,0,"10","ABS BIN ADDRESS > A" 21046,3,"12",55,0,0,"0","LOCN TO SELECT C-LINE CHECK CONSTANT" 21047,0,"12",54,0,0,"0","BIN ACTION" 21048,12,"",0,0,0,"37"," = 55" 21049,71,"210",60,0,0,"0","> NOT" 21050,0,"1",16,1,0,"0","LITERAL" 21051,71,"210",58,0,0,"0","> SET SECOND C-LINE IMPOSSIBLE" 21052,0,"317",86,0,0,"0","" 21053,76,"210",59,0,0,"0","> SET SECOND C-LINE ESSENTIAL" 21054,0,"12",54,0,0,"0","" 21055,30,"",0,0,0,"3","" 21056,101,"317",34,0,0,"0","TLU FOR ACTION > 64" 21057,76,"210",45,0,0,"0","" 21058,0,"317",88,0,0,"0","" 21059,5,"317",25,0,0,"0","CHECK CONST FOR ACTION 55 C-LINE" 21060,124,"12",55,1,2,"0","" 21061,100,"",0,0,2,"0","CHECK CONST" 21062,10,"",0,0,0,"0","" 21063,36,"318",4,0,0,"0","Q1-3" 21064,71,"211",6,0,0,"0","> ACTION EXISTS" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000160.JPG",,,,"","TonyJ/Q1000160" 21100,PROCR,"211",,211,,"","" 21101,NOTES,"",,RADIX,,"","" 21102,10,"",0,0,0,"5100000000","" 21103,5,"1",44,1,0,"0","NONEXISTENT ACTION = ERROR OF A" 21104,80,"295",2,0,0,"0","" 21105,76,"247",2,0,0,"0","" 21106,30,"",0,0,0,"2-","" 21107,84,"227",2,0,0,"0","LITERAL' SWITCH BY Q3" 21108,36,"318",5,0,0,"0","BITS 5-7" 21109,30,"",0,0,0,"1-","" 21110,84,"217",2,0,0,"0"," 'REF/ITEM'" 21111,36,"318",6,0,0,"0","BITS 1-3" 21112,84,"214",2,0,0,"0"," 'DISC/MOD' SWITCH BY Q1" 21113,36,"318",7,0,0,"0","BIT 4" 21114,5,"12",61,0,0,"0","IND THAT C-LINE ESSENTIAL" 21115,36,"318",8,0,0,"0","BIT 8" 21116,5,"12",60,0,0,"0","IND THAT C-LINE IS POSSIBLE" 21117,5,"12",59,0,0,"0","CLEAR THIS" 21200,PROCR,"212",,212,,"0","" 21201,NOTES,"",,RADIX,,"0","" 21202,60,"",0,0,0,"0","" 21203,,"1",10,0,0,"0","MODULUS OF ITEM" 21204,12,"",0,0,0,"8192","" 21205,72,"212",8,0,0,"0","> REPORT" 21206,,"1",11,0,0,"0","" 21207,70,"212",9,0,0,"0","> OK" 21208,80,"196",2,0,0,"0","> REPORT 1" 21209,0,"12",54,0,0,"0","BIN ACTION" 21210,12,"",0,0,0,"64","100" 21211,73,"212",26,0,0,"0","> NOT MACHINE CODE" 21212,0,"12",54,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000161.JPG",,,,"","RayS/Q1000161" 21213,12,"",0,0,0,"84","132" 21214,72,"212",26,0,0,"0","gNOT MACHINE CODE" 21215,0,"1",12,1,0,"0","DISC" 21216,70,"212",20,0,0,"0","gOK" 21217,12,"",0,0,0,"1","" 21218,70,"212",20,0,0,"0","gOK" 21219,80,"193",2,0,0,"0","gREPORT D" 21220,0,"1",14,1,0,"0","MOD" 21221,70,"217",2,0,0,"0","gOK" 21222,12,"",0,0,0,"4","" 21223,73,"217",2,0,0,"0","gOK" 21224,80,"194",2,0,0,"0","gREPORT M" 21225,76,"217",2,0,0,"0","gTO CHECK R,I,L" 21226,0,"1",12,1,0,"0","D" 21227,70,"213",7,0,0,"0","gOK" 21228,0,"1",10,0,0,"0","" 21229,80,"192",2,0,0,"0","gCHECK I" 21300,PROCR,"213",,,,"","TEST D AND M ARE IN RANGE" 21301,NOTES,"",RADIX,,,"","ACCEPTABLE" 21302,,"1",12,1,0,"0","" 21303,73,"213",6,0,0,"0","" 21304,12,"",0,0,0,"3","" 21305,73,"213",7,0,0,"0","" 21306,80,"193",2,0,0,"0","gREPORT D" 21307,,"1",14,1,0,"0","MOD DIGITS" 21308,70,"214",2,0,0,"0","gOK" 21309,73,"213",18,0,0,"0","" 21310,12,"",0,0,0,"21","" 21311,72,"213",18,0,0,"0","gWRONG" 21312,0,"1",14,0,0,"0","" 21313,12,"",0,0,0,"4","" 21314,72,"214",2,0,0,"0","" 21315,10,"",0,0,0,"1","IF MR 1-3" 21316,5,"92",4,0,0,"0","SETTING 'REQUIRED' IND" 21317,76,"214",2,0,0,"0","" 21318,80,"194",2,0,0,"0","gREPORT M" 21319,76,"211",4,0,0,"0","gIGNORE" 21400,PROCR,"214",,,,"","" 21401,NOTES,"",RADIX,,,"","" 21402,85,"214",2,0,0,"0","" 21403,C,"217",2,0,0,"0","gD,M ANY VALUE" 21404,C,"215",2,0,0,"0","gD,M MUST BOTH BE ZERO" 21405,C,"215",7,0,0,"0","gD ZERO, M ANY" 21406,C,"215",3,0,0,"0","gM ZERO, D ANY" 21407,C,"215",9,0,0,"0","gD ZERO, M NONZERO" 21408,C,"215",10,0,0,"0","gM NONZERO, D ANY" 21409,C,"214",10,0,0,"0","gD,M ZERO, R NON-ZERO IF L=0" 21410,,"1",16,0,0,"0","L" 21411,70,"214",16,0,0,"0","gEXPECT R" 21412,0,"1",8,2,0,"0","REF" 21413,70,"215",2,0,0,"0","gOK" 21414,80,"195",2,0,0,"0","gREPORT R" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000166.JPG",,,,"","RayS/Q1000166" 21415,76,"215",2,0,0,"0","" 21416,,"1",8,2,0,"0","" 21417,71,"215",2,0,0,"0","gOK" 21418,80,"197",2,0,0,"0","gREPORT L" 21500,PROCR,"215",,,,"","CHECK D AND M" 21501,NOTES,"",RADIX,,,"","" 21502,80,"216",2,0,0,"0","" 21503,,"1",14,1,0,"0","" 21504,70,"217",2,0,0,"0","" 21505,80,"194",2,0,0,"0","gREPORT M" 21506,76,"217",2,0,0,"0","" 21507,80,"216",2,0,0,"0","" 21508,76,"217",2,0,0,"0","gCHECK D=0" 21509,80,"216",2,0,0,"0","" 21510,,"1",14,1,0,"0","gOK" 21511,71,"217",2,0,0,"0","gIGNORE" 21512,80,"295",2,0,0,"0","gREPORT M" 21513,76,"215",5,0,0,"0","" 21600,PROCR,"216",,,,"","TO CHECK REFERENCE AND ITEM" 21601,NOTES,"",RADIX,,,"","" 21602,81,"216",2,0,0,"0","" 21603,,"1",12,1,0,"0","" 21604,70,"216",6,0,0,"0","" 21605,80,"193",2,0,0,"0","gREPORT D" 21606,82,"216",2,0,0,"0","" 21700,PROCR,"217",,,,"","" 21701,NOTES,"",RADIX,,,"","" 21702,85,"217",2,0,0,"0","" 21703,C,"218",2,0,0,"0","gR ZERO, PROCR, SECTION OR '1000+'" 21704,C,"219",2,0,0,"0","gR, I BOTH ZERO" 21705,C,"220",2,0,0,"0","MAINLINE OF FILE CONTROL" 21706,C,"224",2,0,0,"0","R=100-998 OR 1000+, I EVEN" 21707,C,"225",2,0,0,"0","gR IS A TRANSIT AREA" 21708,C,"226",2,0,0,"0","gR IN RANGE 100-998" 21709,C,"218",58,0,0,"0","gR IS PROCR OR SECTION, BUT NOT TX AREA" 21800,PROCR,"218",,,,"","SWITCH = 1" 21801,NOTES,"",RADIX,,,"","" 21802,,"12",4,0,0,"0","" 21803,73,"218",36,0,0,"0","gIGNORE R" 21804,71,"218",20,0,0,"0","gOK" 21805,,"1",14,0,0,"0","MOD DIGITS" 21806,71,"218",49,0,0,"0","gOK EXCEPT FOR 93,97" 21807,0,"1",10,1,0,"0","ITEM" 21808,73,"218",13,0,0,"0","gACCEPT ONLY IF ITEM" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000167.JPG",,,,"","ChuckK/Q1000167" 21809,71,"218",55,0,0,"0",">OK" 21810,0,"12",54,0,0,"0","ACTION" 21811,70,"218",36,0,0,"0",">IGNORE R" 21812,76,"218",55,0,0,"0",">OJ" 21813,10,"",0,0,0,"0","" 21814,35,"",0,0,0,"1","" 21815,36,"1",10,0,0,"0","" 21816,12,"",0,0,0,"+","" 21817,70,"218",55,0,0,"0",">OK(ITEM*)" 21818,80,"295",2,0,0,"0",">IGNORE" 21819,76,"219",6,0,0,"0",">REPORT I" 21820,12,"",0,0,0,"100","" 21821,73,"218",31,0,0,"0",">SECTION" 21822,12,"",0,0,0,"900","" 21823,73,"218",55,0,0,"0",">OK" 21824,70,"218",36,0,0,"0",">IGNORE IF=1000" 21825,12,"",0,0,0,"21","" 21826,72,"218",36,0,0,"0",">IGNORE IF>1020" 21827,0,"12",54,0,0,"0","BIN ACTION" 21828,12,"",0,0,0,"50"," 80" 21829,70,"218",36,0,0,"0",">IGNORE" 21830,76,"218",55,0,0,"0",">OK" 21831,,"12",4,0,0,"0","DECSECTION" 21832,80,"183",2,0,0,"0",">DECODE SECTION NUMBER" 21833,34,"12",40,0,0,"0","" 21834,36,"12",72,0,3,"0","" 21835,71,"218",55,0,0,"0",">SECTION EXISTS" 21836,80,"295",2,0,0,"0",">IGNORE" 21837,80,"195",2,0,0,"0",">REPORT R" 21838,86,"217",2,0,0,"0","" 21839,12,"",0,0,0,"5","" 21840,70,"225",31,0,0,"0",">42 OR 43 ACTION.IGNORE PREVIOUS LINE" 21841,,"12",54,0,0,"0","" 21842,101,"",40,1,2,"0","40" 21843,70,"225",31,0,0,"0",">IGNORE PREVIOUS LINE" 21844,101,"",93,1,2,"0","133" 21845,70,"225",31,0,0,"0",">IGNORE PREVIOUS LINE" 21846,101,"",1,1,2,"0","134" 21847,70,"225",31,0,0,"0",">IGNORE PREVIOUS LINE" 21848,76,"227",2,0,0,"0","" 21849,,"12",54,0,0,"0","" 21850,101,"",93,1,2,"0","93?" 21851,70,"218",36,0,0,"0",">REPORT" 21852,,"12",54,0,0,"0","" 21853,101,"",97,1,2,"0","97?" 21854,70,"218",36,0,0,"0",">REPORT" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000168.JPG",,,,"","ChuckK/Q1000168" 21855,,"12",59,0,0,"0","" 21856,70,"227",2,0,0,"0",">GO TO CHECK L" 21857,76,"225",5,0,0,"0",">CHECK SECTION IS TX AREA" 21858,80,"277",2,0,0,"0",">CHECK REF" 21859,76,"227",2,0,0,"0",">CHECK LITERAL" 21900,PROCR,"219",,,,"TEST R AND I ARE BOTH ZERO","" 21901,NOTES,"",RADIX,,," SWITCH=2","" 21902,,"1",8,2,0,"0","TEST REF IS ZERO" 21903,71,"218",37,0,0,"0","" 21904,,"1",10,1,0,"0","" 21905,70,"227",2,0,0,"0","" 21906,80,"196",2,0,0,"0",">REPORT I" 21907,76,"227",2,0,0,"0",">NO CHECK LITERAL" 22000,PROCR,"220",,,,"CHECK FILES","" 22001,NOTES,"",RADIX,,,"D SWITCH=3","" 22002,,"12",54,0,0,"0","ACTION" 22003,101,"",40,1,2,"0","" 22004,71,"220",12,0,0,"0",">NOT ACTION 40" 22005,,"12",60,1,0,"0","" 22006,70,"220",12,0,0,"0",">NOT C-LINE" 22007,,"1",7,0,0,"0","" 22008,12,"",0,0,0,"53000"," 'C '" 22009,71,"220",12,0,0,"0",">NOT THE C-LINE" 22010,,"1",12,1,0,"0","C-LINE DISC" 22011,71,"218",2,0,0,"0",">CHECK REF IS SEC/PROCR" 22012,,"91",1,0,0,"0","" 22013,30,"",0,0,0,"5","" 22014,91,"",0,0,5,"0","" 22015,,"317",94,0,0,"0","SET 2ND C-LINE POSSIBLE" 22016,5,"317",14,0,0,"0","" 22017,,"91",5,0,5,"0","" 22018,33,"",0,0,0,"6-","" 22019,70,"220",30,0,0,"0",">NO FILES" 22020,11,"",0,0,0,"4000","BIT 15" 22021,30,"",0,0,0,"1","" 22022,2,"1",9,0,0,"0","" 22023,70,"220",39,0,0,"0",">MATCH FOUND" 22024,94,"220",17,0,5,"2","" 22025,,"1",7,0,0,"0","" 22026,12,"",0,0,0,"53000"," 'C '" 22027,71,"220",30,0,0,"0",">" 22028,80,"295",2,0,0,"0","SET C-LINE IMPOSS" 22029,80,"296",2,0,0,"0","IGNORE PREVIOUS LINE" 22030,80,"195",2,0,0,"0",">REPORT R" 22031,80,"295",2,0,0,"0",">IGNORE" 22032,,"12",54,0,0,"0","" 22033,101,"",42,1,2,"0","" 22034,70,"220",37,0,0,"0","" 22035,101,"",1,1,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000169.JPG",,,,"","ChuckK/Q1000169" 22036,71,"235",2,0,0,"0",">" 22037,5,"12",60,1,0,"0","42 OR 43" 22038,76,"235",2,0,0,"0",">" 22039,62,"",0,0,0,"0","" 22040,,"12",54,0,0,"0","" 22041,101,"",132,1,2,"0","" 22042,73,"220",47,0,0,"0",">HENCE GROUP 4" 22043,101,"",3,1,2,"0","" 22044,73,"222",2,0,0,"0",">ACTIONS 132-134" 22045,76,"227",2,0,0,"0",">ACTION 156" 22046,70,"227",2,0,0,"0",">ACTION 156;CHECK L" 22047,10,"",0,0,0,"0","CLEAR A" 22048,33,"",0,0,0,"6","ROUTE TYPE" 22049,12,"",0,0,0,"5","" 22050,73,"221",20,0,0,"0",">RT1-4" 22051,70,"221",13,0,0,"0",">RT5" 22052,12,"",0,0,0,"1","" 22053,70,"221",2,0,0,"0",">RT6" 22054,12,"",0,0,0,"3","" 22055,73,"221",24,0,0,"0",">RT7,8" 22056,70,"221",20,0,0,"0",">RT9" 22057,12,"",0,0,0,"1","" 22058,70,"221",2,0,0,"0",">RT10" 22059,12,"",0,0,0,"1","" 22060,70,"221",24,0,0,"0",">RT11" 22061,12,"",0,0,0,"1","" 22062,70,"221",2,0,0,"0",">RT12" 22063,12,"",0,0,0,"1","" 22064,70,"221",65,0,0,"0",">RT13" 22065,12,"",0,0,0,"2","" 22066,70,"221",2,0,0,"0",">RT15" 22067,12,"",0,0,0,"1","" 22068,70,"221",20,0,0,"0",">RT16" 22069,12,"",0,0,0,"2","" 22070,70,"221",65,0,0,"0",">RT 18" 22071,12,"",0,0,0,"1","" 22072,70,"221",20,0,0,"0",">RT19" 22073,12,"",0,0,0,"1","" 22074,70,"220",82,0,0,"0",">RT 20" 22075,12,"",0,0,0,"2","" 22076,70,"221",55,0,0,"0",">22" 22077,12,"",0,0,0,"2","" 22078,70,"221",9,0,0,"0",">RT24" 22079,12,"",0,0,0,"1","" 22080,71,"221",60,0,0,"0",">NOT 25" 22081,76,"221",20,0,0,"0",">LIKE1" 22082,,"12",54,0,0,"0","ACTION" 22083,101,"",40,1,2,"0","" 22084,70,"222",6,0,0,"0",">ACTION 40" 22085,12,"",0,0,0,"1","" 22086,70,"221",60,0,0,"0",">REJECT" 22100,PROCR,"221",,,,"CHECK FILES (CONTD)","" 22102,,"12",54,0,0,"0","ACTION" 22103,101,"",42,1,2,"0","" 22104,70,"235",2,0,0,"0",">OK" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000170.JPG",,,,"","RayS/Q1000170" 22105,,"12",54,0,0,"0","RT 1-6+9-10 " 22106,101,"",42,1,2,"0","" 22107,73,"235",2,0,0,"0","gOK" 22108,76,"221",60,0,0,"0","gREJECT" 22109,,"12",54,0,0,"0","ACTION" 22110,101,"",42,1,2,"0","" 22111,70,"235",2,0,0,"0","gOK" 22112,76,"221",60,0,0,"0","gREJECT" 22113,,"12",54,0,0,"0","RT 5 " 22114,101,"",44,1,2,"0","" 22115,71,"221",2,0,0,"0","" 22116,,"1",16,0,0,"0","L" 22117,12,"",0,0,0,"3","" 22118,70,"235",2,0,0,"0","gOK" 22119,76,"228",4,0,0,"0","gIGNORE L" 22120,,"12",54,0,0,"0","RT 1-4+9 " 22121,101,"",43,1,2,"0","" 22122,70,"235",2,0,0,"0","gOK" 22123,76,"221",5,0,0,"0","" 22124,0,"12",54,0,0,"0","BIN ACTION" 22125,12,"",0,0,0,"30","48" 22126,70,"221",50,0,0,"0","gACTION 48" 22127,,"12",54,0,0,"0","" 22128,12,"",0,0,0,"29","41" 22129,70,"221",50,0,0,"0","gACTION 41 FOR M/T" 22130,,"12",54,0,0,"0","" 22131,12,"",0,0,0,"2+","" 22132,70,"221",45,0,0,"0","g44" 22133,12,"",0,0,0,"2","" 22134,70,"221",37,0,0,"0","g46" 22135,12,"",0,0,0,"1","" 22136,71,"227",2,0,0,"0","gNOT 47, CHECK L" 22137,,"1",10,1,0,"0","" 22138,73,"221",43,0,0,"0","gREPORT" 22139,35,"",0,0,0,"0","" 22140,33,"",0,0,0,"1-","" 22141,10,"",0,0,0,"0","" 22142,74,"227",2,0,0,"0","gEVEN, OK" 22143,80,"196",2,0,0,"0","REPORT I" 22144,76,"227",2,0,0,"0","" 22145,,"1",16,1,0,"0","L" 22146,12,"",0,0,0,"2","" 22147,70,"235",2,0,0,"0","gOK" 22148,12,"",0,0,0,"1","" 22149,76,"228",2,0,0,"0","" 22150,,"1",16,1,0,"0","LITERAL" 22151,73,"228",5,0,0,"0","gREPORT L" 22152,12,"",0,0,0,"4","" 22153,72,"228",5,0,0,"0","gREPORT L" 22154,76,"235",2,0,0,"0","gOK" 22155,,"317",87,0,0,"0","CONST FOR 2ND C-LINE" 22156,5,"317",14,0,0,"0","" 22157,,"12",54,0,0,"0","ACTION" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000171.JPG",,,,"","RayS/Q1000171" 22158,101,"",41,1,2,"0","" 22159,71,"221",20,0,0,"0","gOK, NOT 41" 22160,10,"",0,0,0,"5100000000","A" 22161,5,"1",44,1,0,"0","" 22162,80,"295",2,0,0,"0","gIGNORE THIS INSTRUCTION" 22163,5,"2",60,1,0,"0","SET C LINE IMPOSSIBLE" 22164,76,"220",32,0,0,"0","gCHECK FOR C-LINE" 22165,,"12",54,0,0,"0","" 22166,101,"",44,1,2,"0","" 22167,73,"235",2,0,0,"0","gOK" 22168,76,"221",60,0,0,"0","gREJECT" 22200,PROCR,"222",,,,"","ACTIONS 132-134" 22202,10,"",0,0,0,"0","CLEAR A" 22203,33,"",0,0,0,"6","RT" 22204,12,"",0,0,0,"11","" 22205,71,"221",60,0,0,"0","gWRONG FILE" 22206,,"1",10,1,0,"0","ITEM" 22207,73,"218",18,0,0,"0","gIGNORE I" 22208,70,"218",18,0,0,"0","gIGNORE I" 22209,12,"",0,0,0,"100","" 22210,72,"218",18,0,0,"0","gIGNORE I" 22211,,"1",10,1,0,"0","" 22212,80,"183",2,0,0,"0","gDECODE SECTION NO" 22213,34,"12",40,0,0,"0","COLLATION BIT" 22214,33,"",0,0,0,"10","" 22215,36,"12",72,0,3,"0","" 22216,70,"218",18,0,0,"0","gNOT A TX AREA, IGNORE I" 22217,76,"225",17,0,0,"0","gX AREA CHECK, & CHECK L" 22300,PROCR,"223",,,,"","ACTIONS 132-134" 22400,PROCR,"224",,,,"","TEST R IS A PROCEDURE NUMBER" 22401,NOTES,"",RADIX,,,"","SWITCH=4" 22402,,"12",4,0,0,"0","" 22403,71,"224",6,0,0,"0","gNOT ABSOLUTE ADDRESS" 22404,0,"1",14,0,0,"0","MOD DIGITS" 22405,71,"224",14,0,0,"0","gOK" 22406,12,"",0,0,0,"100","" 22407,73,"218",36,0,0,"0","gIGNORE R" 22408,12,"",0,0,0,"899","" 22409,73,"224",14,0,0,"0","gOK" 22410,12,"",0,0,0,"2","" 22411,73,"218",36,0,0,"0","gIGNORE R" 22412,12,"",0,0,0,"20","" 22413,72,"218",36,0,0,"0","gIGNORE R" 22414,,"12",54,0,0,"0","" 22415,101,"",70,1,2,"0","" 22416,73,"224",19,0,0,"0","gCHECK I" 22417,101,"",10,1,2,"0","" 22418,73,"227",2,0,0,"0","gACTION 70-79, DON'T CHECK I" 22419,,"1",10,0,0,"0","" 22420,80,"192",2,0,0,"0","gCHECK I EVEN" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000172.JPG",,,,"","KenK/Q1000172" 22421,76,"227",2,0,0,"0","gCHECK LITERAL " 22500,PROCR,"225",,,,"","" 22501,NOTES,"",RADIX,,,"","" 22502,10,"",0,0,0,"1","SWITCHES " 22503,5,"12",59,0,0,"0","" 22504,76,"218",2,0,0,"0","gCHECK R IS A SECTION " 22505,10,"",0,0,0,"0","" 22506,34,"12",40,0,0,"0","" 22507,33,"",0,0,0,"10","" 22508,36,"12",72,0,3,"0","COLLATE TX AREA IND " 22509,70,"225",31,0,0,"0","gNOT, IGNORE PREVIOUS INSTRUCTION " 22510,10,"",0,0,0,"0","" 22511,34,"320",44,0,0,"0","BITS 1-6 " 22512,36,"91",5,0,5,"0","" 22513,12,"",0,0,0,"3","" 22514,70,"227",2,0,0,"0","gRT 3 CARD O/P " 22515,12,"",0,0,0,"1","" 22516,70,"227",2,0,0,"0","gRT 4;GP PRINT " 22517,96,"",0,0,3,"0","" 22518,35,"",0,0,0,"0","CLEAR B " 22519,33,"",0,0,0,"1-","HALVE THE MODIFIER " 22520,92,"",0,0,3,"0","SET NEW MODIFIER, CLEAR A " 22521,74,"225",26,0,0,"0","g NO REMAINDER " 22522,34,"12",40,0,0,"0","" 22523,,"12",40,0,0,"0","" 22524,33,"",0,0,0,"10","FORM 5-LOCN MATRIX FOR ALL TX AREAS " 22525,76,"225",28,0,0,"0","NOT USED IN GPOP ORDERS " 22526,,"12",40,0,0,"0","" 22527,34,"12",40,0,0,"0","" 22528,37,"12",100,0,3,"0","SET BIT " 22529,60,"",0,0,0,"0","AREA PATTERN " 22530,76,"227",2,0,0,"0","" 22531,80,"296",2,0,0,"0","IGNORE PREVIOUS;INSTRUCTION " 22532,76,"220",30,0,0,"0","" 22600,PROCR,"226",,,,"","TEST REFERENCE IS GREATER THAN 99 " 22601,NOTES,"",RADIX,,,"","SWITCH=6 " 22602,,"12",4,0,0,"0","" 22603,12,"",0,0,0,"100","" 22604,73,"218",36,0,0,"0","" 22605,12,"",0,0,0,"900","" 22606,72,"218",36,0,0,"0","IGNORE R " 22700,PROCR,"227",,,,"","SWITCH FOR LITERALS " 22701,NOTES,"",RADIX,,,"","CHECK L IS NOT > 10 QUARTETS " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000173.JPG",,,,"","KenK/Q1000173" 22702,0,"1",18,1,0,"0","" 22703,71,"228",4,0,0,"0","gIGNORE L " 22704,34,"1",16,1,0,"0","" 22705,32,"",0,0,0,"10","" 22706,5,"1",18,1,0,"0","STORE MODULUS L " 22707,85,"227",2,0,0,"0","" 22708,C,"235",2,0,0,"0","gNO FURTHER CHECK " 22709,C,"233",2,0,0,"0","gMOD L<8192 " 22710,C,"229",2,0,0,"0","gL POSITIVE/ZERO " 22711,C,"230",2,0,0,"0","MOD<32 " 22712,C,"231",2,0,0,"0","L HAS DIGITS 0 OR 1 " 22713,C,"232",2,0,0,"0","1-<L<16 " 22714,C,"233",12,0,0,"0","1-<L<8182 " 22715,C,"234",2,0,0,"0","-1<L<5 QTTS " 22716,C,"234",5,0,0,"0","MOD L<4096 " 22717,C,"234",17,0,0,"0","gL NONZERO " 22718,C,"234",20,0,0,"0","gL ZERO " 22719,C,"234",22,0,0,"0","gL<100 " 22720,C,"234",32,0,0,"0","gIF L=0,MUST HAVE C-LINE " 22800,PROCR,"228",,,,"","MAKE REPORTS ON L " 22801,NOTES,"",RADIX,,,"","SWITCH=2 " 22802,70,"235",2,0,0,"0","" 22803,76,"228",5,0,0,"0","" 22804,80,"295",2,0,0,"0","gIGNORE " 22805,80,"197",2,0,0,"0","gREPORT L " 22806,76,"235",2,0,0,"0","gEND OF CHECKS " 22900,PROCR,"229",,,,"","TEST L IS POSITIVE OR ZERO " 22901,NOTES,"",RADIX,,,"","SWITCH=3 " 22902,,"1",16,1,0,"0","(ACTIONS 11,12) " 22903,72,"235",2,0,0,"0","gOK " 22904,76,"228",4,0,0,"0","gIGNORE L " 23000,PROCR,"230",,,,"","L=1-31 INCLUSIVE " 23001,NOTES,"",RADIX,,,"","SWITCH=4 " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000183.JPG",,,,"","KenK/Q1000183" 0query,164,"",,,,""," believe item=18 by comparison to other procrs annotated MOD L" 23002,0,"1",18,1,0,"0","MOD L;(ACTIONS 30-33)" 23003,70,"228",5,0,0,"0","gREPORT L " 23004,12,"",0,0,0,"32","" 23005,72,"228",5,0,0,"0","gREPORT L " 23006,76,"235",2,0,0,"0","" 23100,PROCR,"231",,,,"","TEST DIGITS OF L ARE 1 OR 0 " 23101,NOTES,"",RADIX,,,"","SWITCH=5 " 23102,90,"",0,0,3,"0","ACTION 35, CERTAIN GROUP 4 " 23103,C,"",0,0,0,"10","" 23104,10,"",0,0,0,"0","" 23105,34,"1",16,1,0,"0","" 23106,32,"",0,0,0,"1","" 23107,70,"231",10,0,0,"0","" 23108,12,"",0,0,0,"1","" 23109,71,"228",5,0,0,"0","" 23110,94,"231",6,0,3,"1","" 23111,76,"235",2,0,0,"0","gOK " 23200,PROCR,"232",,,,"","TEST L IS IN RANGE 1-15 " 23201,NOTES,"",RADIX,,,"","SWITCH=6 " 23202,,"1",16,1,0,"0","ACTION 38 " 23203,73,"228",4,0,0,"0","gREPORT L IGNORE " 23204,12,"",0,0,0,"16","" 23205,72,"228",5,0,0,"0","" 23206,76,"235",2,0,0,"0","gOK " 23300,PROCR,"233",,,,"","L IS LESS THAN 8192 – BULK COPY " 23301,NOTES,"",RADIX,,,"","SWITCH=7 " 23302,,"12",61,0,0,"0","C-LINE IND;(ACTION 90) " 23303,71,"233",7,0,0,"0","gNOT C-LINE " 23304,,"12",46,0,0,"0","FIRST LINE LITERAL " 23305,34,"1",18,0,0,"0","C-LINE LITERAL " 23306,74,"228",5,0,0,"0","gREPORT L IF BOTH ZERO " 23307,,"1",18,1,0,"0","" 23308,3,"12",46,0,0,"0","" 23309,12,"",0,0,0,"8192","" 23310,72,"228",5,0,0,"0","gREPORT L " 23311,76,"235",2,0,0,"0","gOK " 23312,,"1",16,1,0,"0","ACTION 55 " 23313,73,"228",4,0,0,"0","gIGNORE L " 23314,,"1",12,0,0,"0","DISC " 23315,70,"233",17,0,0,"0","gSHORT " 23316,10,"",0,0,0,"4095","" 23317,11,"",0,0,0,"4095","" 23318,2,"1",16,1,0,"0","" 23319,73,"228",4,0,0,"0","gIGNORE L " 23320,76,"235",2,0,0,"0","gOK " 23400,PROCR,"234",,,,"","" 23401,NOTES,"",RADIX,,,"","" 23402,0,"1",16,1,0,"0","LITERAL IN 5 QUARTETS " 23403,30,"",0,0,0,"5-","(LEAVE SIGN IN A) " 23404,76,"228",2,0,0,"0","" 23405,0,"12",54,0,0,"0","ACTIONS 54,94 " 23406,12,"",0,0,0,"36","" 23407,71,"234",14,0,0,"0","gNOT ACTION 54 " 23408,0,"1",16,1,0,"0","" 23409,73,"228",4,0,0,"0","gIGNORE L " 0query,164,"",,,,"","action believed to be 70: line 23411 may be missing or on next page" 23410,70,"234",34,0,0,"0", ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000185.JPG",,,,"","TonyJ/Q1000185" 23411,10,"",0,0,0,"0","" 23412,5,"12",60,1,0,"0","" 23413,76,"233",14,0,0,"0",">CHECK RANGE" 23414,0,"1",18,1,0,"0","MOD L" 23415,12,"",0,0,0,"4096","" 23416,76,"230",5,0,0,"0","" 23417,0,"1",16,1,0,"0","CHECK L NONZERO (ACTION 17:19)" 23418,70,"228",5,0,0,"0","" 23419,76,"235",2,0,0,"0","" 23420,,"1",16,1,0,"0","CHECK L=0 ACTIONS 83" 23421,76,"228",2,0,0,"0","" 23422,,"1",16,1,0,"0","L<100" 23423,73,"228",5,0,0,"0","> REPORT L" 23424,12,"",0,0,0,"100","" 23425,72,"228",4,0,0,"0","> IGNORE L" 23426,0,"12",54,0,0,"0","ACTION" 23427,101,"",83,1,2,"0","" 23428,71,"235",2,0,0,"0","> NOT 83" 23429,0,"1",16,0,0,"0","" 23430,70,"228",4,0,0,"0","> IGNORE L" 23431,76,"235",2,0,0,"0","" 23432,0,"1",16,1,0,"0","ACTION 77, 78" 23433,71,"235",2,0,0,"0","> OK" 23434,10,"",0,0,0,"1","(ZERO L FOR 54, 77, 78 ACTIONS)" 23435,5,"12",61,0,0,"0","MUST BE C-LINE" 23500,PROCR,"235",,235,,"TEST FP/MG USED, STORE MR>3 DETAILS","" 23501,NOTES,"",,RADIX,,"","" 23502,62,"",0,0,0,"0","" 23503,,"12",54,0,0,"0","" 23504,12,"",0,0,0,"14","TEST ACTION IS 20 - 29" 23505,73,"247",2,0,0,"0","" 23506,12,"",0,0,0,"t","" 23507,73,"235",17,0,0,"0","" 23508,12,"",0,0,0,"15","" 23509,73,"247",2,0,0,"0",">30 - 50" 23510,12,"",0,0,0,"£","" 23511,70,"235",14,0,0,"0","> 66" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000186.JPG",,,,"","RayS/Q1000186" 23512,12,"",0,0,0,"1","" 23513,71,"235",19,0,0,"0","gNOT 67" 23514,10,"",0,0,0,"1-","" 23515,5,"92",5,0,0,"0","" 23516,76,"235",19,0,0,"0","" 23517,5,"92",5,0,0,"0","SET F. PT. INDICATOR FOR PASS 3" 23518,76,"247",2,0,0,"0","" 23519,,"1",14,0,0,"0","MOD DIGITS" 23520,80,"245",2,0,0,"0","gCONVERT" 23521,3,"12",88,0,0,"0","STORE" 23522,70,"236",2,0,0,"0","" 23523,12,"",0,0,0,"4","" 23524,73,"236",2,0,0,"0","gMR 1-3" 23525,,"12",54,0,0,"0","ACTION" 23526,12,"",0,0,0,"3e","59" 23527,70,"235",32,0,0,"0","gACTION 59" 23528,12,"",0,0,0,"1p","31" 23529,73,"236",2,0,0,"0","g<90" 23530,12,"",0,0,0,"4","" 23531,72,"236",2,0,0,"0","g>93" 23532,91,"71",0,0,3,"0","CTR OF MR'S (INITIALLY 0:0)" 23533,10,"",0,0,0,"0","" 23534,35,"",0,0,0,"11","" 23535,36,"71",2,0,3,"0","" 23536,70,"235",40,0,0,"0","gNONE STORED YET" 23537,2,"12",88,0,0,"0","THIS ONE" 23538,70,"236",2,0,0,"0","gALREADY STORED" 23539,94,"235",33,0,3,"1","gSEARCH" 23540,,"92",0,0,0,"0","UNCORR CHAP (BIN)" 23541,30,"",0,0,0,"4","" 23542,1,"12",88,0,0,"0","MR (BIN)" 23543,5,"71",2,0,3,"0","STORE DETAIL" 23544,10,"",0,0,0,"1","" 23545,4,"71",1,0,0,"0","AUG CTR" 23600,PROCR,"236",,,,"","TEST ACTION IS C" 23601,NOTES,"",RADIX,,,"","FOR ACTIONS 85 AND 150" 23602,62,"",0,0,0,"0","" 23700,PROCR,"237",,,,"","TEST FOR SEQUENCE CHANGES" 23701,NOTES,"",RADIX,,,"","" 23702,0,"12",54,0,0,"0","BIN ACTION" 23703,12,"",0,0,0,"46","" 23704,73,"243",2,0,0,"0","gACTION <70" 23705,12,"",0,0,0,"7","" 23706,73,"240",2,0,0,"0","ACTIONS 70-76" 23707,12,"",0,0,0,"2","" 23708,70,"240",2,0,0,"0","gACTION 79" 23709,72,"237",14,0,0,"0","gOTHERS" 23710,0,"1",6,1,0,"0","ACTION OR C" 23711,12,"",0,0,0,"5300000000","" 23712,71,"240",2,0,0,"0","gMAINLINE OF 77, 78" 23713,76,"247",2,0,0,"0","gHENCE C-LINE OF 77-78" 23714,12,"",0,0,0,"6","" 23715,70,"238",2,0,0,"0","gACTION 85" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000187.JPG",,,,"","KenK/Q1000187" 23716,12,"",0,0,0,"2","" 23717,70,"237",22,0,0,"0","g87 " 23718,12,"",0,0,0,"7","" 23719,70,"239",13,0,0,"0","gACTION 94 " 23720,12,"",0,0,0,"3","" 23721,71,"237",26,0,0,"0","gACTIONS>97 " 23722,,"1",7,0,0,"0","" 23723,12,"",0,0,0,"53000","" 23724,70,"240",2,0,0,"0","gIS C-LINE, COUNT AS CHANGE " 23725,76,"247",2,0,0,"0","gOUTPUT " 23726,12,"",0,0,0,"35","" 23727,70,"237",22,0,0,"0","gACTION 150 " 23728,76,"239",2,0,0,"0","gTRY MACHINE CODE ACTIONS " 23800,PROCR,"238",,,,"","FORM SWITCH DETAILS " 23801,NOTES,"",RADIX,,,"","" 23802,,"1",7,0,0,"0","" 23803,12,"",0,0,0,"53000","" 23804,70,"240",2,0,0,"0","gIS C-LINE OF 85 ACTION " 23805,91,"95",0,0,3,"0","" 23806,,"12",4,0,0,"0","PROCR " 23807,80,"245",2,0,0,"0","gCONVERT " 23808,5,"12",32,0,0,"0","" 23809,10,"",0,0,0,"0","" 23810,34,"319",20,0,0,"0","BITS 1-10 " 23811,36,"95",2,0,3,"0","" 23812,70,"238",16,0,0,"0","gNONE STORED YET " 23813,2,"12",32,0,0,"0","" 23814,70,"238",25,0,0,"0","gALREADY STORED " 23815,94,"238",9,0,3,"1","" 23816,0,"95",1,0,0,"0","" 23817,12,"",0,0,0,"30","" 23818,72,"238",25,0,0,"0","gDONT STORE 49-TH " 23819,0,"92",0,0,0,"0","CURRENT BIN UNCORR CHAP " 23820,30,"",0,0,0,"4","" 23821,1,"12",32,0,0,"0","SWITCH PROCR " 23822,5,"95",2,0,3,"0","STORE DETAIL " 23823,10,"",0,0,0,"1","" 23824,4,"95",1,0,0,"0","STEP CTR " 23825,60,"",0,0,0,"0","COUNTER IN BINARY " 23826,76,"247",2,0,0,"0","gO/P INSTRUCTION " 23900,PROCR,"239",,,,"","MACHINE CODE SEQUENCE CHANGES " 23901,NOTES,"",RADIX,,,"","" 23902,0,"12",54,0,0,"0","BIN ACTION " 23903,12,"",0,0,0,"7p","" 23904,70,"240",2,0,0,"0","gACTION 127/D/M " 23905,11,"",0,0,0,"3","" 23906,71,"241",2,0,0,"0","gNOT 124/D/M " 23907,,"1",12,0,0,"0","" 23908,12,"",0,0,0,"1","" 23909,71,"241",2,0,0,"0","gNOT 124/1/M " 23910,,"1",14,0,0,"0","" 23911,71,"241",2,0,0,"0","gNOT 124/1/0 " 23912,76,"240",2,0,0,"0",";ACTION 94 " 23913,60,"",0,0,0,"0","" 23914,0,"1",16,1,0,"0","" 23915,71,"239",17,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000188.JPG",,,,"","KenK/Q1000188" 23916,80,"197",2,0,0,"0","gREPORT L " 23917,0,"1",8,1,0,"0","" 23918,71,"240",2,0,0,"0","gCOUNT AS SEQ CHANGE " 23919,0,"1",10,0,0,"0","" 23920,70,"247",2,0,0,"0","" 23921,80,"196",2,0,0,"0","gREPORT I " 23922,76,"247",2,0,0,"0","" 24000,PROCR,"240",,,,"","TEST IF SEQUENCE CHANGE IS FORWARD OR BACK " 24001,NOTES,"",RADIX,,,"","" 24002,0,"12",4,0,0,"0","DEC REF " 24003,12,"",0,0,0,"999","" 24004,72,"247",2,0,0,"0","" 24005,0,"92",3,0,0,"0","(CURRENT LINE SERIAL) " 24006,30,"",0,0,0,"2","" 24007,1,"12",9,0,0,"0","SEQ CHANGE SOURCE " 24008,3,"12",118,0,0,"0","SOURCE " 24009,2,"1",8,2,0,"0","L-ALIGNED REF " 24010,2,"1",10,0,0,"0","ITEM " 24011,73,"247",2,0,0,"0","gSOURCE<DEST. SEQ CHANGE FWD " 24012,,"1",8,2,0,"0","" 24013,70,"247",2,0,0,"0","gSC TO ABS ADDRESS, DON'T STORE " 24014,1,"1",10,0,0,"0","" 24015,73,"247",2,0,0,"0","gSKIP " 24016,5,"12",119,0,0,"0","DESTINATION " 24017,0,"12",118,1,0,"0","" 24018,62,"",0,0,0,"0","" 24019,124,"92",9,1,2,"0","ABS START OF LIST 918+2496 INITIALLY) " 24020,101,"",0,1,0,"0","TABLE LOOKUP " 24021,32,"",0,0,0,"10","" 24022,91,"",0,0,1,"0","STORE LOCN OF FIRST GREATER " 24023,2,"92",9,0,0,"0","" 24024,30,"",0,0,0,"5","SHIFT QTTY TO BE MOVED " 24025,1,"92",9,0,0,"0","START " 24026,5,"12",88,1,0,"0","WL=BULK COPY TABLE ENTRY " 24027,0,"92",9,0,0,"0","CURRENT LIST START " 24028,2,"317",90,0,0,"0","ABS ADDRESS 18:0 " 24029,70,"247",2,0,0,"0","gLIST FULL, DONT STORE " 24030,10,"",0,0,0,"2-","" 24031,4,"92",9,0,0,"0","ADJUST FOR NEW START " 24032,,"12",88,1,0,"0","" 24033,124,"92",9,1,2,"0","" 24034,128,"",0,1,1,"0","BULK COPY UP ONE WORD " 24035,94,"",0,0,1,"2-","ADJUST " 24036,,"12",118,1,0,"0","NEW SEQ CH BACK " 24037,5,"",0,1,1,"0","PLACE IN LIST " 24038,76,"247",2,0,0,"0","" 24100,PROCR,"241",,,,"","STORE OVERLAY DETAILS " 24101,NOTES,"",RADIX,,,"","" 24102,,"12",54,0,0,"0","BIN ACTION" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000189.JPG",,,,"","KenK/Q1000189" 24103,12,"",0,0,0,"98","" 24104,71,"243",2,0,0,"0","gNOT ACTION 152, OVERLAY " 24105,91,"12",12,0,3,"0","SCAN CHAPTER STARTS " 24106,,"12",4,0,0,"0","PROCR OF OLAID/OLAYER CHAP START " 24107,2,"12",14,0,3,"0","NEXT CHAP START " 24108,70,"241",13,0,0,"0","gMATCH FOUND " 24109,94,"241",6,0,3,"1","gTRY NEXT " 24110,80,"195",2,0,0,"0","gREPORT R " 24111,80,"295",2,0,0,"0","gIGNORE INSTRUCTION " 24112,76,"241",14,0,0,"0","gPRETEND IS CHAP 1 " 24113,95,"",0,0,3,"0","" 24114,11,"",0,0,0,"1","" 24115,5,"12",46,0,0,"0","" 24116,0,"12",61,0,0,"0","IS C-LINE READ YET? " 24117,70,"242",2,0,0,"0","gTHIS IS C-LINE NOW " 24118,0,"12",46,0,0,"0","OLAID CHAP " 24119,5,"12",47,0,0,"0","" 24120,76,"247",2,0,0,"0","gO/P+READ C-LINE " 24200,PROCR,"242",,,,"","UPDATE CORR CHAP INDEX, UPDATE NO OF INITIAL CHAPS " 24201,NOTES,"",RADIX,,,"","" 24202,10,"",0,0,0,"10","BIT 5 " 24203,32,"",0,0,0,"10-","" 24204,10,"",0,0,0,"10","" 24205,124,"12",46,0,1,"0","OLAYER;SET 'NON-UNIQUE' IND " 24206,37,"92",9,0,0,"0",";BIT 5 " 24207,124,"12",47,0,1,"0","OLAID " 24208,37,"92",9,0,0,"0","" 24209,10,"",0,0,0,"0","" 24210,35,"",0,0,0,"1","" 24211,124,"12",46,0,1,"0","" 24212,36,"92",9,0,0,"0","OLAYER PREVIOUS CORR CHAP " 24213,5,"12",46,0,0,"0","" 24214,124,"12",47,0,1,"0","" 24215,36,"92",9,0,0,"0","CORR CHAP OF OLAID " 24216,3,"12",47,0,0,"0","" 24217,2,"12",46,0,0,"0","" 24218,70,"247",2,0,0,"0","gNO ADJUSTMENTS NEEDED " 24219,73,"242",24,0,0,"0","g12/46>12/47 " 24220,34,"12",46,0,0,"0","" 24221,4,"12",46,0,0,"0","" 24222,32,"",0,0,0,"10","" 24223,5,"12",47,0,0,"0","GREATER IN 46;LESSER IN 47 " 24224,91,"12",12,0,3,"0","UNCORR CHAPS:0 " 24225,35,"",0,0,0,"1","" 24226,10,"",0,0,0,"0","" 24227,36,"92",10,0,3,"0","CORR CHAP " 24228,2,"12",46,0,0,"0","GREATER IN THIS OVERLAY " 24229,71,"242",32,0,0,"0","gNOT TO BE REPLACED " 24230,,"12",47,0,0,"0","" 24231,37,"92",10,0,3,"0","REPLACE " 24232,94,"242",26,0,3,"1","gTREAT ALL CHAPS " 24233,76,"247",2,0,0,"0","O/P INSTRUCTION " 24300,PROCR,"243",,,,"","STORE OLD/NEW RADICES FOR CONVERT ACTIONS " 24301,NOTES,"",RADIX,,,"","" 24302,62,"",0,0,0,"0","" 24303,,"12",54,0,0,"0","" 24304,12,"",0,0,0,"5:","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000190.JPG",,,,"","TonyJ/Q1000190" 24305,70,"243",14,0,0,"0",">ACTION 93 DEC-BIN" 24306,11,"",0,0,0,"1+","" 24307,70,"243",32,0,0,"0",">ACTION 65 ANY-ANY" 24308,11,"",0,0,0,"2","" 24309,70,"243",13,0,0,"0",">ACTION 63 DEC-STERLING" 24310,12,"",0,0,0,"1","" 24311,71,"246",2,0,0,"0",">ACTION NOT 64, STERLING - DECIMAL" 24312,10,"",0,0,0,"7£:££802","" 24313,11,"",0,0,0,"66.64","" 24314,11,"",0,0,0,"6666600000","" 24315,5,"12",46,1,0,"0","STORE OLD - NEW RADIX" 24316,,"92",7,0,0,"0","CTR OF CONVERT TABLES TO DATE" 24317,30,"",0,0,0,"5","" 24318,91,"",0,0,3,"0","" 24319,70,"243",27,0,0,"0","> NONE STORED YET" 24320,,"99",0,1,3,"0","" 24321,2,"12",46,1,0,"0","" 24322,70,"247",2,0,0,"0","> ALREADY STORED" 24323,94,"243",20,0,3,"2","" 24324,0,"92",7,0,0,"0","" 24325,12,"",0,0,0,"32","50" 24326,72,"247",2,0,0,"0","> DONT STORE 26-TH" 24327,0,"12",46,1,0,"0","" 24328,5,"99",0,1,3,"0","" 24329,10,"",0,0,0,"2","" 24330,4,"92",7,0,0,"0","AUG CTR" 24331,76,"247",2,0,0,"0","> O/P INSTRUCTION" 24332,,"1",16,0,0,"0","L=RADIX" 24333,5,"12",46,0,0,"0","" 24334,,"12",61,0,0,"0","C-LINE IND" 24335,70,"243",16,0,0,"0","> THIS IS C-LINE;INSERT RADIX PAIR" 24336,,"12",46,0,0,"0","" 24337,5,"12",47,0,0,"0","SET OLD RADIX" 24338,76,"247",2,0,0,"0","> GET C-LINE" 24400,PROCR,"244",,244,,"CONVERT (A) TO DEC","" 24401,NOTES,"",,,,"","" 24402,81,"244",2,0,0,"0","" 24403,5,"320",42,1,0,"0","" 24404,60,"",0,0,0,"0","SET DEC" 24405,124,"320",2,0,2,"0","" 24406,112,"320",42,1,0,"0","" 24407,82,"244",2,0,0,"0","" 24500,PROCR,"245",,245,,"CONVERT (A) TO BINARY","" 24501,NOTES,"",,,,"","" 24502,81,"245",2,0,0,"0","" 24503,5,"320",42,1,0,"0","" 24504,62,"",0,0,0,"0","SET BIN" 24505,124,"320",22,0,2,"0","" 24506,112,"320",42,1,0,"0","" 24507,82,"245",2,0,0,"0","" 24600,PROCR,"246",,246,,"STORE UNPACK AND CONDENSE","" 24601,NOTES,"",RADIX,,,"","" 24602,0,"12",61,0,0,"0","" 24603,70,"247",2,0,0,"0","> THIS IS C-LINE" 24604,0,"12",54,0,0,"0","ACTION" 24605,101,"",51,1,2,"0","" 24606,70,"246",11,0,0,"0","> UNPACK" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000191.JPG",,,,"","TonyJ/Q1000191" 24607,101,"",2,1,2,"0","" 24608,70,"246",11,0,0,"0",">CONDENSE" 24609,101,"",104,1,2,"0","" 24610,71,"247",2,0,0,"0",">NOT EXPAND (157)" 24611,,"12",4,0,0,"0","SECTION" 24612,80,"245",2,0,0,"0",">CONVERT" 24613,3,"12",88,0,0,"0","SEC/ PROCR" 24614,12,"",0,0,0,"64","100" 24615,72,"247",2,0,0,"0",">DON'T STORE FOR 3-DIGT REP" 24616,,"98",0,1,0,"0","" 24617,91,"98",0,0,3,"0","" 24618,70,"246",28,0,0,"0",">NONE STORED YET" 24619,10,"",0,0,0,"0","" 24620,35,"",0,0,0,"11","" 24621,36,"98",2,0,3,"0","" 24622,2,"12",88,0,0,"0","" 24623,70,"247",2,0,0,"0","> MATCH FWND" 24624,94,"246",19,0,3,"1","" 24625,0,"98",1,0,0,"0","" 24626,12,"",0,0,0,"t","" 24627,72,"247",2,0,0,"0","> DONT STORE 11 - TH" 24628,0,"92",0,0,0,"0","THIS CHAP UNCORR" 24629,30,"",0,0,0,"4","" 24630,1,"12",88,0,0,"0","SECTION" 24631,5,"98",2,0,3,"0","" 24632,10,"",0,0,0,"1","" 24633,4,"98",1,0,0,"0","AUG CTR" 24700,PROCR,"247",,247,,"FORM SERIAL NUMBER","" 24701,NOTES,"",,RADIX,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000192.JPG",,,,"","RayS/Q1000192" 24702,0,"12",85,0,0,"0","TEST IF TO IGNORE" 24703,70,"247",5,0,0,"0","THIS BLOCK" 24704,80,"295",2,0,0,"0","YES - IGNORE" 24705,60,"",0,0,0,"0","" 24706,,"92",3,0,0,"0","TRANSLATOR'S PROCR" 24707,30,"",0,0,0,"2","" 24708,5,"12",88,0,0,"0","" 24709,86,"191",2,0,0,"0","" 24710,12,"",0,0,0,"5","" 24711,70,"247",26,0,0,"0","gVALUES" 24712,,"12",9,0,0,"0","LONE SERIAL IN PROCR" 24713,12,"",0,0,0,"100","" 24714,73,"247",26,0,0,"0","gOK" 24715,86,"191",2,0,0,"0","" 24716,12,"",0,0,0,"2","" 24717,70,"247",22,0,0,"0","gINSTRUCTIONS, IGNORE" 24718,35,"",0,0,0,"111111","TABLE ENTRIES, CONSTS='SER'" 24719,10,"",0,0,0,"725569","" 24720,37,"1",44,1,0,"0","" 24721,76,"247",23,0,0,"0","" 24722,80,"295",2,0,0,"0","gIGNORE" 24723,10,"",0,0,0,"99","" 24724,2,"12",90,0,0,"0","(0=SHORT, 1=LONG)" 24725,76,"247",27,0,0,"0","gSET 98 OR 99" 24726,,"12",9,0,0,"0","" 24727,4,"12",88,0,0,"0","" 24728,52,"1",2,0,0,"0","EDIT SERIAL" 24729,C,"306",6,0,0,"0","" 24800,PROCR,"248",,,,"","AUGMENT INSTRUCTION COUNTER" 24801,NOTES,"",RADIX,,,"","" 24802,10,"",0,0,0,"0","" 24803,85,"191",2,0,0,"0","" 24804,C,"248",11,0,0,"0","g'PROCR/TABLE'" 24805,C,"249",13,0,0,"0","gINSTRUCTIONS/'NNOTES'" 24806,C,"249",2,0,0,"0","gTABLE ENTRY/'NOTES'" 24807,C,"249",7,0,0,"0","gCONSTANT/'CONST'" 24808,C,"248",9,0,0,"0","VALUE ENTRY/VALUE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000193.JPG",,,,"","RayS/Q1000193" 24809,5,"1",2,1,0,"0","CLEAR LINE SERIAL" 24810,76,"248",13,0,0,"0","" 24811,0,"12",9,0,0,"0","SERIAL THIS LINE WITHIN SECTION" 24812,71,"248",18,0,0,"0","gNOTES BLOCK" 24813,,"319",22,0,0,"0","SW 27/5 LAST TIME THRU" 24814,12,"",0,0,0,"3","" 24815,71,"248",18,0,0,"0","gLAST TIME WASN'T FOR CONSTANTS" 24816,10,"",0,0,0,"1","" 24817,5,"29",6,1,0,"0","CONSTS END SIGN" 24818,10,"",0,0,0,"0","" 24819,76,"249",13,0,0,"0","" 24900,PROCR,"249",,,,"","AUGMENT INSTRUCTION" 24901,NOTES,"",RADIX,,,"","" 24902,,"12",9,0,0,"0","" 24903,12,"",0,0,0,"1","" 24904,70,"249",13,0,0,"0","" 24905,10,"",0,0,0,"2","" 24906,76,"249",14,0,0,"0","" 24907,,"12",9,0,0,"0","" 24908,71,"249",12,0,0,"0","gNOT 'CONST' BLOCK" 24909,10,"",0,0,0,"1","" 24910,4,"12",9,0,0,"0","(SO AS TO STEP BY 2 EVENTUALLY)" 24911,76,"248",13,0,0,"0","gTEST IF LAST SECTION WAS CONSTANTS" 24912,0,"12",90,0,0,"0","" 24913,11,"",0,0,0,"1","" 24914,4,"12",9,0,0,"0","" 24915,0,"12",33,0,0,"0","" 24916,70,"249",20,0,0,"0","gBLOCK EX MT" 24917,0,"12",1,0,0,"0","" 24918,30,"",0,0,0,"2","" 24919,5,"1",0,1,0,"0","AMEND IND" 24920,5,"92",34,1,0,"0","CLEAR" 25000,PROCR,"250",,,,"","EDIT" 25002,62,"",0,0,0,"0","" 25003,,"318",11,0,0,"0","INDICATOR" 25004,70,"250",7,0,0,"0","gFIRST RECORD" 25005,80,"288",2,0,0,"0","" 25006,76,"250",8,0,0,"0","" 25007,80,"289",2,0,0,"0","gWRITE LAST SECTION" 25008,,"12",38,0,0,"0","" 25009,71,"250",30,0,0,"0","gDIRECTIVE" 25010,,"27",5,0,0,"0","SWITCH" 25011,12,"",0,0,0,"4","" 25012,70,"250",25,0,0,"0","gVALUES" 25013,124,"27",5,0,1,"0","" 25014,,"305",6,0,0,"0","" 25015,128,"29",2,1,2,"0","EDIT PROCR, TABLE, CONST." 25016,,"319",48,1,0,"0","" 25017,124,"27",5,0,1,"0","" 25018,124,"305",2,0,1,"0","" 25019,128,"29",0,1,1,"0","COPY ANNOTATION" 25020,,"1",44,1,0,"0","" 25021,124,"27",5,0,1,"0","" 25022,124,"305",2,0,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000194.JPG",,,,"","RayS/Q1000194" 25023,5,"29",2-,1,0,"0","COPY REPORTS PASS 1" 25024,76,"250",48,0,0,"0","" 25025,55,"1",11,0,0,"16","VALUES" 25026,C,"29",10,2,0,"0","" 25027,52,"29",6,0,0,"0","REF+ITEM" 25028,C,"315",2,0,0,"0","" 25029,76,"250",48,0,0,"0","" 25030,52,"29",2,0,0,"0","DIRECTIVES" 25031,C,"307",16,0,0,"0","" 25032,10,"",0,0,0,"0","" 25033,5,"319",22,0,0,"0","" 25034,,"27",5,0,0,"0","" 25035,12,"",0,0,0,"1","" 25036,71,"250",43,0,0,"0","gNOT PROCR" 25037,,"12",38,0,0,"0","" 25038,73,"250",43,0,0,"0","NOT NOTES OF PROCR" 25039,,"1",8,1,0,"0","" 25040,5,"29",12,1,0,"0","COPY 'RADIX'" 25041,5,"29",8,1,0,"0","CLEAR" 25042,76,"250",45,0,0,"0","" 25043,,"1",44,1,0,"0","PASS 1 REPORTS" 25044,5,"29",12,1,0,"0","" 25045,55,"1",16,1,0,"28","BULK COPY ANNOTATION" 25046,C,"29",14,1,0,"0","" 25047,76,"250",50,0,0,"0","" 25048,,"27",5,0,0,"0","" 25049,5,"319",22,0,0,"0","" 25050,10,"",0,0,0,"1","" 25051,5,"318",11,0,0,"0","SET INDICATOR" 25052,60,"",0,0,0,"0","" 25053,10,"",0,0,0,"0","" 25054,5,"12",115,0,0,"0","ERROR REPROT SHIFT CONTROL" 25055,0,"23",47,0,0,"0","" 25056,35,"",0,0,0,"1111","" 25057,37,"29",2,1,0,"0","" 25058,10,"",0,0,0,"0","" 25059,5,"23",47,0,0,"0","IMPLICITLY AMENDED'" 25060,82,"186",2,0,0,"0","" 25100,PROCR,"251",,,,"","START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END" 25102,80,"294",2,0,0,"0","gTEST PT AT DIRECTIVE/END" 25103,70,"252",2,0,0,"0","gNO" 25104,0,"12",45,0,0,"0","" 25105,71,"251",14,0,0,"0","gPT AT END" 25106,,"27",1,0,0,"0","" 25107,70,"251",10,0,0,"0","gSINGLE-RECORD BLOCKS" 25108,,"",4,2,8,"0","(ABS MR)" 25109,76,"251",11,0,0,"0","" 25110,0,"7",6,2,0,"0","MT SERIAL" 25111,2,"9",4,2,0,"0","A6 SERIAL" 25112,70,"252",2,0,0,"0","gMT AMENDED" 25113,72,"253",2,0,0,"0","gMT>PT, REPORT" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000195.JPG",,,,"","RayS/Q1000195" 25114,80,"299",2,0,0,"0","gTEST MT=END " 25115,10,"",0,0,0,"0","SET 'MT INPUT' " 25116,5,"12",33,0,0,"0","" 25117,80,"303",2,0,0,"0","gTEST MT=PROCR " 25118,80,"284",2,0,0,"0","gUNPACK " 25119,80,"186",2,0,0,"0","gCHECK/EDIT/OUTPUT " 25120,80,"302",2,0,0,"0","gGET NEXT RECORD " 25121,76,"251",4,0,0,"0","" ,,"",,,,"","" 25200,PROCR,"252",,,,"","SWITCH FOR AMENDMENTS " 25201,NOTES,"",RADIX,,,"","" 25202,85,"252",2,0,0,"0","" 25203,C,"254",2,0,0,"0","gREPLACE " 25204,C,"255",2,0,0,"0","gDELETE " 25205,C,"258",2,0,0,"0","gINSERT BEFORE " 25206,C,"256",2,0,0,"0","gREPLACE ANNOTATION " ,,"",,,,"","" 25300,PROCR,"253",,,,"","DEAL WITH OUT-OF-SEQUENCE DIRECTIVE " 25301,NOTES,"",RADIX,,,"","" 25302,,"1",4,1,0,"0","AMENDMENTS MODS ARE" 25303,124,"319",22,0,1,"0","" 25304,124,"305",10,0,1,"0","" 25305,5,"29",0,1,0,"0","REPORT WORD " 25306,34,"1",2,1,0,"0","SERIAL " 25307,80,"259",2,0,0,"0","PUT ERROR REPORT" 25308,10,"",0,0,0,"1:5:","'??' OF 5-DIGIT" 25309,3,"27",6,0,0,"0","SET 'PT OMITTED' " 25310,35,"",0,0,0,"1111","SERIAL AND" 25311,124,"319",22,0,1,"0","" 25312,124,"305",10,0,1,"0","" 25313,37,"29",0,1,0,"0","REPORT WORD " 25314,80,"292",2,0,0,"0","INPUT ON PAPER " 25315,80,"294",2,0,0,"0","FIND DIRECTIVE " 25316,70,"253",14,0,0,"0","gREAD/IGNORE PT TO NEXT DIRECTIVE " 25317,76,"251",4,0,0,"0","gMAKE THIS AMENDMENT " ,,"",,,,"","" 25400,PROCR,"254",,,,"","REPLACE " 25401,NOTES,"",RADIX,,,"","" 25402,,"9",50,2,0,"0","'PASS 0' IND " 25403,71,"254",34,0,0,"0","gREJECT " 25404,,"27",5,0,0,"0","'UNPACK SWITCH' " 25405,5,"296",2,0,0,"0","" 25406,80,"303",2,0,0,"0","gTEST MT=PROCR " 25407,0,"12",38,0,0,"0","" 25408,5,"197",2,0,0,"0","" 25409,80,"293",2,0,0,"0","gTEST PT=STACK DIRECTIVE " 25410,0,"12",38,0,0,"0","IS REPLACING BLOCK STACK DIR OR NOT" 25411,2,"197",2,0,0,"0","ARE BOTH BLOCKS SIMILAR " 25412,71,"254",29,0,0,"0"," ILLEGAL?" 25413,10,"",0,0,0,"1","SET AS PT INPUT " 25414,5,"12",33,0,0,"0","" 25415,80,"283",2,0,0,"0","gUNPACK PT " 25416,80,"299",2,0,0,"0","gDON'T REPLACE END SIGN " 25417,0,"12",38,0,0,"0","" 25418,72,"254",25,0,0,"0","gNOT PT DIRECTIVE " 25419,,"27",1,0,0,"0","" 25420,70,"254",23,0,0,"0","g1 RECORD PER BLOCK " 25421,,"",8,1,8,"0","PROCR NO " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000196.JPG",,,,"","RayS/Q1000196" 25422,76,"254",24,0,0,"0","" 25423,0,"7",16,1,0,"0","" 25424,5,"1",8,1,0,"0","TRANSFER MT PROCR NUMBER " 25425,80,"302",2,0,0,"0","gGET NEXT A1 RECORD " 25426,80,"186",2,0,0,"0","gCHECK/EDIT/OUTPUT " 25427,80,"292",2,0,0,"0","gREAD PT " 25428,76,"251",2,0,0,"0","" 25429,0,"12",38,0,0,"0","PT DIRECTIVE " 25430,1,"197",2,0,0,"0","MT DIRECTIVE " 25431,72,"254",13,0,0,"0","gNEITHER IS STACK DIRECTIVE, ALLOW REPLAC " 25432,,"296",2,0,0,"0","" 25433,5,"27",5,0,0,"0","RESTORE SWITCH " 25434,10,"",0,0,0,"69","" 25435,76,"255",36,0,0,"0","gREPORT " 25500,PROCR,"255",,,,"","DELETION LOOP " 25501,NOTES,"",RADIX,,,"","" 25502,80,"299",2,0,0,"0","gEND SIGN ON MT? " 25503,,"9",4,1,0,"0","" 25504,5,"1",0,1,0,"0","STORE SERIAL " 25505,,"9",50,2,0,"0","'PASS 0' IND " 25506,71,"255",35,0,0,"0","gREPORT " 25507,80,"292",2,0,0,"0","gREAD PT " 25508,80,"294",2,0,0,"0","gTEST DIRECTIVE " 25509,71,"255",46,0,0,"0","gYES (SINGLE-LINE DELETE) " 25510,,"9",50,2,0,"0","PASS 0 IND " 25511,71,"255",35,0,0,"0","gMOD REJECTED " 25512,,"27",1,0,0,"0","" 25513,70,"255",16,0,0,"0","g1 RECORD/BLOCK " 25514,,"",4,2,8,"0","" 25515,76,"255",17,0,0,"0","" 25516,,"7",6,2,0,"0","MT SERIAL " 25517,30,"",0,0,0,"8","" 25518,70,"255",20,0,0,"0","gDIRECTIVE DELETED " 25519,80,"188",2,0,0,"0","gSET 'PRINT PROCEDURE' " 25520,80,"302",2,0,0,"0","gGET NEXT RECORD " 25521,80,"299",2,0,0,"0","gTEST END " 25522,,"27",1,0,0,"0","" 25523,70,"255",26,0,0,"0","" 25524,,"",4,2,8,"0","" 25525,76,"255",27,0,0,"0","" 25526,,"7",6,2,0,"0","MT SERIAL " 25527,2,"1",2,2,0,"0","PT SERIAL " 25528,71,"255",34,0,0,"0","" 25529,80,"302",2,0,0,"0","gGET NEXT RECORD " 25530,80,"292",2,0,0,"0","gREAD PT(NEXT DIRECTIVE) " 25531,80,"294",2,0,0,"0","gTEST DIRECTIVE " 25532,71,"251",4,0,0,"0","gYES " 25533,76,"255",35,0,0,"0","gREJECT " 25534,73,"255",20,0,0,"0","gLOOP " 25535,10,"",0,0,0,"54","REPORT" 25536,30,"",0,0,0,"8","" 25537,124,"319",22,0,1,"0","" 25538,124,"305",10,0,1,"0","" 25539,5,"29",0,1,0,"0","REPORT WORD " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000197.JPG",,,,"","RayS/Q1000197" 25540,,"27",1,0,0,"0","" 25541,70,"255",44,0,0,"0","g1 RECORD BLOCK " 25542,34,"",4,1,8,"0","" 25543,76,"253",7,0,0,"0","" 25544,34,"7",6,1,0,"0","SERIAL BEING DELETED " 25545,76,"253",7,0,0,"0","gREPORT " 25546,,"27",1,0,0,"0","" 25547,70,"255",50,0,0,"0","" 25548,,"",4,2,8,"0","" 25549,76,"255",51,0,0,"0","" 25550,,"7",6,2,0,"0","" 25551,30,"",0,0,0,"8","" 25552,70,"255",54,0,0,"0","" 25553,80,"188",2,0,0,"0","" 25554,80,"302",2,0,0,"0","gGET RECORD AFTER DELETED ONE " 25555,,"27",1,0,0,"0","" 25556,70,"255",59,0,0,"0","" 25557,,"",4,2,8,"0","" 25558,76,"255",60,0,0,"0","" 25559,,"7",6,2,0,"0","" 25560,2,"1",0,2,0,"0","PT SERIAL FOR DELETION " 25561,70,"255",54,0,0,"0","gDELETE ALL BLOCKS THIS SERIAL " 25562,76,"251",2,0,0,"0","" 25600,PROCR,"256",,,,"","REPLACE ANNOTATION " 25601,NOTES,"",RADIX,,,"","" 25602,80,"303",2,0,0,"0","gTEST MT=PROCR " 25603,80,"283",2,0,0,"0","gUNPACK PT BLOCK " 25604,,"9",50,2,0,"0","'PASS 0' IND " 25605,70,"256",8,0,0,"0","" 25606,10,"",0,0,0,"51","" 25607,76,"255",36,0,0,"0","gREPORT, READ NEXT DIRECTIVE " 25608,10,"",0,0,0,"1","" 25609,3,"23",47,0,0,"0","SET 'IMPLICITLY AMENDED' " 25610,5,"12",86,0,0,"0","SET IND FOR SR " 25611,80,"257",2,0,0,"0","" 25612,10,"",0,0,0,"0","" 25613,5,"12",86,0,0,"0","" 25614,80,"292",2,0,0,"0","gREAD PT " 25615,10,"",0,0,0,"0","" 25616,5,"12",33,0,0,"0","" 25617,80,"186",2,0,0,"0","SET 'MT IN' " 25618,80,"302",2,0,0,"0","gCHECK/EDIT/OUTPUT " 25619,76,"251",2,0,0,"0","gGET NEXT A1 RECORD " 25700,PROCR,"257",,,,"","ENTRY TO 'UNPACK' SR " 25702,81,"257",2,0,0,"0","" 25703,0,"257",2,0,0,"0","" 25704,5,"284",2,0,0,"0","PLANT LINK " 25705,76,"284",4,0,0,"0","AVOID BULK CLEAR " 25800,PROCR,"258",,,,"","INSERTION LOOP " 25801,NOTES,"",RADIX,,,"","" 25802,,"9",50,2,0,"0","PASS 0' IND " 25803,71,"258",46,0,0,"0","gREPORT " 25804,5,"12",38,0,0,"0","SET NON DIRECTIVE " 25805,87,"27",5,0,0,"0","" 25806,C,"258",17,0,0,"0","" 25807,C,"258",17,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000198.JPG",,,,"","RayS/Q1000198" 25808,C,"258",10,0,0,"0","CONST " 25809,C,"258",17,0,0,"0","" 25810,54,"1",0,1,0,"46","" 25811,124,"312",2,0,2,"0","" 25812,80,"326",2,0,0,"0","UNPACK (PRETEND ITS PROCR) " 25813,10,"",0,0,0,"0","" 25814,5,"1",20,1,0,"0","CLEAR CLEO WORD " 25815,5,"1",44,1,0,"0","CLEAR ERROR WORD " 25816,76,"258",18,0,0,"0","" 25817,80,"283",2,0,0,"0","UNPACK " 25818,90,"",0,0,1,"6","" 25819,C,"",0,0,0,"44","" 25820,,"1",0,1,1,"0","" 25821,71,"258",24,0,0,"0","gREPORT, CODING " 25822,94,"258",20,0,1,"2","" 25823,76,"258",41,0,0,"0","" 25824,10,"",0,0,0,"73","" 25825,30,"",0,0,0,"8","" 25826,124,"319",22,0,1,"0","" 25827,124,"305",10,0,1,"0","" 25828,5,"29",0,1,0,"0","REPORT WORD " 25829,,"27",1,0,0,"0","" 25830,70,"258",33,0,0,"0","g1 RECORD/BLOCK " 25831,34,"",4,1,8,"0","LINE SERIAL " 25832,76,"258",34,0,0,"0","" 25833,34,"7",6,1,0,"0","LINE SERIAL " 25834,80,"259",2,0,0,"0","STORE REPORT " 25835,10,"",0,0,0,"1:5:","" 25836,3,"27",6,0,0,"0","SET 'PT OMITTED' " 25837,35,"",0,0,0,"1111","" 25838,124,"319",22,0,1,"0","" 25839,124,"305",10,0,1,"0","" 25840,37,"29",0,1,0,"0","" 25841,80,"292",2,0,0,"0","gREAD PT " 25842,80,"294",2,0,0,"0","FIND AMENDMENT DIRECTIVE" 25843,71,"251",4,0,0,"0","gNEW DIRECTIVE OR END SIGN " 25844,,"9",50,2,0,"0","PASS 0' IND " 25845,70,"258",48,0,0,"0","gMOD OK " 25846,10,"",0,0,0,"73","" 25847,76,"255",36,0,0,"0","gREPORT, READ TO NEXT AMEND DIRECTIVE " 25848,80,"293",2,0,0,"0","gTEST STACK DIRECTIVE " 25849,10,"",0,0,0,"1","" 25850,5,"12",33,0,0,"0","SET 'PT IS INPUT' " 25851,80,"283",2,0,0,"0","gUNPACK " 25852,80,"186",2,0,0,"0","gCHECK/EDIT/OUTPUT " 25853,76,"258",41,0,0,"0","" 25900,PROCR,"259",,,,"","STORE ERROR REPORT FOR OUT-OF-SEQUENCE MODS " 25902,81,"259",2,0,0,"0","(B)=REPORT WORD " 25903,124,"319",22,0,1,"0","" 25904,124,"305",2,0,1,"0","" 25905,,"29",15,0,0,"0","LAST 2.5 CHARS ANNOTATION " 25906,2,"319",27,0,0,"0","" 25907,70,"259",14,0,0,"0","gLINE IGNORED;DON'T OVERWRITE WORD " 25908,10,"",0,0,0,"0","CLEAR SIGN BIT A " 25909,32,"",0,0,0,"10","" 25910,124,"319",22,0,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000199.JPG",,,,"","ChuckK/Q1000199" 25911,124,"305",2,0,1,"0","LAST FIVE CHARS ANNOTATION" 25912,5,"29",14,1,0,"0","" 25913,82,"259",2,0,0,"0","" 25914,32,"",0,0,0,"10","" 25915,124,"319",22,0,1,"0","" 25916,124,"305",2,0,1,"0","" 25917,5,"29",12,1,0,"0","" 25918,82,"259",2,0,0,"0","" 26000,PROCR,"260",,,,"","CONSTANTS ROUTINE" 26001,NOTES,"",RADIX,,,"","" 26002,5,"12",69,0,0,"0","" 26003,5,"12",66,1,0,"0","CLEAR INDICATORS" 26004,5,"12",70,0,0,"0","" 26005,84,"695",2,0,0,"0","CLEAR WL=SWITCH" 26006,91,"12",66,0,2,"0","CLEAR R2" 26007,90,"",0,0,3,"0","" 26008,C,"",0,0,0,"5","" 26009,90,"",0,0,1,"0","" 26010,C,"",0,0,0,"18","" 26011,54,"94",0,0,0,"60","CLEAR UNPACK AREA" 26012,62,"",0,0,0,"0","" 26013,34,"1",6,1,0,"0","FIRST WORD" 26014,,"12",33,0,0,"0","NON ZERO IF EX PT" 26015,5,"12",70,0,0,"0","SET 'NE FOUND' IND" 26016,76,"261",3,0,0,"0","" 26017,80,"295",2,0,0,"0",">IGNORE CONST" 26100,PROCR,"261",,,,"","" 26101,NOTES,"",RADIX,,,"","" 26102,80,"274",2,0,0,"0",">GET NEXT CHAR" 26103,32,"",0,0,0,"2","" 26104,3,"12",88,1,0,"0","" 26105,12,"",0,0,0,"7:","" 26106,70,"261",12,0,0,"0",">NE" 26107,12,"",0,0,0,"1","" 26108,70,"265",2,0,0,"0",">BE,STORE NE AND END" 26109,,"12",70,0,0,"0","" 26110,71,"261",2,0,0,"0",">NO, DONT STORE CHAR" 26111,76,"261",17,0,0,"0",">STORE AND PROCESS" 26112,,"12",70,0,0,"0"," 'NE FOUND' IND" 26113,70,"265",2,0,0,"0",">YES, STORE NE AND END" 26114,5,"12",70,0,0,"0","" 26115,5,"12",70,0,0,"0","CLEAR" 26116,76,"261",2,0,0,"0",">GNC" 26117,,"12",88,0,0,"0","" 26118,5,"94",0,0,2,"0","STORE THIS CHAR" 26200,PROCR,"262",,,,"","" 26201,NOTES,"",RADIX,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000200.JPG",,,,"","ChuckK/Q1000200" 26202,96,"",0,0,2,"0","" 26203,94,"262",4,0,2,"1","" 26204,71,"262",21,0,0,"0",">NOT FIRST CHAR IN LINE" 26205,,"12",88,0,0,"0","THIS CHAR" 26206,12,"",0,0,0,"7t","" 26207,70,"262",23,0,0,"0",">'('" 26208,83,"263",10,0,0,"5","IGNORE '('" 26209,5,"94",60,0,0,"0","" 26210,0,"94",61,0,0,"0","SF CTR IN DIRECTIVE LINE" 26211,70,"262",19,0,0,"0",">WRONG" 26212,84,"267",2,0,0,"0","SET CHECK SWITCH" 26213,C,"94",62,0,0,"0","" 26214,0,"94",62,0,0,"0","SWITCH FOR FIRST SUBFIELD" 26215,12,"",0,0,0,"5","" 26216,71,"262",21,0,0,"0",">NOT REL ADDRESS" 26217,83,"695",2,0,0,"1","SET WL=1" 26218,76,"262",21,0,0,"0","" 26219,83,"263",10,0,0,"1",">IGNORE UNDIRECTED CONST" 26220,80,"263",10,0,0,"0",">CLEAR OUT ALL DETAILS" 26221,,"12",88,0,0,"0","" 26222,76,"263",10,0,0,"0","CHECK" 26223,80,"263",10,0,0,"0",">CLEAR OUT ALL DETAILS" 26224,76,"263",20,0,0,"0",">SET SWITCH AT 2" 26300,PROCR,"263",,,,"","" 26301,NOTES,"",RADIX,,,"","" 26302,81,"263",10,0,0,"0","" 26303,5,"94",60,1,0,"0","CLEAR DETAILS" 26304,5,"94",62,1,0,"0","" 26305,5,"94",64,1,0,"0","" 26306,5,"94",66,1,0,"0","" 26307,5,"94",68,1,0,"0","" 26308,5,"94",70,1,0,"0","" 26309,82,"263",10,0,0,"0","" 26310,85,"263",10,0,0,"0","" 26311,C,"260",17,0,0,"0",">IGNORE" 26312,C,"263",40,0,0,"0",">PREVIOUS WAS'C' DIRECTIV E LETTER" 26313,C,"264",39,0,0,"0",">')' EXPECTED" 26314,C,"263",16,0,0,"0",">',' FORBIDDEN, '(' ALLOWED" 26315,C,"263",22,0,0,"0",">'(' FORBIDDEN, ',' ALLOWED" 26316,12,"",0,0,0,"7+","COMMA" 26317,70,"262",19,0,0,"0",">IGNORE" 26318,11,"",0,0,0,"2","" 26319,71,"264",2,0,0,"0",">CHECK CHAR" 26320,83,"263",10,0,0,"2","SET TO EXPECT DIRECTIVE LETTER" 26321,76,"261",2,0,0,"0",">GET NEXT CHAR" 26322,12,"",0,0,0,"7+","" 26323,71,"263",37,0,0,"0",">NOT COMMA" 26324,10,"",0,0,0,"2","" 26325,4,"94",60,0,0,"0","" 26326,124,"94",60,0,0,"0","SF CTR IN NON-DIRECTIVE LINE" 26327,,"94",62,0,0,"0","SF DETAILS" 26328,70,"262",19,0,0,"0",">IGNORE" 26329,84,"267",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000201.JPG",,,,"","ChuckK/Q1000201" 26330,86,"267",2,0,0,"0","" 26331,12,"",0,0,0,"5","" 26332,71,"261",2,0,0,"0",">NOT REL ADDRESS" 26333,96,"",0,0,2,"0","" 26334,11,"",0,0,0,"1","" 26335,84,"695",2,0,0,"0","WL=LOCN OF SECOND CHAR" 26336,76,"261",2,0,0,"0",">GET NEXT CHAR" 26337,11,"",0,0,0,"2","" 26338,71,"264",2,0,0,"0",">NOT '(', CHECK CHAR" 26339,76,"260",17,0,0,"0",">IGNORE;GET NEXT CHAR" 26340,12,"",0,0,0,"51","" 26341,70,"263",59,0,0,"0",">A" 26342,12,"",0,0,0,"1","" 26343,70,"263",57,0,0,"0",">B" 26344,12,"",0,0,0,"1","" 26345,70,"263",52,0,0,"0",">C" 26346,12,"",0,0,0,"1","" 26347,70,"263",58,0,0,"0",">D" 26348,12,"",0,0,0,"13","" 26349,70,"263",56,0,0,"0",">P" 26350,12,"",0,0,0,"2","" 26351,71,"262",19,0,0,"0",">IGNORE;NOT R" 26352,96,"",0,0,2,"0","" 26353,11,"",0,0,0,"2","" 26354,84,"695",2,0,0,"0","WL=LOCN OF SECOND CHAR" 26355,10,"",0,0,0,"1","RANDO" 26356,11,"",0,0,0,"1","P" 26357,11,"",0,0,0,"1","B" 26358,11,"",0,0,0,"1","D" 26359,11,"",0,0,0,"1","A" 26360,84,"267",2,0,0,"0","SET CHECKING SWITCH" 26361,83,"263",10,0,0,"3","SET TO EXPECT ')'" 26362,76,"261",2,0,0,"0",">GET NEXT CHAR" 26400,PROCR,"264",,,,"","" 26401,NOTES,"",RADIX,,,"","" 26402,85,"267",2,0,0,"0","CHECK SWITCH" 26403,C,"261",2,0,0,"0",">A,GNC" 26404,C,"264",8,0,0,"0",">D" 26405,C,"264",17,0,0,"0",">B" 26406,C,"264",21,0,0,"0",">P" 26407,C,"264",26,0,0,"0",">R" 26408,0,"12",88,0,0,"0",";DECIMAL" 26409,30,"",0,0,0,"1-","CONTROL" 26410,12,"",0,0,0,"2","" 26411,70,"264",14,0,0,"0",">REPORT *" 26412,12,"",0,0,0,"3","" 26413,73,"261",2,0,0,"0",">OK" 26414,10,"",0,0,0,"5e","*" 26415,5,"1",44,1,0,"0","" 26416,76,"261",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000202.JPG",,,,"","RayS/Q1000202" 26417,0,"12",88,2,0,"0","BASIC BINARY" 26418,12,"",0,0,0,"t","" 26419,72,"264",14,0,0,"0","gREPORT " 26420,76,"264",8,0,0,"0","gCHECK CONTROL " 26421,0,"12",88,2,0,"0","BASIC PATTERN" 26422,70,"264",8,0,0,"0","" 26423,12,"",0,0,0,"1","" 26424,70,"264",8,0,0,"0","" 26425,76,"264",14,0,0,"0","gREPORT " 26426,,"12",88,0,0,"0","CHAR RELATIVE ADDRESS" 26427,12,"",0,0,0,"4:","" 26428,71,"264",33,0,0,"0","gNOT COLON " 26429,0,"12",66,0,0,"0","" 26430,5,"12",67,0,0,"0","12/67=REF, 12/66=ITEM " 26431,5,"12",66,0,0,"0","" 26432,76,"264",8,0,0,"0","gCHECK CONTROL " 26433,0,"12",66,0,0,"0","" 26434,30,"",0,0,0,"1","" 26435,1,"12",88,2,0,"0","ASSEMBLE REF/ITEM " 26436,5,"12",66,0,0,"0","" 26437,83,"263",10,0,0,"5","INHIBIT ANOTHER DIRECTIVE " 26438,76,"264",17,0,0,"0","gCHECK AS BINARY " 26439,12,"",0,0,0,"7e","" 26440,70,"264",48,0,0,"0","gIS ')' " 26441,0,"94",2-,0,2,"0","" 26442,12,"",0,0,0,"52","" 26443,70,"264",17,0,0,"0","LAST CHAR WAS 'B' +CHECK THIS " 26444,0,"94",3-,0,2,"0","" 26445,12,"",0,0,0,"52","" 26446,70,"264",17,0,0,"0","ONE BEFORE WAS 'B' +CHECK THIS " 26447,76,"262",19,0,0,"0","NEITHER WAS 'B' +IGNORE " 26448,86,"267",2,0,0,"0","CHECK SWITCH " 26449,124,"94",61,0,0,"0","CTR IN DIRECTIVE LINE " 26450,5,"94",62,0,0,"0","" 26451,10,"",0,0,0,"2","" 26452,4,"94",61,0,0,"0","" 26453,83,"263",10,0,0,"4","COMMA FORBIDDEN' " 26454,76,"261",2,0,0,"0","gGNC " 26500,PROCR,"265",,,,"","TIDY UP AND REASSEMBLE CONST " 26501,NOTES,"",RADIX,,,"","" 26502,10,"",0,0,0,"7:","" 26503,5,"94",0,0,2,"0","STORE END SIGN " 26504,86,"263",10,0,0,"0","DIRECTIVE SWITCH " 26505,12,"",0,0,0,"4","" 26506,72,"265",8,0,0,"0","gOK SWITCH SETTINGS " 26507,80,"295",2,0,0,"0","gIGNORE THIS CONST " 26508,,"94",60,0,0,"0","COMMAS X2 " 26509,70,"265",14,0,0,"0","" 26510,11,"",0,0,0,"2","" 26511,2,"94",61,0,0,"0","DIRECTIVE CTR " 26512,70,"265",14,0,0,"0","" 26513,80,"295",2,0,0,"0","gIGNORE THIS CONST " 26514,,"94",61,0,0,"0","DIRECTIVE CTR " 26515,12,"",0,0,0,"+","" 26516,73,"265",18,0,0,"0","gOK, NOT MORE THAN 5 " 26517,80,"295",2,0,0,"0","gIGNORE " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000203.JPG",,,,"","RayS/Q1000203" 26518,96,"",0,0,2,"0","" 26519,5,"12",70,0,0,"0","TOT NO OF CHARS" 26520,91,"",0,0,2,"0","CLEAR BOTH" 26521,91,"",0,0,3,"0","" 26522,86,"695",2,0,0,"0","" 26523,70,"265",47,0,0,"0","gNO REL ADDRESS IN CONST" 26524,91,"",0,0,1,"0","" 26525,0,"12",67,0,0,"0","REF" 26526,12,"",0,0,0,"100","" 26527,73,"265",47,0,0,"0","gSECTION" 26528,12,"",0,0,0,"899","" 26529,72,"265",47,0,0,"0","gEX RANGE" 26530,0,"12",67,0,0,"0","" 26531,80,"200",2,0,0,"0","gREPLACE PROCR" 26532,C,"202",2,0,0,"0","" 26533,,"12",119,0,0,"0","" 26534,62,"",0,0,0,"0","" 26535,32,"",0,0,0,"2-","REPLACE 3-DIGIT NUMBER" 26536,5,"94",1-,0,1,"0","(FIRST DIGIT ALWAYS ZERO)" 26537,32,"",0,0,0,"1","" 26538,71,"265",40,0,0,"0","" 26539,10,"",0,0,0,"30","" 26540,5,"94",0,0,1,"0","" 26541,32,"",0,0,0,"1","" 26542,71,"265",44,0,0,"0","" 26543,10,"",0,0,0,"30","" 26544,5,"94",1,0,1,"0","" 26545,54,"1",6,0,0,"18","" 26546,76,"265",83,0,0,"0","gASSEMBLE" 26547,0,"12",33,0,0,"0","" 26548,70,"266",17,0,0,"0","gMT" 26549,54,"1",6,0,0,"18","CLEAR 1/6'-1.22'=EDIT AREA" 26550,87,"27",10,0,0,"0","" 26551,C,"265",83,0,0,"0","gPT" 26552,C,"265",53,0,0,"0","gCARDS" 26553,,"94",61,0,0,"0","DIRECTIVE CTR" 26554,12,"",0,0,0,"4","" 26555,72,"265",72,0,0,"0","gMIXED CONSTANT" 26556,86,"267",2,0,0,"0","" 26557,12,"",0,0,0,"1","" 26558,71,"265",72,0,0,"0","gNOT ALPHA" 26559,,"94",0,0,0,"0","FIRST CHAR" 26560,12,"",0,0,0,"7t","" 26561,70,"265",63,0,0,"0","g'('" 26562,10,"",0,0,0,"3-","" 26563,11,"",0,0,0,"3","" 26564,17,"12",90,0,0,"3","LONG/SHORT CTR" 26565,11,"",0,0,0,"1.00002","END VLAUE 30" 26566,3,"12",70,0,0,"0","NEW CONSTANT LENGTH" 26567,91,"",0,0,1,"0","" 26568,10,"",0,0,0,"7:","" 26569,5,"94",0,0,1,"0","" 26570,94,"265",69,0,1,"1","gCLEAR REST OF CONSTANT" 26571,76,"265",83,0,0,"0","" 26572,90,"",0,0,1,"28","" 26573,C,"",0,0,0,"0","" 26574,,"94",0,0,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000204.JPG",,,,"","TonyJ/Q1000204" 26575,71,"265",77,0,0,"0",">FIRST NON ZERO CHAR FROM END" 26576,94,"265",74,0,1,"1-","" 26577,10,"",0,0,0,"7:","" 26578,5,"94",1,0,1,"0","SET CONST END" 26579,5,"94",29,0,0,"0","CLEAR OLD END" 26580,96,"",0,0,1,"0","" 26581,11,"",0,0,0,"1","" 26582,5,"12",70,0,0,"0","NEW NUMBERS OF CHARS" 26583,,"94",0,0,2,"0","" 26600,PROCR,"266",,266,,"","" 26601,NOTES,"",,RADIX,,"0","STORE OLD - NEW RADIX" 26602,30,"",0,0,0,"2","CTR OF CONVERT TABLES TO DATE" 26603,1,"94",1,0,2,"0","" 26604,30,"",0,0,0,"2","" 26605,1,"94",2,0,2,"0","" 26606,30,"",0,0,0,"2","" 26607,1,"94",3,0,2,"0","" 26608,30,"",0,0,0,"2","" 26609,1,"94",4,0,2,"0","" 26610,5,"1",6,1,3,"0","STORE NEXT WORD OF CONST" 26611,125,"",2,0,3,"0","" 26612,125,"",5,0,2,"0","" 26613,96,"",0,0,2,"0","" 26614,12,"",0,0,0,"1","" 26615,2,"12",70,0,0,"0","NO OF CHARS" 26616,73,"265",83,0,0,"0","> CYCLE FOR MULTIPLE OF 5" 26617,,"1",42,1,0,"0","" 26618,2,"319",26,1,0,"0","" 26619,71,"266",22,0,0,"0","> OK" 26620,80,"263",10,0,0,"0","CLEAR ALL DETAILS" 26621,76,"247",2,0,0,"0","" 26622,0,"94",61,0,0,"0","SF CTR IN DIRECTIVE LINE" 26623,12,"",0,0,0,"4","" 26624,72,"247",2,0,0,"0","> CONST IS MIXED OR CONTAINS €" 26625,90,"",0,0,1,"0","CLEAR MODIFIER" 26626,C,"",0,0,0,"0","/////" 26627,,"94",0,0,1,"0","NEXT CHAR" 26628,12,"",0,0,0,"7t","Please check I have transcribed literal OK " 26629,71,"267",2,0,0,"0"," > NOT '('" 26630,0,"94",1,0,1,"0","CHAR AFTER '('" 26631,94,"",0,0,1,"1","" 26632,12,"",0,0,0,"7e","Please check I have transcribed literal OK. As per DH email 6th March. )'" 26633,71,"266",30,0,0,"0","" 26634,94,"",0,0,1,"1","TO SELECT CHAR AFTER DIRECTIVE" 26700,PROCR,"267",,267,,"CONSTANTS SWITCH","" 26701,NOTES,"",,,,"","" 26702,85,"267",2,0,0,"0","" 26703,C,"268",2,0,0,"0","" 26704,C,"269",2,0,0,"0","" 26705,C,"270",2,0,0,"0","" 26706,C,"272",2,0,0,"0","" 26707,C,"267",8,0,0,"0","> RELATIVE ADDRESS" 26708,,"12",67,0,0,"0","REF (DEC)" 26709,12,"",0,0,0,"1000","" 26710,72,"267",28,0,0,"0","> REPORT R" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000205.JPG",,,,"","TonyJ/Q1000205" 26711,11,"",0,0,0,"£67","1000 - 99 BIN RADIX" 26712,72,"267",30,0,0,"0",">REF IS A PROCR" 26713,,"12",67,0,0,"0","SECTION IN DEC" 26714,70,"247",2,0,0,"0",">ABS ADDRESS, NO CHECKS" 26715,80,"183",2,0,0,"0",">DECODE" 26716,34,"12",40,0,0,"0","" 26717,36,"12",72,0,3,"0","" 26718,70,"267",28,0,0,"0","> SECTION NON-EXISTENT;REPORT R" 26719,10,"",0,0,0,"0","" 26720,33,"",0,0,0,"10","SHIFT COLLATOR" 26721,36,"12",72,0,3,"0","" 26722,71,"267",28,0,0,"0","> SECTION IS TX AREA;REPORT R" 26723,,"12",66,0,0,"0","ITEM" 26724,12,"",0,0,0,"8191","" 26725,73,"247",2,0,0,"0","> OK" 26726,80,"196",2,0,0,"0","> REPORT" 26727,76,"247",2,0,0,"0","" 26728,80,"195",2,0,0,"0","> REPORT R" 26729,76,"247",2,0,0,"0","" 26730,,"12",66,0,0,"0","ITEM" 26731,12,"",0,0,0,"99","" 26732,72,"267",26,0,0,"0","> REPORT 1" 26733,76,"247",2,0,0,"0","> OK" 26800,PROCR,"268",,268,,"CHECK ALPHA CONSTANTS","" 26801,NOTES,"",,,,"","" 26802,0,"12",90,0,0,"0","LONG/SHORT CONST INDICATOR" 26803,70,"268",5,0,0,"0","" 26804,10,"",0,0,0,"3","" 26805,11,"",0,0,0,"2","" 26806,98,"",0,0,1,"0","> MODIFIER = DIRECTIVE LENGTH" 26807,2,"12",70,0,0,"0","TOT CHARS IN CONST+1 (INDIRECTIVE)" 26808,72,"247",2,0,0,"0","> OK" 26809,76,"273",2,0,0,"0","> REPORT" 26900,PROCR,"269",,269,,"CHECK DECIMAL CONSTANTS","" 26901,NOTES,"",,RADIX,,"","" 26902,0,"12",90,0,0,"0","LONG/SHORT CONST INDICATOR" 26903,70,"269",5,0,0,"0","> SHORT" 26904,10,"",0,0,0,"5","" 26905,11,"",0,0,0,"5","" 26906,5,"12",67,0,0,"0","" 26907,124,"12",70,0,0,"0","CHARS IN CONST" 26908,,"94",1-,0,0,"0","FINAL BEFOR NE" 26909,12,"",0,0,0,"10","" 26910,70,"269",13,0,0,"0","> ALLOW FOR SIGN" 26911,0,"12",67,0,0,"0","" 26912,76,"268",6,0,0,"0","> CHECK" 26913,0,"12",67,0,0,"0","" 26914,11,"",0,0,0,"1","" 26915,76,"268",6,0,0,"0","> CHECK" 27000,PROCR,"270",,270,,"BINARY NUMBERS","" 27001,NOTES,"",,RADIX,,"","" 27002,90,"",0,0,2,"0","" 27003,C,"",0,0,0,"11","" 27004,,"94",0,0,1,"0","NEXT CHAR" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000206.JPG",,,,"","RayS/Q1000206" 27005,12,"",0,0,0,"7:","" 27006,70,"271",2,0,0,"0","gNUMBER END " 27007,11,"",0,0,0,"6:","" 27008,70,"271",2,0,0,"0","gMINUS SIGN " 27009,11,"",0,0,0,"10","" 27010,5,"12",10,1,0,"0","STORE CHARACTER " 27011,0,"12",66,1,0,"0","" 27012,30,"",0,0,0,"1","" 27013,1,"12",10,2,0,"0","BASIC QTT " 27014,5,"12",66,1,0,"0","ASSEMBLE CONST QTT BY QTT " 27015,94,"270",16,0,1,"1","" 27016,94,"270",4,0,2,"1","" 27017,76,"273",2,0,0,"0","gREPORT TOO MANY CHARS " 27100,PROCR,"271",,,,"","" 27101,NOTES,"",RADIX,,,"","" 27102,0,"12",90,0,0,"0","LONG/SHORT CONST IND " 27103,71,"247",2,0,0,"0","" 27104,,"12",66,1,0,"0","" 27105,12,"",0,0,0,"1048576","" 27106,72,"273",2,0,0,"0","" 27107,76,"247",2,0,0,"0","" 27200,PROCR,"272",,,,"","BINARY PATTERN " 27201,NOTES,"",RADIX,,,"","" 27202,0,"12",90,0,0,"0","LONG/SHORT CONSTANT IND " 27203,70,"272",5,0,0,"0","" 27204,10,"",0,0,0,"14","" 27205,11,"",0,0,0,"14","" 27206,76,"269",6,0,0,"0","gCHECK LENGTH VIA DEC " 27300,PROCR,"273",,,,"","ERROR REPORT " 27301,NOTES,"",RADIX,,,"","" 27302,10,"",0,0,0,"5e","" 27303,5,"1",44,1,0,"0","" 27304,76,"247",2,0,0,"0","" ,,"",,,,"","" 27400,PROCR,"274",,,,"","GET NEXT CHAR OF CONSTANT(IE NEXT WORD) " 27401,NOTES,"",RADIX,,,"","" 27402,81,"274",2,0,0,"0","" 27403,10,"",0,0,0,"0","" 27404,94,"274",13,0,3,"1","gHAVE NOT EXHAUSTED 5-CHAR WORD " 27405,94,"274",10,0,1,"2","STEP FOR NEXT WORD IF PRESENT " 27406,80,"295",2,0,0,"0","*IGNORE MORE THAN 45 CHAR " 27407,10,"",0,0,0,"7:","" 27408,32,"",0,0,0,"2-","" 27409,82,"274",2,0,0,"0","" 27410,90,"",0,0,3,"0","R3 COUNTS A 5-CHAR WORD " 27411,C,"",0,0,0,"5","" 27412,34,"1",6,1,1,"0","NEXT WORD CONSTANT " 27413,82,"274",2,0,0,"0","" 27500,PROCR,"275",,,,"","ALTERNATIVE ENTRY TO UPDATE ADDRESS " 27502,81,"275",2,0,0,"0","" 27503,5,"12",88,2,0,"0","" 27504,0,"275",2,0,0,"0","" 27505,3,"274",2,0,0,"0","SET NONZERO='NOT P' " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000207.JPG",,,,"","RayS/Q1000207" 27506,5,"208",2,0,0,"0","" 27507,76,"208",10,0,0,"0","gENTER " 27600,PROCR,"276",,,,"","" 27601,NOTES,"",RADIX,,,"","" 27602,5,"12",3,0,0,"0","CLEAR ERROR WL " 27603,90,"",0,0,2,"0","" 27604,C,"",0,0,0,"8","" 27605,0,"1",22,0,2,"0","ITEM " 27606,5,"1",10,0,0,"0","" 27607,0,"1",20,1,2,"0","REF (NUM) " 27608,80,"275",2,0,0,"0","gUPDATE ADDRESS " 27609,0,"1",10,0,0,"0","NEW ITEM " 27610,5,"1",22,0,2,"0","" 27611,0,"12",4,0,0,"0","NEW REF " 27612,5,"1",20,0,2,"0","" 27613,80,"277",2,0,0,"0","CHECK REF " 27614,,"1",19,0,0,"0","DISC " 27615,70,"276",18,0,0,"0","" 27616,,"1",10,0,0,"0","" 27617,80,"192",2,0,0,"0","gCHECK ITEM IS EVEN " 27618,94,"276",5,0,2,"4","" 27619,76,"278",2,0,0,"0","" 27700,PROCR,"277",,,,"","SR TO CHECK TABLE ADDRESSES AND VALUE ADDRESSES " 27701,NOTES,"",RADIX,,,"","" 27702,81,"277",2,0,0,"0","" 27703,83,"108",2,0,0,"1","" 27704,,"12",4,0,0,"0","REF TO BE CHECKED " 27705,12,"",0,0,0,"100","" 27706,72,"277",27,0,0,"0","gNOT SECTION " 27707,0,"12",4,0,0,"0","" 27708,73,"277",23,0,0,"0","" 27709,70,"277",18,0,0,"0","" 27710,80,"183",2,0,0,"0","gDECODE SR " 27711,34,"12",40,0,0,"0","" 27712,36,"12",72,0,3,"0","" 27713,70,"277",23,0,0,"0","gIGNORE, SECTION NONEXISTENT " 27714,33,"",0,0,0,"10","" 27715,10,"",0,0,0,"0","" 27716,36,"12",72,0,3,"0","" 27717,71,"277",23,0,0,"0","gIGNORE, SECTION IS TX AREA " 27718,0,"1",10,0,0,"0","" 27719,12,"",0,0,0,"8192","" 27720,73,"277",29,0,0,"0","" 27721,80,"196",2,0,0,"0","gREPORT I " 27722,76,"277",24,0,0,"0","" 27723,80,"195",2,0,0,"0","gREPORT R " 27724,80,"295",2,0,0,"0","gIGNORE " 27725,83,"108",2,0,0,"2","IGNORE ANY MORE 'VALTHIS REF FOR " 27726,76,"277",29,0,0,"0","" 27727,12,"",0,0,0,"900","" 27728,72,"277",23,0,0,"0","gREF>999, IGNORE " 27729,82,"277",2,0,0,"0","" 27800,PROCR,"278",,,,"","TABLE SWITCH " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000208.JPG",,,,"","RayS/Q1000208" 27801,NOTES,"",RADIX,,,,"" 27802,0,"1",19,0,0,"0","DISC " 27803,73,"282",18,0,0,"0","gREPORT T5 " 27804,12,"",0,0,0,"3","" 27805,72,"282",18,0,0,"0","" 27806,0,"1",20,0,0,"0","FIRST REF " 27807,70,"282",24,0,0,"0","gREPORT T1 " 27808,85,"278",8,0,0,"0","" 27809,C,"279",2,0,0,"0","" 27810,C,"281",2,0,0,"0","" 27811,C,"279",10,0,0,"0","gTYPE 3 " 27812,C,"281",23,0,0,"0","gTYPE 4 " 27813,C,"247",2,0,0,"0","" 27900,PROCR,"279",,,,"","TYPES 1 AND 3 " 27901,NOTES,"",RADIX,,,"","EDIT AND UNPACK FIXED " 27902,,"1",12,0,0,"0","NO OF CHARS " 27903,1,"1",14,0,0,"0","SPACES " 27904,4,"12",5,0,0,"0","TOTAL FOR TABLE " 27905,,"1",16,0,0,"0","SIGN " 27906,12,"",0,0,0,"2","" 27907,71,"279",10,0,0,"0","gNOT SEPARATE CHARACTER " 27908,10,"",0,0,0,"1","" 27909,4,"12",5,0,0,"0","STEP TOTAL " 27910,,"1",24,0,0,"0","SECOND REF " 27911,34,"1",26,0,0,"0","SECON ITEM " 27912,75,"282",22,0,0,"0","gREPORT T3 " 27913,,"1",11,0,0,"0","" 27914,71,"282",16,0,0,"0","g'UNPACK TO BE' IS SET " 27915,0,"1",19,0,0,"0","DISC " 27916,12,"",0,0,0,"1","" 27917,70,"279",19,0,0,"0","" 27918,10,"",0,0,0,"5-","" 27919,11,"",0,0,0,"10","" 27920,2,"1",12,0,0,"0","CHARS " 27921,2,"1",13,0,0,"0","DISCARDS " 27922,73,"282",14,0,0,"0","gINCONSISTENT WITH SOURCE LENGTH " 27923,1,"1",12,0,0,"0","" 27924,1,"1",13,0,0,"0","" 27925,2,"1",15,0,0,"0","ZEROS " 27926,73,"282",8,0,0,"0","gMORE ZEROS THAN SOURCE " 27927,,"1",12,0,0,"0","CHARS " 27928,2,"1",15,0,0,"0","ZEROS " 27929,73,"282",8,0,0,"0","gZEROS>NO CHARS 'T10' " 28000,PROCR,"280",,,,"","" 28001,NOTES,"",RADIX,,,"","" 28002,,"1",14,0,0,"0","" 28003,12,"",0,0,0,"16","" 28004,72,"282",10,0,0,"0","gTOO MANY SPCES " 28005,0,"1",12,0,0,"0","CHARS " 28006,70,"282",14,0,0,"0","gREPORT 'T7' " 28007,0,"1",19,0,0,"0","DISC " 28008,12,"",0,0,0,"2","" 28009,71,"280",12,0,0,"0","gNOT ALPHA " 28010,0,"1",15,0,0,"0","ZEROS " 28011,71,"282",8,0,0,"0","gREPORT 'T10' " 28012,,"1",17,0,0,"0","STERLING INDICATOR " 28013,71,"280",17,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000209.JPG",,,,"","RayS/Q1000209" 28014,2,"12",63,0,0,"0","STERLING CTR " 28015,70,"280",24,0,0,"0","" 28016,76,"280",38,0,0,"0","gREPORT 'T12' " 28017,12,"",0,0,0,"1","" 28018,71,"282",4,0,0,"0","" 28019,,"12",63,0,0,"0","" 28020,12,"",0,0,0,"2","" 28021,70,"280",23,0,0,"0","" 28022,11,"",0,0,0,"3","" 28023,5,"12",63,0,0,"0","" 28024,,"1",18,0,0,"0","LAST TABLE ENTRY " 28025,3,"12",6,0,0,"0","COPY TO WL " 28026,70,"247",2,0,0,"0","" 28027,12,"",0,0,0,"1","" 28028,71,"282",2,0,0,"0","g'T13' IF LTE WRONG " 28029,,"12",5,0,0,"0","CHARACTERS EDITED " 28030,1,"12",5,0,0,"0","" 28031,30,"",0,0,0,"9","" 28032,70,"280",35,0,0,"0","gMULT OF 5 " 28033,10,"",0,0,0,"727464","SUM' " 28034,5,"1",44,1,0,"0","" 28035,5,"12",5,0,0,"0","CLEAR STR AT EACH LTE " 28036,2,"12",63,0,0,"0","STERLING INDICATORS NOT " 28037,70,"247",2,0,0,"0","OCCURRED IN 3 CONSECUTIVE LINES" 28038,4,"12",63,0,0,"0","CLEAR COUNTER " 28039,76,"282",4,0,0,"0","ERROR REPORT T12" 28100,PROCR,"281",,,,"","CHECK TABLES " 28101,NOTES,"",RADIX,,,"","TYPES 2 AND 4 " 28102,,"1",24,0,0,"0","2ND REF " 28103,70,"281",23,0,0,"0","gIS ZERO " 28104,30,"",0,0,0,"2-","" 28105,71,"281",13,0,0,"0","g3 DIG REF " 28106,,"1",20,0,0,"0","" 28107,32,"",0,0,0,"2-","" 28108,71,"282",22,0,0,"0","g3 DIG + 2 DIG 'T3' " 28109,32,"",0,0,0,"2","" 28110,2,"1",24,0,0,"0","2ND REF " 28111,71,"282",22,0,0,"0","g2 DIG REF " 28112,76,"281",20,0,0,"0","gCHECK ITEMS " 28113,,"1",20,0,0,"0","1ST REF " 28114,32,"",0,0,0,"2-","" 28115,70,"282",22,0,0,"0","g2 DIG + 3 DIG RED (3 DIG) 'T3' " 28116,,"1",24,0,0,"0","2ND REF " 28117,2,"1",20,0,0,"0","1ST REF " 28118,73,"282",22,0,0,"0","g2ND REF <1ST REF (3 DIG) 'T3' " 28119,71,"281",23,0,0,"0","" 28120,,"1",26,0,0,"0","2ND ITEM " 28121,2,"1",22,0,0,"0","FIRST ITEM " 28122,73,"282",20,0,0,"0","g2ND <1ST 'T4' " 28123,,"1",11,0,0,"0","'SINGLE/BE' " 28124,70,"281",29,0,0,"0","" 28125,12,"",0,0,0,"1","" 28126,71,"282",16,0,0,"0","" 28127,,"1",18,0,0,"0","LAST TABLE ENTRY' " 28128,70,"282",2,0,0,"0","" 28129,,"1",12,0,0,"0","NO OF CHARS " 28130,71,"282",14,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000210.JPG",,,,"","RayS/Q1000210" 28131,,"1",13,0,0,"0","DISCARDS " 28132,71,"282",12,0,0,"0","" 28133,,"1",14,0,0,"0","SPACES " 28134,71,"282",10,0,0,"0","" 28135,,"1",15,0,0,"0","ZEROS " 28136,71,"282",8,0,0,"0","" 28137,,"1",16,0,0,"0","SIGN " 28138,70,"281",41,0,0,"0","" 28139,12,"",0,0,0,"2","" 28140,71,"282",6,0,0,"0","" 28141,,"1",17,0,0,"0","STERLING IND " 28142,71,"282",4,0,0,"0","" 28143,76,"247",2,0,0,"0","" 28200,PROCR,"282",,,,"","MAKE REPORT 'T*' " 28201,NOTES,"",RADIX,,,"","" 28202,10,"",0,0,0,"1","" 28203,5,"12",3,0,0,"0","" 28204,10,"",0,0,0,"1","" 28205,4,"12",3,0,0,"0","" 28206,10,"",0,0,0,"1","" 28207,4,"12",3,0,0,"0","" 28208,10,"",0,0,0,"1","" 28209,4,"12",3,0,0,"0","" 28210,10,"",0,0,0,"1","" 28211,4,"12",3,0,0,"0","" 28212,10,"",0,0,0,"1","" 28213,4,"12",3,0,0,"0","" 28214,10,"",0,0,0,"1","" 28215,4,"12",3,0,0,"0","" 28216,10,"",0,0,0,"1","" 28217,4,"12",3,0,0,"0","" 28218,10,"",0,0,0,"1","" 28219,4,"12",3,0,0,"0","" 28220,10,"",0,0,0,"1","" 28221,4,"12",3,0,0,"0","" 28222,10,"",0,0,0,"2","" 28223,4,"12",3,0,0,"0","" 28224,10,"",0,0,0,"1","" 28225,1,"12",3,0,0,"0","" 28226,5,"12",88,0,0,"0","" 28227,52,"1",44,0,0,"0","" 28228,C,"306",6,0,0,"0","" 28229,10,"",0,0,0,"730000","" 28230,4,"1",44,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000211.JPG",,,,"","RayS/Q1000211" 28231,76,"247",2,0,0,"0","" 28300,PROCR,"283",,,,"","UNPACK PAPER TAPE PART ONE-DIRECTIVES " 28301,NOTES,"",RADIX,,,"","" 28302,81,"283",2,0,0,"0","" 28303,54,"1",0,1,0,"46","" 28304,,"12",38,0,0,"0","" 28305,70,"285",2,0,0,"0","NOT A DIRECTIVE " 28306,87,"27",10,0,0,"0","" 28307,C,"283",9,0,0,"0","" 28308,C,"283",31,0,0,"0","CARDS " 28309,0,"92",30,0,0,"0","AMEND RUN? " 28310,70,"283",13,0,0,"0","" 28311,124,"311",2,0,2,"0","" 28312,76,"283",14,0,0,"0","" 28313,124,"311",4,0,2,"0","" 28314,80,"326",2,0,0,"0","UNPACK P/T S/DIR " 28315,0,"27",5,0,0,"0","" 28316,12,"",0,0,0,"2","" 28317,71,"283",28,0,0,"0","gNOT TABLE " 28318,0,"12",38,0,0,"0","" 28319,73,"283",28,0,0,"0","gNOT 'NOTES' OF TABLE " 28320,10,"",0,0,0,"0","S/DIR WAS 'NOTES' OF TABLE " 28321,5,"1",8,1,0,"0","& MUST BE UNPACKED DIFFERENTLY " 28322,0,"92",30,0,0,"0","" 28323,70,"283",26,0,0,"0","gINITIAL TRANSLATION " 28324,124,"311",10,0,2,"0","" 28325,76,"283",27,0,0,"0","" 28326,124,"311",12,0,2,"0","" 28327,80,"326",2,0,0,"0","UNPACK CORRECTLY " 28328,10,"",0,0,0,"0","" 28329,5,"1",44,1,0,"0","CLEAR ERROR WL " 28330,82,"283",2,0,0,"0","" 28331,50,"9",8,0,0,"0","UNPACK S/DIR FROM CARD " 28332,C,"311",4,0,0,"0","" 28333,55,"9",18,1,0,"16","" 28334,C,"1",18,1,0,"0","" 28335,0,"1",8,1,0,"0","" 28336,30,"",0,0,0,"4","LEFT ALIGN SECTION NO " 28337,5,"1",8,1,0,"0","" 28338,0,"12",38,0,0,"0","" 28339,73,"283",28,0,0,"0","NOT 'NOTES' " 28340,,"27",5,0,0,"0","" 28341,12,"",0,0,0,"1","" 28342,71,"283",28,0,0,"0","gNOT 'PROCR';LEAVE SR " 28343,0,"1",18,1,0,"0","S/DIR WAS ''NOTES'' OF PROCR " 28344,5,"1",8,1,0,"0","MOVE ''RADIX'' " 28345,55,"9",20,1,0,"16","COPY WORDS " 28346,C,"1",18,1,0,"0","" 28347,82,"283",2,0,0,"0","" 28400,PROCR,"284",,,,"","UNPACK OFF MAGNETIC TAPE-ONE RECORD PER BLOCK " 28401,NOTES,"",RADIX,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000212.JPG",,,,"","RayS/Q1000212" 28402,81,"284",2,0,0,"0","" 28403,54,"1",6,1,0,"40","" 28404,,"27",1,0,0,"0","" 28405,71,"304",2,0,0,"0","gMULTI-RECORD BLOCKS " 28406,,"12",38,0,0,"0","" 28407,70,"284",21,0,0,"0","gNOT DIRECTIVE " 28408,50,"7",4,0,0,"0","" 28409,C,"307",2,0,0,"0","" 28410,,"12",86,0,0,"0","" 28411,70,"284",18,0,0,"0","" 28412,,"27",5,0,0,"0","" 28413,12,"",0,0,0,"1","" 28414,70,"284",46,0,0,"0","g'PROCR' " 28415,0,"7",20,1,0,"0","" 28416,5,"1",16,1,0,"0","COPY TABLE OR CONST TYPE " 28417,76,"284",46,0,0,"0","" 28418,55,"7",20,1,0,"30","" 28419,C,"1",16,1,0,"0","" 28420,76,"284",45,0,0,"0","" 28421,87,"27",5,0,0,"0","" 28422,C,"284",31,0,0,"0","g'PROCR' " 28423,C,"284",34,0,0,"0","g'TABLE' " 28424,C,"284",37,0,0,"0","g'CONST' " 28425,C,"284",26,0,0,"0","VALUE'=4 " 28426,55,"7",8,2,0,"36","R, I+VALUES " 28427,C,"1",9,0,0,"0","" 28428,55,"7",44,2,0,"6","ANNOTATION " 28429,C,"1",40,2,0,"0","" 28430,82,"284",2,0,0,"0","" 28431,50,"7",4,0,0,"0","INSTRUCTIONS " 28432,C,"308",2,0,0,"0","" 28433,76,"284",41,0,0,"0","" 28434,50,"7",4,0,0,"0","" 28435,C,"309",2,0,0,"0","UNPACK TABLE ENTRIES. " 28436,76,"284",41,0,0,"0","" 28437,55,"7",12,1,0,"18","CONSTANTS " 28438,C,"1",6,1,0,"0","" 28439,,"7",4,2,0,"0","AMEND IND " 28440,5,"1",0,1,0,"0","" 28441,,"12",86,0,0,"0","" 28442,71,"284",46,0,0,"0","" 28443,55,"7",32,1,0,"18","" 28444,C,"1",28,1,0,"0","" 28445,5,"1",44,1,0,"0","CLEAR ERROR INDICATOR" 28446,82,"284",2,0,0,"0","" 28500,PROCR,"285",,,,"","" 28501,NOTES,"",RADIX,,,"","" 28502,87,"27",5,0,0,"0","" 28503,C,"286",2,0,0,"0","g'PROCR' " 28504,C,"286",9,0,0,"0","g'TABLE' " 28505,C,"286",14,0,0,"0","g'CONST' " 28506,C,"283",28,0,0,"0","VALUE' (DUMMY) " ,,"",,,,"","" 28600,PROCR,"286",,,,"","" 28601,NOTES,"",RADIX,,,"","" 28602,124,"312",2,0,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000213.JPG",,,,"","RayS/Q1000213" 28603,80,"326",2,0,0,"0","gINSTRUCTIONS " 28604,10,"",0,0,0,"0","" 28605,5,"1",20,1,0,"0","CLEAR 'CLEO' WORD " 28606,87,"27",10,0,0,"0","" 28607,C,"286",38,0,0,"0","P/T INSTRUCTIONS " 28608,C,"286",19,0,0,"0","CARD INSTRUCTIONS " 28609,124,"313",2,0,2,"0","" 28610,80,"326",2,0,0,"0","gTABLE ENTRIES " 28611,87,"27",10,0,0,"0","" 28612,C,"283",28,0,0,"0","" 28613,C,"286",35,0,0,"0","TABLE ENTRY FROM CARD " 28614,124,"314",2,0,2,"0","" 28615,80,"326",2,0,0,"0","gCONSTANTS " 28616,87,"27",10,0,0,"0","" 28617,C,"286",47,0,0,"0","P/T CONST " 28618,C,"286",39,0,0,"0","CARD CONST " 28619,62,"",0,0,0,"0","" 28620,,"1",8,1,0,"0","REF ALPHA E-ALIGNED " 28621,32,"",0,0,0,"4-","TEST TOP CHAR" 28622,12,"",0,0,0,"10","" 28623,70,"286",26,0,0,"0","g't' FIRST WAY " 28624,12,"",0,0,0,"3t","" 28625,71,"286",27,0,0,"0","gNOT 't' OTHER WAY " 28626,10,"",0,0,0,"40.6","" 28627,11,"",0,0,0,"4t","" 28628,60,"",0,0,0,"0","" 28629,32,"",0,0,0,"6-","R-ALIGN IN B " 28630,80,"300",2,0,0,"0","LEFT ALIGN " 28631,5,"1",8,1,0,"0","REF ALPHA E-ALIGNED " 28632,34,"1",6,1,0,"0","" 28633,80,"300",2,0,0,"0","LEFT ALIGN " 28634,5,"1",6,1,0,"0","ACTION " 28635,,"9",4,1,0,"0","LINE SERIAL " 28636,5,"1",2,1,0,"0","" 28637,80,"298",2,0,0,"0","gUNPACK ANNOTATION " 28638,76,"283",28,0,0,"0","" 28639,,"9",4,1,0,"0","LINE SERIAL " 28640,5,"1",2,1,0,"0","" 28641,80,"298",2,0,0,"0","gUNPACK ANNOTATION " 28642,10,"",0,0,0,"7:","" 28643,35,"",0,0,0,"11","" 28644,32,"",0,0,0,"8","" 28645,37,"9",18,1,0,"0","IN 36-TH CHAR POSN " 28646,37,"9",6,1,0,"0","IN 6-TH CHAR POSN " 28647,50,"9",4,0,0,"0","" 28648,C,"310",8,0,0,"0","" 28649,76,"283",28,0,0,"0","" 28700,PROCR,"287",,,,"","TEST WORD IN ACCUMULATOR " 28701,NOTES,"",RADIX,,,"","IS A STACKING DIRECTIVE " 28702,81,"287",2,0,0,"0","" 28703,2,"319",4,1,0,"0","'CONST' " 28704,73,"287",35,0,0,"0","gNOT DIRECTIVE " 28705,70,"287",28,0,0,"0","" 28706,1,"319",4,1,0,"0","" 28707,2,"319",12,1,0,"0","'NOTES' " 28708,71,"287",14,0,0,"0","" 28709,,"27",5,0,0,"0","" 28710,12,"",0,0,0,"3","" 28711,70,"287",35,0,0,"0","gNOTES FOLLOWING 'CONST'-NOT DIRECTIVE " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000214.JPG",,,,"","RayS/Q1000214" 28712,10,"",0,0,0,"10","SET (12/38)>0 " 28713,76,"287",33,0,0,"0","" 28714,1,"319",12,1,0,"0","'NOTES' " 28715,2,"319",6,1,0,"0","'PROCR' " 28716,70,"287",30,0,0,"0","gYES " 28717,73,"287",35,0,0,"0","gNOT A DIRECTIVE " 28718,1,"319",6,1,0,"0","'PROCR' " 28719,2,"319",2,1,0,"0","'TABLE' " 28720,70,"287",29,0,0,"0","gYES " 28721,73,"287",35,0,0,"0","gNOT A DIRECTIVE " 28722,1,"319",2,1,0,"0","'TABLE' " 28723,2,"319",28,1,0,"0","'VALUE' " 28724,71,"287",35,0,0,"0","gHENCE NOT A DIRECTIVE " 28725,,"12",33,0,0,"0","" 28726,71,"287",35,0,0,"0","gPT IN, 'VALUE' ISNT A DIRECTIVE " 28727,10,"",0,0,0,"1","" 28728,11,"",0,0,0,"1","(CONST) " 28729,11,"",0,0,0,"1","(TABLE) " 28730,11,"",0,0,0,"1","(PROCR) " 28731,5,"27",5,0,0,"0","" 28732,12,"",0,0,0,"10","" 28733,5,"12",38,0,0,"0","SET<0 IF PROCR/TABLE/CONST/VALUE " 28734,82,"287",2,0,0,"0","" 28735,10,"",0,0,0,"0","" 28736,5,"12",38,0,0,"0","" 28737,82,"287",2,0,0,"0","" 28800,PROCR,"288",,,,"","SQUASH NEXT RECORD IN SEC 29, COPY TO 8, WRITE 8 IF FULL " 28801,NOTES,"",RADIX,,,"","" 28802,81,"288",2,0,0,"0","" 28803,,"12",110,0,0,"0","" 28804,70,"288",11,0,0,"0","" 28805,,"12",111,0,0,"0","CARD SER ERROR " 28806,70,"288",10,0,0,"0","gNO ERROR " 28807,124,"319",22,0,1,"0","" 28808,124,"305",10,0,1,"0","" 28809,5,"29",0,1,0,"0","WRONG SERIAL TO ERROR REPORT WORD " 28810,5,"12",110,0,0,"0","" 28811,90,"",0,0,1,"44","" 28812,C,"",0,0,0,"2","" 28813,,"29",2-,1,1,"0","LAST WORD " 28814,70,"288",17,0,0,"0","" 28815,2,"319",10,1,0,"0","" 28816,71,"288",18,0,0,"0","" 28817,94,"288",13,0,1,"2-","" 28818,96,"",0,0,1,"0","CONTENTS OF MODIFIER " 28819,3,"29",0,2,0,"0","REC LENGTH " 28820,10,"",0,0,0,"90","TOTAL ROOM SEC 8 " 28821,2,"318",12,0,0,"0","" 28822,2,"29",0,2,0,"0","CURRENT RECORD LENGTH " 28823,72,"288",32,0,0,"0","g+VE OR ZERO " 28824,,"318",12,0,0,"0","" 28825,3,"8",4,2,0,"0","BLOCK LENGTH " 28826,91,"318",12,0,1,"0","" 28827,,"319",10,1,0,"0","BE WORD " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000215.JPG",,,,"","RayS/Q1000215" 28828,5,"8",6,1,1,"0","" 28829,80,"290",2,0,0,"0","gWRITE " 28830,54,"8",4,1,0,"46","" 28831,5,"318",12,0,0,"0","" 28832,10,"",0,0,0,"6","" 28833,5,"12",2,0,0,"0","" 28834,91,"318",12,0,1,"0","" 28835,55,"29",0,1,0,"0","COPY TO SEC 8 " 28836,C,"8",6,1,1,"0","" 28837,C,"29",0,2,0,"0","" 28838,,"29",0,2,0,"0","" 28839,4,"318",12,0,0,"0","STEP QTTY IN BLOCK TO DATE " 28840,54,"29",0,1,0,"44","CLEAR SEC 29 " 28841,82,"288",2,0,0,"0","" 28900,PROCR,"289",,,,"","" 28902,81,"289",2,0,0,"0","" 28903,0,"319",10,1,0,"0","" 28904,5,"8",50,1,0,"0","" 28905,80,"290",2,0,0,"0","" 28906,54,"8",4,1,0,"46","" 28907,82,"289",2,0,0,"0","" 29000,PROCR,"290",,,,"","" 29002,81,"290",2,0,0,"0","" 29003,43,"A2",0,0,0,"0","" 29004,C,"8",0,0,0,"0","" 29005,82,"290",2,0,0,"0","" 29100,PROCR,"291",,,,"","READ B/FWD MT FILE " 29102,81,"291",2,0,0,"0","" 29103,42,"A1",0,0,0,"0","" 29104,C,"7",0,0,0,"0","" 29105,82,"291",2,0,0,"0","" 29200,PROCR,"292",,,,"","INPUT OFF PAPER TAPE " 29201,NOTES,"",RADIX,,,"","" 29202,81,"292",2,0,0,"0","" 29203,80,"301",2,0,0,"0","gREAD A6 " 29204,87,"27",10,0,0,"0","" 29205,C,"292",13,0,0,"0","" 29206,C,"292",7,0,0,"0","CARDS-CHECK CARD SER " 29207,,"9",34,2,0,"0","" 29208,2,"12",111,0,0,"0","PREVIOUS SER " 29209,4,"12",111,0,0,"0","STORE THIS SER " 29210,12,"",0,0,0,"1","" 29211,5,"12",110,0,0,"0","STORE ANY ERROR " 29212,5,"9",34,1,0,"0","" 29213,,"9",4,1,0,"0","" 29214,2,"319",24,1,0,"0","'SHEET' " 29215,71,"292",34,0,0,"0","" 29216,124,"306",8,0,2,"0","" 29217,80,"326",2,0,0,"0","UNPACK " 29218,34,"12",88,1,0,"0","SHEET NO " 29219,80,"321",2,0,0,"0","" 29220,0,"12",88,2,0,"0","" 29221,2,"12",92,0,0,"0","PREVIOUS SER " 29222,4,"12",92,0,0,"0","REPLACE BY CURRENT " 29223,12,"",0,0,0,"1","CHECK SEQUENCE " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000216.JPG",,,,"","RayS/Q1000216" 29224,70,"292",3,0,0,"0","gCORRECT " 29225,0,"319",24,1,0,"0","'SHEET'' " 29226,124,"319",22,0,1,"0","" 29227,124,"305",2,0,1,"0","" 29228,5,"29",14,1,0,"0","" 29229,0,"12",88,1,0,"0","WRONG NUMBER " 29230,124,"319",22,0,1,"0","" 29231,124,"305",10,0,1,"0","" 29232,5,"29",0,1,0,"0","" 29233,76,"292",3,0,0,"0","" 29234,,"9",4,1,0,"0","" 29235,2,"319",46,1,0,"0","'TRAMD' " 29236,70,"292",49,0,0,"0","gDON'T INSERT BE " 29237,34,"9",48,2,0,"0","" 29238,10,"",0,0,0,"0","" 29239,32,"",0,0,0,"7","" 29240,5,"320",42,1,0,"0","WORD CTR " 29241,91,"320",42,0,1,"0","" 29242,32,"",0,0,0,"3","" 29243,5,"288",2,0,0,"0","COL POSN+WL " 29244,35,"",0,0,0,"11","" 29245,10,"",0,0,0,"7.","" 29246,124,"288",2,0,1,"0","" 29247,32,"",0,0,0,"0","///// " 29248,37,"9",0,1,1,"0","" 29249,82,"292",2,0,0,"0","" 29300,PROCR,"293",,,,"","TEST AMENDMENT IS A STACKING DIRECTIVE " 29301,NOTES,"",RADIX,,,"","" 29302,81,"293",2,0,0,"0","" 29303,54,"1",0,1,0,"8","" 29304,87,"27",10,0,0,"0","" 29305,C,"293",13,0,0,"0","" 29306,C,"293",7,0,0,"0","CARDS " 29307,50,"9",8,0,0,"0","" 29308,C,"311",4,0,0,"0","" 29309,0,"1",8,1,0,"0","" 29310,30,"",0,0,0,"4","" 29311,5,"1",8,1,0,"0","L-ALIGN PROCR NUMBER " 29312,76,"293",15,0,0,"0","" 29313,124,"311",2,0,2,"0","" 29314,80,"326",2,0,0,"0","" 29315,,"1",6,1,0,"0","" 29316,80,"287",2,0,0,"0","gTEST DIRECTIVE " 29317,82,"293",2,0,0,"0","" 29400,PROCR,"294",,,,"","TEST FOR MOD END SIGN " 29401,NOTES,"",RADIX,,,"","OR DIRECTIVE " 29402,81,"294",4,0,0,"0","" 29403,,"9",4,1,0,"0","" 29404,30,"",0,0,0,"4-","" 29405,30,"",0,0,0,"4","" 29406,2,"319",14,1,0,"0","'END ' " 29407,70,"294",11,0,0,"0","" 29408,,"9",4,1,0,"0","" 29409,2,"319",46,1,0,"0","'TRAMD' " 29410,71,"294",13,0,0,"0","" 29411,10,"",0,0,0,"100000","" 29412,76,"294",39,0,0,"0","" 29413,10,"",0,0,0,"0","CLEAR LOCATION TO WHICH" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000217.JPG",,,,"","ChuckK/Q1000217" 29414,5,"1",4,1,0,"0","AMENDMENT DIRECTIVE IS UNPACKED" 29415,124,"311",10,0,2,"0","" 29416,80,"326",2,0,0,"0",">UNPACK AMEND LETTER" 29417,87,"27",10,0,0,"0","" 29418,C,"294",22,0,0,"0","P/T" 29419,C,"294",20,0,0,"0","CARDS" 29420,34,"1",6,1,0,"0","" 29421,76,"294",23,0,0,"0","" 29422,34,"1",4,1,0,"0","" 29423,10,"",0,0,0,"0","" 29424,32,"",0,0,0,"2","" 29425,12,"",0,0,0,"69","" 29426,70,"294",36,0,0,"0","" 29427,11,"",0,0,0,"15","" 29428,70,"294",35,0,0,"0","" 29429,12,"",0,0,0,"19","" 29430,70,"294",34,0,0,"0","" 29431,11,"",0,0,0,"22","" 29432,71,"294",41,0,0,"0","" 29433,10,"",0,0,0,"1","" 29434,11,"",0,0,0,"1","" 29435,11,"",0,0,0,"1","" 29436,11,"",0,0,0,"1","" 29437,84,"252",2,0,0,"0","" 29438,10,"",0,0,0,"1","" 29439,3,"12",44,1,0,"0","" 29440,82,"294",2,0,0,"0","" 29441,10,"",0,0,0,"0","" 29442,76,"294",39,0,0,"0","" 29500,PROCR,"295",,,,"","IGNORE THIS INSTRUCTION" 29501,NOTES,"",RADIX,,,"","" 29502,81,"295",2,0,0,"0","" 29503,,"319",26,1,0,"0","IGNORE INDICATOR" 29504,5,"1",42,1,0,"0","" 29505,82,"295",2,0,0,"0","" 29600,PROCR,"296",,,,"","IGNORE PREVIOUS INSTRUCTION" 29601,NOTES,"",RADIX,,,"","" 29602,81,"296",2,0,0,"0","" 29603,,"319",26,1,0,"0","" 29604,124,"319",22,0,1,"0","" 29605,124,"305",2,0,1,"0","" 29606,5,"29",14,1,0,"0","" 29607,82,"296",2,0,0,"0","" 29700,PROCR,"297",,,,"","gANNOTATION IF CARD" 29701,NOTES,"",RADIX,,,"","" 29702,81,"297",2,0,0,"0","" 29703,10,"",0,0,0,"p","" 29704,87,"27",10,0,0,"0","" 29705,C,"297",8,0,0,"0","P/T" 29706,C,"297",7,0,0,"0","CARDS" 29707,80,"298",2,0,0,"0","BULK COPY WORDS-THUS SETTING (A)=0" 29708,82,"297",2,0,0,"0","" 29800,PROCR,"298",,,,"","BULK COPY ANNOTATION" 29801,NOTES,"",RADIX,,,"","" 29802,81,"298",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000218.JPG",,,,"","ChuckK/Q1000218" 29803,55,"9",18,1,0,"16","" 29804,C,"1",28,1,0,"0","" 29805,82,"298",2,0,0,"0","" 29900,PROCR,"299",,,,"","TEST END SIGN ON MAG TAPE" 29901,NOTES,"",RADIX,,,"","" 29902,81,"299",2,0,0,"0","" 29903,,"27",1,0,0,"0","" 29904,70,"299",7,0,0,"0",">1 RECORD PER BLOCK" 29905,,"",6,1,8,"0","" 29906,76,"299",8,0,0,"0","" 29907,0,"7",10,1,0,"0","" 29908,2,"319",14,1,0,"0","" 29909,70,"322",2,0,0,"0","" 29910,1,"319",14,1,0,"0","" 29911,2,"319",16,1,0,"0"," 'DUMPS'" 29912,70,"322",2,0,0,"0","" 29913,1,"319",16,1,0,"0","" 29914,2,"319",18,1,0,"0"," 'FILES'" 29915,70,"322",2,0,0,"0","" 29916,82,"299",2,0,0,"0","" 30000,PROCR,"300",,,,"","LEFT ALIGN SUBROUTINE" 30001,NOTES,"",RADIX,,,"D","" 30002,81,"300",2,0,0,"0","DATA IN B" 30003,10,"",0,0,0,"0","" 30004,74,"300",8,0,0,"0","ZERO NUMBER?" 30005,32,"",0,0,0,"2","" 30006,70,"300",5,0,0,"0","" 30007,32,"",0,0,0,"8","LEFT ALIGN IN A" 30008,82,"300",2,0,0,"0","" 30100,PROCR,"301",,,,"","" 30102,81,"301",2,0,0,"0","" 30103,42,"A6",0,0,0,"0","" 30104,C,"9",0,0,0,"0","" 30105,82,"301",2,0,0,"0","" 30200,PROCR,"302",,,,"","STEP MR.TEST END OF BLOCK" 30202,81,"302",2,0,0,"0","" 30203,,"27",1,0,0,"0","" 30204,70,"302",13,0,0,"0",">1 RECORD PER BLOCK" 30205,,"",0,2,8,"0","CURRENT RECORD LENGTH" 30206,5,"291",2,0,0,"0","WL" 30207,97,"291",2,0,8,"0","" 30208,C,"302",12,0,0,"0",">BLOCK NOT EMPTY" 30209,80,"291",2,0,0,"0",">READ A1" 30210,59,"7",6,0,8,"0","" 30211,C,"7",4,2,0,"0","" 30212,82,"302",2,0,0,"0","" 30213,80,"291",2,0,0,"0",">READ A1" 30214,82,"302",2,0,0,"0","" 30300,PROCR,"303",,,,"","TEST MT=STACK DIRECTIVE" 30302,81,"303",2,0,0,"0","" 30303,,"27",1,0,0,"0","" 30304,70,"303",8,0,0,"0","" 30305,,"",6,1,8,"0","" 30306,80,"287",2,0,0,"0","" 30307,82,"303",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000219.JPG",,,,"","ChuckK/Q1000219" 30308,,"7",10,1,0,"0","" 30309,76,"303",6,0,0,"0","" 30400,PROCR,"304",,,,"","UNPACK MT-MULTIRECORD BLOCKS" 30402,62,"",0,0,0,"0","" 30403,54,"28",0,1,0,"46","" 30404,,"12",38,0,0,"0","" 30405,70,"304",37,0,0,"0",">NOT DIRECTIVE" 30406,,"",0,2,8,"0","" 30407,30,"",0,0,0,"5","" 30408,98,"",0,0,8,"0","" 30409,128,"28",0,1,1,"0","COPY DIRECTIVE+LENGTH WORD" 30410,50,"28",2,0,0,"0","UNPACK" 30411,C,"307",16,0,0,"0"," " 30412,,"27",5,0,0,"0","" 30413,12,"",0,0,0,"1","" 30414,71,"304",19,0,0,"0",">NOT'PROCR'" 30415,,"12",38,0,0,"0","" 30416,73,"304",19,0,0,"0",">NOT NOTES OF PROCR" 30417,,"28",12,1,0,"0","" 30418,5,"1",8,1,0,"0","COPY 'RADIX'" 30419,,"12",86,0,0,"0","" 30420,70,"304",34,0,0,"0",">NOT 'REPLACE ANNOTATION'" 30421,,"27",5,0,0,"0","" 30422,12,"",0,0,0,"1","" 30423,70,"304",29,0,0,"0",">PROCR,TEST NOTES" 30424,12,"",0,0,0,"1","" 30425,71,"304",31,0,0,"0",">CONST" 30426,,"12",38,0,0,"0","" 30427,72,"304",52,0,0,"0",">NOTES OF TABLE" 30428,76,"304",31,0,0,"0",">NOT TABLE NOTES" 30429,,"12",38,0,0,"0","" 30430,73,"304",52,0,0,"0",">NOT NOTES OF PROCR" 30431,,"28",14,1,0,"0","" 30432,5,"1",16,1,0,"0","CONST/TABLE TYPE OR RADIX LETTER" 30433,76,"304",52,0,0,"0","" 30434,55,"28",14,1,0,"26","ANNOTATION ETC EVEN IF ABSENT" 30435,C,"1",16,1,0,"0","" 30436,76,"304",52,0,0,"0","" 30437,,"27",5,0,0,"0","" 30438,12,"",0,0,0,"4","" 30439,70,"304",66,0,0,"0",">VALUES" 30440,,"",0,2,8,"0","" 30441,3,"320",42,0,0,"0","LENGTH" 30442,124,"27",5,0,1,"0","" 30443,2,"305",2,0,0,"0","(MAX DATA LENGTH*2)" 30444,72,"304",54,0,0,"0",">RECORD HAS ANNOTATION" 30445,,"320",42,0,0,"0","" 30446,30,"",0,0,0,"5","" 30447,98,"",0,0,8,"0","DATA START" 30448,128,"28",0,1,1,"0","COPY RECORD" 30449,124,"27",5,0,1,"0","" 30450,,"305",6,0,0,"0","" 30451,128,"28",2,0,2,"0","UNPACK-SEC1" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000220.JPG",,,,"","RayS/Q1000220" 30452,60,"",0,0,0,"0","" 30453,82,"284",2,0,0,"0","" 30454,5,"320",43,0,0,"0","ANNOTATION LENGTH ANNOTATED DATA" 30455,,"12",86,0,0,"0","" 30456,71,"304",63,0,0,"0","gJUST HERE TO UNPACK NUMBERS " 30457,,"320",43,0,0,"0","" 30458,30,"",0,0,0,"5","" 30459,98,"",0,0,8,"0","" 30460,124,"27",5,0,1,"0","" 30461,1,"305",2,0,0,"0","DATA LENGTH+2 " 30462,128,"1",28,1,1,"0","COPY ANNOTATION " 30463,124,"27",5,0,1,"0","" 30464,,"305",2,0,0,"0","" 30465,76,"304",46,0,0,"0","gUNPACK NUMBERS " 30466,,"",0,2,8,"0","LENGTH VALUES" 30467,12,"",0,0,0,"6","" 30468,30,"",0,0,0,"5","" 30469,98,"",0,0,8,"0","START " 30470,11,"",0,0,0,"7","" 30471,128,"1",9,1,0,"0","ALPHA+NUM " 30472,76,"304",52,0,0,"0","gEXIT " 30500,CONST,"305",,0,,"","FOR UNPACKING MULTIRECORD MT " 30502,,"(B)24;",,,,"","DIRECTIVES-ANNOTATION " 30503,,"24;",,,,"","ORDER LENGTH+2 " 30504,,"24;",,,,"","TABLE " 30505,,"28;",,,,"","CONSTANT " 30506,,"28;",,,,"","VALUES " 30507,,"(R)308:0;",,,,"","UNPACK ORDERS " 30508,,"309:0;",,,,"","UNPACK TABLES " 30509,,"310:0;",,,,"","UNPACK CONSTANTS " 30510,,"(B)12;",,,,"","DIRECTIVES-PASS 1 REPORTS " 30511,,"22;",,,,"","ORDERS " 30512,,"22;",,,,"","TABLE " 30513,,"26;",,,,"","CONSTANT " 30514,,"42;",,,,"","VALUES " ,,"",,,,"","" 30600,TABLE,"306",306,1,,"","'INDEX' LINE " 30601,NOTES,,,,,,,,,,,,,"" 30602,12,4,0,0,0,0,3,2,0,2,0,0,0,"TO REPLACE CODERS REF" 30604,92,8,0,0,0,0,2,0,0,2,0,0,1,"" 30606,12,88,0,0,0,0,5,0,0,5,0,0,1,"" 30608,12,88,0,0,2,0,5,0,0,0,0,0,0,"'SHEET '" 30610,12,88,0,0,2,0,5,0,0,0,0,0,1,"SHEET NUMBER" 30700,TABLE,307,307,1,,,EDIT STACKING DIRECTIVE,,,,,,,"" 30701,NOTES,,,,,,,,,,,,,"" 30702,1,0,0,0,0,0,5,0,0,5,0,0,0,"AMEND IND" 30704,1,2,0,0,2,0,5,0,0,0,0,0,0,"'PROCR'/TABLE/CONST' ETC" 30706,92,35,0,0,0,0,5,0,0,5,0,0,0,"" 30708,1,6,0,0,2,0,5,0,0,0,0,0,0,"TYPE" 30710,92,34,0,0,1,0,10,0,0,10,0,0,0,"" 30712,1,8,0,0,2,0,5,0,0,0,0,0,0,"NEW PROCR NUMBER" 30714,1,14,0,0,0,0,5,0,0,4,0,0,1,"PREVIOUS PROCR NUMBER" 30716,1,0,0,0,0,0,5,0,0,5,0,0,0,"AMEND IND-----MULTIREC BLOX" 30718,1,2,0,0,2,0,5,0,0,0,0,0,0,"LINE SERIAL" 30720,1,6,0,0,2,0,5,0,0,0,0,0,0,"'PROCR' ETC" 30722,1,8,0,0,2,0,5,0,0,0,0,0,0,"CURRENT PROCR" 30724,1,14,0,0,0,0,5,0,0,5,0,0,1,"PREVIOUS PROCR" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000221.JPG",,,,"","RayS/Q1000221" 30800,TABLE,"308",308,3,,"","EDIT INSTRUCTIONS" 30801,NOTES,,,,,,,,,,,,,"" 30802,1,0,0,0,0,0,5,0,0,5,0,0,0,"AMEND IND" 30804,1,2,0,0,2,0,5,0,0,0,0,0,0,"LINE SERIAL" 30806,1,6,0,0,2,0,5,0,0,0,0,0,0,"ACTION" 30808,1,8,0,0,2,0,5,0,0,0,0,0,0,"REF" 30810,1,10,0,0,1,0,5,5,0,5,1,0,0,"ITEM +/-" 30812,1,12,0,0,0,0,2,3,0,2,0,0,0,"DISC" 30814,1,14,0,0,0,0,3,2,0,3,0,0,0,"MODIFIER" 30816,1,16,0,0,1,0,10,0,0,10,1,0,0,"LITERAL +/-" 30818,1,20,0,0,2,0,5,0,0,0,0,0,0,"'CLEO' PARA WORD" 30820,1,22,0,0,0,0,5,0,0,5,0,0,1,"PREVIOUS PROCR NO" ,,,,,,,,,,,,,,"" 30900,TABLE,309,309,1,,,EDIT TABLE ENTRIES,,,,,,,"" 30901,NOTES,,,,,,,,,,,,,"" 30902,1,0,0,0,0,0,5,0,0,5,0,0,0,"AMEND IND" 30904,1,2,0,0,2,0,5,0,0,0,0,0,0,"" 30906,1,20,0,0,0,0,5,0,0,5,0,0,0,"FIRST REF" 30908,1,22,0,0,0,0,5,0,0,5,0,0,0,"FIRST ITEM" 30910,1,24,0,0,0,0,5,0,0,5,0,0,0,"SECOND REF" 30912,1,26,0,0,0,0,5,0,0,5,0,0,0,"SECOND ITEM" 30914,1,19,0,0,0,0,2,3,0,2,0,0,0,"DISC" 30916,1,11,0,0,0,0,3,2,0,3,0,0,0,"SINGLE/TO BE" 30918,1,12,0,0,0,0,2,3,0,2,0,0,0,"NO" 30920,1,13,0,0,0,0,3,2,0,3,0,0,0,"DISCARDED" 30922,1,14,0,0,0,0,2,3,0,2,0,0,0,"SPACES" 30924,1,15,0,0,0,0,3,2,0,3,0,0,0,"ZEROS" 30926,1,16,0,0,0,0,1,4,0,1,0,0,0,"SIGN" 30928,1,17,0,0,0,0,2,3,0,2,0,0,0,"STERLING" 30930,1,18,0,0,0,0,2,3,0,2,0,0,1,"LAST TABLE ENTRY" ,,,,,,,,,,,,,,"" 31000,TABLE,310,310,3,,,UNPACK CONSTANT AND EDIT,,,,,,,"" 31001,NOTES,,,,,,,,,,,,,"" 31002,1,0,0,0,0,0,5,0,0,5,0,0,0,"AMEND IND" 31004,1,2,0,0,2,0,5,0,0,0,0,0,0,"" 31006,92,34,0,0,0,0,5,0,0,5,0,0,0,"ZERO WORD" 31008,1,6,0,0,2,0,5,0,0,0,0,0,0,"CONSTANT UNPACKED" 31010,1,8,0,0,2,0,5,0,0,0,0,0,0,"FIXED FIELD TO" 31012,1,10,0,0,2,0,5,0,0,0,0,0,0,"1/6' ONWARD" 31014,1,12,0,0,2,0,5,0,0,0,0,0,0,"" 31016,1,14,0,0,2,0,5,0,0,0,0,0,0,"" 31018,1,16,0,0,2,0,5,0,0,0,0,0,0,"" 31020,1,18,0,0,2,0,5,0,0,0,0,0,0,"" 31022,1,20,0,0,2,0,5,0,0,0,0,0,0,"" 31024,1,22,0,0,2,0,5,0,0,0,0,0,1,"" ,,,,,,,,,,,,,,"" 31100,TABLE,311,311,3,,,UNPACK STACKING DIRECTIVE,,,,,,,"" 31101,NOTES,,,,,,FROM CARDS OR PAPER TAPE,,,,,,,"" 31102,1,2,0,0,2,0,5,0,0,0,0,0,0,"SER+AMEND DIR?" 31104,1,6,0,0,2,0,5,0,0,0,0,0,0,"DIRECTIVE" 31106,1,8,0,0,2,0,3,0,0,0,0,0,0,"SECTION NO" 31108,1,16,0,0,2,1,5,0,0,0,0,0,1,"/////TYPE OR ANNOTATION" 31110,1,2,0,0,2,0,5,0,0,0,0,0,0,"SER NO +AMEND DIR?" 31112,1,6,0,0,2,0,5,0,0,0,0,0,0,"''NOTES'' OF TABLE" 31114,1,16,0,0,2,0,5,0,0,0,0,0,1,"ANNOTATION" ,,,,,,,,,,,,,,"" 31200,TABLE,312,312,3,,,UNPACK INSTRUCTIONS,,,,,,,"" 31201,NOTES,,,,,,FROM P/T OR CARDS,,,,,,,"" 31202,1,2,0,0,2,0,6,0,0,0,0,0,0,"/////SER+AMEND LETTER" 31204,1,6,0,0,2,0,3,0,0,0,0,0,0,"ACTION" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000222.JPG",,,,"","RayS/Q1000222" 31206,1,8,0,0,2,0,3,0,0,0,0,0,0,"REF" 31208,1,10,0,0,1,0,5,0,0,0,1,0,0,"ITEM" 31210,1,12,0,0,0,0,1,0,0,0,0,0,0,"D" 31212,1,14,0,0,0,0,2,0,0,0,0,0,0,"M" 31214,1,16,0,0,1,0,10,0,0,0,1,0,0,"LITERAL" 31216,1,28,0,0,2,0,5,0,0,0,0,0,0,"NOTES FROM P/T -RUBBISH FROM CARD" 31218,1,36,0,0,2,0,5,0,0,0,0,0,1,"COMMENTARY FROM P/T" ,,,,,,,,,,,,,,"" 31300,TABLE,313,313,3,,,UNPACK TABLE ENTRIES,,,,,,,"" ,NOTES,,,,,,FROM P/T OR CARDS,,,,,,,"" 31302,1,2,0,0,2,0,6,0,0,0,0,0,0,"/////SER+AMEND LETTER" 31304,1,20,0,0,0,0,3,0,0,0,0,0,0,"FIRST REF" 31306,1,22,0,0,0,0,5,0,0,0,0,0,0,"FIRST ITEM" 31308,1,24,0,0,0,0,3,0,0,0,0,0,0,"SECOND REF" 31310,1,26,0,0,0,0,5,0,0,0,0,0,0,"SECOND ITEM" 31312,1,19,0,0,0,0,1,0,0,0,0,0,0,"DISC" 31314,1,11,0,0,0,0,1,0,0,0,0,0,0,"SINGLE TO BE" 31316,1,12,0,0,0,0,2,0,0,0,0,0,0,"NO OF CHARS" 31318,1,13,0,0,0,0,2,0,0,0,0,0,0,"DISCARDS" 31320,1,14,0,0,0,0,2,0,0,0,0,0,0,"SPACES" 31322,1,15,0,0,0,0,2,0,0,0,0,0,0,"ZEROS" 31324,1,16,0,0,0,0,1,0,0,0,0,0,0,"SIGN" 31326,1,17,0,0,0,0,1,0,0,0,0,0,0,"p" 31328,1,18,0,0,0,0,1,0,0,0,0,0,0,"LTE" 31330,1,28,0,0,2,0,5,0,0,0,0,0,1,"P/T ANNOTATION-SPACES IF CARD" ,,,,,,,,,,,,,,"" 31400,TABLE,314,314,3,,,UNPACK CONSTANT (FIRST STAGE),,,,,,,"" ,NOTES,,,,,,FROM P/T OR CARDS,,,,,,,"" 31402,1,2,0,0,2,0,6,0,0,0,0,0,0,"/////SER+AMEND LETTER" 31404,1,6,0,0,2,0,5,0,0,0,0,0,0,"CONSTANT (OR FIRST 5 CHS OF CONST)" 31406,1,28,0,0,2,0,5,0,0,0,0,0,1,"ANNOTATION (FROM P/T) OR NEXT 5" ,,,,,,,,,,,,,,"" 31500,TABLE,315,315,1,,,EDIT ALL BUT TRIAL DATA,,,,,,,"" ,NOTES,,,,,,,,,,,,,"" 31502,1,9,0,0,0,0,5,0,0,4,0,0,0,"REF---VALUES" 31504,1,10,0,0,0,0,5,0,0,4,1,0,1,"LTE" ,,,,,,,,,,,,,,"" 31600,CONST,"316",,0,,"","CHECKING CONST FOR INSTRUCTIONS" 31602,,"(D)06e11;",,,,"","'LITERAL' SWITCH Q3" 31603,,"08e19;",,,,"","'REF/ITEM' SW Q2" 31604,,"00e11;",,,,"","'DISC/MOD' SWITCH Q1" 31605,,"09e11;",,,,"","" 31606,,"0t122;",,,,"","ACTION 10" 31607,,"0+322;",,,,"","" 31608,,"0p000;",,,,"","" 31609,,"11t11;",,,,"","" 31610,,"12000;",,,,"","" 31611,,"13t91;",,,,"","" ,,"",,,,"","" 31700,CONST,"317",,0,,"","CHECKING CONSTANTS FOR INSTRUCTIONS" 31702,,"(D)1te11;",,,,"","ACTIONS 20-26" 31703,,"1+000;",,,,"","2728" 31704,,"1:e11;",,,,"","29" 31705,,"21422;",,,,"","30-33" 31706,,"22e11;",,,,"","" 31707,,"23522;",,,,"","" 31708,,"25e11;",,,,"","" 31709,,"26622;",,,,"","" 31710,,"27e22;",,,,"","" 31711,,"295e2;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000223.JPG",,,,"","RayS/Q1000223" 31712,,"005e2;",,,,"","ACTIONS 42, 43" 31713,,"2ee39;",,,,"","42, 43 FIRST C-LINE" 31714,,"00e:1;",,,,"","43 SECOND LINE" 31715,,"00e41;",,,,"","44" 31716,,"2++32;",,,,"","" 31717,,"2:531;",,,,"","ACTIONS 46-49" 31718,,"3153t;",,,,"","46-49 C-LINES" 31719,,"00114;",,,,"","ACTIONS 50-53" 31720,,"35e1e;",,,,"","" 31721,,"00e43;",,,,"","ACTION 54" 31722,,"36991;",,,,"","" 31723,,"00e13;",,,,"","" 31724,,"37719;",,,,"","" 31725,,"00e91;",,,,"","" 31726,,"38e11;",,,,"","" 31727,,"39117;",,,,"","57" 31728,,"3t112;",,,,"","" 31729,,"3e11:;",,,,"","59" 31730,,"00e14;",,,,"","C-LINE" 31731,,"3:e22;",,,,"","6061" 31732,,"3.822;",,,,"","" 31733,,"40e11;",,,,"","" 31734,,"41819;",,,,"","" 31735,,"00822;",,,,"","" 31736,,"43e22;",,,,"","66.67" 31737,,"45000;",,,,"","6869" 31738,,"4+e42;",,,,"","70-76" 31739,,"4.:+2;",,,,"","77-78" 31740,,"00e12;",,,,"","C-LINE" 31741,,"4pe42;",,,,"","79" 31742,,"50e+2;",,,,"","80" 31743,,"00e92;",,,,"","C-LINE" 31744,,"52e42;",,,,"","81-82" 31745,,"53+62;",,,,"","83" 31746,,"54e.2;",,,,"","84" 31747,,"00e11;",,,,"","84 C-LINE" 31748,,"55e6t;",,,,"","85" 31749,,"00e.1;",,,,"","" 31750,,"56162;",,,,"","86" 31751,,"57e1e;",,,,"","" 31752,,"00e.1;",,,,"","C-LINE" 31753,,"59000;",,,,"","" 31754,,"5t22:;",,,,"","ACTION 90" 31755,,"00222;",,,,"","" 31756,,"5:e16;",,,,"","ACTIONS 91-93" 31757,,"5.915;",,,,"","94" 31758,,"60e25;",,,,"","" 31759,,"61e95;",,,,"","ACTION 97" 31760,,"00e62;",,,,"","" 31761,,"63e26;",,,,"","9899" 31762,,"83e91;",,,,"","" 31763,,"00e11;",,,,"","" 31764,,"84e32;",,,,"","132" 31765,,"8653t;",,,,"","133-4" 31766,,"00e62;",,,,"","C-LINE" 31767,,"8e000;",,,,"","" 31768,,"8pe91;",,,,"","140-143" 31769,,"90000;",,,,"","144" 31770,,"94e91;",,,,"","ACTIONS 145-148" 31771,,"00e11;",,,,"","CONTINUATION LINES" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000224.JPG",,,,"","RayS/Q1000224" 31772,,"95000;",,,,"","" 31773,,"96+1p;",,,,"","" 31774,,"00e.1;",,,,"","" 31775,,"97e22;",,,,"","" 31776,,"98e4t;",,,,"","" 31777,,"00e42;",,,,"","" 31778,,"99e22;",,,,"","ACTION 153 " 31779,,"9te12;",,,,"","ACTION 153-154 " 31780,,"9ee22;",,,,"","" 31781,,"9+e31;",,,,"","" 31782,,"9:e1e;",,,,"","" 31783,,"00e43;",,,,"","C-LINE " 31784,,"9.511;",,,,"","" 31785,,"pp000;",,,,"","" 31786,,"00e19;",,,,"","CONST FOR ACTION 55=2 C-LINES " 31787,,"00e:9;",,,,"","2ND C LINE RT 22 ACTION 43 " 31788,,"00e11;",,,,"","=1 C-LINE " 31789,,"(R)18:2496;",,,,"","FOR SEQUENCE CHANGES " 31790,,"(R)18:0;",,,,"","" 31791,,"(R)93:0;",,,,"","" 31792,,"(R)14:0;",,,,"","" 31793,,"(D)0;",,,,"","ZERO IF RT9 PRINTER " 31794,,"00e:1;",,,,"","43 ACTIONS " ,,"",,,,"","" 31800,CONST,"318",,0,,"","MISC " 31802,,"(D)2;",,,,"","" 31803,,"10000;",,,,"","BIT 17 " 31804,,"ppp;",,,,"","Q1-3 " 31805,,"70;",,,,"","BITS 5-7 " 31806,,"7;",,,,"","BITS 1-3 " 31807,,"8;",,,,"","BIT 4 " 31808,,"80;",,,,"","BIT 8 " 31809,,"p00;",,,,"","" 31810,,"4;",,,,"","BIT3 " 31811,,"0;",,,,"","FIRST RECORD INDICATOR " 31812,,"0;",,,,"","ACC.RECORD LENGTH " ,,"",,,,"","" 31900,CONST,"319",,1,,"","ALPHA CONSTANTS " 31902,,"(A)TABLE;",,,,"","" 31904,,"CONST;",,,,"","" 31906,,"PROCR;",,,,"","" 31908,,"* ;",,,,"","" 31910,,"(D)7.0000007.;",,,,"","BLOCK END WORD " 31912,,"(A)NOTES;",,,,"","" 31914,,"END ;",,,,"","" 31916,,"DUMPS;",,,,"","" 31918,,"FILES;",,,,"","" 31920,,"(D)pp+00003pp;",,,,"","BITS 1-10 AND 31-40 " 31922,,"0;",,,,"","EVEN=WL FOR EDIT SWITCH, ODD=C/FWD HIGHES " 31924,,"(A)SHEET;",,,,"","" 31926,,"(D)5:5:5:5:5:;",,,,"","'?????' " 31928,,"(A)VALUE;",,,,"","" 31930,,"(D)6p6p6p6p6p;",,,,"","" 31932,,"(A)INDEX;",,,,"","" 31934,,"ppppp;",,,,"","" 31936,,"2;",,,,"","" 31938,,"CHAIN;",,,,"","" 31940,,"????R;",,,,"","" 31942,,"????I;",,,,"","" 31944,,"????*;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000225.JPG",,,,"","RayS/Q1000225" 31946,,"(A)TRAMD;",,,,"","" 31948,,"(B20)16(D)0(C)1:28;",,,,"","BULK COPY" 31950,,"(A)FINIS;",,,,"","" ,,"",,,,"","" 32000,CONST,"320",,1,,"","CONVERT TABLES" 32002,,"(D)1;",,,,"","BIN+DEC" 32004,,"16;",,,,"","" 32006,,"256;",,,,"","" 32008,,"4096;",,,,"","" 32010,,"65536;",,,,"","" 32012,,"1048576;",,,,"","" 32014,,"16777216;",,,,"","" 32016,,"268435456;",,,,"","" 32018,,"4294967296;",,,,"","" 32020,,"pppppppppp;",,,,"","" 32022,,"1;",,,,"","DEC+BIN" 32024,,"t;",,,,"","" 32026,,"64;",,,,"","" 32028,,"3.8;",,,,"","" 32030,,"2710;",,,,"","" 32032,,"186t0;",,,,"","" 32034,,"p4240;",,,,"","" 32036,,"989680;",,,,"","" 32038,,"5p5.100;",,,,"","" 32040,,"3e9t+t00;",,,,"","" 32042,,"0;",,,,"","(A)WL" 32044,,"3p;",,,,"","BITS 1-6" 32046,,"(A)CHAPT;",,,,"","" 32048,,"PREND;",,,,"","" ,,"",,,,"","" 32100,PROCR,"321",,,,"","RIGHT ALIGN A WORD" 32101,NOTES,"",RADIX,,,"","PLACED IN B" 32102,81,"321",2,0,0,"0","" 32103,10,"",0,0,0,"0","" 32104,5,"12",88,1,0,"0","" 32105,1,"12",88,1,0,"0","" 32106,32,"",0,0,0,"2","LEAVE A CLEAR" 32107,5,"12",88,1,0,"0","" 32108,75,"321",5,0,0,"0","AND PUT WORD" 32109,,"12",88,1,0,"0","" 32110,82,"321",2,0,0,"0","IN 12/88'" ,,"",,,,"","" 32200,PROCR,"322",,,,"","END ROUTINE" 32201,NOTES,"",RADIX,,,"","" 32202,60,"",0,0,0,"0","" 32203,10,"",0,0,0,"1","" 32204,4,"92",3,0,0,"0","STEP PROCR" 32205,62,"",0,0,0,"0","" 32206,,"319",22,0,0,"0","DIRECTIVE FOR LAST BLOCK EDITED" 32207,12,"",0,0,0,"3","" 32208,71,"322",11,0,0,"0","gWASN'T A CONSTANT" 32209,10,"",0,0,0,"1","" 32210,5,"29",6,0,0,"0","" 32211,80,"288",2,0,0,"0","gO/P FINAL DATA BLOCK" 32212,0,"92",3,0,0,"0","" 32213,30,"",0,0,0,"2","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000226.JPG",,,,"","TonyJ/Q1000226" 32214,5,"12",88,0,0,"0","" 32215,52,"29",4,0,0,"0","" 32216,C,"306",6,0,0,"0","" 32217,,"9",4,1,0,"0","" 32218,30,"",0,0,0,"4-","" 32219,30,"",0,0,0,"4","" 32220,2,"319",14,1,0,"0","" 32221,70,"322",30,0,0,"0","> END WITHOUT TD" 32222,,"9",4,1,0,"0","" 32223,2,"319",46,1,0,"0"," 'TRAMD'" 32224,70,"322",32,0,0,"0","" 32225,10,"",0,0,0,"5£5£5£5£5£","5 SQUARES" 32226,3,"27",6,0,0,"0"," 'PT OMMITTED'" 32227,5,"29",12,1,0,"0","" 32228,80,"301",2,0,0,"0","> READ PT" 32229,76,"322",17,0,0,"0","> TEST NEXT BLOCK" 32230,,"319",50,1,0,"0"," 'FINIS'" 32231,5,"9",4,1,0,"0","" 32232,,"319",14,1,0,"0","" 32233,5,"29",6,1,0,"0"," 'END'" 32234,80,"288",2,0,0,"0","> WRITE INTERCODE END SIGN" 32235,80,"325",2,0,0,"0","" 32236,90,"",0,0,1,"1","" 32237,C,"",0,0,0,"100","" 32238,90,"",0,0,2,"0","" 32239,C,"",0,0,0,"200","" 32240,96,"",0,0,1,"0","" 32241,80,"244",2,0,0,"0","> TO DEC" 32242,62,"",0,0,0,"0","" 32243,32,"",0,0,0,"1-","DIVIDE BY 10" 32244,92,"",0,0,3,"0","TENS DIGIT" 32245,32,"",0,0,0,"1","" 32246,5,"244",2,0,0,"0","WL" 32247,10,"",0,0,0,"1","" 32248,124,"244",2,0,1,"0","" 32249,31,"",0,0,0,"0","/////BIT PATTERN OF UNITS DIGIT" 32250,3,"244",2,0,0,"0","" 32251,33,"",0,0,0,"30-","REL TO BIT 10 OF 8" 32252,36,"12",72,0,3,"0","12/72-81= SECTION BIT PATTERNS" 32253,70,"322",68,0,0,"0","> NOT TX AREA" 32254,96,"",0,0,3,"0","" 32255,35,"",0,0,0,"0","CLEAR B" 32256,33,"",0,0,0,"1-","HALVE" 32257,92,"",0,0,3,"0","" 32258,75,"322",61,0,0,"0","> WAS ODD" 32259,34,"244",2,0,0,"0","" 32260,76,"322",63,0,0,"0","" 32261,34,"244",2,0,0,"0","" 32262,33,"",0,0,0,"10","" 32263,36,"12",100,0,3,"0","12/100-104='TX AREA USED' INDS" 32264,71,"322",68,0,0,"0","> NOT PSEUDEO-TX AREA" 32265,96,"",0,0,1,"0","" 32266,5,"92",34,0,2,"0","STORE SECTION NUMBER" 32267,94,"",0,0,2,"1","" 32268,94,"322",40,0,1,"1","> NEXT SECTION" 32300,PROCR,"323",,323,,"CALC CHAPS INITIALLY","" 32302,10,"",0,0,0,"£££00","" 32303,3,"23",47,0,0,"0"," (TO PRINT HEADING)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000227.JPG",,,,"","TonyJ/Q1000227" 32304,124,"92",0,0,0,"0","" 32305,4,"92",9,0,0,"0"," 'LAST PROCR' IN FINAL CHAP" 32306,91,"12",12,0,3,"0","" 32307,,"92",10,0,3,"0","" 32308,30,"",0,0,0,"9","" 32309,30,"",0,0,0,"9-","ISOLATE Q1-CORR CHAP" 32310,2,"92",29,0,0,"0","(ZERO INITIALLY)" 32311,73,"323",13,0,0,"0","" 32312,4,"92",29,0,0,"0","UPDATE" 32313,94,"323",7,0,3,"1","" 32314,10,"",0,0,0,"1","" 32315,4,"92",29,0,0,"0","FORM CHAPS INITIALLY" 32316,,"92",9,0,0,"0","" 32317,5,"92",8,0,0,"0","STORE SC CTR" 32318,,"92",29,0,0,"0","" 32319,5,"92",9,0,0,"0","SPEC CHAP - 'UNCORR CHAP 0' EQUIVALENT" 32400,PROCR,"324",,324,,"READ/COPY TRIAL DATA MODS","" 32401,NOTES,"",RADIX,1,0,"0","" 32402,80,"289",2,0,0,"0","" 32403,80,"289",2,0,0,"0","> WRITE 2 BLANKS" 32404,,"319",30,1,0,"0","" 32405,5,"8",4,1,0,"0","5 ALIGN MARKS" 32406,10,"",0,0,0,"6","" 32407,5,"8",10,0,0,"0","" 32408,80,"289",2,0,0,"0","> WRITE ALIGN BLOCK FOR PASS 3" 32409,,"319",32,1,0,"0"," 'INDEX'" 32410,5,"8",4,1,0,"0","" 32411,80,"289",2,0,0,"0","> WRITE" 32412,90,"",0,0,1,"0","" 32413,C,"",0,0,0,"1010","" 32414,90,"",0,0,2,"0","" 32415,C,"",0,0,0,"48","" 32416,,"93",0,0,1,"0","" 32417,5,"8",4,2,2,"0","" 32418,94,"324",24,0,2,"2","" 32419,,"319",10,1,0,"0","BEW" 32420,5,"8",52,1,0,"0","" 32421,80,"290",2,0,0,"0","> WRITE" 32422,90,"",0,0,2,"0","" 32423,C,"",0,0,0,"48","" 32424,94,"324",16,0,1,"1","" 32425,80,"290",2,0,0,"0","> LAST BLOCK" 32426,80,"289",2,0,0,"0","" 32427,80,"289",2,0,0,"0","> TWO BLANKS" 32428,0,"9",4,1,0,"0","" 32429,2,"319",50,1,0,"0"," 'FINIS'" 32430,70,"324",36,0,0,"0","" 32431,55,"9",4,1,0,"50","" 32432,C,"8",4,1,0,"0","" 32433,80,"289",2,0,0,"0","> WRITE" 32434,80,"301",2,0,0,"0","> READ" 32435,76,"324",28,0,0,"0","" 32436,,"27",4,0,0,"0","COMPILER ?" 32437,70,"324",41,0,0,"0","> NORMAL" 32438,46,"A2",10,0,0,"0"," (TO START OF INTERCODE)" 32439,C,"",0,0,0,"2","" 32440,76,"324",43,0,0,"0","" 32441,45,"A2",0,0,0,"0","" 32442,45,"A6",0,0,0,"1","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000228.JPG",,,,"","ChuckK/Q1000228" 32443,0,"12",12,1,0,"0","COPY DATA FOR PASS 2 PREP STAGE" 32444,5,"94",0,1,0,"0","" 32445,0,"92",30,0,0,"0","IND OF AMEND RUN" 32446,70,"152",2,0,0,"0",">NO, CALL PASS 2" 32447,,"27",4,0,0,"0","" 32448,70,"324",52,0,0,"0",">NORMAL" 32449,,"27",2,0,0,"0","" 32450,70,"324",74,0,0,"0","" 32451,76,"324",58,0,0,"0","" 32452,86,"786",2,0,0,"0","" 32453,70,"324",74,0,0,"0",">NO TRIAL DATA" 32454,5,"289",2,0,0,"0","WL" 32455,47,"A1",10,0,0,"0","RUN TO START OF THIS PROGS MACHINE CODE" 32456,C,"289",2,0,0,"0","" 32457,80,"291",2,0,0,"0",">READ A1" 32458,,"7",4,1,0,"0",";TESTS FOR CLOSING A1" 32459,2,"320",48,1,0,"0"," 'PREND'" 32460,70,"324",74,0,0,"0",">YES" 32461,1,"320",48,1,0,"0","" 32462,2,"319",18,1,0,"0"," 'FILES'" 32463,70,"324",71,0,0,"0","" 32464,1,"319",18,1,0,"0","" 32465,2,"320",46,1,0,"0"," 'CHAPT'" 32466,70,"324",71,0,0,"0",">YES" 32467,1,"320",46,1,0,"0","" 32468,2,"319",50,1,0,"0"," 'FINIS'" 32469,70,"324",74,0,0,"0",">YES" 32470,76,"324",57,0,0,"0",">READ/IGNORE" 32471,10,"",0,0,0,"1","" 32472,5,"27",3,0,0,"0","" 32473,76,"152",2,0,0,"0",">CALL PASS 2,LEAVE A1 OPEN" 32474,5,"27",3,0,0,"0","" 32475,,"27",4,0,0,"0","COMPILER CALLED TRANSLATOR?" 32476,70,"324",79,0,0,"0",">NO" 32477,45,"A1",0,0,0,"1","" 32478,76,"152",2,0,0,"0",">CALL PASS 2" 32479,41,"A1",0,0,0,"1","" 32480,76,"152",2,0,0,"0",">CALL PASS 2" 32500,PROCR,"325",,,,"","" 32502,81,"325",2,0,0,"0","" 32503,,"325",2,0,0,"0","" 32504,5,"288",2,0,0,"0","" 32505,76,"288",24,0,0,"0","" 32600,PROCR,"326",,,,"","UNPACK SECTION 9 SUBROUTINE" 32601,NOTES,"",RADIX,,,"","" 32602,81,"326",2,0,0,"0","" 32603,124,"999",0,1,2,"0","(FORMED)" 32604,128,"",4,0,3,"0","" 32605,82,"326",2,0,0,"0","" 32606,,"9",0,0,0,"0","DUMMY FOR PARAMETER" 32607,128,"",4,0,2,"0","" 32700,PROCR,"327",,,,"","START OF PASS 2" 32702,NOTES,"",RADIX,,,"B","DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000229.JPG",,,,"","ChuckK/Q1000229" 32702,152,"152",4,0,0,"0","CALL/ENTER PASS 3" 32703,C,"553",4,0,0,"0","" 32704,,"999",16,1,0,"0","COPY SEC 7 PARAS-PTS WL'S" 32705,5,"999",30,1,0,"0","" 32706,54,"5",0,0,0,"50","" 32707,52,"5",2,0,0,"0","" 32708,C,"342",36,0,0,"0","EDIT 'INDEX' LINE" 32800,PROCR,"328",,,,"","CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER" 32801,NOTES,"",RADIX,,,"B","AND MOVE THE SC BACK LIST" 32802,54,"72",3,0,0,"14","" 32803,90,"",0,0,19,"0","" 32804,C,"",0,0,0,"10","" 32805,90,"",0,0,20,"0","" 32806,C,"",0,0,0,"10","" 32807,10,"",0,0,0,"1","" 32808,5,"61",4,0,0,"0","CTR INCREMENT" 32809,,"95",1,0,0,"0","NO OF SWITCHES" 32810,70,"328",16,0,0,"0",">NONE" 32811,5,"61",1,0,0,"0","" 32812,10,"",0,0,0,"t","" 32813,5,"61",3,0,0,"0","BIT SHIFT CONTROL" 32814,124,"95",0,0,2,"0","" 32815,80,"329",2,0,0,"0",">PROCESS" 32816,10,"",0,0,0,"8","" 32817,5,"61",3,0,0,"0","BIT SHIFT CONTROL" 32818,,"98",1,0,0,"0","NO OF ITEM+" 32819,70,"328",23,0,0,"0",">NONE" 32820,5,"61",1,0,0,"0","" 32821,124,"98",0,0,2,"0","" 32822,80,"329",2,0,0,"0",">PROCESS" 32823,91,"94",0,0,3,"0","UNCORR CHAP CTR" 32824,10,"",0,0,0,"1","" 32825,32,"",0,0,0,"10-","" 32826,36,"72",3,0,3,"0","" 32827,4,"72",3,0,3,"0","ROUND UP CTRS" 32828,94,"328",24,0,3,"1","" 32829,,"71",1,0,0,"0","CTR OF INDIRECT MR'S" 32830,70,"328",36,0,0,"0",">NONE" 32831,5,"61",1,0,0,"0","" 32832,10,"",0,0,0,"2","" 32833,5,"61",4,0,0,"0","CTR INCREMENT" 32834,124,"71",0,0,2,"0","" 32835,80,"329",2,0,0,"0",">PROCESS" 32836,10,"",0,0,0,"2","SEQ CHANGE LIST" 32837,4,"92",8,0,0,"0","" 32838,1,"545",74,0,0,"0","ABS ADDRESS 18:2496" 32839,2,"92",8,0,0,"0","" 32840,3,"344",2,0,0,"0","QTY TO COPY" 32841,70,"328",46,0,0,"0",">NONE" 32842,30,"",0,0,0,"5","" 32843,1,"92",8,0,0,"0","START" 32844,124,"544",17,1,2,"0","ABS ADDRESS 18/0" 32845,128,"",0,1,1,"0","" 32846,,"544",17,0,0,"0","" 32847,1,"344",2,0,0,"0","QTTY" 32848,5,"92",8,0,0,"0","NEW LIST END" 32849,,"27",4,0,0,"0","COMPILER?" 32850,70,"330",2,0,0,"0",">NO" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000230.JPG",,,,"","ChuckK/Q1000230" 32851,76,"330",3,0,0,"0","" 32900,PROCR,"329",,,,"","PROCESS SW/ITEM+/INDIRECT MR LISTS" 32901,NOTES,"",,,,"","" 32902,81,"329",2,0,0,"0","" 32903,3,"61",0,0,0,"0","" 32904,4,"61",1,0,0,"0","" 32905,91,"61",0,0,1,"0","" 32906,,"",2,0,1,"0","" 32907,30,"",0,0,0,"4-","" 32908,5,"61",2,0,0,"0","UNCORR CHAP" 32909,35,"",0,0,0,"1","" 32910,124,"61",2,0,1,"0","" 32911,36,"92",9,0,0,"0","" 32912,32,"",0,0,0,"4","" 32913,37,"",2,0,1,"0","REPLACE BY CORR CHAP" 32914,94,"329",6,0,1,"1",">NEXT DETAIL" 32915,10,"",0,0,0,"0","" 32916,5,"61",2,0,0,"0","" 32917,91,"94",0,0,2,"0","UNCORR CHAP CTR" 32918,10,"",0,0,0,"1","" 32919,4,"61",2,0,0,"0","" 32920,91,"61",0,0,1,"0","" 32921,,"",2,0,1,"0","" 32922,30,"",0,0,0,"4-","" 32923,2,"61",2,0,0,"0","" 32924,71,"329",33,0,0,"0",">NOT IN THIS CORR CHAP" 32925,124,"61",2,0,1,"0","" 32926,,"72",2,0,0,"0","CTR WITHIN SWITCH PROCR" 32927,124,"61",3,0,1,"0","" 32928,31,"",0,0,0,"0","/////AS NEEDED" 32929,4,"",2,0,1,"0","" 32930,,"61",4,0,0,"0","INCREMENT" 32931,124,"61",2,0,1,"0","" 32932,4,"72",2,0,0,"0","STEP CTR" 32933,94,"329",21,0,1,"1",">NEXT DETAIL" 32934,94,"329",18,0,2,"1",">NEXT CORR CHAP" 32935,82,"329",2,0,0,"0","" 33000,PROCR,"330",,,,"","OPEN FILES CLEAR W/LS" 33001,NOTES,"",RADIX,,,"","PREP STAGE" 33002,40,"A2",0,0,0,"1","*****DON'T MOVE*****" 33003,0,"27",9,0,0,"0","" 33004,71,"330",13,0,0,"0",">NOT PRINT" 33005,,"27",8,0,0,"0","PRINTER TYPE" 33006,11,"",0,0,0,"t","" 33007,30,"",0,0,0,"5","" 33008,1,"999",7,0,0,"0","ROUTE" 33009,125,"",4096,1,1,"0","" 33010,124,"999",0,0,3,"0","" 33011,123,"",160,0,2,"0",">OPEN PRINTER OR MT A9" 33012,62,"",0,0,0,"0","" 33013,54,"61",0,0,0,"120","" 33014,54,"94",0,0,0,"100","" 33015,54,"66",0,0,0,"34","66+49" 33016,10,"",0,0,0,"1","" 33017,4,"92",0,0,0,"0","NO OF CHAPS" 33018,101,"",998,1,3,"0","" 33019,1,"92",0,0,0,"0","(CHAPS CODED)+1" 33020,3,"61",5,0,0,"0","LONG CONSTS PROCR" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000325.JPG",,,,"","RayS/Q1000325" 33021,11,"",0,0,0,"1","" 33022,3,"61",6,0,0,"0","SHORT CONSTS PROCR" 33023,11,"",0,0,0,"1","" 33024,5,"61",7,0,0,"0","TSL PROCR" 33025,10,"",0,0,0,"800000","" 33026,1,"27",9,0,0,"0","" 33027,91,"",0,0,3,"0","SET FOR REENTRY" 33100,PROCR,"331",,,,"","I/P 1ST BLOCK, UNPACK, PRINT" 33101,NOTES,"",RADIX,B,,"","PREP STAGE" 33102,80,"539",2,0,0,"0","gREAD" 33103,,"8",6,1,0,"0","" 33104,2,"343",4,1,0,"0","'PROGM'" 33105,70,"331",12,0,0,"0","gOK" 33106,,"8",4,1,0,"0","" 33107,12,"",0,0,0,"5659650000","' FIN'" 33108,71,"331",2,0,0,"0","gKEEP READING" 33109,150,"",0,0,0,"4","" 33110,C,"331",11,0,0,"0","gUNLOAD" 33111,151,"",0,0,0,"0","" 33112,50,"8",4,0,0,"0","" 33113,C,"341",2,0,0,"0","" 33114,52,"8",2,0,0,"0","" 33115,C,"341",2,0,0,"0","" 33116,,"66",4,1,0,"0","SUITE NO" 33117,30,"",0,0,0,"2","" 33118,1,"66",6,2,0,"0","JOB NO" 33119,5,"61",112,0,0,"0","PROG ID" 33120,00,"66",8,1,0,"0","" 33121,5,"72",0,1,0,"0","ALPHA SERIAL NUMBER" 33122,,"27",9,0,0,"0","" 33123,70,"331",48,0,0,"0","gPRINTING" 33124,,"27",4,0,0,"0","" 33125,71,"331",46,0,0,"0","gDON'T WRITE HDG EITHER" 33126,86,"787",2,0,0,"0","" 33127,71,"331",34,0,0,"0","gDON'T OPEN A9" 33128,10,"",0,0,0,"1200000","" 33129,34,"343",14,1,0,"0","" 33130,1,"999",7,0,0,"0","" 33131,125,"",4096,1,1,"0","" 33132,124,"999",0,0,3,"0","" 33133,123,"",160,0,2,"0","gOPEN A9 O/P MT" 33134,62,"",0,0,0,"0","" 33135,10,"",0,0,0,"6769596573","'PRINT'" 33136,5,"10",4,1,0,"0","" 33137,10,"",0,0,0,"8000","" 33138,5,"10",6,2,0,"0","" 33139,155,"",0,0,0,"0","" 33140,5,"10",8,1,0,"0","" 33141,,"61",112,0,0,"0","OBJECT PROG ID" 33142,5,"10",10,2,0,"0","" 33143,,"544",2,1,0,"0","" 33144,5,"10",12,1,0,"0","" 33145,80,"541",2,0,0,"0","gWRITE A9 HEADING BLOCK" 33146,90,"",0,0,6,"0","PREPARE FOR 6 BLKS" 33147,C,"",0,0,0,"300","" 33148,80,"340",2,0,0,"0","gWRITE/PRINT 'PROGM'" 33149,,"27",4,0,0,"0","COMPILER?" 33150,71,"331",53,0,0,"0","gYES" 33151,40,"A6",0,0,0,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000326.JPG",,,,"","RayS/Q1000326" 33152,76,"331",56,0,0,"0","" 33153,48,"A6",0,0,0,"3","BACK 0 I/PgO/P" 33154,C,"999",0,0,0,"0","" 33155,76,"331",64,0,0,"0","gDON'T WRITE 'INDEX'" 33156,52,"9",4,0,0,"0","EDIT FIRST HEADING" 33157,C,"341",12,0,0,"0","BLOCK" 33158,80,"514",2,0,0,"0","OP" 33159,,"543",20,0,0,"0","'ppppp'" 33160,5,"9",4,2,0,"0","" 33161,,"544",2,1,0,"0","BEW" 33162,5,"9",6,1,0,"0","" 33163,80,"514",2,0,0,"0","gDUMMY 'INDEX' DATA" 33164,52,"9",4,0,0,"0","PROG & SERIAL FOR PASS 3" 33165,C,"341",20,0,0,"0","" 33166,5,"9",16,1,0,"0","" 33167,80,"514",2,0,0,"0","gSHORT RUBBISH BLOCK" 33168,80,"539",2,0,0,"0","I/P" 33169,50,"8",4,0,0,"0","" 33170,C,"341",2,0,0,"0","" 33171,,"66",4,1,0,"0","PROCR OF ENTRY" 33172,80,"537",2,0,0,"0","gCONVERT" 33173,5,"72",2,0,0,"0","" 33174,52,"8",2,0,0,"0","" 33175,C,"341",2,0,0,"0","" 33176,80,"340",2,0,0,"0","PRINT 'ENTRY'" 33177,52,"9",4,0,0,"0","EDIT SECOND BLOCK" 33178,C,"341",28,0,0,"0","" 33179,80,"514",2,0,0,"0","gO/P" 33200,PROCR,"332",,,,"","DEAL WITH FILE IDS" 33201,NOTES,"",RADIX,B,,"","" 33202,17,"92",7,0,0,"10","SPACE OCCUPIED BY CONVERT TABLES" 33203,101,"",204,1,1,"0","FOR ALLOCATOR" 33204,5,"61",100,0,0,"0","SP CHAP SPACE CTR" 33205,0,"91",1,0,0,"0","2R" 33206,31,"",0,0,0,"1-","" 33207,1,"92",29,0,0,"0","EXTRA CHAP NO" 33208,1,"92",29,0,0,"0","" 33209,3,"61",40,0,0,"0","LAST ROUTE PARAMETER" 33210,5,"61",39,0,0,"0","PARA CTR" 33211,0,"91",1,0,0,"0","2R" 33212,3,"91",2,0,0,"0","" 33213,5,"91",3,0,0,"0","" 33214,91,"91",0,0,2,"0","SCAN FILE LIST" 33215,90,"",0,0,1,"0","O/P M.R." 33216,C,"",0,0,0,"48","" 33217,80,"539",2,0,0,"0","I/P" 33218,,"8",6,1,0,"0","" 33219,2,"343",8,1,0,"0","'CHAPS'" 33220,70,"335",2,0,0,"0","gYES" 33221,50,"8",4,0,0,"0","" 33222,C,"341",52,0,0,"0","UNPACK FILE IDENTITIES" 33223,,"8",46,1,0,"0","" 33224,2,"542",28,1,0,"0","'?????'" 33225,3,"344",2,1,0,"0","WL" 33226,70,"334",2,0,0,"0","gFILE IGNORED" 33227,,"66",4,0,0,"0","ROUTE TYPE" 33228,12,"",0,0,0,"19","" 33229,70,"332",54,0,0,"0","gROUTE TYPE 19" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000327.JPG",,,,"","KenK/Q1000327" 33230,,"66",6,0,0,"0","CHAP NO " 33231,80,"537",2,0,0,"0","CONVERT TO BIN " 33232,2,"92",0,0,0,"0","CHAPS +1 " 33233,73,"333",2,0,0,"0","gOK " 33234,,"542",28,1,0,"0","?????' " 33235,5,"8",46,1,0,"0","" 33236,5,"344",2,1,0,"0","" 33237,,"91",3,0,0,"0","2(R+T)=LIST LENGTH " 33238,99,"",0,0,2,"0","-R2 MODIFIER " 33239,30,"",0,0,0,"5","FORM LENGTH OF REMAINDER OF LIST Q6-10 " 33240,1,"343",2,0,0,"0","ADDRESS 91:6 " 33241,98,"",0,0,2,"0","FORM ADDRESS OF FIRST TO OPY " 33242,124,"999",24,0,0,"0","(R2) " 33243,128,"91",4,0,0,"0","COPY UP TO DELETE A FILE " 33244,12,"",0,0,0,"2","" 33245,4,"91",1,0,0,"0","REDUCE CTRS FOR DELETED FILE " 33246,4,"91",2,0,0,"0","" 33247,4,"91",3,0,0,"0","" 33248,124,"999",22,0,3,"0","" 33249,107,"",5,0,0,"0","REDUCE R2 END VALUE " 33250,11,"",0,0,0,"1","" 33251,4,"61",39,0,0,"0","(REDUCE BY 1) " 33252,4,"61",40,0,0,"0","" 33253,76,"334",2,0,0,"0","gFILE IGNORED " 33254,,"66",6,0,0,"0","CHAPTER PAIR;RT19 " 33255,30,"",0,0,0,"2","Q2->Q4 " 33256,35,"",0,0,0,"1000","" 33257,124,"91",3,0,1,"0","" 33258,37,"91",4,0,0,"0","STORE TX AREA CHAP WITH GP DETAILS " 33259,,"66",10,0,0,"0","SPECIAL LENGTH " 33260,80,"537",2,0,0,"0","gBIN " 33261,35,"",0,0,0,"111","" 33262,124,"91",3,0,1,"0","" 33263,37,"91",4,0,0,"0","STORE HALF-LENGTH AS GP LENGTH " 33264,,"66",8,0,0,"0","GP HALF-LENGTH " 33265,80,"537",2,0,0,"0","gBIN " 33266,76,"333",9,0,0,"0","" 33300,PROCR,"333",,,,"","FILE IDS " 33301,NOTES,"",RADIX,B,,"","" 33302,,"66",4,0,0,"0","ROUTE TYPE " 33303,12,"",0,0,0,"3","" 33304,70,"333",11,0,0,"0","" 33305,12,"",0,0,0,"1","" 33306,71,"334",2,0,0,"0","gNOT 4 " 33307,0,"66",8,0,0,"0","ANNEX LENGTH " 33308,80,"537",2,0,0,"0","gCONVERT " 33309,33,"",0,0,0,"6-","DIVIDE BY 64 " 33310,5,"61",8,0,0,"0","MULTIPLES FOR Q10 FN WORD " 33311,,"61",39,0,0,"0","PARA CTR " 33312,11,"",0,0,0,"1","" 33313,124,"91",3,0,1,"0","" 33314,5,"91",5,0,0,"0","TX AREA ENTRY " 33315,35,"",0,0,0,"1000","" 33316,,"66",8,0,0,"0","HALF LENGTH " 33317,80,"537",2,0,0,"0","gBIN " 33318,35,"",0,0,0,"111","" 33319,11,"",0,0,0,"2","" 33320,37,"91",4,1,2,"0","" 33321,35,"",0,0,0,"10000","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000328.JPG",,,,"","KenK/Q1000328" 33322,,"91",3,0,0,"0","2(R+T) " 33323,2,"91",2,0,0,"0","" 33324,30,"",0,0,0,"4","CTR WITHIN GPTXAREAS " 33325,37,"91",4,1,2,"0","" 33326,10,"",0,0,0,"0","" 33327,124,"91",3,0,1,"0","" 33328,2,"91",4,0,0,"0","" 33329,124,"91",3,0,1,"0","" 33330,5,"91",4,0,0,"0","SET GP TX AREA SIGN B/T " 33331,10,"",0,0,0,"2","" 33332,4,"91",3,0,0,"0","STEP(ROUTES +TX AREAS) CTR " 33333,4,"61",39,0,0,"0","STEP PARA CTR " 33400,PROCR,"334",,,,"","FILE IDS " 33401,NOTES,"",RADIX,,,"","" 33402,52,"8",2,0,0,"0","" 33403,C,"341",52,0,0,"0","" 33404,80,"340",2,0,0,"0","PRINT FILES " 33405,0,"344",2,1,0,"0","" 33406,70,"332",17,0,0,"0","gFILE IGNORED " 33407,94,"",0,0,2,"2","" 33408,90,"",0,0,3,"0","" 33409,C,"",0,0,0,"6","" 33410,,"66",4,1,3,"0","" 33411,80,"537",2,0,0,"0","CONVERT " 33412,5,"66",4,1,3,"0","" 33413,94,"334",10,0,3,"2","" 33414,35,"",0,0,0,"1000","" 33415,,"66",6,1,0,"0","" 33416,30,"",0,0,0,"3","" 33417,37,"91",2,1,2,"0","CHAP NO (BIN) " 33418,,"66",4,0,0,"0","" 33419,12,"",0,0,0,"13","" 33420,71,"334",28,0,0,"0","gNOT RT 19 " 33421,,"66",6,0,0,"0","PAIR OF CHAPS " 33422,80,"538",2,0,0,"0","gDEC " 33423,62,"",0,0,0,"0","" 33424,35,"",0,0,0,"1000","" 33425,30,"",0,0,0,"3","" 33426,37,"91",2,1,2,"0","STORE Q1 OF DECIMAL PAIR " 33427,76,"334",33,0,0,"0","" 33428,,"66",8,1,0,"0","ANNEX (BIN) IN WORDS " 33429,11,"",0,0,0,"2","" 33430,4,"91",2,1,2,"0","HALF LENGTH " 33431,3,"66",8,1,0,"0","SET ANNEX LENGTH " 33432,4,"66",8,1,0,"0","" 33433,0,"66",4,1,0,"0","ROUTE TYPE " 33434,30,"",0,0,0,"1","" 33435,5,"66",4,1,0,"0","" 33436,0,"66",2,1,0,"0","" 33437,30,"",0,0,0,"6-","RT. ALIGN THE FILE I.D. " 33438,5,"66",2,1,0,"0","" 33439,52,"9",4,0,1,"0","" 33440,C,"341",64,0,0,"0","" 33441,94,"332",17,0,1,"12","O/P CTR " 33442,,"544",2,1,0,"0","B.E.WORD " 33443,5,"9",52,1,0,"0","" 33444,80,"514",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000329.JPG",,,,"","ChuckK/Q1000329" 33445,76,"332",15,0,0,"0","" 33500,PROCR,"335",,,,"","O/P REMAINING FILE IDS, CHAP START POINTS" 33501,NOTES,"",RADIX,B,,"","PREP" 33502,96,"",0,0,1,"0","" 33503,70,"335",7,0,0,"0","" 33504,,"544",2,1,0,"0","BE WORD" 33505,5,"9",4,1,1,"0","" 33506,80,"514",2,0,0,"0","O/P" 33507,50,"8",4,0,0,"0","" 33508,C,"342",2,0,0,"0","UNPACK 'CHAPS'" 33509,54,"70",0,1,0,"100","CLEAR FOR SECTION DETAILS" 33510,80,"512",2,0,0,"0",">BLANK LINE" 33511,52,"8",2,0,0,"0","" 33512,C,"342",2,0,0,"0","" 33513,80,"340",2,0,0,"0","PRINT 'CHAPS'" 33514,80,"539",2,0,0,"0",">READ MT" 33515,,"8",6,1,0,"0","" 33516,12,"",0,0,0,"7273666955"," 'STORE'" 33517,71,"337",2,0,0,"0",">NO" 33518,50,"8",8,0,0,"0","" 33519,C,"342",8,0,0,"0","66/6 ET SEQ" 33520,10,"",0,0,0,"7273666955"," 'STORE'" 33521,5,"66",2,1,0,"0","" 33522,5,"66",4,1,0,"0","" 33523,52,"8",4,0,0,"0","" 33524,C,"342",4,0,0,"0","" 33525,5,"8",8,1,0,"0","CLEAR" 33600,PROCR,"336",,,,"","DEAL WITH 'STORE' DATA" 33602,91,"92",28,0,1,"0","CHAPS INITIALLY" 33603,92,"",0,0,1,"0"," (CLEAR MODIFIER)" 33604,,"66",6,0,1,"0","" 33605,12,"",0,0,0,"1","" 33606,70,"336",13,0,0,"0",">OP,FIRST STORE" 33607,12,"",0,0,0,"1","" 33608,71,"336",16,0,0,"0",">REJECT" 33609,10,"",0,0,0,"20","BIT 6" 33610,32,"",0,0,0,"10-","" 33611,10,"",0,0,0,"20","" 33612,37,"92",10,0,1,"0","SET IND FOR SECOND STORE" 33613,94,"336",4,0,1,"1","" 33614,,"66",7,0,1,"0","" 33615,70,"336",18,0,0,"0",">OK" 33616,,"542",28,1,0,"0"," '?????'" 33617,5,"8",46,1,0,"0","" 33618,80,"340",2,0,0,"0",">PRINT STORE" 33619,80,"539",2,0,0,"0",">READ" 33700,PROCR,"337",,,,"","PRINT CHAPS I/P & TEST S/D" 33701,NOTES,"",RADIX,B,,"","PREP STAGE" 33702,80,"530",2,0,0,"0",">PRINT'INDEX'EX SEC 5" 33703,80,"530",2,0,0,"0",">PRINT BLANK LINE" 33704,76,"337",7,0,0,"0","" 33705,80,"340",2,0,0,"0","PRINT IGNORED SECTION" 33706,80,"539",2,0,0,"0",">READ" 33707,,"8",12,1,0,"0","" 33708,2,"542",8,1,0,"0","PROCR" 33709,70,"346",2,0,0,"0","" 33710,1,"542",8,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000330.JPG",,,,"","ChuckK/Q1000330" 33711,2,"542",4,1,0,"0","TABLE" 33712,70,"346",2,0,0,"0","" 33713,1,"542",4,1,0,"0","" 33714,2,"542",6,1,0,"0","CONST" 33715,70,"346",2,0,0,"0","" 33800,PROCR,"338",,,,"","SECTION DETAILS" 33801,NOTES,"",RADIX,B,,"","PREP STAGE" 33802,,"8",14,1,0,"0","AMEND IND" 33803,30,"",0,0,0,"4","" 33804,5,"8",2,1,0,"0","" 33805,5,"8",14,1,0,"0","" 33806,50,"8",2,0,0,"0","" 33807,C,"341",40,0,0,"0","" 33808,52,"8",2,0,0,"0","" 33809,C,"341",40,0,0,"0","" 33810,,"8",46,1,0,"0","" 33811,2,"542",28,1,0,"0","?????" 33812,70,"337",5,0,0,"0",">IGNORE THIS SECTION" 33813,80,"340",2,0,0,"0","PRINT SECTIONS" 33814,,"66",4,1,0,"0","" 33815,80,"537",2,0,0,"0","CONVERT" 33816,5,"66",4,1,0,"0","" 33817,,"66",8,1,0,"0","" 33818,80,"537",2,0,0,"0",">CONVERT" 33819,5,"66",8,1,0,"0","CHAP OF SECTION" 33820,,"66",2,1,0,"0","" 33821,80,"537",2,0,0,"0","CONVERT" 33822,3,"66",2,1,0,"0","SECT NO" 33823,92,"",0,0,1,"0","" 33824,,"66",6,1,0,"0","T.A. IND" 33825,70,"339",16,0,0,"0","-NOT T.A." 33826,90,"",0,0,2,"0","" 33827,C,"",0,0,0,"4","" 33828,,"92",34,0,2,"0","CODER'S TRANSIT AREAS ONLY FOR GP O/P" 33829,2,"66",2,1,0,"0","SECTION NUMBER" 33830,70,"339",16,0,0,"0",">DON'T COUNT SECTION AS TRANSIT AREA" 33831,94,"338",28,0,2,"1","" 33832,10,"",0,0,0,"2","" 33833,4,"91",3,0,0,"0","TX AREA CTR" 33834,4,"66",4,1,0,"0","INCREASE ANNEX LENGTH" 33835,4,"61",39,0,0,"0","PARA COUNTER" 33900,PROCR,"339",,,,"","SECT DETAILS" 33901,NOTES,"",RADIX,B,,"","PREP STAGE" 33902,0,"66",4,1,0,"0","LENGTH IN WORDS" 33903,31,"",0,0,0,"5","IN LOCNS IN Q2" 33904,35,"",0,0,0,"1","" 33905,124,"66",8,0,0,"0","UNCORRECTED CHAPTER" 33906,36,"92",9,0,0,"0","CORRECTED CHAP OF TRANSIT AREA" 33907,30,"",0,0,0,"2","LENGTH Q7-10,CHAP Q6" 33908,1,"61",39,0,0,"0","PARA CTR" 33909,12,"",0,0,0,"1","" 33910,30,"",0,0,0,"3","PARAMETER IN Q4-5" 33911,1,"66",2,1,0,"0","SECTION NUMBER Q1-3" 33912,124,"91",3,0,1,"0","2(ROUTES+TX AREAS)" 33913,5,"91",2,1,0,"0","" 33914,,"545",58,0,0,"0","BIT 19 AND 20 BIT 20 FOR T.A. IND" 33915,76,"339",17,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000331.JPG",,,,"","RayS/Q1000331" 33916,,"545",9,0,0,"0","BIT 19" 33917,17,"66",4,1,0,"32","LENGTH X 2 AND SHIFT Q" 33918,1,"66",8,1,0,"0","UNCORR CHAP NO" 33919,5,"70",0,0,1,"0","SECT DETS" 33920,92,"66",8,0,2,"0","UNCORR CHAP" 33921,0,"61",54,0,2,"0","SPACE CTR" 33922,124,"66",2,0,0,"0","SEC NO" 33923,5,"94",0,0,0,"0","SET REL START" 33924,0,"66",4,0,0,"0","" 33925,1,"66",4,0,0,"0","LENGTH (LOCNS)" 33926,4,"61",54,0,2,"0","" 33927,76,"337",6,0,0,"0","gNEXT SECTION" 34000,PROCR,"340",,,,"","" 34002,81,"340",2,0,0,"0","" 34003,55,"8",0,1,0,"52","" 34004,C,"7",0,1,0,"0","" 34005,35,"",0,0,0,"1111","" 34006,37,"7",2,0,0,"0","" 34007,80,"511",2,0,0,"0","PRINT" 34008,82,"340",2,0,0,"0","" 34100,TABLE,"341",341,1,,"","" 34101,NOTES,,,,,,,,,,,,,"" 34102,66,0,0,0,2,0,5,0,0,0,0,0,0,"AMEND IND" 34104,66,2,0,0,2,0,5,0,11,0,0,0,0,"PROGM/ENTRY" 34106,66,4,0,0,1,0,5,5,1,2,0,0,0,"SUITE/PROCR" 34108,66,6,0,0,2,0,5,0,2,0,0,0,0,"JOB/PRIORITY" 34110,66,8,0,0,2,0,5,0,1,0,0,0,1,"SERIAL/CODER" 34112,343,12,0,0,2,0,5,0,0,0,0,0,0,"ALIGN MARKS" 34114,343,10,0,0,2,0,5,0,0,0,0,0,0,"'INDEX'" 34116,543,20,0,0,0,0,5,0,0,0,0,0,0,"" 34118,343,15,0,0,0,0,1,3,4,0,0,0,0,"'4'" 34120,66,4,0,0,1,0,3,7,0,0,0,0,0,"PROG SUITE" 34122,66,6,0,0,2,0,2,3,0,0,0,0,0,"PROG ID" 34124,66,8,0,0,2,0,5,0,0,0,0,0,0,"PROG SERIAL" 34126,544,2,0,0,2,0,5,0,0,0,0,0,1,"BEW" 34128,92,5,0,0,0,0,5,0,0,4,0,0,0,"FP IND" 34130,92,4,0,0,0,0,5,0,0,4,0,0,0,"MG" 34132,66,6,0,0,2,0,5,0,0,0,0,0,0,"PRIORITY" 34134,92,0,0,0,0,0,5,0,0,4,0,0,0,"CHAPS+1" 34136,92,29,0,0,0,0,5,0,0,4,0,0,0,"CHAPS INITIALLY" 34138,544,2,0,0,2,0,5,0,0,0,0,0,1,"BEW" 34140,66,10,0,0,2,0,5,0,0,0,0,0,0,"AMEND IND" 34142,66,0,0,0,2,0,5,0,5,0,0,0,0,"SERIAL/CODER" 34144,66,2,0,0,1,0,5,5,4,4,0,0,0,"SEC NO" 34146,66,4,0,0,1,0,5,5,3,4,0,0,0,"LENGTH" 34148,66,6,0,0,1,0,5,5,0,4,0,0,0,"TX AREA IND" 34150,66,8,0,0,1,0,5,5,3,4,0,0,1,"CHAP" 34152,66,0,0,0,2,0,5,0,0,0,0,0,0,"AMEND IND == FILES" 34154,66,2,0,0,2,0,5,0,15,0,0,0,0,"FILE ID" 34156,66,4,0,0,1,0,5,5,1,4,0,0,0,"ROUTE TYPE" 34158,66,6,0,0,1,0,5,5,2,4,0,0,0,"RETN PERIOD" 34160,66,8,0,0,1,0,5,5,2,4,0,0,0,"MBS" 34162,66,10,0,0,1,0,5,5,0,4,0,0,1,"ALT ROUTE" 34164,66,2,0,0,2,0,5,0,0,0,0,0,0,"FILE ID == FILES" 34166,66,4,0,0,1,0,5,5,0,4,0,0,0,"ROUTE TYPE" 34168,66,6,0,0,1,0,5,5,0,4,0,0,0,"RETN PERIOD" 34170,66,8,0,0,1,0,5,5,0,4,0,0,0,"MBS" 34172,61,0,0,0,0,0,5,0,0,4,0,0,0,"START LOCN" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000332.JPG",,,,"","RayS/Q1000332" 34174,66,10,0,0,1,0,5,5,0,4,0,0,1,"ALT ROUTE" ,,,,,,,,,,,,,,"" 34200,TABLE,342,342,1,,,,,,,,,,"CHAPS LINE" ,NOTES,,,,,,,,,,,,,"" 34202,66,0,0,0,2,0,5,0,0,0,0,0,0,"AMEND IND" 34204,66,2,0,0,2,0,5,0,1,0,0,0,0,"'CHAPS'" 34206,66,4,0,0,0,0,5,0,0,4,0,0,0,"NUMBER OF CHAPS" 34208,66,6,0,0,0,0,5,0,1,4,0,0,0,"1" 34210,66,7,0,0,0,0,5,0,1,5,0,0,0,"2" 34212,66,8,0,0,0,0,5,0,1,5,0,0,0,"3" 34214,66,9,0,0,0,0,5,0,1,5,0,0,0,"4" 34216,66,10,0,0,0,0,5,0,1,5,0,0,0,"5" 34218,66,11,0,0,0,0,5,0,1,5,0,0,0,"6" 34220,66,12,0,0,0,0,5,0,1,5,0,0,0,"7" 34222,66,13,0,0,0,0,5,0,1,5,0,0,0,"8" 34224,66,14,0,0,0,0,5,0,1,5,0,0,0,"9" 34226,66,15,0,0,0,0,5,0,1,5,0,0,0,"10" 34228,66,16,0,0,0,0,5,0,1,5,0,0,0,"11" 34230,66,17,0,0,0,0,5,0,1,5,0,0,0,"12" 34232,66,18,0,0,0,0,5,0,1,5,0,0,0,"13" 34234,66,19,0,0,0,0,5,0,1,5,0,0,1,"14-TH START" 34236,343,10,0,0,2,0,5,0,6,0,0,0,0,"'INDEX'" 34238,92,29,0,0,0,0,1,4,4,0,0,0,0,"CHAPS INITIALLY" 34240,92,10,0,0,0,0,1,4,5,1,0,0,0,"CORRECTED CHAPTER NUMBERS" 34242,92,11,0,0,0,0,1,4,5,1,0,0,0,"" 34244,92,12,0,0,0,0,1,4,5,1,0,0,0,"" 34246,92,13,0,0,0,0,1,4,5,1,0,0,0,"" 34248,92,14,0,0,0,0,1,4,5,1,0,0,0,"" 34250,92,15,0,0,0,0,1,4,5,1,0,0,0,"" 34252,92,16,0,0,0,0,1,4,5,1,0,0,0,"" 34254,92,17,0,0,0,0,1,4,5,1,0,0,0,"" 34256,92,18,0,0,0,0,1,4,5,1,0,0,0,"" 34258,92,19,0,0,0,0,1,4,5,1,0,0,0,"" 34260,92,20,0,0,0,0,1,4,5,1,0,0,0,"" 34262,92,21,0,0,0,0,1,4,5,1,0,0,0,"" 34264,92,22,0,0,0,0,1,4,5,1,0,0,0,"" 34266,92,23,0,0,0,0,1,4,5,1,0,0,1,"LAST ENTRY" 34300,CONST,"343",,1,,"","FOR PASS 2 PREP STAGE" 34302,,"(R)91:6;",,,,"","" 34304,,"(A)PROGM;",,,,"","" 34306,,"ENTRY;",,,,"","" 34308,,"CHAPS;",,,,"","" 34310,,"INDEX;",,,,"","" 34312,,"(D)6p6p6p6p6p;",,,,"","" 34314,,"0514908000;",,,,"","08000 FILE A9" 0query,164,"",,,,"","this is a hand written extra entry" 34316,,"(A)",,,,"","" 34400,PROCR,"344",,,,"","DUMMIES FOR SEC 61 DESCRIPTION" 34401,NOTES,"",,,,"","" 34402,,"61",0,0,0,"0","ACTION WL/ENTRY POINT" 34403,,"61",1,0,0,"0","NON-ARITH IND" 34500,PROCR,"345",,,,"","" 34502,81,"345",2,0,0,"0","" 34503,0,"345",2,0,0,"0","" 34504,5,"509",2,0,0,"0","" 34505,76,"509",8,0,0,"0","" 34600,PROCR,"346",,,,"","FORM PARA CTR ETC" 34601,NOTES,"",RADIX,B,,"","PREP STAGE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000333.JPG",,,,"","KenK/Q1000333" 34602,80,"345",2,0,0,"0","" 34603,80,"363",2,0,0,"0","gEDIT FIRST DIRECTIVE " 34604,10,"",0,0,0,"0","" 34605,5,"545",99,0,0,"0","" 34606,,"61",39,0,0,"0","" 34607,11,"",0,0,0,"1","FORM " 34608,3,"61",41,0,0,"0","MOD GROUP PARAMETER " 34609,11,"",0,0,0,"4","" 34610,5,"61",39,0,0,"0","TOTAL NO OF PARAMETORS " 34611,0,"92",8,0,0,"0","LIST END " 34612,30,"",0,0,0,"5","" 34613,1,"544",17,0,0,"0","ABS ADDRESS 18:0 " 34614,91,"",0,0,1,"0","" 34615,,"544",16,0,0,"0","ABS ADDRESS 18:2499 " 34616,5,"61",118,0,0,"0","LOCN CTR SC'S FWD " 34617,,"544",4,1,0,"0","0:144 " 34618,5,"61",44,1,0,"0","O/P MOD CTR " 34619,10,"",0,0,0,"1","" 34620,5,"61",111,0,0,"0","UNCORRECTED CHAP NO. " 34621,5,"91",0,0,0,"0","" 34622,54,"63",0,1,0,"580","63+62+20 " 34623,10,"",0,0,0,"41","" 34624,5,"61",26,1,0,"0","TYPE " 34625,5,"61",28,1,0,"0","SECTION NO. " 34626,80,"516",2,0,0,"0","O/P TYPE S/R;THIS CLEARS S67 INIT " 34627,10,"",0,0,0,"1","" 34628,5,"61",42,1,0,"0","" 34629,5,"61",109,0,0,"0","CLEAR STERLING CTR " 34630,5,"67",0,0,0,"0","67/0 NOT CLEARED BY O/P TYPE S/R " 34700,PROCR,"347",,,,"","O/P PARAS " 34701,NOTES,"",RADIX,B,,"","CHAP START ROUTINE " 34702,,"61",39,0,0,"0","PARA CTR " 34703,30,"",0,0,0,"5","" 34704,5,"61",0,1,0,"0","" 34705,91,"61",0,1,3,"0","M/R 3 AT W/L " 34706,95,"",0,0,3,"0","" 34707,5,"67",2,0,0,"0","" 34708,80,"518",2,0,0,"0","" 34709,94,"347",6,0,3,"1","" 34710,10,"",0,0,0,"3","" 34711,4,"61",5,0,0,"0","LONG PROCR " 34712,4,"61",6,0,0,"0","SHORT PROCR " 34713,4,"61",7,0,0,"0","TSL PROCR " 34714,10,"",0,0,0,"0","" 34715,35,"",0,0,0,"1","" 34716,124,"61",111,0,0,"0","UNCORRECTED CHAP NO " 34717,36,"92",9,0,0,"0","CORRECTED CHAP NUMBER " 34718,3,"61",51,0,0,"0","" 34719,1,"61",51,0,0,"0","" 34720,5,"61",3,0,0,"0","" 34721,,"61",5,0,0,"0","" 34722,30,"",0,0,0,"2","" 34723,1,"61",3,0,0,"0","" 34724,5,"61",4,0,0,"0","LN:2C " 34725,10,"",0,0,0,".0000.","14:14 " 34726,5,"61",12,1,0,"0","LN CTR " 34727,5,"61",14,1,0,"0","SN CTR " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000334.JPG",,,,"","KenK/Q1000334" 34728,,"544",18,1,0,"0","SE!! this line difficult to read – needs sight of original" 34729,5,"61",16,1,0,"0","TSL CTR " 34730,5,"61",10,1,0,"0","" 34731,80,"518",2,0,0,"0","O/P ZERO COMPARTMENTFOR LINK " 34732,80,"453",2,0,0,"0","O/P 25/1/1 4096+24/0/3 0 " 34733,10,"",0,0,0,"700","7 IN Q3 " 34734,5,"67",1,0,0,"0","SET'MR ENTRY' IND " 34735,0,"545",60,0,0,"0","23/0/2 0 " 34736,80,"359",2,0,0,"0","gO/P " 34737,80,"518",2,0,0,"0","O/P TWO ZERO COMPARTMENTS " 34738,80,"518",2,0,0,"0","" 34739,,"546",15,0,0,"0","26/0/1/6- " 34740,80,"498",2,0,0,"0","gO/P INT SC " 34800,PROCR,"348",,,,"","SECTION START ROUTINE " 34801,NOTES,"",RADIX,B,,"","" 34802,62,"",0,0,0,"0","" 34803,,"",6,1,12,"0","" 34804,2,"542",8,1,0,"0","PROCR " 34805,71,"348",9,0,0,"0","" 34806,10,"",0,0,0,"1","" 34807,5,"61",42,0,0,"0","" 34808,76,"350",4,0,0,"0","" 34809,1,"542",8,1,0,"0","" 34810,2,"542",2,1,0,"0"," 'VALUE' " 34811,70,"351",24,0,0,"0","gYES " 34812,80,"353",2,0,0,"0","ROUND UP SPACE CTR " 34813,,"",14,2,12,"0","CONST OR TABLE TYPE " 34814,30,"",0,0,0,"4-","" 34815,5,"61",47,0,0,"0","" 34816,10,"",0,0,0,"2","" 34817,5,"61",42,0,0,"0","" 34818,,"",6,1,12,"0","" 34819,2,"542",4,1,0,"0","TABLE " 34820,70,"350",3,0,0,"0","" 34900,PROCR,"349",,,,"","SECTION START ROUTINE " 34901,NOTES,"",RADIX,B,,"","" 35000,PROCR,"350",,,,"","SECTION START ROUTINE " 35001,NOTES,"",RADIX,B,,"","" 35002,10,"",0,0,0,"1"," 'CONST' " 35003,11,"",0,0,0,"1","TABLE " 35004,11,"",0,0,0,"1","PROCR " 35005,3,"61",26,2,0,"0","" 35006,84,"352",2,0,0,"0","" 35007,,"7",12,2,0,"0","NEW PROCR NO " 35100,PROCR,"351",,,,"","" 35101,NOTES,"",RADIX,B,,"","" 35102,80,"537",2,0,0,"0","gCONVERT " 35103,3,"61",28,2,0,"0","" 35104,3,"61",10,0,0,"0","CURRENT PROCR " 35105,2,"72",2,0,0,"0","ENTRY PROCR " 35106,71,"351",9,0,0,"0","gNO " 35107,,"61",43,0,0,"0","" 35108,5,"27",5,0,0,"0","ENTRY LOCN " 35109,0,"61",43,0,0,"0","" 35110,5,"61",11,0,0,"0","STORE PROCR START ADDRESS " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000335.JPG",,,,"","KenK/Q1000335" 35111,80,"354",2,0,0,"0","gSET'PRINT PROCEDURE'IND " 35112,80,"516",2,0,0,"0","O/P TYPE " 35113,10,"",0,0,0,"80","TRACK 8 " 35114,5,"61",46,0,0,"0","HEAD OF FORM " 35115,,"27",4,0,0,"0","COMPILER? " 35116,70,"351",20,0,0,"0","gNO " 35117,5,"545",99,0,0,"0","(ALWAYS PRINT DIRECTIVE BLOX) " 35118,,"23",46,0,0,"0","" 35119,70,"351",21,0,0,"0","gPARTIAL. NO BLANK LINE " 35120,80,"530",2,0,0,"0","gSECOND PRINT SR " 35121,80,"510",2,0,0,"0","gPRINT " 35122,80,"360",2,0,0,"0","BULK CLEAR SEC 7 " 35123,76,"362",2,0,0,"0","" 35124,86,"352",2,0,0,"0",";'VALUE' DIRECTIVE " 35125,12,"",0,0,0,"7","" 35126,70,"351",13,0,0,"0","g'VALUE' FOLLOWS 'VALUE' " 35127,10,"",0,0,0,"7","" 35128,3,"61",26,2,0,"0","" 35129,84,"352",2,0,0,"0","" 35130,5,"61",28,1,0,"0","CLEAR 'PROCR NUMBER' " 35131,5,"61",42,0,0,"0","CLEAR SPACE CTR INCREMENT " 35132,76,"351",12,0,0,"0","" 35200,PROCR,"352",,,,"","SWITCH A " 35201,NOTES,"",RADIX,B,,"","" 35202,85,"352",2,0,0,"0","" 35203,C,"370",2,0,0,"0","INST " 35204,C,"475",2,0,0,"0","TABLE " 35205,C,"454",2,0,0,"0","CONST " 35206,C,"362",2,0,0,"0","DUMMY " 35207,C,"362",2,0,0,"0"," ' ' " 35208,C,"362",2,0,0,"0"," ' ' " 35209,C,"480",2,0,0,"0","VALUE " 35300,PROCR,"353",,,,"","SUBROUTINE 1 " 35301,NOTES,"",RADIX,B,,"","ROUND OFF TO MULT OF 2 " 35302,81,"353",2,0,0,"0","" 35303,10,"",0,0,0,"0","" 35304,34,"544",6,0,0,"0","" 35305,36,"61",43,0,0,"0","SPACE CTR " 35306,70,"353",11,0,0,"0","" 35307,5,"61",42,0,0,"0","" 35308,5,"67",0,1,0,"0","" 35309,5,"67",2,1,0,"0","" 35310,80,"518",2,0,0,"0","gO/P ZERO LOCATION " 35311,82,"353",2,0,0,"0","" 35400,PROCR,"354",,,,"","EXTRACT 'PRINT' PROCEDURE'IND FROM ARRAY IN SEC 23 " 35402,81,"354",2,0,0,"0","" 35403,19,"61",10,0,0,"14","PROCR/20 " 35404,5,"355",2,0,0,"0","" 35405,32,"",0,0,0,"9","" 35406,5,"356",2,0,0,"0","REMAINDER " 35407,34,"543",22,0,0,"0","Line 35406 to 35411 taken from stuck on note: line 35412 is on next page." 35408,124,"356",2,0,1,"0","" 35409,33,"",0,0,0,"0","///// " 35410,124,"355",2,0,1,"0","" 35411,36,"23",5-,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000336.JPG",,,,"","RayS/Q1000336" 35412,5,"23",47,0,0,"0","NON-ZERO TO PRINT WHOLE PROCR" 35413,82,"354",2,0,0,"0","" 35500,PROCR,"355",,,,"","O/P WITH ZERO REF: PARA=2C" 35501,NOTES,"",,,,"","" 35502,81,"355",2,0,0,"0","(A)=INSTRUCTION" 35503,5,"67",3,0,0,"0","" 35504,,"61",3,0,0,"0","2C" 35505,5,"67",2,0,0,"0","" 35506,80,"518",2,0,0,"0","" 35507,82,"355",2,0,0,"0","" 35600,PROCR,"356",,,,"","O/P NON-ARITH INSTRUCTION" 35601,NOTES,"",,,,"","" 35602,81,"356",2,0,0,"0","" 35603,5,"61",0,0,0,"0","" 35604,10,"",0,0,0,"1","" 35605,5,"61",1,0,0,"0","" 35606,80,"536",2,0,0,"0","gCOMPLEX O/P" 35607,82,"356",2,0,0,"0","" 35700,PROCR,"357",,,,"","TEST SHORT/LONG NUMBER" 35701,NOTES,"",,,,"","" 35702,81,"357",2,0,0,"0","" 35703,5,"61",0,0,0,"0","STORE ACTION" 35704,,"61",53,0,0,"0","" 35705,70,"357",8,0,0,"0","gSHORT NO" 35706,80,"481",2,0,0,"0","gLONG NO S/R" 35707,82,"357",2,0,0,"0","" 35708,80,"483",2,0,0,"0","gSHORT NO S/R" 35709,82,"357",2,0,0,"0","" 35800,PROCR,"358",,,,"","O/P ARITH INSTRUCTION" 35801,NOTES,"",,,,"","" 35802,81,"358",2,0,0,"0","" 35803,5,"61",0,0,0,"0","" 35804,5,"61",1,0,0,"0","" 35805,80,"536",2,0,0,"0","gCOMPLEX O/P" 35806,82,"358",2,0,0,"0","" 35900,PROCR,"359",,,,"","O/P WITH ZERO REF/PARA" 35901,NOTES,"",,,,"","" 35902,81,"359",2,0,0,"0","" 35903,5,"67",3,0,0,"0","" 35904,80,"518",2,0,0,"0","gO/P" 35905,82,"359",2,0,0,"0","" 36000,PROCR,"360",,,,"","" 36002,81,"360",2,0,0,"0","" 36003,54,"7",2,1,0,"48","BULK CLEAR SECTION 7" 36004,82,"360",2,0,0,"0","" 36100,PROCR,"361",,,,"","LN:2C SUBROUTINE" 36101,NOTES,"",,,,"","" 36102,81,"361",2,0,0,"0","(A)=INSTRUCTION" 36103,5,"67",3,0,0,"0","" 36104,0,"61",4,0,0,"0","LN:2C FOR FIRST LN PROCR" 36105,5,"67",2,0,0,"0","IN CHAP" 36106,80,"518",2,0,0,"0","gO/P" 36107,82,"361",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000337.JPG",,,,"","RayS/Q1000337" 36108,80,"361",2,0,0,"0","(THEN GET NEXT BLOCK)" 36200,PROCR,"362",,,,"","GET NEXT BLOCK" 36201,NOTES,"",RADIX,B,,"","" 36202,80,"509",2,0,0,"0","gREAD" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000338.JPG",,,,"","RayS/Q1000338" 36203,,"",6,1,12,"0","" 36204,2,"542",6,1,0,"0","'CONST'" 36205,73,"352",2,0,0,"0","gNOT A DIRECTIVE" 36206,80,"363",2,0,0,"0","EDIT DIRECTIVES" 36207,,"",6,1,12,"0","" 36208,2,"542",6,1,0,"0","'CONST'" 36209,70,"365",2,0,0,"0","" 36210,1,"542",6,1,0,"0","" 36211,2,"542",4,1,0,"0","TABLE" 36212,70,"365",2,0,0,"0","" 36213,1,"542",4,1,0,"0","" 36214,2,"542",8,1,0,"0","'PROCR'" 36215,70,"365",2,0,0,"0","" 36216,1,"542",8,1,0,"0","" 36217,2,"542",2,1,0,"0","'VALUE'" 36218,70,"351",24,0,0,"0","gYES" 36219,1,"542",2,1,0,"0","" 36220,2,"542",12,1,0,"0","END(SPACE) (SPACE)" 36221,71,"362",26,0,0,"0","" 36222,10,"",0,0,0,"1","" 36223,5,"61",48,0,0,"0","" 36224,80,"364",2,0,0,"0","gTEST PREVIOUS DIRECTIVE WAS 'VALUE'" 36225,76,"365",14,0,0,"0","" 36226,1,"542",12,1,0,"0","" 36227,2,"542",10,1,0,"0","'NOTES'" 36228,71,"352",2,0,0,"0","" 36229,80,"510",2,0,0,"0","gPRINT 'NOTES' LINE" 36230,80,"360",2,0,0,"0","BULK CLEAR SEC 7" 36231,76,"362",2,0,0,"0","" 36300,PROCR,"363",,,,"","EDIT DIRECTIVES" 36302,81,"363",2,0,0,"0","" 36303,80,"360",2,0,0,"0","BULK CLEAR SEC 7" 36304,,"77",2,1,0,"0","AMEND IND" 36305,5,"7",2,1,0,"0","" 36306,,"77",4,1,0,"0","LINE SERIAL" 36307,5,"7",6,1,0,"0","" 36308,,"77",6,1,0,"0","'PROCR/TABLE/CONST/NOTES/VALUE/END'" 36309,5,"7",10,1,0,"0","" 36310,,"77",8,1,0,"0","PROCR NO" 36311,30,"",0,0,0,"4-","" 36312,5,"7",12,1,0,"0","" 36313,,"77",10,1,0,"0","OLD PROCR NO" 36314,5,"7",16,1,0,"0","" 36315,,"77",6,1,0,"0","" 36316,2,"542",10,1,0,"0","'NOTES'" 36317,71,"363",21,0,0,"0","gNO" 36318,,"77",12,1,0,"0","'RADIX'" 36319,5,"7",16,1,0,"0","" 36320,76,"363",23,0,0,"0","" 36321,,"77",12,1,0,"0","PASS 1 REPORTS" 36322,5,"7",48,1,0,"0","" 36323,,"77",6,1,0,"0","" 36324,2,"542",8,1,0,"0","'PROCR'" 36325,70,"363",29,0,0,"0","gYES" 36326,,"77",14,1,0,"0","TABLE/CONST TYPE/RADIX LETTER" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000339.JPG",,,,"","ChuckK/Q1000339" 36327,5,"7",20,1,0,"0","" 36328,76,"363",31,0,0,"0","" 36329,,"77",14,1,0,"0","FIRST 5 CHARS ANNOTATION" 36330,5,"7",20,1,0,"0","" 36331,55,"77",16,1,0,"26","COPY ANNOTATION" 36332,C,"7",22,1,0,"0","" 36333,82,"363",2,0,0,"0","" 36400,PROCR,"364",,,,"","DEAL WITH 'VALUE' DIRECTIVE " 36401,NOTES,"",,,,"","" 36402,81,"364",2,0,0,"0","" 36403,86,"352",2,0,0,"0","SWITCH LAST TIME THRU" 36404,12,"",0,0,0,"7","" 36405,71,"364",15,0,0,"0",">NOT 'VALUE'" 36406,,"542",10,1,0,"0"," 'NOTES'" 36407,5,"61",26,1,0,"0","" 36408,5,"67",2,0,0,"0","REF=0;ITEM=SPACE CTR" 36409,,"61",43,0,0,"0","" 36410,5,"67",3,0,0,"0","" 36411,80,"517",2,0,0,"0",">O/P TERMINAL 'REF' UNIT" 36412,10,"",0,0,0,"6","" 36413,5,"61",26,2,0,"0","" 36414,80,"516",2,0,0,"0",">O/P'TYPE6' " 36415,82,"364",2,0,0,"0","" 36500,PROCR,"365",,,,"","TEST NEW CHAP " 36501,NOTES,"",RADIX,B,,"","" 36502,80,"364",2,0,0,"0",">TEST LAST DIRECTIVE WAS 'VALUE'" 36503,,"7",12,2,0,"0","NEW PROCR" 36504,5,"61",35,0,0,"0","" 36505,124,"61",111,0,0,"0","THIS CHAP UNCORR" 36506,,"92",9,0,0,"0","LAST PROCR THIS CHAP" 36507,30,"",0,0,0,"2-","" 36508,80,"538",2,0,0,"0",">CONVERT TO DEC" 36509,2,"61",35,0,0,"0","" 36510,72,"348",2,0,0,"0","NOT NEW CHAP" 36511,11,"",0,0,0,"1","TEST THIS PROCEDURE SAFETY" 36512,71,"348",2,0,0,"0","ONE GREATER THAN PREDEVICE" 36513,62,"",0,0,0,"0","" 36514,80,"353",2,0,0,"0",">ROUND UP SPACE CTR" 36515,80,"366",2,0,0,"0",">ROUND UP FORMED SECTIONS" 36516,80,"367",2,0,0,"0",">O/P FORMED SECTIONS" 36517,76,"368",2,0,0,"0","" 36600,PROCR,"366",,,,"","ROUND UP SECTION CTRS " 36601,NOTES,"",RADIX,B,,"","SUBROUTINE" 36602,81,"366",2,0,0,"0","" 36603,90,"",0,0,2,"0","" 36604,C,"",0,0,0,"6","" 36605,0,"61",13,0,2,"0","END VALUE" 36606,31,"",0,0,0,"2","" 36607,32,"",0,0,0,"1-","(DIVIDE BY 4)" 36608,38,"",0,0,0,"4","ROUND UP TO MULTIPLE OF 4" 36609,31,"",0,0,0,"2","" 36610,5,"61",13,0,2,"0","" 36611,94,"366",5,0,2,"2","" 36612,82,"366",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000340.JPG",,,,"","ChuckK/Q1000340" 36700,PROCR,"367",,,,"","O/P FORMED SECTIONS " 36701,NOTES,"",RADIX,B,,"","SUBROUTINE" 36702,81,"367",2,0,0,"0","" 36703,10,"",0,0,0,"600000","" 36704,5,"61",0,1,0,"0","" 36705,5,"61",12,0,0,"0","" 36706,5,"61",2,0,0,"0","" 36707,91,"61",2,0,3,"0","" 36708,,"544",7,0,3,"0","TYPE NO" 36709,5,"61",26,1,0,"0","" 36710,,"61",5,0,3,"0","" 36711,5,"61",28,2,0,"0","PROCR NUMBER" 36712,80,"516",2,0,0,"0","O/P TYPE" 36713,,"544",10,0,3,"0","" 36714,5,"61",42,0,0,"0","NO OF LOCNS TO STEP ON LON CTR ON O/P" 36715,124,"61",0,0,0,"0","" 36716,,"61",12,1,0,"0","SECT COUNTER" 36717,5,"61",30,1,0,"0","" 36718,0,"61",30,0,0,"0","" 36719,2,"61",31,0,0,"0","" 36720,70,"367",30,0,0,"0",">NOTHING TO OUTPUT" 36721,,"544",10,0,0,"0","4" 36722,30,"",0,0,0,"5","" 36723,1,"544",13,0,3,"0","SECT NO OF TRANS SECT" 36724,1,"61",30,0,0,"0","" 36725,128,"67",0,0,0,"0","" 36726,80,"518",2,0,0,"0","O/P" 36727,123,"",4,0,0,"0","" 36728,C,"61",30,0,0,"0","" 36729,76,"367",21,0,0,"0","" 36730,10,"",0,0,0,"1","" 36731,4,"61",2,0,0,"0","" 36732,123,"",2,0,0,"0","" 36733,C,"61",0,0,0,"0","" 36734,76,"367",7,0,0,"0","" 36735,82,"367",2,0,0,"0","" 36800,PROCR,"368",,,,"","DEAL WITH TRANS VACANT SECTIONS " 36801,NOTES,"",RADIX,B,,"","CHAP END ROUTINE" 36802,10,"",0,0,0,"1","TYPE 1" 36803,5,"61",26,2,0,"0","" 36804,101,"",1001,1,3,"0","CALC SWITCH PROCR" 36805,1,"61",111,0,0,"0","THIS CHAP UNCORRECTED" 36806,5,"61",28,2,0,"0","61/43= CHAP LENGTH" 36807,80,"516",2,0,0,"0",">O/P 'TYPE'" 36808,,"61",43,0,0,"0","CHAP LENGTH" 36809,124,"61",111,0,1,"0","UNCORR CHAP" 36810,5,"72",17,0,0,"0","STORE 72/18-36" 36811,,"542",24,1,0,"0"," 'TYPE.'" 36812,5,"61",26,1,0,"0","" 36813,5,"61",28,1,0,"0","" 36814,80,"517",2,0,0,"0","ALPHA O/P SR" 36815,10,"",0,0,0,"1","" 36816,1,"61",111,0,0,"0","" 36817,3,"61",111,0,0,"0","" 36818,,"61",48,0,0,"0","" 36819,70,"346",23,0,0,"0","" 36820,76,"369",3,0,0,"0","" 36900,PROCR,"369",,,,"","PROG END ROUTINE " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000341.JPG",,,,"","RayS/Q1000341" 36901,NOTES,"",RADIX,B,,"","" 36902,76,"369",9,0,0,"0","THIS AN ORDER CONTANT" 36903,80,"520",2,0,0,"0","-O/P REMAINING DETS S/R" 36904,0,"545",6,0,0,"0","ALL THE p'S" 36905,5,"66",2,1,0,"0","SET AS BLOCK SERIAL" 36906,,"369",2,0,0,"0","" 36907,5,"526",2,0,0,"0","PLANT AN EXIT ORDER" 36908,76,"522",23,0,0,"0","gI/P C-LINE SR" 36909,10,"",0,0,0,"1","" 36910,5,"23",47,0,0,"0","ALWAYS PRINT END SIGN" 36911,80,"530",2,0,0,"0","gBLANK LINE" 36912,80,"511",2,0,0,"0","gPRINT END SIGN" 36913,,"72",2,0,0,"0","ENTRY POINT" 36914,5,"61",35,0,0,"0","" 36915,80,"486",2,0,0,"0","" 36916,5,"92",8,0,0,"0","CHAP OF ENTRY" 36917,,"27",5,0,0,"0","ENTRY LOCN" 36918,5,"92",6,0,0,"0","" 36919,0,"542",30,1,0,"0","'TYPEp'" 36920,5,"9",4,1,0,"0","" 36921,,"544",2,1,0,"0","" 36922,5,"9",6,1,0,"0","BEW" 36923,80,"514",2,0,0,"0","-O/P REMAINING DETS S/R" 36924,80,"539",2,0,0,"0","gREAD A2" 36925,,"8",4,1,0,"0","" 36926,12,"",0,0,0,"5659655972","'FINIS'" 36927,70,"369",32,0,0,"0","gEND" 36928,55,"8",4,1,0,"50","" 36929,C,"9",4,1,0,"0","" 36930,80,"514",2,0,0,"0","gWRITE A6" 36931,76,"369",24,0,0,"0","" 36932,55,"70",0,1,0,"100","COPY DETAILS FOR PASS 3" 36933,C,"9",0,1,0,"0","" 36934,,"27",4,0,0,"0","COMPILER?" 36935,71,"327",2,0,0,"0","gYES, CALL PASS 3" 36936,45,"A6",0,0,0,"0","REWIND O/P FILE" 36937,76,"327",2,0,0,"0","gCALL PASS 3" 37000,PROCR,"370",,,,"","INST ROUTINE" 37001,NOTES,"",RADIX,B,,"","NOTES AND CONTINUATION OF SWITCH INTO NEXT PROCEDURE" 37002,10,"",0,0,0,"1","" 37003,5,"61",99,0,0,"0","NON I/P IND" 37004,80,"522",2,0,0,"0","-I/P C-LINE S/R" 37005,,"66",2,1,0,"0","LINE SERIAL" 37006,5,"67",0,1,0,"0","" 37007,5,"61",2,0,0,"0","CLEAR MOD DIGITS" 37008,5,"61",25,0,0,"0","SET BINARY INDICATOR" 37009,0,"61",110,0,0,"0","GROUP+1" 37010,70,"362",2,0,0,"0","G.N.B." 37011,73,"362",2,0,0,"0","G.N.B." 37012,12,"",0,0,0,"11","" 37013,72,"362",2,0,0,"0","G.N.B." 37014,84,"372",2,0,0,"0","SWITCH B (GROUP)" 37015,C,"61",110,0,0,"0","" 37016,84,"381",2,0,0,"0","VARIANT SWITCH" 37017,C,"61",50,0,0,"0","VARIANT+1" 37018,0,"61",13,0,0,"0","LONG" 37019,101,"",148,1,2,"0","TEST 32 REMAIN" 37020,72,"371",2,0,0,"0","gDUMP" 37021,0,"61",15,0,0,"0","SHORT" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000342.JPG",,,,"","RayS/Q1000342" 37022,101,"",56,1,2,"0","TEST 3 REMAIN" 37023,72,"371",2,0,0,"0","gDUMP" 37024,0,"61",17,0,0,"0","TSL" 37025,101,"",218,1,2,"0","TEST 1 REMAINS" 37026,73,"372",2,0,0,"0","gOK" 37100,PROCR,"371",,,,"","" 37101,NOTES,"",,,,"","" 37102,80,"366",2,0,0,"0","gROUND UP CTRS" 37103,0,"61",17,0,0,"0","" 37104,2,"61",16,0,0,"0","TWICE TSL'S" 37105,31,"",0,0,0,"1-","" 37106,1,"61",15,0,0,"0","SHORT" 37107,1,"61",13,0,0,"0","LONG" 37108,5,"366",2,0,0,"0","INCREMENT TO SPACE CTR" 37109,34,"544",6,0,0,"0","BIT 1" 37110,36,"61",43,0,0,"0","SPACE CTR" 37111,12,"",0,0,0,"2","" 37112,2,"366",2,0,0,"0","LENTH OF FORMED CONSTANTS" 37113,1,"545",46,0,0,"0","24/1/0 TO NEXT ORDER" 37114,80,"498",2,0,0,"0","gO/P INT SC" 37115,80,"353",2,0,0,"0","gROUND UP SPACE CTR" 37116,80,"367",2,0,0,"0","gO/P FORMD SECTIONS" 37117,10,"",0,0,0,"1","" 37118,5,"61",42,0,0,"0","SPACE CTR INCR" 37119,5,"61",2,0,0,"0","CLEAR" 37120,54,"63",0,1,0,"280","CLEAR 63+62" 37121,0,"542",6,1,0,"0","'CONST'" 37122,5,"5",2,1,0,"0","" 37123,5,"61",12,1,0,"0","" 37124,5,"61",14,1,0,"0","" 37125,80,"530",2,0,0,"0","gPRINT" 37126,0,"544",18,1,0,"0","180:180" 37127,5,"61",16,1,0,"0","TSL CTR" 37128,10,"",0,0,0,"3","" 37129,4,"61",5,0,0,"0","AUG PROCR NUMBERS" 37130,4,"61",6,0,0,"0","" 37131,4,"61",7,0,0,"0","" 37132,10,"",0,0,0,"6","" 37133,5,"61",26,2,0,"0","" 37134,80,"516",2,0,0,"0","gO/P 'TYPE 6'" 37200,PROCR,"372",,,,"","SWITCH B" 37201,NOTES,"",RADIX,B,,"","" 37202,10,"",0,0,0,"0","" 37203,85,"372",2,0,0,"0","" 37204,C,"373",2,0,0,"0","GRP 0" 37205,C,"374",2,0,0,"0","1" 37206,C,"379",2,0,0,"0","2" 37207,C,"381",2,0,0,"0","3" 37208,C,"387",2,0,0,"0","4" 37209,C,"400",2,0,0,"0","5" 37210,C,"411",2,0,0,"0","6" 37211,C,"417",2,0,0,"0","7" 37212,C,"422",2,0,0,"0","8" 37213,C,"430",2,0,0,"0","9" 37214,C,"440",5,0,0,"0","10" 37215,C,"440",4,0,0,"0","11" 37216,C,"440",3,0,0,"0","12" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000343.JPG",,,,"","RayS/Q1000343" 37217,C,"440",2,0,0,"0","13" 37218,C,"445",2,0,0,"0","14" 37219,C,"447",2,0,0,"0","15" 37300,PROCR,"373",,,,"","GROUP 0 ACTIONS" 37301,NOTES,"",RADIX,B,,"","" 37302,,"61",50,0,0,"0","" 37303,12,"",0,0,0,"8","" 37304,73,"373",10,0,0,"0","gACTIONS 0-6" 37305,12,"",0,0,0,"2","" 37306,72,"373",14,0,0,"0","gACTION 9" 37307,,"545",27,0,0,"0","0/0/2" 37308,80,"356",2,0,0,"0","gCOMPLEX O/P NON-A" 37309,80,"521",2,0,0,"0","gI/P INSTRUCTION" 37310,124,"61",50,0,1,"0","VARIANT+1" 37311,,"545",7,0,0,"0","" 37312,80,"358",2,0,0,"0","gCOMPLES O/P ARITH" 37313,76,"362",2,0,0,"0","gGNB" 37314,,"545",18,0,0,"0","18/1/1 1" 37315,80,"359",2,0,0,"0","gO/P" 37316,76,"373",10,0,0,"0","" 37400,PROCR,"374",,,,"","GROUP 1 ACTIONS" 37401,NOTES,"",RADIX,,,"","" 37402,,"66",14,1,0,"0","LITERAL" 37403,5,"61",52,1,0,"0","" 37404,,"61",50,0,0,"0","VARIANT+1" 37405,12,"",0,0,0,"4","" 37406,72,"376",2,0,0,"0","gNOT ACTIONS 10-12" 37407,,"66",15,0,0,"0","" 37408,70,"374",14,0,0,"0","gSHORT LITERAL" 37409,124,"61",50,0,0,"0","" 37410,,"545",7,0,0,"0","" 37411,5,"61",0,1,0,"0","" 37412,80,"481",2,0,0,"0","LONG NO S/R" 37413,76,"362",2,0,0,"0","G.N.B" 37414,,"61",50,0,0,"0","VARIANT +1" 37415,12,"",0,0,0,"2","TEST VARIANT >0" 37416,72,"375",2,0,0,"0","gNOT ACTION 10" 37417,,"66",14,1,0,"0","" 37418,73,"375",9,0,0,"0","-" 37500,PROCR,"375",,,,"","GROUP 1 ACTIONS 0-2" 37501,NOTES,"",RADIX,B,,"","" 37502,,"544",22,0,0,"0","1pppp" 37503,2,"66",14,0,0,"0","LITERAL (MODULUS)" 37504,73,"375",9,0,0,"0","gNOT LITERAL" 37505,124,"61",50,0,0,"0","" 37506,,"545",21,0,0,"0","" 37507,1,"66",14,0,0,"0","" 37508,76,"382",9,0,0,"0","-" 37509,124,"61",50,0,0,"0","" 37510,,"545",7,0,0,"0","" 37511,5,"61",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000344.JPG",,,,"","RayS/Q1000344" 37512,80,"483",2,0,0,"0","SHORT NO S/R" 37513,76,"362",2,0,0,"0","-G.N.B." 37600,PROCR,"376",,,,"","ACTION 16" 37601,NOTES,"",RADIX,B,,"","" 37602,80,"534",2,0,0,"0","-SUSPEND S/R" 37603,54,"66",6,0,0,"8","" 37604,,"61",50,0,0,"0","VARIANT +1" 37605,12,"",0,0,0,"8","TEST VARIANT >6" 37606,72,"377",2,0,0,"0","gACTIONS 17 OR 19" 37607,,"61",26,1,0,"0","SUSPENDED REF" 37608,34,"61",28,1,0,"0","ITEM" 37609,75,"376",12,0,0,"0","gON(N)" 37610,,"61",32,1,0,"0","SUSPENDED MOD" 37611,70,"376",15,0,0,"0","gON(A)" 37612,,"545",22,0,0,"0","1/1/30" 37613,80,"359",2,0,0,"0","ZERO REF/PARA" 37614,76,"376",17,0,0,"0","" 37615,,"546",4,0,0,"0","2/1/0/6" 37616,80,"361",2,0,0,"0","gLN:2C SR" 37617,,"545",27,0,0,"0","0/0/2" 37618,80,"357",2,0,0,"0","gTEST LONG/SHORT NO S/R" 37619,0,"61",26,1,0,"0","SUSPENDED REF" 37620,34,"61",28,1,0,"0","SUSPENDED ITEM" 37621,75,"376",24,0,0,"0","" 37622,0,"545",3,0,0,"0","10/1/0 6" 37623,76,"361",8,0,0,"0","gLN:2C+GNB" 37624,80,"535",2,0,0,"0","gRESTORE" 37625,0,"545",15,0,0,"0","10/1/0 0" 37626,76,"373",12,0,0,"0","gO/P+GNB" 37700,PROCR,"377",,,,"","ACTIONS 17 AND 19" 37701,NOTES,"",RADIX,B,,"","" 37702,71,"377",8,0,0,"0","-IE VARIANT 9" 37703,,"61",26,1,0,"0","SUSPENDED REF" 37704,34,"61",28,1,0,"0","ITEM" 37705,75,"376",17,0,0,"0","gACTS ON(N)" 37706,,"546",5,0,0,"0","3/1/0/6" 37707,76,"376",16,0,0,"0","" 37708,,"545",36,0,0,"0","1/0/1 0" 37709,80,"359",2,0,0,"0","gO/P" 37710,0,"61",26,1,0,"0","REF" 37711,34,"61",28,1,0,"0","ITEM" 37712,74,"377",16,0,0,"0","" 37713,80,"535",2,0,0,"0","-RESTORE S/R" 37714,,"545",8,0,0,"0","6/0/0" 37715,80,"358",2,0,0,"0","gCOMPLEX O/P ARITH" 37716,,"545",64,0,0,"0","18/1/1/0/4119" 37717,80,"359",2,0,0,"0","gO/P" 37800,PROCR,"378",,,,"","ACTION 19" 37801,NOTES,"",RADIX,B,,"","" 37802,54,"66",6,0,0,"8","CLEAR REF, I,D,M" 37803,,"545",17,0,0,"0","13/0/0" 37804,80,"357",2,0,0,"0","gTEST SHORT/LONG NO SR" 37805,76,"362",2,0,0,"0","GNB" 37900,PROCR,"379",,,,"","GROUP2" 37901,NOTES,"",RADIX,B,,"","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000345.JPG",,,,"","RayS/Q1000345" 37902,5,"66",10,1,0,"0","CLEAR DISC" 37903,85,"381",2,0,0,"0","" 37904,C,"379",17,0,0,"0","20" 37905,C,"379",14,0,0,"0","21" 37906,C,"379",14,0,0,"0","22" 37907,C,"379",14,0,0,"0","23" 37908,C,"379",20,0,0,"0","24" 37909,C,"379",14,0,0,"0","25" 37910,C,"379",14,0,0,"0","26=MULTIPLY" 37911,C,"362",2,0,0,"0","27 GNB" 37912,C,"362",2,0,0,"0","28 GNB" 37913,C,"379",14,0,0,"0","29=DIVIDE" 37914,124,"61",50,0,0,"0","VARIANT+1" 37915,0,"545",80,0,0,"0","F.P. ACTION" 37916,76,"373",12,0,0,"0","gCOMPLEX O/P+GNB" 37917,0,"545",86,0,0,"0","21/0/0 DRAIN A*" 37918,80,"380",2,0,0,"0","F.P.S/R" 37919,76,"362",2,0,0,"0","G.N.B." 37920,80,"534",2,0,0,"0","gSUSPEND" 37921,,"545",84,0,0,"0","21/1/0" 37922,80,"380",2,0,0,"0","F.P.S/R" 37923,80,"535",2,0,0,"0","gRESTORE" 37924,0,"545",86,0,0,"0","21/0/0" 37925,80,"358",2,0,0,"0","gCOMPLEX O/P" 37926,0,"545",85,0,0,"0","20/0/0 8" 37927,76,"361",8,0,0,"0","gLN:2C+GNB" 38000,PROCR,"380",,,,"","GROUP 2 S/R" 38001,NOTES,"",RADIX,B,,"","" 38002,81,"380",2,0,0,"0","" 38003,12,"",0,0,0,"8","" 38004,80,"361",2,0,0,"0","gLN:2C SR" 38005,,"545",82,0,0,"0","20/0/0" 38006,80,"358",2,0,0,"0","gCOMPLEX O/P" 38007,82,"380",2,0,0,"0","" 38100,PROCR,"381",,,,"","GROUP 3 SWITCH" 38101,NOTES,"",RADIX,B,,"","" 38102,85,"381",2,0,0,"0","" 38103,C,"382",2,0,0,"0","30 QTT SHIFT A" 38104,C,"382",14,0,0,"0","31 BIT SHIFT A" 38105,C,"382",2,0,0,"0","32 QTT SHFT AB" 38106,C,"382",14,0,0,"0","33 BIT SHIFT AB" 38107,C,"382",12,0,0,"0","34 SELECT TO B" 38108,C,"383",2,0,0,"0","35 SET QTTS OF B" 38109,C,"384",2,0,0,"0","36 COLLATE" 38110,C,"384",2,0,0,"0","37 REPLACE BITS" 38111,C,"385",2,0,0,"0","38 ROUND OFF VBLE" 38112,C,"386",2,0,0,"0","39 ROUND UP" 38200,PROCR,"382",,,,"","GROUP 3 30-33 AND 34" 38201,NOTES,"",RADIX,B,,"","" 38202,,"66",14,1,0,"0","" 38203,72,"382",6,0,0,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000346.JPG",,,,"","RayS/Q1000346" 38204,10,"",0,0,0,"1020","SET NEGATIVE LITERAL" 38205,4,"66",14,1,0,"0","POSITIVE" 38206,124,"61",50,0,0,"0","" 38207,,"545",31,0,0,"0","18 ACTION" 38208,2,"66",14,0,0,"0","" 38209,5,"67",3,0,0,"0","" 38210,80,"518",2,0,0,"0","-O/P" 38211,76,"362",2,0,0,"0","-GNB" 38212,0,"545",27,0,0,"0","0/0/2" 38213,76,"403",12,0,0,"0","gCOMPLEX O/P+GNB" 38214,0,"66",14,1,0,"0","LITERAL" 38215,72,"382",6,0,0,"0","gTREAT AS ACTIONS 30, 32" 38216,32,"",0,0,0,"10-","" 38217,10,"",0,0,0,"0","COMPLEMENT IN B" 38218,36,"544",20,0,0,"0","BITS 1 2" 38219,5,"518",2,0,0,"0","g BIT SHIFTS LEFT REQUIRED" 38220,36,"545",91,0,0,"0","BITS 3-8+15" 38221,36,"545",91,0,0,"0","=(4096+32-N)X4" 38222,36,"545",91,0,0,"0","" 38223,36,"545",91,0,0,"0","" 38224,30,"",0,0,0,"1-","DIVIDE COMPLEMENT BY 4" 38225,5,"66",14,1,0,"0","SET AS ADDRESS FOR QTT RIGHT SHIFT" 38226,2,"518",2,0,0,"0","" 38227,70,"382",31,0,0,"0","gNO BITS LEFT" 38228,124,"61",50,0,0,"0","VARIANT +1" 38229,1,"545",31,0,0,"0","18/D/3" 38230,80,"359",2,0,0,"0","gO/P" 38231,12,"",0,0,0,"1","" 38232,4,"61",50,0,0,"0","REDUCE VARIANT" 38233,76,"382",6,0,0,"0","gO/P QTT SHIFT RIGHT" 38300,PROCR,"383",,,,"","ACTION 35" 38301,NOTES,"",RADIX,,,"","" 38302,0,"66",14,1,0,"0","" 38303,80,"538",2,0,0,"0","gCONVERT TO DEC" 38304,5,"66",14,1,0,"0","" 38305,62,"",0,0,0,"0","" 38306,124,"542",32,0,2,"0","" 38307,112,"66",14,1,0,"0","CONVERT TO BASE 2" 38308,72,"383",12,0,0,"0","-" 38309,5,"66",14,1,0,"0","" 38310,2,"66",14,1,0,"0","" 38311,11,"",0,0,0,"400","" 38312,1,"545",36,0,0,"0","1/0/1 ACTION" 38313,76,"382",9,0,0,"0","" 38400,PROCR,"384",,,,"","ACTIONS 36 AND 37" 38401,NOTES,"",RADIX,B,,"","" 38402,124,"61",50,0,0,"0","VARIANT +1" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000347.JPG",,,,"","RayS/Q1000347" 38403,,"545",30,0,0,"0","15 OR 14" 38404,76,"373",12,0,0,"0","" 38500,PROCR,"385",,,,"","ACTION 38" 38501,NOTES,"",RADIX,,,"","" 38502,,"545",39,0,0,"0","1/0/2" 38503,1,"66",14,1,0,"0","LITERAL" 38504,76,"382",9,0,0,"0","O/P & GNB" 38600,PROCR,"386",,,,"","ACTION 39" 38601,NOTES,"",RADIX,,,"","" 38602,,"545",30,0,0,"0","2/1/0" 38603,80,"361",2,0,0,"0","gLN:2C SR" 38604,,"546",6,0,0,"0","27/1/0/2" 38605,80,"498",2,0,0,"0","gO/P INT SC" 38606,,"545",53,0,0,"0","1/1/3/0/1" 38607,80,"359",2,0,0,"0","gO/P" 38608,0,"545",54,0,0,"0","4/1/0 0" 38609,76,"361",8,0,0,"0","gLN:2C+GNB" 38700,PROCR,"387",,,,"","GROUP 4 ACTIONS" 38701,NOTES,"",RADIX,,,"","" 38702,,"61",50,0,0,"0","VARIANT + 1" 38703,12,"",0,0,0,"4","" 38704,70,"387",6,0,0,"0","g43" 38705,80,"508",2,0,0,"0","0/1/0 0/0/3 S/R" 38706,0,"66",6,0,0,"0","FILE ID" 38707,5,"61",54,0,0,"0","" 38708,80,"499",2,0,0,"0","gCALC ROUTE PARA" 38709,5,"61",114,0,0,"0","" 38710,33,"",0,0,0,"6","ROUTE TYPE" 38711,3,"61",54,0,0,"0","" 38712,12,"",0,0,0,"7","" 38713,70,"387",32,0,0,"0","gRT7" 38714,12,"",0,0,0,"4","" 38715,70,"387",32,0,0,"0","gRT11" 38716,12,"",0,0,0,"4","" 38717,70,"392",19,0,0,"0","gRT15" 38718,12,"",0,0,0,"5","" 38719,71,"387",34,0,0,"0","gNOT 20" 38720,,"61",50,0,0,"0","VARIANT+1" 38721,12,"",0,0,0,"1","" 38722,71,"387",34,0,0,"0","gNOT 40" 38723,,"66",8,0,0,"0","CONVERT TO BINARY" 38724,80,"537",2,0,0,"0","" 38725,5,"66",6,0,0,"0","CLEAR" 38726,5,"66",8,0,0,"0","" 38727,,"545",66,0,0,"0","" 38728,80,"356",2,0,0,"0","gCOMPLEX O/P" 38729,,"545",72,0,0,"0","18/1/1/ 5-" 38730,80,"359",2,0,0,"0","" 38731,76,"387",34,0,0,"0","gEVERYTHING ELSE" 38732,11,"",0,0,0,"8","IF 7 OR 11 SET=8" 38733,5,"61",54,0,0,"0","ROUTE TYPE" 38734,,"91",4,0,3,"0","" 38735,30,"",0,0,0,"4-","GP CTR OR ZERO" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000348.JPG",,,,"","RayS/Q1000348" 38736,1,"91",1,0,0,"0","2R" 38737,5,"61",115,0,0,"0","" 38738,124,"61",115,0,1,"0","" 38739,,"91",5,0,0,"0","GP TX AREA PARA" 38740,5,"61",115,0,0,"0","" 38741,,"61",50,0,0,"0","VARIANT+1" 38742,31,"",0,0,0,"5","" 38743,1,"61",54,0,0,"0","ROUTE TYPE" 38744,31,"",0,0,0,"3","" 38745,34,"545",5,0,0,"0","BITS 1-3" 38746,36,"66",14,0,0,"0","LITERAL" 38747,30,"",0,0,0,"2","TO Q3,4,5" 38748,101,"398",2,0,0,"0","TABLE LOOKUP" 38749,100,"61",56,1,0,"0","" 38750,10,"",0,0,0,"0","" 38751,35,"",0,0,0,"11","Q1,2" 38752,124,"61",58,0,3,"0","" 38753,115,"",0,0,0,"0","COLLATE MASTER ROUTE TYPE" 38754,33,"",0,0,0,"7-","B8+B1" 38755,30,"",0,0,0,"3","" 38756,33,"",0,0,0,"6","B8+B19, B2-7+B1-6" 38757,5,"61",61,0,0,"0","" 38758,33,"",0,0,0,"1","" 38759,5,"61",60,0,0,"0","SET SPECIAL IND FOR 'READ RT 10'" 38760,86,"372",2,0,0,"0","" 38761,12,"",0,0,0,".","" 38762,70,"443",4,0,0,"0","gCHEQUE-SORTER" 38763,,"61",50,0,0,"0","VARIANT+1" 38764,12,"",0,0,0,"4","" 38765,71,"392",8,0,0,"0","" 38766,80,"522",2,0,0,"0","gNOT ACTION 43" 38767,80,"508",2,0,0,"0","gI/P C-LINE" 38768,0,"66",6,2,0,"0","0/1/0 0/0/3 S/R" 38769,80,"537",2,0,0,"0","gTO BIN" 38770,5,"66",6,1,0,"0","" 38771,0,"61",54,0,0,"0","ROUTE TYPE" 38772,12,"",0,0,0,"3","" 38773,70,"388",26,0,0,"0","gCARD" 38774,12,"",0,0,0,"1","" 38775,70,"388",23,0,0,"0","gGP PRINT" 38776,12,"",0,0,0,"9","" 38777,70,"391",2,0,0,"0","gRT 13" 38778,12,"",0,0,0,"5","" 38779,70,"391",2,0,0,"0","gRT 18" 38780,12,"",0,0,0,"1","" 38781,71,"393",6,0,0,"0","gNOT ROUTE 19" 38782,0,"545",8,0,0,"0","6/0/0" 38783,1,"61",114,0,0,"0","RTE PARA" 38784,80,"355",2,0,0,"0","O/P" 38785,80,"390",2,0,0,"0","" 38786,70,"387",92,0,0,"0","gNO FN WORD BITS SET" 38787,0,"545",13,0,0,"0","2/0/0" 38788,101,"",8,1,1,"0","" 38789,80,"498",2,0,0,"0","O/P" 38790,80,"389",2,0,0,"0","" 38791,76,"387",95,0,0,"0","" 38792,0,"545",13,0,0,"0","2/0/0" 38793,101,"",4,1,1,"0","" 38794,80,"498",2,0,0,"0","O/P" 38795,,"92",29,0,0,"0","NUMBER OD CHAPS" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000349.JPG",,,,"","RayS/Q1000349" 38796,80,"504",2,0,0,"0","gO/P 24/0/3 BY SPECIAL CHAP START" 38797,101,"",1001,1,3,"0","" 38798,30,"",0,0,0,"2","REF=1001, PARA=0" 38799,5,"67",2,0,0,"0","" 38800,PROCR,"388",,,,"","43 DEAL WITH G.P. O/P" 38801,NOTES,"",RADIX,B,,"","SET UP A FOR EDIT" 38802,0,"545",47,0,0,"0","26/0/0" 38803,80,"359",2,0,0,"0","g O/P 'ENTER PRINT SR'" 38804,,"546",26,0,0,"0","24/1/0 5" 38805,80,"498",2,0,0,"0","g O/P INT SEQ CHANGE" 38806,,"61",114,0,0,"0","" 38807,5,"67",2,0,0,"0","" 38808,80,"359",2,0,0,"0","gO/P ROUTE PARA AS A LITERAL" 38809,80,"488",2,0,0,"0","SELECT SECTION TX AREA PARA" 38810,11,"",0,0,0,"1","" 38811,5,"67",2,0,0,"0","" 38812,80,"359",2,0,0,"0","gO/P ROUTE PARA AS LITYERAL" 38813,,"61",115,0,0,"0","GP TX AREA PARA" 38814,11,"",0,0,0,"1","" 38815,5,"67",2,0,0,"0","" 38816,80,"359",2,0,0,"0","gO/P AS LITERAL" 38817,,"61",8,0,0,"0","TX AREA LENGTH (OVERFLOW FROM TX ABOVE PROC" 38818,118,"",7,0,3,"0","X64" 38819,1,"545",13,0,0,"0","BIT 18" 38820,80,"359",2,0,0,"0","*****O/P TOP OF BULK CLEAR CONST" 38821,80,"399",2,0,0,"0","gRESTORE ABC" 38822,76,"362",2,0,0,"0","gGNB" 38823,80,"390",2,0,0,"0","" 38824,70,"388",26,0,0,"0","g NO FN WORD BITS SET" 38825,80,"389",2,0,0,"0","" 38826,5,"66",10,1,0,"0","" 38827,,"545",66,0,0,"0","24/0/2" 38828,80,"356",2,0,0,"0","COMPLEX O/P NON-ARITH" 38829,0,"545",19,0,0,"0","24/1/2" 38830,2,"61",115,0,0,"0","GP TX AREA PARA" 38831,12,"",0,0,0,"1","" 38832,80,"355",2,0,0,"0","gO/P" 38833,,"61",54,0,0,"0","FILE TYPE" 38834,12,"",0,0,0,"4","" 38835,70,"388",37,0,0,"0","gANELEX" 38836,0,"545",26,0,0,"0","BIT 14" 38837,1,"545",67,0,0,"0","29/0/1" 38838,80,"359",2,0,0,"0","gO/P" 38839,0,"61",115,0,0,"0","GP TX AREA PARA" 38840,76,"393",7,0,0,"0","" 38900,PROCR,"389",,,,"","S/R TO SET BITS FOR PRINTING" 38902,81,"389",2,0,0,"0","" 38903,,"545",27,0,0,"0","0/0/2" 38904,80,"357",2,0,0,"0","gLONG O/P" 38905,,"545",8,0,0,"0","6/0/0" 38906,80,"357",2,0,0,"0","gLONGOP" 38907,80,"535",2,0,0,"0","gRESTORE" 38908,10,"",0,0,0,"1","" 38909,5,"66",10,1,0,"0","" 38910,,"545",38,0,0,"0","" 38911,80,"358",2,0,0,"0","COMPLEX OP ARITH" 38912,,"61",26,1,0,"0","SUSPENDED REF" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000350.JPG",,,,"","ChuckK/Q1000350" 38913,5,"66",6,1,0,"0","" 38914,82,"389",2,0,0,"0","" 39000,PROCR,"390",,,,"","SET BITS FOR FN WORD " 39002,81,"390",2,0,0,"0","" 39003,80,"534",2,0,0,"0","SUSPEND" 39004,12,"",0,0,0,"1","" 39005,124,"61",8,0,1,"0","SET BITS OF 64 WORDS (1-4)" 39006,31,"",0,0,0,"0","/////" 39007,11,"",0,0,0,"10","" 39008,30,"",0,0,0,"9","TO Q10" 39009,3,"61",52,1,0,"0","BITS FOR FN WORD" 39010,82,"390",2,0,0,"0","" 39100,PROCR,"391",,,,"","DEAL WITH 43 FOR 'UPTIME' CARD READER " 39102,,"545",27,0,0,"0","0/0/2 0" 39103,80,"361",2,0,0,"0",">LN:2C (ORIG(A)>B)" 39104,76,"396",2,0,0,"0","" 39200,PROCR,"392",,,,"","GROUP 4 SWITCH " 39201,NOTES,"",RADIX,,,"","" 39202,81,"392",8,0,0,"0","" 39203,,"61",39,0,0,"0","LAST PARA NUMBER" 39204,5,"67",2,0,0,"0","" 39205,,"545",22,0,0,"0","1/1/3 0" 39206,80,"359",2,0,0,"0",">OUTPUT(SELECT PARA VALUE)" 39207,82,"392",8,0,0,"0","" 39208,85,"381",2,0,0,"0","" 39209,C,"394",2,0,0,"0","40" 39210,C,"396",2,0,0,"0",">41" 39211,C,"393",2,0,0,"0","42" 39212,C,"393",2,0,0,"0","43" 39213,C,"393",19,0,0,"0","44" 39214,C,"396",3,0,0,"0","45" 39215,C,"394",59,0,0,"0","46" 39216,C,"394",59,0,0,"0","47" 39217,C,"394",59,0,0,"0",">48" 39218,C,"394",59,0,0,"0","49" 39219,,"61",50,0,0,"0","V+1" 39220,12,"",0,0,0,"2","" 39221,70,"392",31,0,0,"0",">CLOSE" 39222,72,"393",2,0,0,"0",">READ" 39223,80,"392",8,0,0,"0",">O/P 1/1/3 P" 39224,,"546",23,0,0,"0","3/0/0 2" 39225,80,"361",2,0,0,"0",">LN:2C" 39226,,"546",22,0,0,"0","1/1/1 10" 39227,80,"359",2,0,0,"0",">O/P" 39228,,"546",8,0,0,"0","18/0/0 5" 39229,80,"359",2,0,0,"0","" 39230,76,"394",2,0,0,"0","" 39231,80,"392",8,0,0,"0","" 39232,,"546",24,0,0,"0","1/1/ 20" 39233,80,"359",2,0,0,"0",">O/P" 39234,,"546",8,0,0,"0","18/0/0 5" 39235,80,"359",2,0,0,"0","" 39236,76,"396",2,0,0,"0","" 39300,PROCR,"393",,,,"","GROUP 4 " 39301,NOTES,"",RADIX,,,"","VARIANTS 2 & 3" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000351.JPG",,,,"","ChuckK/Q1000351" 39302,80,"522",2,0,0,"0","I/P C-LINE" 39303,,"66",6,2,0,"0","" 39304,80,"537",2,0,0,"0","CONVERT TO BIN" 39305,5,"66",6,0,0,"0","" 39306,80,"488",2,0,0,"0",">SELECT TX AREA PARA" 39307,1,"545",27,0,0,"0","0/0/2" 39308,80,"355",2,0,0,"0",">O/P" 39309,,"61",54,0,0,"0","ROUTE TYPE" 39310,12,"",0,0,0,"18","" 39311,71,"396",2,0,0,"0",">NOT RT 24" 39312,,"545",55,0,0,"0","18/1/1 5" 39313,80,"359",2,0,0,"0",">O/P ZERO REF/PARA" 39314,,"546",30,0,0,"0","1/1/3 1" 39315,80,"359",2,0,0,"0",">O/P S/R" 39316,,"545",72,0,0,"0","18/1/1 5-" 39317,80,"359",2,0,0,"0",">O/P S/R" 39318,76,"396",2,0,0,"0","" 39319,0,"545",27,0,0,"0","0/0/2" 39320,80,"361",2,0,0,"0",">LN:2C SR" 39321,101,"",1,1,3,"0","(A) NON ZERO" 39322,76,"396",3,0,0,"0","" 39400,PROCR,"394",,,,"","GROUP 4 " 39401,NOTES,"",RADIX,B,,"","" 39402,,"61",54,0,0,"0","" 39403,12,"",0,0,0,"+","" 39404,71,"394",34,0,0,"0",">NOT AUTOLECTOR" 39405,,"61",61,0,0,"0","" 39406,5,"543",43,0,0,"0","" 39407,35,"",0,0,0,"111","" 39408,36,"91",4,0,3,"0","ANNEX HALF-LENGTH" 39409,36,"91",4,0,3,"0","" 39410,12,"",0,0,0,"2","" 39411,1,"545",13,0,0,"0","BIT 18" 39412,30,"",0,0,0,"5","" 39413,5,"61",60,1,0,"0","" 39414,12,"",0,0,0,"40","64-" 39415,5,"61",52,1,0,"0","" 39416,,"545",8,0,0,"0","6/0/0" 39417,80,"357",2,0,0,"0",">SHORT O/P" 39418,,"61",114,0,0,"0","ROUTE PARA" 39419,1,"545",10,0,0,"0","5/0/0" 39420,80,"355",2,0,0,"0",">O/P" 39421,,"546",16,0,0,"0","2/0/0 6" 39422,80,"361",2,0,0,"0",">LN:2C SR" 39423,,"61",60,1,0,"0","" 39424,5,"61",52,1,0,"0","" 39425,,"545",8,0,0,"0","6/0/0" 39426,80,"357",2,0,0,"0",">LONG O/P" 39427,,"546",21,0,0,"0","24/1/2 6" 39428,80,"361",2,0,0,"0",">LN:2C SR" 39429,10,"",0,0,0,"+4000-","28/1/1 0" 39430,80,"359",2,0,0,"0",">O/P" 39431,,"543",43,0,0,"0","" 39432,5,"61",61,0,0,"0","" 39433,76,"396",2,0,0,"0","" 39434,12,"",0,0,0,"8","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000352.JPG",,,,"","ChuckK/Q1000352" 39435,70,"396",2,0,0,"0","" 39436,,"66",6,1,0,"0","FILE IDENTITY R-ALIGNED" 39437,30,"",0,0,0,"5","" 39438,1,"61",112,0,0,"0","PROG ID" 39439,5,"61",52,1,0,"0","" 39440,80,"397",2,0,0,"0",">TEST C-LINE FOLLOWS" 39441,3,"397",2,0,0,"0","" 39442,71,"394",54,0,0,"0",">NO" 39443,80,"534",2,0,0,"0",">SUSPEND" 39444,,"66",10,0,0,"0","C-LINE DISC" 39445,70,"394",54,0,0,"0",">ANOTHER 40 ACTION" 39446,,"66",6,2,0,"0","REF" 39447,80,"537",2,0,0,"0",">BIN" 39448,5,"66",6,1,0,"0","" 39449,10,"",0,0,0,"1","" 39450,5,"66",10,1,0,"0","" 39451,,"545",27,0,0,"0","0/0/2" 39452,80,"356",2,0,0,"0",">COMPLEX O/P NON-ARITH" 39453,76,"396",2,0,0,"0",">GET NEXT LINE" 39454,,"545",27,0,0,"0","0/0/2" 39455,80,"357",2,0,0,"0",">LONG NUMBER O/P" 39456,,"397",2,0,0,"0","INDICATOR" 39457,71,"396",20,0,0,"0","" 39458,76,"396",6,0,0,"0","" 39459,80,"522",2,0,0,"0","IP C-LINE" 39460,,"66",6,2,0,"0","" 39461,80,"537",2,0,0,"0","CONVERT" 39462,3,"66",6,1,0,"0","" 39463,71,"395",2,0,0,"0","" 39464,0,"61",28,1,0,"0","SUSPENDED ITEM" 39465,30,"",0,0,0,"5","" 39466,1,"66",14,1,0,"0","" 39467,5,"61",52,1,0,"0","" 39468,,"545",27,0,0,"0","0/0/2" 39469,80,"357",2,0,0,"0",">LONG NO O/P" 39470,76,"396",2,0,0,"0","-SET UP A" 39500,PROCR,"395",,,,"","GROUP 4 " 39501,NOTES,"",RADIX,,,"","VARIANTS 6,7,8,9" 39502,,"61",50,0,0,"0","" 39503,12,"",0,0,0,"9","" 39504,73,"395",8,0,0,"0","" 39505,,"545",27,0,0,"0","0/0/2" 39506,80,"356",2,0,0,"0",">COMPLEX O/P NON-ARITH" 39507,76,"396",2,0,0,"0","" 39508,,"545",8,0,0,"0","6/0/0" 39509,80,"358",2,0,0,"0",">COMPLEX O/P ARITH" 39510,,"61",28,1,0,"0","SUSPENDED ITEM" 39511,30,"",0,0,0,"5","" 39512,5,"61",52,1,0,"0","" 39513,,"545",9,0,0,"0","4/0/0" 39514,80,"357",2,0,0,"0",">LONG NO O/P" 39515,,"545",62,0,0,"0","18/1/1/0/10" 39516,80,"359",2,0,0,"0",">O/P" 39600,PROCR,"396",,,,"","SET UP A " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000353.JPG",,,,"","TonyJ/Q1000353" 39601,NOTES,"",RADIX,,,"","B" 39602,80,"397",2,0,0,"0","> TEST C-LINE FOLLOWS SR" 39603,3,"397",2,0,0,"0","STORE IND" 39604,71,"396",20,0,0,"0","> NO C-LINE" 39605,80,"534",2,0,0,"0","> SUSPEND C-LINE" 39606,0,"61",50,0,0,"0","V + 1" 39607,12,"",0,0,0,"3","" 39608,73,"396",20,0,0,"0","> ACTIONS 40, 41 NOT 42, 43" 39609,0,"545",55,0,0,"0","18//1/1/5" 39610,80,"359",2,0,0,"0","> O/P" 39611,0,"66",6,2,0,"0","REP (UNCONVERTED FOR GROUP 4)" 39612,80,"537",2,0,0,"0","> CONVERT" 39613,5,"66",6,1,0,"0","" 39614,5,"66",8,1,0,"0","CLEAR ITEM" 39615,0,"545",66,0,0,"0","24/0/2" 39616,80,"356",2,0,0,"0","> COMPLEX O/P NON-A" 39617,,"545",72,0,0,"0","18/1/1 5-" 39618,80,"359",2,0,0,"0","> O/P" 39619,80,"397",2,0,0,"0","> I/P, SET 380/2 NONZERO" 39620,,"61",54,0,0,"0","ROUTE TYPE" 39621,12,"",0,0,0,"£","" 39622,71,"396",30,0,0,"0","> OTHER THAN RT 15" 39623,,"61",50,0,0,"0","V + 1" 39624,12,"",0,0,0,"3","" 39625,71,"396",44,0,0,"0","> NOT 42 ACTION" 39626,80,"392",2,0,0,"0","> O/P 1/1/3 R" 39627,0,"546",8,0,0,"0","18/0/0 5" 39628,80,"359",2,0,0,"0","> O/P" 39629,76,"396",44,0,0,"0","" 39630,,"61",54,0,0,"0","ROUTE TYPE" 39631,12,"",0,0,0,"2","" 39632,70,"396",35,0,0,"0","" 39633,12,"",0,0,0,"1","" 39634,71,"396",40,0,0,"0","> NOT RT 2 OR 3" 39635,,"61",50,0,0,"0","V + 1" 39636,12,"",0,0,0,"2","ACTION 41" 39637,71,"396",40,0,0,"0","> NO" 39638,,"545",27,0,0,"0","0/0/2" 39639,80,"355",2,0,0,"0","> ZERO REF;PARA=2CNO" 39640,,"61",60,1,0,"0","" 39641,5,"61",52,1,0,"0","(61/52 IS CLEARED)" 39642,,"545",8,0,0,"0","6/0/0" 39643,80,"357",2,0,0,"0","> LONG NO O/P" 39644,0,"61",114,0,0,"0","ROUTE PARA" 39645,1,"545",9,0,0,"0","4/0/0" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000354.JPG",,,,"","TonyJ/Q1000354" 39646,80,"355",2,0,0,"0","> O/P" 39647,80,"453",2,0,0,"0","> O/P 25/1/1 4096 > 24/0/3 0" 39648,10,"",0,0,0,"100","" 39649,5,"67",1,0,0,"0","" 39650,,"545",60,0,0,"0","23/0/2" 39651,80,"359",2,0,0,"0","> O/P" 39652,0,"397",2,0,0,"0","C LINE FOLLOWS ?" 39653,71,"397",12,0,0,"0","> NO" 39654,80,"535",2,0,0,"0","> RESTORE C LINE" 39655,76,"387",6,0,0,"0","> ASSUME 40/41/44 ACTION. TRANSLATE C-LINE" 39700,PROCR,"397",,397,,"TEST CONTINUATION LINE","" 39701,NOTES,"",RADIX,,,"B","" 39702,81,"397",2,0,0,"0","" 39703,80,"509",2,0,0,"0","" 39704,,"",7,0,12,"0","TOP OF L-ALIGNED ACTION" 39705,2,"542",27,0,0,"0","" 39706,71,"397",11,0,0,"0","> EXIT WITH A NONZERO IF NOT C-LINE" 39707,10,"",0,0,0,"1","" 39708,5,"61",99,0,0,"0","NON I/P IND" 39709,80,"522",2,0,0,"0","C-LINE S/R" 39710,10,"",0,0,0,"0","EXIT WITH A ZERO IF C-LINE" 39711,82,"397",2,0,0,"0","" 39712,0,"61",50,0,0,"0","V + 1" 39713,12,"",0,0,0,"1","" 39714,71,"397",21,0,0,"0","> NOT ACTION 40" 39715,,"61",54,0,0,"0","" 39716,12,"",0,0,0,"£","" 39717,71,"397",27,0,0,"0","> 40 BUT NOT RT 15" 39718,,"546",25,0,0,"0","0/0/2 2" 39719,80,"361",2,0,0,"0","> LN : 2C" 39720,76,"397",27,0,0,"","" 39721,12,"",0,0,0,"4","" 39722,70,"397",27,0,0,"0","> ACTION 44" 39723,12,"",0,0,0,"1","" 39724,70,"397",32,0,0,"0","> 45" 39725,80,"399",2,0,0,"0","> RESTORE ABC" 39726,76,"362",3,0,0,"0","> GNB (NON-INPUT)" 39727,80,"405",2,0,0,"0","> RESTORE C" 39728,,"61",50,0,0,"0","VARIANT +1" 39729,12,"",0,0,0,"1","" 39730,70,"362",3,0,0,"0","> 40 ACTION" 39731,76,"362",2,0,0,"0","READ NEXT BLOCK" 39732,80,"399",2,0,0,"0","RESTORE ABC" 39733,76,"362",2,0,0,"0","" 39800,CONST,"398",,0,,"","" 39802,,"(B4)1(B5)1(B3)7(B7)11(B1)0;",,,,"","B17-20=VARIANT+1" 39803,,"1,3,7,13,0;",,,,"","B12-16=INTERCODE R,TYPE" 39804,,"1,4,7,14,0;",,,,"","B9-11=LITERAL" 39805,,"1,5,7,15,0;",,,,"","B2-8=MASTER R,TYPE" 39806,,"1,6,7,16,0;",,,,"","B1 =NON-STD CARD I/P" 39807,,"1,8,0,18,0;",,,,"","B8=IND FOR Q5 MASTER RT" 39808,,"1,8,7,17,0;",,,,"","" 39809,,"1,9,7,19,0;",,,,"","" 39810,,"1,10,7,16,0;",,,,"","" 39811,,"1,12,7,20,0;",,,,"","" 39812,,"1,13,7,16,0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000355.JPG",,,,"","RayS/Q1000355" 39813,,"1,16,7,75,0;",,,,"","OPEN RT 16" 39814,,"1,18,7,16,0;",,,,"","" 39815,,"1,19,7,19,0;",,,,"","OPEN RT 19" 39816,,"1,20,7,53,0;",,,,"","DT" 39817,,"1,22,7,59,0;",,,,"","DATA LINK" 39818,,"1,25,7,55,0;",,,,"","" 39819,,"2,1,7,21,0;",,,,"","" 39820,,"2,3,7,23,0;",,,,"","" 39821,,"2,4,7,24,0;",,,,"","" 39822,,"2,5,7,25,0;",,,,"","" 39823,,"2,6,7,26,0;",,,,"","" 39824,,"2,8,0,28,0;",,,,"","" 39825,,"2,8,1,27,0;",,,,"","" 39826,,"2,8,2,45,0;",,,,"","" 39827,,"2,8,7,46,0;",,,,"","" 39828,,"2,9,7,29,0;",,,,"","" 39829,,"2,10,7,26,0;",,,,"","" 39830,,"2,12,7,30,0;",,,,"","" 39831,,"2,13,7,26,0;",,,,"","" 39832,,"2,16,7,85,0;",,,,"","CLOSE RT 16" 39833,,"2,18,7,26,0;",,,,"","" 39834,,"2,19,7,29,0;",,,,"","CLOSE RT 19" 39835,,"2,25,7,56,0;",,,,"","" 39836,,"3,5,7,5,0;",,,,"","" 39837,,"3,6,7,6,0;",,,,"","" 39838,,"3,8,7,7,0;",,,,"","" 39839,,"3,10,7,6,1;",,,,"","" 39840,,"3,12,7,10,0;",,,,"","" 39841,,"3,13,7,6,0;",,,,"","" 39842,,"3,17,7,52,0;",,,,"","ACTION 132" 39843,,"3,18,7,6,1;",,,,"","" 39844,,"3,20,7,54,0;",,,,"","DT" 39845,,"3,24,7,5,0;",,,,"","8 HOLE PT" 39846,,"4,1,7,1,0;",,,,"","" 39847,,"4,3,7,3,0;",,,,"","" 39848,,"4,4,7,4,0;",,,,"","" 39849,,"4,8,7,8,0;",,,,"","" 39850,,"4,9,7,9,0;",,,,"","" 39851,,"4,13,7,49,0;",,,,"","" 39852,,"4,16,7,65,0;",,,,"","WRITE RT 16" 39853,,"4,17,7,50,0;",,,,"","ACTION 133" 39854,,"4,18,7,49,0;",,,,"","" 39855,,"4,22,7,58,0;",,,,"","" 39856,,"5,5,7,48,0;",,,,"","" 39857,,"5,8,2,47,0;",,,,"","" 39858,,"5,8,7,48,0;",,,,"","" 39859,,"5,17,7,51,0;",,,,"","ACTION 134" 39860,,"5,25,7,57,0;",,,,"","" 39861,,"6,8,0,33,0;",,,,"","" 39862,,"6,8,7,34,0;",,,,"","" 39863,,"7,8,0,35,0;",,,,"","" 39864,,"7,8,7,36,0;",,,,"","" 39865,,"8,8,7,37,0;",,,,"","" 39866,,"9,8,0,39,0;",,,,"","" 39867,,"9,8,1,40,0;",,,,"","" 39868,,"9,8,2,43,0;",,,,"","" 39869,,"9,8,7,44,0;",,,,"","" 39870,,"10,8,0,41,0;",,,,"","" 39871,,"10,8,7,42,0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000356.JPG",,,,"","RayS/Q1000356" 39900,PROCR,"399",,,,"","0/1/1 S/R" 39901,NOTES,"",RADIX,B,,"","" 39902,81,"399",2,0,0,"0","" 39903,,"61",25,0,0,"0","SET BINARY INDICATOR" 39904,12,"",0,0,0,"1","" 39905,3,"61",25,0,0,"0","" 39906,70,"399",8,0,0,"0","" 39907,10,"",0,0,0,"8","" 39908,1,"545",21,0,0,"0","0/1/1" 39909,80,"361",2,0,0,"0","gLN:2C SR" 39910,82,"399",2,0,0,"0","" 40000,PROCR,"400",,,,"","GROUP 5 SWITCH" 40001,NOTES,"",RADIX,B,,"","" 40002,85,"381",2,0,0,"0","" 40003,C,"401",4,0,0,"0","50" 40004,C,"401",2,0,0,"0","51" 40005,C,"401",4,0,0,"0","52" 40006,C,"401",3,0,0,"0","53" 40007,C,"402",2,0,0,"0","54" 40008,C,"404",2,0,0,"0","55" 40009,C,"408",2,0,0,"0","56" 40010,C,"409",2,0,0,"0","57" 40011,C,"409",11,0,0,"0","58=MERGE VARIABLE" 40012,C,"410",2,0,0,"0","59" 40100,PROCR,"401",,,,"","ACTIONS 50-53" 40101,NOTES,"",RADIX,B,,"","" 40102,10,"",0,0,0,"1","" 40103,11,"",0,0,0,"1","" 40104,5,"61",84,0,0,"0","-INDIC" 40105,5,"66",10,1,0,"0","CLEAR FIRST LINE DISC" 40106,80,"522",2,0,0,"0","- I/P C-LINE" 40107,10,"",0,0,0,"0","" 40108,5,"66",10,1,0,"0","" 40109,,"545",66,0,0,"0","24/0/2" 40110,80,"356",2,0,0,"0","gCOMPLEX O/P NON-A" 40111,80,"535",2,0,0,"0","-REPLACE" 40112,124,"61",50,0,0,"0","VARIANT+1" 40113,,"545",67,0,0,"0","" 40114,80,"356",2,0,0,"0","gCOMPLEX O/P NON-A" 40115,,"61",84,0,0,"0","" 40116,70,"362",2,0,0,"0","-GNB" 40117,12,"",0,0,0,"1","" 40118,70,"401",23,0,0,"0","gACTION 53" 40119,80,"508",2,0,0,"0","" 40120,,"546",7,0,0,"0","1/1/1/2" 40121,80,"359",2,0,0,"0","gO/P" 40122,80,"405",2,0,0,"0","RESTORE C" 40123,0,"61",26,0,0,"0","SUSPENDED REF" 40124,12,"",0,0,0,"64","100" 40125,72,"362",2,0,0,"0","gGNB (NO +CTR)" 40126,80,"535",2,0,0,"0","RESTORE S/R" 40127,0,"545",11,0,0,"0","3/0/0" 40128,80,"502",2,0,0,"0","g'ITEM+' SR" 40129,76,"362",2,0,0,"0","gGNB (NO +CTR)" ,,"",,0,0,"0","" 40200,PROCR,"402",,0,0,"0","BULK CLEAR" 40201,NOTES,"",RADIX,B,,"","ACTION 54" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000357.JPG",,,,"","TonyJ/Q1000357" 40202,80,"534",2,0,0,"0","> SUSPEND FIRST LINEO/P" 40203,,"66",14,1,0,"0","LITERAL" 40204,70,"402",8,0,0,"0","> LITERAL ZERO" 40205,1,"545",13,0,0,"0","BIT 18" 40206,30,"",0,0,0,"5","" 40207,76,"402",12,0,0,"0","" 40208,80,"521",2,0,0,"0"," - I/P INST" 40209,80,"508",2,0,0,"0","0/1/0 0/0/3 S/R" 40210,80,"406",2,0,0,"0"," - SECOND SUSPEND S/R" 40211,,"545",13,0,0,"0","BIT 18" 40212,5,"61",52,1,0,"0","" 40213,,"545",8,0,0,"0","6/0/0" 40214,80,"357",2,0,0,"0","> SHORT NO O/P" 40215,,"66",14,1,0,"0","LITERAL" 40216,71,"403",4,0,0,"0","> NO CONT LINE" 40217,80,"407",2,0,0,"0","> SECOND RESTORE S/R" 40218,,"545",9,0,0,"0","" 40219,80,"358",2,0,0,"0","> COMPLEX O/P ARITH" 40220,80,"405",2,0,0,"0","RESTORE C S/R" 40300,PROCR,"403",,403,,"BULK CLEAR","" 40301,NOTES,"",RADIX,,,"B","" 40302,,"546",8,0,0,"0","18/0/1/5" 40303,80,"359",2,0,0,"0",">O/P" 40304,80,"535",2,0,0,"0"," - RESTORE S/R" 40305,,"66",10,0,0,"0","FIRST LINE DISC" 40306,70,"403",11,0,0,"0","" 40307,10,"",0,0,0,"0","" 40308,5,"66",10,1,0,"0","CLEAR DISC" 40309,,"546",29,0,0,"0"," 28/1/1" 40310,76,"403",12,0,0,"0","" 40311,,"545",65,0,0,"0"," 28/0/0" 40312,80,"356",2,0,0,"0","> COMPLEX O/P NON-A" 40313,76,"362",2,0,0,"0","> GNB" 40400,PROCR,"404",,404,,"BULK COPY","" 40401,NOTES,"",RADIX,,,"B","" 40402,,"66",14,1,0,"0","LITERAL" 40403,5,"61",113,0,0,"0","W/L" 0query,164,"",,,,"","WHICH INCLUDES A SUS" 40404,80,"522",2,0,0,"0","I/P C-LINE" 40405,80,"406",2,0,0,"0","SECOND SUSPEND C/R" 40406,0,"61",62,0,0,"0","" 40407,70,"404",10,0,0,"0","> SHORT BEST" 40408,10,"",0,0,0,"1","READ NEXT BLOCK" 40409,5,"61",62,0,0,"0","" 40410,,"61",30,0,0,"0","DISC. FIRST LINE" 40411,70,"404",16,0,0,"0","> SHORT SOURCE" 40412,10,"",0,0,0,"1","" 40413,3,"61",30,0,0,"0","" 40414,2,"61",62,0,0,"0","" 40415,4,"61",28,1,0,"0","AUG BY 0 OR 1" 40416,80,"535",2,0,0,"0","RESTORE FIRST LINE" 40417,5,"66",10,1,0,"0","DISC" 40418,,"545",66,0,0,"0","24/0/2" 40419,80,"356",2,0,0,"0","> COMPLEX O/P NON-A" 40420,,"545",72,0,0,"0","18/1/15-" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000358.JPG",,,,"","TonyJ/Q1000358" 40421,80,"359",2,0,0,"0",">O/P" 40422,,"61",113,0,0,"0","FIRST LINE LITERAL" 40423,71,"404",28,0,0,"0","" 40424,80,"521",2,0,0,"0","I/P INSTRUCTION" 40425,,"545",8,0,0,"0","6/0/0" 40426,80,"358",2,0,0,"0","> COMPLEX O/P ARITH" 40427,76,"404",30,0,0,"0","" 40428,1,"545",22,0,0,"0"," 1/1/3" 40429,80,"359",2,0,0,"0",">O/P" 40430,,"545",55,0,0,"0","18/1/1/0/5" 40431,80,"359",2,0,0,"0",">O/P" 40432,80,"407",2,0,0,"0"," SECOND RESTORE S/R" 40433,,"61",30,0,0,"0","1ST LINE DISC" 40434,3,"66",10,0,0,"0","" 40435,71,"404",40,0,0,"0","" 40436,0,"61",62,0,0,"0","DISC (2ND LINE)" 40437,70,"404",40,0,0,"0","" 40438,10,"",0,0,0,"1","" 40439,4,"66",8,1,0,"0","ITEM" 40440,,"545",65,0,0,"0","28/0/0" 40441,124,"61",62,0,0,"0","C-LINE DISC" 40442,2,"545",25,0,0,"0","" 40443,76,"403",12,0,0,"0","> COMPLEX O/P > GNB" 40500,PROCR,"405",,405,,"RESTORE C S/R","" 40501,NOTES,"",RADIX,B,,"B","" 40502,81,"405",2,0,0,"0","" 40503,,"61",25,0,0,"0","BINARY INDICATOR" 40504,12,"",0,0,0,"1","" 40505,3,"61",25,0,0,"0","" 40506,71,"405",9,0,0,"0","" 40507,,"546",9,0,0,"0","0/0/3/4" 40508,80,"361",2,0,0,"0","> LN:2C SR" 40509,82,"405",2,0,0,"0","" 40600,PROCR,"406",,406,,"SECOND SUSPEND S/R","" 40601,NOTES,"",RADIX,B,,"B","" 40602,81,"406",2,0,0,"0","" 40603,,"66",6,1,0,"0","REF" 40604,5,"61",60,0,0,"0","" 40605,,"66",8,1,0,"0","ITEM" 40606,5,"61",61,0,0,"0","" 40607,,"66",10,1,0,"0","DISC" 40608,5,"61",62,0,0,"0","" 40609,,"66",12,1,0,"0","MOD" 40610,5,"61",63,0,0,"0","" 40611,,"66",14,1,0,"0","LIT" 40612,5,"61",64,0,0,"0","" 40613,,"66",16,0,0,"0","ITEM + IND" 40614,5,"66",18,0,0,"0","ITEM + IND (2ND STORE)" 40615,82,"406",2,0,0,"0","" 40700,PROCR,"407",,407,,"SECOND RESTORE S/R","" 40701,NOTES,"",RADIX,B,,"B","" 40702,81,"407",2,0,0,"0","" 40703,,"61",60,0,0,"0","" 40704,5,"66",6,1,0,"0","REF" 40705,,"61",61,0,0,"0","" 40706,5,"66",8,1,0,"0","ITEM" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000359.JPG",,,,"","RayS/Q1000359" 40707,,"61",62,0,0,"0","" 40708,5,"66",10,1,0,"0","DISC" 40709,,"61",63,0,0,"0","" 40710,5,"66",12,1,0,"0","MOD" 40711,,"61",64,0,0,"0","" 40712,5,"66",14,1,0,"0","LIT" 40713,,"66",18,0,0,"0","ITEM + IND (2ND STORE)" 40714,5,"66",16,0,0,"0","ITEM + IND" 40715,82,"407",2,0,0,"0","" 40800,PROCR,"408",,,,"","TABLE LOOK UP" 40801,NOTES,"",RADIX,B,,"","" 40802,80,"508",2,0,0,"0","0/1/0 0/0/3 S/R" 40803,80,"534",2,0,0,"0","gSUSPEND" 40804,,"545",49,0,0,"0","1/0/0" 40805,80,"356",2,0,0,"0","gCOMPLEX O/P NON-A" 40806,,"545",50,0,0,"0","18/1/1 10" 40807,80,"359",2,0,0,"0","gO/P" 40808,0,"61",32,0,0,"0","SUSPENDED MOD DIGITS" 40809,70,"408",19,0,0,"0","gUNMODIFIED" 40810,,"545",10,0,0,"0","5/0/0" 40811,80,"439",2,0,0,"0","MR S/R" 40812,,"61",26,0,0,"0","REF" 40813,71,"408",19,0,0,"0","g" 40814,,"61",28,0,0,"0","ITEM" 40815,70,"408",21,0,0,"0","gDON'T BOTHER" 40816,1,"545",24,0,0,"0","1/1/2" 40817,80,"359",2,0,0,"0","gO/P" 40818,76,"408",21,0,0,"0", 40819,,"545",10,0,0,"0","5/0/0" 40820,80,"484",2,0,0,"0","T.S.L'S" 40821,80,"405",2,0,0,"0","RESTORE C" 40822,76,"362",2,0,0,"0","GNB" 40900,PROCR,"409",,,,"","MERGE FIXED FIELD" 40901,NOTES,"",RADIX,B,,"","" 40902,,"545",51,0,0,"0","8/0/0" 40903,5,"61",0,0,0,"0","" 40904,,"66",14,1,0,"0","" 40905,70,"409",8,0,0,"0","" 40906,5,"61",52,1,0,"0","" 40907,76,"375",12,0,0,"0","gSHORT NO SR, GNB" 40908,5,"66",12,1,0,"0","CLEAR MOD DIGITS" 40909,,"545",51,0,0,"0","8/0/0" 40910,76,"403",12,0,0,"0","gCOMPLEX O/P + GNB" 40911,,"545",52,0,0,"0","8/1/0" 40912,80,"355",2,0,0,"0","gO/P" 40913,76,"362",2,0,0,"0","gGNB" 41000,PROCR,"410",,,,"","ACTION 59" 41001,NOTES,"",RADIX,B,,"","" 41002,80,"508",2,0,0,"0","0/1/0 0/0/3 SR" 41003,,"66",12,1,0,"0","" 41004,5,"61",38,0,0,"0","W/L" 41005,5,"66",12,1,0,"0","" 41006,,"545",66,0,0,"0","24/0/2" 41007,80,"356",2,0,0,"0","gCOMPLEX O/P NON-A" 41008,0,"61",38,0,0,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000360.JPG",,,,"","RayS/Q1000360" 41009,5,"61",32,0,0,"0","TX MOD DIGITS" 41010,0,"545",11,0,0,"0","3/0/0" 41011,80,"439",2,0,0,"0","gMOD REGISTER SR" 41012,80,"522",2,0,0,"0","I/P C-LINE" 41013,,"545",9,0,0,"0","4/0/0" 41014,80,"358",2,0,0,"0","gCOMPLEX O/P ARITH" 41015,,"61",38,0,0,"0","" 41016,5,"61",32,0,0,"0","T. MOD DIGITS" 41017,,"546",10,0,0,"0","2/0/0/1" 41018,80,"439",2,0,0,"0","gMOD REGISTER S/R" 41019,80,"399",2,0,0,"0","g0/0/1" 41020,76,"362",2,0,0,"0","gGNB" 41100,PROCR,"411",,,,"","GROUP 6 ACTIONS" 41101,NOTES,"",RADIX,B,,"","VARIANT 0-2" 41102,,"61",50,0,0,"0","VARIANT+1" 41103,12,"",0,0,0,"3",";";TEST >2" 41104,72,"411",10,0,0,"0","" 41105,124,"61",50,0,0,"0","" 41106,,"544",22,0,0,"0","DEC OR ST RADIX" 41107,5,"61",52,1,0,"0","W/L" 41108,,"545",28,0,0,"0","0/0/3" 41109,76,"375",11,0,0,"0","" 41110,71,"412",2,0,0,"0","" 41111,,"66",14,1,0,"0","LITERAL" 41112,76,"411",7,0,0,"0","" 41200,PROCR,"412",,,,"","VARIANTS 3-5" 41201,NOTES,"",RADIX,B,,"","STORE NO TO BE CONVERTED IF ACTION WORKS ON (A)" 41202,12,"",0,0,0,"4","" 41203,72,"415",2,0,0,"0","gACTION 66-69" 41204,,"66",12,0,0,"0","MOD" 41205,71,"413",2,0,0,"0","gACTING ON (N)" 41206,0,"66",6,0,0,"0","REFERENCE" 41207,34,"66",8,0,0,"0","" 41208,75,"413",2,0,0,"0","" 41209,10,"",0,0,0,"6","" 41210,1,"545",30,0,0,"0","2/1/0" 41211,80,"361",2,0,0,"0","gLN:2C SR" ,,"",,,,"","" 41300,PROCR,"413",,,,"","VARIANTS 3-5" 41301,NOTES,"",RADIX,B,,"","" 41302,,"61",50,0,0,"0","TEST" 41303,12,"",0,0,0,"6","VARIANT 5" 41304,70,"414",4,0,0,"0","-" 41305,80,"534",2,0,0,"0","- SUSPEND" 41306,124,"61",50,0,0,"0","" 41307,0,"544",20,0,0,"0","NEW RADIX" 41308,3,"61",76,0,0,"0","FORM TABLE W/L" 41309,5,"61",52,1,0,"0","W/L FOR S.N. S/R" 41310,,"545",28,0,0,"0","0/0/3" 41311,80,"357",2,0,0,"0","gCONSTS O/P" 41312,,"61",50,0,0,"0","" 41313,12,"",0,0,0,"6","" 41314,70,"414",10,0,0,"0","" 41315,124,"61",50,0,0,"0","" 41316,0,"544",19,0,0,"0","OLD RADIX" 41317,5,"61",77,0,0,"0","" 41318,80,"416",2,0,0,"0","CONVERT S/R" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000361.JPG",,,,"","RayS/Q1000361" 41319,80,"535",2,0,0,"0","gRESTORE SR" 41320,,"66",12,0,0,"0","MOD" 41321,71,"414",2,0,0,"0","gACTING ON (N)" 41322,0,"66",6,0,0,"0","" 41323,34,"66",8,0,0,"0","" 41324,75,"414",2,0,0,"0","gACTS ON (N)" 41325,0,"545",4,0,0,"0","12/1/0 6" 41326,76,"361",8,0,0,"0","gLN:2C+GNB" 41400,PROCR,"414",,,,"","ACTIONS 63-65" 41401,NOTES,"",RADIX,B,,"","" 41402,,"545",58,0,0,"0","12 TO B17" 41403,76,"373",12,0,0,"0","gCOMPLEX O/P+GNB" 41404,,"66",14,0,0,"0","" 41405,5,"61",38,0,0,"0","GEN W/L" 41406,80,"522",2,0,0,"0","- C-LINE S/R" 41407,54,"66",6,0,0,"8","" 41408,,"66",14,0,0,"0","" 41409,76,"413",8,0,0,"0","" 41410,,"61",38,0,0,"0","" 41411,76,"413",17,0,0,"0","" 41500,PROCR,"415",,,,"","ACTIONS 66 AND 667" 41501,NOTES,"",RADIX,B,,"","SET FP SIGDIG/NORMAL MODE" 41502,70,"415",5,0,0,"0","g66, SIGDIG" 41503,10,"",0,0,0,"8000000025","=(B40+37)" 41504,76,"415",6,0,0,"0",";SELECT FP CONST" 41505,12,"",0,0,0,"8000000025","TO PUT INTO 132'" 41506,5,"61",52,1,0,"0","" 41507,0,"545",8,0,0,"0","6/0/0" 41508,80,"357",2,0,0,"0","gLONG NO O/P" 41509,10,"",0,0,0,"0","" 41510,80,"504",2,0,0,"0","gO/P 24/1/2 2C;COPY FP CONST" 41511,10,"",0,0,0,"38084","3/1/0 132;LONG TO 132'" 41512,80,"359",2,0,0,"0","gO/P" 41513,0,"61",50,0,0,"0","VARIANT+1" 41514,12,"",0,0,0,"7","TEST ACTION 67" 41515,71,"362",2,0,0,"0","gYES, GNB" 41516,80,"504",2,0,0,"0","gO/P 24/1/2 2C;COPY SHORT TO 132 TO" 41517,10,"",0,0,0,"20084","2/0/0 132;SET SIGN BIT THERE" 41518,76,"382",9,0,0,"0","O/P AND GET NEXT BLOCK" 41600,PROCR,"416",,,,"","CONVERSION TABLE S/R" 41601,NOTES,"",RADIX,B,,"","" 41602,81,"416",2,0,0,"0","" 41603,,"92",7,0,0,"0","" 41604,30,"",0,0,0,"5","" 41605,91,"",0,0,2,"0","" 41606,70,"416",11,0,0,"0","gNONE STORED" 41607,,"61",76,1,0,"0","" 41608,2,"99",0,1,2,"0","" 41609,70,"416",13,0,0,"0","gMATCH" 41610,94,"416",7,0,2,"2","" 41611,10,"",0,0,0,"53","=C" 41612,80,"501",2,0,0,"0","gMISMATCH SR" 41613,10,"",0,0,0,"3.8","PROCR 1000" 41614,30,"",0,0,0,"2","" 41615,1,"92",29,0,0,"0","FORM 2C FOR EXTRA CHAP" 41616,1,"92",29,0,0,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000362.JPG",,,,"","RayS/Q1000362" 41617,12,"",0,0,0,"1","REF: 2C-1" 41618,5,"61",52,0,0,"0","" 41619,96,"",0,0,2,"0","" 41620,16,"",0,0,0,"10","" 41621,5,"61",53,0,0,"0","CTR WITHIN PROCR" 41622,,"545",8,0,0,"0","6 TO B17" 41623,5,"61",0,0,0,"0","" 41624,80,"485",2,0,0,"0","TSL S/R" 41625,82,"416",2,0,0,"0","EXIT" 41700,PROCR,"417",,,,"","GROUP 7 ACTIONS" 41701,NOTES,"",RADIX,B,,"","" 41702,0,"61",50,0,0,"0","VARIANT+1" 41703,12,"",0,0,0,"8",";TEST ACTIONS 77-79" 41704,73,"417",37,0,0,"0","gACTIONS 70-76" 41705,80,"534",2,0,0,"0","SUSPEND LINE" 41706,80,"504",2,0,0,"0","24/1/2 2C" 41707,0,"61",50,0,0,"0","V+1" 41708,12,"",0,0,0,"t","" 41709,70,"417",11,0,0,"0","gACTION 79" 41710,10,"",0,0,0,"2-","" 41711,12,"",0,0,0,"10080","17/0/0 128" 41712,80,"359",2,0,0,"0","gO/P" 41713,0,"61",50,0,0,"0","V+1" 41714,12,"",0,0,0,"t",";SELECT A*" 41715,70,"417",34,0,0,"0","gACTION 79;EXPT OR MANT" 41716,0,"545",10,0,0,"0","5/0/0;TO A" 41717,5,"61",0,1,0,"0","" 41718,0,"66",14,1,0,"0","LITERAL" 41719,71,"417",27,0,0,"0","gNO C-LINE" 41720,80,"522",2,0,0,"0","gI/P C-LINE;SUBTRACT NC1" 41721,80,"536",2,0,0,"0","gO/P INSTRUCTION;OR LITERAL" 41722,60,"",0,0,0,"0","" 41723,12,"",0,0,0,"1","" 41724,4,"66",2,1,0,"0","" 41725,62,"",0,0,0,"0","" 41726,76,"417",30,0,0,"0","" 41727,5,"61",52,1,0,"0","LONG CONST W/L" 41728,,"545",10,0,0,"0","5/0/0" 41729,80,"357",2,0,0,"0","gLONG/SHORT NO S/R" 41730,80,"535",2,0,0,"0","RESTORE FORST LINE" 41731,0,"61",50,0,0,"0","V+1" 41732,12,"",0,0,0,"8","79,78 AS 72" 41733,70,"417",35,0,0,"0","gACTION 77;77 AS 73" 41734,10,"",0,0,0,"1-","" 41735,11,"",0,0,0,"4","" 41736,3,"61",50,0,0,"0","SET TRICK VARIANT" 41737,5,"61",1,0,0,"0","SET NON-ARITH IND" 41738,80,"489",2,0,0,"0","gM&P" 41739,80,"418",2,0,0,"0","S. CHANGE S.R." 41740,124,"61",50,0,0,"0","" 41741,,"545",39,0,0,"0","27 ACTION" 41742,5,"61",0,0,0,"0","" 41743,76,"441",4,0,0,"0","- STACK O/P GNB" 41800,PROCR,"418",,,,"","S.C. S/R" 41801,NOTES,"",RADIX,B,,"","" 41802,81,"418",2,0,0,"0","" 41803,0,"66",6,1,0,"0","REF" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000363.JPG",,,,"","TonyJ/Q1000363" 41804,70,"420",9,0,0,"0","" 41805,12,"",0,0,0,"3.7","999" 41806,72,"420",9,0,0,"0","> SKIP" 41807,,"66",8,1,0,"0","ITEM" 41808,71,"418",13,0,0,"0","> NOT TO PROCR START" 41809,,"61",10,0,0,"0","THIS PROCR" 41810,2,"66",6,0,0,"0","REF" 41811,72,"419",30,0,0,"0","> SC BACK TO PROCR STARTNOT TO PROCR START" 41812,76,"418",23,0,0,"0",">SC FORWARD" 41813,95,"",0,0,1,"0","CURRENT HEAD OF 'SC BACK' LIST" 41814,30,"",0,0,0,"5","" 41815,1,"544",17,0,0,"0","ABS ADDRESS 18/0" 41816,91,"",0,0,2,"0","R2* (A)" 41817,94,"418",19,0,2,"0","/////" 41818,76,"418",23,0,0,"0","NO DESTS REPLACED YET" 41819,,"66",2,0,0,"0","THIS ORDER" 41820,2,"",1,0,2,"0","INTERCODE DEST" 41821,70,"420",2,0,0,"0","> MATCH FOUND" 41822,94,"418",19,0,2,"2","> TRY NEXT" 41823,0,"66",6,1,0,"0",";ASSUME SEQ CH FWD" 41824,80,"538",2,0,0,"0",">REF TO DEC" 41825,30,"",0,0,0,"2","" 41826,5,"61",18,0,0,"0","" 41827,0,"66",8,1,0,"0","" 41828,80,"538",2,0,0,"0","> ITEM TO DEC" 41829,11,"",0,0,0,"2","ADD 2 TO ITEM" 41830,4,"61",18,0,0,"0","" 41831,62,"",0,0,0,"0","SET BINARY" 41832,0,"61",117,0,0,"0","CTR OF SEC 20 LENGTH" 41833,91,"",0,0,2,"0","ZERO END VALUE" 41834,70,"419",9,0,0,"0","> EMPTY" 41835,12,"",0,0,0,"12+","300" 41836,73,"418",40,0,0,"0","> OK" 41837,10,"",0,0,0,"78"," 'Y'" 41838,80,"501",2,0,0,"0","> REPORT" 41839,82,"418",2,0,0,"0","> EXIT, DON'T SET S'C IND" 41840,0,"20",3-,0,2,"0","NEXT DEST (LAST IN LIST FIRST)" 41841,2,"61",18,0,0,"0","" 41842,73,"419",9,0,0,"0","> FITS NOW" 41900,PROCR,"419",,419,,"S.C. S/R","" 41901,NOTES,"",RADIX,,,"","" 41902,0,"20",3-,0,2,"0","MOVE LIST DOWN 1 ITEM" 41903,5,"20",0,0,2,"0","" 41904,0,"20",2-,0,2,"0","" 41905,5,"20",1,0,2,"0","" 41906,0,"20",1-,0,2,"0","" 41907,5,"20",2,0,2,"0","" 41908,94,"418",40,0,2,"3-","> NEXT" 41909,0,"61",18,0,0,"0","DEST OF NEWCOMER" 41910,5,"20",0,0,2,"0","" 41911,,"66",2,1,0,"0","SOURCE" 41912,5,"20",1,0,2,"0","" 41913,,"66",8,1,0,"0","" 41914,3,"20",2,0,2,"0","" 41915,70,"419",28,0,0,"0","> DEST IS A PROCR START" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000364.JPG",,,,"","TonyJ/Q1000364" 41916,10,"",0,0,0,"1","" 41917,5,"67",1,0,0,"0","SET 'SEQ' CH' IND" 41918,0,"546",19,0,0,"0","FLIPFLOP 0/10" 41919,30,"",0,0,0,"4","TO Q5" 41920,1,"61",118,0,0,"0","ABS LOCN IN SEC 18 918:2499 INITIALLY)" 41921,5,"20",2,0,2,"0","" 41922,10,"",0,0,0,"t","" 41923,2,"546",19,0,0,"0","" 41924,3,"546",19,0,0,"0","REVERSE" 41925,71,"419",28,0,0,"0","> NEXT TIME IS TOP 10 BITS OF SAME LOCN" 41926,12,"",0,0,0,"1","" 41927,4,"61",118,0,0,"0","REDUCE ABS ADDRESS" 41928,10,"",0,0,0,"3","" 41929,4,"61",117,0,0,"0","STEP CTR OF ACTIVE SC'S" 41930,82,"418",2,0,0,"0","" 42000,PROCR,"420",,420,,"S.C. S/R: MATCH FOUND IN SC BACK LIST","" 42001,NOTES,"",RADIX,B,,"","" 42002,34,"",0,0,2,"0","PROCR + ITEM" 42003,33,"",0,0,0,"30","" 42004,5,"66",6,1,0,"0","REF (BITS 11 - 20)" 42005,33,"",0,0,0,"10","" 42006,5,"66",8,1,0,"0","ITEM (BITS 1 - 10)" 42007,96,"",0,0,2,"0","" 42008,80,"421",2,0,0,"0","> CONTRACT LIST" 42009,82,"418",2,0,0,"0","" 42100,PROCR,"421",,421,,"CONTRACT THE SC BACK LIST BY 1 WORD","" 42101,NOTES,"",,,,"","" 42102,81,"421",2,0,0,"0","" 42103,5,"61",114,0,0,"0","WORD TO BE OVERWRITTEN" 42104,95,"",0,0,1,"0","" 42105,5,"61",18,1,0,"0","START/END OF LIST (ABS)" 42106,,"61",19,0,0,"0","" 42107,2,"61",114,0,0,"0","" 42108,70,"421",18,0,0,"0","> NONE TO BE MOVED" 42109,30,"",0,0,0,"5","" 42110,1,"61",114,0,0,"0","" 42111,11,"",0,0,0,"2","FORM SOURCE IN A" 42112,124,"61",114,0,3,"0","" 42113,128,"",0,1,1,"0","COPY UP BY 1 WORD" 42114,12,"",0,0,0,"2","" 42115,4,"61",18,0,0,"0","" 42116,4,"61",19,0,0,"0","ADJUST R1 FOR NEW LIST POSITION" 42117,91,"61",18,0,1,"0","" 42118,82,"421",2,0,0,"0","" 42200,PROCR,"422",,422,,"GROUP 8 SWITCH","" 42201,NOTES,"",RADIX,B,,"","" 42202,85,"381",2,0,0,"0","" 42203,C,"423",5,0,0,"0","> 80" 42204,C,"423",2,0,0,"0","> 81" 42205,C,"424",2,0,0,"0","82" 42206,C,"425",2,0,0,"0","83" 42207,C,"426",2,0,0,"0","84" 42208,C,"427",2,0,0,"0","85" 42209,C,"424",6,0,0,"0","86 ACTION;SELECT SWITCH SETTING" 42210,C,"422",11,0,0,"0","87 (85 ON A COMPT)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000365.JPG",,,,"","DaveJ/Q1000365" 42211,5,"66",10,1,0,"0","CLEAR DISC" 42212,0,"546",3,0,0,"0","24/0/1" 42213,80,"356",2,0,0,"0",">O/P NON-A" 42214,76,"427",7,0,0,"0",">CONTINUE AS 85" 42300,PROCR,"423",,0,0,"0","ACTIONS 81 AND 80" 42301,NOTES,"",0,0,0,"0","" 42302,0,"61",10,0,0,"0","COPY CURRENT PROCR ACTION 81" 42303,5,"61",9,0,0,"0","" 42304,76,"382",9,0,0,"0",">O/P ZERO LOCN, GNB" 42305,80,"534",2,0,0,"0","> SUSPEND ACTION 80" 42306,90,"",0,0,2,"0","" 42307,C,"",0,0,0,"40","(UP TO 20 C-LINES)" 42308,80,"397",2,0,0,"0","> TEST C-LINE" 42309,71,"423",19,0,0,"0","> NO" 42310,0,"66",6,0,0,"0","" 42311,5,"61",54,0,2,"0","REF" 42312,,"66",10,0,0,"0","DISC" 42313,30,"",0,0,0,"4","" 42314,4,"61",54,0,2,"0","STORE WITH REF" 42315,0,"66",8,1,0,"0","" 42316,5,"61",55,0,2,"0","ITEM(+-)" 42317,94,"423",8,0,2,"2","" 42318,80,"509",2,0,0,"0","PROMOTE READ NEXT BLOCK" 42319,80,"535",2,0,0,"0",">RESTORE FIRST LINE" 42320,96,"",0,0,2,"0","" 42321,5,"66",15,0,0,"0","STORE MODIFIER OVER LITERAL" 42322,,"66",6,0,0,"0","BIN REF" 42323,101,"",1000,1,2,"0","" 42324,73,"423",27,0,0,"0",">REF NOT 1000+" 42325,10,"",0,0,0,"0","" 42326,76,"423",29,0,0,"0",">DON'T CLEAR ITEM" 42327,10,"",0,0,0,"0","" 42328,5,"66",8,1,0,"0","CLEAR I.D.M" 42329,5,"66",10,1,0,"0","" 42330,5,"66",12,1,0,"0","" 42331,5,"66",14,0,0,"0","" 42332,0,"545",47,0,0,"0","26/0/0" 42333,80,"356",2,0,0,"0",">COMPLEX O/P NON-A" 42334,,"66",15,0,0,"0","" 42335,70,"362",3,0,0,"0",">NO C-LINES, GNB(NON-I/P)" 42336,31,"",0,0,0,"1-","" 42337,5,"61",18,0,0,"0","WL" 42338,,"546",11,0,0,"0","24/1/0/1" 42339,2,"61",18,0,0,"0","SPACE OCCUPIED BY C-LINES" 42340,80,"498",2,0,0,"0",">O/P INT SC" 42341,91,"66",14,0,4,"0","" 42342,35,"",0,0,0,"111","" 42343,36,"61",54,0,4,"0","" 42344,3,"66",6,0,0,"0","REF" 42345,5,"61",35,0,0,"0","" 42346,80,"486",2,0,0,"0",">DETERMINE CHAPTER" 42347,32,"",0,0,0,"1-","" 42348,71,"423",51,0,0,"0",">TX AREA" 42349,32,"",0,0,0,"1","" 42350,76,"423",56,0,0,"0","" 42351,80,"488",2,0,0,"0",">PSEUDOROUTE SR" 42352,11,"",0,0,0,"1","PARA" 42353,5,"61",34,0,0,"0","" 42354,5,"66",6,1,0,"0","CLEAR REF" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000366.JPG",,,,"","RayS/Q1000366" 42355,76,"423",66,0,0,"0","" 42356,3,"61",34,0,0,"0","" 42357,70,"423",60,0,0,"0","gZERO PARA" 42358,12,"",0,0,0,"1","" 42359,4,"61",34,0,0,"0","" 42360,,"61",54,0,4,"0","" 42361,30,"",0,0,0,"4-","" 42362,70,"423",65,0,0,"0","gNO DISC IN C-LINE" 42363,10,"",0,0,0,"2","" 42364,5,"67",1,0,0,"0","SEQ CH IND='ON'" 42365,0,"61",55,0,4,"0","ITEM" 42366,5,"66",8,1,0,"0","" 42367,5,"61",0,0,0,"0","CLEAR ACTION" 42368,80,"531",2,0,0,"0","gNEG NO" 42369,80,"532",2,0,0,"0","gSTACK" 42370,80,"518",2,0,0,"0","gO/P" 42371,94,"423",42,0,4,"2","" 42372,76,"362",3,0,0,"0","gGNB(NON-I/P)" 42400,PROCR,"424",,,,"","ACTIONS 82 AND 86" 42401,NOTES,"",RADIX,B,,"","" 42402,54,"66",8,0,0,"6","CLEAR I, D, M;ACTION 82" 42403,0,"545",48,0,0,"0","26/0/1" 42404,80,"356",2,0,0,"0","gCOMPLEX O/P NON-A" 42405,76,"362",2,0,0,"0","gGNB" 42406,10,"",0,0,0,"0",";86 ACTION" 42407,5,"61",113,0,0,"0","INDICATOR WHETHER TO I/P OR NOT AT GNB." 42408,,"545",8,0,0,"0","6/0/0" 42409,76,"425",7,0,0,"0","" 42500,PROCR,"425",,,,"","ACTION 83" 42501,NOTES,"",RADIX,B,,"","" 42502,,"545",22,0,0,"0","1/1/3" 42503,1,"66",14,0,0,"0","" 42504,80,"359",2,0,0,"0","gO/P" 42505,5,"61",113,0,0,"0","INDICATOR" 42506,,"545",13,0,0,"0","2/0/0" 42507,5,"61",0,0,0,"0","ACTION W/L" 42508,80,"429",2,0,0,"0","SWITCH SR" 42509,,"61",113,0,0,"0","" 42510,70,"441",4,0,0,"0","- STACK O/P GNB" 42511,80,"532",2,0,0,"0","- STACK" 42512,80,"518",2,0,0,"0","O/P" 42513,0,"397",2,0,0,"0","RESTORE IND" 42514,5,"545",99,0,0,"0","" 42515,76,"362",3,0,0,"0","- GNB (NO I/P)" 42600,PROCR,"426",,,,"","ACTION 84" 42601,NOTES,"",RADIX,B,,"","" 42602,80,"534",2,0,0,"0","- SUSPEND" 42603,80,"397",2,0,0,"0","gTEST C-LINE SR" 42604,3,"61",113,0,0,"0","NON-I/P IND" 42605,70,"426",9,0,0,"0","gYES" 42606,0,"545",99,0,0,"0","'PRINT ME' IND FOR LINE READ BY ACCIDENT" 42607,5,"397",2,0,0,"0","STORE IND" 42608,76,"426",11,0,0,"0","" 42609,,"545",8,0,0,"0","6/0/0" 42610,80,"358",2,0,0,"0","gCOMPLEX O/P ARITH" 42611,80,"535",2,0,0,"0","- RESTORE S/R" 42612,76,"425",6,0,0,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000367.JPG",,,,"","TonyJ/Q1000367" 42700,PROCR,"427",,427,,"ACTION 85","" 42701,NOTES,"",RADIX,B,,"","" 42702,80,"429",2,0,0,"0","SWITCH SR" 42703,0,"546",3,0,0,"0","24/0/1" 42704,5,"61",0,0,0,"0","" 42705,80,"532",2,0,0,"0"," - STACK S/R" 42706,80,"518",2,0,0,"0","> = O/P S/R" 42707,,"545",48,0,0,"0","26/0/1" 42708,80,"498",2,0,0,"0","> O/P INT SC" 42709,80,"522",2,0,0,"0","I/P C-LINE S/R" 42710,10,"",0,0,0,"0","" 42711,5,"61",0,0,0,"0","CLEAR ACTION W/L" 42800,PROCR,"428",,428,,"ACTION 85 (2)","" 42801,NOTES,"",RADIX,,,"","" 42802,,"66",6,0,0,"0","" 42803,5,"61",35,0,0,"0","" 42804,80,"486",2,0,0,"0","" 42805,3,"61",34,0,0,"0","" 42806,70,"428",8,0,0,"0","> DON'T MAKE A PARA 1-" 42807,12,"",0,0,0,"1","" 42808,4,"61",34,0,0,"0","" 42809,80,"418",2,0,0,"0","SEQUENCE CHANGE S/R" 42810,80,"532",2,0,0,"0","STACK" 42811,80,"518",2,0,0,"0","> O/P" 42812,76,"427",9,0,0,"0","" 42900,PROCR,"429",,429,,"SWITCH S/R","" 42901,NOTES,"",,RADIX,B,"","" 42902,81,"429",2,0,0,"0","" 42903,91,"95",0,0,8,"0","NO OF SWITCHES" 42904,34,"544",26,0,0,"0","BITS 1-10" 42905,10,"",0,0,0,"0","" 42906,36,"95",2,0,8,"0","" 42907,70,"429",11,0,0,"0","> MISMATCH" 42908,2,"66",6,1,0,"0","" 42909,70,"429",13,0,0,"0","> OK" 42910,94,"429",5,0,8,"1","" 42911,10,"",0,0,0,"72","ERRORS" 42912,80,"501",2,0,0,"0","> MISMATCH SR" 42913,,"95",2,0,8,"0","" 42914,32,"",0,0,0,"4-","CHAP TO Q1" 42915,3,"61",54,0,0,"0","" 42916,101,"",1001,1,1,"0","(1001+CHAP)= SWITCH PROCR" 42917,5,"66",6,0,0,"0","PROCR TO SWITCH" 42918,33,"",0,0,0,"6","" 42919,5,"66",8,0,0,"0","POSITION IN PROCR" 42920,,"61",54,0,0,"0","CHAP NO. SWITCH" 42921,2,"61",51,0,0,"0","THIS CHAP" 42922,70,"429",26,0,0,"0","> YES" 42923,1,"61",51,0,0,"0","" 42924,80,"504",2,0,0,"0","24/1/2/2C-1/2C S/R" 42925,76,"429",27,0,0,"0","> ZERO PARA" 42926,,"61",3,0,0,"0","" 42927,5,"61",34,0,0,"0","" 42928,82,"429",2,0,0,"0","" 43000,PROCR,"430",,430,,"GROUP 9 SWITCH","" 43001,NOTES,"",,RADIX,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000368.JPG",,,,"","TonyJ/Q1000368" 43002,85,"381",2,0,0,"0","" 43003,C,"431",2,0,0,"0","90" 43004,C,"432",2,0,0,"0","91" 43005,C,"433",2,0,0,"0","92" 43006,C,"434",2,0,0,"0","93" 43007,C,"435",2,0,0,"0","94" 43008,C,"437",2,0,0,"0","95" 43009,C,"437",3,0,0,"0","96" 43010,C,"438",2,0,0,"0","97" 43011,C,"430",13,0,0,"0","98 ADD(MR)" 43012,C,"430",14,0,0,"0","99 SUBTRACT (MR)" 43013,2,"545",49,0,0,"0","1/0/0 (A IS CLEAR)" 43014,1,"545",10,0,0,"0","5/0/0" 43015,5,"537",2,0,0,"0","" 43016,80,"534",2,0,0,"0","> SUSPEND" 43017,0,"66",10,1,0,"0","DISC" 43018,70,"430",20,0,0,"0","" 43019,0,"545",29,0,0,"0","BIT 16" 43020,1,"537",2,0,0,"0","WL" 43021,80,"439",2,0,0,"0","> MR SR" 43022,76,"362",2,0,0,"0","> GNB" 43100,PROCR,"431",,431,,"ACTION 90","" 43101,NOTES,"",RADIX,B,,"B","" 43102,80,"534",2,0,0,"0"," - SUSPEND S/R" 43103,,"66",14,1,0,"0","" 43104,5,"61",52,0,0,"0","SUSPEND LITERAL" 43105,80,"521",2,0,0,"0","I/P INST S/R" 43106,,"66",14,1,0,"0","" 43107,5,"61",53,0,0,"0","" 43108,,"61",52,0,0,"0","" 43109,73,"431",12,0,0,"0","> NEGATIVE MODIFIER" 43110,0,"61",53,0,0,"0","" 43111,72,"431",15,0,0,"0","> POSITIVE MODIFIER > END VALUE" 43112,,"545",49,0,0,"0","BIT 17" 43113,4,"61",52,0,0,"0","START VALUE" 43114,4,"61",53,0,0,"0","END VALUE" 43115,,"61",32,1,0,"0","MOD DIGITS" 43116,12,"",0,0,0,"4","" 43117,73,"431",22,0,0,"0","> MR 1 - 3" 43118,0,"545",8,0,0,"0","6/0/0;MR>3" 43119,5,"61",0,0,0,"0","A CLEAR AT START" 43120,80,"481",2,0,0,"0","> LONG NUMBER" 43121,76,"431",28,0,0,"0","" 43122,,"545",47,0,0,"0","26/0/0" 43123,124,"61",32,0,0,"0","" 43124,2,"545",25,0,0,"0","" 43125,5,"61",0,0,0,"0","" 43126,80,"481",2,0,0,"0","> LONG NO SR" 43127,76,"362",2,0,0,"0","> GNB" 43128,0,"61",32,0,0,"0","SUSPEND MOD DIGITS" 43129,5,"61",2,0,0,"0","" 43130,,"545",30,0,0,"0"," 2/1/0" 43131,80,"506",2,0,0,"0","MR >3 SR" 43132,76,"362",2,0,0,"0","" 43200,PROCR,"432",,432,,"ACTION 91","" 43201,NOTES,"",RADIX,B,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000369.JPG",,,,"","RayS/Q1000369" 43202,10,"",0,0,0,"0","STORE ABC SET BIN RA" 43203,5,"66",10,1,0,"0","CLEAR DISCRIMINANT" 43204,,"66",6,1,0,"0","REF" 43205,34,"66",8,1,0,"0","ITEM" 43206,74,"432",19,0,0,"0","g REF AND ITEM ZERO" 43207,,"66",12,0,0,"0","MOD DIGITS" 43208,3,"61",32,0,0,"0","" 43209,12,"",0,0,0,"4","" 43210,72,"432",14,0,0,"0","gMR>3" 43211,,"545",56,0,0,"0","26/1/0" 43212,80,"358",2,0,0,"0","gCOMPLEX O/P ARITH" 43213,76,"362",2,0,0,"0","gGNB" 43214,10,"",0,0,0,"0","" 43215,5,"66",12,1,0,"0","" 43216,0,"545",57,0,0,"0","6/1/0" 43217,80,"358",2,0,0,"0","gCOMPLEX O/P ARITH" 43218,76,"431",28,0,0,"0","" 43219,,"66",12,0,0,"0","MOD DIGITS" 43220,3,"61",32,0,0,"0","" 43221,12,"",0,0,0,"4","" 43222,72,"431",28,0,0,"0","" 43223,,"545",31,0,0,"0","3/1/0" 43224,80,"361",2,0,0,"0","gLN:2C SR" 43225,0,"545",56,0,0,"0","26/1/0" 43226,124,"66",12,0,0,"0","MOD DIGITS" 43227,2,"545",25,0,0,"0","" 43228,76,"361",8,0,0,"0","gLN:2C +GNB" 43300,PROCR,"433",,,,"","ACTION 92" 43301,NOTES,"",RADIX,B,,"","" 43302,0,"66",12,0,0,"0","" 43303,5,"61",32,0,0,"0","WL" 43304,5,"66",12,0,0,"0","CLEAR MOD DIGITS" 43305,0,"66",6,0,0,"0","REF" 43306,34,"66",8,0,0,"0","ITEM" 43307,74,"433",10,0,0,"0","gACTS ON (A)" 43308,,"545",8,0,0,"0","6 TO B17" 43309,80,"358",2,0,0,"0","gCOMPLEX O/P ARITH" 43310,0,"545",13,0,0,"0","2/0/0" 43311,80,"439",2,0,0,"0","gMOD REGISTER SR" 43312,76,"362",2,0,0,"0","gGNB" 43400,PROCR,"434",,,,"","ACTION 93 (1)" 43401,NOTES,"",RADIX,B,,"","" 43402,80,"508",2,0,0,"0","-0/1/0 0/0/3 S/R" 43403,80,"534",2,0,0,"0","SUSPEND" 43404,,"544",23,0,0,"0","DEC RADIX" 43405,30,"",0,0,0,"5","" 43406,5,"61",76,1,0,"0","" 43407,80,"416",2,0,0,"0","CONVERSION TABLE SR" 43408,80,"535",2,0,0,"0","REPLACE S/R" 43409,5,"66",12,1,0,"0","CLEAR" 43410,,"545",58,0,0,"0","12/0/0" 43411,80,"358",2,0,0,"0","gCOMPLEX O/P ARITH" 43412,,"546",12,0,0,"0","27/0/2/2" 43413,80,"498",2,0,0,"0","gO/P INT SC" 43414,,"545",49,0,0,"0","BIT 17" 43415,5,"61",52,1,0,"0","" 43416,,"545",9,0,0,"0","4/0/0" 43417,80,"357",2,0,0,"0","gSHORT NO O/P" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000370.JPG",,,,"","KenK/Q1000370" 43418,,"545",13,0,0,"0","2/0/0 " 43419,80,"439",2,0,0,"0","MOD REGISTER S/R " 43420,80,"399",2,0,0,"0","gRESTORE ABC " 43421,76,"362",2,0,0,"0","gGNB " 43500,PROCR,"435",,,,"","ACTION 94 " 43501,NOTES,"",RADIX,B,,"","" 43502,0,"66",14,1,0,"0","LITERAL " 43503,72,"435",6,0,0,"0","" 43504,10,"",0,0,0,"1000","4096 " 43505,4,"66",14,0,0,"0","AUGMENT MODULAS " 43506,,"66",12,0,0,"0","" 43507,3,"61",2,0,0,"0","STORE DIGITS " 43508,12,"",0,0,0,"4","" 43509,72,"436",16,0,0,"0","gMR>3 " 43510,,"545",59,0,0,"0","25/0/0 " 43511,2,"66",14,0,0,"0","MOD L " 43512,124,"66",12,0,0,"0","" 43513,2,"545",25,0,0,"0","0/0/0 0/0/3 " 43514,80,"359",2,0,0,"0","gOUTPUT " 43600,PROCR,"436",,,,"","ACTION 94 " 43601,NOTES,"",RADIX,B,,"","" 43602,,"66",6,1,0,"0","REF" 43603,34,"66",8,1,0,"0","ITEM " 43604,75,"436",11,0,0,"0","REF & ITEM NON ZERO " 43605,,"546",11,0,0,"0","24/1/0/1 " 43606,80,"498",2,0,0,"0","gO/P INT SC " 43607,0,"61",50,0,0,"0","VARIANT +1 ;TEST IF WE CAME IN " 43608,12,"",0,0,0,"8",";WITH 97 ACTION " 43609,71,"362",2,0,0,"0","gGNB " 43610,76,"362",3,0,0,"0","gGNB (NO INPUT) " 43611,10,"",0,0,0,"7","SET VARIAMT AS " 43612,5,"61",50,0,0,"0","THOUGH 76 ACTION " 43613,5,"61",2,0,0,"0","" 43614,5,"66",12,1,0,"0","" 43615,76,"417",2,0,0,"0","GROUP 7 ACTIONS " 43616,0,"545",61,0,0,"0","23/0/0 ;MR>3 " 43617,2,"66",14,0,0,"0","MOD L " 43618,80,"359",2,0,0,"0","gO/P, CLEAR A " 43619,80,"506",2,0,0,"0","gMR>3 SR " 43620,76,"436",2,0,0,"0","" 43700,PROCR,"437",,,,"","ACTIONS 95 AND 96 " 43701,NOTES,"",RADIX,B,,"","" 43702,0,"545",29,0,0,"0","BIT 16=DISC " 43703,1,"545",8,0,0,"0","6/0/0 " 43704,32,"",0,0,0,"10-","" 43705,0,"66",12,0,0,"0","" 43706,5,"61",32,0,0,"0","STORE MOD DIGITS " 43707,32,"",0,0,0,"10","ACTION " 43708,80,"439",2,0,0,"0","gMOD REGISTER SR " 43709,76,"362",2,0,0,"0","gGNB " 43800,PROCR,"438",,,,"","" 43801,NOTES,"",RADIX,B,,"","ACTION 97 " 43802,80,"534",2,0,0,"0","" 43803,5,"66",12,1,0,"0","" 43804,5,"66",10,1,0,"0","CLEAR DISC. " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000371.JPG",,,,"","DaveJ/Q1000371" 43805,0,"546",3,0,0,"0","24/0/1" 43806,80,"356",2,0,0,"0",">COMPLEX O/P NON-A" 43807,80,"397",2,0,0,"0",">TEST C-LINE FOLLOWS" 43808,70,"438",12,0,0,"0",">YES" 43809,10,"",0,0,0,"0","" 43810,5,"66",6,1,0,"0","" 43811,5,"66",8,1,0,"0","" 43812,0,"61",32,1,0,"0","STORED MOD DIGITS" 43813,5,"66",12,1,0,"0","" 43814,76,"435",2,0,0,"0","" 43900,PROCR,"439",,,,"","ARITHMETIC ON MOD REGISTERS=SEL/COPY/SUBTRACT/ADD" 43901,NOTES,"",,,,"","" 43902,81,"439",2,0,0,"0","61/32=MR,(A)=ACTION+DISC" 43903,5,"537",2,0,0,"0","CONVERT SR LINK" 43904,0,"61",32,0,0,"0","" 43905,12,"",0,0,0,"4","" 43906,72,"439",16,0,0,"0",">MR>3" 43907,80,"505",2,0,0,"0",">24/0/3 2C" 43908,0,"537",2,0,0,"0","ACTION" 43909,1,"61",32,0,0,"0","2M AS ADDRESS" 43910,1,"61",32,0,0,"0","" 43911,5,"67",3,0,0,"0","" 43912,0,"61",41,0,0,"0","MOD GROUP PARA" 43913,5,"67",2,0,0,"0","" 43914,80,"518",2,0,0,"0",">O/P" 43915,82,"439",2,0,0,"0","" 43916,0,"61",32,0,0,"0","" 43917,5,"61",2,0,0,"0","TX MOD DIGITS" 43918,0,"537",2,0,0,"0","ACTION+DISC" 43919,80,"506",2,0,0,"0","MR>3 SR" 43920,82,"439",2,0,0,"0","" 44000,PROCR,"440",,,,"","M/C ACTIONS" 44001,NOTES,"",RADIX,B,,"","CALCULATE PARAMETERS, TEST 24/1/0 OR 27/D/M" 44002,10,"",0,0,0,"t","GROUP 13" 44003,11,"",0,0,0,"t","12" 44004,11,"",0,0,0,"t","11" 44005,12,"",0,0,0,"1","10" 44006,1,"61",50,0,0,"0","V+1" 44007,3,"61",0,0,0,"0","ACTION" 44008,12,"",0,0,0,"17","23" 44009,70,"442",2,0,0,"0",">ACTION 23" 44010,12,"",0,0,0,"9","" 44011,72,"443",2,0,0,"0",">32,33 OR 34" 44012,,"66",6,0,0,"0","REF PARA 0 OR 2C ROUTINE" 44013,70,"440",50,0,0,"0",""- ABS ADD" 44014,3,"61",35,0,0,"0","" 44015,101,"",999,1,2,"0","" 44016,71,"440",37,0,0,"0",">NOT REF 999" 44017,,"543",44,1,0,"0","CLEO'PARA WORD" 44018,70,"440",37,0,0,"0",">NOT APPLICABLE" 44019,32,"",0,0,0,"6-","" 44020,70,"440",24,0,0,"0",">NOT FILE ID" 44021,5,"61",54,0,0,"0","" 44022,80,"499",2,0,0,"0",">CALC PARA" 44023,76,"440",34,0,0,"0","" 44024,32,"",0,0,0,"2","" 44025,70,"440",30,0,0,"0",">NOT MR PARA,HENCE TX AREA" 44026,5,"543",44,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000372.JPG",,,,"","DaveJ/Q1000372" 44027,0,"61",41,0,0,"0","MOD GROUP PARA" 44028,1,"543",44,2,0,"0","" 44029,76,"440",34,0,0,"0","" 44030,,"543",44,2,0,"0","" 44031,5,"66",6,0,0,"0","SECTION NUMBER" 44032,80,"488",2,0,0,"0","" 44033,11,"",0,0,0,"1","" 44034,5,"66",8,1,0,"0","ITEM" 44035,5,"66",6,1,0,"0","CLEAR REF" 44036,76,"440",47,0,0,"0",">PARA 2C" 44037,0,"61",112,0,0,"0","PROG IDENTITY" 44038,30,"",0,0,0,"2-","" 44039,12,"",0,0,0,"90","" 44040,71,"440",44,0,0,"0",">NOT MASTER SUITE" 44041,80,"486",2,0,0,"0","" 44042,31,"",0,0,0,"1","FORM 2C'" 44043,76,"440",51,0,0,"0",">STORE PARA" 44044,80,"486",2,0,0,"0",">DET CHAP" 44045,2,"61",51,0,0,"0","THIS CHAP" 44046,71,"440",50,0,0,"0","-" 44047,,"61",51,0,0,"0","" 44048,1,"61",51,0,0,"0","" 44049,76,"440",51,0,0,"0","-" 44050,10,"",0,0,0,"0","" 44051,5,"61",34,0,0,"0","PARA W/L" 44052,0,"66",10,0,0,"0","DISC" 44053,12,"",0,0,0,"2","" 44054,71,"440",58,0,0,"0",">TAKE YOUR CHANCE" 44055,10,"",0,0,0,"1","" 44056,3,"66",10,0,0,"0","" 44057,4,"66",8,1,0,"0","ADJUST ITEM" 44058,,"61",0,0,0,"0","ACTION" 44059,3,"418",2,0,0,"0","" 44060,31,"",0,0,0,"1","" 44061,34,"543",2,0,0,"0","BIT 1" 44062,36,"66",10,0,0,"0","DISC" 44063,31,"",0,0,0,"2","" 44064,34,"544",20,0,0,"0","BITS 1+2" 44065,36,"66",12,0,0,"0","MOD DIGITS" 44066,31,"",0,0,0,"1","" 44067,30,"",0,0,0,"3","" 44068,3,"61",0,0,0,"0","COMBINED A/D/M" 44069,30,"",0,0,0,"5-","" 44070,70,"440",78,0,0,"0",">POSITIVE ACTION" 44071,,"61",0,0,0,"0","" 44072,71,"440",75,0,0,"0",">NOT 'O-'" 44073,10,"",0,0,0,"2","" 44074,5,"67",1,0,0,"0","SET IND" 44075,10,"",0,0,0,"0","" 44076,2,"61",0,0,0,"0","" 44077,5,"61",0,0,0,"0","NEGATE ACTION" 44078,5,"66",10,1,0,"0","" 44079,5,"66",12,1,0,"0","" 44080,,"61",0,0,0,"0","" 44081,2,"545",46,0,0,"0","24/1/0" 44082,70,"441",2,0,0,"0",">IS A SEQ CHANGE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000373.JPG",,,,"","DaveJ/Q1000373" 44083,,"418",2,0,0,"0","" 44084,12,"",0,0,0,"1e","TEST FOR 27/D/M" 44085,71,"441",6,0,0,"0",">NO" 44100,PROCR,"441",,,,"","M/C ACTIONS" 44101,NOTES,"",RADIX,B,,"","" 44102,80,"418",2,0,0,"0","-S.C. S/R" 44103,80,"531",2,0,0,"0","-NEG NO S/R" 44104,80,"532",2,0,0,"0","- STACK" 44105,76,"382",10,0,0,"0","- O/P GNB" 44106,,"66",14,0,0,"0","LITERAL" 44107,70,"441",3,0,0,"0",">NO 'M&P'" 44108,30,"",0,0,0,"1-","" 44109,80,"537",2,0,0,"0",">BIN" 44110,5,"66",12,0,0,"0","SET EXTRA MOD DIGITS" 44111,,"61",0,0,0,"0","" 44112,80,"356",2,0,0,"0",">COMPLEX O/PNON-ARITH" 44113,76,"362",2,0,0,"0",">GNB" 44200,PROCR,"442",,,,"","ACTION 123/0/0" 44201,NOTES,"",RADIX,B,,"","" 44202,,"66",12,0,0,"0","MOD" 44203,34,"66",10,0,0,"0","DISC" 44204,75,"440",12,0,0,"0","" 44205,5,"61",34,0,0,"0","SET PARA ZERO" 44206,0,"545",61,0,0,"0","23/0/0" 44207,5,"61",0,0,0,"0","" 44208,80,"532",2,0,0,"0","-STACK" 44209,80,"518",2,0,0,"0","-O/P" 44210,80,"521",2,0,0,"0","I/P INSTRUCTION" 44211,,"66",6,0,0,"0","" 44212,70,"442",19,0,0,"0","-ABS ADD" 44213,5,"61",35,0,0,"0","" 44214,80,"486",2,0,0,"0","-DET CHAP" 44215,3,"61",34,0,0,"0","" 44216,1,"61",34,0,0,"0","" 44217,70,"442",19,0,0,"0",">DON'T MAKE A PARA 1-" 44218,12,"",0,0,0,"1","" 44219,5,"61",34,0,0,"0","" 44220,5,"61",0,0,0,"0","" 44221,76,"441",3,0,0,"0","" 44300,PROCR,"443",,,,"","CHEQUE-SORTER ACTIONS 132-134" 44302,80,"534",2,0,0,"0",">SUSPEND S/R" 44303,76,"387",5,0,0,"0","" 44304,80,"535",2,0,0,"0",">REPLACE S/R" 44305,,"66",8,0,0,"0","" 44306,5,"66",6,1,0,"0",">REF" 44307,5,"66",8,1,0,"0","CLEAR ITEM" 44308,5,"66",10,1,0,"0","&DISC" 44309,5,"66",12,1,0,"0","&MOD" 44310,80,"534",2,0,0,"0",">RE-SUSPEND S/R" 44311,,"61",50,0,0,"0","V+1" 44312,12,"",0,0,0,"3","" 44313,71,"443",21,0,0,"0",">133 OR 134" 44314,,"545",66,0,0,"0","24/0/2" 44315,80,"356",2,0,0,"0",">COMPLEX O/P" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000374.JPG",,,,"","RayS/Q1000374" 44316,,"545",72,0,0,"0","18/1/1 5-" 44317,80,"359",2,0,0,"0","gO/P" 44318,5,"61",50,0,0,"0","CLEAR" 44319,80,"397",2,0,0,"0","g'TEST CONTINUATION LINE'" 44320,76,"396",40,0,0,"0","g" 44321,12,"",0,0,0,"1","" 44322,71,"444",20,0,0,"0","gACTION 134" 44400,PROCR,"444",,,,"","CHEQUE-SORTER" 44402,34,"544",21,0,0,"0","BITS 5-19;ACTION 133" 44403,124,"66",6,0,1,"0","REF(EX-ITEM)" 44404,36,"70",0,0,0,"0","" 44405,30,"",0,0,0,"1-","" 44406,12,"",0,0,0,"2","" 44407,1,"545",13,0,0,"0","BIT 18" 44408,5,"61",53,0,0,"0","" 44409,5,"61",52,0,0,"0","CLEAR" 44410,,"545",8,0,0,"0","6/0/0" 44411,80,"357",2,0,0,"0","gLONG NO O/P" 44412,80,"535",2,0,0,"0","gREPLACE S/R" 44413,,"545",65,0,0,"0","28/0/0" 44414,80,"356",2,0,0,"0","COMPLEX O/P NON-A" 44415,,"66",14,1,0,"0","LITERAL" 44416,1,"545",22,0,0,"0","1/1/3" 44417,80,"359",2,0,0,"0","gO/P" 44418,,"545",72,0,0,"0","18/1/1 5-" 44419,80,"359",2,0,0,"0","gO/P" 44420,80,"522",2,0,0,"0","gI/P C-LINE S/R" 44421,,"66",6,2,0,"0","C-LINE REF" 44422,80,"537",2,0,0,"0","gBIN" 44423,5,"66",6,1,0,"0","" 44424,5,"66",8,1,0,"0","CLEAR ITEM, DISC, MOD DIGITS" 44425,5,"66",10,1,0,"0","" 44426,5,"66",12,1,0,"0","" 44427,76,"443",14,0,0,"0","" 44500,PROCR,"445",,,,"","GROUP 14" 44501,NOTES,"",RADIX,,,"","" 44502,5,"66",10,1,0,"0","CLEAR DISC" 44503,85,"381",2,0,0,"0","" 44504,C,"445",13,0,0,"0","140" 44505,C,"445",17,0,0,"0","141" 44506,C,"445",17,0,0,"0","142" 44507,C,"445",17,0,0,"0","143" 44508,C,"362",2,0,0,"0","144" 44509,C,"445",17,0,0,"0","145" 44510,C,"445",20,0,0,"0","146" 44511,C,"445",23,0,0,"0","147" 44512,C,"445",27,0,0,"0","148" 44513,0,"545",22,0,0,"0","1/1/3/0;140 ACTION" 44514,80,"359",2,0,0,"0","gO/P" 44515,0,"545",36,0,0,"0","1/0/1/0." 44516,76,"382",9,0,0,"0","O/P AND GNB" 44517,124,"61",50,0,0,"0","VARIANT+1;141-3 +145 ACTIONS" 44518,0,"545",74,0,0,"0","APPROXIMATE 30 ACTION." 44519,76,"373",12,0,0,"0","gCOMPLEX O/P+GNB" 44520,10,"",0,0,0,"0",";146 ACTION"" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000375.JPG",,,,"","ChuckK/Q1000375" 44521,80,"446",2,0,0,"0","GRP 14 SR" 44522,76,"362",2,0,0,"0","GNB" 44523,0,"545",79,0,0,"0","30/0/0/8;147 ACTION" 44524,80,"446",2,0,0,"0","GRP 14 SR" 44525,0,"545",81,0,0,"0","31/0/0/8" 44526,76,"361",8,0,0,"0",">LN:2C+GNB" 44527,0,"545",79,0,0,"0","30/0/0/8;148 ACTION" 44528,80,"446",2,0,0,"0","GRP 14 SR" 44529,0,"545",88,0,0,"0","30/0/0 4" 44530,80,"361",2,0,0,"0",">LN:2C SR" 44531,0,"545",81,0,0,"0","31/0/0 8" 44532,80,"361",2,0,0,"0",">LN:2C SR" 44533,0,"545",89,0,0,"0","31/0/0 4" 44534,76,"361",8,0,0,"0",">LN:2C+GNB" 44600,PROCR,"446",,,,"","SR FOR GROUP 14 ACTIONS " 44601,NOTES,"",RADIX,B,,"","" 44602,81,"446",2,0,0,"0","" 44603,70,"446",5,0,0,"0","" 44604,80,"361",2,0,0,"0",">LN:2C SR" 44605,10,"",0,0,0,"1","" 44606,5,"66",10,1,0,"0","SET DISC" 44607,,"545",8,0,0,"0","6/0/0" 44608,80,"358",2,0,0,"0",">COMPLEX O/P ARITH" 44609,80,"522",2,0,0,"0","I/P CONT LINE SR" 44610,10,"",0,0,0,"1","" 44611,5,"66",10,1,0,"0","SET DISC" 44612,,"545",14,0,0,"0","9/0/0" 44613,80,"358",2,0,0,"0",">COMPLEX O/P ARITH" 44614,82,"446",2,0,0,"0","" 44700,PROCR,"447",,,,"","GROUP 15 ACTIONS " 44701,NOTES,"",RADIX,B,,"","" 44702,85,"381",2,0,0,"0","" 44703,C,"447",12,0,0,"0","150=OPTIONS" 44704,C,"451",2,0,0,"0","151=UNLOAD" 44705,C,"450",2,0,0,"0","152=OVERLAY" 44706,C,"449",2,0,0,"0","153" 44707,C,"450",11,0,0,"0","154=COMMENT IN LOG" 44708,C,"448",20,0,0,"0","155=SELECT PROG SERIAL>A" 44709,C,"448",24,0,0,"0","156=RELEASE ROUTE" 44710,C,"448",37,0,0,"0","157=EXPAND" 44711,C,"448",47,0,0,"0","158=COMPARE" 44712,,"66",14,1,0,"0","" 44713,5,"61",52,1,0,"0","LITERAL=OPT NUMBER" 44714,80,"534",2,0,0,"0","SUSPEND" 44715,90,"",0,0,2,"0","(TO STORE UP TO 10 LINES)" 44716,C,"",0,0,0,"20","" 44717,80,"397",2,0,0,"0","TEST C-LINE FOLLOWS" 44718,71,"448",2,0,0,"0",">NO" 44719,,"66",6,1,0,"0","" 44720,30,"",0,0,0,"2","" 44721,1,"66",8,1,0,"0","ITEM" 44722,5,"61",54,0,2,"0","" 44723,0,"66",2,1,0,"0","LINE SERIAL NUMBER" 44724,5,"61",55,0,2,"0","" 44725,94,"447",17,0,2,"2","" 44800,PROCR,"448",,,,"","GROUP 15 " 44801,NOTES,"",RADIX,B,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000376.JPG",,,,"","ChuckK/Q1000376" 44802,96,"",0,0,2,"0","" 44803,3,"66",22,1,0,"0","W/L STORE MR2" 44804,31,"",0,0,0,"1-","FORM NUMBER OF C-LINES" 44805,5,"61",23,0,0,"0","NUMBER OF C-LINES" 44806,,"61",52,1,0,"0","SUSPENDED LITERAL;TEST OPTION NO." 44807,71,"448",12,0,0,"0",";GIVEN IN A COMPARTME" 44808,80,"535",2,0,0,"0","RESTORE FIRST LINE" 44809,,"545",8,0,0,"0","6/0/0" 44810,80,"358",2,0,0,"0",">COMPLEX O/P ARITH" 44811,76,"448",15,0,0,"0","" 44812,,"545",22,0,0,"0","1/1/3" 44813,1,"61",52,0,0,"0","LITERAL" 44814,80,"359",2,0,0,"0",">O/P" 44815,0,"61",23,0,0,"0","NO OF C-LINES" 44816,5,"61",52,1,0,"0","W/L FOR SN CONST S/R" 44817,,"545",27,0,0,"0","0/0/2" 44818,80,"357",2,0,0,"0",">SHORT NO O/P S/R" 44819,76,"451",2,0,0,"0","" 44820,,"72",0,1,0,"0","ALPHA SERIAL;ACTION 155" 44821,5,"61",52,1,0,"0","" 44822,,"545",8,0,0,"0","6/0/0" 44823,76,"378",4,0,0,"0",">O/P+GNB" 44824,80,"508",2,0,0,"0",">0/1/0.0/0/3 SR;ACTION 156" 44825,,"66",6,1,0,"0","FILE ID" 44826,5,"61",54,0,0,"0","" 44827,80,"499",2,0,0,"0","EXIT WITH(A)=ROUTE PARA" 44828,1,"545",8,0,0,"0","6/0/0" 44829,80,"355",2,0,0,"0",">O/P" 44830,80,"453",2,0,0,"0",">O/P 25/1/1 4096,24/0/3" 44831,10,"",0,0,0,"900","9 IN Q3" 44832,5,"67",1,0,0,"0","" 44833,,"545",60,0,0,"0","23/0/2" 44834,80,"359",2,0,0,"0",">O/P" 44835,80,"399",2,0,0,"0","0/1/1 O/P" 44836,76,"362",2,0,0,"0",">NEXT BLOCK" 44837,5,"66",10,1,0,"0","CLEAR DISC;ACTION 157" 44838,80,"522",2,0,0,"0",">SUSPEND, I/P C-LINE" 44839,10,"",0,0,0,"0","" 44840,5,"66",10,1,0,"0","CLEAR C-LINE DISC" 44841,0,"545",66,0,0,"0","24/0/2" 44842,80,"356",2,0,0,"0",">COMPLEX O/P NON-A" 44843,80,"535",2,0,0,"0",">RESTORE" 44844,0,"546",27,0,0,"0","29/0/3" 44845,80,"356",2,0,0,"0",">COMPLEX O/P NON-A" 44846,76,"401",19,0,0,"0",">JOIN UP WITH 51 ACTION" 44847,5,"66",10,1,0,"0","CLEAR DISC;ACTION 158" 44848,0,"66",14,0,0,"0","LITERAL" 44849,70,"448",51,0,0,"0",">16/1/0 ORDER" 44850,10,"",0,0,0,"2000-","(MAKE 16/1/1)" 44851,1,"546",28,0,0,"0","16/1/0" 44852,76,"403",12,0,0,"0",">COMPLEX O/P NON-A * GNB" 44900,PROCR,"449",,,,"","ACTION 153=SELECT DATE, TIME " 44901,NOTES,"",0,0,0,"0","" 44902,0,"545",73,0,0,"0","25/1/1 4096" 44903,80,"359",2,0,0,"0",">O/P" 44904,,"546",18,0,0,"0","23/0/22" 44905,80,"498",2,0,0,"0",">O/P INT SC" 44906,,"546",13,0,0,"0","24/1/0/7" 44907,80,"498",2,0,0,"0",">O/P INT SC" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000377.JPG",,,,"","ChuckK/Q1000377" 0query,164,"",,,,"","literal 2" 44908,80,"359",2,0,0,"0",">O/P 0/0/0 (LINK)" 44909,80,"504",2,0,0,"0",">O/P 24/0/3 0" 44910,0,"545",95,0,0,"0","0/0/2 156" 44911,80,"359",2,0,0,"0",">O/P" 44912,80,"504",2,0,0,"0",">O/P 24/0/3 0" 44913,0,"545",93,0,0,"0","6/1/0 138" 44914,80,"359",2,0,0,"0",">O/P" 44915,,"546",14,0,0,"0","26/0/3/5-" 44916,80,"498",2,0,0,"0",">O/P INT SC" 44917,76,"362",2,0,0,"0",">GNB" 45000,PROCR,"450",,,,"","GROUP 15 " 45001,NOTES,"",RADIX,B,,"","ACTIONS 152 AND 154" 45002,80,"522",2,0,0,"0","-I/P C-LINE S/R" 45003,,"66",6,1,0,"0","" 45004,5,"61",35,0,0,"0","" 45005,80,"486",2,0,0,"0"," DETERMINE CHAPTER" 45006,5,"61",23,0,0,"0","CORRECTED CHAP" 45007,0,"61",18,0,0,"0","UNCORRECTED CHAPTER" 45008,5,"61",52,1,0,"0","" 45009,80,"508",2,0,0,"0","-0/1/0 0/0/3 S/R" 45010,76,"448",6,0,0,"0","-" 45011,5,"66",10,1,0,"0","CLEAR DISC" 45012,5,"66",12,1,0,"0","HOD" 45013,80,"508",2,0,0,"0",">0/1/0+0/0/3" 45014,0,"545",66,0,0,"0","24/0/2" 45015,80,"356",2,0,0,"0",">COMPLEX O/P NON-A" 45100,PROCR,"451",,,,"","GROUP 15 " 45101,NOTES,"",RADIX,B,,"","" 45102,80,"453",2,0,0,"0","-NON INTERRUPT S/R" 45103,,"61",50,0,0,"0","" 45104,12,"",0,0,0,"3","" 45105,72,"452",26,0,0,"0",">ACTIONS 152,154" 45106,124,"61",50,0,1,"0","" 45107,0,"545",95,0,0,"0","" 45108,5,"67",1,0,0,"0"," 'SEQ CHANGE' IND" 45109,0,"545",63,0,0,"0","26/0/2" 45110,80,"359",2,0,0,"0",">O/P" 45111,,"61",50,0,0,"0","" 45112,12,"",0,0,0,"2","" 45113,70,"362",2,0,0,"0","GNB;IF 151 ACTION" 45200,PROCR,"452",,,,"","GROUP 15 " 45201,NOTES,"",RADIX,B,,"","ACTION 150" 45202,,"66",22,1,0,"0","STORED VALUE OF MR2" 45203,30,"",0,0,0,"5","SET E.V. AT MODIFIERAND MODIFIER ZERO" 45204,70,"362",3,0,0,"0",">GNB(NO C-LINES)" 45205,91,"",0,0,3,"0","" 45206,34,"61",54,0,3,"0","DEST" 45207,10,"",0,0,0,"0","" 45208,32,"",0,0,0,"8","" 45209,3,"66",6,0,0,"0","" 45210,5,"61",35,0,0,"0","" 45211,32,"",0,0,0,"2","" 45212,5,"66",8,0,0,"0","" 45213,80,"486",2,0,0,"0","-DET CHAP" 45214,3,"61",34,0,0,"0","PARA" 45215,70,"452",17,0,0,"0",">DON'T MAKE PARA 1" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000378.JPG",,,,"","DavidH/Q1000378" 45216,12,"",0,0,0,"1","" 45217,4,"61",34,0,0,"0","" 45218,0,"61",55,0,3,"0","SOURCE" 45219,5,"66",2,1,0,"0","" 45220,5,"61",0,0,0,"0","CLEAR ACTION W/L" 45221,80,"418",2,0,0,"0","S.C. S/R" 45222,80,"532",2,0,0,"0","STACK" 45223,80,"518",2,0,0,"0","O/P" 45224,94,"452",6,0,3,"2","gNEXT C-LINE" 45225,76,"362",3,0,0,"0","" 45226,124,"61",50,0,0,"0","" 45227,0,"545",89,0,0,"0","SEQ CHANGE IND" 45228,5,"67",1,0,0,"0","" 45229,0,"545",60,0,0,"0","23/0/2" 45230,80,"359",2,0,0,"0","gO/P" 45231,80,"399",2,0,0,"0"," RESTORES ABC" 45232,76,"362",2,0,0,"0","GNB" ,,"",,,,"","" 45300,PROCR,"453",,,,"","SET NON-INTERRUPTIBLE S/R" 45301,NOTES,"",RADIX,B,,"B","GROUPS 4 AND 15 BEFORE ENTER MASTER" 45302,81,"453",2,0,0,"0","" 45303,,"545",73,0,0,"0","25/1/1/4096" 45304,80,"359",2,0,0,"0","gO/P" 45305,80,"504",2,0,0,"0","gO/P 24/0/3 0" 45306,82,"453",2,0,0,"0","" ,,"",,,,"","" 45400,PROCR,"454",,,,"","CONSTANTS" 45401,NOTES,"",RADIX,B,,"B","" 45402,54,"61",55,0,0,"14","CLEAR W/LS" 45403,80,"463",2,0,0,"0","-PREP S/R" 45404,80,"464",2,0,0,"0","-GET NEXT CHAR S/R" 45405,10,"",0,0,0,"0","" ,,"",,,,"","" 45500,PROCR,"455",,,,"","CONSTANTS" 45501,NOTES,"",RADIX,B,B,"","" 45502,80,"464",2,0,0,"0","-GET NEXT CHAR" 45503,10,"",0,0,0,"1","" 45504,5,"61",30,0,0,"0","DEFN LINE IND" 45505,5,"61",98,1,0,"0","" 45506,91,"61",60,0,2,"0","" 45507,,"61",24,0,0,"0","THIS CHARACTER" 45508,12,"",0,0,0,"51","A" 45509,70,"456",6,0,0,"0","" 45510,12,"",0,0,0,"1","B" 45511,70,"456",3,0,0,"0","" 45512,12,"",0,0,0,"1","" 45513,71,"455",16,0,0,"0","g NOT 'C'" 45514,10,"",0,0,0,"10","16" 45515,76,"455",21,0,0,"0","gSET AS SUBFIELD LENGTH" 45516,12,"",0,0,0,"1","" 45517,70,"456",4,0,0,"0","" 45518,12,"",0,0,0,"13","P" 45519,70,"456",5,0,0,"0","" 45520,10,"",0,0,0,"p","HENCE 'R'" 45521,5,"61",55,0,2,"0","SUBFIELD LENGTH" ,,"",,,,"","" 45600,PROCR,"456",,,,"","CONSTANTS" 45601,NOTES,"",RADIX,,B,"","" 45602,10,"",0,0,0,"1","R,C=5" 45603,11,"",0,0,0,"1","B=4" ,,"",,,,"","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000379.JPG",,,,"","KenK/Q1000379" 45604,11,"",0,0,0,"1","" 45605,11,"",0,0,0,"1","" 45606,11,"",0,0,0,"1","" 45607,3,"61",62,0,2,"0","SWITCH SETTING " 45608,84,"458",2,0,0,"0","" 45609,80,"464",2,0,0,"0","GET NEXT CHAR " 45610,12,"",0,0,0,"7e","" 45611,70,"457",2,0,0,"0","" 45612,0,"61",98,1,0,"0","COLLECT * IN'(B*)' DIRECTIVE " 45613,30,"",0,0,0,"2","" 45614,1,"61",24,0,0,"0","THIS CHAR " 45615,5,"61",98,1,0,"0","" 45616,76,"456",9,0,0,"0","LOOP UNTIL')'FOUND " 45700,PROCR,"457",,,,"","CONSTANTS " 45701,NOTES,"",RADIX,B,,"","" 45702,32,"",0,0,0,"10","PRESERVE B DURING CURRENT " 45703,5,"61",96,1,0,"0","" 45704,,"61",98,2,0,"0","" 45705,80,"537",2,0,0,"0","CONVERT NO OF BITS FOR BIN CONSTANT " 45706,73,"457",8,0,0,"0","gSAFETY DEVICE " 45707,4,"61",55,0,2,"0","AUG SHIFT CONTROL " 45708,34,"61",96,1,0,"0","RESTORE B " 45709,10,"",0,0,0,"0","" 45800,PROCR,"458",,,,"","CONSTANTS MAIN LOOP " 45801,NOTES,"",RADIX,B,,"","" 45802,80,"464",2,0,0,"0","GET NEXT CHAR " 45803,12,"",0,0,0,"7t","" 45804,70,"458",15,0,0,"0","gYES " 45805,12,"",0,0,0,"2","" 45806,70,"460",2,0,0,"0","" 45807,12,"",0,0,0,"1","" 45808,70,"461",2,0,0,"0","gEND OF CONSTANT " 45809,85,"458",2,0,0,"0","" 45810,C,"467",2,0,0,"0","ALPHA " 45811,C,"468",2,0,0,"0","" 45812,C,"469",2,0,0,"0","" 45813,C,"471",2,0,0,"0","" 45814,C,"473",2,0,0,"0","" 45815,10,"",0,0,0,"1","" 45816,5,"61",61,0,0,"0","MIXED CONST IND " 45817,80,"459",2,0,0,"0","gSHIFT UP PREVIOUS SUBFIELD " 45818,76,"454",5,0,0,"0","gGET NEXT CHAR " 45900,PROCR,"459",,,,"","CONSTANT S/R " 45901,NOTES,"",RADIX,B,,"","ADD THIS SUBFIELD TO PREVIOUS ONES " 45902,81,"459",2,0,0,"0","" 45903,0,"61",26,1,0,"0","CONSTANT TO DATE " 45904,124,"61",60,0,0,"0","SUBFIELD CTR " 45905,124,"61",55,0,0,"0","LENGTH OF SUBFIELD IN BITE " 45906,31,"",0,0,0,"0","///// " 45907,1,"61",28,1,0,"0","VALUE OF CURRENT SUBCONST " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000380.JPG",,,,"","RayS/Q1000380" 45908,5,"61",26,1,0,"0","" 45909,5,"61",28,1,0,"0","" 45910,10,"",0,0,0,"1","" 45911,4,"61",60,0,0,"0","STEP SF CTR" 45912,82,"459",2,0,0,"0","" 46000,PROCR,"460",,,,"","" 46001,NOTES,"",RADIX,B,,"","" 46002,80,"464",2,0,0,"0","gGET NEXT CHAR AFTER COMMA" 46003,80,"459",2,0,0,"0","gADD IN SUBCONST PRECEDING COMMA" 46004,91,"61",60,0,2,"0","" 46005,84,"458",2,0,0,"0","" 46006,C,"61",62,0,2,"0","NET SUBFIELD TYPE" 46007,,"61",24,0,0,"0","NEXT CHAR AFTER COMMA" 46008,76,"458",3,0,0,"0","" 46100,PROCR,"461",,,,"","" 46101,NOTES,"",RADIX,B,,"","" 46102,80,"459",2,0,0,"0","gADD IN FINAL SUBCONST" 46103,,"61",32,0,0,"0","NEG IND" 46104,70,"461",13,0,0,"0","gCONSTANT IS POSITIVE" 46105,,"61",47,0,0,"0","CONST TYPE" 46106,70,"461",11,0,0,"0","SHORT CONST" 46107,10,"",0,0,0,"0","" 46108,2,"61",26,1,0,"0","" 46109,5,"61",26,1,0,"0","" 46110,76,"461",13,0,0,"0","COMPLEMENT CONST LONG OR SHORT" 46111,2,"61",26,0,0,"0","" 46112,5,"61",26,0,0,"0","" 46113,,"",6,2,12,"0","" 46114,5,"61",31,0,0,"0","SET END IND" 46115,80,"511",2,0,0,"0","gPRINT" 46116,80,"462",2,0,0,"0","gCONST O/P SR" 46117,,"61",31,0,0,"0","END IND" 46118,71,"362",2,0,0,"0","gYES, GNB" 46119,80,"509",2,0,0,"0","-I/P" 46120,80,"463",2,0,0,"0","-PREP S/R" 46121,10,"",0,0,0,"0","CLEAR A FOR GET NEXT CHARACTER S/R" 46122,80,"464",2,0,0,"0","-GET NEXT CHAR" 46123,12,"",0,0,0,"7t","122" 46124,70,"461",29,0,0,"0","gTHIS IS A DIRECTIVE LINE" 46125,,"61",61,0,0,"0","" 46126,71,"460",4,0,0,"0","gTHIS IS A MIXED CONSTANT" 46127,,"61",24,0,0,"0","NEXT CHARACTER" 46128,76,"458",3,0,0,"0","-" 46129,5,"61",55,0,0,"0","" 46130,5,"61",56,1,0,"0","" 46131,5,"61",58,1,0,"0","" 46132,76,"455",2,0,0,"0","gGET DIRECTIVE LETTER" 46200,PROCR,"462",,,,"","" 46201,NOTES,"",RADIX,B,,"","" 46202,81,"462",2,0,0,"0","" 46203,,"61",27,0,0,"0","MOST SIG HALF LONG CONST" 46204,5,"67",3,0,0,"0","" 46205,,"61",26,0,0,"0","LEAST SIG HALF" 46206,124,"61",68,0,0,"0","0 OR 2" 46207,5,"67",1,0,0,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000381.JPG",,,,"","RayS/Q1000381" 46208,,"61",47,0,0,"0","CONST TYPE" 46209,71,"462",16,0,0,"0","-LONG NO CONST" 46210,,"61",31,0,0,"0","NONZERO IF FINAL CONST IN SECTION" 46211,71,"462",16,0,0,"0","-" 46212,10,"",0,0,0,"2","" 46213,2,"61",68,0,0,"0","" 46214,3,"61",68,0,0,"0","" 46215,71,"462",23,0,0,"0","gFIRST TIME THROUGH" 46216,,"61",26,1,0,"0","" 46217,72,"462",22,0,0,"0","" 46218,,"61",27,0,0,"0","" 46219,71,"462",22,0,0,"0","gMOST SIG HALF IS NOT MINUS ZERO" 46220,10,"",0,0,0,"80","B8" 46221,4,"67",2,0,0,"0","PARAMETER" 46222,80,"518",2,0,0,"0","O/P" 46223,82,"462",2,0,0,"0","END" 46300,PROCR,"463",,,,"","" 46301,NOTES,"",RADIX,B,,"","CONSTANTS PREP S/R" 46302,81,"463",2,0,0,"0","" 46303,54,"61",26,0,0,"8","CLEAR W/L'S" 46304,,"77",2,1,0,"0","AMEND IND" 46305,5,"7",2,1,0,"0","" 46306,,"77",4,1,0,"0","LINE SERIAL" 46307,5,"7",6,1,0,"0","" 46308,55,"77",8,1,0,"18","COPY CONSTANTS" 46309,C,"7",12,1,0,"0","" 46310,,"77",26,1,0,"0","PASS 1 REPORTS" 46311,5,"7",48,1,0,"0","" 46312,55,"77",28,1,0,"16","COPY ANNOTATION" 46313,C,"7",32,1,0,"0","" 46314,0,"61",68,0,0,"0","O/P IND" 46315,71,"463",17,0,0,"0","gSECOND HALF OF SHORT CONST" 46316,5,"67",0,0,0,"0","CLEAR THIS" 46317,,"7",46,1,0,"0","" 46318,2,"542",28,1,0,"0","IGNORE TRANSLATION IND" 46319,70,"461",13,0,0,"0","gYES, GO TO PRINT" 46320,90,"",0,0,3,"0","" 46321,C,"",0,0,0,"10","" 46322,34,"77",8,1,0,"0","FIRST WORD OF CONSTANT" 46323,10,"",0,0,0,"2","" 46324,5,"61",38,0,0,"0","SET MOD CTR" 46325,5,"61",60,0,0,"0","S/F MOD" 46326,82,"463",2,0,0,"0","" 46400,PROCR,"464",,,,"","GET NEXT CHAR S/R" 46401,NOTES,"",RADIX,B,,"","" 46402,81,"464",2,0,0,"0","" 46403,32,"",0,0,0,"2","" 46404,5,"61",24,1,0,"0","THIS CHAR W/L" 46405,94,"464",12,0,3,"2","" 46406,124,"61",38,0,0,"0","" 46407,34,"77",8,1,0,"0","NEXT WORD" 46408,10,"",0,0,0,"2","" 46409,4,"61",38,0,0,"0","" 46410,90,"",0,0,3,"0","" 46411,C,"",0,0,0,"10","" 46412,,"61",24,1,0,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000382.JPG",,,,"","DaveJ/Q1000382" 46413,82,"464",2,0,0,"0","" 46500,PROCR,"465",,0,0,"0","TEST (,NE S/R" 46501,NOTES,"",RADIX,B,0,"0","CONSTANTS" 46502,81,"465",2,0,0,"0","" 46503,12,"",0,0,0,"7t","(" 46504,70,"465",8,0,0,"0","" 46505,12,"",0,0,0,"2","," 46506,70,"465",8,0,0,"0","" 46507,12,"",0,0,0,"1","NE" 46508,82,"465",2,0,0,"0","" 46600,PROCR,"466",,0,0,"0","PUT THIS CHAR INTO O/P WORD S/R" 46601,NOTES,"",RADIX,B,0,"0","" 46602,81,"466",2,0,0,"0","" 46603,,"61",28,1,0,"0","" 46604,30,"",0,0,0,"1","" 46605,1,"61",24,2,0,"0","NEXT CHAR(BASIC ONLY)" 46606,5,"61",28,1,0,"0","" 46607,82,"466",2,0,0,"0","" 46700,PROCR,"467",,0,0,"0","ALPHA CONSTANTS" 46701,NOTES,"",RADIX,B,0,"0","" 46702,,"61",30,0,0,"0","DEFN LINE IND" 46703,70,"467",7,0,0,"0","gNO" 46704,10,"",0,0,0,"8","" 46705,124,"61",60,0,0,"0","SF CTR" 46706,4,"61",55,0,0,"0","AUG SF LENGTH BY 8 FOR EACH ALPHA CHAR" 46707,,"61",28,1,0,"0","" 46708,30,"",0,0,0,"2","" 46709,1,"61",24,0,0,"0","" 46710,5,"61",28,1,0,"0","ADD IN THIS CHAR TO SUBCONST" 46711,76,"458",2,0,0,"0","" 46800,PROCR,"468",,0,0,"0","BINARY PATTERNS" 46801,NOTES,"",RADIX,B,0,"0","" 46802,0,"61",24,0,0,"0","THIS CHARACTER" 46803,12,"",0,0,0,"10","MINUS SIGN" 46804,70,"468",15,0,0,"0","" 46805,0,"61",30,0,0,"0","" 46806,70,"468",10,0,0,"0","g NOT DEFINITION LINE" 46807,10,"",0,0,0,"1","" 46808,124,"61",60,0,0,"0","SF MOD" 46809,4,"61",55,0,0,"0","AUG SF LENGTH BY 1 BIT PER CHAR" 46810,,"61",28,1,0,"0","" 46811,1,"61",28,1,0,"0","" 46812,1,"61",24,2,0,"0","" 46813,5,"61",28,1,0,"0","ADD THIS BIT INTO SUBCONST" 46814,76,"457",9,0,0,"0","" 46815,0,"61",60,0,0,"0","TEST FIRST SUBFIELD" 46816,71,"457",9,0,0,"0","" 46817,10,"",0,0,0,"1","" 46818,5,"61",32,0,0,"0","NEG INDICATOR" 46819,76,"457",9,0,0,"0","" 46900,PROCR,"469",,0,0,"0","DECIMAL CONSTS (-VE)" 46901,NOTES,"",RADIX,B,0,"0","" 46902,,"61",24,0,0,"0","" 46903,12,"",0,0,0,"10","NEG SIGN" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000383.JPG",,,,"","RayS/Q1000383" 46904,71,"470",2,0,0,"0","" 46905,,"61",60,0,0,"0","S/F MOD" 46906,71,"469",10,0,0,"0","NOT FIRST MOD" 46907,10,"",0,0,0,"1","" 46908,5,"61",32,0,0,"0","NEG IND" 46909,76,"458",2,0,0,"0","" 46910,10,"",0,0,0,"1","BIT 1" 46911,124,"61",60,0,0,"0","SF MOD" 46912,124,"61",55,0,0,"0","SF LENGTH" 46913,31,"",0,0,0,"0","/////" 46914,60,"",0,0,0,"0","" 46915,2,"61",28,1,0,"0","FORM N BIT" 46916,5,"61",28,1,0,"0","DEC COMPT" 46917,62,"",0,0,0,"0","" 46918,76,"458",2,0,0,"0","" 47000,PROCR,"470",,,,"","DECIMAL CONSTANTS (+VE)" 47001,NOTES,"",RADIX,B,,"","" 47002,,"61",30,0,0,"0","" 47003,70,"470",7,0,0,"0","gNOT DIRECTIVE LINE" 47004,10,"",0,0,0,"4","" 47005,124,"61",60,0,0,"0","SF MOD" 47006,4,"61",55,0,0,"0","AUG SF LENGTH BY 4 BITS PER CHAR" 47007,80,"466",2,0,0,"0","gADD THIS CHAR TO O/P WORD" 47008,76,"458",2,0,0,"0","" 47100,PROCR,"471",,,,"","" 47101,NOTES,"",RADIX,B,,"","BINARY NO CONSTANTS" 47102,,"61",24,0,0,"0","" 47103,12,"",0,0,0,"10","-SIGN" 47104,71,"471",8,0,0,"0","" 47105,10,"",0,0,0,"1","" 47106,5,"61",33,0,0,"0","" 47107,76,"471",9,0,0,"0","" 47108,80,"466",2,0,0,"0","-THIS CHAR SET UP O/P" 47109,80,"464",2,0,0,"0","-GET NEXT CHAR" 47110,80,"465",2,0,0,"0","-TEST S/R" 47111,71,"471",2,0,0,"0","" 47112,32,"",0,0,0,"10","" 47113,5,"61",34,1,0,"0","PRESERVE B" 47114,,"61",28,1,0,"0","DEC VALUE OF CONST" 47115,80,"537",2,0,0,"0","CONVERT" 47116,5,"61",28,1,0,"0","" 47117,34,"61",34,1,0,"0","RESTORE B" 47118,,"61",33,0,0,"0","NEG IND FOR BIN CONSTS" 47119,70,"472",5,0,0,"0","gNOT NEGATIVE" 47120,,"61",60,0,0,"0","S/F MOD" 47121,70,"472",2,0,0,"0","gFIRST S/F" 47122,10,"",0,0,0,"1","" 47123,124,"61",60,0,0,"0","S/F MOD" 47124,124,"61",55,0,0,"0","S/F LENGTH=N" 47125,31,"",0,0,0,"0","/////" 47126,2,"61",28,1,0,"0","FORM N-BIT COMPT" 47127,5,"61",28,1,0,"0","" 47128,76,"472",4,0,0,"0","" 47200,PROCR,"472",,,,"","BINARY NO CONSTS" 47201,NOTES,"",RADIX,,,"","" 47202,10,"",0,0,0,"1","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000384.JPG",,,,"","RayS/Q1000384" 47203,5,"61",32,0,0,"0","NEG IND" 47204,5,"61",33,0,0,"0","BIN NO NEG IND" 47205,,"61",24,0,0,"0","" 47206,76,"458",3,0,0,"0","-" 47300,PROCR,"473",,,,"","" 47301,NOTES,"",RADIX,,,"","RELATIVE ADDRESS CONSTS" 47302,,"61",24,0,0,"0","" 47303,12,"",0,0,0,"4:","" 47304,70,"474",2,0,0,"0","gCOLON" 47305,11,"",0,0,0,"4:","" 47306,80,"465",2,0,0,"0","-TEST S/R" 47307,70,"474",24,0,0,"0","" 47308,80,"466",2,0,0,"0","-THIS CHAR SET UP O/P" 47309,80,"464",2,0,0,"0","-GET NEXT CHAR" 47310,76,"473",2,0,0,"0","" 47400,PROCR,"474",,,,"","RELATIVE ADDRESS CONSTS" 47401,NOTES,"",RADIX,B,,"","" 47402,32,"",0,0,0,"10","" 47403,5,"61",98,1,0,"0","STORE REGISTER B" 47404,,"61",28,1,0,"0","" 47405,80,"537",2,0,0,"0","CONVERT" 47406,5,"61",35,0,0,"0","" 47407,91,"61",68,0,2,"0","" 47408,80,"486",2,0,0,"0","-DET CHAP S/R" 47409,3,"67",0,0,2,"0","PARA" 47410,70,"474",13,0,0,"0","ABS ADD" 47411,12,"",0,0,0,"1","=2C-1" 47412,4,"67",0,0,2,"0","" 47413,,"61",35,0,0,"0","REF" 47414,30,"",0,0,0,"2","" 47415,4,"67",0,0,2,"0","" 47416,10,"",0,0,0,"0","" 47417,5,"61",28,1,0,"0","CLEAR FOR ITEM" 47418,34,"61",98,1,0,"0","" 47419,80,"464",2,0,0,"0","gGET NEXT CHAR" 47420,80,"465",2,0,0,"0","gTEST S/R" 47421,70,"474",26,0,0,"0","" 47422,80,"466",2,0,0,"0","gTHIS CHAR SET UP O/P" 47423,76,"474",19,0,0,"0","" 47424,91,"61",68,0,2,"0","" 47425,5,"67",0,0,2,"0","" 47426,32,"",0,0,0,"10","" 47427,5,"61",34,1,0,"0","STORE 2" 47428,,"61",28,1,0,"0","" 47429,80,"537",2,0,0,"0","CONVERT ITEM" 47430,5,"61",28,1,0,"0","" 47431,34,"61",34,1,0,"0","REPLACE B" 47432,76,"472",5,0,0,"0","" 47500,PROCR,"475",,,,"","TABLE ENTRIES" 47501,NOTES,"",RADIX,B,,"","" 47502,50,"77",2,0,0,"0","" 47503,C,"549",2,0,0,"0","" 47504,52,"7",2,0,0,"0","EDIT TABLES" 47505,C,"549",2,0,0,"0","" 47506,,"77",22,1,0,"0","PASS 1 REPORTS" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000385.JPG",,,,"","ChuckK/Q1000385" 47507,5,"7",48,1,0,"0","" 47508,55,"77",24,1,0,"16","COPY ANNOTATION" 47509,C,"7",32,1,0,"0","" 47510,80,"511",2,0,0,"0","PRINT" 47600,PROCR,"476",,,,"","TABLE ENTRIES " 47601,NOTES,"",RADIX,B,,"","" 47602,90,"",0,0,2,"0","" 47603,C,"",0,0,0,"20","" 47604,,"66",3,0,2,"0","" 47605,80,"537",2,0,0,"0","CONVERT" 47606,5,"66",3,0,2,"0","" 47607,94,"476",4,0,2,"1","" 47608,90,"",0,0,2,"0","" 47609,C,"",0,0,0,"4","" 47610,,"66",16,0,2,"0","" 47611,101,"",100,1,2,"0","" 47612,73,"476",17,0,0,"0",">SECTION" 47613,101,"",899,1,2,"0","" 47614,72,"476",17,0,0,"0",">999" 47615,10,"",0,0,0,"2-","" 47616,4,"66",17,0,2,"0","REDUCE ITEM FOR CALCS" 47617,94,"476",10,0,2,"2","" 47618,10,"",0,0,0,"0","" 47619,34,"61",47,0,0,"0","TYPE" 47620,36,"544",6,0,0,"0","BIT 1" 47621,71,"476",28,0,0,"0","NOT TYPES 2 OR 4" 47622,0,"66",19,0,0,"0","SECOND ITEM" 47623,71,"476",27,0,0,"0",">'LAST ITEM' GIVEN" 47624,0,"66",17,0,0,"0","FIRST ITEM" 47625,71,"476",27,0,0,"0","" 47626,0,"545",8,0,0,"0","SOMETHING INTO Q5" 47627,5,"67",2,0,0,"0","" 47628,0,"66",16,0,0,"0","FIRST REF" 47629,5,"61",35,0,0,"0","REF" 47630,80,"486",2,0,0,"0","DET CHAP" 47700,PROCR,"477",,,,"","TABLE ENTRIES " 47701,NOTES,"",RADIX,,,"","" 47702,3,"67",0,0,0,"0","" 47703,70,"477",6,0,0,"0","ABS ADD" 47704,12,"",0,0,0,"1","" 47705,4,"67",0,0,0,"0","" 47706,,"61",35,0,0,"0","REF" 47707,30,"",0,0,0,"2","" 47708,4,"67",0,0,0,"0","" 47709,0,"66",3,0,0,"0","SHORT/LONG/ALPHA" 47710,70,"477",15,0,0,"0","" 47711,12,"",0,0,0,"1","" 47712,70,"477",14,0,0,"0","" 47713,,"545",49,0,0,"0","B17" 47714,1,"545",13,0,0,"0","B18" 47715,5,"67",3,0,0,"0","" 47716,,"66",13,0,0,"0","SIGN" 47717,70,"478",2,0,0,"0","" 47718,12,"",0,0,0,"2","" 47719,70,"477",21,0,0,"0","" 47720,,"545",51,0,0,"0","B20" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000386.JPG",,,,"","ChuckK/Q1000386" 47721,1,"545",9,0,0,"0","B19" 47722,4,"67",3,0,0,"0","" 47800,PROCR,"478",,,,"","TABLE ENTRIES " 47801,NOTES,"",RADIX,B,,"","" 47802,0,"66",4,0,0,"0","SINGLE/BE" 47803,70,"478",6,0,0,"0","" 47804,,"545",51,0,0,"0","B20" 47805,4,"67",3,0,0,"0","" 47806,,"66",12,0,0,"0","ZEROS" 47807,30,"",0,0,0,"1","" 47808,1,"66",10,0,0,"0","DISC" 47809,30,"",0,0,0,"1","" 47810,1,"66",11,0,0,"0","SPACES" 47811,30,"",0,0,0,"1","" 47812,1,"66",5,0,0,"0","NO OF CHARS" 47813,4,"67",3,0,0,"0","" 47814,,"66",15,0,0,"0","LTE" 47815,70,"479",4,0,0,"0","" 47816,10,"",0,0,0,"0","" 47817,2,"67",3,0,0,"0","" 47818,70,"479",2,0,0,"0","" 47819,5,"67",3,0,0,"0","" 47820,76,"479",4,0,0,"0","" 47900,PROCR,"479",,,,"","TABLE ENTRIES " 47901,NOTES,"",RADIX,B,,"","" 47902,10,"",0,0,0,"80","B8" 47903,4,"67",0,0,0,"0","" 47904,0,"66",17,0,0,"0","FIRST ITEM" 47905,5,"67",1,0,0,"0","" 47906,,"66",14,0,0,"0","STERLING INDICATOR" 47907,70,"479",16,0,0,"0","" 47908,4,"61",109,0,0,"0","" 47909,0,"61",109,0,0,"0","" 47910,12,"",0,0,0,"2","" 47911,71,"479",16,0,0,"0","" 47912,12,"",0,0,0,"1","" 47913,5,"61",109,0,0,"0","SET CTR=1-" 47914,,"545",49,0,0,"0","B17" 47915,4,"67",1,0,0,"0","" 47916,0,"66",15,0,0,"0","LTE IND" 47917,70,"382",10,0,0,"0",">NO,O/P+GNB" 47918,5,"61",109,0,0,"0","" 47919,5,"61",109,0,0,"0","CLEAR STERLING CTR" 47920,76,"382",10,0,0,"0",">O/P+GNB" 48000,PROCR,"480",,,,"","VALUES " 48001,NOTES,"",RADIX,,,"","" 48002,80,"360",2,0,0,"0","BULK CLEAR SEC 7" 48003,,"",8,2,12,"0","" 48004,80,"537",2,0,0,"0",">TO BIN" 48005,5,"66",8,1,0,"0","" 48006,,"",6,2,12,"0","" 48007,80,"537",2,0,0,"0",">TO BIN" 48008,3,"66",6,2,0,"0","REF" 48009,34,"66",8,0,0,"0","" 48010,74,"480",28,0,0,"0",">ZERO REF,ITEM" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000387.JPG",,,,"","ChuckK/Q1000387" 48011,101,"",100,1,2,"0","" 48012,73,"480",15,0,0,"0",">REF=SECTION" 48013,10,"",0,0,0,"2-","" 48014,4,"66",8,1,0,"0","REDUCE FOR CALCS" 48015,,"542",10,1,0,"0"," 'NOTES'" 48016,3,"61",26,1,0,"0","" 48017,5,"61",28,1,0,"0","" 48018,0,"66",6,2,0,"0","REF" 48019,5,"67",2,0,0,"0","" 48020,0,"66",8,1,0,"0","ITEM" 48021,5,"67",3,0,0,"0","" 48022,5,"67",0,0,0,"0","CLEAR" 48023,80,"517",2,0,0,"0","O/P REF/ITEM UNIT(ALPHA O/P)" 48024,0,"77",6,1,0,"0","" 48025,5,"7",8,1,0,"0","REF" 48026,0,"77",8,1,0,"0","" 48027,5,"7",10,1,0,"0","ITEM" 48028,90,"",0,0,3,"0","" 48029,C,"",0,0,0,"32","" 48030,,"77",12,2,3,"0","" 48031,73,"480",45,0,0,"0",">NEG PARA=END OF LINE" 48032,5,"67",2,0,0,"0","" 48033,,"77",10,2,3,"0","" 48034,5,"67",3,0,0,"0","" 48035,52,"7",12,0,3,"0","" 48036,C,"550",2,0,0,"0","" 48037,80,"518",2,0,0,"0","O/P VALUE UNIT" 48038,94,"480",30,0,3,"4","" 48039,,"77",6,0,0,"0","REF" 48040,5,"7",8,0,0,"0","" 48041,,"77",8,0,0,"0","ITEM" 48042,5,"7",10,0,0,"0","" 48043,80,"511",2,0,0,"0",">PRINT" 48044,76,"362",2,0,0,"0","GNB" 48045,10,"",0,0,0,"55"," 'E'" 48046,5,"7",14,1,3,"0","" 48047,5,"7",12,1,3,"0","" 48048,76,"480",43,0,0,"0","" 48100,PROCR,"481",,,,"","LONG NO CONST S/R " 48101,NOTES,"",RADIX,B,,"","" 48102,81,"481",2,0,0,"0","" 48103,91,"61",12,0,3,"0","" 48104,,"61",5,0,0,"0","LONG NO SECT NO" 48105,5,"66",6,1,0,"0","" 48106,10,"",0,0,0,"1","" 48107,5,"66",10,1,0,"0","DISC" 48108,80,"482",2,0,0,"0","TSL AND LONG NO S/R" 48109,4,"61",13,0,0,"0","END VALUE" 48110,82,"481",2,0,0,"0","" 48200,PROCR,"482",,,,"","LONG NO CONST & TSL S/R (1) " 48201,NOTES,"",RADIX,B,,"","" 48202,81,"482",2,0,0,"0","" 48203,94,"482",5,0,3,"0","/////" 48204,76,"482",12,0,0,"0","" 48205,,"61",53,0,0,"0","" 48206,2,"62",1,0,3,"0","COMPARE MOST SIG HALVES" 48207,71,"482",11,0,0,"0",">NO CHANGE OF MATCH" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000388.JPG",,,,"","TonyJ/Q1000388" 48208,,"62",0,1,3,"0","" 48209,2,"61",52,1,0,"0","" 48210,70,"482",15,0,0,"0","MATCH FOUND" 48211,94,"482",5,0,3,"2","NO MATCH" 48212,,"61",52,1,0,"0","" 48213,5,"62",0,1,3,"0","" 48214,10,"",0,0,0,"2","" 48215,5,"537",2,0,0,"0","WL=CONVERT SR LINK" 48216,96,"",0,0,3,"0","MODIFIER" 48217,12,"",0,0,0,"e4","180" 48218,73,"482",21,0,0,"0","> NOT TSL" 48219,31,"",0,0,0,"1-","" 48220,76,"482",22,0,0,"0","" 48221,11,"",0,0,0,"e4","180" 48222,5,"66",8,1,0,"0","" 48223,0,"61",3,0,0,"0","2C" 48224,5,"61",34,0,0,"0","" 48225,5,"66",12,1,0,"0","MOD" 48226,80,"532",2,0,0,"0","STACK" 48227,80,"518",2,0,0,"0","O/P" 48228,,"537",2,0,0,"0","WL" 48229,82,"482",2,0,0,"0","" 48300,PROCR,"483",,483,,"SHORT NO CONST S/R","> GNB" 48301,NOTES,"",RADIX,B,,"","" 48302,81,"483",2,0,0,"0","" 48303,91,"61",14,0,3,"0","CTR OF SHORT NUMBERS TO DATE" 48304,0,"61",15,0,0,"0","CTR" 48305,70,"483",10,0,0,"0","NONE STORED YET" 48306,,"61",52,1,0,"0","NUMBER TO BE OUTPUT" 48307,2,"63",0,0,3,"0","NEXT NUMBER ALREADY OUTPUT" 48308,70,"483",17,0,0,"0","> MATCH" 48309,94,"483",6,0,3,"1","> TRY NEXT" 48310,,"61",52,1,0,"0","STORE NEWCOMER" 48311,5,"63",0,0,3,"0","IN NEXT FREE POSITION" 48312,,"61",15,0,0,"0"," = RELATIVE POSITION IN LIST" 48313,5,"66",8,1,0,"0","SET AS ITEM" 48314,10,"",0,0,0,"1","STEP ON FOR NEXT ITEM" 48315,4,"61",15,0,0,"0","CTR OF NUMBERS IN LIST" 48316,76,"483",19,0,0,"0","" 48317,96,"",0,0,3,"0","MODIFIER" 48318,5,"66",8,1,0,"0","" 48319,,"61",6,0,0,"0","SN SECT NO" 48320,5,"66",6,1,0,"0","REF" 48321,5,"66",10,1,0,"0","DISC" 48322,5,"66",12,1,0,"0","M" 48323,,"61",3,0,0,"0","2C" 48324,5,"61",34,0,0,"0","PARA" 48325,80,"532",2,0,0,"0"," - STACK" 48326,80,"518",2,0,0,"0"," - O/P" 48327,82,"483",2,0,0,"0","" 48400,PROCR,"484",,484,,"TSL S/R","" 48401,NOTES,"",RADIX,B,,"","" 48402,81,"484",2,0,0,"0","" 48403,5,"61",0,0,0,"0","" 48404,,"66",6,1,0,"0","REF" 48405,5,"61",35,0,0,"0","" 48406,80,"486",2,0,0,"0","" 48407,3,"61",52,0,0,"0","CHAP" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000389.JPG",,,,"","TonyJ/Q1000389" 48408,12,"",0,0,0,"1","" 48409,4,"61",52,0,0,"0","" 48410,0,"61",28,1,0,"0","" 48411,5,"61",53,0,0,"0","ITEM" 48412,0,"61",35,0,0,"0","" 48413,30,"",0,0,0,"2","" 48414,4,"61",52,0,0,"0","REF12C-1" 48415,80,"485",2,0,0,"0","" 48416,82,"484",2,0,0,"0","" 48500,PROCR,"485",,485,,"","" 48501,NOTES,"",RADIX,B,,"","" 48502,81,"485",2,0,0,"0","" 48503,91,"61",16,0,3,"0","TSL COUNTER" 48504,,"61",7,0,0,"0","" 48505,5,"66",6,1,0,"0","" 48506,5,"66",10,1,0,"0","DISC" 48507,80,"482",2,0,0,"0","TSL 7 LONG NO S/R" 48508,4,"61",17,0,0,"0","END VALUE" 48509,82,"485",2,0,0,"0","" 48600,PROCR,"486",,486,,"","" 48601,NOTES,"",RADIX,B,,"","" 48602,81,"486",2,0,0,"0","" 48603,,"61",35,0,0,"0","REF" 48604,70,"486",18,0,0,"0","ABS ADD" 48605,12,"",0,0,0,"64","100" 48606,72,"487",2,0,0,"0","" 48607,35,"",0,0,0,"1","Q1" 48608,10,"",0,0,0,"0","" 48609,124,"61",35,0,0,"0","" 48610,36,"70",0,0,0,"0","SECT DETS" 48611,5,"61",18,0,0,"0","" 48612,34,"545",51,0,0,"0","820" 48613,124,"61",35,0,0,"0","" 48614,36,"70",0,0,0,"0","SECT DETS" 48615,35,"",0,0,0,"1","" 48616,124,"61",18,0,0,"0","UNCORRECTED CHAP" 48617,36,"92",9,0,0,"0","CORRECTED CHAP IN Q1" 48618,82,"486",2,0,0,"0","" 48700,PROCR,"487",,487,,"","" 48701,NOTES,"",RADIX,B,,"","" 48702,12,"",0,0,0,"383","899 REF 999" 48703,73,"487",8,0,0,"0","" 48704,71,"487",10,0,0,"0","> REF >999, CHEAT" 48705,5,"61",35,0,0,"0","SET REF ZERO" 48706,,"61",51,0,0,"0","THIS CHAP" 48707,82,"486",2,0,0,"0","" 48708,11,"",0,0,0,"3.7","999" 48709,30,"",0,0,0,"2","PROCR IN Q3-5" 48710,101,"92",10,0,0,"0","BIN LAST PROCRS IN CHAP" 48711,32,"",0,0,0,"10","" 48712,2,"545",2,0,0,"0","ABS ADDRESS 92/9" 48713,5,"61",18,0,0,"0","UNCORR C NO" 48714,76,"486",15,0,0,"0","" 48800,PROCR,"488",,488,,"","" 48801,NOTES,"",RADIX,B,,"","" 48802,81,"488",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000390.JPG",,,,"","DaveJ/Q1000390" 48803,91,"91",2,0,3,"0","2(R+T):2R" 48804,35,"",0,0,0,"111-","Q1-3 AND SIGN" 48805,10,"",0,0,0,"0","" 48806,36,"91",4,0,3,"0","TA DETAILS" 48807,2,"66",6,0,0,"0","REF" 48808,70,"488",10,0,0,"0","" 48809,94,"488",5,0,3,"2","" 48810,0,"91",4,0,3,"0","TA DETAILS" 48811,30,"",0,0,0,"3-","" 48812,82,"488",2,0,0,"0","" 48900,PROCR,"489",,0,0,"0","START OF MOD AND PARAMETER SR" 48901,NOTES,"",0,0,0,"0","" 48902,81,"489",2,0,0,"0","" 48903,0,"66",16,0,0,"0","ITEM+' IND" 48904,71,"493",2,0,0,"0","gYES" 48905,0,"66",6,0,0,"0","REF" 48906,101,"",1000,1,2,"0","" 48907,72,"495",2,0,0,"0","gREF=1000+" 48908,0,"66",6,0,0,"0","" 48909,70,"492",2,0,0,"0","gABS ADDRESS" 48910,5,"61",35,0,0,"0","" 48911,80,"486",2,0,0,"0","gDETERMINE CHAPTER SR" 48912,32,"",0,0,0,"1-","" 48913,71,"494",2,0,0,"0","gTRANSIT AREA" 48914,32,"",0,0,0,"1","" 48915,3,"61",34,0,0,"0","STORE CHAP OF REFERENCE" 48916,2,"61",51,0,0,"0","THIS CHAP NUMBER" 48917,71,"491",2,0,0,"0","gOTHER CHAP" 49000,PROCR,"490",,0,0,"0","DEAL WITH THIS CHAP-M&P" 49001,NOTES,"",0,0,0,"0","" 49002,0,"61",2,0,0,"0","MOD DIGITS" 49003,70,"490",17,0,0,"0","gNORMAL" 49004,12,"",0,0,0,"4","" 49005,72,"490",13,0,0,"0","gMR>3" 49006,0,"61",1,0,0,"0","" 49007,70,"490",17,0,0,"0","" 49008,0,"545",20,0,0,"0","MR1-3 NON-A 24/0/0" 49009,2,"61",41,0,0,"0","MOD GROUP PARA" 49010,2,"61",2,0,0,"0","" 49011,80,"355",2,0,0,"0","gO/P" 49012,76,"490",15,0,0,"0","" 49013,0,"546",3,0,0,"0","MR>3 24/0/1" 49014,80,"506",2,0,0,"0","MR>3 SR" 49015,10,"",0,0,0,"0","" 49016,5,"61",2,0,0,"0","CLEAR MOD DIGITS" 49017,0,"61",3,0,0,"0","" 49018,5,"61",34,0,0,"0","SET PARAMETER=2C" 49019,82,"489",2,0,0,"0","EXIT" 49100,PROCR,"491",,0,0,"0","M&P-DEAL WITH OTHER CHAPTER" 49101,NOTES,"",0,0,0,"0","" 49102,80,"497",2,0,0,"0","TEST MODIFICATION" 49103,71,"491",10,0,0,"0","gYES" 49104,0,"546",2,0,0,"0","SIMPLE CASE 24/0/3" 49105,2,"61",34,0,0,"0","OTHER CHAP NUMBER" 49106,2,"61",34,0,0,"0","" 49107,11,"",0,0,0,"1","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000391.JPG",,,,"","DaveJ/Q1000391" 49108,80,"355",2,0,0,"0","gO/P, CLEAR A" 49109,76,"490",18,0,0,"0","gCLEAR PARA" 49110,80,"508",2,0,0,"0","COMPLEX CASE ->O/P 0/1/0+0/0/3" 49111,0,"545",8,0,0,"0","6/0/0" 49112,1,"61",34,0,0,"0","OTHER CHAP NUMBER" 49113,1,"61",34,0,0,"0","" 49114,12,"",0,0,0,"1","" 49115,80,"355",2,0,0,"0","SELECT START ADDRESS ->O/P" 49116,76,"496",2,0,0,"0","gM&P COMPLEX END" 49200,PROCR,"492",,0,0,"0","M&P-DEAL WITH ABSOLUTE ADDRESS" 49201,NOTES,"",0,0,0,"0","" 49202,0,"61",2,0,0,"0","MOD DIGITS" 49203,70,"492",38,0,0,"0","gUNMODIFIED" 49204,12,"",0,0,0,"4","" 49205,72,"492",25,0,0,"0","gMR>3" 49206,0,"61",1,0,0,"0","" 49207,70,"492",36,0,0,"0","gMR 1-3 ARITH" 49208,0,"66",8,1,0,"0","ITEM" 49209,73,"492",15,0,0,"0","" 49210,0,"545",19,0,0,"0","(1) POS ITEM 24/01/2002" 49211,2,"61",41,0,0,"0","MOD GROUP PARA" 49212,2,"61",2,0,0,"0","" 49213,80,"355",2,0,0,"0","gO/P" 49214,76,"492",29,0,0,"0","" 49215,80,"508",2,0,0,"0","gO/P 0/1/0+0/0/3" 49216,80,"505",2,0,0,"0","(2) NEG ITEM O/P 24/0/3 0" 49217,0,"545",8,0,0,"0","6/0/0" 49218,1,"61",2,0,0,"0","MOD DIGITS" 49219,1,"61",2,0,0,"0","" 49220,5,"67",3,0,0,"0","" 49221,0,"61",41,0,0,"0","MOD GROUP PARA" 49222,5,"67",2,0,0,"0","" 49223,80,"518",2,0,0,"0","gO/P" 49224,76,"492",34,0,0,"0","" 49225,0,"66",8,1,0,"0","MR>3 ITEM" 49226,73,"492",31,0,0,"0","(1) POSITIVE ITEM " 49227,0,"546",2,0,0,"0","24/0/3 0" 49228,80,"506",2,0,0,"0","gMR>3 SR" 49229,5,"61",2,0,0,"0","CLEAR MOD DIGITS" 49230,76,"496",29,0,0,"0","gM&P END" 49231,80,"508",2,0,0,"0","gO/P 0/1/0+0/0/3" 49232,0,"545",8,0,0,"0","(2) NEG ITEM 6/0/0" 49233,80,"506",2,0,0,"0","gMR>3 SR" 49234,5,"61",2,0,0,"0","CLEAR MOD DIGITS" 49235,76,"496",2,0,0,"0","gM&P COMPLEX END" 49236,0,"66",8,1,0,"0","SIMPLE CASE ITEM" 49237,73,"492",15,0,0,"0","" 49238,80,"505",2,0,0,"0","O/P 24/0/3 0" 49239,76,"496",29,0,0,"0","g END" 49300,PROCR,"493",,0,0,"0","M&P-DEAL WITH 'ITEM+'" 49301,NOTES,"",0,0,0,"0","" 49302,80,"497",2,0,0,"0","g TEST MODIFICATION" 49303,71,"493",6,0,0,"0","gYES" 49304,0,"66",8,1,0,"0","ITEM" 49305,72,"493",10,0,0,"0","gNORMAL" 49306,80,"508",2,0,0,"0","COMPLEX CASE ->O/P 0/1/0+0/0/3" 49307,0,"545",8,0,0,"0","6/0/0" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000392.JPG",,,,"","KenK/Q1000392" 49308,80,"502",2,0,0,"0","g'ITEM+' SR " 49309,76,"496",2,0,0,"0","g M&P COMPLEX END " 49310,0,"546",2,0,0,"0","24/0/3 ;SIMPLE CASE " 49311,80,"502",2,0,0,"0","g'ITEM +' SR " 49312,76,"496",29,0,0,"0","M&P END " 49400,PROCR,"494",,,,"","M&P – DEAL WITH TRANSIT AREA REFERENCE " 49401,NOTES,"",,,,"","" 49402,80,"497",2,0,0,"0","gTEST MODIFICATION " 49403,71,"494",6,0,0,"0","gYES " 49404,0,"66",8,1,0,"0","ITEM " 49405,72,"494",11,0,0,"0","gNORMAL " 49406,80,"508",2,0,0,"0","gO/P 0/1/0+0/0/3 ;COMPLEX CASE " 49407,80,"500",2,0,0,"0","gO/P 24/1/2 BY-(64+P) " 49408,0,"545",66,0,0,"0","24/0/2 0 " 49409,80,"359",2,0,0,"0","gO/P " 49410,76,"496",2,0,0,"0","gM&P COMPLEX END " 49411,80,"500",2,0,0,"0","gO/P 24/1/2 BY -(64+P) (SIMPLE CASE) " 49412,76,"496",29,0,0,"0","gM&P END " 49500,PROCR,"495",,,,"","M&P-DEAL WITH REFERENCE 1000+ " 49501,NOTES,"",,,,"","" 49502,80,"497",2,0,0,"0","gTEST MODIFICATION " 49503,71,"495",6,0,0,"0","gYES " 49504,0,"66",8,1,0,"0","ITEM " 49505,72,"495",16,0,0,"0","gNORMAL " 49506,80,"508",2,0,0,"0","gO/P 0/1/0 +0/0/3 ;COMPLEX CASE " 49507,80,"503",2,0,0,"0","gTEST CHAP " 49508,,"545",19,0,0,"0","24/1/2 " 49509,2,"66",6,0,0,"0","" 49510,101,"",1000,1,1,"0","" 49511,80,"359",2,0,0,"0","gO/P " 49512,,"545",66,0,0,"0","24/0/2 " 49513,80,"359",2,0,0,"0","gO/P ZERO REF;ZERO PARA " 49514,5,"66",6,1,0,"0","" 49515,76,"496",2,0,0,"0","gM&P COMPLEX END " 49516,80,"503",2,0,0,"0","gTEST CHAP " 49517,,"545",19,0,0,"0","24/1/2 " 49518,2,"66",6,0,0,"0","" 49519,101,"",1000,1,1,"0","" 49520,80,"359",2,0,0,"0","gO/P " 49521,5,"66",6,1,0,"0","" 49522,76,"496",29,0,0,"0","gM&P END " 49600,PROCR,"496",,,,"","M&P-DEAL WITH ADDRESS CALCULATIONS+END ROUTINE " 49601,NOTES,"",,,,"","" 49602,0,"61",2,0,0,"0","" 49603,70,"496",17,0,0,"0","gUNMODIFIED " 49604,12,"",0,0,0,"4","" 49605,72,"496",15,0,0,"0","gMR>3 " 49606,80,"505",2,0,0,"0","24/0/3 0 " 49607,0,"545",9,0,0,"0","4/0/0 " 49608,1,"61",2,0,0,"0","" 49609,1,"61",2,0,0,"0","" 49610,5,"67",3,0,0,"0","" 49611,0,"61",41,0,0,"0","MOD GROUP PARA " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000393.JPG",,,,"","KenK/Q1000393" 49612,5,"67",2,0,0,"0","" 49613,80,"518",2,0,0,"0","gO/P " 49614,76,"496",17,0,0,"0","" 49615,0,"545",9,0,0,"0","4/0/0 " 49616,80,"506",2,0,0,"0","gMR>3 SR " 49617,0,"66",8,1,0,"0","" 49618,72,"496",22,0,0,"0","gNOT NEGATIVE ITEM " 49619,0,"66",8,0,0,"0","MODULUS " 49620,1,"545",24,0,0,"0","1/1/2 0 " 49621,80,"359",2,0,0,"0","gO/P " 49622,5,"66",8,1,0,"0","CLEAR ITEM, MOD DIGITS " 49623,5,"61",2,0,0,"0","" 49624,,"546",16,0,0,"0","2/0/0/6 " 49625,80,"361",2,0,0,"0","gLN;2C SR " 49626,80,"399",2,0,0,"0","g0/1/1 SR " 49627,,"546",17,0,0,"0","24/0/3/6 " 49628,80,"361",2,0,0,"0","gLN;2C SR " 49629,10,"",0,0,0,"0","" 49630,5,"61",34,0,0,"0","CLEAR PARA, REF " 49631,82,"489",2,0,0,"0","" 49700,PROCR,"497",,,,"","M&P-TEST INDIRECT MODIFICATION " 49701,NOTES,"",,,,"","" 49702,81,"497",2,0,0,"0","" 49703,0,"61",2,0,0,"0","MOD DIGITS " 49704,70,"497",8,0,0,"0","gNO " 49705,12,"",0,0,0,"4","" 49706,72,"497",9,0,0,"0","gYES(MR>3) " 49707,0,"61",1,0,0,"0","(NON-ZERO IF NON-ARITH) " 49708,82,"497",2,0,0,"0","" 49709,10,"",0,0,0,"1","" 49710,82,"497",2,0,0,"0","(A)=0 IF 'DIRECT' MODIFICATION " 49800,PROCR,"498",,,,"","SR FOR INTERNAL SC'S TO MAKE REL TO PROCR STARTS " 49801,NOTES,"",,,,"","" 49802,81,"498",2,0,0,"0","" 49803,73,"498",7,0,0,"0","gNEGATIVE ACTIONS " 49804,1,"61",43,0,0,"0","" 49805,2,"61",11,0,0,"0","START OF CURRENT PROCR " 49806,76,"498",9,0,0,"0","" 49807,2,"61",43,0,0,"0","" 49808,1,"61",11,0,0,"0","" 49809,5,"67",3,0,0,"0","" 49810,0,"61",10,0,0,"0","CURRENT PROCR(IN THIS CHAPTER) " 49811,30,"",0,0,0,"2","" 49812,1,"61",3,0,0,"0","" 49813,5,"67",2,0,0,"0","PARA " 49814,80,"518",2,0,0,"0","gO/P " 49815,82,"498",2,0,0,"0","" 49900,PROCR,"499",,,,"","SET(A)=ROUTE PARA;Q10B=FILE TYPE " 49901,NOTES,"",,,,"","" 49902,81,"499",2,0,0,"0","" 49903,91,"91",0,0,3,"0","2R:0 " 49904,0,"91",5,0,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000394.JPG",,,,"","ChuckK/Q1000394" 49905,70,"499",11,0,0,"0",">LIST EMPTY" 49906,33,"",0,0,0,"6-","ROUTE TYPE" 49907,1,"545",27,0,0,"0","BIT 15 TO RESTORE TOP CONTROL" 49908,2,"61",54,0,0,"0","FILE ID" 49909,70,"499",13,0,0,"0",">MATCH" 49910,94,"499",4,0,3,"2","" 49911,10,"",0,0,0,"5:","" 49912,80,"501",2,0,0,"0",">REPORT'?????'" 49913,96,"",0,0,3,"0","" 49914,31,"",0,0,0,"1-","" 49915,1,"92",29,0,0,"0","NUMBER OF CHARS" 49916,1,"92",29,0,0,"0","" 49917,11,"",0,0,0,"1","" 49918,82,"499",2,0,0,"0","" 50000,PROCR,"500",,,,"","MODIFY BY ANNEX START SR " 50001,NOTES,"",RADIX,B,,"","T.A.S. MR LESS THAN 3 " 50002,81,"500",2,0,0,"0","" 50003,80,"488",2,0,0,"0","FORM TA PARAM" 50004,11,"",0,0,0,"1","TO GIVE T2" 50005,2,"545",19,0,0,"0","24/1/2" 50006,5,"67",3,0,0,"0","" 50007,2,"67",3,0,0,"0","" 50008,80,"355",2,0,0,"0",">O/P" 50009,5,"66",6,0,0,"0","CLEAR REF" 50010,82,"500",2,0,0,"0","" 50100,PROCR,"501",,,,"","MISMATCH SR FOR MR>3, SWITCHES, ITEM+ " 50101,NOTES,"",,,,"","" 50102,81,"501",2,0,0,"0","(A)=+,M,S OR C" 50103,32,"",0,0,0,"2-","" 50104,1,"542",28,1,0,"0"," '?????'" 50105,32,"",0,0,0,"2","" 50106,5,"5",46,1,0,"0","" 50107,0,"546",20,0,0,"0","" 50108,71,"501",12,0,0,"0",">PREVIOUS RI/P RECORD WAS PRINTED" 50109,10,"",0,0,0,"1","" 50110,5,"545",99,0,0,"0","" 50111,80,"511",2,0,0,"0",">PRINT LINE WE'RE REPORTING" 50112,80,"530",2,0,0,"0",">SECOND PRINT SR" 50113,82,"501",2,0,0,"0","" 50200,PROCR,"502",,,,"","" 50201,NOTES,"",RADIX,B,,"","DEAL WITH ITEM + S.R. " 50202,81,"502",2,0,0,"0","" 50203,5,"61",58,0,0,"0","ACTION" 50204,91,"98",0,0,3,"0","" 50205,,"98",1,0,0,"0","CTR" 50206,70,"502",13,0,0,"0",">WRONG" 50207,35,"",0,0,0,"11","" 50208,10,"",0,0,0,"0","" 50209,36,"98",2,0,3,"0","" 50210,2,"66",6,1,0,"0","" 50211,70,"502",15,0,0,"0",">OK" 50212,94,"502",8,0,3,"1","" 50213,10,"",0,0,0,"4+","ERROR +" 50214,80,"501",2,0,0,"0",">MISMATCH SR" 50215,,"98",2,0,3,"0","" 50216,80,"507",2,0,0,"0","" 50217,5,"66",16,0,0,"0","CLEAR ITEM+IND" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000395.JPG",,,,"","ChuckK/Q1000395" 50218,5,"66",6,1,0,"0","CLEAR REFERENCE" 50219,82,"502",2,0,0,"0","" 50300,PROCR,"503",,,,"","TEST IF IN OTHER CHAPTER-M&P REF 1000+ " 50301,NOTES,"",,,,"","" 50302,81,"503",2,0,0,"0","" 50303,,"61",9,0,0,"0","PROCR OF LAST 81 ACTION" 50304,5,"61",35,0,0,"0","" 50305,80,"486",2,0,0,"0",">DETERMINE CHAP SR" 50306,3,"61",34,0,0,"0","ADDRESSED CHAP" 50307,2,"61",51,0,0,"0","THIS CHAP NO" 50308,70,"503",17,0,0,"0",">THIS CHAP" 50309,,"61",34,0,0,"0","" 50310,80,"504",2,0,0,"0",">O/P 24/0/3" 50311,,"61",9,0,0,"0","REF=PROCR" 50312,30,"",0,0,0,"2","" 50313,5,"67",2,0,0,"0","PARA=0" 50314,,"546",2,0,0,"0","24/0/3" 50315,80,"359",2,0,0,"0",">O/P" 50316,82,"503",2,0,0,"0","" 50317,,"61",9,0,0,"0","" 50318,30,"",0,0,0,"2","" 50319,1,"61",3,0,0,"0","2C" 50320,76,"503",13,0,0,"0","" 50400,PROCR,"504",,,,"","OUTPUT 24/0/3 BY 0 OR 24/0/3 BY OTHER CHAP 15-BIT START " 50401,NOTES,"",,,,"","" 50402,81,"504",2,0,0,"0","" 50403,70,"504",8,0,0,"0",">24/0/3 BY 0" 50404,5,"67",3,0,0,"0","" 50405,10,"",0,0,0,"1","" 50406,2,"67",3,0,0,"0","" 50407,2,"67",3,0,0,"0","" 50408,1,"546",2,0,0,"0","24/0/3" 50409,80,"355",2,0,0,"0",">O/P" 50410,82,"504",2,0,0,"0","" 50500,PROCR,"505",,,,"","OUTPUT 24/0/3 BY 0 " 50501,NOTES,"",RADIX,B,,"","" 50502,81,"505",2,0,0,"0","" 50503,10,"",0,0,0,"0","" 50504,80,"504",2,0,0,"0","" 50505,82,"505",2,0,0,"0","" 50600,PROCR,"506",,,,"","MR GREATER THAN 3 SR " 50601,NOTES,"",RADIX,B,,"","M & P" 50602,81,"506",2,0,0,"0","" 50603,5,"61",58,0,0,"0","ACTION WL" 50604,91,"71",0,0,3,"0","" 50605,94,"506",7,0,3,"0","/////" 50606,76,"506",13,0,0,"0",">MISMATCH" 50607,35,"",0,0,0,"11","" 50608,10,"",0,0,0,"0","" 50609,36,"71",2,0,3,"0","" 50610,2,"61",2,0,0,"0","MOD DIGITS" 50611,70,"506",15,0,0,"0",">OK" 50612,94,"506",8,0,3,"1","" 50613,10,"",0,0,0,"64","=M" 50614,80,"501",2,0,0,"0",">MISMATCH SR" 50615,0,"71",2,0,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000396.JPG",,,,"","ChuckK/Q1000396" 50616,80,"507",2,0,0,"0","" 50617,82,"506",2,0,0,"0","" 50700,PROCR,"507",,,,"","END ROUTINE FOR MR>3 AND ITEM+ SUBROUTINES " 50702,81,"507",2,0,0,"0","" 50703,5,"503",2,0,0,"0","WL=SR LINK" 50704,0,"61",58,0,0,"0","" 50705,70,"507",15,0,0,"0",">ZERO ACTION=15-BIT ADDRESS NEEDED" 50706,0,"503",2,0,0,"0","" 50707,30,"",0,0,0,"4-","ISOLATE CORRECTED CHAP" 50708,2,"61",51,0,0,"0","" 50709,70,"507",13,0,0,"0",">THIS CHAP" 50710,1,"61",51,0,0,"0","" 50711,80,"504",2,0,0,"0",">O/P 24/0/3 BY OTHER CHAP START" 50712,76,"507",20,0,0,"0",">(PARA=0)" 50713,0,"61",3,0,0,"0","2C" 50714,76,"507",20,0,0,"0","" 50715,0,"503",2,0,0,"0","" 50716,30,"",0,0,0,"4-","" 50717,3,"67",2,0,0,"0","FORM PARA 2C'-1" 50718,1,"67",2,0,0,"0","" 50719,12,"",0,0,0,"1","" 50720,5,"67",2,0,0,"0","" 50721,0,"503",2,0,0,"0","" 50722,32,"",0,0,0,"4-","" 50723,101,"",1001,1,1,"0","" 50724,30,"",0,0,0,"2","" 50725,4,"67",2,0,0,"0","REF=1000+CHAP" 50726,10,"",0,0,0,"0","" 50727,32,"",0,0,0,"2","CTR WAS IN Q3,4" 50728,34,"544",22,0,0,"0","BITS 1-13" 50729,36,"61",58,0,0,"0","" 50730,37,"61",58,0,0,"0","PACK WITH ACTION" 50731,0,"61",58,0,0,"0","" 50732,80,"359",2,0,0,"0",">O/P" 50733,82,"507",2,0,0,"0","" 50800,PROCR,"508",,,,"","0/1/0 AND 0/0/3 S/R " 50801,NOTES,"",RADIX,B,,"","M&P" 50802,81,"508",2,0,0,"0","" 50803,,"61",25,0,0,"0","BIN INDICATOR" 50804,70,"508",6,0,0,"0","" 50805,10,"",0,0,0,"8","" 50806,1,"545",29,0,0,"0","0/1/0" 50807,80,"361",2,0,0,"0",">LN:2C SR" 50808,,"61",25,0,0,"0","BIN IND" 50809,71,"508",12,0,0,"0","WE ALREADY HAVE BINARY SET" 50810,,"545",28,0,0,"0","0/0/3" 50811,80,"355",2,0,0,"0","O/P" 50812,10,"",0,0,0,"1","" 50813,4,"61",25,0,0,"0","" 50814,82,"508",2,0,0,"0","" 50900,PROCR,"509",,,,"","I/P SR " 50901,NOTES,"",RADIX,,,"","" 50902,81,"509",2,0,0,"0","" 50903,,"",0,2,12,"0","CURRENT RECORD LENGTH" 50904,5,"537",2,0,0,"0","" 50905,97,"537",2,0,12,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000397.JPG",,,,"","RayS/Q1000397" 50906,C,"509",8,0,0,"0","" 50907,80,"539",2,0,0,"0","gREAD" 50908,10,"",0,0,0,"0","" 50909,35,"",0,0,0,"1111","" 50910,36,"",2,1,12,"0","AMENDED IMPLICITLY IND" 50911,5,"545",99,0,0,"0","" 50912,37,"",2,1,12,"0","CLEAR 2 CHARS" 50913,54,"77",0,1,0,"44","BULK CLEAR" 50914,55,"",0,1,12,"0","" 50915,C,"77",0,1,0,"0","" 50916,C,"",0,2,12,"0","" 50917,82,"509",2,0,0,"0","" 51000,PROCR,"510",,,,"","PRINT LINE AND RE-SITE AMEND IND" 51001,NOTES,"",,,,"","" 51002,81,"510",2,0,0,"0","" 51003,,"8",4,1,0,"0","" 51004,5,"8",2,1,0,"0","" 51005,5,"8",4,1,0,"0","" 51006,80,"511",2,0,0,"0","gPRINT" 51007,82,"510",2,0,0,"0","" 51100,PROCR,"511",,,,"","PRINT FROM SEC 5 OR 7 SR-TX AREA PARAS SET UP IN ADVANCE" 51101,NOTES,"",RADIX,B,,"","" 51102,81,"511",2,0,0,"0","" 51103,0,"544",2,1,0,"0","BEW" 51104,5,"7",50,1,0,"0","" 51105,,"7",46,1,0,"0","" 51106,80,"515",2,0,0,"0","gREPORT IF TOP 4 CHARS='?'" 51107,70,"511",12,0,0,"0","gYES" 51108,,"7",48,1,0,"0","" 51109,70,"511",44,0,0,"0","gNO ERRORS" 51110,80,"515",2,0,0,"0","gTEST FOR REPORT" 51111,71,"511",23,0,0,"0","" 51112,94,"511",14,0,20,"0","/////" 51113,76,"511",42,0,0,"0","gNO MORE ROOM" 51114,,"7",6,1,0,"0","" 51115,70,"511",42,0,0,"0","gFILE HANDLING ERROR;NO SERIAL" 51116,30,"",0,0,0,"8-","" 51117,12,"",0,0,0,"5e","" 51118,70,"511",42,0,0,"0","gSECTION DESCRIPTION" 51119,,"7",6,2,0,"0","" 51120,5,"40",0,0,20,"0","" 51121,94,"511",42,0,20,"1","" 51122,76,"511",42,0,0,"0","" 51123,,"7",32,1,0,"0","FIRST 5 CHARS ANNOTATION" 51124,12,"",0,0,0,"7171717171","'/////'" 51125,71,"511",29,0,0,"0","" 51126,35,"",0,0,0,"111111","Q1-6" 51127,37,"7",48,1,0,"0","" 51128,76,"511",44,0,0,"0","gDON'T COUNT" 51129,94,"511",31,0,19,"0","/////" 51130,76,"511",39,0,0,"0","gNO MORE ROOM" 51131,,"7",6,1,0,"0","" 51132,70,"511",39,0,0,"0","gFILE HEADING ERROR;NO SERIAL" 51133,30,"",0,0,0,"8-","" 51134,12,"",0,0,0,"5e","" 51135,70,"511",39,0,0,"0","gSECTION DESCRIPTION ERROR" 51136,,"7",6,2,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000398.JPG",,,,"","TonyJ/Q1000398" 51137,5,"40",10,0,19,"0","" 51138,94,"",0,0,19,"1","" 51139,86,"514",2,0,0,"0","" 51140,11,"",0,0,0,"1","STEP CTR OF OTHER ERRORS" 51141,84,"514",2,0,0,"0","" 51142,10,"",0,0,0,"1","(PRINT REPORTED LINES)" 51143,5,"545",99,0,0,"0","" 51144,0,"23",46,1,0,"0","PRINT PROCR '+' PRINT ALL ' INDS" 51145,71,"511",51,0,0,"0","> PRINT" 51146,0,"545",99,0,0,"0","IMPLICITLY AMENDED'" 51147,70,"511",56,0,0,"0","> DONT PRINT" 51148,0,"546",20,0,0,"0","> LAST RECORD PRINTED ?" 51149,71,"511",51,0,0,"0","> YES" 51150,80,"512",2,0,0,"0","> BLANK LINE" 51151,0,"61",46,0,0,"0","HEAD OF FORM, OR ZERO" 51152,5,"7",0,2,0,"0","" 51153,80,"513",2,0,0,"0",">PRINT LINE" 51154,10,"",0,0,0,"1","" 51155,3,"61",46,0,0,"0","SET FOR NEXT TIME" 51156,5,"546",20,0,0,"0","SET/CLEAR IND" 51157,82,"511",2,0,0,"0","" 51200,PROCR,"512",,512,,"PRINT BLANK LINE UNCONDITIIONALLY","" 51202,81,"512",2,0,0,"0","" 51203,,"999",16,1,0,"0","COPY SEC 7 PARAS" 51204,5,"543",42,1,0,"0","" 51205,0,"999",8,0,0,"0","PT ROUTE" 51206,5,"999",16,0,0,"0","" 51207,2,"999",8,0,0,"0","" 51208,12,"",0,0,0,"40","64" 51209,5,"999",17,0,0,"0","CREATE R, - (64+R)" 51210,5,"7",0,1,0,"0","" 51211,,"27",9,0,0,"0","ON LINE ?" 51212,70,"512",15,0,0,"0","> YES" 51213,54,"7",0,1,0,"50","" 51214,76,"512",17,0,0,"0","> 'PRINT'" 51215,0,"544",2,1,0,"0","DEW" 51216,5,"7",2,1,0,"0","" 51217,80,"513",2,0,0,"0",">'PRINT EX SEC 7" 51218,0,"543",42,1,0,"0","" 51219,5,"999",16,1,0,"0","RESTORE SEC 7 PARAS" 51220,82,"512",2,0,0,"0","" 51300,PROCR,"513",,513,,"PRINT SEC 7 (OR SEC 5, OR PT ANNEX)","" 51302,81,"513",2,0,0,"0","" 51303,,"27",9,0,0,"0","" 51304,70,"513",9,0,0,"0","> PRINTER" 51305,55,"7",0,1,0,"50","" 51306,C,"10",4,1,6,"0","" 51307,80,"540",2,0,0,"0","> O/P>" 51308,82,"513",2,0,0,"0","" 51309,,"27",8,0,0,"0","PRINTER TYPE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000399.JPG",,,,"","TonyJ/Q1000399" 51310,12,"",0,0,0,"9","" 51311,70,"513",27,0,0,"0","> SPECIAL" 51312,,"545",51,0,0,"0","BIT 20" 51313,5,"7",1,0,0,"0","" 51314,124,"999",17,1,2,"0","SEC 7" 51315,124,"",0,0,2,"0","" 51316,124,"999",13,1,2,"0","SEC 10" 51317,129,"",0,0,1,"0","" 51318,10,"",0,0,0,"4","" 51319,30,"",0,0,0,"5","" 51320,1,"999",7,0,0,"0","ROUTE" 51321,34,"999",12,0,0,"0","" 51322,125,"",4096,1,1,"0","" 51323,124,"999",0,0,3,"0","" 51324,123,"",160,0,2,"0","" 51325,62,"",0,0,0,"0","" 51326,82,"513",2,0,0,"0","" 51327,55,"7",0,1,0,"54","" 51328,C,"10",0,1,0,"0","" 51329,10,"",0,0,0,"9","" 51330,76,"513",19,0,0,"0","" 51400,PROCR,"514",,514,,"OUTPUT 9 > A6","" 51401,NOTES,"",RADIX,,B,"","" 51402,81,"514",2,0,0,"0","" 51403,43,"A6",0,0,0,"0","" 51404,C,"9",0,0,0,"0","" 51405,82,"514",2,0,0,"0","" 51500,PROCR,"515",,515,,"TEST FOR DIASTROUS ERROR CONDITION IN PRINTER","" 51501,NOTES,"",,,,"","" 51502,81,"515",2,0,0,"0","" 51503,30,"",0,0,0,"2-","" 51504,30,"",0,0,0,"2","" 51505,11,"",0,0,0,"5:","" 51506,2,"542",28,1,0,"0","?????'" 51507,71,"515",11,0,0,"0","> NOT DISASTROUS" 51508,86,"511",2,0,0,"0","STEP DISASTER CTR" 51509,11,"",0,0,0,"1","" 51510,84,"511",2,0,0,"0","(CLEARS A)" 51511,82,"515",2,0,0,"0","" 51600,PROCR,"516",,516,,"O/P TYPE SR","" 51601,NOTES,"",,RADIX,,"B","" 51602,81,"516",2,0,0,"0","" 51603,91,"61",44,0,2,"0","" 51604,,"61",26,1,0,"0","TYPE NO ALPHA" 51605,1,"542",18,1,0,"0","TYPE (SPACE)" 51606,05,"9",4,1,2,"0","" 51607,,"61",28,1,0,"0","" 51608,05,"9",6,1,2,"0","" 51609,,"61",43,0,0,"0","SPACE CTR" 51610,05,"9",8,2,2,"0","" 51611,5,"9",10,1,2,"0","CLEAR" 51612,76,"519",2,0,0,"0","" 51700,PROCR,"517",,517,,"ALPHA OUTPUT SR","" 51701,NOTES,"",,RADIX,,"B","" 51702,81,"517",2,0,0,"0","" 51703,91,"61",44,0,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000400.JPG",,,,"","KenK/Q1000400" 51704,,"61",26,1,0,"0","" 51705,5,"9",4,1,2,"0","" 51706,,"61",28,1,0,"0","" 51707,5,"9",6,1,2,"0","" 51708,,"67",2,0,0,"0","" 51709,5,"9",8,2,2,"0","" 51710,,"67",3,0,0,"0","" 51711,5,"9",10,2,2,"0","" 51712,,"517",2,0,0,"0","O/P ALPHA S/R LINK " 51713,76,"518",15,0,0,"0","" 51800,PROCR,"518",,,,"","" 51801,NOTES,"",RADIX,B,,"","O/P S/R " 51802,81,"518",2,0,0,"0","" 51803,,"61",42,0,0,"0","" 51804,4,"61",43,0,0,"0","AUGMENT LOCATION COUNTER " 51805,91,"61",44,0,2,"0","" 51806,,"67",0,0,0,"0","SERIAL NO FOR INSTUCTIONS " 51807,5,"9",4,2,2,"0","" 51808,,"67",1,0,0,"0","SC INDICATOR FOR INSIONS " 51809,5,"9",6,2,2,"0","" 51810,,"67",2,0,0,"0","PARAMETER " 51811,5,"9",8,2,2,"0","" 51812,,"67",3,0,0,"0","" 51813,5,"9",10,2,2,"0","" 51814,,"518",2,0,0,"0","LINK " 51815,5,"516",2,0,0,"0","O/P TYPE S/R LINK " 51900,PROCR,"519",,,,"","O/P S/R " 51900,NOTES,"",RADIX,B,,"","" 51902,94,"519",8,0,2,"8","" 51903,,"544",2,1,0,"0","BE WORD " 51904,5,"9",4,1,2,"0","" 51905,80,"514",2,0,0,"0","PREP STAGE OP " 51906,90,"",0,0,2,"0","" 51907,C,"",0,0,0,"144","" 51908,95,"",0,0,2,"0","" 51909,5,"61",44,1,0,"0","" 51910,5,"67",1,0,0,"0","CLEAR S67 " 51911,5,"67",2,1,0,"0","" 51912,82,"516",2,0,0,"0","" 52000,PROCR,"520",,,,"","OP REMAINING DETAILS SR " 52001,NOTES,"",RADIX,B,,"","" 52002,81,"520",2,0,0,"0","" 52003,0,"61",44,0,0,"0","" 52004,70,"520",9,0,0,"0","NOTHING TO O/P " 52005,91,"61",44,0,2,"0","OP CTR " 52006,0,"520",2,0,0,"0","LINK " 52007,5,"516",2,0,0,"0","O/P TYPE S/R LINK " 52008,76,"519",3,0,0,"0","" 52009,82,"520",2,0,0,"0","" 52100,PROCR,"521",,,,"","I/P INSTRUCTION SR " 52101,NOTES,"",RADIX,B,,"","" 52102,81,"521",2,0,0,"0","" 52103,80,"509",2,0,0,"0","- I/P " 52104,10,"",0,0,0,"1","" 52105,5,"61",99,0,0,"0","NON I/P IND " 52106,80,"522",2,0,0,"0","- I/P C-LINE S/R " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000401.JPG",,,,"","DaveJ/Q1000401" 52107,82,"521",2,0,0,"0","" 52200,PROCR,"522",,0,0,"0","I/P C-LINE S/R" 52201,NOTES,"",RADIX,B,0,"0","" 52202,81,"522",2,0,0,"0","" 52203,,"61",99,0,0,"0","NON I/P IND" 52204,71,"522",10,0,0,"0","" 52205,80,"534",2,0,0,"0","SUSPEND" 52206,80,"509",2,0,0,"0","INPUT" 52207,,"",6,1,12,"0","" 52208,2,"542",26,1,0,"0","C,-,-,-,-," 52209,71,"362",3,0,0,"0","-G.N.B." 52210,50,"77",2,0,0,"0","" 52211,C,"548",2,0,0,"0","" 52212,52,"7",2,0,0,"0","EDIT INSTRUCTIONS" 52213,C,"548",2,0,0,"0","" 52214,,"77",20,1,0,"0","PREVIOUS PROCR NO" 52215,5,"7",28,1,0,"0","" 52216,,"77",22,1,0,"0","PASS 1 REPORTS" 52217,5,"7",48,1,0,"0","" 52218,55,"77",24,1,0,"16","COPY ANOTATION" 52219,C,"7",32,1,0,"0","" 52220,0,"66",4,1,0,"0","ACTION ALPHA" 52221,2,"542",26,1,0,"0","" 52222,70,"526",2,0,0,"0","gTHIS IS A C-LINE" 52223,10,"",0,0,0,"0","" 52224,5,"61",20,1,0,"0","" 52225,94,"522",27,0,1,"0","/////" 52226,76,"525",2,0,0,"0","gNO UNMATCHED SEQ CHS BACK" 52227,,"",1,0,1,"0","(R1 ABS) SC BACK DEST" 52228,2,"66",2,1,0,"0","SERIAL THIS ORDER" 52229,70,"524",2,0,0,"0","gTHIS IS A DESTINATION" 52230,72,"525",2,0,0,"0","gNOW TRY SEQ CH FWD LIST" 52231,,"542",28,1,0,"0","?????" 52232,5,"61",20,1,0,"0","" 52233,80,"523",2,0,0,"0","gSTORE 'ADDRESS'=CURRENT SPACE CTR" 52234,80,"529",2,0,0,"0","PRINT ENTRY POINT S/PRINT WRONG ENTRY PO" 52235,76,"522",23,0,0,"0","" 52300,PROCR,"523",,0,0,"0","" 52301,NOTES,"",0,0,0,"0","" 52302,81,"523",2,0,0,"0","" 52303,,"",0,0,1,"0","SOURCE OF SC BACK" 52304,3,"61",0,0,0,"0","" 52305,5,"",1,0,1,"0","OVERWRITE DEST" 52306,0,"61",20,1,0,"0","" 52307,71,"523",15,0,0,"0","gIGNORED" 52308,35,"",0,0,0,"11","" 52309,36,"66",2,0,0,"0","" 52310,12,"",0,0,0,"2","" 52311,71,"523",15,0,0,"0","gNOT TO PROCR START" 52312,96,"",0,0,1,"0","" 52313,80,"421",2,0,0,"0","gCONTRACT SC BACK LIST" 52314,76,"523",20,0,0,"0","gSTEP R1" 52315,0,"61",10,0,0,"0","CURRENT PROCR" 52316,31,"",0,0,0,"10","" 52317,1,"61",43,0,0,"0","SPACE CTR" 52318,2,"61",11,0,0,"0","PROCR START" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000402.JPG",,,,"","KenK/Q1000402" 52319,5,"",0,0,1,"0","STORE PROCR+ADDRESS IN PROCR I think this is first line of the sheet" 52320,94,"523",21,0,1,"2","STEP " 52321,82,"523",2,0,0,"0","" 52400,PROCR,"524",,,,"","I/P C-LINE S/R " 52401,NOTES,"",RADIX,B,,"","STORE ABS DEST FOR MATCHED SC'S BACK " 52402,80,"523",2,0,0,"0","gstore address " 52403,0,"0",1,0,1,"0","(R1 IS ABS) NEXT DEST " 52404,2,"66",2,0,0,"0","THIS SERIAL " 52405,71,"525",43,0,0,"0","gTRY SC FWD " 52406,80,"529",2,0,0,"0","" 52407,76,"524",2,0,0,"0","gTHERE MAY BE MORE " 52500,PROCR,"525",,,,"","I/P C-LINE S/R " 52501,NOTES,"",RADIX,B,,"","TRY MATCH WITH SEQ CHS FWD " 52502,0,"61",117,0,0,"0","CTR OF SEC 20 LENGTH " 52503,70,"526",2,0,0,"0","gEMPTY " 52504,0,"20",0,0,0,"0","SMALLEST DEST OF SC FWD " 52505,70,"526",2,0,0,"0","gLIST EMPTY,SKIP TO END " 52506,2,"66",2,1,0,"0","THIS SERIAL " 52507,70,"525",11,0,0,"0","gIS DEST OF SEQ CH FWD " 52508,72,"526",2,0,0,"0","gEARLIER THAN EARLIEST DEST " 52509,0,"542",28,1,0,"0","" 52510,5,"61",20,1,0,"0",";SEQ CHS FORWARD " 52511,,"20",2,0,0,"0","" 52512,30,"",0,0,0,"6","" 52513,30,"",0,0,0,"1-","" 52514,70,"525",19,0,0,"0","gSC TO PROCR START " 52515,99,"",0,1,1,"0","" 52516,72,"525",19,0,0,"0","gOK " 52517,10,"",0,0,0,"79","" 52518,80,"501",2,0,0,"0","gREPORT SR " 52519,0,"20",1,0,0,"0","" 52520,5,"61",0,0,0,"0","" 52521,0,"20",2,0,0,"0","" 52522,70,"525",32,0,0,"0","gSC TO PROCR START " 52523,30,"",0,0,0,"4-","" 52524,5,"523",2,0,0,"0","FLIPFLOP " 52525,0,"61",43,0,0,"0","SPACE CTR " 52526,2,"61",11,0,0,"0","CURRENT PROCR START " 52527,34,"544",26,0,0,"0","BITS 1-10 " 52528,124,"523",2,0,1,"0","0 OR 10 " 52529,33,"",0,0,0,"0","///// " 52530,124,"20",2,0,3,"0","ABS LOCN Q1-4 " 52531,114,"",0,0,0,"0","PACK NEXT ENTRY->SEC 18 " 52532,0,"61",117,0,0,"0","" 52533,12,"",0,0,0,"3","" 52534,3,"61",117,0,0,"0","REDUCE NO OF SC'S IN TRANSIT " 52535,71,"525",38,0,0,"0","gLIST NOT EMPTY " 52536,5,"20",0,0,0,"0","" 52537,76,"525",41,0,0,"0","gTEST IF LAST SC WAS WRONG " 52538,124,"20",3,0,2,"0","" 52539,1,"61",116,1,0,"0","LENGTH IN 61/117 " 52540,128,"20",0,0,0,"0","UP 3 LOCNS " 52541,,"61",20,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000403.JPG",,,,"","KenK/Q1000403" 52542,71,"522",34,0,0,"0","gWAS A WRONG ENTRY POINT " 52543,,"61",117,0,0,"0","CTR OF SECN 20 LENGTH " 52544,70,"525",57,0,0,"0","gPRINT LINE " 52545,,"66",2,0,0,"0","" 52546,2,"20",0,0,0,"0","NEXT SCFWD " 52547,70,"525",55,0,0,"0","gPRINT ENTRY POINT " 52548,73,"525",57,0,0,"0","gPRINT LINE " 52549,,"61",0,0,0,"0","LIST " 52550,70,"525",52,0,0,"0","" 52551,80,"529",2,0,0,"0","PRINT ENTRY POINT " 52552,,"542",28,1,0,"0","????? " 52553,5,"61",20,1,0,"0","" 52554,76,"525",11,0,0,"0","" 52555,80,"529",2,0,0,"0","" 52556,76,"525",11,0,0,"0","gMOVE LIST UP,TRY AGAIN " 52557,52,"7",2,0,0,"0","EDIT ENTRY POINT " 52558,C,"551",8,0,0,"0","" 52600,PROCR,"526",,,,"","I/P C LINE S/R " 52601,NOTES,"",RADIX,B,,"","" 52602,10,"",0,0,0,"0","" 52603,34,"66",6,1,0,"0","" 52604,80,"533",2,0,0,"0","RT ALIGN S/R " 52605,5,"66",6,1,0,"0","" 52606,5,"66",16,0,0,"0","CLEAR INDICATOR " 52607,35,"",0,0,0,"1","QUARTET ONE. " 52608,36,"66",8,1,0,"0","ITEM " 52609,12,"",0,0,0,+,"" 52610,71,"527",2,0,0,"0","gNOT 'ITEM+' " 52611,10,"",0,0,0,"1","" 52612,5,"66",16,0,0,"0",";IF IT IS SET " 52613,,"66",8,1,0,"0",";INDICATOR " 52614,30,"",0,0,0,"1-",";AND REMOVE + " 52615,72,"526",17,0,0,"0","" 52616,11,"",0,0,0,"1","TO MAKE COMPLEMENT CORRECT " 52617,5,"66",8,1,0,"0","" 52700,PROCR,"527",,,,"","I/P C-LINE S/R " 52701,NOTES,"",RADIX,B,,"","" 52702,,"77",38,1,0,"0","IGNORE'IND " 52703,2,"542",28,1,0,"0","" 52704,3,"61",98,1,0,"0","" 52705,70,"527",31,0,0,"0","" 52706,,"77",24,1,0,"0","FIRST 5 CHARS ANNOTATION " 52707,12,"",0,0,0,"7369515355","TRACE' " 52708,71,"527",31,0,0,"0","gNO " 52709,,"66",4,1,0,"0","" 52710,2,"542",26,1,0,"0","" 52711,70,"528",49,0,0,"0","gA C-LINE " 52712,,"66",5,0,0,"0","" 52713,12,"",0,0,0,"48300","" 52714,70,"528",49,0,0,"0","g80 ACTION " 52715,12,"",0,0,0,"150","" 52716,70,"528",49,0,0,"0","g85 " 52717,12,"",0,0,0,"pp0","" 52718,70,"528",49,0,0,"0","g94 " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000404.JPG",,,,"","RayS/Q1000404" 52719,12,"",0,0,0,"30","" 52720,70,"528",49,0,0,"0","g97" 52721,0,"25",0,0,0,"0","" 52722,101,"",40,1,2,"0","" 52723,72,"528",49,0,0,"0","gLIST FULL" 52724,,"61",43,0,0,"0","SPACESTR" 52725,30,"",0,0,0,"5","" 52726,1,"66",2,0,0,"0","LINE SERIAL" 52727,124,"25",0,0,1,"0","" 52728,5,"25",2,1,0,"0","" 52729,10,"",0,0,0,"2","" 52730,4,"25",0,0,0,"0","" 52731,80,"511",2,0,0,"0","PRINT" 52732,,"66",6,2,0,"0","DEC REF" 52733,12,"",0,0,0,"100","" 52734,73,"527",41,0,0,"0","gSECTION" 52735,12,"",0,0,0,"899","" 52736,72,"527",41,0,0,"0","g999 OR 1000+" 52737,60,"",0,0,0,"0","" 52738,10,"",0,0,0,"2-","" 52739,4,"66",8,1,0,"0","REDUCE ITEM" 52740,62,"",0,0,0,"0","" 52741,,"66",4,1,0,"0","" 52742,2,"542",26,1,0,"0","C. . . . ." 52743,70,"528",6,0,0,"0","" 52744,34,"66",4,1,0,"0","" 52745,80,"533",2,0,0,"0","RT ALIGN S/R" 52746,5,"66",4,1,0,"0","" 52747,,"66",4,2,0,"0","ACTION" 52748,32,"",0,0,0,"1-","" 52749,5,"61",110,0,0,"0","GROUP" 52750,32,"",0,0,0,"1","" 52751,11,"",0,0,0,"1","" 52752,5,"61",50,0,0,"0","VARIANT +1" 52800,PROCR,"528",,,,"","" 52801,NOTES,"",RADIX,B,,"","" 52802,0,"61",110,0,0,"0","" 52803,80,"537",2,0,0,"0","CONVERT" 52804,11,"",0,0,0,"1","" 52805,5,"61",110,0,0,"0","GROUP+1" 52806,,"61",98,1,0,"0","W/L" 52807,71,"528",10,0,0,"0","" 52808,5,"61",110,0,0,"0","CLEAR GROUP WHEN 'IGNORE' IND SET" 52809,76,"362",2,0,0,"0","gGNB" 52810,124,"543",22,0,2,"0","" 52811,112,"66",8,1,0,"0","" 52812,5,"66",8,1,0,"0","ITEM TO BIN" 52813,124,"543",22,0,2,"0","" 52814,112,"66",12,1,0,"0","" 52815,5,"66",12,1,0,"0","MOD DIGITS TO BIN" 52816,0,"61",110,0,0,"0","" 52817,12,"",0,0,0,"2","" 52818,70,"528",44,0,0,"0",">GROUP 1" 52819,12,"",0,0,0,"3","" 52820,70,"528",47,0,0,"0",">GROUP 4" 52821,12,"",0,0,0,"2","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000405.JPG",,,,"","KenK/Q1000405" 52822,70,"528",44,0,0,"0","gGROUP 6 " 52823,12,"",0,0,0,"1","" 52824,70,"528",44,0,0,"0","gGROUP 7 " 52825,12,"",0,0,0,"3","" 52826,73,"528",41,0,0,"0","gGROUPS,0,2,3,5,8,9 " 52827,12,"",0,0,0,"3","" 52828,73,"528",44,0,0,"0","gGROUPS 10-12 " 52829,70,"528",36,0,0,"0","gGROUP13 " 52830,12,"",0,0,0,"1","" 52831,70,"528",44,0,0,"0","gGROUP 14 " 52832,,"61",50,0,0,"0","VARIANT+1 " 52833,12,"",0,0,0,"7","" 52834,70,"528",47,0,0,"0","g156,DON'T CONVERT REFF " 52835,76,"528",44,0,0,"0","" 52836,,"61",50,0,0,"0","" 52837,12,"",0,0,0,"3","" 52838,73,"528",44,0,0,"0","gACTION 130 OR 131 " 52839,10,"",0,0,0,"0","" 52840,76,"528",47,0,0,"0","gACTION 132-134, DON'T CONVERT REF " 52841,124,"543",22,0,2,"0","" 52842,112,"66",14,1,0,"0","" 52843,5,"66",14,1,0,"0","LITERAL TO BIN " 52844,124,"543",22,0,2,"0","" 52845,112,"66",7,1,0,"0","" 52846,5,"66",6,1,0,"0","" 52847,5,"61",99,0,0,"0","" 52848,82,"522",2,0,0,"0","" 52849,10,"",0,0,0,"65","N' REPORT 'TRACE' " 52850,35,"",0,0,0,"11000","" 52851,30,"",0,0,0,"3","" 52852,37,"7",49,0,0,"0","" 52853,76,"527",31,0,0,"0","" 52900,PROCR,"529",,,,"","PRINT SEQ CHANGE ENTRY POINT ON SEPARATE LINE " 52901,NOTES,"",RADIX,B,,"","" 52902,81,"529",2,0,0,"0","" 52903,0,"61",20,1,0,"0","" 52904,71,"529",7,0,0,"0","gPRINT REPORTED SC " 52905,0,"23",46,1,0,"0"," 'PRINT UNCONDITIONALLY' INDS " 52906,70,"529",12,0,0,"0","gDON'T PRINT SEPARATE SC " 52907,52,"5",2,0,0,"0","" 52908,C,"551",2,0,0,"0","" 52909,0,"61",20,1,0,"0"," '?????'OR ZERO " 52910,5,"5",46,1,0,"0","" 52911,80,"530",2,0,0,"0","" 52912,10,"",0,0,0,"0","" 52913,5,"61",0,0,0,"0","CLEAR LIST " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000406.JPG",,,,"","ChuckK/Q1000406" 52914,82,"529",2,0,0,"0","" 53000,PROCR,"530",,,,"","SECOND PRINT S/R " 53001,NOTES,"",RADIX,B,,"","" 53002,81,"530",2,0,0,"0","" 53003,0,"544",2,1,0,"0","BEW" 53004,5,"5",50,1,0,"0","" 53005,0,"999",14,1,0,"0","SEC 5 PARAS" 53006,5,"999",16,1,0,"0","CORRUPT SEC 7 PARAS" 53007,80,"511",2,0,0,"0",">PRINT SR(WHICH WILL USE SEC 5)" 53008,0,"999",30,1,0,"0","" 53009,5,"999",16,1,0,"0","RESTORE SEC 7 PARAS EX WL" 53010,54,"5",2,1,0,"48","" 53011,82,"530",2,0,0,"0","" 53100,PROCR,"531",,,,"","NEG NO S/R " 53101,NOTES,"",RADIX,B,,"","" 53102,81,"531",2,0,0,"0","" 53103,10,"",0,0,0,"0","" 53104,2,"66",8,1,0,"0","ITEM" 53105,70,"531",17,0,0,"0","DO NOT SET INDICATOR FOR ZERO ITEM" 53106,73,"531",17,0,0,"0","" 53107,5,"66",8,1,0,"0","" 53108,10,"",0,0,0,"80","B8" 53109,4,"61",34,0,0,"0","PARA W/L" 53110,,"66",10,1,0,"0","" 53111,12,"",0,0,0,"2","" 53112,71,"531",17,0,0,"0","" 53113,12,"",0,0,0,"1","" 53114,4,"66",8,1,0,"0","" 53115,10,"",0,0,0,"1","" 53116,5,"66",10,1,0,"0","" 53117,82,"531",2,0,0,"0","" 53200,PROCR,"532",,,,"","STACK S/R " 53201,NOTES,"",RADIX,B,,"","" 53202,81,"532",2,0,0,"0","" 53203,0,"61",0,0,0,"0","ACTION" 53204,5,"67",3,0,0,"0","" 53205,,"66",6,1,0,"0","REF" 53206,30,"",0,0,0,"2","" 53207,1,"61",34,0,0,"0","PARAM" 53208,5,"67",2,0,0,"0","" 53209,,"66",10,1,0,"0","" 53210,70,"532",16,0,0,"0",">DISC 0" 53211,12,"",0,0,0,"2","" 53212,71,"532",15,0,0,"0",">NOT DISC 2" 53213,10,"",0,0,0,"1","STEP ITEM" 53214,4,"66",8,1,0,"0","" 53215,,"545",29,0,0,"0","B16" 53216,124,"66",12,0,1,"0","MOD DIGITS" 53217,1,"545",25,0,0,"0","BITS IN B14 POSITION" 53218,1,"66",8,0,0,"0","ITEM" 53219,35,"",0,0,0,"1111","" 53220,36,"67",3,0,0,"0","" 53221,37,"67",3,0,0,"0","PACK WITH ACTION" 53222,10,"",0,0,0,"0","CLEAR A" 53223,82,"532",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000407.JPG",,,,"","ChuckK/Q1000407" 53300,PROCR,"533",,,,"","RT ALIGN S/R " 53301,NOTES,"",RADIX,B,,"","" 53302,81,"533",2,0,0,"0","" 53303,10,"",0,0,0,"0","" 53304,5,"61",18,1,0,"0","" 53305,0,"61",18,1,0,"0","" 53306,32,"",0,0,0,"2","" 53307,5,"61",18,1,0,"0","" 53308,75,"533",5,0,0,"0","" 53309,0,"61",18,1,0,"0","" 53310,82,"533",2,0,0,"0","" 53400,PROCR,"534",,,,"","SUSPEND S/R " 53401,NOTES,"",RADIX,B,,"","" 53402,81,"534",2,0,0,"0","" 53403,55,"66",6,1,0,"8","" 53404,C,"61",26,1,0,"0","" 53405,,"66",16,0,0,"0","ITEM + IND " 53406,5,"66",17,0,0,"0","ITEM + IND (STORE)" 53407,82,"534",2,0,0,"0","" 53500,PROCR,"535",,,,"","REPLACE S/R " 53501,NOTES,"",RADIX,B,,"","" 53502,81,"535",2,0,0,"0","" 53503,55,"61",26,1,0,"8","" 53504,C,"66",6,1,0,"0","" 53505,,"66",17,0,0,"0","ITEM + IND (STORE)" 53506,5,"66",16,0,0,"0","ITEM + IND " 53507,82,"535",2,0,0,"0","" 53600,PROCR,"536",,,,"","OP INST S/R " 53601,NOTES,"",RADIX,B,,"","" 53602,81,"536",2,0,0,"0","" 53603,,"66",12,1,0,"0","MOD DIGITS" 53604,5,"61",2,0,0,"0","" 53605,80,"489",2,0,0,"0",">MOD AND PARAMETER" 53606,,"61",2,0,0,"0","" 53607,5,"66",12,1,0,"0","" 53608,0,"66",8,1,0,"0","" 53609,72,"536",11,0,0,"0",">NOT NEGATIVE ITEM" 53610,80,"531",2,0,0,"0","NEG NO" 53611,80,"532",2,0,0,"0","STACK" 53612,80,"518",2,0,0,"0","OP" 53613,82,"536",2,0,0,"0","" 53700,PROCR,"537",,,,"","CONVERT (A) TO BINARY " 53701,NOTES,"",RADIX,B,,"","" 53702,81,"537",2,0,0,"0","" 53703,5,"543",42,1,0,"0","" 53704,62,"",0,0,0,"0","" 53705,124,"543",22,0,2,"0","" 53706,112,"543",42,1,0,"0","" 53707,82,"537",2,0,0,"0","" 53800,PROCR,"538",,,,"","CONVERT (A) TO DECIMAL " 53801,NOTES,"",,,,"","" 53802,81,"538",2,0,0,"0","" 53803,5,"543",42,1,0,"0","" 53804,60,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000408.JPG",,,,"","ChuckK/Q1000408" 53805,124,"543",2,0,2,"0","" 53806,112,"543",42,1,0,"0","" 53807,82,"538",2,0,0,"0","" 53900,PROCR,"539",,,,"","A2>B " 53902,81,"539",2,0,0,"0","" 53903,42,"A2",0,0,0,"0","" 53904,C,"8",0,0,0,"0","" 53905,59,"8",6,0,12,"0","" 53906,C,"8",4,2,0,"0","" 53907,82,"539",2,0,0,"0","" 54000,PROCR,"540",,,,"","O/P>A9 " 54002,81,"540",2,0,0,"0","" 54003,94,"540",9,0,6,"50","FORM UP MULTIRECORD BLOCK" 54004,,"544",2,1,0,"0","BEW" 54005,5,"10",306,1,0,"0","" 54006,80,"541",2,0,0,"0","" 54007,90,"",0,0,6,"0","SET UP MOD" 54008,C,"",0,0,0,"300","" 54009,82,"540",2,0,0,"0","" 54100,PROCR,"541",,,,"","WRITE A9 " 54102,81,"541",2,0,0,"0","" 54103,10,"",0,0,0,"800000","" 54104,34,"999",12,0,0,"0","SEC 10" 54105,125,"",4096,1,1,"0","" 54106,1,"999",7,0,0,"0","D1/A9" 54107,124,"999",0,0,3,"0","" 54108,123,"",160,0,2,"0","" 54109,82,"541",2,0,0,"0","" 54200,CONST,"542",,1,,"","ALPHA CONSTANTS " 54202,,"(A)VALUE;",0,0,0,"0","" 54204,,"TABLE;",0,0,0,"0","" 54206,,"CONST;",0,0,0,"0","" 54208,,"PROCR;",0,0,0,"0","" 54210,,"(A)NOTES;",0,0,0,"0","" 54212,,"END ;",0,0,0,"0","END" 54214,,"DUMPS;",0,0,0,"0","" 54216,,"FILES;",0,0,0,"0","" 54218,,"TYPE ;",0,0,0,"0","" 54220,,"FIEND;",0,0,0,"0","" 54222,,"> ;",0,0,0,"0","(Right arrow - CK)" 54224,,"TYPE.;",0,0,0,"0","" 54226,,"C ;",0,0,0,"0","" 54228,,"?????;",0,0,0,"0","" 54230,,"TYPEp;",0,0,0,"0","" 54232,,"(B)1;",0,0,0,"0","CONVERT LITERALS OF 35 ACTION" 54234,,"2;",0,0,0,"0","" 54236,,"4;",0,0,0,"0","" 54238,,"8;",0,0,0,"0","" 54240,,"16;",0,0,0,"0","" 54242,,"32;",0,0,0,"0","" 54244,,"64;",0,0,0,"0","" 54246,,"128;",0,0,0,"0","" 54248,,"256;",0,0,0,"0","" 54250,,"512;",0,0,0,"0","" 54300,CONST,"543",,1,,"","CONVERT TABLES " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000409.JPG",,,,"","DaveJ/Q1000409" 54302,,"(D)1;",,,,"","" 54304,,"16;",,,,"","" 54306,,"256;",,,,"","" 54308,,"4096;",,,,"","" 54310,,"65536;",,,,"","" 54312,,"1048576;",,,,"","" 54314,,"16777216;",,,,"","" 54316,,"268435456;",,,,"","" 54318,,"4294967296;",,,,"","" 54320,,"pppppppppp;",,,,"","" 54322,,"1;",,,,"","DEC->BIN" 54324,,"t;",,,,"","" 54326,,"64;",,,,"","" 54328,,"3.8;",,,,"","" 54330,,"2710;",,,,"","" 54332,,"186t0;",,,,"","" 54334,,"p4240;",,,,"","" 54336,,"989680;",,,,"","" 54338,,"5p5.100;",,,,"","" 54340,,"3e9t+t00;",,,,"","" 54342,,"0;",,,,"","(A)WL" 54344,,"0;",,,,"","CLEO'PARA WORD" 54400,CONST,"544",,,,"","DECIMAL CONSTANTS" 54402,,"(D)7.;",,,,"","B.E." 54403,,"7.000;",,,,"","WORD" 54404,,"0;",,,,"","0:48 MR SETTING" 54405,,"90;",,,,"","MR NOW 0:144" 54406,,"1;",,,,"","FUNCTIONS WORDS" 54407,,"45;",,,,"","TYPES IN ALPHA" 54408,,"45;",,,,"","" 54409,,"44;",,,,"","" 54410,,"4;",,,,"","" 54411,,"4;",,,,"","" 54412,,"2;",,,,"","" 54413,,"(R)62:0;",,,,"","LONG NO SECT" 54414,,"63:0;",,,,"","SHORT NO SECT" 54415,,"62:0;",,,,"","T.DS.L. SECT" 54416,,"18:2499;",,,,"","FOR SEQUENCE CHANGES" 54417,,"18:0;",,,,"","" 54418,,"(B)180;",,,,"","FOR TSL STORAGE" 54419,,"180;",,,,"","" 54420,,"(D)3;",,,,"","" 54421,,"7ppp0;",,,,"","B5-19" 54422,,"1ppp;",,,,"","B1-13" 54423,,"66666;",,,,"","DEC RADIX" 54424,,"66.64;",,,,"","ST RADIX" 54425,,"66666;",,,,"","DEC RADIX" 54426,,"3pp;",,,,"","BITS 1-10" 54427,,"01000;",,,,"","BIT 13" 54428,,"3p;",,,,"","BITS 1-6" 54500,CONST,"545",,,,"","INSTRUCTIONS" 54502,,"(R)92:9;",,,,"","" 54503,,"(D)t8006;",,,,"","10/1/0 6" 54504,,"+8006;",,,,"","12/1/0 6" 54505,,"7;",,,,"","" 54506,,"ppppp;",,,,"","THIS ISN'T A DUMMY" 54507,,"ppppp;",,,,"","" 54508,,"(D)60000;",,,,"","6" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000410.JPG",,,,"","RayS/Q1000410" 54509,,"40000;",,,,"","4 B19" 54510,,"50000;",,,,"","5" 54511,,"30000;",,,,"","3" 54512,,"70000;",,,,"","7" 54513,,"20000;",,,,"","2 B18" 54514,,"90000;",,,,"","9" 54515,,"t0000;",,,,"","10" 54516,,"e0000;",,,,"","11" 54517,,":0000;",,,,"","13" 54518,,"2t001-;",,,,"","18/1/1/0/1" 54519,,"8+000-;",,,,"","24/1/2" 54520,,"80000-;",,,,"","24/0/0" 54521,,"0t000;",,,,"","0/1/1" 54522,,"1.000;",,,,"","1/1/3" 54523,,"1t000;",,,,"","1/1/1" 54524,,"1+000;",,,,"","1/1/2" 54525,,"0;",,,,"","0/0/0" 54526,,"02000;",,,,"","0/0/1 B14" 54527,,"04000;",,,,"","0/0/2 B15" 54528,,"06000;",,,,"","0/0/3 B14-15" 54529,,"08000;",,,,"","0/1/0 B16" 54530,,"28000;",,,,"","2/1/0" 54531,,"38000;",,,,"","3/1/0" 54532,,"22000-;",,,,"","18/0/1" 54533,,"26000-;",,,,"","18/0/3" 54534,,"2t000-;",,,,"","18/1/1" 54535,,"2.000-;",,,,"","18/1/3" 54536,,"12000;",,,,"","1/0/1" 54537,,"£0000;",,,,"","15" 54538,,".0000;",,,,"","14" 54539,,"14000;",,,,"","1/0/2" 54540,,"e0000-;",,,,"","27/0/0" 54541,,"e2000-;",,,,"","27/0/1" 54542,,"e4000-;",,,,"","27/0/2" 54543,,"e6000-;",,,,"","27/0/3" 54544,,"e8000-;",,,,"","27/1/0" 54545,,"et000-;",,,,"","27/1/1" 54546,,"88000-;",,,,"","24/1/0" 54547,,"t0000-;",,,,"","26/0/0" 54548,,"t2000-;",,,,"","26/0/1" 54549,,"10000;",,,,"","1/0/0 B17" 54550,,"2t00t-;",,,,"","18/1/1/0/10" 54551,,"80000;",,,,"","8/0/0 B20" 54552,,"88000;",,,,"","8/1/0" 54553,,"1.001;",,,,"","1/1/3/0/1" 54554,,"48000;",,,,"","4/1/0" 54555,,"2t005-;",,,,"","18/1/1/0/5" 54556,,"t8000-;",,,,"","26/1/0" 54557,,"68000;",,,,"","6/1/0" 54558,,"+0000;",,,,"","12" 54559,,"90000-;",,,,"","25/0/0" 54560,,"74000-;",,,,"","23/0/2" 54561,,"70000-;",,,,"","23/0/0" 54562,,"2e016-;",,,,"","18/1/1/0/10 (18/1/1/4096+22)" 54563,,"t4000-;",,,,"","26/0/2" 54564,,"2e017-;",,,,"","18/1/1/0/9- (18/1/1/4096+23)" 54565,,"+0000-;",,,,"","28/0/0" 54566,,"84000-;",,,,"","24/0/2" 54567,,":2000-;",,,,"","29/0/1" 54568,,"+4000-;",,,,"","28/0/2" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000411.JPG",,,,"","RayS/Q1000411" 54569,,"+6000-;",,,,"","" 54570,,"++000-;",,,,"","" 54571,,"+.000-;",,,,"","" 54572,,"2e01e-;",,,,"","" 54573,,"9e000-;",,,,"","" 54574,,"(R)18:2496;",,,,"","" 54575,,"(D)1;",,,,"","" 54576,,"£0000-;",,,,"","" 54577,,"£8000-;",,,,"","" 54578,,".8000-;",,,,"","" 54579,,".0008-;",,,,"","" 54580,,".0000-;",,,,"","" 54581,,"£0008-;",,,,"","" 54582,,"40000-;",,,,"","" 54583,,"48000-;",,,,"","" 54584,,"58000-;",,,,"","" 54585,,"40008-;",,,,"","" 54586,,"50000-;",,,,"","" 54587,,"60000-;",,,,"","" 54588,,".0004-;",,,,"","" 54589,,"£8004-;",,,,"","" 54590,,"68000-;",,,,"","" 54591,,"407+;",,,,"","" 54592,,"400;",,,,"","" 54593,,"6808t;",,,,"","" 54594,,"500;",,,,"","" 54595,,"0409+;",,,,"","" 54596,,"200;",,,,"","" 54597,,"300;",,,,"","" 54598,,"t6000-;",,,,"","" 54599,,";",,,,"","" 54600,CONST,"546",,0,,"","" 54602,,"(D)86000-;",,,,"","" 54603,,"82000-;",,,,"","" 54604,,"28006;",,,,"","" 54605,,"38006;",,,,"","" 54606,,"e8002-;",,,,"","" 54607,,"1t002;",,,,"","" 54608,,"22005-;",,,,"","" 54609,,"06004;",,,,"","" 54610,,"20001;",,,,"","" 54611,,"88001-;",,,,"","" 54612,,"e4002-;",,,,"","" 54613,,"88007-;",,,,"","" 54614,,"t5££e-;",,,,"","" 54615,,"t1££t-;",,,,"","" 54616,,"20006;",,,,"","" 54617,,"86006-;",,,,"","" 54618,,"74002-;",,,,"","" 54619,,"0;",,,,"","" 54620,,"0;",,,,"","" 54621,,"8+006-;",,,,"","" 54622,,"1t00t;",,,,"","" 54623,,"30002;",,,,"","" 54624,,"1t014;",,,,"","" 54625,,"04002;",,,,"","" 54626,,"88005-;",,,,"","" 54627,,":6000-;",,,,"","" 54628,,"8000-;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000412.JPG",,,,"","RayS/Q1000412" 54629,,"+t000-;",,,,"","" 54630,,"1.001;",,,,"","1/1/3 1" 54700,TABLE,"547",1,1,,"","TRIAL DATA HEADING BLOCK 'FILES'" 54701,NOTES,,,,,,,,,,,,,"" 54800,TABLE,548,1,1,,,INSTRUCTIONS,,,,,,,"" 54801,NOTES,,,,,,,,,,,,,"" 54802,66,0,0,0,2,0,5,0,0,0,0,0,0,"AM IND" 54804,66,2,0,0,1,0,5,5,5,0,0,0,0,"S. NO" 54806,66,4,0,0,2,0,5,0,4,0,0,0,0,"ACTION" 54808,66,6,0,0,2,0,5,0,3,0,0,0,0,"REF" 54810,66,8,0,0,1,0,5,5,0,4,2,0,0,"ITEM" 54812,66,10,0,0,1,0,2,8,1,1,0,0,0,"DISC" 54814,66,12,0,0,1,0,3,7,0,2,0,0,0,"MOD" 54816,66,14,0,0,1,0,10,0,5,9,2,0,0,"LITERAL" 54818,543,44,0,0,2,0,5,0,0,0,0,0,1,"CLEO' PARA WORD" 54900,TABLE,549,1,1,,,TABLES,,,,,,,"" 54901,NOTES,,,,,,,,,,,,,"" 54902,66,0,0,0,2,0,5,0,0,0,0,0,0,"AM IND" 54904,66,2,0,0,0,0,5,0,5,0,0,0,0,"S NO" 54906,66,16,0,0,0,0,5,0,1,4,0,0,0,"FIRST REF" 54908,66,17,0,0,0,0,5,0,1,4,0,0,0,"FIRST ITEM" 54910,66,18,0,0,0,0,5,0,1,4,0,0,0,"SECOND REF" 54912,66,19,0,0,0,0,5,0,1,4,0,0,0,"SECOND ITEM" 54914,66,3,0,0,0,0,2,3,1,1,0,0,0,"S/L/ALPHA" 54916,66,4,0,0,0,0,3,2,0,2,0,0,0,"SINGLE/BE" 54918,66,5,0,0,0,0,2,3,2,1,0,0,0,"NO OF CHARS" 54920,66,10,0,0,0,0,3,2,1,2,0,0,0,"DISC" 54922,66,11,0,0,0,0,2,3,2,1,0,0,0,"SPACES" 54924,66,12,0,0,0,0,3,2,1,2,0,0,0,"ZEROS" 54926,66,13,0,0,0,0,1,4,2,0,0,0,0,"SIGN" 54928,66,14,0,0,0,0,2,3,1,1,0,0,0,"STERLING" 54930,66,15,0,0,0,0,2,3,1,1,0,0,1,"LTE" 55000,TABLE,550,1,1,,,VALUE,,,,,,,"" 55001,NOTES,,,,,,,,,,,,,"" 55002,67,3,0,0,0,0,5,0,1,4,1,0,0,"VALUE" 55004,67,2,0,0,0,0,4,1,0,3,0,0,1,"PARA" 55100,TABLE,551,1,1,,,ENTRY PT ADJUSTMENT PM POINTS,,,,,,,"" 55101,NOTES,,,,,,,,,,,,,"" 55102,61,20,0,0,2,0,3,2,0,0,0,0,0,"??? OR ZERO" 55104,61,0,0,0,0,0,5,0,1,0,0,0,0,"ENTRY POINT" 55106,542,22,0,0,2,0,1,0,0,0,0,0,1,"'+'" 55108,66,0,0,0,2,0,3,0,0,0,0,0,0,"AMEND IND" 55110,61,0,0,0,0,0,5,0,1,0,0,0,0,"ENTRY PT" 55112,542,22,0,0,2,0,1,0,0,0,0,0,1,"g" 55200,CONST,"552",1,1,,"","DUMMY FOR INSERTING M/C MODS" 55300,PROCR,"553",,,,"","START OF PASS 3" 55301,NOTES,"",RADIX,,,"","PREP STAGE" 55302,152,"152",4,0,0,"0","" 55303,C,"680",2,0,0,"0","" 55304,55,"9",0,1,0,"100","" 55305,C,"15",0,1,0,"0","" 55306,55,"91",0,0,0,"36","" 55307,C,"24",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000413.JPG",,,,"","RayS/Q1000413" 55308,,"27",4,0,0,"0","COMPILER?" 55309,70,"553",13,0,0,"0","gNO" 55310,46,"A6",10,0,0,"0","REALIGN TO 'INDEX'" 55311,C,"",0,0,0,"4","" 55312,76,"553",14,0,0,"0","" 55313,40,"A6",0,0,0,"1","INPUT EX PASS 2" 55314,54,"16",0,0,0,"40","" 55315,54,"5",0,0,0,"50","CLEAR PRINTER ANNEX" 55316,10,"",0,0,0,"0","CLEAR DETAILS" 55317,5,"94",0,0,0,"0","OF SECTION 0" 55318,55,"72",3,0,0,"14","" 55319,C,"16",5,0,0,"0","" 55320,54,"72",3,0,0,"14","" 55321,90,"",0,0,3,"0","" 55322,C,"",0,0,0,"0","/////" 55323,,"92",0,0,0,"0","CHAPTERS CODED +1" 55324,30,"",0,0,0,"5","" 55325,11,"",0,0,0,"1","" 55326,91,"",0,0,1,"0","" 55327,10,"",0,0,0,"0","" 55328,35,"",0,0,0,"1","" 55329,36,"92",9,0,1,"0","" 55330,5,"16",2,0,0,"0","CORRECTED CHAP" 55331,96,"",0,0,1,"0","" 55332,5,"16",1,0,0,"0","UNCORR CHAP" 55333,10,"",0,0,0,"10","BIT 5" 55334,32,"",0,0,0,"10-","" 55335,36,"92",9,0,1,"0","UNIQUENESS IND Q2" 55336,32,"",0,0,0,"2-","(CLEAR A)" 55337,75,"553",40,0,0,"0","gCHAP NOT UNIQUE" 55338,124,"16",2,0,1,"0","CORR CHAP" 55339,,"16",4,0,0,"0","SW SEC LENGTH" 55340,1,"72",18,0,3,"0","CHAP LENGTH (CODING ONLY)" 55341,5,"16",3,0,0,"0","START OF FIRST SEC IN UNCORR CHAP" 55342,5,"16",4,0,0,"0","CLEAR FOR TOT LENGTHS ALL SECS IN CHAP" 55400,PROCR,"554",,,,"","UPDATE SEC INDEX, SWITCH PROCR STARTS" 55401,NOTES,"",,,,"","" 55402,80,"555",2,0,0,"0","gDEAL WITH SECTIONS, ANNEXES" 55403,,"16",3,0,0,"0","UNCORR CHAP LENGTH" 55404,1,"16",4,0,0,"0","" 55405,124,"16",2,0,1,"0","CORR CHAP" 55406,2,"72",2,0,0,"0","" 55407,73,"554",10,0,0,"0","" 55408,124,"16",2,0,1,"0","" 55409,4,"72",2,0,0,"0","FORM MAX CORR CHAP LENGTH" 55410,94,"554",11,0,3,"1","" 55411,94,"553",27,0,1,"1","gNEXT UNCORR CHAP" 55412,91,"92",28,0,1,"0","COUNT CORR CHAPS" 55413,90,"",0,0,2,"0","" 55414,C,"",0,0,0,"0","/////" 55415,10,"",0,0,0,"10","BIT 5" 55416,32,"",0,0,0,"10-","" 55417,36,"92",10,0,1,"0","" 55418,70,"554",23,0,0,"0","gCHAP IS UNIQUE" 55419,0,"72",3,0,1,"0","" 55420,5,"72",18,0,2,"0","SWITCH PROCR START-END OF SECTIONS" 55421,0,"16",5,0,1,"0","" 55422,4,"72",3,0,1,"0","UPDATE CHAPTER LENGTH" 55423,94,"554",24,0,2,"1","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000414.JPG",,,,"","RayS/Q1000414" 55424,94,"554",15,0,1,"1","gNEXT CHAP" 55425,0,"61",100,0,0,"0","BASIC SPECIAL CHAP LENGTH" 55426,5,"16",3,0,0,"0","" 55427,5,"16",1,0,0,"0","ZERO UNCORR CHAP" 55428,0,"92",29,0,0,"0","" 55429,5,"16",2,0,0,"0","CORR CHAP=SPEC CHAP" 55430,5,"16",4,0,0,"0","CLEAR SUBTOTAL" 55431,80,"555",2,0,0,"0","gDEAL WITH SPECIAL CHAP" 55432,0,"16",3,0,0,"0","" 55433,1,"16",4,0,0,"0","FORM SPECIAL CHAP LENGTH" 55434,5,"72",2,0,1,"0","" 55435,101,"",214,1,3,"0","" 55436,2,"72",2,0,1,"0","" 55437,73,"554",39,0,0,"0","" 55438,4,"72",2,0,1,"0","" 55439,101,"",220,1,3,"0","FIRST CHAP MIN LENGTH=220" 55440,2,"72",3,0,0,"0","" 55441,73,"554",43,0,0,"0","gOK" 55442,4,"72",3,0,0,"0","" 55443,54,"16",0,0,0,"40","CLEAR W/L'S" 55444,0,"92",29,0,0,"0","" 55445,12,"",0,0,0,"7","" 55446,73,"554",48,0,0,"0","gOK" 55447,10,"",0,0,0,"0","" 55448,11,"",0,0,0,"7","MAX VALUE=7" 55449,5,"92",29,0,0,"0","SPECIAL CHAP NUMBER" 55450,80,"574",2,0,0,"0","READ ALIGN BLOCK A6 NORMAL RUN, PREP STA" 55451,80,"574",2,0,0,"0","READ SECOND INDEX BLOXK" 55452,80,"574",2,0,0,"0","READ PROG DETAILS BLOCK" 55453,0,"9",4,2,0,"0","PROG ID" 55454,5,"16",2,0,0,"0","" 55455,0,"9",6,2,0,"0","PROG SERIAL" 55456,5,"16",3,0,0,"0","" 55457,54,"13",0,0,0,"14","" 55458,46,"A2",10,0,0,"1","BACK TO ALIGN BLOCK" 55459,C,"",0,0,0,"6","" 55460,48,"A2",0,0,0,"0","(STEP SO AS TO OVERWRITE IT)" 55461,C,"",0,0,0,"1","" 55462,,"583",60,1,0,"0","ALIGN MARKS" 55463,5,"8",4,1,0,"0","" 55464,,"584",4,1,0,"0","'INDEX'" 55465,5,"8",6,1,0,"0","" 55466,,"583",60,2,0,"0","" 55467,5,"8",8,2,0,"0","" 55468,10,"",0,0,0,"3","INDEX IDENTIFIER" 55469,5,"8",10,1,0,"0","" 55470,80,"577",2,0,0,"0","gWRITE" 55471,80,"556",2,0,0,"0","gWRITE DETAILS" 55472,76,"557",2,0,0,"0","" 55500,PROCR,"555",,,,"","PLACE SECTIONS AND ANNEXES IN UNCORRECTED CHAPTER SR" 55502,81,"555",2,0,0,"0","" 55503,90,"",0,0,2,"1","" 55504,C,"",0,0,0,"100","" 55505,0,"15",0,0,2,"0","" 55506,70,"555",18,0,0,"0","gSECTION NOT USED" 55507,30,"",0,0,0,"9","" 55508,30,"",0,0,0,"9-","ISOLATE CHAP NUMBER Q1" 55509,2,"16",1,0,0,"0","" 55510,71,"555",18,0,0,"0","gNOT IN THIS UNCORR CHAP" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000415.JPG",,,,"","RayS/Q1000415" 55511,0,"16",3,0,0,"0","" 55512,4,"94",0,0,2,"0","UPDATE SEC START" 55513,10,"",0,0,0,"0","" 55514,34,"15",0,0,2,"0","" 55515,36,"587",10,0,0,"0","BITS 5-18" 55516,30,"",0,0,0,"1-","" 55517,4,"16",4,0,0,"0","AUG SEC LENGTHS IN CHAP" 55518,94,"555",5,0,2,"1","gNEXT SECTION" 55519,91,"91",0,0,2,"0","2R:0" 55520,0,"91",1,0,0,"0","2R" 55521,70,"555",62,0,0,"0","gNO FILES" 55522,10,"",0,0,0,"0","" 55523,35,"",0,0,0,"1000","" 55524,36,"91",4,0,2,"0","UNCORR CHAP" 55525,30,"",0,0,0,"3-","" 55526,2,"16",1,0,0,"0","CURRENT UNCORR CHAP" 55527,71,"555",61,0,0,"0","gNOT IN IT" 55528,34,"587",5,0,0,"0","BITS 1-6" 55529,36,"91",5,0,2,"0","ROUTE TYPE" 55530,12,"",0,0,0,"3","" 55531,70,"555",37,0,0,"0","gGP" 55532,12,"",0,0,0,"1","" 55533,70,"555",37,0,0,"0","gGP" 55534,12,"",0,0,0,"£","" 55535,71,"555",52,0,0,"0","gNOT ROUTE 19" 55536,76,"555",61,0,0,"0","(DON'T INCLUDE ANNEX LENGTHS)" 55537,,"91",4,0,2,"0","" 55538,30,"",0,0,0,"4-","GR CTR" 55539,1,"91",1,0,0,"0","2R" 55540,92,"",0,0,4,"0","" 55541,35,"",0,0,0,"111","" 55542,36,"91",4,0,2,"0","LENGTH OF GP ANNEX Q7-10" 55543,30,"",0,0,0,"1","" 55544,1,"16",2,0,0,"0","CHAP NUMBER (CORRECTED) Q6" 55545,5,"91",5,0,4,"0","OVERWRITE DETAILS" 55546,36,"91",4,0,2,"0","ANNEX LENGTH" 55547,1,"16",3,0,0,"0","" 55548,1,"16",4,0,0,"0","" 55549,5,"556",2,0,0,"0","WL=SR LINK" 55550,2,"556",2,0,0,"0","STORE NEGATIVELY" 55551,5,"91",4,0,4,"0","STORE GP TX AREA START Q1-3" 55552,,"16",2,0,0,"0","CORRECTED CHAP" 55553,30,"",0,0,0,"4","" 55554,1,"16",3,0,0,"0","UNCORR CHAP LENGTH" 55555,1,"16",4,0,0,"0","ALL SECTIONS+ANNEXES TO DATE" 55556,5,"91",5,0,2,"0","" 55557,35,"",0,0,0,"111","HALF-LENGTH Q1-3" 55558,36,"91",4,0,2,"0","" 55559,31,"",0,0,0,"1","FORM FULL ANNEX LENGTH" 55560,4,"16",4,0,0,"0","" 55561,94,"555",22,0,2,"2","" 55562,82,"555",2,0,0,"0","" 55600,PROCR,"556",,,,"","SR TO WRITE 'INDEX' DATA" 55601,NOTES,"",,,,"","" 55602,81,"556",2,0,0,"0","" 55603,,"16",2,0,0,"0","PROG ID" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000416.JPG",,,,"","RayS/Q1000416" 55604,3,"8",4,2,0,"0","" 55605,5,"8",12,2,0,"0","" 55606,0,"16",3,0,0,"0","PROG SERIAL" 55607,3,"8",6,2,0,"0","" 55608,5,"8",14,2,0,"0","" 55609,10,"",0,0,0,"2","" 55610,5,"8",10,2,0,"0","PASS 1 IDENTIFIER" 55611,10,"",0,0,0,"3","" 55612,3,"8",18,2,0,"0","IDENTIFIER" 55613,10,"",0,0,0,"2","" 55614,1,"27",12,0,0,"0","0/2=PTS NO/YES" 55615,5,"8",16,2,0,"0","PASS IND" 55616,,"583",60,2,0,"0","£££££" 55617,5,"8",20,2,0,"0","" 55618,80,"577",2,0,0,"0","gWRITE TO TAPE" 55619,82,"556",2,0,0,"0","" 55700,PROCR,"557",,,,"","HEADING BLOCK" 55701,NOTES,"",RADIX,B,,"","PREP STAGE" 55702,54,"5",0,1,0,"50","" 55703,90,"",0,0,1,"0","" 55704,C,"",0,0,0,"10","" 55705,80,"576",2,0,0,"0","gPRINT SPACERS" 55706,94,"557",5,0,1,"1","" 55707,,"91",3,0,0,"0","2(R+T)" 55708,2,"91",2,0,0,"0","" 55709,31,"",0,0,0,"1-","" 55710,5,"576",2,0,0,"0","NO OF TX AREAS" 55711,,"91",2,0,0,"0","" 55712,31,"",0,0,0,"1-","" 55713,5,"577",2,0,0,"0","NO OF FILES" 55714,10,"",0,0,0,"80","HEAD OF FORM" 55715,5,"587",9,0,0,"0","" 55716,52,"5",0,0,0,"0","EDIT FIRST LINE" 55717,C,"593",2,0,0,"0","" 55718,,"27",12,0,0,"0","" 55719,70,"557",22,0,0,"0","gNO PTS" 55720,55,"584",12,1,0,"6","'PTS INCLUDED'" 55721,C,"5",40,1,0,"0","" 55722,80,"576",2,0,0,"0","gPRINT SPACERS" 55723,80,"576",2,0,0,"0","gSPACER" 55724,0,"583",60,2,0,"0","" 55725,5,"8",4,2,0,"0","" 55726,10,"",0,0,0,"55","" 55727,5,"8",6,2,0,"0","" 55728,,"16",2,0,0,"0","PROG ID" 55729,5,"8",8,2,0,"0","" 55730,,"16",3,0,0,"0","PROG SERIAL" 55731,5,"8",10,2,0,"0","" 55732,0,"583",70,1,0,"0","'PASS 3'" 55733,5,"8",12,1,0,"0","" 55734,80,"577",2,0,0,"0","gWRITE" 55735,124,"673",2,0,2,"0","" 55736,91,"",0,0,3,"0","FOR PARAMETERS" 55737,124,"604",2,0,2,"0","" 55738,91,"",0,0,2,"0","FOR ORDERS" 55739,124,"679",2,0,2,"0","" 55740,91,"",0,0,1,"0","SECOND LEVEL PARAS" 55741,90,"",0,0,5,"0","" 55742,C,"",0,0,0,"6","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000417.JPG",,,,"","RayS/Q1000417" 0query,164,"",,,,"","Mod value indistinct but I'm fairly sure it's an 8" 55743,90,"",0,0,8,"0","SECOND LEVEL PARAS" 0query,164,"",,,,"","because the 8 is notoriuosly bad in that print position" 55744,C,"",0,0,0,"3","" 0query,164,"",,,,"","and SR 596 steps mod 8 and resets it to 0-3 again when 3 is reached." 55745,,"673",2,0,0,"0","" 55746,31,"",0,0,0,"2","" 55747,5,"598",11,0,0,"0","" 55748,,"679",2,0,0,"0","" 55749,31,"",0,0,0,"2","" 55750,5,"598",17,0,0,"0","" 55751,80,"596",2,0,0,"0","gWRITE 'UNLOADER'" 55752,80,"596",2,0,0,"0","gWRITE 'ALLOC STORE'" 55753,95,"",0,0,1,"0","" 55754,5,"593",2,1,0,"0","" 55755,95,"",0,0,2,"0","" 55756,5,"593",4,1,0,"0","" 55757,80,"574",2,0,0,"0","gREAD" 55758,55,"9",4,1,0,"10","" 55759,C,"11",0,1,0,"0","" 55760,,"91",3,0,0,"0","2(R+T)" 55761,2,"91",2,0,0,"0","2R" 55762,31,"",0,0,0,"1-","FORM T" 55763,5,"11",12,2,0,"0","NO OF TX AREAS FOR ALLOCATOR" 55764,0,"91",2,0,0,"0","2R" 55765,31,"",0,0,0,"1-","R" 55766,5,"11",10,2,0,"0","NO OF ROUTES" 55767,10,"",0,0,0,"0","" 55768,3,"11",14,2,0,"0","NO OF DISCFILES" 55769,4,"11",10,2,0,"0","" 55800,PROCR,"558",,,,"","OUTPUT SECOND HEADING BLOCK" 55801,NOTES,"",RADIX B,,,"","PREP STAGE" 55802,55,"11",0,1,0,"16","" 55803,C,"8",4,1,0,"0","" 55804,5,"92",28,0,0,"0","CLEAR" 55805,,"92",6,0,0,"0","2ND HEADING BLOCK" 55806,5,"8",20,2,0,"0","" 55807,,"92",8,0,0,"0","CHAPTER" 55808,5,"8",22,2,0,"0","" 55809,91,"92",28,0,2,"0","" 55810,90,"",0,0,1,"0","" 55811,C,"",0,0,0,"14","" 55812,0,"72",3,0,2,"0","CHAP LENGTH" 55813,71,"558",16,0,0,"0","" 55814,,"583",92,1,0,"0","100,000 IN BIN" 55815,3,"72",3,0,2,"0","SET RIDICULOUS LENGTH" 55816,5,"8",24,2,1,"0","" 55817,10,"",0,0,0,"20","BIT 6" 55818,32,"",0,0,0,"10-","" 55819,36,"92",10,0,2,"0","" 55820,70,"558",24,0,0,"0","gNORMAL" 55821,10,"",0,0,0,"0","" 55822,2,"8",24,2,1,"0","" 55823,5,"8",24,2,1,"0","SET IND THAT IN ANOTHER STORE" 55824,94,"",0,0,1,"2","" 55825,94,"558",12,0,2,"1","" 55826,0,"16",2,0,0,"0","" 55827,5,"8",38,2,0,"0","PROG ID" 55828,0,"16",3,0,0,"0","" 55829,5,"8",40,2,0,"0","PROG SERIAL" 55830,10,"",0,0,0,"5163636653","'ALLOC'" 55831,5,"8",42,1,0,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000418.JPG",,,,"","ChuckK/Q1000418" 55832,,"24",0,1,0,"0","" 55833,70,"558",89,0,0,"0",">NO FILES" 55834,91,"24",0,0,1,"0","" 55835,90,"",0,0,2,"0","" 55836,C,"",0,0,0,"8","" 55837,10,"",0,0,0,"0","" 55838,34,"587",5,0,0,"0","BITS 1-6" 55839,36,"24",5,0,1,"0","ROUTE TYPE" 55840,101,"",19,1,2,"0","" 55841,71,"558",88,0,0,"0",">NOT 19" 55842,,"24",4,0,1,"0","OP TX AREA CTR" 55843,32,"",0,0,0,"4-","" 55844,1,"24",1,0,0,"0","2R" 55845,5,"577",2,0,0,"0","WL" 55846,35,"",0,0,0,"1000","" 55847,124,"577",2,0,1,"0","" 55848,36,"24",4,0,0,"0","CHAPTER NUMBER" 55849,70,"558",57,0,0,"0",">NO CHOICE" 55850,30,"",0,0,0,"3-","" 55851,2,"92",29,0,0,"0","CHAPS IN PROGM" 55852,70,"558",56,0,0,"0",">OK" 55853,73,"558",56,0,0,"0",">OK" 55854,10,"",0,0,0,"0","" 55855,76,"558",57,0,0,"0",">EX RANGE=NO CHOICE" 55856,1,"92",29,0,0,"0","" 55857,5,"576",2,0,0,"0","TX AREA CHAPTER" 55858,36,"24",4,0,1,"0","" 55859,30,"",0,0,0,"3-","" 55860,70,"558",67,0,0,"0",">NO CHOICE" 55861,2,"92",29,0,0,"0","" 55862,70,"558",66,0,0,"0",">OK" 55863,73,"558",66,0,0,"0",">OK" 55864,10,"",0,0,0,"0","" 55865,76,"558",67,0,0,"0",">EX RANGE=NO CHOICE" 55866,1,"92",29,0,0,"0","" 55867,5,"596",2,0,0,"0","ANNEX CHAPTER" 55868,35,"",0,0,0,"111","" 55869,36,"24",4,0,1,"0","GP HALF-LENGTH" 55870,32,"",0,0,0,"3-","" 55871,0,"596",2,0,0,"0","" 55872,31,"",0,0,0,"3","" 55873,1,"576",2,0,0,"0","" 55874,33,"",0,0,0,"13","" 55875,5,"8",44,2,2,"0","" 55876,35,"",0,0,0,"111","" 55877,124,"577",2,0,1,"0","" 55878,36,"24",4,0,0,"0","SPECIAL HALF-LENGTH" 55879,11,"",0,0,0,"2","(FOR GUARD WORD)" 55880,32,"",0,0,0,"3-","" 55881,0,"596",2,0,0,"0","" 55882,31,"",0,0,0,"3","" 55883,1,"576",2,0,0,"0","" 55884,33,"",0,0,0,"13","" 55885,5,"8",46,2,2,"0","" 55886,94,"558",88,0,2,"4","" 55887,76,"558",89,0,0,"0",">END AFTER 2 FILES" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000419.JPG",,,,"","ChuckK/Q1000419" 55888,94,"558",37,0,1,"2","" 55889,80,"577",2,0,0,"0",">WRITE" 55900,PROCR,"559",,,,"","SECOND HEADING LINE " 55901,NOTES,"",RADIX,B,,"","" 55902,91,"593",2,0,1,"0","" 55903,91,"593",4,0,2,"0","" 55904,80,"596",2,0,0,"0",">WRITE 'ALLOC ROUTES'" 55905,95,"",0,0,1,"0","" 55906,5,"593",2,1,0,"0","" 55907,95,"",0,0,2,"0","" 55908,5,"593",4,1,0,"0","" 55909,90,"",0,0,2,"0","SET MOD REGISTERS" 55910,C,"",0,0,0,"4","" 55911,,"11",0,2,2,"0","SELECT DETAIL" 55912,70,"559",15,0,0,"0","OUT IF ZERO" 55913,,"583",4,1,0,"0","ELSE SELECT" 55914,76,"559",16,0,0,"0","YES" 55915,,"583",6,1,0,"0","SELECT NO" 55916,5,"13",0,1,2,"0","STORE YES OR NO" 55917,94,"559",11,0,2,"2","REPEAT" 55918,0,"92",6,0,0,"0","" 55919,80,"578",2,0,0,"0","TO DEC" 55920,5,"92",6,0,0,"0","" 55921,62,"",0,0,0,"0","RESET BINARY" 55922,52,"5",2,0,0,"0","" 55923,C,"592",2,0,0,"0","EDIT AND OUTPUT" 55924,80,"576",2,0,0,"0",">PRINT FP, MOD GP, ENTRY ETC" 55925,80,"576",2,0,0,"0",">SPACER" 55926,,"11",8,2,0,"0",">SPACER" 55927,5,"13",2,1,0,"0","" 56000,PROCR,"560",,,,"","THIRD HEADING LINE " 56001,NOTES,"",RADIX,B,,"","PREP STAGE" 56002,,"11",10,2,0,"0","STORE" 56003,5,"16",8,0,0,"0","NO. OF FILES" 56004,0,"11",8,2,0,"0","NUMBER OF CHAPTERS INITIALLY" 56005,5,"16",9,0,0,"0","NO. OF CHAPTERS" 56006,54,"13",0,0,0,"14","CLEAR WL'S" 56007,91,"92",28,0,2,"0","" 56008,10,"",0,0,0,"20","BIT 6" 56009,32,"",0,0,0,"10-","" 56010,36,"92",10,0,2,"0","" 56011,70,"560",15,0,0,"0",">FIRST STORE" 56012,10,"",0,0,0,"0","" 56013,2,"72",3,0,2,"0","NEGATE FOR SECOND STORE" 56014,76,"560",16,0,0,"0","" 56015,,"72",3,0,2,"0","" 56016,80,"578",2,0,0,"0","TO DEC" 56017,5,"13",0,0,2,"0","STORE CHAPTER LENGTHS" 56018,62,"",0,0,0,"0","" 56019,,"72",3,0,2,"0","" 56020,12,"",0,0,0,"2001","8193 INBIN" 56021,73,"560",24,0,0,"0",">OK" 56022,10,"",0,0,0,"1","" 56023,3,"13",10,0,0,"0","" 56024,94,"560",8,0,2,"1","" 56025,0,"13",1-,0,2,"0","LAST CHAP LENGTH(DEC)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000420.JPG",,,,"","ChuckK/Q1000420" 56026,5,"585",4,1,0,"0","" 56027,0,"585",4,0,0,"0","MODULUS" 56028,12,"",0,0,0,"506","" 56029,72,"560",34,0,0,"0",">OK" 56030,10,"",0,0,0,"506","" 56031,5,"585",4,0,0,"0","" 56032,0,"585",4,1,0,"0","(PRESERVES ORIGINAL SIGN)" 56033,5,"13",1-,0,2,"0","PRINT SPECIAL CHAP AS MIN LENGTH 506" 56034,,"13",10,0,0,"0","" 56035,70,"560",46,0,0,"0",">OK" 56036,86,"511",2,0,0,"0","CTR DISATROUS ERRORs" 56037,11,"",0,0,0,"1","" 56038,84,"511",2,0,0,"0","AUGMENT" 56039,10,"",0,0,0,"5:5:5:5:5:"," '?????'" 56040,90,"",0,0,2,"0","" 56041,C,"",0,0,0,"10","" 56042,3,"5",40,1,2,"0","25 QUESTION MARKS" 56043,94,"560",42,0,2,"2","" 56044,10,"",0,0,0,"1","SET INDICATOR FOR *07" 56045,76,"560",47,0,0,"0","" 56046,10,"",0,0,0,"0","OK-CLEAR INDICATOR" 56047,5,"27",5,0,0,"0","" 56048,52,"5",2,0,0,"0","EDIT AND OUTPUT" 56049,C,"591",2,0,0,"0","" 56050,80,"576",2,0,0,"0","PRINT" 56051,80,"576",2,0,0,"0","SPACER" 56052,52,"5",2,0,0,"0","" 56053,C,"590",2,0,0,"0","EDIT FILE DETAILS HEADING" 56054,80,"576",2,0,0,"0","PRINT" 56055,54,"13",0,0,0,"31","" 56100,PROCR,"561",,,,"","FILE DETAILS " 56101,NOTES,"",RADIX,B,,"","PREP STAGE" 56102,0,"91",0,1,0,"0","" 56103,70,"562",20,0,0,"0",">NO FILES" 56104,91,"",0,0,4,"0","2R:0" 56105,90,"",0,0,1,"0","SET MOD REGISTER A" 56106,C,"",0,0,0,"48","" 56107,80,"574",2,0,0,"0","READ FILE DETAILS ON A6" 56108,55,"9",4,1,1,"12","FILE DETAIL" 56109,C,"11",0,1,0,"0","" 56110,0,"11",2,2,0,"0","ROUTE TYPE 02" 56111,3,"583",2,0,0,"0","WL" 56112,12,"",0,0,0,"20","" 56113,70,"561",54,0,0,"0",">BIN CARD O/P" 56114,12,"",0,0,0,"80","" 56115,70,"561",53,0,0,"0",">BIN CARD I/P" 56116,12,"",0,0,0,"60","" 56117,70,"561",51,0,0,"0",">NON-STD PT O/P(16)" 56118,12,"",0,0,0,"10","" 56119,70,"561",40,0,0,"0",">RT 17" 56120,12,"",0,0,0,"10","" 56121,70,"561",42,0,0,"0",">RT 18" 56122,12,"",0,0,0,"10","" 56123,70,"561",44,0,0,"0","" 56124,12,"",0,0,0,"10","" 56125,70,"561",38,0,0,"0","" 56126,12,"",0,0,0,"20","" 56127,71,"561",30,0,0,"0",">NOT RT 22" 56128,10,"",0,0,0,"+0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000421.JPG",,,,"","ChuckK/Q1000421" 56129,76,"561",55,0,0,"0",">RT 22" 56130,12,"",0,0,0,"20","" 56131,71,"561",34,0,0,"0",">NOT RT 24" 56132,10,"",0,0,0,"50","" 56133,76,"561",55,0,0,"0","" 56134,12,"",0,0,0,"10","" 56135,71,"561",56,0,0,"0",">NOT RT 25" 56136,10,"",0,0,0,".0","" 56137,76,"561",55,0,0,"0","" 56138,10,"",0,0,0,"20","DT" 56139,76,"561",55,0,0,"0",">RT 2" 56140,10,"",0,0,0,"e0","" 56141,76,"561",55,0,0,"0","" 56142,10,"",0,0,0,":0","" 56143,76,"561",55,0,0,"0","SET=13" 56144,10,"",0,0,0,"80","" 56145,5,"11",10,2,0,"0","ALT ROUTE IND" 56146,5,"11",6,1,0,"0","ZERO START" 56147,5,"11",8,1,0,"0","" 56148,12,"",0,0,0,"1","" 56149,5,"11",4,2,0,"0","" 56150,76,"561",70,0,0,"0",">SET ZERO START" 56151,10,"",0,0,0,"10","" 56152,76,"561",55,0,0,"0","" 56153,10,"",0,0,0,"30","" 56154,11,"",0,0,0,"30","" 56155,5,"11",2,2,0,"0","FIB TO M/R" 56156,,"11",10,2,0,"0","TEST ALTERNATE" 56157,70,"561",61,0,0,"0","ROUTE IF 0,SET" 56158,10,"",0,0,0,"0","=80: IF 1.SET=0" 56159,5,"11",10,2,0,"0","" 56160,76,"561",63,0,0,"0","" 56161,10,"",0,0,0,"80","" 56162,5,"11",10,2,0,"0","" 56163,35,"",0,0,0,"10000","" 56164,36,"91",5,0,4,"0","" 56165,30,"",0,0,0,"4-","" 56166,31,"",0,0,0,"1","DOUBLE CORR CHAP NO" 56167,5,"11",4,2,0,"0","" 56168,35,"",0,0,0,"1111","" 56169,36,"91",5,0,4,"0","" 56170,5,"11",8,2,0,"0","START LOCATION" 56171,52,"8",4,0,1,"0","EDIT IN" 56172,C,"597",16,0,0,"0","" 56173,90,"",0,0,2,"0","" 56174,C,"",0,0,0,"10","CONVERT FILE DETAILS" 56175,0,"11",2,2,2,"0","" 56176,80,"578",2,0,0,"0","TO DEC" 56177,5,"13",0,0,2,"0","" 56178,94,"561",75,0,2,"2","" 56179,,"583",2,0,0,"0","" 56180,30,"",0,0,0,"1-","" 56181,80,"578",2,0,0,"0","CONVERT ROUTE TYPE TO DEC" 56182,30,"",0,0,0,"1","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000422.JPG",,,,"","TonyJ/Q1000422" 56183,5,"583",2,0,0,"0","" 56184,62,"",0,0,0,"0","RESET BINARY" 56200,PROCR,"562",,,,"FILE DETAILS FOR PRINTOUT - BIT 20","" 56201,NOTES,"",RADIX,B,,"","" 0query,164,"",,,,"","RESET ALTERNATE" 56202,,"13",8,0,0,"0","" 0query,164,"",,,,"","ROUTE INDICATOR" 56203,70,"562",6,0,0,"0","" 56204,,"583",6,1,0,"0","" 56205,76,"562",7,0,0,"0","" 56206,,"583",4,1,0,"0","" 56207,5,"13",8,1,0,"0","" 56208,0,"11",4,2,0,"0","" 56209,31,"",0,0,0,"1-","" 56210,5,"13",2,0,0,"0","" 0query,164,"",,,,"","OUTPUT ON PRINTER" 56211,52,"5",2,0,0,"0","" 56212,C,"594",2,0,0,"0","" 56213,80,"576",2,0,0,"0","> PRINT" 56214,94,"562",16,0,4,"2","" 56215,76,"562",19,0,0,"0","> ALL FILES PROCESSED" 56216,94,"561",8,0,1,"12","> NEXT FILE THIS BLOCK" 56217,80,"577",2,0,0,"0","> WRITE" 56218,76,"561",5,0,0,"0","> READ NEW BLOCK" 56219,80,"577",2,0,0,"0","> WRITE FINAL FILES BLOCK" 56220,52,"5",2,0,0,"0","EDIT HEADING & OUTPUT" 56221,C,"594",14,0,0,"0","HEADING BLOCK" 56222,80,"576",2,0,0,"0","PRINT TX AREA HEADING" 56300,PROCR,"563",,,,"TRANSIT AREA","" 56301,NOTES,"",RADIX,B,,"","" 56302,91,"91",2,0,2,"0","2 (R+T) :2R" 56303,94,"563",5,0,2,"0","/////" 56304,76,"565",2,0,0,"0","> ND TX AREAS" 56305,90,"",0,0,1,"0","SET O/P MR" 56306,C,"",0,0,0,"48","" 56307,91,"91",0,0,4,"0","2R:0" 56308,34,"587",5,0,0,"0","BITS 1 - 6" 56309,10,"",0,0,0,"0","" 56310,36,"24",5,0,4,"0","ROUTE TYPE" 56311,12,"",0,0,0,"13","" 56312,71,"563",24,0,0,"0","> NOT 19" 56313,,"24",4,0,4,"0","GP T, AREA CTR" 56314,30,"",0,0,0,"4-","" 56315,1,"24",1,0,0,"0","2R" 56316,99,"",0,0,2,"0","-R2 MODIFIER" 56317,71,"563",24,0,0,"0",">WE ARE NOT DEALING WITH RT 19 TX AREA" 56318,12,"",0,0,0,"1","" 56319,5,"13",2,2,0,"0","NEG CHAP NUMBER" 56320,5,"13",4,2,0,"0","ZERO LENGTH" 56321,5,"596",2,0,0,"0","CLEAR FOR PRINT" 56322,5,"13",0,0,0,"0","ZERO START" 56323,76,"564",2,0,0,"0","" 56324,94,"563",9,0,4,"2","> TRY AGAIN" 56325,0,"91",4,0,2,"0","" 56326,72,"563",29,0,0,"0","> NOT GP TX AREA" 56327,0,"91",4,1,2,"0","(LOSES SIGN)" 56328,76,"563",35,0,0,"0","" 56329,30,"",0,0,0,"8","" 56330,30,"",0,0,0,"8-","CLEAR Q3 - 10" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000423.JPG",,,,"","TonyJ/Q1000423" 56331,3,"13",0,0,0,"0","" 56332,5,"583",2,0,0,"0","SEC NUMBER FOR PRINT" 56333,124,"13",0,0,1,"0","" 56334,0,"94",0,0,0,"0","SELECT SECTION START" 56335,5,"13",0,0,0,"0","" 56336,0,"91",5,0,2,"0","" 56337,32,"",0,0,0,"1-","" 56338,5,"13",4,2,0,"0","TX AREA LENGTH" 56339,32,"",0,0,0,"1","" 56340,3,"596",2,0,0,"0","CHAP" 56341,31,"",0,0,0,"1","" 56342,5,"13",2,2,0,"0","TWICE CHAP FOR MT" 56400,PROCR,"564",,,,"OUTPUT TRANSIT AREA DETAILS","" 56401,NOTES,"",RADIX,B,,"","" 56402,52,"8",4,0,1,"0","EDIT" 56403,C,"591",24,0,0,"0","TRANSIT AREA DTLS" 56404,0,"13",0,0,0,"0","" 56405,80,"578",2,0,0,"0","TO DEC" 56406,5,"13",0,0,0,"0","TO BINARY" 56407,0,"13",4,2,0,"0","" 56408,80,"578",2,0,0,"0","TO DEC" 56409,5,"13",4,0,0,"0","" 56410,0,"583",2,0,0,"0","" 56411,80,"578",2,0,0,"0","TO DEC" 56412,5,"583",2,0,0,"0","SEC NUMBER" 56413,62,"",0,0,0,"0","RESET BINARY" 56414,52,"5",2,0,0,"0","EDIT FOR PRINT" 56415,C,"594",26,0,0,"0","" 56416,0,"91",4,0,2,"0","" 56417,72,"564",20,0,0,"0","> NOT GP TX AREA" 56418,10,"",0,0,0,"5767"," 'GP'" 56419,5,"5",4,1,0,"0","" 56420,80,"576",2,0,0,"0","> PRINT" 56421,94,"564",24,0,2,"2","> MORE DETAILS YET" 56422,80,"577",2,0,0,"0","WRITE TX BLOCK" 56423,76,"565",2,0,0,"0","" 56424,94,"563",7,0,1,"6","" 56425,80,"577",2,0,0,"0","WRITE TX BLOCK" 56426,76,"563",5,0,0,"0","> RESET MR1 & START NEXT BLOCK" 56500,PROCR,565,,,,O/P LAST TWO CHUNKS AND WRITE COMPATIBILTY DATA,,,,,,,,, 56501,NOTES,"",,,,"","" 56502,91,"593",2,0,1,"0","" 56503,91,"593",4,0,2,"0","" 56504,80,"596",2,0,0,"0","> O/P 'ALLOC FP/TAG'" 56505,80,"596",2,0,0,"0","> O/P 'SET UP PQ'" 56506,80,"596",2,0,0,"0","> O/P 'LOAD PROGRAM'" 56507,76,"566",2,0,0,"0","" 56600,PROCR,"566",,566,,"PRINT SECTION START POINTS","" 56601,NOTES,"",RADIX,,,"","" 56602,,"583",62,1,0,"0"," 'SEC'" 56603, 05,"5",2,1,0,"0","" 56604,,"583",64,1,0,"0"," 'TION'" 56605, 05,"5",4,1,0,"0","" 56606,0,"583",84,1,0,"0","" 56607, 05,"5",6,1,0,"0","" 56608,90,"",0,0,1,"1","SELECT 94/1 - 94/99" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000424.JPG",,,,"","ChuckK/Q1000424" 56609,C,"",0,0,0,"100","" 56610,80,"576",2,0,0,"0",">PRINT" 56611,90,"",0,0,2,"0","" 56612,C,"",0,0,0,"48","" 56613,,"94",0,0,1,"0","" 56614,70,"566",27,0,0,"0",">SEC NOT USED" 56615,80,"578",2,0,0,"0","TO DEC" 56616,5,"583",3,0,0,"0","SEC START" 56617,96,"",0,0,1,"0","" 56618,80,"578",2,0,0,"0","TO DEC" 56619,5,"583",2,0,0,"0","SEC NUMBER" 56620,52,"5",2,0,2,"0","" 56621,C,"595",2,0,0,"0","" 56622,62,"",0,0,0,"0","BIN" 56623,94,"566",27,0,2,"4","" 56624,80,"576",2,0,0,"0","PRINT" 56625,90,"",0,0,2,"0","" 56626,C,"",0,0,0,"48","" 56627,94,"566",13,0,1,"1",">NEXT SECTION" 56628,80,"576",2,0,0,"0","PRINT LAST LINE" 56629,76,"569",2,0,0,"0",">PRINT SWITCHES" 56700,PROCR,"567",,,,"","PRINT LOCNS OF MOD REGISTERS 4-20" 56701,NOTES,"",,,,"","" 56702,52,"5",2,0,0,"0","" 56703,C,"595",8,0,0,"0","" 56704,80,"576",2,0,0,"0",">PRINT HEADING" 56705,90,"",0,0,1,"0","PRINT CONTROL" 56706,C,"",0,0,0,"48","" 56707,90,"",0,0,2,"0","" 56708,C,"",0,0,0,"17","SEARCH SEC 71" 56709,34,"71",2,0,2,"0","" 56710,74,"567",13,0,0,"0",">NOT USED" 56711,80,"570",2,0,0,"0",">DECODE" 56712,80,"571",2,0,0,"0",">EDIT+PRINT" 56713,94,"567",9,0,2,"1",">NEXT MR" 56714,80,"576",2,0,0,"0",">PRINT LAST LINE" 56715,90,"",0,0,12,"2499","" 56716,C,"",0,0,0,"0","" 56717,90,"",0,0,5,"0","" 56718,C,"",0,0,0,"40","" 56719,91,"",0,0,1,"0","CLEAR R1" 56720,76,"553",2,0,0,"0","CALL PASS 4" 56800,PROCR,"568",,,,"","PRINT LOCATIONS OF ITEM+ COUNTERS" 56801,NOTES,"",,,,"","" 56802,52,"5",2,0,0,"0","" 56803,C,"595",12,0,0,"0","" 56804,80,"576",2,0,0,"0",">PRINT HEADING" 56805,34,"98",1,0,0,"0","" 56806,74,"567",2,0,0,"0",">NONE" 56807,90,"",0,0,1,"0","PRINT CONTROL" 56808,C,"",0,0,0,"48","" 56809,90,"",0,0,2,"0","" 56810,C,"",0,0,0,"10","TO SEARCH SEC 98" 56811,34,"98",2,0,2,"0","" 56812,74,"568",15,0,0,"0",">NOT USED?" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000425.JPG",,,,"","ChuckK/Q1000425" 56813,80,"570",2,0,0,"0",">DECODE" 56814,80,"571",2,0,0,"0",">EDIT AND PRINT" 56815,94,"568",11,0,2,"1","" 56816,80,"576",2,0,0,"0",">PRINT LAST LINE" 56817,76,"567",2,0,0,"0",">PRINT MOD REGISTERS" 56900,PROCR,"569",,,,"","PRINT LOCATION OF SWITCHES" 56901,NOTES,"",,,,"","" 56902,52,"5",2,0,0,"0","" 56903,C,"595",16,0,0,"0","" 56904,80,"576",2,0,0,"0",">PRINT HEADING" 56905,90,"",0,0,1,"0","" 56906,C,"",0,0,0,"48","" 56907,91,"95",0,0,2,"0","" 56908,94,"569",10,0,2,"0","/////" 56909,76,"568",2,0,0,"0",">PRINT ITEM+" 56910,10,"",0,0,0,"0","" 56911,34,"584",8,0,0,"0","BITS 1-10" 56912,36,"95",2,0,2,"0","" 56913,70,"569",23,0,0,"0",">STEP R2" 56914,5,"583",4,0,0,"0","" 56915,,"95",2,0,2,"0","" 56916,32,"",0,0,0,"4-","" 56917,5,"583",2,0,0,"0","CHAP OF SWITCH" 56918,33,"",0,0,0,"6","CTR IN PROCR" 56919,124,"583",2,0,1,"0","" 56920,1,"72",17,0,0,"0","PROCR START" 56921,5,"583",3,0,0,"0","" 56922,80,"571",2,0,0,"0",">EDIT AND PRINT" 56923,94,"569",11,0,2,"1",">NEXT SWITCH" 56924,80,"576",2,0,0,"0",">PRINT LAST LINE" 56925,76,"568",2,0,0,"0",">PRINT ITEM+" 57000,PROCR,"570",,,,"","TO SORT OUT MR>3 AND ITEM+ COUNTERS" 57001,NOTES,"",,,,"","" 57002,81,"570",2,0,0,"0","" 57003,32,"",0,0,0,"6","" 57004,5,"583",2,0,0,"0","CHAP" 57005,32,"",0,0,0,"2","CTR IN PROCR" 57006,124,"583",2,0,1,"0","" 57007,1,"72",17,0,0,"0","PROCR START" 57008,5,"583",3,0,0,"0","" 57009,32,"",0,0,0,"2","" 57010,5,"583",4,0,0,"0","SEC NO/MOD REG WAS Q1.2" 57011,82,"570",2,0,0,"0","" 57100,PROCR,"571",,,,"","EDIT AND OUTPUT DETAIL FOR TRANSLATOR'S WORKING SECTIONS" 57101,NOTES,"",RADIX,,,"","" 57102,81,"571",2,0,0,"0","" 57103,0,"583",2,0,0,"0","" 57104,80,"578",2,0,0,"0","TO DEC" 57105,5,"583",2,0,0,"0","" 57106,0,"583",3,0,0,"0","" 57107,80,"578",2,0,0,"0","" 57108,5,"583",3,0,0,"0","" 57109,0,"583",4,0,0,"0","" 57110,80,"578",2,0,0,"0","" 57111,5,"583",4,0,0,"0","" 57112,62,"",0,0,0,"0","BIN" 57113,52,"5",2,0,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000426.JPG",,,,"","ChuckK/Q1000426" 57114,C,"595",20,0,0,"0","" 57115,94,"571",19,0,1,"6",">LINE NOT FULL" 57116,80,"576",2,0,0,"0",">PRINT" 57117,90,"",0,0,1,"0","" 57118,C,"",0,0,0,"48","" 57119,82,"571",2,0,0,"0","" 57200,PROCR,"572",,,,"","READ A2" 57201,NOTES,"",,,,"","" 57202,81,"572",2,0,0,"0","" 57203,42,"A2",0,0,0,"0","" 57204,C,"8",0,0,0,"0","" 57205,82,"572",2,0,0,"0","" 57300,PROCR,"573",,,,"","INPUT OFF PASS 2" 57301,NOTES,"",RADIX,B,,"","SUB ROUTINE" 57302,81,"573",2,0,0,"0","" 57303,94,"573",7,0,2,"8","STANDARD INCREMENT" 57304,80,"574",2,0,0,"0","READ A6->SEC 9" 57305,90,"",0,0,2,"0","" 57306,C,"",0,0,0,"144","" 57307,82,"573",2,0,0,"0","" 57400,PROCR,"574",,,,"","INPUT" 57401,NOTES,"",RADIX,B,,"","SUB ROUTINE" 57402,81,"574",2,0,0,"0","" 57403,42,"A6",0,0,0,"0","" 57404,C,"9",0,0,0,"0","" 57405,82,"574",2,0,0,"0","" 57500,PROCR,"575",,,,"","WRITE ON WORKING TAPE" 57501,NOTES,"",,,,"","" 57502,81,"575",2,0,0,"0","" 57503,55,"8",4,1,0,"50","COPY ANNEXES" 57504,C,"9",4,1,0,"0","" 57505,0,"583",56,1,0,"0","BEW" 57506,5,"9",52,1,0,"0","" 57507,43,"A6",0,0,0,"0","" 57508,C,"9",0,0,0,"0","" 57509,54,"9",0,0,0,"52","" 57510,82,"575",2,0,0,"0","" 57600,PROCR,"576",,,,"","PRINT" 57601,NOTES,"",RADIX,B,,"","SUB ROUTINE" 57602,81,"576",2,0,0,"0","" 57603,62,"",0,0,0,"0","" 57604,,"583",56,1,0,"0","" 57605,5,"5",52,1,0,"0","BEW" 57606,,"587",9,0,0,"0","HEAD OF FORM OR TRAC1" 57607,5,"5",0,1,0,"0","FUNCTION WORD" 57608,10,"",0,0,0,"1","" 57609,5,"587",9,0,0,"0","" 57610,,"27",9,0,0,"0","" 57611,70,"576",16,0,0,"0",">PRINTER" 57612,55,"5",0,1,0,"50","" 57613,C,"10",4,1,6,"0","" 57614,80,"580",2,0,0,"0",">WRITE ON A9" 57615,76,"576",38,0,0,"0","" 57616,,"27",8,0,0,"0","PRINTER TYPE" 57617,12,"",0,0,0,"9","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000427.JPG",,,,"","RayS/Q1000427" 57618,70,"576",34,0,0,"0",">SPECIAL" 57619,10,"",0,0,0,"80000","" 57620,5,"5",1,0,0,"0","BIT 40" 57621,124,"999",15,1,2,"0","SEC 5" 57622,124,"",0,0,2,"0","" 57623,124,"999",13,1,2,"0","SEC 10" 57624,129,"",0,0,1,"0","" 57625,10,"",0,0,0,"4","" 57626,30,"",0,0,0,"5","" 57627,1,"999",7,0,0,"0","ROUTE" 57628,34,"999",12,0,0,"0","" 57629,125,"",4096,1,1,"0","" 57630,124,"999",0,0,3,"0","" 57631,123,"",160,0,2,"0","" 57632,62,"",0,0,0,"0","" 57633,76,"576",38,0,0,"0","" 57634,55,"5",0,1,0,"54","" 57635,C,"10",0,1,0,"0","" 57636,10,"",0,0,0,"9","" 57637,76,"576",26,0,0,"0","" 57638,54,"5",0,0,0,"50","" 57639,5,"16",1,0,0,"0","CLEAR INDICATOR" 57640,82,"576",2,0,0,"0","" 57700,PROCR,"577",,,,"","OUTPUT ON A2" 57701,NOTES,"",RADIX,B,,"","SUB ROUTINE" 57702,81,"577",2,0,0,"0","" 57703,,"583",56,1,0,"0","BEW" 57704,5,"8",52,1,0,"0","" 57705,43,"A2",0,0,0,"0","OUTPUT" 57706,C,"8",0,0,0,"0","" 57707,54,"8",0,0,0,"52","CLEAR" 57708,82,"577",2,0,0,"0","" 57800,PROCR,"578",,,,"","CONVERT (A) TO DECIMAL" 57801,NOTES,"",,,,"","" 57802,81,"578",2,0,0,"0","" 57803,5,"585",4,1,0,"0","" 57804,60,"",0,0,0,"0","" 57805,124,"586",22,0,2,"0","" 57806,112,"585",4,1,0,"0","" 57807,82,"578",2,0,0,"0","" 57900,PROCR,"579",,,,"","CONVERT (A) TO BIN" 57901,NOTES,"",,,,"","" 57902,81,"579",2,0,0,"0","" 57903,5,"585",4,1,0,"0","" 57904,62,"",0,0,0,"0","" 57905,124,"586",2,0,2,"0","" 57906,112,"585",4,1,0,"0","" 57907,82,"579",2,0,0,"0","" 58000,PROCR,"580",,,,"","O/P>A9" 58002,81,"580",2,0,0,"0","" 58003,94,"580",9,0,6,"50","" 58004,,"583",56,1,0,"0","BEW" 58005,5,"10",306,1,0,"0","" 58006,80,"581",2,0,0,"0","" 58007,90,"",0,0,6,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000428.JPG",,,,"","RayS/Q1000428" 58008,C,"",0,0,0,"300","" 58009,82,"580",2,0,0,"0","" 58100,PROCR,"581",,,,"","WRITE A9" 58102,81,"581",2,0,0,"0","" 58103,10,"",0,0,0,"800000","" 58104,34,"999",12,0,0,"0","SEC 10" 58105,125,"",4096,1,1,"0","" 58106,1,"999",7,0,0,"0","D1/A9" 58107,124,"999",0,0,3,"0","" 58108,123,"",160,0,2,"0","" 58109,82,"581",2,0,0,"0","" 58200,CONST,"582",,1,,"","PASS 3 BLISTER SPACE" 58202,,"(D)0;",,,,"","" 58204,,"0;",,,,"","" 58206,,"0;",,,,"","" 58208,,"0;",,,,"","" 58210,,"0;",,,,"","" 58212,,"0;",,,,"","" 58214,,"0;",,,,"","" 58216,,"0;",,,,"","" 58218,,"0;",,,,"","" 58220,,"0;",,,,"","" 58222,,"0;",,,,"","" 58224,,"0;",,,,"","" 58226,,"0;",,,,"","" 58228,,"0;",,,,"","" 58230,,"0;",,,,"","" 58232,,"0;",,,,"","" 58234,,"0;",,,,"","" 58236,,"0;",,,,"","" 58238,,"0;",,,,"","" 58240,,"0;",,,,"","" 58242,,"0;",,,,"","" 58244,,"0;",,,,"","" 58246,,"0;",,,,"","" 58248,,"0;",,,,"","" 58250,,"0;",,,,"","" 58252,,"0;",,,,"","" 58254,,"0;",,,,"","" 58256,,"0;",,,,"","" 58258,,"0;",,,,"","" 58260,,"0;",,,,"","" 58262,,"0;",,,,"","" 58264,,"0;",,,,"","" 58266,,"0;",,,,"","" 58268,,"0;",,,,"","" 58270,,"0;",,,,"","" 58272,,"0;",,,,"","" 58274,,"0;",,,,"","" 58276,,"0;",,,,"","" 58278,,"0;",,,,"","" 58280,,"0;",,,,"","" 58282,,"0;",,,,"","" 58284,,"0;",,,,"","" 58286,,"0;",,,,"","" 58288,,"0;",,,,"","" 58290,,"0;",,,,"","" 58292,,"0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000429.JPG",,,,"","RayS/Q1000429" 58294,,"0;",,,,"","" 58296,,"0;",,,,"","" 58298,,"0;",,,,"","" 58300,CONST,"583",1,,,"","" 58302,,"(A)F.PT.;",,,,"","" 58304,,"YES;",,,,"","" 58306,,"NO;",,,,"","" 58308,,"MOD.;",,,,"","" 58310,,"GP.;",,,,"","" 58312,,"PRIOR;",,,,"","" 58314,,"ITY;",,,,"","" 58316,,"FIRST;",,,,"","" 58318,,"LOCN.;",,,,"","" 58320,,"CHAPT;",,,,"","" 58322,,"TYPE£;",,,,"","" 58324,,"FILES;",,,,"","" 58326,,"TRAN.;",,,,"","" 58328,,"AREAS;",,,,"","" 58330,,"ALT.R;",,,,"","" 58332,,"OUTES;",,,,"","" 58334,,"PROGR;",,,,"","" 58336,,"AMME;",,,,"","" 58338,,"SERIA;",,,,"","" 58340,,"ID.;",,,,"","" 58342,,"RTE.;",,,,"","" 58344,,"TYPE;",,,,"","" 58346,,"ST.OF;",,,,"","" 58348,,"BLOCK;",,,,"","" 58350,,"SIZE;",,,,"","" 58352,,"SIT;",,,,"","" 58354,,"PREND;",,,,"","" 58356,,"(D)7.0000007.;",,,,"","" 58358,,"(A)= CH/;",,,,"","" 58360,,"(D)6£6£6£6£6£;",,,,"","" 58362,,"(A)SEC;",,,,"","" 58364,,"TION.;",,,,"","" 58366,,"PROC;",,,,"","" 58368,,"EDURE;",,,,"","" 58370,,"PASS3;",,,,"","" 58372,,"(A)MR'S ;",,,,"","" 58374,,"4-20 ;",,,,"","" 58376,,"ITEM+;",,,,"","" 58378,," CTRS;",,,,"","" 58380,,"SWITC;",,,,"","" 58382,,"HES ;",,,,"","" 58384,,"(A)START;",,,,"","" 58386,,"NOTES;",,,,"","" 58388,,"SPOOL;",,,,"","" 58390,,"ENTRY;",,,,"","" 58392,,"(B)100000;",,,,"","100,000" 58400,CONST,"584",1,,,"","" 58402,,"(D)5.5.;",,,,"","" 58404,,"(A)INDEX;",,,,"","" 58406,,"CHAIN;",,,,"","" 58408,,"(D)7£££0003££;",,,,"","BITS 5-19+1-10" 58410,,"(A)08000;",,,,"","" 58412,,"PTS I;",,,,"","" 58414,,"NCLUD;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000430.JPG",,,,"","RayS/Q1000430" 58416,,"ED ;",,,,"","" 58500,CONST,"585",1,,,"","CONVERT TABLE" 58502,,"(D)1;",,,,"","BIN>DEC" 58504,,"0;",,,,"","(A) WL" 58600,CONST,"586",1,,,"","COMPLIER'S CONVERT TABLES" 58602,,"(D)1;",,,,"","DEC>BIN" 58604,,"t;",,,,"","" 58606,,"64;",,,,"","" 58608,,"3.8;",,,,"","" 58610,,"2710;",,,,"","" 58612,,"186t0;",,,,"","" 58614,,"£4240;",,,,"","" 58616,,"989680;",,,,"","" 58618,,"5£5.100;",,,,"","" 58620,,"3e9t+t00;",,,,"","" 58622,,"1;",,,,"","BIN>DEC" 58624,,"16;",,,,"","" 58626,,"256;",,,,"","" 58628,,"4096;",,,,"","" 58630,,"65536;",,,,"","" 58632,,"1048576;",,,,"","" 58634,,"16777216;",,,,"","" 58636,,"268435456;",,,,"","" 58638,,"4294967296;",,,,"","" 58640,,"££££££££££;",,,,"","" 58700,CONST,"587",0,,,"","" 58702,,"(D)7;",,,,"","" 58703,,"80000;",,,,"","" 58704,,"0;",,,,"","THIS IS A 0/1 FLIPFLOP FOR SC'S FWD" 58705,,"3£;",,,,"","BITS 1-6" 58706,,"£0000;",,,,"","£ IN Q5" 58707,,"7£;",,,,"","" 58708,,"80;",,,,"","HEAD OF FORM" 58709,,"0;",,,,"","IND FOR HEAD OF FORM" 58710,,"3£££0;",,,,"","BITS 5-18" 58800,TABLE,"588",1,,,"TRIAL DATA HEADING+T/W COMMENT","" 58801,NOTES,,,,,,,,,,,,,"TRI" 58900,TABLE,589,1,,,PRINT HEADING DATA,,,,,,,,"" 58901,NOTES,,,,,,,,,,,,,"THI" 58902,583,20,0,0,2,0,4,0,1,0,0,0,0,"" 58904,583,38,0,0,2,0,1,0,0,0,0,0,0,"" 58906,11,8,0,0,2,0,1,4,2,0,0,0,0,"" 58908,583,24,0,0,2,0,5,0,3,0,0,0,0,"" 58910,11,10,0,0,0,0,2,3,2,1,0,0,0,"" 58912,583,26,0,0,2,0,5,0,7,0,0,0,0,"" 58914,583,28,0,0,2,0,5,0,2,0,0,0,0,"" 58916,11,12,0,0,0,0,2,3,2,1,0,0,0,"" 58918,583,56,0,0,2,0,5,0,6,0,0,0,1,"" 58920,13,4,0,0,0,0,5,0,0,0,0,0,0,"" 58922,13,3,0,0,0,0,5,0,0,0,0,0,0,"" 58924,13,0,0,0,0,0,5,0,0,0,0,0,0,"" 58926,13,2,0,0,0,0,5,0,0,0,0,0,1,"" 59000,TABLE,590,1,,,PRINT,,,,,,,,"" 59001,NOTES,,,,,FIL,G LINE,,,,,,,"" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000431.JPG",,,,"","RayS/Q1000431" 59002,583,24,0,0,2,0,4,0,1,0,0,0,0,"" 59004,583,40,0,0,2,0,3,2,2,0,0,0,0,"FILE 10." 59006,583,42,0,0,2,0,4,1,6,0,0,0,0,"" 59008,583,44,0,0,2,0,4,1,2,0,0,0,0,"RTE. TYPE" 59010,583,84,0,0,2,0,5,0,6,0,0,0,0,"" 59012,583,18,0,0,2,0,5,0,2,0,0,0,0,"START LOCN." 59014,583,30,0,0,2,0,5,0,6,0,0,0,0,"" 59016,583,32,0,0,2,0,5,0,0,0,0,0,0,"ALT. ROUTES" 59018,583,48,0,0,2,0,5,0,4,0,0,0,0,"" 59020,583,50,0,0,2,0,5,0,1,0,0,0,0,"'BLOCK SIZE'" 59022,583,20,0,0,2,0,5,0,10,0,0,0,1,"CHAPT" 59100,TABLE,591,1,,,,,,,,,,,"PRINT HEADING DATA" 59101,NOTES,,,,,,,,,,,,,"4TH" 59102,583,50,0,0,2,0,5,0,3,0,0,0,0,"LGTH.OF CHAPS" 59104,583,46,0,0,2,0,2,3,2,0,0,0,0,"" 59106,583,20,0,0,2,0,4,0,2,0,0,0,0,"" 59108,583,38,0,0,2,0,1,0,0,0,0,0,0,"" 59110,13,0,0,0,0,0,5,0,2,4,2,0,0,"" 59112,13,1,0,0,0,0,5,0,2,4,2,0,0,"" 59114,13,2,0,0,0,0,5,0,2,4,2,0,0,"" 59116,13,3,0,0,0,0,5,0,2,4,2,0,0,"" 59118,13,4,0,0,0,0,5,0,2,4,2,0,0,"" 59120,13,5,0,0,0,0,5,0,2,4,2,0,0,"" 59122,13,6,0,0,0,0,5,0,2,4,2,0,1,"" 59124,13,0,0,0,0,0,5,0,0,0,0,0,0,"TX AREA DETAILS MT" 59126,13,2,0,0,2,0,5,0,0,0,0,0,0,"" 59128,13,4,0,0,2,0,5,0,0,0,0,0,1,"" 59200,TABLE,592,1,,,,,,,,,,,"PRINT HEADING DATA" 59201,NOTES,,,,,,,,,,,,,"SEC" 59202,583,2,0,0,2,0,5,0,4,0,0,0,0,"F.PT." 59204,13,0,0,0,2,0,3,2,2,0,0,0,0,"XXX" 59206,583,8,0,0,2,0,4,1,7,0,0,0,0,"" 59208,583,10,0,0,2,0,3,2,2,0,0,0,0,"MOD. GP." 59210,13,2,0,0,2,0,3,2,2,0,0,0,0,"XXX" 59212,583,12,0,0,2,0,5,0,7,0,0,0,0,"" 59214,583,14,0,0,2,0,3,2,0,0,0,0,0,"PRIORITY" 59216,11,4,0,0,2,0,1,4,2,0,0,0,0,"XXX" 59218,583,90,0,0,2,0,5,0,7,0,0,0,0,"'ENTRY'" 59220,583,58,0,0,2,0,4,0,0,0,0,0,0,"'= CH'" 59222,92,8,0,0,0,0,1,4,0,0,0,0,0,"CHAP NUMBER" 59224,583,58,0,0,2,0,1,4,0,0,0,0,0,"'/'" 59226,92,6,0,0,0,0,4,1,0,3,0,0,1,"LOCN IN CHAP" ,,,,,,,,,,,,,,"" 59300,TABLE,593,1,,,,,,,,,,,"PRINT FIRST HEADING LINE" 59301,NOTES,,,,,,,,,,,,,"" 59302,587,8,0,0,0,0,5,0,0,4,0,0,0,"CALL HEAD OF FORM" 59304,583,34,0,0,2,0,5,0,1,0,0,0,0,"" 59306,583,36,0,0,2,0,4,1,0,0,0,0,0,"" 59308,16,2,0,0,0,0,5,0,3,0,0,0,0,"PROG IDENTITY" 59310,583,38,0,0,2,0,5,0,3,0,0,0,0,"'SERIA-" 59312,583,18,0,0,2,0,1,0,0,0,0,0,0,"'-L'" 59314,16,3,0,0,0,0,5,0,3,4,0,0,0,"PROG SERIAL" 59316,583,20,0,0,2,0,4,0,15,0,0,0,0,"'CHAP-'" 59318,583,38,0,0,2,0,1,0,0,0,0,0,0,"-S'" 59320,92,29,0,0,0,0,1,4,2,0,0,0,0,"NUMBER OF CHAPS" 59322,583,24,0,0,2,0,5,0,3,0,0,0,0,"'FILES'" 59324,577,2,0,0,0,0,1,4,2,0,0,0,0,"NUMBER OF FILES" 59326,583,26,0,0,2,0,5,0,6,0,0,0,0,"'TRAN'" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000432.JPG",,,,"","DaveJ/Q1000432" 59328,583,28,0,0,2,0,5,0,2,0,0,0,0,"AREAS'" 59330,576,2,0,0,0,0,1,4,2,0,0,0,1,"NUMBER OF TX AREAS" 59400,TABLE,594,1,,,,,,,,,,,"PRINT" ,NOTES,FIL,,,,,,,,,,,,"" 59402,11,0,0,0,2,0,5,0,6,0,0,0,0,"FILE ID" 59404,583,2,0,0,0,0,4,0,12,3,0,0,0,"ROUTE TYPE" 59406,13,6,0,0,0,0,4,1,13,3,0,0,0,"START LOCATION" 59408,13,8,0,0,2,0,3,2,11,0,0,0,0,"ALT ROUTE" 59410,13,4,0,0,0,0,4,1,12,3,0,0,0,"LENGTH" 59412,13,2,0,0,0,0,4,1,12,3,0,0,1,"CHAPT'" 59414,583,26,0,0,2,0,5,0,1,0,0,0,0,"" 59416,583,28,0,0,2,0,5,0,2,0,0,0,0,"" 59418,583,84,0,0,2,0,5,0,2,0,0,0,0,"" 59420,583,18,0,0,2,0,5,0,2,0,0,0,0,"" 59422,583,20,0,0,2,0,5,0,7,0,0,0,0,"" 59424,583,50,0,0,2,0,5,0,6,0,0,0,1,"LGTH" 59426,583,2,0,0,0,0,5,0,5,5,0,0,0,"SEC NO" 59428,13,0,0,0,0,0,4,1,11,3,0,0,0,"START " 59430,596,2,0,0,0,0,1,4,13,0,0,0,0,"CHAPTER" 59432,13,4,0,0,0,0,4,1,7,3,0,0,1,"LENGTH" 59434,11,0,0,0,2,0,5,0,0,0,0,0,0,"SENTINEL MARK" 59436,11,2,0,0,2,0,5,0,0,0,0,0,0,"SENTINEL TYPE" 59438,11,4,0,0,2,0,5,0,0,0,0,0,0,"PROG ID NO" 59440,11,6,0,0,2,0,5,0,0,0,0,0,1,"SERIAL NO" 59500,TABLE,595,1,,,,,,,,,,,"" ,NOTES,EDI,,,,,,,,,,,,"" 59502,583,2,0,0,0,0,2,3,3,1,0,0,0,"SEQ NO" 59504,583,58,0,0,2,0,1,0,0,0,0,0,0,"='" 59506,583,3,0,0,0,0,4,1,0,3,0,0,1,"SECTION START" 59508,583,72,0,0,2,0,5,0,0,0,0,0,0,"MR'S 4-20" 59510,583,74,0,0,2,0,5,0,0,0,0,0,1,"" 59512,583,76,0,0,2,0,5,0,0,0,0,0,0,"ITEM+COUNTERS" 59514,583,78,0,0,2,0,5,0,0,0,0,0,1,"" 59516,583,80,0,0,2,0,5,0,0,0,0,0,0,"SWITCHES" 59518,583,82,0,0,2,0,5,0,0,0,0,0,1,"" 59520,583,4,0,0,0,0,5,0,0,4,0,0,0,"SW/MR/SEC" 59522,583,58,0,0,2,0,4,0,0,0,0,0,0,"=CH'" 59524,583,2,0,0,0,0,1,4,0,0,0,0,0,"CHAP NO" 59526,583,58,0,0,2,0,1,4,0,0,0,0,0,"/'" 59528,583,3,0,0,0,0,4,1,0,3,0,0,1,"POSITION" 59600,PROCR,"596",,0,0,"0","COPY CHUNK FROM STORE S/R" 59602,81,"596",2,0,0,"0","" 59603,96,"",0,0,2,"0","STORE CHUNK START FOR PARAS 1 AND 5" 59604,5,"598",2,0,0,"0","" 59605,124,"598",2,0,1,"0","" 59606,101,"",0,1,3,"0","" 59607,5,"598",6,0,0,"0","CHUNK START" 59608,124,"999",19,1,2,"0","SEC 8" 59609,124,"",0,0,2,"0","" 59610,3,"577",2,0,0,"0","WL" 59611,11,"",0,0,0,"30","48" 59612,30,"",0,0,0,"5","" 59613,1,"577",2,0,0,"0","" 59614,91,"",0,0,4,"0","" 59615,124,"598",4,0,3,"0","STORE WORD" 59616,106,"",0,0,2,"0","" 59617,5,"598",7,0,0,"0","STORE WORD" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000433.JPG",,,,"","DaveJ/Q1000433" 59618,34,"598",10,1,0,"0","FIRST LEVEL PARA WORD" 59619,33,"",0,0,0,"3","NEXT ONE TO A" 59620,100,"598",8,1,0,"0","STORE (A) (B) (C)" 59621,94,"596",29,0,5,"1","TEST END OF PARA WORD" 59622,90,"",0,0,5,"0","SET UP MR FOR" 59623,C,"",0,0,0,"6","NEXT PARA WORD" 59624,124,"598",4,0,3,"0","STORE PARA WORD" 59625,106,"",1,0,3,"0","STORE PARA WORD" 59626,33,"",0,0,0,"2","RIGHT ALIGN WORD" 59627,5,"598",11,0,0,"0","" 59628,94,"596",29,0,3,"1","STEP PARAS MR" 59629,,"598",8,0,0,"0","TEST DUMMY PARA" 59630,12,"",0,0,0,"6","" 59631,70,"596",18,0,0,"0","gYES" 59632,12,"",0,0,0,"1","TEST SECOND LEVEL REQD" 59633,71,"596",57,0,0,"0","gNO" 59634,34,"598",16,1,0,"0","SECOND LEVEL PARA WORD" 59635,33,"",0,0,0,"6","NEXT ONE TO A" 59636,100,"598",14,1,0,"0","STORE (A) (B) (C)" 59637,94,"596",45,0,8,"1","TEST END OF PARA WORD" 59638,90,"",0,0,8,"0","SET UP MR FOR" 59639,C,"",0,0,0,"3","NEXT PARA WORD" 59640,124,"598",4,0,3,"0","STORE PARA WORD" 59641,106,"",1,0,1,"0","" 59642,33,"",0,0,0,"2","RIGHT ALIGN WORD" 59643,5,"598",17,0,0,"0","" 59644,94,"596",45,0,1,"1","STEP PARAS MR" 59645,,"598",14,0,0,"0","TEST SECOND LEVEL " 59646,101,"",63,1,2,"0","PARA=63(DUMMY)" 59647,70,"596",34,0,0,"0","gYES" 59648,101,"",1,1,1,"0","TEST END SIGN(62)" 59649,71,"596",55,0,0,"0","gNO" 59650,,"598",4,1,0,"0","STORE END SIGN" 59651,5,"",4,1,4,"0","END SIGN" 59652,5,"",6,1,4,"0","" 59653,80,"577",2,0,0,"0","gWRITE LAST BLOCK" 59654,82,"596",2,0,0,"0","gLEAVE S/R" 59655,,"598",14,1,0,"0","STORE ACTUAL PARA" 59656,5,"598",8,1,0,"0","VALUE" 59657,,"598",8,0,0,"0","TEST PARA=1" 59658,12,"",0,0,0,"1","" 59659,70,"596",62,0,0,"0","gYES" 59660,12,"",0,0,0,"4","" 59661,71,"596",66,0,0,"0","gNO" 59662,35,"",0,0,0,"1111","ADJUST ORDER BY" 59663,36,"598",7,0,0,"0","CHUNK START" 59664,2,"598",6,0,0,"0","" 59665,37,"598",7,0,0,"0","" 59666,,"598",7,0,0,"0","" 59667,5,"",6,2,4,"0","" 59668,,"598",8,0,0,"0","" 59669,5,"",4,2,4,"0","" 59670,94,"596",71,0,2,"1","WORD MR" 59671,94,"596",15,0,4,"4","gNEXT WORD" 59672,80,"577",2,0,0,"0","gWRITE" 59673,76,"596",8,0,0,"0","gNEXT BLOCK" 59700,TABLE,"597",3,,,,"" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000434.JPG",,,,"","KenK/Q1000434" 0query,164,"",,,,"","image P100044 appears to have a bit missing from top, so I have taken first 3 lines from P1000433" ,NOTES,,,,,,,,,,,,,"UNP G BLOCK" 59702,16,16,0,0,0,0,5,0,0,0,0,0,0,"" 59704,587,2,0,0,0,0,5,0,0,0,0,0,0,"" 59706,16,2,0,0,0,0,5,0,0,0,0,0,0,"" 59708,16,3,0,0,0,0,5,0,0,0,0,0,0,"SERIAL" 59710,583,20,0,0,2,0,5,0,0,0,0,0,1," 'CHAPT'" 0query,164,"",,,,"","check item from original" 59712,583,28,0,0,2,0,5,0,0,0,0,0,0,"" 0query,164,"",,,,"","image poor – check original" 59714,16,16,0,0,0,0,5,0,3,4,0,0,1,"" 59716,11,0,0,0,2,0,5,0,0,0,0,0,0,"FILE IDENTITY" 59718,11,2,0,0,2,0,4,0,1,0,0,0,0,"ROUTE TYPE" 59720,11,8,0,0,2,0,5,0,0,0,0,0,0,"START LOCATION" 59722,11,4,0,0,2,0,5,0,0,0,0,0,0,"TWICE CHAP" 59724,11,6,0,0,2,0,5,0,0,0,0,0,0,"MAX BLOCK LENGTH" 59726,11,10,0,0,2,0,5,0,0,0,0,0,1,"ALT ROUTE" 59800,CONST,"598",,1,,"","CONSTANTS " 59802,,"(D)0;",,,,"","" 59804,,"(A)p ;",,,,"","" 59806,,"0;",,,,"","CHUNK START/ORDER " 59808,,"0;",,,,"","" 59810,,"0;",,,,"","" 59812,,"0;",,,,"","" 59814,,"0;",,,,"","" 59816,,"0;",,,,"","" 59818,,"0;",,,,"","" 59900,PROCR,"599",,,,"","DUMMY " 60000,PROCR,"600",,,,"","" 60100,PROCR,"601",,,,"","" 60200,PROCR,"602",,,,"","" 60300,PROCR,"603",,,,"","" 60400,PROCR,"604",,,,"","PREPARATORY STAGE " 60401,NOTES,"",RADIX,,,"","" 60402,10,"",0,0,0,"0","(29)TEST UNSUITABLE MASTER " 60403,127,"604",51,0,0,"0","gYES(REJECT G) " 60404,124,"611",6,0,2,"0","SET UP IND MODS " 60405,5,"604",28,0,0,"0","AT 15 BIT " 60406,124,"611",8,0,2,"0","ADDRESS " 60407,5,"604",31,0,0,"0","" 60408,124,"611",12,0,2,"0","" 60409,5,"604",47,0,0,"0","" 60410,12,"",0,0,0,"4","" 60411,4,"611",5,0,0,"0","TO ALLOW ROOM " 60412,4,"611",13,0,0,"0","FOR 'A' AND 'B' " 60413,10,"",0,0,0,"0","(31)TEST 2 STORES " 60414,70,"604",16,0,0,"0","gNO " 60415,76,"604",18,0,0,"0","" 60416,,"611",5,0,0,"0","SET UP MR FOR " 60417,5,"611",3,0,0,"0","ONE STORE AREA " 60418,124,"611",6,0,3,"0","" 60419,106,"",0,0,0,"0","NEXT PROG IDENTITY " 60420,70,"605",2,0,0,"0","gUNLOAD THIS PROGRAM " 60421,10,"",0,0,0,"2","STEP CTR " 60422,4,"611",8,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000435.JPG",,,,"","KenK/Q1000435" 60423,124,"611",6,0,3,"0","MOVE DETAIL DOWN " 60424,106,"",0,1,0,"0","" 60425,124,"611",8,0,3,"0","" 60426,102,"",0,1,0,"0","" 60427,123,"",2,0,0,"0","(REENTRY AFTER UNLOAD) " 60428,100,"611",6,0,0,"0","" 60429,76,"604",18,0,0,"0","" 60430,123,"",2,0,0,"0","gNEXT ENTRY " 60431,100,"611",8,0,0,"0","" 60432,76,"604",34,0,0,"0","" 60433,76,"604",38,0,0,"0","gLAST ENTRY " 60434,,"611",10,1,0,"0","SET 10Xp IN REMAINING " 60435,124,"611",8,0,3,"0","PQ LOCNS " 60436,102,"",0,1,0,"0","" 60437,76,"604",30,0,0,"0","" 60438,124,"611",12,0,3,"0","FIND SUFFICIENT STORE " 60439,106,"",1,0,0,"0","AREA FOR NEXT CHAP(500 LOCNS) " 60440,2,"611",10,0,0,"0","ppppp " 60441,70,"604",46,0,0,"0","gSKIP END SIGNS, TRUST MR " 60442,1,"611",10,0,0,"0","" 60443,118,"",0,0,0,"0","DUMMY " 60444,101,"",516,1,2,"0","" 60445,72,"604",54,0,0,"0","" 60446,123,"",2,0,0,"0","" 60447,100,"611",12,0,0,"0","" 60448,76,"604",38,0,0,"0","" 60449,10,"",0,0,0,"0","" 60450,12,"",0,0,0,"4","C COMMENT " 60451,11,"",0,0,0,"57","G COMMENT " 60452,124,"611",14,0,3,"0","" 60453,124,"",0,1,0,"0","(14)->REJECT " 60454,124,"611",12,0,3,"0","" 60455,106,"",0,0,0,"0","15-BIT START " 60456,124,"611",14,0,3,"0","" 60457,103,"",28,0,0,"0","R2 MODIFIER " 60458,124,"611",14,0,3,"0","" 60459,103,"",0,0,0,"0","PLANT S/R LINK " 60460,34,"611",19,0,0,"0","BITS 1-13 " 60461,114,"611",19,0,0,"0","" 60462,,"611",19,0,0,"0","CHUNK START PARA " 60463,124,"611",14,0,3,"0","" 60464,102,"",1,0,0,"0","" 60465,101,"",0,1,3,"0","" 60466,124,"611",14,0,3,"0","SECOND ORDER " 60467,124,"",1,1,0,"0","gLOAD CHAP S/R " 60500,PROCR,"605",,,,"","UPDATE PREVIOUS SWITCH,UNLOAD FP/MG/TAG " 60501,NOTES,"",RADIX,,,"","" 60502,35,"",0,0,0,"1111","Q1-4B,A CLEAR " 60503,124,"611",6,0,3,"0","" 60504,115,"",1,0,0,"0","START OF SWITCH " 60505,5,"604",2,1,0,"0","" 60506,124,"604",2,0,3,"0","" 60507,106,"",37,0,0,"0","SI+37 " 60508,5,"611",18,0,0,"0","SPECIAL CHAPTER START " 60509,124,"611",8,0,3,"0","" 60510,106,"",1,0,0,"0","SWITCH START OF PROC ABOVE THIS " 60511,124,"611",14,0,3,"0","" 60512,102,"",30,1,0,"0","SET R3 " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000436.JPG",,,,"","RayS/Q1000436" 60513,126,"604",2,1,2,"0","THIS SWITCH STARTS>R2" 60514,124,"611",14,0,3,"0","" 60515,126,"",0,0,0,"0",">'UPDATE SWITCH' S/R" 60516,124,"611",18,0,3,"0","" 60517,106,"",0,0,0,"0","FP USED" 60518,70,"605",28,0,0,"0",">NO" 60519,126,"611",14,1,2,"0","6/0" 60520,101,"",14,1,3,"0","" 60521,124,"611",14,0,3,"0","" 60522,123,"",128,1,2,"0","TAG 14" 60523,10,"",0,0,0,"0","" 60524,124,"611",14,0,3,"0","" 60525,102,"",128,1,2,"0","CLEAR" 60526,125,"",2,0,2,"0","" 60527,76,"605",20,0,0,"0","" 60528,124,"611",18,0,3,"0","" 60529,106,"",1,0,0,"0","MOD GROUP" 60530,70,"605",39,0,0,"0",">NOT USED" 60531,31,"",0,0,0,"3","" 60532,5,"604",2,0,0,"0","STORE 8M" 60533,126,"611",14,1,2,"0","6/0" 60534,101,"",14,1,3,"0","" 60535,124,"604",2,0,3,"0","" 60536,123,"",2,1,2,"0","TAG 14 INTO MOD GROUP" 60537,125,"",2,0,2,"0","" 60538,76,"605",35,0,0,"0","" 60539,124,"611",18,0,3,"0","SPECIAL CHAP START" 60540,106,"",10,0,0,"0","ALLOCATED TAG" 60541,3,"604",2,0,0,"0","W/L" 60542,32,"",0,0,0,"1-","TAG TO Q10B" 60543,124,"604",2,0,3,"0","" 60544,118,"",0,1,0,"0","SHIFT TAGX TO QXA" 60545,124,"611",14,0,3,"0","ZERO" 60546,107,"",0,1,0,"0","AUG TAG AVAILABILITY LOCN" 60547,124,"611",18,0,3,"0","SPECIAL CHAP" 60548,126,"",18,1,2,"0","2X(R+T)" 60549,126,"611",14,1,3,"0","6:0 FLIP FLOP" 60550,125,"",3,0,3,"0","" 60551,125,"",3,0,3,"0","" 60552,76,"606",4,0,0,"0","" 60553,126,"611",14,1,3,"0","06:00" 60554,124,"611",18,0,3,"0","NEXT ROUTE DETAIL" 60555,106,"",34,1,2,"0","" 60556,72,"606",4,0,0,"0","" 60557,125,"",3,0,3,"0",">NOT DEALLOCATED BY PROGRAM" ,,"",,,,"","" 60600,PROCR,"606",,,,"","UNLOAD ROUTES AND PSEUDO ROUTES" 60601,NOTES,"",RADIX,,,"","103" 60602,125,"",1,0,2,"0","" 60603,76,"606",40,0,0,"0",">ALREADY DEALLOCATED" 60604,124,"611",18,0,3,"0","" 60605,106,"",34,0,2,"0","NEXT DETAIL" 60606,32,"",0,0,0,"4-","" 60607,5,"604",13,0,0,"0","Q5=ROUTE TYPE" 60608,32,"",0,0,0,"2","" 60609,10,"",0,0,0,"0","" 60610,32,"",0,0,0,"2","Q1,2=ROUTE" 60611,70,"606",40,0,0,"0","" 60612,101,"",128,1,2,"0","(32)TEST ALT ROUTE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000437.JPG",,,,"","RayS/Q1000437" 60613,70,"606",40,0,0,"0",">YES" 60614,101,"",128,1,1,"0","(32)" 60615,3,"604",14,0,0,"0","ROUTE" 60616,32,"",0,0,0,"1-","" 60617,33,"",0,0,0,"1","STORE 8XCHANNEL" 60618,118,"",3,0,3,"0","" 60619,5,"604",15,0,0,"0","" 60620,33,"",0,0,0,"3","" 60621,5,"604",16,0,0,"0","STORE RTE NO MOD 8" 60622,,"604",13,0,0,"0","ROUTE TYPE" 60623,71,"606",25,0,0,"0","" 60624,,"611",16,0,0,"0","0££££" 60625,124,"604",14,0,3,"0","" 60626,102,"",64,0,0,"0","" 60627,124,"604",15,0,3,"0","UPDATE ASSEMBLER TABLE" 60628,106,"",0,0,0,"0","(12)" 60629,2,"604",14,0,0,"0","" 60630,71,"606",34,0,0,"0",">NOT THIS ROUTE" 60631,,"611",10,0,0,"0","SET £££££" 60632,124,"604",15,0,3,"0","" 60633,102,"",0,1,0,"0","(12)" 60634,101,"",1,0,1,"0","" 60635,101,"",0,1,3,"0","" 60636,124,"604",16,0,3,"0","ROUTE IN CHANNEL" 60637,118,"",0,1,0,"0","" 60638,124,"604",15,0,3,"0","" 60639,114,"",2,1,0,"0","(12)" 60640,125,"",1,0,2,"0","" 60641,76,"605",51,0,0,"0",">ALT ROUTE OR NEXT ROUTE" 60700,PROCR,"607",,,,"","UNLOAD STORAGE, CLEAR/SET TAG 14" 60701,NOTES,"",RADIX,,,"","104 PREP STAGE" 60702,124,"611",18,0,3,"0","SPECIAL CHAP START" 60703,126,"",16,1,2,"0","(2XCHAPS):0" 60704,124,"611",18,0,3,"0","" 60705,106,"",20,1,2,"0","" 60706,5,"604",2,1,0,"0","END/START NEXT CHAP" 60707,126,"604",2,1,3,"0","" 60708,101,"",14,1,3,"0","" 60709,124,"611",14,0,3,"0","" 60710,123,"",0,1,3,"0","STACK TAG 14 EVERY WHERE" 60711,125,"",2,0,3,"0","" 60712,76,"607",9,0,0,"0","" 60713,126,"604",2,1,3,"0","START/END NEXT CHAP" 60714,,"604",2,0,0,"0","START" 60715,2,"611",18,0,0,"0","SPECIAL CHAP START" 60716,71,"607",20,0,0,"0",">NOT SP CHAP" 60717,125,"",500,0,3,"0","DON'T CLEAR FIRST 500" 60718,76,"607",20,0,0,"0","" 60719,76,"608",2,0,0,"0",">NONE TO CLEAR" 60720,10,"",0,0,0,"0","" 60721,124,"611",14,0,3,"0","" 60722,102,"",0,1,3,"0","" 60723,125,"",2,0,3,"0","" 60724,76,"607",21,0,0,"0","" ,,"",,,,"","" 60800,PROCR,"608",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000438.JPG",,,,"","RayS/Q1000438" 60801,NOTES,"",RADIX,,,"","105" 60802,10,"",0,0,0,"0","(31) TEST 2 STORES" 60803,70,"608",9,0,0,"0",">NO" 60804,0,"604",2,0,0,"0","CHAP START" 60805,2,"610",37,0,0,"0","CONST=DIV 4/0" 60806,73,"608",9,0,0,"0",">CHAP IN FIRST STORE" 60807,0,"611",22,1,0,"0","FOR SECOND" 60808,76,"608",10,0,0,"0","" 60809,0,"611",20,1,0,"0","FOR FIRST" 60810,5,"604",16,1,0,"0","" 60811,126,"604",16,1,1,"0","SET UP MRS" 60812,126,"604",16,1,3,"0","" 60813,124,"611",14,0,3,"0","NEXT STRIP" 60814,106,"",0,1,3,"0","" 60900,PROCR,"609",,,,"","UNLOAD NEXT CHAP-LOOK FOR JOINS" 60901,NOTES,"",RADIX,,,"","106" 60902,05,"604",12,1,0,"0","W/L" 60903,00,"604",12,0,0,"0","NEXT STRIP START" 60904,70,"609",22,0,0,"0",">DUMMY, STEP R3" 60905,2,"611",10,0,0,"0","£££££" 60906,70,"609",36,0,0,"0",">LIST END" 60907,00,"604",12,0,0,"0","STRIP START" 60908,01,"604",13,0,0,"0","STRIP LENGTH" 60909,5,"604",15,0,0,"0","=STRIP END" 60910,34,"611",19,0,0,"0","BITS1-13" 60911,36,"604",12,0,0,"0","STRIP START" 60912,70,"609",17,0,0,"0",">START IS DIVISION BOUNDARY" 60913,00,"604",12,0,0,"0","STRIP START" 60914,2,"604",3,0,0,"0","CHAP END" 60915,70,"609",24,0,0,"0",">JOINS UP" 60916,10,"",0,0,0,"0","" 60917,36,"604",15,0,0,"0","" 60918,70,"609",22,0,0,"0",">STRIP END IS DIVISION BOUNDARY" 60919,,"604",15,0,0,"0","STRIP END" 60920,2,"604",2,0,0,"0","CHAP START" 60921,70,"609",28,0,0,"0",">JOINS UP" 60922,125,"",2,0,3,"0","" 60923,76,"608",13,0,0,"0",">NEXT STRIP" 60924,,"604",2,0,0,"0","CHAP START" 60925,32,"",0,0,0,"5-","" 60926,1,"604",15,0,0,"0","STRIP END" 60927,76,"609",31,0,0,"0","" 60928,00,"604",12,0,0,"0","STRIP START" 60929,32,"",0,0,0,"5-","" 60930,1,"604",3,0,0,"0","CHAP END" 60931,32,"",0,0,0,"5","" 60932,5,"604",2,1,0,"0","STORE SUPERCHAP" 60933,124,"611",14,0,3,"0","CLEAR STRIP DETAIL" 60934,102,"",0,1,3,"0","" 60935,76,"608",12,0,0,"0",">LOOP AGAIN" 60936,2,"604",2,0,0,"0","START" 60937,4,"604",3,0,0,"0","CHANGE END OF LENGTH" ,,"",,,,"","" 61000,PROCR,"610",,,,"","SORT NEXT ITEM INTO STORAGE LIST" 61001,NOTES,"",RADIX,,,"","107" 61002,124,"604",16,0,3,"0","CTR" 61003,106,"",0,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000439.JPG",,,,"","RayS/Q1000439" 61004,3,"611",24,1,0,"0","W/L" 61005,70,"610",25,0,0,"0",">DUMMY STEP CTR" 61006,2,"611",10,1,0,"0","£X10" 61007,70,"610",28,0,0,"0",">END ROUTINE" 61008,,"611",24,1,0,"0","" 61009,2,"604",2,1,0,"0","DETAIL TO INSERT" 61010,73,"610",17,0,0,"0",">NOT YET" 61011,,"604",2,1,0,"0","" 61012,124,"611",14,0,3,"0","" 61013,102,"",0,1,1,"0","WRITE INTO LIST" 61014,,"611",24,1,0,"0","" 61015,5,"604",2,1,0,"0","INSERT OVERWRITTEN ITEM NEXT TIME" 61016,76,"610",20,0,0,"0","" 61017,,"611",24,1,0,"0","WRITE ITEM BACK" 61018,124,"611",14,0,3,"0","" 61019,102,"",0,1,1,"0","" 61020,125,"",2,0,1,"0","STEP MR1" 61021,76,"610",25,0,0,"0","" 61022,10,"",0,0,0,"51","TOO MANY STRIPS" 61023,124,"611",14,0,3,"0","INTERNAL IMPOSSIBILITY" 61024,124,"",0,1,0,"0","(13)>XXXA" 61025,10,"",0,0,0,"2","STEP CTR" 61026,4,"604",16,0,0,"0","" 61027,76,"610",2,0,0,"0",">NEXT STRIP" 61028,,"604",2,1,0,"0","INSERT FINAL DETAILS" 61029,124,"611",14,0,3,"0","" 61030,102,"",0,1,1,"0","" 61031,,"611",10,1,0,"0","" 61032,124,"611",14,0,3,"0","" 61033,102,"",2,1,1,"0","" 61034,125,"",2,0,2,"0","STEP MR2" 61035,76,"607",4,0,0,"0",">UNLOAD NEXT CHAP" 61036,76,"604",27,0,0,"0",">UNLOAD NEXT PROGR" 61037,100,"",0,1,0,"0","CONSTANT=DIV 4/0" 61038,,"604",2,0,0,"0","" 61039,10,"",0,0,0,"0","DUMMY" 61100,CONST,"611",0,,,"","108" 61102,,"(D)0;",,,,"","(30)START FIRST TABLE" 61103,,"0;",,,,"","(31)START LAST TABLE" 61104,,"0;",,,,"","(31)DO" 61105,,"0;",,,,"","(3)END+4 OF LAST AREA" 61106,,"2;",,,,"","(29)START PQ" 61107,,"0;",,,,"","(30)END PQ" 61108,,"0;",,,,"","(29)END PQ" 61109,,"0;",,,,"","(20)START PQ" 61110,,"£££££;",,,,"","" 61111,,"£££££;",,,,"","" 61112,,"0;",,,,"","(30)START FIRST AREA" 61113,,"0;",,,,"","(3)END+4 OF LAST AREA" 61114,,"0;",,,,"","" 61115,,"6;",,,,"","" 61116,,"££££;",,,,"","" 61117,,"£0000;",,,,"","" 61118,,"0;",,,,"","" 61119,,"1£££;",,,,"","" 61120,,"0;",,,,"","(30)FIRST STORE" 61121,,"0;",,,,"","" 61122,,"0;",,,,"","(31)SECOND STORE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000440.JPG",,,,"","RayS/Q1000440" 61123,,"0;",,,,"","" 61124,,"0;",,,,"","W/L FOR STRIP DETAIL" 61125,,"0;",,,,"","" 61126,,"0;",,,,"","BLISTER SPACE" 61127,,"0;",,,,"","" 61200,PROCR,"612",,,,"","DUMMY PROCEDURE START OF ALLOC STORAGE" 61201,NOTES,"",RADIX,,,"","201" 61300,PROCR,"613",,,,"","SET UP 1 OR 2 STORE AREAS" 61301,NOTES,"",RADIX,,,"","202 STORE FOR CHAP DETAILS" 61302,101,"",0,1,3,"0","(31)TEST 2 STORES" 61303,70,"613",14,0,0,"0",">1 AREA" 61304,10,"",0,0,0,"0","" 61305,12,"",0,0,0,"1","" 61306,4,"621",6,0,0,"0","SET SWITCH=2" 61307,10,"",0,0,0,"0","" 61308,2,"613",17,0,0,"0","" 61309,4,"622",30,0,0,"0","(71>73 ORDER)" 61310,101,"",0,1,3,"0","(31)FORM FIRST TABLE LENGTH" 61311,101,"",0,1,2,"0","(30)" 61312,4,"614",20,0,0,"0","ADJUST MR SETTING" 61313,4,"621",23,0,0,"0","ADJUST ORDERS" 61314,124,"613",26,0,3,"0","" 61315,126,"",0,0,0,"0","(7)>READ BLOCK" 61316,76,"616",2,0,0,"0","" 61317,100,"",0,0,2,"0","CONSTANT" 61318,100,"",1,0,0,"0","COLLATION CONST" 61319,100,"",0,0,0,"0","INIT CHAP COLL CONST" 61320,100,"",0,0,0,"0","TOT CHAPS FOR ALLOCATION" 61321,100,"",0,0,0,"0","?" 61322,100,"",0,0,0,"0","?" 61323,100,"",0,0,0,"0","VBLE BIT PATTERN" 61324,100,"",0,0,0,"0","START OF ALLOC IN STRIP" 61325,100,"",0,0,0,"0","ZERO CONST)" 61326,100,"",0,0,0,"0",";)R1 WL" 61327,100,"",0,0,0,"0","TOTAL LENGTH COUNTER" 61328,100,"",0,0,0,"0","W/L FOR ALLOC CHAPS" 61329,100,"",0,0,0,"0","COLLATION CONSTANT" 61330,100,"",1,0,0,"0","MIN WASTAGE BIT PATTERN" 61331,100,"",0,0,0,"0","" 61400,PROCR,"614",,,,"","STORE CARRIED FORWARD DETAILS" 61401,NOTES,"",RADIX,,,"","203" 61402,124,"614",20,0,3,"0","BULK COPY TO" 61403,128,"",250,0,0,"0","MIDDLE OF SPECIAL CHAP" 61404,124,"614",20,0,3,"0","" 61405,124,"",250,1,0,"0",">NEW POSITION OF NEXT ORDER" 61406,106,"614",18,1,0,"0","COPY 40 LOCNS STORAGE TABLE TO CHAP 1/80" 61407,124,"614",42,0,3,"0","" 61408,128,"",80,0,0,"0","" 61409,106,"614",16,1,0,"0","COPY 54 LOCNS MISC TO START OF EXTRA CHA" 61410,124,"614",20,0,3,"0","" 61411,128,"",0,0,0,"0","" 61412,101,"",0,1,3,"0","PARA TABLE START" 61413,124,"614",15,0,3,"0","" 61414,124,"",1,1,0,"0","(6)>LOAD CHAP" 61415,100,"",0,0,0,"0","ZERO" 61416,100,"",16,0,0,"0","TABLE ENTRIES" 61417,100,"",54,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000441.JPG",,,,"","ChuckK/Q1000441" 61418,100,"",70,0,0,"0","" 61419,100,"",40,0,0,"0","" 61420,100,"",0,0,0,"0","W/L'S FOR BEGIN/END" 61421,100,"",0,0,0,"0","OF STORE AREAS" 61500,CONST,"615",0,,,"","204 DUMMY PROCEDURE FOR OVERWRITE" 61502,,"(B)64-;",,,,"","(11)MASTER PSEUDO" 61503,,"0;",,,,"","" 61600,PROCR,"616",,,,"","INPUT CD DEAL WITH ANNEXES W/L'S" 61601,NOTES,"",RADIX,,,,"205" 61602,124,"615",2,1,2,"0","UNPACK ALPHA->NUMERIC" 61603,124,"",25,0,2,"0","CHAP DETAILS" 61604,32,"",0,0,0,"5-","" 61605,101,"",28,1,3,"0","" 61606,32,"",0,0,0,"5","" 61607,128,"612",3,1,0,"0","" 61608,124,"615",2,1,2,"0","UNPACK ALPHA->NUMERIC" 61609,124,"",5,0,2,"0","GENERAL DETAILS" 61610,32,"",0,0,0,"5-","" 61611,101,"",20,1,3,"0","" 61612,32,"",0,0,0,"5","" 61613,128,"615",2,1,0,"0","" 61614,,"612",10,1,0,"0","TRANSFER PROG" 61615,5,"615",14,1,0,"0","SERIAL AND IDENTITY" 61616,101,"612",2,1,3,"0","TEST IF PTS REQD ALLOC COMMENT" 61617,33,"",0,0,0,"3","" 61618,32,"",0,0,0,"1-","STORE PARAS FOR" 61619,5,"615",12,0,0,"0","ALLOC ROUTES" 61620,33,"",0,0,0,"1","" 61621,3,"615",13,0,0,"0","STORE'TRIALS ALLOC'IND" 61622,70,"616",30,0,0,"0",">NOT TRIALS ALLOCATED" 61623,101,"",0,1,3,"0","(28)PTS IN MASTER?" 61624,70,"616",30,0,0,"0",">YES" 61625,3,"615",3,0,0,"0","RESERVE MOD GROUP" 61626,0,"619",14,0,0,"0","" 61627,5,"617",21,0,0,"0","(TO STEP CTR IF PTS CHAP NEEDED)" 61628,101,"",1500,1,3,"0","PTS SIZE" 61629,4,"620",10,0,0,"0","AUGMENT SPECIALSIZE" 61630,124,"615",6,0,1,"0","FIRST SPECIAL CHAP (CHAPS INITIALLY)" 61631,103,"612",3,0,0,"0","" 61632,124,"615",6,0,1,"0","STORE PRINT S/R START" 61633,106,"612",2,0,0,"0","(SPEC CHAP LENGTH)" 61634,102,"615",17,0,0,"0","" 61635,,"615",6,0,0,"0","2XCHAPS" 61636,1,"615",6,0,0,"0","" 61637,5,"615",19,0,0,"0","" 61638,124,"615",19,0,0,"0","" 61639,102,"615",22,1,0,"0","CLEAR PTS DETAILS" 61640,101,"",0,1,3,"0","PARA TABLE START" 61641,5,"615",34,0,0,"0","FOR TRANSLATOR" 61642,35,"",0,0,0,"1","" 61643,124,"613",26,0,3,"0","" 61644,115,"",27,0,0,"0","(3)MACHINE PRINTER TYPE" 61645,101,"",9,1,2,"0","" 61646,103,"615",16,0,0,"0","STORE INDICATOR" 61647,71,"617",2,0,0,"0",">RTE TYPE 4" 61648,10,"",0,0,0,"1","" 61649,4,"617",22,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000442.JPG",,,,"","ChuckK/Q1000442" 61650,4,"617",25,0,0,"0","" 61651,106,"619",12,0,0,"0","" 61652,102,"619",9,0,0,"0","" 61700,PROCR,"617",,,,"","FORM UP DETAILS FOR PRINTERS" 61701,NOTES,"",RADIX,,,"","206" 61702,,"615",19,0,0,"0","SET UP MRS 2C:0" 61703,5,"613",20,0,0,"0","FOR LIST OF CHAPS" 61704,,"615",6,0,0,"0","" 61705,3,"613",22,0,0,"0","" 61706,101,"",4,1,1,"0","AND LIST OF LENGTHS" 61707,5,"613",23,0,0,"0","" 61708,126,"613",20,1,1,"0","MR 2C: 0" 61709,126,"613",22,1,3,"0","2(C+2) : 0" 61710,5,"615",24,1,1,"0","ENSURE NO PRINT S/R UNLESS DESIRED" 61711,101,"",0,1,3,"0","(28) IS THIS ISSUE 6+MASTER?" 61712,70,"617",20,0,0,"0",">NO" 61713,101,"",0,1,3,"0","(48)BONUS TO SPECIAL CHAP FOR CMR" 61714,34,"620",2,0,0,"0","" 61715,124,"615",6,0,1,"0","" 61716,36,"612",2,0,0,"0","" 61717,124,"615",6,0,1,"0","" 61718,37,"612",2,0,0,"0","" 61719,10,"",0,0,0,"0","DUMMY" 61720,,"612",14,0,0,"0","TEST ANY RT 19 PRINTERS" 61721,70,"617",54,0,0,"0","*FORMED ORDER*->NONE" 61722,0,"612",13,0,0,"0","*1 ADDED FOR SPECIAL PRINTER*" 61723,80,"619",2,0,0,"0",">BREAK UP DETAILS S/R" 61724,125,"",2,0,1,"0","" 61725,0,"612",15,0,0,"0","*1 ADDED FOR SPECIAL PRINTER*" 61726,80,"619",2,0,0,"0",">BREAK UP DETAILS S/R" 61727,,"615",23,0,1,"0","" 61728,71,"617",33,0,0,"0",">CHAP CHOSEN" 61729,,"615",22,0,1,"0","ANNEXE LENGTH" 61730,,"615",22,0,1,"0","DUMMY" 61731,4,"620",10,0,0,"0","AUGMENT SPECIAL TOTAL" 61732,76,"617",43,0,0,"0","" 61733,5,"613",20,0,0,"0","" 61734, ,"615",22,0,1,"0","ANNEXE LENGTH" 61735,34,"620",2,0,0,"0","" 61736,124,"613",20,0,1,"0","CHAP LENGTH ALLOWING" 61737,36,"612",2,0,0,"0","FOR NEG CHAP LENGTH" 61738,124,"613",20,0,1,"0","" 61739,37,"612",2,0,0,"0","" 61740,,"615",23,0,1,"0","DOUBLE CHAP NO" 61741,4,"615",23,0,1,"0","" 61742,101,"",0,1,3,"0","CLEAR CHAP LENGTH" 61743,5,"612",4,0,3,"0","" 61744,125,"",2,0,1,"0","" 61745,125,"",1,0,3,"0","" 61746,76,"617",27,0,0,"0","" 61747,106,"615",16,0,0,"0","TEST RTE TYPE 9" 61748,70,"617",52,0,0,"0",">YES" 61749,101,"",1,1,3,"0","" 61750,4,"618",21,0,0,"0","ADJUST ORDERS FOR PRINT S/R LENGTH" 61751,10,"",0,0,0,"2","(+5 IF GP)" 61752,11,"",0,0,0,"2","(+3 IF SPECIAL)" 61753,11,"",0,0,0,"1","(+1 IF TRIALS ALLOC)" 61754,1,"615",6,0,0,"0","CHAPS INITIALLY" 61755,5,"613",20,0,0,"0","CHAPS FOR ALLOCATION" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000443.JPG",,,,"","ChuckK/Q1000443" 61756,34,"620",2,1,0,"0","Q1=10" 61757,124,"615",6,0,1,"0","INITIAL CHAPS X" 61758,118,"",0,1,3,"0","FORM BITS 1-X" 61759,5,"613",19,0,0,"0","" 61760,124,"613",20,0,1,"0","TOT CHAPS Y" 61761,118,"",0,1,3,"0","FORM BITS 1-Y" 61762,5,"613",21,0,0,"0","" 61763,91,"614",20,0,3,"0","R3 SCANS STORE AREA" 61764,5,"614",20,0,0,"0","CLEAR" 61765,0,"613",20,0,0,"0","TOT CHAPS" 61766,2,"615",6,0,0,"0","INIT CHAPS" 61767,70,"618",2,0,0,"0",">NO SPECIAL CHAPS" 61768,0,"613",20,0,0,"0","" 61769,5,"613",27,0,0,"0","" 61770,91,"613",26,0,1,"0","CHAPS:0" 61771,34,"613",30,0,0,"0","BIT 1" 61772,0,"612",3,0,1,"0","NEXT CHAP LENGTH" 61773,71,"617",76,0,0,"0",">USED" 61774,36,"620",2,0,0,"0","Q1-5(IE B-> A)" 61775,4,"619",13,0,0,"0","STEP'CHAPS ALLOCATED'" 61776,33,"",0,0,0,"1","SHIFT MARKER" 61777,125,"",1,0,1,"0","" 61778,76,"617",72,0,0,"0","" 61779,10,"",0,0,0,"0","CLEAR" 61780,2,"619",13,0,0,"0","" 61781,4,"613",21,0,0,"0","ADJUST'CHAPS UNALLOCATED'" 61800,PROCR,"618",,,,""," STORE STORAGE TABLE & ROUND UP SP CH" 61801,NOTES,"",RADIX,,,"","207" 61802,,"615",6,0,0,"0","MR1=0:C" 61803,5,"613",27,0,0,"0","" 61804,91,"613",26,0,1,"0","" 61805,34,"613",30,0,0,"0","BIT 1" 61806,101,"",8190,1,3,"0","FORM MAXIMUM SIZE" 61807,2,"620",10,0,0,"0","FOR MATE OF SPECIALS" 61808,5,"620",10,0,0,"0","" 61809,,"612",3,0,1,"0","TEST CHAP SMALL ENOUGH" 61810,2,"620",10,0,0,"0","TO MATE WITH SPECIALS" 61811,72,"618",14,0,0,"0",">NO" 61812,,"620",4,0,0,"0","PACK BITS INTO" 61813,37,"620",11,0,0,"0","MATES PATTERN" 61814,33,"",0,0,0,"1","" 61815,125,"",1,0,1,"0","" 61816,76,"618",9,0,0,"0",">NEXT CHAP" 61817,,"612",14,0,0,"0","" 61818,34,"620",2,0,0,"0","" 61819,70,"618",24,0,0,"0",">NO RT 19 PRINTERS" 61820,10,"",0,0,0,"0","CLEAR" 61821,76,"618",23,0,0,"0","*FORMED ORDER*(1 SUBTRACTED IF RT 4)" 61822,101,"",34,1,3,"0","50=GP PRINT LENGTH" 61823,101,"",16,1,1,"0","16=SP PRINT S/R LENGTH" 61824,124,"615",6,0,1,"0","" 61825,36,"612",2,0,0,"0","PRESENT SPECIAL CHAP LENGTH" 61826,101,"",506,1,2,"0","" 61827,72,"618",29,0,0,"0","" 61828,10,"",0,0,0,"0","" 61829,101,"",506,1,1,"0","" 61830,124,"615",6,0,1,"0","" 61831,37,"612",2,0,0,"0","LENGTH AT LEAST 506" 61832,101,"",40,1,3,"0","BULK COPY STORE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000444.JPG",,,,"","ChuckK/Q1000444" 61833,30,"",0,0,0,"5","AVAILABILITY TABLE" 61834,101,"",0,1,1,"0","(30)" 61835,128,"615",56,0,0,"0","" 61836,0,"620",2,1,0,"0","INSERT END SIGN" 61837,5,"615",54,1,0,"0","" 61838,76,"621",2,0,0,"0","" 61900,PROCR,"619",,,,"","BREAK UP DETAILS S/R" 61901,NOTES,"",RADIX,,,"","208" 61902,81,"619",2,0,0,"0","(A)=PRINTER(CHAPS*LENGTH)" 61903,32,"",0,0,0,"4-","" 61904,5,"615",25,0,1,"0","FIRST CHAP" 61905,33,"",0,0,0,"3","" 61906,5,"615",29,0,1,"0","SECOND CHAP" 61907,33,"",0,0,0,"1","" 61908,32,"",0,0,0,"3","" 61909,3,"615",24,0,1,"0","*FORMED*('TRANSFER'IF SPECIAL) LENGTH" 61910,5,"615",28,0,1,"0","" 61911,82,"619",2,0,0,"0","" 61912,5,"615",24,0,1,"0","LENGTH" 61913,100,"",0,0,0,"0","BIT PATTERN FOR TOT CHAPS ALLOCATED TO D" 61914,70,"617",53,0,0,"0","ORDER CONST IN PROCR 205" 61915,10,"",0,0,0,"0","DUMMY" 62000,CONST,"620",,0,,"0","209 CONSTANTS" 62002,,"(D)ppppp;",0,0,0,"0","" 62003,,"ppppp;",0,0,0,"0","DIV BDRY COLL CONST" 62004,,"1ppp;",0,0,0,"0","" 62005,,"1-;",0,0,0,"0","" 62006,,"0;",0,0,0,"0","" 62007,,"8;",0,0,0,"0","" 62008,,"0;",0,0,0,"0","" 62009,,"t;",0,0,0,"0","" 62010,,"2-;",0,0,0,"0","TOTAL SPECIAL SIZE" 62011,,"0;",0,0,0,"0","MATES PATTERN" 62100,PROCR,"621",,,,"","PREPARE TO ALLOCATE NEXT STRIP" 62101,NOTES,"",RADIX,,,"","210" 62102,,"620",2,0,0,"0","TABLE END SIGN pX5 TEST IF LAST STRIP" 62103,3,"613",18,0,0,"0","SET UP MIN WASTAGE" 62104,2,"615",56,0,3,"0","NEXT STRIP LENGTH" 62105,71,"621",32,0,0,"0",">NOT END" 62106,76,"621",7,0,0,"0","*SWITCH*" 62107,76,"621",11,0,0,"0","(1) ALLOCATING IN 1 STORE ONLY ->REJECT" 62108,76,"621",15,0,0,"0","(2)2 STORES:END OF NEG->SECOND STORE" 62109,76,"621",23,0,0,"0","(3)2 STORES:END OF BOTH->FIRSTSTORE" 62110,76,"621",11,0,0,"0","(4)2 STORES:END OF BOTH->SECOND STORE" 62111,10,"",0,0,0,"53","ALLOC FAILED" 62112,124,"613",26,0,3,"0","CODE LETTER C" 62113,124,"",0,1,0,"0","(14)->REJECT ALLOCATION" 62114,76,"621",6,0,0,"0","ORDER CONST" 62115,10,"",0,0,0,"0","RESET MR3" 62116,124,"613",26,0,3,"0","" 62117,102,"",30,1,0,"0","CLEAR" 62118,12,"",0,0,0,"1","" 62119,4,"621",6,0,0,"0","SET SWITCH=3" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000445.JPG",,,,"","DaveJ/Q1000445" 62120,0,"613",17,0,0,"0","" 62121,4,"622",30,0,0,"0","(73->71 ORDER)" 62122,76,"621",32,0,0,"0","" 62123,10,"",0,0,0,"0","*FORMED*SET R3 TO ADDRESS SECOND TABLE" 62124,124,"613",26,0,3,"0","" 62125,102,"",30,0,0,"0","" 62126,00,"615",56,0,3,"0","TEST NO ROOM IN" 62127,2,"620",2,0,0,"0","2ND STORE" 62128,70,"621",11,0,0,"0","gYES" 62129,10,"",0,0,0,"0","" 62130,12,"",0,0,0,"1","" 62131,4,"621",6,0,0,"0","SET SWITCH=4" 62132,10,"",0,0,0,"1","SET UP BIT PATTERN" 62133,5,"613",24,1,0,"0","AND ALLOC CONST" 62134,,"613",20,0,0,"0","SET UP MR1 SETTING" 62135,5,"613",27,0,0,"0","" 62200,PROCR,"622",,,,"","ALLOCATE STRIP FOR MINIMUM WASTAGE" 62201,NOTES,"",RADIX,,,"","211" 62202,10,"",0,0,0,"0","CLEAR" 62203,34,"613",24,0,0,"0","VBLE PATTERN" 62204,36,"619",13,0,0,"0","ALLOC TO DATE'PATTERN" 62205,71,"622",49,0,0,"0","gDISCARD,SOME CHAP ALREADY USED" 62206,0,"613",19,0,0,"0","INITIAL CHAPS'PATTERN" 62207,2,"613",21,0,0,"0","CHAPS UNALLOCATED'PATTERN" 62208,72,"622",23,0,0,"0","gALL SPECIAL CHAPS ALLOCATED" 62209,10,"",0,0,0,"0","" 62210,36,"613",19,0,0,"0","INITIAL'PATTERN" 62211,70,"622",49,0,0,"0","gDISCARD;CONTAINS SPECIALS ONLY" 62212,10,"",0,0,0,"0","VBLE=OUTSTANDING" 62213,,"613",21,0,0,"0","UNALLOC" 62214,2,"613",24,0,0,"0","VARIABLE" 62215,5,"615",98,0,0,"0","FUTURE PATTERN" 62216,34,"620",11,0,0,"0","SUITABLE MATES PATTERN" 62217,36,"615",98,0,0,"0","ANY LEFT?" 62218,71,"622",23,0,0,"0","gYES,ACCEPTABLE PATTERN" 62219,34,"613",19,0,0,"0","INITIAL" 62220,36,"615",98,0,0,"0","FUTURE PATTERN" 62221,2,"615",98,0,0,"0","FUTURE PATTERN" 62222,71,"622",49,0,0,"0","gDISCARD,COULD USE UP SUITABLES" 62223,10,"",0,0,0,"0","" 62224,5,"613",28,1,0,"0","CLEAR WL" 62225,100,"613",30,0,2,"0","BIT 1=DECODER" 62226,126,"613",26,1,1,"0","CHAPS:0" 62227,36,"613",24,0,0,"0","VBLE PATTERN" 62228,70,"622",38,0,0,"0","gCHAP NOT IN COMBINATION" 62229,,"612",3,0,1,"0","LENGTH" 62230,71,"622",34,0,0,"0","(73 FIRST TIME 2 STORES)->USE" 62231,101,"",0,1,3,"0","" 62232,36,"620",2,0,0,"0","Q1-5(DECODER->A)" 62233,76,"622",50,0,0,"0","gSKIP SOME COMBINATIONS" 62234,5,"615",98,1,0,"0","" 62235,,"615",98,0,0,"0","MODULUS OF LENGTH" 62236,4,"613",28,0,0,"0","TOTAL FOR STRIP" 62237,10,"",0,0,0,"0","CLEAR A" 62238,33,"",0,0,0,"1","SHIFT COLLATOR" 62239,125,"",1,0,1,"0","TEST LAST CHAP" 62240,76,"622",27,0,0,"0","gNO" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000446.JPG",,,,"","DaveJ/Q1000446" 62241,,"615",57,0,3,"0","STRIP LENGTH" 62242,2,"613",28,0,0,"0","TOTAL CHAP LENGTHS" 62243,73,"622",49,0,0,"0","gDISCARD,TOO BIG" 62244,2,"613",18,0,0,"0","MIN WASTAGTE" 62245,72,"622",49,0,0,"0","gNO IMPROVEMENT" 62246,4,"613",18,0,0,"0","UPDATE MIN WASTAGE" 62247,0,"613",24,0,0,"0","VBLE PATTERN" 62248,5,"613",31,0,0,"0","STORE PATTERN GIVING BEST FIT" 62249,10,"",0,0,0,"1","STEP BIT PATTERN" 62250,4,"613",24,0,0,"0","" 62251,0,"613",21,0,0,"0","CHAPS UNALLOCATED'PATTERN" 62252,2,"613",24,0,0,"0","VBLE PATTERN" 62253,72,"622",2,0,0,"0","gTRY AGAIN" 62254,125,"",2,0,3,"0"," TEST STRIP UNTOUCHED STEP MR3" 62255,,"613",18,0,0,"0","WASTAGE" 62256,2,"620",2,0,0,"0","ppppp" 62257,70,"621",2,0,0,"0","gYES" 62258,,"615",55,0,3,"0","LENGTH OF NEW STRIP" 62259,2,"613",18,0,0,"0","" 62260,5,"613",28,0,0,"0","" 62261,2,"613",31,0,0,"0","" 62262,4,"613",21,0,0,"0","UPDATE'CHAPS UNALLOCATED'" 62263,0,"613",31,0,0,"0","" 62264,4,"619",13,0,0,"0","UPDATE'CHAPS ALLOCATED'" 62265,10,"",0,0,0,"0","CLEAR A" 62300,PROCR,"623",,,,"","SET UP DETAILS OF REDUCED STRIP+START OF" 62301,NOTES,"",RADIX,,,"","212 ALLOC IN STRIPS" 62302,100,"620",4,0,2,"0","" 62303,36,"615",54,0,3,"0","" 62304,70,"623",11,0,0,"0","gSTRIP BEGIN=DIV BEGIN" 62305,1,"615",55,0,3,"0","TEST STRIP END " 62306,2,"620",4,0,0,"0","IS DIV END " 62307,73,"623",11,0,0,"0","gNO,ALLOC FROM STRIP START" 62308,,"613",18,0,0,"0","MIN WASTAGE" 62309,5,"613",25,0,0,"0","" 62310,76,"623",12,0,0,"0","INDICATOR " 62311,,"613",28,0,0,"0","STORE NEW STRIP LENGTH " 62312,1,"615",54,0,3,"0","START AND END STRIP START" 62313,5,"615",98,0,0,"0","NEW STRIP START" 62314,,"613",18,0,0,"0","" 62315,5,"615",99,0,0,"0","STRIP LENGTH" 62316,,"613",25,0,0,"0","STORE ALLOC START MIN WASTAGE OR 0" 62317,1,"615",54,0,3,"0","" 62318,5,"613",25,0,0,"0","ALLOC START" 62319,10,"",0,0,0,"0","DUMMY" 62400,PROCR,"624",,,,"","ALLOCATE CHAPS IN THIS STRIP" 62401,NOTES,"",RADIX,,,"","213" 62402,126,"613",26,1,1,"0","CHAPS;0" 62403,126,"614",20,1,2,"0","NEVER RUNS OUT" 62404,100,"613",30,0,2,"0","BIT 1=DECODER" 62405,36,"613",31,0,0,"0","PATTERN=MOST FAVOURABLE ALLOC IN STRIP" 62406,70,"624",21,0,0,"0","gTHIS CHAP NOT IN STRIP" 62407,00,"612",3,0,1,"0","LENGTH(+-)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000447.JPG",,,,"","KenK/Q1000447" 62408,5,"615",96,1,0,"0","" 62409,,"613",25,0,0,"0","" 62410,3,"615",22,0,2,"0","CHAP START " 62411,1,"615",96,0,0,"0","MODULUS OF CHAP LENGTH " 62412,3,"615",23,0,2,"0","CHAP END " 62413,5,"613",25,0,0,"0","NEW ALLOC START " 62414,124,"613",26,0,3,"0","" 62415,106,"",28,0,0,"0","R2 MODIFER=CHAP-2 " 62416,2,"615",19,0,0,"0","CHAPS INITIALLY " 62417,72,"624",26,0,0,"0","gTHIS IS A SPECIAL CHAPTER " 62418,1,"615",19,0,0,"0","" 62419,102,"613",29,0,0,"0","(MAX NORMAL CHAP IN STRIP)-2 " 62420,5,"612",3,0,1,"0","CLEAR CHAP DETAILS " 62421,33,"",0,0,0,"1","SHIFT DECODER BIT " 62422,125,"",2,0,2,"0","" 62423,125,"",1,0,1,"0","" 62424,76,"624",5,0,0,"0","gNEXT CHAP " 62425,76,"626",2,0,0,"0","gNOW SORT REMAINDER OF STRIP " 62426,,"612",3,0,1,"0","SPECIAL CHAP LENGTH(ALWAYS>0) " 62427,124,"613",29,0,0,"0","" 62428,107,"615",23,0,0,"0","STEP END OF LAST NORMAL CHAP STRIP " 62429,5,"615",22,0,2,"0","CHAP " 62430,,"613",29,0,0,"0","" 62431,101,"",2,1,1,"0","" 62432,5,"615",23,0,2,"0","STORE ASSOC CHAP FOR THIS SPECAIL " 62433,76,"624",20,0,0,"0","gNEXT CHAP " 62500,PROCR,"625",,,,"","ADJUST NO OF CHAPS " 62501,NOTES,"",RADIX,,,"","214" 62600,PROCR,"626",,,,"","SORT REDUCED STRIP AVAILABILITY,TEST ALL ALLOC " 62601,NOTES,"",RADIX,,,"","215" 62602,124,"613",26,0,3,"0",";SET MR2 " 62603,106,"",30,0,0,"0",";NEVER RUNS OUT " 62604,124,"613",26,0,3,"0","" 62605,102,"",28,1,0,"0",";TEST NEW STRIP " 62606,,"615",99,0,0,"0",";OF LENGTH ZERO " 62607,71,"626",17,0,0,"0","gNO " 62608,125,"",4098,0,3,"0","" 62609,76,"626",11,0,0,"0","gIN CASE IT RUNS OUT " 62610,10,"",0,0,0,"0","DUMMY " 62611,,"615",56,1,2,"0","MOVE NEXT ITEM DOWN " 62612,3,"615",54,1,2,"0","" 62613,2,"620",2,1,0,"0","TEST END " 62614,70,"626",28,0,0,"0","gYES " 62615,125,"",2,0,2,"0","STEP MR2 " 62616,76,"626",11,0,0,"0","gNEXT ITEM " 62617,,"615",52,1,2,"0","FIND CORECT PLACE ;INSERT NEW STRIP " 62618,2,"615",98,1,0,"0",";IN CORRECT PLACE " 62619,73,"626",26,0,0,"0","gFOUND " 62620,1,"615",98,1,0,"0","" 62621,3,"615",54,1,2,"0","" 62622,2,"620",2,1,0,"0","TEST END " 62623,70,"626",26,0,0,"0","gYES " 62624,125,"",4098,0,2,"0","" 62625,76,"626",17,0,0,"0","" 62626,,"615",98,1,0,"0","INSERT NEW ITEM " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000448.JPG",,,,"","KenK/Q1000448" 62627,5,"615",54,1,2,"0","" 62628,0,"613",21,0,0,"0","CHARS UNALLOCATED'PATTERN " 62629,71,"621",2,0,0,"0","gTRY AGAIN " 62630,10,"",0,0,0,"0","" 62631,5,"615",18,0,0,"0","CLEAR W/L " 62700,PROCR,"627",,,,"","ALLOCATION SUCCESSFUL-CALC RELATIVE START OF SPECIAL CHAPS " 62701,NOTES,"",RADIX,,,"","216 AND STORE PARAS FOR PTS " 62702,,"615",19,0,0,"0","" 62703,4,"620",9,0,0,"0","" 62704,4,"620",8,0,0,"0","" 62705,126,"615",18,1,1,"0","R1=INIT CHAPS:0 " 62706,126,"620",8,1,3,"0","R3=10+INIT CHAPS:INIT CHAPS " 62707,106,"615",23,0,1,"0","CHAP END " 62708,105,"615",22,0,1,"0","CHAP START " 62709,102,"613",19,0,0,"0"," =CHAP LENGTH " 62710,106,"615",23,0,3,"0","2X CHAP OF NEXT SPECIAL " 62711,124,"613",26,0,3,"0","" 62712,105,"",26,0,0,"0","-R1 MODIFIER " 62713,101,"",2,1,2,"0","" 62714,71,"627",19,0,0,"0","gNEXT SPEC CHAP NOT WITH THIS CHAP " 62715,106,"613",19,0,0,"0","FORM SPECAL CHAPS " 62716,105,"615",22,0,3,"0","RELATIVE START " 62717,3,"613",19,0,0,"0","RESET CHAP END SIGN " 62718,102,"615",32,0,3,"0","REL START THIS SPECIAL CHAP " 62719,125,"",2,0,3,"0","STEP MR3 " 62720,76,"627",10,0,0,"0","gNEXT SPEC CHAP " 62721,125,"",2,0,1,"0","STEP MR1 " 62722,76,"627",6,0,0,"0","gNEXT CHAP " 62723,106,"615",13,0,3,"0","2X CHAP OF PTS=FIRST SPECIAL CHAP " 62724,70,"628",2,0,0,"0","gNO PTS " 62725,103,"613",19,0,0,"0","" 62726,30,"",0,0,0,"4","" 62727,124,"613",26,0,3,"0","STORE CH NO IN PARAMETER 45 " 62728,102,"",43,0,0,"0","PARAMETER " 62729,124,"613",19,0,1,"0","" 62730,106,"615",20,0,0,"0","FORM CHAP START " 62731,104,"615",22,0,3,"0","FOR PTS " 62732,124,"613",19,0,0,"0","" 62733,103,"615",21,0,0,"0","STORE NEW CHAP END " 62734,124,"613",26,0,3,"0","STORE PTS CHAP START " 62735,107,"",43,0,0,"0","" 62800,PROCR,"628",,,,"","PREPARE TO CALL NEXT CHUNK " 62801,NOTES,"",RADIX,,,"","" 62802,124,"615",19,0,1,"0","START OF SPECIAL CHAP " 62803,106,"615",20,0,0,"0","CHAP " 62804,3,"614",20,0,0,"0","" 62805,101,"",54,1,1,"0","SP CHAP START+52 " 62806,124,"614",21,0,3,"0","" 62807,103,"",28,0,0,"0","SET HR2 " 62808,124,"614",21,0,3,"0","" 62809,103,"",5,0,0,"0","SET PARAS 9 " 62810,124,"614",21,0,3,"0","" 62811,102,"",0,0,0,"0","(6)LOAD CHAP SR LINK " 62812,124,"614",20,0,3,"0","" 62813,101,"",0,1,3,"0","" 62814,124,"614",21,0,3,"0","" 62815,103,"",2,0,0,"0","CHAP START PARA " 62816,101,"",54,1,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000449.JPG",,,,"","TonyJ/Q1000449" 62817,124,"614",21,0,3,"0","CHUNK START PARA" 62818,102,"",1,0,0,"0","" 62819,10,"",0,0,0,"0","DUMMY" 62900,PROCR,"629",,629,,"PREPARE 1 OR 2 MOVES","" 62901,NOTES,"",RADIX,,,"","218 X=TABLE Y=SPEC Z=1ST CHAP STARTS" 62902,124,"615",96,0,2,"0","END OF ALL DATA" 62903,2,"614",20,0,0,"0","SPECIAL CHAP START" 62904,73,"629",7,0,0,"0","> OK PROVISIONALLY ) SPECIAL STARTS TOO LAT" 62905,101,"",170,1,2,"0","(PROBABLY 164 OK)" 62906,73,"629",12,0,0,"0","> DOUBLE MOVE NEEDED" 62907,124,"615",96,0,2,"0","DATA END" 62908,2,"615",22,0,0,"0","CHAP 1 START" 62909,73,"629",32,0,0,"0","> OK, SINGLE MOVE" 62910,101,"",156,1,2,"0","" 62911,72,"629",32,0,0,"0","> OK, SINGLE MOVE" 62912,101,"",250,1,3,"0","ADJUST ORDERS" 62913,34,"620",4,0,0,"0","" 62914,36,"614",20,0,0,"0","" 62915,101,"614",6,1,2,"0","" 62916,4,"614",6,0,0,"0","TO WORK IN MIDDLE" 62917,4,"614",9,0,0,"0","OF SPECIAL GROUP" 62918,5,"629",4,0,0,"0","" 62919,2,"629",4,0,0,"0","" 62920,4,"614",7,0,0,"0","ADJUST NEGATIVE ORDERS" 62921,4,"614",10,0,0,"0","" 62922,4,"614",13,0,0,"0","" 62923,,"614",20,0,0,"0","ADJUST T/E" 62924,101,"",250,1,1,"0","" 62925,4,"614",16,0,0,"0","" 62926,4,"614",18,0,0,"0","" 62927,124,"614",6,0,2,"0","FORM BULK COPY T/E" 62928,32,"",0,0,0,"5-","" 62929,101,"",110,1,1,"0","AMOUNT OF DATA" 62930,32,"",0,0,0,"5","> MORE DETAILS YET" 62931,76,"614",2,0,0,"0","" 62932,124,"614",6,0,2,"0","ADJUST ORDERS TO" 62933,4,"614",16,0,0,"0","PRODUCE 15 BIT T/E's" 62934,4,"614",18,0,0,"0","" 62935,76,"614",6,0,0,"0","" 62936,100,"",0,0,0,"0","" 62937,100,"",0,0,0,"0","" 62938,100,"",0,0,0,"0","" 62939,100,"",0,0,0,"0","" 62940,100,"",0,0,0,"0","" 62941,100,"",0,0,0,"0","" 62942,100,"",0,0,0,"0","" 62943,100,"",0,0,0,"0","" 63000,PROCR,"630",,,,"300 START OF ALLOC ROUTES","" 63001,NOTES,"",RADIX,,,"","FIRST LOCN=54 OF SPECIAL CHAP" 63002,106,"",10,0,0,"0","ALLOC COMMAND" 63003,32,"",0,0,0,"2-","" 63100,PROCR,"631",,,,"","" 63101,NOTES,"",RADIX,,,"","302" 63102,12,"",0,0,0,"1","" 63103,71,"631",8,0,0,"0","> NO ALT RTES" 63104,35,"",0,0,0,"11","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000450.JPG",,,,"","TonyJ/Q1000450" 63105,37,"645",8,0,0,"0","EAR " 63106,37,"636",24,0,0,"0","ORM " 63107,37,"638",3,0,0,"0","FORM 1/1/1" 63108,101,"",0,1,3,"0","(32)" 63109,71,"631",16,0,0,"0","> MORE THAN 8 CHANNELS" 63110,,"645",28,1,0,"0","" 63111,5,"645",16,1,0,"0","" 63112,,"641",9,0,0,"0","SET S/R FOR" 63113,5,"641",6,0,0,"0","8 CHANNELS" 63114,,"645",12,1,0,"0","M/R CONSTANTS" 63115,5,"645",10,1,0,"0","" 63116,101,"",2,1,3,"0","" 63117,32,"",0,0,0,"10-","" 63118,115,"",10,0,0,"0","" 63119,70,"631",27,0,0,"0",">FORWARD ALLOC" 63120,,"645",10,1,0,"0","RESET MRS" 63121,5,"645",4,1,0,"0","" 63122,,"645",12,1,0,"0","" 63123,5,"645",6,1,0,"0","" 63124,101,"",4096,1,2,"0","ADJUST STEP MR" 63125,4,"642",7,0,0,"0","VALUE" 63126,76,"631",29,0,0,"0",">LEAVE R IN COMMENT" 63127,35,"",0,0,0,"1100","" 63128,37,"645",8,1,0,"0","CLEAR R" 63129,106,"",11,0,0,"0","" 63130,71,"631",33,0,0,"0",">TRIALS" 63131,35,"",0,0,0,"110000","LETE " 63132,37,"645",8,1,0,"0","FOR NO TRIALS" 63133,106,"",12,1,0,"0","PROG ID >SERIAL" 63134,5,"630",2,1,0,"0",">WL" 63135,76,"635",2,0,0,"0","" 63200,CONST,"632",,1,303 CONSTANTS,"","" 63202,,"(A)ALLOC;",,,,"","" 63204,,"(D)5.7:000000;",,,,"","LE + NE" 63206,,"1;",,,,"","" 63208,,"16;",,,,"","" 63210,,"256;",,,,"","" 63212,,"4096;",,,,"","" 63214,,"65536;",,,,"","" 63300,PROCR,"633",,,,"","DUMMY PROCEDURE 970" 63301,NOTES,"",RADIX,,,"","304" 63400,PROCR,"634",,,,"","EDIT TABLE" 63401,NOTES,"",RADIX,,,"","305" 63402,100,"635",7,0,0,"0","" 63403,100,"",5,0,2,"0","DIV NO" 63404,100,"635",2,0,0,"0","" 63405,116,"",4101,0,0,"0","1/0/0/5 ADDRESS IN DIVISION" 63406,100,"632",2,0,0,"0","ALLOC" 63407,101,"",5,0,0,"0","" 63408,100,"630",2,0,0,"0","PROG ID" 63409,100,"",53,0,0,"0","" 63410,100,"630",3,0,0,"0","PROG SERIAL" 63411,100,"",21,0,0,"0","" 63412,100,"",0,0,0,"0","(29) RUN NUMBER" 63413,100,"",21,0,0,"0","" 63414,100,"645",8,0,0,"0","M" 63415,101,"",305,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000451.JPG",,,,"","RayS/Q1000451" 63416,100,"645",8,0,0,"0","T/N/R" 63417,117,"",563,0,0,"0","2/3/3" ,,"",0,0,0,"0","" 63500,PROCR,"635",,,,"","FORM ALLOC COMMENT" 63501,NOTES,"",RADIX,,,"","306" 63502,101,"",0,1,3,"0","" 63503,101,"",1,1,2,"0","" 63504,4,"634",12,0,0,"0","" 63505,124,"634",6,0,2,"0","TABLE START" 63506,124,"",20,0,3,"0","" 63507,128,"",0,1,2,"0","" 63508,101,"",16,1,3,"0","CHAP 1 LOCATION" 63509,104,"",20,0,0,"0","" 63510,5,"633",14,0,0,"0","" 63511,126,"",16,1,1,"0","CHAPS:0" 63512,100,"645",14,0,3,"0","" 63513,106,"",20,0,1,"0","BREAK UP CHAP" 63514,32,"",0,0,0,"4-","START INTO" 63515,33,"",0,0,0,"3","DIV NO AND" 63516,5,"635",7,0,0,"0","START WITHIN DIV" 63517,33,"",0,0,0,"13","" 63518,5,"635",2,0,0,"0","" 63519,124,"632",6,0,2,"0","CONVERT CHAP START" 63520,112,"635",2,0,0,"0","TO DECIMAL" 63521,102,"635",2,0,0,"0","W/L" 63522,124,"634",2,0,2,"0","" 63523,124,"633",14,0,3,"0","DEST IN CHAP 1" 63524,128,"",0,1,2,"0","EDIT CHAP START" 63525,100,"632",4,0,3,"0","RESET BINARY" 63526,101,"",4,1,3,"0","" 63527,4,"633",14,0,0,"0","" 63528,125,"",2,0,1,"0","" 63529,76,"635",12,0,0,"0",">NEXT CHAP" 63530,101,"",7805,1,3,"0","TRANSFER L/E" 63531,124,"",20,0,3,"0","AND N/E TO" 63532,103,"",14,1,0,"0","" 63533,124,"633",14,0,3,"0","AND SECOND" 63534,102,"",0,1,0,"0","LINES" 63535,124,"633",6,0,2,"0","SET UP IND MODS" 63536,5,"638",24,0,0,"0","AT 15 BIT ADDRESS" 63537,5,"633",2,0,0,"0","" 63538,124,"633",18,0,2,"0","" 63539,5,"642",8,0,0,"0","" 63540,80,"641",2,0,0,"0","SET ASL'S POSITIVE S/R" 63541,124,"",20,0,2,"0","COPY 30 LOCNS FROM START OF CHAP 1" 63542,104,"",17,0,0,"0","" 63543,32,"",0,0,0,"5-","" 63544,101,"",30,1,1,"0","" 63545,32,"",0,0,0,"5","" 63546,128,"633",20,0,0,"0","BULK COPY SPEC CHAPS" 63547,106,"",11,0,0,"0","TRIALS ALLOC' IND" 63548,70,"635",53,0,0,"0",">NO" 63549,10,"",0,0,0,"0","(28)PTS IN MASTER?" 63550,70,"635",53,0,0,"0",">YES" 63551,10,"",0,0,0,"0","(26)PTS PRINTS ON-LINE?" 63552,71,"635",55,0,0,"0",">YES(ALLOW SEARCH)" 63553,,"635",52,0,0,"0","SET INDICATOR" 63554,5,"645",15,0,0,"0","NON ZERO" 63555,,"633",23,0,0,"0","ROUTE 19'INDICCATOR" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000452.JPG",,,,"","RayS/Q1000452" 63556,124,"",20,0,3,"0","(2)" 63557,103,"",122,0,0,"0","SET IND IN CHAP 1" 63558,70,"636",2,0,0,"0",">PRINT SR NOT NEEDED" 63559,101,"",8191,1,3,"0","" 63560,32,"",0,0,0,"10-","" 63561,106,"",15,0,0,"0","" 63562,124,"",17,0,1,"0","LOCATION OF PRINT S/R" 63563,115,"",18,0,0,"0","" 63564,124,"633",2,0,3,"0","" 63565,102,"",5,0,0,"0","" 63600,PROCR,"636",,,,"","MAIN LOOP DEAL WITH TX AND FILES" 63601,NOTES,"",RADIX,,,"","307" 63602,126,"633",2,1,1,"0","SET MRS 0/0" 63603,101,"",8,1,3,"0","" 63604,5,"633",3,0,0,"0","" 63605,126,"633",2,1,3,"0","SET MR3 FOR SPECIAL CHAPS" 63606,106,"",5,0,0,"0","TEST NO OF ROUTES" 63607,70,"638",22,0,0,"0",">NO ROUTES" 63608,5,"633",3,0,0,"0","" 63609,126,"633",2,1,2,"0","0/NO OF ROUTES" 63610,124,"645",3,1,2,"0","FORM INDIRECT" 63611,124,"",4,0,2,"0","MODIFIER FOR" 63612,3,"633",6,0,0,"0","UNPACKING ALLOC" 63613,101,"",48,1,1,"0","ROUTES CD" 63614,5,"633",7,0,0,"0","" 63615,124,"633",2,0,3,"0","" 63616,126,"",0,0,0,"0","(7)>READ NEXT BLOCK" 63617,101,"",12,1,3,"0","UNPACK NEXT PIECE FORM T/E" 63618,30,"",0,0,0,"5","" 63619,1,"633",6,0,0,"0","" 63620,11,"",0,0,0,"1","" 63621,128,"633",8,1,0,"0","UNPACK DETAIL" 63622,80,"640",2,0,0,"0","FIND ASL FOR ROUTE >SEARCH ASL'S S/R" 63623,125,"",1,0,1,"0","STEP MR1" 63624,101,"",128,1,3,"0","(1/1/3 0 IF ALT ALLOC)" 63625,1,"633",13,0,0,"0","REQD AND ALLOWED " 63626,71,"637",2,0,0,"0",">NO ROUTES" 63627,80,"640",2,0,0,"0","FIND ASL FOR ALT ROUTE >SEARCH ASL'S S/R" 63628,76,"637",9,0,0,"0",">FORM FILE DETAIL" 63700,PROCR,"637",,,,"","MAIN LOOP PART 2 FILE DETAILS AND COMMENT" 63701,NOTES,"",RADIX,,,"","308" 63702,,"633",9,0,0,"0","TEST PSEUDO RTE" 63703,02,"645",2,0,0,"0","" 63704,71,"637",7,0,0,"0",">NO" 63705,103,"",34,0,1,"0","CLEAR TOP HALF" 63706,76,"638",12,0,0,"0",">DEAL WITH TX AREAS FROM UP FILE DETAIL" 63707,101,"",128,1,3,"0","(32)" 63708,102,"",34,0,1,"0","ALT ROUTE" 63709,35,"",0,0,0,"11","PLACE ALT RTE" 63710,115,"",34,0,1,"0","IN Q3,4" 63711,32,"",0,0,0,"2","" 63712,114,"",33,0,1,"0","" 63713,35,"",0,0,0,"11","FORM COMMENT " 63714,10,"",0,0,0,"0","CLEAR A" 63715,115,"",33,0,1,"0","IN CHAPTER 1 " 63716,102,"633",3,0,0,"0","STORE FOR PRINTER" 63717,106,"633",9,0,0,"0","IF PRINTER RTE TYPE" 63718,101,"",4,1,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000453.JPG",,,,"","RayS/Q1000453" 63719,70,"637",22,0,0,"0",">PRINTER" 63720,101,"",5,1,2,"0","" 63721,71,"637",24,0,0,"0",">NOT PRINTER" 63722,106,"633",3,0,0,"0","STORE RTE NO" 63723,103,"645",15,0,0,"0","" 63724,106,"633",3,0,0,"0","" 63725,80,"644",2,0,0,"0",">CHANNEL/ROUTE S/R" 63726,102,"633",52,1,0,"0","RTES" 63727,124,"633",6,0,3,"0","STORE FILE IDENTITY" 63728,106,"",0,1,0,"0","" 63729,102,"633",54,1,0,"0","FILE IDENTITY" 63730,101,"",3,0,1,"0","" 63731,115,"",34,0,1,"0","" 63732,80,"644",2,0,0,"0",">CHANNEL RTE S/R" 63733,30,"",0,0,0,"0","///// DUMMY ORDER" 63734,5,"633",56,1,0,"0","EDIT RTE DETAIL" 63735,35,"",0,0,0,"1111","PACK FILE IDENT" 63736,106,"633",54,1,0,"0","INTO FILE DETAIL" 63737,114,"",34,0,1,"0","" 63738,101,"",0,1,1,"0","DUMMY ORDER" 63739,124,"646",2,0,2,"0","" 63740,124,"633",14,0,3,"0","" 63741,128,"",2,1,2,"0","" 63800,PROCR,"638",,,,"","MAIN LOOP PART 3 SET UP TX AND ANNEXES" 63801,NOTES,"",RADIX,,,"","309" 63802,,"633",13,0,0,"0","" 63803,101,"",128,1,1,"0","(1/1/1/ 0 IF ALT ALLOC)" 63804,70,"638",10,0,0,"0",">ALT RTES REQD" 63805,10,"",0,0,0,"65","" 63806,30,"",0,0,0,"2","" 63807,35,"",0,0,0,"111111","" 63808,124,"633",14,0,3,"0","" 63809,114,"",4,1,0,"0","" 63810,10,"",0,0,0,"4","" 63811,4,"633",14,0,0,"0","" 63812,124,"633",11,0,1,"0","" 63813,106,"",18,0,0,"0","CHAP START" 63814,1,"633",10,0,0,"0","ANNEXE START" 63815,103,"",65,0,1,"0","" 63816,12,"",0,0,0,"2","" 63817,1,"633",12,0,0,"0","ANNEXE LENGTH" 63818,102,"",66,0,1,"0","" 63819,125,"",1,0,1,"0","STORE LOCATION" 63820,125,"",1,0,2,"0","NO OF ROUTES" 63821,76,"638",23,0,0,"0",">NEXT ROUTE" 63822,76,"638",27,0,0,"0","*SWITCH*DO TX AREAS NEXT, OR END" 63823,123,"",12,0,0,"0","*STEP BY 12=ROUTES, 6=TX AREAS*" 63824,100,"633",6,0,0,"0","" 63825,76,"636",17,0,0,"0",">UNPACK NEXT PIECE" 63826,76,"636",10,0,0,"0",">READ NEXT BLOCK" 63827,,"633",21,0,0,"0","TEST RTE 7 REQUIRED" 63828,70,"638",47,0,0,"0",">NO" 63829,,"645",16,1,0,"0","SYNTHETIC ALLOC DETAILS FOR PTS ROUTE" 63830,102,"",34,1,1,"0","STORE LOCATION" 63831,102,"",66,1,1,"0","CLEAR ASL START/END" 63832,125,"",2,0,1,"0","" 63833,,"645",15,0,0,"0","" 63834,71,"638",61,0,0,"0",">PRINTER FOUND" 63835,106,"",14,0,0,"0","SET UP PRINTER ROUTE TYPE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000454.JPG",,,,"","RayS/Q1000454" 63836,11,"",0,0,0,"9","" 63837,3,"633",9,0,0,"0","" 63838,5,"633",13,0,0,"0","AND ALT ROUTE DETAIL" 63839,10,"",0,0,0,"1","STEP" 63840,107,"",5,0,0,"0","" 63841,125,"",4097,0,2,"0","PREPARE TO ENTER MAIN LOOP AGAIN" 63842,124,"646",8,0,2,"0","ADDRESS OF CONST 'PTS'" 63843,5,"633",6,0,0,"0","" 63844,,"638",65,0,0,"0","ARRANGE EXIT AFTER" 63845,5,"638",22,0,0,"0","ALLOCATING ROUTES" 63846,76,"636",22,0,0,"0",">" 63847,10,"",0,0,0,"6","PREPARE FOR TX AREAS" 63848,4,"638",23,0,0,"0","CHANGE STEP ACTION" 63849,101,"",12,1,2,"0","" 63850,4,"636",17,0,0,"0","CHANGE UNPACK ACTION" 63851,11,"",0,0,0,"4","" 63852,4,"636",21,0,0,"0","CHANGE END SEQUENCE ADDRESS" 63853,,"638",64,0,0,"0","" 63854,5,"638",22,0,0,"0","SET UP PSEUDO ROUTE" 63855,,"645",2,0,0,"0","SET UP PSEUDO" 63856,3,"633",9,0,0,"0","ROUTE AND ALT ROUTE" 63857,5,"633",13,0,0,"0","DUMMY" 63858,10,"",0,0,0,"0","" 63859,106,"",6,0,0,"0","" 63860,76,"636",7,0,0,"0",">TX AREAS" 63861,10,"",0,0,0,"1","" 63862,107,"",5,0,0,"0","" 63863,76,"638",47,0,0,"0",">PREPARE FOR TX'S" 63864,76,"639",2,0,0,"0",">AFTER FINISHING TX'S" 63865,76,"638",61,0,0,"0","" 63900,PROCR,"639",,,,"","END ROUTINE" 63901,NOTES,"",RADIX,,,"","310" 63902,106,"",5,0,0,"0","FORM 2*(TX+FILES)" 63903,104,"",6,0,0,"0","" 63904,30,"",0,0,0,"5","" 63905,70,"640",67,0,0,"0",">REJECT D" 63906,103,"",18,1,0,"0","" 63907,107,"",18,1,0,"0","" 63908,124,"",98,0,2,"0","" 63909,124,"633",2,0,3,"0","" 63910,103,"",28,1,0,"0","R2" 63911,124,"633",2,0,3,"0","(6)SR LINK" 63912,103,"",0,0,0,"0","" 63913,101,"",44,1,3,"0","" 63914,124,"633",2,0,3,"0","" 63915,107,"",1,0,0,"0","(3)STEP PARA 1" 63916,10,"",0,0,0,"1.1.","" 63917,124,"633",14,0,3,"0","" 63918,102,"",2,1,0,"0","" 63919,101,"",0,1,3,"0","(3)PARA TABLE START" 63920,124,"633",2,0,3,"0","" 63921,124,"",1,1,0,"0","(6)>LOAD NEXT CHAPTER" ,,"",,,,"","" 64000,PROCR,"640",,,,"","SEARCH ASL'S ALLOWING FOR FUNNY ROUTE TYPES" 64001,NOTES,"",RADIX,,,"","311" 64002,81,"640",2,0,0,"0","" 64003,00,"642",13,0,0,"0","PREPARE FOR SEARCH" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000455.JPG",,,,"","RayS/Q1000455" 64004,05,"642",5,0,0,"0","ASL'S S/R" 64005,00,"633",11,0,0,"0","TEST RTE TYPE 19" 64006,72,"640",31,0,0,"0",">NO" 64007,,"633",9,0,0,"0","TEST PSEUDO ROUTE" 64008,2,"645",2,0,0,"0","" 64009,70,"640",13,0,0,"0","" 64010,106,"",14,0,0,"0","SET UP PRINTER RTE" 64011,101,"",9,1,1,"0","TYPE" 64012,5,"633",9,0,0,"0","" 64013,,"633",22,0,3,"0","" 64014,71,"640",23,0,0,"0","CHAP DETAILS" 64015,125,"",2,0,3,"0","" 64016,76,"640",13,0,0,"0","" 64017,125,"",4098,0,3,"0","NO MORE TX'S" 64018,101,"",1,1,2,"0","" 64019,102,"",34,1,1,"0","" 64020,102,"",66,1,1,"0","" 64021,125,"",2,0,1,"0","" 64022,76,"638",20,0,0,"0","" 64023,5,"633",12,0,0,"0","LENGTH" 64024,,"633",23,0,3,"0","" 64025,5,"633",11,0,0,"0","CHAP" 64026,,"633",32,0,3,"0","" 64027,5,"633",10,0,0,"0","ANNEXE START" 64028,125,"",2,0,3,"0","" 64029,76,"640",51,0,0,"0",">TRY AND ALLOC" 64030,76,"640",51,0,0,"0","" 64031,106,"633",9,0,0,"0","" 64032,101,"",14,1,2,"0","TEST RTE TYPE 14" 64033,71,"640",37,0,0,"0",">NO" 64034,106,"",14,0,0,"0","SET UP PRINTER" 64035,101,"",9,1,1,"0","RTE TYPE OF" 64036,5,"633",9,0,0,"0","MACHINE" 64037,,"633",9,0,0,"0","TEST RTE TYPE 15" 64038,101,"",15,1,2,"0","" 64039,71,"640",54,0,0,"0",">NO" 64040,101,"",5,1,3,"0","(33)PREFERRED ROUTE 5/6" 64041,03,"633",9,0,0,"0","" 64042,103,"",15,0,0,"0","STORE RTE TYPE" 64043,12,"",0,0,0,"5","STOP ALT ROUTE" 64044,70,"640",46,0,0,"0","IF RTE TYPE 6" 64045,05,"633",13,0,0,"0","" 64046,80,"641",2,0,0,"0",">SEARCH ASL'S S/R" 64047,101,"",6,1,3,"0","TRY OTHER RTE" 64048,101,"",0,1,2,"0","(33)0/1" 64049,03,"633",9,0,0,"0","" 64050,103,"",15,0,0,"0","STORE RTE TYPE" 64051,12,"",0,0,0,"5","STOP ALT RTE" 64052,70,"640",54,0,0,"0","IF RTE TYPE 6" 64053,05,"633",13,0,0,"0","" 64054,80,"641",2,0,0,"0","SEARCH ASL'S" 64055,,"633",9,0,0,"0","TEST RTE TYPES 7,8,11" 64056,80,"643",2,0,0,"0",">TEST S/R" 64057,71,"640",61,0,0,"0",">NO" 64058,,"642",12,0,0,"0","SEARCH FOR 7,8,11" 64059,5,"642",5,0,0,"0","" 64060,80,"641",2,0,0,"0",">SEARCH ASL'S S/R" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000456.JPG",,,,"","RayS/Q1000456" 64061,,"633",9,0,0,"0","TEST PSEUDO ROOT" 64062,2,"645",2,0,0,"0","" 64063,71,"640",67,0,0,"0",">NO" 64064,,"642",11,0,0,"0","SEARCH ALL ASL'S" 64065,5,"642",5,0,0,"0","" 64066,80,"641",2,0,0,"0",">SEARCH ASL'S" 64067,,"642",14,0,0,"0","" 64068,5,"642",5,0,0,"0","" 64069,80,"641",2,0,0,"0","" 64070,10,"",0,0,0,"54","'D'" 64071,124,"633",2,0,3,"0","" 64072,124,"",0,1,0,"0","(14)>REJECT ALLOCATION" 64073,124,"633",18,0,3,"0","SETUP DETAIL" 64074,106,"",0,0,0,"0","" 64075,2,"645",2,0,0,"0","STORE RTE TYPE 0" 64076,70,"640",78,0,0,"0","IF A PSEUDO ROUTE" 64077,1,"645",2,0,0,"0","RTE TYPE" 64078,30,"",0,0,0,"4","IN QS" 64079,1,"633",18,0,0,"0","RTE NO IN Q1,2" 64080,101,"",64,1,2,"0","" 64081,102,"",34,0,1,"0","" 64082,124,"633",18,0,3,"0","SET ASL NEGATIVE" 64083,105,"",0,0,0,"0","" 64084,124,"633",18,0,3,"0","" 64085,102,"",0,0,0,"0","" 64086,82,"640",2,0,0,"0","" 64100,PROCR,"641",,,,"","SEARCH ASL'S S/R" 64101,NOTES,"",RADIX,,,"","312" 64102,81,"641",2,0,0,"0","" 64103,,"645",4,1,0,"0","SET UP INDIRECT" 64104,5,"633",18,1,0,"0","MODIFIER 64-128" 64105,80,"642",2,0,0,"0",">SEARCH ASL'S" 64106,,"645",6,1,0,"0","SET UP INDIRECT" 64107,5,"633",18,1,0,"0","MODIFIER 192-240" 64108,80,"642",2,0,0,"0",">SEARCH ASL'S" 64109,82,"641",2,0,0,"0","" 64200,PROCR,"642",,,,"","SEARCH ASL'S S/R" 64201,NOTES,"",RADIX,,,"","313" 64202,81,"642",2,0,0,"0","" 64203,124,"633",18,0,3,"0","SELECT ASL" 64204,106,"",0,0,0,"0","" 64205,76,"642",15,0,0,"0","*****SWITCH ORDER" 64206,70,"640",73,0,0,"0",">FOUND" 64207,123,"",1,0,0,"0","STEP IND MOD" 64208,100,"633",18,0,0,"0","" 64209,76,"642",3,0,0,"0","" 64210,82,"642",2,0,0,"0",">LEAVE S/R" 64211,30,"",0,0,0,"1-","TEST RTE TYPES <15" 64212,80,"643",2,0,0,"0","TEST 7,8,11" 64213,2,"633",9,0,0,"0","TEST REQUIRED TYPE" 64214,76,"642",15,0,0,"0","" 64215,72,"642",7,0,0,"0","MAKE ASL POSITIVE" 64216,5,"633",54,0,0,"0","IF NEGATIVE" 64217,2,"633",54,0,0,"0","" 64218,124,"633",18,0,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000457.JPG",,,,"","RayS/Q1000457" 64219,102,"",0,0,0,"0","" 64220,76,"642",7,0,0,"0",">NEXT ASL" 64300,PROCR,"643",,,,"","TEST 7,8,11 S/R" 64301,NOTES,"",RADIX,,,"","314" 64302,81,"643",2,0,0,"0","" 64303,12,"",0,0,0,"7","TEST 7,8,11 S/R" 64304,70,"643",8,0,0,"0",">YES" 64305,12,"",0,0,0,"1","TEST 8" 64306,70,"643",8,0,0,"0",">YES" 64307,12,"",0,0,0,"3","TEST 11" 64308,82,"643",2,0,0,"0","LEAVE S/R" 64400,PROCR,"644",,,,"","CHANNEL/ROUTE S/R" 64401,NOTES,"",RADIX,,,"","315" 64402,81,"644",2,0,0,"0","" 64403,32,"",0,0,0,"1-","DIVIDE BY 8" 64404,33,"",0,0,0,"1","" 64405,101,"",10,1,2,"0","CONVERT CHANNEL" 64406,73,"644",8,0,0,"0","BINARY>DECIMAL" 64407,101,"",6,1,1,"0","" 64408,101,"",10,1,1,"0","" 64409,118,"",1,0,3,"0","SPLIT UP CHANNEL" 64410,33,"",0,0,0,"3","AND ROUTE" 64411,82,"644",2,0,0,"0",">LEAVE S/R" 64500,CONST,"645",,0,,"","316 MAIN LOOP CONSTANTS" 64502,,"(D)pppp;",,,,"","" 64503,,"(B)64-;",,,,"","" 64504,,"64;",,,,"","" 64505,,"128;",,,,"","" 64506,,"192;",,,,"","" 64507,,"240;",,,,"","" 64508,,"(D)36965;",,,,"","' MTRN'" 64509,,"647;",,,,"","" 64510,,"(B)240;",,,,"","" 64511,,"192;",,,,"","" 64512,,"128;",,,,"","" 64513,,"64;",,,,"","" 64514,,"(D)66666;",,,,"","" 64515,,";",,,,"","" 64516,,"74000;",,,,"","(24)SYNTHETIC ALLOC DETAILS FOR PROG TAP" 64517,,"70740-;",,,,"","" 64518,,";",,,,"","" 64519,,";",,,,"","" 64520,,";",,,,"","" 64521,,";",,,,"","" 64522,,";",,,,"","" 64523,,";",,,,"","" 64524,,";",,,,"","" 64525,,";",,,,"","" 64526,,";",,,,"","" 64527,,";",,,,"","" 64528,,"78000;",,,,"","" 64529,,"70780-;",,,,"","(24)SYNTHETIC ALLOC DETAILS FOR PROG TAP" ,,"",,,,"","" 64600,PROCR,"646",,,,"","MORE EDIT TABLES IN DISGUISE" 64602,100,"633",54,0,0,"0","FILE IDENTITY" 64603,101,"",515,0,0,"0","2/0/3" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000458.JPG",,,,"","RayS/Q1000458" 64604,100,"633",52,0,0,"0","RTE NO" 64605,100,"",4627,0,0,"0","1/2/1/3" 64606,100,"633",56,0,0,"0","ALT RTE" 64607,116,"",4611,0,0,"0","1/2/0/3" 64608,107,"",4978,0,3,"0",")CONST 'PTS'" 64609,100,"",6,0,0,"0",")" 64700,PROCR,"647",,,,"","DUMMY PROCEDURE" 64701,NOTES,"",RADIX,,,"","401" 64800,PROCR,"648",,,,"","ALLOC TAG/FP/MG" 64801,NOTES,"",RADIX,,,"","402 FIRST LOCN=98 OF SPECIAL CHAPTER" 64802,35,"",0,0,0,"0","CLEAR B" 64803,124,"",20,0,1,"0","(2)" 64804,101,"",0,1,3,"0","13-BIT START CHAP 1" 64805,4,"655",19,0,0,"0","GET ADDRESS CORRECT" 64806,4,"656",53,0,0,"0","" 64807,5,"648",2,0,0,"0","WL" 64808,2,"648",2,0,0,"0","" 64809,4,"655",17,0,0,"0","" 64810,4,"655",20,0,0,"0","" 64811,4,"655",22,0,0,"0","" 64812,4,"656",51,0,0,"0","" 64813,4,"656",54,0,0,"0","" 64814,4,"656",56,0,0,"0","" 64815,10,"",0,0,0,"0","DUMMY" 64816,101,"",2,1,3,"0","(4)TEST>5 TAGS" 64817,101,"",0,1,2,"0","(29)" 64818,70,"648",22,0,0,"0",">NO" 64819,124,"657",2,0,3,"0","SELECT AND SHIFT" 64820,106,"",1,0,0,"0","LAST 5 TAGS" 64821,30,"",0,0,0,"5","" 64822,124,"657",2,0,3,"0","FORMER TAG AVAILABILITY" 64823,104,"",0,0,0,"0","" 64824,05,"657",18,1,0,"0","" 64825,106,"",9,0,0,"0","FORM INITIAL ENTRY" 64826,104,"",9,0,0,"0","POINT" 64827,107,"648",28,0,0,"0","=INITIAL CHAP" 64828,106,"",18,0,0,"0","START+RELATIVE" 64829,104,"",8,0,0,"0","ENTRY POINT" 64830,102,"",8,0,0,"0","" 64831,,"657",18,1,0,"0","" 64832,70,"648",63,0,0,"0",">NO TAG AVAILABLE" 64833,32,"",0,0,0,"1-","" 64834,05,"657",18,1,0,"0","" 64835,74,"648",31,0,0,"0",">TAG NOT FOUND YET" 64836,32,"",0,0,0,"1","" 64837,103,"",10,0,0,"0","ALLOC TAG" 64838,,"657",18,1,0,"0","RESIDUE" 64839,124,"",10,0,0,"0","ALLOC TAG" 64840,118,"",0,0,0,"0","" 64841,05,"657",18,1,0,"0","NEW TAG AVAILABILITY WORD" 64842,106,"",0,0,0,"0","FP WANTED" 64843,70,"648",48,0,0,"0",">NO" 64844,124,"657",2,0,3,"0","" 64845,123,"",128,0,3,"0","A*TAG" 64846,101,"",14,1,2,"0","" 64847,71,"648",61,0,0,"0",">NOT AVAILABLE" 64848,126,"657",16,1,3,"0","24:0" 64849,106,"",1,0,0,"0","MOD GROUP REQUIRED" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000459.JPG",,,,"","RayS/Q1000459" 64850,71,"648",54,0,0,"0",">YES" 64851,124,"",20,0,3,"0","START OF CHAP 1" 64852,102,"",10,1,0,"0","CLEAR M IN ALLOC COMMENT" 64853,76,"648",74,0,0,"0","" 64854,124,"657",2,0,3,"0","" 64855,124,"",30,0,3,"0","R3 MODIFIER" 64856,123,"",10,0,3,"0","R2 TAG FOR EACH MOD GROUP" 64857,101,"",14,1,2,"0","" 64858,70,"648",67,0,0,"0",">AVAILABLE" 64859,125,"",8,0,3,"0","" 64860,76,"648",54,0,0,"0","" 64861,101,"",0,1,3,"0","" 64862,101,"",1,1,2,"0","A=NO FP/MG" 64863,101,"",3,1,2,"0","B=NO TAB" 64864,101,"",85,1,1,"0","E=NO 90K MATCH" 64865,124,"657",2,0,3,"0","(14)>REJECT ALLOCATION" 64866,124,"",0,1,0,"0",">REJECT ALLOCATION" 64867,124,"657",2,0,3,"0","" 64868,106,"",30,0,0,"0","R3 MODIFIER" 64869,31,"",0,0,0,"1","" 64870,30,"",0,0,0,"1-","DIVIDE BY 8" 64871,11,"",0,0,0,"1","" 64872,124,"",20,0,3,"0","START OF CH 1" 64873,107,"",10,1,0,"0","SET MOD GROUP IN ALLOC COMMENT" 64874,102,"",1,0,0,"0","" 64875,106,"",10,0,0,"0","AUGMENT TAG TO" 64876,101,"",64,1,1,"0","COMMENT" 64877,118,"",6,0,0,"0","" 64878,124,"",20,0,3,"0","" 64879,107,"",10,1,0,"0","" 64880,101,"",0,1,3,"0","DUMMY" 64900,PROCR,"649",,,,"","45/90K CHUNK" 64901,NOTES,"",RADIX,,,"","403" 64902,106,"",5,0,0,"0","FILES" 64903,31,"",0,0,0,"1","" 64904,5,"657",3,0,0,"0","2*FILES" 64905,,"657",9,0,0,"0","" 64906,70,"650",2,0,0,"0",">THIS IS A 45K INSTALLATION" 64907,124,"649",10,1,1,"0","RESET MG 3" 64908,124,"647",2,0,2,"0","" 64909,3,"657",6,0,0,"0","FORM TABLE ENTRY" 64910,101,"",126,1,3,"0","'----BE'" 64911,124,"657",13,1,2,"0","-64+R FOR CONTROL DATA PSEUDOROUTE" 64912,102,"",16,0,0,"0","AS EMERGENCY STOP" 64913,,"657",4,1,0,"0","" 64914,128,"647",2,1,1,"0","CLEAR 16 LOCNS AS WORKING SPACE" 64915,124,"657",6,0,2,"0","TSL FOR UNPACKING" 64916,124,"657",13,1,2,"0","-64+R FOR CONTROL DATA PSEUDO-ROUTE" 64917,128,"",0,0,3,"0","" ,,"",,,,"","" 65000,PROCR,"650",,,,"","45/90K CHUNK" 65001,NOTES,"",RADIX,,,"","404 REARRANGE SPEC CHAP ROUTE DETAIL" 65002,126,"657",2,1,1,"0","2*ROUTES:0" 65003,106,"",34,1,1,"0","" 65004,73,"652",8,0,0,"0",">RTE 7 DETAIL" 65005,101,"",0,1,1,"0","DUMMY ORDER" 65006,32,"",0,0,0,"10-","" 65007,32,"",0,0,0,"1","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000460.JPG",,,,"","RayS/Q1000460" 65008,5,"657",5,0,0,"0","ALT RTE TYPE" 65009,32,"",0,0,0,"4","" 65010,5,"657",8,0,0,"0","FILE IDENTITY" 65011,32,"",0,0,0,"1","" 65012,5,"657",4,0,0,"0","ROUTE TYPE" 65013,32,"",0,0,0,"2","" 65014,5,"657",7,0,0,"0","ALT ROUTE NO" 65015,32,"",0,0,0,"2","" 65016,5,"657",6,0,0,"0","MAIN ROUTE NO" 65017,,"657",9,0,0,"0","INDICATOR" 65018,70,"652",2,0,0,"0","" 65100,PROCR,"651",,,,"","45/90K CHUNK" 65101,NOTES,"",RADIX,,,"","405 SET INDICATOR IF REQUIRED" 65102,,"657",4,0,0,"0","ROUTE TYPE" 65103,12,"",0,0,0,"7","" 65104,70,"651",9,0,0,"0",">MAG TAPE FILE" 65105,12,"",0,0,0,"1","" 65106,70,"651",9,0,0,"0",">MAG TAPE FILE" 65107,12,"",0,0,0,"3","" 65108,71,"652",2,0,0,"0",">NOT A MAG TAPE FILE" 65109,126,"657",10,1,2,"0","SET MR2 AT 16:0" 65110,,"647",2,1,2,"0","" 65111,2,"657",8,0,0,"0","FILE IDENTITY" 65112,70,"651",16,0,0,"0",">MATCH SET IND=0 FOR 45K" 65113,125,"",2,0,2,"0","" 65114,76,"651",10,0,0,"0","" 65115,101,"",1,1,3,"0","SET IND=1 FOR 90K IF NO MATCH" 65116,124,"657",6,0,3,"0","ROUTE NO" 65117,103,"",0,0,0,"0","(21)SET MASTER IND" 65118,32,"",0,0,0,"1-","" 65119,,"657",7,0,0,"0","ALT ROUTE NO" 65120,101,"",128,1,2,"0","(32) (>8 CHANNELS)" 65121,70,"651",26,0,0,"0",">ALT ROUTE NOT USED" 65122,101,"",0,1,3,"0","DRAIN" 65123,32,"",0,0,0,"1","" 65124,124,"657",7,1,2,"0","ALT ROUTE NO" 65125,102,"",0,0,0,"0","(22)SET MASTER IND" 65126,5,"647",2,1,2,"0","CLEAR ENTRY FROM" ,,"",0,0,0,"0","" 65200,PROCR,"652",,0,0,"0","90K/45K CHUNK" 65201,NOTES,"",RADIX,,,,"406" 65202,,"657",5,0,0,"0","ALT ROUTE TYPE" 65203,30,"",0,0,0,"2","" 65204,1,"657",6,0,0,"0","MAIN ROUTE NO" 65205,30,"",0,0,0,"2","" 65206,1,"657",7,0,0,"0","ALT ROUTE NO" 65207,102,"",35,0,1,"0","SECOND M OF ROUTE DETAIL" 65208,125,"",2,0,1,"0","" 65209,76,"650",3,0,0,"0",">NEXT ROUTE" 65210,,"657",9,0,0,"0","" 65211,70,"653",2,0,0,"0",">45K INSTALLATION" 65212,126,"657",10,1,2,"0","16:0" 65213,,"647",2,1,2,"0","" 65214,70,"652",17,0,0,"0","" 65215,101,"",0,1,3,"0","UNMATCHED ENTRY IN LIST" 65216,76,"648",64,0,0,"0",">REJECT E" 65217,125,"",2,0,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000461.JPG",,,,"","RayS/Q1000461" 65218,76,"652",13,0,0,"0","" 65219,101,"",0,1,1,"0","DUMMY ORDER" 65300,PROCR,"653",,,,"","ARRANGE FOR SPECIAL, GP, OR NEITHER S/R" 65301,NOTES,"",RADIX,,,"","407" 65302,124,"",20,0,3,"0","CHAP 1" 65303,106,"",122,0,0,"0","TEST FOR PRINTER" 65304,70,"653",37,0,0,"0",">NO PRINTER" 65305,124,"",0,0,2,"0","SPECIAL CHAP DIVISION0" 65306,101,"",0,1,2,"0","" 65307,3,"655",26,0,0,"0","STORE AS PARA FOR" 65308,5,"656",60,0,0,"0","PRINT S/R'S" 65309,106,"",20,0,0,"0","FORM AND STORE" 65310,04,"655",24,0,0,"0","CHAP 1 PARA FOR" 65311,04,"656",58,0,0,"0","PRINT S/RS" 65312,10,"",0,0,0,"0","" 65313,101,"",8,1,2,"0","" 65314,30,"",0,0,0,"4","" 65315,35,"",0,0,0,"10000","" 65316,36,"654",11,0,0,"0","" 65317,70,"653",19,0,0,"0","" 65318,37,"656",49,0,0,"0","" 65319,10,"",0,0,0,"0","" 65320,35,"",0,0,0,"1","" 65321,36,"654",11,0,0,"0","" 65322,101,"",4,1,2,"0","" 65323,70,"653",31,0,0,"0",">" 65324,124,"655",2,0,2,"0","FORM T/E FOR" 65325,32,"",0,0,0,"5-","BULK COPYING" 65326,101,"",26,1,3,"0","SP PRINTER S/R" 65327,32,"",0,0,0,"5","TO CHAP" 65328,124,"",20,0,3,"0","" 65329,128,"",154,0,0,"0","TO CHAP 1" 65330,76,"653",37,0,0,"0","" 65331,124,"656",2,0,2,"0","FORM T/E FOR" 65332,32,"",0,0,0,"5-","BULK COPYING" 65333,101,"",62,1,3,"0","GP PRINTER S/R" 65334,32,"",0,0,0,"5","CHAP 1" 65335,124,"",20,0,3,"0","" 65336,128,"",120,0,0,"0","" 65337,102,"",16,0,0,"0","" 65338,124,"647",2,0,2,"0","RESET PARA 5" 65339,124,"657",2,0,3,"0","" 65340,102,"",5,0,0,"0","" ,,"",,,,"","" 65400,PROCR,"654",,,,"","FINAL CHUNK" 65401,NOTES,"",RADIX,,,"","408" 65402,126,"657",18,1,1,"0","W/L FOR NEW TAG AVAILABILITY WORD" 65403,124,"",98,0,2,"0","" 65404,124,"657",2,0,3,"0","" 65405,103,"",28,1,0,"0","MR2" 65406,124,"657",2,0,3,"0","" 65407,102,"",0,0,0,"0","(6)SET SR LINK" 65408,101,"",0,1,3,"0","PARAS TABLE START" 65409,124,"657",2,0,3,"0","" 65410,124,"",1,1,0,"0","(6)>SECOND ORDER 'LOAD CHAPT' SR" 65411,100,"",0,0,0,"0","(27)" 65500,PROCR,"655",,,,"","SPECIAL PRINTER S/R" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000462.JPG",,,,"","RayS/Q1000462" 65501,NOTES,"",RADIX,,,"","409" 65502,100,"",0,0,0,"0","LINK" 65503,101,"",0,1,3,"0","FORM PSUEDOROUTE IN B FOR SPECIAL PRINTE" 65504,101,"",64,1,2,"0","" 65505,124,"647",2,0,3,"0","S/R LINK" 65506,105,"",2,0,0,"0","" 65507,32,"",0,0,0,"10-","" 65508,10,"",0,0,0,"9","ROUTE TYPE" 65509,30,"",0,0,0,"5","" 65510,124,"647",2,0,3,"0","" 65511,104,"",1,0,0,"0","PRINTER ROUTE" 65512,125,"",4096,1,1,"0","" 65513,124,"647",11,0,3,"0","" 65514,123,"",159,0,2,"0","ENTER MASTER" 65515,126,"647",2,0,1,"0","RETURN TO MAIN PROGRAM" 65516,100,"",0,0,0,"0","DUMMY" 65517,124,"",178,0,3,"0","" 65518,128,"",214,0,0,"0","CLEAR SPECIAL CHAP" 65519,106,"",176,1,0,"0","" 65520,124,"",178,0,3,"0","" 65521,128,"647",2,0,0,"0","COPY TO SPECIAL CHAP" 65522,124,"",178,0,3,"0","" 65523,124,"",204,1,0,"0",">REENTER FINAL CHUNK" 65524,100,"",154,0,0,"0","ABS START THIS SR IN CHAP 1" 65525,100,"",14,0,0,"0","" 65526,100,"",0,0,0,"0","SPECIAL CHAPTER" 65600,PROCR,"656",,,,"","G.P. PRINTER S/R" 65601,NOTES,"",RADIX,,,"","410" 65602,100,"",0,0,0,"0","LINK" 65603,124,"647",2,0,3,"0","STORE DATA" 65604,124,"",2,1,2,"0","" 65605,124,"",0,0,2,"0","" 65606,102,"647",50,0,0,"0","" 65607,106,"647",48,1,0,"0","PACK COLUMNS BIT" 65608,100,"647",48,1,2,"0","INTO FUNCTION" 65609,124,"647",50,0,3,"0","" 65610,114,"",0,1,0,"0","" 65611,124,"647",2,0,3,"0","FORM T/E" 65612,106,"",4,0,0,"0","" 65613,118,"",5,0,0,"0","" 65614,124,"647",2,0,3,"0","BULK CLEAR G.P. TRANSIT" 65615,124,"",3,1,2,"0","AREA BEFORE EDIT" 65616,128,"",0,1,1,"0","" 65617,106,"647",50,0,0,"0","" 65618,124,"647",2,0,3,"0","EDIT INTO G.P. TRANSIT AREA" 65619,124,"",3,1,2,"0","" 65620,129,"",0,0,1,"0","" 65621,102,"647",50,0,0,"0","" 65622,101,"",64,1,2,"0","FORM PSEUDOROUTE IN B FOR G.P.PRINTER" 65623,124,"647",2,0,3,"0","" 65624,105,"",3,0,0,"0","" 65625,32,"",0,0,0,"10-","" 65626,10,"",0,0,0,"4","ROUTE TYPE" 65627,30,"",0,0,0,"5","" 65628,124,"647",2,0,3,"0","ROUTE NO" 65629,104,"",1,0,0,"0","" 65630,125,"",4096,1,1,"0","" 65631,124,"647",48,0,3,"0","" 65632,123,"",160,0,2,"0","ENTER MASTER" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000463.JPG",,,,"","RayS/Q1000463" 65633,124,"647",50,0,3,"0","" 65634,100,"",0,1,2,"0","" 65635,10,"",0,0,0,"2","STEP MODIFIER" 65636,4,"647",50,0,0,"0","" 65637,33,"",0,0,0,"2","SELECT NEXT CHARACTER" 65638,10,"",0,0,0,"0","" 65639,33,"",0,0,0,"6","" 65640,12,"",0,0,0,"1.","TEST L/E" 65641,70,"648",7,0,0,"0",">YES" 65642,12,"",0,0,0,"20","TEST B/E" 65643,70,"648",47,0,0,"0",">YES" 65644,10,"",0,0,0,"0","" 65645,75,"648",37,0,0,"0",">NEXT CHARACTER" 65646,76,"648",33,0,0,"0",">NEXT WORD" 65647,126,"647",2,0,1,"0",">LEAVE" 65648,100,"",0,0,0,"0","ZERO" 65649,100,"",0,0,0,"0","FN WORD" 65650,100,"",0,0,0,"0","MODIFIER" 65651,124,"",178,0,3,"0","" 65652,128,"",214,0,0,"0","CLEAR SPECIAL CHAP" 65653,106,"",176,1,0,"0","" 65654,124,"",178,0,3,"0","" 65655,128,"647",2,0,0,"0","COPY TO SPECIAL CHAP" 65656,124,"",178,0,3,"0","" 65657,124,"",204,1,0,"0",">REENTER FINAL CHUNK" 65658,100,"",120,0,0,"0","ABS START THIS SR IN CHAP 1" 65659,100,"",48,0,0,"0","" 65660,100,"",0,0,0,"0","SPECIAL CHAPTER" 65700,CONST,"657",,0,,"","411 CONSTS FOR 45/90K CHUNK" 65702,,"(D)0;",,,,"","ZERO" 65703,,"0;",,,,"","2*FILES" 65704,,"0;",,,,"","ROUTE TYPE/BULK CLEAR T" 65705,,"20010;",,,,"","ALT RTE TYPE/BULK CLEAR T" 65706,,"0;",,,,"","ROUTE NO/UNPACK TABLE" 65707,,"30000-;",,,,"","ALT RTE NO/UNPACK TABLE" 65708,,"0;",,,,"","FILE IDENTITY" 65709,,"0;",,,,"","(21)NONZERO IF 90K INSTALLATION" 65710,,"0;",,,,"","" 65711,,"10;",,,,"","MOD REGISTER CONSTANT" 65712,,"40-;",,,,"","(24) -(64+R) FOR PROGM ROUTE" 65713,,"40-;",,,,"","(23)=LOCN OF 45K ROUTES LIST" 65714,,"0;",,,,"","LAST BLOCK SERIAL" 65715,,"0;",,,,"","ON PROGM TAPE" 65716,,"0;",,,,"","" 65717,,"(B)24;",,,,"","MR 24:0" 65718,,"0;",,,,"","" 65719,,";",,,,"","W/L" 65720,,";",,,,"","" 65721,,";",,,,"","" 65722,,";",,,,"","" 65723,,";",,,,"","" 65724,,";",,,,"","" 65725,,";",,,,"","" ,,"",,,,"","" 65800,PROCR,"658",,,,"","SET UP PROG IN PQ" 65801,NOTES,"",RADIX,,,"","501 FIRST LOCN=98 OF SPECIAL CHAPTER" 65802,124,"668",2,0,3,"0","NEW TAG AVAILABILITY" 65803,106,"",26,1,0,"0","" 65804,05,"668",26,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000464.JPG",,,,"","RayS/Q1000464" 65805,101,"",2,1,2,"0","ADJUST MR SETTING" 65806,4,"668",14,0,0,"0","" 65807,4,"668",15,0,0,"0","" 65808,10,"",0,0,0,"0","DUMMY ORDER" 65809,106,"",15,0,0,"0","" 65810,102,"",14,0,0,"0","" 65811,106,"",2,0,0,"0","PRIORITY CLASS" 65812,30,"",0,0,0,"4","Q5" 65813,100,"",10,0,2,"0","TAG T" 65814,110,"668",9,0,0,"0","" 65815,1,"668",9,0,0,"0","48(T+1)" 65816,124,"668",2,0,3,"0","" 65817,104,"",2,0,0,"0","MR SWITCH START" 65818,30,"",0,0,0,"5","" 65819,104,"",12,0,0,"0","PROG IDENTITY" 65820,5,"668",12,1,0,"0","" 65821,126,"668",14,1,1,"0","SCAN PQ BACKWARDS" 65822,35,"",0,0,0,"10000","Q5" 65823,124,"668",2,0,3,"0","" 65824,115,"",1,0,1,"0","P CLASS NEXT ENTRY" 65825,2,"668",16,0,0,"0","£0000" 65826,70,"658",34,0,0,"0",">STEP R1" 65827,1,"668",16,0,0,"0","£0000" 65828,2,"668",13,0,0,"0","" 65829,73,"658",38,0,0,"0",">INSERT NOW" 65830,124,"668",2,0,3,"0","" 65831,106,"",0,1,1,"0","" 65832,124,"668",2,0,3,"0","" 65833,102,"",2,1,1,"0","" 65834,125,"",4098,0,1,"0","2-" 65835,76,"658",23,0,0,"0","" 65836,111,"",7,0,3,"0","CONST>27/0/3" 65837,108,"",7,1,0,"0","CONST>24/1/0" 65838,125,"",4096,1,1,"0","SET NON-INT" 65839,,"668",12,1,0,"0","" 65840,124,"668",2,0,3,"0","" 65841,102,"",2,1,1,"0","" 65842,35,"",0,0,0,"1111","Q1-4" 65843,36,"668",13,0,0,"0","SWITCH START" 65844,124,"668",2,0,3,"0","" 65845,103,"",30,1,0,"0","R3 MODIFIERS" 65846,4,"658",36,0,0,"0","AUG CONSTANTS" 65847,4,"658",37,0,0,"0","" 65848,5,"668",8,0,0,"0","" 65849,124,"668",2,0,3,"0","START OF SWITCH ABOVE" 65850,106,"",1,0,1,"0","" 65851,124,"668",2,0,3,"0","" 65852,102,"",28,1,0,"0","R2 MODIFIER" 65853,101,"",4,1,2,"0","" 65854,4,"660",28,0,0,"0","ADJUST ORDERS" 65855,4,"660",33,0,0,"0","" 65856,04,"660",20,0,0,"0","" ,,"",,,,"","" 65900,PROCR,"659",,,,"","UPDATE PREVIOUS SWITCH, FORM SWITCH ORDERS" 65901,NOTES,"",RADIX,,,"","502" 65902,124,"668",2,0,3,"0","" 65903,126,"",0,0,0,"0","(8)>UPDATE SWITCH" 65904,10,"",0,0,0,"0","" 65905,2,"658",36,0,0,"0","27/0/3>SI+7" 65906,124,"668",2,0,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000465.JPG",,,,"","RayS/Q1000465" 65907,102,"",20,0,2,"0","IN SJ+20 OF PREVIOUS SWITCH" 65908,124,"668",2,0,3,"0","" 65909,106,"",9,0,2,"0","SJ+9" 65910,124,"668",2,0,3,"0","" 65911,105,"",7,0,2,"0","SJ+7" 65912,71,"659",16,0,0,"0",">SWITCH NOT AT 2" 65913,2,"658",37,0,0,"0","24/1/0>SI+7" 65914,124,"668",2,0,3,"0","" 65915,102,"",7,0,2,"0","TO SJ+7" 65916,10,"",0,0,0,"0","" 65917,2,"658",37,0,0,"0","" 65918,124,"668",2,0,3,"0","" 65919,102,"",9,0,2,"0","SET 24/1/0 IN SI+9 ALSO" 66000,PROCR,"660",,,,"","PLACE CONSTANT IN SWITCH" 66001,NOTES,"",RADIX,,,"","503" 66002,106,"",1,0,0,"0","MOD GROUP" 66003,31,"",0,0,0,"13","" 66004,124,"668",2,0,3,"0","" 66005,102,"",29,0,3,"0","SI+29" 66006,106,"",10,0,0,"0","TAG" 66007,30,"",0,0,0,"4","" 66008,104,"",8,0,0,"0","ABS ENTRY" 66009,124,"668",2,0,3,"0","" 66010,102,"",44,1,3,"0","SET LINK CLEAR 45" 66011,124,"",0,0,2,"0","SPECIAL CHAPTER START" 66012,124,"668",2,0,3,"0","" 66013,102,"",37,0,3,"0","SI+37" 66014,106,"",12,0,0,"0","PROG IDENTITY" 66015,124,"668",2,0,3,"0","" 66016,102,"",39,0,3,"0","SI+39" 66017,124,"668",2,0,3,"0","" 66018,102,"",46,1,3,"0","CLEAR THIS SI+46,47" 66019,124,"668",2,0,3,"0","" 66020,106,"",3,0,0,"0","(29)RUN NUMBER" 66021,103,"",15,0,0,"0","TO SPEC CHAP" 66022,124,"668",2,0,3,"0","" 66023,102,"",40,0,3,"0","TO SI+40" 66024,101,"",0,1,3,"0","(15) 'ROUTE CLOSED' ENTRY" 66025,124,"668",2,0,3,"0","" 66026,102,"",42,0,3,"0","SI+42" 66027,124,"668",2,0,3,"0","" 66028,106,"",1,0,0,"0","MOST SIG HALF OF A" 66029,30,"",0,0,0,"3-","" 66030,12,"",0,0,0,"7.","" 66031,70,"660",35,0,0,"0",">SET (AB)=ZERO" 66032,124,"668",2,0,3,"0","" 66033,100,"",0,1,1,"0","VALUES>A&B,RUBBISH>C" 66034,76,"660",36,0,0,"0","" 66035,35,"",0,0,0,"0","AB CLEAR" 66036,100,"668",17,0,3,"0","SET DECIMAL" 66037,124,"668",2,0,3,"0","" 66038,124,"",30,0,3,"0","R3" 66039,100,"",30,1,0,"0","SET ABC INITIAL ENTRY SI+30>34" ,,"",,,,"","" 66100,PROCR,"661",,,,"","UPDATE MASTER AVAILABILITY FOR FP/MG/TAG/STORE/ROUTE" 66101,NOTES,"",RADIX,,,"","504 CLEAR ALLOC MOD REGISTERS" 66102,100,"668",2,0,3,"0","BINARY" 66103,106,"",0,0,0,"0","FP IND" 66104,70,"661",11,0,0,"0",">NOT USED" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000466.JPG",,,,"","ChuckK/Q1000466" 66105,106,"",10,0,0,"0","PROG TAG" 66106,126,"668",6,1,3,"0","6/0" 66107,124,"668",2,0,3,"0","ZERO" 66108,123,"",128,1,3,"0","" 66109,125,"",2,0,3,"0","" 66110,76,"661",7,0,0,"0","" 66111,106,"",1,0,0,"0","MOD GROUP" 66112,70,"661",32,0,0,"0",">NOT USED" 66113,31,"",0,0,0,"3","" 66114,5,"668",5,0,0,"0","8M" 66115,106,"",10,0,0,"0","TAG" 66116,126,"668",6,1,3,"0","6/0" 66117,124,"668",5,0,3,"0","8M" 66118,123,"",2,1,3,"0","" 66119,125,"",2,0,3,"0","" 66120,76,"661",17,0,0,"0","" 66121,106,"",1,0,0,"0","MOD GROUP" 66122,12,"",0,0,0,"3","" 66123,126,"668",6,1,3,"0","6/0" 66124,70,"661",28,0,0,"0",">MG3" 66125,,"668",5,0,0,"0","8M" 66126,11,"",0,0,0,"2","OVER 'START OF COPY OF MG3' ADDRESS" 66127,5,"668",4,0,0,"0","" 66128,124,"668",4,0,3,"0","LOCN OF MR1 OF MOD GROUP" 66129,102,"",0,1,3,"0","" 66130,125,"",2,0,3,"0","" 66131,76,"661",28,0,0,"0","" 66132,101,"",0,1,3,"0","(3)FORM QTTY TO COPY" 66133,101,"",0,1,2,"0","(30)" 66134,12,"",0,0,0,"4","" 66135,30,"",0,0,0,"5","" 66136,101,"",80,1,1,"0","" 66137,104,"",20,0,0,"0","" 66138,124,"668",2,0,3,"0","" 66139,128,"",0,1,1,"0","(30)UPDATE STORAGE" 66200,PROCR,"662",,,,"","SET ASL'S" 66201,NOTES,"",RADIX,,,"","505" 66202,0,"668",26,1,0,"0","UPDATE TAG AVAILABILITY" 66203,124,"668",2,0,3,"0","" 66204,102,"",0,1,0,"0","" 66205,126,"",18,1,3,"0","2X(R+T):0" 66206,35,"",0,0,0,"11-","" 66207,115,"",34,1,3,"0","ALLOC ROUTE" 66208,73,"662",48,0,0,"0",">NEGATIVE;IGNORE" 66209,5,"668",5,0,0,"0","W/L" 66210,106,"",10,0,0,"0","TAG" 66211,30,"",0,0,0,"4","" 66212,104,"",66,0,3,"0","START" 66213,124,"668",5,0,3,"0","ROUTE" 66214,102,"",64,0,0,"0","" 66215,106,"",35,0,3,"0","FILE ID Q1=4" 66216,70,"662",48,0,0,"0",">TRANSIT AREA" 66217,106,"",34,0,3,"0","RT IN Q5" 66218,30,"",0,0,0,"4-","" 66219,12,"",0,0,0,"7","TEST IF M/T" 66220,70,"662",25,0,0,"0","IE RTE TYPES" 66221,12,"",0,0,0,"1","7,8,11" 66222,70,"662",25,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000467.JPG",,,,"","ChuckK/Q1000467" 66223,12,"",0,0,0,"3","" 66224,71,"662",29,0,0,"0","" 66225,124,"668",5,0,3,"0","" 66226,102,"",0,0,0,"0","(16)CLEAR REEL CTR" 66227,76,"662",37,0,0,"0","" 66228,102,"",0,0,0,"0","(35)CLEAR BLOCK COUNTER FOR MT ROUTE" 66229,11,"",0,0,0,"5","TEST CARD INPUT" 66230,70,"662",33,0,0,"0",">80-COL CARDS(6)" 66231,12,"",0,0,0,"7","" 66232,71,"662",37,0,0,"0",">NOT 40-COL CARDS(15)" 66233,124,"668",5,0,3,"0","" 66234,106,"",64,0,0,"0","ASL FOR EVEN ROUTE" 66235,124,"668",5,0,3,"0","" 66236,102,"",65,0,0,"0","COPY FOR ODD ROUTE" 66237,106,"",34,0,3,"0","" 66238,30,"",0,0,0,"6","ALT ROUTE Q3,4" 66239,30,"",0,0,0,"8-","" 66240,12,"",0,0,0,"80","(32)" 66241,70,"662",48,0,0,"0",">NOT USED" 66242,11,"",0,0,0,"80","(32)" 66243,5,"668",5,0,0,"0","" 66244,106,"",10,0,0,"0","TAG" 66245,30,"",0,0,0,"4","" 66246,124,"668",5,0,3,"0","" 66247,102,"",64,0,0,"0","SET IND THAT NOT AVAILABLE" 66248,10,"",0,0,0,"0","CLEAR A" 66249,125,"",2,0,3,"0","" 66250,76,"662",6,0,0,"0",">NEXT ROUTE" 66251,5,"668",12,1,0,"0","CLEAR THIS" 66252,124,"668",2,0,3,"0","" 66253,102,"",5,0,0,"0","CLEAR PARAMETER 5" 66254,125,"",0,1,2,"0","DUMMY" 66300,PROCR,"663",,,,"","SET UP CHAP PARAS;ROUTE PARAS;TX AREA PARAS" 66301,NOTES,"",RADIX,,,"","506 MOD GROUP PARAS AND SPECIAL PARAS" 66302,126,"668",12,1,1,"0","CLEAR" 66303,126,"",16,1,2,"0","2XCHAPS:0" 66304,34,"668",11,0,0,"0","BITS 1-13" 66305,106,"",20,0,2,"0","NEXT START" 66306,102,"",99,0,1,"0","15 BIT" 66307,115,"",20,0,2,"0","" 66308,102,"",100,0,1,"0","" 66309,125,"",2,0,1,"0","" 66310,125,"",2,0,2,"0","" 66311,76,"663",4,0,0,"0",">NEXT CHAP" 66312,102,"",98,0,0,"0","CLEAR PARA 0" 66313,106,"",5,0,0,"0","FILES" 66314,104,"",5,0,0,"0","" 66315,30,"",0,0,0,"5","" 66316,124,"668",2,0,3,"0","" 66317,102,"",28,1,0,"0","R2=2XROUTES:0" 66318,35,"",0,0,0,"11-","" 66319,115,"",34,1,2,"0","NEXT ROUTE" 66320,72,"663",24,0,0,"0","PARA" 66321,125,"",2,0,2,"0","END OF ROUTES" 66322,76,"663",21,0,0,"0",">STEP UP MR TO END" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000468.JPG",,,,"","ChuckK/Q1000468" 66323,76,"663",28,0,0,"0",">END" 66324,102,"",99,0,1,"0","" 66325,125,"",1,0,1,"0","" 66326,125,"",2,0,2,"0","" 66327,76,"663",19,0,0,"0",">NEXT ROUTE" 66328,106,"",19,0,0,"0","" 66329,124,"668",2,0,3,"0","" 66330,102,"",29,0,0,"0","ADJUST END VALUE" 66331,35,"",0,0,0,"11","" 66332,115,"",34,0,2,"0","TX AREA" 66333,102,"",99,0,1,"0","" 66334,105,"",99,0,1,"0","" 66335,101,"",64,1,2,"0","" 66336,102,"",100,0,1,"0","" 66337,125,"",2,0,1,"0","" 66338,125,"",2,0,2,"0","" 66339,76,"663",32,0,0,"0",">NEXT TX AREA" 66340,106,"",1,0,0,"0","MOD GROUP" 66341,31,"",0,0,0,"3","" 66342,102,"",99,0,1,"0","BM" 66343,105,"",99,0,1,"0","" 66344,101,"",2,1,2,"0","" 66345,103,"",100,0,1,"0","-(8M+2)=R1" 66346,101,"",2,1,2,"0","" 66347,103,"",101,0,1,"0","-(8M+4)=R2" 66348,101,"",2,1,2,"0","" 66349,102,"",102,0,1,"0","-(8M+6)=R3" 66350,106,"",14,0,0,"0","CONTROL DATA" 66351,102,"",103,0,1,"0","ROUTE TYPE" 66352,124,"668",2,1,1,"0","MOD GROUP 0" 66353,124,"668",2,0,3,"0","" 66354,126,"",0,0,0,"0","(17)->REQUEST T/W" 66355,124,"668",2,0,3,"0","RI MODIFIER" 66356,106,"",26,0,0,"0","" 66357,11,"",0,0,0,"5","" 66358,102,"",14,0,0,"0","STORE(PARAS+1)FOR PTS" 66400,PROCR,"664",,,,"","TYPE DATE TIME AND ALLOC COMMENT" 66401,NOTES,"",RADIX,,,"","507" 66402,12,"",0,0,0,"2","" 66403,4,"668",21,0,0,"0","SET TRUE ANNEX START" 66404,124,"669",2,0,2,"0","" 66405,124,"668",21,0,3,"0","" 66406,128,"",0,1,2,"0","" 66407,,"668",20,0,0,"0","PARA 25" 66408,73,"664",14,0,0,"0",">MASTER TYPES PAGE HEADINGS ANYWAY" 66409,71,"664",13,0,0,"0",">CLOCK WORKING" 66410,10,"",0,0,0,"1.1.","" 66411,124,"668",21,0,3,"0","" 66412,102,"",6,1,0,"0","PREMATURE END" 66413,80,"667",2,0,0,"0",">TYPE" 66414,124,"668",2,0,3,"0","" 66415,126,"",0,0,0,"0","(17)->REQUEST T/W" 66416,101,"",76,1,3,"0","ANNEX LENGTH" 66417,30,"",0,0,0,"5","" 66418,104,"",20,0,0,"0","CHAP 1 START" 66419,124,"668",2,0,3,"0","" 66420,128,"",0,1,1,"0","(18)->MR T/W ANNEX" 66421,124,"668",2,0,3,"0","" 66422,126,"",0,0,0,"0","(19)EDIT TIME SR" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000469.JPG",,,,"","DaveJ/Q1000469" 66423,80,"667",2,0,0,"0","gTYPE" 66500,PROCR,"665",,,,"","CLEAR STORE STACK NEW TAG" 66501,NOTES,"",RADIX,,,"","508" 66502,124,"668",17,1,1,"0","SET MOD GROUP 3" 66503,126,"",16,1,1,"0","2XCHAPS:0" 66504,106,"",20,1,1,"0","" 66505,5,"668",12,1,0,"0","START/END NEXT CHAP" 66506,124,"",0,0,2,"0","" 66507,2,"668",12,0,0,"0","" 66508,126,"668",12,1,2,"0","TAG STACKER" 66509,126,"668",12,1,3,"0","CLEARER" 66510,71,"665",15,0,0,"0","gNOT SPECIAL CHAP" 66511,125,"",200,0,2,"0","" 66512,125,"",500,0,3,"0","" 66513,76,"665",15,0,0,"0","" 66514,76,"665",23,0,0,"0","gNONE TO CLEAR" 66515,125,"",180,0,3,"0","STOP 180 CHAP 1" 66516,10,"",0,0,0,"0","" 66517,106,"665",16,0,0,"0","CORRECTION AFTER" 66518,102,"665",15,0,0,"0","CHAP 1" 66519,124,"668",2,0,3,"0","" 66520,102,"",0,1,3,"0","CLEAR STORE " 66521,125,"",2,0,3,"0","" 66522,76,"665",19,0,0,"0","" 66523,106,"",10,0,0,"0","TAG " 66524,124,"668",2,0,3,"0","" 66525,123,"",0,1,2,"0","STACK AG" 66526,125,"",2,0,2,"0","" 66527,76,"665",24,0,0,"0","" 66528,125,"",2,0,1,"0","" 66529,76,"665",4,0,0,"0","gNEXT CHAPTER" 66530,101,"",0,1,3,"0","(28)" 66531,70,"666",2,0,0,"0","gPTS PART OF MASTER" 66532,106,"",11,0,0,"0","" 66533,70,"666",2,0,0,"0","gNOT TRIALS ALLOCATED" 66534,124,"668",2,0,3,"0","Q5 OF PARA 43=2X CHAP CONTAINING PTS" 66535,106,"",43,0,0,"0","" 66536,30,"",0,0,0,"4-","" 66537,4,"665",39,0,0,"0","" 66538,101,"",1500,1,3,"0","ADD PTS SIZE TO CHAP" 66539,107,"",19,0,0,"0","" 66600,PROCR,"666",,,,"","LOAD FINAL CHUNK" 66601,NOTES,"",RADIX,,,"","509" 66602,,"668",8,0,0,"0","SWITCH START SET RI FOR ENTRY" 66603,32,"",0,0,0,"5-","TO PROGRAM" 66604,124,"",0,0,2,"0","SPECIAL CHAP START" 66605,32,"",0,0,0,"5","" 66606,124,"668",2,0,3,"0","" 66607,102,"",26,1,0,"0","RI" 66608,124,"",146,0,2,"0","" 66609,124,"668",2,0,3,"0","" 66610,102,"",28,1,0,"0","R2 MODIFIER" 66611,101,"",146,1,3,"0","SET PARA 1 VALUE" 66612,124,"668",2,0,3,"0","13 BIT ADDRESS OF LOCN 140" 66613,102,"",1,0,0,"0","" 66614,101,"",0,1,3,"0","PARA TABLE START" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000470.JPG",,,,"","DaveJ/Q1000470" 66615,124,"668",2,0,3,"0","" 66616,126,"",0,0,0,"0","(6)->LOAD CHAP SR" 66617,,"668",8,0,0,"0","" 66618,124,"",214,1,0,"0","" 66700,PROCR,"667",,,,"","TYPEWRITER S/R" 66701,NOTES,"",RADIX,,,"","511" 66702,81,"667",2,0,0,"0","MOD GROUP=0" 66703,124,"668",2,0,3,"0","" 66704,106,"",35,0,1,"0","(SM+35)" 66705,11,"",0,0,0,"2","" 66706,124,"668",2,0,3,"0","" 66707,102,"",7,0,1,"0","gSM+7" 66708,124,"667",13,0,2,"0","" 66709,124,"668",2,0,3,"0","" 66710,102,"",42,0,1,"0","RETURN ADDRESS" 66711,124,"668",2,0,3,"0","" 66712,124,"",0,1,0,"0","(20)->TYPE" 66713,101,"",0,1,3,"0","(15)ROUTE CLOSED'LINK" 66714,124,"668",2,0,3,"0","" 66715,103,"",7,0,1,"0","gSM+7" 66716,124,"668",2,0,3,"0","" 66717,102,"",42,0,1,"0","gSM+42" 66718,82,"667",2,0,0,"0","" 66800,CONST,"668",,0,,"","512" 66802,,"(B)0;",,,,"","ZERO" 66803,,"20;",,,,"","BULK COPY TE" 66804,,"0;",,,,"","(10)LOCN OF (MG3)" 66805,,"0;",,,,"","W/L" 66806,,"0;",,,,"","MOD REGISTER" 66807,,"6;",,,,"","" 66808,,"0;",,,,"","W/L" 66809,,"48;",,,,"","" 66810,,"0;",,,,"","NEW TAG AVAILABILITY WRD" 66811,,"8191;",,,,"","BITS 1-13" 66812,,"0;",,,,"","LONG W/L" 66813,,"0;",,,,"","" 66814,,";",,,,"","(30)PQ START" 66815,,";",,,,"","(29)PQ END" 66816,,"(D)p0000;",,,,"","" 66817,,"66666;",,,,"","DEC RADIX" 66818,,"35.5.;",,,,"","" 66819,,"517;",,,,"","" 66820,,"0;",,,,"","(25)CLOCK PARA" 66821,,"0;",,,,"","(18)T/W ASL" 66822,,"35500;",,,,"","" 66823,,"54517;",,,,"","" 66824,,"0;",,,,"","(43)PTS START+CHAP" 66825,,"0;",,,,"","" 66826,,"0;",,,,"","" 66827,,";",,,,"","" 66900,PROCR,"669",,,,"","EDIT TABLE IN DISGUISE" 66901,NOTES,"",RADIX,,,"","513" 66902,100,"668",22,0,0,"0","DATE" 66903,103,"",5,0,0,"0","" 66904,100,"",138,0,0,"0","DAY Q5,6" 66905,102,"",1026,0,0,"0","4/0/2" 66906,100,"",138,0,0,"0","MONTH Q5,4" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000471.JPG",,,,"","RayS/Q1000471" 66907,102,"",1554,0,0,"0","" 66908,100,"",138,0,0,"0","YEAR Q1,2" 66909,102,"",2066,0,0,"0","" 66910,100,"668",18,0,0,"0","'AT'" 66911,103,"",290,0,0,"0","" 66912,100,"",156,0,0,"0","TIME" 66913,100,"",20,0,0,"0","0/1/4" 66914,100,"668",18,0,0,"0","DOUBLE LINE END" 66915,119,"",786,0,0,"0","" 66916,100,"",0,0,0,"0","" 66917,100,"",0,0,0,"0","" 66918,100,"",0,0,0,"0","" 66919,100,"",0,0,0,"0","" 67000,PROCR,"670",,,,"","FINAL CHUNK=LOAD PROGRAM START=LOCN 146 OF SPECIAL CHAP" 67001,NOTES,"",RADIX,,,"","601" 67002,128,"670",6,1,1,"0","CLEAR 150-197 OF SPECIAL CHAPTER" 67003,124,"670",6,0,3,"0","" 67004,124,"",0,1,0,"0","(9)>REENTER MASTER" 67005,101,"",0,1,3,"0","" 67006,100,"",0,0,0,"0","T/E FOR CLEARING" 67007,102,"",48,0,0,"0","FINAL CHUNK" 67008,124,"",16,0,1,"0","" 67009,106,"",20,0,0,"0","NEXT CHAP START" 67010,124,"670",6,0,3,"0","" 67011,102,"",28,1,0,"0","R2" 67012,124,"670",6,0,3,"0","" 67013,126,"",0,0,0,"0","(7)>READ BLOCK" 67014,124,"671",2,1,2,"0","-64+R" 67015,106,"",12,1,0,"0","" 67016,2,"671",4,1,0,"0","'CHAPT'" 67017,71,"670",12,0,0,"0",">NOT AT CHAP HEADING" 67018,124,"",98,0,2,"0","PARA TABLE START" 67019,124,"670",6,0,3,"0","" 67020,126,"",0,0,0,"0","(6)>LOAD CHAP" 67021,123,"",2,0,0,"0","" 67022,100,"",16,0,0,"0","(ABSOLUTE ADDRESS FORMED IN 603)" 67023,76,"670",8,0,0,"0",">NEXT CHAPTER" 67024,76,"670",31,0,0,"0","*FORMED ORDER*(1/1/3 IF PTS TO BE LOADED" 67025,5,"670",18,0,0,"0","" 67026,101,"",23,1,2,"0","" 67027,4,"670",23,0,0,"0","STEP LOOP EXIT" 67028,4,"671",4,0,0,"0","(CHAPT)>(CHAP')" 67029,106,"",200,0,0,"0","" 67030,76,"670",10,0,0,"0","" 67031,126,"",18,1,2,"0","STACK GUARD WORDS" 67032,106,"",67,0,2,"0","" 67033,70,"670",38,0,0,"0","" 67034,5,"670",8,0,0,"0","" 67035,101,"",15,1,3,"0","" 67036,124,"670",8,0,3,"0","" 67037,123,"",0,1,0,"0","TAG 15 GUARD WORD" 67038,125,"",2,0,2,"0","" 67039,76,"670",32,0,0,"0","" 67040,,"671",3,0,0,"0","24/1/0 23" 67041,101,"",0,1,2,"0","-(SWITCH START)" 67042,124,"670",6,0,3,"0","" 67043,103,"",35,0,1,"0","24/1/0 SI*23 IN SI*35" 67044,124,"670",6,0,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000472.JPG",,,,"","RayS/Q1000472" 67045,102,"",7,0,1,"0","TO SI+7" 67046,102,"",16,0,0,"0","CLEAR MODIFIERS" 67047,124,"670",6,1,1,"0","MG 0" 67048,106,"670",6,1,0,"0","" 67049,76,"670",2,0,0,"0",">CLEAR AND ENTER" 67100,CONST,"671",,0,,"","602 PARA FOR LOAD CHAPTER" 67102,,"(B)64-;",,,,"","(11)PROG PSEUDOROUTE" 67103,,"(D)88017-;",,,,"","" 67104,,"(D)16773;",,,,"","" 67105,,"53585;",,,,"","" 67106,,";",,,,"","" 67107,,";",,,,"","" 67200,PROCR,"672",,,,"","603 ARRANGE PTS LOADING LOCATION 200 OF SPECIAL CHAP" 67202,100,"",0,0,0,"0","" 67203,128,"",204,1,1,"0","CLEAR 204-214 OF" 67204,124,"670",8,1,0,"0","SPECIAL CHAP" 67205,128,"",214,1,1,"0","CLEAR 214-END OF SPECIAL CHAP" 67206,106,"670",7,0,0,"0","" 67207,101,"",152,1,1,"0","CLEAR FIRST 200" 67208,30,"",0,0,0,"5","OF CHAPTER 1" 67209,124,"",20,0,3,"0","" 67210,128,"",0,1,1,"0","" 67211,106,"672",14,1,0,"0","" 67212,124,"672",3,1,0,"0","" 67213,100,"",0,0,0,"0","" 67214,100,"",0,0,0,"0","BULK CLEAR CONSTANT" 67215,102,"",10,0,0,"0","" 67216,107,"670",41,0,0,"0","FORM 'SUBTRACT SWITCH START'" 67217,124,"",16,0,2,"0","FORM ABS ADDRESS INDIREST MOD REGISTER" 67218,5,"670",22,0,0,"0","" 67219,124,"670",6,0,3,"0","SET UP 64 AND" 67220,106,"",64,0,0,"0","(24)124 FOR USE" 67221,102,"",198,0,0,"0","" 67222,124,"670",6,0,3,"0","" 67223,106,"",124,0,0,"0","" 67224,102,"",199,0,0,"0","" 67225,106,"",11,0,0,"0","TEST PROGRAM TRIALS ALLOCATED" 67226,70,"672",46,0,0,"0",">NO" 67227,101,"",0,1,3,"0","(28)TEST PTS IN MASTER CODING" 67228,70,"672",46,0,0,"0",">YES" 67229,,"672",56,0,0,"0","ARRANGE FOR PTS" 67230,102,"670",24,0,0,"0","LOADING PROCEDURE" 67231,35,"",0,0,0,"1111","COLLATION CONST" 67232,36,"672",58,0,0,"0","PTS BEGINNING AND" 67233,124,"670",6,0,3,"0","SET UP PARA 2" 67234,103,"",2,0,0,"0","15 BIT START PTS" 67235,102,"",200,0,0,"0","END FOR LOADING" 67236,124,"",200,0,3,"0","SET UP PARA 1" 67237,101,"",0,1,3,"0","13 BIT START PTS" 67238,124,"670",6,0,3,"0","" 67239,102,"",1,0,0,"0","" 67240,124,"",20,0,3,"0","PARA 47 15 BIT" 67241,105,"",165,0,0,"0","START OF PRINT S/R" 67242,1,"672",59,0,0,"0","" 67243,101,"",0,1,2,"0","" 67244,124,"670",6,0,3,"0","" 67245,106,"",47,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000473.JPG",,,,"","ChuckK/Q1000473" 67246,124,"",20,0,3,"0","TEST PRINT S/R" 67247,106,"",122,0,0,"0","REQUIRED" 67248,70,"672",53,0,0,"0",">NO" 67249,106,"672",57,0,0,"0","SELECT BULK CLEAR" 67250,30,"",0,0,0,"5","TABLE ENTRY" 67251,124,"",20,0,3,"0","" 67252,124,"",169,1,0,"0",">ENTER 'LOAD PRINT SR' IN CHAP 1" 67253,106,"672",57,0,0,"0","" 67254,30,"",0,0,0,"5","" 67255,124,"672",5,1,0,"0",">LOAD CHAPS" 67256,106,"670",5,0,0,"0","" 67257,102,"",286,0,0,"0","" 67258,100,"",0,0,0,"0","43" 67259,126,"",0,0,1,"0","" 67300,CONST,"673",0,,,"","FIRST LEVEL PARAS FOR UNLOADER" 67302,,"(B5)7(B3)1(B3)1(B3)1(B6)9;",,,,"","101/1 START OF PG" 67303,,"1,1,0,1,15;",,,,"","START OF 2ND ST TB" 67304,,"1,1,1,1,54;",,,,"","" 67305,,"1,0,1,0,9;",,,,"","" 67306,,"0,1,0,0,9;",,,,"","" 67307,,"0,1,1,1,9;",,,,"","" 67308,,"0,1,1,0,9;",,,,"","" 67309,,"1,0,0,1,54;",,,,"","" 67310,,"0,1,1,0,0;",,,,"","" 67311,,"1,7,1,0,8;",,,,"","REJ ALLOC COMM" 67312,,"1,7,1,1,9;",,,,"","LOAD NEXT CHAP" 67313,,"3,3,1,7,1;",,,,"","102/5 LOAD NEXT CHAP" 67314,,"0,1,1,0,9;",,,,"","" 67315,,"0,1,0,1,15;",,,,"","UPDATE SWITCH S/R" 67316,,"1,0,1,1,1;",,,,"","" 67317,,"0,0,1,0,1;",,,,"","" 67318,,"1,0,1,0,9;",,,,"","" 67319,,"0,1,0,0,9;",,,,"","" 67320,,"0,1,0,1,1;",,,,"","" 67321,,"4,1,0,1,0;",,,,"","" 67322,,"1,1,1,0,8;",,,,"","" 67323,,"0,1,1,0,1;",,,,"","103/1" 67324,,"0,0,0,1,55;",,,,"","CD RTE TYPE" 67325,,"1,7,6,1,0;",,,,"","" 67326,,"0,1,0,1,9;",,,,"","" 67327,,"1,1,0,1,57;",,,,"","USE OF ASS TABLE" 67328,,"1,1,1,7,0;",,,,"","USE OF ASS TABLE" 67329,,"1,0,1,7,1;",,,,"","USE OF ASS TABLE" 67330,,"1,0,1,0,9;",,,,"","104/1" 67331,,"0,1,0,0,9;",,,,"","" 67332,,"1,1,1,0,9;",,,,"","" 67333,,"0,1,0,0,15;",,,,"","105/6" 67334,,"1,1,1,1,9;",,,,"","" 67335,,"1,1,1,1,54;",,,,"","" 67336,,"1,0,1,1,9;",,,,"","106/3" 67337,,"1,1,1,1,9;",,,,"","" 67338,,"1,1,1,1,1;",,,,"","" 67339,,"1,1,1,1,1;",,,,"","" 67340,,"1,0,1,1,8;",,,,"","" 67341,,"1,0,1,1,1;",,,,"","" 67342,,"1,1,1,0,9;",,,,"","107/3" 67343,,"1,1,1,1,9;",,,,"","" 67344,,"1,0,1,1,9;",,,,"","" 67345,,"1,0,0,1,1;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000474.JPG",,,,"","ChuckK/Q1000474" 67346,,"7,0,1,1,9;",,,,"","XXX COMMENT" 67347,,"0,1,1,0,1;",,,,"","" 67348,,"1,0,1,0,63;",,,,"","108/5 STRT OF STRE TB" 67349,,"7,3,7,7,63;",,,,"","PRTY AND STR TAB STRT" 67350,,"0,0,7,3,0;",,,,"","STORE TAB START" 67351,,"0,0,0,0,56;",,,,"","" 67352,,"7,0,0,0,0;",,,,"","" 67353,,"7,6,6,6,54;",,,,"","" 67400,CONST,"674",CONST,CONST,CONST,"CONST","FIRST LEVEL PARAS FOR ALLO STORAGE" 67402,,"(B5)7(B3)1(B3)0(B3)6(B6)1;",,,,"","202/1" 67403,,"0,1,1,6,63;",,,,"","" 67404,,"1,1,6,6,54;",,,,"","" 67405,,"1,7,1,0,0;",,,,"","READ NEXT BLOCK S/R" 67406,,"0,0,0,0,0;",,,,"","" 67407,,"0,0,0,0,0;",,,,"","" 67408,,"1,0,1,0,9;",,,,"","203/1" 67409,,"0,1,1,0,25;",,,,"","" 67410,,"7,0,0,0,0;",,,,"","LOAD NEXT CHAP S/R" 67411,,"0,0,7,0,8;",,,,"","204/3 205/5 RTE 0 PSDO RT" 67412,,"0,0,0,1,8;",,,,"","" 67413,,"0,0,0,1,9;",,,,"","" 67414,,"5,0,0,1,1;",,,,"","" 67415,,"1,7,1,1,9;",,,,"","" 67416,,"0,1,1,1,9;",,,,"","" 67417,,"1,1,1,1,9;",,,,"","" 67418,,"6,3,1,6,54;",,,,"","" 67419,,"0,1,3,0,9;",,,,"","" 67420,,"0,1,1,1,9;",,,,"","206/6" 67421,,"1,1,1,0,9;",,,,"","" 67422,,"1,1,7,1,57;",,,,"","" 67423,,"1,1,1,1,1;",,,,"","" 67424,,"1,1,1,0,9;",,,,"","" 67425,,"1,1,1,1,9;",,,,"","" 67426,,"1,1,1,1,9;",,,,"","" 67427,,"1,1,1,0,8;",,,,"","" 67428,,"0,1,1,1,1;",,,,"","" 67429,,"0,6,6,6,54;",,,,"","" 67430,,"0,0,1,1,9;",,,,"","" 67431,,"0,1,6,1,1;",,,,"","" 67432,,"1,1,1,1,9;",,,,"","" 67433,,"1,1,1,1,9;",,,,"","" 67434,,"1,0,0,1,1;",,,,"","" 67435,,"1,1,1,1,8;",,,,"","207/2" 67436,,"1,1,1,1,9;",,,,"","" 67437,,"1,0,0,1,9;",,,,"","" 67438,,"1,6,6,6,54;",,,,"","" 67439,,"0,1,0,0,9;",,,,"","" 67440,,"0,1,0,0,9;",,,,"","" 67441,,"0,0,7,1,9;",,,,"","" 67442,,"1,0,0,1,1;",,,,"","208/2" 67443,,"0,0,1,1,9;",,,,"","" 67444,,"0,1,0,6,0;",,,,"","209/5" 67445,,"0,0,0,0,0;",,,,"","" 67446,,"0,0,1,1,9;",,,,"","210/3" 67447,,"1,1,1,1,54;",,,,"","" 67448,,"1,0,1,7,8;",,,,"","REJECT ALLO COMM " 67449,,"1,0,0,1,9;",,,,"","" 67450,,"1,0,6,6,54;",,,,"","" 67451,,"1,0,1,1,8;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000475.JPG",,,,"","ChuckK/Q1000475" 67452,,"6,6,0,1,1;",,,,"","" 67453,,"6,6,6,6,54;",,,,"","" 67454,,"1,1,0,1,9;",,,,"","211/3" 67455,,"1,1,1,0,9;",,,,"","" 67456,,"0,1,1,1,9;",,,,"","" 67457,,"1,1,1,1,8;",,,,"","" 67458,,"1,1,1,6,9;",,,,"","" 67459,,"1,1,0,1,9;",,,,"","" 67460,,"1,1,0,0,1;",,,,"","" 67461,,"1,1,1,1,9;",,,,"","" 67462,,"1,1,0,1,9;",,,,"","" 67463,,"1,0,1,1,9;",,,,"","" 67464,,"1,1,1,1,9;",,,,"","" 67465,,"0,6,1,1,9;",,,,"","212/3" 67466,,"1,1,1,1,9;",,,,"","" 67467,,"1,1,1,1,9;",,,,"","" 67468,,"1,0,6,6,54;",,,,"","" 67469,,"6,1,1,1,9;",,,,"","213/2" 67470,,"1,1,1,1,9;",,,,"","" 67471,,"1,1,0,1,9;",,,,"","" 67472,,"1,1,0,0,1;",,,,"","" 67473,,"1,1,1,1,9;",,,,"","" 67474,,"0,1,1,1,1;",,,,"","214/4 215/4" 67475,,"0,1,1,0,8;",,,,"","" 67476,,"1,1,1,1,6;",,,,"","" 67477,,"1,1,1,1,9;",,,,"","" 67478,,"1,1,0,1,9;",,,,"","" 67479,,"1,1,0,1,9;",,,,"","216/5" 67480,,"1,1,1,1,9;",,,,"","" 67481,,"1,1,0,0,9;",,,,"","" 67482,,"1,1,1,0,8;",,,,"","" 67483,,"1,1,1,1,1;",,,,"","" 67484,,"3,1,1,1,9;",,,,"","" 67485,,"1,3,6,6,9;",,,,"","217/5" 67486,,"1,0,1,0,11;",,,,"","" 67487,,"1,7,1,0,11;",,,,"","LOAD CHAP S/R" 67488,,"0,1,3,0,54;",,,,"","" 67489,,"1,1,1,0,9;",,,,"","218/1" 67490,,"1,1,0,1,1;",,,,"","" 67491,,"1,6,6,6,54;",,,,"","" 67492,,"1,1,1,1,9;",,,,"","" 67493,,"1,1,1,0,9;",,,,"","" 67494,,"1,0,0,0,9;",,,,"","" 67495,,"1,1,1,0,0;",,,,"","" 67496,,"0,0,0,0,6;",,,,"","" 67497,,"7,6,6,6,54;",,,,"","" 67500,CONST,"675",0,,,"","FIRST LEVEL PARAS FOR ALLOC" 67502,,"(B5)2(B3)0(B3)0(B3)1(B6)1;",,,,"","301/0 302/3" 67503,,"1,1,7,1,9;",,,,"","" 67504,,"1,1,1,1,0;",,,,"","" 67505,,"2,1,1,1,9;",,,,"","" 67506,,"0,1,1,0,10;",,,,"","" 67507,,"1,0,1,2,9;",,,,"","" 67508,,"0,0,6,6,54;",,,,"","303/1" 67509,,"0,0,0,0,0;",,,,"","" 67510,,"0,0,0,0,0;",,,,"","" 67511,,"5,0,5,0,40;",,,,"","304/1" 67512,,"5,0,5,0,56;",,,,"","RUN NUMBER" 67513,,"5,0,5,0,0;",,,,"","306/5" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000476.JPG",,,,"","ChuckK/Q1000476" 67514,,"1,1,2,0,2;",,,,"","" 67515,,"1,2,1,2,0;",,,,"","" 67516,,"1,0,1,1,9;",,,,"","" 67517,,"1,1,0,1,1;",,,,"","" 67518,,"0,1,0,2,1;",,,,"","" 67519,,"0,1,1,1,9;",,,,"","" 67520,,"1,2,2,0,0;",,,,"","" 67521,,"1,2,1,7,15;",,,,"","" 67522,,"1,1,1,1,16;",,,,"","" 67523,,"1,0,0,2,18;",,,,"","" 67524,,"1,3,1,0,9;",,,,"","307/3" 67525,,"2,1,1,1,8;",,,,"","" 67526,,"1,0,1,1,56;",,,,"","READ NEXT BLOCK" 67527,,"6,6,6,6,1;",,,,"","" 67528,,"0,1,1,0,1;",,,,"","308/4" 67529,,"1,1,1,1,9;",,,,"","8 OR MORE CH" 67530,,"2,1,7,2,2;",,,,"","" 67531,,"0,2,6,6,54;",,,,"","" 67532,,"0,0,2,1,8;",,,,"","" 67533,,"1,0,1,1,9;",,,,"","" 67534,,"1,1,1,0,8;",,,,"","" 67535,,"2,1,0,1,1;",,,,"","" 67536,,"2,0,1,1,54;",,,,"","" 67537,,"0,1,0,1,0;",,,,"","309/2" 67538,,"0,1,0,0,9;",,,,"","" 67539,,"2,1,2,0,10;",,,,"","" 67540,,"0,0,1,1,1;",,,,"","" 67541,,"1,1,1,1,10;",,,,"","" 67542,,"2,0,1,1,16;",,,,"","" 67543,,"1,1,0,2,1;",,,,"","" 67544,,"1,1,1,1,1;",,,,"","" 67545,,"0,1,0,1,9;",,,,"","" 67546,,"1,1,1,0,54;",,,,"","" 67547,,"2,1,0,2,9;",,,,"","" 67548,,"1,2,2,0,10;",,,,"","310/2" 67549,,"2,2,1,0,54;",,,,"","" 67550,,"1,7,0,1,24;",,,,"","LOAD NEXT CHAP" 67551,,"1,0,3,1,56;",,,,"","311/6" 67552,,"1,1,1,1,9;",,,,"","" 67553,,"1,2,0,1,9;",,,,"","" 67554,,"0,1,0,0,18;",,,,"","" 67555,,"0,1,1,1,9;",,,,"","" 67556,,"1,0,1,1,8;",,,,"","" 67557,,"1,2,0,1,8;",,,,"","" 67558,,"1,7,1,2,1;",,,,"","OD RTE TYPE" 67559,,"1,1,0,7,10;",,,,"","CD RTE TYPE" 67560,,"0,1,1,1,9;",,,,"","" 67561,,"1,1,1,1,9;",,,,"","" 67562,,"1,1,1,1,9;",,,,"","" 67563,,"1,0,1,7,8;",,,,"","REJ ALLOC COMM" 67564,,"1,1,1,0,8;",,,,"","" 67565,,"2,1,0,1,1;",,,,"","" 67566,,"0,1,1,1,9;",,,,"","312/1" 67567,,"1,1,0,1,1;",,,,"","313/3" 67568,,"1,0,1,1,8;",,,,"","" 67569,,"1,1,1,1,9;",,,,"","" 67570,,"1,0,1,0,1;",,,,"","314/4" 67571,,"0,1,0,1,0;",,,,"","315/5" 67572,,"0,0,1,0,0;",,,,"","" 67573,,"0,1,0,7,0;",,,,"","316/3 PROG RTE NO" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000477.JPG",,,,"","DaveJ/Q1000477" 67574,,"0,0,0,0,0;",,,,"","" 67575,,"0,0,0,0,56;",,,,"","PROG RTE NO" 67576,,"0,0,0,0,0;",,,,"","" 67577,,"0,0,0,0,56;",,,,"","PROG RTE NO" 67578,,"5,0,5,0,40;",,,,"","" 67579,,"0,0,7,6,54;",,,,"","" 67600,CONST,"676",,0,,"","FIRST LEVEL PARAS FOR ALLOC F/P TAG" 67602,,"(B5)0(B3)2(B3)0(B3)1(B6)9;",,,,"","402/1" 67603,,"1,1,1,1,9;",,,,"","" 67604,,"1,0,4,7,54;",,,,"","" 67605,,"1,1,4,0,12;",,,,"","" 67606,,"1,2,2,1,18;",,,,"","" 67607,,"2,1,1,0,9;",,,,"","" 67608,,"0,2,1,2,1;",,,,"","" 67609,,"2,1,1,0,1;",,,,"","" 67610,,"1,2,1,2,1;",,,,"","" 67611,,"1,0,0,0,8;",,,,"","" 67612,,"1,0,0,0,1;",,,,"","" 67613,,"7,1,0,0,0;",,,,"","REJ ALLOC COMMENT" 67614,,"2,0,2,2,0;",,,,"","" 67615,,"2,0,0,2,1;",,,,"","" 67616,,"1,1,1,1,8;",,,,"","" 67617,,"1,0,1,1,9;",,,,"","" 67618,,"0,1,2,1,54;",,,,"","" 67619,,"0,0,0,1,1;",,,,"","" 67620,,"0,1,0,1,1;",,,,"","" 67621,,"1,1,1,0,8;",,,,"","405/3" 67622,,"1,0,1,1,9;",,,,"","" 67623,,"1,0,1,0,15;",,,,"","45/90K" 67624,,"0,1,7,1,0;",,,,"","" 67625,,"1,7,1,1,1;",,,,"","406/4 45/90K IND" 67626,,"0,1,2,0,9;",,,,"","" 67627,,"1,1,1,1,1;",,,,"","" 67628,,"0,1,0,6,54;",,,,"","" 67629,,"2,0,1,2,17;",,,,"","407/1" 67630,,"1,2,1,1,0;",,,,"","" 67631,,"0,0,6,6,54;",,,,"","" 67632,,"1,1,1,0,1;",,,,"","" 67633,,"6,0,1,1,0;",,,,"","" 67634,,"0,2,0,1,8;",,,,"","" 67635,,"0,0,2,0,17;",,,,"","" 67636,,"1,3,6,6,54;",,,,"","" 67637,,"6,6,1,2,8;",,,,"","408/3 PRINT RT" 67638,,"1,7,3,1,63;",,,,"","LOAD NEXT CHAP" 67639,,"0,0,0,5,0;",,,,"","409/1" 67640,,"0,0,5,0,5;",,,,"","" 67641,,"0,5,0,6,54;",,,,"","" 67642,,"6,6,0,2,0;",,,,"","" 67643,,"5,0,2,0,0;",,,,"","" 67644,,"0,5,0,0,45;",,,,"","410/1" 67645,,"5,5,0,5,6;",,,,"","" 67646,,"0,5,0,0,45;",,,,"","" 67647,,"0,0,5,0,40;",,,,"","" 67648,,"0,0,0,5,0;",,,,"","" 67649,,"5,0,5,0,5;",,,,"","" 67650,,"0,0,0,0,40;",,,,"","" 67651,,"5,0,5,5,40;",,,,"","" 67652,,"0,0,6,6,54;",,,,"","" 67653,,"0,2,0,0,40;",,,,"","410 ENDS ODD'COS 409 ENDS EVEN" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000478.JPG",,,,"","DaveJ/Q1000478" 67654,,"2,0,0,0,0;",,,,"","411/5" 67655,,"0,0,0,0,7;",,,,"","" 67656,,"0,0,7,7,0;",,,,"","" 67657,,"0,0,0,0,0;",,,,"","" 67658,,"0,0,0,0,62;",,,,"","" 67659,,"1,0,1,0,9;",,,,"","501/1" 67700,CONST,"677",,0,,"","FIRST LEVEL PARAS FOR SET UP PQ" 67702,,"(B5)0(B3)6(B3)6(B3)6(B6)50;",,,,"","" 67703,,"2,2,0,2,9;",,,,"","" 67704,,"1,0,0,2,9;",,,,"","" 67705,,"0,1,0,1,9;",,,,"","" 67706,,"1,1,1,0,8;",,,,"","" 67707,,"0,1,0,0,1;",,,,"","" 67708,,"1,6,6,6,54;",,,,"","" 67709,,"0,0,1,1,1;",,,,"","" 67710,,"1,1,1,0,8;",,,,"","" 67711,,"0,1,1,1,15;",,,,"","502/5 UPDATE SWITCH S/R" 67712,,"0,1,1,0,8;",,,,"","" 67713,,"1,0,1,1,8;",,,,"","" 67714,,"0,1,1,0,16;",,,,"","503/5" 67715,,"1,0,2,0,17;",,,,"","" 67716,,"0,2,1,0,17;",,,,"","" 67717,,"0,1,0,1,58;",,,,"","" 67718,,"1,0,7,1,1;",,,,"","START OF PRIORITY TAB" 67719,,"3,0,0,1,11;",,,,"","ROUTE CLOSED LINK" 67720,,"1,0,1,1,0;",,,,"","" 67721,,"1,2,1,2,9;",,,,"","504/1" 67722,,"0,0,1,2,8;",,,,"","" 67723,,"1,2,1,1,0;",,,,"","" 67724,,"1,2,0,1,9;",,,,"","" 67725,,"0,1,1,0,1;",,,,"","" 67726,,"3,7,0,0,2;",,,,"","" 67727,,"1,7,1,1,34;",,,,"","505/3" 67728,,"0,2,1,1,16;",,,,"","" 67729,,"2,1,0,2,10;",,,,"","" 67730,,"0,0,1,0,8;",,,,"","" 67731,,"1,1,7,1,56;",,,,"","" 67732,,"1,0,6,6,54;",,,,"","" 67733,,"1,1,0,1,2;",,,,"","" 67734,,"0,0,7,1,57;",,,,"","" 67735,,"2,0,1,0,0;",,,,"","" 67736,,"1,1,1,3,6;",,,,"","" 67737,,"1,2,1,2,18;",,,,"","506/1" 67738,,"2,0,0,1,18;",,,,"","" 67739,,"2,0,1,0,2;",,,,"","" 67740,,"1,0,1,6,54;",,,,"","" 67741,,"1,2,0,0,10;",,,,"","" 67742,,"1,0,0,2,18;",,,,"","" 67743,,"0,2,0,0,10;",,,,"","" 67744,,"0,2,2,0,16;",,,,"","" 67745,,"2,0,2,2,17;",,,,"","" 67746,,"1,7,1,0,2;",,,,"","REQUEST T/W S/R" 67747,,"6,6,6,6,1;",,,,"","507/5" 67748,,"1,1,0,1,9;",,,,"","" 67749,,"0,1,0,1,15;",,,,"","REQUEST T/W S/R" 67750,,"0,0,2,1,57;",,,,"","T/W ANNEXE" 67751,,"7,1,1,2,17;",,,,"","508/3 EDIT TIME SR" 67752,,"2,1,1,1,8;",,,,"","" 67753,,"0,1,1,0,1;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000479.JPG",,,,"","RayS/Q1000479" 67754,,"1,1,0,0,10;",,,,"","" 67755,,"1,0,0,1,1;",,,,"","" 67756,,"7,1,2,1,11;",,,,"","PTS IN MASTER?" 67757,,"0,1,0,2,8;",,,,"","509/5" 67758,,"2,0,1,0,54;",,,,"","" 67759,,"2,1,0,2,11;",,,,"","" 67760,,"3,1,7,1,16;",,,,"","510/6 LOAD CHAP S/R" 67761,,"1,0,0,1,1;",,,,"","" 67762,,"1,0,1,7,57;",,,,"","LOG ROUTINE/RTE CLSD LK" 67763,,"0,1,0,1,0;",,,,"","511/5" 67764,,"0,6,6,6,54;",,,,"","" 67765,,"6,6,6,6,54;",,,,"","" 67766,,"7,0,0,0,0;",,,,"","MOD GRP 3 STORE" 67767,,"0,0,0,0,63;",,,,"","PRRTY AND STRE TABS" 67768,,"0,0,0,0,63;",,,,"","CLOCK IND/T/W ANNEXE" 67769,,"0,0,7,0,0;",,,,"","PTS CHAP START" 67770,,"5,0,0,0,0;",,,,"","513/1" 67771,,"0,0,5,0,0;",,,,"","" 67772,,"5,0,0,0,0;",,,,"","" 67773,,"7,6,6,6,54;",,,,"","" 67800,CONST,"678",,0,,"","FIRST LEVEL PARAS OF FINAL CHUNK" 0query,164,"",,,,"","suspect this should be PTS" 67802,,"(B5)1(B3)1(B3)7(B3)3(B6)0;",,,,"","601/1 RETURN AFTER PLS" 67803,,"6,2,2,1,1;",,,,"","" 67804,,"7,1,0,1,10;",,,,"","READ NEXT BLOCK" 67805,,"1,7,0,2,9;",,,,"","LOAD CHAP S/R" 67806,,"1,0,1,1,17;",,,,"","" 67807,,"2,2,1,1,1;",,,,"","" 67808,,"0,0,1,1,1;",,,,"","" 67809,,"0,1,0,2,9;",,,,"","" 67810,,"1,7,0,0,0;",,,,"","" 67811,,"0,0,2,1,17;",,,,"","" 67812,,"0,0,2,0,9;",,,,"","603/1" 67813,,"0,0,0,6,54;",,,,"","" 67814,,"1,2,1,1,58;",,,,"","" 67815,,"1,0,2,2,15;",,,,"","PTS IN MASTER" 67816,,"1,1,1,0,9;",,,,"","" 67817,,"3,2,2,0,11;",,,,"","" 67818,,"2,0,1,2,11;",,,,"","" 67819,,"2,0,1,1,2;",,,,"","" 67820,,"0,1,0,1,8;",,,,"","" 67821,,"7,0,7,6,54;",,,,"","PTS CHAP START" ,,"",,,,"","" 67900,CONST,"679",,0,,"","SECOND LEVEL PARAS" 67902,,"(B8)29(B6)31(B6)14;",,,,"","UNLOADER" 67903,,"6,6,8;",,,,"","" 67904,,"32,32,12;",,,,"","" 67905,,"12,12,31;",,,,"","" 67906,,"13,63,63;",,,,"","" 67907,,"30,31,31;",,,,"","" 67908,,"29,30,29;",,,,"","" 67909,,"30,30,30;",,,,"","" 67910,,"31,62,31;",,,,"","2/ALLOC STORAGE" 67911,,"31,30,7;",,,,"","" 67912,,"6,11,28;",,,,"","" 67913,,"28,48,30;",,,,"","" 67914,,"14,6,62;",,,,"","" 67915,,"32,29,28;",,,,"","1/ALLOC ROUTES" 67916,,"26,7,63;",,,,"","" 67917,,"63,63,32;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000480.JPG",,,,"","RayS/Q1000480" 67918,,"6,6,33;",,,,"","" 67919,,"33,14,24;",,,,"","" 67920,,"24,63,63;",,,,"","" 67921,,"24,62,29;",,,,"","3/ALLOC F/P" 67922,,"14,22,32;",,,,"","" 67923,,"22,63,63;",,,,"","" 67924,,"63,6,6;",,,,"","" 67925,,"27,63,63;",,,,"","" 67926,,"21,24,23;",,,,"","" 67927,,"62,8,29;",,,,"","2/SET UP PQ" 67928,,"15,30,30;",,,,"","" 67929,,"16,35,32;",,,,"","" 67930,,"32,63,63;",,,,"","" 67931,,"63,63,63;",,,,"","DUMMY WORD" 67932,,"17,17,18;",,,,"","" 67933,,"19,28,6;",,,,"","" 67934,,"20,15,10;",,,,"","" 67935,,"30,29,25;",,,,"","" 67936,,"18,43,62;",,,,"","" 67937,,"9,7,6;",,,,"","1/LOAD CHAP" 67938,,"11,24,28;",,,,"","" 67939,,"43,62,63;",,,,"","" 68000,PROCR,"680",,,,"","START OF PASS 4=READ/STORE PROCR START INDEX" 68002,152,"152",2,0,0,"0","" 68003,C,"776",2,0,0,"0","CALL PASS 5" 68004,0,"27",13,0,0,"0","" 68005,70,"680",8,0,0,"0",">NOT 'TRAMDING'" 68006,0,"94",0,1,0,"0","" 68007,5,"16",2,1,0,"0","" 68008,52,"5",0,0,0,"0","TYPE 'PROG OUT'" 68009,C,"736",14,0,0,"0","" 68010,0,"27",12,0,0,"0","" 68011,70,"680",18,0,0,"0",">NO PTS" 68012,10,"",0,0,0,"4+677372","'+PTS'" 68013,5,"5",12,1,0,"0","" 68014,0,"732",24,1,0,"0","DOUBLE LE" 68015,5,"5",14,1,0,"0","" 68016,35,"",0,0,0,"1111","" 68017,37,"5",10,1,0,"0","" 68018,154,"5",0,0,0,"0","" 68019,54,"5",0,1,0,"50","" 68020,0,"27",13,0,0,"0","" 68021,71,"690",2,0,0,"0",">'TRAMDING'" 68022,54,"26",0,1,0,"1080","" 68023,90,"",0,0,8,"0","" 68024,C,"",0,0,0,"48","FOR PROCR STARTS" 68025,90,"",0,0,2,"0","" 68026,C,"",0,0,0,"144","" 68027,80,"722",2,0,0,"0","READ A6>SEC 9" 68028,55,"9",4,2,0,"8","" 68029,C,"11",0,2,0,"0","" 68030,5,"18",0,0,0,"0","CLEAR CTR" 68031,,"11",0,1,0,"0","" 68032,32,"",0,0,0,"2-","TEST TYPE AS EXPECTED" 68033,2,"731",8,1,0,"0","" 68034,70,"680",41,0,0,"0",">OK" 68035,10,"",0,0,0,"900000","" 68036,1,"27",9,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000481.JPG",,,,"","RayS/Q1000481" 68037,91,"",0,0,3,"0","FOR REENTRY" 68038,150,"",0,0,0,"8","" 68039,C,"100",2,0,0,"0","RE-ENTER PASS 0" 68040,C,"680",25,0,0,"0",">READ NEXT BLOCK" 68041,,"9",0,2,0,"0","" 68042,5,"712",2,0,0,"0","CURRENT BLOCK SERIAL WL" 68043,90,"",0,0,2,"0","" 68044,C,"",0,0,0,"144","" 68045,,"9",4,1,2,"0","" 68046,32,"",0,0,0,"2-","" 68047,2,"731",8,1,0,"0","'TYPE'" 68048,71,"680",63,0,0,"0",">STEP R2" 68049,32,"",0,0,0,"2","" 68050,12,"",0,0,0,"46","" 68051,70,"680",63,0,0,"0",">6=C-PROCR" 68052,12,"",0,0,0,"1","" 68053,70,"680",63,0,0,"0",">7=VALUES" 68054,73,"680",58,0,0,"0",">TYPE 1-5" 68055,12,"",0,0,0,"8","" 68056,70,"680",66,0,0,"0",">END OF PROGM" 68057,76,"680",63,0,0,"0","" 68058,,"9",6,2,2,"0","" 68059,5,"26",0,0,0,"0","" 68060,,"9",8,2,2,"0","START" 68061,124,"26",0,0,1,"0","" 68062,5,"26",0,0,0,"0","" 68063,94,"680",45,0,2,"8","" 68064,80,"722",2,0,0,"0",">READ" 68065,76,"680",43,0,0,"0","" 68066,46,"A6",4,0,0,"1","" 68067,C,"",0,0,0,"£££££","" 68068,80,"722",2,0,0,"0",">READ" 68069,,"712",2,0,0,"0","" 68070,2,"9",0,2,0,"0","" 68071,73,"680",66,0,0,"0",">RUN BACK FURTHER" 68072,71,"680",68,0,0,"0",">GET TO REQUIRED BLOCK" 68073,55,"94",0,1,0,"100","SECTION START ADDRESSES" 68074,C,"26",0,1,0,"0","" 68075,101,"",204,1,3,"0","" 68076,5,"26",1000,0,0,"0","CONVERT TABLE START" 68077,124,"92",29,0,1,"0","" 68078,,"26",1001,0,0,"0","" 68079,124,"92",29,0,1,"0","" 68080,5,"72",17,0,0,"0","(TO PRESERVE IT IN COPY)" 68081,55,"72",18,0,0,"0","SWITCH PROCR STARTS" 68082,C,"26",1002,0,0,"0","" 68083,C,"92",29,0,0,"0","(CHAPS INITIALLY)" 68084,124,"92",29,0,1,"0","" 68085,,"72",2,0,0,"0","SPECIAL CHAP LENGTH" 68086,5,"26",1001,0,0,"0","SET START OF PRINT SR" 68087,5,"27",7,0,0,"0","CLEAR" ,,"",,,,"","" 68100,PROCR,"681",,,,"","SET UP BLOCKS FOR PTS" 68102,,"16",2,0,0,"0","PROG ID" 68103,5,"8",6,2,0,"0","" 68104,,"16",3,0,0,"0","PROG SERIAL" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000482.JPG",,,,"","ChuckK/Q1000482" 68105,5,"8",8,2,0,"0","" 68106,,"732",12,1,0,"0"," 'FIEND'" 68107,5,"8",4,1,0,"0","" 68108,80,"727",2,0,0,"0","WRITE'FIEND'BLOCK" 68109,90,"",0,0,2,"0","" 68110,C,"",0,0,0,"48","" 68111,90,"",0,0,1,"0","" 68112,C,"",0,0,0,"1000","" 68113,0,"26",0,0,1,"0","PROCR START INDEX" 68114,80,"692",2,0,0,"0",">OUT" 68115,94,"681",13,0,1,"1","" 68116,90,"",0,0,1,"0","" 68117,C,"",0,0,0,"14","FOR CHAPTER ENDS ETC" 68118,,"92",10,0,1,"0","" 68119,80,"692",2,0,0,"0",">OUT" 68120,94,"681",18,0,1,"1","" 68121,90,"",0,0,1,"0","" 68122,C,"",0,0,0,"40","FOR TRACE POINTS" 68123,,"25",2,0,1,"0","" 68124,80,"692",2,0,0,"0",">OUT" 68125,94,"681",23,0,1,"1","" 68126,90,"",0,0,1,"0","" 68127,C,"",0,0,0,"100","FOR SECTIONS" 68128,,"15",0,0,1,"0","" 68129,80,"692",2,0,0,"0",">OUT" 68130,94,"681",28,0,1,"1","" 68131,90,"",0,0,1,"0","" 68132,C,"",0,0,0,"36","FOR FILES AND TX AREAS" 68133,,"24",0,0,1,"0","" 68134,80,"692",2,0,0,"0",">OUT" 68135,94,"681",33,0,1,"1","" 68136,80,"727",2,0,0,"0","WRITE FINAL BLOCK" 68200,PROCR,"682",,,,"","CHAPTER HEADING BLOCK - THE FIRST ONE" 68202,90,"",0,0,1,"0","" 68203,C,"",0,0,0,"48","" 68204,10,"",0,0,0,"1","" 68205,5,"16",16,0,0,"0","" 68206,52,"8",4,0,0,"0","" 68207,C,"738",2,0,0,"0","" 68208,80,"727",2,0,0,"0","WRITE CHAP HEADING BLOCK" 68209,52,"5",2,0,0,"0","" 68210,C,"738",12,0,0,"0","" 68211,10,"",0,0,0,"2","" 68212,3,"16",16,0,0,"0","" 68213,80,"724",2,0,0,"0",">PRINT CHAP HEADING" 68214,90,"",0,0,2,"0","" 68215,C,"",0,0,0,"144","" 68216,76,"683",3,0,0,"0",">DEAL WITH FIRST'TYPE'BLOCK" 68300,PROCR,"683",,,,"","ENTRY POINT" 68301,NOTES,"",RADIX,B,,"","MAIN LOOP" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000483.JPG",,,,"","ChuckK/Q1000483" 68302,80,"721",2,0,0,"0",">GET NEXT ITEM" 68303,80,"728",2,0,0,"0","" 68304,,"11",0,1,0,"0","" 68305,32,"",0,0,0,"2-","" 68306,2,"731",8,1,0,"0"," 'TYPE'" 68307,71,"695",2,0,0,"0",">SWITCH NOT A 'TYPE' UNIT" 68308,32,"",0,0,0,"2","" 68309,12,"",0,0,0,"48","" 68310,72,"686",2,0,0,"0","(MUST BE 14=CHAP END)" 68311,11,"",0,0,0,"8","" 68312,84,"695",2,0,0,"0","" 68313,00,"11",4,2,0,"0","" 68314,05,"16",23,0,0,"0","SPACE CTR FOR USE WITH VALUES" 68315,,"11",2,2,0,"0","" 68316,80,"729",2,0,0,"0","TO DEC" 68317,3,"16",17,0,0,"0","" 68318,5,"733",6,0,0,"0","STORE CURRENT PROCR" 68319,62,"",0,0,0,"0","RESET BINARY" 68400,PROCR,"684",,,,"","PRINT HEADING FOR INSTRUCTIONS" 68401,NOTES,"",RADIX,B,,"","MAIN LOOP" 68402,85,"100",2,0,0,"0","" 68403,C,"684",23,0,0,"0",">PRINT" 68404,C,"684",5,0,0,"0",">DON'T PRINT" 68405,0,"11",2,2,0,"0","PROCR" 68406,70,"683",2,0,0,"0",">DON'T PRINT" 68407,0,"11",4,2,0,"0","PROCR START" 68408,80,"729",2,0,0,"0","TO DEC" 68409,62,"",0,0,0,"0","" 68410,5,"16",36,0,0,"0","PROCR START" 68411,52,"5",2,0,8,"0","" 68412,C,"738",16,0,0,"0","" 68413,86,"695",2,0,0,"0","TYPE" 68414,12,"",0,0,0,"6","" 68415,71,"684",18,0,0,"0","" 68416,10,"",0,0,0,"537354"," 'CTD'" 68417,5,"5",2,1,8,"0","" 68418,94,"683",2,0,8,"4","" 68419,80,"724",2,0,0,"0",">PRINT" 68420,90,"",0,0,8,"0","" 68421,C,"",0,0,0,"48","" 68422,76,"683",2,0,0,"0","" 68423,95,"",0,0,5,"0","" 68424,5,"731",38,1,0,"0","" 68425,0,"16",1,0,0,"0","LINE PRINTED?" 68426,70,"684",28,0,0,"0",">YES" 68427,80,"712",2,0,0,"0",">O/P LINE" 68428,91,"731",38,0,5,"0","RESET R5" 68429,5,"16",37,0,0,"0","CLEAR SUBCTR" 68430,86,"695",2,0,0,"0","TEST TYPE 1" 68431,12,"",0,0,0,"1","" 68432,71,"685",2,0,0,"0","IF NOT GO TO 728" 68433,0,"731",28,1,0,"0","SET UP'PROCEDURE'" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000484.JPG",,,,"","RayS/Q1000484" 68434,34,"731",30,1,0,"0","" 68435,76,"685",15,0,0,"0","" 68500,PROCR,"685",,,,"","PRINT OTHER HEADINGS" 68501,NOTES,"",RADIX,B,,"","MAIN LOOP" 68502,12,"",0,0,0,"5","" 68503,71,"685",7,0,0,"0",">NOT TYPE 6" 68504,10,"",0,0,0,"5366657354","'CONTD'" 68505,5,"5",2,1,0,"0","" 68506,76,"685",18,0,0,"0",">PRINT" 68507,12,"",0,0,0,"1","" 68508,71,"685",13,0,0,"0",">NOT TYPE 7" 68509,90,"",0,0,8,"0","(FOR SPECIAL PRINTING)" 68510,C,"",0,0,0,"40","" 68511,10,"",0,0,0,"7551637455","'VALUE'" 68512,76,"685",5,0,0,"0","" 68513,0,"731",32,1,0,"0","" 68514,34,"731",34,1,0,"0","" 68515,100,"16",18,1,0,"0","" 68516,52,"5",2,0,0,"0","" 68517,C,"738",42,0,0,"0","HEADING BLOCK" 68518,80,"724",2,0,0,"0","" 68519,76,"683",2,0,0,"0","" 68600,PROCR,"686",,,,"","CHAPTER END" 68601,NOTES,"",RADIX,B,,"","MAIN LOOP" 68602,80,"721",2,0,0,"0","GET NEXT ITEM" 68603,80,"728",2,0,0,"0","" 68604,,"11",0,1,0,"0","" 68605,2,"731",20,1,0,"0","BEW" 68606,70,"721",4,0,0,"0",">READ BLOCK, SR LINK STILL SET" 68607,,"11",0,1,0,"0","" 68608,30,"",0,0,0,"2-","" 68609,2,"731",8,1,0,"0","'TYPE'" 68610,71,"686",2,0,0,"0",">LOOP" 68611,,"735",10,0,0,"0","£ IN Q5" 68612,5,"8",4,2,1,"0","=PARAMETER" 68613,5,"8",6,1,1,"0","" 68614,80,"727",2,0,0,"0",">WRITE" 68615,90,"",0,0,1,"0","" 68616,C,"",0,0,0,"48","" 68617,0,"16",1,0,0,"0","" 68618,70,"687",2,0,0,"0","" 68619,80,"712",2,0,0,"0",">O/P LINE" ,,"",,,,"","" 68700,PROCR,"687",,,,"","NEW CHAPTER HEADING" 68701,NOTES,"",RADIX,B,,"","MAIN LOOP" 68702,10,"",0,0,0,"0","" 68703,5,"16",28,0,0,"0","" 68704,5,"16",37,0,0,"0","CLEAR SERIAL SUB-CTR" 68705,52,"8",4,0,0,"0","EDIT" 68706,C,"738",2,0,0,"0","" 68707,0,"16",16,0,0,"0","" 68708,80,"730",2,0,0,"0",">TO BIN" 68709,5,"8",4,2,0,"0","BIN CHAP NUMBER ON MT" 68710,85,"100",2,0,0,"0","" 68711,C,"687",16,0,0,"0",">PRINT" 68712,C,"687",13,0,0,"0",">DON'T PRINT" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000485.JPG",,,,"","TonyJ/Q1000485" 68713,80,"724",2,0,0,"0","> PRINT PROCR START LINE" 68714,90,"",0,0,8,"0","" 68715,C,"",0,0,0,"48","" 68716,52,"5",2,0,0,"0","" 68717,C,"738",12,0,0,"0","" 68718,90,"",0,0,5,"0","" 68719,C,"",0,0,0,"40","" 68720,60,"",0,0,0,"0","" 68721,10,"",0,0,0,"1","" 68722,4,"16",16,0,0,"0","STEP CHAP NUMBER (DEC)" 68723,62,"",0,0,0,"0","" 68724,,"16",16,0,0,"0","THIS CHAP (DEC)" 68725,12,"",0,0,0,"1","" 68726,2,"92",29,0,0,"0","SPECIAL CHAP (DEC)" 68727,71,"687",35,0,0,"0","" 68728,55,"732",2,1,0,"6"," 'EXTRA CHAPTER'" 68729,C,"5",10,1,0,"0","" 68730,101,"",202,1,3,"0","" 68731,5,"16",28,0,0,"0","SET LINE SERIAL" 68732,80,"724",2,0,0,"0","PRINT CHAP HEADING" 68733,80,"727",2,0,0,"0","> WRITE CHAP HEADING" 68734,76,"688",2,0,0,"0","> GENERATE SP CHAP" 68735,,"11",0,1,0,"0"," 'TYPE (SOMETHING) '" 68736,2,"731",4,1,0,"0"," 'TYPE£'" 68737,90,"",0,0,1,"0","" 68738,C,"",0,0,0,"0","/////" 68739,70,"687",45,0,0,"0","> END" 68740,90,"",0,0,1,"0","" 68741,C,"",0,0,0,"48","" 68742,80,"724",2,0,0,"0","> PRINT NEW CHAP HEADING" 68743,80,"727",2,0,0,"0","> WRITE NEW" 68744,76,"683",4,0,0,"0","> TEST WHICH TYPE" 68745,,"27",7,0,0,"0","CTR NEG ADDRESSES" 68746,70,"687",71,0,0,"0","> NONE" 68747,30,"",0,0,0,"5","" 68748,91,"",0,0,3,"0","" 68749,54,"5",2,1,0,"46","" 68750,80,"724",2,0,0,"0","" 68751,80,"724",2,0,0,"0","" 68752,80,"724",2,0,0,"0","3 BLANK LINES" 68753,10,"",0,0,0,"6955560000"," 'REF'" 68754,5,"5",4,1,0,"0","" 68755,10,"",0,0,0,"6769665369"," 'PROCR'" 68756,5,"5",6,1,0,"0","" 68757,80,"724",2,0,0,"0","> HEADING" 68758,,"18",3,0,3,"0","REF" 68759,80,"729",2,0,0,"0","> DEC" 68760,5,"729",2,0,0,"0","" 68761,,"18",2,0,3,"0","DEC PROCR" 68762,5,"724",2,0,0,"0","" 68763,62,"",0,0,0,"0","" 68764,52,"5",4,0,0,"0","" 68765,C,"736",10,0,0,"0","" 68766,80,"724",2,0,0,"0","> PRINT" 68767,94,"687",58,0,3,"2","" 68768,80,"724",2,0,0,"0","> BLANKS" 68769,80,"724",2,0,0,"0","" 68770,80,"724",2,0,0,"0","" 68771,55,"26",0,1,0,"1000","PROCR START INDEX FOR 08005" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000486.JPG",,,,"","TonyJ/Q1000486" 68772,C,"18",1000,1,0,"0","" 68773,,"27",12,0,0,"0","" 68774,70,"680",2,0,0,"0","> PTS NOT NEEDED. CALL PASS 5" 68775,76,"711",2,0,0,"0","" 68800,PROCR,"688",,,,"","GENERATE START OF SPECIAL CHAPTER" 68802,10,"",0,0,0,"£00","" 68803,5,"13",0,2,0,"0","PARA" 68804,101,"",202,1,3,"0","" 68805,5,"13",2,2,0,"0","" 68806,80,"714",2,0,0,"0","> O/P" 68807,10,"",0,0,0,"14","20" 68808,92,"",0,0,5,"0","" 68809,10,"",0,0,0,"0","" 68810,5,"13",0,2,0,"0","" 68811,5,"13",2,2,0,"0","" 68812,80,"710",2,0,0,"0","" 68813,80,"710",2,0,0,"0","O/P LOCNS 202 203 BLANK" 68900,PROCR,"689",,,,"","CALCULATE CONVERT TABLE" 68902,,"92",7,0,0,"0","" 68903,30,"",0,0,0,"5","" 68904,70,"686",11,0,0,"0","> NO TABLES" 68905,91,"",0,0,3,"0","" 68906,,"99",0,1,3,"0","NEXT OLD/NEW RADIX PAIR" 68907,5,"70",30,1,0,"0","" 68908,95,"",0,0,3,"0","" 68909,5,"70",6,1,0,"0","WL" 68910,10,"",0,0,0,"1","" 68911,5,"70",8,1,0,"0","FIRST TABLE ENTRY" 68912,100,"70",30,0,3,"0","NEW RADIX" 68913,12,"",0,0,0,"1","" 68914,32,"",0,0,0,"10-","" 68915,10,"",0,0,0,"0","" 68916,32,"",0,0,0,"10","" 68917,5,"70",0,1,0,"0","LARGEST NUMBER IN NEW RADIX" 68918,100,"70",31,0,3,"0","OLD RADIX" 68919,12,"",0,0,0,"1","" 68920,62,"",0,0,0,"0","BIN" 68921,5,"70",2,1,0,"0","> COMPLEMENT" 68922,0,"70",31,0,0,"0","OLD RADIX" 68923,5,"70",2,0,0,"0","" 68924,34,"70",2,1,0,"0","(8) = 10QTTS OF OLD EXCESS CONSTS" 68925,90,"",0,0,4,"0","" 68926,C,"",0,0,0,"18","CALC 9 TE'S" 68927,36,"735",13,0,0,"0","Q1" 68928,5,"70",4,0,0,"0","EC Q1 - FORM 16-EC:0" 68929,2,"70",4,0,0,"0","FOR MR" 68930,11,"",0,0,0,"10","" 68931,30,"",0,0,0,"5","" 68932,5,"70",2,1,0,"0","" 68933,91,"70",2,0,3,"0","" 68934,100,"70",30,0,3,"0","SET NEW RADIX" 68935,2,"70",0,1,0,"0","LARGEST NO IN NEW RADIX" 68936,1,"70",8,1,4,"0","" 68937,72,"689",56,0,0,"0","> WILL GET O'FLOW" 68938,94,"689",36,0,3,"1","" 68939,1,"70",0,1,0,"0","" 68940,5,"70",10,1,4,"0","STORE NEXT TE" 68941,62,"",0,0,0,"0","SET BINARY" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000487.JPG",,,,"","ChuckK/Q1000487" 68942,32,"",0,0,0,"1-","FOR NEXT QTT OF OLD RADIX" 68943,94,"689",27,0,4,"2","" 68944,90,"",0,0,3,"0","" 68945,C,"",0,0,0,"20","" 68946,0,"70",8,0,3,"0","" 68947,5,"13",2,2,0,"0","" 68948,80,"710",2,0,0,"0","" 68949,0,"70",9,0,3,"0","" 68950,5,"13",2,2,0,"0","" 68951,80,"710",2,0,0,"0","" 68952,94,"689",46,0,3,"2","" 68953,91,"70",6,0,3,"0","RESTORE R3" 68954,94,"689",6,0,3,"2",">NEXT CONVERT TABLE" 68955,76,"686",11,0,0,"0",">FINISH THE EXTRA CHAPTER" 68956,0,"734",40,1,0,"0","ALL THE p'S" 68957,76,"689",40,0,0,"0",">STORE INFINITY AS TABLE ENTRY" 69000,PROCR,"690",,,,"","DIRECTORY ENTRY FROM PASS 5-DEAL WITH END OF INTERCODE*PLS" 69002,,"16",2,0,0,"0","GENERATE INDEX DETAILS" 69003,3,"8",4,2,0,"0","" 69004,5,"8",12,2,0,"0","" 69005,,"16",3,0,0,"0","" 69006,3,"8",6,2,0,"0","" 69007,5,"8",14,2,0,"0","" 69008,10,"",0,0,0,"2","" 69009,5,"8",10,2,0,"0","PASS 1 IDENTIFIER" 69010,10,"",0,0,0,"3","" 69011,5,"8",18,2,0,"0","PASS 3 IDENTIFIER" 69012,10,"",0,0,0,"4","" 69013,5,"8",16,2,0,"0","" 69014,,"734",40,0,0,"0"," 'ppppp'" 69015,5,"8",20,2,0,"0","" 69016,80,"727",2,0,0,"0",">WRITE" 69017,80,"694",2,0,0,"0","A1-7" 69018,,"7",4,2,0,"0","TEST 'SENTINEL5'" 69019,2,"734",40,0,0,"0"," 'ppppp'" 69020,71,"690",17,0,0,"0",">NO" 69021,35,"",0,0,0,"1","" 69022,36,"7",6,2,0,"0","" 69023,12,"",0,0,0,"5","" 69024,71,"690",17,0,0,"0",">NO" 69025,,"16",3,0,0,"0","" 69026,5,"7",10,2,0,"0","PROG SERIAL" 69027,80,"704",2,0,0,"0",">WRITE" 69028,80,"694",2,0,0,"0",">READ" 69029,,"7",42,1,0,"0","" 69030,12,"",0,0,0,"5163636653"," 'ALLOC'" 69031,71,"690",27,0,0,"0","" 69032,,"7",12,2,0,"0","CHAPS INITIALLY" 69033,3,"92",9,0,0,"0","" 69034,5,"92",29,0,0,"0","" 69035,,"16",3,0,0,"0","" 69036,5,"7",40,2,0,"0","NEW PROG SERIAL" 69037,80,"704",2,0,0,"0",">WRITE" 69038,80,"694",2,0,0,"0",">READ" 69039,,"7",4,1,0,"0","" 69040,2,"732",12,1,0,"0"," 'FIEND'" 69041,71,"690",37,0,0,"0",">NOT YET" 69042,,"16",3,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000488.JPG",,,,"","ChuckK/Q1000488" 69043,5,"7",8,2,0,"0","" 69044,80,"704",2,0,0,"0","" 69100,PROCR,"691",,,,"","STORE 08005 DATA,ALIGN FILES,COPY M/CODE PROGRAM" 69102,90,"",0,0,2,"0","TRICK" 69103,C,"",0,0,0,"2","" 69104,90,"",0,0,1,"0","FOR PROCR START INDEX" 69105,C,"",0,0,0,"1000","" 69106,80,"693",2,0,0,"0",">GET" 69107,5,"26",0,0,1,"0","" 69108,94,"691",6,0,1,"1","" 69109,90,"",0,0,1,"0","FOR CHAP DETAILS" 69110,C,"",0,0,0,"14","" 69111,80,"693",2,0,0,"0",">GET" 69112,5,"92",10,0,1,"0","" 69113,94,"691",11,0,1,"1","" 69114,90,"",0,0,1,"0","FOR TRACE POINTS" 69115,C,"",0,0,0,"40","" 69116,80,"693",2,0,0,"0",">GET" 69117,5,"25",2,0,1,"0","" 69118,94,"691",16,0,1,"1","" 69119,90,"",0,0,1,"0","FOR SECTIONS" 69120,C,"",0,0,0,"100","" 69121,80,"693",2,0,0,"0",">GET" 69122,5,"15",0,0,1,"0","" 69123,94,"691",21,0,1,"1","" 69124,90,"",0,0,1,"0","FOR FILES AND TX AREAS" 69125,C,"",0,0,0,"36","" 69126,80,"693",2,0,0,"0",">GET" 69127,5,"24",0,0,1,"0","" 69128,94,"691",26,0,1,"1","" 69129,80,"694",2,0,0,"0",">READ A1" 69130,,"7",12,1,0,"0","" 69131,2,"731",2,1,0,"0"," 'CHAPT'" 69132,70,"691",58,0,0,"0",">HEADING BLOCK" 69133,,"7",4,1,0,"0","" 69134,2,"731",2,1,0,"0"," 'CHAPT'" 69135,70,"691",62,0,0,"0",">TRIAL DATA START" 69136,1,"731",2,1,0,"0","" 69137,2,"731",6,1,0,"0"," 'FILES'" 69138,70,"691",62,0,0,"0",">PM POINTS START" 69139,1,"731",6,1,0,"0","" 69140,12,"",0,0,0,"55"," 'E'" 69141,70,"691",55,0,0,"0",">YES" 69142,,"7",12,1,0,"0","" 69143,12,"",0,0,0,"535851675+","(PTS HEADING)" 69144,71,"691",60,0,0,"0",">NO" 69145,80,"694",2,0,0,"0","(DRAIN OLD PTS PART ONE)" 69146,,"7",4,1,0,"0","" 69147,2,"731",2,1,0,"0"," 'CHAPT'" 69148,70,"691",62,0,0,"0","" 69149,1,"731",2,1,0,"0","" 69150,2,"731",6,1,0,"0"," 'FILES'" 69151,70,"691",62,0,0,"0","" 69152,1,"731",6,1,0,"0","" 69153,12,"",0,0,0,"55"," 'E'" 69154,71,"691",45,0,0,"0","" 69155,5,"27",3,0,0,"0","SET'NO B/FWD TRIAL DATA'" 69156,41,"A1",0,0,0,"1","CLOSE I/P" 69157,76,"691",64,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000489.JPG",,,,"","ChuckK/Q1000489" 69158,,"16",3,0,0,"0","" 69159,5,"7",10,2,0,"0","" 69160,80,"704",2,0,0,"0",">WRITE" 69161,76,"691",29,0,0,"0","" 69162,10,"",0,0,0,"1","" 69163,5,"27",3,0,0,"0","SET'DATA PRESENT'" 69164,40,"A6",0,0,0,"1","" 69165,76,"687",71,0,0,"0","" 69200,PROCR,"692",,,,"","WRITE PTS BLOCK TO A2" 69202,81,"692",2,0,0,"0","" 69203,5,"8",4,2,2,"0","" 69204,94,"692",8,0,2,"2","" 69205,80,"727",2,0,0,"0","WRITE->A2" 69206,90,"",0,0,2,"0","" 69207,C,"",0,0,0,"48","" 69208,82,"692",2,0,0,"0","" 69300,PROCR,"693",,,,"","READ/STORE NEXT'FIEND'ITEM" 69302,81,"693",2,0,0,"0","" 69303,94,"693",8,0,2,"2","" 69304,80,"694",2,0,0,"0","READ A1-7" 69305,80,"704",2,0,0,"0","COPY 7->8->A2" 69306,90,"",0,0,2,"0","" 69307,C,"",0,0,0,"48","" 69308,,"7",4,2,2,"0","" 69309,82,"693",2,0,0,"0","" 69400,PROCR,"694",,,,"","READ A1-7" 69402,81,"694",2,0,0,"0","" 69403,42,"A1",0,0,0,"0","" 69404,C,"7",0,0,0,"0","" 69405,82,"694",2,0,0,"0","" 69500,PROCR,"695",,,,""," 'TYPE'SWITCH" 69501,NOTES,"",RADIX,B,,"","MAIN LOOP" 69502,85,"695",2,0,0,"0","" 69503,C,"696",2,0,0,"0","INSTRUCTIONS" 69504,C,"702",2,0,0,"0","TABLE ENTRIES" 69505,C,"706",2,0,0,"0","PROGRAMME CONSTS" 69506,C,"706",2,0,0,"0","TABLE STARTS" 69507,C,"707",2,0,0,"0","FORMED CONST" 69508,C,"696",2,0,0,"0","6=C-PROCR" 69509,C,"708",2,0,0,"0","7=VALUES" 69600,PROCR,"696",,,,"","TEST FOR SEQUENCE CHANGE" 69601,NOTES,"",RADIX,B,,"","INSTRUCTIONS" 69602,,"11",4,2,0,"0","" 69603,32,"",0,0,0,"2-","" 69604,5,"16",18,0,0,"0","REF" 69605,33,"",0,0,0,"1","" 69606,5,"16",24,0,0,"0","NEG ITEM IND" 69607,33,"",0,0,0,"7","" 69608,5,"13",0,2,0,"0","PARA" 69609,34,"11",6,2,0,"0","ADM+ITEM" 69610,,"11",2,2,0,"0","TEST FOR SEQUENCE CHANGE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000490.JPG",,,,"","ChuckK/Q1000490" 69611,70,"697",2,0,0,"0",">NOT SEQ CHANGE OR MR ENTRY" 69612,12,"",0,0,0,"1","" 69613,70,"699",2,0,0,"0",">IS SEQ CHANGE" 69614,12,"",0,0,0,"1","" 69615,71,"696",27,0,0,"0",">NOT ACTION 16/0/0" 69616,36,"735",3,0,0,"0","BITS 1-13" 69617,5,"16",19,0,0,"0","MODULUS OF ITEM" 69618,34,"16",24,0,0,"0","" 69619,74,"696",22,0,0,"0",">POSITIVE ITEM" 69620,1,"16",19,0,0,"0","" 69621,76,"696",23,0,0,"0","" 69622,2,"16",19,0,0,"0","" 69623,124,"16",18,0,1,"0","REF" 69624,2,"26",0,0,0,"0","" 69625,5,"13",2,2,0,"0","" 69626,76,"698",12,0,0,"0",">O/P" 69627,0,"11",2,2,0,"0","" 69628,5,"13",0,2,0,"0","COPY IND AS PARA" 69700,PROCR,"697",,,,"","INSTRUCTIONS" 69701,NOTES,"",RADIX,B,,"","INSTRUCTIONS" 69702,36,"735",3,0,0,"0","BITS 1-13" 69703,5,"16",19,0,0,"0","MODULUS OF ITEM" 69704,,"11",6,2,0,"0","" 69705,5,"13",2,2,0,"0","" 69706,34,"16",24,0,0,"0","" 69707,74,"697",10,0,0,"0",">NOT NEGATIVE ITEM" 69708,2,"16",19,0,0,"0","" 69709,5,"16",19,0,0,"0","(SET SIGN)" 69710,,"16",19,0,0,"0","" 69711,124,"16",18,0,1,"0","" 69712,1,"26",0,0,0,"0","PROCR START" 69713,73,"698",2,0,0,"0",">REPORT" 69714,34,"735",3,0,0,"0","BITS 1-13" 69715,37,"13",2,2,0,"0","" 69716,76,"698",12,0,0,"0","" 69800,PROCR,"698",,,,"","REPORT ACTION WITH NEGATIVE ITEM" 69801,NOTES,"",RADIX,B,,"","ACTION DETAILS" 69802,10,"",0,0,0,"78000-","23/1/0 ACTION FOR LOCKOUT" 69803,5,"13",2,2,0,"0","" 69804,5,"13",0,2,0,"0","" 69805,91,"27",7,0,3,"0","CTR" 69806,,"16",18,0,0,"0","THIS REF" 69807,30,"",0,0,0,"5","" 69808,1,"733",6,0,0,"0","CURRENT PROCR" 69809,5,"18",2,1,3,"0","" 69810,10,"",0,0,0,"2","" 69811,4,"27",7,0,0,"0","STEP CTR" 69812,80,"714",2,0,0,"0","EDIT+WRITE INSTRUCTION" 69813,85,"100",2,0,0,"0","" 69814,C,"700",2,0,0,"0",">PRINT" 69815,C,"683",2,0,0,"0",">DON'T PRINT" 69900,PROCR,"699",,,,"","SEQUENCE CHANGES" 69901,NOTES,"",RADIX,B,,"","INSTRUCTIONS" 69902,0,"735",15,0,0,"0","FLIPFLOP" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000491.JPG",,,,"","ChuckK/Q1000491" 69903,70,"699",7,0,0,"0","BOTTOM 10 BITS" 69904,0,"18",0,0,12,"0","" 69905,31,"",0,0,0,"10-","" 69906,76,"699",9,0,0,"0","" 69907,34,"735",14,0,0,"0","BITS 1-10" 69908,36,"18",0,0,12,"0","" 69909,124,"16",18,0,1,"0","ITEM WITHIN PROCR IN A" 69910,1,"26",0,0,0,"0","" 69911,5,"16",18,0,0,"0","=SEQ CHANGE ADDRESS" 69912,34,"11",6,2,0,"0","" 69913,36,"735",4,0,0,"0","BITS 14-20+SIGN" 69914,73,"699",17,0,0,"0","" 69915,1,"16",18,0,0,"0","" 69916,76,"699",18,0,0,"0","" 69917,2,"16",18,0,0,"0","" 69918,5,"13",2,2,0,"0","" 69919,10,"",0,0,0,"1","" 69920,2,"735",15,0,0,"0","" 69921,3,"735",15,0,0,"0","REVERSE FLIPFLOP" 69922,71,"698",12,0,0,"0",">NOW ADDRESSES TOP 10 BITS" 69923,94,"",0,0,12,"1-","" 69924,76,"698",12,0,0,"0",">SAFETY" 70000,PROCR,"700",,,,"","DECODE INSTRUCTION FOR PRINTING" 70001,NOTES,"",RADIX,B,,"","INSTRUCTIONS" 70002,34,"13",2,2,0,"0","(A IS CLEAR)" 70003,32,"",0,0,0,"6","" 70004,5,"16",21,0,0,"0","ACTION" 70005,33,"",0,0,0,"1","" 70006,5,"16",25,0,0,"0","DISC" 70007,33,"",0,0,0,"2","" 70008,5,"16",26,0,0,"0","MOD" 70009,33,"",0,0,0,"13","" 70010,5,"16",24,0,0,"0","ADDRESS" 70011,0,"13",2,2,0,"0","" 70012,72,"701",2,0,0,"0",">POSITIVE ACTION" 70013,10,"",0,0,0,"10","16" 70014,4,"16",21,0,0,"0","" 70100,PROCR,"701",,,,"","CONVERT FOR PRINT" 70101,NOTES,"",RADIX,B,,"","INSTRUCTIONS" 70102,0,"13",0,2,0,"0","PARA" 70103,80,"729",2,0,0,"0",">CONVERT TO DEC" 70104,5,"13",4,0,0,"0","" 70105,0,"16",24,0,0,"0","ADDRESS" 70106,80,"729",2,0,0,"0","TO DEC" 70107,5,"13",2,1,0,"0","" 70108,0,"16",21,0,0,"0","ACTION" 70109,80,"729",2,0,0,"0","TO DEC" 70110,5,"13",0,1,0,"0","" 70111,62,"",0,0,0,"0","RESET BINARY" 70112,52,"5",4,0,5,"0","" 70113,C,"739",2,0,0,"0","" 70114,10,"",0,0,0,"1","" 70115,4,"16",37,0,0,"0","AUG SUBCTR" 70116,5,"16",1,0,0,"0","" 70117,94,"683",2,0,5,"10","" 70118,80,"712",2,0,0,"0",">O/P LINE" 70119,76,"683",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000492.JPG",,,,"","TonyJ/Q1000492" 70200,PROCR,"702",,,,"","FORM ADDRESS" 70201,NOTES,"",RADIX,B,,"","" 70202,,"11",0,2,0,"0","" 70203,32,"",0,0,0,"2-","SELECT REFERENCE" 70204,5,"16",18,0,0,"0","" 70205,33,"",0,0,0,"1","" 70206,5,"16",21,0,0,"0","NEW ITEM IND" 70207,33,"",0,0,0,"7","" 70208,3,"13",0,2,0,"0","" 70209,5,"13",4,2,0,"0","PARAMETER" 70300,PROCR,"703",,,,"","DEAL WITH 2ND ITEM FOR CONDENSE" 70301,NOTES,"",RADIX,B,,"","" 70302,,"11",6,1,0,"0","" 70303,5,"13",6,1,0,"0","STORE Q'S AND I'S" 70304,,"11",4,2,0,"0","" 70305,70,"703",26,0,0,"0","> NOT CONDENSE/UNPACK TABLE" 70306,124,"16",18,0,1,"0","REF" 70307,0,"26",0,0,0,"0","" 70308,35,"",0,0,0,"1111","" 70309,36,"11",4,2,0,"0","(POSITIVE) ITEM" 70310,5,"16",22,0,0,"0","PROVISIONAL ADDRESS" 70311,0,"13",6,2,0,"0","Q + I" 70312,72,"703",15,0,0,"0","> NORMAL" 70313,2,"16",22,0,0,"0","" 70314,76,"703",16,0,0,"0","" 70315,1,"16",22,0,0,"0","" 70316,5,"13",6,2,0,"0","SET SECOND ADDRESS + LTE" 70317,34,"16",21,0,0,"0"," '-0' IND" 70318,74,"703",27,0,0,"0","> NO, CALC FIRST ADDRESS" 70319,2,"13",6,2,0,"0","" 70320,70,"703",24,0,0,"0","" 70321,5,"13",6,2,0,"0","(SET SIGN BIT)" 70322,5,"16",21,0,0,"0","" 70323,76,"703",27,0,0,"0","" 70324,5,"16",21,0,0,"0","CLEAR THIS" 70325,0,"735",8,0,0,"0"," £ IN Q4 (MINUS ZERO)" 70326,5,"13",4,2,0,"0","CLEAR PARA - FIXED FIELD" 70327,124,"16",18,0,1,"0","REF" 70328,0,"26",0,0,0,"0","" 70329,1,"11",2,2,0,"0","FIRST ITEM (ALWAYS > 0)" 70330,5,"13",2,2,0,"0","" 70331,0,"16",21,0,0,"0"," '-0' IND" 70332,70,"703",35,0,0,"0","> NO" 70333,0,"735",8,0,0,"0","£ IN Q4" 70334,5,"13",4,2,0,"0","SET SECOND PARA" 70335,80,"714",2,0,0,"0","> O/P MT" 70336,0,"13",0,2,0,"0","PARA" 70337,80,"729",2,0,0,"0","TO DEC" 70338,5,"16",22,0,0,"0","" 70339,34,"13",2,2,0,"0","" 70340,32,"",0,0,0,"6","DELETE B17" 70341,10,"",0,0,0,"0","(STERLING INDICATOR)" 70342,32,"",0,0,0,"4","" 70343,80,"729",2,0,0,"0","TO DEC" 70344,5,"16",30,0,0,"0","" 70345,62,"",0,0,0,"0","RESET BINARY" 70346,35,"",0,0,0,"10000","Q5" 70347,36,"13",2,2,0,"0","STERLING IND" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000493.JPG",,,,"","KenK/Q1000493" 70348,4,"16",22,0,0,"0","STORE WITH PARA " 70349,,"13",4,1,0,"0","SET UP SECOND HALF OF " 70350,5,"13",0,1,0,"0","DETAILS FOR " 70351,,"13",6,1,0,"0","OUTPUT " 70352,5,"13",2,1,0,"0","" 70353,80,"714",2,0,0,"0","gO/P SECOND HALF " 70354,76,"705",2,0,0,"0","" 70400,PROCR,"704",,,,"","WRITE SEC 7->A2 " 70402,81,"704",2,0,0,"0","" 70403,55,"7",4,1,0,"50","" 70404,C,"8",4,1,0,"0","" 70405,80,"727",2,0,0,"0","WRITE 8->A2 " 70406,82,"704",2,0,0,"0","" 70500,PROCR,"705",,,,"","" 70501,NOTES,"",RADIX,,,"","" 70502,35,"",0,0,0,"1111","Q1-4 0F INDS/QTTS " 70503,85,"100",2,0,0,"0","" 70504,C,"705",6,0,0,"0","gPRINT " 70505,C,"683",2,0,0,"0","gDONT PRINT " 70506,36,"13",2,2,0,"0","" 70507,80,"729",2,0,0,"0","TO DEC " 70508,62,"",0,0,0,"0","ITEM FOR " 70509,5,"731",38,0,0,"0","CONDENSE " 70510,5,"13",22,0,0,"0","CLEAR'LAST TE'IND " 70511,,"13",2,2,0,"0","QTTS+INDS " 70512,73,"705",16,0,0,"0","g LAST TE " 70513,,"13",0,2,0,"0","SECOND PARA " 70514,30,"",0,0,0,"3-","TEST Q 4 NON-ZERO " 70515,70,"705",18,0,0,"0","g NOT LTE " 70516,10,"",0,0,0,"1","" 70517,5,"13",22,0,0,"0","SET LTE IND " 70518,90,"",0,0,3,"0","" 70519,C,"",0,0,0,"5","" 70520,34,"13",2,2,0,"0","QTTS " 70521,32,"",0,0,0,"6","" 70522,5,"13",0,0,3,"0","" 70523,32,"",0,0,0,"1","" 70524,94,"705",22,0,3,"1","STORE Q5-1 IN 13/0-4 " 70525,90,"",0,0,3,"0","" 70526,C,"",0,0,0,"5","" 70527,00,"13",0,0,3,"0","" 70528,80,"729",2,0,0,"0","TO DECIMAL " 70529,05,"13",0,0,3,"0","" 70530,94,"705",27,0,3,"1","" 70531,62,"",0,0,0,"0","" 70532,52,"5",4,0,5,"0","" 70533,C,"738",22,0,0,"0","" 70534,10,"",0,0,0,"2","" 70535,4,"16",37,0,0,"0","AUG SUBCTR " 70536,5,"16",1,0,0,"0","" 70537,94,"683",2,0,5,"20","" 70538,80,"712",2,0,0,"0","g O/P LINE " 70539,76,"683",2,0,0,"0","" 70600,PROCR,"706",,,,"","" 70601,NOTES,"",RADIX,B,,"","DEAL WITH PROGRAMME CONSTANTS AND FORMED TSL'S " 70602,90,"",0,0,4,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000494.JPG",,,,"","DaveJ/Q1000494" 70603,C,"",0,0,0,"8","" 70604,,"11",0,2,4,"0","" 70605,32,"",0,0,0,"2-","" 70606,5,"16",18,0,0,"0","REF" 70607,32,"",0,0,0,"2","" 70608,5,"13",0,2,0,"0","PARA" 70609,34,"735",11,0,0,"0","BIT 8" 70610,36,"13",0,2,0,"0","" 70611,70,"706",14,0,0,"0",">NOT MINUS ZERO" 70612,,"735",8,0,0,"0","p IN Q4" 70613,5,"13",0,2,0,"0","" 70614,86,"695",2,0,0,"0","" 70615,12,"",0,0,0,"3","" 70616,71,"706",22,0,0,"0",">TABLE START" 70617,0,"11",2,2,4,"0","PROGRAM CONST" 70618,72,"706",23,0,0,"0",">POSITIVE ITEM" 70619,124,"16",18,0,1,"0","" 70620,2,"26",0,0,0,"0","PROCR START" 70621,76,"706",25,0,0,"0","" 70622,0,"11",2,2,4,"0","" 70623,124,"16",18,0,1,"0","" 70624,1,"26",0,0,0,"0","" 70625,5,"13",2,2,0,"0","" 70626,80,"714",2,0,0,"0",">O/P" 70627,0,"13",2,2,0,"0","CONST" 70628,5,"13",4,0,4,"0","STORE FOR PRINT" 70629,0,"13",0,2,0,"0","PARA" 70630,5,"13",6,0,4,"0","" 70631,94,"706",4,0,4,"4","" 70632,85,"100",2,0,0,"0","" 70633,C,"706",35,0,0,"0",">PRINT" 70634,C,"683",2,0,0,"0",">DON'T PRINT" 70635,52,"5",4,0,5,"0","" 70636,C,"737",6,0,0,"0","" 70637,76,"705",34,0,0,"0",">VIA TABLE ENTRIES" 70700,PROCR,"707",,,,"","DEAL WITH TRANSLATOR'S FORMED LONG/SHORT CONSTS" 70701,NOTES,"",RADIX,B,,"","FORMED CONSTS" 70702,90,"",0,0,4,"0","4 CONSTANTS PER ITEM" 70703,C,"",0,0,0,"8","" 70704,10,"",0,0,0,"0","CLEAR PARA" 70705,5,"13",0,2,0,"0","" 70706,0,"11",0,1,4,"0","" 70707,5,"13",2,1,0,"0","" 70708,80,"714",2,0,0,"0","" 70709,94,"707",6,0,4,"2","" 70710,85,"100",2,0,0,"0","" 70711,C,"707",13,0,0,"0",">PRINT" 70712,C,"683",2,0,0,"0",">DON'T PRINT" 70713,90,"",0,0,4,"0","" 70714,C,"",0,0,0,"8","" 70715,0,"11",0,2,4,"0","" 70716,5,"13",4,0,0,"0","" 70717,5,"13",6,0,0,"0","" 70718,80,"709",2,0,0,"0","" 70719,94,"707",15,0,4,"2","" 70720,76,"683",2,0,0,"0","" 70800,PROCR,"708",,,,"","VALUES" 70801,NOTES,"",RADIX,B,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000495.JPG",,,,"","DaveJ/Q1000495" 70802,,"11",0,1,0,"0","" 70803,2,"731",24,1,0,"0","NOTES'" 70804,71,"708",32,0,0,"0",">NOT NEW REF/ITEM" 70805,,"11",4,2,0,"0","REF" 70806,5,"16",18,0,0,"0","" 70807,,"11",6,2,0,"0","ITEM" 70808,124,"16",18,0,0,"0","" 70809,1,"26",0,0,0,"0","" 70810,02,"16",23,0,0,"0","CURRENT VALUE OF STACKER" 70811,03,"13",2,2,0,"0",">DELTA" 70812,04,"16",23,0,0,"0",">NEW VALUE OF STACKER" 70813,10,"",0,0,0,"£00","" 70814,5,"13",0,2,0,"0","PARA FOR DELTA" 70815,80,"714",2,0,0,"0","WRITE" 70816,85,"100",2,0,0,"0","" 70817,C,"708",19,0,0,"0",">PRINT" 70818,C,"683",2,0,0,"0",">DON'T PRINT" 70819,0,"13",0,2,0,"0","PARA " 70820,5,"13",6,0,0,"0","" 70821,0,"13",2,2,0,"0","VALUE" 70822,5,"13",4,0,0,"0","" 70823,10,"",0,0,0,"1","" 70824,5,"16",1,0,0,"0","SET PRINT IND" 70825,52,"5",4,0,8,"0","" 70826,C,"737",2,0,0,"0","" 70827,94,"683",2,0,8,"10","" 70828,80,"724",2,0,0,"0",">PRINT" 70829,90,"",0,0,8,"0","" 70830,C,"",0,0,0,"40","" 70831,76,"683",2,0,0,"0","" 70832,10,"",0,0,0,"1","" 70833,04,"16",23,0,0,"0","AUGMENT LOCN COUNTER" 70834,00,"11",6,2,0,"0","" 70835,5,"13",2,2,0,"0","VALUE" 70836,,"11",4,2,0,"0","PARA FOR VALUE" 70837,76,"708",14,0,0,"0","" 70900,PROCR,"709",,,,"","PRINT CONVERT TABLES+TRANSLATOR'S CONSTS" 70902,81,"709",2,0,0,"0","" 70903,10,"",0,0,0,"1","" 70904,4,"16",37,0,0,"0","" 70905,5,"16",1,0,0,"0","" 70906,52,"5",4,0,5,"0","" 70907,C,"737",2,0,0,"0","" 70908,94,"709",10,0,5,"10","" 70909,80,"712",2,0,0,"0",">O/P LINE" 70910,82,"709",2,0,0,"0","" 71000,PROCR,"710",,,,"","" 71002,81,"710",2,0,0,"0","" 71003,80,"714",2,0,0,"0",">WRITE" 71004,,"13",2,2,0,"0","" 71005,5,"13",4,0,0,"0","" 71006,5,"13",6,0,0,"0","" 71007,85,"100",2,0,0,"0","" 71008,C,"710",10,0,0,"0",">PRINT" 71009,C,"710",11,0,0,"0",">DON'T PRINT" 71010,80,"709",2,0,0,"0",">PRINT" 71011,82,"710",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000496.JPG",,,,"","DaveJ/Q1000496" 71100,PROCR,"711",,,,"","GENERATE PTS(1)" 71102,10,"",0,0,0,"535851675+","(CHAP')" 71103,5,"8",12,1,0,"0","" 71104,80,"727",2,0,0,"0",">WRITE" 71105,124,"741",2,0,2,"0","ORDERS" 71106,91,"",0,0,2,"0","" 71107,124,"716",2,0,2,"0","FIRST LEVEL PARAS" 71108,91,"",0,0,3,"0","" 71109,124,"720",2,0,2,"0","SECOND LEVEL PARAS" 71110,91,"",0,0,1,"0","" 71111,0,"716",2,0,0,"0","" 71112,31,"",0,0,0,"2","" 71113,5,"713",11,0,0,"0","" 71114,0,"720",2,0,0,"0","" 71115,31,"",0,0,0,"2","" 71116,5,"713",17,0,0,"0","" 71117,90,"",0,0,5,"0","" 71118,C,"",0,0,0,"6","" 71119,90,"",0,0,8,"0","" 71120,C,"",0,0,0,"3","" 71121,96,"",0,0,2,"0","STORE CHUNK START FOR PARAS 1 AND 5" 71122,5,"713",2,0,0,"0","" 71123,124,"713",2,0,1,"0","" 71124,101,"",0,1,3,"0","" 71125,5,"713",6,0,0,"0","CHUNK START" 71126,124,"999",19,1,2,"0","SEC 8" 71127,124,"",0,0,2,"0","" 71128,3,"712",2,0,0,"0","WL" 71129,101,"",48,1,1,"0","" 71130,30,"",0,0,0,"5","" 71131,1,"712",2,0,0,"0","WL" 71132,91,"",0,0,4,"0","" 71133,124,"713",4,0,3,"0","STORE WORD" 71134,106,"",0,0,2,"0","" 71135,5,"713",7,0,0,"0","STORE WORD" 71136,34,"713",10,1,0,"0","FIRST LEVEL PARA WORD" 71137,33,"",0,0,0,"3","NEXT ONE TO A" 71138,100,"713",8,1,0,"0","STORE (A) (B) ©" 71139,94,"711",47,0,5,"1","TEST END OF PARA WORD" 71140,90,"",0,0,5,"0","SET UP MR FOR" 71141,C,"",0,0,0,"6","NEXT PARA WORD" 71142,124,"713",4,0,3,"0","STORE PARA WORD" 71143,106,"",1,0,3,"0","STORE PARA WORD" 71144,33,"",0,0,0,"2","RIGHT ALIGN WORD" 71145,5,"713",11,0,0,"0","" 71146,94,"711",47,0,3,"1","STEP PARAS MR" 71147,,"713",8,0,0,"0","TEST DUMMY PARA" 71148,12,"",0,0,0,"6","" 71149,70,"711",36,0,0,"0",">YES" 71150,12,"",0,0,0,"1","TEST SECOND LEVEL REQD" 71151,71,"711",75,0,0,"0",">NO" 71152,34,"713",16,1,0,"0","SECOND LEVEL PARA WORD" 71153,33,"",0,0,0,"6","NEXT ONE TO A" 71154,100,"713",14,1,0,"0","STORE (A) (B) ©" 71155,94,"711",63,0,8,"1","TEST END OF PARA WORD" 71156,90,"",0,0,8,"0","SET UP MR FOR" 71157,C,"",0,0,0,"3","NEXT PARA WORD" 71158,124,"713",4,0,3,"0","STORE PARA WORD" 71159,106,"",1,0,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000497.JPG",,,,"","DaveJ/Q1000497" 71160,33,"",0,0,0,"2","RIGHT ALLIGN WORD" 71161,5,"713",17,0,0,"0","" 71162,94,"711",63,0,1,"1","STEP PARAS MR" 71163,,"713",14,0,0,"0","TEST SECOND LEVEL" 71164,101,"",63,1,2,"0","PARA = 63(DUMMY)" 71165,70,"711",52,0,0,"0",">YES" 71166,101,"",1,1,1,"0","TEST END SIGN(62)" 71167,71,"711",73,0,0,"0",">NO" 71168,,"713",4,1,0,"0","STORE END SIGN" 71169,5,"",4,1,4,"0","" 71170,5,"",6,1,4,"0","" 71171,80,"727",2,0,0,"0",">WRITE LAST BLOCK" 71172,76,"680",2,0,0,"0",">CALL PASS 5" 71173,,"713",14,1,0,"0","STORE ACTUAL PARA" 71174,5,"713",8,1,0,"0","VALUE" 71175,,"713",8,0,0,"0","TEST PARA=1" 71176,12,"",0,0,0,"1","" 71177,70,"711",80,0,0,"0",">YES" 71178,12,"",0,0,0,"1","" 71179,71,"711",90,0,0,"0",">NO" 71180,101,"",8191,1,3,"0","" 71181,32,"",0,0,0,"10-","ADJUST ORDER BY" 71182,36,"713",7,0,0,"0","CHUNK START" 71183,2,"713",6,0,0,"0","" 71184,72,"711",89,0,0,"0",">THIS CHAP" 71185,35,"",0,0,0,"11111","ADJUST ORDER IN" 71186,10,"",0,0,0,"0","PASS 1 OR 2 WHICH" 71187,36,"713",7,0,0,"0","REFERS TO COMMON" 71188,101,"757",2,1,2,"0","CODING START" 71189,37,"713",7,0,0,"0","" 71190,,"713",7,0,0,"0","" 71191,5,"",6,2,4,"0","VALUE" 71192,,"713",8,0,0,"0","" 71193,5,"",4,2,4,"0","PARA " 71194,94,"711",95,0,2,"1","WORD MR" 71195,94,"711",33,0,4,"4",">NEXT WORD" 71196,80,"727",2,0,0,"0",">WRITE " 71197,76,"711",26,0,0,"0",">NEXT BLOCK" 71200,PROCR,"712",,,,"","PRINT LINE WHEN FULL,STEP SERIAL" 71201,NOTES,"",RADIX,B,,"","SUB ROUTINE" 71202,81,"712",2,0,0,"0","" 71203,0,"16",28,0,0,"0","SERIAL AT STARTOF LINE" 71204,80,"729",2,0,0,"0",">TO DEC" 71205,5,"731",40,0,0,"0","WL" 71206,52,"5",2,0,0,"0","EDIT SERIAL" 71207,C,"738",52,0,0,"0","" 71208,80,"724",2,0,0,"0",">PRINT" 71209,62,"",0,0,0,"0","" 71210,0,"16",37,0,0,"0","INCREMENT THIS LINE" 71211,4,"16",28,0,0,"0","UPDATE FOR NEXT" 71212,10,"",0,0,0,"0","" 71213,5,"16",37,0,0,"0","" 71214,90,"",0,0,5,"0","" 71215,C,"",0,0,0,"40","" 71216,82,"712",2,0,0,"0","" 71300,CONST,"713",1,,,"","CONSTANTS" 71302,,"(D);",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000498.JPG",,,,"","DaveJ/Q1000498" 71304,,"(A)p ;",,,,"","" 71306,,"(D)0;",,,,"","CHUNK START/ORDER" 71308,,"0;",,,,"","A" 71310,,"0;",,,,"","B" 71312,,"0;",,,,"","C" 71314,,"0;",,,,"","A" 71316,,"0;",,,,"","B" 71318,,"0;",,,,"","C" 71400,PROCR,"714",,,,"","GENERAL MAG-TAPE EDIT & OUTPUT" 71401,NOTES,"",RADIX,B,,"","SUB ROUTINE" 71402,81,"714",2,0,0,"0","" 71403,0,"13",0,1,0,"0","QUICKER THAN EDIT" 71404,5,"8",4,1,1,"0","" 71405,0,"13",2,1,0,"0","" 71406,5,"8",6,1,1,"0","" 71407,94,"714",11,0,1,"4","" 71408,80,"727",2,0,0,"0",">WRITE BLOCK" 71409,90,"",0,0,1,"0","" 71410,C,"",0,0,0,"48","" 71411,82,"714",2,0,0,"0","" 71500,PROCR,"715",,,,"","READ A2" 71501,NOTES,"",,,,"","" 71502,81,"715",2,0,0,"0","" 71503,42,"A2",0,0,0,"0","" 71504,C,"8",0,0,0,"0","" 71505,82,"715",2,0,0,"0","" 71600,CONST,"716",0,,,"","FIRST LEVEL PARAS,GENERAL CODING" 71602,,"(B5)1(B3)1(B3)1(B3)1(B6)9;",,,,"","1000/0" 71603,,"1,1,1,1,0;",,,,"","1001/5" 71604,,"0,0,0,0,0;",,,,"","" 71605,,"0,0,0,0,0;",,,,"","" 71606,,"0,0,0,0,0;",,,,"","" 71607,,"0,0,0,0,0;",,,,"","" 71608,,"0,0,0,0,0;",,,,"","" 71609,,"0,0,0,0,0;",,,,"","" 71610,,"0,0,0,0,0;",,,,"","" 71611,,"0,0,0,0,0;",,,,"","" 71612,,"0,0,0,0,0;",,,,"","1002/5" 71613,,"0,0,0,0,0;",,,,"","" 71614,,"0,0,0,0,0;",,,,"","" 71615,,"0,0,0,0,0;",,,,"","" 71616,,"0,0,0,0,0;",,,,"","" 71617,,"0,0,0,0,0;",,,,"","" 71618,,"0,0,0,0,0;",,,,"","" 71619,,"0,0,0,0,0;",,,,"","" 71620,,"0,0,0,0,0;",,,,"","" 71621,,"0,0,0,0,1;",,,,"","1003/5" 71622,,"1,0,0,1,54;",,,,"","" 71623,,"7,0,1,0,54;",,,,"","" 71624,,"0,1,1,0,9;",,,,"","" 71625,,"1,7,1,0,15;",,,,"","" 71626,,"1,7,1,0,9;",,,,"","" 71627,,"7,1,0,1,57;",,,,"","" 71628,,"1,7,1,1,9;",,,,"","" 71629,,"6,6,6,6,54;",,,,"","" 71630,,"3,1,1,1,27;",,,,"","" 71631,,"1,7,1,1,8;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000499.JPG",,,,"","DaveJ/Q1000499" 71632,,"1,7,6,6,54;",,,,"","" 71633,,"0,1,1,0,8;",,,,"","" 71634,,"1,7,0,1,1;",,,,"","" 71635,,"1,1,0,0,7;",,,,"","" 71636,,"0,0,0,0,54;",,,,"","" 71637,,"1,3,1,0,8;",,,,"","" 71638,,"1,0,1,6,54;",,,,"","" 71639,,"1,0,1,7,9;",,,,"","" 71640,,"7,0,1,0,54;",,,,"","" 71641,,"1,1,7,1,9;",,,,"","" 71642,,"0,1,0,1,1;",,,,"","" 71643,,"0,1,0,1,1;",,,,"","" 71644,,"1,1,0,1,9;",,,,"","" 71645,,"1,0,1,0,1;",,,,"","" 71646,,"1,7,1,0,8;",,,,"","" 71647,,"6,1,3,1,1;",,,,"","" 71648,,"7,1,1,7,9;",,,,"","" 71649,,"1,6,6,1,9;",,,,"","" 71650,,"1,7,1,1,1;",,,,"","" 71651,,"0,0,0,1,9;",,,,"","" 71652,,"0,6,0,1,56;",,,,"","1004/4" 71653,,"1,0,1,1,31;",,,,"","" 71654,,"1,0,1,1,54;",,,,"","" 71655,,"7,0,0,6,54;",,,,"","1005/2" 71656,,"1,7,1,1,8;",,,,"","" 71657,,"1,1,0,0,9;",,,,"","" 71658,,"0,0,1,3,0;",,,,"","" 71659,,"1,0,6,6,54;",,,,"","" 71660,,"0,0,0,1,8;",,,,"","" 71661,,"0,1,1,0,15;",,,,"","" 71662,,"6,6,6,6,15;",,,,"","1006/5" 71663,,"1,1,1,7,57;",,,,"","" 71664,,"7,1,0,1,1;",,,,"","" 71665,,"0,1,0,1,15;",,,,"","" 71666,,"1,7,0,0,56;",,,,"","1007/3" 71667,,"1,0,1,0,15;",,,,"","" 71668,,"1,1,1,7,9;",,,,"","" 71669,,"1,0,0,0,11;",,,,"","" 71670,,"1,1,3,0,9;",,,,"","" 71671,,"1,7,6,6,0;",,,,"","" 71672,,"0,0,0,0,0;",,,,"","1009/3" 71673,,"0,0,0,0,0;",,,,"","" 71674,,"0,0,0,0,0;",,,,"","" 71675,,"0,0,0,0,0;",,,,"","" 71676,,"0,0,0,0,0;",,,,"","" 71677,,"0,0,0,0,0;",,,,"","" 71678,,"0,0,0,0,0;",,,,"","" 71679,,"0,0,0,0,0;",,,,"","1010/5" 71680,,"0,0,0,0,0;",,,,"","" 71681,,"0,0,0,0,0;",,,,"","" 71682,,"0,0,0,0,0;",,,,"","" 71683,,"0,0,0,0,0;",,,,"","" 71684,,"0,0,0,0,0;",,,,"","" 71685,,"0,0,0,0,0;",,,,"","" 71686,,"0,0,0,0,0;",,,,"","" 71687,,"0,0,0,0,0;",,,,"","" 71688,,"0,0,0,0,0;",,,,"","1011/5" 71689,,"0,0,0,0,0;",,,,"","" 71700,CONST,"717",0,,,"","FIRST LEVEL PARAS PASS 1" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000500.JPG",,,,"","DaveJ/Q1000500" 71702,,"(B5)0(B3)0(B3)0(B3)0(B6)0;",,,,"","" 71703,,"0,0,0,0,0;",,,,"","" 71704,,"0,0,0,0,0;",,,,"","" 71705,,"0,0,0,0,0;",,,,"","" 71706,,"0,0,0,0,0;",,,,"","1012/5" 71707,,"0,0,0,0,0;",,,,"","" 71708,,"0,0,0,0,0;",,,,"","" 71709,,"0,0,0,0,0;",,,,"","" 71710,,"0,0,0,0,0;",,,,"","" 71711,,"0,0,0,0,0;",,,,"","" 71712,,"0,0,0,0,0;",,,,"","" 71713,,"0,0,0,0,0;",,,,"","" 71800,CONST,"718",0,,,"","FIRST LEVEL PARAS PASS 1" 71802,,"(B5)0(B3)0(B3)0(B3)0(B6)0;",,,,"","" 71803,,"0,0,0,0,0;",,,,"","" 71804,,"0,0,0,0,0;",,,,"","" 71805,,"0,0,0,0,0;",,,,"","" 71806,,"0,0,0,0,0;",,,,"","" 71807,,"0,0,0,0,0;",,,,"","" 71808,,"0,0,0,0,0;",,,,"","" 71809,,"0,0,0,0,0;",,,,"","1013/5" 71810,,"0,0,0,0,0;",,,,"","" 71811,,"0,0,0,0,54;",,,,"","" 71812,,"(B5)1(B3)0(B3)1(B3)0(B6)9;",,,,"","1014/0" 71813,,"3,1,1,0,9;",,,,"","" 71814,,"1,0,1,0,9;",,,,"","" 71815,,"1,0,1,1,9;",,,,"","" 71816,,"0,1,1,0,9;",,,,"","" 71817,,"0,1,1,0,1;",,,,"","" 71818,,"1,1,0,1,9;",,,,"","" 71819,,"1,1,6,6,54;",,,,"","" 71820,,"6,6,6,6,54;",,,,"","DUMMY WORD" 71821,,"0,1,1,1,9;",,,,"","" 71822,,"0,1,1,0,9;",,,,"","1015/3" 71823,,"0,1,1,1,9;",,,,"","" 71824,,"1,0,1,1,54;",,,,"","" 71825,,"6,6,1,1,1;",,,,"","1016/3" 71826,,"1,0,0,1,0;",,,,"","" 71827,,"1,0,0,0,8;",,,,"","" 71828,,"1,1,1,0,0;",,,,"","" 71829,,"1,0,1,0,9;",,,,"","" 71830,,"0,0,1,1,8;",,,,"","1017/4" 71831,,"1,1,1,0,9;",,,,"","" 71832,,"0,0,0,0,1;",,,,"","" 71833,,"0,1,1,0,1;",,,,"","1018/4" 71834,,"1,0,0,1,8;",,,,"","" 71835,,"0,0,1,0,9;",,,,"","" 71836,,"0,1,1,0,9;",,,,"","" 71837,,"0,1,1,1,9;",,,,"","1019/4" 71838,,"0,0,1,1,0;",,,,"","" 71839,,"0,1,0,0,8;",,,,"","" 71840,,"1,0,0,1,0;",,,,"","" 71841,,"1,0,1,0,1;",,,,"","1020/5" 71842,,"1,1,1,1,0;",,,,"","" 71843,,"1,1,1,1,1;",,,,"","" 71844,,"1,1,0,0,8;",,,,"","" 71845,,"0,0,0,0,8;",,,,"","" 71846,,"1,0,1,0,9;",,,,"","" 71847,,"1,0,0,1,0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000501.JPG",,,,"","DaveJ/Q1000501" 71848,,"1,1,0,1,9;",,,,"","" 71849,,"1,1,0,0,9;",,,,"","" 71850,,"1,0,1,1,8;",,,,"","1021/4" 71851,,"1,1,1,0,9;",,,,"","" 71852,,"0,1,1,1,0;",,,,"","" 71853,,"1,1,6,6,54;",,,,"","" 71854,,"6,1,1,1,9;",,,,"","" 71855,,"0,1,1,0,1;",,,,"","" 71856,,"1,0,1,1,1;",,,,"","" 71857,,"1,6,6,6,54;",,,,"","" 71858,,"0,1,0,1,0;",,,,"","" 71859,,"1,1,1,0,8;",,,,"","1022/5" 71860,,"1,1,1,0,9;",,,,"","" 71861,,"1,0,0,1,9;",,,,"","" 71862,,"0,0,0,1,0;",,,,"","" 71863,,"1,0,1,1,1;",,,,"","" 71864,,"1,1,0,0,8;",,,,"","" 71865,,"0,1,1,0,9;",,,,"","" 71866,,"0,1,1,0,8;",,,,"","" 71867,,"1,7,1,0,9;",,,,"","1023/4" 71868,,"1,1,3,0,9;",,,,"","" 71869,,"0,1,0,0,8;",,,,"","" 71870,,"1,0,1,0,54;",,,,"","1024/2" 71871,,"1,1,0,0,8;",,,,"","1025/6" 71872,,"0,1,0,1,1;",,,,"","" 71873,,"0,0,2,2,0;",,,,"","1026/0 1027/5" 71874,,"0,0,0,0,0;",,,,"","" 71875,,"0,0,0,0,0;",,,,"","" 71876,,"0,0,0,0,0;",,,,"","1028/5" 71877,,"0,0,0,0,0;",,,,"","1029/5" 71878,,"0,0,0,0,0;",,,,"","1030/3 1031/5" 71879,,"0,0,0,0,0;",,,,"","" 71880,,"0,0,0,0,0;",,,,"","" 71881,,"0,0,0,0,0;",,,,"","" 71882,,"0,0,0,0,0;",,,,"","1032/3" 71883,,"0,0,7,6,54;",,,,"","" 71900,PROCR,"719",,,,"","CLOSE OUTPUT FILES" 71901,NOTES,"",RADIX,,,"","" 71902,81,"719",2,0,0,"0","" 71903,80,"715",2,0,0,"0","" 71904,0,"8",4,1,0,"0","" 71905,12,"",0,0,0,"5659655972","FINIS'" 71906,71,"719",3,0,0,"0","" 71907,41,"A2",0,0,0,"1","CLOSE I/P" 71908,82,"719",2,0,0,"0","" 72000,CONST,"720",0,,,"","SECOND LEVEL PARAS" 72002,,"(B8)24(B6)50(B6)51;",,,,"","" 72003,,"24,24,7;",,,,"","" 72004,,"24,6,63;",,,,"","" 72005,,"51,38,24;",,,,"","" 72006,,"54,53,15;",,,,"","" 72007,,"50,34,15;",,,,"","" 72008,,"15,36,24;",,,,"","" 72009,,"37,36,52;",,,,"","" 72010,,"39,39,39;",,,,"","" 72011,,"18,39,41;",,,,"","" 72012,,"24,24,24;",,,,"","" 72013,,"24,16,62;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000698.JPG",,,,"","DaveJ/Q1000698" 72100,PROCR,"721",,,,"","INPUT OFF PASS 2" 72101,NOTES,"",RADIX,B,,"","SUB ROUTINE" 72102,81,"721",2,0,0,"0","" 72103,94,"721",7,0,2,"8","STANDARD INCREMENT" 72104,80,"722",2,0,0,"0","READ A6->SEC 9" 72105,90,"",0,0,2,"0","" 72106,C,"",0,0,0,"144","" 72107,82,"721",2,0,0,"0","" 72200,PROCR,"722",,,,"","INPUT " 72201,NOTES,"",RADIX,B,,"","SUB ROUTINE" 72202,81,"722",2,0,0,"0","" 72203,42,"A6",0,0,0,"0","" 72204,C,"9",0,0,0,"0","" 72205,82,"722",2,0,0,"0","" 72300,PROCR,"723",,,,"","WRITE ON WORKING TAPE" 72301,NOTES,"",,,,"","" 72302,81,"723",2,0,0,"0","" 72303,55,"8",4,1,0,"50","COPY ANNEXES" 72304,C,"9",4,1,0,"0","" 72305,0,"731",20,1,0,"0","BEW" 72306,5,"9",52,1,0,"0","" 72307,43,"A6",0,0,0,"0","" 72308,C,"9",0,0,0,"0","" 72309,54,"9",0,0,0,"52","" 72310,82,"723",2,0,0,"0","" 72400,PROCR,"724",,,,"","PRINT" 72401,NOTES,"",RADIX,B,,"","SUB ROUTINE" 72402,81,"724",2,0,0,"0","" 72403,62,"",0,0,0,"0","" 72404,,"731",20,1,0,"0","" 72405,5,"5",52,1,0,"0","BEW" 72406,10,"",0,0,0,"1","ALWAYS TRACK 1" 72407,5,"5",0,1,0,"0","FUNCTION WORD" 72408,,"27",9,0,0,"0","" 72409,70,"724",14,0,0,"0",">PRINTER" 72410,55,"5",0,1,0,"50","" 72411,C,"10",4,1,6,"0","" 72412,80,"725",2,0,0,"0",">O/P" 72413,76,"724",36,0,0,"0","" 72414,,"27",8,0,0,"0","PRINTER TYPE" 72415,12,"",0,0,0,"9","" 72416,70,"724",32,0,0,"0",">SPECIAL" 72417,10,"",0,0,0,"80000","" 72418,5,"5",1,0,0,"0","BIT 40" 72419,124,"999",15,1,2,"0","SEC 5" 72420,124,"",0,0,2,"0","" 72421,124,"999",13,1,2,"0","SEC 10" 72422,129,"",0,0,1,"0","" 72423,10,"",0,0,0,"4","" 72424,30,"",0,0,0,"5","" 72425,1,"999",7,0,0,"0","ROUTE" 72426,34,"999",12,0,0,"0","" 72427,125,"",4096,1,1,"0","" 72428,124,"999",0,0,3,"0","" 72429,123,"",160,0,2,"0","" 72430,62,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000699.JPG",,,,"","DaveJ/Q1000699" 72431,76,"724",36,0,0,"0","" 72432,55,"5",0,1,0,"54","" 72433,C,"10",0,1,0,"0","" 72434,10,"",0,0,0,"9","" 72435,76,"724",24,0,0,"0","" 72436,54,"5",0,0,0,"50","" 72437,5,"16",1,0,0,"0","CLEAR INDICATORS" 72438,82,"724",2,0,0,"0","" 72500,PROCR,"725",,,,"","O/P->A9" 72502,81,"725",2,0,0,"0","" 72503,94,"725",9,0,6,"50","" 72504,,"731",20,1,0,"0","BEW" 72505,5,"10",306,1,0,"0","" 72506,80,"726",2,0,0,"0",">O/P" 72507,90,"",0,0,6,"0","" 72508,C,"",0,0,0,"300","" 72509,82,"725",2,0,0,"0","" 72600,PROCR,"726",,,,"","WRITE A9" 72602,81,"726",2,0,0,"0","" 72603,10,"",0,0,0,"800000","" 72604,34,"999",12,0,0,"0","SEC 10" 72605,125,"",4096,1,1,"0","" 72606,1,"999",7,0,0,"0","D1/A9" 72607,124,"999",0,0,3,"0","" 72608,123,"",160,0,2,"0","" 72609,82,"726",2,0,0,"0","" 72700,PROCR,"727",,,,"","OUTPUT ON A2" 72701,NOTES,"",RADIX,B,,"","SUB ROUTINE" 72702,81,"727",2,0,0,"0","" 72703,,"731",20,1,0,"0","BEW" 72704,5,"8",52,1,0,"0","" 72705,43,"A2",0,0,0,"0","OUTPUT " 72706,C,"8",0,0,0,"0","" 72707,54,"8",0,0,0,"52","CLEAR " 72708,82,"727",2,0,0,"0","" 72800,PROCR,"728",,,,"","" 72802,81,"728",2,0,0,"0","" 72803,50,"9",4,0,2,"0","" 72804,C,"737",14,0,0,"0","UNPACK NEXT ITEM" 72805,82,"728",2,0,0,"0","" 72900,PROCR,"729",,,,"","CONVERT (A) TO DECIMAL" 72901,NOTES,"",,,,"","" 72902,81,"729",2,0,0,"0","" 72903,5,"733",4,1,0,"0","" 72904,60,"",0,0,0,"0","" 72905,124,"734",22,0,2,"0","" 72906,112,"733",4,1,0,"0","" 72907,82,"729",2,0,0,"0","" 73000,PROCR,"730",,,,"","CONVERT (A) TO BIN" 73001,NOTES,"",,,,"","" 73002,81,"730",2,0,0,"0","" 73003,5,"733",4,1,0,"0","" 73004,62,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000700.JPG",,,,"","DaveJ/Q1000700" 73005,124,"734",2,0,2,"0","" 73006,112,"733",4,1,0,"0","" 73007,82,"730",2,0,0,"0","" 73100,CONST,"731",1,,,"","" 73102,,"(A)CHAPT;",,,,"","" 73104,,"TYPEp;",,,,"","" 73106,,"FILES;",,,,"","" 73108,,"TYPE;",,,,"","" 73110,,"ST.OF;",,,,"","" 73112,,"BLOCK;",,,,"","" 73114,,"SIZE;",,,,"","" 73116,,"SIT;",,,,"","" 73118,,"PREND;",,,,"","" 73120,,"(D)7.0000007.;",,,,"","" 73122,,"(A)START;",,,,"","" 73124,,"NOTES;",,,,"","" 73126,,"SPOOL;",,,,"","" 73128,,"(A)PROC;",,,,"","" 73130,,"EDURE;",,,,"","" 73132,,"SEC;",,,,"","" 73134,,"TION ;",,,,"","" 73136,,"(D)6p6p6p6p6p;",,,,"","" 73138,,"0;",,,,"","" 73140,,"0;",,,,"","" 73142,,"0;",,,,"","" 73144,,"(A)ON/=;",,,,"","" 73200,CONST,"732",1,,,"","" 73202,,"(A)EXTRA;",,,,"","" 73204,," CHAP;",,,,"","" 73206,,"TER ;",,,,"","" 73208,,"(D)7ppp0003pp;",,,,"","BITS 1-10+25-39" 73210,,"5.5.;",,,,"","" 73212,,"(A)FIEND;",,,,"","" 73214,,"(A)INDEX;",,,,"","" 73216,,"CHAIN;",,,,"","" 73218,,"08000;",,,,"","" 73220,,"PROG;",,,,"","" 73222,,"OUT;",,,,"","" 73224,,"(D)5.5.;",,,,"","" 73300,CONST,"733",1,,,"","CONVERT TABLE" 73302,,"(D)1;",,,,"","BIN->DEC" 73304,,"0;",,,,"","(A) WL" 73306,,"0;",,,,"","CURRENT PROCR" 73400,CONST,"734",1,,,"","COMPILER'S CONVERT TABLES" 73402,,"(D)1;",,,,"","DEC->BIN" 73404,,"t;",,,,"","" 73406,,"64;",,,,"","" 73408,,"3.8;",,,,"","" 73410,,"2710;",,,,"","" 73412,,"186t0;",,,,"","" 73414,,"p4240;",,,,"","" 73416,,"989680;",,,,"","" 73418,,"5p5.100;",,,,"","" 73420,,"3e9t+t00;",,,,"","" 73422,,"1;",,,,"","BIN->DEC" 73424,,"16;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000701.JPG",,,,"","DaveJ/Q1000701" 73426,,"256;",,,,"","" 73428,,"4096;",,,,"","" 73430,,"65536;",,,,"","" 73432,,"1048576;",,,,"","" 73434,,"16777216;",,,,"","" 73436,,"268435456;",,,,"","" 73438,,"4294967296;",,,,"","" 73440,,"pppppppppp;",,,,"","" 73500,CONST,"735",0,,,"","" 73502,,"(D)7;",,,,"","" 73503,,"1ppp;",,,,"","" 73504,,"p.000-;",,,,"","" 73505,,"7p;",,,,"","" 73506,,"8000;",,,,"","" 73507,,"6000;",,,,"","" 73508,,"p000;",,,,"","" 73509,,"80000;",,,,"","" 73510,,"p0000;",,,,"","" 73511,,"80;",,,,"","" 73512,,"p0000-;",,,,"","" 73513,,"p;",,,,"","" 73514,,"3pp;",,,,"","BITS 1-10" 73515,,"0;",,,,"","THIS IS A 0/1 FLIPFLOP FOR SC'S FWD" 73516,,"3p;",,,,"","BITS 1-6 75200" 73600,TABLE,"736",,1,,"","PRINT HEADING DATA" 73601,NOTES,,,,,,,,,,,,,"" 73602,13,4,0,0,0,0,5,0,0,0,0,0,0,"" 73604,13,3,0,0,0,0,5,0,0,0,0,0,0,"" 73606,13,0,0,0,0,0,5,0,0,0,0,0,0,"" 73608,13,2,0,0,0,0,5,0,0,0,0,0,1,"75400" 73610,729,2,0,0,0,0,3,2,0,2,0,0,0,"REF----ACTIONS WITH NEGATIVE ADDRESSES" 73612,724,2,0,0,0,0,5,0,2,4,0,0,1,"PROCR" 73614,732,18,0,0,2,0,5,0,0,0,0,0,0,"08000'" 73616,732,20,0,0,2,0,4,1,1,0,0,0,0,"PROG'" 73618,732,22,0,0,2,0,3,2,1,0,0,0,0,"OUT'" 73620,16,2,0,0,0,0,5,0,2,0,0,0,0,"PROGM" 73622,16,3,0,0,0,0,5,0,2,4,0,0,0,"SERIAL" 73624,732,24,0,0,2,0,2,3,0,0,0,0,1,"DOUBLE LE" 73700,TABLE,737,,1,,,,,,,,,,"" 73701,NOTES,,,,,,,,,,,,,"" 73702,13,4,0,0,0,0,5,0,7,4,2,0,0,"" 73704,13,6,0,0,0,0,5,0,2,4,0,0,1,"" 73706,13,4,0,0,0,0,5,0,7,4,2,0,0,"CONST" 73708,13,6,0,0,0,0,5,0,2,4,0,0,0,"PARA" 73710,13,8,0,0,0,0,5,0,12,4,2,0,0,"CONST" 73712,13,10,0,0,0,0,5,0,2,4,0,0,1,"" 73714,11,0,0,0,2,0,5,0,0,0,0,0,0,"" 73716,11,2,0,0,2,0,5,0,0,0,0,0,0,"" 73718,11,4,0,0,2,0,5,0,0,0,0,0,0,"" 73720,11,6,0,0,2,0,5,0,0,0,0,0,1,"" 73800,TABLE,738,,3,,,,,,,,,,"" 73801,NOTES,,,,,,,,,,,,,"G BLOCK" 73802,16,16,0,0,0,0,5,0,0,0,0,0,0,"" 73804,735,2,0,0,0,0,5,0,0,0,0,0,0,"" 73806,16,2,0,0,0,0,5,0,0,0,0,0,0,"" 73808,16,3,0,0,0,0,5,0,0,0,0,0,0,"SERIAL" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000702.JPG",,,,"","DaveJ/Q1000702" 73810,731,2,0,0,2,0,5,0,0,0,0,0,1,"CHAPT'" 73812,731,2,0,0,2,0,5,0,0,0,0,0,0,"" 73814,16,16,0,0,0,0,5,0,3,4,0,0,1,"" 73816,16,17,0,0,0,0,4,1,1,3,0,0,0,"PROCR NUMBER" 73818,731,44,0,0,2,0,1,4,0,0,0,0,0,"='" 73820,16,36,0,0,0,0,4,1,0,3,0,0,1,"PROCR START" 73822,16,22,0,0,0,0,1,0,4,0,0,0,0,"p IND" 73824,16,30,0,0,0,0,4,1,3,3,0,0,0,"FIRST ADDRESS" 73826,16,22,0,0,0,0,2,3,2,1,0,0,0,"PARA" 73828,731,38,0,0,0,0,5,0,4,4,0,0,0,"SECOND ADDRESS=Q1-4" 73830,13,0,0,0,0,0,2,3,2,1,0,0,0,"Q5" 73832,13,1,0,0,0,0,2,3,1,1,0,0,0,"Q4" 73834,13,2,0,0,0,0,2,3,1,1,0,0,0,"Q3" 73836,13,3,0,0,0,0,2,3,1,1,0,0,0,"Q2" 73838,13,4,0,0,0,0,2,3,1,1,0,0,0,"Q1" 73840,13,22,0,0,0,0,1,4,3,0,0,0,1,"LTE" 73842,16,18,0,0,2,0,5,0,0,0,0,0,0,"" 73844,16,20,0,0,2,0,5,0,0,0,0,0,0,"" 73846,16,17,0,0,0,0,4,1,1,3,0,0,1,"PROCR NUMBER" 73848,13,0,0,0,2,0,5,0,0,0,0,0,0,"" 73850,13,2,0,0,2,0,5,0,0,0,0,0,1,"" 73852,731,40,0,0,0,0,5,0,0,4,0,0,1,"" 73900,TABLE,739,,1,,,,,,,,,,"EDIT INSTRUCTION FOR PRINT" ,NOTES,PRI,,,,,,,,,,,,"" 73902,13,0,0,0,0,0,2,3,6,1,0,0,0,"A" 73904,16,25,0,0,0,0,1,4,2,0,0,0,0,"D" 73906,16,26,0,0,0,0,1,4,2,0,0,0,0,"M" 73908,13,2,0,0,0,0,4,1,2,3,0,0,0,"ADDR" 73910,13,4,0,0,0,0,4,1,1,3,0,0,1,"PARAMETER" 74000,CONST,"740",,1,,"","" 74002,,"(D)1;",,,,"","" 74004,,"2;",,,,"","" 74006,,"3;",,,,"","" 74008,,"4;",,,,"","" 74010,,"5;",,,,"","" 74012,,"6;",,,,"","" 74014,,"7;",,,,"","" 74016,,"8;",,,,"","" 74018,,"9;",,,,"","" 74020,,"0;",,,,"","" 74022,,"0;",,,,"","" 74024,,"0;",,,,"","" 74026,,"0;",,,,"","" 74028,,"0;",,,,"","" 74030,,"0;",,,,"","" 74032,,"0;",,,,"","" 74034,,"0;",,,,"","" 74036,,"0;",,,,"","" 74038,,"0;",,,,"","" 74040,,"0;",,,,"","" 74042,,"0;",,,,"","" 74044,,"0;",,,,"","" 74046,,"0;",,,,"","" 74048,,"0;",,,,"","" 74050,,"0;",,,,"","" 74052,,"0;",,,,"","" 74054,,"0;",,,,"","" 74056,,"0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000703.JPG",,,,"","DaveJ/Q1000703" 74058,,"0;",,,,"","" 74100,PROCR,"741",,,,"","1000 ENTRIES TO PTS" 74102,124,"757",7,1,0,"0",">FROM PROG UNLOAD" 74103,76,"746",2,0,0,"0",">FROM STORE DUMP START" 74104,124,"747",2,1,0,"0",">FROM STORE DUMP END ROUTINE" 74105,124,"748",2,1,0,"0",">FROM TROFL" 74106,124,"757",2,1,0,"0",">FROM LOADER" 74107,124,"757",3,1,0,"0",">FROM PROGRAMME" 74108,76,"745",63,0,0,"0",">FROM'ABANDON VIA MASTER ALARM'" 74109,124,"757",5,1,0,"0",">FROM OVERLAY(END)" 74110,124,"757",6,1,0,"0",">FROM OVERLAY(START)" 74111,76,"745",2,0,0,"0",">FROM'ABANDON BY 2/0/1 COMMAND'" 74200,CONST,"742",,1,,"","1001 ANNEXE 1 FOR PASSES 1,2 AND 3" 74202,,"(D)0;",,,,"","" 74204,,"0;",,,,"","" 74206,,"0;",,,,"","" 74208,,"0;",,,,"","" 74210,,"0;",,,,"","" 74212,,"0;",,,,"","" 74214,,"0;",,,,"","" 74216,,"0;",,,,"","" 74218,,"0;",,,,"","" 74220,,"0;",,,,"","" 74222,,"0;",,,,"","" 74224,,"0;",,,,"","" 74226,,"0;",,,,"","" 74228,,"0;",,,,"","" 74230,,"0;",,,,"","" 74232,,"0;",,,,"","" 74234,,"0;",,,,"","" 74236,,"0;",,,,"","" 74238,,"0;",,,,"","" 74240,,"0;",,,,"","" 74242,,"0;",,,,"","" 74244,,"0;",,,,"","" 74246,,"0;",,,,"","" 74248,,"0;",,,,"","" 74250,,"0;",,,,"","" 74252,,"0;",,,,"","" 74254,,"0;",,,,"","" 74300,CONST,"743",,1,,"","1002 ANNEXE 2 FOR PASSES 1,2 AND 3" 74302,,"(D)0;",,,,"","" 74304,,"0;",,,,"","" 74306,,"0;",,,,"","" 74308,,"0;",,,,"","" 74310,,"0;",,,,"","" 74312,,"0;",,,,"","" 74314,,"0;",,,,"","" 74316,,"0;",,,,"","" 74318,,"0;",,,,"","" 74320,,"0;",,,,"","" 74322,,"0;",,,,"","" 74324,,"0;",,,,"","" 74326,,"0;",,,,"","" 74328,,"0;",,,,"","" 74330,,"0;",,,,"","" 74332,,"0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000704.JPG",,,,"","DaveJ/Q1000704" 74334,,"0;",,,,"","" 74336,,"0;",,,,"","" 74338,,"0;",,,,"","" 74340,,"0;",,,,"","" 74342,,"0;",,,,"","" 74344,,"0;",,,,"","" 74346,,"0;",,,,"","" 74348,,"0;",,,,"","" 74350,,"0;",,,,"","" 74352,,"0;",,,,"","" 74354,,"0;",,,,"","" 74400,PROCR,"744",,,,"","1003 OVERLAY FOR PTS(WL'S IN PASS 3)" 74402,125,"",4096,1,1,"0","" 74403,126,"749",21,0,0,"0","SET(71)FOR MASTER" 74404,124,"744",72,0,3,"0","SET UP 64" 74405,124,"",3,0,3,"0","AND 124" 74406,106,"",198,1,0,"0","" 74407,124,"744",72,0,3,"0","" 74408,103,"",64,0,0,"0","(24)" 74409,30,"",0,0,0,"5-","" 74410,124,"744",72,0,3,"0","" 74411,103,"",124,0,0,"0","" 74412,101,"",40,1,3,"0","" 74413,34,"744",70,0,0,"0","1" 74414,80,"749",2,0,0,"0",">BACK 1 I/P->I/P" 74415,125,"",4096,1,1,"0","" 74416,124,"744",72,1,1,"0","MOD GROUP 0" 74417,91,"755",2,0,1,"0","PROG SWITCH" 74418,124,"744",72,0,3,"0","" 74419,126,"",0,0,0,"0","(50)REQUEST M/R,CLOSE PROGM SWITCH" 74420,91,"751",6,0,1,"0","MASTER SWITCH" 74421,10,"",0,0,0,"7","" 74422,124,"744",72,0,3,"0","" 74423,102,"",0,0,0,"0","(51)SET'OPT A'SWITCH" 74424,124,"744",72,0,3,"0","" 74425,106,"",64,0,0,"0","(24)" 74426,124,"744",72,0,3,"0","" 74427,105,"",124,0,0,"0","" 74428,127,"744",38,0,0,"0",">YES,AVOID READ" 74429,124,"744",72,0,3,"0","" 74430,106,"",0,0,0,"0","(24)" 74431,102,"744",76,0,0,"0","" 74432,101,"",0,1,3,"0","" 74433,124,"744",72,0,3,"0","" 74434,126,"",0,0,0,"0","(7) READ BLOCK TO MR ANNEXES" 74435,106,"744",76,0,0,"0","" 74436,124,"744",72,0,3,"0","" 74437,102,"",0,0,0,"0","(24)" 74438,124,"744",72,1,1,"0","MG 0" 74439,124,"757",2,0,2,"0","" 74440,3,"757",2,1,0,"0","" 74441,124,"744",72,0,3,"0","" 74442,102,"",2,0,0,"0","SET PARA 2" 74443,91,"757",2,0,2,"0","CHUNK START" 74444,101,"757",2,1,3,"0","" 74445,124,"744",72,0,3,"0","" 74446,102,"",1,0,0,"0","SET PARA 1" 74447,101,"",0,1,3,"0","PARA TABLE START" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000705.JPG",,,,"","ChuckK/Q1000705" 74448,124,"744",72,0,3,"0","" 74449,123,"",0,0,2,"0","(6) LOAD CHAP SR" 74450,124,"744",64,0,2,"0","" 74451,1,"744",71,0,0,"0","14 IN Q5" 74452,124,"755",2,0,3,"0","" 74453,102,"",44,0,0,"0","SET LINK IN PROG SWITCH" 74454,124,"744",72,0,3,"0","" 74455,102,"",0,0,0,"0","(51)CLEAR 'OPT A' SWITCH" 74456,10,"",0,0,0,"1","" 74457,4,"744",74,0,0,"0","STEP PASS IND(-1->0 or 0->1)" 74458,124,"755",2,0,3,"0","PROG SWITCH START" 74459,106,"",35,0,0,"0","SI+35" 74460,124,"755",2,0,3,"0","" 74461,102,"",7,0,0,"0",">SI+7 (OPEN SWITCH)" 74462,124,"744",72,0,3,"0","" 74463,124,"",0,1,0,"0",">RELEASE MR SWITCH/ENTER PQ/RETURN(38)" 74464,125,"",4096,1,1,"0","" 74465,126,"749",21,0,0,"0","RESET (71) FOR MASTER" 74466,101,"",40,1,3,"0","" 74467,34,"744",70,0,0,"0","" 74468,80,"749",2,0,0,"0",">SETEP BACK 1 I/P->I/P" 74469,76,"757",2,0,0,"0",">ENTER PTS(2,3)" 74470,100,"",1,0,0,"0","CONSTS" 74471,114,"",0,0,0,"0","" 74472,100,"",0,0,0,"0","ZERO" 74473,100,"",0,0,0,"0","(24)PTS CH/ROUTE NO" 74474,116,"",1,0,0,"0","1-=PASS1,0=PASS2,1+PASS3 IN STORE" 74475,100,"",0,0,0,"0","1=PROGM IN CONTROL,0=PTS IN CONTROL" 74476,100,"",0,0,0,"0","STORE PARA 24" 74477,100,"",0,0,0,"0","SPARE" 74500,PROCR,"745",,,,"","1003A=DISENTANGLE THE ABANDON COMMANDS" 74502,124,"744",72,0,3,"0","SET MR3 FOR LOG (2/0/1)COMMAND" 74503,126,"",53,1,3,"0","(3)REQUEST QUEUE" 74504,124,"744",72,0,3,"0","FIND POSITION OP" 74505,106,"",2,0,0,"0","THIS PROGRAMS LOG" 74506,124,"744",72,0,3,"0","REQUEST ENTRY" 74507,105,"",2,0,3,"0","" 74508,127,"745",11,0,0,"0",">FOUND" 74509,125,"",2,0,3,"0","" 74510,124,"745",4,1,0,"0",">NEXT ENTRY" 74511,124,"744",72,0,3,"0","" 74512,106,"",1,0,3,"0","LINK IN LOG REQUEST QUEUE" 74513,70,"745",21,0,0,"0",">THIS PROG NOT TRYING TO USE LOG" 74514,101,"",0,1,2,"0","(54)" 74515,71,"745",18,0,0,"0",">THIS PROG NOT TRYING TO OFFER OPTIONS" 74516,124,"744",72,0,3,"0","" 74517,102,"",0,0,0,"0","(53) DELETE'OPT OUTSTANDING'IND" 74518,10,"",0,0,0,"0","" 74519,124,"744",72,0,3,"0","" 74520,102,"",1,0,3,"0","(53)DELETE LOG REQUEST" 74521,,"744",74,0,0,"0","PASS IND" 74522,71,"745",53,0,0,"0",">NOT PASS 2,ELSE SECOND ABDON" 74523,101,"",0,1,3,"0","(15)'RC'LINK" 74524,3,"744",74,0,0,"0","SET'PASS 3'" 74525,3,"745",49,0,0,"0","SET'2/0/1 COMMAND IN PROGRESS'" 74526,124,"744",72,0,3,"0","" 74527,102,"",42,0,1,"0",">SI+42" 74528,124,"744",72,0,3,"0","CLEAR ASSOC TIME" 74529,102,"",45,0,1,"0","(SI->45)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000706.JPG",,,,"","ChuckK/Q1000706" 74530,124,"751",6,0,3,"0","MASTER SWITCH START" 74531,106,"",9,0,0,"0","SM+9" 74532,124,"751",6,0,3,"0","SET CLOSED+INTERRUPTIBLE" 74533,102,"",7,0,0,"0",">SM+7" 74534,124,"751",6,0,3,"0","" 74535,106,"",57,0,0,"0","SM+57=SP+9" 74536,124,"751",6,0,3,"0","" 74537,102,"",6,0,0,"0",">SM+6" 74538,0,"744",75,0,0,"0","" 74539,71,"745",79,0,0,"0",">PROG IN CONTROL" 74540,124,"744",72,0,3,"0","" 74541,106,"",44,0,1,"0","PRESENT PTS LINK IN SI+44" 74542,5,"745",84,0,0,"0","" 74543,124,"745",79,0,2,"0","" 74544,1,"744",71,0,0,"0","14 IN Q5" 74545,124,"744",72,0,3,"0","" 74546,102,"",44,0,1,"0","NEW LINK" 74547,124,"755",2,0,3,"0","" 74548,124,"",7,1,0,"0",">SI+7 TO CONTINUE THIS DUMP" 74549,100,"",0,0,0,"0","NONZERO='2/0/1 COMMAND IN PROGRESS'" 74550,124,"744",72,1,1,"0","MSG 0" 74551,124,"744",72,0,3,"0","" 74552,126,"",0,0,0,"0","(50)REQUEST MASTER" 74553,124,"751",6,0,3,"0","SET MASTER SWITCH NON-INT" 74554,106,"",58,0,0,"0","SM+58=SP+10" 74555,124,"751",6,0,3,"0","" 74556,102,"",6,0,0,"0",">SM+6" 74557,124,"744",72,0,3,"0","" 74558,102,"",44,0,0,"0","(3)CLEAR'TRIAL'IND" 74559,124,"744",72,1,1,"0","MG 0" 74560,10,"",0,0,0,"0","*FORMED ORDER* 0/2='ABDON/END'" 74561,124,"744",72,0,3,"0",">RETURN TO'ABDON'COMMENT" 74562,124,"",0,1,0,"0","(34)" 74563,0,"745",49,0,0,"0"," '2/0/1'IND (ABANDON OPTION)" 74564,70,"745",69,0,0,"0",">NO" 74565,101,"",1,1,3,"0","(15)1*'RC' LINK" 74566,2,"744",74,0,0,"0","" 74567,70,"745",50,0,0,"0",">DURING PASS 3" 74568,76,"745",53,0,0,"0",">SOMETIME IN PASS 2" 74569,0,"744",74,0,0,"0","PASS IND" 74570,71,"745",50,0,0,"0",">1 OR 3" 74571,0,"744",75,0,0,"0","CONTROL IND" 74572,70,"745",50,0,0,"0",">PTS IN CONTROL" 74573,101,"",0,1,3,"0","(15)'RC' LINK" 74574,3,"744",74,0,0,"0","SET'PTS 3'" 74575,124,"744",72,0,3,"0","" 74576,102,"",42,0,1,"0",">SI+42" 74577,124,"744",72,0,3,"0","" 74578,102,"",45,0,1,"0","CLEAR ASSOC TIME" 74579,10,"",0,0,0,"0","" 74580,35,"",0,0,0,"100","" 74581,37,"757",23,0,0,"0","CLEAR Q3=DISCARDS (2001/23)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000707.JPG",,,,"","ChuckK/Q1000707" 74582,126,"757",10,0,0,"0",">TYPE'OP ABANDONS(PROG)' (2001/10)" 74583,126,"745",84,0,1,"0","" 74584,100,"",0,0,0,"0","FORMED PASS 1=1014/4" 74585,10,"",0,0,0,"2","ORDER CONST" 74600,PROCR,"746",,,,"","1004 STORE DUMP (START)" 74602,124,"744",73,0,3,"0","TEST TAPE HAS JUST BEEN REWOUND" 74603,106,"",0,0,0,"0","(36)" 74604,118,"",4124,0,0,"0",";JUST BEEN REWOUND" 74605,127,"746",8,0,0,"0",">NO" 74606,125,"",0,1,2,"0","" 74607,124,"746",11,1,0,"0",">" 74608,124,"744",72,0,3,"0","" 74609,124,"",35,0,3,"0","(3)BLOCK CTRS" 74610,106,"",0,0,0,"0","(24)PTS ROUTE" 74611,102,"750",5,0,0,"0",";SERIAL NO" 74612,101,"",27,1,3,"0",";CLOSE STORE" 74613,80,"749",2,0,0,"0",".CLOSE I/P FILE" 74614,124,"744",72,0,3,"0","" 74615,124,"",0,1,0,"0","(37)" 74700,PROCR,"747",,,,"","1005 STORE DUMP (END)" 74702,10,"",0,0,0,"0","" 74703,35,"",0,0,0,"10000","" 74704,124,"744",73,0,3,"0","PROG ROUTE" 74705,114,"",0,0,0,"0","(36)CLEAR Q5='REWIND'IND" 74706,106,"750",5,0,0,"0",";TEST PTS TAPE TO" 74707,127,"747",34,0,0,"0",">NO;BE REALIGNED" 74708,34,"751",2,1,0,"0","" 74709,101,"",17,1,3,"0","" 74710,80,"749",2,0,0,"0",">OPEN I/P FILE" 74711,100,"750",4,0,3,"0","DEC" 74712,10,"",0,0,0,"0","" 74713,12,"",0,0,0,"1","" 74714,4,"750",5,0,0,"0","STEP DOWN REQUIRED BLOCK" 74715,100,"744",72,0,3,"0","BIN" 74716,101,"",10,1,3,"0","WORD 10=IDENTIFIER LOCN" 74717,30,"",0,0,0,"5","" 74718,124,"744",72,0,3,"0","" 74719,104,"",55,0,0,"0","(3)PARA 55=IDENTIFIER VALUE" 74720,32,"",0,0,0,"10-","" 74721,101,"",37,1,3,"0","" 74722,80,"749",2,0,0,"0",">RUN FWD TO MACHINE CODE START" 74723,10,"",0,0,0,"0","DUMMY" 74724,101,"",62,1,3,"0","STORE DUMP PSEUDO" 74725,32,"",0,0,0,"10-","" 74726,101,"",7,1,3,"0",";REALIGN TAPE" 74727,80,"749",2,0,0,"0",">READ;USING MR ANNEXES" 74728,124,"744",72,0,3,"0","" 74729,124,"",126,0,3,"0","STORE PSEUDO" 74730,106,"",1,1,0,"0","" 74731,2,"750",5,0,0,"0","REQUIRED BLOCK" 74732,71,"747",24,0,0,"0",">NOT YET" 74733,125,"",4096,1,1,"0","" 74734,124,"744",72,0,3,"0","" 74735,124,"",0,1,0,"0","(52)" 74800,PROCR,"748",,,,"","1006 TRIAL OVER FLOW" 74802,124,"744",72,0,3,"0","STORE POSN OF OFLOW CONSTANT" 74803,106,"",0,0,0,"0","(39)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000708.JPG",,,,"","ChuckK/Q1000708" 74804,102,"750",5,0,0,"0","" 74805,124,"751",4,0,2,"0","AMEND EDIT TABLE" 74806,124,"744",72,0,3,"0","AMEND EDIT TABLE" 74807,102,"",0,0,0,"0","(39)" 74808,101,"",0,1,3,"0","(39)" 74809,124,"744",72,0,3,"0","" 74810,128,"",0,1,2,"0","(10)" 74811,124,"744",72,0,3,"0","" 74812,106,"",38,0,1,"0","MOVE (24)" 74813,124,"744",72,0,3,"0","" 74814,102,"",44,0,1,"0","" 74815,124,"744",72,0,3,"0","" 74816,106,"",35,0,1,"0","SET S1=4" 74817,124,"744",72,0,3,"0","" 74818,102,"",7,0,1,"0","" 74819,106,"750",5,0,0,"0","RESTORE EDIT TABLE" 74820,124,"744",72,0,3,"0","RESTORE EDIT TABLE" 74821,102,"",0,0,0,"0","(39)" 74822,124,"744",72,0,3,"0","" 74823,124,"",0,1,0,"0","(41)" 74900,PROCR,"749",,,,"","1007 I/P O/P S/R RTE 7" 74902,100,"",0,0,0,"0","LINK" 74903,118,"",5,0,0,"0","FORM PARAMETER" 74904,101,"",0,1,1,"0","(24)" 74905,125,"",4096,1,1,"0","SET NON INT" 74906,124,"750",2,0,3,"0","MODIFY DIVISION" 74907,123,"",160,0,2,"0","" 74908,126,"749",2,0,1,"0",">LEAVE S/R" 74909,100,"",0,0,0,"0",";SWOP 64*R S/R" 74910,124,"744",72,0,3,"0","STORE(64*R)" 74911,106,"",64,0,0,"0","" 74912,102,"749",19,0,0,"0","" 74913,106,"749",20,0,0,"0","RESET(64*R)" 74914,124,"744",72,0,3,"0","" 74915,102,"",64,0,0,"0","" 74916,106,"749",19,0,0,"0","STORE NEXT(64*R)" 74917,102,"749",20,0,0,"0","" 74918,126,"749",9,0,1,"0",">LEAVE S/R" 74919,100,"",0,0,0,"0","STORES FOR (64*R)" 74920,100,"",0,0,0,"0","" 74921,100,"",0,0,0,"0","" 74922,124,"750",2,0,3,"0","INTERCHANGE VALUES" 74923,100,"",24,0,2,"0","(3)OF PARAMETER 24" 74924,106,"749",31,0,0,"0","" 74925,124,"750",2,0,3,"0","" 74926,102,"",24,0,0,"0","(3)" 74927,32,"",0,0,0,"10","" 74928,102,"749",31,0,0,"0","" 74929,126,"749",9,0,0,"0","" 74930,126,"749",21,0,1,"0",">LEAVE(S)" 74931,100,"",0,0,0,"0","(24)" 75000,CONST,"750",,0,,"","1008 W/L'S USED BY GENERAL CODING" 75002,,"(D)00000;",,,,"","" 75003,,"00002;",,,,"","" 75004,,"66666;",,,,"","" 75005,,"00000;",,,,"","O'LAY AND STORE DUMP W/L" 75100,CONST,"751",,1,,"","1009 LONG CONSTANTS UDED BY GENERAL CODING" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000709.JPG",,,,"","ChuckK/Q1000709" 75102,,"(D)0514808000;",,,,"","STORE DUMP I/P O/P CST" 75104,,"(A)TROFL;",,,,"","" 75106,,"0;",,,,"","WL FOR MASTER SWITCH START" 75108,,"0;",,,,"","8-31=UNPACK WL'S IN PASS 3" 75110,,"0;",,,,"","" 75112,,"0;",,,,"","" 75114,,"0;",,,,"","" 75116,,"0;",,,,"","" 75118,,"0;",,,,"","" 75120,,"0;",,,,"","" 75122,,"0;",,,,"","" 75124,,"0;",,,,"","" 75126,,"0;",,,,"","" 75128,,"0;",,,,"","" 75130,,"0;",,,,"","" 75132,,"0;",,,,"","" 75134,,"0;",,,,"","START OF 256-LOCN PRINT ANNEX PASS 3" 75136,,"0;",,,,"","" 75138,,"0;",,,,"","" 75140,,"0;",,,,"","" 75142,,"0;",,,,"","" 75144,,"0;",,,,"","" 75200,CONST,"752",,1,,"","1010 LIST AND PRINTER ANNEXE" 75202,,"(D)0;",,,,"","I/O SERIAL;ABS ADDRESS" 75204,,"0;",,,,"","REPLACED INSTRUCTIONS" 75206,,"0;",,,,"","CHAP,24 IND,TYPE;N1 ALLOC CHAP,N2" 75208,,"0;",,,,"","SEON START+LENGTH;SECN START" 75210,,"0;",,,,"","SEON NUMBER" 75212,,"0;",,,,"","" 75214,,"0;",,,,"","SUBSEQUENT SECNS" 75216,,"0;",,,,"","" 75218,,"0;",,,,"","" 75220,,"0;",,,,"","2ND PM POINT" 75222,,"0;",,,,"","" 75224,,"0;",,,,"","" 75226,,"0;",,,,"","" 75228,,"0;",,,,"","" 75230,,"0;",,,,"","" 75232,,"0;",,,,"","" 75234,,"0;",,,,"","" 75236,,"0;",,,,"","" 75238,,"0;",,,,"","3RD PM POINT" 75240,,"0;",,,,"","" 75242,,"0;",,,,"","" 75244,,"0;",,,,"","" 75246,,"0;",,,,"","" 75248,,"0;",,,,"","" 75250,,"0;",,,,"","" 75252,,"0;",,,,"","" 75254,,"0;",,,,"","" 75300,CONST,"753",,1,,"","1011 UNPACKED I/P AND LIST" 75302,,"(D)0;",,,,"","4TH PM POINT" 75304,,"0;",,,,"","" 75306,,"0;",,,,"","" 75308,,"0;",,,,"","" 75310,,"0;",,,,"","" 75312,,"0;",,,,"","" 75314,,"0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000710.JPG",,,,"","ChuckK/Q1000710" 75316,,"0;",,,,"","" 75318,,"0;",,,,"","" 75320,,"0;",,,,"","5TH PM POINT" 75322,,"0;",,,,"","" 75324,,"0;",,,,"","" 75326,,"0;",,,,"","" 75328,,"0;",,,,"","" 75330,,"0;",,,,"","" 75332,,"0;",,,,"","" 75334,,"0;",,,,"","" 75336,,"0;",,,,"","" 75400,CONST,"754",,1,,"","1012 LIST CONTINUED" 75402,,"(D)0;",,,,"","6TH PM POINT" 75404,,"0;",,,,"","" 75406,,"0;",,,,"","" 75408,,"0;",,,,"","" 75410,,"0;",,,,"","" 75412,,"0;",,,,"","" 75414,,"0;",,,,"","" 75416,,"0;",,,,"","" 75418,,"0;",,,,"","" 75420,,"0;",,,,"","7TH PM POINT" 75422,,"0;",,,,"","" 75424,,"0;",,,,"","" 75426,,"0;",,,,"","" 75428,,"0;",,,,"","" 75430,,"0;",,,,"","" 75432,,"0;",,,,"","" 75434,,"0;",,,,"","" 75436,,"0;",,,,"","" 75438,,"0;",,,,"","8TH PM POINT" 75440,,"0;",,,,"","" 75442,,"0;",,,,"","" 75444,,"0;",,,,"","" 75446,,"0;",,,,"","" 75448,,"0;",,,,"","" 75450,,"0;",,,,"","" 75452,,"0;",,,,"","" 75454,,"0;",,,,"","" 75456,,"0;",,,,"","9TH PM POINT" 75458,,"0;",,,,"","" 75460,,"0;",,,,"","" 75462,,"0;",,,,"","" 75464,,"0;",,,,"","" 75466,,"0;",,,,"","" 75468,,"0;",,,,"","" 75470,,"0;",,,,"","" 75472,,"0;",,,,"","" 75474,,"0;",,,,"","10TH PM POINT" 75476,,"0;",,,,"","" 75478,,"0;",,,,"","" 75480,,"0;",,,,"","" 75482,,"0;",,,,"","" 75484,,"0;",,,,"","" 75486,,"0;",,,,"","" 75488,,"0;",,,,"","" 75490,,"0;",,,,"","" 75500,CONST,"755",,0,,"","1013 W/L'S COMMON TO PASSES 1 AND 2" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000711.JPG",,,,"","DaveJ/Q1000711" 75502,,"(D)0;",,,,"","START OF SWITCH OF TRIAL PROG" 75503,,"0;",,,,"","START OF SP CHAP OF TRIAL PROG" 75504,,"0;",,,,"","NO OF PARAMETERS+1" 75505,,"0;",,,,"","NO OF INITIAL CHAPS" 75506,,"0;",,,,"","MOD GROUPX8" 75507,,";",,,,"","PROG'S ENTRY POINT" 75508,,";",,,,"","(A)ON ENTRY TO PROG" 75509,,";",,,,"","(B) ON ENTRY TO PROG" 75510,,";",,,,"","(C) ON ENTRY TO PROG" 75511,,"0;",,,,"","2ND HALF(B)" 75512,,"0;",,,,"","(C)" 75513,,"0;",,,,"","SPARE" 75600,PROCR,"756",,,,"","ACHTUNG:IF THE NEXT PROCR IS ALTERED" 75601,NOTES,"",RADIX,,,"","PROCR 1003 MUST BE CHANGED-IT ADDRESSES 2001 AS 1014" 75700,PROCR,"757",,,,"","1014 STORE DETAILS (1)" 75702,5,"772",4,1,0,"0","TRIAL DATA IND Q1-5,LOSE SIGN->WL" 75703,125,"",4096,1,1,"0","SET NON INT" 75704,124,"770",8,0,3,"0","" 75705,106,"",2,1,0,"0","R1 OF MG 0" 75706,5,"751",6,1,0,"0","MASTER PROG SWITCH" 75707,124,"770",8,0,3,"0","" 75708,106,"",44,0,0,"0","(3)SWITCH START EX PLS PARAS" 75709,102,"755",2,0,0,"0","" 75710,124,"755",2,0,3,"0","START OF SP CHAP " 75711,106,"",37,0,0,"0","" 75712,102,"755",3,0,0,"0","" 75713,106,"755",2,1,0,"0","SET (MR1)(MG0)FOR PROG UNDER TRIAL" 75714,124,"770",8,0,3,"0","" 75715,102,"",2,1,0,"0","" 75716,124,"755",2,0,3,"0","STORE (A),(B),© ON ENTRY TO PROG" 75717,100,"",30,1,1,"0","" 75718,100,"755",8,1,0,"0","" 75719,100,"744",72,0,3,"0","" 75720,124,"755",2,0,3,"0","STORE ENTRY POINT" 75721,106,"",44,0,0,"0","" 75722,102,"755",7,0,0,"0","" 75723,106,"775",2,1,0,"0","CLEAR LIST" 75724,128,"752",2,0,0,"0","" 75725,124,"755",2,0,3,"0","SET PROGS MOD GROUP" 75726,124,"",29,1,1,"0","" 75727,126,"755",3,1,2,"0","SET (MR2)=SP CHAP START" 75728,124,"744",72,0,3,"0","" 75729,106,"",14,0,2,"0","STORE NO OF PARAMETERS+1" 75730,102,"755",4,0,0,"0","" 75731,124,"744",72,0,3,"0","" 75732,106,"",4,0,2,"0","STORE NO OF INITIAL CHAPS" 75733,102,"755",5,0,0,"0","" 75734,124,"744",72,0,3,"0","" 75735,106,"",1,0,2,"0","STORE 8XMOD GROUP" 75736,118,"",3,0,3,"0","" 75737,102,"755",6,0,0,"0","" 75738,124,"757",4,0,2,"0","" 75739,5,"745",84,0,0,"0","SET LINK FOR'ABDON'" 75740,10,"",0,0,0,"0","DUMMY ORDER" 75741,106,"769",4,0,0,"0","" 75742,102,"749",20,0,0,"0","" 75743,126,"749",9,0,0,"0","SET(71)FOR PTS" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000712.JPG",,,,"","DaveJ/Q1000712" 75744,106,"769",5,0,0,"0","" 75745,124,"744",72,0,3,"0","" 75746,102,"",123,0,0,"0","" 75747,101,"752",2,1,3,"0","SET MR1 AT" 75748,107,"770",17,0,0,"0","START AND END OF LIST" 75749,102,"770",16,0,0,"0","" 75750,126,"770",16,1,1,"0","" 75751,100,"771",6,0,2,"0","STEP PROG TAPE" 75752,101,"",40,1,3,"0","BACK ONE BLOCK" 75753,126,"749",2,0,0,"0","g" 75800,PROCR,"758",,,,"","1015 TEST DIRECTIVE" 75802,100,"771",3,0,2,"0","READ PROG TAPE" 75803,101,"",7,1,3,"0","" 75804,126,"749",2,0,0,"0",">" 75805,124,"771",2,1,2,"0","" 75806,106,"",4,1,0,"0","TEST=FILES" 75807,105,"770",4,1,0,"0","" 75808,127,"759",2,0,0,"0",">YES" 75809,104,"770",4,1,0,"0","TEST=CHAPT" 75810,105,"770",2,1,0,"0","" 75811,127,"764",2,0,0,"0","TEST=''E''" 75812,104,"770",2,1,0,"0","" 75813,101,"",85,1,2,"0","" 75814,127,"758",2,0,1,"0","" 75815,76,"744",2,0,0,"0",">OLAY" 75900,PROCR,"759",,,,"","1016 STORE PM POINT INFORMATION" 75902,106,"775",4,1,0,"0","FORM UP BULK COPY" 75903,124,"770",8,0,3,"0","TABLE" 75904,104,"",123,0,0,"0","" 75905,128,"774",2,1,0,"0","COPY ALPHA->NUMERIC" 75906,106,"774",2,0,0,"0","STORE I/C SERIAL NO" 75907,102,"",1,0,1,"0","" 75908,101,"",24,0,1,"0","" 75909,115,"774",5,0,0,"0","COLLATE N1" 75910,118,"",4125,1,0,"0","" 75911,102,"",4,0,1,"0","STORE N1" 75912,115,"774",5,0,0,"0","COLLATE N2" 75913,118,"",3,0,0,"0","" 75914,107,"",4,0,1,"0","STORE N2" 75915,101,"",23,0,1,"0","" 75916,124,"755",6,0,3,"0","8M" 75917,106,"",2,0,0,"0","(MR1)" 75918,102,"773",2,0,0,"0","" 75919,126,"773",2,1,3,"0","SET MODIFIER MR3=MODIFIER MR1" 75920,115,"774",4,0,0,"0","COLLATE CHAP NO PM TYPE AND N3" 75921,103,"",5,0,1,"0","AND STORE" 75922,118,"",4124,0,0,"0","TEST PM TYPE" 75923,101,"",5,1,2,"0","" 75924,127,"763",2,0,0,"0",">TYPE 5" 75925,101,"",4,1,2,"0","" 75926,127,"762",2,0,0,"0",">TYPE 9(CLEO 6)" 75927,101,"",3,1,1,"0","" 75928,127,"762",2,0,0,"0",">TYPE 6" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000713.JPG",,,,"","DaveJ/Q1000713" 75929,127,"759",31,0,2,"0","gTYPE>6 TYPE 7=CLEO 1" 75930,101,"",5,1,1,"0",";TYPE 8=CLEO 3" 75931,101,"",1,1,1,"0","" 75932,102,"772",5,0,0,"0","W/L(FOR TYPE OR TYPE=5)" 76000,PROCR,"760",,,,"","1017 CHAPTER PMS" 76002,126,"770",8,1,2,"0","SET(MR2)=16:0 TYPE 1,2,3,4,7,8" 76003,106,"772",5,0,0,"0","" 76004,101,"",3,1,2,"0",";TEST CHAPTER DUMP" 76005,127,"761",2,0,2,"0",">NO" 76006,106,"774",6,0,2,"0","CHAP NO" 76007,127,"763",2,0,0,"0",">END OF CHAPS" 76008,103,"",8,0,3,"0","STORE CHAP NO" 76009,104,"774",6,0,2,"0","" 76010,126,"766",2,0,0,"0",">FORM UP CHAP DETAILS" 76011,103,"",6,0,3,"0","STORE CHAP START" 76012,118,"",4123,0,0,"0","" 76013,105,"",6,0,3,"0","" 76014,102,"",7,0,3,"0","STORE CHAP LENGTH" 76015,125,"",3,0,3,"0","" 76016,124,"760",17,1,0,"0","g" 76017,125,"",4,0,2,"0",";TEST FOUR CHAPS DEAL" 76018,124,"760",3,1,0,"0",">NO;WITH" 76019,124,"763",2,1,0,"0",">YES" 76100,PROCR,"761",,,,"","1018 SECTION PM'S" 76102,125,"",0,1,2,"0","" 76103,101,"",7,0,1,"0","" 76104,115,"774",6,0,2,"0","COLLATE OUT SECTION NO" 76105,127,"763",2,0,0,"0",">END OF SECNS" 76106,102,"",8,0,3,"0","STORE SECN NO" 76107,101,"",16,0,1,"0","" 76108,115,"774",7,0,2,"0","COLLATE TA IND" 76109,127,"761",17,0,0,"0",">NOT TA IE SECN" 76110,107,"",8,0,3,"0","T A IND" 76111,125,"",0,1,2,"0","" 76112,101,"",24,0,1,"0","" 76113,115,"774",6,0,2,"0","COLLATE RTE PARAM" 76114,118,"",4125,0,0,"0","2XRTE PARAM" 76115,126,"767",2,0,0,"0",">FORM UP -(64+P)" 76116,124,"761",23,1,0,"0",">" 76117,101,"",8,0,1,"0","" 76118,115,"774",6,0,2,"0","CHAP NO (Q4)" 76119,115,"774",6,0,2,"0","" 76120,118,"",4125,0,0,"0","" 76121,126,"766",2,0,0,"0",">FORM UP CHAP START" 76122,104,"774",8,0,2,"0","SECTION START" 76123,102,"",6,0,3,"0","SECTION START" 76124,106,"774",9,0,2,"0","SECTION LENGTH" 76125,124,"760",14,1,0,"0",">" 76200,PROCR,"762",,,,"","1019 TRACE POINTS PM'S" 76202,126,"770",10,1,2,"0","SET(MR2)=18:0" 76203,106,"774",6,0,2,"0","CHAP NO AND REL ADD" 76204,127,"763",2,0,0,"0","END OF TRACE PTS" 76205,102,"",6,0,3,"0","STORE" 76206,101,"",16,0,1,"0",";TEST PT IN SECN" 76207,115,"774",7,0,2,"0","" 76208,127,"762",16,0,0,"0",">NO,PROCR" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000714.JPG",,,,"","ChuckK/Q1000714" 76209,118,"",3,0,3,"0","" 76210,102,"",7,0,3,"0","SET BIT 20 (SECN IND)" 76211,101,"",15,0,1,"0","" 76212,115,"774",7,0,2,"0","REF" 76213,118,"",3,0,0,"0","SHIFT 13 BITS LEFT" 76214,118,"",1,0,3,"0","" 76215,124,"762",19,1,0,"0",">" 76216,101,"",15,0,1,"0","" 76217,115,"774",7,0,2,"0","REF" 76218,118,"",2,0,0,"0","" 76219,107,"",7,0,3,"0","STORE" 76220,106,"774",8,0,2,"0","ITEM" 76221,107,"",7,0,3,"0","STORE" 76222,125,"",2,0,3,"0","" 76223,124,"762",24,1,0,"0","" 76224,125,"",3,0,2,"0","" 76225,124,"762",3,1,0,"0",">NO" 76226,125,"",0,1,2,"0","" 76300,PROCR,"763",,,,"","1020 STORE REPLACED INSTRUCTIONS" 76302,101,"",1,0,1,"0","TYPE 5" 76303,115,"774",4,0,0,"0","UNCORRECTED CHAP NO" 76304,105,"755",5,0,0,"0","" 76305,127,"763",52,0,2,"0",">NO" 76306,104,"755",5,0,0,"0","" 76307,103,"772",3,0,0,"0","W/L" 76308,118,"",2,0,0,"0","" 76309,107,"",4,0,1,"0","STORE ALLOCATED CHAP NO" 76310,106,"772",3,0,0,"0","" 76311,104,"772",3,0,0,"0","" 76312,126,"766",2,0,0,"0",">FORM UP CHAP START" 76313,104,"774",3,0,0,"0","" 76314,103,"",0,0,1,"0","STORE ABS ADD" 76315,102,"773",2,0,0,"0","W/L" 76316,126,"773",2,1,3,"0","SET (MR3)=ABS ADD" 76317,124,"744",72,0,3,"0","" 76318,106,"",0,0,3,"0","" 76319,103,"",2,0,1,"0","" 76320,127,"763",33,0,2,"0",">YES" 76321,105,"",2,0,1,"0","FORM COMPLEMENT OF ACTION" 76322,105,"",2,0,1,"0","" 76323,118,"",3,0,3,"0","ALIGN INSTRUCTION" 76324,118,"",4124,0,1,"0","AT LEAST SIG END" 76325,101,"",64,1,2,"0","" 76326,127,"763",35,0,0,"0",">24/0/0" 76327,101,"",1,1,2,"0","" 76328,127,"763",35,0,0,"0",">24/0/1" 76329,101,"",2,1,2,"0","" 76330,127,"763",35,0,0,"0",">24/0/3" 76331,101,"",3,1,2,"0","" 76332,127,"763",35,0,0,"0",">24/1/2" 76333,106,"769",2,0,0,"0","25/1/0" 76334,124,"763",39,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000715.JPG",,,,"","ChuckK/Q1000715" 76335,101,"",4096,1,3,"0","" 76336,107,"",5,0,1,"0","STORE 24 ACTION IND" 76337,124,"744",72,0,3,"0","" 76338,106,"",1,0,3,"0","" 76339,102,"",3,0,1,"0","STORE 2ND INSTRUCTION" 76340,100,"771",4,0,2,"0","" 76341,124,"772",2,0,3,"0","" 76342,115,"",18,0,0,"0","COLLATE 13 BIT CHAP START" 76343,102,"772",2,0,0,"0","W/L" 76344,105,"772",2,0,0,"0","" 76345,105,"755",4,0,0,"0","NO OF PARAMS+1" 76346,104,"769",3,0,0,"0","26/0/0" 76347,124,"744",72,0,3,"0","" 76348,102,"",0,0,3,"0","INSERT IN PROG" 76349,125,"",18,0,1,"0","" 76350,124,"758",2,1,0,"0",">" 76351,124,"758",2,1,0,"0",">END OF 10 PM PTS" 76352,106,"774",3,0,0,"0","STORE REL ADDRESS" 76353,102,"",0,0,1,"0","" 76354,124,"763",49,1,0,"0",">" 76400,PROCR,"764",,,,"","1021 OPEN TRIAL DATA FILE" 76402,0,"775",6,1,0,"0","" 76403,124,"770",8,0,3,"0","" 76404,104,"",123,0,0,"0","" 76405,128,"774",2,1,1,"0",">UNPACK" 76406,0,"774",14,2,0,"0","MT SET NUMBER" 76407,70,"758",2,0,0,"0",">IGNORE SET" 76408,12,"",0,0,0,"9","" 76409,70,"764",19,0,0,"0",">ALWAYS ACCEPT" 76410,34,"772",4,0,0,"0","TRIAL DATA IND" 76411,10,"",0,0,0,"0","" 76412,36,"771",7,0,0,"0","Q1" 76413,2,"774",14,2,0,"0","" 76414,70,"764",19,0,0,"0",">ACCEPT" 76415,10,"",0,0,0,"0","" 76416,32,"",0,0,0,"1-","" 76417,75,"764",12,0,0,"0",">CONTINUE SEARCH" 76418,76,"758",2,0,0,"0",">IGNORE SET" 76419,106,"774",11,1,0,"0","PSEUDO RTE PARAMETER" 76420,126,"767",2,0,0,"0",">FORM UP=(64+R)" 76421,102,"772",3,0,0,"0","W/L" 76422,106,"774",5,1,0,"0","RTE PARAMETER" 76423,126,"767",2,0,0,"0",">FORM UP=(64+R)" 76424,101,"",64,1,1,"0","" 76425,5,"767",2,0,0,"0","WL" 76426,2,"767",2,0,0,"0","" 76427,30,"",0,0,0,"0","///// DUMMY ORDERS" 76428,30,"",0,0,0,"0","/////" 76429,102,"772",2,0,0,"0","W/L" 76430,124,"755",2,0,3,"0","STORE PROG RUN NO" 76431,106,"",40,0,0,"0","" 76432,102,"771",5,0,0,"0","" 76433,0,"774",8,2,0,"0","MT RUN NUMBER" 76434,30,"",0,0,0,"1","" 76435,1,"774",14,2,0,"0","SET NUMBER AS RERUN" 76436,124,"755",2,0,3,"0","" 76437,102,"",40,0,0,"0","" 76438,106,"774",3,1,0,"0","PROG ID" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000716.JPG",,,,"","DaveJ/Q1000716" 76439,118,"",4123,1,1,"0","" 76440,104,"774",6,1,0,"0","FILE ID" 76441,118,"",4123,1,1,"0","" 76442,101,"",18,1,1,"0","" 76443,126,"768",2,0,0,"0",">I/P-O/P FOR TRIAL DATA" 76444,106,"771",5,0,0,"0","RESTORE RUN NO" 76445,124,"755",2,0,3,"0","" 76446,102,"",40,0,0,"0","" 76500,PROCR,"765",,,,"","1022 WRITE TRIAL DATA" 76502,106,"774",13,1,0,"0","" 76503,118,"",5,0,0,"0","" 76504,102,"773",2,1,0,"0","" 76505,126,"773",2,1,3,"0","SET (MR3)=TRANSIT ARLENGTH" 76506,100,"771",3,0,2,"0","READ PROG TAPE" 76507,101,"",7,1,3,"0","" 76508,126,"749",2,0,0,"0","g" 76509,126,"770",12,1,2,"0","SET (MR2) AT 48/0" 76510,124,"770",8,0,3,"0",";TEST NEXT WORD" 76511,124,"",123,0,3,"0",";=FIEND" 76512,106,"",4,1,2,"0",";TEST NEXT WORD" 76513,105,"770",6,1,0,"0","" 76514,127,"765",43,0,0,"0",">YES" 76515,124,"770",8,0,3,"0","CONVERT WORD FROM" 76516,124,"",123,0,3,"0","DOUBLE ALPHA" 76517,106,"",5,1,2,"0","TO ALPHA" 76518,118,"",5,0,0,"0","" 76519,124,"770",8,0,3,"0","" 76520,124,"",123,0,3,"0","" 76521,104,"",7,1,2,"0","" 76522,124,"772",3,1,2,"0","STORE CONVERTED WORD" 76523,103,"",4,1,3,"0","" 76524,105,"770",14,1,0,"0",";TEST BLOCK END WORD" 76525,127,"765",31,0,0,"0",">YES" 76526,125,"",2,0,3,"0",";TEST END OF TRANSIT" 76527,124,"765",40,1,0,"0",">NO;AREA" 76528,106,"770",14,1,0,"0","B/E WORD" 76529,124,"772",3,1,2,"0","" 76530,102,"",4,1,3,"0","" 76531,101,"",64,1,2,"0","" 76532,105,"772",3,0,0,"0","" 76533,118,"",4118,1,0,"0","SET (B)=PSEUDO RTE" 76534,101,"",8,1,1,"0","" 76535,126,"768",2,0,0,"0",">I/P-O/P FOR TRIAL DATA" 76536,106,"774",13,1,0,"0","RESET (MR3) AT TRANSIT" 76537,118,"",5,0,0,"0","AREA LENGTH" 76538,102,"773",2,1,0,"0","" 76539,126,"773",2,1,3,"0","" 76540,125,"",4,0,2,"0",";TEST END OF INPUT" 76541,124,"765",10,1,0,"0",">NO;AREA" 76542,124,"765",6,1,0,"0",">YES" 76543,101,"",33,1,3,"0",";REWIND FILE" 76544,126,"768",2,0,0,"0",">I/P-O/P FOR TRIAL DATA" 76545,125,"",0,1,2,"0","" 76546,124,"772",2,0,3,"0","ROUTE" 76547,102,"",0,0,0,"0","-16" 76548,124,"758",2,1,0,"0",">" 76600,PROCR,"766",,,,"","1023 FORM UP CHAPTER START & END S/R" 76602,81,"766",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000717.JPG",,,,"","DaveJ/Q1000717" 76603,3,"767",2,0,0,"0","2X CHAP" 76604,1,"755",3,0,0,"0","SPECIAL CHAP START" 76605,5,"772",2,0,0,"0","" 76606,124,"770",8,0,3,"0","" 76607,106,"",43,0,0,"0","(3)" 76608,30,"",0,0,0,"4-","" 76609,2,"767",2,0,0,"0","" 76610,70,"766",13,0,0,"0",">THIS CHAP CONTAINS PTS" 76611,10,"",0,0,0,"0","" 76612,76,"766",15,0,0,"0","" 76613,101,"",1500,1,2,"0","(REDUCE CHAP END VALUE)" 76614,30,"",0,0,0,"5","" 76615,124,"772",2,0,3,"0","" 76616,104,"",18,1,0,"0","" 76617,82,"766",2,0,0,"0","" 76700,PROCR,"767",,,,"","1024 FORM UP -(64+R)FROM RTE PARAMETER" 76702,100,"",0,0,0,"0","" 76703,124,"755",3,0,3,"0","" 76704,104,"",20,0,0,"0","START OF 1ST CHAP (2XRTE PARAM IN A)" 76705,102,"772",2,0,0,"0","W/L" 76706,124,"772",2,0,3,"0","" 76707,105,"",0,0,0,"0","P" 76708,101,"",64,1,2,"0","" 76709,126,"767",2,0,1,"0",">" 76800,PROCR,"768",,,,"","1025 I/P O/P FOR TRIAL DATA S/R" 76802,100,"",0,0,0,"0","" 76803,118,"",5,0,0,"0","" 76804,104,"772",2,0,0,"0","" 76805,125,"",4096,1,1,"0","SET NON INT" 76806,124,"770",8,0,3,"0","" 76807,123,"",160,0,2,"0",">ENTER M/R" 76808,126,"768",2,0,1,"0","" 76900,PROCR,"769",,,,"","1026 INSTRUCTION CONSTANTS FOR PASS 1" 76902,125,"",0,1,0,"0","" 76903,126,"",0,0,0,"0","" 76904,114,"742",2,0,0,"0","" 76905,114,"743",2,0,0,"0","" 77000,CONST,"770",1,,,"","1027 CONSTANTS FOR PASS 1" 77002,,"(A)CHAPT;",,,,"","" 77004,,"(A)FILES;",,,,"","" 77006,,"(A)FIEND;",,,,"","" 77008,,"(D)0001000000;",,,,"","16:00" 77010,,"0001200000;",,,,"","18:00" 77012,,"0003000000;",,,,"","48:0" 77014,,"7.0000007.;",,,,"","B/E/WORD" 77016,,"000e400000;",,,,"","180:0" 77018,,"0000500000;",,,,"","MR CONST" 77100,CONST,"771",0,,,"","1028 CONSTANTS FOR PASS 1" 77102,,"(D)0007e-;",,,,"","-123(P.RTE FOR RTE 0)" 77103,,"0003e;",,,,"","59 PRTE FOR RTE 0" 77104,,"01ppp;",,,,"","BITS 1-13" 77105,,"00000;",,,,"","RUN NO" 77106,,"00001;",,,,"","" 77107,,"p;",,,,"","Q1" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000718.JPG",,,,"","DaveJ/Q1000718" 77200,CONST,"772",0,,,"","W/L'S FOR PASS 1 1029" 77202,,"(D)0;",,,,"","GENERAL W/L" 77203,,"0;",,,,"","GENERAL W/L" 77204,,";",,,,"","TRIALS IND" 77205,,"0;",,,,"","PM TYPE W/L" 77300,CONST,"773",1,,,"","1030 LONG W/L'S FOR PASS 1" 77302,,"(D)0;",,,,"","W/L" 77400,CONST,"774",1,,,"","1031 UNPACKED I/P FOR PASS 1" 77402,,"(D)0;",,,,"","" 77404,,"0;",,,,"","" 77406,,"0;",,,,"","" 77408,,"0;",,,,"","" 77410,,"0;",,,,"","" 77412,,"0;",,,,"","" 77414,,"0;",,,,"","" 77416,,"0;",,,,"","" 77418,,"0;",,,,"","" 77420,,"0;",,,,"","" 77422,,"0;",,,,"","" 77500,CONST,"775",1,,,"","1032 BULK CLEAR AND COPY CONSTS" 77502,,"(D)200e400000;",,,,"","BULK CLEAR 180" 77504,,"0002+00007;",,,,"","BULK CLEAR 44 FROM7" 77506,,"0000.00006;",,,,"","BULK CLEAR 14 FROM6" 77600,PROCR,"776",,,,"","START OF PASS 5" 77602,152,"152",4,0,0,"0","CALL REST OF PTS" 77603,C,"918",2,0,0,"0","" 77604,0,"27",13,0,0,"0","" 77605,71,"777",18,0,0,"0",">'TRAMDING'ONLY" 77606,76,"777",2,0,0,"0","" 77607,152,"152",4,0,0,"0","" 77608,C,"994",2,0,0,"0","" 77609,85,"511",2,0,0,"0","" 77610,C,"776",2,0,0,"0","" 77611,85,"514",2,0,0,"0","" 77612,C,"776",2,0,0,"0","" 77613,85,"153",2,0,0,"0","" 77614,C,"776",2,0,0,"0","" 77615,43,"A1",0,0,0,"0","SET UP SEC 5" 77616,C,"5",0,0,0,"0","" 77700,PROCR,"777",,,,"","PREPARE FOR 08005" 77702,80,"779",2,0,0,"0",">READ A6" 77703,,"9",4,1,0,"0","" 77704,2,"908",12,1,0,"0","INDEX'" 77705,71,"777",2,0,0,"0","" 77706,84,"352",2,0,0,"0","CLEAR SWITCH" 77707,90,"",0,0,1,"0","" 77708,C,"",0,0,0,"1010","" 77709,90,"",0,0,2,"0","" 77710,C,"",0,0,0,"48","" 77711,80,"779",2,0,0,"0",">READ A6" 77712,,"9",4,2,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000719.JPG",,,,"","DaveJ/Q1000719" 77713,5,"18",10-,0,1,"0","" 77714,94,"777",16,0,1,"1","" 77715,76,"777",18,0,0,"0",">END" 77716,94,"777",12,0,2,"2","" 77717,76,"777",9,0,0,"0","" 77718,54,"869",5,0,0,"3","CLEAR CTRS" 77719,,"27",3,0,0,"0","" 77720,70,"778",2,0,0,"0",">NO B/FWD TRIAL DATA" 77721,48,"A1",0,0,0,"1","" 77722,C,"",0,0,0,"1","" 77723,0,"27",11,0,0,"0","" 77724,71,"778",4,0,0,"0","PT=TRAMD" 77725,10,"",0,0,0,"5565540000","END '" 77726,5,"9",0,1,0,"0","NO PT TRAMD,SET END" 77727,76,"781",2,0,0,"0","" 77800,PROCR,"778",,,,"","ALIGN A1,CHECK FIRST P/T BLOCK" 77801,NOTES,"",RADIX,B,,"","" 77802,0,"27",11,0,0,"0","" 77803,70,"882",2,0,0,"0",">NO PT TRAMD OR MT TRIAL DATA" 77804,80,"811",2,0,0,"0",">READ P/T" 77805,0,"9",0,1,0,"0","" 77806,2,"870",2,1,0,"0","TRAMD'" 77807,71,"778",4,0,0,"0",">NOT YET" 77808,62,"",0,0,0,"0","" 77809,80,"892",2,0,0,"0",">3 BLANK LINES" 77810,80,"892",2,0,0,"0","" 77811,80,"892",2,0,0,"0","" 77812,76,"781",2,0,0,"0","" 77900,PROCR,"779",,,,"","READ A6->9" 77902,81,"779",2,0,0,"0","" 77903,42,"A6",0,0,0,"0","" 77904,C,"9",0,0,0,"0","" 77905,82,"779",2,0,0,"0","" 78000,PROCR,"780",,,,"","ADJUST INTERCODE ADDRESSES FOR DUMP POINTS" 78002,81,"780",2,0,0,"0","(A)=5-DIGIT SERIAL" 78003,3,"875",4,0,0,"0","WL" 78004,12,"",0,0,0,"10000","" 78005,73,"780",77,0,0,"0",">REPORT REF<100" 78006,12,"",0,0,0,"89899","" 78007,72,"780",77,0,0,"0",">REPORT REF>998" 78008,0,"27",13,0,0,"0","0" 78009,70,"780",12,0,0,"0",">NOT TRAMDING ONLY" 78010,0,"875",4,0,0,"0","" 78011,82,"780",2,0,0,"0","" 78012,0,"875",4,0,0,"0","" 78013,32,"",0,0,0,"2-","" 78014,5,"875",4,0,0,"0","REF" 78015,32,"",0,0,0,"2","" 78016,5,"875",5,0,0,"0","ITEM" 78017,,"875",4,0,0,"0","PROCR;REPLACE PROCR" 78018,80,"821",2,0,0,"0",">BIN" 78019,33,"",0,0,0,"1-","HALVE" 78020,5,"875",2,1,0,"0","" 78021,91,"875",2,0,3,"0","" 78022,74,"780",26,0,0,"0",">EVEN" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000720.JPG",,,,"","DaveJ/Q1000720" 78023,,"18",60-,0,3,"0","(STARTS 18/10-)" 78024,31,"",0,0,0,"10-","" 78025,76,"780",28,0,0,"0","" 78026,34,"868",6,0,0,"0","BITS 1-10" 78027,36,"18",60-,0,3,"0","" 78028,80,"822",2,0,0,"0",">DEC" 78029,60,"",0,0,0,"0","" 78030,70,"780",66,0,0,"0",">TRY UNIQUE REFS" 78031,5,"875",4,0,0,"0","NEW PROCR;ADJUST RESULT" 78032,5,"875",2,0,0,"0","CLEAR WL" 78033,90,"",0,0,3,"0","" 78034,C,"",0,0,0,"460","" 78035,,"18",440,0,3,"0","" 78036,32,"",0,0,0,"2-","PROCR" 78037,70,"780",48,0,0,"0",">END" 78038,2,"875",4,0,0,"0","NEW PROCR;" 78039,73,"780",47,0,0,"0",">SEARCH" 78040,71,"780",48,0,0,"0",">END(GREATER)" 78041,32,"",0,0,0,"2","ITEM IN PROCR" 78042,2,"875",5,0,0,"0","OLD ITEM" 78043,70,"780",45,0,0,"0","" 78044,72,"780",59,0,0,"0",">NEXT ADJUST POINT IS LATER" 78045,,"18",441,0,3,"0","" 78046,4,"875",2,0,0,"0","AUG TOTAL ADJUSTMENT" 78047,94,"780",35,0,3,"2","" 78048,,"875",2,0,0,"0","TOTAL ADJUSTMENT" 78049,1,"875",5,0,0,"0","OLD ITEM" 78050,3,"875",5,0,0,"0","" 78051,12,"",0,0,0,"100","" 78052,72,"780",64,0,0,"0",">ITEM TOO LARGE" 78053,62,"",0,0,0,"0","" 78054,,"875",4,0,0,"0","NEW REF" 78055,30,"",0,0,0,"2","" 78056,1,"875",5,0,0,"0","NEW ITEM" 78057,82,"780",2,0,0,"0","" 78058,76,"780",81,0,0,"0",">EXIT" 78059,1,"18",441,0,3,"0","" 78060,70,"780",62,0,0,"0",">ADDRESS DELETED" 78061,72,"780",48,0,0,"0",">NEXT IS DELETION" 78062,10,"",0,0,0,"5:5:5:5:7p","????DELTA'" 78063,76,"805",3,0,0,"0","" 78064,10,"",0,0,0,"5:5:5:5:59","????I'" 78065,76,"805",3,0,0,"0","" 78066,,"875",4,0,0,"0","REF;UNIQUE REFS" 78067,30,"",0,0,0,"2","" 78068,1,"875",5,0,0,"0","ITEM " 78069,5,"875",2,0,0,"0","" 78070,90,"",0,0,3,"0","" 78071,C,"",0,0,0,"100","" 78072,,"18",900,0,3,"0","" 78073,70,"780",77,0,0,"0",">END,REPORT" 78074,2,"875",2,0,0,"0","" 78075,70,"780",80,0,0,"0",">MATCH" 78076,94,"780",72,0,3,"2","" 78077,10,"",0,0,0,"5:5:5:5:69","????R'" 78078,62,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000721.JPG",,,,"","ChuckK/Q1000721" 78079,76,"805",3,0,0,"0","" 78080,,"18",901,0,3,"0","" 78081,62,"",0,0,0,"0","" 78082,82,"780",2,0,0,"0","" 78100,PROCR,"781",,,,"","STORE TRANSLATOR'S INFORMATION" 78101,NOTES,"",RADIX,B,,"","COPY TAPE TO TRIALS INFORMATION" 78102,0,"92",29,0,0,"0","INITIAL CHAPS" 78103,5,"869",3,0,0,"0","" 78104,52,"5",2,0,0,"0","EDIT PRINTER HEADING" 78105,C,"875",2,0,0,"0","" 78106,00,"872",6,1,0,"0","" 78107,80,"817",2,0,0,"0","PRINT" 78108,83,"826",4,0,0,"1","" 78109,83,"129",2,0,0,"2","" 78110,00,"27",3,0,0,"0","" 78111,71,"781",15,0,0,"0",">NO" 78112,00,"870",8,1,0,"0","PUT PREND IN ANNEXE" 78113,05,"7",4,1,0,"0","" 78114,76,"782",2,0,0,"0","" 78115,80,"810",2,0,0,"0",">READ A1" 78116,00,"7",4,1,0,"0","" 78117,02,"870",6,1,0,"0","" 78118,70,"783",2,0,0,"0",">YES" 78119,80,"841",2,0,0,"0",">PRINT DUMPS HEADING" 78120,76,"789",2,0,0,"0","" 78200,PROCR,"782",,,,"","INITIAL SUBMISSION OF DUMPS POINTS" 78201,NOTES,"",RADIX,B,,"","AND TRIAL DATA" 78202,80,"811",2,0,0,"0",">READ B1" 78203,00,"9",0,1,0,"0","" 78204,02,"870",12,1,0,"0","" 78205,70,"783",11,0,0,"0",">YES" 78206,01,"870",12,1,0,"0","" 78207,02,"870",10,1,0,"0","" 78208,70,"782",15,0,0,"0","" 78209,01,"870",10,1,0,"0","" 78210,30,"",0,0,0,"4-","" 78211,12,"",0,0,0,"556554","" 78212,70,"804",3,0,0,"0",">YES" 78213,80,"820",2,0,0,"0",">PRINT ERROR LINE" 78214,76,"782",2,0,0,"0",">" 78215,80,"814",2,0,0,"0",">UNPACK'FILES'" 78216,80,"849",2,0,0,"0","" 78217,80,"848",2,0,0,"0",">PROCESS/PRINT HEADING" 78218,80,"838",2,0,0,"0",">SET PRINT MR+CTRS" 78219,10,"",0,0,0,"1-","" 78220,5,"833",12,0,0,"0","SET IND" 78221,80,"784",2,0,0,"0",">APPLY PT" 78222,71,"782",18,0,0,"0",">NOT NEW DATA TYPE" 78223,76,"803",37,0,0,"0",">TEST" 78300,PROCR,"783",,,,"","PROCESS P.M. POINTS" 78301,NOTES,"",RADIX,B,,"","" 78302,0,"27",11,0,0,"0","" 78303,71,"783",7,0,0,"0",">PT=TRAMD" 78304,10,"",0,0,0,"5565540000","SET PT='END '" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000722.JPG",,,,"","ChuckK/Q1000722" 78305,5,"9",0,1,0,"0","" 78306,76,"803",37,0,0,"0",">DEAL WITH MT TRIAL DATA" 78307,80,"811",2,0,0,"0","" 78308,0,"9",0,1,0,"0",";TEST DUMPS BLOC" 78309,2,"870",12,1,0,"0",";OF P/T" 78310,71,"803",37,0,0,"0",">NO" 78311,80,"841",2,0,0,"0",">PREPARE FOR DUMPS POINTS S/R" 78312,80,"813",2,0,0,"0","UNPACK P/T" 78313,80,"842",2,0,0,"0","PROCESS DUMPS POINT" 78314,80,"811",2,0,0,"0",">READ P/T" 78315,80,"826",2,0,0,"0",">TEST P/T S/R" 78316,76,"783",12,0,0,"0",">" 78400,PROCR,"784",,,,"","SR TO OUTPUT CURRENT BLOCK OF PT" 78401,NOTES,"",RADIX,B,,"","" 78402,81,"784",2,0,0,"0","" 78403,80,"811",2,0,0,"0","READ P/T" 78404,80,"791",2,0,0,"0",">TEST END OF DATA TYPE" 78405,71,"823",2,0,0,"0",">UNPACK PT" 78406,,"833",12,0,0,"0","" 78407,70,"787",19,0,0,"0",">YES(EXIT WITH A ZERO)" 78408,86,"786",2,0,0,"0","BEW FOUND?" 78409,12,"",0,0,0,"2","" 78410,71,"787",17,0,0,"0",">YES;EXIT WITH ZERO" 78411,83,"352",2,0,0,"1","SET NO" 78412,,"872",4,1,0,"0","" 78413,76,"786",17,0,0,"0","O/P IT" 78414,85,"785",2,0,0,"0",";TEST BLOCK AND" 78415,C,"785",2,0,0,"0",">NO;ITEM LENBTHS TO" 78416,C,"784",17,0,0,"0",">YES;BE CHECKED" 78417,85,"781",2,0,0,"0",";TEST BEGINNING" 78418,C,"785",2,0,0,"0",">NO;OF TD BLOCK" 78419,C,"784",20,0,0,"0",">YES" 78420,10,"",0,0,0,"6","SET ITEM LGTH POSN" 78421,3,"32",165,0,0,"0","AT 6" 78422,1,"32",96,2,0,"0","" 78423,80,"822",2,0,0,"0",">CONVERT TO DEC" 78424,5,"32",166,0,0,"0","" 78500,PROCR,"785",,,,"","DEAL WITH BLANK LINES" 78501,NOTES,"",RADIX,B,,"","" 78502,35,"",0,0,0,"11","" 78503,10,"",0,0,0,"0","CLEAR A" 78504,36,"32",92,2,0,"0","Q1&2 OF PT LINE SERIAL" 78505,5,"32",92,2,0,"0","" 78506,,"32",139,0,0,"0","LINE CTR" 78507,2,"32",92,2,0,"0","PT LINE SERIAL" 78508,72,"786",2,0,0,"0",">NO" 78509,80,"839",2,0,0,"0",">STEP WORD NOS BY 14 S/R" 78510,90,"",0,0,12,"0","SET 7 ZERO WORDS" 78511,C,"",0,0,0,"7","" 78512,80,"851",2,0,0,"0",">STEP(MR1)S/R" 78513,94,"785",12,0,12,"1","" 78514,10,"",0,0,0,"1","STEP LINE SERIAL CTR" 78515,60,"",0,0,0,"0","BY 1" 78516,4,"32",139,0,0,"0","" 78517,62,"",0,0,0,"0","" 78518,76,"785",6,0,0,"0",">GENERATE MORE BLANK LINES" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000723.JPG",,,,"","ChuckK/Q1000723" 78600,PROCR,"786",,,,"","PROCESS NEGATIVE WORDS" 78601,NOTES,"",RADIX,B,,"","" 78602,60,"",0,0,0,"0","" 78603,00,"32",92,2,0,"0","SET LINE CTR=LINE" 78604,11,"",0,0,0,"1","SERIAL+1" 78605,05,"32",139,0,0,"0","" 78606,62,"",0,0,0,"0","" 78607,0,"32",94,1,5,"0","NEXT PT WORD" 78608,72,"786",17,0,0,"0",">NO" 78609,00,"32",94,2,5,"0","" 78610,80,"822",2,0,0,"0",">CONVERT TO DEC" 78611,05,"32",22,2,2,"0","" 78612,10,"",0,0,0,"5300000000","SET C SP SP SP SP " 78613,35,"",0,0,0,"1100000000","IN*WORD" 78614,37,"32",22,1,2,"0","" 78615,83,"787",4,0,0,"2","" 78616,02,"32",94,1,5,"0","" 78617,03,"32",36,1,1,"0","STORE FOR M/T" 78618,3,"32",0,1,2,"0","" 78619,,"833",12,0,0,"0","" 78620,71,"786",34,0,0,"0",">BLOCK AMENDMENT" 78621,,"32",0,1,2,"0","" 78622,85,"781",2,0,0,"0","FIRST WORD SWITCH" 78623,C,"786",42,0,0,"0",">NO" 78624,C,"786",25,0,0,"0",">YES" 78625,5,"32",2,1,2,"0","PUT 1ST WORD IN WORD 4 POSITION" 78626,5,"32",0,1,2,"0","" 78627,10,"",0,0,0,"6","" 78628,3,"32",165,0,0,"0","SET" 78629,1,"32",2,2,2,"0","ADD BLOCK LENGTH" 78630,80,"822",2,0,0,"0",">DEC" 78631,5,"32",166,0,0,"0","SET AS NEW BLOCK LENGTH" 78632,83,"781",2,0,0,"1","RESET SWITCH" 78633,94,"786",42,0,2,"2",">(UNCONDITIONAL)" 78634,86,"849",2,0,0,"0",";BLOCK AMEND" 78635,12,"",0,0,0,"2","" 78636,71,"786",40,0,0,"0",">NOT FIRST PRINTED LINE OF BLOCK" 78637,10,"",0,0,0,"10000","" 78638,35,"",0,0,0,"10000","" 78639,37,"32",14,0,0,"0","SET'>>'IND" 78640,80,"858",2,0,0,"0",">PROCESS WORD" 78641,76,"786",57,0,0,"0","" 78642,80,"788",2,0,0,"0",">SET'AMEND'IND,PROCESS WORD" 78643,86,"830",2,0,0,"0","" 78644,12,"",0,0,0,"2","" 78645,71,"786",53,0,0,"0",">INSERTING,NOT REPLACING WORDS" 78646,,"32",140,1,8,"0","WORD BEING REPLACED" 78647,5,"875",4,1,0,"0","WL" 78648,80,"861",2,0,0,"0","STEP (MR8) S/R" 78649,80,"840",2,0,0,"0","STEP WORD CTR S/R" 78650,,"875",4,1,0,"0","WORD JUST REPLACED" 78651,2,"872",4,1,0,"0","BEW" 78652,70,"786",57,0,0,"0",">OK,BEW REPLACED BEW" 78653,86,"786",2,0,0,"0","BEW FOUND'SWITCH" 78654,12,"",0,0,0,"1","" 78655,70,"787",2,0,0,"0",">BEW NOT OUTPUT" 78656,80,"862",2,0,0,"0",">DRAIN REST OF M/T BLOCK BEING AMENDED" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000724.JPG",,,,"","ChuckK/Q1000724" 78657,85,"786",4,0,0,"0",";TEST B/E FOUND" 78658,C,"787",2,0,0,"0",">NO" 78659,C,"787",14,0,0,"0",">YES" 78660,C,"787",15,0,0,"0",">YES AT END OF LINE" 78700,PROCR,"787",,,,"","PREPARE FOR NEXT BLOCK" 78701,NOTES,"",RADIX,B,,"","" 78702,94,"787",4,0,5,"2",">NOT END OF THIS PT BLOCK" 78703,76,"784",3,0,0,"0",">READ MORE PT" 78704,00,"32",94,1,5,"0","NEXT PT WORD" 78705,02,"872",8,1,0,"0"," 'SXBE'=END SIGN" 78706,71,"786",7,0,0,"0",">NO" 78707,,"833",12,0,0,"0","" 78708,73,"787",11,0,0,"0",">INSERTING ENTIRE TD SET" 78709,10,"",0,0,0,"1-","" 78710,82,"784",2,0,0,"0","(A)<0" 78711,10,"",0,0,0,"0","DELETE END SIGN" 78712,5,"32",94,1,5,"0","" 78713,76,"786",7,0,0,"0","" 78714,80,"853",2,0,0,"0",">END OF TRIAL DATA BLOCK S/R" 78715,86,"352",2,0,0,"0","" 78716,70,"787",20,0,0,"0",">EXIT WITH 1" 78717,10,"",0,0,0,"0","" 78718,84,"352",2,0,0,"0","CLEAR SWITCH(EXIT WITH 0)" 78719,82,"784",2,0,0,"0","" 78720,10,"",0,0,0,"1","EXIT WITH 1" 78721,82,"784",2,0,0,"0","" 78800,PROCR,"788",,,,"","PROCESS WORD EXPT AND SET'->'IND" 78802,81,"788",2,0,0,"0","" 78803,96,"",0,0,2,"0","" 78804,31,"",0,0,0,"1-","" 78805,5,"858",2,0,0,"0","WL" 78806,124,"858",2,0,1,"0","" 78807,2,"32",15,0,0,"0","" 78808,124,"858",2,0,1,"0","" 78809,5,"32",15,0,0,"0","SET NEGATIVE" 78810,80,"858",2,0,0,"0",">PROCESS WORD" 78811,82,"788",2,0,0,"0","" 78900,PROCR,"789",,,,"","PRINT DUMP POINT IF NOT TO BE AMENDED" 78901,NOTES,"",RADIX,B,,"","" 78902,80,"791",2,0,0,"0",">TEST PT=END" 78903,70,"789",21,0,0,"0",">YES,REST OF MT DUMPS" 78904,0,"9",0,1,0,"0","" 78905,32,"",0,0,0,"2-","" 78906,12,"",0,0,0,"54746467"," 'DUMP'" 78907,70,"789",11,0,0,"0",">YES" 78908,80,"820",2,0,0,"0",">PRINT PT" 78909,80,"811",2,0,0,"0",">READ PT" 78910,76,"789",2,0,0,"0","" 78911,32,"",0,0,0,"2","" 78912,12,"",0,0,0,"59"," 'I'" 78913,71,"789",17,0,0,"0",">NO" 78914,10,"",0,0,0,"41","REPLACE 'DUMPI' BY 'DUMP1'" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000727.JPG",,,,"","ChuckK/Q1000727" 78915,35,"",0,0,0,"11","" 78916,37,"9",0,1,0,"0","" 78917,0,"9",0,1,0,"0",";TEST AMENDMENT TO TH" 78918,02,"7",50,1,0,"0",";DUMPS POINT" 78919,70,"790",2,0,0,"0",">YES" 78920,73,"789",8,0,0,"0",">REPORT PT" 78921,76,"854",2,0,0,"0",">OUTPUT DUMPS POINT EX MT" 78922,80,"857",2,0,0,"0",">READ A1,TEST'CHART/PREND/E'" 78923,71,"789",2,0,0,"0",">NO,TEST PT" 78924,80,"791",2,0,0,"0",">TEST PT=END" 78925,70,"803",37,0,0,"0",">YES" 78926,80,"820",2,0,0,"0",">PRINT PT" 78927,80,"811",2,0,0,"0",">READ PT" 78928,76,"789",24,0,0,"0",">LOOP TO PT END" 79000,PROCR,"790",,,,"","IMPLEMENT DUMPS POINT AMDTS" 79001,NOTES,"",RADIX,B,,"","" 79002,00,"9",2,1,0,"0",";TEST DIRECTIVE" 79003,30,"",0,0,0,"8-","" 79004,12,"",0,0,0,"54","" 79005,70,"790",32,0,0,"0",">DELETE" 79006,12,"",0,0,0,"15","" 79007,70,"790",20,0,0,"0",">REPLACE" 79008,12,"",0,0,0,"t","" 79009,71,"789",8,0,0,"0",">NOT INSERT,REPORT" 79010,80,"811",2,0,0,"0",">READ PT;INSERTION" 79011,80,"791",2,0,0,"0",">TEST END" 79012,70,"789",21,0,0,"0",">YES,FINISH MT" 79013,0,"9",0,1,0,"0","" 79014,30,"",0,0,0,"2-","" 79015,12,"",0,0,0,"54746467"," 'DUMP'" 79016,70,"789",17,0,0,"0",">END OF INSERTION" 79017,80,"813",2,0,0,"0",">UNPACK PT" 79018,80,"842",2,0,0,"0",">PROCESS PT" 79019,76,"790",10,0,0,"0","" 79020,80,"813",2,0,0,"0",">UNPACK PT;REPLACEMENT" 79021,80,"842",2,0,0,"0",">PROCESS PT" 79022,80,"811",2,0,0,"0",">READ PT" 79023,80,"857",2,0,0,"0",">READ MT,TEST END" 79024,70,"789",24,0,0,"0",">YES" 79025,80,"791",2,0,0,"0",">TEST PT=END" 79026,70,"789",21,0,0,"0",">YES,FINISH MT" 79027,0,"9",0,1,0,"0","" 79028,30,"",0,0,0,"2-","" 79029,12,"",0,0,0,"54746467"," 'DUMP'" 79030,70,"789",17,0,0,"0",">NEW DIRECTIVE" 79031,76,"790",20,0,0,"0",">ASSUME REPLACES NEXT LINE" 79032,80,"811",2,0,0,"0",">READ PT;DELETIONS" 79033,80,"791",2,0,0,"0",">TEST END" 79034,70,"789",22,0,0,"0",">YES DELETION ENDED" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000728.JPG",,,,"","ChuckK/Q1000728" 79035,0,"9",0,1,0,"0","" 79036,30,"",0,0,0,"2-","" 79037,12,"",0,0,0,"54746467"," 'DUMP'" 79038,71,"789",22,0,0,"0",">NO,READ MT,PREPARE TO REPORT PT" 79039,0,"9",3,0,0,"0","" 79040,70,"790",43,0,0,"0",">OK MULTIPLE DELETION" 79041,2,"872",5,0,0,"0","" 79042,71,"789",22,0,0,"0",">NOT MULTIPLE DELETION" 79043,80,"857",2,0,0,"0",">READ MT,TEST END" 79044,70,"789",26,0,0,"0",">YES,PRINT REPORT" 79045,0,"7",50,1,0,"0","" 79046,2,"9",0,1,0,"0","" 79047,71,"790",43,0,0,"0",">DELETION NOT FINISHED" 79048,80,"811",2,0,0,"0",">READ PT" 79049,76,"789",22,0,0,"0","" 79100,PROCR,"791",,,,"","TEST PT=END OF DUMPS DATA" 79102,81,"791",2,0,0,"0","" 79103,0,"9",0,1,0,"0","" 79104,30,"",0,0,0,"2-","" 79105,12,"",0,0,0,"56596355"," 'FILE'" 79106,70,"791",10,0,0,"0",">YES" 79107,0,"9",0,1,0,"0","" 79108,30,"",0,0,0,"4-","" 79109,12,"",0,0,0,"556554"," 'END'" 79110,82,"791",2,0,0,"0","" 79200,PROCR,"792",,,,""," 'FILER'AND'FILED'DATA TYPES=REPLACEMENT/DELETION OF WHOLESET" 79201,NOTES,"",RADIX,B,,"","WHOLE TD SET" 79202,00,"7",4,1,0,"0",";TEST CHAPT BLOCK" 79203,02,"870",6,1,0,"0","" 79204,71,"804",2,0,0,"0",">NO,ERROR" 79205,80,"814",2,0,0,"0","UNPACK" 79206,0,"30",2,1,0,"0","ROUTE IDENTIFIER" 79207,80,"812",2,0,0,"0",">R-ALIGN" 79208,02,"7",26,1,0,"0",";TEST RIGHT FILE" 79209,70,"792",15,0,0,"0",">YES" 79210,,"7",26,1,0,"0","" 79211,30,"",0,0,0,"6","" 79212,5,"30",2,1,0,"0","" 79213,80,"856",2,0,0,"0",">PRINT'FILE UNALTERED'" 79214,76,"792",2,0,0,"0",">" 79215,0,"7",18,2,0,"0","" 79216,30,"",0,0,0,"7","LOSE POSSIBLE pp IN Q4 AND Q5" 79217,30,"",0,0,0,"7-","" 79218,5,"869",8,0,0,"0","" 79219,0,"30",10,2,0,"0","SET EX PT" 79220,80,"812",2,0,0,"0",">R-ALIGN" 79221,2,"869",8,0,0,"0",";TEST RIGHT SET" 79222,71,"792",10,0,0,"0",">NO" 79223,80,"857",2,0,0,"0",">READ,TEST PREND,CHAPT OR E" 79224,71,"792",23,0,0,"0",">NO" 79225,76,"797",17,0,0,"0",">" 79300,PROCR,"793",,,,""," 'FILEA'DATA TYPE=FIND FILE BEING AMENDED" 79301,NOTES,"",RADIX,B,,"","" 79302,80,"829",2,0,0,"0",">UNPACK PT" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000729.JPG",,,,"","ChuckK/Q1000729" 79303,0,"833",2,1,0,"0","PT FILE" 79304,2,"32",126,1,0,"0","MT FILE" 79305,71,"793",16,0,0,"0",">NOT THIS" 79306,0,"833",4,0,0,"0","PT SET" 79307,2,"32",125,0,0,"0","MT SET" 79308,71,"793",16,0,0,"0",">NO" 79309,80,"799",2,0,0,"0",">TEST'FIEND';REPORT IF SO" 79310,0,"833",12,0,0,"0","NEXT IS BLOCK AMEND?" 79311,71,"796",3,0,0,"0",">YES,FINISH THIS BLOCK" 79312,0,"833",6,0,0,"0","PT BLOCK;(WORD AMEND)" 79313,2,"32",138,0,0,"0","PT BLOCK" 79314,71,"796",3,0,0,"0",">DIFFERENT BLOCK,FINISH THIS ONE" 79315,76,"798",2,0,0,"0",">APPLY" 79316,80,"864",2,0,0,"0",">WRITE AND PRINT TO FIEND" 79317,00,"7",4,1,0,"0",";TEST CHAPT BLOCK" 79318,02,"870",6,1,0,"0","" 79319,71,"804",2,0,0,"0",">NO ERROR" 79320,0,"833",2,1,0,"0","PT FILE" 79321,2,"7",26,1,0,"0","MT FILE" 79322,71,"793",27,0,0,"0",">NO" 79323,35,"",0,0,0,"1","" 79324,36,"7",18,2,0,"0","MT SET" 79325,2,"833",4,0,0,"0","PT SET" 79326,70,"795",2,0,0,"0",">YES" 79327,0,"7",26,1,0,"0","ROUTE IDENTIFIER" 79328,30,"",0,0,0,"6","" 79329,5,"30",2,1,0,"0","" 79330,80,"856",2,0,0,"0",">PRINT'FILE UNALTERED'" 79331,76,"793",17,0,0,"0",">" 79400,PROCR,"794",,,,"","PREPARE TO APPLY AMENDMENTS" 79401,NOTES,"",RADIX,B,,"","" 79402,81,"794",2,0,0,"0","" 79403,00,"7",12,2,0,"0","RUN NO" 79404,05,"30",4,0,0,"0","" 79405,00,"7",22,2,0,"0","BLOCK SIZE" 79406,05,"30",5,0,0,"0","" 79407,00,"7",20,2,0,"0","SECN NO" 79408,05,"30",6,0,0,"0","" 79409,35,"",0,0,0,"1","" 79410,36,"7",18,2,0,"0"," 'CLEAN'SET NO" 79411,05,"30",7,0,0,"0","" 79412,00,"7",24,2,0,"0","IND" 79413,05,"30",8,0,0,"0","" 79414,00,"7",10,1,0,"0","FILE ID" 79415,30,"",0,0,0,"6","" 79416,05,"30",10,1,0,"0","" 79417,80,"849",2,0,0,"0",">PROCESS TD HEADING" 79418,82,"794",2,0,0,"0","" 79500,PROCR,"795",,,,"","ALIGN ON FIRST BLOCK TO BE AMENDED" 79501,NOTES,"",RADIX,B,,"","" 79502,00,"7",26,1,0,"0","" 79503,03,"32",126,1,0,"0","STORE FILE ID" 79504,30,"",0,0,0,"6","" 79505,05,"30",2,1,0,"0","" 79506,35,"",0,0,0,"1","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000730.JPG",,,,"","ChuckK/Q1000730" 79507,36,"7",18,2,0,"0","CLEAN SET NO" 79508,05,"32",125,0,0,"0","" 79509,,"833",12,0,0,"0","" 79510,70,"795",14,0,0,"0",">WORD AMEND OF THIS BLOCK" 79511,0,"833",6,0,0,"0","BLOCK NUMBER" 79512,12,"",0,0,0,"7","" 79513,70,"797",2,0,0,"0",">REPLACING FILE HEADING" 79514,80,"794",2,0,0,"0","" 79515,80,"848",2,0,0,"0",">PROCESS AND PRINT HEADING" 79516,10,"",0,0,0,"8","SET BLOCK CTRS AT 8" 79517,05,"32",138,0,0,"0","" 79518,90,"",0,0,8,"22","SET(MR8)=24:22" 79519,C,"",0,0,0,"24","" 79520,80,"861",2,0,0,"0",">READ AND STORE BLOCK" 79521,80,"838",2,0,0,"0",">SET SWITCHES AND WORD NOS" 79522,0,"833",6,0,0,"0","PT BLOCK NO" 79523,2,"32",138,0,0,"0","MT BLOCK NO" 79524,73,"796",24,0,0,"0",">MISALIGNED" 79525,70,"798",2,0,0,"0",">OPERATE ON THIS BLOCK" 79526,85,"785",2,0,0,"0",";TEST BLOCK AND" 79527,C,"796",2,0,0,"0",">NO;ITEM LENGTHS TO BE" 79528,C,"795",29,0,0,"0",">YES;CHECKED" 79529,00,"32",140,2,0,"0","STORE POSN OF B/E WORD" 79530,11,"",0,0,0,"6","" 79531,80,"822",2,0,0,"0",">CONVERT TO DEC" 79532,05,"32",166,0,0,"0","" 79533,10,"",0,0,0,"6","SET ITEM LENGTH POSN" 79534,05,"32",165,0,0,"0","=WORD 6" 79600,PROCR,"796",,,,"","ALIGN ON REQD BLOCK(2)" 79601,NOTES,"",RADIX,B,,"","" 79602,80,"860",2,0,0,"0",">PROCESS WORD" 79603,85,"786",4,0,0,"0",";TEST B/E FOUND" 79604,C,"796",2,0,0,"0",">NO" 79605,C,"796",7,0,0,"0",">YES" 79606,C,"796",8,0,0,"0",">YES,AT END OF LINE" 79607,80,"853",2,0,0,"0",">PRINT REST OF LINE" 79608,96,"",0,0,8,"0",";TEST FIEND" 79609,98,"",0,0,8,"0","" 79610,92,"",0,0,3,"0","" 79611,00,"7",4,1,3,"0","" 79612,02,"870",4,1,0,"0","" 79613,71,"795",21,0,0,"0",">NO" 79614,0,"833",6,0,0,"0","PT BLOCK" 79615,2,"32",138,0,0,"0","PRESENT MT BLOCK" 79616,71,"796",24,0,0,"0",">ERROR" 79617,0,"833",12,0,0,"0","" 79618,70,"796",24,0,0,"0",">ERROR,WORD AMEND" 79619,86,"830",2,0,0,"0","" 79620,12,"",0,0,0,"3","" 79621,71,"796",24,0,0,"0",">ERROR,NOT INSERTING BLOCK" 79622,83,"129",2,0,0,"1","SET INSERTING BEFORE FIEND SWITCH" 79623,76,"798",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000731.JPG",,,,"","ChuckK/Q1000731" 79624,80,"820",2,0,0,"0",">REPORT PT" 79625,76,"803",39,0,0,"0",">" 79700,PROCR,"797",,,,""," 'FILEA' FOR BLOCK 7-PROCESS FOLLOWING'FILES'BLOCK" 79701,NOTES,"",RADIX,B,,"","" 79702,80,"811",2,0,0,"0",">READ B1" 79703,80,"814",2,0,0,"0","UNPACK P/T" 79704,80,"849",2,0,0,"0","" 79705,80,"848",2,0,0,"0",">PROCESS AND PRINT HEADING" 79706,0,"7",26,1,0,"0","STORE FILE ID" 79707,5,"32",126,1,0,"0","" 79708,35,"",0,0,0,"1","" 79709,36,"7",18,2,0,"0","" 79710,5,"32",125,0,0,"0","" 79711,10,"",0,0,0,"8","SET BLOCK CTRS AT 8" 79712,5,"32",138,0,0,"0","" 79713,80,"838",2,0,0,"0",">SET UP WORD NOS" 79714,90,"",0,0,8,"22","SET (MR8) AT 22:24" 79715,C,"",0,0,0,"24","" 79716,80,"861",2,0,0,"0",">READ AND STORE BLOCK" 79717,80,"811",2,0,0,"0",">READ B1" 79718,,"9",0,1,0,"0","" 79719,12,"",0,0,0,"5659635551"," 'FILEA'" 79720,71,"803",37,0,0,"0",">NO" 79721,80,"829",2,0,0,"0","UNPACK" 79722,,"833",6,0,0,"0","BLOCK NO" 79723,2,"32",138,0,0,"0","" 79724,71,"793",2,0,0,"0",">NOT THIS" 79725,,"833",2,1,0,"0","FILE ID" 79726,2,"32",126,1,0,"0","" 79727,71,"793",16,0,0,"0",">NO" 79728,,"833",4,1,0,"0","SET NO" 79729,2,"32",125,0,0,"0","" 79730,71,"793",16,0,0,"0",">NO" 79731,85,"129",2,0,0,"0","HAVE WE INSERTED BEFORE FIEND?" 79732,C,"797",34,0,0,"0","YES" 79733,C,"797",36,0,0,"0","NO" 79734,83,"129",2,0,0,"2","RESET SWITCH" 79735,76,"797",37,0,0,"0","" 79736,80,"799",2,0,0,"0","TEST FIEND" 79737,,"833",12,0,0,"0","" 79738,70,"793",12,0,0,"0",">WORD AMDT" 79739,76,"795",22,0,0,"0",">" 79800,PROCR,"798",,,,""," 'FILEA'FOR DELETION/REPLACEMENT/INSERTION OF WHOLE BLOCKS" 79801,NOTES,"",RADIX,B,,"","" 79802,0,"833",12,0,0,"0","IND" 79803,70,"800",2,0,0,"0",">WORD AMDT" 79804,85,"830",4,0,0,"0","AMDT TYPE SWITCH" 79805,C,"798",8,0,0,"0",">D" 79806,C,"798",22,0,0,"0",">R" 79807,C,"798",24,0,0,"0",">T" 79808,0,"833",8,0,0,"0","LAST BLOCK NO;DELETE BLOCK(S)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000732.JPG",,,,"","ChuckK/Q1000732" 79809,71,"798",12,0,0,"0",">DELETING SEVERAL" 79810,0,"833",6,0,0,"0","FIRST" 79811,5,"833",8,0,0,"0","SET AS LAST" 79812,80,"799",2,0,0,"0",">TEST'FIEND'" 79813,80,"862",2,0,0,"0",">READ TO END OF BLOCK" 79814,0,"833",6,0,0,"0","FIRST" 79815,2,"833",8,0,0,"0","=LAST?" 79816,70,"797",17,0,0,"0",">YES" 79817,60,"",0,0,0,"0","" 79818,10,"",0,0,0,"1-","STEP BLOCK W/L 2" 79819,4,"833",8,0,0,"0","REDUCE LAST" 79820,62,"",0,0,0,"0","" 79821,76,"798",12,0,0,"0",">" 79822,80,"799",2,0,0,"0",">TEST'FIEND'" 79823,80,"862",2,0,0,"0",">READ TO END OF BLOCK" 79824,80,"838",2,0,0,"0",">NEW O/P BLOCK PRELIMS" 79825,80,"784",2,0,0,"0",">READ/APPLY PT" 79826,73,"798",25,0,0,"0",">NOT END OF MT BLOCK" 79827,70,"798",38,0,0,"0",">NEW DT" 79828,80,"811",2,0,0,"0",">READ PT" 79829,80,"791",2,0,0,"0",">TEST NEW DT?" 79830,70,"798",38,0,0,"0",">YES" 79831,86,"830",2,0,0,"0","AMDT TYPE SWITCH" 79832,12,"",0,0,0,"3","" 79833,70,"798",36,0,0,"0",">INSERTION" 79834,80,"799",2,0,0,"0",">TEST'FIEND';REPLACEMENT" 79835,80,"862",2,0,0,"0",">READ TO END OF BLOCK BEING REPLACED" 79836,80,"838",2,0,0,"0",">NEW O/P BLOCK PRELIMS" 79837,76,"823",2,0,0,"0",">UNPACK PT AND RETURN VIA S/R 768" 79838,85,"786",4,0,0,"0","DID LAST BLOCK HAVE BEN?" 79839,C,"798",42,0,0,"0",">NO" 79840,C,"803",2,0,0,"0",">YES" 79841,C,"803",2,0,0,"0",">YES" 79842,,"872",4,1,0,"0","BEW" 79843,3,"32",36,1,1,"0","FOR MT" 79844,5,"32",0,1,2,"0","AND PRINTER" 79845,80,"788",2,0,0,"0",">SET AMENDIND,PROCESS WORD" 79846,94,"798",48,0,2,"0","/////;END OF LINE" 79847,76,"803",2,0,0,"0","" 79848,80,"853",2,0,0,"0",">END OF BLOCK S/R" 79849,76,"803",2,0,0,"0","" 79900,PROCR,"799",,,,"","TEST I/P AT'FIEND'" 79902,81,"799",2,0,0,"0","" 79903,80,"802",2,0,0,"0",">" 79904,70,"796",24,0,0,"0",">REPORT" 79905,82,"799",2,0,0,"0","" 80000,PROCR,"800",,,,"","ALIGN ON REQUIRED WORD" 80001,NOTES,"",RADIX,B,,"","" 80002,85,"781",2,0,0,"0","FIRST WORD?" 80003,C,"800",7,0,0,"0",">NO" 80004,C,"800",5,0,0,"0",">YES" 80005,10,"",0,0,0,"4","START AT WORD 4" 80006,5,"32",164,0,0,"0","" 80007,0,"833",8,0,0,"0","WORD" 80008,2,"32",164,0,0,"0",";REQD WORD" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000733.JPG",,,,"","RayS/Q1000733" 80009,70,"801",2,0,0,"0",">YES" 80010,73,"796",24,0,0,"0",">YES;TEST ALIGNED AFTER" 80011,80,"860",2,0,0,"0",">PROCESS WORD" 80012,85,"786",4,0,0,"0",";TEST B/E WORD" 80013,C,"800",16,0,0,"0",">NO" 80014,C,"800",18,0,0,"0","" 80015,C,"800",19,0,0,"0","" 80016,80,"840",2,0,0,"0","STEP WORD CTR BY 2" 80017,76,"800",7,0,0,"0",">" 80018,80,"853",2,0,0,"0",">FINISH PRINTING BLOCK" 80019,80,"820",2,0,0,"0",">PRINT PT" 80020,80,"838",2,0,0,"0",">PREP FOR NEW BLOCK" 80021,76,"803",39,0,0,"0",">READ" 80100,PROCR,"801",,,,"","'FILEA' FOR DELETION/REPLACEMENT/INSERTION OF WORDS WITHIN CURRENT" 80101,NOTES,"",RADIX,B,,"","" 80102,85,"830",4,0,0,"0","AMDT TYPE SWITCH" 80103,C,"801",6,0,0,"0",">D" 80104,C,"801",28,0,0,"0",">R" 80105,C,"801",28,0,0,"0",">T" 80106,0,"833",10,0,0,"0","LAST WORD;DELETE WORD(S)" 80107,71,"801",10,0,0,"0",">NO;TO BE DELETED" 80108,0,"833",8,0,0,"0","FRST" 80109,5,"833",10,0,0,"0","SET AS LAST" 80110,60,"",0,0,0,"0","" 80111,,"833",10,0,0,"0","LAST" 80112,11,"",0,0,0,"2","" 80113,5,"833",10,0,0,"0","" 80114,62,"",0,0,0,"0","" 80115,,"32",140,1,8,"0","CURRENT MT WORD" 80116,2,"872",4,1,0,"0","" 80117,70,"796",24,0,0,"0",">DELETING BEW, REPORT" 80118,80,"861",2,0,0,"0",">STEP(MR8)S/R" 80119,80,"840",2,0,0,"0","STEP WORD CTR BY 2" 80120,00,"32",164,0,0,"0",";TEST LAST WORD" 80121,2,"833",10,0,0,"0",">NO" 80122,71,"801",15,0,0,"0","" 80123,80,"811",2,0,0,"0",">READ PT" 80124,80,"791",2,0,0,"0",">TEST RECOGNISABLE" 80125,70,"803",8,0,0,"0",">YES" 80126,80,"820",2,0,0,"0",">PRINT PT" 80127,76,"801",23,0,0,"0","" 80128,80,"784",2,0,0,"0",">READ/APPLY PT" 80129,70,"803",8,0,0,"0",">NEW DATA TYPE" 80130,73,"801",28,0,0,"0",">NOT TD BLOCK END" 80131,76,"801",23,0,0,"0",">EXPECT A NEW DATA TYPE" ,,"",,,,"","" 80200,PROCR,"802",,,,"","TEST FIEND" 80202,81,"802",2,0,0,"0","" 80203,96,"",0,0,8,"0","" 80204,98,"",0,0,8,"0","" 80205,92,"",0,0,3,"0","" 80206,,"7",4,1,3,"0","" 80207,2,"870",4,1,0,"0","" 80208,82,"802",2,0,0,"0","" ,,"",,,,"","" 80300,PROCR,"803",,,,"","TEST NEXT PT DIRECTIVE FOR SAME FILE/BOCK" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000734.JPG",,,,"","RayS/Q1000734" 80301,NOTES,"",RADIX,B,,"","" 80302,85,"129",2,0,0,"0","HAVE WE INSERTED BEFORE FIEND" 80303,C,"803",5,0,0,"0","" 80304,C,"803",7,0,0,"0","" 80305,83,"129",2,0,0,"2","RESET SWITCH" 80306,76,"803",37,0,0,"0","" 80307,80,"838",2,0,0,"0","" 80308,0,"9",0,1,0,"0","" 80309,12,"",0,0,0,"5659635551","'FILEA'" 80310,70,"803",15,0,0,"0","" 80311,80,"802",2,0,0,"0","TEST FIEND" 80312,71,"803",36,0,0,"0",">NO" 80313,80,"864",2,0,0,"0","WRITE & PRINT TO FIEND" 80314,76,"803",37,0,0,"0",">" 80315,80,"829",2,0,0,"0",">UNPACK" 80316,,"833",2,1,0,"0","PT FILE" 80317,2,"32",126,1,0,"0","MT FILE" 80318,70,"803",22,0,0,"0","" 80319,80,"802",2,0,0,"0",">TEST FIEND" 80320,70,"803",37,0,0,"0",">YES" 80321,76,"803",36,0,0,"0",">NO" 80322,,"833",4,0,0,"0","PT SET" 80323,2,"32",125,0,0,"0","MT SET" 80324,71,"803",19,0,0,"0","" 80325,,"833",6,0,0,"0","PT BLOCK" 80326,2,"32",138,0,0,"0","MT BLOCK" 80327,71,"803",32,0,0,"0","" 80328,,"833",12,0,0,"0","" 80329,71,"796",8,0,0,"0",">BLOCK AMDT" 80330,80,"799",2,0,0,"0",">REPORT IF AT FIEND" 80331,76,"798",2,0,0,"0",">WORD AMDT TO SAME BLOCK" 80332,80,"799",2,0,0,"0",">REPORT IF AT FIEND" 80333,80,"863",2,0,0,"0",">FINISH BLOCK" 80334,80,"838",2,0,0,"0",">RESET SWITCHES" 80335,76,"796",8,0,0,"0",">" 80336,80,"863",2,0,0,"0",">PROCESS TO END OF BLOCK S/R" 80337,80,"826",2,0,0,"0","TEST P/T" 80338,80,"820",2,0,0,"0",">PRINT ERROR LINE" 80339,80,"811",2,0,0,"0",">READ P/T" 80340,80,"826",2,0,0,"0",">TEST P/T" 80341,76,"803",38,0,0,"0",">PRINT UNTIL RECOGNISED" 80400,PROCR,"804",,,,"","END ROUTINE" 80401,NOTES,"",RADIX,B,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000735.JPG",,,,"","RayS/Q1000735" 80402,80,"820",2,0,0,"0",">PRINT PT" 80403,,"7",4,1,0,"0","" 80404,02,"870",6,1,0,"0","" 80405,71,"882",2,0,0,"0",">NO, MUST BE PREND OR E" 80406,0,"7",26,1,0,"0","" 80407,30,"",0,0,0,"6","" 80408,5,"30",2,1,0,"0","" 80409,80,"856",2,0,0,"0",">PRINT 'FILE UNALTERED LINE" 80410,76,"804",3,0,0,"0","" 80500,PROCR,"805",,,,"","DUMP TYPE NOT IN RANGE OR TOO MANY POINTS" 80501,NOTES,"",RADIX,B,,"","" 80502,0,"872",20,1,0,"0","'?????'" 80503,5,"5",48,1,0,"0","" 80504,62,"",0,0,0,"0","" 80505,52,"5",2,0,0,"0","" 80506,C,"877",2,0,0,"0","" 80507,54,"5",12,1,0,"36","" 80508,00,"872",18,1,0,"0","REPLACE DUMPX BY SQUARES" 80509,05,"5",4,1,0,"0","" 80510,80,"866",2,0,0,"0",">ADD ONE TO DISASTROUS CTR" 80511,94,"",0,0,4,"1-","" 80512,80,"817",2,0,0,"0",">PRINT" 80513,82,"842",2,0,0,"0",">LEAVE DUMPS POIT S/R" 80514,52,"5",2,0,0,"0","EDIT DUMP POINT" 80515,C,"877",2,0,0,"0","" 80516,,"872",20,1,0,"0","'?????'" 80517,5,"5",48,1,0,"0","" 80518,54,"5",10,1,0,"38","" 80519,76,"805",8,0,0,"0","" 80600,PROCR,"806",,,,"","N1,N2 OR N3 OUT OF RANGE S/R" 80601,NOTES,"",RADIX,,,"","" 80602,81,"806",2,0,0,"0","" 80603,80,"867",2,0,0,"0",">ADD ONE TO OTHERS CTR" 80604,10,"",0,0,0,"414243","" 80605,37,"871",40,1,0,"0","PACK IN NO" 80606,10,"",0,0,0,"0","" 80607,35,"",0,0,0,"1111000000","" 80608,36,"871",30,1,0,"0","PACK IN*N" 80609,37,"871",40,1,0,"0","" 80610,101,"",255,1,3,"0","" 80611,82,"806",2,0,0,"0",">" 80612,35,"",0,0,0,"110000","" 80613,80,"806",2,0,0,"0","" 80614,76,"843",17,0,0,"0",">" 80615,35,"",0,0,0,"1100","" 80616,80,"806",2,0,0,"0","" 80617,76,"843",24,0,0,"0",">" 80618,35,"",0,0,0,"11","" 80619,80,"806",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000736.JPG",,,,"","RayS/Q1000736" 80620,76,"843",31,0,0,"0","" 80700,PROCR,"807",,,,"","SECOND ERROR WORD S/R" 80701,NOTES,"",RADIX,B,,"","" 80702,81,"807",2,0,0,"0","" 80703,35,"",0,0,0,"111100","" 80704,37,"871",42,1,0,"0","PACK IN *C S OR P" 80705,80,"867",2,0,0,"0",">ADD ONE TO 'OTHERS' CTR" 80706,96,"",0,0,1,"0","" 80707,71,"807",12,0,0,"0",">NO" 80708,35,"",0,0,0,"11","" 80709,10,"",0,0,0,"41","PACK IN ONE" 80710,37,"871",42,1,0,"0","" 80711,10,"",0,0,0,"0","" 80712,82,"807",2,0,0,"0",">" 80800,PROCR,"808",,,,"","THIRD ERROR WORD S/R" 80801,NOTES,"",RADIX,B,,"","" 80802,81,"808",2,0,0,"0","" 80803,35,"",0,0,0,"1100000000","" 80804,12,"",0,0,0,"1","" 80805,70,"808",16,0,0,"0",">2ND CHAP" 80806,12,"",0,0,0,"1","" 80807,70,"808",15,0,0,"0",">3RD CHAP" 80808,12,"",0,0,0,"1","" 80809,70,"808",14,0,0,"0",">4TH CHAP" 80810,12,"",0,0,0,"1","" 80811,70,"808",13,0,0,"0",">5TH CHAP" 80812,32,"",0,0,0,"2-","6TH CHAP" 80813,32,"",0,0,0,"2-","" 80814,32,"",0,0,0,"2-","" 80815,32,"",0,0,0,"2-","" 80816,10,"",0,0,0,"4243444546","" 80817,37,"871",44,1,0,"0","PACK IN NO" 80818,82,"808",2,0,0,"0",">" 80900,PROCR,"809",,,,"","IGNORE T D FILE ERROR S/R" 80901,NOTES,"",RADIX,B,,"","" 80902,81,"809",2,0,0,"0","" 80903,0,"871",42,1,0,"0","ALREADY DONE?" 80904,2,"872",20,1,0,"0","'?????'" 80905,70,"809",12,0,0,"0",">YES" 80906,,"872",20,1,0,"0","'?????'" 80907,05,"871",42,1,0,"0","" 80908,0,"868",2,0,0,"0","'£££££'" 80909,35,"",0,0,0,"11000","PACK ££ IN SET NUMBER" 80910,37,"31",12,2,0,"0","AS 'IGNORE' IND" 80911,80,"866",2,0,0,"0",">ADD ONE TO 'DISASTROUS' CTR" 80912,82,"809",2,0,0,"0","" ,,"",,,,"","" 81000,PROCR,"810",,,,"","READ A1 S/R" 81001,NOTES,"",RADIX,B,,"","" 81002,81,"810",2,0,0,"0","" 81003,42,"A1",0,0,0,"0","" 81004,C,"7",0,0,0,"0","" 81005,82,"810",2,0,0,"0","" ,,"",,,,"","" 81100,PROCR,"811",,,,"","READ B1 S/R" 81101,NOTES,"",RADIX,B,,"","" 81102,81,"811",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000737.JPG",,,,"","ChuckK/Q1000737" 81103,80,"779",2,0,0,"0",">READ" 81104,34,"9",48,2,0,"0","" 81105,10,"",0,0,0,"0","" 81106,32,"",0,0,0,"7","" 81107,91,"",0,0,3,"0","" 81108,10,"",0,0,0,"0","" 81109,32,"",0,0,0,"3","" 81110,05,"869",2,0,0,"0","" 81111,35,"",0,0,0,"11","" 81112,10,"",0,0,0,"7.","" 81113,124,"869",2,0,1,"0","" 81114,32,"",0,0,0,"0","/////" 81115,37,"9",0,1,3,"0","" 81116,55,"9",4,1,0,"44","" 81117,C,"9",0,1,0,"0","" 81118,82,"811",2,0,0,"0","" 81200,PROCR,"812",,,,"","RIGHT-ALIGN(A) SR" 81202,81,"812",2,0,0,"0","" 81203,32,"",0,0,0,"10-","N->B" 81204,5,"869",14,1,0,"0","CLEAR WL" 81205,0,"869",14,1,0,"0","" 81206,32,"",0,0,0,"2","" 81207,5,"869",14,1,0,"0","" 81208,75,"812",5,0,0,"0",">NOT END" 81209,0,"869",14,1,0,"0","" 81210,82,"812",2,0,0,"0","" 81300,PROCR,"813",,,,"","UNPACK DUMPS POINT P/T SR" 81301,NOTES,"",RADIX,B,,"","" 81302,81,"813",2,0,0,"0","" 81303,54,"30",0,0,0,"18","" 81304,87,"27",10,0,0,"0","" 81305,C,"813",10,0,0,"0","P/T" 81306,C,"813",7,0,0,"0","CARD" 81307,50,"9",0,0,0,"0","UNPACK CARD" 81308,C,"874",10,0,0,"0","" 81309,76,"813",13,0,0,"0","" 81310,124,"873",14,0,2,"0","" 81311,124,"999",21,1,2,"0","SEC 9" 81312,128,"",0,0,3,"0","UNPACK" 81313,,"92",30,0,0,"0","" 81314,70,"813",16,0,0,"0",">INITIAL TRANSLATION" 81315,82,"813",2,0,0,"0","" 81316,60,"",0,0,0,"0","" 81317,10,"",0,0,0,"2","" 81318,4,"30",0,0,0,"0","STEP LINE SERIAL" 81319,,"30",1,0,0,"0","PM TYPE" 81320,12,"",0,0,0,"6","" 81321,71,"813",31,0,0,"0",">NOT LOCATION DUMP" 81322,90,"",0,0,3,"0","" 81323,C,"",0,0,0,"12","" 81324,,"30",5,0,3,"0","REF" 81325,70,"813",31,0,0,"0",">END" 81326,12,"",0,0,0,"100","" 81327,73,"813",30,0,0,"0",">NOT PROCR" 81328,10,"",0,0,0,"2","" 81329,4,"30",6,0,3,"0","STEP ITEM" 81330,94,"813",24,0,3,"2","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000738.JPG",,,,"","ChuckK/Q1000738" 81331,62,"",0,0,0,"0","" 81332,82,"813",2,0,0,"0","" 81400,PROCR,"814",,,,"","UNPACK TD HEADING P/T S/R" 81401,NOTES,"",RADIX,B,,"","" 81402,81,"814",2,0,0,"0","" 81403,54,"30",0,0,0,"18","" 81404,87,"27",10,0,0,"0","" 81405,C,"814",16,0,0,"0","P/T" 81406,C,"814",7,0,0,"0","CARD" 81407,50,"9",0,0,0,"0","UNPACK CARD" 81408,C,"874",48,0,0,"0","" 81409,,"30",2,1,0,"0","L-ALIGN ALPHA DATA" 81410,30,"",0,0,0,"6","" 81411,5,"30",2,1,0,"0","" 81412,,"30",10,1,0,"0","" 81413,30,"",0,0,0,"6","" 81414,5,"30",10,1,0,"0","" 81415,82,"814",2,0,0,"0",">" 81416,124,"873",6,0,2,"0","" 81417,124,"999",21,1,2,"0","SEC 9" 81418,128,"",0,0,3,"0","UNPACK" 81419,82,"814",2,0,0,"0","" 81500,PROCR,"815",,,,"","WRITE A2 FROM SECTION 1 S/R" 81501,NOTES,"",RADIX,B,,"","" 81502,81,"815",2,0,0,"0","" 81503,55,"7",4,1,0,"50","" 81504,C,"8",4,1,0,"0","" 81505,43,"A2",0,0,0,"0","" 81506,C,"8",0,0,0,"0","" 81507,82,"815",2,0,0,"0","" 81600,PROCR,"816",,,,"","WRITE A2 FROM SECTION 4 S/R" 81601,NOTES,"",RADIX,B,,"","" 81602,81,"816",2,0,0,"0","" 81603,80,"890",2,0,0,"0","" 81604,82,"816",2,0,0,"0","" 81700,PROCR,"817",,,,"","PRINT S/R" 81701,NOTES,"",RADIX,B,,"","" 81702,81,"817",2,0,0,"0","" 81703,05,"5",0,1,0,"0","SET UP FUNCTION WORD" 81704,80,"892",2,0,0,"0","" 81705,82,"817",2,0,0,"0","" 81800,PROCR,"818",,,,"","PRINT BLANK LINE" 81801,NOTES,"",RADIX,B,,"","" 81802,81,"818",2,0,0,"0","" 81803,,"27",9,0,0,"0","ON LINE" 81804,70,"818",7,0,0,"0",">YES" 81805,54,"5",0,1,0,"50","BLANK LINE" 81806,76,"818",9,0,0,"0","" 81807,,"872",4,1,0,"0","BEW" 81808,5,"5",2,1,0,"0","" 81809,80,"817",2,0,0,"0","" 81810,82,"818",2,0,0,"0","" 81900,PROCR,"819",,,,"","CLEAR 1ST 2 WORDS OF ANNEXE" 81901,NOTES,"",RADIX,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000739.JPG",,,,"","ChuckK/Q1000739" 81902,81,"819",2,0,0,"0","" 81903,10,"",0,0,0,"0","" 81904,05,"5",2,1,0,"0","" 81905,05,"5",4,1,0,"0","" 81906,82,"819",2,0,0,"0","" 82000,PROCR,"820",,,,"","PRINT UNRECOGNISABLE P/T LINE S/R" 82001,NOTES,"",RADIX,B,,"","" 82002,81,"820",2,0,0,"0","" 82003,80,"818",2,0,0,"0",">LINE FEED S/R" 82004,80,"865",2,0,0,"0",">STEP'PT OMITTED'" 82005,00,"871",46,1,0,"0"," 'P/T? '" 82006,05,"5",2,1,0,"0","" 82007,,"9",48,2,0,"0","" 82008,30,"",0,0,0,"3-","" 82009,12,"",0,0,0,"4","" 82010,91,"",0,0,3,"0","" 82011,10,"",0,0,0,"0","CLEAR" 82012,35,"",0,0,0,"11","(FOR ONE CHAR)" 82013,36,"9",48,2,0,"0","" 82014,5,"821",2,0,0,"0","WL" 82015,124,"821",2,0,1,"0","" 82016,32,"",0,0,0,"0","///// SHIFT PACKING BITS OVER BE CHAR" 82017,37,"9",0,1,3,"0","CLEAR BE CHAR" 82018,55,"9",0,1,0,"32","" 82019,C,"5",4,1,0,"0","" 82020,80,"817",2,0,0,"0",">PRINT" 82021,80,"818",2,0,0,"0",">LINE FEED S/R" 82022,82,"820",2,0,0,"0",">" 82100,PROCR,"821",,,,"","CONVERT TO BINARY S/R" 82101,NOTES,"",RADIX,B,,"","" 82102,81,"821",2,0,0,"0","" 82103,5,"908",54,1,0,"0","" 82104,62,"",0,0,0,"0","" 82105,124,"909",2,0,2,"0","" 82106,112,"908",54,1,0,"0","" 82107,82,"821",2,0,0,"0","" 82200,PROCR,"822",,,,"","CONVERT TO DECIMAL S/R" 82201,NOTES,"",RADIX,B,,"","" 82202,81,"822",2,0,0,"0","" 82203,5,"908",54,1,0,"0","" 82204,60,"",0,0,0,"0","" 82205,124,"909",22,0,2,"0","" 82206,112,"908",54,1,0,"0","" 82207,62,"",0,0,0,"0","" 82208,82,"822",2,0,0,"0","" 82300,PROCR,"823",,,,"","UNPACK THIS PT/CARD BLOCK CHARACTER-BY-CHARACTER" 82301,NOTES,"",RADIX,B,,"","" 82302,91,"872",2,0,3,"0","SET (MR3)=0:0" 82303,90,"",0,0,4,"0","SET (MR4)=14:0" 82304,C,"",0,0,0,"14","" 82305,90,"",0,0,5,"0","SET (MRS)=5:0" 82306,C,"",0,0,0,"5","" 82307,54,"32",60,0,0,"64","CLEAR W/L'S" 82308,55,"9",0,0,0,"32","" 82309,C,"32",60,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000740.JPG",,,,"","ChuckK/Q1000740" 82310,87,"27",10,0,0,"0","" 82311,C,"823",13,0,0,"0","P/T" 82312,C,"823",27,0,0,"0","CARD" 82313,34,"32",60,1,3,"0","SET(B)AT 1ST WORD" 82314,32,"",0,0,0,"2","" 82315,12,"",0,0,0,"7:","" 82316,70,"824",2,0,0,"0",">YES" 82317,12,"",0,0,0,"1","TEST BE" 82318,70,"825",47,0,0,"0",">YES" 82319,11,"",0,0,0,"7.","" 82320,05,"32",124,0,0,"0","W/L 2" 82321,00,"32",92,1,0,"0","LINE SERIAL SO FAR" 82322,30,"",0,0,0,"2","" 82323,01,"32",124,0,0,"0","" 82324,05,"32",92,1,0,"0","" 82325,80,"827",2,0,0,"0",">S/R A" 82326,76,"823",15,0,0,"0",">" 82327,00,"32",60,1,0,"0","STORE LINE SERIAL" 82328,05,"32",92,1,0,"0","" 82329,05,"32",121,0,0,"0","CLEAR CARD IND" 82330,94,"823",31,0,3,"2","" 82331,34,"32",60,1,3,"0","SET(B) AT NEXT WORD" 82332,32,"",0,0,0,"2","" 82333,76,"824",3,0,0,"0",">" 82400,PROCR,"824",,,,"","PSEUDO UNPACK-MAIN LOOP(1)" 82401,NOTES,"",RADIX,,,"","B" 82402,80,"827",2,0,0,"0",">S/R A" 82403,12,"",0,0,0,"7:","" 82404,70,"824",18,0,0,"0",">YES" 82405,12,"",0,0,0,"1","" 82406,70,"825",47,0,0,"0",">YES" 82407,11,"",0,0,0,"1p","" 82408,70,"825",57,0,0,"0",">YES" 82409,11,"",0,0,0,"4","" 82410,70,"825",2,0,0,"0",">YES" 82411,11,"",0,0,0,"5e","" 82412,05,"32",124,0,0,"0","W/L 2" 82413,00,"32",122,1,0,"0","W/L 1" 82414,30,"",0,0,0,"2","" 82415,01,"32",124,0,0,"0","" 82416,05,"32",122,1,0,"0","" 82417,76,"824",2,0,0,"0",">" 82418,80,"828",2,0,0,"0",">S/R B" 82419,05,"32",94,1,4,"0","STORE WORD IN LIST" 82420,05,"32",120,0,0,"0","CLEAR*C IND" 82421,05,"32",122,1,0,"0","CLEAR W/L 1" 82422,94,"824",2,0,4,"2","STEP(MR4)" 82423,76,"825",51,0,0,"0",">" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000741.JPG",,,,"","RayS/Q1000741" 82500,PROCR,"825",,,,"","" 82501,NOTES,"",RADIX,B,,"","" 82502,80,"827",2,0,0,"0",">S/R A" 82503,12,"",0,0,0,"51","" 82504,70,"825",45,0,0,"0",">YES" 82505,12,"",0,0,0,"1","" 82506,70,"825",43,0,0,"0",">YES" 82507,12,"",0,0,0,"1","" 82508,70,"825",54,0,0,"0",">YES" 82509,12,"",0,0,0,"1","" 82510,70,"825",41,0,0,"0",">YES" 82511,12,"",0,0,0,"7","" 82512,70,"825",39,0,0,"0",">YES" 82513,12,"",0,0,0,"8","" 82514,70,"825",37,0,0,"0",">YES" 82515,12,"",0,0,0,"2","" 82516,70,"825",35,0,0,"0",">YES" 82517,12,"",0,0,0,":","" 82518,70,"825",33,0,0,"0",">YES" 82519,12,"",0,0,0,"e","" 82520,71,"825",24,0,0,"0",">NO" 82521,80,"867",2,0,0,"0",">STEP'OTHERS'" 82522,00,"872",16,1,0,"0","*****" 82523,76,"824",19,0,0,"0",">" 82524,12,"",0,0,0,"1","" 82525,71,"825",29,0,0,"0",">NO" 82526,80,"867",2,0,0,"0",">STEP'OTHERS'" 82527,00,"872",16,1,0,"0","*****" 82528,76,"825",48,0,0,"0",">" 82529,10,"",0,0,0,"0","" 82530,80,"827",2,0,0,"0",">S/R A" 82531,12,"",0,0,0,"7:","" 82532,76,"825",20,0,0,"0",">" 82533,10,"",0,0,0,"5£","SQUARE" 82534,76,"824",12,0,0,"0",">" 82535,10,"",0,0,0,"7:","NUMBER END" 82536,76,"824",12,0,0,"0",">" 82537,10,"",0,0,0,"5.","LINE END" 82538,76,"824",12,0,0,"0",">" 82539,10,"",0,0,0,"5e","STAR" 82540,76,"824",12,0,0,"0","" 82541,10,"",0,0,0,"7£","TRIANGLE" 82542,76,"824",12,0,0,"0",">" 82543,10,"",0,0,0,"7.","BLOCK END" 82544,76,"824",12,0,0,"0",">" 82545,10,"",0,0,0,"6£","ALIGNMENT MARK" 82546,76,"824",12,0,0,"0",">" 82547,80,"828",2,0,0,"0",">S/R B" 82548,05,"32",94,1,4,"0","STORE WORD IN LIST" 82549,00,"872",8,1,0,"0","SET END SIGN IN LIST" 82550,05,"32",96,1,4,"0","" 82551,90,"",0,0,5,"0","" 82552,C,"",0,0,0,"14","" 82553,76,"784",14,0,0,"0",">" 82554,10,"",0,0,0,"1","SET*C ID" 82555,05,"32",120,0,0,"0","" 82556,76,"824",2,0,0,"0",">" 82557,0,"872",8,1,0,"0","SET END SIGN IN LIST" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000742.JPG",,,,"","ChuckK/Q1000742" 82558,5,"32",94,1,4,"0","" 82559,76,"825",51,0,0,"0","" 82600,PROCR,"826",,,,"","TEST P/T S/R" 82601,NOTES,"",RADIX,B,,"","" 82602,81,"826",2,0,0,"0","" 82603,00,"9",0,1,0,"0","" 82604,2,"870",10,1,0,"0"," 'FILES''" 82605,70,"826",17,0,0,"0",">INSERTION" 82606,11,"",0,0,0,"1.","" 82607,70,"826",19,0,0,"0",">'FILED' (DELETION)" 82608,12,"",0,0,0,"15","" 82609,70,"826",19,0,0,"0",">'FILER' (REPLACEMENT)" 82610,11,"",0,0,0,"18","" 82611,70,"793",2,0,0,"0",">'FILEA' (BLOCK/WORD AMENDMENT)" 82612,,"9",0,1,0,"0","" 82613,30,"",0,0,0,"4-","" 82614,12,"",0,0,0,"556554"," 'END'" 82615,70,"826",21,0,0,"0",">YES" 82616,82,"826",2,0,0,"0","(REPORT)" 82617,80,"864",2,0,0,"0","FILE PREP" 82618,76,"782",15,0,0,"0","" 82619,80,"864",2,0,0,"0","FILE PREP" 82620,76,"792",2,0,0,"0","" 82621,80,"864",2,0,0,"0","" 82622,76,"804",3,0,0,"0","" 82700,PROCR,"827",,,,"","PSEUDO UNPACK S/R A" 82701,NOTES,"",RADIX,B,,"","" 82702,81,"827",2,0,0,"0","" 82703,94,"827",15,0,5,"1","STEP (MR5)" 82704,87,"27",10,0,0,"0","" 82705,C,"827",11,0,0,"0","P/T" 82706,C,"827",7,0,0,"0","CARD" 82707,00,"32",121,0,0,"0","" 82708,71,"827",17,0,0,"0",">YES" 82709,10,"",0,0,0,"1","SET CARD IND" 82710,05,"32",121,0,0,"0","" 82711,90,"",0,0,5,"0","RESET (MR5)" 82712,C,"",0,0,0,"5","" 82713,94,"827",14,0,3,"2","STEP (MR3)" 82714,34,"32",60,1,3,"0","SET(B)AT NEXT WORD" 82715,32,"",0,0,0,"2","" 82716,82,"827",2,0,0,"0","" 82717,10,"",0,0,0,"0","" 82718,05,"32",121,0,0,"0","CLEAR CARD IND" 82719,90,"",0,0,5,"1-","SET(MR5)AT-1:5" 82720,C,"",0,0,0,"5","" 82721,94,"827",22,0,3,"2","STEP(MR3)" 82722,34,"32",60,1,3,"0","SET(B)AT NEXT WORD" 82723,76,"824",18,0,0,"0",">" 82800,PROCR,"828",,,,"","PSEUDO UNPACK S/R B" 82801,NOTES,"",RADIX,B,,"","" 82802,81,"828",2,0,0,"0","" 82803,00,"32",120,0,0,"0","" 82804,70,"828",13,0,0,"0",">NO" 82805,32,"",0,0,0,"10","STORE(B)" 82806,05,"32",128,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000743.JPG",,,,"","ChuckK/Q1000743" 82807,00,"32",122,2,0,"0","" 82808,80,"821",2,0,0,"0",">CONVERT TO BINARY" 82809,05,"32",122,2,0,"0","" 82810,34,"32",128,1,0,"0","RESTORE(B)" 82811,02,"32",122,1,0,"0","" 82812,76,"828",14,0,0,"0",">" 82813,00,"32",122,1,0,"0","" 82814,82,"828",2,0,0,"0",">" 82900,PROCR,"829",,,,"","UNPACK'FILEA'BLOCK" 82901,NOTES,"",RADIX,B,,"","" 82902,81,"829",2,0,0,"0","" 82903,54,"833",2,1,0,"10","" 82904,87,"27",10,0,0,"0","" 82905,C,"829",7,0,0,"0",">PT" 82906,C,"832",2,0,0,"0",">CARDS" 82907,124,"873",18,0,2,"0","" 82908,124,"999",21,1,2,"0","SEC 9" 82909,128,"",0,0,3,"0","" 82910,0,"833",2,1,0,"0","FILE ID" 82911,80,"812",2,0,0,"0",">R-ALIGN" 82912,5,"833",2,1,0,"0","" 82913,0,"833",6,1,0,"0","" 82914,80,"812",2,0,0,"0",">R-ALIGN" 82915,32,"",0,0,0,"2-","" 82916,5,"869",14,1,0,"0","WL" 82917,32,"",0,0,0,"2","" 82918,12,"",0,0,0,"54","" 82919,70,"831",4,0,0,"0",">'D' DELETE BLOCK(S)" 82920,12,"",0,0,0,"15","" 82921,70,"831",3,0,0,"0",">'R' REPLACE BLOCK" 82922,12,"",0,0,0,"t","" 82923,70,"831",2,0,0,"0",">'T' INSERT BLOCK" 82924,0,"833",6,1,0,"0","(ASSUME WORD AMEND" 82925,80,"812",2,0,0,"0",">R-ALIGN BLOCK NUMBER" 82926,0,"869",14,2,0,"0","" 82927,73,"830",20,0,0,"0",">REJECT" 82928,5,"833",6,1,0,"0","DEC BLOCK NUMBER" 82929,0,"833",8,1,0,"0","FIRST WORD NUMBER" 82930,80,"812",2,0,0,"0",">R-ALIGN" 82931,3,"869",14,1,0,"0","WL" 82932,32,"",0,0,0,"2-","" 82933,10,"",0,0,0,"0","" 82934,32,"",0,0,0,"2","" 82935,12,"",0,0,0,"54"," 'D'" 82936,70,"830",4,0,0,"0",">DELETE WORD(S)" 82937,12,"",0,0,0,"15","" 82938,70,"830",3,0,0,"0",">'R' REPLACE WORD(S)" 82939,12,"",0,0,0,"t","" 82940,71,"830",20,0,0,"0",">NOT'T';REJECT" 83000,PROCR,"830",,,,"","UNPACK P/T TD AMDTS (2)" 83001,NOTES,"",RADIX,B,,"","" 83002,10,"",0,0,0,"1","3=T" 83003,11,"",0,0,0,"1","2=R" 83004,11,"",0,0,0,"1","1=D" 83005,84,"830",2,0,0,"0","SET WORD AMEND SWITCH" 83006,0,"869",14,1,0,"0","" 83007,30,"",0,0,0,"2-","" 83008,5,"833",8,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000744.JPG",,,,"","RayS/Q1000744" 83009,0,"833",8,2,0,"0","" 83010,73,"830",20,0,0,"0",">REJECT" 83011,5,"833",8,1,0,"0","NUMERIC FIRST WORD NUMBER" 83012,0,"833",10,1,0,"0","LAST WORD(DELETIONS)" 83013,70,"831",20,0,0,"0",">OK" 83014,73,"830",20,0,0,"0",">REJECT" 83015,,"833",8,0,0,"0","FIRST" 83016,2,"833",10,0,0,"0","LAST" 83017,72,"830",20,0,0,"0",">REJECT" 83018,10,"",0,0,0,"0","" 83019,76,"831",20,0,0,"0","" 83020,80,"820",2,0,0,"0",">PRINT PT" 83021,76,"803",39,0,0,"0",">READ PT UNTIL DT RECOGNISED" 83100,PROCR,"831",,,,"","UNPACK P/T TO AMDTS (3)" 83101,NOTES,"",RADIX,B,,"","" 83102,10,"",0,0,0,"1","3=T" 83103,11,"",0,0,0,"1","2=R" 83104,11,"",0,0,0,"1","1=D" 83105,84,"830",2,0,0,"0","SET BLOCK AMEND SWITCH" 83106,0,"869",14,2,0,"0","" 83107,73,"830",20,0,0,"0",">REJECT" 83108,5,"833",6,1,0,"0","STORE BLOCK NUMBER" 83109,0,"833",8,1,0,"0","" 83110,80,"812",2,0,0,"0",">R-ALIGN" 83111,5,"869",14,1,0,"0","" 83112,0,"869",14,2,0,"0","" 83113,73,"830",20,0,0,"0",">REJECT" 83114,3,"833",8,1,0,"0","LAST BLOCK(DELETIONS)" 83115,70,"831",19,0,0,"0",">OK" 83116,,"833",6,0,0,"0","FIRST" 83117,2,"833",8,0,0,"0","LAST" 83118,72,"830",20,0,0,"0",">REJECT" 83119,10,"",0,0,0,"1","" 83120,5,"833",12,0,0,"0","ZERO=WORD AMEND;NONZERO=BLOCK AMEND" 83121,82,"829",2,0,0,"0","" 83200,PROCR,"832",,,,"","UNPACK CARD TD AMDTS" 83201,NOTES,"",RADIX,B,,"","" 83202,50,"9",0,0,0,"0","" 83203,C,"874",64,0,0,"0","" 83204,76,"829",10,0,0,"0","" ,,"",,,,"","" 83300,CONST,"833",,1,,"","UNPACKED PT FOR 'FILEA' DATA" 83302,,"(D)0;",,,,"","'FILEA'/FILE ID R-ALIGNED" 83304,,"0;",,,,"","SET(NUMERIC)" 83306,,"0;",,,,"","BLOCK NUMBER(DEC NUMERIC)" 83308,,"0;",,,,"","START WORD/LAST BLOCK(DEC NUMERIC)" 83310,,"0;",,,,"","END WORD(DEC NUMERIC)" 83312,,";",,,,"","ZERO=WORD AMEND;NONZERO=BLOCK AMEND" ,,"",,,,"","" 83400,PROCR,"834",,,,"","FORM UP RELATIVE ADDRESS S/R" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000745.JPG",,,,"","RayS/Q1000745" 83401,NOTES,"",RADIX,B,,"","" 83402,81,"834",2,0,0,"0","" 83403,05,"869",2,0,0,"0","STORE I/C SERIAL" 83404,35,"",0,0,0,"11100","" 83405,36,"869",2,0,0,"0","COLLARE PROCR NO" 83406,30,"",0,0,0,"2-","" 83407,80,"821",2,0,0,"0",">CONVERT TO BINARY" 83408,92,"",0,0,5,"0","SET (MR5)=PROCR NO" 83409,90,"",0,0,3,"0","" 83410,C,"",0,0,0,"40","" 83411,00,"25",2,0,3,"0","" 83412,02,"869",2,0,0,"0","" 83413,70,"834",27,0,0,"0",">YES" 83414,94,"834",11,0,3,"2",">NO" 83415,,"18",1000,0,5,"0","PROCR START" 83416,3,"822",2,0,0,"0","PROCR START" 83417,70,"834",28,0,0,"0",">PROCR NOT THERE, LEAVE SR (A)=0" 83418,10,"",0,0,0,"0","CLEAR A" 83419,35,"",0,0,0,"11","COLLATE ITEM NO" 83420,36,"869",2,0,0,"0","" 83421,80,"821",2,0,0,"0",">CONVERT TO BINARY" 83422,12,"",0,0,0,"2","BIN ITEM-2" 83423,3,"821",2,0,0,"0","WL" 83424,71,"834",29,0,0,"0",">IGNORE=LINE SERIAL, ACCEPT=PM 6 DATA" 83425,,"822",2,0,0,"0","PROCR=START" 83426,76,"834",28,0,0,"0",">" 83427,00,"25",3,0,3,"0","" 83428,82,"834",2,0,0,"0","" 83429,10,"",0,0,0,"0","" 83430,82,"834",2,0,0,"0","" 83500,PROCR,"835",,,,"","FORM UP CHAPTER NO S/R" 83501,NOTES,"",RADIX,B,,"","" 83502,81,"835",2,0,0,"0","" 83503,05,"869",2,0,0,"0","STORE PROCR NO" 83504,90,"",0,0,3,"1","" 83505,C,"",0,0,0,"15","" 83506,35,"",0,0,0,"11100","" 83507,10,"",0,0,0,"0","" 83508,36,"92",9,0,3,"0","LAST PROCR IN CHAP" 83509,30,"",0,0,0,"2-","" 83510,02,"869",2,0,0,"0","" 83511,72,"835",13,0,0,"0",">" 83512,94,"835",7,0,3,"1",">NO" 83513,10,"",0,0,0,"0","" 83514,35,"",0,0,0,"1","" 83515,36,"92",9,0,3,"0","CORRECTED CHAP NO" 83516,82,"835",2,0,0,"0","" ,,"",,,,"","" 83600,PROCR,"836",,,,"","FORM UP CHAPTER NO OF SECN" 83601,NOTES,"",RADIX,B,,"","" 83602,81,"836",2,0,0,"0","" 83603,35,"",0,0,0,"1","(A)=0" 83604,36,"15",0,0,3,"0","" 83605,92,"",0,0,5,"0","" 83606,10,"",0,0,0,"0","" 83607,36,"92",9,0,5,"0","CORRECTED CHAP" 83608,82,"836",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000746.JPG",,,,"","ChuckK/Q1000746" 83700,PROCR,"837",,,,"","FORM UP TRANSIT AREA PARAMETER S/R" 83701,NOTES,"",RADIX,B,,"","" 83702,81,"837",2,0,0,"0","" 83703,05,"869",2,0,0,"0","STORE SECN NO" 83704,91,"24",2,0,3,"0","SET(MR3)=2(R+T)/2R" 83705,94,"837",7,0,3,"0","/////" 83706,76,"837",13,0,0,"0",">NO TX AREAS" 83707,35,"",0,0,0,"111-","" 83708,36,"24",4,0,3,"0","SECN NO" 83709,02,"869",2,0,0,"0","" 83710,70,"837",14,0,0,"0",">" 83711,10,"",0,0,0,"0","" 83712,94,"837",8,0,3,"2",">" 83713,82,"837",2,0,0,"0",">" 83714,35,"",0,0,0,"11000","" 83715,36,"24",4,0,3,"0","TA PARAMETER" 83716,82,"837",2,0,0,"0",">" 83800,PROCR,"838",,,,"","SET UP COUNTERS AT START OF NEW TRIAL DATA BLOCK" 83801,NOTES,"",RADIX,B,,"","" 83802,81,"838",2,0,0,"0","" 83803,60,"",0,0,0,"0","SET DECIMAL" 83804,90,"",0,0,3,"0","" 83805,C,"",0,0,0,"7","" 83806,10,"",0,0,0,"2","" 83807,03,"32",15,0,3,"0","FOR PRINTING" 83808,11,"",0,0,0,"2","" 83809,94,"838",7,0,3,"1","" 83810,62,"",0,0,0,"0","SET BINARY" 83811,90,"",0,0,2,"0","" 83812,C,"",0,0,0,"14","" 83813,83,"787",4,0,0,"1","SET*SWITCH AT 1" 83814,83,"786",4,0,0,"1","SET B/E SWITCH AT 1" 83815,83,"849",4,0,0,"2","SET BLOCK NO SWITCH AT 2" 83816,83,"781",2,0,0,"2","SET FIRST WORD SWITCH AT 2" 83817,05,"871",42,1,0,"0","CLEAR ERROR WORD" 83818,80,"818",2,0,0,"0",">LINE FEED S/R" 83819,82,"838",2,0,0,"0",">" 83900,PROCR,"839",,,,"","STEP WORD NUMBERS FOR PRINTED LINE BY 14" 83901,NOTES,"",RADIX,B,,"","" 83902,81,"839",2,0,0,"0","" 83903,60,"",0,0,0,"0","" 83904,90,"",0,0,3,"0","" 83905,C,"",0,0,0,"7","" 83906,35,"",0,0,0,"1111","" 83907,10,"",0,0,0,"14","" 83908,36,"32",15,0,3,"0","" 83909,5,"32",15,0,3,"0","(CLEAR PREVIOUS SIGN)" 83910,94,"839",7,0,3,"1","" 83911,62,"",0,0,0,"0","" 83912,82,"839",2,0,0,"0","" 84000,PROCR,"840",,,,"","STEP WORD COUNTER BY 2" 84001,NOTES,"",RADIX,B,,"","" 84002,81,"840",2,0,0,"0","" 84003,10,"",0,0,0,"2","" 84004,60,"",0,0,0,"0","" 84005,04,"32",164,0,0,"0","" 84006,62,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000747.JPG",,,,"","ChuckK/Q1000747" 84007,82,"840",2,0,0,"0","" 84100,PROCR,"841",,,,"","PREPARE FOR DUMPS POINTS S/R" 84101,NOTES,"",RADIX,B,,"","" 84102,81,"841",2,0,0,"0","" 84103,80,"818",2,0,0,"0",">LINE FEED S/R" 84104,80,"818",2,0,0,"0",">LINE FEED S/R" 84105,90,"",0,0,4,"0","SET(MR4)=11:0" 84106,C,"",0,0,0,"11","" 84107,52,"5",2,0,0,"0","EDIT PM POINT HEADING" 84108,C,"876",2,0,0,"0","" 84109,80,"817",2,0,0,"0",">PRINT" 84110,,"9",0,1,0,"0","" 84111,30,"",0,0,0,"4-","" 84112,12,"",0,0,0,"556554"," 'END'" 84113,70,"841",15,0,0,"0",">ALREADY AT END" 84114,80,"811",2,0,0,"0",">READ P/T" 84115,80,"818",2,0,0,"0",">LINE FEED S/R" 84116,82,"841",2,0,0,"0",">" 84200,PROCR,"842",,,,"","PROCESS DUMPS POINT S/R" 84201,NOTES,"",RADIX,B,,"","" 84202,81,"842",2,0,0,"0","" 84203,94,"842",5,0,4,"1","STEP(MR4)" 84204,76,"805",14,0,0,"0",">TOO MANY DUMPS POINTS" 84205,54,"31",0,1,0,"22","" 84206,5,"871",40,1,0,"0","CLEAR ERROR WORDS" 84207,5,"871",42,1,0,"0","" 84208,5,"871",44,1,0,"0","" 84209,0,"30",0,0,0,"0","STORE I/C SERIAL" 84210,80,"780",2,0,0,"0",">UPDATE ADDRESS" 84211,3,"30",0,0,0,"0","NEW SERIAL" 84212,3,"31",0,0,0,"0","" 84213,80,"834",2,0,0,"0",">FORM UP REL ADD S/R" 84214,70,"805",14,0,0,"0",">NOT PROCR START OR 'TRACE' ,REJECT" 84215,5,"31",1,0,0,"0","" 84216,96,"",0,0,5,"0","BINARY PROCR NO" 84217,80,"835",2,0,0,"0",">FORM UP CHAP NO" 84218,96,"",0,0,3,"0","UNCORRECTED CHAP" 84219,5,"31",2,0,0,"0","" 84300,PROCR,"843",,,,"","PROCESS TYPE N1 N2 AND N3" 84301,NOTES,"",RADIX,B,,"","" 84302,0,"30",1,0,0,"0","" 84303,70,"805",2,0,0,"0",">REJECT" 84304,73,"805",2,0,0,"0","" 84305,12,"",0,0,0,"7","" 84306,72,"805",2,0,0,"0",">NO,ERROR" 84307,11,"",0,0,0,"7","" 84308,30,"",0,0,0,"4","" 84309,4,"31",2,0,0,"0","" 84310,84,"780",17,0,0,"0","SET SWITCH 2 BY TYPE" 84311,C,"30",1,0,0,"0","" 84312,0,"30",2,0,0,"0","" 84313,12,"",0,0,0,"256","" 84314,72,"806",12,0,0,"0",">NO" 84315,11,"",0,0,0,"256","" 84316,80,"821",2,0,0,"0",">CONVERT TO BINARY" 84317,30,"",0,0,0,"3","" 84318,5,"31",3,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000748.JPG",,,,"","ChuckK/Q1000748" 84319,0,"30",3,0,0,"0","" 84320,12,"",0,0,0,"256","" 84321,72,"806",15,0,0,"0",">NO" 84322,11,"",0,0,0,"256","" 84323,80,"821",2,0,0,"0",">CONVERT TO BINARY" 84324,4,"31",3,0,0,"0","" 84325,0,"30",4,0,0,"0","" 84326,70,"806",18,0,0,"0",">NO" 84327,12,"",0,0,0,"256","" 84328,72,"806",18,0,0,"0",">NO" 84329,11,"",0,0,0,"256","" 84330,80,"821",2,0,0,"0",">CONVERT TO BINARY" 84331,30,"",0,0,0,"1","" 84332,4,"31",2,0,0,"0","" 84333,91,"872",2,0,2,"0","SET(MR2)=0:0" 84334,90,"",0,0,1,"0","SET(MR1)=4:0" 84335,C,"",0,0,0,"4","" 84400,PROCR,"844",,,,"","PM TYPE SWITCH,DEAL WITH TYPES 1 &2" 84401,NOTES,"",RADIX,B,,"","" 84402,85,"780",17,0,0,"0","SWITCH 2,PM TYPE" 84403,C,"844",9,0,0,"0","(1)" 84404,C,"844",9,0,0,"0","(2)" 84405,C,"845",2,0,0,"0","(3)" 84406,C,"845",2,0,0,"0","(4)" 84407,C,"847",2,0,0,"0","(5)" 84408,C,"846",2,0,0,"0","(6)" 84409,0,"30",5,0,1,"0","CHAP NO" 84410,70,"847",2,0,0,"0",">END OF CHAPS" 84411,2,"869",3,0,0,"0","" 84412,70,"844",14,0,0,"0",">YES" 84413,72,"845",44,0,0,"0",">NO ERROR" 84414,1,"869",3,0,0,"0","" 84415,5,"31",4,0,2,"0","" 84416,94,"844",17,0,2,"4","" 84417,94,"844",9,0,1,"1",">NO" 84418,76,"847",2,0,0,"0",">YES" 84500,PROCR,"845",,,,"","DEAL WITH TYPES 3 & 4" 84501,NOTES,"",RADIX,B,,"","" 84502,0,"30",5,0,1,"0","SECN NO" 84503,70,"847",2,0,0,"0",">END OF SECNS" 84504,73,"845",49,0,0,"0",">SECN<0" 84505,12,"",0,0,0,"100","" 84506,72,"845",49,0,0,"0",">SECN>99" 84507,,"30",5,0,1,"0","SECN NO" 84508,80,"821",2,0,0,"0",">CONVERT TO BINARY" 84509,3,"31",4,0,2,"0","" 84510,92,"",0,0,3,"0","SET (MR3)=SECN NO" 84511,0,"15",0,0,3,"0","" 84512,70,"845",49,0,0,"0",">NO ERROR" 84513,0,"27",4,0,0,"0","COMPILER?" 84514,70,"845",22,0,0,"0","NO->" 84515,95,"",0,0,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000749.JPG",,,,"","ChuckK/Q1000749" 84516,3,"875",2,1,0,"0","WL" 84517,124,"999",24,0,3,"0","" 84518,107,"",0,0,0,"0","DOUBLE MR 2" 84519,0,"7",20,2,2,"0","CLEO LENGTH" 84520,91,"875",2,0,2,"0","RESET" 84521,76,"845",25,0,0,"0","" 84522,34,"868",3,0,0,"0","BITS 5->19" 84523,36,"15",0,0,3,"0","SECN LGTH" 84524,30,"",0,0,0,"1-","" 84525,70,"845",49,0,0,"0","LENGTH ZERO" 84526,5,"31",7,0,2,"0","" 84527,34,"868",4,0,0,"0","BIT 20" 84528,36,"15",0,0,3,"0","" 84529,71,"845",35,0,0,"0",">YES" 84530,,"18",1000,0,3,"0","PROCR START" 84531,5,"31",6,0,2,"0","" 84532,80,"836",2,0,0,"0","FORM UP CHAP NO" 84533,30,"",0,0,0,"3","" 84534,76,"845",40,0,0,"0",">" 84535,31,"",0,0,0,"3-","" 84536,5,"31",5,0,2,"0","STORE TA IND" 84537,0,"31",4,0,2,"0","SECN NO" 84538,80,"837",2,0,0,"0",">FORM UP TA PARAMETER" 84539,70,"845",49,0,0,"0",">T A PARAM NOT FOUND" 84540,4,"31",4,0,2,"0","" 84541,94,"845",42,0,2,"4","" 84542,94,"845",2,0,1,"1",">NEXT SECN" 84543,76,"847",2,0,0,"0",">" 84544,10,"",0,0,0,"5e5300","*C" 84545,80,"807",2,0,0,"0",">" 84546,70,"844",17,0,0,"0",">" 84547,80,"808",2,0,0,"0",">" 84548,76,"844",17,0,0,"0",">" 84549,10,"",0,0,0,"5e7200","*S" 84550,80,"807",2,0,0,"0",">" 84551,70,"845",42,0,0,"0",">" 84552,80,"808",2,0,0,"0",">" 84553,76,"845",42,0,0,"0",">" 84554,10,"",0,0,0,"5e6700","*P" 84555,80,"807",2,0,0,"0",">" 84556,70,"846",60,0,0,"0","" 84557,31,"",0,0,0,"1-","" 84558,80,"808",2,0,0,"0",">" 84559,76,"846",60,0,0,"0",">" 84600,PROCR,"846",,,,"","DEAL WITH TYPE 6" 84601,NOTES,"",RADIX,B,,"","" 84602,90,"",0,0,1,"0","SET(MR1)=6:0" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000750.JPG",,,,"","ChuckK/Q1000750" 84603,C,"",0,0,0,"12","" 84604,0,"30",6,0,1,"0","ITEM" 84605,73,"845",54,0,0,"0",">REPORT NEG ITEM" 84606,80,"821",2,0,0,"0",">CONVERT" 84607,5,"31",6,0,2,"0","" 84608,0,"30",5,0,1,"0","REF" 84609,70,"847",2,0,0,"0",">ASSUME END OF DETAILS" 84610,73,"845",54,0,0,"0",">REPORT NEG" 84611,12,"",0,0,0,"999","" 84612,72,"845",54,0,0,"0",">REPORT >998" 84613,0,"30",5,0,1,"0","" 84614,32,"",0,0,0,"2-","" 84615,71,"846",29,0,0,"0",">PROCR" 84616,32,"",0,0,0,"2","" 84617,80,"821",2,0,0,"0",">CONVERT REF" 84618,3,"31",5,0,2,"0","" 84619,92,"",0,0,3,"0","SET(MR3)=BIN SECN" 84620,,"18",1000,0,3,"0","PROCR START" 84621,70,"845",54,0,0,"0",">NON-EXISTANT SECN" 84622,1,"31",6,0,2,"0","ITEM" 84623,5,"31",4,0,2,"0","" 84624,10,"",0,0,0,"10000","SET SEC IND" 84625,4,"31",5,0,2,"0","" 84626,10,"",0,0,0,"0","" 84627,80,"836",2,0,0,"0",">FORM UP CHAP NO" 84628,76,"846",57,0,0,"0",">" 84629,32,"",0,0,0,"2","" 84630,80,"821",2,0,0,"0",">CONVERT REF" 84631,5,"31",5,0,2,"0","" 84632,0,"30",6,0,1,"0","ITEM(3-DIGIT REF)" 84633,12,"",0,0,0,"2","" 84634,73,"845",54,0,0,"0",">REPORT<2" 84635,12,"",0,0,0,"98","" 84636,72,"845",54,0,0,"0",">REPORT>99" 84637,0,"30",5,0,1,"0","REF" 84638,30,"",0,0,0,"2","" 84639,60,"",0,0,0,"0","SET DECIMAL" 84640,1,"30",6,0,1,"0","ITEM" 84641,62,"",0,0,0,"0","RESET BINARY" 84642,80,"780",2,0,0,"0",">UPDATE ADDRESS" 84643,3,"834",2,0,0,"0","" 84644,32,"",0,0,0,"2-","" 84645,5,"30",5,0,1,"0","NEW REF" 84646,32,"",0,0,0,"2","" 84647,5,"30",6,0,1,"0","NEW ITEM" 84648,,"834",2,0,0,"0","" 84649,80,"834",2,0,0,"0",">FORM UP REL ADD" 84650,71,"846",54,0,0,"0",">OK" 84651,0,"822",2,0,0,"0","PROCR START" 84652,70,"845",54,0,0,"0",">REJECT" 84653,1,"821",2,0,0,"0","(BIN ITEM=2)" 84654,5,"31",4,0,2,"0","" 84655,95,"",0,0,5,"0","" 84656,80,"835",2,0,0,"0",">FORM UP CHAP NO" 84657,30,"",0,0,0,"4","" 84658,4,"31",4,0,2,"0","" 84659,94,"846",60,0,2,"3","" 84660,94,"846",4,0,1,"2",">NEXT TRACE POINT" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000751.JPG",,,,"","DaveJ/Q1000751" 84700,PROCR,"847",,,,"","FORM UP M/T BLOCK AND PRINT" 84701,NOTES,"",RADIX,B,,"","" 84702,96,"",0,0,4,"0","DUMP POINT NUMBER" 84703,3,"869",4,0,0,"0","" 84704,11,"",0,0,0,"40","CONVERT TO ALPHA" 84705,1,"870",14,1,0,"0","DDUMP SP" 84706,5,"8",50,1,0,"0","" 84707,0,"870",10,1,0,"0","FILES" 84708,5,"8",4,1,0,"0","" 84709,55,"31",0,0,0,"22","" 84710,C,"8",6,1,0,"0","" 84711,80,"816",2,0,0,"0","WRITE" 84712,52,"5",2,0,0,"0","" 84713,C,"877",2,0,0,"0","" 84714,0,"30",1,0,0,"0","TEST TYPE 6" 84715,12,"",0,0,0,"6","" 84716,70,"847",20,0,0,"0",">YES" 84717,52,"5",18,0,0,"0","" 84718,C,"877",16,0,0,"0","" 84719,76,"847",31,0,0,"0","" 84720,52,"5",18,0,0,"0","" 84721,C,"877",34,0,0,"0","" 84722,90,"",0,0,3,"0","LEFT ALIGN ITEMS" 84723,C,"",0,0,0,"24","" 84724,10,"",0,0,0,"0","" 84725,34,"5",22,1,3,"0","" 84726,32,"",0,0,0,"2","" 84727,70,"847",26,0,0,"0","" 84728,32,"",0,0,0,"8","" 84729,5,"5",22,1,3,"0","" 84730,94,"847",25,0,3,"4","" 84731,80,"817",2,0,0,"0",">PRINT" 84732,82,"842",2,0,0,"0",">" 84800,PROCR,"848",,,,"","PROCESS AND PRINT T.D. HEADING" 84801,NOTES,"",RADIX,B,,"","" 84802,81,"848",2,0,0,"0","" 84803,52,"5",2,0,0,"0","EDIT" 84804,C,"878",2,0,0,"0","" 84805,0,"872",6,1,0,"0","HEAD OF FORM" 84806,80,"817",2,0,0,"0","PRINT" 84807,83,"826",4,0,0,"2","SET FIEND SWITCH" 84808,82,"848",2,0,0,"0","" 84900,PROCR,"849",,,,"","PROCESS TRIAL DATA HEADING S/R (1)" 84901,NOTES,"",RADIX,B,,"","" 84902,81,"849",2,0,0,"0","" 84903,0,"16",2,0,0,"0","PROG ID" 84904,5,"31",0,2,0,"0","" 84905,5,"871",42,1,0,"0","CLEAR ERROR W/L" 84906,0,"30",4,0,0,"0","RUN NO" 84907,3,"32",167,0,0,"0","" 84908,5,"31",6,2,0,"0","" 84909,0,"30",7,0,0,"0","T D SET NO" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000752.JPG",,,,"","DaveJ/Q1000752" 84910,71,"849",17,0,0,"0",">NON-ZERO" 84911,80,"867",2,0,0,"0",">STEP'OTHERS'" 84912,0,"871",12,1,0,"0","SET ERROR WORD=SET" 84913,30,"",0,0,0,"4-","" 84914,5,"871",42,1,0,"0","" 84915,10,"",0,0,0,"9","SET T D SET=9" 84916,3,"30",7,0,0,"0","" 84917,3,"31",12,2,0,"0","STORE FOR O/P" 84918,0,"30",5,0,0,"0","MAX BLOCK SIZE" 84919,12,"",0,0,0,"1001","TEST>1000" 84920,73,"849",26,0,0,"0",">NO" 84921,0,"871",32,1,0,"0","SET UP ERROR REPORT" 84922,5,"871",42,1,0,"0","" 84923,80,"867",2,0,0,"0",">STEP'OTHERS'" 84924,0,"30",5,0,0,"0","" 84925,12,"",0,0,0,"1001","" 84926,11,"",0,0,0,"1001","" 84927,3,"32",168,0,0,"0","" 84928,3,"31",16,2,0,"0","" 84929,80,"821",2,0,0,"0",">CONVERT TO BINARY" 84930,31,"",0,0,0,"1","FORM(2N-4)" 84931,12,"",0,0,0,"4","" 84932,5,"31",10,2,0,"0","" 84933,0,"30",8,0,0,"0","FIXED/VARIABLE IND" 84934,3,"31",18,2,0,"0","" 84935,70,"849",41,0,0,"0",">FIXED SET UP IND IN" 84936,10,"",0,0,0,"1","" 84937,3,"30",8,0,0,"0","" 84938,5,"31",18,2,0,"0","" 84939,0,"871",38,1,0,"0"," TD HEADING" 84940,76,"849",42,0,0,"0",">VAR" 84941,0,"871",36,1,0,"0","" 84942,5,"871",40,1,0,"0","" 85000,PROCR,"850",,,,"","PROCESS TRIAL DATA HEADING (2)" 85001,NOTES,"",RADIX,B,,"","" 85002,0,"30",11,0,0,"0","TEST TRUE FILE ID ZERO" 85003,70,"850",13,0,0,"0",">YES" 85004,32,"",0,0,0,"3-","" 85005,5,"869",2,0,0,"0","COPY ALPHA PART TO W/L" 85006,0,"30",3,0,0,"0","TEST ALPHA PART OF" 85007,32,"",0,0,0,"3-","RTE IDENTIFIER=" 85008,2,"869",2,0,0,"0","STORED ALPHA VALUE" 85009,70,"850",11,0,0,"0",">YES" 85010,80,"809",2,0,0,"0",">ERROR S/R" 85011,0,"30",10,1,0,"0","" 85012,76,"850",15,0,0,"0",">" 85013,0,"30",2,1,0,"0","SET TRUE FILE ID=" 85014,3,"30",10,1,0,"0","ROUTE IDENTIFIER" 85015,30,"",0,0,0,"6-","" 85016,5,"31",4,1,0,"0","" 85017,0,"30",2,1,0,"0","STORE RTE IDENTIFIER" 85018,30,"",0,0,0,"6-","" 85019,5,"31",20,1,0,"0","" 85020,0,"24",1,0,0,"0","" 85021,70,"850",30,0,0,"0",">NO FILES" 85022,91,"24",0,0,1,"0","SET(MR1)=2R/0" 85023,,"24",5,0,1,"0","B7-20=FILE ID" 85024,31,"",0,0,0,"6-","" 85025,11,"",0,0,0,"4000","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000753.JPG",,,,"","DaveJ/Q1000753" 85026,30,"",0,0,0,"1","" 85027,2,"30",3,0,0,"0","" 85028,70,"850",35,0,0,"0",">YES" 85029,94,"850",23,0,1,"2","" 85030,10,"",0,0,0,"7777","DUMMY FILE IDENTY'XX'" 85031,3,"31",20,1,0,"0","ON MAG TAPE" 85032,30,"",0,0,0,"6","" 85033,5,"30",2,1,0,"0","AND PRINTER" 85034,80,"809",2,0,0,"0",">ERROR S/R" 85035,10,"",0,0,0,"3p","BITS 1-6" 85036,32,"",0,0,0,"10-","" 85037,36,"24",5,0,1,"0","" 85038,12,"",0,0,0,"7","" 85039,70,"850",45,0,0,"0",">YES 7" 85040,12,"",0,0,0,"1","" 85041,70,"850",45,0,0,"0",">YES 8" 85042,12,"",0,0,0,"3","" 85043,70,"850",45,0,0,"0",">YES 11" 85044,80,"809",2,0,0,"0",">ERROR S/R" 85045,95,"",0,0,1,"0","FORM UP RTE PARAM" 85046,31,"",0,0,0,"1-","" 85047,11,"",0,0,0,"1","" 85048,1,"869",3,0,0,"0","NO OF INITIAL CHAPS" 85049,1,"869",3,0,0,"0","" 85050,5,"31",2,2,0,"0","" 85051,0,"30",6,0,0,"0","SECN NO" 85052,3,"32",169,0,0,"0","" 85053,3,"31",14,2,0,"0","" 85054,80,"821",2,0,0,"0",">CONVERT TO BINARY" 85055,80,"837",2,0,0,"0",">FORM UP PARAMETER" 85056,71,"850",58,0,0,"0",">T.A.PARAMETER FOUND" 85057,80,"809",2,0,0,"0",">ERROR S/R" 85058,30,"",0,0,0,"3-","" 85059,5,"31",8,2,0,"0","" 85060,80,"818",2,0,0,"0",">LINE FEED S/R" 85061,80,"818",2,0,0,"0",">LINE FEED S/R" 85062,54,"8",0,0,0,"54","" 85063,0,"870",6,1,0,"0","CHAPT" 85064,5,"8",4,1,0,"0","" 85065,55,"31",0,1,0,"22","" 85066,C,"8",6,1,0,"0","" 85067,80,"816",2,0,0,"0","WRITE" 85068,54,"32",0,0,0,"60","CLEAR W/L'S" 85069,10,"",0,0,0,"8","SET BLOCK CTR AT 8" 85070,5,"32",14,0,0,"0","" 85071,90,"",0,0,1,"0","SET (MR1) AT 24:0" 85072,C,"",0,0,0,"24","" 85073,0,"30",8,0,0,"0","FIXED/VARIABLE IND" 85074,11,"",0,0,0,"1","" 85075,84,"785",2,0,0,"0","SET BLOCK LGTH SWITCH" 85076,82,"849",2,0,0,"0","" 85100,PROCR,"851",,,,"","OUTPUT M/T BLOCK S/R" 85101,NOTES,"",RADIX,B,,"","" 85102,81,"851",2,0,0,"0","" 85103,85,"781",2,0,0,"0","TEST THIS IS FIRST WORD OF TD BLOCK" 85104,C,"851",8,0,0,"0",">NO" 85105,C,"851",6,0,0,"0",">YES" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000754.JPG",,,,"","DaveJ/Q1000754" 85106,83,"781",2,0,0,"1","SET FIRST WORD SWITCH AT 1" 85107,76,"851",23,0,0,"0","" 85108,94,"851",23,0,1,"2",">NO TEST END OF BLOCK" 85109,90,"",0,0,3,"0","" 85110,C,"",0,0,0,"24","" 85111,90,"",0,0,1,"0","" 85112,C,"",0,0,0,"48","" 85113,0,"32",37,0,3,"0","" 85114,5,"8",4,2,1,"0","" 85115,0,"32",36,0,3,"0","" 85116,5,"8",6,2,1,"0","" 85117,94,"",0,0,1,"4","" 85118,94,"851",13,0,3,"2","" 85119,80,"816",2,0,0,"0",">WRITE" 85120,90,"",0,0,1,"0","RESET (MR1)" 85121,C,"",0,0,0,"24","" 85122,54,"32",36,0,0,"24","CLEAR W/L'S" 85123,82,"851",2,0,0,"0","" 85200,PROCR,"852",,,,"","EDIT NEXT PRINTER TRIAL DATA LINE+BLOCK NUMBER IF REQUIRED" 85201,NOTES,"",RADIX,B,,"","" 85202,81,"852",2,0,0,"0","" 85203,85,"849",4,0,0,"0","TEST BLOCK TO BE EDITED" 85204,C,"852",21,0,0,"0",">NO " 85205,C,"852",6,0,0,"0",">YES" 85206,52,"5",2,0,0,"0","EDIT BLOCK NO" 85207,C,"879",2,0,0,"0","" 85208,60,"",0,0,0,"0","" 85209,10,"",0,0,0,"1","" 85210,4,"32",14,0,0,"0","STEP IT READY FOR NEXT BLOCK" 85211,62,"",0,0,0,"0","" 85212,83,"849",2,0,0,"1","SET BLOCK NO SWITCH" 85213,0,"32",14,0,0,"0","" 85214,32,"",0,0,0,"4-","" 85215,70,"852",20,0,0,"0",">NOT EX PT" 85216,10,"",0,0,0,"2+2+0",">>'" 85217,5,"5",3,0,0,"0","" 85218,32,"",0,0,0,"4","" 85219,5,"32",14,0,0,"0","CLEAR IND" 85220,76,"852",22,0,0,"0","" 85221,80,"819",2,0,0,"0","CLEAR ANNEXE START" 85222,52,"5",6,0,0,"0","EDIT LINE" 85223,C,"879",8,0,0,"0","" 85224,95,"",0,0,1,"0","SET 'EX PT' INDS" 85225,5,"869",14,1,0,"0","WL" 85226,95,"",0,0,2,"0","" 85227,5,"908",54,1,0,"0","WL" 85228,90,"",0,0,1,"0","SCAN WORD NUMBERS" 85229,C,"",0,0,0,"7","" 85230,90,"",0,0,2,"0","SCAN SEC 5" 85231,C,"",0,0,0,"42","" 85232,,"32",15,0,1,"0","" 85233,72,"852",37,0,0,"0",">NORMAL" 85234,35,"",0,0,0,"110","" 85235,10,"",0,0,0,"2t0","'->'" 85236,37,"5",7,0,2,"0","" 85237,94,"",0,0,1,"1","" 85238,94,"852",32,0,2,"6","" 85239,91,"869",14,0,1,"0","RESTORE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000755.JPG",,,,"","ChuckK/Q1000755" 85240,91,"908",54,0,2,"0","" 85241,82,"852",2,0,0,"0","" 85300,PROCR,"853",,,,"","END OF TRIAL DATA BLOCK S/R" 85301,NOTES,"",RADIX,B,,"","" 85302,81,"853",2,0,0,"0","" 85303,80,"852",2,0,0,"0",">EDIT BLOCK NO IF REQD" 85304,10,"",0,0,0,"2t","SET(MR3)=42/3XMR" 85305,30,"",0,0,0,"5","" 85306,98,"",0,0,2,"0","" 85307,98,"",0,0,2,"0","" 85308,98,"",0,0,2,"0","" 85309,91,"",0,0,3,"0","" 85310,54,"5",6,0,3,"6","CLEAR REST OF ANNEXE" 85311,94,"853",10,0,3,"6","" 85312,5,"32",139,0,0,"0","CLEAR LINE CTR" 85313,80,"817",2,0,0,"0","PRINT" 85314,85,"787",4,0,0,"0","" 85315,C,"853",22,0,0,"0",">NO" 85316,C,"853",17,0,0,"0",">YES" 85317,52,"5",6,0,0,"0","EDIT LINE" 85318,C,"880",2,0,0,"0","" 85319,80,"819",2,0,0,"0","CLEAR ANNEXE START" 85320,80,"817",2,0,0,"0","PRINT" 85321,54,"32",22,0,0,"14","" 85322,83,"786",4,0,0,"3","" 85323,82,"853",2,0,0,"0","" 85400,PROCR,"854",,,,"","PROCESS DUMP POINT FROM MT" 85401,NOTES,"",RADIX,B,,"","" 85402,00,"7",6,2,0,"0","I/C SERIAL" 85403,05,"30",0,0,0,"0","" 85404,35,"",0,0,0,"10000","" 85405,36,"7",10,2,0,"0","PM TYPE" 85406,30,"",0,0,0,"4-","" 85407,05,"30",1,0,0,"0","" 85408,35,"",0,0,0,"11000","N1" 85409,36,"7",12,2,0,"0","" 85410,30,"",0,0,0,"3-","" 85411,80,"822",2,0,0,"0",">CONVERT TO DEC" 85412,05,"30",2,0,0,"0","" 85413,35,"",0,0,0,"11","N2" 85414,36,"7",12,2,0,"0","" 85415,80,"822",2,0,0,"0",">CONVERT TO DEC" 85416,05,"30",3,0,0,"0","" 85417,35,"",0,0,0,"110","N3" 85418,36,"7",10,2,0,"0","" 85419,30,"",0,0,0,"1-","" 85420,80,"822",2,0,0,"0",">CONVERT TO DEC" 85421,05,"30",4,0,0,"0","" 85500,PROCR,"855",,,,"","-2" 85501,NOTES,"",RADIX,B,,"","" 85502,00,"30",1,0,0,"0","" 85503,12,"",0,0,0,"6","" 85504,71,"855",19,0,0,"0",">NO" 85505,90,"",0,0,1,"0","SET (MR1)=6:0" 85506,C,"",0,0,0,"12","" 85507,91,"872",2,0,2,"0","SET (MR2)=0:0" 85508,10,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000756.JPG",,,,"","ChuckK/Q1000756" 85509,35,"",0,0,0,"1111","" 85510,36,"7",16,2,2,"0","REF" 85511,80,"822",2,0,0,"0",">CONVERT TO DEC" 85512,5,"30",5,0,1,"0","" 85513,0,"7",18,2,2,"0","ITEM" 85514,80,"822",2,0,0,"0",">CONVERT TO DEC" 85515,5,"30",6,0,1,"0","" 85516,94,"855",17,0,2,"6","" 85517,94,"855",8,0,1,"2",">NEXT ONE" 85518,76,"855",36,0,0,"0",">" 85519,0,"30",1,0,0,"0",";TEST TYPE 5" 85520,12,"",0,0,0,"5","" 85521,71,"855",26,0,0,"0",">NO" 85522,5,"30",5,0,0,"0","CLEAR W/L'S" 85523,5,"30",6,1,0,"0","" 85524,5,"30",8,1,0,"0","" 85525,76,"855",36,0,0,"0",">" 85526,90,"",0,0,1,"0","SET (MR1)=4:0" 85527,C,"",0,0,0,"4","" 85528,91,"872",2,0,2,"0","SET (MR2)=0:0" 85529,10,"",0,0,0,"0","" 85530,35,"",0,0,0,"111","" 85531,36,"7",14,2,2,"0","CHAP OR SECN NO" 85532,80,"822",2,0,0,"0",">CONVERT TO DEC" 85533,5,"30",5,0,1,"0","" 85534,94,"855",35,0,2,"8","" 85535,94,"855",29,0,1,"1",">NEXT ONE" 85536,80,"842",2,0,0,"0",">PROCESS DUMPS POINT" 85537,76,"789",22,0,0,"0","" 85600,PROCR,"856",,,,"","PRINT FILE UNALTERED S/R" 85601,NOTES,"",RADIX,B,,"","" 85602,81,"856",2,0,0,"0","" 85603,0,"27",0,0,0,"0",";TEST ISSUE 6 OR" 85604,30,"",0,0,0,"4-",";EARLIER" 85605,12,"",0,0,0,"7","" 85606,72,"856",55,0,0,"0",">NO" 85607,0,"7",10,1,0,"0","FILE ID" 85608,5,"30",10,1,0,"0","" 85609,0,"7",12,2,0,"0","RUN NO" 85610,5,"30",4,0,0,"0","" 85611,5,"30",7,0,0,"0","SET NO" 85612,5,"30",8,0,0,"0","IND" 85613,0,"7",16,2,0,"0","TA LGTH" 85614,31,"",0,0,0,"1-","" 85615,80,"822",2,0,0,"0",">TO DEC" 85616,5,"30",5,0,0,"0","" 85617,62,"",0,0,0,"0","" 85618,0,"7",14,2,0,"0","P RTE PARAM" 85619,30,"",0,0,0,"3",";SEARCH LIST FOR" 85620,5,"869",2,0,0,"0","W/L;SECN ASSOCIATED" 85621,91,"24",2,0,3,"0","2(R+T):2R;WITH THIS P RTE" 85622,94,"856",24,0,3,"0","/////" 85623,76,"856",30,0,0,"0",">NO TX AREAS" 85624,35,"",0,0,0,"11000","" 85625,36,"24",4,0,3,"0","" 85626,2,"869",2,0,0,"0","" 85627,70,"856",31,0,0,"0",">SECN FOUND" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000757.JPG",,,,"","ChuckK/Q1000757" 85628,10,"",0,0,0,"0","" 85629,94,"856",24,0,3,"2","" 85630,80,"809",2,0,0,"0","NOT FOUND ERROR S/R" 85631,35,"",0,0,0,"111","" 85632,36,"24",4,0,3,"0","SECN NO" 85633,80,"821",2,0,0,"0",">TO BIN" 85634,5,"30",6,0,0,"0","" 85635,0,"7",8,2,0,"0","RTE PARAM" 85636,2,"869",3,0,0,"0","NO OF CHAPS" 85637,2,"869",3,0,0,"0","" 85638,12,"",0,0,0,"1","" 85639,31,"",0,0,0,"1","" 85640,91,"",0,0,3,"0","" 85641,,"24",5,0,3,"0","FILE ID BITS 7-20" 85642,31,"",0,0,0,"6-","" 85643,11,"",0,0,0,"4000","RESTORE TOP CONTROL" 85644,30,"",0,0,0,"6","" 85645,5,"30",2,1,0,"0","TRUE FILE ID OF TRIAL DATA SET" 85646,80,"849",2,0,0,"0",">PROCESS T D HEADING" 85647,80,"848",2,0,0,"0",">PRINT T D HEADING" 85648,10,"",0,0,0,"8","SET BLOCK CTR 2 AT 8" 85649,5,"32",138,0,0,"0","" 85650,90,"",0,0,8,"22","SET(MR8)=24:22" 85651,C,"",0,0,0,"24","" 85652,80,"861",2,0,0,"0",">READ AND STORE BLOCK" 85653,80,"864",2,0,0,"0",">PRINT T D SET" 85654,82,"856",2,0,0,"0",">" 85655,80,"794",2,0,0,"0",">PROCESS T D HEADING" 85656,,"23",46,0,0,"0"," 'PRINTOUT'INDICATOR" 85657,71,"856",47,0,0,"0",">PRINT ALL B/FWD DATA" 85658,0,"871",42,1,0,"0","ERROR WORD" 85659,71,"856",47,0,0,"0",">HEADING REPORTED;PRINT WHOLE SET" 85660,0,"7",26,1,0,"0","STORE FILE ID" 85661,5,"871",44,0,0,"0","" 85662,52,"5",2,0,0,"0","EDIT 'FILE UNALTERED' LINE" 85663,C,"881",2,0,0,"0","" 85664,80,"817",2,0,0,"0",">PRINT" 85665,80,"857",2,0,0,"0",">READ,TEST CHAPT,PREND OR E" 85666,70,"856",69,0,0,"0",">YES" 85667,80,"815",2,0,0,"0",">WRITE A2" 85668,76,"856",65,0,0,"0",">" 85669,83,"826",4,0,0,"1","SET FIEND SWITCH AT 1" 85670,82,"856",2,0,0,"0","" 85700,PROCR,"857",,,,"","READ A1,TEST CHAPT PREND OR E" 85701,NOTES,"",RADIX,B,,"","" 85702,81,"857",2,0,0,"0","" 85703,80,"810",2,0,0,"0",">READ A1" 85704,0,"7",4,1,0,"0","",";TEST PREND" 85705,2,"870",8,1,0,"0","",";TEST PREND" 85706,70,"857",12,0,0,"0",">YES" 85707,1,"870",8,1,0,"0","" 85708,2,"870",6,1,0,"0","",";TEST CHAPT" 85709,70,"857",12,0,0,"0",">YES" 85710,1,"870",6,1,0,"0","",";TEST E" 85711,12,"",0,0,0,"55","" 85712,82,"857",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000758.JPG",,,,"","DaveJ/Q1000758" 85800,PROCR,"858",,,,"","FORM TD WORD FOR PRINTING S/R" 85801,NOTES,"",RADIX,B,,"","" 85802,81,"858",2,0,0,"0","" 85803,00,"32",0,1,2,"0","TEST ERROR WORD" 85804,02,"872",16,1,0,"0","" 85805,71,"858",10,0,0,"0",">NO" 85806,00,"872",16,1,0,"0","" 85807,05,"32",22,1,2,"0","" 85808,83,"787",4,0,0,"2","SET -LINE SWITCH AT 2" 85809,76,"858",71,0,0,"0","" 85810,10,"",0,0,0,"3p","SET (B)=63" 85811,32,"",0,0,0,"10-","" 85812,36,"32",0,1,2,"0","TEST WORD CONTAINS" 85813,05,"32",122,1,0,"0","W/L" 85814,36,"872",8,1,0,"0","" 85815,02,"32",122,1,0,"0","" 85816,70,"858",62,0,0,"0",">YES" 85817,10,"",0,0,0,"0","" 85818,36,"872",10,1,0,"0","TEST WORD CONTAINS" 85819,02,"32",122,1,0,"0","" 85820,70,"858",69,0,0,"0",">YES" 85821,32,"",0,0,0,"2","" 85822,10,"",0,0,0,"0","TEST END OF WORD" 85823,75,"858",12,0,0,"0",">NO" 85824,85,"786",4,0,0,"0","TEST B/E FOUND" 85825,C,"858",71,0,0,"0",">NO" 85826,C,"858",28,0,0,"0",">YES" 85827,C,"803",38,0,0,"0","GHASTLY MISTAKE" 85828,,"872",4,1,0,"0","SAFETY" 85829,5,"32",36,1,1,"0","" 85830,0,"32",0,1,2,"0","" 85831,12,"",0,0,0,"5200000052","" 85832,70,"858",37,0,0,"0",">YES" 85833,35,"",0,0,0,"110000","ERROR REPORT B" 85834,10,"",0,0,0,"525963","BIL" 85835,37,"871",42,1,0,"0","" 85836,80,"867",2,0,0,"0",">ADD ONE TO OTHERS CTR" 85837,85,"785",2,0,0,"0",";TEST BLOCK AND ITEM" 85838,C,"858",87,0,0,"0",">NO;LGHS BEING CHECKED" 85839,C,"858",40,0,0,"0",">YES" 85840,96,"",0,0,2,"0",";FORM UP WORD NO" 85841,31,"",0,0,0,"1-",";OF B/E WORD" 85842,92,"",0,0,3,"0","" 85843,10,"",0,0,0,"0","" 85844,35,"",0,0,0,"1111","" 85845,36,"32",15,0,3,"0","" 85846,02,"32",166,0,0,"0",";WORD CORRECT" 85847,70,"858",52,0,0,"0",">YES" 85848,35,"",0,0,0,"11","ERROR REPORT L" 85849,10,"",0,0,0,"525963","" 85850,37,"871",42,1,0,"0","" 85851,80,"867",2,0,0,"0",">ADD ONE TO OTHERS CTR" 85852,10,"",0,0,0,"0","" 85853,35,"",0,0,0,"1111","" 85854,36,"32",15,0,3,"0","" 85855,02,"32",165,0,0,"0",";LGTHS CORRECT" 85856,70,"858",74,0,0,"0",">OK" 85857,35,"",0,0,0,"1100","ERROR REPORT 1" 85858,10,"",0,0,0,"525963","" 85859,37,"871",42,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000759.JPG",,,,"","DaveJ/Q1000759" 85860,80,"867",2,0,0,"0",">ADD ONE TO 'OTHERS'CTR" 85861,76,"858",74,0,0,"0","" 85862,83,"786",4,0,0,"2","SET B/E FOUND SWITCH AT 2" 85863,0,"872",12,1,0,"0","REPLACE B/E BY B" 85864,37,"32",0,1,2,"0","" 85865,0,"872",16,1,0,"0","SET UP *" 85866,37,"32",22,1,2,"0","" 85867,83,"787",4,0,0,"2","SET*LINE SWITCH AT 2" 85868,76,"858",21,0,0,"0",">" 85869,0,"872",14,1,0,"0","REPLACE L/E BY L" 85870,76,"858",64,0,0,"0",">" 85871,85,"785",2,0,0,"0","CHECK BLOCK AND ITEM LENGTH'" 85872,C,"858",87,0,0,"0",">NO" 85873,C,"858",74,0,0,"0",">YES" 85874,96,"",0,0,2,"0","" 85875,31,"",0,0,0,"1-","" 85876,5,"839",2,0,0,"0","WL" 85877,35,"",0,0,0,"1111","" 85878,124,"839",2,0,1,"0","" 85879,36,"32",15,0,0,"0","PRINTER WORD NUMBER" 85880,2,"32",165,0,0,"0","POSITION OF NEXT ITEM LENGTH WORD" 85881,71,"858",87,0,0,"0",">NOT ITEM LENGTH POSITION" 85882,,"32",36,2,1,"0","ITEM LENGTH" 85883,80,"822",2,0,0,"0",">DEC" 85884,60,"",0,0,0,"0","" 85885,4,"32",165,0,0,"0","EXPECTED POSITION NEXT ITEM LENGTH WORD" 85886,62,"",0,0,0,"0","" 85887,80,"851",2,0,0,"0",">WRITE O/P IF FULL" 85888,94,"859",22,0,2,"2","PRINTER LINE N OT FULL" 85889,90,"",0,0,3,"0","TEST ZERO ANNEX" 85890,C,"",0,0,0,"14","" 85891,,"32",0,1,3,"0","" 85892,71,"859",2,0,0,"0",">SOMETHING TO PRINT" 85893,94,"858",91,0,3,"2","" 85894,76,"859",16,0,0,"0",">NOTHING TO PRINT" 85900,PROCR,"859",,,,"","PRINT LINE OF TRIAL DATA" 85902,80,"852",2,0,0,"0",">EDIT BLOCK NUMBER" 85903,80,"817",2,0,0,"0",">PRINT" 85904,85,"787",2,0,0,"0","LAST LINE CONTAINED FUNNIES'" 85905,C,"859",16,0,0,"0",">NO" 85906,C,"859",7,0,0,"0",">YES" 85907,80,"819",2,0,0,"0",">CLEAR FRONT OF ANNEX" 85908,52,"5",6,0,0,"0","EDIT WEIRD LINE" 85909,C,"880",2,0,0,"0","" 85910,80,"817",2,0,0,"0",">PRINT" 85911,54,"32",22,1,0,"14","" 85912,85,"786",2,0,0,"0","BEW FOUND IN MT TRIAL DATA'" 85913,C,"859",16,0,0,"0",">NO" 85914,C,"859",21,0,0,"0",">YES" 85915,C,"803",38,0,0,"0",">GHASTLY MISTAKE" 85916,90,"",0,0,2,"0","" 85917,C,"",0,0,0,"14","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000760.JPG",,,,"","DaveJ/Q1000760" 85918,80,"839",2,0,0,"0",">STEP MT WORD NUMBERS" 85919,83,"787",2,0,0,"1","CLEAR'FUNNY LINE'IND" 85920,82,"858",2,0,0,"0","" 85921,83,"786",2,0,0,"3","SET'BEW FOUND AND PRINTED'" 85922,82,"858",2,0,0,"0","" 86000,PROCR,"860",,,,"","PROCESS UNAMENDED TRIAL DATA WORD EX MT" 86001,NOTES,"",RADIX,B,,"","" 86002,81,"860",2,0,0,"0","" 86003,0,"32",140,1,8,"0","NEXT I/P MT WORD" 86004,3,"32",36,1,1,"0","STORE FOR MT O/P" 86005,5,"32",0,1,2,"0","STORE FOR PRINTING" 86006,85,"781",2,0,0,"0","TEST 1ST WORD OF BLOCK" 86007,C,"860",22,0,0,"0",">NO" 86008,C,"860",9,0,0,"0",">YES" 86009,85,"785",2,0,0,"0","TEST BLOCK AND ITEM LGTHS TO BE CHECKED" 86010,C,"860",17,0,0,"0",">NO" 86011,C,"860",12,0,0,"0",">YES" 86012,10,"",0,0,0,"6","SET ITEM LGTH POSN=6" 86013,3,"32",165,0,0,"0","" 86014,1,"32",0,2,2,"0","FORM AND STORE POSN OF B/E WORD" 86015,80,"822",2,0,0,"0",">CONVERT TO DEC" 86016,5,"32",166,0,0,"0","" 86017,83,"781",2,0,0,"1","SET SWITCH AT 1" 86018,0,"32",0,1,2,"0","(DON'T PRINT FIRST WORD IN'WORD 2'POSITION" 86019,5,"32",2,1,2,"0","NEXT POSN" 86020,5,"32",0,1,2,"0","" 86021,94,"860",22,0,2,"2","STEP(MR2)" 86022,80,"858",2,0,0,"0",">PROCESS WORD" 86023,80,"861",2,0,0,"0",">ADDRESS NEXT I/P MT WORD" 86024,82,"860",2,0,0,"0",">LEAVE S/R" 86100,PROCR,"861",,,,"","ADDRESS NEXT I/P TRIAL DATA WORD EX MT" 86101,NOTES,"",RADIX,B,,"","" 86102,81,"861",2,0,0,"0","" 86103,,"32",140,1,8,"0","LAST MT WORD" 86104,2,"872",4,1,0,"0","BEW" 86105,71,"861",10,0,0,"0",">NO" 86106,60,"",0,0,0,"0","" 86107,10,"",0,0,0,"1","" 86108,4,"32",138,0,0,"0","" 86109,62,"",0,0,0,"0","STEP I/P BLOCK CTR" 86110,94,"861",27,0,8,"2","" 86111,80,"810",2,0,0,"0",">READ A1" 86112,95,"",0,0,1,"0","PRESERVE" 86113,5,"875",2,1,0,"0","" 86114,90,"",0,0,1,"0","COPY NEXT I/P BLOCK" 86115,C,"",0,0,0,"48","" 86116,90,"",0,0,3,"0","" 86117,C,"",0,0,0,"24","" 86118,0,"7",4,2,1,"0","" 86119,30,"",0,0,0,"5","" 86120,1,"7",6,2,1,"0","" 86121,5,"32",140,1,3,"0","" 86122,94,"",0,0,1,"4","" 86123,94,"861",18,0,3,"2","" 86124,91,"875",2,0,1,"0","RESTORE MR1" 86125,90,"",0,0,8,"0","RESET (MR8)" 86126,C,"",0,0,0,"24","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000761.JPG",,,,"","DaveJ/Q1000761" 86127,82,"861",2,0,0,"0","" 86200,PROCR,"862",,,,"","READ TO END OF BLOCK S/R" 86201,NOTES,"",RADIX,B,,"","" 86202,81,"862",2,0,0,"0","" 86203,00,"32",140,1,8,"0",";TEST B/E WORD" 86204,02,"872",4,1,0,"0","" 86205,70,"862",8,0,0,"0",">YES LEAVE S/R" 86206,80,"861",2,0,0,"0",">STEP MR8 S/R" 86207,76,"862",3,0,0,"0",">" 86208,80,"861",2,0,0,"0",">ADDRESS NEXT I/P MT WORD S/R" 86209,82,"862",2,0,0,"0",">" 86300,PROCR,"863",,,,"","PROCESS TO END OF TD BLOCK S/R" 86301,NOTES,"",RADIX,B,,"","" 86302,81,"863",2,0,0,"0","" 86303,85,"786",4,0,0,"0","B/E SWITCH" 86304,C,"863",7,0,0,"0",">NO" 86305,C,"863",9,0,0,"0",">YES" 86306,C,"863",10,0,0,"0",">YES","AT END OF LINE" 86307,80,"860",2,0,0,"0",">PROCESS WORD" 86308,76,"863",3,0,0,"0",">" 86309,80,"853",2,0,0,"0",">END OF TRIAL DATA BLOCK S/R" 86310,82,"863",2,0,0,"0","" 86400,PROCR,"864",,,,"","WRITE AND PRINT TO FIEND S/R" 86401,NOTES,"",RADIX,B,,"","" 86402,81,"864",2,0,0,"0","" 86403,00,"7",4,1,0,"0",";TEST PREND OR" 86404,02,"870",8,1,0,"0",";E BLOCK IN ANNEXE" 86405,70,"864",22,0,0,"0",">YES" 86406,01,"870",8,1,0,"0","" 86407,12,"",0,0,0,"55","" 86408,70,"864",22,0,0,"0",">YES" 86409,11,"",0,0,0,"55",";TEST CHAPT" 86410,02,"870",6,1,0,"0","" 86411,70,"864",22,0,0,"0",">YES" 86412,96,"",0,0,8,"0",";TEST FIEND REACHED" 86413,98,"",0,0,8,"0","" 86414,92,"",0,0,2,"0","" 86415,00,"7",4,1,2,"0","" 86416,02,"870",4,1,0,"0","" 86417,70,"864",21,0,0,"0",">YES" 86418,80,"838",2,0,0,"0",">RESET WORD NOS,MR2 AND SWITCHES" 86419,80,"863",2,0,0,"0",">PROCESS TO END OF T.D.BLOCK" 86420,76,"864",12,0,0,"0","" 86421,80,"810",2,0,0,"0","READ A1" 86422,85,"826",4,0,0,"0","FIEND SWITCH" 86423,C,"864",53,0,0,"0","" 86424,C,"864",25,0,0,"0","" 86425,90,"",0,0,12,"0","" 86426,C,"",0,0,0,"24","" 86427,90,"",0,0,3,"0","" 86428,C,"",0,0,0,"48","" 86429,00,"32",37,0,12,"0","" 86430,05,"8",4,2,3,"0","" 86431,00,"32",36,0,12,"0","" 86432,05,"8",6,2,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000762.JPG",,,,"","DaveJ/Q1000762" 86433,94,"",0,0,3,"4","" 86434,94,"864",29,0,12,"2","" 86435,96,"",0,0,1,"0","" 86436,98,"",0,0,1,"0","" 86437,92,"",0,0,1,"0","" 86438,00,"870",4,1,0,"0","FIEND" 86439,05,"8",4,1,1,"0","" 86440,80,"816",2,0,0,"0","WRITE" 86441,52,"5",2,0,0,"0","" 86442,C,"879",2,0,0,"0","EDIT BLOCK NUMBER" 86443,10,"",0,0,0,"5659655972","FINIS'" 86444,5,"5",8,1,0,"0","" 86445,,"27",9,0,0,"0","" 86446,70,"864",49,0,0,"0",">YES" 86447,54,"5",10,0,0,"40","CLEAR REST OF LINE" 86448,76,"864",51,0,0,"0",">PRINT" 86449,0,"872",4,1,0,"0","BEW" 86450,5,"5",10,1,0,"0","" 86451,80,"817",2,0,0,"0",">PRINT" 86452,83,"826",4,0,0,"1","RESET FIEND SWITCH" 86453,82,"864",2,0,0,"0","" 86500,PROCR,"865",,,,"","ADD ONE TO P/T OMITTED COUNTER" 86502,81,"865",2,0,0,"0","" 86503,10,"",0,0,0,"1","" 86504,60,"",0,0,0,"0","" 86505,04,"869",5,0,0,"0","" 86506,62,"",0,0,0,"0","" 86507,82,"865",2,0,0,"0","" 86600,PROCR,"866",,,,"","ADD ONE TO DISASTROUS COUNTER" 86602,81,"866",2,0,0,"0","" 86603,10,"",0,0,0,"1","" 86604,60,"",0,0,0,"0","" 86605,04,"869",6,0,0,"0","" 86606,62,"",0,0,0,"0","" 86607,82,"866",2,0,0,"0","" 86700,PROCR,"867",,,,"","ADD ONE TO OTHERS COUNTER" 86702,81,"867",2,0,0,"0","" 86703,10,"",0,0,0,"1","" 86704,60,"",0,0,0,"0","" 86705,04,"869",7,0,0,"0","" 86706,62,"",0,0,0,"0","" 86707,82,"867",2,0,0,"0","" 86800,CONST,"868",,0,,"","" 86802,,"(D)ppppp;",,,,"","" 86803,,"3ppp0;",,,,"","BITS 5-18" 86804,,"80000;",,,,"","BIT 20" 86805,,"123.:;",,,,"","PRINTING" 86806,,"3pp;",,,,"","BITS 1-10" 86900,CONST,"869",,0,,"","" 86902,,"(D)0;",,,,"","GENERAL W/L" 86903,,"0;",,,,"","NO OF CHAPS INITIALLY" 86904,,"0;",,,,"","W/L FOR PRINTING" 86905,,"0;",,,,"","P/T OMITTED" 86906,,"0;",,,,"","DISASTROUS" 86907,,"0;",,,,"","OTHERS" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000763.JPG",,,,"","DaveJ/Q1000763" 86908,,";",,,,"","ACTUAL SET NUMBER IN Q1" 86909,,";",,,,"","" 86910,,";",,,,"","FILE" 86911,,";",,,,"","" 86912,,";",,,,"","SET NUMBER" 86913,,";",,,,"","" 86914,,";",,,,"","WL FOR R-ALIGN SR" 86915,,";",,,,"","" 87000,CONST,"870",1,,,"","ALPHA CONSTANTS" 87002,,"(A)TRAMD;",,,,"","" 87004,,"FIEND;",,,,"","" 87006,,"CHAPT;",,,,"","" 87008,,"PREND;",,,,"","" 87010,,"(A)FILES;",,,,"","" 87012,,"(A)DUMPS;",,,,"","" 87014,,"(A)DUMP ;",,,,"","" 87016,,"PROG ;",,,,"","" 87018,,"IND ;",,,,"","" 87100,CONST,"871",1,,,"","PRINTING CONSTANTS" 87102,,"(A)ERIAL;",,,,"","" 87104,,"TYPE;",,,,"","" 87106,,"CHAPS;",,,,"","" 87108,,"SECNS;",,,,"","" 87110,,"POINT;",,,,"","" 87112,,"SETOR;",,,,"","" 87114,,"BLOCK;",,,,"","" 87116,,"LGTH;",,,,"","" 87118,,"(A)RUN(D)7t7e;",,,,"","" 87120,,"UNALT;",,,,"","" 87122,,"ERED ;",,,,"","" 87124,,"RAMME;",,,,"","" 87126,,"TRIAL;",,,,"","" 87128,,"DATA ;",,,,"","" 87130,,"*NAND;",,,,"","" 87132,," MBS;",,,,"","" 87134,,"ORDER;",,,,"","" 87136,,"= FIX;",,,,"","" 87138,,"= VAR;",,,,"","" 87140,,";",,,,"","PRINTER W/L" 87142,,";",,,,"","ERROR W/L" 87144,,";",,,,"","ERROR W/L" 87146,,"(D)5:677173 ;",,,,"","?P/T" 87200,CONST,"872",1,,,"","DECIMAL CONSTANTS" 87202,,"(D)0;",,,,"","" 87204,,"7.0000007.;",,,,"","B/E WORD" 87206,,"0000000800;",,,,"","HEAD OF FORM FUNCTION WD" 87208,,"7.7.7.7.7.;",,,,"","BLOCK ENDS" 87210,,"5.5.5.5.5.;",,,,"","LINE ENDS" 87212,,"5252525252;",,,,"","B'S" 87214,,"6363636363;",,,,"","L'S" 87216,,"5e5e5e5e5e;",,,,"","ASTERISKS" 87218,,"5p5p5p5p5p;",,,,"","SQUARES" 87220,,"5:5:5:5:5:;",,,,"","QUESTION MARKS" 87300,TABLE,"873",4,,,"","VARIOUS UNPACK TABLES" 87301,NOTES,,,,,,,,,,,,,"" 87302,30,0,0,0,2,0,0,0,0,0,0,0,0,"TRAMD" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000764.JPG",,,,"","TonyJ/Q1000764" 87304,30,2,0,0,0,1,0,0,0,0,0,0,1,"SUITE JOB SERIAL" 87306,30,0,0,0,2,0,0,0,0,0,0,0,0,"FILES" 87308,30,2,0,0,2,0,0,0,0,0,0,0,0,"ROUTE IDENTIFIER" 87310,30,10,0,0,2,0,0,0,0,0,0,0,0,"FILE ID" 87312,30,4,0,0,0,1,0,0,0,0,0,0,1,"RUN NO , BLOCK SIZE, SECN, SET,IND" 87314,869,2,0,0,0,0,0,0,0,0,0,0,0,"LINE SERIAL" 87316,30,0,0,0,0,1,0,0,0,0,0,0,1,"P M POINT" 87318,833,2,0,0,2,0,0,0,0,0,0,0,0,"FILEA'" 87320,833,2,0,0,2,0,0,0,0,0,0,0,0,"FILE" 87322,833,4,0,0,1,0,0,0,0,0,0,0,0,"SET" 87324,833,6,0,0,2,0,0,0,0,0,0,0,0,"BLOCK (+LETTER ?)" 87326,833,8,0,0,2,0,0,0,0,0,0,0,0,"FIRST WORD/LAST BLOCK (+LETTER ?)" 87328,833,10,0,0,1,0,0,0,0,0,0,0,1,"LAST WORD" ,,,,,,,,,,,,,,"" 87400,TABLE,874,,3,,"UNPACK TABLES FOR CARDS" 87401,NOTES,,,,,,,,,,,,,"" 87402,30,0,0,0,2,0,5,0,0,0,0,0,0,"TRAMD" 87404,30,2,0,0,0,0,3,0,0,0,0,0,0,"SUITE" 87406,30,3,0,0,0,0,2,0,0,0,0,0,0,"JOB" 87408,30,4,0,0,0,0,5,0,0,0,0,0,1,"SERIAL" 87410,30,0,0,0,0,0,6,0,0,0,0,0,0,"/////LINE SERIAL" 87412,30,0,0,0,0,0,5,0,0,0,0,0,0,"I/O SERIAL" 87414,30,1,0,0,0,0,1,0,0,0,0,0,0,"TYPE" 87416,30,2,0,0,0,0,3,0,0,0,0,0,0,"N1" 87418,30,3,0,0,0,0,3,0,0,0,0,0,0,"N2" 87420,30,4,0,0,0,0,3,0,0,0,0,0,0,"N3" 87422,30,5,0,0,0,0,4,0,0,0,0,0,0,"DETAILS" 87424,30,6,0,0,0,0,4,0,0,0,0,0,0,"" 87426,30,7,0,0,0,0,4,0,0,0,0,0,0,"" 87428,30,8,0,0,0,0,4,0,0,0,0,0,0,"" 87430,30,9,0,0,0,0,4,0,0,0,0,0,0,"" 87432,30,10,0,0,0,0,4,0,0,0,0,0,0,"" 87434,30,11,0,0,0,0,4,0,0,0,0,0,0,"" 87436,30,12,0,0,0,0,4,0,0,0,0,0,0,"" 87438,30,13,0,0,0,0,4,0,0,0,0,0,0,"" 87440,30,14,0,0,0,0,4,0,0,0,0,0,0,"" 87442,30,15,0,0,0,0,4,0,0,0,0,0,0,"" 87444,30,16,0,0,0,0,4,0,0,0,0,0,0,"" 87446,30,17,0,0,0,0,4,0,0,0,0,0,1,"" 87448,30,0,0,0,2,0,5,0,0,0,0,0,0,"FILES" 87450,30,2,0,0,2,0,2,0,0,0,0,0,0,"RTE IDENT" 87452,30,10,0,0,2,0,2,0,0,0,0,0,0,"FILE ID" 87454,30,4,0,0,0,0,4,0,0,0,0,0,0,"RUN NO" 87456,30,5,0,0,0,0,4,0,0,0,0,0,0,"BLOCK LGTH" 87458,30,6,0,0,0,0,2,0,0,0,0,0,0,"SECN NO" 87460,30,7,0,0,0,0,1,0,0,0,0,0,0,"SET NO" 87462,30,8,0,0,0,0,1,0,0,0,0,0,1,"IND" 87464,833,2,0,0,2,0,5,0,0,0,0,0,0,"FILEA'" 87466,833,2,0,0,2,0,2,0,0,0,0,0,0,"FILE ID" 87468,833,4,0,0,1,0,1,0,0,0,0,0,0,"SET" 87470,833,6,0,0,2,0,5,0,0,0,0,0,0,"" 87472,833,8,0,0,2,0,5,0,0,0,0,0,0,"" 87474,833,10,0,0,1,0,5,0,0,0,0,0,1,"" ,,,,,,,,,,,,,,"" 87500,TABLE,875,,1,,,"PRINTER HEADING" 87501,NOTES,,,,,,,,,,,,,"" 87502,870,16,0,0,2,0,4,0,5,0,0,0,0,"PROG'" 87504,871,24,0,0,2,0,5,0,0,0,0,0,0,"RAMME" 87506,16,2,0,0,0,0,5,0,1,0,0,0,0,"PROG ID" 87508,870,10,0,0,2,0,1,4,2,0,0,0,0,"2 SP S" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000765.JPG",,,,"","TonyJ/Q1000765" 87510,871,2,0,0,2,0,5,0,0,0,0,0,0,"SERIAL" 87512,16,3,0,0,0,0,5,0,1,4,0,0,0,"PROG SERIAL" 87514,871,26,0,0,2,0,5,0,2,0,0,0,0,"2 SP TRIAL" 87516,871,28,0,0,2,0,4,0,1,0,0,0,0,"SP DATA" 87518,871,30,0,0,2,0,3,2,1,0,0,0,0,"SP AND" 87520,870,12,0,0,2,0,5,0,1,0,0,0,0,"SP DUMPS" 87522,871,10,0,0,2,0,5,0,1,0,0,0,0,"SP POINT" 87524,870,10,0,0,2,0,1,4,0,0,0,0,0,"S" 87526,872,4,0,0,2,0,1,1,1,0,0,0,1,"" ,,,,,,,,,,,,,,"" 87600,TABLE,876,,1,,,PM POINT HEADING LINE,,,,,,"" 87601,NOTES,,,,,,,,,,,,,"" 87602,871,8,0,0,2,0,1,0,13,0,0,0,0,"13 SP S" 87604,871,2,0,0,2,0,5,0,0,0,0,0,0,"ERIAL" 87606,871,4,0,0,2,0,4,1,2,0,0,0,0,"2SP TYPE" 87608,871,8,0,0,2,0,1,3,2,0,0,0,0,"2SPN" 87610,868,5,0,0,0,0,1,0,0,0,0,0,0,"1" 87612,871,8,0,0,2,0,1,3,3,0,0,0,0,"3 SP N" 87614,868,5,0,0,0,0,1,1,0,0,0,0,0,"2" 87616,871,8,0,0,2,0,1,3,3,0,0,0,0,"3 SP N" 87618,868,5,0,0,0,0,1,2,0,0,0,0,0,"3" 87620,871,6,0,0,2,0,5,0,5,0,0,0,0,"5 SP CHAPS" 87622,871,8,0,0,2,0,5,0,1,0,0,0,0,"SP SECNS" 87624,871,12,0,0,2,0,2,3,1,0,0,0,0,"SP OR" 87626,871,10,0,0,2,0,5,0,1,0,0,0,0,"SP POINT" 87628,871,8,0,0,2,0,1,0,0,0,0,0,0,"S" 87630,872,4,0,0,2,0,1,1,4,0,0,0,1,"B/E" ,,,,,,,,,,,,,,"" 87700,TABLE,877,,1,,,PRINT PM POINT LINE,,,,,,"" 87701,NOTES,,,,,,,,,,,,,"" 87702,870,12,0,0,2,0,4,0,5,0,0,0,0,"DUMP" 87704,869,4,0,0,0,0,1,4,0,0,0,0,0,"DUMP NO" 87706,30,0,0,0,0,0,5,0,3,0,0,0,0,"3 SP R/C SERIAL" 87708,30,1,0,0,0,0,2,3,4,1,2,0,0,"4SP TYPE" 87710,30,2,0,0,0,0,3,2,1,2,2,0,0,"1SP TYPE*****" 87712,30,3,0,0,0,0,3,2,1,2,2,0,0,"1SP N2" 87714,30,4,0,0,0,0,3,2,1,2,2,0,1,"1SP N3" 87716,30,5,0,0,0,0,3,2,6,3,2,0,0,"IST CHAP OR SECN" 87718,30,6,0,0,0,0,3,2,6,3,2,0,0,"2ND CHAP OR SECN" 87720,30,7,0,0,0,0,3,2,6,3,2,0,0,"3RD CHAP OR SECN" 87722,30,8,0,0,0,0,3,2,6,3,2,0,0,"4TH CHAP OR SECN" 87724,872,2,0,0,1,0,10,0,0,10,0,0,0,"10 SP" 87726,871,40,0,0,2,0,5,0,15,0,0,0,0,"14 SP ERROR REPORT" 87728,871,42,0,0,2,0,5,0,0,0,0,0,0,"15 SP ERROR REPORT" 87730,871,44,0,0,2,0,5,0,0,0,0,0,0,"MORE" 87732,872,4,0,0,2,0,5,0,0,0,0,0,1,"" 87734,30,5,0,0,0,0,3,2,6,2,0,0,0,"6SP FIRST REF" 87736,868,5,0,0,0,0,1,4,0,0,0,0,0,":" 87738,30,6,0,0,0,0,4,1,0,3,2,0,0,"1ST ITEM" 87740,30,7,0,0,0,0,3,2,1,2,0,0,0,"1SP 2ND REF" 87742,868,5,0,0,0,0,1,4,0,0,0,0,0,":" 87744,30,8,0,0,0,0,4,1,0,3,2,0,0,"2ND ITEM" 87746,30,9,0,0,0,0,3,2,1,2,0,0,0,"1SP 3RD REF" 87748,868,5,0,0,0,0,1,4,0,0,0,0,0,":" 87750,30,10,0,0,0,0,4,1,0,3,2,0,0,"3RD ITEM" 87752,30,11,0,0,0,0,3,2,1,2,0,0,0,"1SP 4TH REF" 87754,868,5,0,0,0,0,1,4,0,0,0,0,0,":" 87756,30,12,0,0,0,0,4,1,0,3,2,0,0,"4TH ITEM" 87758,30,13,0,0,0,0,3,2,1,2,0,0,0,"1SP 5TH REF" 87760,868,5,0,0,0,0,1,4,0,0,0,0,0,":" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000766.JPG",,,,"","DavidH/Q1000766" 87762,30,14,0,0,0,0,4,1,0,3,2,0,0,"5TH ITEM" 87764,30,15,0,0,0,0,3,2,1,2,0,0,0,"1SP 6TH REF" 87766,868,5,0,0,0,0,1,4,0,0,0,0,0,":" 87768,30,16,0,0,0,0,4,1,0,3,2,0,0,"6TH ITEM" 87770,871,40,0,0,2,0,5,0,0,0,0,0,0,"ERROR REPORTS" 87772,871,42,0,0,2,0,5,0,0,0,0,0,0,"" 87774,871,44,0,0,2,0,5,0,0,0,0,0,0,"" 87776,872,4,0,0,2,0,5,0,0,0,0,0,1,"8/E" 87800,TABLE,878,,1,,,"TRIAL DATA HEADING LINE" 87801,NOTES,,,,,,,,, 87802,870,10,0,0,2,0,4,0,5,0,0,0,0,"FILE" 87804,30,2,0,0,2,0,2,0,1,0,0,0,0,"SP FILE ID" 87806,871,18,0,0,2,0,1,3,1,0,0,0,0,"SP (" 87808,30,10,0,0,2,0,2,0,0,0,0,0,0,"OTHER FILE ID" 87810,871,18,0,0,2,0,1,4,0,0,0,0,0,")" 87812,871,18,0,0,2,0,3,0,2,0,0,0,0,"ZSP RUN" 87814,32,167,0,0,0,0,4,1,1,3,0,0,0,"SP RUN NO" 87816,871,14,0,0,2,0,5,0,2,0,0,0,0,"2SP BLOCK" 87818,871,16,0,0,2,0,4,1,1,0,0,0,0,"SP LGTH" 87820,32,168,0,0,0,0,4,1,1,3,0,0,0,"SP LENGTH" 87822,871,8,0,0,2,0,4,0,2,0,0,0,0,"2SP SECN" 87824,32,169,0,0,0,0,2,3,1,1,0,0,0,"" 87826,871,12,0,0,2,0,3,0,2,0,0,0,0,"2SP SET" 87828,30,7,0,0,0,0,2,3,1,1,0,0,0,"" 87830,870,18,0,0,2,0,3,0,2,0,0,0,0,"'IND'" 87832,30,8,0,0,0,0,1,4,1,0,0,0,0,"" 87834,871,40,0,0,2,0,5,0,1,0,0,0,0,"SP IND" 87836,872,2,0,0,1,0,10,0,15,10,0,0,0,"25 SPACES" 87838,871,42,0,0,2,0,5,0,10,0,0,0,0,"10 SP ERROR REPORT" 87840,872,4,0,0,2,0,1,1,0,0,0,0,1,"" ,,,,,,,,,,,,,,"" 87900,TABLE,879,,1,,,"EDIT LINE OF TRIAL DATA" 87901,NOTES,,,,,,,,,,,,,"" 87902,868,5,0,0,0,0,1,3,3,0,0,0,0,"3SP." 87904,32,14,0,0,0,0,4,1,1,3,0,0,0,"BLOCK NO" 87906,868,5,0,0,0,0,1,3,0,0,0,0,1,"." 87908,32,15,0,0,0,0,4,1,2,3,0,0,0,"2 SP WORD NO" 87910,868,5,0,0,0,0,1,3,2,0,0,0,0,"2SP." 87912,32,0,0,0,2,0,5,0,0,0,0,0,0,"1ST WORD" 87914,868,5,0,0,0,0,1,3,0,0,0,0,0,"." 87916,32,16,0,0,0,0,4,1,2,3,0,0,0,"" 87918,868,5,0,0,0,0,1,3,2,0,0,0,0,"" 87920,32,2,0,0,2,0,5,0,0,0,0,0,0,"" 87922,868,5,0,0,0,0,1,3,0,0,0,0,0,"" 87924,32,17,0,0,0,0,4,1,2,3,0,0,0,"" 87926,868,5,0,0,0,0,1,3,2,0,0,0,0,"" 87928,32,4,0,0,2,0,5,0,0,0,0,0,0,"" 87930,868,5,0,0,0,0,1,3,0,0,0,0,0,"" 87932,32,18,0,0,0,0,4,1,2,3,0,0,0,"" 87934,868,5,0,0,0,0,1,3,2,0,0,0,0,"" 87936,32,6,0,0,2,0,5,0,0,0,0,0,0,"" 87938,868,5,0,0,0,0,1,3,0,0,0,0,0,"" 87940,32,19,0,0,0,0,4,1,2,3,0,0,0,"" 87942,868,5,0,0,0,0,1,3,2,0,0,0,0,"" 87944,32,8,0,0,2,0,5,0,0,0,0,0,0,"" 87946,868,5,0,0,0,0,1,3,0,0,0,0,0,"" 87948,32,20,0,0,0,0,4,1,2,3,0,0,0,"" 87950,868,5,0,0,0,0,1,3,2,0,0,0,0,"" 87952,32,10,0,0,2,0,5,0,0,0,0,0,0,"" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000767.JPG",,,,"","DavidH/Q1000767" 87954,868,5,0,0,0,0,1,3,0,0,0,0,0,"" 87956,32,21,0,0,0,0,4,1,2,3,0,0,0,"" 87958,868,5,0,0,0,0,1,3,2,0,0,0,0,"" 87960,32,12,0,0,2,0,5,0,0,0,0,0,0,"" 87962,868,5,0,0,0,0,1,3,0,0,0,0,0,"" 87964,871,42,0,0,2,0,3,2,2,0,0,0,0,"2SP ERROR INDS" 87966,872,4,0,0,2,0,5,0,0,0,0,0,1,"B/E" ,,,,,,,,,,,,,,"" 88000,TABLE,880,,1,,,"EDIT + LINE" 88001,NOTES,,,,,,,,,,,,,"" 88002,32,22,0,0,2,0,5,0,9,0,0,0,0,"" 88004,32,24,0,0,2,0,5,0,10,0,0,0,0,"" 88006,32,26,0,0,2,0,5,0,10,0,0,0,0,"" 88008,32,28,0,0,2,0,5,0,10,0,0,0,0,"" 88010,32,30,0,0,2,0,5,0,10,0,0,0,0,"" 88012,32,32,0,0,2,0,5,0,10,0,0,0,0,"" 88014,32,34,0,0,2,0,5,0,10,0,0,0,0,"" 88016,872,4,0,0,2,0,1,1,0,0,0,0,1,"" ,,,,,,,,,,,,,,"" 88100,TABLE,881,,1,,,"FILE UNALTERED LINE" 88101,NOTES,,,,,,,,,,,,,"" 88102,870,10,0,0,2,0,4,0,15,0,0,0,0,"15SP FILE" 88104,871,44,0,0,2,0,2,3,2,0,0,0,0,"2SP FILE ID" 88106,871,12,0,0,2,0,1,2,3,0,0,0,0,"3SP T" 88108,870,2,0,0,2,0,1,4,1,0,0,0,0,"'D'" 88110,871,12,0,0,2,0,3,0,1,0,0,0,0,"SP SET" 88112,30,7,0,0,0,0,2,3,1,1,0,0,0,"SP SET NO" 88114,871,20,0,0,2,0,5,0,3,0,0,0,0,"3SP UNALT" 88116,871,22,0,0,2,0,4,0,0,0,0,0,0,"ERED" 88118,872,4,0,0,2,0,1,1,1,0,0,0,1,"" ,,,,,,,,,,,,,,"" 88200,PROCR,"882",,,,"","08005 INSERTED BEFORE HERE-FINAL ROUTINES" 88202,0,"27",3,0,0,"0","" 88203,70,"882",9,0,0,"0","" 88204,,"27",4,0,0,"0","COMPILER CALLED TRANSLATOR?" 88205,70,"882",8,0,0,"0","gNO" 88206,45,"A1",0,0,0,"1","REWIND" 88207,76,"882",9,0,0,"0","" 88208,41,"A1",0,0,0,"1","" 88209,54,"8",4,1,0,"48","" 88210,10,"",0,0,0,"55","" 88211,5,"8",4,1,0,"0","" 88212,80,"890",2,0,0,"0","gWRITE'E'" 88213,,"27",12,0,0,"0","" 88214,71,"776",2,0,0,"0","gCALL PASS 6,WRITE PTS(2)AND(3)" 88215,,"908",2,1,0,"0","'PREND'" 88216,5,"8",4,1,0,"0","" 88217,,"16",2,0,0,"0","PROG ID" 88218,5,"8",6,2,0,"0","" 88219,80,"890",2,0,0,"0","gWRITE'PREND'" 88220,,"908",12,1,0,"0","'INDEX' 'INDEX'BLOX" 88221,5,"8",6,1,0,"0","" 88222,,"908",26,2,0,"0","'£££££'" 88223,5,"8",8,2,0,"0","" 88224,10,"",0,0,0,"4","" 88225,5,"8",10,1,0,"0","" 88226,,"908",26,1,0,"0","ALIGNMENT MARKS" 88227,5,"8",4,1,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000768.JPG",,,,"","ChuckK/Q1000768" 88228,80,"890",2,0,0,"0",">WRITE" 88229,,"16",2,0,0,"0","PROG IDENTITY" 88230,3,"8",4,2,0,"0","" 88231,5,"8",12,2,0,"0","" 88232,,"16",3,0,0,"0","PROG SERIAL" 88233,3,"8",6,2,0,"0","" 88234,5,"8",14,2,0,"0","" 88235,10,"",0,0,0,"2","" 88236,5,"8",10,2,0,"0","" 88237,10,"",0,0,0,"3","" 88238,3,"8",18,2,0,"0","" 88239,10,"",0,0,0,"2","" 88240,1,"27",12,0,0,"0","0/2=PTS NO/YES" 88241,5,"8",16,2,0,"0","" 88242,,"908",26,2,0,"0"," 'ppppp'" 88243,5,"8",20,2,0,"0","" 88244,80,"890",2,0,0,"0",">WRITE'INDEX'DATA" 88245,45,"A6",0,0,0,"1","" 88246,54,"5",0,1,0,"48","" 88247,90,"",0,0,1,"0","" 88248,C,"",0,0,0,"5","" 88249,80,"892",2,0,0,"0",">PRINT 5 BLANK LINES" 88250,94,"882",49,0,1,"1","" 88251,55,"908",78,1,0,"26","" 88252,C,"5",10,1,0,"0","" 88253,80,"888",2,0,0,"0",">SUPPRESS I/C IF TRAMD ONLY" 88254,80,"892",2,0,0,"0",">PRINT" 88300,PROCR,"883",,,,"","PRINT FINAL LINE, TEST FOR PASS 3 COPY" 88302,90,"",0,0,1,"0","" 88303,C,"",0,0,0,"13","" 88304,,"27",6,0,0,"0"," 'PT OMITTED'" 88305,70,"883",8,0,0,"0",">NO" 88306,,"908",74,1,0,"0"," 'YES'" 88307,76,"883",9,0,0,"0","" 88308,,"908",76,1,0,"0"," 'NO'" 88309,5,"5",12,1,0,"0","" 88310,0,"869",5,0,0,"0","TRIAL DATA PT IND" 88311,70,"883",14,0,0,"0","" 88312,0,"908",74,1,0,"0"," 'YES'" 88313,76,"883",15,0,0,"0","" 88314,0,"908",76,1,0,"0"," 'NO'" 88315,5,"5",18,1,0,"0","" 88316,80,"915",2,0,0,"0","PRINT" 88317,94,"",0,0,1,"4","" 88318,,"869",6,0,0,"0","TD'DISASTEROUS'" 88319,5,"908",56,0,0,"0","" 88320,86,"511",2,0,0,"0","SERIOUS ERRORS CTR" 88321,80,"912",2,0,0,"0","CONVERT" 88322,80,"916",2,0,0,"0","EDIT" 88323,80,"915",2,0,0,"0","PRINT" 88324,94,"",0,0,1,"4","" 88325,,"869",7,0,0,"0","TD'OTHERS'" 88326,5,"908",56,0,0,"0","" 88327,86,"514",2,0,0,"0","OTHER ERRORS CTR" 88328,80,"912",2,0,0,"0","CONVERT" 88329,80,"916",2,0,0,"0","EDIT" 88330,80,"915",2,0,0,"0","PRINT" 88331,54,"40",0,0,0,"20","" 88332,62,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000769.JPG",,,,"","ChuckK/Q1000769" 88333,80,"892",2,0,0,"0",">MORE BLANK LINES" 88334,94,"883",33,0,1,"1","" 88335,155,"",0,0,0,"0","TRANSLATOR SERIAL" 88336,5,"908",40,1,0,"0","" 88337,55,"908",28,1,0,"14","" 88338,C,"5",6,1,0,"0","" 88339,153,"",0,0,0,"0","DATE" 88340,5,"908",40,1,0,"0","" 88341,86,"153",2,0,0,"0","A2 SPOOL NUMBER" 88342,5,"908",22,0,0,"0","" 88343,52,"5",20,0,0,"0","" 88344,C,"910",18,0,0,"0","" 88345,80,"892",2,0,0,"0","PRINT 'MADE BY'" 88346,,"27",9,0,0,"0","" 88347,71,"883",55,0,0,"0",">OFF-LINE PRINT" 88348,,"27",8,0,0,"0","PRINTER TYPE" 88349,11,"",0,0,0,"14","" 88350,30,"",0,0,0,"5","" 88351,1,"999",7,0,0,"0","" 88352,125,"",4096,1,1,"0","" 88353,124,"999",0,0,3,"0","" 88354,123,"",160,0,2,"0","CLOSE PRINTER" 88355,62,"",0,0,0,"0","" 88356,46,"A2",10,0,0,"0","RUN BACK TO SECOND'INDEX'BLOCK" 88357,C,"",0,0,0,"3","" 88358,10,"",0,0,0,"1","" 88359,5,"908",60,0,0,"0","SET IND" 88360,,"16",2,0,0,"0","PROGM BEING TRANSLATED" 88361,12,"",0,0,0,"8000","" 88362,70,"883",74,0,0,"0",">TRANSLATOR" 88363,,"16",2,0,0,"0","" 88364,12,"",0,0,0,"9001","" 88365,70,"883",74,0,0,"0",">MASTER" 88366,,"16",2,0,0,"0","" 88367,12,"",0,0,0,"8060","" 88368,70,"897",5,0,0,"0",">COMPILER;ALARM 5" 88369,12,"",0,0,0,"1","" 88370,70,"897",3,0,0,"0",">BIG COMPILER" 88371,12,"",0,0,0,"5","" 88372,70,"897",2,0,0,"0",">CHAR HANDLING COMP" 88373,76,"884",40,0,0,"0",">ORDINARY PROGMS" 88374,10,"",0,0,0,"0","" 88375,5,"908",60,0,0,"0","CLEAR IND" 88376,0,"27",4,0,0,"0","COMPILER?" 88377,70,"883",83,0,0,"0",">NO" 88378,34,"999",9,0,0,"0","A1 ROUTE---INTERCHANGE A1,A6" 88379,0,"999",11,0,0,"0","A6 ROUTE" 88380,5,"999",9,0,0,"0",">A1" 88381,32,"",0,0,0,"10","" 88382,5,"999",11,0,0,"0",">A6" 88383,40,"A6",0,0,0,"0","" 88384,100,"908",54,1,0,"0","SPOOL NUMBER->66" 88385,52,"9",4,0,0,"0","" 88386,C,"910",34,0,0,"0","" 88387,154,"9",4,0,0,"0","TYPE COMMENT" 88388,80,"893",2,0,0,"0",">WRITE BLANKS" 88389,80,"893",2,0,0,"0",">WRITE 2 BLANK BLOCKS->A6" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000770.JPG",,,,"","ChuckK/Q1000770" 88390,80,"894",2,0,0,"0","READ A2" 88391,10,"",0,0,0,"2","" 88392,5,"8",10,2,0,"0","" 88393,,"908",4,1,0,"0"," 'CHAIN'" 88394,5,"8",12,1,0,"0","" 88395,80,"893",2,0,0,"0","gA6" 88396,80,"894",2,0,0,"0","A2->" 88400,PROCR,"884",,,,"","ALARM 6 or 7" 88402,,"27",4,0,0,"0","COMPILER?" 88403,70,"884",6,0,0,"0",">NO" 88404,10,"",0,0,0,"2","" 88405,76,"884",8,0,0,"0","" 88406,10,"",0,0,0,"2","" 88407,1,"27",12,0,0,"0","0/2=PTS NO/YES" 88408,5,"8",8,2,0,"0","" 88409,10,"",0,0,0,"ppppp","" 88410,5,"8",12,2,0,"0","" 88411,80,"893",2,0,0,"0","gA6" 88412,80,"894",2,0,0,"0","A2->" 88413,0,"8",6,1,0,"0","" 88414,2,"908",12,1,0,"0"," 'INDEX'" 88415,70,"884",18,0,0,"0",">YES" 88416,80,"893",2,0,0,"0",">WRITE" 88417,76,"884",12,0,0,"0","" 88418,80,"893",2,0,0,"0",">WRITE 'INDEX'" 88419,80,"894",2,0,0,"0",">READ" 88420,,"27",4,0,0,"0","COMPILER?" 88421,70,"884",24,0,0,"0",">NO" 88422,10,"",0,0,0,"2","" 88423,76,"884",26,0,0,"0","" 88424,10,"",0,0,0,"2","" 88425,1,"27",12,0,0,"0","0/2=PTS NO/YES" 88426,5,"8",8,2,0,"0","" 88427,10,"",0,0,0,"ppppp","" 88428,5,"8",12,2,0,"0","" 88429,80,"893",2,0,0,"0",">WRITE" 88430,41,"A6",0,0,0,"0","" 88431,0,"27",4,0,0,"0","COMPILER?" 88432,70,"884",38,0,0,"0",">NO" 88433,34,"999",9,0,0,"0","RESTORE A1,A6 ROUTE NUMBERS" 88434,0,"999",11,0,0,"0","" 88435,5,"999",9,0,0,"0","" 88436,32,"",0,0,0,"10","" 88437,5,"999",11,0,0,"0","" 88438,46,"A2",10,0,0,"1","RUN BACK TO SECOND 'INDEX' BLOCK" 88439,C,"",0,0,0,"3","" 88440,90,"",0,0,1,"0","CLEAR R1" 88441,C,"",0,0,0,"0","/////" 88442,10,"",0,0,0,"6","" 88443,5,"908",22,0,0,"0","" 88444,0,"27",9,0,0,"0","" 88445,70,"884",52,0,0,"0",">ON-LINE PRINT" 88446,86,"511",2,0,0,"0"," 'DISASTEROUS'" 88447,1,"869",6,0,0,"0","(TD)" 88448,71,"884",56,0,0,"0","" 88449,0,"27",6,0,0,"0"," 'PT OMITTED'" 88450,1,"869",5,0,0,"0","(TD)" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000771.JPG",,,,"","ChuckK/Q1000771" 88451,71,"884",56,0,0,"0","" 88452,,"27",7,0,0,"0","" 88453,71,"884",56,0,0,"0",">REF/PROCR REPORT" 88454,,"27",5,0,0,"0","25?'S IND" 88455,70,"884",58,0,0,"0","" 88456,10,"",0,0,0,"7","" 88457,5,"908",22,0,0,"0","" 88458,,"27",9,0,0,"0","" 88459,70,"884",78,0,0,"0",">ON" 88460,101,"",300,1,3,"0","" 88461,99,"",0,0,6,"0","" 88462,5,"890",2,0,0,"0","" 88463,54,"10",4,0,6,"0","CLEAR REST OF ANNEX" 88464,C,"890",2,0,0,"0","" 88465,,"908",24,1,0,"0","" 88466,5,"10",306,1,0,"0","" 88467,80,"914",2,0,0,"0","WRITE LAST BLOCK" 88468,54,"10",0,1,0,"306","" 88469,,"908",24,1,0,"0","BEW" 88470,5,"10",306,1,0,"0","" 88471,80,"914",2,0,0,"0","WRITE BLANK BLOCK" 88472,34,"909",2,0,0,"0","STEP BACK A9" 88473,10,"",0,0,0,"2700000","O/P->O/P 1 BLOCK" 88474,1,"999",7,0,0,"0","" 88475,125,"",4096,1,1,"0","" 88476,124,"999",0,0,3,"0","" 88477,123,"",160,0,2,"0","" 88478,150,"908",22,0,0,"0","ALARM 6 or 7" 88479,C,"884",85,0,0,"0",">END" 88480,C,"884",99,0,0,"0",">CLOSE FILES:REENTER TO PRINT" 88481,C,"883",74,0,0,"0",">COPY TO PASS 3 O/P TO A6" 88482,C,"885",24,0,0,"0","" 88483,C,"885",43,0,0,"0","" 88484,C,"885",28,0,0,"0","" 88485,80,"911",2,0,0,"0","" 88486,80,"889",2,0,0,"0",">CLOSE A9" 88487,,"908",60,0,0,"0","" 88488,71,"884",93,0,0,"0","" 88489,,"27",4,0,0,"0","" 88490,70,"884",98,0,0,"0","" 88491,80,"891",2,0,0,"0","CLOSE A6" 88492,76,"884",98,0,0,"0","" 88493,,"27",4,0,0,"0","" 88494,70,"884",97,0,0,"0",">NO" 88495,40,"A1",0,0,0,"1","" 88496,41,"A1",0,0,0,"1","" 88497,80,"891",2,0,0,"0",">OPEN AND CLOSE A6" 88498,151,"",0,0,0,"0","" 88499,80,"911",2,0,0,"0","" 88500,PROCR,"885",,,,"","IF AMEND BEWARE ADDRESSES OF 23/0/2'S" 88502,90,"",0,0,3,"0","" 88503,C,"",0,0,0,"2","" 88504,80,"889",2,0,0,"0","CLOSE A9 OR PRINTER" 88505,,"27",9,0,0,"0","" 88506,70,"885",9,0,0,"0",">ON" 88507,90,"",0,0,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000773.JPG",,,,"","ChuckK/Q1000773" 88508,C,"",0,0,0,"4","" 88509,,"27",4,0,0,"0","" 88510,71,"885",13,0,0,"0","" 88511,,"893",2,0,0,"0","" 88512,76,"100",2,0,0,"0",">CALL TRANSLATOR PASS 0" 88513,80,"891",2,0,0,"0","OPEN AND CLOSE A6" 88514,125,"",4096,1,1,"0","" 88515,123,"895",2,0,2,"0","" 88516,124,"909",2,0,2,"0","" 88517,32,"",0,0,0,"5-","" 88518,101,"",80,1,3,"0","" 88519,32,"",0,0,0,"5","ESTORE COMPILER" 88520,124,"999",5,0,3,"0","" 88521,128,"",204,1,1,"0","" 88522,,"893",2,0,0,"0","" 88523,76,"100",2,0,0,"0",">CALL COMPILER PASS 1" 88524,80,"886",2,0,0,"0","IS MATCH HD?;OPT 4" 88525,70,"885",32,0,0,"0",">NO" 88526,10,"",0,0,0,"0","" 88527,76,"887",2,0,0,"0","" 88528,80,"886",2,0,0,"0","IS MATCH HD?;OPT 6" 88529,70,"885",32,0,0,"0",">NO" 88530,10,"",0,0,0,"58","H" 88531,76,"887",2,0,0,"0","" 88532,80,"911",2,0,0,"0","" 88533,90,"",0,0,3,"1","" 88534,C,"",0,0,0,"2","" 88535,,"27",9,0,0,"0","OFF?" 88536,70,"885",9,0,0,"0","" 88537,84,"787",2,0,0,"0","CLEAR,A9 NOW CLOSED" 88538,C,"999",0,0,0,"0","" 88539,80,"889",2,0,0,"0","CLOSE A9 OR PRINTER" 88540,90,"",0,0,3,"1","" 88541,C,"",0,0,0,"4","" 88542,76,"885",9,0,0,"0","" 88543,,"27",9,0,0,"0","" 88544,70,"885",24,0,0,"0",">AS OPT 4" 88545,83,"787",2,0,0,"1","" 88546,80,"911",2,0,0,"0",">CLOSE A2" 88547,90,"",0,0,3,"1","" 88548,C,"",0,0,0,"3","" 88549,76,"885",9,0,0,"0","" 88600,PROCR,"886",,,,"","TEST IF MACHINE IS HIGH DENSITY" 88602,81,"886",2,0,0,"0","" 88603,123,"886",5,0,2,"0","" 88604,82,"886",2,0,0,"0","" 88605,100,"",0,0,0,"0","" 88606,124,"999",5,0,3,"0","" 88607,124,"",32,0,3,"0","" 88608,106,"",21,0,0,"0","" 88609,126,"886",5,0,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000774.JPG",,,,"","ChuckK/Q1000774" 88700,PROCR,"887",,,,"","INFORM MASTER OF DENSITY REQUIRED" 88702,5,"893",2,0,0,"0","" 88703,123,"887",5,0,2,"0","" 88704,76,"885",32,0,0,"0","" 88705,100,"",0,0,0,"0","" 88706,124,"999",5,0,3,"0","" 88707,124,"",32,0,3,"0","" 88708,106,"",22,0,0,"0","" 88709,1,"999",7,0,0,"0","" 88710,5,"891",2,0,0,"0","" 88711,,"893",2,0,0,"0","" 88712,124,"891",2,0,3,"0","" 88713,102,"",0,0,0,"0","" 88714,126,"887",5,0,3,"0","" 88800,PROCR,"888",,,,"","" 88802,81,"888",14,0,0,"0","" 88803,34,"27",13,0,0,"0","(DONT SPOIL CLEARNESS OF A)" 88804,74,"888",9,0,0,"0",">NOT TRAMD ONLY" 88805,5,"5",10,1,0,"0","CLEAR" 88806,5,"5",12,1,0,"0","" 88807,5,"5",14,1,0,"0","" 88808,54,"5",22,1,0,"14","" 88809,82,"888",2,0,0,"0","" 88900,PROCR,"889",,,,"","CLOSE A9" 88902,81,"889",2,0,0,"0","" 88903,,"27",9,0,0,"0",">PRINTING" 88904,70,"889",12,0,0,"0","" 88905,84,"787",2,0,0,"0","CLEAR'DONT OPEN A9' IND" 88906,C,"999",0,0,0,"0","" 88907,10,"",0,0,0,"1+00000","" 88908,1,"999",7,0,0,"0","" 88909,125,"",4096,1,1,"0","" 88910,124,"999",0,0,3,"0","" 88911,123,"",160,0,2,"0","" 88912,82,"889",2,0,0,"0","" 89000,PROCR,"890",,,,"","WRITE->A2" 89002,81,"890",2,0,0,"0","" 89003,,"908",24,1,0,"0","" 89004,5,"8",52,1,0,"0","" 89005,43,"A2",0,0,0,"0","" 89006,C,"8",0,0,0,"0","" 89007,54,"8",0,1,0,"52","" 89008,82,"890",2,0,0,"0","" 89100,PROCR,"891",,,,"","OPEN & CLOSE A6" 89102,81,"891",2,0,0,"0","" 89103,40,"A6",0,0,0,"1","" 89104,41,"A6",0,0,0,"1","" 89105,82,"891",2,0,0,"0","" 89200,PROCR,"892",,,,"","PRINT SR" 89202,81,"892",2,0,0,"0","" 89203,62,"",0,0,0,"0","" 89204,,"908",24,1,0,"0","" 89205,5,"5",52,1,0,"0","" 89206,,"908",60,0,0,"0","HEAD OF FORM OR TRACK 1" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000775.JPG",,,,"","ChuckK/Q1000775" 89207,5,"5",0,2,0,"0","" 89208,10,"",0,0,0,"1","" 89209,5,"908",60,0,0,"0","" 89210,,"27",9,0,0,"0","" 89211,70,"892",16,0,0,"0",">PRINTER" 89212,55,"5",0,1,0,"50","" 89213,C,"10",4,1,6,"0","" 89214,80,"913",2,0,0,"0","O/P->A9" 89215,76,"892",38,0,0,"0","" 89216,,"27",8,0,0,"0","PRINTER TYPE" 89217,12,"",0,0,0,"9","" 89218,70,"892",34,0,0,"0",">SPECIAL PRINTER" 89219,10,"",0,0,0,"80000","" 89220,5,"5",1,0,0,"0","" 89221,124,"999",15,1,2,"0","" 89222,124,"",0,0,2,"0","" 89223,124,"999",13,1,2,"0","" 89224,129,"",0,0,1,"0","" 89225,10,"",0,0,0,"4","" 89226,30,"",0,0,0,"5","" 89227,1,"999",7,0,0,"0","" 89228,34,"999",12,0,0,"0","" 89229,125,"",4096,1,1,"0","" 89230,124,"999",0,0,3,"0","" 89231,123,"",160,0,2,"0","" 89232,62,"",0,0,0,"0","" 89233,76,"892",38,0,0,"0","" 89234,55,"5",0,1,0,"54","" 89235,C,"10",0,1,0,"0","" 89236,10,"",0,0,0,"9","" 89237,76,"892",26,0,0,"0","" 89238,54,"5",0,1,0,"50","" 89239,82,"892",2,0,0,"0","" 89300,PROCR,"893",,,,"","WRITE ON A6" 89302,81,"893",2,0,0,"0","" 89303,55,"8",4,1,0,"50","" 89304,C,"9",4,1,0,"0","" 89305,,"908",24,1,0,"0","BEW" 89306,5,"9",52,1,0,"0","" 89307,43,"A6",0,0,0,"0","" 89308,C,"9",0,0,0,"0","" 89309,54,"9",0,1,0,"52","" 89310,82,"893",2,0,0,"0","" 89400,PROCR,"894",,,,"","READ A2" 89402,81,"894",2,0,0,"0","" 89403,42,"A2",0,0,0,"0","" 89404,C,"8",0,0,0,"0","" 89405,82,"894",2,0,0,"0","" 89500,PROCR,"895",,,,"","DELETE GUARD WORDS" 89502,81,"895",2,0,0,"0","" 89503,124,"999",5,0,3,"0","" 89504,126,"",20,1,2,"0","" 89505,80,"896",2,0,0,"0","" 89506,124,"999",5,0,3,"0","" 89507,126,"",22,1,2,"0","" 89508,80,"896",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000776.JPG",,,,"","ChuckK/Q1000776" 89509,124,"999",5,0,3,"0","" 89510,126,"",24,1,2,"0","" 89511,125,"",204,0,2,"0","" 89512,80,"896",2,0,0,"0","" 89513,90,"",0,0,1,"0","" 89514,C,"",0,0,0,"0","/////" 89515,126,"895",2,0,3,"0","" 89600,PROCR,"896",,,,"","STACK TAG SR" 89602,81,"896",2,0,0,"0","" 89603,123,"909",2,0,3,"0","PROG TAG" 89604,124,"999",0,0,3,"0","" 89605,123,"",0,1,2,"0","" 89606,94,"896",4,0,2,"2","" 89607,82,"896",2,0,0,"0","" 89700,PROCR,"897",,,,"","" 89702,10,"",0,0,0,"5","" 89703,11,"",0,0,0,"11","" 89704,4,"908",14,0,0,"0","" 89705,150,"",0,0,0,"5","PAUSE TO PUT TRANSLATOR ON A1 ROUTE" 89706,C,"897",9,0,0,"0","" 89707,C,"883",74,0,0,"0","" 89708,C,"898",32,0,0,"0","" 89709,,"16",2,0,0,"0","ARE WE 08066?" 89710,12,"",0,0,0,"8066","" 89711,71,"897",27,0,0,"0",">NO" 89712,10,"",0,0,0,"9","" 89713,5,"909",98,0,0,"0","" 89714,80,"900",2,0,0,"0","MERGE S/R" 89715,90,"",0,0,1,"0","" 89716,C,"",0,0,0,"6","" 89717,,"870",4,0,1,"0","" 89718,80,"899",2,0,0,"0","CONVERT TO DEC" 89719,94,"897",17,0,1,"2","" 89720,52,"870",10,0,0,"0","EDIT CHAP LENGTHS" 89721,C,"910",2,0,0,"0","FOR TYPING" 89722,154,"870",10,0,0,"0","TYPE" 89723,10,"",0,0,0,"4630","" 89724,5,"908",14,0,0,"0","" 89725,91,"16",10,0,1,"0","SET M/R AT NO OFCHAPS" 89726,76,"898",11,0,0,"0",">COPY TRANSLATOR" 89727,40,"A1",0,0,0,"1","" 89728,80,"903",2,0,0,"0",">READ A1 TO SEC 7" 89729,,"7",4,1,0,"0","" 89730,2,"908",6,1,0,"0"," 'FINIS'" 89731,71,"897",34,0,0,"0","" 89732,41,"A1",0,0,0,"1","" 89733,76,"897",5,0,0,"0","" 89734,,"7",4,2,0,"0","" 89735,12,"",0,0,0,"ppppp","" 89736,71,"897",28,0,0,"0","" 89737,35,"",0,0,0,"1","" 89738,36,"7",6,2,0,"0","" 89739,12,"",0,0,0,"5","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000777.JPG",,,,"","ChuckK/Q1000777" 89740,71,"897",28,0,0,"0",">NOT SENTINEL 5" 89741,,"7",8,2,0,"0","" 89742,12,"",0,0,0,"8000","" 89743,71,"897",28,0,0,"0","> NOT TRANSLATOR" 89744,80,"903",2,0,0,"0","" 89745,,"7",42,1,0,"0","" 89746,2,"908",10,1,0,"0"," 'ALLOC'" 89747,71,"897",44,0,0,"0","" 89748,40,"A6",0,0,0,"0","OPEN FOR FINAL PROGM" 89749,32,"",0,0,0,"10","" 89750,5,"869",14,0,0,"0","SPOOL NUMBER" 89751,80,"904",2,0,0,"0","WRITE 2 ZERO BLOX" 89752,80,"904",2,0,0,"0","" 89753,80,"894",2,0,0,"0",">READ A2" 89754,10,"",0,0,0,"2","INDEX IDENTIFIER" 89755,5,"8",10,2,0,"0","" 89756,,"908",4,1,0,"0","" 89757,5,"8",12,1,0,"0","" 89758,80,"904",2,0,0,"0",">WRITE" 89759,80,"894",2,0,0,"0",">READ A2" 89760,10,"",0,0,0,"2","" 89761,5,"8",8,2,0,"0","" 89762,10,"",0,0,0,"ppppp","" 89763,5,"8",12,2,0,"0","" 89764,80,"904",2,0,0,"0",">WRITE" 89765,80,"894",2,0,0,"0",">READ A2" 89766,,"8",42,1,0,"0","" 89767,2,"908",10,1,0,"0"," 'ALLOC'" 89768,70,"897",71,0,0,"0","" 89769,80,"904",2,0,0,"0",">WRITE SEC 8 TO A6" 89770,76,"897",65,0,0,"0","" 89771,90,"",0,0,1,"0","REFORM ALLOC DATA" 89772,C,"",0,0,0,"6","" 89773,,"7",24,2,1,"0","MAXAMISE ALL 3 CHAP LENGTHS" 89774,2,"8",24,2,1,"0","" 89775,73,"897",77,0,0,"0","" 89776,4,"8",24,2,1,"0","" 89777,0,"8",24,2,1,"0","" 89778,80,"899",2,0,0,"0","CONVERT TO DEC" 89779,94,"897",73,0,1,"2","" 89780,52,"870",10,0,0,"0","" 89781,C,"910",2,0,0,"0","" 89782,154,"870",10,0,0,"0","TYPE COMBINED CHAP LENGTHS" 89783,10,"",0,0,0,"4630","" 89784,5,"908",14,0,0,"0","" 89785,0,"8",10,2,0,"0","TOTAL CHAPS IN OBJECT PROGRAM" 89786,5,"16",10,1,0,"0","" 89787,91,"16",10,0,1,"0","0:X" 89788,10,"",0,0,0,"4","" 89789,4,"8",10,2,0,"0","" 89790,80,"904",2,0,0,"0",">WRITE" 89800,PROCR,"898",,,,"","COPY OBJECT PROGRAM: JOIN ON TRANSLATOR" 89802,80,"894",2,0,0,"0","READ A2" 89803,,"8",4,1,0,"0","" 89804,2,"908",2,1,0,"0"," 'PREND'" 89805,71,"898",8,0,0,"0",">NO" 89806,41,"A2",0,0,0,"1","CSE" 89807,76,"898",10,0,0,"0","" 89808,80,"904",2,0,0,"0",">WRITE A6" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000778.JPG",,,,"","RayS/Q1000778" 89809,76,"898",2,0,0,"0","" 89810,80,"905",2,0,0,"0",">READ A1 TO SEC 8 OF TRANSLATOR" 89811,80,"907",2,0,0,"0","'CHAPT' SR" 89812,71,"898",10,0,0,"0",">NOT START" 89813,76,"898",17,0,0,"0",">(AT START OF PASS 1 NOW)" 89814,80,"905",2,0,0,"0",">READ A1" 89815,80,"907",2,0,0,"0",">'CHAPT' SR" 89816,71,"898",27,0,0,"0",">NO" 89817,80,"905",2,0,0,"0","READ/WRITE FIRST BLOCK" 89818,80,"904",2,0,0,"0","" 89819,80,"905",2,0,0,"0","READ/WRITE SECOND BLOCK" 89820,80,"904",2,0,0,"0","" 89821,80,"905",2,0,0,"0","READ BLOCK WITH LOCN 35=1/1/3 N" 89822,0,"16",10,0,0,"0","X=TOT CHAPS IN OBJECT PROGM" 89823,11,"",0,0,0,"1.001","1/1/3 1" 89824,5,"8",50,2,0,"0","" 89825,10,"",0,0,0,"1","" 89826,4,"16",10,0,0,"0","STEP CTR" 89827,,"8",4,1,0,"0","" 89828,2,"908",2,1,0,"0","'PREND'" 89829,70,"899",10,0,0,"0",">YES" 89830,80,"904",2,0,0,"0",">WRITE A6" 89831,76,"898",14,0,0,"0",">LOOP" 89832,80,"900",2,0,0,"0","MERGE S/R" 89833,41,"A1",0,0,0,"1","" 89834,40,"A1",0,0,0,"1","" 89835,80,"903",2,0,0,"0","READ A1 TO SECN 7" 89836,80,"906",2,0,0,"0","" 89837,C,"909",83,0,0,"0","" 89838,,"7",6,1,0,"0","" 89839,2,"908",12,1,0,"0","'INDEX'" 89840,71,"898",35,0,0,"0",">GET TO INDEX BLOCK" 89841,80,"903",2,0,0,"0","" 89842,,"7",4,2,0,"0","" 89843,12,"",0,0,0,"8000","" 89844,71,"898",35,0,0,"0",">GET TO TRANS" 89845,,"7",6,2,0,"0","" 89846,30,"",0,0,0,"2-","" 89847,12,"",0,0,0,"899","" 89848,71,"898",35,0,0,"0",">GET TO 899 VERSION" 89849,80,"903",2,0,0,"0","READ" 89850,80,"906",2,0,0,"0","" 89851,C,"909",83,0,0,"0","" 89852,,"7",42,1,0,"0","" 89853,2,"908",10,1,0,"0","'ALLOC'" 89854,71,"898",49,0,0,"0",">GET TO ALLOC BLOCK" 89855,90,"",0,0,1,"0","" 89856,C,"",0,0,0,"6","" 89857,,"870",4,0,1,"0","" 89858,2,"7",24,2,1,"0","" 89859,73,"898",62,0,0,"0","" 89860,94,"898",57,0,1,"2","" 89861,76,"897",15,0,0,"0",">ALL CHAPS OK" 89862,46,"A6",10,0,0,"0","RUN BACK TO PASS 3 START" 89863,C,"",0,0,0,"2","" 89864,42,"A6",0,0,0,"0","READ" 89865,C,"8",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000779.JPG",,,,"","KenK/Q1000779" 89866,,"8",42,1,0,"0","" 89867,2,"908",10,1,0,"0","ALLOC' " 89868,71,"898",64,0,0,"0","gGET TO ALLOC BLOCK " 89869,90,"",0,0,1,"0","" 89870,C,"",0,0,0,"6","" 89871,,"7",24,2,1,"0","" 89872,2,"870",4,0,1,"0","" 89873,73,"898",76,0,0,"0","gCHAP NOT BIGGER " 89874,4,"8",24,2,1,"0","" 89875,4,"870",4,0,1,"0","" 89876,94,"898",71,0,1,"2","" 89877,48,"A6",0,0,0,"3","" 89878,C,"",0,0,0,"1","" 89879,80,"904",2,0,0,"0","REWRITE ALLOC BLOCK " 89880,47,"A6",2,0,0,"0","" 89881,C,"",0,0,0,"ppppp","" 89882,48,"A6",0,0,0,"0","" 89883,C,"",0,0,0,"1","" 89884,76,"897",15,0,0,"0","gJOIN UP " 89900,PROCR,"899",,,,"","END ROUTINE " 89902,81,"899",2,0,0,"0","CONVERT S/R " 89903,5,"870",2,0,0,"0","" 89904,60,"",0,0,0,"0","" 89905,124,"909",22,0,2,"0","" 89906,112,"870",2,0,0,"0","" 89907,5,"870",4,0,1,"0","" 89908,62,"",0,0,0,"0","" 89909,82,"899",2,0,0,"0","" 89910,80,"904",2,0,0,"0","g WRITE 'PREND' " 89911,,"908",26,1,0,"0","" 89912,5,"8",4,1,0,"0","" 89913,0,"908",12,1,0,"0","INDEX' " 89914,5,"8",6,1,0,"0","" 89915,10,"",0,0,0,"ppppp","" 89916,5,"8",8,2,0,"0","" 89917,10,"",0,0,0,"3","" 89918,5,"8",10,1,0,"0","" 89919,80,"904",2,0,0,"0","g WRITE 2ND INDEX BLOCK " 89920,80,"902",2,0,0,"0","" 89921,41,"A1",0,0,0,"1","" 89922,41,"A6",0,0,0,"0","" 89923,125,"",0,1,2,"0","CLEAR " 89924,5,"908",60,0,0,"0","" 89925,5,"909",98,0,0,"0","" 89926,76,"884",40,0,0,"0","" 90000,PROCR,"900",,,,"","S/R TO MERGE 08066 AND 08061 " 90002,81,"900",2,0,0,"0","" 90003,40,"A6",0,0,0,"0","" 90004,32,"",0,0,0,"10","" 90005,5,"869",14,0,0,"0","SPOOL NUMBER " 90006,80,"904",2,0,0,"0","WRITE 2 BLANK BLOCKS " 90007,80,"904",2,0,0,"0","" 90008,,"908",26,1,0,"0","ALIGNMENT MARKS " 90009,5,"8",4,1,0,"0","" 90010,,"908",12,1,0,"0","" 90011,5,"8",6,1,0,"0","INDEX' " 90012,10,"",0,0,0,"ppppp","" 90013,5,"8",8,2,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000780.JPG",,,,"","KenK/Q1000780" 90014,10,"",0,0,0,"2","" 90015,5,"8",10,2,0,"0","" 90016,80,"904",2,0,0,"0","WRITE " 90017,80,"902",2,0,0,"0","WRITE 2ND INDEX BLOCK " 90018,47,"A2",10,0,0,"0","" 90019,C,"",0,0,0,"2","" 90020,80,"894",2,0,0,"0","READ A2 TO SCN 8 " 90021,80,"906",2,0,0,"0","" 90022,C,"909",82,0,0,"0","" 90023,,"8",12,1,0,"0","" 90024,12,"",0,0,0,"6751727243"," 'PASS 3' " 90025,71,"900",20,0,0,"0","gREAD TILL PASS 3 " 90026,80,"904",2,0,0,"0","WRITE " 90027,80,"894",2,0,0,"0","READ A2 " 90028,80,"906",2,0,0,"0","" 90029,C,"909",82,0,0,"0","" 90030,,"8",42,1,0,"0","" 90031,2,"908",10,1,0,"0"," 'ALLOC' " 90032,71,"900",26,0,0,"0","gCOPY BLOCKS TILL 'ALLOC' " 90033,,"8",10,2,0,"0","" 90034,5,"16",10,1,0,"0","" 90035,90,"",0,0,1,"0",";STORE CHAP LENGHTS " 90036,C,"",0,0,0,"6","" 90037,,"8",24,2,1,"0","" 90038,5,"870",4,0,1,"0","" 90039,94,"900",37,0,1,"2","" 90040,80,"904",2,0,0,"0","WRITE " 90041,80,"894",2,0,0,"0","READ A2 " 90042,80,"906",2,0,0,"0","" 90043,C,"909",82,0,0,"0","" 90044,,"8",12,1,0,"0","" 90045,2,"908",8,1,0,"0"," 'CHAPT' " 90046,71,"900",40,0,0,"0","WRITE UNTIL CHAPT " 90100,PROCR,"901",,,,"","" 90102,40,"A1",0,0,0,"1","" 90103,80,"905",2,0,0,"0","READ A1 " 90104,80,"906",2,0,0,"0","" 90105,C,"909",83,0,0,"0","" 90106,,"8",6,1,0,"0","" 90107,2,"908",12,1,0,"0"," 'INDEX' " 90108,71,"901",3,0,0,"0","gGET TO INDEX " 90109,80,"905",2,0,0,"0","READ NEXT BLOCK " 90110,,"8",4,2,0,"0","" 90111,12,"",0,0,0,"8061","HAS CORR PROG BEEN LOADED? " 90112,71,"897",5,0,0,"0","gNO, RETURN TO *05 " 90113,80,"905",2,0,0,"0","READ A1 " 90114,80,"906",2,0,0,"0","" 90115,C,"909",83,0,0,"0","" 90116,0,"8",42,1,0,"0","" 90117,2,"908",10,1,0,"0"," 'ALLOC' " 90118,71,"901",13,0,0,"0","gGET TO ALLOC " 90119,90,"",0,0,1,"0","" 90120,C,"",0,0,0,"6",";COMPARE CHAP LENGHTS " 90121,,"8",24,2,1,"0",";08066 AND 08061 " 90122,2,"870",4,0,1,"0","" 90123,73,"901",25,0,0,"0","" 90124,4,"870",4,0,1,"0","" 90125,94,"901",21,0,1,"2","" 90126,80,"905",2,0,0,"0","READ A1 TO SECN 8 " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000781.JPG",,,,"","KenK/Q1000781" 90127,80,"906",2,0,0,"0","" 90128,C,"909",83,0,0,"0","" 90129,,"8",12,1,0,"0","" 90130,2,"908",8,1,0,"0"," 'CHAPT' " 90131,71,"901",26,0,0,"0","gGET TO'CHAPT' " 90132,90,"",0,0,1,"1","" 90133,C,"",0,0,0,"5","" 90134,,"16",2,0,0,"0","PROG ID 08066 " 90135,5,"8",8,2,0,"0","" 90136,,"16",3,0,0,"0","SERIAL " 90137,5,"8",10,2,0,"0","" 90138,80,"904",2,0,0,"0","WRITE " 90139,80,"905",2,0,0,"0","READ " 90140,80,"906",2,0,0,"0","" 90141,C,"909",83,0,0,"0","" 90142,,"8",12,1,0,"0","" 90143,2,"908",8,1,0,"0"," 'CHAPT' " 90144,71,"901",38,0,0,"0","gWRITE CONTENTS " 90145,94,"901",34,0,1,"1","gWRITE CHAPT BLOCK " 90146,80,"894",2,0,0,"0","READ A2 " 90147,80,"906",2,0,0,"0","" 90148,C,"909",82,0,0,"0","" 90149,,"8",12,1,0,"0","" 90150,2,"908",8,1,0,"0"," 'CHAPT' " 90151,71,"901",46,0,0,"0","gGET TO CHAPT " 90152,,"8",4,2,0,"0","" 90153,12,"",0,0,0,"5","" 90154,71,"901",46,0,0,"0","gGET TO CHAPT 5 " 90155,90,"",0,0,1,"5","" 90156,C,"",0,0,0,"10","" 90157,80,"904",2,0,0,"0","WRITE " 90158,80,"894",2,0,0,"0","READ A2 " 90159,80,"906",2,0,0,"0","" 90160,C,"909",82,0,0,"0","" 90161,,"8",12,1,0,"0","" 90162,2,"908",8,1,0,"0"," 'CHAPT' " 90163,71,"901",57,0,0,"0","gWRITE CONTENTS " 90164,94,"901",57,0,1,"1","gWRITE CHAPT BLOCK " 90165,80,"905",2,0,0,"0","READ A1 " 90166,80,"906",2,0,0,"0","" 90167,C,"909",83,0,0,"0","" 90168,,"8",12,1,0,"0","" 90169,2,"908",8,1,0,"0"," 'CHAPT' " 90170,71,"901",65,0,0,"0","GET TO CHAPT " 90171,,"8",4,2,0,"0","" 90172,101,"",10,1,2,"0","" 90173,71,"901",65,0,0,"0","gGET TO CHAPT 10 " 90174,,"16",2,0,0,"0","PROG ID 08066 " 90175,5,"8",8,2,0,"0","" 90176,,"16",3,0,0,"0","SERIAL " 90177,5,"8",10,2,0,"0","" 90178,80,"904",2,0,0,"0","WRITE " 90179,80,"905",2,0,0,"0","READ A1 " 90180,80,"906",2,0,0,"0","" 90181,C,"909",83,0,0,"0","" 90182,,"8",4,1,0,"0","" 90183,2,"908",2,1,0,"0"," 'PREND' " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000782.JPG",,,,"","RayS/Q1000782" 90184,70,"901",91,0,0,"0","" 90185,,"8",12,1,0,"0","" 90186,2,"908",8,1,0,"0","'CHAPT'" 90187,71,"901",78,0,0,"0",">WRITE CONTENTS" 90188,,"8",4,2,0,"0","" 90189,101,"",13,1,2,"0","" 90190,71,"901",74,0,0,"0",">WRITE CHAPT BLOCK" 90191,41,"A2",0,0,0,"1","" 90192,82,"900",2,0,0,"0","" 90200,PROCR,"902",,,,"","WRITE 2ND INDEX BLOCK S/R" 90202,81,"902",2,0,0,"0","" 90203,,"16",2,0,0,"0","PROG ID" 90204,5,"8",4,2,0,"0","" 90205,,"16",3,0,0,"0","SERIAL" 90206,5,"8",6,2,0,"0","" 90207,10,"",0,0,0,"2","" 90208,3,"8",8,2,0,"0","" 90209,5,"8",10,2,0,"0","" 90210,10,"",0,0,0,"£££££","" 90211,5,"8",12,2,0,"0","" 90212,80,"904",2,0,0,"0","WRITE" 90213,82,"902",2,0,0,"0","" 90300,PROCR,"903",,,,"","READ A1>SEC 7" 90302,81,"903",2,0,0,"0","" 90303,42,"A1",0,0,0,"0","" 90304,C,"7",0,0,0,"0","" 90305,82,"903",2,0,0,"0","" 90400,PROCR,"904",,,,"","WRITE SEC 8>A6" 90402,81,"904",2,0,0,"0","" 90403,55,"8",4,1,0,"50","" 90404,C,"9",4,1,0,"0","" 90405,,"908",24,1,0,"0","BEW" 90406,5,"9",52,1,0,"0","" 90407,54,"8",4,1,0,"50","" 90408,43,"A6",0,0,0,"0","" 90409,C,"9",0,0,0,"0","" 90410,82,"904",2,0,0,"0","" 90500,PROCR,"905",,,,"","READ A1>SEC 8" 90502,81,"905",2,0,0,"0","" 90503,42,"A1",0,0,0,"0","" 90504,C,"8",0,0,0,"0","" 90505,82,"905",2,0,0,"0","" ,,"",,,,"","" 90600,PROCR,"906",,,,"","TEST FINIS ON A2 AND A1 (08066 ONLY)" 90602,81,"906",2,0,0,"0","" 90603,,"8",4,1,0,"0","" 90604,2,"908",6,1,0,"0","'FINIS'" 90605,71,"906",10,0,0,"0",">NO" 90606,,"1001",0,0,0,"0","" 90607,5,"909",94,0,0,"0","" 90608,154,"909",84,0,0,"0","" 90609,76,"884",40,0,0,"0","" 90610,82,"906",2,0,0,"0","" 90700,PROCR,"907",,,,"","'CHAPT' SR" 90702,81,"907",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000783.JPG",,,,"","RayS/Q1000783" 90703,,"8",12,1,0,"0","" 90704,2,"908",8,1,0,"0","'CHAPT'" 90705,71,"907",24,0,0,"0",">NO" 90706,0,"8",4,2,0,"0","CHAP NUMBER" 90707,12,"",0,0,0,"4","" 90708,2,"909",98,0,0,"0","0 OR 9" 90709,73,"907",11,0,0,"0",">CHAP 1, PASS 0, SPECIAL" 90710,76,"907",16,0,0,"0","" 90711,80,"905",2,0,0,"0",">READ" 90712,0,"8",12,1,0,"0","" 90713,2,"908",8,1,0,"0","'CHAPT'" 90714,71,"907",11,0,0,"0",">DRAIN TO NEXT CHAP START" 90715,76,"907",6,0,0,"0","" 90716,125,"",1,0,1,"0","STEP CTR" 90717,96,"",0,0,1,"0","" 90718,5,"8",4,2,0,"0","SET CHAP NUMBER" 90719,,"16",2,0,0,"0","OBJECT PROG ID" 90720,5,"8",8,2,0,"0","" 90721,,"16",3,0,0,"0","SERIAL" 90722,5,"8",10,2,0,"0","" 90723,80,"904",2,0,0,"0",">WRITE A6" 90724,82,"907",2,0,0,"0","A CLEAR IF WAS 'CHAPT'" 90800,CONST,"908",,1,,"","" 90802,,"(A)PREND;",,,,"","" 90804,,"CHAIN;",,,,"","" 90806,,"FINIS;",,,,"","" 90808,,"CHAPT;",,,,"","" 90810,,"ALLOC;",,,,"","" 90812,,"INDEX;",,,,"","" 90814,,"(A)08060;",,,,"","" 90816,,"CHAPS;",,,,"","" 90818,," ON;",,,,"","" 90820,,"(D)5.5.;",,,,"","" 90822,,"(A)0;",,,,"","" 90824,,"(D)7.0000007.;",,,,"","" 90826,,"6£6£6£6£6£;",,,,"","" 90828,,"(A)MADE ;",,,,"","" 90830,,"BY 08;",,,,"","" 90832,,"000 I;",,,,"","" 90834,,"SSUE ;",,,,"","" 90836,,"8 SE;",,,,"","" 90838,,"RIAL ;",,,,"","" 90840,,"70000;",,,,"","" 90842,,"/;",,,,"","" 90844,,"SPOOL;",,,,"","" 90846,,"08000;",,,,"","" 90848,,"MAKES;",,,,"","" 90850,,"COPY ;",,,,"","" 90852,,"PASS3;",,,,"","" 90854,,"0;",,,,"","WL'S" 90856,,"0;",,,,"","WL'S" 90858,,"0;",,,,"","WL'S" 90860,,"0;",,,,"","IND" 90862,,"(A)PT OM;",,,,"","" 90864,,"ITTED;",,,,"","" 90866,,"DISAS;",,,,"","" 90868,,"TROUS;",,,,"","" 90870,,"OTHER;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000784.JPG",,,,"","DaveJ/Q1000784" 90872,,"S ;",,,,"","" 90874,,"YES;",,,,"","" 90876,,"NO;",,,,"","" 90878,," IN;",,,,"","" 90880,,"TERCO;",,,,"","" 90882,,"DE ;",,,,"","" 90884,," TRI;",,,,"","" 90886,,"AL DA;",,,,"","" 90888,,"TA ;",,,,"","" 90890,,"SERIA;",,,,"","" 90892,,"L NUM;",,,,"","" 90894,,"BERS ;",,,,"","" 90896,,"OF IN;",,,,"","" 90898,,"TERCO;",,,,"","" 0query,164,"",,,,"","!!!REPLICATED SERIAL NUMBER" 90898,,"DE RE;",,,,"","/////" 0query,164,"",,,,"","DITTO - NOT SURE WHAT WILL HAPPEN HERE" 90898,,"PORTS;",,,,"","/////" 90900,CONST,"909",,1,,"","COMPILER'S CONVERT TABLES" 90902,,"(D)1;",,,,"","DEC->BIN" 90904,,"t;",,,,"","" 90906,,"64;",,,,"","" 90908,,"3.8;",,,,"","" 90910,,"2710;",,,,"","" 90912,,"186t0;",,,,"","" 90914,,"p4240;",,,,"","" 90916,,"989680;",,,,"","" 90918,,"5p5.100;",,,,"","" 90920,,"3e9t+t00;",,,,"","" 90922,,"1;",,,,"","BIN->DEC" 90924,,"16;",,,,"","" 90926,,"256;",,,,"","" 90928,,"4096;",,,,"","" 90930,,"65536;",,,,"","" 90932,,"1048576;",,,,"","" 90934,,"16777216;",,,,"","" 90936,,"268435456;",,,,"","" 90938,,"4294967296;",,,,"","" 90940,,"pppppppppp;",,,,"","" 90942,,"1;",,,,"","STERLINGgBIN" 90944,,"+;",,,,"","" 90946,,"78;",,,,"","" 90948,,"p0;",,,,"","" 90950,,"960;",,,,"","" 90952,,"5:+0;",,,,"","" 90954,,"3t980;",,,,"","" 90956,,"249p00;",,,,"","" 90958,,"16.3600;",,,,"","" 90960,,".4.1+00;",,,,"","" 90962,,"1;",,,,"","BINgSTERLING" 90964,,"14;",,,,"","" 90966,,"1014;",,,,"","" 90968,,"17014;",,,,"","" 90970,,"273014;",,,,"","" 90972,,"4369014;",,,,"","" 90974,,"69905014;",,,,"","" 90976,,"1118481014;",,,,"","" 90978,,"pppppppppp;",,,,"","" 90980,,"pppppppppp;",,,,"","" 90982,,"1000020000;",,,,"","" 90984,,"(A)08000;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000785.JPG",,,,"","DaveJ/Q1000785" 90986,," UNEX;",,,,"","" 90988,,"PECTE;",,,,"","" 90990,,"D FIN;",,,,"","" 90992,,"IS ON;",,,,"","" 90994,," A ;",,,,"","" 90996,,"(D)5.5.;",,,,"","" 90998,,"0;",,,,"","N.B. THIS IS NOT SPARE" 91000,TABLE,"910",,1,,"","" 91002,908,14,0,0,2,0,5,0,0,0,0,0,0,"08060'" 91004,908,16,0,0,2,0,5,0,1,0,0,0,0,"CHAPS'" 91006,870,4,0,0,0,0,5,0,1,4,0,0,0,"LENGTHS" 91008,870,6,0,0,0,0,5,0,1,4,0,0,0,"" 91010,870,8,0,0,0,0,5,0,0,4,0,0,0,"" 91012,908,18,0,0,2,0,2,3,2,0,0,0,0,"ON'" 91014,869,14,0,0,0,0,5,0,1,0,0,0,0,"SPOOL NUMBER" 91016,908,20,0,0,2,0,2,3,0,0,0,0,1,"DOUBLE LE" 91018,908,18,0,0,2,0,2,3,1,0,0,0,0,"ON'" 91020,908,40,0,0,1,0,2,4,1,2,0,0,0,"DAY" 91022,908,42,0,0,2,0,1,4,0,0,0,0,0,"/'" 91024,908,40,0,0,0,0,2,1,0,2,0,0,0,"MONTH" 91026,908,42,0,0,2,0,1,4,0,0,0,0,0,"/'" 91028,908,40,0,0,0,0,2,3,0,2,0,0,0,"YEAR" 91030,908,44,0,0,2,0,5,0,2,0,0,0,0,"SPOOL'" 91032,908,22,0,0,0,0,5,0,1,5,0,0,1,"NUMBER" 91034,908,46,0,0,2,0,5,0,2,0,0,0,0,"08000'" 91036,908,48,0,0,2,0,5,0,1,0,0,0,0,"MAKES" 91038,908,52,0,0,2,0,5,0,1,0,0,0,0,"PASS5" 91040,908,50,0,0,2,0,5,0,1,0,0,0,0,"COPY'" 91042,908,18,0,0,2,0,2,3,0,0,0,0,0,"ON'" 91044,908,56,0,0,0,0,5,0,1,5,0,0,0,"SPOOL NUMBER" 91046,908,20,0,0,2,0,2,3,0,0,0,0,1,"DOUBLE LINE END" 91048,905,2,0,0,0,0,3,2,0,2,0,0,0,"REF----ACTIONS WITH NEG ADDRESS" 91050,904,2,0,0,0,0,5,0,2,4,0,0,1,"PROCR" 91052,908,54,0,0,0,0,4,1,1,3,0,0,0,"TRANSLATOR REPORTS" 91054,908,56,0,0,0,0,5,0,10,4,0,0,0,"08005 REPORTS" 91056,40,0,0,0,0,0,5,0,6,5,0,0,0,"SERIAL NUMBERS OF" 91058,40,1,0,0,0,0,5,0,1,5,0,0,0,"INTERCODE REPORTS" 91060,40,2,0,0,0,0,5,0,1,5,0,0,0,"" 91062,40,3,0,0,0,0,5,0,1,5,0,0,0,"" 91064,40,4,0,0,0,0,5,0,1,5,0,0,0,"" 91066,40,5,0,0,0,0,5,0,1,5,0,0,0,"" 91068,40,6,0,0,0,0,5,0,1,5,0,0,0,"" 91070,40,7,0,0,0,0,5,0,1,5,0,0,0,"" 91072,40,8,0,0,0,0,5,0,1,5,0,0,0,"" 91074,40,9,0,0,0,0,5,0,1,5,0,0,1,"" 91100,PROCR,"911",,,,"","CLOSE I/P FILE" 91102,81,"911",2,0,0,"0","" 91103,0,"908",6,1,0,"0","FINIS'" 91104,124,"999",10,0,3,"0","" 91105,124,"",64,1,2,"0","" 91106,102,"",4,1,0,"0","PLANT" 91107,41,"A2",0,0,0,"1","" 91108,82,"911",2,0,0,"0","" 91200,PROCR,"912",,,,"","CONVERT TO DEC" 91202,81,"912",2,0,0,"0","" 91203,5,"911",2,0,0,"0","" 91204,60,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000786.JPG",,,,"","DaveJ/Q1000786" 91205,124,"909",22,0,2,"0","" 91206,112,"911",2,0,0,"0","" 91207,82,"912",2,0,0,"0","" 91300,PROCR,"913",,,,"","O/P->A9" 91302,81,"913",2,0,0,"0","" 91303,94,"913",9,0,6,"50","" 91304,,"908",24,1,0,"0","" 91305,5,"10",306,1,0,"0","" 91306,80,"914",2,0,0,"0","" 91307,90,"",0,0,6,"0","" 91308,C,"",0,0,0,"300","" 91309,82,"913",2,0,0,"0","" 91400,PROCR,"914",,,,"","WRITE A9" 91402,81,"914",2,0,0,"0","" 91403,10,"",0,0,0,"800000","" 91404,34,"999",12,0,0,"0","SEC 10" 91405,125,"",4096,1,1,"0","" 91406,1,"999",7,0,0,"0","D1/A9" 91407,124,"999",0,0,3,"0","" 91408,123,"",160,0,2,"0","" 91409,82,"914",2,0,0,"0","" 91500,PROCR,"915",,,,"","COPY WORDS FOR ERROR TOTALS REPORTS" 91502,81,"915",2,0,0,"0","" 91503,,"908",62,1,1,"0","" 91504,5,"5",6,1,0,"0","" 91505,,"908",64,1,1,"0","" 91506,5,"5",8,1,0,"0","" 91507,80,"888",2,0,0,"0",">SUPPRESS I/C IF TRAMD ONLY" 91508,80,"892",2,0,0,"0","PRINT" 91509,82,"915",2,0,0,"0","" 91600,PROCR,"916",,,,"","EDIT NUMBER OF REPORTS" 91602,81,"916",2,0,0,"0","" 91603,5,"908",54,0,0,"0","" 91604,52,"5",12,0,0,"0","" 91605,C,"910",52,0,0,"0","" 91606,55,"40",10,0,0,"10","COPY'OTHERS'SERIAL NOS" 91607,C,"40",0,0,0,"0","" 91608,82,"916",2,0,0,"0","" 91700,CONST,"917",,1,,"","BLISTER SPACE PASS 5" 91702,,"(D)0;",,,,"","" 91704,,"0;",,,,"","" 91706,,"0;",,,,"","" 91708,,"0;",,,,"","" 91710,,"0;",,,,"","" 91712,,"0;",,,,"","" 91714,,"0;",,,,"","" 91716,,"0;",,,,"","" 91718,,"0;",,,,"","" 91720,,"0;",,,,"","" 91722,,"0;",,,,"","" 91724,,"0;",,,,"","" 91726,,"0;",,,,"","" 91728,,"0;",,,,"","" 91730,,"0;",,,,"","" 91732,,"0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000787.JPG",,,,"","DaveJ/Q1000787" 91734,,"0;",,,,"","" 91736,,"0;",,,,"","" 91738,,"0;",,,,"","" 91740,,"0;",,,,"","" 91742,,"0;",,,,"","" 91744,,"0;",,,,"","" 91746,,"0;",,,,"","" 91748,,"0;",,,,"","" 91750,,"0;",,,,"","" 91752,,"0;",,,,"","" 91754,,"0;",,,,"","" 91756,,"0;",,,,"","" 91758,,"0;",,,,"","" 91760,,"0;",,,,"","" 91800,PROCR,"918",,,,"","PASS 6=REMAINDER OF PTS" 91802,152,"101",2,0,0,"0","" 91803,C,"995",0,0,0,"0","" 91804,124,"992",2,0,2,"0","SECOND LEVEL PARAS" 91805,91,"",0,0,1,"0","SECOND LEVEL PARAS" 91806,124,"922",2,0,2,"0","" 91807,91,"",0,0,2,"0","ORDERS" 91808,124,"987",2,0,2,"0","" 91809,91,"",0,0,3,"0","FIRST LEVEL PARAS" 91810,0,"987",2,0,0,"0","" 91811,31,"",0,0,0,"2","" 91812,5,"921",11,0,0,"0","" 91813,0,"992",2,0,0,"0","" 91814,31,"",0,0,0,"2","" 91815,5,"921",17,0,0,"0","" 91816,90,"",0,0,5,"0","" 91817,C,"",0,0,0,"6","" 91818,90,"",0,0,8,"0","" 91819,C,"",0,0,0,"3","" 91820,80,"920",2,0,0,"0","gO/P PTS(2)" 91821,10,"",0,0,0,"5358596773","CHIPT'" 91822,5,"8",12,1,0,"0","" 91823,80,"919",2,0,0,"0","gWRITE" 91824,80,"920",2,0,0,"0","gO/P PTS(3)" 91825,76,"882",15,0,0,"0","gO/P'PREND'" 91900,PROCR,"919",,,,"","WRITE8->A2" 91902,81,"919",2,0,0,"0","" 91903,10,"",0,0,0,"7.0000007.","" 91904,5,"8",52,1,0,"0","" 91905,43,"A2",0,0,0,"0","" 91906,C,"8",0,0,0,"0","" 91907,54,"8",4,1,0,"50","" 91908,82,"919",2,0,0,"0","" 92000,PROCR,"920",,,,"","WRITE CHUNK.SR" 92002,81,"920",2,0,0,"0","" 92003,96,"",0,0,2,"0","STORE CHUNK START FOR PARAS 1 AND 5" 92004,5,"921",2,0,0,"0","" 92005,124,"921",2,0,1,"0","" 92006,101,"",0,1,3,"0","" 92007,5,"921",6,0,0,"0","CHUNK START" 92008,124,"999",19,1,2,"0","" 92009,124,"",0,0,2,"0","" 92010,3,"919",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000788.JPG",,,,"","RayS/Q1000788" 92011,101,"",48,1,1,"0","" 92012,30,"",0,0,0,"5","" 92013,1,"919",2,0,0,"0","" 92014,91,"",0,0,4,"0","" 92015,124,"921",4,0,3,"0","STORE WORD" 92016,106,"",0,0,2,"0","" 92017,5,"921",7,0,0,"0","STORE WORD" 92018,34,"921",10,1,0,"0","FIRST LEVEL PARA WORD" 92019,33,"",0,0,0,"3","NEXT ONE TO A" 92020,100,"921",8,1,0,"0","STORE (A) (B) ( C)" 92021,94,"920",29,0,5,"1","TEST END OF PARA WORD" 92022,90,"",0,0,5,"0","SET UP MR FOR" 92023,C,"",0,0,0,"6","NEXT PARA WORD" 92024,124,"921",4,0,3,"0","STORE PARA WORD" 92025,106,"",1,0,3,"0","STORE PARA WORD" 92026,33,"",0,0,0,"2","RIGHT ALIGN WORD" 92027,5,"921",11,0,0,"0","" 92028,94,"920",29,0,3,"1","STEP PARAS MR" 92029,,"921",8,0,0,"0","TEST DUMMY PARA" 92030,12,"",0,0,0,"6","" 92031,70,"920",18,0,0,"0",">YES" 92032,12,"",0,0,0,"1","TEST SECOND LEVEL REQD" 92033,71,"920",57,0,0,"0",">NO" 92034,34,"921",16,1,0,"0","SECOND LEVEL PARA WORD" 92035,33,"",0,0,0,"6","NEXT ONE TO A" 92036,100,"921",14,1,0,"0","STORE (A) (B) ( C)" 92037,94,"920",45,0,8,"1","TEST END OF PARA WORD" 92038,90,"",0,0,8,"0","SET UP MR FOR" 92039,C,"",0,0,0,"3","NEXT PARA WORD" 92040,124,"921",4,0,3,"0","STORE PARA WORD" 92041,106,"",1,0,1,"0","" 92042,33,"",0,0,0,"2","RIGHT ALIGN WORD" 92043,5,"921",17,0,0,"0","" 92044,94,"920",45,0,1,"1","STEP PARAS MR" 92045,,"921",14,0,0,"0","TEST SECOND LEVEL" 92046,101,"",63,1,2,"0","PARA=63(DUMMY)" 92047,70,"920",34,0,0,"0",">YES" 92048,101,"",1,1,1,"0","TEST END SIGN(62)" 92049,71,"920",55,0,0,"0",">NO" 92050,,"921",4,1,0,"0","STORE END SIGN" 92051,5,"",4,1,4,"0","" 92052,5,"",6,1,4,"0","" 92053,80,"919",2,0,0,"0",">WRITE LAST BLOCK" 92054,82,"920",2,0,0,"0",">LEAVE S/R" 92055,,"921",14,1,0,"0","STORE ACTUAL PARA" 92056,5,"921",8,1,0,"0","VALUE" 92057,,"921",8,0,0,"0","TEST PARA=1" 92058,12,"",0,0,0,"1","" 92059,70,"920",62,0,0,"0",">YES" 92060,12,"",0,0,0,"1","" 92061,71,"920",72,0,0,"0",">NO" 92062,101,"",8191,1,3,"0","" 92063,32,"",0,0,0,"10-","" 92064,36,"921",7,0,0,"0","INSTRUCTION 13-BIT ADDRESS" 92065,101,"987",2,1,2,"0","PTS(2,3)END" 92066,73,"920",80,0,0,"0",">NORMAL ORDER NOT ADDRESSING PTS(1)" 92067,35,"",0,0,0,"11111","" 92068,10,"",0,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000789.JPG",,,,"","RayS/Q1000789" 92069,36,"921",7,0,0,"0","" 92070,101,"757",2,1,2,"0","PTS(2,3)START IN PTS(1)" 92071,37,"921",7,0,0,"0","" 92072,,"921",7,0,0,"0","" 92073,5,"",6,2,4,"0","" 92074,,"921",8,0,0,"0","" 92075,5,"",4,2,4,"0","" 92076,94,"920",77,0,2,"1","WORD MR" 92077,94,"920",15,0,4,"4",">NEXT WORD" 92078,80,"919",2,0,0,"0","" 92079,76,"920",8,0,0,"0",">NEXT BLOCK" 92080,101,"987",2,1,1,"0","" 92081,2,"921",6,0,0,"0","13-BIT CHUNK START" 92082,76,"920",71,0,0,"0","" 92100,CONST,"921",,1,,"","CONSTANTS" 92102,,"(D);",,,,"","" 92104,,"(A)£ ;",,,,"","" 92106,,"(D)0;",,,,"","CHUNK START/ORDER" 92108,,"0;",,,,"","A" 92110,,"0;",,,,"","B" 92112,,"0;",,,,"","C" 92114,,"0;",,,,"","A" 92116,,"0;",,,,"","B" 92118,,"0;",,,,"","C" 92200,PROCR,"922",,,,"","2001 WRITE START BLOCK" 92202,124,"922",32,1,0,"0",">FROM PASS1" 92203,124,"923",2,1,0,"0",">FROM PROGRAMME" 92204,124,"935",2,1,0,"0",">FROM OPT 20 AND ABDON" 92205,124,"937",2,1,0,"0",">FROM OVERLAY(END)" 92206,76,"939",2,0,0,"0",">FROM OVERLAY(START)" 92207,10,"",0,0,0,"2","(FROM PROGRAM UNLOAD)" 92208,5,"741",2,0,0,"0","SET 'END' IND" 92209,76,"931",4,0,0,"0","" 92210,100,"",0,0,0,"0","LINK" 92211,124,"755",2,0,3,"0","PROG ID" 92212,106,"",39,0,0,"0","WL" 92213,5,"932",2,0,0,"0","" 92214,124,"922",22,0,2,"0","" 92215,128,"751",34,1,2,"0","" 92216,124,"751",34,0,2,"0","" 92217,125,"",4096,1,1,"0","" 92218,124,"951",8,0,3,"0","" 92219,123,"",168,0,2,"0","" 92220,100,"951",8,0,3,"0","" 92221,126,"922",10,0,1,"0","" 92222,100,"953",8,0,0,"0","'PTS' ('OP')" 92223,101,"",515,0,0,"0","2/0/3(0/0/3)" 92224,100,"953",2,0,0,"0","'ABAND'" 92225,101,"",21,0,0,"0","1/5" 92226,100,"953",4,0,0,"0","'ONS'" 92227,101,"",3,0,0,"0","" 92228,100,"932",2,0,0,"0","PROG ID" 92229,100,"",21,0,0,"0","1/5" 92230,100,"953",4,0,0,"0","DOUBLE LE" 92231,117,"",770,0,0,"0","3/0/2" 92232,100,"950",6,0,2,"0","" 92233,101,"",7,1,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000790.JPG",,,,"","RayS/Q1000790" 92234,126,"749",2,0,0,"0","" 92235,124,"950",8,1,2,"0","" 92236,106,"",4,1,0,"0","" 92237,105,"953",6,1,0,"0","" 92238,127,"922",43,0,0,"0",">YES" 92239,124,"950",8,1,2,"0","" 92240,106,"",12,1,0,"0","" 92241,105,"951",4,1,0,"0","" 92242,127,"922",32,0,1,"0",">NO" 92243,100,"954",2,0,2,"0","" 92244,101,"",44,1,3,"0","" 92245,126,"749",2,0,0,"0",">STEP BACK 1 I/P>" 92246,124,"952",14,0,2,"0","SET UP" 92247,102,"930",11,0,0,"0","IND MOD REG" 92248,124,"952",16,0,2,"0","AND ANOTHER" 92249,102,"933",10,0,0,"0","" 92250,0,"755",2,0,0,"0","SWITCH START" 92251,101,"",39,1,1,"0","" 92252,5,"952",12,0,0,"0","ADDRESS OF PROG ID" 92253,124,"952",2,0,2,"0","" 92254,124,"950",8,1,2,"0","-123" 92255,128,"",4,1,2,"0","EDIT 'START' BLOCK" 92256,126,"942",2,0,0,"0",">WRITE BLOCK, SET TAG 15" 92257,125,"",4096,1,1,"0","SET NON INT" 92258,0,"955",6,1,0,"0","" 92259,124,"755",6,0,3,"0","8X MOD GROUP" 92260,128,"",2,0,0,"0","CLEAR PROGS MOD REGISTERS" 92261,10,"",0,0,0,"£","" 92262,3,"744",75,0,0,"0","SET 'PROG IN CONTROL'" 92263,5,"949",11,0,0,"0","SET 'STATE OF TAPE' IND" 92264,100,"755",8,1,1,"0","RESTORE ORIGINAL (ABC)" 92265,126,"755",7,0,3,"0",">GO TO PROGS ENTRY POINT" 92300,PROCR,"923",,,,"","2002 ENTRY FROM PM POINT VIA 172-STORE LINKS, TEST TIME FOR PM" 92302,100,"952",2,1,0,"0","(ABC)>WL AND PROG SWITCH" 92303,124,"755",2,0,3,"0","" 92304,100,"",30,1,0,"0","" 92305,100,"951",8,0,3,"0","BIN" 92306,106,"955",2,1,0,"0","STORE CONTENTS OF" 92307,104,"755",6,0,0,"0","PROG'S MOD REGS" 92308,128,"952",8,0,0,"0","" 92309,5,"744",75,0,0,"0","SET 'PTS IN CONTROL'" 92310,101,"",15,0,1,"0","" 92311,124,"951",8,0,3,"0","" 92312,115,"",172,0,0,"0","ADDRESS OF PM SR LINK" 92313,101,"",4,1,2,"0","" 92314,102,"952",7,0,0,"0","" 92315,124,"952",7,0,3,"0","STORE PM SR LINK-1" 92316,106,"",0,0,0,"0","" 92317,101,"",1,1,2,"0","" 92318,102,"949",6,0,0,"0","" 92319,80,"946",2,0,0,"0",">SET MR2 TO SCAN PM LIST" 92320,106,"",0,0,2,"0","" 92321,105,"949",6,0,0,"0","" 92322,71,"924",28,0,0,"0",">NO, STEP R2" 92323,106,"",6,1,2,"0","TEST NOTHING TO DUMP" 92324,70,"924",5,0,0,"0",">RETURN TO PROG" 92325,10,"",0,0,0,"0","" 92326,101,"",3,0,1,"0","COLLATE N1" 92327,115,"",4,0,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000791.JPG",,,,"","ChuckK/Q1000791" 92328,127,"924",2,0,1,"0",">NO" 92329,101,"",6,0,1,"0","" 92330,115,"",5,0,2,"0","" 92331,71,"926",2,0,0,"0",">NO,TAKE A DUMP" 92400,PROCR,"924",,,,"","RETURN TO PROGRAM AFTER DUMP OR IF NOT DUMPING THIS TIME" 92402,106,"",4,0,2,"0","AUGMENT N1 BY -1" 92403,101,"",1,1,2,"0","" 92404,102,"",4,0,2,"0","" 92405,101,"",8,0,1,"0","AUGMENT LINK BY" 92406,115,"",5,0,2,"0","24 ACTION IND" 92407,118,"",4125,0,0,"0","" 92408,124,"952",7,0,3,"0","" 92409,107,"",0,0,0,"0","" 92410,106,"",2,0,2,"0","REPLACE INSTRUCTIONS" 92411,124,"952",7,0,3,"0","" 92412,102,"",4,0,0,"0","" 92413,106,"",3,0,2,"0","" 92414,124,"952",7,0,3,"0","" 92415,102,"",5,0,0,"0","" 92416,102,"949",2,1,0,"0","CLEAR W/L'S 1,2" 92417,102,"949",4,0,0,"0","AND 3" 92418,106,"956",2,1,0,"0","" 92419,124,"755",6,0,3,"0","PROG'S MOD REGS" 92420,128,"",2,0,0,"0","" 92421,125,"",4096,1,1,"0","" 92422,10,"",0,0,0,"1","" 92423,5,"744",75,0,0,"0","SET'PROG IN CONTROL'" 92424,76,"924",25,0,0,"0","DUMMY" 92425,100,"952",2,1,1,"0","RESTORE A;B;C" 92426,124,"951",8,0,3,"0","" 92427,126,"",172,0,3,"0",">RETURN TO PROGRAM VIA PTS SR" 92428,125,"",18,0,2,"0","" 92429,76,"923",20,0,0,"0",">NEXT PM POINT" 92430,126,"922",10,0,0,"0",">TYPE'PTS ABANDONS(PROG)'" 92431,76,"935",10,0,0,"0",">CONTINUE AS IF ABDON COMMAND" 92500,PROCR,"925",,,,"","2004 TYPE'PTS ABANDONS(PROG)'" 92600,PROCR,"926",,,,"","2005 SET UP HEADING BLOCK" 92602,101,"",16,1,2,"0","STEP N3 BY -1" 92603,114,"",5,0,2,"0","" 92604,106,"949",11,0,0,"0","" 92605,127,"926",7,0,1,"0",">YES" 92606,126,"948",2,0,0,"0",">RUN FORWARD TO FINIS:STEP BACK 1" 92607,101,"",15,1,3,"0","SET STATE OF TAPE INAT 15" 92608,102,"949",11,0,0,"0","" 92609,101,"",24,0,1,"0","SET N1=N2" 92610,115,"",4,0,2,"0","" 92611,118,"",4125,0,0,"0","" 92612,107,"",4,0,2,"0","" 92613,125,"",0,1,2,"0","" 92614,101,"",16,0,1,"0","" 92615,115,"",5,0,2,"0","" 92616,103,"949",4,0,0,"0","COPY TAPE TO W/L 3" 92617,105,"950",2,0,0,"0","" 92618,127,"926",21,0,1,"0",">NO" 92619,106,"950",2,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000792.JPG",,,,"","ChuckK/Q1000792" 92620,124,"935",16,1,0,"0",">YES" 92621,126,"947",2,0,0,"0",">TRANSFER CONTENTS OF MOD REGS TO O/P SE" 92622,106,"",1,0,2,"0",";TRANSFER I/C SERIAL" 92623,124,"950",8,1,2,"0",";TO O/P SECN" 92624,102,"",9,1,0,"0","" 92625,126,"951",8,1,1,"0","SET(MR1)=10/0" 92626,126,"951",10,1,3,"0","SET(MR3)=5/0" 92627,106,"952",2,0,3,"0",";TRANSFER CONTENTS" 92628,124,"950",8,1,2,"0",";OF (A), (B), C) TO" 92629,102,"",11,1,1,"0",";O/P SECN" 92630,125,"",2,0,1,"0","STEP MR1" 92631,124,"926",32,1,0,"0",">" 92632,125,"",1,0,3,"0","STEP MR3" 92633,124,"926",27,1,0,"0",">" 92700,PROCR,"927",,,,"","2006 SET UP HEADING BLOCK (2)" 92702,101,"",1,1,3,"0","SET HEADING IND" 92703,102,"949",7,0,0,"0","" 92704,106,"951",12,1,0,"0","SET IND MOD AT 12/0" 92705,102,"952",14,1,0,"0","" 92706,106,"949",4,0,0,"0","TRANSFER PM TYPE TO SECN" 92707,124,"950",8,1,2,"0","" 92708,103,"",7,1,0,"0",";TEST PM TYPE 6" 92709,105,"950",9,0,0,"0","" 92710,127,"933",2,0,0,"0",">YES" 92711,127,"927",20,0,2,"0",">YES;TEST TYPE >6" 92712,30,"",0,0,0,"4-","" 92713,101,"",2,1,1,"0",";TEST TYPE 4" 92714,127,"927",17,0,0,"0",">YES" 92715,101,"",2,1,1,"0",";TEST TYPE 2" 92716,127,"927",23,0,1,"0",">NO" 92717,101,"",1,1,3,"0","SET COMP DUMP TAKEN" 92718,102,"949",9,0,0,"0","" 92719,124,"927",23,1,0,"0",">" 92720,103,"949",10,0,0,"0","SET CLEO DUMP TAKEN IND" 92721,105,"950",3,0,0,"0",";TEST TYPE 9 DUMP" 92722,127,"933",2,0,0,"0",">YES" 92723,124,"952",14,0,1,"0",";TEST ZERO CHAP" 92724,106,"",6,0,2,"0",";OR SECN START" 92725,127,"930",13,0,0,"0",">YES END OF DUMP" 92726,127,"927",34,0,2,"0",">NO;TEST IF TRANSIT AREA" 92727,106,"952",14,0,0,"0","" 92728,124,"755",6,0,3,"0","" 92729,104,"",4,0,0,"0","" 92730,102,"949",5,0,0,"0","W/L" 92731,124,"949",5,0,1,"0","" 92732,124,"",6,0,3,"0","" 92733,106,"",0,0,0,"0","TRANSIT AREA START" 92734,118,"",6,0,0,"0","FORM UP 13 BIT ADD " 92735,118,"",4122,0,0,"0","OF SECTION OR CHAP START" 92736,103,"952",18,0,0,"0",";SET (MR1) AT START/S" 92737,124,"950",8,1,2,"0",";+LENGTH" 92738,103,"",33,1,0,"0",";TRANSFER (MR1) TO" 92739,124,"952",14,0,1,"0",";O/P SECN" 92740,104,"",7,0,2,"0","SECTION LENGTH" 92741,118,"",6,0,0,"0","FORM UP 15 BIT ADD " 92742,118,"",4122,0,0,"0","OF SECTION END" 92743,103,"952",19,0,0,"0","" 92744,124,"950",8,1,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000793.JPG",,,,"","ChuckK/Q1000793" 92745,102,"",35,1,0,"0","" 92746,101,"",3,0,1,"0","" 92747,124,"952",14,0,1,"0","" 92748,115,"",8,0,2,"0","CHAP OR SECN NO" 92749,126,"941",2,0,0,"0",">CONVERT TO DEC" 92750,124,"950",8,1,2,"0","" 92751,107,"",7,1,0,"0","" 92800,PROCR,"928",,,,"","2007 OUTPUT THIS DUMP'S HEADING BLOCK" 92802,106,"949",7,0,0,"0","" 92803,127,"928",9,0,0,"0",">NO" 92804,125,"",0,1,2,"0","CLEAR IND" 92805,102,"949",7,0,0,"0","" 92806,101,"",4096,1,3,"0","SET IND IN O/P SECN" 92807,124,"950",8,1,2,"0","1 IN Q4" 92808,107,"",7,1,0,"0","32=ABS START,34=ABS END AREA DUMPED" 92809,106,"951",2,1,0,"0","4='DUMPS',36=BEW" 92810,124,"950",8,1,2,"0","(6)Q1+2=DEC SEC/CHAP,Q4=HEAD IND" 92811,102,"",4,1,0,"0","Q5=DUMP TYPE" 92812,106,"951",18,1,0,"0","10,12,14=(ABC) 8=PM POINT" 92813,124,"950",8,1,2,"0","" 92814,102,"",36,1,0,"0","BEW" 92815,126,"942",2,0,0,"0",">WRITE BLOCK S/R" 92900,PROCR,"929",,,,"","2008 MAIN DUMP ROUTINE" 92902,126,"943",2,0,0,"0",">SET (MR3)=(123)+48/(123)" 92903,106,"949",3,0,0,"0","" 92904,127,"934",2,0,1,"0",">YES" 92905,101,"",20,1,3,"0","SET ABSURD TAG" 92906,102,"951",22,0,0,"0","" 92907,124,"952",18,0,3,"0","" 92908,123,"",0,0,3,"0","" 92909,105,"951",22,0,0,"0","" 92910,127,"929",18,0,0,"0",">NO" 92911,107,"951",22,0,0,"0","STORE NEW TAG" 92912,106,"951",22,1,0,"0","TRANSFER TAG CHANGE" 92913,102,"",4,1,3,"0","WORD TO O/P SECN" 92914,102,"",6,1,3,"0","" 92915,125,"",4,0,3,"0","" 92916,124,"929",18,1,0,"0",">NO" 92917,126,"944",2,0,0,"0",">OUTPUT BLOCK AND" 92918,106,"951",14,1,0,"0","" 92919,104,"952",18,0,0,"0","" 92920,124,"755",6,0,3,"0","" 92921,124,"",6,0,1,"0","COPY LONG WORD" 92922,128,"",5,0,1,"0","TO O/P SECN" 92923,126,"952",18,1,1,"0","" 92924,125,"",2,0,1,"0","" 92925,124,"929",27,1,0,"0",">NO" 92926,124,"930",2,1,0,"0",">YES" 92927,101,"",2,1,3,"0","STEP INDIRECT MOD" 92928,107,"952",18,0,0,"0","" 92929,106,"952",18,0,0,"0","TEST IF SECN ENDS AT 7/8191" 92930,118,"",4124,0,0,"0","" 92931,127,"930",2,0,1,"0",">YES" 92932,125,"",4,0,3,"0","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000794.JPG",,,,"","ChuckK/Q1000794" 92933,124,"929",7,1,0,"0",">NO" 92934,126,"944",2,0,0,"0",">OUTPUT BLOCK AND RESET (MR3)" 92935,124,"929",7,1,0,"0",">" 93000,PROCR,"930",,,,"","2009 END OF DUMPS" 93002,125,"",4,0,3,"0","" 93003,124,"930",4,1,0,"0","" 93004,126,"944",2,0,0,"0",">WRITE BLOCK" 93005,106,"952",19,0,0,"0","" 93006,2,"941",9,0,0,"0","" 93007,127,"936",6,0,0,"0",">YES" 93008,106,"949",2,0,0,"0","" 93009,127,"930",16,0,1,"0",">YES" 93010,123,"",3,0,0,"0","" 93011,100,"952",14,0,0,"0","" 93012,124,"927",6,1,0,"0",">NO" 93013,,"745",49,0,0,"0","" 93014,70,"924",5,0,0,"0",">NORMAL" 93015,76,"935",10,0,0,"0",">DO FINAL DUMP AFTER THIS" 93016,126,"952",14,1,1,"0","" 93017,125,"",1,0,1,"0","" 93018,124,"930",23,1,0,"0",">NO" 93019,106,"949",4,0,0,"0","" 93020,70,"931",2,0,0,"0",">YES,END OF FINAL DUMP" 93021,125,"",0,1,2,"0","" 93022,76,"930",13,0,0,"0",">THIS WAY FOR TYPE 5" 93023,101,"",1,1,3,"0","STEP IND MOD" 93024,107,"952",14,0,0,"0","" 93025,124,"936",6,1,0,"0",">" 93100,PROCR,"931",,,,"","2010 ENTRY FROM PROGRAMUNLOAD" 93102,5,"741",2,0,0,"0","SET'ABDON'IND" 93103,125,"",4096,1,1,"0","" 93104,5,"744",75,0,0,"0","SET 'PTS IN CONTROL'" 93105,,"949",10,0,0,"0","TEST CLEO DUMP TAKEN" 93106,127,"931",14,0,1,"0",">YES" 93107,124,"951",8,0,3,"0","TEST BTS PRINTS ON-LINE" 93108,106,"",26,0,0,"0","(3)" 93109,127,"931",14,0,0,"0",">NO" 93110,12,"",0,0,0,"1","" 93111,71,"932",17,0,0,"0",">YES O'LAY PASS 3" 93112,106,"949",9,0,0,"0","TEST ANY DUMPS 2 OR 4 TAKEN(COMPARISONS)" 93113,127,"932",17,0,1,"0",">YES O'LAY PASS 3" 93114,106,"949",11,0,0,"0","" 93115,127,"931",17,0,1,"0",">YES" 93116,80,"948",2,0,0,"0",">GET TO'FINIS'BEFORE CLOSING FILE" 93117,101,"",28,1,3,"0","" 93118,126,"749",2,0,0,"0",">CLOSE RTE 7 TAPE" 93119,125,"",4096,1,1,"0","SET NON INT" 93120,0,"745",49,0,0,"0"," '2/0/1' IND" 93121,71,"745",53,0,0,"0",">YES" 93122,0,"741",2,0,0,"0"," 'PROG END' IND" 93123,70,"745",50,0,0,"0",">NO" 93124,0,"745",85,0,0,"0","1/1/3 2" 93125,5,"745",60,0,0,"0","" 93126,76,"745",50,0,0,"0","" 93127,10,"",0,0,0,"0","DUMMY ORDER" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000795.JPG",,,,"","RayS/Q1000795" 93200,PROCR,"932",,,,"","2011 PREPARE TO READ IN PASS 3" 93202,100,"",0,0,0,"0","LINK" 93203,106,"949",11,0,0,"0","TEST TAPE ALIGNED " 93204,127,"932",16,0,0,"0",">NO" 93205,100,"951",28,1,2,"0","RUN BACK TO START " 93206,101,"",35,1,3,"0","(O/P) " 93207,126,"749",2,0,0,"0","" 93208,101,"",10,1,3,"0","10=WORD HOLDING IDENTIFIER" 93209,30,"",0,0,0,"5","" 93210,124,"744",72,0,3,"0","" 93211,104,"",55,0,0,"0","(3)" 93212,32,"",0,0,0,"10-","" 93213,101,"",36,1,3,"0","" 93214,126,"749",2,0,0,"0",">" 93215,101,"",1,1,3,"0","" 93216,126,"932",2,0,1,"0",">LEAVE S/R" 93217,101,"",40,1,3,"0","" 93218,34,"744",70,0,0,"0","" 93219,106,"749",2,0,0,"0","DUMMY" 93220,80,"932",2,0,0,"0",">ALIGN TAPE" 93221,100,"950",6,0,2,"0","READ TO START " 93222,101,"",7,1,3,"0","OF PASS 3 OF " 93223,126,"749",2,0,0,"0",">READ" 93224,124,"950",8,1,2,"0","" 93225,106,"",12,1,0,"0","" 93226,105,"951",26,1,0,"0","" 93227,71,"932",21,0,0,"0",">NOT AT 'CHIPT' YET" 93228,0,"745",49,0,0,"0","'2/0/1' IND" 93229,70,"744",2,0,0,"0",">NOT SET, NORMAL OLAY" 93230,125,"",4096,1,1,"0","" 93231,126,"749",9,0,0,"0",">SET(71)FOR MASTER" 93232,101,"",40,1,3,"0","" 93233,34,"744",70,0,0,"0","" 93234,80,"749",2,0,0,"0",">BACK 1 I/P>I/P" 93235,125,"",4096,1,1,"0","" 93236,124,"755",2,0,3,"0","CLOSE PROGM SWITCH" 93237,106,"",9,0,0,"0","" 93238,124,"755",2,0,3,"0","" 93239,102,"",7,0,0,"0","" 93240,124,"744",72,1,1,"0","MG 0" 93241,76,"744",20,0,0,"0",">CONTINUE WITH OLAY" 93300,PROCR,"933",,,,"","2012 FORM UP NUMBER OF TRACE POINTS" 93302,101,"",1,1,3,"0","SET W/L 2 NON ZERO" 93303,102,"949",3,0,0,"0","" 93304,106,"951",12,1,0,"0","SET IND MOD=12:0" 93305,102,"952",16,1,0,"0","TEST I/C SERIAL " 93306,124,"952",16,0,1,"0","" 93307,106,"",7,0,2,"0","" 93308,127,"933",12,0,0,"0",">YES" 93309,123,"",2,0,0,"0","TEST END OF TRACE PT " 93310,100,"952",16,0,0,"0","" 93311,124,"933",6,1,0,"0",">NO" 93312,106,"952",16,0,0,"0","" 93313,124,"950",8,1,2,"0","TRANSFER 2XNO OF" 93314,102,"",35,1,0,"0","TRACE PTS TO O/P SECN" 93315,124,"950",8,1,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000796.JPG",,,,"","DaveJ/Q1000796" 93316,102,"",33,1,0,"0","" 93317,106,"952",16,0,0,"0","SET IND MOD AT 2XNO OF TRACE PTS/0" 93318,118,"",5,0,0,"0","" 93319,102,"952",14,1,0,"0","" 93320,124,"928",2,1,0,"0","g" 93400,PROCR,"934",,,,"","2013 DUMP TRACE POINTS" 93402,125,"",0,1,2,"0","" 93403,100,"950",12,0,2,"0","BIT 20 TEST SEC OR PROCR" 93404,124,"952",14,0,1,"0","" 93405,115,"",7,0,2,"0","" 93406,127,"934",16,0,0,"0","gPROCR" 93407,125,"",0,1,2,"0","" 93408,100,"950",13,0,2,"0","BITS 14->19" 93409,124,"952",14,0,1,"0","0" 93410,115,"",7,0,2,"0","REF" 93411,118,"",3,0,3,"0","" 93412,118,"",4124,0,0,"0","" 93413,102,"",7,1,3,"0","" 93414,100,"950",11,0,2,"0","BITS 1->13" 93415,124,"934",22,1,0,"0","g" 93416,101,"",28,0,1,"0","Q3,4,5" 93417,124,"952",14,0,1,"0","" 93418,115,"",7,0,2,"0","REF" 93419,118,"",4126,0,0,"0","" 93420,102,"",7,1,3,"0","" 93421,101,"",3,0,1,"0","" 93422,124,"952",14,0,1,"0","" 93423,115,"",7,0,2,"0","ITEM" 93424,102,"",5,1,3,"0","" 93425,101,"",15,0,1,"0","" 93426,124,"952",14,0,1,"0","TRANSFER REL ADD TO" 93427,115,"",6,0,2,"0","O/P SECN" 93428,102,"",9,1,3,"0","" 93429,101,"",16,0,1,"0","" 93430,124,"952",14,0,1,"0","FORM UP 2X CHAP NO" 93431,115,"",6,0,2,"0","" 93432,118,"",4124,0,0,"0","" 93433,118,"",1,0,3,"0","" 93434,126,"945",2,0,0,"0","gFORM UP CHAP START" 93435,102,"952",16,1,0,"0","START+END" 93436,106,"952",16,0,0,"0","START ONLY" 93437,104,"",9,1,3,"0","" 93438,103,"",11,1,3,"0","TRANSFER ABS ADD TO O/P SECN" 93439,103,"949",5,0,0,"0","W/L" 93440,118,"",3,0,3,"0","ROUND DOWN TO EVEN ADDRESS" 93441,118,"",4127,0,0,"0","" 93442,118,"",1,0,3,"0","" 93443,104,"951",14,1,0,"0","" 93444,104,"951",14,1,0,"0","" 93445,124,"755",6,0,3,"0","COPY 2 LONG WORDS" 93446,124,"",6,0,1,"0","" 93447,128,"",13,0,1,"0","" 93448,124,"949",5,0,3,"0","TFRANSFER TAG TO O/P SECN" 93449,123,"",0,0,3,"0","" 93450,101,"",64,1,1,"0","" 93451,118,"",8,0,0,"0","" 93452,104,"",6,1,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000797.JPG",,,,"","DaveJ/Q1000797" 93453,102,"",6,1,3,"0","" 93454,126,"952",14,1,1,"0","TEST END OF TRACE POINTS" 93455,125,"",2,0,1,"0","" 93456,124,"934",61,1,0,"0","gNO" 93457,106,"951",18,1,0,"0","SET UP B/E WORD" 93458,102,"",20,1,3,"0","" 93459,126,"942",2,0,0,"0","gWRITE BLOCK" 93460,124,"924",5,1,0,"0","g" 93461,101,"",2,1,3,"0","STEP IND MOD" 93462,107,"952",14,0,0,"0","" 93463,125,"",16,0,3,"0","TEST END OF BLOCK" 93464,124,"934",2,1,0,"0","gNO" 93465,126,"944",2,0,0,"0","gOUTPUT BLOCK AND RESET (MR3)" 93466,124,"934",2,1,0,"0","g" 93500,PROCR,"935",,,,"","2014 FROM UNLOADER WHEN PROG IS ABANDONED" 93502,10,"",0,0,0,"0","" 93503,5,"744",75,0,0,"0","SET 'PTS IN CONTROL'" 93504,106,"955",2,1,0,"0","STORE CONTENTS" 93505,104,"755",6,0,0,"0","OF PROGS MOD" 93506,128,"952",8,0,0,"0","REGS" 93507,124,"951",8,0,3,"0","SET PROGS MOD" 93508,124,"",2,0,3,"0","GROUP" 93509,124,"",29,1,1,"0","" 93510,126,"947",2,0,0,"0","gTRANSFER CONTENTS OF MOD REGS TO O/P SE" 93511,125,"",0,1,2,"0","" 93512,102,"949",4,0,0,"0","CLEAR DUMP TYPE OF DUMP IN PROGRESS" 93513,106,"950",4,0,0,"0","10 IN Q5" 93514,103,"949",7,0,0,"0","SET HEADING IND" 93515,103,"949",8,0,0,"0","SET TYPE 7 IND" 93516,102,"949",2,0,0,"0","STORE TYPE IN W/L 1" 93517,0,"949",11,0,0,"0","TEST TAPE ALIGNED AT END OF DUMPS" 93518,71,"936",2,0,0,"0","gYES" 93519,80,"948",2,0,0,"0","gRUN FWD TO 'FINIS'" 93520,10,"",0,0,0,"p","" 93521,5,"949",11,0,0,"0","SET ALIGN IND" 93600,PROCR,"936",,,,"","2015 INITIAL AND FINAL DUMPS" 93602,101,"",1,1,3,"0","SET IND MOD AT" 93603,103,"952",14,0,0,"0","NO OF CHAPS+1/1" 93604,104,"755",5,0,0,"0","" 93605,102,"952",15,0,0,"0","" 93606,106,"949",2,0,0,"0","TRANSFER PM TYPE" 93607,124,"950",8,1,2,"0","TO O/P SECN" 93608,102,"",7,1,0,"0","" 93609,106,"949",8,0,0,"0","TEST TYPE 7 IND SET" 93610,127,"936",20,0,0,"0","gNO" 93611,0,"941",9,0,0,"0","PQ END FINAL DUMP" 93612,103,"952",19,0,0,"0","" 93613,124,"950",8,1,2,"0","SET MOD REG IN O/P SECN" 93614,102,"",35,1,0,"0","AT 600:0" 93615,102,"952",18,0,0,"0","" 93616,124,"950",8,1,2,"0","" 93617,102,"",32,1,0,"0","" 93618,102,"949",8,0,0,"0","CLEAR TYPE 7 IND" 93619,76,"928",2,0,0,"0","gJOIN UP WITH MAIN DUMP ROUTINE" 93620,0,"952",14,0,0,"0","CHAP NO INITIAL DUMP" 93621,124,"950",8,1,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000798.JPG",,,,"","RayS/Q1000798" 93622,107,"",7,1,0,"0","" 93623,104,"952",14,0,0,"0","" 93624,126,"945",2,0,0,"0",".FORM UP CHAP START AND END" 93625,103,"952",18,1,0,"0","" 93626,124,"950",8,1,2,"0","" 93627,102,"",33,1,0,"0","" 93628,106,"952",19,0,0,"0","" 93629,124,"950",8,1,2,"0","" 93630,102,"",35,1,0,"0","" 93631,76,"928",2,0,0,"0",">JOIN UP WITH MAIN DUMP ROUTINE" 93700,PROCR,"937",,,,"","2016 ENTRY AT END OF PROGRAM OVERLAY" 93702,126,"946",2,0,0,"0",">SET UP (MR2)" 93703,124,"755",2,0,3,"0","STORE OVERLAYED CHAP" 93704,106,"",32,0,0,"0","" 93705,103,"949",2,0,0,"0","" 93706,104,"949",2,0,0,"0","SET (MR1) AI" 93707,104,"755",3,0,0,"0","((2XCHAP NO)+SP CHAP START" 93708,102,"952",16,0,0,"0","" 93709,126,"952",16,1,1,"0","" 93710,124,"755",2,0,3,"0","" 93711,106,"",30,0,0,"0","TEST O'LAYING CHAP " 93712,105,"755",5,0,0,"0","AN INITIAL CHAP " 93713,127,"937",15,0,3,"0",">YES" 93714,101,"",1,1,2,"0","" 93715,104,"755",5,0,0,"0","STORE CORRECTED O'LAYING" 93716,102,"949",3,0,0,"0","CHAP NO" 93717,101,"",1,0,1,"0","TEST PM PT DETAILS " 93718,115,"",5,0,2,"0","ZERO " 93719,127,"937",29,0,0,"0",">YES" 93720,105,"949",3,0,0,"0","TEST O'LAYING CHAP " 93721,127,"938",2,0,0,"0",">YES" 93722,104,"949",3,0,0,"0","" 93723,105,"949",2,0,0,"0","TEST OVERLAID " 93724,127,"937",27,0,1,"0",">NO" 93725,105,"",0,0,2,"0","SET PM POINT CLOSED" 93726,102,"",0,0,2,"0","" 93727,125,"",18,0,2,"0","TEST ALL PTS " 93728,124,"937",3,1,0,"0","CHECKED >NO" 93729,102,"949",2,1,0,"0","CLEAR WLS" 93730,102,"949",4,0,0,"0","" 93731,102,"949",11,0,0,"0","CLEAR STATE OF TAPE IND" 93732,10,"",0,0,0,"0","DUMMY ORDER" 93733,126,"749",9,0,0,"0",">RESTORE(71)FOR PTS" 93734,124,"951",8,0,3,"0","" 93735,124,"",0,1,0,"0","(40)" ,,"",,,,"","" 93800,PROCR,"938",,,,"","2017" 93802,101,"",4,0,1,"0","TEST PM POINT " 93803,115,"",4,0,2,"0","NOT YET USED " 93804,127,"938",9,0,0,"0",">YES" 93805,125,"",0,1,2,"0","" 93806,105,"",0,0,2,"0","SET PM POINT" 93807,102,"",0,0,2,"0","OPEN" 93808,124,"938",41,1,0,"0",">" 93809,106,"949",2,0,0,"0","SET ALLOCATED CHAP" 93810,118,"",2,0,0,"0","NO IN LIST" 93811,114,"",4,0,2,"0","" 93812,124,"951",8,0,3,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000799.JPG",,,,"","DaveJ/Q1000799" 93813,106,"",18,0,1,"0","FORM ABS ADD OF" 93814,104,"",0,0,2,"0","PM POINT" 93815,103,"",0,0,2,"0","" 93816,102,"952",16,0,0,"0","" 93817,126,"952",16,1,3,"0","" 93818,124,"951",8,0,3,"0","" 93819,106,"",0,0,3,"0","STORE REPLACED INSTRUCTION" 93820,103,"",2,0,2,"0","" 93821,127,"938",34,0,2,"0","gYES TEST ACTION POSITIVE" 93822,105,"",2,0,2,"0","FORM COMPLEMENT" 93823,105,"",2,0,2,"0","OF ACTION" 93824,118,"",3,0,3,"0","ALIGN INSTRUCTION" 93825,118,"",4124,0,1,"0","AT LEAST SIG END" 93826,101,"",64,1,2,"0","" 93827,127,"938",36,0,0,"0","g24/0/0" 93828,101,"",1,1,2,"0","" 93829,127,"938",36,0,0,"0","g24/0/1" 93830,101,"",2,1,2,"0","" 93831,127,"938",36,0,0,"0","g24/0/3" 93832,101,"",3,1,2,"0","" 93833,127,"938",36,0,0,"0","g24/1/2" 93834,0,"950",7,0,0,"0","25/01/2000" 93835,124,"938",40,1,0,"0","g" 93836,101,"",4096,1,3,"0","SET 24 ACTION IND" 93837,107,"",5,0,2,"0","IN LIST" 93838,124,"951",8,0,3,"0","" 93839,106,"",1,0,3,"0","STORE NEXT INSTRUCTION" 93840,102,"",3,0,2,"0","" 93841,106,"",0,0,2,"0","" 93842,102,"952",16,0,0,"0","" 93843,126,"952",16,1,3,"0","" 93844,34,"950",11,0,0,"0","BITS 1-13" 93845,124,"951",8,0,3,"0","" 93846,115,"",18,0,1,"0","" 93847,5,"949",4,0,0,"0","" 93848,2,"949",4,0,0,"0","" 93849,2,"755",4,0,0,"0","(PARAS+1)" 93850,1,"950",10,0,0,"0","26/0/0" 93851,124,"951",8,0,3,"0","" 93852,102,"",0,0,3,"0","INSERT ENTRY POINT" 93853,76,"937",27,0,0,"0","" 93900,PROCR,"939",,,,"","2017A ENTRY AT START OF PROGRAM OVERLAY" 93902,80,"932",2,0,0,"0","gRUN BACK TO M/CODE START" 93903,126,"749",9,0,0,"0","gSET(71)FOR MASTER" 93904,10,"",0,0,0,"0","DUMMY" 93905,0,"949",11,0,0,"0","REALIGNMENT IND" 93906,124,"951",8,0,3,"0","" 93907,124,"",0,1,0,"0","(45)->DO OVERLAY" 94000,PROCR,"940",,,,"","2018 INSTRUCTION CONSTANTS FOR PASS 2" 94100,PROCR,"941",,,,"","2019 CONVERT S/R" 94102,100,"",0,0,0,"0","" 94103,102,"949",5,0,0,"0","W/L" 94104,100,"950",5,0,3,"0","SET DECIMAL" 94105,124,"954",2,0,2,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000800.JPG",,,,"","DaveJ/Q1000800" 94106,112,"949",5,0,0,"0","CONVERT TO DECIMAL" 94107,100,"951",8,0,3,"0","SET BINARY" 94108,126,"941",2,0,1,"0","" 94109,100,"",0,0,0,"0","(49)CONST IN PROCR 2015=PQ END" 94200,PROCR,"942",,,,"","2020 WRITE S/R" 94202,100,"",0,0,0,"0","" 94203,100,"950",6,0,2,"0","" 94204,101,"",8,1,3,"0","" 94205,126,"749",2,0,0,"0","gI/P-O/P FOR RTE 7 S/R" 94206,106,"955",4,1,0,"0","BULK CLEAR O/P SECN" 94207,124,"950",8,1,2,"0","" 94208,128,"",0,1,1,"0","" 94209,125,"",4096,1,1,"0","" 94210,10,"",0,0,0,"0","DUMMY ORDER" 94211,124,"951",8,0,3,"0","" 94212,126,"",0,0,0,"0","(42)->SET TAG 15" 94213,126,"942",2,0,1,"0","gLEAVE S/R" 94300,PROCR,"943",,,,"","2021 SET UP (MR3) S/R" 94302,100,"",0,0,0,"0","LINK" 94303,124,"950",8,1,2,"0","-123" 94304,101,"",0,1,3,"0","13-BIT ASL" 94305,103,"952",16,0,0,"0","48+(123)/(123)" 94306,101,"",48,1,1,"0","" 94307,102,"952",17,0,0,"0","" 94308,126,"952",16,1,3,"0","" 94309,126,"943",2,0,1,"0","" 94400,PROCR,"944",,,,"","2022 OUTPUT BLOCK AND RESET(MR3)S/R" 94402,100,"",0,0,0,"0","" 94403,106,"951",18,1,0,"0","SET UP B/E WORD" 94404,102,"",4,1,3,"0","" 94405,126,"942",2,0,0,"0","gWRITE BLOCK" 94406,126,"943",2,0,0,"0","gRESET (MR3)" 94407,126,"944",2,0,1,"0","gLEAVE S/R" 94500,PROCR,"945",,,,"","2023 FORM UP CHAP START AND END S/R" 94502,81,"945",2,0,0,"0","" 94503,3,"949",5,0,0,"0","2XCHAP" 94504,1,"755",3,0,0,"0","SPECIAL CHAP START" 94505,5,"946",2,0,0,"0","WL" 94506,124,"951",8,0,3,"0","" 94507,106,"",43,0,0,"0","(3)PARA 43=TWICE PTS CHAP IN Q5" 94508,30,"",0,0,0,"4-","" 94509,2,"949",5,0,0,"0","" 94510,70,"945",13,0,0,"0","gTHIS CHAP CONTAINS PTS" 94511,10,"",0,0,0,"0","" 94512,76,"945",15,0,0,"0","" 94513,101,"",1500,1,2,"0","REDUCE CHAP END BY PTS LENGTH" 94514,30,"",0,0,0,"5","" 94515,124,"946",2,0,3,"0","" 94516,104,"",18,1,0,"0","CHAP DETAILS EX SPECIAL CHAPTER" 94517,82,"945",2,0,0,"0","" 94600,PROCR,"946",,,,"","2024 SET UP(MR2) S/R" 94602,100,"",0,0,0,"0","" 94603,101,"752",2,1,3,"0","START OF LIST" 94604,103,"952",16,0,0,"0","W/L" 94605,101,"",180,1,1,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000801.JPG",,,,"","ChuckK/Q1000801" 94606,102,"952",17,0,0,"0","" 94607,126,"952",16,1,2,"0","" 94608,126,"946",2,0,1,"0",">LEAVE S/R" 94609,100,"",4097,1,0,"0","CONST=09001(PROCR 2001)" 94700,PROCR,"947",,,,"","2025 TRANSFER CONTENTS OF MOD REGS TO O/P SECN" 94702,100,"",0,0,0,"0","" 94703,126,"951",12,1,1,"0","SET (MR1) AT 12/0" 94704,126,"951",20,1,3,"0","SET (MR3) AT 6/0" 94705,106,"952",8,0,3,"0","" 94706,126,"941",2,0,0,"0",">CONVERT TO DECIMAL" 94707,124,"950",8,1,2,"0","" 94708,102,"",21,1,1,"0","" 94709,125,"",2,0,1,"0","" 94710,124,"947",11,1,0,"0",">" 94711,125,"",1,0,3,"0","" 94712,124,"947",5,1,0,"0",">" 94713,126,"947",2,0,1,"0",">LEAVE S/R" 94800,PROCR,"948",,,,"","2026 RUN FWD TO FINIS,STEP BACK 1 S/R" 94802,100,"",0,0,0,"0","" 94803,100,"951",16,1,2,"0","///// IN WORD 2" 94804,101,"",38,1,3,"0","RUN BACK CONST" 94805,126,"749",2,0,0,"0",">I/P O/P S/R RTE 7" 94806,124,"951",8,0,3,"0","" 94807,124,"",64,0,3,"0","" 94808,106,"",4,1,0,"0","" 94809,101,"",0,1,1,"0","" 94810,105,"953",6,1,0,"0","" 94811,127,"948",3,0,1,"0",">NO" 94812,100,"954",3,0,2,"0","" 94813,101,"",44,1,3,"0","" 94814,126,"749",2,0,0,"0",">I/P O/P S/R" 94815,126,"948",2,0,1,"0",">LEAVE S/R" 94900,CONST,"949",,,,"0","2027 SHORT W/L'S FOR PASS 2" 94902,,"(D)0;",,,,"","W/L 1 ALSO USED IN O'LAY" 94903,,"0;",,,,"","W/L 2 ALSO USED IN O'LAY" 94904,,"0;",,,,"","" 94905,,"0;",,,,"","GENARAL W/L" 94906,,"0;",,,,"","W/L FOR PMSR LINK-1" 94907,,"0;",,,,"","HEADING IND" 94908,,"0;",,,,"","TYPE 10 IND" 94909,,"0;",,,,"","COMP DUMP TAKEN IND" 94910,,"0;",,,,"","CLEO DUMP TAKEN IND" 94911,,"0;",,,,"","DUMP TAKEN SINCE O'LAY IND" 95000,CONST,"950",,,,"0","2028 SHORT CONSTANTS FOR PASS 2" 95002,,"(D)50000;",,,,"","" 95003,,"30000;",,,,"","" 95004,,"t0000;",,,,"","" 95005,,"66666;",,,,"","" 95006,,"0003e;",,,,"","59" 95007,,"98000-;",,,,"","25/0/1 ORDER" 95008,,"0007e-;",,,,"","-(123) P RTE FOR RTE 7" 95009,,"60000;",,,,"","" 95010,,"t0000-;",,,,"","26/0/0 ORDER" 95011,,"01ppp;",,,,"","BITS 1->13" 95012,,"80000;",,,,"","BIT 20" 95013,,"7.000;",,,,"","BITS 14->19" ,,"",,,,"","" ,,"",,,,"","" ,,"",,,,"","" ,,"",,,,"","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000802.JPG",,,,"","ChuckK/Q1000802" 95100,CONST,"951",,1,,"1","2029 LONG CONSTANTS FOR PASS 2" 95102,,"(A)DUMPS;",,,,"","" 95104,,"START;",,,,"","" 95106,,"(D)6p6p6p6p6p;",,,,"","RESTART MARK WORD" 95108,,"0000t00000;",,,,"","10:0" 95110,,"0000500000;",,,,"","5:0" 95112,,"0000+00000;",,,,"","12:0" 95114,,"0000200000;",,,,"","2:0" 95116,,"00002ppppp;",,,,"","" 95118,,"7.0000007.;",,,,"","BLOSK END WORD" 95120,,"0000600000;",,,,"","6:0" 95122,,"7777000000;",,,,"","XX/TAG W/L" 95124,,"00004ppppp;",,,,"","" 95126,,"(A)CHIPT;",,,,"","" 95128,,"(D)0000tppppp;",,,,"","" 95200,PROCR,"952",,,,"","2030 EDIT TABLE FOR'START'BLOCK,THEN LONG WL'S " 95202,100,"946",9,0,0,"0","09001" 95203,100,"",5,0,0,"0","" 95204,100,"",175,0,0,"0","DATE" 95205,100,"",5,0,0,"0","" 95206,100,"",156,0,0,"0","TIME" 95207,100,"",5,0,0,"0","" 95208,100,"951",6,0,0,"0","ALIGN WORD" 95209,101,"",5,0,0,"0","" 95210,100,"952",18,0,0,"0"," 'START'" 95211,101,"",5,0,0,"0","" 95212,100,"",0,0,0,"0","PROG ID" 95213,100,"",5,0,0,"0","" 95214,100,"",49,0,0,"0","(3)PQ END" 95215,100,"",5,0,0,"0","" 95216,100,"951",18,0,0,"0","BEW" 95217,117,"",5,0,0,"0","" 95218,101,"",2419,0,3,"0","CONST='START'" 95219,107,"",1845,0,1,"0","" 95300,CONST,"953",,1,,"","2031 TYPING ANNEXE FOR ABANDON" 95302,,"(A)ABAND;",,,,"","TYPING CONSTANTS" 95304,,"(A)ONS(D)5.5.;",,,,"","" 95306,,"(A)FINIS;",,,,"","" 95308,," OPTS;",,,,"","" 95400,CONST,"954",,1,,"","2032 BINARY TO DECIMAL CONVERSION TABLE" 95402,,"(D)0000000001;",,,,"","" 95404,,"0000000016;",,,,"","" 95406,,"0000000256;",,,,"","" 95408,,"0000004096;",,,,"","" 95410,,"0000065536;",,,,"","" 95500,CONST,"955",,1,,"","2033 BULK CLEAR COPY ITEMS" 95502,,"(D)0000600002;",,,,"","BULK COPY MOD REGS" 95504,,"2003600000;",,,,"","BULK CLEAR 54" 95506,,"2000600000;",,,,"","BULK CLEAR 6" 95600,PROCR,"956",,,,"","2034 TABLES" 95602,100,"952",8,0,0,"0","RESTORE MOD REGS" 95603,100,"",6,0,0,"0","" 95700,PROCR,"957",,,,"","3801 PREPERATION AND W/L'S" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000803.JPG",,,,"","ChuckK/Q1000803" 95702,35,"",0,0,0,"11","" 95703,10,"",0,0,0,"2","" 95704,4,"957",7,0,0,"0","(STEP ORDER)" 95705,124,"982",2,0,3,"0","" 95706,124,"",3,0,3,"0","SPECIAL CHAP START=R1 END VALUE" 95707,106,"",30,0,0,"0","SCAN PROGRAM'S ALLOCATED ROUTE LIST" 95708,114,"979",22,0,0,"0","STORE ROUTE NUMBER" 95709,118,"",4124,1,0,"0","RTE TYPE IN Q1" 95710,101,"",4,1,2,"0","" 95711,70,"957",14,0,0,"0",">ROUTE TYPE 4" 95712,101,"",5,1,2,"0","" 95713,127,"957",2,0,1,"0",">NOT PRINTER TRY NEXT ONE" 95714,124,"751",34,0,2,"0","PRINT ASL" 95715,1,"957",31,0,0,"0","14 IN Q5" 95716,124,"979",22,0,3,"0","ROUTE" 95717,102,"",64,0,0,"0","" 95718,101,"",64,1,2,"0","" 95719,2,"979",22,0,0,"0","" 95720,5,"979",23,0,0,"0","FORM-(64+R)" 95721,124,"961",16,0,2,"0","" 95722,102,"965",23,0,0,"0","" 95723,124,"980",6,0,2,"0","" 95724,102,"967",23,0,0,"0","" 95725,124,"980",8,0,2,"0","" 95726,102,"967",27,0,0,"0","" 95727,,"979",22,0,0,"0","" 95728,124,"982",2,0,3,"0","RTE NO" 95729,102,"",26,0,0,"0","(3) SET FOR PRINT SR" 95730,76,"962",2,0,0,"0","" 95731,114,"",0,0,0,"0","CONST" 95800,CONST,"958",,1,,"","3001 EXTRA ROOM FOR 120 COLS" 95802,,"(D);",,,,"","" 95804,,";",,,,"","" 95806,,";",,,,"","" 95808,,";",,,,"","" 95810,,";",,,,"","" 95812,,";",,,,"","" 95814,,";",,,,"","" 95816,,";",,,,"","" 95818,,";",,,,"","" 95820,,";",,,,"","" 95822,,";",,,,"","" 95824,,";",,,,"","" 95826,,";",,,,"","" 95828,,";",,,,"","" 95830,,";",,,,"","" 95832,,";",,,,"","" 95834,,";",,,,"","" 95836,,";",,,,"","" 95838,,";",,,,"","" 95840,,";",,,,"","" 95842,,";",,,,"","" 95844,,";",,,,"","" 95846,,";",,,,"","" 95848,,";",,,,"","" 95850,,";",,,,"","" 95852,,";",,,,"","" 95854,,";",,,,"","" 95856,,";",,,,"","" ,,"",,,,"","" ,,"",,,,"","" ,,"",,,,"","" ,,"",,,,"","" ,,"",,,,"","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000804.JPG",,,,"","ChuckK/Q1000804" 95858,,";",,,,"","" 95860,,";",,,,"","" 95862,,";",,,,"","" 95864,,";",,,,"","" 95866,,";",,,,"","" 95900,CONST,"959",,1,,"","3001A" 95902,,"(D);",,,,"","" 95904,,";",,,,"","" 95906,,";",,,,"","" 95908,,";",,,,"","" 95910,,";",,,,"","" 95912,,";",,,,"","" 95914,,";",,,,"","" 95916,,";",,,,"","" 95918,,";",,,,"","" 95920,,";",,,,"","" 95922,,";",,,,"","" 95924,,";",,,,"","" 95926,,";",,,,"","" 95928,,";",,,,"","" 95930,,";",,,,"","" 95932,,";",,,,"","" 95934,,";",,,,"","" 95936,,";",,,,"","" 95938,,";",,,,"","" 95940,,";",,,,"","" 95942,,";",,,,"","" 95944,,";",,,,"","" 95946,,";",,,,"","" 95948,,";",,,,"","" 95950,,";",,,,"","" 95952,,";",,,,"","" 95954,,";",,,,"","" 95956,,";",,,,"","" 95958,,";",,,,"","" 95960,,";",,,,"","" 95962,,";",,,,"","" 95964,,";",,,,"","" 95966,,";",,,,"","" 95968,,";",,,,"","" 95970,,";",,,,"","" 95972,,";",,,,"","" 95974,,";",,,,"","" 95976,,";",,,,"","" 95978,,";",,,,"","" 95980,,";",,,,"","" 95982,,";",,,,"","" 95984,,";",,,,"","" 95986,,";",,,,"","" 95988,,";",,,,"","" 95990,,";",,,,"","" 96000,PROCR,"960",,,,"","3001B=TABLE1" 96002,100,"981",16,0,0,"0"," 'PRINT'" 96003,101,"",229,0,0,"0","14/5" 96004,100,"981",18,0,0,"0"," 'OUT'" 96005,101,"",19,0,0,"0","1/3" 96006,100,"981",18,0,0,"0"," 'OF'" 96007,101,"",786,0,0,"0","3/1/2" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000805.JPG",,,,"","ChuckK/Q1000805" 96008,100,"981",24,0,0,"0"," 'DUMPS'" 96009,101,"",21,0,0,"0","1/3" 96010,100,"981",18,0,0,"0"," 'OF'" 96011,101,"",786,0,0,"0","3/1/2" 96012,100,"980",10,0,0,"0","(PROG ID)" 96013,100,"",21,0,0,"0","1/5" 96014,100,"981",26,0,0,"0"," 'TAKEN'" 96015,101,"",21,0,0,"0","1/5" 96016,100,"981",28,0,0,"0"," 'ON'" 96017,101,"",18,0,0,"0","1/2" 96018,100,"980",8,0,0,"0","(DAY)" 96019,102,"",5154,0,0,"0","1/4/2/2" 96020,100,"980",8,0,0,"0","(MONTH)" 96021,102,"",5650,0,0,"0","1/6/1/2" 96022,100,"980",8,0,0,"0","(YEAR)" 96023,102,"",2066,0,0,"0","8/1/2" 96024,100,"981",28,0,0,"0"," 'AT'" 96025,101,"",786,0,0,"0","3/1/2" 96026,100,"980",7,0,0,"0","(HRS)" 96027,100,"",4130,0,0,"0","1/0/2/2" 96028,100,"980",7,0,0,"0","(MINS)" 96029,100,"",4626,0,0,"0","1/2/1/2" 96030,100,"981",34,0,0,"0","BE" 96031,117,"",1089,0,0,"0","4/4/1" 96032,100,"",0,0,0,"0","BULK CLEAR" 96033,102,"",36,0,0,"0","CONSTANT" 96100,PROCR,"961",,,,"","DUMMY PROCEDURE" 96200,PROCR,"962",,,,"","3002 RUN FORARD TO START AND OPEN PRINTER" 96202,100,"980",6,1,2,"0","SET CONST IN B" 96203,101,"",38,1,3,"0","SET TYPE IN A" 96204,126,"749",2,0,0,"0",">I/P O/P RTE 7" 96205,100,"982",8,0,2,"0","" 96206,101,"",7,1,3,"0","" 96207,126,"749",2,0,0,"0",">I/P O/P RTE 7" 96208,124,"982",5,1,2,"0","TEST IF START OF BLOCK" 96209,106,"",12,1,0,"0","" 96210,105,"980",8,1,0,"0"," 'START'" 96211,127,"962",2,0,1,"0",">NO" 96212,101,"",20,1,2,"0","FORM T/E" 96213,126,"976",2,0,0,"0",">FORM T/E S/R" 96214,128,"980",5,1,0,"0","BULK COPY ALPHA->NUMERIC" 96215,124,"982",2,0,3,"0","" 96216,106,"",138,1,0,"0","STORE 6 CHARACTER DATE" 96217,102,"980",8,1,0,"0","" 96218,124,"982",2,0,3,"0","TEST IF CLOCK EXISTS" 96219,106,"",25,0,0,"0","(3)" 96220,127,"962",23,0,1,"0",">YES" 96221,102,"980",7,0,0,"0","CLEAR TIME" 96222,102,"981",28,0,0,"0","CLEAR 'AT'" 96223,76,"962",26,0,0,"0","*****SPARE ORDERS" 96224,124,"979",23,1,2,"0","" 96225,128,"",0,1,1,"0","" 96226,101,"",10,1,3,"0","" 96227,126,"978",2,0,0,"0",">OPEN/CLOSE S/R" 96228,106,"960",32,1,0,"0","CLEAR AREA" 96229,128,"744",2,1,1,"0","" 96230,124,"960",2,0,2,"0","HEADING LINE" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000806.JPG",,,,"","DaveJ/Q1000806" 96231,126,"977",2,0,0,"0","gEDIT AND O/P S/R" 96300,PROCR,"963",,,,"","3003 READ NEXT BLOCK,TEST DUMPS,TEST FINIS,END ROUTINE" 96302,100,"982",8,0,2,"0","READ NEXT BLOCK" 96303,101,"",7,1,3,"0","" 96304,126,"749",2,0,0,"0","gI/P O/P RTE 7" 96305,124,"982",5,1,2,"0","TEST DUMPS BLOCK" 96306,106,"",4,1,0,"0","" 96307,105,"981",24,1,0,"0","'DUMPS'" 96308,127,"964",2,0,0,"0","gYES" 96309,104,"981",24,1,0,"0","TEST FINIS BLOCK" 96310,105,"981",32,1,0,"0","'FINIS" 96311,127,"965",2,0,1,"0","gNO" 96312,124,"983",2,0,2,"0","EDIT FINIS LINE" 96313,126,"977",2,0,0,"0","gEDIT AND O/P S/R" 96314,101,"",20,1,3,"0","CLOSE PRINTER FILE" 96315,126,"978",2,0,0,"0","gOPEN/CLOSE S/R" 96316,101,"",27,1,3,"0","" 96317,126,"749",2,0,0,"0","gCLOSE RTE 7 TAPE" 96318,125,"",4096,1,1,"0","SET NON -INT" 96319,0,"741",2,0,0,"0","ABDON/END'IND" 96320,70,"745",50,0,0,"0","gABDON" 96321,0,"745",85,0,0,"0","1/1/3 2" 96322,5,"745",60,0,0,"0","" 96323,76,"745",50,0,0,"0","gEND" 96400,PROCR,"964",,,,"","3004 PRINT HEADING BLOCKS" 96402,106,"975",15,0,0,"0","RESET ORDER" 96403,102,"965",2,0,0,"0","" 96404,126,"976",2,0,0,"0","gFORM T/E S/R UNPACK DUMPS BLOCK" 96405,128,"751",9,1,0,"0","ALPHA->NUM" 96406,,"751",10,0,0,"0","DUMP TYPE IN Q5" 96407,118,"",4124,1,0,"0","" 96408,102,"982",4,0,0,"0","" 96409,118,"",1,1,0,"0","TEST HEADING IND SET" 96410,127,"964",24,0,0,"0","gNO" 96411,106,"982",4,0,0,"0","TEST DUMP TYPE 6" 96412,101,"",6,1,2,"0","" 96413,127,"964",16,0,0,"0","gYES" 96414,,"751",23,0,0,"0","TEST 600 LOCNS OF M/R TO BE OUTPUT" 96415,127,"964",54,0,0,"0","gYES" 96416,124,"983",4,0,2,"0","(BLANK LINE)" 96417,126,"977",2,0,0,"0","gEDIT AND O/P S/R" 96418,124,"984",2,0,2,"0","" 96419,126,"977",2,0,0,"0","gEDIT AND O/P S/R" 96420,124,"984",18,0,2,"0","" 96421,126,"977",2,0,0,"0","gEDIT AND O/P S/R" 96422,124,"984",36,0,2,"0","" 96423,126,"977",2,0,0,"0","gEDIT AND O/P S/R" 96424,106,"982",4,0,0,"0","TEST PM TYPE" 96425,101,"",3,1,2,"0","" 96426,127,"964",36,0,3,"0","g1,2" 96427,101,"",2,1,2,"0","" 96428,127,"964",40,0,3,"0","g3,4" 96429,101,"",2,1,2,"0","" 96430,127,"964",47,0,3,"0","g5,6" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000807.JPG",,,,"","RayS/Q1000807" 96431,101,"",3,1,2,"0","TEST DUMP TYPE 10" 96432,127,"964",36,0,0,"0",">YES" 96433,106,"964",35,0,0,"0","STOP PROCESSING BLOCKS" 96434,102,"965",2,0,0,"0","UNTIL NEXT DUMPS BLOCK" 96435,124,"963",2,1,0,"0",">READ NEXT BLOCK" 96436,106,"981",8,1,0,"0","FORM UP CHAPTER CHAPTER FOR 1,2,7" 96437,102,"981",16,1,0,"0","OR SECTION " 96438,106,"981",10,1,0,"0","" 96439,124,"964",44,1,0,"0","" 96440,106,"981",12,1,0,"0","SECTION FOR 3,4" 96441,102,"981",16,1,0,"0","" 96442,102,"961",18,0,0,"0","CLEAR INDICATORS" 96443,106,"981",14,1,0,"0","" 96444,102,"981",18,1,0,"0","" 96445,124,"985",2,0,2,"0","" 96446,126,"977",2,0,0,"0",">EDIT AND O/P S/R" 96447,,"751",24,0,0,"0","START/END ADDRESSES" 96448,118,"",5,0,0,"0","128 FOR DUMP TYPE 6" 96449,104,"751",23,0,0,"0","" 96450,103,"961",16,1,0,"0","FOR DUMP TYPE 6" 96451,102,"980",6,1,0,"0","FOR SECT OR CHAP " 96452,102,"980",5,0,0,"0","CLEAR CHAP ADDRESS C " 96453,124,"963",2,1,0,"0",">READ NEXT BLOCK" 96454,102,"981",26,0,0,"0","SET 0-600 INDICATOR " 96455,124,"985",12,0,2,"0","" 96456,126,"977",2,0,0,"0","HEADING LINES >EDIT AND O/P S/R" 96457,124,"984",36,0,2,"0","" 96458,126,"977",2,0,0,"0",">EDIT AND O/P S/R" 96459,124,"985",22,0,2,"0","" 96460,126,"977",2,0,0,"0",">EDIT AND O/P S/R" 96461,124,"964",47,1,0,"0","" 96500,PROCR,"965",,,,"","3005 TEST PM TYPE AND PROCESS PM TYPE 6" 96502,101,"",16,1,3,"0","UNPACK ALPHA>NUMERIC " 96503,126,"976",2,0,0,"0",">FORM T/E" 96504,128,"751",9,1,0,"0","UNPACK" 96505,106,"982",2,1,0,"0","SET IND MOD REG 2 " 96506,102,"980",8,1,0,"0","0/48 " 96507,106,"982",4,0,0,"0","" 96508,101,"",6,1,2,"0","TEST PM TYPE 6 " 96509,127,"966",2,0,1,"0",">NO" 96510,102,"980",2,0,0,"0","CLEAR NEW/OLD IND FOR S/R" 96511,124,"980",8,0,1,"0","STORE NEXT LONG WORD " 96512,124,"751",13,0,2,"0","AND FORM SIGN PARAS " 96513,126,"975",2,0,0,"0",">STORE LONG WORD ETC S/R" 96514,124,"980",8,0,1,"0","" 96515,124,"751",9,0,2,"0","REL+ABS ADDRESS" 96516,1,"979",24,1,0,"0","4 IN Q6" 96517,128,"980",3,0,0,"0","BULK COPY SHORT>SHORT" 96518,102,"980",22,1,0,"0","SET PARAS AT 0 FOR NEW WORD" 96519,126,"971",2,0,0,"0","PRINT NEXT LINE FORM UP AND O/P S/R" 96520,101,"",6,1,3,"0","STEP IND MRS ADJUST IND MRS" 96521,107,"980",8,0,0,"0","" 96522,123,"",2,0,0,"0","TEST LAST TRACE" 96523,100,"961",16,0,0,"0","" 96524,124,"967",26,1,0,"0",">NO, NEXT TRACE" 96525,124,"963",2,1,0,"0",">YES, NEXT BLOCK" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000808.JPG",,,,"","KenK/Q1000808" 96600,PROCR,"966",,,,"","PROCESS NEXT WORD ON MT BLOCK,DECODE IF AN INSTRUCTION " 96602,106,"963",6,0,0,"0","FORM UP ACTIONM ;TEST TAG CHANGE " 96603,104,"980",8,0,0,"0",";REQUIRED " 96604,104,"980",8,0,0,"0","" 96605,102,"966",7,0,0,"0","" 96606,124,"982",5,1,2,"0","MODIFY BY 123 " 96607,106,"",0,1,0,"0","*FORMED ORDER* NEXT WORD EX T/X AREA " 96608,105,"981",50,1,0,"0"," 'XX ' " 96609,127,"966",14,0,3,"0","gNOT CHANGE " 96610,118,"",4,0,0,"0","NEW TAG TO Q5 " 96611,103,"980",4,0,0,"0",";STORE NEW TAG " 96612,102,"981",29,0,0,"0",";SET TAG CHANGE IND " 96613,124,"967",26,1,0,"0","STEP MRS " 96614,101,"",0,1,3,"0","SET PARAS=0 ;STORE NEW LONG WORD " 96615,102,"980",2,0,0,"0",";AND FORM SIGN PATTER " 96616,124,"980",8,0,1,"0","I/O MODIFIER " 96617,124,"751",9,0,2,"0","" 96618,80,"975",2,0,0,"0","gDECODE/STORE''AFTER'' " 96619,10,"",0,0,0,"0","DUMMY ORDER " 96620,124,"982",2,0,3,"0","" 96621,126,"",0,0,0,"0","(42)SET TAG 15 " 96622,101,"",2,1,3,"0","FORM PARAS " 96623,102,"980",2,0,0,"0","" 96624,106,"980",6,0,0,"0","" 96625,80,"975",2,0,0,"0","gDECODE/STORE''BEFORE'' " 96626,106,"980",16,1,0,"0","TEST SIGN PATTERNS TEST WORDS EQUAL " 96627,105,"980",18,1,0,"0","EQUAL " 96628,127,"966",32,0,1,"0","gNO " 96629,106,"980",14,1,0,"0","TEST MAGNITUDE EQUAL " 96630,105,"980",12,1,0,"0","" 96631,127,"966",45,0,0,"0","gYES ;->YES " 96632,106,"981",26,0,0,"0",";TEST 0-600 SET " 96633,127,"966",44,0,0,"0","gYES " 96634,0,"980",6,0,0,"0","ADDRESS TO WRITE INTO " 96635,124,"982",2,0,3,"0","" 96636,105,"",3,0,0,"0","R1 END=SPECIAL CHAP START " 96637,73,"966",40,0,0,"0","gOK " 96638,101,"",204,1,2,"0","" 96639,73,"966",44,0,0,"0","gNEVER OVERWRITE 0-203 OF SPECIAL CHAPTE " 96640,124,"980",12,0,2,"0",";COPY NEW RECORD " 96641,104,"980",20,1,0,"0",";TO STORE " 96642,124,"980",6,0,3,"0","" 96643,128,"",0,0,0,"0","" 96644,101,"",1,1,3,"0",";SET EQUALITY INDIC " 96645,102,"980",11,0,0,"0","" 96646,123,"966",47,0,2,"0",";SET TAG 14 " 96647,100,"",0,0,0,"0","" 96700,PROCR,"967",,,,"","TEST PM TYPE " 96702,106,"982",4,0,0,"0",";SWTICH BY PM TYPE " 96703,101,"",5,1,2,"0","" 96704,127,"967",20,0,0,"0","" 96705,101,"",1,1,1,"0","" 96706,127,"968",2,0,0,"0","" 96707,101,"",2,1,1,"0","" 96708,127,"968",2,0,0,"0","" 96709,106,"981",29,0,0,"0",";TEST TAG CHANGE " 96710,127,"967",15,0,1,"0","gYES ;INDICATOR SET " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000809.JPG",,,,"","RayS/Q1000809" 96711,106,"980",12,1,0,"0","TEST LONG WORD " 96712,127,"967",15,0,1,"0","TRUE ZERO >NO" 96713,106,"980",16,1,0,"0","" 96714,127,"967",18,0,0,"0",">YES" 96715,101,"",0,1,3,"0","FORM PARAMETER" 96716,102,"980",22,1,0,"0","" 96717,126,"970",2,0,0,"0",">FORM UP AND O/P S/R**" 96718,101,"",0,1,3,"0","***DELETE " 96719,102,"981",29,0,0,"0","CLEAR TAG CHANGE INDICATOR" 96720,101,"",2,1,3,"0","STEP ADDRESS COUNTER" 96721,107,"980",5,0,0,"0","" 96722,123,"",2,0,0,"0","STEP IND MR1 " 96723,100,"980",6,0,0,"0","" 96724,124,"967",26,1,0,"0","" 96725,124,"963",2,1,0,"0",">NEXT BLOCK" 96726,123,"",2,0,0,"0","STEP IND MR2 " 96727,100,"980",8,0,0,"0","" 96728,124,"965",7,1,0,"0",">NEXT WORD" 96729,124,"963",2,1,0,"0",">NEXT BLOCK" 96800,PROCR,"968",,,,"","3008 TYPES 2 AND 4" 96802,106,"980",11,0,0,"0","TEST NEW WORD=OLD " 96803,127,"967",20,0,0,"0",">YES" 96804,106,"980",14,1,0,"0","TEST OLD WORD MAGNITUDE=0" 96805,127,"968",8,0,1,"0","IS TRUE ZERO >NO" 96806,106,"980",18,1,0,"0","SIGN PATTERN=0" 96807,127,"967",11,0,0,"0",">YES >YES" 96808,106,"980",24,1,0,"0","" 96809,102,"980",22,1,0,"0","" 96810,126,"970",2,0,0,"0",">FORM UP AND O/P S/R" 96811,124,"967",11,1,0,"0",">OUTPUT NEW WORD" 96900,PROCR,"969",,,,"","3009 CONVERT S/R BINARY>DECIMAL" 96902,100,"",0,0,0,"0","LINK" 96903,100,"961",20,1,0,"0","STORE (A) (B) ( C)" 96904,100,"982",7,0,3,"0","SET DECIMAL" 96905,124,"980",26,0,2,"0","SELECT TABLE START" 96906,112,"961",20,0,0,"0","CONVERT" 96907,102,"961",20,1,0,"0","" 96908,100,"961",20,1,1,"0","RESET (A) (B) ( C)" 96909,126,"969",2,0,1,"0",">LEAVE S/R" 97000,PROCR,"970",,,,"","33010 FORM UP AND O/P S/R IF NOT TYPE 6" 97002,100,"",0,0,0,"0","LINK" 97003,101,"",31,0,1,"0","COLLATION CONST" 97004,106,"980",6,0,0,"0","CONVERT AND STORE " 97005,118,"",3,1,3,"0","REL ADDRESS REMOVE DIVISION NO" 97006,118,"",4124,1,0,"0","" 97007,114,"980",4,0,0,"0","STORE DIVISION NO" 97008,101,"",0,1,3,"0","CLEAR A" 97009,118,"",13,1,3,"0","" 97010,102,"980",3,0,0,"0","STORE ADDRESS" 97011,126,"971",2,0,0,"0",">FORM UP AND OUTPUT S/R" 97012,126,"970",2,0,1,"0",">LEAVE S/R" 97013,5,"961",2,0,0,"0","ORDER CONST" ,,"",,,,"","" ,,"",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000810.JPG",,,,"","KenK/Q1000810" 97100,PROCR,"971",,,,"","FORM UP LINE OF PRINT,PRINT IT,PRINT STARRY LINE IF REQUIRED " 97102,81,"971",2,0,0,"0","" 97103,124,"980",23,0,1,"0","0/2=OLD/NEW WORD " 97104,124,"980",12,0,2,"0","" 97105,1,"980",20,1,0,"0","2 IN Q6=QTTY " 97106,128,"980",14,0,0,"0","COPY CURRENT LONG WORD->WL " 97107,124,"980",23,0,1,"0","" 97108,0,"980",16,1,0,"0","COPY INDS THAT ACTION>16 " 97109,5,"980",18,1,0,"0","" 97110,35,"",0,0,0,"1111","" 97111,36,"980",4,0,0,"0","DIVISION OR REF " 97112,126,"973",2,0,0,"0","CONVERT AND STORE " 97113,106,"980",3,0,0,"0","CONVERT 13 BIT ADDRESS " 97114,126,"969",2,0,0,"0","(OR ITEM) TO DECIMAL " 97115,102,"980",3,0,0,"0","" 97116,100,"980",14,1,2,"0",";PROCESS LONG WORD " 97117,126,"974",2,0,0,"0","gPROCESS WORD S/R ;MOSST SIG HALF " 97118,106,"980",18,0,0,"0","STORE SIGN PARAS " 97119,102,"980",19,0,0,"0","" 97120,126,"974",2,0,0,"0","gPROCESS WORD S/R ;LEAST SIG HALF " 97121,106,"980",14,1,0,"0","STORE ALPHA WORD " 97122,102,"981",18,1,0,"0",";L/E'S IN LONG WORD " 97123,102,"980",18,1,0,"0",";WITH B'S AND L'S " 97124,34,"974",15,0,0,"0","BITS 1-6 " 97125,115,"981",18,1,0,"0","STORE NEXT QRTET ;LINE " 97126,102,"981",16,1,0,"0","" 97127,115,"981",52,1,0,"0","TET FOR B/E " 97128,105,"981",16,1,0,"0","" 97129,127,"971",32,0,0,"0","gYES " 97130,101,"",0,1,3,"0","" 97131,124,"971",34,1,0,"0","gNO " 97132,106,"981",6,1,0,"0","g'S AND B'S " 97133,124,"971",38,1,0,"0","" 97134,115,"981",54,1,0,"0","TEST FOR L/E'S " 97135,105,"981",16,1,0,"0","" 97136,71,"971",41,0,0,"0","gNO " 97137,106,"981",4,1,0,"0","" 97138,114,"981",18,1,0,"0","" 97139,106,"981",2,1,0,"0","" 97140,114,"980",18,1,0,"0","g'S " 97141,118,"",2,1,0,"0","" 97142,101,"",0,1,3,"0","" 97143,127,"971",25,1,1,"0","gNEXT QRTET " 97144,106,"980",4,0,0,"0",";CONVERT TAG S/R " 97145,118,"",4124,0,0,"0","SHIFT TO Q1 " 97146,126,"973",2,0,0,"0","CONVERT AND TRANSFER S/R " 97147,106,"980",5,0,0,"0","RELATIVE ADDRESS " 97148,126,"973",2,0,0,"0","gCONVERT AND TRANSFER S/R " 97149,124,"986",2,0,2,"0",";EDIT LINE " 97150,126,"977",2,0,0,"0","gEDIT AND O/P S/R " 97151,106,"980",18,1,0,"0",";OUTPUT * LINE " 97152,127,"971",55,0,0,"0",";IF NEEDED " 97153,124,"986",38,0,2,"0",";EDIT LINE " 97154,126,"977",2,0,0,"0","gEDIT AND O/P S/R " 97155,0,"970",13,0,0,"0","RESET ORDDER " 97156,5,"972",3,0,0,"0","" 97157,126,"971",2,0,1,"0",";FOR NEXT WORD " 97200,PROCR,"972",,,,"","3812 TRANSPER S/R " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000811.JPG",,,,"","RayS/Q1000811" 97202,81,"972",2,0,0,"0","" 97203,5,"961",2,0,0,"0",">FORMED ORDER" 97204,10,"",0,0,0,"1","" 97205,4,"972",3,0,0,"0","STEP ADDRESS" 97206,10,"",0,0,0,"0","CLEAR A" 97207,82,"972",2,0,0,"0","" 97300,PROCR,"973",,,,"","3013 CONVERT AND TRANSFER S/R" 97302,100,"",0,0,0,"0","LINK" 97303,126,"969",2,0,0,"0",">CONVERT S/R" 97304,126,"972",2,0,0,"0",">TRANSFER S/R" 97305,126,"973",2,0,1,"0",">LEAVE S/R" 97400,PROCR,"974",,,,"","3014 PROCESS WORD S/R" 97402,100,"",0,0,0,"0","LINK" 97403,101,"",0,1,3,"0","TRANSFER ACTION CLEAR A" 97404,118,"",1,1,0,"0","SHIFT ACTION INTO B" 97405,104,"980",19,0,0,"0","0 OR 16 IF ACTION <OR >16" 97406,126,"973",2,0,0,"0","DISCRIMINANT D IN A" 97407,118,"",1,1,3,"0",">TRANSFER" 97408,126,"972",2,0,0,"0","MODIFIER M IN A" 97409,118,"",2,1,3,"0",">TRANSFER" 97410,126,"972",2,0,0,"0","ADDRESS " 97411,118,"",1,1,3,"0","" 97412,118,"",3,1,0,"0","" 97413,126,"973",2,0,0,"0",">CONVERT AND TRANSFER" 97414,126,"974",2,0,1,"0",">LEAVE S/R" 97415,100,"",63,0,0,"0","CONST=BITS 1-6" 97500,PROCR,"975",,,,"","3015 STORE LONG WORD AND FORM SIGN PARAS S/R" 97502,100,"",0,0,0,"0","LINK" 97503,104,"980",20,1,0,"0","STORE WORD FORM T/E" 97504,124,"980",2,0,0,"0","" 97505,128,"980",12,0,0,"0","BULK COPY LONG WORD" 97506,124,"980",2,0,1,"0","0/2=OLD/NEW WORD" 97507,124,"980",12,0,2,"0","" 97508,1,"979",26,1,0,"0","1 IN Q6" 97509,118,"",0,0,0,"0","DUMMY ORDER" 97510,128,"981",27,0,0,"0","BULK COPY SHORT WORD" 97511,100,"981",26,1,1,"0","FORM SIGN PATTERN FORM SIGN PATTERN" 97512,127,"975",15,0,3,"0","0 IF POSIVIE FOR LEAST SIG HALF" 97513,101,"",0,1,3,"0","16 IF POSITIVE POSITIVE" 97514,124,"975",16,1,0,"0","" 97515,101,"",16,1,3,"0","NEGATIVE" 97516,124,"980",2,0,1,"0","" 97517,102,"980",16,0,0,"0","" 97518,124,"980",2,0,1,"0","FORM SIGN PATTERN" 97519,100,"980",12,1,1,"0","FOR MOST SIG HALF" 97520,127,"975",23,0,3,"0","" 97521,101,"",0,1,3,"0","POSITIVE" 97522,124,"975",24,1,0,"0","" 97523,101,"",16,1,3,"0","NEGATIVE" 97524,124,"980",2,0,0,"0","" 97525,102,"980",17,0,0,"0","" 97526,100,"982",2,0,3,"0","RESET BINARY" 97527,126,"975",2,0,1,"0","" ,,"",,,,"","" 97600,PROCR,"976",,,,"","3016 UNPACK FROM WORD 6 S/R" 97602,100,"",0,0,0,"0","LINK" 97603,101,"",32,1,1,"0","FORM T/E" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000812.JPG",,,,"","KenK/Q1000812" 97604,118,"",5,0,0,"0","" 97605,101,"",5,1,1,"0","" 97606,124,"982",2,0,3,"0","" 97607,104,"",123,0,0,"0","" 97608,126,"976",2,0,1,"0","gLEAVE S/R " 97609,10,"",0,0,0,"0","DUMMY ORDER " 97700,PROCR,"977",,,,"","3017 EDIT AND O/P S/R " 97702,81,"977",2,0,0,"0","" 97703,128,"744",12,1,2,"0","" 97704,124,"986",50,0,2,"0","EDIT 20 SPACES " 97705,128,"744",4,1,2,"0","BEFORE PRINTING " 97706,5,"744",2,1,0,"0","CLEAR FUNCTION WORD " 97707,101,"",1,0,1,"0","" 97708,124,"982",2,0,3,"0","" 97709,115,"",27,0,0,"0","" 97710,12,"",0,0,0,"4","" 97711,70,"977",24,0,0,"0","gGP PRINTER " 97712,124,"744",2,0,2,"0",";SPECIAL PRINT " 97713,1,"979",28,1,0,"0","48 IN Q6 " 97714,124,"979",23,1,2,"0","" 97715,128,"",0,1,1,"0","COPY ANNEX,CLEAR A " 97716,,"979",22,0,0,"0","" 97717,32,"",0,0,0,"5-","ROUTE IN TOP OF B " 97718,,"979",22,0,0,"0","" 97719,32,"",0,0,0,"5-","AND IN BOTTOM " 97720,80,"978",2,0,0,"0","gPRINT " 97721,123,"979",2,0,2,"0","gTEST PRINT FINISHED " 97722,10,"",0,0,0,"0","CLEAR A " 97723,82,"977",2,0,0,"0","(YES) " 97724,10,"",0,0,0,"8",";GP PRINT " 97725,30,"",0,0,0,"4","" 97726,5,"744",3,0,0,"0","(PRINT ON COLS 1-120) " 97727,124,"744",2,0,2,"0","" 97728,124,"979",23,1,2,"0","" 97729,129,"",0,0,1,"0","EDIT " 97730,10,"",0,0,0,"0","CLEAR A " 97731,76,"977",16,0,0,"0","gGO TO PRINT " 97800,PROCR,"978",,,,"","3018 ENTER MASTER FOR PRINTER " 97802,100,"",0,0,0,"0","LINK " 97803,118,"",5,0,0,"0","FORM T/E " 97804,124,"982",2,0,3,"0","" 97805,104,"",26,1,0,"0","(PARAS 26,27) " 97806,125,"",4096,1,1,"0","SET NON INT " 97807,124,"982",2,0,3,"0","" 97808,123,"",160,0,2,"0","gOPEN PRINTER " 97809,126,"978",2,0,1,"0","gLEAVE S/R " 97900,PROCR,"979",,,,"","3019 TEST PREVIOUS PRINT ORDER FINISHED " 97902,81,"979",2,0,0,"0","" 97903,125,"",4096,1,1,"0","" 97904,124,"982",2,1,1,"0","MG C " 97905,,"979",22,0,0,"0","ROUTE " 97906,124,"982",2,0,3,"0","" 97907,102,"",30,0,1,"0","gSI+30 " 97908,,"979",21,0,0,"0","“26/1/0” " 97909,2,"979",22,0,0,"0","" 97910,124,"982",2,0,3,"0","" 97911,102,"",7,0,1,"0","SI+7 " ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000813.JPG",,,,"","RayS/Q1000813" 97912,124,"982",2,0,3,"0","" 97913,102,"",45,0,1,"0","CLEAR ASSOCIATED TIME" 97914,124,"979",17,0,2,"0","(RETURN ADDRESS)" 97915,124,"982",2,0,3,"0","" 97916,124,"",174,1,0,"0",">MASTER TO TEST ROUTE" 97917,124,"982",2,0,3,"0","" 97918,124,"",2,0,3,"0","" 97919,124,"",29,1,1,"0","RESTORE PROG'S MOD GROUP" 97920,126,"979",2,0,3,"0",">(SET INTERRUPTIBLE)" 97921,126,"",0,1,0,"0","CONST" 97922,100,"",0,0,0,"0","WL FOR ALLOCATED ROUTE R" 97923,100,"",0,0,0,"0","WL FOR-(64+R)" 97924,100,"",0,0,0,"0",")COPY 4" 97925,100,"",4,0,0,"0",")" 97926,100,"",0,0,0,"0","(COPY 1" 97927,100,"",1,0,0,"0","(" 97928,100,"",0,0,0,"0",")COPY 48" 97929,100,"",48,0,0,"0",")" 98000,CONST,"980",,1,,"","3020 W/L'S AND CONVERT TABLES" 98002,,"(D)0;",,,,"","I/O SERIAL/W/L" 98004,,"0;",,,,"","RELATIVE ADDRESS/TAG" 98006,,"t£££££;",,,,"","TIME/DATE,IND MOD1" 98008,,"(A)START;",,,,"","(LONG DATE)IND MOD 2" 98010,,"(D)0;",,,,"","=INDIC/PROG IDENTITY" 98012,,"0;",,,,"","NEW LONG WORD" 98014,,"0;",,,,"","OLD LONG WORD" 98016,,"0;",,,,"","0/16 IN ODD/EVEN IF ODD/EVEN NEW WORD PO" 98018,,"0;",,,,"","DITTO FOR OLD VALUE OF WORD" 98020,,"200000;",,,,"","TABLE CONSTANT" 98022,,"0;",,,,"","PARAS NEW/OLD" 98024,,"(D)2000(A)*;",,,,"","OLD WORD CONSTANT" 98026,,"(D)1;",,,,"","CONVERT TABLE" 98028,,"16;",,,,"","BINARY>DECIMAL" 98030,,"256;",,,,"","" 98032,,"4096;",,,,"","" 98034,,"65536;",,,,"","" 98100,CONST,"981",,1,,"","3021 ALPHA CONSTANTS" 98102,,"(A)*****;",,,,"","" 98104,,"LLLLL;",,,,"","" 98106,,"BBBBB;",,,,"","" 98108,,"(A)CHAPT;",,,,"","CONSTANTS FOR HEADING" 98110,,"ER ;",,,,"","BLOCKS" 98112,,"(A)SECTI;",,,,"","" 98114,,"ON ;",,,,"","" 98116,,"PRINT;",,,,"","W/L FOR HEADING" 98118,,"OUTOF;",,,,"","W/L FOR HEADING" 98120,,"POINT;",,,,"","CONSTANTS FOR PRINTING" 98122,,"P M B;",,,,"","HEADING BLOCK" 98124,,"(A)DUMPS;",,,,"","" 98126,,"TAKEN;",,,,"","W/L/0-600 IND" 98128,,"ON AT;",,,,"","TAG CH IND/W/L" 98130,,"(A)PROGM;",,,,"","" 98132,,"(A)FINIS;",,,,"","" 98134,,"(A)TYPE(D)7.;",,,,"","" 98136,,"(A)FINAL;",,,,"","" 98138,,"MASTE;",,,,"","" 98140,,"R ROU;",,,,"","" 98142,,"MR1 ;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000814.JPG",,,,"","RayS/Q1000814" 98144,,"MR2 ;",,,,"","" 98146,,"MR3 ;",,,,"","" 98148,,"TINE ;",,,,"","" 98150,,"XX ;",,,,"","" 98152,,"(D)7.7.7.7.7.;",,,,"","" 98154,,"5.5.5.5.5.;",,,,"","" 98200,CONST,"982",,0,,"","3022 NUMERIC CONSTANTS" 98202,,"(D)00000;",,,,"","ZERO" 98203,,"00018;",,,,"","M/R SETTING 0/24" 98204,,"0;",,,,"","STORE FOR PM TYPE" 98205,,"7e-;",,,,"","ASL 123" 98206,,"3:;",,,,"","61" 98207,,"66666;",,,,"","" 98208,,"3e;",,,,"","59" 98209,,"0;",,,,"","" 98300,PROCR,"983",,,,"","3023 TABLE 1" 98302,100,"981",32,0,0,"0","FINIS" 98303,101,"",5,0,0,"0","" 98304,100,"981",34,0,0,"0","B/E" 98305,117,"",1029,0,0,"0","" 98400,PROCR,"984",,,,"","3024 TABLE 2" 98402,100,"981",30,0,0,"0","15 SP PROGM" 98403,101,"",245,0,0,"0","" 98404,100,"980",10,0,0,"0","SP PROG ID" 98405,100,"",21,0,0,"0","" 98406,100,"981",22,0,0,"0","4SP PM" 98407,101,"",68,0,0,"0","" 98408,100,"981",20,0,0,"0","POINT" 98409,101,"",5,0,0,"0","" 98410,108,"751",11,0,0,"0","LINE SERIAL" 98411,100,"",53,0,0,"0","" 98412,100,"981",34,0,0,"0","4SP TYPE" 98413,101,"",68,0,0,"0","" 98414,100,"982",4,0,0,"0","SP TYPE NO" 98415,100,"",1041,0,0,"0","" 98416,100,"981",34,0,0,"0","2SP B/E" 98417,117,"",1057,0,0,"0","" 98418,100,"981",8,0,0,"0","15SP A" 98419,101,"",753,0,0,"0","" 98420,108,"751",13,0,0,"0","(A)" 98421,100,"",53,0,0,"0","" 98422,108,"751",12,0,0,"0","" 98423,106,"",1285,0,0,"0","" 98424,100,"981",22,0,0,"0","4SP B" 98425,101,"",1089,0,0,"0","" 98426,108,"751",15,0,0,"0","(B)" 98427,100,"",53,0,0,"0","" 98428,108,"751",14,0,0,"0","" 98429,106,"",1285,0,0,"0","" 98430,100,"981",8,0,0,"0","4SP C" 98431,101,"",65,0,0,"0","" 98432,108,"751",16,0,0,"0","©" 98433,104,"",53,0,0,"0","" 98434,100,"981",34,0,0,"0","4SP B/E" 98435,117,"",1089,0,0,"0","" 98436,100,"981",42,0,0,"0","MR1" 98437,101,"",243,0,0,"0","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000815.JPG",,,,"","RayS/Q1000815" 98438,108,"751",18,0,0,"0","(R1)" 98439,104,"",21,0,0,"0","" 98440,108,"751",17,0,0,"0","" 98441,104,"",5,0,0,"0","" 98442,100,"981",44,0,0,"0","MR2" 98443,101,"",67,0,0,"0","" 98444,108,"751",20,0,0,"0","(R2)" 98445,104,"",21,0,0,"0","CONTENTS OF MR2" 98446,108,"751",19,0,0,"0","" 98447,104,"",5,0,0,"0","" 98448,100,"981",46,0,0,"0","MR3" 98449,101,"",67,0,0,"0","" 98450,108,"751",22,0,0,"0","(MR3)" 98451,104,"",21,0,0,"0","" 98452,108,"751",21,0,0,"0","" 98453,104,"",5,0,0,"0","" 98454,100,"981",34,0,0,"0","3SP BE" 98455,117,"",1073,0,0,"0","" 98500,PROCR,"985",,,,"","3025 TABLE 3" 98502,100,"980",10,0,0,"0","15 SP PROG ID" 98503,100,"",245,0,0,"0","" 98504,100,"981",16,0,0,"0","2SP CHAPTER/SECTION" 98505,101,"",37,0,0,"0","" 98506,100,"981",18,0,0,"0","" 98507,101,"",5,0,0,"0","" 98508,108,"751",10,0,0,"0","CHAP/SECTION" 98509,100,"",4866,0,0,"0","" 98510,100,"981",34,0,0,"0","B/E" 98511,117,"",1025,0,0,"0","" 98512,100,"981",30,0,0,"0","15SP PROGM" 98513,101,"",245,0,0,"0","" 98514,100,"980",10,0,0,"0","SERIAL NO" 98515,100,"",21,0,0,"0","" 98516,100,"981",36,0,0,"0","FINAL" 98517,101,"",37,0,0,"0","" 98518,100,"981",24,0,0,"0","DUMP" 98519,101,"",20,0,0,"0","" 98520,100,"981",34,0,0,"0","SP B/E" 98521,117,"",1041,0,0,"0","" 98522,100,"981",38,0,0,"0","MASTER" 98523,101,"",245,0,0,"0","" 98524,100,"981",40,0,0,"0","ROUTINE" 98525,101,"",5,0,0,"0","" 98526,100,"981",48,0,0,"0","" 98527,101,"",5,0,0,"0","" 98528,100,"981",34,0,0,"0","4SP B/E" 98529,117,"",1089,0,0,"0","" ,,"",,,,"","" 98600,PROCR,"986",,,,"","3026 TABLE 4" 98602,100,"980",22,0,0,"0","ASTERISK" 98603,101,"",1025,0,0,"0","4/0/1" 98604,100,"961",2,0,0,"0","DIVISION NO OR REF" 98605,100,"",515,0,1,"0","2/2/0/3" 98606,100,"980",3,0,0,"0","13 BIT DEC ADD" 98607,100,"",5,0,2,"0","4/0/0/5" 98608,100,"961",12,0,0,"0","RELATIVE ADDRESS" 98609,100,"",21,0,2,"0","4/0/1/5" 98610,100,"980",6,0,0,"0","15 BIT BINARY ADDRESS" 98611,100,"",4117,0,0,"0","1/0/1/5" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000816.JPG",,,,"","RayS/Q1000816" 98612,100,"961",7,0,0,"0","ACTION" 98613,100,"",531,0,1,"0","2/2/1/3" 98614,100,"961",8,0,0,"0","DISC" 98615,100,"",1041,0,0,"0","4/1/1" 98616,100,"961",9,0,0,"0","MOD" 98617,100,"",1041,0,0,"0","4/1/1" 98618,100,"961",10,0,0,"0","ADDRESS" 98619,100,"",21,0,2,"0","1/5" 98620,100,"961",3,0,0,"0","ACTION" 98621,100,"",531,0,1,"0","2/2/1/3" 98622,100,"961",4,0,0,"0","DISC" 98623,100,"",1041,0,0,"0","4/1/1" 98624,100,"961",5,0,0,"0","MOD" 98625,100,"",1041,0,0,"0","4/1/4" 98626,100,"961",6,0,0,"0","ADDRESS" 98627,100,"",21,0,2,"0","1/5" 98628,100,"980",14,0,0,"0","LSH NUMERIC" 98629,104,"",69,0,2,"0","4/0/2/5" 98630,100,"980",15,0,0,"0","MSH NUMERIC" 98631,104,"",37,0,2,"0","4/0/2/5" 98632,100,"981",18,0,0,"0","PROCESSED ALPHA" 98633,101,"",37,0,0,"0","2/5" 98634,100,"961",11,0,0,"0","TAG" 98635,100,"",4882,0,0,"0","1/3/1/2" 98636,100,"981",52,0,0,"0","BEW" 98637,117,"",5,0,0,"0","0/5" 98638,100,"982",2,0,0,"0","STARRY LINE" 98639,100,"",4341,0,2,"0","5/0/15/5" 98640,100,"982",2,0,0,"0","" 98641,100,"",4341,0,2,"0","" 98642,100,"982",2,0,0,"0","" 98643,100,"",4341,0,2,"0","" 98644,100,"982",2,0,0,"0","" 98645,100,"",4117,0,2,"0","5/0/1/5" 98646,100,"980",18,0,0,"0","STARTS" 98647,101,"",53,0,0,"0","" 98648,100,"981",52,0,0,"0","BEW" 98649,117,"",5,0,0,"0","0/5" 98650,100,"982",2,0,0,"0","20 SPACES" 98651,116,"",4341,0,2,"0","" 98700,CONST,"987",,0,,"","FIRST LEVEL PARAS PASS 2" 98702,,"(B5)1(B3)1(B3)1(B3)1(B6)8;",,,,"","2001/0" 98703,,"1,1,0,1,1;",,,,"","" 98704,,"1,1,1,0,8;",,,,"","" 98705,,"1,1,2,0,16;",,,,"","" 98706,,"2,0,2,0,16;",,,,"","" 98707,,"1,0,1,1,1;",,,,"","" 98708,,"1,1,0,1,9;",,,,"","" 98709,,"0,1,6,6,54;",,,,"","" 98710,,"6,1,1,1,9;",,,,"","" 98711,,"0,1,1,1,6;",,,,"","" 98712,,"1,0,1,1,0;",,,,"","" 98713,,"1,1,1,1,9;",,,,"","2002/5" 98714,,"0,1,1,1,9;",,,,"","" 98715,,"0,1,0,0,54;",,,,"","" 98716,,"1,1,0,0,9;",,,,"","" 98717,,"0,1,1,0,8;",,,,"","" 98718,,"0,0,1,6,54;",,,,"","" 98719,,"6,6,6,6,54;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000817.JPG",,,,"","RayS/Q1000817" 98720,,"0,0,1,0,0;",,,,"","2003/4" 98721,,"0,0,0,1,0;",,,,"","" 98722,,"1,0,0,1,1;",,,,"","" 98723,,"1,1,1,0,6;",,,,"","" 98724,,"0,1,1,1,8;",,,,"","" 98725,,"0,1,1,1,6;",,,,"","2004/5 2005/5" 98726,,"0,1,1,1,1;",,,,"","" 98727,,"0,0,0,0,0;",,,,"","" 98728,,"0,1,1,1,9;",,,,"","" 98729,,"1,0,1,0,9;",,,,"","" 98730,,"1,1,0,0,8;",,,,"","" 98731,,"1,0,1,1,9;",,,,"","2006/2" 98732,,"1,0,1,1,8;",,,,"","" 98733,,"0,1,0,1,1;",,,,"","" 98734,,"1,1,1,1,8;",,,,"","" 98735,,"1,1,1,1,1;",,,,"","" 98736,,"1,0,0,0,1;",,,,"","" 98737,,"1,0,1,0,0;",,,,"","" 98738,,"1,1,0,0,8;",,,,"","" 98739,,"1,1,0,1,8;",,,,"","2007/4" 98740,,"1,0,1,0,9;",,,,"","" 98741,,"0,1,1,0,9;",,,,"","2008/6" 98742,,"1,1,0,1,8;",,,,"","" 98743,,"1,1,1,1,0;",,,,"","" 98744,,"0,1,1,1,9;",,,,"","" 98745,,"0,0,1,0,9;",,,,"","" 98746,,"0,1,1,0,8;",,,,"","" 98747,,"1,1,1,6,54;",,,,"","" 98748,,"0,1,1,1,9;",,,,"","2009/0" 98749,,"1,1,0,1,9;",,,,"","" 98750,,"1,1,1,6,54;",,,,"","" 98751,,"6,0,1,1,8;",,,,"","" 98752,,"1,0,1,1,8;",,,,"","2010/5" 98753,,"1,1,1,6,11;",,,,"","" 98754,,"1,0,1,1,9;",,,,"","" 98755,,"1,1,0,1,1;",,,,"","" 98756,,"1,1,1,1,9;",,,,"","" 98757,,"0,6,6,0,9;",,,,"","2011/4" 98758,,"1,0,1,0,1;",,,,"","" 98759,,"3,0,0,1,54;",,,,"","" 98760,,"0,1,0,1,9;",,,,"","" 98761,,"1,0,1,6,54;",,,,"","" 98762,,"1,0,1,1,9;",,,,"","" 98763,,"0,1,0,1,8;",,,,"","" 98764,,"1,0,1,0,9;",,,,"","" 98765,,"0,6,6,6,54;",,,,"","2012/1" 98766,,"1,1,1,1,1;",,,,"","" 98767,,"0,1,1,1,8;",,,,"","" 98768,,"1,0,1,0,9;",,,,"","" 98769,,"0,1,1,0,8;",,,,"","2013/0" 98770,,"1,1,0,0,0;",,,,"","" 98771,,"1,1,0,1,0;",,,,"","" 98772,,"0,0,1,0,0;",,,,"","" 98773,,"1,0,0,0,8;",,,,"","" 98774,,"0,0,1,1,8;",,,,"","" 98775,,"0,1,0,0,1;",,,,"","" 98776,,"1,1,0,0,8;",,,,"","" 98777,,"0,0,0,0,8;",,,,"","" 98778,,"1,1,0,1,8;",,,,"","" 98779,,"1,0,1,1,8;",,,,"","2014/6" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000818.JPG",,,,"","RayS/Q1000818" 98780,,"1,1,1,1,8;",,,,"","" 98781,,"0,1,0,1,9;",,,,"","" 98782,,"1,6,6,6,54;",,,,"","" 98783,,"1,1,1,1,1;",,,,"","" 98784,,"0,1,1,1,9;",,,,"","2015/0" 98785,,"0,1,1,1,9;",,,,"","" 98786,,"0,1,1,0,9;",,,,"","" 98787,,"1,1,0,1,9;",,,,"","" 98788,,"1,0,1,1,1;",,,,"","" 98789,,"1,1,0,1,9;",,,,"","2016/0" 98790,,"1,1,1,0,9;",,,,"","" 98791,,"0,1,1,6,0;",,,,"","" 98792,,"1,1,1,1,9;",,,,"","" 98793,,"0,0,0,1,49;",,,,"","" 98800,CONST,"988",,0,,"","FIRST LEVEL PARA PASS 2 CONTD" 98802,,"(B5)1(B3)1(B3)0(B3)1(B6)15;",,,,"","" 98803,,"0,0,1,0,0;",,,,"","2017/1" 98804,,"1,1,0,0,8;",,,,"","" 98805,,"0,0,1,1,8;",,,,"","" 98806,,"0,1,0,0,0;",,,,"","" 98807,,"0,1,0,1,1;",,,,"","" 98808,,"0,1,1,1,0;",,,,"","" 98809,,"1,0,0,0,9;",,,,"","" 98810,,"1,1,0,1,9;",,,,"","" 98811,,"1,1,0,1,9;",,,,"","2017A/5" 98812,,"0,1,1,7,1;",,,,"","2018/5 2019/5" 98813,,"1,1,1,1,15;",,,,"","" 98814,,"0,1,0,1,9;",,,,"","2020/1" 98815,,"0,0,0,1,57;",,,,"","" 98816,,"0,1,0,6,54;",,,,"","2022/1" 98817,,"1,0,1,1,8;",,,,"","2022/6" 98818,,"1,0,1,1,8;",,,,"","2023/6" 98819,,"1,1,1,1,24;",,,,"","" 98820,,"1,1,0,1,0;",,,,"","" 98821,,"1,0,1,0,54;",,,,"","2024/4" 98822,,"1,1,0,1,9;",,,,"","" 98823,,"0,6,6,6,54;",,,,"","" 98824,,"0,1,1,1,9;",,,,"","2025/0" 98825,,"0,0,1,0,9;",,,,"","" 98826,,"0,1,0,1,15;",,,,"","2026/0" 98827,,"0,0,1,1,8;",,,,"","" 98828,,"1,1,0,0,0;",,,,"","2027/3" 98829,,"0,0,0,0,0;",,,,"","" 98830,,"0,0,0,0,0;",,,,"","2028/0" 98831,,"0,0,0,0,0;",,,,"","" 98832,,"0,0,0,0,0;",,,,"","2029/0" 98833,,"0,0,0,0,0;",,,,"","" 98834,,"0,0,0,0,0;",,,,"","" 98835,,"0,0,0,0,0;",,,,"","" 98836,,"0,0,0,0,16;",,,,"","2030/5" 98837,,"0,0,0,0,16;",,,,"","" 98838,,"2,0,0,0,24;",,,,"","" 98839,,"2,0,0,0,0;",,,,"","2031/5" 98840,,"0,0,0,0,0;",,,,"","" 98841,,"0,0,0,0,0;",,,,"","2032/1" 98842,,"0,0,0,0,0;",,,,"","2033/5" 98843,,"0,0,0,0,16;",,,,"","2034/5" 98844,,"7,6,6,6,54;",,,,"","(CHAP END)" 98845,,"6,6,6,6,54;",,,,"","DUMMY WORD" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000819.JPG",,,,"","RayS/Q1000819" 98900,CONST,"989",,0,,"","FIRST LEVEL PARAS PASS 3" 98902,,"(B5)0(B3)0(B3)1(B3)1(B6)0;",,,,"","3001/0" 98903,,"1,0,0,1,1;",,,,"","" 98904,,"1,1,1,0,6;",,,,"","" 98905,,"1,1,1,1,9;",,,,"","" 98906,,"1,1,1,1,25;",,,,"","" 98907,,"0,6,6,6,54;",,,,"","" 98908,,"0,0,0,0,0;",,,,"","3001.5/1" 98909,,"0,0,0,0,0;",,,,"","" 98910,,"0,0,0,0,0;",,,,"","" 98911,,"0,0,0,0,0;",,,,"","" 98912,,"0,0,0,0,0;",,,,"","" 98913,,"0,0,0,0,0;",,,,"","" 98914,,"0,0,0,0,0;",,,,"","" 98915,,"0,0,0,0,0;",,,,"","" 98916,,"0,0,0,0,0;",,,,"","" 98917,,"0,0,0,0,0;",,,,"","" 98918,,"0,0,0,0,0;",,,,"","3001A/1" 98919,,"0,0,0,0,0;",,,,"","" 98920,,"0,0,0,0,0;",,,,"","" 98921,,"0,0,0,0,0;",,,,"","" 98922,,"0,0,0,0,0;",,,,"","" 98923,,"0,0,0,0,0;",,,,"","" 98924,,"0,0,0,0,0;",,,,"","" 98925,,"0,0,0,0,0;",,,,"","" 98926,,"0,0,0,0,0;",,,,"","" 98927,,"0,0,0,0,0;",,,,"","" 98928,,"0,0,0,0,0;",,,,"","" 98929,,"0,0,0,0,0;",,,,"","" 98930,,"0,0,0,0,0;",,,,"","" 98931,,"0,0,0,0,0;",,,,"","" 98932,,"0,0,0,0,0;",,,,"","" 98933,,"0,0,0,0,0;",,,,"","" 98934,,"2,0,2,0,16;",,,,"","30018/1" 98935,,"2,0,2,0,16;",,,,"","" 98936,,"2,0,2,0,16;",,,,"","" 98937,,"2,0,2,0,16;",,,,"","" 98938,,"2,0,2,0,16;",,,,"","" 98939,,"0,0,1,0,9;",,,,"","3002/3" 98940,,"0,1,1,0,9;",,,,"","" 98941,,"0,1,1,1,1;",,,,"","" 98942,,"1,3,1,1,9;",,,,"","" 98943,,"1,0,0,1,9;",,,,"","" 98944,,"1,1,6,6,54;",,,,"","" 98945,,"1,0,1,1,1;",,,,"","3003/0" 98946,,"1,1,1,1,9;",,,,"","" 98947,,"0,1,0,1,1;",,,,"","" 98948,,"1,1,1,1,49;",,,,"","3004/6" 98949,,"6,6,6,6,54;",,,,"","" 98950,,"1,1,1,1,54;",,,,"","" 98951,,"0,1,0,1,8;",,,,"","" 98952,,"1,1,1,1,9;",,,,"","" 98953,,"1,1,1,1,9;",,,,"","" 98954,,"0,1,0,1,1;",,,,"","" 98955,,"0,1,1,1,9;",,,,"","" 98956,,"1,1,1,1,9;",,,,"","" 98957,,"1,1,1,1,8;",,,,"","" 98958,,"1,1,6,6,54;",,,,"","" 98959,,"1,1,1,1,9;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000820.JPG",,,,"","RayS/Q1000820" 98960,,"1,1,1,1,8;",,,,"","3005/6" 98961,,"1,1,1,1,8;",,,,"","" 98962,,"1,1,1,1,9;",,,,"","" 98963,,"1,1,6,1,9;",,,,"","" 98964,,"0,1,0,1,9;",,,,"","" 98965,,"1,1,1,1,8;",,,,"","3006/0" 98966,,"1,1,0,1,9;",,,,"","" 98967,,"0,1,1,1,8;",,,,"","" 98968,,"1,7,0,1,9;",,,,"","" 98969,,"1,1,1,1,9;",,,,"","" 98970,,"1,1,1,1,1;",,,,"","" 98971,,"0,1,1,1,8;",,,,"","" 98972,,"0,1,1,0,8;",,,,"","3007/5" 98973,,"1,0,1,0,9;",,,,"","" 98974,,"1,1,1,1,8;",,,,"","" 98975,,"1,1,0,1,1;",,,,"","" 98976,,"0,1,1,1,1;",,,,"","" 98977,,"1,1,1,1,9;",,,,"","3008/3" 98978,,"1,1,1,1,9;",,,,"","" 98979,,"0,1,1,1,9;",,,,"","3009/0" 98980,,"1,1,0,0,8;",,,,"","3010/3" 98981,,"0,1,0,0,9;",,,,"","" 98982,,"1,1,6,6,54;",,,,"","" 98983,,"6,0,6,6,9;",,,,"","3011/2" 98984,,"1,1,1,1,8;",,,,"","" 98985,,"1,1,1,1,9;",,,,"","" 98986,,"1,1,1,1,9;",,,,"","" 98987,,"1,1,1,1,9;",,,,"","" 98988,,"1,0,1,6,49;",,,,"","" 98989,,"1,1,1,1,9;",,,,"","" 98990,,"1,1,0,0,9;",,,,"","" 98991,,"0,1,1,1,9;",,,,"","" 98992,,"1,1,1,1,9;",,,,"","" 98993,,"1,0,1,0,8;",,,,"","3012/2" 98994,,"1,0,1,1,8;",,,,"","3013/2 3014/6" 98995,,"0,0,1,1,1;",,,,"","" 98996,,"0,1,0,0,9;",,,,"","" 98997,,"0,6,6,6,54;",,,,"","" 98998,,"0,1,1,1,9;",,,,"","3015/1" 98999,,"1,0,1,1,8;",,,,"","" 99000,CONST,"990",,0,,"","" 99002,,"(B5)1(B3)0(B3)1(B3)1(B6)9;",,,,"","" 99003,,"1,0,1,0,9;",,,,"","" 99004,,"1,1,0,0,0;",,,,"","3016/3" 99005,,"1,0,1,0,1;",,,,"","3017/4" 99006,,"1,1,1,0,11;",,,,"","" 99007,,"0,1,1,6,54;",,,,"","" 99008,,"1,1,0,1,1;",,,,"","" 99009,,"0,1,1,0,8;",,,,"","" 99010,,"0,1,1,1,0;",,,,"","" 99011,,"1,0,0,1,54;",,,,"","3018/2" 99012,,"3,0,1,0,8;",,,,"","3019/6" 99013,,"0,1,1,1,1;",,,,"","" 99014,,"(B5)1(B3)1(B3)0(B3)1(B6)1;",,,,"","" 99015,,"1,0,1,0,1;",,,,"","" 99016,,"0,0,0,0,0;",,,,"","" 99017,,"0,0,0,6,54;",,,,"","" 99018,,"0,0,0,0,0;",,,,"","3020/1" 99019,,"0,0,0,0,0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000821.JPG",,,,"","RayS/Q1000821" 99020,,"0,0,0,0,0;",,,,"","" 99021,,"(B5)0(B3)0(B3)0(B3)0(B6)0;",,,,"","" 99022,,"0,0,0,0,0;",,,,"","" 99023,,"0,0,0,0,0;",,,,"","3021/5" 99024,,"0,0,0,0,0;",,,,"","" 99025,,"0,0,0,0,0;",,,,"","" 99026,,"0,0,0,0,0;",,,,"","" 99027,,"0,0,0,0,0;",,,,"","" 99028,,"0,0,0,0,0;",,,,"","" 99029,,"0,0,0,0,0;",,,,"","" 99100,CONST,"991",,0,,"","FIRST LEVEL PARAS PASS C CONTD" 99102,,"(B5)0(B3)0(B3)0(B3)0(B6)0;",,,,"","" 99103,,"0,0,0,0,0;",,,,"","" 99104,,"0,0,0,0,0;",,,,"","3022/5" 99105,,"0,0,0,0,0;",,,,"","" 99106,,"2,0,2,0,16;",,,,"","3023/1+3024/5" 99107,,"2,0,2,0,16;",,,,"","" 99108,,"2,0,2,0,16;",,,,"","" 99109,,"2,0,2,0,16;",,,,"","" 99110,,"2,0,2,0,16;",,,,"","" 99111,,"2,0,2,0,16;",,,,"","" 99112,,"2,0,2,0,16;",,,,"","" 99113,,"2,0,2,0,16;",,,,"","" 99114,,"2,0,2,0,16;",,,,"","" 99115,,"2,0,2,0,16;",,,,"","3025/4" 99116,,"2,0,2,0,16;",,,,"","" 99117,,"2,0,2,0,16;",,,,"","" 99118,,"2,0,2,0,16;",,,,"","" 99119,,"2,0,2,0,16;",,,,"","" 99120,,"2,0,2,0,16;",,,,"","3026/2" 99121,,"2,0,2,0,16;",,,,"","" 99122,,"2,0,2,0,16;",,,,"","" 99123,,"2,0,2,0,16;",,,,"","" 99124,,"2,0,2,0,16;",,,,"","" 99125,,"2,0,2,0,16;",,,,"","" 99126,,"2,0,2,0,16;",,,,"","" 99127,,"2,0,2,0,16;",,,,"","" 99128,,"2,0,2,0,62;",,,,"","" 99200,CONST,"992",,0,,"","SECOND LEVEL PARAS" 99202,,"(B8)40(B6)45(B6)49;",,,,"","PASS 2" 99203,,"42,24,62;",,,,"","" 99204,,"42,62,63;",,,,"","PASS 3" ,,"",,,,"","" 99300,CONST,"993",,1,,"","BLISTER SPACE" 99302,,"(D)0;",,,,"","" 99304,,"0;",,,,"","" 99306,,"0;",,,,"","" 99308,,"0;",,,,"","" 99310,,"0;",,,,"","" 99312,,"0;",,,,"","" 99314,,"0;",,,,"","" 99316,,"0;",,,,"","" 99318,,"0;",,,,"","" 99320,,"0;",,,,"","" 99322,,"0;",,,,"","" 99324,,"0;",,,,"","" 99326,,"0;",,,,"","" 99328,,"0;",,,,"","" ser,act,ref,item,d,m,literal,comment 0file,164,"http://sw.ccs.bcs.org/leo/JohnD/P1000999.JPG",,,,"","DavidH/Q1000999" 0query,164,"",,,,"","May need a 152 action" 99400,PROCR,"994",,,,"","CHAPTER 9" 0query,164,"",,,,"","May need a 152 action and END" 99500,PROCR,"995",,,,"","CHAPTER 10" 99502,168,4,4,,,,ADD 4 WORDS TO CHAP 4