|
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: 10160 (0x27b0)
Types: s3xseg
Names: »S$E033«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$E033«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$E033«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E033 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 3, MODIFICATION LEVEL 0 OF 5704-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* COMMUNICATIONS POINTER TABLES FOR STARTUP BUILD OF * 00110000
.* COMMUNICATIONS IOCS MODULES ENTRY POINTS. * 00120000
.* * 00130000
.* INPUT OPERANDS: * 00140000
.* * 00150000
.* . MD1-########,MD2-########,MD3-####,BF-######## * 00160000
.* * 00170000
.* SPECIFIES THE MLTA DEVICES SUPPORTED -- EACH # REPRESENTS A * 00180000
.* 1 (SUPPORTED) OR A 0 (NOT SUPPORTED) * 00190000
.* * 00200000
.* THE DEVICES ARE, RESPECTIVELY: * 00210000
.* * 00220000
.* IN 'MD1': 1050, 1050D, 2740, 2740S, 2740C, 2740SC, 2740D, * 00230000
.* 2740DT * 00240000
.* * 00250000
.* IN 'MD2' 2740DC, 2740DTC, 2740M2S, 2740M2SB, 2740M2SC, * 00260000
.* 2740M2SCB, 2741, 2741D * 00270000
.* * 00280000
.* IN 'MD3': SYS7C, SYS7SC, SYS7DC, CMCSTD * 00290000
.* * 00300000
.* IN 'BF' BSCA FEATURES, GETMSG, ITB, RECSEP, RESPOL, AUTORS, * 00310000
.* EBCDIC, ASCII, XPRNCY * 00320000
.* * 00330000
.********************************************************************** 00340000
$E033 &MD1-00000000,&MD2-00000000,&MD3-0000,&BF-00000000 00350000
.* 00360000
GBLB &MLTA . 1=MLTA PRESENT 00370000
GBLB &BSCA . 1=BSCA PRESENT 00380000
GBLB &NSWL . 1=NO SWITCHED LINE SUPPORT 00390000
GBLB &DFF . 1=DFF IS SUPPORTED 00400000
.* 00410000
LCLC &# . USED FOR SINGLE BLANK 00420000
.* 00430000
TEXT 00440000
.* 00450000
.*--------- GENERATE THE TABLE OF GENERAL POINTERS -----------------* 00460000
.* 00470000
&# SETC ' ' . SINGLE BLANK 00480000
.* 00490000
TITLE 'COMMUNICATIONS&#.INITIALIZATION&#.POINTERS' 00500000
*********************************************************************** 00510000
* C O M M U N I C A T I O N S P O I N T E R S * 00520000
*********************************************************************** 00530000
SPACE 2 00540000
* THE FOLLOWING TABLE CONTAINS ADDRESSES WHICH MUST BE SET INTO 00550000
* DTF'S DURING STARTUP. THE TABLE CONTAINS NON-ZERO VALUES IF: 00560000
* 00570000
* . DFF IS SUPPORTED 00580000
SPACE 00590000
* . MLTA IS SUPPORTED 00600000
SPACE 00610000
* . BSCA IS SUPPORTED WITH RESIDENT POLLING 00620000
* . BSCA IS SUPPORTED WITH AUTO-RESPONSE 00630000
SPACE 1 00640000
***** NOTE - DO NOT CHANGE ORDER OF THESE EXTRNS WITHOUT CHANGING ***** 00642000
***** MODULE $CC4V2. ***** 00644000
SPACE 1 00646000
EXTRN $CC4DF(3) DFF-YES 00650000
EXTRN $CC4#2(3) COMMUNICATIONS MANAGEMENT 00660000
EXTRN $CC4FR(3) TP REQUEST PARM LIST FREEMAIN 00670000
EXTRN ADDRS2(3) MAINTENANCE AREA TABLE ADDRESS 00675000
EXTRN $CC4IB(3) BSCA INTERRUPT HANDLER EXIT 00680000
EXTRN $CC4BT(3) BSCA 00690000
EXTRN $$BSMS(3) BSCA 00700000
EXTRN $CC4M1(3) BSCA - 3270 ONLY VERSION 00705000
EXTRN $$BSAT(3) TWO BSCA LINES 00710000
EXTRN $$BSMA(3) RESPOL-YES 00720000
EXTRN $$BSMB(3) RESPOL-YES 00730000
EXTRN $$BSMC(3) RESPOL-YES 00740000
EXTRN $$BSMD(3) AUTORS-YES 00750000
EXTRN $$BSMF(3) RESPOL-YES 00760000
EXTRN $$BSLG(3) RESPOL-YES 00770000
EXTRN CMCLOZ(3) ADDR FOR C/S OF CLOSE,OPEN 00780000
EXTRN MSBSSA(3) ADDR OF ENTRY POINT FOR TRACE 00785000
EXTRN $CC4IM(3) MLTA INTERRUPT HANDLER EXIT 00790000
EXTRN $$MLRR(3) MLTA-YES 00800000
EXTRN $$MLDI(3) MLTA-YES 00810000
EXTRN $$MLIA(3) MLTA-YES 00820000
EXTRN $$MLIB(3) CS-YES 00830000
EXTRN $$MLIC(3) CS-YES 00840000
EXTRN $$MLID(3) CHECKING TERMINALS 00850000
EXTRN $$MLIF(3) SW TERMINALS 00860000
EXTRN $$MLIG(3) CHECKING TERMINALS 00870000
EXTRN MLTOP1(3) MLTA OPEN 00880000
EXTRN MLTSP0(3) MLTA COMMON 00890000
EXTRN MLTIO1(3) MLTA IOCS 00900000
EXTRN $$MLTB(3) 1050D 00910000
EXTRN $$MLTC(3) 2740/2740S/2740M2S(B) 00920000
EXTRN $$MLTD(3) 2740 00930000
EXTRN $$MLTF(3) 2740D 00940000
EXTRN $$MLTG(3) 2740C/SYS7C 00950000
EXTRN $$MLTH(3) 2740DC/SYS7DC 00960000
EXTRN $$MLTI(3) 2740DT 00970000
EXTRN $$MLTL(3) 2740DTC 00980000
EXTRN $$MLTM(3) 2740(M2)SC(B)/SYS7SC 00990000
EXTRN $$MLTO(3) 2741 01000000
EXTRN $$MLTP(3) 2741D/CMSTD 01010000
EXTRN $CC4V2(3) MAINTENANCE AREA MODULE 01015000
EJECT 01020000
AIF (&DFF EQ '0').S0001 SKIP IF NO DFF SUPPORT. 01030000
.* 01040000
DC AL2($CC4DF) DFF ENTRY POINT ADDRESS. 01050000
SPACE 01060000
.* 01070000
AGO .S0002 01080000
.* 01090000
.S0001 ANOP 01100000
.* 01110000
DC XL2'00' NO DFF SUPPORT. 01120000
.* 01130000
.S0002 ANOP . CONTINUE HERE. 01140000
* BSCA ENTRY POINTS 01150000
SPACE 01160000
DC AL2($CC4IB) ADDRESS OF $CC4IB IN LOAD MOD 01170000
SPACE 1 01180000
.* 01190000
AIF ('&BF'(5,1) EQ '0').S0005 SKIP IF NO AUTORS 01200000
.* 01210000
DC AL2($$BSMD) ADDRESS OF $$BSMD 01220000
SPACE 1 01230000
.* 01240000
AGO .S0006 01250000
.* 01260000
.S0005 ANOP 01270000
.* 01280000
DC XL2'00' IF NO AUTORS 01290000
.* 01300000
.S0006 ANOP CONTINUE HERE. 01310000
.* 01320000
AIF ('&BF'(4,1) EQ '0').S0007 SKIP IF NO RESPOL 01330000
.* 01340000
DC AL2($$BSMA) ADDRESS OF $$BSMA IN LOAD MODULE 01350000
SPACE 1 01360000
DC AL2($$BSMC) ADDRESS OF $$BSMC 01370000
AGO .S0008 01380000
.* 01390000
.S0007 ANOP 01400000
.* 01410000
DC XL4'00' IF NO RESPOL 01420000
.* 01430000
.S0008 ANOP CONTINUE HERE. 01440000
SPACE 1 01470000
DC AL2(CMCLOZ) ADDRESS OF WHERE STARTUP MUST 01480000
* PUT C/S FOR OPEN/CLOSE XIENTS 01490000
SPACE 1 01500000
DC AL2(MSBSSA) ADDRESS OF BSCA TRACE EXTRN 01503000
SPACE 1 01506000
DC AL2($CC4FR) 01510000
SPACE 1 01512000
DC AL2(ADDRS2) ADDRESS OF PTF TABLE FOR #2 01514000
DC AL2($CC4#2) END ADDRESS OF DFF CODE 01516000
AIF (&MLTA NE '1').MTV99 . SKIP IF *NO* MLTA 01520000
SPACE 1 01530000
* MLTA ENTRY POINTS 01540000
SPACE 1 01550000
DC AL2(MLTOP1) ADDRESS OF MLTOP1 IN LOAD MODULE 01560000
SPACE 1 01570000
DC AL2($$MLRR) ADDRESS OF $$MLRR IN LOAD MODULE 01580000
SPACE 1 01590000
DC AL2(MLTSP0) ADDRESS OF AREA IN LOAD MODULE 01600000
SPACE 1 01610000
DC AL2(MLTIO1) ADDRESS OF MLTA IOCS ENTRY POINT 01620000
.* 01630000
AIF ('&MD1'(1,1) NE '1').MTV02 . SKIP IF NO TYPE-1050 01640000
.* 01650000
SPACE 1 01660000
DC CL1'A' FOR $$MLTM--1050 01670000
DC AL2($$MLTM) ADDRESS OF TRANSFER VECTOR 01680000
.* 01690000
.MTV02 ANOP . CONTINUE HERE 01700000
AIF ('&MD1'(2,1) NE '1').MTV03 . SKIP IF NO TYPE-1050D 01710000
.* 01720000
SPACE 1 01730000
DC CL1'B' FOR $$MLTB--1050D 01740000
DC AL2($$MLTB) ADDRESS OF TRANSFER VECTOR 01750000
.* 01760000
.MTV03 ANOP . CONTINUE HERE 01770000
AIF ('&MD1'(4,1) EQ '1').MTVX3 . SKIP IF TYPE-2740S 01780000
AIF ('&MD2'(3,2) EQ '00').MTV04 . SKIP IF NEITHER 2740M2S/SB 01790000
.* 01800000
.MTVX3 ANOP . 2740S/2740M2S/2740M2SB 01810000
SPACE 1 01820000
DC CL1'C' FOR $$MLTC--2740/2740M2S(B) 01830000
DC AL2($$MLTC) ADDRESS OF TRANSFER VECTOR 01840000
.* 01850000
.MTV04 ANOP . CONTINUE HERE 01860000
AIF ('&MD1'(3,1) NE '1').MTV05 . SKIP IF NO TYPE-2740 01870000
.* 01880000
SPACE 1 01890000
DC CL1'D' FOR $$MLTD--2740 01900000
DC AL2($$MLTD) ADDRESS OF TRANSFER VECTOR 01910000
.* 01920000
.MTV05 ANOP . CONTINUE HERE 01930000
AIF ('&MD1'(7,1) NE '1').MTV06 . SKIP IF NO TYPE-2740D 01940000
.* 01950000
SPACE 1 01960000
DC CL1'F' FOR $$MLTF--2740D 01970000
DC AL2($$MLTF) ADDRESS OF TRANSFER VECTOR 01980000
.* 01990000
.MTV06 ANOP . CONTINUE HERE 02000000
AIF ('&MD1'(5,1) EQ '1').MTVX6 . SKIP IF TYPE-2740C 02010000
AIF ('&MD3'(1,1) NE '1').MTV07 . SKIP UNLESS TYPE-SYS7C 02020000
.* 02030000
.MTVX6 ANOP . TYPE-2740C/SYS7C 02040000
SPACE 1 02050000
DC CL1'G' FOR $$MLTG--2740C/SYS7C 02060000
DC AL2($$MLTG) ADDRESS OF TRANSFER VECTOR 02070000
.* 02080000
.MTV07 ANOP . CONTINUE HERE 02090000
AIF ('&MD2'(1,1) EQ '1').MTVX7 . SKIP IF TYPE-2740DC 02100000
AIF ('&MD3'(3,1) NE '1').MTV08 . SKIP UNLESS TYPE-SYS7DC 02110000
.* 02120000
.MTVX7 ANOP . TYPE-2740DC/SYS7DC 02130000
SPACE 1 02140000
DC CL1'H' FOR $$MLTH--2740DC/SYS7DC 02150000
DC AL2($$MLTH) ADDRESS OF TRANSFER VECTOR 02160000
.* 02170000
.MTV08 ANOP . CONTINUE HERE 02180000
AIF ('&MD1'(8,1) NE '1').MTV09 . SKIP UNLESS TYPE-2740DT 02190000
.* 02200000
SPACE 1 02210000
DC CL1'I' FOR $$MLTI--2740DT 02220000
DC AL2($$MLTI) ADDRESS OF TRANSFER VECTOR 02230000
.* 02240000
.MTV09 ANOP . CONTINUE HERE 02250000
AIF ('&MD2'(2,1) NE '1').MTV10 . SKIP UNLESS TYPE-2740DTC 02260000
.* 02270000
SPACE 1 02280000
DC CL1'L' FOR $$MLTL--2740DTC 02290000
DC AL2($$MLTL) ADDRESS OF TRANSFER VECTOR 02300000
.* 02310000
.MTV10 ANOP . CONTINUE HERE 02320000
AIF ('&MD1'(6,1) EQ '1').MTVXA . SKIP IF TYPE-2740SC 02330000
AIF ('&MD2'(5,2) NE '00').MTVXA . SKIP IF TYPE-2740M2SC/SCB 02340000
AIF ('&MD3'(2,1) NE '1').MTV11 . SKIP UNLESS TYPE-SYS7C 02350000
.* 02360000
.MTVXA ANOP . TYPE-2740SC/2740M2SC(B)/SYS7SC 02370000
SPACE 1 02380000
DC CL1'M' FOR $$MLTM--2740(M2)SC(B)/SYS7SC 02390000
.* 02400000
AIF ('&MD1'(1,1) EQ '1').MTVXX . SKIP IF ALREADY EXTRN'D 02410000
.* 02420000
.* 02430000
.MTVXX ANOP . CONTINUE HERE 02440000
DC AL2($$MLTM) ADDRESS OF TRANSFER VECTOR 02450000
.* 02460000
.MTV11 ANOP . CONTINUE HERE 02470000
AIF ('&MD2'(7,1) NE '1').MTV12 . SKIP UNLESS TYPE-2741 02480000
.* 02490000
SPACE 1 02500000
DC CL1'O' FOR $$MLTO--2741 02510000
DC AL2($$MLTO) ADDRESS OF TRANSFER VECTOR 02520000
.* 02530000
.MTV12 ANOP . CONTINUE HERE 02540000
AIF ('&MD2'(8,1) EQ '1').MTVXC . SKIP IF TYPE-2741D 02550000
AIF ('&MD3'(4,1) NE '1').MTV99 . SKIP UNLESS TYPE-CMCSTD 02560000
.* 02570000
.MTVXC ANOP 02580000
SPACE 1 02590000
DC CL1'P' FOR $$MLTP--2741D/CMCSTD 02600000
DC AL2($$MLTP) ADDRESS OF TRANSFER VECTOR 02610000
.* 02620000
.MTV99 ANOP . END INCLUDE TRANSFER VECTORS 02630000
SPACE 1 02640000
DC XL1'00' *** TABLE STOPPER *** 02650000
SPACE 1 02660000
.* 02670000
MEND 02680000