MACRO GEN00010
&LABEL GENLINK &ID=,&CLASS=*,&KEEP=2, XGEN00020
&LINE=0000,&TASK=,&TYPE=,&ZONE=0 GEN00030
GBLA &LINKTOT GEN00040
AIF (T'&TYPE EQ 'O' AND NOT T'&ID EQ 'O').NOTYPE GEN00050
AIF (&LINKTOT GE 64).NOMORE GEN00060
&LINKTOT SETA &LINKTOT+1 GEN00070
&LABEL DC 0D'0' GEN00080
DC CL8'&ID ' LINKID GEN00090
AIF (T'&TASK EQ 'O').SET1 GEN00100
DC CL4'&TASK ' DEFAULT TASK NAME GEN00110
AGO .SET2 GEN00120
.SET1 ANOP GEN00130
DC CL4'&ID ' DEFAULT TASK NAME GEN00140
.SET2 ANOP GEN00150
DC CL4' ' ACTIVE TASK NAME GEN00160
DC CL8'&TYPE ' DEFAULT DRIVER TYPE GEN00170
DC CL8' ' ACTIVE DRIVER TYPE GEN00180
DC XL2'&LINE' DEFAULT VIRTUAL LINE ADDRESS GEN00190
DC XL2'0000' ACTIVE VIRTUAL LINE ADDRESS GEN00200
DC A(0) LINE DRIVER VARIABLE INFO GEN00210
DC CL4'&CLASS' DEFAULT CLASS SPECIFICATION GEN00220
DC CL4' ' ACTIVE CLASS SPECIFICATION GEN00230
DC AL1(&ZONE) TIME ZONE DISPLACEMENT FROM GMT GEN00240
DC AL1(0) LINK FLAG GEN00250
DC AL2(&KEEP) RESERVED HOLDSLOT COUNT GEN00260
DC AL2(0) UNACCEPTED (PENDING) FILE COUNT GEN00270
DC AL2(0) TAG SLOTS IN USE GEN00280
DC A(0) TAG QUEUE ADDRESS GEN00290
DC A(0) MSG QUEUE ADDRESS GEN00300
DC H'0' LINK TRANSACTION COUNT GEN00310
DC H'0' ERROR COUNT GEN00320
DC H'0' TIMEOUT COUNT GEN00330
DC AL2(0) UNUSED GEN00340
DC 2F'0' CLOCK COMP VALUE FOR THIS LINK @VA03349 GEN00350
SPACE GEN00360
MEXIT GEN00370
.NOTYPE ANOP GEN00380
MNOTE 16,'DRIVER TYPE NOT SPECIFIED' GEN00390
SPACE GEN00400
MEXIT GEN00410
.NOMORE ANOP GEN00420
MNOTE 16,'MAX LINKS (64) ALREADY DEFINED' GEN00430
SPACE GEN00440
MEND GEN00450