|
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: 5334 (0x14d6)
Types: s3xseg
Names: »S$E004«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$E004«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E004 -- RELEASE 5 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 5, MODIFICATION LEVEL 0 OF 5704-SC2 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION * 00100000
.* -- SETS GLOBAL DEFINITIONS FOR BSCC SUPPORT * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . CS#-# * 00150000
.* * 00160000
.* NUMBER OF BSCC LINES * 00170000
.* * 00180000
.* . CSF-######## * 00190000
.* * 00200000
.* BSCC FEATURES SUPPORTED -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00210000
.* * 00220000
.* FEATURES REPRESENTED ARE, RESPECTIVELY: GETMSG, ITB, RECSEP, * 00230000
.* NOBIT, NOBIT, EBCDIC, ASCII, XPRNCY (XXX00XXX) * 00240000
.* * 00250000
.* . CT-################ * 00260000
.* * 00270000
.* BSCC TERMINALS SUPPORTED -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00280000
.* * 00290000
.* TYPES REPRESENTED ARE, RESPECTIVELY: 3275M1, 3277M1, 3284M1, * 00300000
.* 3286M1, 3275M2, 3277M2, 3284M2, 3286M2, 3735, CPU, 3741 * 00310000
.* * 00320000
.* THE LAST 5 POSITIONS -- ALWAYS 0 -- ARE NOT USED * 00330000
.* * 00340000
.* . CSI-0/1 * 00350000
.* * 00360000
.* BSCC INTERVAL POLLING SUPPORT -- 1=SUPPORT 0=NO SUPPORT * 00370000
.* * 00372000
.* . SIOC-0/1 * 00374000
.* * 00376000
.* SIOC SUPPORT -- 1=SUPPORT 0=NO SUPPORT * 00378000
.* * 00380000
.********************************************************************** 00390000
$E004 &CS#-,&CSF-,&CT-,&CSI-,&SIOC- 00400000
.* 00410000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00420000
.* 00430000
GBLB &CCPU . *NO* CPU SUPPORT: 00440000
.* . 1=*NO* CPU / 0=CPU SUPPORT 00450000
.* 00460000
GBLB &CITB . *NO* ITB SUPPORT: 00470000
.* . 1=*NO* ITB / 0=ITB SUPPORT 00480000
.* 00490000
GBLB &CMSG . *NO* GETMSG SUPPORT: 00500000
.* . 1=*NO* GETMSG / 0=GETMSG 00510000
.* 00520000
GBLB &CTSP . *NO* TRANSPARENCY SUPPORT: 00530000
.* . 1=*NO* TSP / 0=TSP SUPPORT 00540000
.* 00550000
GBLB &C32 . *NO* 3270 SUPPORT: 00560000
.* . 1=*NO* 3270 / 0=3270 SUPPORT 00570000
.* 00580000
GBLB &C37 . *NO* 3735 SUPPORT: 00590000
.* . 1=*NO* 3735 / 0=3735 SUPPORT 00600000
.* 00610000
GBLB &C41 . *NO* 3741 SUPPORT: 00620000
.* . 1=*NO* 3741 / 0=3741 SUPPORT 00630000
.* 00640000
GBLB &CEBC . *NO* EBCDIC SUPPORT: 00650000
.* . 1=*NO* EBCDIC/ 0=EBCDIC SUPT 00660000
.* 00670000
GBLB &CACI . *NO* ASCII SUPPORT: 00680000
.* . 1=*NO* ASCII / 0=ASCII SUPRT 00690000
.* 00700000
GBLB &CINT . INTERVAL POLLING SUPPORT 00710000
.* . 1=NO SUPPORT 0=SUPPORT 00720000
.* 00730000
GBLB &CRSP . *NO* REC SEP BYTE 00740000
.* . 1=NO SUPPORT 0=SUPPORT 00750000
.* 00760000
GBLA &C#NL . NUMBER OF BSCC LINES 00770000
.* . VALUES OF 1 OR 2 00780000
.* 00790000
GBLB &CSIO . *NO* SIOC 00792000
.* . 1=NO SUPPORT 0=SUPPORT 00794000
.* 00796000
TEXT 00800000
.* 00810000
.*--------- SET FOR BSCC FEATURE SUPPORT ---------------------------* 00820000
.* 00830000
AIF ('&CSF'(1,1) EQ '1').CF2 . SKIP IF GETMSG-YES 00840000
.* 00850000
&CMSG SETB 1 . SET *NO* GETMSG SUPPORT 00860000
.* 00870000
.CF2 ANOP 00880000
.* 00890000
AIF (&CSI EQ '1').IN0 . SKIP IF INTERVAL POLLING 00900000
.* . SUPPORT 00910000
.* 00920000
&CINT SETB 1 . SET NO INTERVAL POLLING SUPP 00930000
.* 00940000
.IN0 ANOP 00950000
AIF ('&CSF'(2,1) EQ '1').CF3 . SKIP IF ITB SUPPORT 00960000
.* 00970000
&CITB SETB 1 . SET *NO* ITB SUPPORT 00980000
.* 00990000
.CF3 ANOP 01000000
AIF ('&CSF'(3,1) EQ '1').CF6 .SKIP IF RECSEP SUPPORTED 01010000
.* 01020000
&CRSP SETB 1 . SET *NO* RECSEP SUPPORT 01030000
.* 01040000
.CF6 ANOP 01050000
AIF ('&CSF'(6,1) EQ '1').CF7 . SKIP IF EBCDIC SUPPORTED 01060000
.* 01070000
&CEBC SETB 1 . SET *NO* EBCDIC SUPPORT 01080000
.* 01090000
.CF7 ANOP 01100000
AIF ('&CSF'(7,1) EQ '1').CF8 . SKIP IF ASCII SUPPORTED 01110000
.* 01120000
&CACI SETB 1 . SET *NO* ASCII SUPPORT 01130000
.* 01140000
.CF8 ANOP 01150000
AIF ('&CSF'(8,1) EQ '1').CFEND . SKIP IF XPRNCY-YES 01160000
.* 01170000
&CTSP SETB 1 . SET *NO* TRANSPARENCY 01180000
.* 01190000
.CFEND ANOP . END OPERAND 'CSF' 01200000
.* 01210000
.*--------- SET FOR BSCC DEVICE SUPPORT ----------------------------* 01220000
.* 01230000
AIF ('&CT'(1,8) NE '00000000').CT2 . SKIP IF 3270 SUPPORT 01240000
.* 01250000
&C32 SETB 1 . SET *NO* 3270 SUPPORT 01260000
.* 01270000
.CT2 ANOP 01280000
AIF ('&CT'(9,1) EQ '1').CT3 . SKIP IF 3735 SUPPORTED 01290000
.* 01300000
&C37 SETB 1 . SET *NO* 3735 SUPPORT 01310000
.* 01320000
.CT3 ANOP 01330000
AIF ('&CT'(10,1) EQ '1').CT4 . SKIP IF CPU SUPPORTED 01340000
.* 01350000
&CCPU SETB 1 . SET *NO* CPU SUPPORT 01360000
.* 01370000
.CT4 ANOP 01380000
AIF ('&CT'(11,1) EQ '1').CTEND SKIP IF 3741 SUPPORTED 01390000
.* 01400000
&C41 SETB 1 . SET *NO* 3741 SUPPORT 01410000
.* 01420000
.CTEND ANOP . END OPERAND 'CT' 01430000
.* 01440000
.*--------- INDICATE # OF BSCC LINES -------------------------------* 01450000
.* 01460000
&C#NL SETA &CS# . SET NUMBER OF BSCC LINES 01470000
.* 01480000
.*--------- INDICATE SIOC SUPPORT ----------------------------------* 01481000
.* 01482000
AIF (&SIOC EQ '1').SIO . SKIP IF SIOC 01483000
.* . SUPPORT 01484000
.* 01485000
&CSIO SETB 1 . SET *NO* SIOC SUPPORT 01486000
.* 01487000
.SIO ANOP 01488000
.* 01490000
.* 01500000
MEND 01510000