|
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: 4318 (0x10de)
Types: s3xseg
Names: »S$NOPV«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$NOPV«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* TITLE: $NOPV -- DEFINE CCP OPERATION CODE/MODIFIER VALUE EQUATES * 00040000
.* * 00050000
.* FUNCTION: * 00060000
.* * 00070000
.* . GENERATE SYMBOLS FOR THE VALUES OF OPERATION CODES / MODIFIERS * 00080000
.* FOR A CCP COMMUNICATIONS OPERATION. * 00090000
.* * 00100000
.* . PREVENT THE INADVERTANT GENERATION OF DUPLICATE SYMBOLS FOR * 00110000
.* THOSE 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 RUN, ONLY A WARNING MNOTE (SEE ERROR MESSAGES * 00260000
.* BELOW). * 00270000
.* * 00280000
.* . ELSE, SYMBOLS (PREFIXES $NC AND $NM) AND THEIR EQUATES FOR * 00290000
.* THE VALUES OF OPERATION CODES AND MODIFIERS. * 00300000
.* * 00310000
.* . AN INDICATION (VIA THE GLOBAL VARIABLE &$NOPV) THAT THESE * 00320000
.* SYMBOLS HAVE BEEN GENERATED. * 00330000
.* * 00340000
.* EXTERNAL REFERENCES: * 00350000
.* * 00360000
.* . NO EXTRNS ARE GENERATED BY THIS MACRO. * 00370000
.* * 00380000
.* . THE GLOBAL BOOLEAN VARIABLE &$NOPV IS USED TO DETERMINE * 00390000
.* WHETHER THESE SYMBOLS HAVE BEEN GENERATED. WHEN GENERATED, * 00400000
.* THE VARIABLE IS SET TO THE VALUE 1. * 00410000
.* * 00420000
.* ERROR MESSAGES: * 00430000
.* * 00440000
.* . WARNING (04) MNOTE N6002 OPERATION VALUES PREVIOUSLY GENERATED * 00450000
.* * 00460000
.* IS ISSUED IF THIS MACRO-INSTRUCTION IS USED BUT THOSE SYMBOLS * 00470000
.* HAVE BEEN PREVIOUSLY GENERATED. * 00480000
.* * 00490000
.********************************************************************** 00500000
$NOPV 00510000
GBLB &$NOPV . =1 IF SYMBOLS ALREADY GEN'D 00520000
TEXT 00530000
SPACE 1 00540000
* *** MACRO-$NOPV RELEASE-8 *** 00550000
.* 00560000
.* IF SYMBOLS PREVIOUSLY GENERATED, SKIP TO ISSUE WARNING MNOTE -- DO 00570000
.* NOT GENERATE SYMBOLS AGAIN 00580000
.* 00590000
AIF (&$NOPV).OPV10 . SKIP IF SYMBOLS ALREADY GEN'D 00600000
.* 00610000
.* GENERATE THE OPERATION CODE SYMBOLS 00620000
.* 00630000
SPACE 1 00640000
* CCP OPERATION CODE VALUES 00650000
SPACE 1 00660000
$NCSHQ EQU X'0000' SHUTDOWN INQUIRY 00670000
$NCGET EQU X'0001' GET 00680000
$NCPUT EQU X'0002' PUT 00690000
$NCPTG EQU X'0003' PUT THEN GET 00700000
$NCACC EQU X'0004' ACCEPT INPUT 00710000
$NCINV EQU X'0005' INVITE INPUT 00720000
$NCPNW EQU X'0006' PUT-NO-WAIT 00730000
$NCGTA EQU X'0008' GET TERMINAL ATTRIBUTES 00740000
$NCACQ EQU X'0009' ACQUIRE TERMINAL 00750000
$NCREL EQU X'000A' RELEASE TERMINAL 00760000
$NCCPY EQU X'0042' COPY (DFF ONLY) 00770000
$NCEAU EQU X'0052' ERASE ALL UNPROTECTED (DFF ONLY) 00780000
$NCSPI EQU X'0401' STOP INVITE/GET 00790000
$NCWAT EQU X'0014' WAIT OPERATION CODE 00795000
.* 00800000
.* GENERATE THE OPERATION MODIFIER SYMBOLS 00810000
.* 00820000
SPACE 1 00830000
* CCP OPERATION MODIFIER VALUES 00840000
SPACE 1 00850000
$NMSTA EQU X'0010' SET TERMINAL ATTRIBUTES BY ID 00860000
$NMRVI EQU X'0010' SEND REVERSE-INTERRUPT 00870000
$NMKPL EQU X'0010' KEEP THE LINE 00880000
$NMBLK EQU X'0020' END THE CURRENT OUTPUT BLOCK 00890000
$NMMSG EQU X'0030' SEND END-OF-TRANSMISSION 00900000
$NMPRF EQU X'0040' PROGRAM REQUEST UNDER FORMAT 00905000
$NMNEL EQU X'0100' RECORD DOES NOT END CURRENT LINE 00910000
$NMNNL EQU X'0200' RECORD DOES NOT START NEW LINE 00920000
$NMOVR EQU X'0800' OVERRIDE/SELECTED-FIELDS LIST 00930000
.* 00940000
.* INDICATE THAT SYMBOLS HAVE BEEN GENERATED 00950000
.* 00960000
&$NOPV SETB 1 . INDICATE SYMBOLS ALREADY GEN'D 00970000
AGO .OPV90 . SKIP TO END CURRENT MACRO 00980000
.* 00990000
.* SYMBOLS PREVIOUSLY GENERATED -- ISSUE WARNING MNOTE 01000000
.* 01010000
.OPV10 ANOP 01020000
SPACE 1 01030000
MNOTE 04,'N6002 OPERATION VALUES PREVIOUSLY GENERATED' 01040000
SPACE 1 01050000
.* 01060000
.* COMMON COMPLETION OF MACRO 01070000
.* 01080000
.OPV90 ANOP 01090000
* *** END GENERATION--$NOPV *** 01100000
SPACE 1 01110000
MEND 01120000