|
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: 3302 (0xce6)
Types: s3xseg
Names: »S$E002«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E002«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E002 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION -- SET GLOBAL * 00100000
.* SYMBOLS FOR MLTA COMMUNICATIONS SUPPORT * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . ML-## * 00150000
.* * 00160000
.* LINE TYPES -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00170000
.* * 00180000
.* TYPES ARE, RESPECTIVELY: STATION-CONTROL, SWITCHED * 00190000
.* * 00200000
.* . MT-### * 00210000
.* * 00220000
.* TERMINAL TYPES -- #EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00230000
.* * 00240000
.* TYPES ARE, RESPECTIVELY: 1050, 2741, BUFFERED-RECEIVE-DEVICE * 00250000
.* * 00260000
.* . MF-# * 00270000
.* * 00280000
.* FEATURES SUPPORTED -- EACH # IS 1 (SUPPORTED) / 0 (NOT) * 00290000
.* * 00300000
.* FEATURES ARE, RESPECTIVELY: MOVE-WITHOUT-TRANSLATE * 00310000
.* * 00320000
.********************************************************************** 00330000
$E002 &ML-,&MT-,&MF- 00340000
.* 00350000
.*--------- GLOBAL VARIABLES ---------------------------------------* 00360000
.* 00370000
GBLB &NSCTL . *NO* STATION CONTROL SUPPORT: 00380000
.* . 1=*NO* STA CTL / 0=STA CTL 00390000
.* 00400000
GBLB &NSW . *NO* SWITCHED LINE SUPPORT: 00410000
.* . 1=*NO* SW LINE / 0=SW LINES 00420000
.* 00430000
GBLB &N1050 . *NO* 1050 SUPPORT: 00440000
.* . 1=*NO* 1050 / 0=1050 SUPPORT 00450000
.* 00460000
GBLB &N2741 . *NO* 2741 SUPPORT 00470000
.* . 1=*NO* 2741 / 0=2741 SUPPORT 00480000
.* 00490000
GBLB &NBFR . *NO* BUFFERED-RECEIVE SUPPORT: 00500000
.* . 1=*NO* BUFRCV / 0=BUFRCV 00510000
.* 00520000
GBLB &NMOVE . *NO* MOVE-WITHOUT-TRANSLATE: 00530000
.* . 1=*NO* MOVE / 0=MOVE SUPPORT 00540000
.* 00550000
TEXT 00560000
.* 00570000
.*--------- SET FOR SUPPORT OF LINE TYPES --------------------------* 00580000
.* 00590000
AIF ('&ML'(1,1) EQ '1').ML2 . SKIP IF STA CTL SUPPORT 00600000
.* 00610000
&NSCTL SETB 1 . SET *NO* STA CTL SUPPORT 00620000
.* 00630000
.ML2 ANOP 00640000
AIF ('&ML'(2,1) EQ '1').MLEND . SKIP IF SWITCHED LINES 00650000
.* 00660000
&NSW SETB 1 . SET *NO* SWITCHED LINE SUPPORT 00670000
.* 00680000
.MLEND ANOP . END OPERAND 'ML' 00690000
.* 00700000
.*--------- SET FOR SUPPORT OF TERMINAL TYPES ----------------------* 00710000
.* 00720000
AIF ('&MT'(1,1) EQ '1').MT2 . SKIP IF 1050 SUPPORT 00730000
.* 00740000
&N1050 SETB 1 . SET *NO* 1050 SUPPORT 00750000
.* 00760000
.MT2 ANOP 00770000
AIF ('&MT'(2,1) EQ '1').MT3 . SKIP IF 2741 SUPPORT 00780000
.* 00790000
&N2741 SETB 1 . SET *NO* 2741 SUPPORT 00800000
.* 00810000
.MT3 ANOP 00820000
AIF ('&MT'(3,1) EQ '1').MTEND . SKIP IF BUF RCV DEVICE SUPPORT 00830000
.* 00840000
&NBFR SETB 1 . SET FOR *NO* BUF RCV SUPPORT 00850000
.* 00860000
.MTEND ANOP . END OPERAND 'MT' 00870000
.* 00880000
.*--------- SET FOR SUPPORT OF PROGRAM FEATURES --------------------* 00890000
.* 00900000
AIF (&MF EQ '1').MFEND . SKIP IF MOVE-WITHOUT-TRANSLATE 00910000
.* 00920000
&NMOVE SETB 1 . SET *NO* MOVE-WITHOUT-TRANSLAT 00930000
.* 00940000
.MFEND ANOP . END OPERAND 'MF' 00950000
.* 00960000
MEND 00970000