ibm:vm370-lib:macro:pib2tab.macro_src
Table of Contents
PIB2TAB Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 15, 1978
- Last Fix ID : [Unmodified]
Source Listing
- PIB2TAB.MACRO.txt
- MACRO 00001000
- PIB2TAB &SECT 00002000
- PUSH PRINT 00002100
- AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
- PRINT OFF,NOGEN 00002300
- .ACC01 ANOP 00002400
- AIF ('&SECT' EQ 'CSECT').CSECT 00003000
- PIB2TAB DSECT PROGRAM INFORMATION BLOCK EXTENSION 00004000
- PIBCOMR1 DS XL2 ADDRESS OF COMMUNICATION REGION 00005000
- SYSLUBX DS XL2 SYSTEM LUB INDEX 00006000
- INTINFO DS XL4 USED FOR INTERRUPTION CODE 00007000
- SVCIC EQU INTINFO+3 SVC INTERRUPT CODE 00008000
- PIBECB DS XL4 ADDRESS OF TERMINATION ECB, IF ANY 00009000
- PIBPIK DS XL2 PIK 00010000
- DS XL2 00011000
- EJECT 00012000
- AGO .END 00013000
- .CSECT ANOP 00014000
- PIB2TAB DS 0D 00015000
- ENTRY PIB2TAB 00016000
- USING PIB2TAB,0 00017000
- * 00018000
- * ATTENTION PIB EXTENSION 00019000
- * 00020000
- DC S(BGCOM) . ADDRESS OF COMMUNICATION REGION 00021000
- DC H'0' . ATTN SSSTEM LUB INDEX 00022000
- DC F'0' . USED FOR INTERRUPTION CODE 00023000
- DC F'0' . ZERO 00024000
- DC X'0000' . ATTN PIK 00025000
- DC H'0' . RESERVED 00026000
- * 00027000
- * BACKGROUND PIB EXTENSION 00028000
- * 00029000
- DC S(BGCOM) . ADDRESS OF COMMUNICATION REGION 00030000
- DC H'0' . BG SYSTEM LUB INDEX 00031000
- DC F'0' . USED FOR INTERRUPTION CODE 00032000
- DC F'0' . ZERO 00033000
- DC X'0000' . BG PIK 00034000
- DC H'0' . RESERVED 00035000
- DROP 0 00036000
- .END ANOP 00037000
- POP PRINT 00037100
- MEND 00038000
ibm/vm370-lib/macro/pib2tab.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator