|
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: 3810 (0xee2)
Types: s3xseg
Names: »S$E031«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E031«
MACRO 00010000
$E031 00020000
GBLB &USEON USER SIGN ON CHECKING OPTION 00030000
GBLB &MLTA MLTA T-P OPTION 00040000
GBLB &SHR FILE SHARING OPTION 00050000
GBLB &DPF 00060000
GBLB &MOD4 00065000
LCLC &# 00070000
TEXT 00080000
&# SETC ' ' 00090000
TITLE 'TRANSIENT&#.RELOCATION&#.CONSTANTS' 00100000
* BEGIN MACRO '$E031' 3/13/73 00110000
SPACE 1 00120000
*------TRANSIENT RELOCATION CONSTANTS --------------------------------* 00130000
SPACE 1 00140000
*---------------------------------------------------------------------* 00150000
* THESE CONSTANTS MUST BEGIN AT PLUS 256 IN THE CCP MODULE * 00160000
*---------------------------------------------------------------------* 00170000
SPACE 1 00180000
DC AL2(TAONE) @ OF NON-COMMUNICATIONS 00190000
* TRANSIENT AREA 00200000
DC AL2(TATWO) @ OF CCP COMMUNICATIONS TASK 00210000
* TRANSIENT AREA 00220000
AIF (&DPF NE '1').NDPF DPF SYSTEM 00230000
DC AL2(DPTIAR) @ OF IAR DETERMINATION ROUTINE 00240000
AGO .ISDP1 00250000
.NDPF DC AL2(0) UNUSED (NON-DPF SYSTEM) 00260000
.ISDP1 ANOP 00270000
DC AL2($CC4TR) TRANSIENT RETURN ADDRESS 00280000
DC AL2($CC4TX) TRANSIENT TRANSFER CONTROL 00290000
* ROUTINE ADDRESS 00300000
DC AL2($CC4PI) 1ST LEVEL TRANSIENT INVOCATION 00310000
* ENTRY POINT ADDRESS 00320000
DC AL2($CC4WT) CCP WAIT ROUTINE 00330000
DC AL2($CC4PS) CCP POST ROUTINE 00340000
DC AL2($CC4IS) COMMUNICATIONS I/O INTERFACE 00350000
* ENTRY @ FOR CCP SYSTEM ROUTINES 00360000
DC AL2($CC4GM) GETMAIN ENTRY POINT ADDRESS 00370000
DC AL2($CC4FM) FREEMAIN ENTRY POINT ADDRESS 00380000
DC AL2($CC4RM) GETMAIN (RESTRICTED) ENTRY 00390000
* POINT ADDRESS 00400000
AIF (&MLTA).MLOK1 MLTA ON SYSTEM? 00410000
DC AL2(0) *** NOT USED *** (MLTA OPT'D NO) 00420000
DC AL2(0) *** NOT USED *** (MLTA OPT'D NO) 00430000
AGO .MLNO1 00440000
.MLOK1 ANOP GENERATE MLTA IOCS ADDRESS 00450000
DC AL2(MLTIO1) MLTA IOCS 00460000
DC AL2(MLTOP1) MLTA OPEN 00470000
.MLNO1 ANOP 00480000
AIF (&USEON).USOK1 USER SIGN ON CHECKING? 00490000
DC AL2(0) *** NOT USED *** (NO USER S.O.) 00500000
AGO .NOUS1 00510000
.USOK1 ANOP INCLUDE USER S.O. WORK AREA @ 00520000
DC AL2(USECWA) USER SECURITY DATA WORK AREA 00530000
.NOUS1 ANOP 00540000
DC AL2($CC4TT) TRACE ROUTINE 00550000
DC AL2($CC4MX) MOVE FOREVER ROUTINE 00560000
DC AL2(CMFMRT) FREEMAIN INTERFACE ROUTINE IN CM 00570000
DC AL2($CC4PQ) TERMINAL/LINE REQ PENDING TEST 00580000
DC AL2(CC4TI2) PGM TERMINATION INTERFACE 00590000
DC AL2($CC4IC) CONSOLE INTERRUPT HANDLER 00600000
AIF (&SHR).SHR1 FILE SHARING ELECTED? 00610000
DC AL2(0) *** NOT USED *** (NO FILE SHR) 00620000
AGO .NSHR1 00630000
.SHR1 ANOP FILE SHARING TO BE USED 00640000
DC AL2($CC4RQ) SECTOR ENQUEUE BLOCK RELEASE 00650000
.NSHR1 ANOP 00660000
DC AL2($CC4TI) OTHER TASK TERMINATE 00670000
AIF (&MOD4).MD401 00675000
DC AL2(CMAPL) CONSOLE LEVEL CHECKER IN $CC4CM 00680000
.MD401 ANOP 00685000
SPACE 1 00690000
*------EXTRN'S FOR THE ABOVE CONSTANTS--------------------------------* 00700000
SPACE 1 00710000
EXTRN $CC4TI OTHER TASK TERMINATE 00720000
EXTRN CC4TI2 EXTRN FOR PGM TERM INTF 00730000
EXTRN $CC4PQ TUB/LINE QUEUE TEST 00740000
EXTRN $CC4TR TRANSIENT RETURN 00750000
EXTRN $CC4TX TRANSIENT XCTL 00760000
EXTRN $CC4PI TRANSIENT INVOCATION 00770000
EXTRN $CC4GM GETMAIN 00780000
EXTRN $CC4FM FREEMAIN 00790000
EXTRN $CC4RM RESTRICTIVE GETMAIN 00800000
EXTRN $CC4TT CCP TRACE 00810000
EXTRN $CC4MX COMMON DATA MOVE 00820000
EXTRN CMFMRT COMMON FREEMAIN INTERFACE 00830000
EXTRN $CC4IC CONSOLE INTERRUPT HANDLER 00840000
AIF (&MLTA NE '1').NMLT2 MLTA IN SYSTEM? 00850000
EXTRN MLTIO1 MLTA IOCS 00860000
EXTRN MLTOP1 MLTA OPEN 00870000
.NMLT2 ANOP 00880000
AIF (&MOD4).MD403 00885000
EXTRN CMAPL 00890000
.MD403 ANOP 00895000
SPACE 1 00900000
* END MACRO '$E031' 00910000
MEND 00920000