ibm:vm370-lib:rscs:linktabl.copy_src
Table of Contents
LINKTABL Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- LINKTABL.COPY.txt
- *COPY LINKTABL 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').LIN01 00001400
- PRINT OFF,NOGEN 00001600
- .LIN01 ANOP 00001800
- LINKTABL DSECT 00002000
- SPACE 1 00003000
- *** LINKTABL - LINK TABLE ENTRY 00004000
- * 00005000
- * 0 +-----------------------------------------------+ 00006000
- * | LINKID | 00007000
- * 8 +-----------------------+-----------------------+ 00008000
- * | LDEFTNME | LACTTNME | 00009000
- * 10 +-----------------------+-----------------------+ 00010000
- * | LDEFDRVR | 00011000
- * 18 +-----------------------------------------------+ 00012000
- * | LACTDRVR | 00013000
- * 20 +-----------+-----------+-----------------------+ 00014000
- * | LDEFLINE | LACTLINE | LDRVRVAR | 00015000
- * 28 +-----+-----+-----+-----+-----+-----+-----+-----+ 00016000
- * | L*1 | L*2 | L*3 | L*4 | L*5 | L*6 | L*7 | L*8 | 00017000
- * 30 +-----+-----+-----+-----+-----+-----+-----+-----+ 00018000
- * | L*9 |LFLAG| LRESERVD | LPENDING | LTAKEN | 00019000
- * 38 +-----+-----+-----------+-----------+-----------+ 00020000
- * | LPOINTER | LMSGQ | 00021000
- * 40 +-----------+-----------+-----------+-----------+ 00022000
- * | LTRNSCNT | LERRCNT | LTOCNT | 00023000
- * 48 +-----------+-----------+-----------+-----------+ 00024000
- * | LNKCLOCK | 00024100
- * 50 +-----------------------------------------------+ 00024200
- * 00024300
- * 00025000
- *** LINKTABL - LINK TABLE ENTRY 00026000
- SPACE 1 00027000
- LINKID DS CL8 EBCDIC LINK ID 00028000
- LDEFTNME DS CL4 DEFAULT TASK NAME 00029000
- LACTTNME DS CL4 ACTIVE TASK NAME 00030000
- LDEFDRVR DS CL8 DEFAULT DRIVER ID 00031000
- LACTDRVR DS CL8 ACTIVE DRIVER ID 00032000
- LDEFLINE DS 2X DEFAULT VIRTUAL LINE ADDRESS 00033000
- LACTLINE DS 2X ACTIVE VIRTUAL LINE ADDRESS 00034000
- LDRVRVAR DS 1F LINE DRIVER VARIABLE INFO 00035000
- LDEFCLS1 DS CL1 L*1 DEFAULT SPOOL FILE CLS 1 00036000
- LDEFCLS2 DS CL1 L*2 DEFAULT SPOOL FILE CLS 2 00037000
- LDEFCLS3 DS CL1 L*3 DEFAULT SPOOL FILE CLS 3 00038000
- LDEFCLS4 DS CL1 L*4 DEFAULT SPOOL FILE CLS 4 00039000
- LACTCLS1 DS CL1 L*5 ACTIVE SPOOL FILE CLS 1 00040000
- LACTCLS2 DS CL1 L*6 ACTIVE SPOOL FILE CLS 2 00041000
- LACTCLS3 DS CL1 L*7 ACTIVE SPOOL FILE CLS 3 00042000
- LACTCLS4 DS CL1 L*8 ACTIVE SPOOL FILE CLS 4 00043000
- LTIMEZON DS 1X L*9 2 COMP TIME ZONE DISP FROM GMT 00044000
- LFLAG DS 1X LINK FLAG BYTE 00045000
- LRESERVD DS 1H COUNT OF TAG ELEMENTS RESERVED 00046000
- LPENDING DS 1H COUNT OF UNACCEPTED TAGS 00047000
- LTAKEN DS 1H COUNT OF TAG SLOTS IN USE 00048000
- LPOINTER DS 1F LINK QUEUE ADDR 00049000
- LMSGQ DS 1F MSG QUEUE POINTER 00050000
- LTRNSCNT DS 1H LINK TRANSACTION COUNT 00051000
- LERRCNT DS 1H ERROR COUNT 00052000
- LTOCNT DS 1H TIMEOUT COUNT 00053000
- LSPARE DS 1H SPARE HALF WORD 00054000
- LNKCLOCK DS 8X CLOCK COMP VALUE FOR THIS LINK @VA03349 00054100
- EJECT 00055000
- * BITS DEFINED IN LFLAG 00056000
- LACTIVE EQU X'80' LINK ACTIVE 00057000
- LALERT EQU X'40' AXS ALERT EXIT SET 00058000
- LHOLD EQU X'20' LINK HOLD SET 00059000
- LDRAIN EQU X'10' LINK DRAIN IN PROGRESS 00060000
- LTRALL EQU X'08' LINK TRANSACTION TRACING (ALL) 00061000
- LTRERR EQU X'04' LINK TRANSACTION TRACING (ERROR) 00062000
- LHALT EQU X'01' LINK TO BE FORCED INACTIVE 00063000
- SPACE 1 00064000
- LINKLEN EQU *-LINKTABL LENGTH OF LINK TABLE ENTRY 00065000
- EJECT 00066000
- POP PRINT 00067000
- SPACE 00068000
ibm/vm370-lib/rscs/linktabl.copy_src.txt · Last modified: 2023/08/06 13:39 by Site Administrator