|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3556 (0xde4)
Types: s3xseg
Names: »S$NPLO«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$NPLO«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$NPLO«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$NPLO«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* TITLE: $NPLO -- DEFINE CCP PARAMETER LIST OFFSET EQUATES * 00040000
.* * 00050000
.* FUNCTION: * 00060000
.* * 00070000
.* . GENERATE SYMBOLS FOR THE OFFSETS OF FIELDS WITHIN A CCP * 00080000
.* COMMUNICATIONS PARAMETER LIST. * 00090000
.* * 00100000
.* . PREVENT THE INADVERTANT GENERATION OF DUPLICATE SYMBOLS FOR * 00110000
.* THESE OFFSET VALUES. * 00120000
.* * 00130000
.* INPUT: * 00140000
.* * 00150000
.* . NO LABEL SHOULD BE SPECIFIED FOR THIS MACRO * 00160000
.* * 00170000
.* . THIS MACRO HAS NO OPERANDS * 00180000
.* * 00190000
.* . SEE SRL #GC21-7579 -- CCP PROGRAMMING REFERENCE MANUAL -- FOR * 00200000
.* FURTHER DESCRIPTION OF THIS MACRO. * 00210000
.* * 00220000
.* OUTPUT: * 00230000
.* * 00240000
.* . IF THESE SYMBOLS HAVE BEEN GENERATED EARLIER IN THIS * 00250000
.* GENERATION, ONLY A WARNING MNOTE (SEE ERROR MESSAGES BELOW). * 00260000
.* * 00270000
.* . ELSE, SYMBOLS (PREFIX $NP) AND THEIR EQUATES FOR THE OFFSETS * 00280000
.* OF FIELDS WITHIN A COMMUNICATIONS PARAMETER LIST. * 00290000
.* * 00300000
.* . AN INDICATION (VIA THE GLOBAL VARIABLE &$NPLO) THAT THESE * 00310000
.* SYMBOLS HAVE BEEN GENERATED. * 00320000
.* * 00330000
.* EXTERNAL REFERENCES: * 00340000
.* * 00350000
.* . NO EXTRNS ARE GENERATED BY THIS MACRO. * 00360000
.* * 00370000
.* . THE GLOBAL BOOLEAN VARIABLE &$NPLO IS USED TO DETERMINE * 00380000
.* WHETHER THESE SYMBOLS HAVE BEEN GENERATED. WHEN GENERATED, * 00390000
.* VARIABLE IS SET TO THE VALUE 1. * 00400000
.* * 00410000
.* ERROR MESSAGES: * 00420000
.* * 00430000
.* . A WARNING (04) MNOTE N6001 OFFSET VALUES PREVIOUSLY GENERATED * 00440000
.* * 00450000
.* IS ISSUED IF THIS MACRO-INSTRUCTION IS USED BUT THOSE SYMBOLS * 00460000
.* HAVE BEEN PREVIOUSLY GENERATED. * 00470000
.* * 00480000
.********************************************************************** 00490000
$NPLO 00500000
GBLB &$NPLO . =1 IF SYMBOLS ALREADY GEN'D 00510000
TEXT 00520000
SPACE 00530000
* *** MACRO-$NPLO RELEASE-8 *** 00540000
.* 00550000
.* IF SYMBOLS PREVIOUSLY GENERATED, SKIP TO ISSUE WARNING MNOTE -- DO 00560000
.* NOT GENERATE SYMBOLS AGAIN 00570000
.* 00580000
AIF (&$NPLO).PLO10 . SKIP IF SYMBOLS ALREADY GEN'D 00590000
.* 00600000
.* GENERATE THE OFFSET-EQUATE SYMBOLS 00610000
.* 00620000
SPACE 1 00630000
* OFFSETS OF COMMUNICATIONS PARAMETER LIST FIELDS 00640000
SPACE 1 00650000
$NPRTC EQU +1 RETURN CODE FIELD 00660000
$NPOPC EQU +3 OPERATION CODE/MODIFIERS FIELD 00670000
$NPOUL EQU +5 OUTPUT LENGTH FIELD 00680000
$NPEFL EQU +5 EFFECTIVE INPUT LENGTH FIELD 00690000
$NPATI EQU +5 ATTRIBUTES IDENTIFIER FIELD 00700000
$NPINL EQU +7 MAXIMUM INPUT LENGTH FIELD 00710000
$NPRAA EQU +9 RECORD AREA ADDRESS FIELD 00720000
$NPWKA EQU +11 INTERNAL WORK FIELD 00730000
$NPWKB EQU +13 INTERNAL WORK FIELD 00740000
$NPWKC EQU +15 INTERNAL WORK FIELD 00750000
.* 00760000
.* INDICATE THAT SYMBOLS HAVE BEEN GENERATED 00770000
.* 00780000
&$NPLO SETB 1 . INDICATE SYMBOLS ALREADY GEN'D 00790000
AGO .PLO90 . SKIP TO END CURRENT MACRO 00800000
.* 00810000
.* SYMBOLS PREVIOUSLY GENERATED -- ISSUE WARNING MNOTE 00820000
.* 00830000
.PLO10 ANOP 00840000
SPACE 00850000
MNOTE 04,'N6001 OFFSET VALUES PREVIOUSLY GENERATED' 00860000
SPACE 00870000
.* 00880000
.* COMMON COMPLETION OF MACRO 00890000
.* 00900000
.PLO90 ANOP 00910000
* *** END GENERATION--$NPLO *** 00920000
SPACE 00930000
MEND 00940000