|
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: 2540 (0x9ec)
Types: s3xseg
Names: »S$EROL«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EROL«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EROL«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 3 * 00030000
.* * 00040000
.* NAME: $EROL * 00050000
.* * 00060000
.* FUNCTION: DEFINE ALL STARTUP PHASES SO THAT THEY CAN BE CALLED * 00070000
.* THROUGH A ROLLER LIST. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE * 00100000
.********************************************************************** 00110000
$EROL 00120000
TEXT 00130000
SPACE 00140000
*********************************************************************** 00150000
* STARTUP PHASE ROLLER LIST - 23 ENTRIES MAXIMUM * 00160000
* CAN BE USED BY THE ROLLER. MORE THAN 23 CAN EXIST* 00170000
* IN THE TABLE, BUT ONLY 23 CAN BE ACCESSED. THE * 00180000
* REST ARE INCLUDED FOR DIAGNOSTIC PURPOSES ONLY. * 00190000
*********************************************************************** 00200000
SPACE 00210000
ROLIST EQU * ID LIST FOLLOWS, 10 BYTES/ENTRY 00220000
DC CL10'FX-- ' CALC FREE C/S AND INDEX FORMATS 00230000
DC CL10'CR-- ' CROSS REFERENCE TRANSIENTS 00240000
DC CL10'US-- ' UNSUPPRESS FACILITIES 00250000
DC CL10'FS-- ' SUPPRESS FACILITIES 00260000
DC CL10'IP-- ' INITIALIZE PCT 00270000
DC CL10'LD-- ' LOAD BASE MODULE 00280000
DC CL10'UB-- ' BUILD USER TCB'S IN CORE 00290000
DC CL10'TA-- ' LOAD TERMINAL ATTRIBUTE TABLE 00300000
DC CL10'TB-- ' T/P CONTROL BLOCKS 00310000
DC CL10'TC-- ' BUILD TUBS AND TERMNAMES 00320000
DC CL10'DL-- ' BUILD SKELETON SHORT DTF'S 00330000
DC CL10'DM-- ' MULTI FILE DISAGNOSTIC PHASE 00340000
DC CL10'DF-- ' OPEN FILES AND COMPRESS DTF'S 00350000
DC CL10'PX-- ' BUILD PCT INDEX IN CORE 00360000
SPACE 2 00370000
* 00380000
* THE FOLLOWING ENTRIES ARE NOT USED BY THE PHASE ROLLER. THEY ARE 00390000
* INCLUDED ONLY FOR THE PURPOSE OF ENSURING THEIR PRESENCE ON THE 00400000
* PACK. THEY DO NOT COUNT IN THE 23 ENTRIES MAXIMUM. THE FOLLOWING 00410000
* PHASES RUN IN THE CCP TRANSIENT AREA(S). 00420000
* 00430000
SPACE 1 00440000
DC CL10'EI-- ' BUILD MLTA POLL LIST 00450000
DC CL10'EJ-- ' FILL DTF ADDRESSES, LOAD $CC4#2 00460000
DC CL10'LT-- ' LOAD TRACES 00470000
DC CL10'EK-- ' ALLOCATE TPBUF, USER PROG AREA 00480000
DC CL10'EL-- ' OPEN DTFS 00490000
DC CL10'EM-- ' DISPATCH CCP 00500000
DC CL10'CX-- ' REP CARD PROCESSOR FOR F. E. 00510000
DC CL10'CY-- ' REP CARD PROCESSOR FOR F. E. 00520000
DC CL10'CZ-- ' REP CARD PROCESSOR FOR F. E. 00530000
DC XL1'FF' END OF ID LIST 00540000
SPACE 00550000
ROLEN EQU 230 MAX ROLL LIST SIZE 00560000
ROLEND EQU ROLIST+ROLEN END OF MAX SIZE ROLL LIST 00570000
SPACE 00580000
MEND 00590000