|
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$E003«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$E003«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E003 -- RELEASE 3 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 3, MODIFICATION LEVEL 0 OF 5704-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION -- SET GLOBAL * 00100000
.* SYMBOLS FOR BSCA SUPPORT * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . BL-#### * 00150000
.* * 00160000
.* BSCA LINE TYPES -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00170000
.* * 00180000
.* TYPES REPRESENTED ARE, RESPECTIVELY: PP, MP, CS, DIAL * 00190000
.* * 00200000
.* . BF-######## * 00210000
.* * 00220000
.* BSCA FEATURES SUPPORTED -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00230000
.* * 00240000
.* FEATURES REPRESENTED ARE, RESPECTIVELY: GETMSG, ITB, RECSEP, * 00250000
.* RESPOL, AUTORS, EBCDIC, ASCII, XPRNCY * 00260000
.* * 00270000
.* . BT-################ * 00280000
.* * 00290000
.* BSCA TERMINALS SUPPORTED -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00300000
.* * 00310000
.* TYPES REPRESENTED ARE, RESPECTIVELY: 3275M1, 3277M1, 3284M1, * 00320000
.* 3286M1, 3275M2, 3277M2, 3284M2, 3286M2, 3735, CPU, 3741 * 00330000
.* * 00340000
.* THE LAST 5 POSITIONS -- ALWAYS 0 -- ARE NOT USED * 00350000
.* * 00360000
.* . INP-0/1 * 00370000
.* * 00380000
.* INTERVAL POLLING SUPPORT -- 1=SUPPORT 0=NO SUPPORT * 00390000
.* * 00400000
.********************************************************************** 00410000
$E003 &BL-,&BF-,&BT-,&INP-,&BIA-,&BY- 00420000
.* 00430000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00440000
.* 00450000
GBLB &NCPU . *NO* CPU SUPPORT: 00460000
.* . 1=*NO* CPU / 0=CPU SUPPORT 00470000
.* 00480000
GBLB &NITB . *NO* ITB SUPPORT: 00490000
.* . 1=*NO* ITB / 0=ITB SUPPORT 00500000
.* 00510000
GBLB &NMSG . *NO* GETMSG SUPPORT: 00520000
.* . 1=*NO* GETMSG / 0=GETMSG 00530000
.* 00540000
GBLB &NTSP . *NO* TRANSPARENCY SUPPORT: 00550000
.* . 1=*NO* TSP / 0=TSP SUPPORT 00560000
.* 00570000
GBLB &N32 . *NO* 3270 SUPPORT: 00580000
.* . 1=*NO* 3270 / 0=3270 SUPPORT 00590000
.* 00600000
GBLB &N37 . *NO* 3735 SUPPORT: 00610000
.* . 1=*NO* 3735 / 0=3735 SUPPORT 00620000
.* 00630000
GBLB &N41 . *NO* 3741 SUPPORT: 00640000
.* . 1=*NO* 3741 / 0=3741 SUPPORT 00650000
.* 00660000
GBLB &NAS . *NO* ASCII SUPPORT: 00670000
.* . 1=*NO* ASCII / 0=ASCII SUPRT 00680000
.* 00690000
GBLB &NPP . *NO* POINT-TO-POINT SUPPORT: 00700000
.* . 1=*NO* P-TO-P / 0=P-TO-P 00710000
.* 00720000
GBLB &NMP . *NO* MULTIPOINT TRIBUTARY SPRT 00730000
.* . 1=*NO* MP / 0=MP SUPPORT 00740000
.* 00750000
GBLB &NSWL . *NO* SWITCHED BSCA LINES 00760000
.* . 1=*NO* SW / 0=SW LINE SUP'RT 00770000
.* 00780000
GBLB &NCS . *NO* CONTROL STATION SUPPORT: 00790000
.* . 1=*NO* CS / 0=CS SUPPORT 00800000
.* 00810000
GBLB &NINT . INTERVAL POLLING SUPPORT 00820000
.* . 1=NO SUPPORT 0=SUPPORT 00830000
.* 00840000
GBLB &NBDA . DA SUPPORT 00850000
.* 00852000
GBLB &NPBY . *NO* PRINTER BUSY SUPPORT: 00854000
.* . 1=NO SUPPORT 0=SUPPORT 00856000
.* 00860000
.* 00870000
TEXT 00880000
.* 00890000
.*--------- SET FOR LINE TYPES SUPPORTED ---------------------------* 00900000
.* 00910000
AIF ('&BL'(1,1) EQ '1').BL2 . SKIP IF PP SUPPORT 00920000
.* 00930000
&NPP SETB 1 . SET *NO* PP SUPPORT 00940000
.* 00950000
.BL2 ANOP 00960000
AIF ('&BL'(2,1) EQ '1').BL3 . SKIP IF MP SUPPORT 00970000
.* 00980000
&NMP SETB 1 . SET *NO* MP SUPPORT 00990000
.* 01000000
.BL3 ANOP 01010000
AIF ('&BL'(3,1) EQ '1').BL4 . SKIP IF CS SUPPORT 01020000
.* 01030000
&NCS SETB 1 . SET *NO* CS SUPPORT 01040000
.* 01050000
.BL4 ANOP 01060000
AIF ('&BL'(4,1) EQ '1').BLEND . SKIP IF DIAL SUPPORT 01070000
.* 01080000
&NSWL SETB 1 . SET *NO* DIAL SUPPORT 01090000
.* 01100000
.BLEND ANOP . END OPERAND 'BL' 01110000
.* 01120000
.*--------- SET FOR BSCA FEATURE SUPPORT ---------------------------* 01130000
.* 01140000
AIF ('&BF'(1,1) EQ '1').BF2 . SKIP IF GETMSG-YES 01150000
.* 01160000
&NMSG SETB 1 . SET *NO* GETMSG SUPPORT 01170000
.* 01180000
.BF2 ANOP 01190000
.* 01200000
AIF (&INP EQ '1').IN0 . SKIP IF INTERVAL POLLING 01210000
.* . SUPPORT 01220000
.* 01230000
&NINT SETB 1 . SET NO INTERVAL POLLING SUPP 01240000
.* 01250000
.IN0 ANOP 01260000
AIF ('&BF'(2,1) EQ '1').BF3 . SKIP IF ITB SUPPORT 01270000
.* 01280000
&NITB SETB 1 . SET *NO* ITB SUPPORT 01290000
.* 01300000
.BF3 ANOP 01310000
AIF ('&BF'(7,1) EQ '1').BF8 . SKIP IF ASCII SUPPORTED 01320000
.* 01330000
&NAS SETB 1 . SET *NO* ASCII SUPPORT 01340000
.* 01350000
.BF8 ANOP 01360000
AIF ('&BF'(8,1) EQ '1').BFEND . SKIP IF XPRNCY-YES 01370000
.* 01380000
&NTSP SETB 1 . SET *NO* TRANSPARENCY 01390000
.* 01400000
.BFEND ANOP . END OPERAND 'BF' 01410000
.* 01411000
AIF (&BY EQ '1').BYEND . SKIP IF PRINTER BUSY SUPPORT 01412000
.* 01413000
&NPBY SETB 1 . SET *NO* PRINTER BUSY SUPPORT 01414000
.* 01415000
.BYEND ANOP 01416000
.* 01420000
.*--------- SET FOR BSCA DEVICE SUPPORT ----------------------------* 01430000
.* 01440000
AIF ('&BT'(1,8) NE '00000000').BT2 . SKIP IF 3270 SUPPORT 01450000
.* 01460000
&N32 SETB 1 . SET *NO* 3270 SUPPORT 01470000
.* 01480000
.BT2 ANOP 01490000
AIF ('&BT'(9,1) EQ '1').BT3 . SKIP IF 3735 SUPPORTED 01500000
.* 01510000
&N37 SETB 1 . SET *NO* 3735 SUPPORT 01520000
.* 01530000
.BT3 ANOP 01540000
AIF ('&BT'(10,1) EQ '1').BT4 . SKIP IF CPU SUPPORTED 01550000
.* 01560000
&NCPU SETB 1 . SET *NO* CPU SUPPORT 01570000
.* 01580000
.BT4 ANOP 01590000
AIF ('&BT'(11,1) EQ '1').BTEND SKIP IF 3741 SUPPORTED 01600000
.* 01610000
&N41 SETB 1 . SET *NO* 3741 SUPPORT 01620000
.* 01630000
.BTEND ANOP . END OPERAND 'BT' 01640000
.* 01650000
.*--------- SET 'DA' SUPPORT-----------------------------------------* 01660000
AIF (&BIA EQ '1').ENDDA . SKIP IF 'DA'-YES 01670000
.* 01680000
&NBDA SETB 1 . SET *NO* DA SUPPORT 01690000
.* 01700000
.ENDDA ANOP . END PARAMETER 'DA' 01710000
.* 01720000
MEND 01730000