TITLE 'IFBDCB00,IFBDCB00,RESIDENT DEB AND DCB FOR SER' 01000001 *STATUS: CHANGE LEVEL 000 02000001 *FUNCTION/OPERATION: RESIDENT DCB AND DEB CONTROL BLOCKS FOR USE * 03000001 * BY THE SER MODULES. * 04000001 * * 05000001 *ENTRY POINTS: NONE. * 06000001 * * 07000001 *INPUT: NONE. * 08000001 * * 09000001 *OUTPUT: NONE. * 10000001 * * 11000001 *EXTERNAL ROUTINES: NONE. * 12000001 * * 13000001 *EXITS - NORMAL: NONE. * 14000001 * * 15000001 *EXITS - ERROR: NONE. * 16000001 * * 17000001 *TABLES/ WORK AREAS: NONE. * 18000001 * * 19000001 *ATTRIBUTES: NONE. * 20000001 * * 21000001 *NOTES: THIS MODULES RESIDES PERMANENTLY IN THE NUCLEUS AND IS * 22000001 * INITIALIZED BY THE NUCLEUS INITIALIZATION PROGRAM (NIP) * 23000001 * AT LOAD TIME. * 24000001 EJECT 25000001 * * 26000001 * * 27000001 *********************************************************************** 28000001 * * 29000001 * THE FOLLOWING DEB AND DCB RESIDE PERMANENTLY IN THE NUCLEUS * 30000001 * AND WILL BE COMPLETED BY NIP. THEY ARE FOR USE ONLY BY * 31000001 * THE SER ROUTINES. * 32000001 * * 33000001 *********************************************************************** 34000001 IFBDCB00 START 0 35000001 SPACE 2 36000001 ENTRY IFBDCB 37000001 ENTRY IFBDEB 38000001 EXTRN IFBACTA 000E 41000001 SPACE 2 43000001 DS 0F 44000001 DC AL4(0) SPARE POINTER YM4034P 45000002 DC AL4(0) SPARE POINTER YM4035P 46000002 DC AL4(IFBACTA) POINTER TO CHAN TYPE TABLE 000E 47000001 IFBDEB DC 1F'0' START OF DEB 48000001 IFBDCB DC AL4(0) SPARE POINTER YM4034P 49000002 DC 4F'0' OVERLAYED DCB 50000001 DC X'0F' DEB ID FIELD 51000001 DC AL3(IFBDCB) ADDRESS OF DCB 52000001 DC 5F'0' 53000001 DC AL4(IFBDEB) ADDRESS OF SER DEB 54000001 DC X'01' FLAG 55000001 DC XL3'0' 56000001 DC 2F'0' 57000001 SPACE 2 @YA00000 57100003 *********************************************************************** 57200003 * * 57300003 * THE FOLLOWING ADDED TO SUPPORT DISPLAY EXCEPTION MONITORING * 57400003 * FACILITY (DEMF) * 57500003 * MVS 3.7 VERSION * 57600003 * * 57700003 *********************************************************************** 57800003 SPACE 2 @YA00000 57900003 ORG IFBDCB00+356 DEMF ORIGIN +89 FULL WORDS. @YA00000 58000003 IFBBUFP DC 1F'0' DEMF BUFFER POINTER @YA00000 58100003 IFBASCBP DC 1F'0' DEMF BNGLOGR ASCB POINTER (MVS) 58200003 DC 4F'0' DEMF RESERVED @YA00000 58300003 IFBFLGS1 DC X'00' DEMF FLAGS1 @YA00000 58400003 IFBFLGS2 DC X'00' DEMF FLAGS2 @YA00000 58500003 IFBFLGS3 DC X'00' DEMF FLAGS3 @YA00000 58600003 IFBFLGS4 DC X'00' DEMF FLAGS4 @YA00000 58700003 END 59000001