|
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: 11938 (0x2ea2)
Types: s3xseg
Names: »S$ECPL«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ECPL«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 5 AJS 00030000
.* * 00040000
.* NAME: $ECPL * 00050000
.* * 00060000
.* FUNCTION: DEFINE SYMBOLS FOR COMMUNICATIONS PARAMETER LIST FOR: * 00070000
.* * OFFSETS OF CELLS IN THE PARAMETER LIST. * 00080000
.* * VALUES OF THE OPERATION CODE/MODIFIER CELL. * 00090000
.* * VALUES OF THE RETURN CODE CELL. * 00100000
.* * 00110000
.* INPUT OPERANDS: * 00120000
.* * DSPL-Y/N GENERATE THE OFFSETS INTO THE PARAMETER LIST. * 00130000
.* DEFAULT IS Y. * 00140000
.* * OPCD-Y/N GENERATE THE VALUES OF THE OPCODES OR * 00150000
.* MODIFIERS. DEFAULT IS Y. * 00160000
.* * RTNCD-Y/N GENERATE ALL VALUES OF THE RETURN CODES. * 00170000
.* DEFAULT IS Y. * 00180000
.* -EXCP GENERATE ONLY EXCEPTION RETURN CODES. * 00190000
.* -IO GENERATE ONLY MLTA/MLMP I/O RETURN CODES. * 00200000
.* -IO3270 GENERATE ONLY 3270 I/O RETURN CODES. * 00210000
.* -IO3735 GENERATE ONLY 3735 I/O RETURN CODES. * 00220000
.* * 00230000
.********************************************************************** 00240000
$ECPL &DSPL-Y,&OPCD-Y,&RTNCD-Y 00250000
TEXT 00260000
AIF (&DSPL EQ 'N').OPCD 00270000
*********************************************************************** 00280000
* C O M M U N I C A T I O N S P A R A M E T E R L I S T * 00290000
*********************************************************************** 00300000
SPACE 00310000
CCPPL EQU 0 BEGINNING OF PARAMETER LIST. 00320000
SPACE 1 00330000
PLRTC EQU CCPPL+2-1 REQUESTERS RETURN CODE. 00340000
PLCHN EQU PLRTC PARM LIST CHAIN PTR. * CM ONLY * 00350000
SPACE 1 00360000
PLOPM EQU PLRTC+1 REQUESTERS OP CODE MODIFIERS. 00370000
PLOPC EQU PLOPM+1 REQUESTERS OP CODE. 00380000
SPACE 1 00390000
PLOUTL EQU PLOPC+2 OUTPUT LENGTH. 00400000
PLEFFL EQU PLOUTL EFFECTIVE INPUT LENGTH. 00410000
PLASID EQU PLOUTL TERMINAL ATTRIBUTE SET ID. 00420000
SPACE 1 00430000
PLINL EQU PLOUTL+2 MAXIMUM INPUT LENGTH. 00440000
SPACE 1 00450000
PLRECA EQU PLINL+2 RECORD AREA ADDRESS. 00460000
SPACE 1 00470000
PLTUBA EQU PLRECA+2 TUB ADDRESS. ** CM ONLY ** 00480000
SPACE 1 00490000
PL$OPM EQU PLTUBA+1 INTERNAL OPERATION CODE. 00500000
SPACE 1 00510000
PL$OPC EQU PL$OPM+1 SAVED INTERNAL OP.*CM BSCA ONLY* 00520000
PL$MCT EQU PL$OPC MCT INDICES. *CM MLTA ONLY* 00530000
SPACE 1 00540000
PL$RTC EQU PL$OPC+2 INTERNAL RETURN CODE. ** CM ** 00550000
PL$TNT EQU PL$RTC ADDRESS OF TNT ENTRY ** II ** 00560000
SPACE 1 00570000
PLECB EQU PL$RTC+1 PARAMETER LIST'S ECB. 00580000
SPACE 1 00590000
PLLEN EQU PLECB-CCPPL+3 LENGTH OF TP REQUEST PARM LIST. 00600000
SPACE 3 00610000
.OPCD AIF (&OPCD EQ 'N').RTNCD 00620000
*---------------------------------------------------------------------* 00630000
* PLOPM-OP CODE MODIFIER * 00640000
OPREQR EQU BIT0 ON-SYSTEM REQUEST. * 00650000
* OFF-USER REQUEST. * 00660000
OP$SYS EQU OPREQR SYSTEM IS REQUESTER. * 00670000
OPOLT EQU BIT1 PROGRAM INITIATED ONLINE TEST. * 00680000
OPDISC EQU BIT2 DISCONNECT THE LINE. * 00690000
OPUNAM EQU BIT3 UNASSIGNED BITS IN PLOPM. * 00700000
OPLIST EQU BIT4 3270 MAPPING SPECIAL LIST. * 00710000
OPSTOP EQU BIT5 STOP OPERATION. * 00720000
OPSOL EQU BIT6 0-ASSURE TYPEWRITER BEGINS AT * 00730000
* THE START OF A LINE. * 00740000
* 1-SUPPRESS START NEW LINE. * 00750000
OPEOL EQU BIT7 0-ASSURE TYPEWRITER ENDS AT THE* 00760000
* START OF A LINE. * 00770000
* 1-SUPPRESS END NEW LINE. * 00780000
*---------------------------------------------------------------------* 00790000
SPACE 1 00800000
*---------------------------------------------------------------------* 00810000
* PLOPC-OPERATION CODE * 00820000
* NUMERIC VALUES (BITS 0-3) * 00830000
OPSTD EQU X'00' STANDARD UNIT OF DATA.(RECORD) * 00840000
OPOPTN EQU X'10' SPECIAL OPERATION OPTION * 00845000
OPKPL EQU X'10' ON RELEASE OP -- KEEP THE LINE.* 00850000
OPSTA EQU X'10' ON ACQUIRE OP -- SET ATTRIBUTES* 00860000
OPRVI EQU X'10' GET DATA -- SEND RVI RESPONSE. * 00870000
OPLINE EQU X'10' LINE OPERATION- LIKE PURGE LINE* 00880000
OPBLK EQU X'20' UNIT OF DATA = BLOCK. * 00890000
OPMSG EQU X'30' UNIT OF DATA = MESSAGE. * 00900000
OPCOPY EQU X'40' 3270 COPY OPERATION. * 00910000
OPEAU EQU X'50' 3270 ERASE-ALL-UNPROTECTED FLDS* 00920000
OPRUF EQU X'70' 3270 READ UNDER FORMAT CONTROL * 00925000
OPORDR EQU X'F0' MASK FOR ORDER HALF BYTE. * 00930000
* BINARY VALUES (BITS 4-7) * 00940000
OPSTAT EQU BIT4 STATUS OPERATION. * 00950000
OPNOW EQU BIT5 NO-WAIT OPERATION. * 00960000
OPPUT EQU BIT6 OUTPUT OPERATION. * 00970000
OPGET EQU BIT7 INPUT OPERATION. * 00980000
* EFFECTIVE OP CODES * 00990000
OPSHQ EQU 0 SHUTDOWN INQUIRY. * 01000000
OPPTG EQU OPPUT+OPGET PUT-THEN-GET. * 01010000
OPACI EQU BIT5 ACCEPT INPUT. * 01020000
OPINV EQU OPGET+OPNOW INVITE INPUT. * 01030000
OPPNW EQU OPPUT+OPNOW PUT NO WAIT. * 01040000
OPGTA EQU OPSTAT GET TERMINAL ATTRIBUTES. * 01050000
OPACQ EQU OPSTAT+OPGET ACQUIRE TERMINAL. * 01060000
OPREL EQU OPSTAT+OPPUT RELEASE TERMINAL. * 01070000
OPWAIT EQU OPOPTN+OPACI WAIT OPERATION. * 01075000
OPJRSH EQU BIT0 RESCHEDULE ONLY REQUEST AJS 01076000
OPPURG EQU OPPTG+OPLINE PURGE REQUEST 01077000
*---------------------------------------------------------------------* 01080000
SPACE 1 01090000
*---------------------------------------------------------------------* 01100000
* PLOPC / PLOPM OPERATION CODE COMBINATIONS * 01110000
* * 01120000
* USER-ISSUED OPERATION CODES * 01130000
* * 01140000
* X'0000' SHUTDOWN INQUIRY * 01150000
* X'0001' GET RECORD * 01160000
* X'0002' PUT RECORD * 01170000
* X'0003' PUT THEN GET * 01180000
* X'0004' ACCEPT INPUT * 01190000
* X'0005' INVITE INPUT * 01200000
* X'0006' PUT-NO-WAIT RECORD * 01210000
* X'0008' GET TERMINAL ATTRIBUTES * 01220000
* X'0009' ACQUIRE TERMINAL * 01230000
* X'000A' RELEASE TERMINAL (DROP) * 01240000
* X'0011' GET - RVI RESPONSE * 01250000
* X'0014' WAIT OPERATION * 01255000
* X'0019' ACQUIRE AND SET ATTRIBUTES * 01260000
* X'001A' RELEASE TERMINAL (KEEP) * 01270000
* X'0021' GET BLOCK * 01280000
* X'0022' PUT BLOCK * 01290000
* X'0023' PUT-THEN-GET BLOCK * 01300000
* X'0026' PUT-NO-WAIT BLOCK * 01310000
* X'0031' GET MESSAGE * 01320000
* X'0032' PUT MESSAGE * 01330000
* X'0033' PUT-THEN-GET MESSAGE * 01340000
* X'0042' DFF COPY OPERATION * 01350000
* X'0052' DFF ERASE OPERATION * 01360000
* X'0072' RUF PUT MESSAGE * 01365000
* X'0401' STOP INVITE INPUT * 01370000
* * 01380000
* SYSTEM-ISSUED OPERATION CODES * 01390000
* * 01400000
* X'8002' SYSTEM PUT * 01410000
* X'8005' SYSTEM INVITE INPUT * 01420000
* X'8006' SYSTEM PUT-NO-WAIT * 01430000
* X'8007' SYSTEM PUT-NO-WAIT INVITE * 01440000
* X'8401' SYSTEM STOP INVITE * 01450000
* X'8403' SYSTEM PURGE OF TERMINAL * 01460000
* X'8413' SYSTEM PURGE OF WHOLE LINE * 01470000
* X'A006' SYSTEM PUT DISCONNECT * 01480000
* X'A413' SYSTEM PURGE AND PUT DISCONNECT* 01490000
* * 01500000
*---------------------------------------------------------------------* 01510000
SPACE 01520000
*---------------------------------------------------------------------* 01530000
* PL$OPM-INTERNAL OP CODE * 01540000
OPGETM EQU BIT0 1-NEED TO GETMAIN STORAGE FOR * 01550000
* * THIS TP REQUEST. * 01560000
OPGETQ EQU BIT1 1-NEED GETMAIN TO FINISH * 01570000
* * QUEUEING THIS REQUEST. * 01580000
OPNPST EQU BIT2 DON'T POST PURGED PUT.MLTA ONLY* 01590000
OPBNOP EQU BIT3 DON'T POST ERP OP END.BSCA ONLY* 01600000
* * 01610000
* BITS 4-7 ARE THE SAME AS FOR PLOPC. * 01620000
*---------------------------------------------------------------------* 01630000
SPACE 01640000
*---------------------------------------------------------------------* 01650000
* PL$OPC-SAVED INTERNAL OP ** BSCA ONLY ** * 01660000
OPRFSH EQU BIT0 SEND REFRESH MSG TO 3270. * 01670000
OPLSNS EQU BIT1 POLL FOR TERMINAL STATUS. * 01680000
OPUSER EQU BIT2 FUNCTION, 1-SYSTEM, 0-USER. * 01690000
OPSTCM EQU BIT3 STOP INVITE PARM LIST HANDLED. * 01700000
* * 01710000
* BITS 4-7 ARE THE SAME AS FOR PLOPC. * 01720000
*---------------------------------------------------------------------* 01730000
SPACE 3 01740000
.RTNCD AIF (&RTNCD EQ 'N').END 01750000
*---------------------------------------------------------------------* 01760000
* PL$RTC-INTERNAL RETURN CODE * 01770000
AIF (&RTNCD EQ 'IO').IO 01780000
AIF (&RTNCD EQ 'IO3270').IO32 01790000
AIF (&RTNCD EQ 'IO3735').IO37 01800000
* * 01810000
* SUCCESSFUL OP CODE * 01820000
* PL$RTC=00XX, FOR XX AS FOLLOWS: * 01830000
RCOK EQU X'00' SUCCESSFUL OPERATION. * 01840000
* * 01850000
* EXCEPTION RETURN CODES * 01860000
* PL$RTC=00XX, FOR XX AS FOLLOWS: * 01870000
RCXDTR EQU X'01' DATA TRUNCATED. * 01880000
RCXEOT EQU X'02' EOT RECEIVED. * 01890000
RCXEDT EQU X'03' EOT RECEIVED AND DATA TRUNCATED* 01900000
* DATA TRANSFER IS VALID ONLY FOR OPERATIONS WHICH YIELD RETURN * 01910000
* CODES OF 0, +1, +2, +3, OR +6. * 01920000
RCXSHD EQU X'04' SHUTDOWN REQUESTED. * 01930000
RCXDPD EQU X'05' DATA PENDING ON BSCA LINE. * 01940000
RCXRVI EQU X'06' RVI/TERMINAL INTERRUPT RECEIVED* 01950000
RCXCLR EQU X'07' 3270 CLEAR KEY RECEIVED. * 01960000
RCXNAV EQU X'08' TERMINAL NO LONGER AVAILABLE. * 01970000
RCXOFF EQU X'09' TERMINAL OFFLINE. * 01980000
RCXSPI EQU X'0A' STOP INVITE INPUT SUCCESSFUL. * 01990000
RCXNAQ EQU X'0B' ACQUIRE TERMINAL FAILED. * 02000000
RCXNIQ EQU X'7E' SPI FAILED-NO INVITE IN Q. * 02010000
RCXSPF EQU X'7F' STOP INVITE INPUT FAILED. * 02020000
AIF (&RTNCD EQ 'EXCP').REND 02030000
.IO ANOP * 02040000
* * 02050000
* I/O ERROR RETURN CODES * 02060000
* PL$RTC=FFXX, FOR XX AS FOLLOWS: * 02070000
RCRDCK EQU X'FF' DATA CHECK. * 02080000
RCRTRN EQU X'FE' TRANSLATION ERROR. * 02090000
RCRLST EQU X'FD' LOST DATA. * 02100000
RCRPBS EQU X'FC' PERMANENT BI-SYNC ERROR. * 02110000
RCRABN EQU X'FB' ABNORMAL RESPONSE. * 02120000
RCRXRA EQU X'FA' TRANSMIT/RECEIVE ABORT. * 02130000
RCRATO EQU X'F9' ADDRESSING TIMEOUT. * 02140000
RCRTTO EQU X'F8' TEXT TIMEOUT. * 02150000
RCRWTO EQU X'F7' WACK/TTD EXPIRATION. * 02160000
RCRNOC EQU X'F6' NO CONNECTION. * 02170000
RCRIID EQU X'F5' INVALID ID. * 02180000
RCRABD EQU X'F4' ABORT, DISCONNECT. * 02190000
RCRADC EQU X'F3' ADAPTER CHECK. * 02200000
RCRNAK EQU X'F2' NEGATIVE RESPONSE TO ADDRESSING* 02210000
AIF (&RTNCD EQ 'IO').REND 02220000
.IO32 ANOP 02230000
* * 02240000
* 3270 I/O ERROR RETURN CODES * 02250000
* PL$RTC=FFXX, FOR XX AS FOLLOWS: * 02260000
RCR2DU EQU X'EC' DEVICE UNAVAIL OR NOT READY. * 02270000
RCR2ED EQU X'EA' EQUIPMENT CHECK, DEVICE END. * 02280000
RCR2TE EQU X'E9' TCU DETECTION OF BSCA ERROR. * 02290000
RCR2CD EQU X'E8' CTL CHECK, DATA CHK, DEV BUSY. * 02300000
RCR2PD EQU X'E7' DATA CHECK ON COPY COMMAND. * 02310000
RCR2PO EQU X'E6' OPERATION CHECK ON COPY COMMAND* 02320000
RCR2PB EQU X'E5' DEVICE BUSY ON COPY COMMAND. * 02330000
RCR2PC EQU X'E4' CTL CHK/OP CHK/DATA CHK ON COPY* 02340000
RCRIDR EQU X'E3' INVALID DATA RECEIVED FROM A * 02350000
* 3270 USING DFF SUPPORT. * 02360000
AIF (&RTNCD EQ 'IO3270').REND 02370000
.IO37 ANOP 02380000
* * 02390000
* 3735 I/O ERROR RETURN CODES * 02400000
* PL$RTC=FFXX, FOR XX AS FOLLOWS: * 02410000
RCR5SR EQU X'D8' ATTEMPTED SEND BEFORE RECEIVE. * 02420000
RCR5IC EQU X'D7' ILLEGAL CHARACTER. * 02430000
RCR5OF EQU X'D6' BUFFER OVERFLOW. * 02440000
RCR5DF EQU X'D5' DISK FULL. * 02450000
RCR5RF EQU X'D4' DIRECTORY FULL. * 02460000
RCR5UH EQU X'D3' UNDEFINED HEADER. * 02470000
RCR5DE EQU X'D2' 3735 DISK ERROR. * 02480000
.IO41 ANOP 02480500
RCR7ZR EQU 256 BASE FOR NEGATIVE NUMBERS 02481000
RCR7TE EQU RCR7ZR-50 TRANSPERANCY ERROR OCCURED 02481500
RCR7NA EQU RCR7ZR-51 NO ACTIVITY ON THE LINE 02482000
RCR7DC EQU RCR7ZR-52 DATA CHECK 02482500
RCR7LB EQU RCR7ZR-53 RECEIVED LINE BID ERROR 02483000
RCR7WL EQU RCR7ZR-54 WRONG LENGTH ERROR 02483500
RCR7RP EQU RCR7ZR-55 RESET PRESSED ON 3741 02484000
RCR7SC EQU RCR7ZR-56 SECURITY CHECK 02484500
RCR7DO EQU RCR7ZR-57 DISK OVERFLOW 02485000
RCR7BE EQU RCR7ZR-58 BAD EXTENT ERROR 02485500
RCR7BT EQU RCR7ZR-59 BOTH STATIONS TRANSMIT. 02486000
RCR7LE EQU RCR7ZR-60 LENGTH ERROR 02486500
RCR7NF EQU RCR7ZR-61 NO RECORD FOUND 02487000
RCR7SE EQU RCR7ZR-62 SEEK ERROR 02487500
RCR7RE EQU RCR7ZR-63 READ ERROR 02488000
RCR7WE EQU RCR7ZR-64 WRITE ERROR 02488500
RCR7NR EQU RCR7ZR-65 3741 NOT READY 02489000
RCR7WP EQU RCR7ZR-66 DISKETTE IS WRITE PROTECTED. 02489500
.REND ANOP 02490000
*---------------------------------------------------------------------* 02500000
SPACE 2 02510000
.END ANOP 02520000
MEND 02530000