|
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: 3302 (0xce6)
Types: s3xseg
Names: »S$EHLF«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EHLF«
MACRO 00010000
$EHLF &EQU-Y 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
AIF (&EQU EQ 'Y').CC100 00185000
# EQU 1 'INSTRUCTION-MODIFICATION' CODE. 00190000
.CC100 ANOP 00195000
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
AIF (&EQU EQ 'Y').CC200 00255000
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
.CC200 ANOP 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
SUSP EQU 0 SUSPENDED-TASK DIAGNOSTIC. 00400000
ACTNEP EQU 1 REQUEST FOR ACTIVE NON-MRT NEP. 00420000
PGMNF EQU 2 PGM NAME INVALID OR MISSPELLED. 00440000
DTANLW EQU 3 PGM NAME HAD DATA BUT NO ACCEPT. 00460000
PCTERR EQU 4 PERMANENT IO ERROR READING PCT. 00480000
NOPART EQU 5 PARTITION NOT AVAILABLE. 00500000
NOTCB EQU 6 TCB NOT AVAILABLE. 00520000
NOWAY EQU 7 NEPS OWN TOO MUCH CORE FOR RQST. 00540000
MRTMAX EQU 8 MRT ALREADY HAS ENOUGH TUBS Q'D. 00560000
WATMRT EQU 9 RQSTOR /NOQ OR ACTIVE MRT IN /Q. 00580000
SYMFIL EQU 10 SYMBOLIC FILE RQRED, NOT GIVEN. 00600000
CNFLCT EQU 11 DISK FILE WON'T ALLOW SHARED USE 00620000
NOTASN EQU 12 RQRED TERMINAL NAME NOT ASSIGNED 00640000
TWONAM EQU 13 TERMINAL REQUIRED BY 2 NAMES. 00660000
TRMNIA EQU 14 TERMINAL NOT NOW AVAILABLE. 00680000
URNA EQU 15 UNIT RECORD DEVICE NOT AVAILABLE 00700000
TRMNEP EQU 16 TERMINAL OWNED BY NEP. 00720000
SWLNA EQU 17 SWT TERMINAL LINE NOT AVAILABLE. 00740000
TERMNA EQU 18 MISCELLANEOUS NOT AVAILABLE CODE 00760000
* OFFLINE, SIGNED-ON, OLT IN-PROCESS, OR ERP IN-PROCESS. 00770000
SPF EQU 19 STOP-POLL FAILED. 00790000
NOSHR EQU 20 INVALID ATTEMPT TO USE DISKFILE 00810000
INVRUF EQU 21 RUF INPUT TO A NON-RUF PROGRAM 00830000
DSMUPD EQU 22 FILE BEING UPDATED BY OTHER PTN 00850000
DISKNA EQU 23 FILE BEING USED BY NEP 00856000
CHNSYM EQU 24 CHAIN TASK REQUIRES SYMFILES 00858000
INVEXC EQU 25 INVALID EXECFIND PROGRAM 00858800
INVPAS EQU 26 PAS NOT ADDRESSABLE 00859600
PORTNA EQU 27 REQUIRED PORT NOT AVAILABLE 00859800
SPACE 2 00870000
MEND 00880000