|
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: 6096 (0x17d0)
Types: s3xseg
Names: »S$ECFG«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ECFG«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 3 * 00030000
.* * 00040000
.* NAME: $ECFG * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LABELS NEEDED TO REFERENCE THE CCP * 00070000
.* CONFIGURATION RECORD FOUND IN $CCPFILE. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE * 00100000
.********************************************************************** 00110000
$ECFG 00120000
TEXT 00130000
*********************************************************************** 00140000
* C C P C O N F I G U R A T I O N R E C O R D O F F S E T S * 00150000
*********************************************************************** 00160000
CFGCCP EQU 0 00170000
CFGVRF EQU CFGCCP+1 VERIFICATION BYTES, X'EBD7' 00180000
SPACE 00190000
CFGRV1 EQU CFGVRF+6 RESERVED 00200000
SPACE 00210000
CFGFA2 EQU CFGRV1+1 CCP FACILITIES 00220000
CFGSYM EQU BIT0 1=SYMBOLIC FILES ALLOWED 00230000
CFGPUC EQU BIT1 1=PGM REQUEST-COUNT KEPT 00240000
CFGTF EQU BIT2 RESERVED 00250000
CFGSEC EQU BIT3+BIT4 00=NO SIGN-ON SECURITY 00260000
CFGCPW EQU BIT3 10=CCP SUPPLIED PASSWORD RTN 00270000
CFGUPW EQU BIT4 01=USER SUPPLIED PASSWORD RTN 00280000
CFGDME EQU BIT5 1=DATA MODE ESCAPE ALLOWED 00290000
CFGFMT EQU BIT6 1=3270 DISPLAY FORMATTING ALLOWD 00300000
CFGRUF EQU BIT7 1=READ UNDER FORMAT SUPPORTED 00310000
SPACE 00320000
CFGRV2 EQU CFGFA2+2 RESERVED 00330000
SPACE 00340000
CFGPLG EQU CFGRV2+1 PROGRAMMING LANGUAGE SUPPORT 00350000
CFGCOB EQU BIT0 1=COBOL 00360000
CFGFOR EQU BIT1 1=FORTRAN 00370000
CFGASM EQU BIT2 1=ASSEMBLER 00380000
CFGRPG EQU BIT3 1=RPGII 00390000
SPACE 00400000
CFGCBO EQU CFGPLG+2 OFFSET TO RIGHT END OF CCP 00410000
* BRANCH INSTRUCTION FROM START OF 00420000
* CONSOLE INTERRUPT HANDLER 00430000
SPACE 00440000
CFGESC EQU CFGCBO+6 DATA MODE ESCAPE BYTE STRING 00450000
SPACE 00460000
CFGLUS EQU CFGESC+2 LENGTH OF USER SECURITY INFO 00470000
SPACE 00480000
CFGRV3 EQU CFGLUS+4 RESERVED 00490000
SPACE 00500000
CFGNS EQU CFGRV3+1 MAX NO. SETS PLANNED 00510000
SPACE 00520000
CFGNPM EQU CFGNS+1 MAX NO. PROGRAMS IN A SET 00530000
SPACE 00540000
CFGNDF EQU CFGNPM+1 MAX NO. DISK FILES IN A SET 00550000
SPACE 00560000
CFGNT EQU CFGNDF+1 MAX NO. TERMINALS IN A SET 00570000
SPACE 00580000
CFGDMP EQU CFGNT+1 MAX NO. DYNAMIC CORE DUMPS 00590000
SPACE 00600000
CFGSC EQU CFGDMP+2 MEMORY # SECTORS(0-1024) 00610000
SPACE 00620000
CFGRV4 EQU CFGSC+3 RESERVED 00630000
SPACE 00640000
CFGTP EQU CFGRV4+1 TP ADAPTER INFORMATION 00650000
CFGMLA EQU BIT0+BIT1+BIT2+BIT3 NUMBER OF MLTA LINES 00660000
CFGBSC EQU BIT4+BIT5+BIT6+BIT7 NUMBER OF BSCA LINES 00670000
SPACE 00680000
CFGMD1 EQU CFGTP+1 MLTA DEVICE SUPPORT 00690000
CFG50 EQU BIT0 1=1050 00700000
CFG50D EQU BIT1 1=1050D 00710000
CFG40 EQU BIT2 1=2740 00720000
CFG40S EQU BIT3 1=2740S 00730000
CFG40C EQU BIT4 1=2740C 00740000
CFG4SC EQU BIT5 1=2740SC 00750000
CFG40D EQU BIT6 1=2740D 00760000
CFG4DT EQU BIT7 1=2740DT 00770000
SPACE 00780000
CFGMD2 EQU CFGMD1+1 MLTA DEVICE SUPPORT 00790000
CFG4DC EQU BIT0 1=2740DC 00800000
CFGDTC EQU BIT1 1=2740DTC 00810000
CFG2S EQU BIT2 1=2740M2S 00820000
CFG2SB EQU BIT3 1=2740M2SB 00830000
CFG2SC EQU BIT4 1=2740M2SC 00840000
CFGSCB EQU BIT5 1=2740M2SCB 00850000
CFG41 EQU BIT6 1=2741 00860000
CFG41D EQU BIT7 1=2741D 00870000
SPACE 00880000
CFGMD3 EQU CFGMD2+1 MLTA DEVICE SUPPORT 00890000
CFG7C EQU BIT0 1=SYSTEM/7 AS 2740C 00900000
CFG7SC EQU BIT1 1=SYSTEM/7 AS 2740SC 00910000
CFG7DC EQU BIT2 1=SYSTEM/7 AS 2740DC 00920000
CFGCMC EQU BIT3 1=CMCST ON DIAL LINE 00930000
CFG705 EQU BIT4 1=2970M5 00940000
CFG708 EQU BIT5 1=2970M8 00950000
CFG709 EQU BIT6 1=2970M9 00960000
CFG79S EQU BIT7 1=2970M9S 00970000
SPACE 00980000
CFGMD4 EQU CFGMD3+1 MLTA DEVICE SUPPORT 00990000
CFG30 EQU BIT0 1=5930 01000000
SPACE 01010000
CFGRV5 EQU CFGMD4+1 RESERVED 01020000
SPACE 01030000
CFGMXC EQU CFGRV5+1 MLTA TRANSMISSION CODES 01040000
CFGMCO EQU BIT0 1=CORRESPONDENCE CODE 01050000
CFGPEB EQU BIT1 1=PTTCEBCD CODE 01060000
CFGPBC EQU BIT2 1=PTTCBCD CODE 01070000
CFGSPB EQU BIT3 1=PTTCEBCD 1050 CODE 01080000
CFGXBF EQU BIT7 1=MLTA TRANSLATION REQUIRED 01090000
* 0=MLTA TRANSLATION OPTIONAL 01100000
SPACE 01110000
CFGRV6 EQU CFGMXC+2 RESERVED 01120000
SPACE 01130000
CFGBLT EQU CFGRV6+1 BSCA LINE-TYPE SUPPORT 01140000
CFGBPP EQU BIT0 1=POINT TO POINT 01150000
CFGBMP EQU BIT1 1=MULTIPOINT 01160000
CFGBCS EQU BIT2 1=CONTROL STATION 01170000
CFGBD EQU BIT3 1=DIAL (SWITCHED) LINE 01180000
SPACE 01190000
CFGBFA EQU CFGBLT+1 BSCA FACILITIES 01200000
CFGGET EQU BIT0 1=GET MESSAGE 01210000
CFGITB EQU BIT1 1=INTERMEDIATE TEXT BLOCKS 01220000
CFGSEP EQU BIT2 1=RECORD SEPARATORS 01230000
CFGRSP EQU BIT3 1=RESIDENT POLLING 01240000
CFGARS EQU BIT4 1=AUTO RESPONSE 01250000
CFGELC EQU BIT5 1=EBCDIC LINE CODE 01260000
CFGALC EQU BIT6 1=ASCII LINE CODE 01270000
CFGBXP EQU BIT7 1=BSCA TRANSPARENCY 01280000
SPACE 01290000
CFGBF1 EQU CFGBFA+1 BSCA FACILITIES CONTINUED 01300000
CFGINT EQU BIT0 1=INTERVAL POLLING 01310000
SPACE 01320000
CFGRV7 EQU CFGBF1+1 RESERVED 01330000
SPACE 01340000
CFGRSB EQU CFGRV7+1 RECORD SEPARATOR BYTE 01350000
SPACE 01360000
CFGBD1 EQU CFGRSB+1 BSCA DEVICE-TYPE SUPPORT 01370000
CFG351 EQU BIT0 1=3275 MODEL 1 01380000
CFG371 EQU BIT1 1=3277 MODEL 1 01390000
CFG341 EQU BIT2 1=3284 MODEL 1 01400000
CFG361 EQU BIT3 1=3286 MODEL 1 01410000
CFG352 EQU BIT4 1=3275 MODEL 2 01420000
CFG372 EQU BIT5 1=3277 MODEL 2 01430000
CFG342 EQU BIT6 1=3284 MODEL 2 01440000
CFG362 EQU BIT7 1=3286 MODEL 2 01450000
SPACE 01460000
CFGBD2 EQU CFGBD1+1 BSCA DEVICE-TYPE SUPPORT 01470000
CFG375 EQU BIT0 1=3735 01480000
CFGCPU EQU BIT1 1=CPU 01490000
CFG741 EQU BIT2 1=3741 ( AS A TERMINAL ) 01500000
SPACE 01510000
CFGEND EQU CFGBD2 END OF CONFIGURATION RECORD 01520000
SPACE 01530000
CFGLEN EQU CFGEND+1 LENGTH OF CONFIGURATION RECORD 01540000
SPACE 01550000
CFGFLG EQU X'FF' UNUSED PORTION OF SECTOR 01560000
MEND 01570000