IEECVETG CSECT 00200000 * C (PJEXITC) APPROX. 250000 OPEN STATUS NOT SET @ZA25731 00250003 * /* START OF SPECIFICATIONS **** 00400000 *02* PROCESSOR = ASSEMBLER; 00600000 **** END OF SPECIFICATIONS ***/ 00800000 TITLE 'IEECVETG OPEN-CLOSE' 01000000 * STATUS CHANGE LEVEL 1 01200000 * 01400000 * APARS FIXED -- ZA02303,ZA02347,ZA16376,ZA25731 01600003 * 01800000 * FUNCTION THIS MODULE OPENS, AND LATER CLOSES, A UNIT DESIGNATED 02000000 * AS A CONSOLE SUPPORT UNIT. 02200000 * 02400000 * ENTRY POINT S21003 02600000 * IEECVETG FOR ALL FUNTIONS. S21003 02800000 * 03000000 * INPUT R1 POINTS TO 40 BYTE SCRATCH PAD AREA(SVRB EXTENSION) 03200000 * MAPPED BY MACRO =IEECVMUG CXSA=. 03400000 * 03600000 * OUTPUT FOR OPEN... SUPPLIES OPENED DCB. 03800000 * FOR CLOSE.. CLOSES DCB AND FREES THE CORE. 04000000 * 04200000 * EXTERNAL REFERENCES NONE 04400000 * 04600000 * EXITS-NORMAL IEECVET1 PROCESSOR AFTER OPEN 04800000 * IEECVETK TIMER-INTERPRETER BEFORE CLOSE, IF DEL=R 05000000 * IEECMDSV MCS DEVICE SERVICE AFTER CLOSE 05200000 * IEECVFTG CLEANUP S21003 05400000 * -ERROR NONE 05600000 * 05800000 * TABLES/WORK AREAS DISPLAY CONTROL MODULE (CONTAINED IN DSECT) 06000000 * 06200000 * ATTRIBUTES REFRESHABLE, PRIVILEGED, TYPE 4 SVC 06400000 * 06600000 * NOTES THE OPERATION OF THIS MODULE DOES NOT DEPEND UPON A 06800000 * PARTICULAR INTERNAL REPRESENTATION OF THE EXTERNAL 07000000 * CHARACTER SET. 07200000 * 07400000 * 07600000 * 07800000 R0 EQU 0 LOCAL SAVE REGISTER. 08000000 R1 EQU 1 INTERFACE REGISTER. 08200000 RXS EQU 2 EXTENDED SVRB AREA PTR. 08400000 RTB EQU 3 SCRATCH. 08600000 RTC EQU 4 SCRATCH. 08800000 RUCM EQU 5 UCM BASE REG S21003 09000000 RXI EQU 6 INDEXING S21003 09200000 RXE EQU 7 INDEXING. 09400000 RP EQU 8 OPEN CONTROL BLOCK BASE /UCM,EIL. 09600000 RI EQU 9 ODD INDEXER. 09800000 RD EQU 10 DATA CONTROL BLOCKS BASE. 10000000 RU EQU 11 UCM ENTRY BASE. 10200000 RBASE EQU 12 PROGRAM BASE. 10400000 RDBASE EQU 13 RES DCM BASE DURING CLOSE S21003 10600000 RR EQU 14 RETURN PT. 10800000 RPL EQU 15 XCTL PARAMETER LIST PTR. 11000000 X1PARM EQU 1 11200000 XFBRANCH EQU 15 11400000 XERTRN EQU 14 11600000 BALR RBASE,N0 ESTABLISH PROG BASE REGISTER 11800000 USING *,RBASE 12000000 B BEGIN BRANCH AROUND EYECATCHER 12200000 DC CL8'IEECVETG' MODULE NAME 12400000 DC XL2'4309' JULIAN DATE LAST CHANGE JE @ZA02303 12600000 DC CL8'&SYSDATE' DATE LAST ASSEMBLY 12800000 DC S(*) 13000000 DC CL56' ' PATCH AREA 13200000 BEGIN EQU * 13400000 LR RXS,R1 S21003 13600000 USING CXSA,RXS 13800000 L RU,CSAUCM UCM ENTRY PTR. 14000000 USING UCMLIST,RU 14200000 L RUCM,CSACTLM UCM ADDRESS S21003 14400000 USING UCM,RUCM S21003 14600000 L RP,UCMXB 14800000 USING DCMTSRT,RP 15000000 L RP,DCMADTRN 15200000 DROP RP 15400000 USING DCMSTRT,RP 15600000 MVC DCMTRACE(DCMTRLEN),DCMTRAC2 SHIFT OLD TRACE ENTRIES 15800000 MVI DCMTREN1,ID1 PUT CSECT ID INTO 16000000 MVI DCMTREN2,ID2 NEW TRACE ENTRY 16200000 L XFBRANCH,CSAXB GETLOCK ADDRESS 16400000 BALR XERTRN,XFBRANCH OBTAIN LOCKS 16600000 NI UCMATR,N255-UCMAT04 TURN OFF STATUS CHANGE BIT 16800000 SR RTC,RTC CLEAR. 17000000 IC RTC,CSACODE ENTRY CODE. 17200000 MVI CSACODE,N0 17400000 B *+N4(RTC) FUNCTION SELECTION 17600000 B PJOPEN 0 - TO OPEN. JE YM6718 17800000 B PJCLOSE 4 - TO CLOSE JE YM6718 18000000 B OPENRCVY 8 - TO OPEN RECOVERY JE YM6718 18200000 B PJEXITC 12 - TO CLOSE RECOVERY JE YM6718 18400000 EJECT 18600000 * CLOSE DEVICE 18800000 PJCLOSE DS 0H JE YM6718 19000000 L RI,UCMDCB 19200000 LTR RI,RI 19400000 BZ PJEXITC NEVER WAS OPENED. 19600000 CLI DCMDEL,R CONSOLE IN ROLL MODE 19800000 BNE NOROLL NO SKIP EXIT 20000000 OI DCMTIMES,DCMOPTTI+CLOSERET TI RESET TIMER AND RETURN CLO 20200000 L XFBRANCH,DCMNTIMR LOAD TIMER INTERPRETER ADDRESS 20400000 L X1PARM,DCMCXSVE RESTORE CXSA ADDRESS 20600000 BR XFBRANCH EXIT TO IEECVETK 20800000 NOROLL EQU * 21000000 USING IHADCB,RI 21200000 MVI DMX4,DMX4C INDICATE END OF REMOTE PARM LIST 21400000 L XFBRANCH,CSAXC ADDRESS FREELOCK SUBROUTINE 21600000 LR X1PARM,RXS CXSA ADDRESS IN REG 1 21800000 BALR XERTRN,XFBRANCH RELEASE LOCKS FOR SVC'S 22000000 LA R1,DMX4 22200000 CLOSE ((RI)),MF=(E,(1)) 22400000 SPACE 22600000 * PREPARE REMOTE LIST. 22800000 * NO MORE DCB. 23000000 LR R1,RI 23200000 FREEMAIN R,SP=255,LV=DMCORE,A=(1) 23400000 DROP RI 23600000 PJEXITC EQU * 23800000 L XFBRANCH,CSAXB ADDRESS GETLOCK SUBROUTINE 24000000 LR X1PARM,RXS PASS CXSA ADDRESS IN REG 1 24200000 BALR XERTRN,XFBRANCH OBTAIN LOCKS TO RESET UCM 24400000 XC UCMECB,UCMECB CLEAR ECB. 24600000 XC UCMDCB,UCMDCB CLEAR DCB PTR. 24800000 NI UCMSTS,N255-UCMBF-UCMCF-UCMAF-UCMTA NOT BUSY @ZA25731 25000003 * CLOSED, NO ATTN, NOT OPEN @ZA25731 25050003 NI UCMDEVC,N255-UCMDEVA-UCMDEVD INDICATE SCREEN NOT FULL 25200000 * AND NO DOM PENDING 25400000 L RDBASE,UCMXB RES DCM JE @ZA02303 25600000 USING DCMTSRT,RDBASE JE @ZA02303 25800000 NI DCMRFLGS,N255-DCMDOM TURN OFF DOM DONE JE @ZA02303 26000000 DROP RDBASE JE @ZA02303 26200000 SPACE 26400000 L RTC,UCMUCB GET TO ASSOCIATED UCB MCS 26600000 USING UCBOB,RTC 26800000 TM UCBSTAT,UCBCHGS 27000000 BZ DEVSTAT 27200000 NIL UCBSTAT,N255-UCBONLI-UCBCHGS-UCBALOC-UCBSYSR-UCBDADI,REF*27400000 =UCBOB 27600000 B CONTINUE 27800000 DEVSTAT NIL UCBSTAT,N255-UCBALOC-UCBSYSR-UCBDADI,REF=UCBOB 28000000 CONTINUE NI UCMATR,N255-UCMAT04-UCMUF 28200000 L RTC,UCBEXTPT BASE FOR COMMON EXTENSION MB YM4087 28400000 USING UCBCMEXT,RTC ADDRESSABILITY MB YM4087 28600000 MVC UCBATI(N1),DCMATI RESTORE ATTENTION INDEX MB YM4087 28800000 L RTC,UCMUCB BASE FOR UCB MB YM4087 29000000 USING UCBOB,RTC ADDRESSABILITY TO UCB MB YM4087 29200000 XC UCBSNS,UCBSNS CLEAR SENSE INDICATORS MB YM5671 29400000 CLI N19(RTC),TYP2250 IS DEVICE A 2250 29600000 BNE THATSIT NO WERE FINISHED 29800000 CLI N16(RTC),MOD3 IS 2250 A MOD3 30000000 BNE THATSIT NO EXIT 30200000 SR RI,RI CLEAR REG 30400000 L RTB,DCMAWARN GET WARNING LINE ADDRESS 30600000 STH RI,N76(RTB) UPDATE BUFFER ADDRESS 30800000 L RTB,DCMBUFAD POINT TO BUFFER ADDRESS TABLE 31000000 LH RXE,N0(RTB) GET MOD 3 BUFFER ADDRESS 31200000 LA RTB,N10(RTB) POINT TO LAST TABLE ENTRY S21003 31400000 BUFFLOOP LH RI,N0(RTB) GET MOD 3 ADDRESS S21003 31600000 SR RI,RXE SUBTRACT TO RESET ADDRESS S21003 31800000 STH RI,N0(RTB) UPDATE ADDRESS S21003 32000000 BCTR RTB,N0 REDUCE POINTER S21003 32200000 BCTR RTB,N0 BY TWO S21003 32400000 C RTB,DCMBUFAD IS THIS FIRST ENTRY S21003 32600000 BNL BUFFLOOP NO, UPDATE NEXT ENTRY S21003 32800000 * YES, CONTINUE S21003 33000000 SPACE 2 S21003 33200000 THATSIT EQU * S21003 33400000 NI UCMATR,N255-UCMUF TURN OFF ACTIVE FLAG MCS 33600000 L XFBRANCH,DCMNCLN LOAD CLEANUP ADDRESS 33800000 L X1PARM,DCMCXSVE RESTORE CXSA ADDRESS 34000000 BR XFBRANCH EXIT TO IEECVFTG 34200000 DROP RP 34400000 EJECT 34600000 * 34800000 * OPEN 1052 FOR EXCP. 35000000 * 35200000 PJOPEN EQU * 35400000 L RTC,UCMUCB GET UCB ADDRESS 35600000 TM SRTESTAT,CONSL IS DEVICE IN ALLOCATION JE @ZA02347 35800000 BNO GETOUT RETURN DIRECTLY JE @ZA02347 36000000 L XFBRANCH,CSAXC ADDRESS FREELOCK SUBROUTINE 36200000 LR X1PARM,RXS CXSA ADDRESS IN REG 1 36400000 BALR XERTRN,XFBRANCH RELEASE LOCKS FOR SVC'S 36600000 GETMAIN R,SP=255,LV=DMCORE 36800000 LR RD,R1 37000000 MVC N0(DMCORE,RD),DMDCB 37200000 USING IHADCB,RD 37400000 * RELOCATE POINTERS. 37600000 ST RD,UCMDCB PT UCM AT BLOCKS. JE YM6718 37800000 SR RXI,RXI 38000000 LA RXE,DMIOB 38200000 MVI DMCREAD,N0 *** GRAPHICS BYTE 38400000 ST RXE,DCBIOBAD 38600000 ST RD,DMIDCB 38800000 LA RXE,DMCNOP 39000000 STCM RXE,M7,DMCTRA+N1 39200000 EJECT 39400000 GETMAIN R,SP=255,LV=PNCORE 39600000 LR RP,R1 BASE OPEN BLOCKS. 39800000 USING PNOPEND,RP 40000000 XC PNOPEND(PNCORE),PNOPEND 40200000 SR R1,R1 CLEAR FOR IC INSTRUCTION 40400000 IC R1,UCMID GET CONSOLE I.D. IN BINARY 40600000 CVD R1,PNWORKD CONVERT TO PACKED DECIMAL 40800000 UNPK PNWORKD(N5),PNWORKH4(N3) 41000000 MVC DCBDDNAM(L'BASENAM),BASENAM CONSTANT PART OF DDNAME 41200000 MVC DCBDDNAM+L'BASENAM(N3),PNWORKD REST OF NAME 41400000 MVC JFCBDSNM(L'PNDSN),PNDSN 41600000 MVC JFCBDSNM+8(36),JFCBDSNM+7 41800000 OI JFCBTSDM,JFCTTR+JFCNWRIT+JFCNDSCB+JFCNDCB+JFCPAT 42000000 LA RTB,JFCB 42200000 STCM RTB,M7,PNXLST+N1 42400000 OI PNXLST,LASTNTRY+EXITJFCB 42600000 LA RTB,PNXLST 42800000 STCM RTB,M7,DCBEXLST+N1 43000000 OI PNJEF,LASTNTRY END OF OPEN-J LIST MB YM3194 43200000 EJECT 43400000 OPEN ((RD),INOUT),TYPE=J,MF=(E,PNJEF) 43600000 LR R1,RP OPEN BLOCKS PTR. 43800000 FREEMAIN R,SP=255,LV=PNCORE,A=(1) 44000000 DROP RP 44200000 OPNRECV DS 0H JE YM6718 44400000 XC DCBEXLST+N1(N3),DCBEXLST+N1 44600000 L XFBRANCH,CSAXB ADDRESS GETLOCK SUBROUTINE 44800000 LR X1PARM,RXS PASS CXSA ADDRESS IN REG 1 45000000 BALR XERTRN,XFBRANCH OBTAIN LOCKS TO RESET UCM 45200000 L RDBASE,UCMXB RES DCM 45400000 USING DCMTSRT,RDBASE 45600000 L RDBASE,DCMADTRN PAGEABLE DCM 45800000 DROP RDBASE 46000000 USING DCMSTRT,RDBASE 46200000 L RTC,UCBEXTPT UCB COMMON EXTENSION MB YM4087 46400000 USING UCBCMEXT,RTC ADDRESSABILITY MB YM4087 46600000 MVC DCMATI(N1),UCBATI SAVE ATTENTION INDEX MB YM4087 46800000 MVI UCBATI,X04 COMM TASK ATTN HANDLER MB YM4087 47000000 L RTC,UCMUCB RESET UCB BASE MB YM4087 47200000 USING UCBOB,RTC AND ADDRESSABILITY MB YM4087 47400000 XC UCBSNS,UCBSNS CLEAR SENSE INDICATORS MB YM5671 47600000 MVI DCBIFLGS,N0 USE STD ERP MCS 47800000 OI UCMATR,UCMUF TURN ON ACTIVE BIT MCS 48000000 NI UCMSTS,N255-UCMTA TURN OFF OPEN PENDING 48200000 SR XFBRANCH,XFBRANCH CLEAR REG 48400000 IC XFBRANCH,DCMIONDX GET IO ROUTINE CODE 48600000 L XFBRANCH,IOTAB(XFBRANCH) ADDRESS IO ROUTINE 48800000 ST XFBRANCH,DCMIORTN PUT IT IN DCM 49000000 MVC DCMNPRZ(TABLEN),TABLE MOVE IN ADCON TABLE 49200000 L RP,DCMADCHP GET CHANNEL PROGRAM ADDRESS S21003 49400000 ST RP,DMICPA POINT IOB AT CHANNEL PROGRAM 49600000 ST RU,DMIECBP PT IOB AT ECB. 49800000 * PT WAIT AT ECB THRU EIL. 50000000 SPACE 50200000 * TWO LINES @ZA16376 50400000 * DELETED HERE @ZA16376 50600000 SPACE 50800000 LR RPL,RUCM PTR TO MCS PREFIX TO UCM IS @ZA16376 51000000 SH RPL,FOUR FOUR BYTES BEFORE THE UCM 51200000 L RPL,N0(RPL) GET PTR TO PREFIX 51400000 USING UCMPRFX,RPL 51600000 TM UCMSFLG2,UCMSYSL IS AUTO SWITCH REQUESTING OPEN 51800000 DROP RPL 52000000 BNO NONROUTR NO, RETURN TO RPOC MODULE 52200000 TM DCBOFLGS,DCBOFOPN DID DCB OPEN JE YM6718 52400000 BO NONROUTR YES, CONTINUE JE YM6718 52600000 EXIT2 LR X1PARM,RXS PASS CXSA ADDRESS IN REG 1 MB YM4087 52800000 L XFBRANCH,CSAXC FREELOCK ADDRESS MB YM4087 53000000 BALR XERTRN,XFBRANCH RELEASE LOCKS TO SWITCH MB YM4087 53200000 ICM RTC,15,CSANPTR GET RECOVERY AREA JE YM6718 53400000 BZ NOESTAE1 NOT THERE, BYPASS NSI JE YM6718 53600000 MVC PARMRTAD-PARMLIST(8,RTC),CSANAME RESTORE JE YM6718 53800000 NOESTAE1 DS 0H JE YM6718 54000000 MVI CSACODE,CSASWTCH SET CONSOLE SWITCH JE YM6718 54200000 MVC CSANAME+N3(N2),PMXTRNL ADJUST CSA NAME 54400000 L XFBRANCH,UCMSWCH GET CONSOLE SWITCH ENTRY ADDR 54600000 EXIT EQU * MB YM4087 54800000 L XERTRN,CSAXA PROVIDE RETURN ADDRESS 55000000 LR X1PARM,RXS ALSO, CXSA ADDRESS 55200000 NI DCMMCSST,X'FF'-DCMDUSE DIDOCS NOT IN CONTROL 55400000 BR XFBRANCH EXIT TO CONSOLE SWITCH 55600000 NONROUTR EQU * 55800000 L XFBRANCH,DCMNPROC LOAD PROC 1 ADDRESS 56000000 L X1PARM,DCMCXSVE RESTORE CXSA ADDRESS 56200000 BR XFBRANCH EXIT TO IEECVET1 56400000 GETOUT LR RDBASE,RP SET DCM BASE MB YM4087 56600000 ICM RTC,15,CSANPTR GET RECOVERY AREA JE YM6718 56800000 BZ NOESTAE2 NOT THERE, BYPASS NSI JE YM6718 57000000 MVC PARMRTAD-PARMLIST(8,RTC),CSANAME RESTORE JE YM6718 57200000 NOESTAE2 DS 0H JE YM6718 57400000 L XFBRANCH,CSAXC FREELOCK ADDRESS MB YM4087 57600000 B EXIT RELEASE LOCKS AND LEAVE MB YM4087 57800000 * 58000000 OPENRCVY DS 0H JE YM6718 58200000 ICM RD,15,UCMDCB GET DCB FROM UCM JE YM6718 58400000 BZ EXIT2 NEVER THERE, GET OUT JE YM6718 58600000 B OPNRECV THERE, GO RECOVER JE YM6718 58800000 * 59000000 * EQUATES 59200000 * 59400000 ID1 EQU C'E' 1ST CHARACTER OF CSECT ID 59600000 ID2 EQU C'G' 2ND CHARACTER OF CSECT ID 59800000 M7 EQU 7 STORE CHARACTER MASK 60000000 X04 EQU X'04' 04 F/R ATTENTION TABLE 60200000 X80 EQU X'80' UCB STATUS BIT 60400000 XF0 EQU X'F0' 60600000 CONSL EQU X'02' UCB STATUS BIT JE @ZA02347 60800000 MOD3 EQU X'33' MOD 3 MASK 61000000 P EQU C'P' CONSTANT 61200000 R EQU C'R' ROLL MODE INDICATOR 61400000 C6 EQU C'6' PROC 0 NAME CHARACTER S21003 61600000 CLOSERET EQU 2 TIMER INT RETURN TO CLOSE 61800000 OPENBIT EQU X'10' INDIC. OPEN FOR AUTO SWITCH 62000000 N0 EQU 0 NUMBER 62200000 N1 EQU 1 NUMBER 62400000 N2 EQU 2 NUMBER 62600000 N3 EQU 3 NUMBER 62800000 N4 EQU 4 NUMBER 63000000 N5 EQU 5 63200000 N6 EQU 6 63400000 N8 EQU 8 NUMBER 63600000 N9 EQU 9 NUMBER 63800000 N10 EQU 10 NUMBER 64000000 N11 EQU 11 FIELD INCREMENT 64200000 N12 EQU 12 NUMBER 64400000 N16 EQU 16 CONSTANT 64600000 N19 EQU 19 64800000 N22 EQU 22 UCB SENSE DISPLACEMENT MH Y02173 65000000 N23 EQU 23 UCB DISPLACEMENT ME S21003 65200000 N44 EQU 44 NUMBER 65400000 N76 EQU 76 NUMBER 65600000 N176 EQU 176 NUMBER 65800000 N255 EQU 255 NUMBER 66000000 TYP2250 EQU 2 66200000 LASTNTRY EQU X'80' END OF LIST BIT 66400000 EXITJFCB EQU X'07' JFCB EXIT LIST FLAGS 66600000 RECOVBIT EQU X'0C' LOCAL ERROR RECOVERY 66800000 TERMBIT EQU X'80' TERMINAL FLAG CLOSE 67000000 REWRSTOP EQU X'FF' REWRITE STOP 67200000 CVTPTR EQU 16 LOCATION OF CVT POINTER 67400000 CVTTCBP EQU 0 ADDR OF A DOUBLE WORD, THE FIRST 67600000 * CONTAINING THE NEXT-TO BE- DISPATCHED TCB 67800000 * ADDR, THE SECOND CONTAINING THE CURRENT 68000000 * TCB ADDR 68200000 FOUR DC H'4' NUMBER 68400000 DS 0F 68600000 IOTAB EQU *-4 68800000 DC V(IEECVETH) 3066 ROUTINE, IOTAB+4 69000000 DC V(IEECVETP) 2250 ROUTINE, IOTAB+8 69200000 DC V(IEECVETR) 2260 ROUTINE, IOTAB+12 69400000 DC V(IEECVETU) 3277 ROUTINE, IOTAB+16 69600000 TABLE EQU * ADCON TABLE 69800000 DC V(IEECVFT1) 70000000 DC V(IEECVET1) 70200000 DC V(IEECVET2) 70400000 DC V(IEECVET3) 70600000 DC V(IEECVFT2) 70800000 DC V(IEECVET4) 71000000 DC V(IEECVET6) 71200000 DC V(IEECVET7) 71400000 DC V(IEECVET8) 71600000 DC V(IEECVET9) 71800000 DC V(IEECVETA) 72000000 DC V(IEECVFTA) 72200000 DC V(IEECVFTB) 72400000 DC V(IEECVETC) 72600000 DC V(IEECVETD) 72800000 DC V(IEECVETE) 73000000 DC V(IEECVFTD) 73200000 DC V(IEECVETF) 73400000 DC V(IEECVETG) 73600000 DC V(IEECVFTG) 73800000 DC V(IEECVETJ) 74000000 DC V(IEECVETK) 74200000 DC V(IEECVFTL) 74400000 DC V(IEECVFTM) 74600000 DC V(IEECVFTN) 74800000 DC V(IEECVFTO) 75000000 DC V(IEECVFTP) 75200000 DC V(IEECVFTQ) 75400000 DC V(IEECVFTT) 75600000 TABLEN EQU *-TABLE 75800000 BASENAM DC C'IEAVM' CONSTANT PART OF CONSOLE DDNAME 76000000 PMXTRNL DC CL2'04' EXTERNAL PROCESSOR NAME. 76200000 PNDSN DC C'CONSOLE ' DSNAME FOR JFCB 76400000 DS 0D ALIGN TO DOUBLE WORD 76600000 TITLE 'PN DATA CONTROL BLOCKS' 76800000 IEEUCDX 77000000 TITLE 'PJ OPEN-JFCB' 77200000 * DEFINITION OF DYNAMIC CORE FOR CONSOLE OPEN, 77400000 PNOPEND DSECT 77600000 JFCB DS 0D 77800000 IEFJFCBN , 78000000 * OPENJ E-FORM SLOT. 78200000 PNJEF DC X'80' LAST ENTRY. 78400000 DC AL3(0) DCB PTR. 78600000 SPACE 78800000 * OPENJ JFCB EXLST PTR. 79000000 PNXLST DC X'87' LAST ENTRY AND JFCB 07 CODE. 79200000 DC AL3(0) JFCB PTR. DCBEXLST PTS HERE. 79400000 PNWORKD DC D'0' DOUBLE WORD FOR CVD 79600000 ORG PNWORKD+6 79800000 PNWORKH4 DC H'0' LAST HALFWORD 80000000 PNWORKX DC X'0' EXTRA BYTE FOR UNPK 80200000 PNCORE EQU *-PNOPEND DYNAMIC CORE REQIREMENT. 80400000 EJECT 80600000 IHACTM FTPT JE YM6718 80800000 TITLE 'IEECVETG OPEN/CLOSE UCB' 81000000 UCBD DSECT 81200000 IEFUCBOB 81400000 TITLE 'IEECVETG OPEN/CLOSE CXSA' 81600000 IHACTM CXSA 81800000 TITLE 'IEECVETG OPEN/CLOSE RESIDENT DCM' 82000000 IEERDCM 82200000 TITLE 'IEECVETG OPEN/CLOSE PAGEABLE DCM' 82400000 IEETDCM 82600000 TITLE 'PJ UCM' 82800000 IEECUCM FORMAT=NEW 83000000 END 83200000