*%GOTO ICBPLS2; /* MAPPING MACRO @Y30LB04 00050003 MACRO 00100003 IEZSSC 00150003 ************************************************************ @Y30LB04 00200003 * ****** MAPPING MACRO ***** @Y30LB04 00250003 * IEZSSC - CONTROL BLOCK FOR MSSC @Y30LB04 00300003 * @Y30LB04 00380003 * CHANGE ACTIVITY - ZD00046 @ZD00046 00390003 * G24LB02 @G24LB02 00390403 * CHANGE 02 09/15/77 ADD ICBVSCRA AND ICBRESV FIELDS @ZA24770 00390800 * CHANGE 03 10/10/77 ADD ICBVVOLST TO ELIM AQR @ZA27588 00391200 * @ZD00046 00392003 ************************************************************ @Y30LB04 00400003 ICB2SSCB DSECT @Y30LB04 00450003 ICBSSNAM DS CL8 CONTROL BLOCK ACRONYM @ZM30190 00460003 ICBECB DS F MSC ATTENTION ECB @Y30LB04 00500003 ICBACTV DS F MSC ACTIVITY ECB @Y30LB04 00550003 ICBCOM DS F MSC COMTASK ECB @Y30LB04 00600003 ICBIOR DS F ECB FOR I/O RESTART @Y30LB04 00660003 ICBCOMQ DS F MSC COMTASK QUEUE PTR @Y30LB04 00700003 ICBPUCB DS F MSC PRIMARY UCB PTR @Y30LB04 00750003 ICBAUCB DS F MSC ALTERNATE UCB PTR @Y30LB04 00800003 ICBQHEAD DS F MSSC RESPONSE QUEUE PTR @Y30LB04 00850003 ICBTCB DS F MSSC TASK TCB PTR @Y30LB04 00900003 ICBVN02P DS F PTR TO MSVC INITIALIZATION RTNE @Y30LB04 00950003 ICBOPT DS 0F MSS ACTIVITY BFFR PTR AFTER NIP @Y30LB04 00960003 ICBNVT DS F DURING NIP, ADDRESS OF THE NVT @Y30LB04 01010003 ICBFLG DS 0F MSS FLAG WORD @Y30LB04 01050003 ICBFG1 DS XL1 MSS FLAG BYTE 1 @Y30LB04 01100003 ICBI EQU X'80' MSS INITIALIZED @Y30LB04 01150003 ICBR EQU X'40' MSS READY @Y30LB04 01200003 ICBV EQU X'20' MSVC INITIALIZED @Y30LB04 01210003 ICBB EQU X'10' MSS BROKEN BOX @G24LB02 01220003 ICBS EQU X'08' MSSC SUSPENDED @G24LB02 01230003 ICBMSCMP EQU X'04' MSC MP OPERATION @G24LB05 01240003 ICBMSCA EQU X'02' MSC ASYMMETRIC OPERATION @G24LB05 01242003 ICBFG2 DS XL1 MSSC FLAG BYTE 2 @Y30LB04 01250003 ICBFG3 DS CL2 MSSC RESERVED FOR FLAGS @ZA24770 01300000 ICB2ACTP DS F MSSC ACTIVITY RTN PTR @Y30LB04 01400003 ICBIORCI DS F PTR TO MSSC I/O RESTART ROUTINE @Y30LB04 01450003 ICBMEP DS F PTR TO MSSC MOUNT EQUALZN RTNE @Y30LB04 01500003 ICBSIOP DS F PTR TO MSSC I/O DRIVER FRONT END @Y30LB04 01510003 ICBVVIC DS F MSSC MSVC PTR @Y30LB04 01550003 ICBVVICB DS F ADDR OF MSVC CONTROL BLOCK @Y30LB04 01600003 ICBSRBP DS F POINTER TO SRB FOR MSSC @Y30LB04 01800003 ICBIPRGA DS F PTR TO MSSC I/O DRVR PRGE RTNE @Y30LB04 01850003 ICBIATNA DS F PTR TO MSSC ATTENTION ROUTINE @Y30LB04 01860003 ICBSIOBP DS F PTR TO MSSC I/O DRVR BACK END @Y30LB04 01870003 ICBAEAP DS F PTR TO MSSC ABE ROUTINE @Y30LB04 01880003 ICBRSVP DS F RESERVED POINTER FIELD @Y30LB04 01890003 ICBMSSC DS F MSSC INTERNAL USE @G24LB02 01892003 ICBFAB DS F PTR TO ALLOCATN SERVICE RTNE @Y30LB04 01894003 ICBCPUID DS CL5 MSC CPUID @ZA24770 01894400 ICBRESVD DS CL1 RESERVED FOR FUTURE USE @ZA24770 01894500 ICBSAMP DS CL2 MSSC SAMPLE TIME @ZA24770 01894600 ICBVSCRA DS F PTR TO VVIC SCREEN ROUTINE @ZA24770 01894900 ICBVOLST DS F PTR TO VVIC TRACK ROUTINE @ZA27588 01895000 ICBRESV DS CL20 RESERVED AREA FOR FUTURE USE @ZA27588 01895300 ICBOTRC DS 64F MSSC ORDER TRACE AREA @ZD00046 01896003 ICBLORD DS 32F LATEST MSSC ORDER @ZD00046 01898003 ICBLGTH EQU *-ICB2SSCB LENGTH OF CONTROL BLOCK @Y30LB04 01900003 MEND @Y30LB04*/ 01950003 *%ICBPLS2:; /*@Y30LB04*/ 02000003 */***********************************************************@Y30LB04*/ 02050003 */* ***** MAPPING MACRO ***** @Y30LB04*/ 02100003 */* IEZSSC - CONTROL BLOCK FOR MSSC @Y30LB04*/ 02150003 */* @Y30LB04*/ 02210003 */* CHANGE ACTIVITY - ZD00046 @ZD00046*/ 02220003 */* G24LB02 RELEASE 3 @G24LB02*/ 02230003 */* CHANGE 02 09/30/77 ADD ICBVSCRA & ICBFG3 & ICBRESVD @ZA24770*/ 02240000 */* CHANGE 03 10/10/77 ADD ICBVVOLST TO ELIM AQR @ZA27588*/ 02242000 */***********************************************************@Y30LB04*/ 02250003 * DCL 1 ICB2SSCB BASED(CVTICB) BDY(DWORD), /*@Y30LB04*/ 02300003 * 2 ICBSSNAM CHAR(8), /* CONTROL BLOCK ACRONYM @ZM30190*/ 02350003 * 2 ICBECB FIXED(31), /*MSC ATTENTION ECB @Y30LB04*/ 02360003 * 2 ICBACTV FIXED(31), /*MSC ACTIVITY ECB @Y30LB04*/ 02400003 * 2 ICBCOM FIXED(31), /*MSC COMTASK ECB @Y30LB04*/ 02450003 * 2 ICBIOR FIXED(31), /*ECB FOR I/O RESTART @Y30LB04*/ 02510003 * 2 ICBCOMQ POINTER(31), /*MSC COMTASK QUEUE PTR @Y30LB04*/ 02550003 * 2 ICBPUCB POINTER(31), /*MSC PRIMARY UCB PTR @Y30LB04*/ 02600003 * 2 ICBAUCB POINTER(31), /*MSC ALTERNATE UCB PTR @Y30LB04*/ 02650003 * 2 ICBQHEAD POINTER(31), /*MSSC RESPONSE QUEUE @Y30LB04*/ 02700003 * /*POINTER @Y30LB04*/ 02710003 * 2 ICBTCB POINTER(31), /*MSSC TASK TCB PTR @Y30LB04*/ 02750003 * 2 ICBVN02P POINTER(31), /*MSVC INITIALIZATION @Y30LB04*/ 02800003 * /*POINTER @Y30LB04*/ 02810003 * 2 ICBOPT POINTER(31), /*DUAL USE FIELD -- @Y30LB04*/ 02850003 * /* AFTER NIP TIME, @Y30LB04*/ 02852003 * /*MSS ACTIVITY BUFFER @Y30LB04*/ 02854003 * /*POINTER @Y30LB04*/ 02856003 * 3 ICBNVT POINTER(31), /*DURING NIP, PTR TO NVT @Y30LB04*/ 02860003 * 2 ICBFLG, /*MSSC FLAG WORD @Y30LB04*/ 02900003 * 3 ICBFG1 CHAR(1), /* FLAG BYTE 1 @Y30LB04*/ 02950003 * 4 ICBI BIT(1), /*BIT0=1 FOR INITIALIZED @Y30LB04*/ 03000003 * 4 ICBR BIT(1), /*BIT1=1 FOR READY @Y30LB04*/ 03050003 * 4 ICBV BIT(1), /*BIT2=1 FOR MSVC @Y30LB04*/ 03060003 * /*INITIALIZED @Y30LB04*/ 03070003 * 4 ICBB BIT(1), /*BIT3=1 FOR BROKEN BOX @G24LB02*/ 03072003 * 4 ICBS BIT(1), /*BIT4=1 FOR MSSC HAS @G24LB02*/ 03080003 * /*BEEN SUSPENDED @G24LB02*/ 03090003 * 4 ICBMSCMP BIT(1), /*MSC MP OPERATION @G24LB05*/ 03092003 * 4 ICBMSCA BIT(1), /*MSC ASYMMETRIC OPER. @G24LB05*/ 03094003 * 4 * BIT(1), /* RESERVED @G24LB05*/ 03100003 * 3 ICBFG2 CHAR(1), /* FLAG BYTE 2 @Y30LB04*/ 03150003 * 3 ICBFG3 CHAR(2), /* FLAGS FOR FUTURE USE @ZA24770*/ 03200000 * 2 ICB2ACTP POINTER(31), /* MSS ACTIVITY RTNE PTR @Y30LB04*/ 03300003 * 2 ICBIORCI POINTER(31), /*PTR TO MSSC I/O @Y30LB04*/ 03350003 * /*RESTART ROUTINE @Y30LB04*/ 03400003 * 2 ICBMEP POINTER(31), /*PTR TO MSSC MOUNT @Y30LB04*/ 03450003 * /*EQUALIZATION RTNE @Y30LB04*/ 03500003 * 2 ICBSIOP POINTER(31), /*PTR TO MSSC I/O DRIVER @Y30LB04*/ 03510003 * /*FRONT END @Y30LB04*/ 03520003 * 2 ICBVVIC POINTER(31), /*PTR TO MSVC ROUTINE @Y30LB04*/ 03550003 * 2 ICBVVICB POINTER(31), /*PTR TO MSVC CTL BLOCK @Y30LB04*/ 03600003 * 2 ICBSRBP POINTER(31), /*PTR TO MSSC SRB @Y30LB04*/ 03800003 * 2 ICBIPRGA POINTER(31), /*PTR TO MSSC I/O DRVR @Y30LB04*/ 03850003 * /*PURGE ROUTINE @Y30LB04*/ 03860003 * 2 ICBIATNA POINTER(31), /*PTR TO MSSC ATTENTION @Y30LB04*/ 03900003 * /* ROUTINE @Y30LB04*/ 03902003 * 2 ICBSIOBP POINTER(31), /*PTR TO MSSC I/O DRIVR @Y30LB04*/ 03910003 * /*BACK END @Y30LB04*/ 03912003 * 2 ICBAEAP POINTER(31), /*PTR TO MSSC ABE RTNE @Y30LB04*/ 03920003 * 2 ICBRSVP POINTER(31), /*RESERVED @Y30LB04*/ 03930003 * 2 ICBMSSC POINTER(31), /*MSSC INTERNAL USE @G24LB02*/ 03940003 * 2 ICBFAB POINTER(31), /*PTR TO ALLOCATION @Y30LB04*/ 03942003 * /*SERVICE ROUTINE @Y30LB04*/ 03944003 * 2 ICBCPUID CHAR(5), /*MSC CPUID @ZA24770*/ 03944400 * 2 ICBRESVD CHAR(1), /* RESVERED @ZA24770*/ 03944500 * 2 ICBSAMP CHAR(2), /* MSC ACTIV SAMP TIME @ZA24770*/ 03945100 * 2 ICBVSCRA POINTER(31), /* PTR TO MSVC RTNE @ZA24770*/ 03946400 * 2 ICBVOLST POINTER(31), /* PTR TO TRACK RTNE @ZA27588*/ 03946800 * 2 ICBRESV CHAR(20), /*RESERVED FIELD @ZA27588*/ 03947000 * 2 ICBTRACE CHAR(384), /*MSSC TRACE AREA @ZD00046*/ 03947600 * 3 ICBOTRC CHAR(256), /*MSSC ORDER TRACE @ZD00046*/ 03948200 * 3 ICBLORD CHAR(128); /*LATEST MSSC ORDER @ZD00046*/ 03948800 *%ICBLGTH='LENGTH(ICB2SSCB)'; /*ICB2SSCB LENGTH @Y30LB04*/ 03950003