* %GOTO ABDPLS; /* 00050002 MACRO 00100002 IHAABDPL &DSECT=YES */ 00150002 *%ABDPLS: ; 00160002 * /*******************************************************************/ 00165043 * /* MACMEAN ABDL MEANS ABDUMP PARAMETER LIST */ 00170002 * /* MACCOMP Y-1 SC1CM/PZD81 */ 00180000 * /* MACSTAT Y-1 72179/Y02705 */ 00192002 * /* UPDATED FOR SU 33 ON 3.7A BASE 9/15/76 @G33SPHW*/ 00193043 * /* */ 00193543 * /* IHAABDPL IS A MAP OF THE PARAMETER LIST USED BY THE SNAP */ 00193643 * /* FORMATTERS. THIS PARAMETER LIST IS PASSED AS INPUT TO ALL SNAP */ 00193743 * /* FORMATTERS. */ 00193843 * /*******************************************************************/ 00193943 * %GOTO ABDPLPLS; /* 00194002 AIF ('&DSECT' EQ 'YES').ABDPL00 00194402 ABDPL EQU * 00196002 AGO .ABDPL01 00198002 .ABDPL00 ANOP 00198402 ABDPL DSECT 00200002 .ABDPL01 SPACE 1 00210002 ADPLTCB DS A TCB OF TASK BEING DISPLAYED 00250002 ADPLASID DS H ADDRESS SPACE IDENTIFIER 00300002 ADPLSBPL DS B SUBPOOL USED TO GET SAVE AREA 00350002 * BY COMPONENT ROUTINE 00400002 ADPLFLAG DS B FLAG FIELD 00450002 ADPLSNPR EQU X'80' 0=MODULE LOADED BY SNAP 00500002 * 1=MODULE LOADED BY PRDMP 00550002 ADPLSYTM EQU X'40' 0=SYSTEM IS OS/VS2 00600002 * 1=SYSTEM IS OS/VS1 00650002 ADPLDMGT EQU X'20' 0=FORMAT DEB ONLY(SNAP CALLER) 00652043 * @G33SPHW 00653043 * 1=FORMAT DEB,DCB,IOB(SNAP CALLER) 00654043 * @G33SPHW 00655043 * BITS 3-7 ARE RESERVED 00656043 ADPLBUF DS A POINTER TO OUTPUT BUFFER 00700002 ADPLPRNT DS A ADDRESS OF PRINT ROUTINE 00750002 ADPLCVT DS A ADDRESS OF CVT 00800002 ADPLMEMA DS A ADDRESS OF MEMORY ACCESS ROUTINE 00820043 ADPLFRMT DS A ADDRESS OF FORMAT ROUTINE 00950002 ADPLCOM1 DS A RESERVED FOR COMPONENT USE 01000002 ADPLCOM2 DS A RESERVED FOR COMPONENT USE 01050002 ADPLCOM3 DS A RESERVED FOR COMPONENT USE 01100002 ADPLCOM4 DS A RESERVED FOR COMPONENT USE 01150002 ADPLFMT1 DS A RESERVED FOR FORMAT ROUTINE 01200002 ADPLFMT2 DS A RESERVED FOR FORMAT ROUTINE 01250002 ADPLEXT DS A ADDRESS OF EXTENSION 01300002 * FOR PRDMP THE EXTENSION CONTAINS 01310002 * THE ADDRESS OF OPERAND FOR 01350002 * USER VERB. IF 0,DEFAULT SHOULD BE 01400002 * USED 01500002 ADPLABDA DS A ADDRESS OF SNAP INTERNAL PARMLIST 01510043 * @G33SPHW 01515043 MEND 01550002 **/ 01600002 *%ABDPLPLS: ; 01610002 *DECLARE 01650002 * 1 ABDPL BASED(ABDPLPTR) BDY(DWORD), 01700002 * 2 ADPLTCB PTR(31), /* TCB OF TASK BEING DISPLAYED */ 01750002 * 2 ADPLASID FIXED(15), /* ADDRESS SPACE IDENTIFIER */ 01800002 * 2 ADPLSBPL CHAR(1), /* SUBPOOL USED TO GET SAVE 01850002 * AREA BY COMPONENT ROUTINE */ 01900002 * 2 ADPLFLAG CHAR(1), /* FLAG FIELD */ 01950002 * 3 ADPLSNPR BIT(1), /* 0-MODULE LOADED BY SNAP 02000002 * 1-MODULE LOADED BY PRDMP */ 02050002 * 3 ADPLSYTM BIT(1), /* 0-SYSTEM IS OS/VS2 02060002 * 1-SYSTEM IS OS/VS1 */ 02070002 * 3 ADPLDMGT BIT(1), /* FOR DATA MGMT. FORMATTER 02108043 * UNDER SNAP 02116043 * 0-FORMAT DEB ONLY 02124043 * 1-FORMAT DEB,DCB,IOB 02132043 * @G33SPHW*/ 02134043 * 3 * BIT(5), /* RESERVED @G33SPHW*/ 02139043 * 2 ADPLBUF PTR(31), /* POINTER TO OUTPUT BUFFER */ 02150002 * 2 ADPLPRNT PTR(31), /* ADDRESS OF PRINT ROUTINE */ 02200002 * 2 ADPLCVT PTR(31), /* ADDRESS OF CVT */ 02250002 * 2 ADPLMEMA PTR(31), /* ADDRESS OF MEMORY ACCESS 02300002 * ROUTINE */ 02350002 * 2 ADPLFRMT PTR(31), /* ADDRESS OF FORMAT ROUTINE */ 02400002 * 2 ADPLCOM1 FIXED(31), /* RESERVED FOR COMPONENT USE */ 02450002 * 2 ADPLCOM2 FIXED(31), /* RESERVED FOR COMPONENT USE */ 02500002 * 2 ADPLCOM3 FIXED(31), /* RESERVED FOR COMPONENT USE */ 02550002 * 2 ADPLCOM4 FIXED(31), /* RESERVED FOR COMPONENT USE */ 02600002 * 2 ADPLFMT1 PTR(31), /* RESERVED FOR FORMAT RTN */ 02650002 * 2 ADPLFMT2 PTR(31), /* RESERVED FOR FORMAT RTN */ 02700002 * 2 ADPLEXT PTR(31), /* ADDRESS OF EXTENSION 02720043 * FOR PRDMP THE EXTENSION 02760002 * CONTAINS THE ADDRESS OF 02800002 * OPERAND FOR USER VERB. IF 02850002 * 0, DEFAULT SHOULD BE USED */ 02900002 * 2 ADPLABDA PTR(31); /* ADDRESS OF SNAP INTERNAL 02950043 * PARMLIST @G33SPHW*/ 03000043