|
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: 5080 (0x13d8)
Types: s3xseg
Names: »S$E000«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E000«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E000 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION -- SET SYSTEM * 00100000
.* GLOBAL VARIABLES * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . DP-0/1 * 00150000
.* * 00160000
.* 1=DPF MACHINE SUPPORTED / 0=NOT SUPPORTED * 00170000
.* * 00180000
.* . #M-0/1/2/3/4/5/6/7/8 * 00190000
.* * 00200000
.* . NUMBER OF MLTA LINES SUPPORTED * 00210000
.* * 00220000
.* . #B-0/1/2 * 00230000
.* * 00240000
.* NUMBER OF BSC ADAPTERS SUPPORTED * 00250000
.* * 00260000
.* . #U-1/2/3/7/5/6/7/8 * 00270000
.* * 00280000
.* NUMBER OF CONCURRENT USER TASKS SUPPORTED * 00290000
.* * 00300000
.* . DF-0/1 * 00310000
.* * 00320000
.* 1=DISPLAY FORMAT FACILITY SUPPORTED / 0=NOT SUPPORTED * 00330000
.* * 00340000
.* . DE-0/1 * 00350000
.* * 00360000
.* 1=DATA MODE ESCAPE SUPPORTED / 0=NOT SUPPORTED * 00370000
.* * 00380000
.* . MS-0/1 * 00390000
.* * 00400000
.* 1=MINIMUM CORE SYSTEM SUPPORT / 0=NOT MINIMUM CORE SUPPORT * 00410000
.* * 00420000
.********************************************************************** 00430000
$E000 &DP-,&#M-,&#B-,&#U-,&DF-,&MS-,&DE- 00440000
.* 00450000
.*--------- SYSTEM GLOBAL VARIABLES --------------------------------* 00460000
.* 00470000
GBLB &DPF . DUAL PROGRAM FEATURE SUPPORT: 00480000
.* . 1=SUPPORTED / 0=NOT 00490000
.* 00500000
GBLB &MTK . MULTIPLE USER TASK SUPPORT: 00510000
.* . 1=SUPPORTED / 0=NOT 00520000
.* 00530000
GBLB &MLTA . MLTA SUPPORT: 00540000
.* . 1=SUPPORTED / 0=NOT 00550000
.* 00560000
GBLB &NOM . INVERSE OF &MLTA 00570000
.* 00580000
GBLB &BSCA . BSCA SUPPORT: 00590000
.* . 1=SUPPORTED / 0=NOT 00600000
.* 00610000
GBLB &NOB . INVERSE OF &BSCA 00620000
.* 00630000
GBLB &ONE . SUPPORT OF SINGLE ADAPTER TYPE 00640000
.* . 1=MLTA *OR* BSCA / 0=BOTH 00650000
.* 00660000
GBLB &DME . DATA MODE ESCAPE SUPPORT: 00670000
.* . 1=SUPPORTED / 0=NOT 00680000
.* 00690000
GBLB &NDME . INVERSE OF &DME 00700000
.* 00710000
GBLB &DFF . DISPLAY FORMAT FACILITY: 00720000
.* . 1=SUPPORTED / 0=NOT 00730000
.* 00740000
GBLB &NDF . INVERSE OF &DFF 00750000
.* 00760000
GBLB &MIN . SUPPORT OF MINIMUM-CORE SYSTEM 00770000
.* . 1=MINIMUM CORE / 0=NOT 00780000
.* 00790000
TEXT 00800000
.* 00810000
.*--------- SET FOR SUPPORT OF DUAL PROGRAM FEATURE ----------------* 00820000
.* 00830000
AIF (&DP EQ '0').DPEND . SKIP IF *NOT* DPF 00840000
.* 00850000
&DPF SETB 1 00860000
.* 00870000
.DPEND ANOP . END OPERAND 'DP' 00880000
.* 00890000
.*--------- SET FOR SUPPORT OF USER MULTITASKING -------------------* 00900000
.* 00910000
AIF (&#U EQ '1').#UEND . SKIP IF *NO* MULTITASKING 00920000
.* 00930000
&MTK SETB 1 00940000
.* 00950000
.#UEND ANOP . END OPERAND '#U' 00960000
.* 00970000
.*--------- SET FOR SUPPORT OF MLTA ADAPTER AND DEVICES ------------* 00980000
.* 00990000
AIF (&#M EQ '0').#M0 . SKIP IF *NO* MLTA 01000000
.* 01010000
&MLTA SETB 1 . MLTA SUPPORT 01020000
AGO .#MEND 01030000
.* 01040000
.#M0 ANOP . *NO* MLTA SUPPORT 01050000
&NOM SETB 1 01060000
.* 01070000
.#MEND ANOP . END OPERAND '#M' 01080000
.* 01090000
.*--------- SET FOR SUPPORT OF BSCA ADAPTER AND DEVICES ------------* 01100000
.* 01110000
AIF (&#B EQ '0').#B0 . SKIP IF *NO* BSCA SUPPORT 01120000
.* 01130000
&BSCA SETB 1 . BSCA SUPPORT 01140000
AGO .#BEND 01150000
.* 01160000
.#B0 ANOP . *NO* BSCA SUPPORT 01170000
&NOB SETB 1 01180000
.* 01190000
.#BEND ANOP . END OPERAND '#B' 01200000
.* 01210000
.*--------- SET FOR COMBINATION OF COMMUNICATIONS SUPPORT ----------* 01220000
.* 01230000
AIF (&BSCA NE '1').ONE . SKIP IF NO BSCA SUPPORT 01240000
AIF (&MLTA).ONEND . SKIP IF MLTA SUPPORT 01250000
.* 01260000
.ONE ANOP . ONLY MLTA *OR* ONLY BSCA 01270000
&ONE SETB 1 01280000
.* 01290000
.ONEND ANOP . END COMBINATION EVALUATION 01300000
.* 01310000
.*--------- SET FOR DATA MODE ESCAPE -------------------------------* 01320000
.* 01330000
AIF (&DE EQ '0').DE0 . SKIP IF *NO* DATA MODE ESCAPE 01340000
.* 01350000
&DME SETB 1 . SET FOR DME SUPPORT 01360000
AGO .DEEND 01370000
.* 01380000
.DE0 ANOP . *NO* DATA MODE ESCAPE 01390000
&NDME SETB 1 . SET *NO* DME SUPPORT 01400000
.* 01410000
.DEEND ANOP . END OPERAND 'DE' 01420000
.* 01430000
.*--------- SET FOR SUPPORT OF DISPLAY FORMAT FACILITY -------------* 01440000
.* 01450000
AIF (&DF EQ '0').DF0 . SKIP IF *NO* DFF SUPPORT 01460000
.* 01470000
&DFF SETB 1 . DFF SUPPORT 01480000
AGO .DFEND 01490000
.* 01500000
.DF0 ANOP . *NO* DFF SUPPORT 01510000
&NDF SETB 1 01520000
.* 01530000
.DFEND ANOP . END OPERAND 'DF' 01540000
.* 01550000
.*--------- SET FOR SUPPORT OF MINIMUM CORE SYSTEM -----------------* 01560000
.* 01570000
AIF (&MS EQ '0').MSEND . SKIP IF *NOT* MINIMUM CORE 01580000
.* 01590000
&MIN SETB 1 . MINIMUM CORE SYSTEM 01600000
.* 01610000
.MSEND ANOP . END OPERAND 'MS' 01620000
.* 01630000
.*--------- END SYSTEM VARIABLE SET MACRO --------------------------* 01640000
.* 01650000
MEND 01660000