|
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: 11176 (0x2ba8)
Types: s3xseg
Names: »S$ECPL«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ECPL«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ECPL * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 13,MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* SYMBOLS FOR COMMUNICATIONS PARAMETER LIST -- FOR: * 00110000
.* * 00120000
.* . OFFSETS OF CELLS IN THE PARAMETER LIST * 00130000
.* . VALUES OF THE OPERATION CODE/MODIFIER CELL * 00140000
.* . VALUES OF THE RETURN CODE CELL * 00150000
.* * 00160000
.* INPUT OPERANDS: * 00170000
.* * 00180000
.* . NONE * 00190000
.* * 00200000
.********************************************************************** 00210000
$ECPL 00220000
.* 00230000
TEXT 00240000
.* 00250000
.* 00260000
*********************************************************************** 00270000
* 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 * 00280000
*********************************************************************** 00290000
SPACE 2 00300000
CCPPL EQU 0 BEGINNING OF PARAMETER LIST 00310000
SPACE 1 00320000
PLRTC EQU CCPPL+2-1 RETURN CODE 00330000
PLCHN EQU CCPPL+2-1 ADDR OF NEXT PARM LIST IN CHAIN 00340000
SPACE 1 00350000
PLOPM EQU PLRTC+1 OPERATION CODE MODIFIERS 00360000
PLOPC EQU PLOPM+1 OPERATION CODE AND MODIFIERS 00370000
SPACE 1 00380000
PLOUTL EQU PLOPC+2 OUTPUT LENGTH 00390000
PLEFFL EQU PLOPC+2 EFFECTIVE INPUT LENGTH 00400000
PLASID EQU PLEFFL TERMINAL ATTRIBUTE SET ID 00410000
SPACE 1 00420000
PLINL EQU PLOUTL+2 MAXIMUM INPUT LENGTH 00430000
SPACE 1 00440000
PLRECA EQU PLINL+2 RECORD AREA ADDRESS 00450000
PLDATA EQU PLINL+2 DATA AREA ADDRESS 00460000
SPACE 1 00470000
PLTUBA EQU PLRECA+2 TERMINAL-UNIT-BLOCK ADDRESS 00480000
PLTCBA EQU PLTUBA TASK CONTROL BLOCK ADDRESS 00490000
SPACE 1 00500000
PL$OPM EQU PLTUBA+1 INTERNAL OPERATION CODE MODIFIERS00510000
PL$OPC EQU PL$OPM+1 INTERNAL OPERATION CODE WORK AREA00520000
PL$MCT EQU PL$OPC MCT INDICES 00530000
SPACE 1 00540000
PL$RTC EQU PL$OPC+2 INTERNAL RETURN CODE WORK AREA 00550000
PL$TNT EQU PL$RTC AREA FOR ADDRESS OF TNT ENTRY 00560000
SPACE 1 00570000
PLLEN EQU PL$RTC-CCPPL+1 LENGTH OF TP REQUEST PARMETER LST00580000
SPACE 5 00590000
*********************************************************************** 00600000
* C O M M U N I C A T I O N S O P E R A T I O N C O D E S * 00610000
*********************************************************************** 00620000
SPACE 2 00630000
* BIT VALUES IN THE MODIFIER BYTE 'PLOPM' 00640000
SPACE 1 00650000
OPREQR EQU BIT0 SPECIFIES OPERATION REQUESTER * 00660000
* OFF INDICATES USER REQUEST **00670000
* ON INDICATES SYSTEM REQUEST **00680000
OPOLT EQU BIT1 PROGRAM INITIATED ONLINE TEST **00690000
OPCIOW EQU BIT1 FOR CONSOLE REQUEST ONLY 00700000
* INDICATES CCP SYSTEM MUST WAIT 00710000
* UNTIL I/O IS SCHEDULED 00720000
OPDISC EQU BIT2 DISCONNECT THE LINE 00730000
OPNFG EQU BIT3 REC AREA NOT YET FREED FOR PGM 00740000
* REQUEST WITH ZERO LENGTH DATA 00745000
OPLIST EQU BIT4 3270 MAPPING SPECIAL LIST 00750000
OPSTOP EQU BIT5 STOP OPERATION 00760000
OPSOL EQU BIT6 0-ASSURE TYPEWRITER BEGINS AT 00770000
* THE START OF A LINE 00780000
* 1-SUPPRESS START NEW LINE 00790000
OPEOL EQU BIT7 0-ASSURE TYPEWRITER ENDS AT THE 00800000
* START OF A LINE 00810000
* 1-SUPPRESS END NEW LINE 00820000
SPACE 1 00830000
* NUMERIC VALUES IN THE LEFT HALF OF THE OPERATION CODE BYTE 'PLOPC' 00840000
SPACE 1 00850000
OPSTD EQU X'00' STANDARD UNIT OF DATA (RECORD) 00860000
OPBLK EQU X'20' UNIT OF DATA = BLOCK 00870000
OPMSG EQU X'30' UNIT OF DATA = MESSAGE 00880000
OPORDR EQU X'F0' MASK FOR ORDER HALF BYTE. 00890000
SPACE 1 00900000
OPCOPY EQU X'40' 3270 COPY OPERATION 00910000
OPEAU EQU X'50' 3270 ERASE-ALL-UNPROTECTED OP'N 00920000
OPM4EJ EQU X'D0' MODEL 4 SHUTDOWN STARTED MESSAGE 00922000
OPRUF EQU X'70' 3270 READ UNDER FORMAT CONTROL 00925000
OPJRSH EQU X'80' NO-OP TO FORCE CM TO RESCHEDULE 00926000
OPNPFX EQU X'E0' MODEL 4 - DO NOT BUILD A PREFIX 00927000
* FOR THIS CONSOLE OPERATION 00928000
OPXCLM EQU X'F0' PRECEDE CONSOLE OUTPUT W/ EXCLAM 00930000
SPACE 1 00940000
OPKPL EQU X'10' ON RELEASE OP -- KEEP THE LINE 00950000
SPACE 1 00960000
OPSTA EQU X'10' ON ACQUIRE OP -- SET ATTRIBUTES 00970000
SPACE 1 00980000
SPACE 1 00990000
OPRVI EQU X'10' GET DATA -- SEND RVI RESPONSE. 01000000
* BIT VALUES IN THE RIGHT HALF OF THE OPERATION CODE BYTE 'PLOPC' 01010000
SPACE 1 01020000
OPSTAT EQU BIT4 STATUS OPERATION 01030000
OPNOW EQU BIT5 NO-WAIT OPERATION 01040000
OPPUT EQU BIT6 OUTPUT OPERATION 01050000
OPGET EQU BIT7 INPUT OPERATION 01060000
SPACE 1 01070000
* EFFECTIVE OPERATION CODES IN THE RIGHT HALF OF THE BYTE 'PLOPC' 01080000
SPACE 1 01090000
OPSHQ EQU 0 SHUTDOWN INQUIRY 01100000
OPGETS EQU OPGET GET 01110000
OPPUTS EQU OPPUT PUT 01120000
OPPTG EQU OPPUT+OPGET PUT-THEN-GET 01130000
OPPUTC EQU OPPUT+OPGET PUT-THEN-GET 01140000
OPINV EQU OPGET+OPNOW INVITE INPUT 01150000
OPIVIN EQU OPGET+OPNOW INVITE INPUT 01160000
OPPNW EQU OPPUT+OPNOW PUT NO WAIT 01170000
OPPNOW EQU OPPUT+OPNOW PUT NO WAIT 01180000
OPACI EQU BIT5 ACCEPT INPUT 01190000
OPGTA EQU OPSTAT GET TERMINAL ATTRIBUTES 01200000
OPGETA EQU OPSTAT GET TERMINAL ATTRIBUTES 01210000
OPACQ EQU OPSTAT+OPGET ACQUIRE TERMINAL 01220000
OPAQUR EQU OPSTAT+OPGET ACQUIRE TERMINAL 01230000
OPRELS EQU OPSTAT+OPPUT RELEASE TERMINAL 01240000
OPREL EQU OPSTAT+OPPUT RELEASE TERMINAL 01250000
OPPURG EQU OPPTG+BIT3 PURGE REQUEST 01260000
SPACE 1 01270000
* SYSTEM OPERATION CODES -- 'PLOPM' BYTE 01280000
SPACE 1 01290000
OP$SYS EQU OPREQR SYSTEM IS REQUESTER 01300000
OP$OLT EQU OPREQR+OPOLT SYSTEM INITIATED ONLINE TEST 01310000
SPACE 1 01320000
* SYSTEM OPERATION CODES -- 'PLOPC' BYTE 01330000
SPACE 1 01340000
OP$II EQU OPGET+OPNOW SYSTEM INVITE INPUT 01350000
OP$PNW EQU OPPUT+OPNOW SYSTEM PUT NO WAIT 01360000
OP$PTG EQU OPPUT+OPGET+OPNOW SYSTEM PUT-THEN-INVITE 01370000
OP$PC EQU OPPUT+OPGET+OPNOW SYSTEM PUT-THEN-INVITE 01380000
SPACE 1 01390000
* BIT VALUES IN THE *INTERNAL* OPERATION MODIFIER BYTE 'PL$OPM' 01400000
SPACE 1 01410000
OPGETM EQU BIT0 1-NEED TO GETMAIN STORAGE FOR * 01420000
* INVITE INPUT HOLD RECORD AREA * 01430000
OPKONS EQU BIT1 THIS IS REQUEST TO CONSOLE 01440000
OPNPST EQU BIT2 1-DO NOT POST UPON OP END 01450000
OPBNOP EQU BIT3 BSCA DON'T POST UPON ERP OP END 01460000
* * 01470000
* * 01480000
* THE FOLLOWING 4 BITS WILL HAVE BEEN MOVED FROM PLOPC TO PL$OPM AND * 01490000
* AND THUS ONE SET OF EQUATES WILL APPLY TO BOTH FIELDS * 01500000
* * 01510000
* OPSTAT EQU BIT4 STATUS OPERATION CODE * 01520000
* OPNOW EQU BIT5 1-NO WAIT OPERATION * 01530000
* OPPUT EQU BIT6 1-PUT OPERATION * 01540000
* OPGET EQU BIT7 1-GET OPERATION * 01550000
* * 01560000
* * 01570000
* THESE BITS ARE FOR BSCA AND WILL RESIDE IN PL$OPC * 01580000
* * 01590000
* * 01600000
OPRFSH EQU BIT0 SEND REFRESH MSG TO 3270. * 01610000
OPLSNS EQU BIT1 POLL FOR TERMINAL STATUS * 01620000
OPUSER EQU BIT2 FUNCTION, 1-SYSTEM, 0-USER. * 01630000
OPSTCM EQU BIT3 CM HAS HANDELED STOP II--APAR 01640000
* * 01650000
* THE FOLLOWING FOUR BITS FROM PL$OPM ARE SAVED IN PL$OPC DURING A * 01660000
* STATUS POLL OPERATION. * 01670000
* * 01680000
* OPSTAT EQU BIT4 STATUS OPERATION CODE * 01690000
* OPNOW EQU BIT5 1-NO WAIT OPERATION * 01700000
* OPPUT EQU BIT6 1-PUT OPERATION * 01710000
* OPGET EQU BIT7 1-GET OPERATION * 01720000
************************************************************************01730000
SPACE 5 01740000
************************************************************************01750000
* R E T U R N C O D E V A L U E S * 01760000
************************************************************************01770000
SPACE 2 01780000
* THESE VALUES RESIDE IN THE *INTERNAL* RETURN CODE FIELD 'PL$RTC' 01790000
* AS 1-BYTE VALUES, AND ARE EXPANDED IN THE EXTERNAL RETURN CODE 01800000
* FIELD 'PLRTC' BY PROPAGATION OF THE LEFTMOST BIT OF THE 1-BYTE 01810000
* VALUE 01820000
* 01830000
* DATA TRANSFER IS VALID ONLY FOR OPERATIONS WHICH YIELD RETURN CODES 01840000
* OF 0, +1, +2, OR +3 01850000
SPACE 1 01860000
RCOK EQU X'00' SUCCESSFUL OPERATION 01870000
SPACE 01880000
* EXCEPTION CONDITIONS 01890000
SPACE 01900000
RCXDTR EQU X'01' DATA TRUNCATED 01910000
RCXEOT EQU X'02' EOT RECEIVED 01920000
RCXEDT EQU X'03' EOT RECEIVED AND DATA TRUNCATED 01930000
RCXSHD EQU X'04' SHUTDOWN REQUESTED 01940000
RCXDPD EQU X'05' DATA PENDING ON BSCA LINE 01950000
RCXRVI EQU X'06' RVI/TERMINAL INTERRUPT RECEIVED 01960000
RCXCLR EQU X'07' 3270 CLEAR KEY RECEIVED 01970000
RCXNAV EQU X'08' TERMINAL NO LONGER AVAILABLE 01980000
RCXOFF EQU X'09' TERMINAL OFFLINE 01990000
RCXSPI EQU X'0A' STOP INVITE INPUT SUCCESSFUL 02000000
RCXNAQ EQU X'0B' ACQUIRE TERMINAL FAILED 02010000
RCXSPF EQU X'7F' STOP INVITE INPUT FAILED 02020000
SPACE 02030000
* I/O ERROR RETURN CODES 02040000
SPACE 02050000
Z EQU 256 CONSTANT FOR 1-BYTE NEGATIVE. 02055000
RCRDCK EQU Z-1 DATA CHECK 02060000
RCRTRN EQU Z-2 TRANSLATION ERROR 02070000
RCRLST EQU Z-3 LOST DATA 02080000
RCRPBS EQU Z-4 PERMANENT BI-SYNC ERROR 02090000
RCRABN EQU Z-5 ABNORMAL RESPONSE 02100000
RCRXRA EQU Z-6 TRANSMIT/RECEIVE ABORT 02110000
RCRATO EQU Z-7 ADDRESSING TIMEOUT 02120000
RCRTTO EQU Z-8 TEXT TIMEOUT 02130000
RCRWTO EQU Z-9 WACK/TTD EXPIRATION 02140000
RCRNOC EQU Z-10 NO CONNECTION 02150000
RCRIID EQU Z-11 INVALID ID 02160000
RCRABD EQU Z-12 ABORT, DISCONNECT 02170000
RCRADC EQU Z-13 ADAPTER CHECK 02180000
RCRNAK EQU Z-14 NEGATIVE RESPONSE TO ADDRESSING 02190000
EJECT 02200000
* 3270 I/O ERROR RETURN CODES 02210000
SPACE 02220000
RCR2DU EQU Z-20 DEVICE UNAVAIL OR NOT READY 02230000
RCR2ED EQU Z-22 EQUIPMENT CHECK, DEVICE END 02240000
RCR2TE EQU Z-23 TCU DETECTION OF BSCA ERROR 02250000
RCR2CD EQU Z-24 CTL CHECK, DATA CHK, DEV BUSY, DE02260000
RCR2PD EQU Z-25 DATA CHECK ON COPY COMMAND 02270000
RCR2PO EQU Z-26 OPERATION CHECK ON COPY COMMAND 02280000
RCR2PB EQU Z-27 DEVICE BUSY ON COPY COMMAND 02290000
RCR2PC EQU Z-28 CTL CHK/OP CHK/DATA CHK ON COPY 02300000
RCRIDR EQU Z-29 INVALID DATA RECEIVED FROM A 02310000
* 3270 USING DFF SUPPORT 02320000
SPACE 02330000
* 3735 I/O ERROR RETURN CODES 02340000
SPACE 02350000
RCR5SR EQU Z-40 ATTEMPTED SEND BEFORE RECEIVE 02360000
RCR5IC EQU Z-41 ILLEGAL CHARACTER 02370000
RCR5OF EQU Z-42 BUFFER OVERFLOW 02380000
RCR5DF EQU Z-43 DISK FULL 02390000
RCR5RF EQU Z-44 DIRECTORY FULL 02400000
RCR5UH EQU Z-45 UNDEFINED HEADER 02410000
RCR5DE EQU Z-46 3735 DISK ERROR 02420000
SPACE 1 02430000
* 3741 I/O ERROR RETURN CODES. 02430500
SPACE 1 02431000
RCR7TE EQU Z-50 TRANSPARENCY ERROR. 02431500
RCR7NA EQU Z-51 LINE CHECK. 02432000
RCR7DC EQU Z-52 MESSAGE ABORTED. 02432500
RCR7LB EQU Z-53 RECEIVE LINE BID ERRORS. 02433000
RCR7WL EQU Z-54 WRONG LENGTH ERROR. 02433500
RCR7RP EQU Z-55 OPERATOR TERMINATION. 02434000
RCR7SC EQU Z-56 SECURITY CHECK. 02434500
RCR7DO EQU Z-57 DISK FULL. 02435000
RCR7BE EQU Z-58 BAD EXTENT. 02435500
RCR7BT EQU Z-59 BOTH LINES TRANSMITTING. 02436000
RCR7LE EQU Z-60 LENGTH ERROR ON DISK. 02436500
RCR7NF EQU Z-61 NO RECORD FOUND. 02437000
RCR7SE EQU Z-62 SEEK ERROR. 02437500
RCR7RE EQU Z-63 READ ERROR. 02438000
RCR7WE EQU Z-64 WRITE ERROR. 02438500
RCR7NR EQU Z-65 NOT READY. 02439000
MEND 02440000