|
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: 5842 (0x16d2)
Types: s3xseg
Names: »S$E000«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$E000«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E000 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 3, MODIFICATION LEVEL 0 MODEL 15 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION -- SET SYSTEM * 00100000
.* GLOBAL VARIABLES * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . #M-0/1/2/3/4/5/6/7/8 * 00150000
.* * 00160000
.* . NUMBER OF MLTA LINES SUPPORTED * 00170000
.* * 00180000
.* . #B-0/1/2 * 00190000
.* * 00200000
.* NUMBER OF BSC ADAPTERS SUPPORTED * 00210000
.* * 00220000
.* . DF-0/1 * 00230000
.* * 00240000
.* 1=DISPLAY FORMAT FACILITY SUPPORTED / 0=NOT SUPPORTED * 00250000
.* * 00260000
.* . DE-0/1 * 00270000
.* * 00280000
.* 1=DATA MODE ESCAPE SUPPORTED / 0=NOT SUPPORTED * 00290000
.* * 00300000
.* . MS-0/1 * 00310000
.* * 00320000
.* 1=MINIMUM CORE SYSTEM SUPPORT / 0=NOT MINIMUM CORE SUPPORT * 00330000
.* * 00340000
.* . RF-0/1 * 00350000
.* * 00360000
.* 1=READ UNDER FORMAT FACILITY SUPPORTED / 0= NOT SUPPORTED. * 00370000
.* * 00380000
.* . RS-0/1 00390000
.* 00400000
.* 1=RESIDENT ACCEPT INPUT FACILITY SUPPORTED / 0=NOT SUPPORTED 00410000
.* 00420000
.********************************************************************** 00430000
$E000 &#M-,&#B-,&DF-,&MS-,&DE-,&RF-,&RS- 00440000
.* 00450000
.*--------- SYSTEM GLOBAL VARIABLES --------------------------------* 00460000
.* 00470000
GBLA &MLA,&BSC . # OF TP LINES. 00480000
.* 00490000
GBLB &MLTA . MLTA SUPPORT: 00500000
.* . 1=SUPPORTED / 0=NOT 00510000
.* 00520000
GBLB &NOM . INVERSE OF &MLTA 00530000
.* 00540000
GBLB &BSCA . BSCA SUPPORT: 00550000
.* . 1=SUPPORTED / 0=NOT 00560000
.* 00570000
GBLB &NOB . INVERSE OF &BSCA 00580000
.* 00590000
GBLB &ONE . SUPPORT OF SINGLE ADAPTER TYPE 00600000
.* . 1=MLTA *OR* BSCA / 0=BOTH 00610000
.* 00620000
GBLB &DME . DATA MODE ESCAPE SUPPORT: 00630000
.* . 1=SUPPORTED / 0=NOT 00640000
.* 00650000
GBLB &NDME . INVERSE OF &DME 00660000
.* 00670000
GBLB &DFF . DISPLAY FORMAT FACILITY: 00680000
.* . 1=SUPPORTED / 0=NOT 00690000
.* 00700000
GBLB &NDF . INVERSE OF &DFF 00710000
.* 00720000
GBLB &RUF . READ UNDER FORMAT FACILITY: 00730000
.* . 1=SUPPORTED / 0=NOT 00740000
.* 00750000
GBLB &NRUF . INVERSE OF &RUF 00760000
.* 00770000
GBLB &RAI . RESIDENT ACCEPT INPUT FACILITY 00780000
.* . 1=SUPPORTED / 0=NOT 00790000
GBLB &NRAI . INVERSE OF &RAI 00800000
.* 00810000
.* 00820000
GBLB &MIN . SUPPORT OF MINIMUM-CORE SYSTEM 00830000
.* . 1=MINIMUM CORE / 0=NOT 00840000
.* 00850000
TEXT 00860000
.* 00870000
.*--------- SET FOR SUPPORT OF MLTA ADAPTER AND DEVICES 00880000
.* 00890000
AIF (&#M EQ '0').#M0 . SKIP IF *NO* MLTA 00900000
.* 00910000
&MLTA SETB 1 . MLTA SUPPORT 00920000
&MLA SETA &#M . # OF MLTA LINES 00930000
AGO .#MEND 00940000
.* 00950000
.#M0 ANOP . *NO* MLTA SUPPORT 00960000
&NOM SETB 1 00970000
.* 00980000
.#MEND ANOP . END OPERAND '#M' 00990000
.* 01000000
.*--------- SET FOR SUPPORT OF BSCA ADAPTER AND DEVICES ------------* 01010000
.* 01020000
AIF (&#B EQ '0').#B0 . SKIP IF *NO* BSCA SUPPORT 01030000
.* 01040000
&BSCA SETB 1 . BSCA SUPPORT 01050000
&BSC SETA &#B . # OF BSCA LINES 01060000
AGO .#BEND 01070000
.* 01080000
.#B0 ANOP . *NO* BSCA SUPPORT 01090000
&NOB SETB 1 01100000
.* 01110000
.#BEND ANOP . END OPERAND '#B' 01120000
.* 01130000
.*--------- SET FOR COMBINATION OF COMMUNICATIONS SUPPORT ----------* 01140000
.* 01150000
AIF (&BSCA NE '1').ONE . SKIP IF NO BSCA SUPPORT 01160000
AIF (&MLTA).ONEND . SKIP IF MLTA SUPPORT 01170000
.* 01180000
.ONE ANOP . ONLY MLTA *OR* ONLY BSCA 01190000
&ONE SETB 1 01200000
.* 01210000
.ONEND ANOP . END COMBINATION EVALUATION 01220000
.* 01230000
.*--------- SET FOR DATA MODE ESCAPE -------------------------------* 01240000
.* 01250000
AIF (&DE EQ '0').DE0 . SKIP IF *NO* DATA MODE ESCAPE 01260000
.* 01270000
&DME SETB 1 . SET FOR DME SUPPORT 01280000
AGO .DEEND 01290000
.* 01300000
.DE0 ANOP . *NO* DATA MODE ESCAPE 01310000
&NDME SETB 1 . SET *NO* DME SUPPORT 01320000
.* 01330000
.DEEND ANOP . END OPERAND 'DE' 01340000
.* 01350000
.*--------- SET FOR SUPPORT OF DISPLAY FORMAT FACILITY -------------* 01360000
.* 01370000
AIF (&DF EQ '0').DF0 . SKIP IF *NO* DFF SUPPORT 01380000
.* 01390000
&DFF SETB 1 . DFF SUPPORT 01400000
AGO .DFEND 01410000
.* 01420000
.DF0 ANOP . *NO* DFF SUPPORT 01430000
&NDF SETB 1 01440000
.* 01450000
.DFEND ANOP . END OPERAND 'DF' 01460000
.* 01470000
.*--------- SET FOR SUPPORT OF READ UNDER FORMAT FACILITY ----------* 01480000
.* 01490000
AIF (&RF EQ '0').RF0 . SKIP IF *NO* RUF SUPPORT 01500000
.* 01510000
&RUF SETB 1 . RUF SUPPORT 01520000
AGO .RFEND 01530000
.* 01540000
.RF0 ANOP . *NO* RUF SUPPORT 01550000
&NRUF SETB 1 01560000
.* 01570000
.RFEND ANOP . END OPERAND 'RUF' 01580000
.* 01590000
.*-----------SET FOR SUPPORT OF RESIDENT ACCEPT INPUT ---------------* 01600000
.* 01610000
AIF (&RS EQ '0').RS0 . SKIP IF *NO* ACCEPT SUPPORT 01620000
.* 01630000
&RAI SETB 1 . 'ACCEPT' SUPPORT 01640000
AGO .RSEND 01650000
.* 01660000
.RS0 ANOP . *NO* ACCEPT SUPPORT 01670000
&NRAI SETB 1 01680000
.* 01690000
.RSEND ANOP . END OPERAND 'ACCEPT' 01700000
.* 01710000
.*--------- SET FOR SUPPORT OF MINIMUM CORE SYSTEM -----------------* 01720000
.* 01730000
AIF (&MS EQ '0').MSEND . SKIP IF *NOT* MINIMUM CORE 01740000
.* 01750000
&MIN SETB 1 . MINIMUM CORE SYSTEM 01760000
.* 01770000
.MSEND ANOP . END OPERAND 'MS' 01780000
.* 01790000
.*--------- END SYSTEM VARIABLE SET MACRO --------------------------* 01800000
.* 01810000
* PTF LOG NO.-214,LEVEL-04,NAME-$E085
* PTF LOG NO.-214,LEVEL-04,NAME-$E093
MEND 01820000