TITLE ' IGC0E06F - 3270 LOCAL/REMOTE EBCDIC TEST MODULE ' 00300002 IGC0E06F CSECT 00600002 *********************************************************************** 00600402 * MAINTENANCE ACTIVITY * 00600802 * * 00602802 * ZA02332 (11/20/74) * 00604803 * ZA02334 (11/20/74) * 00605303 * * 00609302 *********************************************************************** 00614002 * 3270 LOCAL/REMOTE EBCDIC TEST MODULE * 00618402 *********************************************************************** 00622802 * * 00627202 * STATUS: * 00631602 * CHANGE LEVEL 000 NOVEMBER 5, 1971 * 00636002 * * 00640402 * FUNCTION: * 00644802 * THIS MODULE BUILDS PREDEFINED EBCDIC ON-LINE TEST MESSAGES * 00649202 * FOR THE 3270 DISPLAY SYSTEM - LOCAL OR REMOTE. * 00653602 * * 00658002 * ENTRY: * 00662402 * ENTRY IS TO THE FIRST EXECUTABLE INSTRUCTION VIA XCTL * 00666802 * FROM IGC0D06F(REMOTE) OR IGC1206F(LOCAL). * 00671202 * * 00675602 * INPUT: * 00680002 * REG 1 - ADDRESS OF THE IOB * 00684402 * REG 4 - TEST TYPE XX VALUE * 00688802 * IOBERINF - ADDRESS OF THE RFT * 00693202 * ON-LINE TEST CHANNEL PROGRAM IN IOB, BUILT BY IGC0D06F * 00697602 * (REMOTE) OR IGC1206F (LOCAL). * 00702002 * * 00706402 * OUTPUT: * 00710802 * LOCAL-- * 00715202 * * 00719602 * TEST MESSAGE (MINUS LINE CONTROL) BUILT IN USER'S AREA. * 00724002 * COUNT INSERTED IN ERASE/WRITE CCW. * 00728402 * IF THE USER'S BUFFER IS NOT LONG ENOUGH (300) BYTES OR * 00732802 * THE TEST MESSAGE NUMBER IS INVALID, AN ERROR FLAG (IOBINCAM, * 00737202 * BYTE 0, BIT 6) IS TURNED ON, AND A NOP REPLACES THE ERASE/ * 00741602 * WRITE CCW. THIS WILL CAUSE IGG019PI TO CANCEL THE TEST BY * 00746002 * RE-ISSUING THE USER'S READ INITIAL. * 00750402 * * 00754802 * REMOTE-- * 00759202 * * 00763602 * TEST MESSAGE BUILT IN USER'S AREA. * 00768002 * COUNT IN WRITE TEXT CCW. * 00772402 * IF AN ERROR IS FOUND, THE ERROR FLAG (SEE LOCAL) IS TURNED * 00776802 * ON TO CAUSE IGG019MR TO CANCEL THE TEST. * 00781202 * * 00785602 * TESTS BUILT BY THIS MODULE: * 00790002 * * 00794402 * TEST 23 - 3270 BASIC EBCDIC * 00798802 * TEST 24 - 3270 MODEL 1 ALIGN EBCDIC * 00803202 * * 00807602 * EXTERNAL REFERENCES: * 00812002 * SVC 0 - EXECUTE CHANNEL PROGRAM * 00816402 * * 00820802 * EXITS, NORMAL: * 00825202 * SVC 3 - RETURN TO IOS * 00829602 * * 00834002 * EXITS, ERROR: * 00838402 * NONE * 00842802 * * 00847202 * TABLES/WORK AREAS: * 00851602 * NONE * 00856002 * * 00860402 * ATTRIBUTES: * 00864802 * RE-ENTRANT * 00869202 * * 00873602 * CHARACTER CODE DEPENDENCY: * 00878002 * NONE * 00882402 * * 00886802 *********************************************************************** 00891202 EJECT 00895602 */*IGC0E06F: CHART*/ 00900002 */* E IGC0E06F*/ 01200002 */* D (YES,,NO,SETERR) IS BUFFER LONG ENOUGH (300 BYTES)*/ 01500002 */* D (YES,,NO,SETERR) IS TEST NUMBER VALID (23 OR 24)*/ 01800002 */* P GET MESSAGE LENGTH AND ADDRESS*/ 02100002 */*TESTLCL: D (YES,LOCAL,NO,REMOTE) IS DEVICE A LOCAL 3270*/ 02400002 */*LOCAL: D (NO,,YES,ISSUENOP) IS ERROR FLAG ON*/ 02700002 */* P POINT MESSAGE ADDRESS PAST STX, ESC, AND CMD CODE*/ 03000002 */* P STORE ADDR OF START OF RFT IN CCW*/ 03300002 */* P (,MOVEIN) GET ADDRESS OF START OF CCW*/ 03600002 */*REMOTE: D (NO,,YES,REMOTERR) IS ERROR FLAG ON*/ 03900002 */* P OVERLAY TRANSPARENT CCW*/ 04200002 */* P GET ADDR OF CCW*/ 04500002 */* P STORE ADDR OF START OF RFT IN CCW*/ 04800002 */*MOVEIN: P (,STARTEST) MOVE MESSAGE INTO USER'S BUFFER*/ 05100002 */*SETERR: M (,TESTLCL) TURN ON ERROR FLAG*/ 05400002 */*ISSUENOP: P SET COUNT TO ONE*/ 05700002 */* P (,STARTEST) MOVE NOP COMMAND INTO CCW*/ 06000002 */*REMOTERR: P SET COUNT TO ONE*/ 06300002 */*STARTEST: P STORE COUNT IN CCW*/ 06600002 */* P SAVE THE ECB*/ 06900002 */* L SVC 0*/ 07200002 */* P RESTORE THE ECB*/ 07500002 */* R SVC 3*/ 07800002 */*IGC0E06F: END*/ 07900002 EJECT 08000002 SPACE 2 08100002 * ESTABLISH ADDRESSABILITY 08400002 SPACE 08700002 BALR BASEREG,0 SET UP BASE REG 09000002 USING *,BASEREG 09300002 USING IECTIOB,IOBREG IOB DSECT 09600002 USING IECTDECB,DECBREG DECB DSECT 09900002 USING IHADCB,DCBREG DCB DSECT 10200002 USING IECTDEB,DEBREG DEB DSECT 10500002 USING UCBDSECT,UCBREG UCB DSECT 10800002 B SETUP BRANCH AROUND ID USED TO 11100002 DC C'IGC0E06F' FIND MODULE IN DUMP 11400002 DC C' 4322' DATE LAST CHANGE LD @ZA02334 11450000 DC C'&SYSDATE' DATE LAST ASSEMBLY LD @ZA02334 11500003 DS 0H LD @ZA02334 11550003 PATCH DC 40X'00' PATCH AREA LD @ZA02334 11600003 DS 0H LD @ZA02334 11650003 SETUP EQU * 11700002 L DECBREG,IOBECBPT GET DECB ADDR 12000002 L DCBREG,IOBDCBPT GET DCB ADDR 12300002 L DEBREG,DCBDEBAD GET DEB ADDR 12600002 L DEBREG,PREFIX(DEBREG) GO PAST PREFIX 12900002 L RFTREG,IOBERINF GET ADDR OF RFT 13000002 SPACE 2 13200002 * VALIDITY CHECK BUFFER LENGTH AND TEST NUMBER. IF 13500002 * INVALID, SET UP NOP CCW AND TURN ON ERROR FLAG. 13800002 SPACE 14100002 CLC DECLNGTH(LNGTH2),MINBUF IS BUFFER LONG ENOUGH 14400002 BL SETERR NO, SET UP FOR ERROR 14700002 C TESTREG,TEST23 IS IT TEST # 23 ? 15000002 BE GETINFO YES, GET MSG ADDR & COUNT 15300002 C TESTREG,TEST24 IS IT TEST # 24 ? 15600002 BNE SETERR NO, SET UP FOR ERROR 15900002 SPACE 2 16200002 * GET TEST MESSAGE ADDRESS AND LENGTH 16500002 SPACE 16800002 GETINFO LR WORKREG1,TESTREG GET TEST # 17100002 S WORKREG1,TEST23 SUBTRACT 23 TO GET INDEX 17400002 * (23 IS LOWEST TEST NUMBER 17700002 * THIS MODULE WILL HANDLE) 18000002 SLL WORKREG1,2 MULTIPLY BY 4 18300002 L COUNTREG,COUNTAB(WORKREG1) GET MSG LENGTH 18600002 B ADDRTAB(WORKREG1) GET MSG ADDR 18900002 SPACE 2 19200002 * MESSAGE ADDRESS AND LENGTH TABLES - (TEST MESSAGE 19500002 * NUMBER - 23) X 4 = THE ARGUMENT USED TO OBTAIN VALUES 19800002 * FROM THE TABLE. 20100002 SPACE 20400002 DS 0F 20700002 COUNTAB EQU * MESSAGE LENGTH IN BYTES 21000002 DC A(TST23SZ) 00 TEST # 23 21300002 DC A(TST24SZ) 04 TEST # 24 21600002 SPACE 2 21900002 ADDRTAB EQU * ADDRESS OF TEST MESSAGE 22200002 B TEST23AD 00 GET TEST 23 ADDR 22500002 B TEST24AD 04 GET TEST 2J ADDR 22800002 TEST23AD LA ADDREG,IJLBOT23 GET ADDR 23100002 B TESTLCL CONTINUE 23400002 TEST24AD LA ADDREG,IJLBOT24 GET ADDR 23700002 SPACE 2 24000002 * TEST FOR LOCAL OR REMOTE 24300002 SPACE 24600002 TESTLCL EQU * 24900002 SR UCBREG,UCBREG CLEAR REG FOR IC 25200002 IC UCBREG,IOBUCBX GET INDEX TO UCB 25500002 SLL UCBREG,2 MULTIPLY BY FOUR 25800002 L UCBREG,DEBUCBAD(UCBREG) GET ADDR OF UCB 26100002 CLI DVCLASS,GRAPHIC IS DVC A GRAPHIC ? 26400002 BNE REMOTE NO, SET UP FOR REMOTE 26700002 CLI UNITYPE,A3277 IS DVC A 3277 ? 27000002 BE LOCAL YES, SET UP FOR LOCAL 27300002 CLI UNITYPE,A3284 IS DVC A 3284 ? 27600002 BE LOCAL YES, SET UP FOR LOCAL 27900002 CLI UNITYPE,A3286 IS DVC A 3286 ? 28200002 BNE REMOTE NO, SET UP FOR REMOTE 28500002 * FOR LOCAL DEVICES, STRIP OFF STX, ESC, CMD CODE, AND 28800002 * ETX OF MESSAGE 29100002 SPACE 29400002 LOCAL EQU * 29700002 LA CCWREG,IOBCPA GET ADDR OF CCW 29800002 TM IOBINCAM,ERFLAG IS ERROR FLAG ON ? 30000002 BO ISSUENOP YES, GO ISSUE NOP 30300002 LA WORKREG2,LCLNGTH SUBTRACT 4 FROM LENGTH 30600002 SR COUNTREG,WORKREG2 OF MESSAGE 30900002 LA ADDREG,LINECTL(ADDREG) POINT MSG ADDR PAST 31200002 * STX, ESC, CMD CODE 31500002 LA RFTREG,TENCHARS(RFTREG) ADJUST POINTER PAST RFT 32100002 B MOVEIN GO SET UP MSG 32700002 SPACE 2 33000002 * FOR REMOTE, LEAVE MSG ADDRESS AND LENGTH ALONE 33300002 SPACE 33600002 REMOTE EQU * 33900002 LA WORKREG2,IOBCPA STORE ADDR OF IOBCPA S99245 33950002 ST WORKREG2,IOBSTART INTO IOBSTART S99245 33960002 LA CCWREG,IOBCPA+40 GET ADDR OF CCW 34000002 TM IOBINCAM,ERFLAG IS ERROR FLAG ON ? 34200002 BO REMOTERR YES, ISSUE CCW 34500002 MVC IOBCPA+48(CCWLNGTH),IOBCPA+56 OVERLAY TRANS CCW 34800002 CLI NVALUE(RFTREG),NOADDR IS THIS A DIAL RFT? S99245 34850002 BNE BSC3RFT NO,FOLLOW BSC3 PROCEDURE S99245 34900002 LA RFTREG,CHARS7(RFTREG) ADJUST PTR PAST RFT S99245 34950002 B MOVEIN GO SET UP MSG S99245 35000002 BSC3RFT EQU * S99245 35050002 LA RFTREG,CHARS11(RFTREG) ADJUST PTR PAST RFT 35400002 SPACE 2 36000002 * MOVE TEST MSG INTO USER'S BUFFER 36300002 SPACE 36600002 MOVEIN EQU * 36900002 SR WORKREG2,WORKREG2 CLEAR REG 37500002 C COUNTREG,MAXLNGTH IS MSG LNGTH OVER 256 ? 37800002 BNH LNGTHOK NO, BRANCH 38100002 LR WORKREG2,COUNTREG GET EXCESS OVER 256 38400002 S WORKREG2,MAXLNGTH 38700002 L COUNTREG,MAXLNGTH SET COUNT TO 256 39000002 LNGTHOK EQU * 39300002 BCTR COUNTREG,ZERO SUBTRACT 1 FROM LNGTH FOR 39600002 * EXECUTE 39900002 EX COUNTREG,MSGMOVE MOVE TEST MSG INTO USER'S 40200002 * BUFFER 40500002 LTR WORKREG2,WORKREG2 ANY MORE TO MOVE ? 40800002 BZ STARTEST NO,BRANCH 41100002 A RFTREG,MAXLNGTH BUMP ADDRESS PAST 256 41400002 A ADDREG,MAXLNGTH CHARS JUST MOVED 41700002 BCTR COUNTREG,ZERO SUBTRACT 1 FOR EXECUTE 42000002 EX WORKREG2,MSGMOVE MOVE REMAINDER OF TEXT 42300002 B STARTEST BRANCH AROUND EXECUTE 42600002 MSGMOVE MVC 0(FILLIN,RFTREG),0(ADDREG) MOVE TEST MSG TO 42900002 * USER'S BUFFER, USING LENGTH 43200002 * SPECIFIED IN COUNTREG 43500002 SPACE 2 43560002 * IF AN ERROR WAS FOUND, TURN ON ERROR FLAG AND GO GET 43620002 * ADDRESS OF CCW. 43680002 SPACE 43740002 SETERR EQU * 43800002 OI IOBINCAM,ERFLAG TURN ON ERROR FLAG 44100002 B TESTLCL GO SEE IF LOCAL 44400002 SPACE 2 44470002 * FOR ERROR IN LOCAL, SET UP A NOP CCW 44540002 SPACE 44610002 ISSUENOP EQU * 44700002 LA COUNTREG,ONECHAR SET COUNT TO ONE 45000002 MVI 0(CCWREG),NOP MOVE IN NOP COMMAND 45300002 B STARTEST GO ISSUE NOP 45600002 SPACE 2 45670002 * FOR REMOTE ERROR, SET COUNT IN WRITE TEXT CCW TO ONE 45740002 SPACE 45810002 REMOTERR EQU * 45900002 LA COUNTREG,ONECHAR SET COUNT TO ONE 46200002 B STARTEST DO TEST 46500002 SPACE 2 46800002 * MOVE COUNT INTO CCW AND START TEST 47100002 SPACE 47400002 STARTEST EQU * 47700002 LA COUNTREG,ONECHAR(COUNTREG) RESTORE COUNT 48000002 STH COUNTREG,BYTECNT(CCWREG) STORE COUNT IN CCW 48300002 * 48350002 * 1 LINE DELETED FOR -----> LD @ZA02332 48400003 * 48450002 LR WORKREG1,IOBREG SAVE IOB REG LD @ZA02332 48500003 L PARMREG,GETPARM SET SOBPOOL & LENGTH LD @ZA02332 48550003 GETMAIN R,LV=(0) GETMAIN FOR ECB LD @ZA02332 48600003 LR WORKREG2,IOBREG SAVE ADDR OF ECB LD @ZA02332 48650003 ST DECBREG,DISP4(WORKREG2) SAVE ADDR OF DECB LD @ZA02332 48700003 MVI DISP4(WORKREG2),FOXFOX FLAG AS DUMMY ECB LD @ZA02332 48750003 LR IOBREG,WORKREG1 RESTORE IOB REGISTER LD @ZA02332 48800003 STCM WORKREG2,MASK,IOBECBPT+DISP1 POINT IOB... LD @ZA02332 48850003 * ...TO DUMMY LD @ZA02332 48860003 SVC ZERO EXCP LD @ZA02332 48870003 STCM DECBREG,MASK,IOBECBPT+DISP1 REPOINT IOB... LD @ZA02332 48880003 * ...TO DECB LD @ZA02332 48890003 L PARMREG,GETPARM SET FOR FREEMAIN LD @ZA02332 48892003 FREEMAIN R,LV=(0),A=(WORKREG2) FREE DUMMY ECB LD @ZA02332 48894003 * 48944002 * 2 LINES DELETED FOR -----> LD @ZA02332 48994003 * 49044002 SVC RETURN RETURN 49500002 SPACE 2 49800002 SPACE 50700002 SPACE 2 51000002 * REGISTER EQUATES 51300002 SPACE 51600002 PARMREG EQU 0 PARAMETER REGISTER LD @ZA02332 51650003 IOBREG EQU 1 ADDR OF IOB 51900002 DECBREG EQU 2 ADDR OF DECB 52200002 DCBREG EQU 3 ADDR OF DCB 52500002 TESTREG EQU 4 TEST # 52800002 WORKREG1 EQU 5 WORK REG 53100002 WORKREG2 EQU 6 WORK REG 53400002 DEBREG EQU 7 ADDR OF DEB 53700002 UCBREG EQU 8 ADDR OF UCB 54000002 ADDREG EQU 9 TEST MSG ADDRESS 54300002 COUNTREG EQU 10 TEST MSG LENGTH 54600002 CCWREG EQU 11 ADDR OF CCW TO WRITE TEST MSG 54900002 BASEREG EQU 12 55200002 RFTREG EQU 13 ADDR OF RFT IN USER'S 55500002 * BUFFER 55800002 ZERO EQU 0 USED IN BCTR TO DECREMENT 55900002 SPACE 2 56100002 * MISCELLANEOUS EQUATES 56400002 SPACE 56700002 A3286 EQU X'0B' 3286 DEVICE TYPE 57000002 A3284 EQU X'0A' 3284 DEVICE TYPE 57300002 A3277 EQU X'09' 3277 DEVICE TYPE 57600002 GRAPHIC EQU X'10' GRAPHICS DEVICE TYPE 57900002 NOP EQU X'03' NOP COMMAND CODE 58200002 ERFLAG EQU X'02' ERROR FLAG 58500002 TENCHARS EQU 10 LENGTH OF STANDARD RFT - LOCAL 58501002 CHARS11 EQU 11 LENGTH OF STANDARD RFT - REMOTE 58502002 PREFIX EQU 28 DISP IN DEB PAST PREFIX 58505002 LNGTH2 EQU 2 LNGTH OF DECLNGTH FIELD 58510002 LCLNGTH EQU 4 NO. OF LINE CONTROL CHARS 58515002 LINECTL EQU 3 # OF LINE CONTROL CHARS 58520002 * PRECEDING MSG 58525002 CCWLNGTH EQU 8 LENGTH OF A CCW 58530002 FILLIN EQU 0 LENGTH FILLED IN EX INSTR 58535002 ONECHAR EQU 1 ONE CHARACTER 58540002 BYTECNT EQU 6 DISP IN CCW OF BYTE COUNT 58545002 EXCP EQU 0 EXCP SVC # 58550002 RETURN EQU 3 RETURN SVC # 58555002 NVALUE EQU 6 DISP INTO RFT OF N VALUE S99245 58605002 NOADDR EQU X'00' IF N=0, IT IS A DIAL RFT S99245 58655002 CHARS7 EQU 7 LENGTH OF STANDARD DIAL RFT S99245 58705002 FOXFOX EQU X'FF' BYTE OF ALL ONES LD @ZA02332 58755003 MASK EQU 7 MASK FOR STCM LD @ZA02332 58765003 DISP1 EQU 1 DISPLACEMENT LD @ZA02332 58775003 DISP4 EQU 4 DISPLACEMENT LD @ZA02332 58785003 SPACE 2 58800002 * STORAGE 59100002 SPACE 59400002 DS 0F FULLWORD BOUNDARY LD @ZA02332 59450003 GETPARM DC X'FA000008' SUBPOOL # AND LENGTH LD @ZA02332 59500003 MINBUF DC X'012C' MINIMUM BUFFER LENGTH 59700002 TEST23 DC F'23' ACCEBTABLE TEST NUMBER 60000002 TEST24 DC F'24' ACCEPTABLE TEST NUMBER 60300002 MAXLNGTH DC F'256' MAX # OF CHARS FOR MVC 60600002 IJLBOT23 EQU * 60900002 DC X'0227F5' STX-ESC-EWRT 61200002 DC X'5F' WCC SOUND ALARM/RESTORE KEYBORAD/ 61500002 * START PRINT/40 CHAR LINE 61800002 DC X'11C150' SBA 80 62100002 DC X'1D60' PROTECTED,NORMAL INTENSITY 62400002 DC C'ABCDEFGHIJKLMNOPQRSTUVWXYZ ' BEGIN MESSAGE 62700002 DC X'1D6C' PROTECTED,NON DISPLAY 63000002 DC C'NON DISPLAY' FOUND IN NON-DISPLAY AREA 63300002 DC X'11C260' SBA 160 63600002 DC X'1D40' UNPROTECTED,NORMAL INTENSITY 63900002 DC X'13' INSERT CURSOR 64200002 DC C'COPY ABOVE IN THIS LINE ' INSTRUCTION TO CONSOLE 64500002 DC X'1D40' NORMAL INT/ UNPROTECTED 64800002 DC C'INSERT CK' 65100002 DC X'0000' 2 NULL CHARS 65400002 DC X'1D60' PROTECTED,NORMAL INTENSITY 65700002 DC X'11C3F0' SBA 240 66000002 DC X'1DE8' PROTECTED,HIGH INTENSITY 66300002 DC C'½<(+|&&!$*)^-/;%_>?:#@''="' SPECIAL CHARS TEST 66600002 DC X'1DF8' PROTECTED,HIGH INTENSITY 66900002 DC C'0123456789,.-A' NUMERIC FIELD 67200002 DC X'11C540' SBA 320 67500002 DC X'1DC8' UNPROTECTED,HIGH INTENSITY 67800002 DC C'COPY ABOVE IN THIS LINE ' INSTRUCTIONS TO CONSOLE 68100002 DC X'1DD8' NUMERIC,UNPROTECTED,HIGH INTENSITY 68400002 DC X'11C5E8' SBA 360 68700002 DC X'1D60' PROTECTED,NORMAL INTENSITY 69000002 DC X'11C650' SBA 400 69300002 DC X'1DE4' PROTECTED,NORMAL INTENSITY,SELECTOR 69600002 * PEN 69900002 DC C'?SEL PEN TEST' DEFINE SEL PEN AREA 70200002 DC X'000000' 3 NULL CHARACTERS 70500002 DC X'1DE8' PROTECTED,HIGH INTENSITY,SELECTOR 70800002 * PEN 71100002 DC C'>SEL PEN TEST' DEFINE SEL PEN FIELD 71400002 DC X'03' ETX 71700002 TST23SZ EQU *-IJLBOT23 LENGTH OF TEST 23 71800002 IJLBOT24 EQU * 72000002 DC X'0227F55F' STX-ESC-EWRT-WCC 72300002 DC X'114040' SBA 0 LD @ZA02334 72350003 DC X'3C40E8C5C8' RA 40,E -H 72600002 DC X'11C14FC8C8' SBA 79,HH 72900002 DC X'11C1F7C8C8' SBA 119,HH 73200002 DC X'11C25FC8C8' SBA 159,HH 73500002 DC X'11C3C7C8C8' SBA 199,HH 73800002 DC X'11C36FC8C8' SBA 239,HH 74100002 DC X'11C4D7C8C8' SBA 279,HH 74400002 DC X'11C4BFC8C8' SBA 319,HH LD @ZA02334 74700003 DC X'11C5E7C8C8' SBA 359,HH 75000002 DC X'11C64FC8C8' SBA 399,HH 75300002 DC X'11C6F7C8' SBA 439,H LD @ZA02334 75600003 DC X'11C35BD6D6' SBA 219,OO 75900002 DC X'11C4C3D6D6' SBA 259,OO 76200002 DC X'11C45D' SBA 285 76500002 DC C'TEST PATTERN FOR 3277-1/3275-1' TEST MESSAGE 76800002 DC X'11C54F' SBA 335 77100002 DC C'ALIGNMENT' 77400002 DC X'11C5F05C' SBA 368,* 77700002 DC X'1D40' SF 40 78000002 DC X'13' INC 78300002 DC C'UNPROTECTED DATA' 78600002 DC X'11C6C6' SBA 390 78900002 DC X'1DE05C' SF 60,* LD @ZA02334 79200003 DC X'11C6F8' 440 LD @ZA02334 79500003 DC X'3CC75FC5' RA 479,E 79800002 DC C'E' LAST E 80100002 DC X'03' ETX 80400002 TST24SZ EQU *-IJLBOT24 LENGTH OF TEST 24 80500002 EJECT 80700002 * DSECTS 81000002 SPACE 81300002 IECTIOBX 81600002 EJECT 81900002 IECTDECB 82200002 EJECT 82500002 DCBD DSORG=BX,DEVD=BS 82800002 EJECT 83100002 IECTDEBX 83400002 EJECT 83450002 UCBDSECT DSECT 83700002 DS 0F 84000002 ORG UCBDSECT+13 84300002 CHARADDR DS CL3 UNIT ADDR (EBCDIC) 84600002 ORG UCBDSECT+18 84900002 DVCLASS DS CL1 DEVICE CLASS 85200002 UNITYPE DS CL1 UNIT TYPE 85500002 ORG UCBDSECT+36 85800002 RLN DS CL1 RELATIVE LINE NUMBER 86100002 END 86400002