|
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«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E003«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E003 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 15 MODIFICATION LEVEL 0 OF 5702-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
.********************************************************************** 00370000
$E003 &BL-,&BF-,&BT-,&RF-,&BIA-,&BY- @L 00380000
.* 00390000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00400000
.* 00410000
GBLB &NCPU . *NO* CPU SUPPORT: 00420000
.* . 1=*NO* CPU / 0=CPU SUPPORT 00430000
.* 00440000
GBLB &NITB . *NO* ITB SUPPORT: 00450000
.* . 1=*NO* ITB / 0=ITB SUPPORT 00460000
.* 00470000
GBLB &NMSG . *NO* GETMSG SUPPORT: 00480000
.* . 1=*NO* GETMSG / 0=GETMSG 00490000
.* 00500000
GBLB &NTSP . *NO* TRANSPARENCY SUPPORT: 00510000
.* . 1=*NO* TSP / 0=TSP SUPPORT 00520000
.* 00530000
GBLB &N32 . *NO* 3270 SUPPORT: 00540000
.* . 1=*NO* 3270 / 0=3270 SUPPORT 00550000
.* 00560000
GBLB &N37 . *NO* 3735 SUPPORT: 00570000
.* . 1=*NO* 3735 / 0=3735 SUPPORT 00580000
.* 00590000
GBLB &NAS . *NO* ASCII SUPPORT: 00600000
.* . 1=*NO* ASCII / 0=ASCII SUPRT 00610000
.* 00620000
GBLB &N41 . *NO* 3741 SUPPORT: 00630000
.* . 1=*NO* 3741I / 0=3741 SUPRT 00640000
.* 00650000
GBLB &NPP . *NO* POINT-TO-POINT SUPPORT: 00660000
.* . 1=*NO* P-TO-P / 0=P-TO-P 00670000
.* 00680000
GBLB &NMP . *NO* MULTIPOINT TRIBUTARY SPRT 00690000
.* . 1=*NO* MP / 0=MP SUPPORT 00700000
.* 00710000
GBLB &NSWL . *NO* SWITCHED BSCA LINES 00720000
.* . 1=*NO* SW / 0=SW LINE SUP'RT 00730000
.* 00740000
GBLB &NCS . *NO* CONTROL STATION SUPPORT: 00750000
.* . 1=*NO* CS / 0=CS SUPPORT 00760000
.* 00770000
GBLB &RUF . PGM READ UNDER FORMAT 00780000
.* . FACILITY:1=SUPPORTED/0=NOT 00790000
.* 00800000
.* 00810000
GBLB &NRUF . INVERSE OF &RUF 00820000
.* 00830000
.* 00840000
GBLB &BPRT . 328X BUSY PRINTER @L 00842000
.* 0=NOT SUPPORTED,1=SUPPORTED @L 00844000
.* @L 00846000
.* @L 00848000
GBLB &NBDA . LDA SUPPORT 00850000
.* 1=NOT SUPPORTED,0=SUPPORTED 00860000
TEXT 00870000
.* 00880000
.*--------- SET FOR LINE TYPES SUPPORTED ---------------------------* 00890000
.* 00900000
AIF ('&BL'(1,1) EQ '1').BL2 . SKIP IF PP SUPPORT 00910000
.* 00920000
&NPP SETB 1 . SET *NO* PP SUPPORT 00930000
.* 00940000
.BL2 ANOP 00950000
AIF ('&BL'(2,1) EQ '1').BL3 . SKIP IF MP SUPPORT 00960000
.* 00970000
&NMP SETB 1 . SET *NO* MP SUPPORT 00980000
.* 00990000
.BL3 ANOP 01000000
AIF ('&BL'(3,1) EQ '1').BL4 . SKIP IF CS SUPPORT 01010000
.* 01020000
&NCS SETB 1 . SET *NO* CS SUPPORT 01030000
.* 01040000
.BL4 ANOP 01050000
AIF ('&BL'(4,1) EQ '1').BLEND . SKIP IF DIAL SUPPORT 01060000
.* 01070000
&NSWL SETB 1 . SET *NO* DIAL SUPPORT 01080000
.* 01090000
.BLEND ANOP . END OPERAND 'BL' 01100000
.* 01110000
.*--------- SET FOR BSCA FEATURE SUPPORT ---------------------------* 01120000
.* 01130000
AIF ('&BF'(1,1) EQ '1').BF2 . SKIP IF GETMSG-YES 01140000
.* 01150000
&NMSG SETB 1 . SET *NO* GETMSG SUPPORT 01160000
.* 01170000
.BF2 ANOP 01180000
AIF ('&BF'(2,1) EQ '1').BF3 . SKIP IF ITB SUPPORT 01190000
.* 01200000
&NITB SETB 1 . SET *NO* ITB SUPPORT 01210000
.* 01220000
.BF3 ANOP 01230000
AIF ('&BF'(7,1) EQ '1').BF8 . SKIP IF ASCII SUPPORTED 01240000
.* 01250000
&NAS SETB 1 . SET *NO* ASCII SUPPORT 01260000
.* 01270000
.BF8 ANOP 01280000
AIF ('&BF'(8,1) EQ '1').BFEND . SKIP IF XPRNCY-YES 01290000
.* 01300000
&NTSP SETB 1 . SET *NO* TRANSPARENCY 01310000
.* 01320000
.BFEND ANOP . END OPERAND 'BF' 01330000
.* 01340000
.*--------- SET FOR SUPPORT OF PROG:AM READ UNDER FORMAT FACILITY 01350000
.* 01360000
AIF (&RF EQ '0').RF0 . SKIP IF *NO* PRUF SUPPORT 01370000
.* 01380000
&RUF SETB 1 . RUF SUPPORT 01390000
AGO .RFEND 01400000
.* 01410000
.RF0 ANOP . *NO* PRUF SUPPORT 01420000
&NRUF SETB 1 01430000
.* 01440000
.RFEND ANOP . END OPERAND 'PRUF' 01450000
.* 01460000
.*--------- SET FOR BSCA DEVICE SUPPORT ----------------------------* 01470000
.* 01480000
AIF ('&BT'(1,8) NE '00000000').BT2 . SKIP IF 3270 SUPPORT 01490000
.* 01500000
&N32 SETB 1 . SET *NO* 3270 SUPPORT 01510000
.* 01520000
.BT2 ANOP 01530000
AIF ('&BT'(9,1) EQ '1').BT3 . SKIP IF 3735 SUPPORTED 01540000
.* 01550000
&N37 SETB 1 . SET *NO* 3735 SUPPORT 01560000
.* 01570000
.BT3 ANOP 01580000
AIF ('&BT'(10,1) EQ '1').BT4 . SKIP IF CPU SUPPORTED 01590000
.* 01600000
&NCPU SETB 1 . SET *NO* CPU SUPPORT 01610000
.* 01620000
.BT4 ANOP 01630000
AIF ('&BT'(11,1) EQ '1').BTEND . SKIP IF 3741 SUPPORTED. 01640000
.* 01650000
&N41 SETB 1 . SET *NO* 3741 SUPPORT. 01660000
.* 01670000
.BTEND ANOP . END OPERAND 'BT' 01680000
.* 01690000
AIF (&BIA EQ '1').ALEX . SKIP IF LDA IS SUPPORTED 01700000
&NBDA SETB 1 . SET *NO* LDA GLOBAL 01710000
.* 01720000
.ALEX ANOP . END OPERAND 'BIA' 01730000
.* @L 01731000
AIF (&BY EQ '0').NBY . SKIP IF NO BSYPRT SUPPORT @L 01732000
&BPRT SETB 1 . SET BUSY PRINT GLOBAL @L 01733000
.* @L 01734000
.NBY ANOP . END OPERAND 'BY' @L 01735000
.* 01740000
MEND 01750000