|
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: 1778 (0x6f2)
Types: s3xseg
Names: »S$EPGM«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EPGM«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 2 * 00030000
.* * 00040000
.* NAME: $EPGM * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE RELATIVE ENTRY NUMBER IN THE FIRST LEVEL * 00070000
.* TRANSIENT LIST FOR ALL TRANSIENTS IN THE LIST. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE * 00100000
.* * 00110000
.* NOTES: VALUES 0 THROUGH 9 ARE RESERVED AS SVC SUBRIBS. A SUBRIB * 00120000
.* OF 12 OR GREATER INDICATES A FIRST LEVEL TRANSIENT. THEREFORE, * 00130000
.* DISPLACEMENT 12(REALLY 10, 11, AND 12) IS THE FIRST USABLE * 00140000
.* DISPLACEMENT IN THIS LIST. THE FIELD @TALST MUST BE CODED AS * 00150000
.* DC AL2(TA@PGM-10) IN MACRO $E030 TO SUPPORT THIS * 00160000
.* IMPLEMENTATION. * 00170000
.********************************************************************** 00180000
$EPGM 00190000
TEXT 00200000
*------------FIXED PORTION OF TRANSIENT LIST--------------------------* 00210000
CC4AB EQU 12 ACCEPT INPUT POST PRE-PROCESSOR 00220000
CC4A2 EQU CC4AB+3 ALLOCATION CONTROL 00230000
CC4GA EQU CC4A2+3 GET ATTRIBUTES 00240000
CC4OP EQU CC4GA+3 USER FILE OPEN 00250000
CC4R1 EQU CC4OP+3 PROGRAM REQUEST 00260000
CC4PR EQU CC4R1+3 COMMAND PROCESSOR RETURN 00270000
CC4TD EQU CC4PR+3 TERMINATION CONTROL ROUTINE 00280000
CC4WC EQU CC4TD+3 USER T-P SWITCHED LINE CONNECT 00290000
CC4WR EQU CC4WC+3 T-P TRANSLATION ERROR 00300000
CC4MP EQU CC4WR+3 IGNORE PUT TO ERP T-P DEVICE 00310000
CC4DC EQU CC4MP+3 D.F.F 00320000
CC4DD EQU CC4DC+3 D.F.F 00330000
CC4DB EQU CC4DD+3 D.F.F 00340000
CC4NC EQU CC4DB+3 RELEASE COMMAND PROCESSOR 00350000
CC4DG EQU CC4NC+3 NEP-MRT SECTOR DEQUE TRANSIENT 00360000
MEND 00370000