of 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next chaof 3 PAGE ZBLOCK 200 PAGE ZBLOCK 200 / Block 3 of 3 PAGE ZBLOCK 200 $ If saclen = 0 no text JMP PART2 TAD (-1 DCA SACLEN AC7777 TAD SACXR DCA SACXR PART1A, TAD SACLEN / Check SAC to see if any data is left SNA CLA JMP PART2 / No more text, now process number passed CDF 10 / SAC buffer resides in field 1 TAD I SACXR / Get next cha