* %GOTO XTLSTBSL; /* 02000003 MACRO 04000003 IHAXTLST 06000003 XTLST DSECT 08000003 SPACE 1 10000003 ********************************************************************** 12000003 * EXTENT LIST * 14000003 * * 16000003 * OS/VS2 RELEASE 2 8/28/74 * 18000003 ********************************************************************** 20000003 SPACE 1 22000003 XTLLNTH DS F - NUMBER OF BYTES IN EXTENT LIST (=16) 24000003 XTLNRFAC DS F - NUMBER OF RELOCATION FACTORS (=1) 26000003 XTLMSBLA DS 0A - WORD REFERENCE FOR XTLMSBLN @YA01481 28000003 DS C - ONE BYTE OF X'80' 30000003 XTLMSBLN DS AL3 - LENGTH OF MAIN STORAGE BLOCK 32000003 XTLMSBAA DS 0A - WORD REFERENCE FOR XTLMSBAD 34000003 DS C - ONE BYTE OF X'00' 36000003 XTLMSBAD DS AL3 - ADDRESS OF MAIN STORAGE BLOCK 38000003 MEND , */ 40000003 *%XTLSTBSL: ; 42000003 * 44000003 * /* ************************************************************** */ 46000003 * /* EXTENT LIST */ 48000003 * /* */ 50000003 * /* OS/VS2, RELEASE 2 8/28/74 */ 52000003 * /* ************************************************************** */ 54000003 * 56000003 *DECLARE 58000003 * 1 XTLST BASED(XTLSTPTR), 60000003 * 2 XTLLNTH FIXED(31), /* NUMBER OF BYTES IN 62000003 * EXTENT LIST (=16) */ 64000003 * 2 XTLNRFAC FIXED(31), /* NUMBER OF RELOCATION 66000003 * FACTORS (=1) */ 68000003 * 2 XTLMSBLA PTR(31), /* WORD REFERENCE FOR 70000003 * XTLMSBLN */ 72000003 * 3 * CHAR(1), /* ONE BYTE OF X'80' */ 74000003 * 3 XTLMSBLN PTR(24) BDY(BYTE), /* LENGTH OF MAIN STORAGE 76000003 * BLOCK */ 78000003 * 2 XTLMSBAA PTR(31), /* WORD REFERENCE FOR 80000003 * XTLMSBAD */ 82000003 * 3 * CHAR(1), /* ONE BYTE OF X'00' */ 84000003 * 3 XTLMSBAD PTR(24) BDY(BYTE); /* ADDRESS OF MAIN STORAGE 86000003 * BLOCK */ 88000003