|
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$EHLF«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EHLF«
MACRO 00010000
$EHLF 00020000
TEXT 00030000
*FOLLOWING ARE SOME OF THE COMMONLY USED REGISTER EQUATES. 00040000
SPACE 00050000
TCB EQU 1 USE R1 FOR TCB 00060000
TUB EQU 2 USE R2 FOR TUB 00070000
PTX EQU 2 USE R2 FOR TUB 00080000
PCT EQU 1 00090000
SDF EQU 2 00100000
TBL EQU 2 00110000
NC EQU 2 USE R2 FOR SYSCOM REFERENCES. 00120000
TNT EQU 2 TERMINAL NAME TABLE POINTER. 00130000
IOB EQU 1 USE R1 FOR IOB 00140000
PL EQU TUB USE FOR TP PARAMETER LIST. 00150000
SPACE 00160000
*FOLLOWING ARE SOME OF THE MISCELANEOUS EQUATES COMMONLY USED. 00170000
SPACE 00180000
# EQU 1 'INSTRUCTION-MODIFICATION' CODE. 00190000
PMRQ EQU X'30' Q-CODE FOR CCP INST TO MODIFY PMR. 00200000
DISABL EQU X'79' PMR=DSB,PRIV,ATR-ON 00210000
PRV EQU X'08' PRIVILEGED BIT IN PMR. 00220000
ENABLE EQU X'78' PMR=ENB,PRIV,ATR-ON 00230000
USER EQU X'72' PMR=ENB,NON-PRIV,ATR-ON,PROT 00240000
LPMRQ EQU X'40' LOAD PMR Q-CODE FOR LCP INST 00250000
IAR EQU X'10' LOAD/STORE Q-CODE FOR IAR 00260000
ARR EQU 8 LOAD/STORE Q-CODE FOR ARR 00270000
PSR EQU 4 LOAD/STORE Q-CODE FOR PSR 00280000
SPACE 00290000
* THE FOLLOWING ARE CP WORK AREA EQUATES FOR GENERAL USE. 00300000
SPACE 00310000
AREA EQU $CPPRQ+13 00320000
WORK EQU $CPPRQ 00330000
COMP EQU $CPPRQ+11 00340000
CTR EQU $CPPRQ+9 00350000
SPACE 00360000
* THE FOLLOWING ARE SYMBOLIC DIAGNOSTIC CODES FOR PGM REQUEST. 00370000
SPACE 00380000
A EQU * REFERENCE POINT. 00390000
SUSP EQU *-A SUSPENDED-TASK DIAGNOSTIC. 00400000
ORG *+1 00410000
ACTNEP EQU *-A REQUEST FOR ACTIVE NON-MRT NEP. 00420000
ORG *+1 00430000
PGMNF EQU *-A PROGRAM NAME INVALID OR MISSPELLED. 00440000
ORG *+1 00450000
DTANLW EQU *-A PGM NAME HAD DATA BUT WON'T ACCEPT. 00460000
ORG *+1 00470000
PCTERR EQU *-A PERMANENT IO ERROR READING PCT. 00480000
ORG *+1 00490000
NOPART EQU *-A PARTITION NOT AVAILABLE. 00500000
ORG *+1 00510000
NOTCB EQU *-A TCB NOT AVAILABLE. 00520000
ORG *+1 00530000
NOWAY EQU *-A NEP'S OWN TOO MUCH CORE FOR REQUEST 00540000
ORG *+1 00550000
MRTMAX EQU *-A MRT ALREADY HAS ENOUGH TUBS QUEUED. 00560000
ORG *+1 00570000
WATMRT EQU *-A REQUESTOR /NOQ OR ACTIVE MRT IN /Q 00580000
ORG *+1 00590000
SYMFIL EQU *-A SYMBOLIC FILE REQUIRED, NOT GIVEN. 00600000
ORG *+1 00610000
CNFLCT EQU *-A DISK FILE DOESN'T PERMIT SHARED USE 00620000
ORG *+1 00630000
NOTASN EQU *-A REQUIRED TERMINAL NAME NOT ASSIGNED 00640000
ORG *+1 00650000
TWONAM EQU *-A TERMINAL REQUIRED BY 2 NAMES. 00660000
ORG *+1 00670000
TRMNIA EQU *-A TERMINAL NOT IMMEDIATELY AVAILABLE. 00680000
ORG *+1 00690000
URNA EQU *-A UNIT RECORD DEVICE NOT AVAILABLE 00700000
ORG *+1 00710000
TRMNEP EQU *-A TERMINAL OWNED BY NEP. 00720000
ORG *+1 00730000
SWLNA EQU *-A SWITCHED TERMINAL LINE NOT AVAILABL 00740000
ORG *+1 00750000
TERMNA EQU *-A MISCELLANEOUS NOT AVAILABLE CODE. 00760000
* OFFLINE, SIGNED-ON, OLT IN-PROCESS, OR ERP IN-PROCESS. 00770000
ORG *+1 00780000
SPF EQU *-A STOP-POLL FAILED. 00790000
ORG *+1 00800000
NOSHR EQU *-A INVALID ATTEMPT TO USE DISKFILE 00810000
ORG *+1 00820000
INVRUF EQU *-A RUF INPUT TO A NON-RUF PROGRAM 00830000
ORG *+1 00840000
DSMUPD EQU *-A FILE BEING UPDATED BY OTHER PGM LVL 00850000
ORG *+1 * AJS 00853000
DISKNA EQU *-A FILE BEING USED BY NEP AJS 00856000
ORG A 00860000
SPACE 2 00870000
MEND 00880000