|
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$E3CL«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$E3CL«
MACRO 00010000
.*--------------------------------------------------------------------* 00020000
.*NAME: $E3CL * 00030000
.* 00040000
.* * 00050000
.*MODIFICATION LEVEL: VERSION 1, MODIFICATION LEVEL 0 OF 5704-SC2 * 00060000
.* * 00070000
.*TITLE: '$CC3CL' * 00080000
.* * 00090000
.*FUNCTION: * 00100000
.* . LOAD $CC5CL WHICH CLOSES DISK FILES * 00110000
.* * 00120000
.*OPERATION: * 00130000
.* . $CC3CL IS ENTERED IF A CANCEL COMMAND, 3 OPTION TO HALT OR * 00140000
.* EOJ OCCURS DURING STARTUP. * 00150000
.* * 00160000
.*ENTRY POINTS: * 00170000
.* . CLEXEC * 00180000
.* * 00190000
.* . THE CALLING SEQUENCE OF THIS MODULE IS: * 00200000
.* * 00210000
.* LOAD LIST-XXXXXX,RIB-X'49' FIND AND LOAD * 00220000
.* * 00230000
.*INPUT: * 00240000
.* . NONE * 00250000
.* * 00260000
.*OUTPUT: * 00270000
.* . NONE * 00280000
.* * 00290000
.*EXTERNAL REFERENCES: N/A * 00300000
.* * 00310000
.*EXITS, NORMAL: * 00320000
.* . TO $CC5CL * 00330000
.* . TO DSM (END OF JOB) AFTER CLOSE * 00340000
.* * 00350000
.*EXITS, ERROR: * 00360000
.* . NONE * 00370000
.* * 00380000
.*TABLES/WORK AREAS: * 00390000
.* . NONE * 00400000
.* * 00410000
.*ATTRIBUTES: * 00420000
.* . SERIALLY REUSABLE * 00430000
.* * 00440000
.*NOTES: * 00450000
.* . NONE * 00460000
.* * 00470000
.*CHANGE ACTIVITY N/A * 00480000
.* * 00490000
.*--------------------------------------------------------------------* 00500000
$E3CL 00510000
TEXT 00520000
EJECT 1 00530000
*********************************************************************** 00540000
* * 00550000
* ENTRY POINT OF $CC3CL - LOAD $CC5CL * 00560000
* * 00570000
*********************************************************************** 00580000
SPACE 2 00590000
ORG X'44A0' $CC3CL START ADDRESS 00600000
J CLEXEC JUMP TO START OF MODULE 00610000
SPACE 1 00620000
DC CL4'C3CL' EYE CATCHER FOR $CC3CL 00630000
SPACE 2 00640000
CLEXEC EQU * BEGIN EXECUTION 00650000
LA CLLIST,XR2 XR2--> PARM LIST FOR $CC5CL 00660000
SVC 0 SVC TO 00670000
DC XL1'49' LOAD $CC5CL 00680000
SPACE 1 00690000
CCP PMRI12+PMRPRV,PMR SET STORAGE PROTECT OFF 00700000
L NCTCB@,XR1 --> CURRENT TCB 00710000
SBN NPEOJ(,XR1),BIT5 PROVIDE FOR ATR RESTORATION 00720000
SBF TCBMSK(,XR1),BIT3 SET OFF ASSIGN BUILD INDICATOR 00725000
MVC NPEOJ@(2,XR1),CLDPT SET EOJ ADDR 00730000
MVC NPDTF@(2,XR1),CLFFFF FOX OUT LAST OPENED DTF FIELD 00740000
CCP PMRI12+PMRPRV+PMRPRT,PMR SET STORAGE PROTECT ON 00750000
SPACE 1 00760000
B CLCLOS GO CLOSE FILES 00770000
SPACE 1 00780000
SVC 0 EOJ 00790000
DC XL1'84' RIB 00800000
SPACE 3 00810000
CLLIST EQU * LOAD PARM LIST FOR $CC5CL 00820000
DC CL8'O$CC5CLP' MODULE NAME 00830000
CLDPT DC AL2(CLCLOS) LOAD POINT 00840000
DC XL2'00' WORK 00850000
CLFFFF DC XL2'FFFF' 2 BYTE FIELD OF FF'S 00860000
SPACE 1 00870000
CLCLOS EQU X'4000' LOAD POINT & ENTRY ADDR 00880000
ABEND EQU * EOJ ROUTINE FOR ASSIGN. 00881000
LA NPEOJ@,XR2 XR2 --> EOJ ADDRESS 00882000
L NCTCB@,XR1 XR1 --> PLCA 00883000
SBF TCBMSK(,XR1),BIT3 RESET ASSIGN BUILD FLAG 00884000
SLC NPEOJ@(2,XR1),NPEOJ@(,XR1) ZERO OUT EOJ ADDRESS 00885000
SVC 0 00886000
DC XL1'84' 00887000
SPACE 1 00890000
ORG X'4500' PATCH AREA 00900000
SPACE 1 00910000
MEND END MACRO $E3CL 00920000