* %GOTO DAPLBSL ; /* 02000000 MACRO 04000000 IKJDAPL 06000000 *********************************************************************** 08000000 * THE DYNAMIC ALLOCATION INTERFACE ROUTINE (DAIR) PARAMETER LIST * 10000000 * (DAPL) IS A LIST OF ADDRESSES PASSED FROM THE INVOKER TO DAIR * 12000000 * VIA REGISTER 1 14000000 *********************************************************************** 16000000 DAPL DSECT 18000000 SPACE 20000000 DAPLUPT DS A PTR TO UPT 22000000 DAPLECT DS A PTR TO ECT 24000000 DAPLECB DS A PTR TO CP'S ECB 26000000 DAPLPSCB DS A PTR TO PSCB 28000000 DAPLDAPB DS A PTR TO DAIR PARAMETER BLOCK 30000000 **/ 32000000 MEND 34000000 * %DAPLBSL : ; 36000000 * /* *************************************************************** */ 38000000 * /* THE DYNAMIC ALLOCATION INTERFACE ROUTINE (DAIR) PARAMETER LIST */ 40000000 * /* (DAPL) IS A LIST OF ADDRESSES PASSED FROM THE INVOKER TO DAIR */ 42000000 * /* VIA REGISTER 1 */ 44000000 * /* *************************************************************** */ 46000000 * DECLARE 48000000 * 1 DAPL BASED(DAPLPTR), 50000000 * 52000000 * 54000000 * 56000000 * 58000000 * 60000000 * 62000000 * 64000000 * 66000000 * 68000000 * 70000000 * 2 DAPLUPT PTR(31), /* PTR TO UPT */ 72000000 * 2 DAPLECT PTR(31), /* PTR TO ECT */ 74000000 * 2 DAPLECB PTR(31), /* PTR TO CP'S ECB */ 76000000 * 2 DAPLPSCB PTR(31), /* PTR TO PSCB */ 78000000 * 2 DAPLDAPB PTR(31); /* PTR TO DAIR PARAMETER BLOCK */ 80000000