|
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: 3810 (0xee2)
Types: s3xseg
Names: »S$NCOM«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$NCOM«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$NCOM«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$NCOM«
MACRO 00010000
.********************************************************************** 00020000
.* TITLE: $NCOM -- DEFINE CCP COMMON EQUATES * 00030000
.* * 00040000
.* FUNCTION: * 00050000
.* * 00060000
.* . GENERATE SYMBOLS FOR VALUES USED COMMONLY IN CCP MACROS * 00070000
.* * 00080000
.* . PREVENT THE INADVERTANT GENERATION OF DUPLICATE SYMBOLS FOR * 00090000
.* THOSE VALUES * 00100000
.* * 00110000
.* INPUT: * 00120000
.* * 00130000
.* . NO LABEL SHOULD BE SPECIFIED FOR THIS MACRO. * 00140000
.* * 00150000
.* . THIS MACRO HAS NO OPERANDS. * 00160000
.* * 00170000
.* . SEE SRL #GC21-7579 -- CCP PROGRAMMING REFERENCE MANUAL -- FOR * 00180000
.* FURTHER DESCRIPTION OF THIS MACRO. * 00190000
.* * 00200000
.* OUTPUT: * 00210000
.* * 00220000
.* . IF THESE SYMBOLS HAVE BEEN GENERATED EARLIER IN THIS * 00230000
.* GENERATION RUN, ONLY A WARNING MNOTE (SEE ERROR MESSAGES * 00240000
.* BELOW). * 00250000
.* * 00260000
.* . ELSE, SYMBOLS FOR THE FOLLOWING: * 00270000
.* * 00280000
.* . DSM GENERAL ENTRY * 00290000
.* . DSM RIB FOR CCP * 00300000
.* . CCP SUB-RIB FOR COMMUNICATIONS OPERATION * 00310000
.* . INDEX REGISTERS * 00320000
.* . LENGTHS OF PARAMETER LIST, A PARAMETER LIST FIELD, AND * 00330000
.* A SYMBOLIC TERMINAL NAME * 00340000
.* * 00350000
.* . AN INDICATION (VIA THE GLOBAL VARIABLE &$NCOM) THAT THESE * 00360000
.* SYMBOLS HAVE BEEN GENERATED. * 00370000
.* * 00380000
.* EXTERNAL REFERENCES: * 00390000
.* * 00400000
.* . NO EXTRNS ARE GENERATED BY THIS MACRO. * 00410000
.* * 00420000
.* . THE GLOBAL BOOLEAN VARIABLE &$NCOM IS USED TO DETERMINE * 00430000
.* WHETHER THESE SYMBOLS HAVE BEEN GENERATED. WHEN GENERATED, * 00440000
.* THE VARIABLE IS SET TO THE VALUE 1. * 00450000
.* * 00460000
.* ERROR MESSAGES: * 00470000
.* * 00480000
.* . WARNING (04) MNOTE N6004 COMMON VALUES PREVIOUSLY * 00490000
.* GENERATED * 00500000
.* * 00510000
.* IS ISSUED IF THIS MACRO-INSTRUCTION IS USED BUT THOSE SYMBOLS * 00520000
.* HAVE BEEN PREVIOUSLY GENERATED. * 00530000
.* * 00540000
.********************************************************************** 00550000
$NCOM 00560000
GBLB &$NCOM . =1 IF SYMBOLS ALREADY GEN'D 00570000
TEXT 00580000
SPACE 1 00590000
* *** MACRO-$NCOM RELEASE-8 *** 00600000
.* 00610000
.* IF SYMBOLS PREVIOUSLY GENERATED, SKIP TO ISSUE WARNING MNOTE -- DO 00620000
.* NOT GENERATE SYMBOLS AGAIN 00630000
.* 00640000
AIF (&$NCOM).COM10 . SKIP IF SYMBOLS ALREADY GEN'D 00650000
.* 00660000
.* GENERATE THE COMMON SYMBOLS 00670000
.* 00680000
SPACE 1 00690000
* CCP COMMON VALUES -- INDEX REGISTERS 00700000
SPACE 1 00710000
$NIXR1 EQU 1 XR1--USED AS WORK REGISTER 00720000
$NIXR2 EQU 2 XR2--POINTS TO PARAMETER LIST 00730000
SPACE 1 00740000
* CCP COMMON VALUES -- FOR BRANCH TO GENERAL ENTRY 00750000
SPACE 1 00760000
$NSENT EQU 4 DSM SUPERVISOR GENERAL ENTRY 00770000
$NSCCR EQU X'01' DSM RIB--CCP OPERATION 00780000
$NSCCS EQU X'00' CCP SUB-RIB--COMMUNICATIONS I/O 00790000
SPACE 1 00800000
* CCP COMMON VALUES -- LENGTHS 00810000
SPACE 1 00820000
$NLPL EQU 16 LENGTH OF PARAMETER LIST 00830000
$NLPLF EQU 2 LENGTH OF A PARAMETER LIST FIELD 00840000
$NLSTN EQU 6 LENGTH OF SYMBOLIC TERMINAL NAME 00850000
.* 00860000
.* INDICATE THAT COMMON SYMBOLS HAVE BEEN GENERATED 00870000
.* 00880000
&$NCOM SETB 1 . INDICATE SYMBOLS ALREADY GEN'D 00890000
AGO .COM90 . SKIP TO END CURRENT MACRO 00900000
.* 00910000
.* SYMBOLS PREVIOUSLY GENERATED -- ISSUE WARNING MNOTE 00920000
.* 00930000
.COM10 ANOP 00940000
SPACE 1 00950000
MNOTE 04,'N6004 COMMON VALUES PREVIOUSLY GENERATED' 00960000
SPACE 1 00970000
.* 00980000
.* COMMON COMPLETION OF MACRO 00990000
.* 01000000
.COM90 ANOP 01010000
* *** END GENERATION--$NCOM *** 01020000
SPACE 1 01030000
MEND 01040000