|
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: 7874 (0x1ec2)
Types: s3xseg
Names: »S$E033«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E033«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $E033 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* COMMUNICATIONS POINTER TABLES FOR STARTUP BUILD OF * 00110000
.* COMMUNICATIONS CONTROL BLOCKS * 00120000
.* * 00130000
.* INPUT OPERANDS: * 00140000
.* * 00150000
.* . BF-######## * 00160000
.* * 00170000
.* WHERE EACH # IS '1' OR '0', REPRESENTING A FEATURE AS * 00180000
.* SUPPORTED OR NOT. FEATURES ARE, RESPECTIVELY,: GETMSG, * 00190000
.* ITB,RECSEP,RESPOL,AUTORS,EBCDIC,ASCII,XPRNCY * 00200000
.* * 00210000
.* . MD1-########,MD2-########,MD3-#### * 00220000
.* * 00230000
.* SPECIFIES THE MLTA DEVICES SUPPORTED -- EACH # REPRESENTS A * 00240000
.* 1 (SUPPORTED) OR A 0 (NOT SUPPORTED) * 00250000
.* * 00260000
.* THE DEVICES ARE, RESPECTIVELY: * 00270000
.* * 00280000
.* IN 'MD1': 1050, 1050D, 2740, 2740S, 2740C, 2740SC, 2740D, * 00290000
.* 2740DT * 00300000
.* * 00310000
.* IN 'MD2' 2740DC, 2740DTC, 2740M2S, 2740M2SB, 2740M2SC, * 00320000
.* 2740M2SCB, 2741, 2741D * 00330000
.* * 00340000
.* IN 'MD3': SYS7C, SYS7SC, SYS7DC, CMCSTD * 00350000
.* * 00360000
.********************************************************************** 00370000
$E033 &MD1-00000000,&MD2-00000000,&MD3-0000,&BF-00000000 00380000
.* 00390000
GBLB &MLTA . 1=MLTA PRESENT 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
* . MLTA IS SUPPORTED 00580000
* . BSCA IS SUPPORTED WITH RESIDENT POLLING 00590000
* . BSCA IS SUPPORTED WITH AUTO-RESPONSE 00600000
SPACE 1 00610000
ORG $CCCOM+1024+128 128 BYTES BEFORE WORK AREAS 00620000
SPACE 1 00630000
DC XL2'0000' *RESERVED* 00640000
.* 00650000
AIF ('&BF'(5,1) EQ '0').E3320 . SKIP IF AUTORS-NO 00660000
.* 00670000
EXTRN $$BSMD EXTERNAL REFERENCE 00680000
DC AL2($$BSMD) * FOR AUTO-RESPONSE 00690000
AGO .E3330 . SKIP TO CONTINUE 00700000
.* 00710000
.E3320 ANOP . AUTORS-NO 00720000
DC XL2'0000' NOT USED 00730000
.* 00740000
.E3330 ANOP . CONTINUE HERE 00750000
AIF ('&BF'(4,1) EQ '0').E3350 . SKIP IF RESPOL-NO 00760000
EXTRN $$BSMA EXTERNAL REFERENCE 00770000
DC AL2($$BSMA) * FOR RESIDENT POLLING 00780000
EXTRN $$BSMC EXTERNAL REFERENCE 00790000
DC AL2($$BSMC) * FOR RESIDENT POLLING 00800000
AGO .E3360 . SKIP TO CONTINUE 00810000
.* 00820000
.E3350 ANOP . RESPOL-NO 00830000
DC XL2'0000' NOT USED 00840000
DC XL2'0000' NOT USED 00850000
.* 00860000
.E3360 ANOP . CONTINUE HERE 00870000
AIF (&MLTA NE '1').MTV99 . SKIP IF *NO* MLTA 00880000
SPACE 1 00890000
EXTRN $$MLRR MLTA ERROR RECOVERY ROUTINE 00900000
DC AL2($$MLRR) ADDRESS OF $$MLRR IN LOAD MODULE 00910000
SPACE 1 00920000
EXTRN MLTSP0 COMMON AREA IN ROUTINE $$MLDI 00930000
DC AL2(MLTSP0) ADDRESS OF AREA IN LOAD MODULE 00940000
.* 00950000
AIF ('&MD1'(1,1) NE '1').MTV02 . SKIP IF NO TYPE-1050 00960000
.* 00970000
SPACE 1 00980000
DC CL1'A' FOR $$MLTM--1050 00990000
EXTRN $$MLTM TRANSFER VECTOR 01000000
DC AL2($$MLTM) ADDRESS OF TRANSFER VECTOR 01010000
.* 01020000
.MTV02 ANOP . CONTINUE HERE 01030000
AIF ('&MD1'(2,1) NE '1').MTV03 . SKIP IF NO TYPE-1050D 01040000
.* 01050000
SPACE 1 01060000
DC CL1'B' FOR $$MLTB--1050D 01070000
EXTRN $$MLTB TRANSFER VECTOR 01080000
DC AL2($$MLTB) ADDRESS OF TRANSFER VECTOR 01090000
.* 01100000
.MTV03 ANOP . CONTINUE HERE 01110000
AIF ('&MD1'(4,1) EQ '1').MTVX3 . SKIP IF TYPE-2740S 01120000
AIF ('&MD2'(3,2) EQ '00').MTV04 . SKIP IF NEITHER 2740M2S/SB 01130000
.* 01140000
.MTVX3 ANOP . 2740S/2740M2S/2740M2SB 01150000
SPACE 1 01160000
DC CL1'C' FOR $$MLTC--2740/2740M2S(B) 01170000
EXTRN $$MLTC TRANSFER VECTOR 01180000
DC AL2($$MLTC) ADDRESS OF TRANSFER VECTOR 01190000
.* 01200000
.MTV04 ANOP . CONTINUE HERE 01210000
AIF ('&MD1'(3,1) NE '1').MTV05 . SKIP IF NO TYPE-2740 01220000
.* 01230000
SPACE 1 01240000
DC CL1'D' FOR $$MLTD--2740 01250000
EXTRN $$MLTD TRANSFER VECTOR 01260000
DC AL2($$MLTD) ADDRESS OF TRANSFER VECTOR 01270000
.* 01280000
.MTV05 ANOP . CONTINUE HERE 01290000
AIF ('&MD1'(7,1) NE '1').MTV06 . SKIP IF NO TYPE-2740D 01300000
.* 01310000
SPACE 1 01320000
DC CL1'F' FOR $$MLTF--2740D 01330000
EXTRN $$MLTF TRANSFER VECTOR 01340000
DC AL2($$MLTF) ADDRESS OF TRANSFER VECTOR 01350000
.* 01360000
.MTV06 ANOP . CONTINUE HERE 01370000
AIF ('&MD1'(5,1) EQ '1').MTVX6 . SKIP IF TYPE-2740C 01380000
AIF ('&MD3'(1,1) NE '1').MTV07 . SKIP UNLESS TYPE-SYS7C 01390000
.* 01400000
.MTVX6 ANOP . TYPE-2740C/SYS7C 01410000
SPACE 1 01420000
DC CL1'G' FOR $$MLTG--2740C/SYS7C 01430000
EXTRN $$MLTG TRANSFER VECTOR 01440000
DC AL2($$MLTG) ADDRESS OF TRANSFER VECTOR 01450000
.* 01460000
.MTV07 ANOP . CONTINUE HERE 01470000
AIF ('&MD2'(1,1) EQ '1').MTVX7 . SKIP IF TYPE-2740DC 01480000
AIF ('&MD3'(3,1) NE '1').MTV08 . SKIP UNLESS TYPE-SYS7DC 01490000
.* 01500000
.MTVX7 ANOP . TYPE-2740DC/SYS7DC 01510000
SPACE 1 01520000
DC CL1'H' FOR $$MLTH--2740DC/SYS7DC 01530000
EXTRN $$MLTH TRANSFER VECTOR 01540000
DC AL2($$MLTH) ADDRESS OF TRANSFER VECTOR 01550000
.* 01560000
.MTV08 ANOP . CONTINUE HERE 01570000
AIF ('&MD1'(8,1) NE '1').MTV09 . SKIP UNLESS TYPE-2740DT 01580000
.* 01590000
SPACE 1 01600000
DC CL1'I' FOR $$MLTI--2740DT 01610000
EXTRN $$MLTI TRANSFER VECTOR 01620000
DC AL2($$MLTI) ADDRESS OF TRANSFER VECTOR 01630000
.* 01640000
.MTV09 ANOP . CONTINUE HERE 01650000
AIF ('&MD2'(2,1) NE '1').MTV10 . SKIP UNLESS TYPE-2740DTC 01660000
.* 01670000
SPACE 1 01680000
DC CL1'L' FOR $$MLTL--2740DTC 01690000
EXTRN $$MLTL TRANSFER VECTOR 01700000
DC AL2($$MLTL) ADDRESS OF TRANSFER VECTOR 01710000
.* 01720000
.MTV10 ANOP . CONTINUE HERE 01730000
AIF ('&MD1'(6,1) EQ '1').MTVXA . SKIP IF TYPE-2740SC 01740000
AIF ('&MD2'(5,2) NE '00').MTVXA . SKIP IF TYPE-2740M2SC/SCB 01750000
AIF ('&MD3'(2,1) NE '1').MTV11 . SKIP UNLESS TYPE-SYS7C 01760000
.* 01770000
.MTVXA ANOP . TYPE-2740SC/2740M2SC(B)/SYS7SC 01780000
SPACE 1 01790000
DC CL1'M' FOR $$MLTM--2740(M2)SC(B)/SYS7SC 01800000
.* 01810000
AIF ('&MD1'(1,1) EQ '1').MTVXX . SKIP IF ALREADY EXTRN'D 01820000
.* 01830000
EXTRN $$MLTM TRANSFER VECTOR 01840000
.* 01850000
.MTVXX ANOP . CONTINUE HERE 01860000
DC AL2($$MLTM) ADDRESS OF TRANSFER VECTOR 01870000
.* 01880000
.MTV11 ANOP . CONTINUE HERE 01890000
AIF ('&MD2'(7,1) NE '1').MTV12 . SKIP UNLESS TYPE-2741 01900000
.* 01910000
SPACE 1 01920000
DC CL1'O' FOR $$MLTO--2741 01930000
EXTRN $$MLTO TRANSFER VECTOR 01940000
DC AL2($$MLTO) ADDRESS OF TRANSFER VECTOR 01950000
.* 01960000
.MTV12 ANOP . CONTINUE HERE 01970000
AIF ('&MD2'(8,1) EQ '1').MTVXC . SKIP IF TYPE-2741D 01980000
AIF ('&MD3'(4,1) NE '1').MTV99 . SKIP UNLESS TYPE-CMCSTD 01990000
.* 02000000
.MTVXC ANOP 02010000
SPACE 1 02020000
DC CL1'P' FOR $$MLTP--2741D/CMCSTD 02030000
EXTRN $$MLTP TRANSFER VECTOR 02040000
DC AL2($$MLTP) ADDRESS OF TRANSFER VECTOR 02050000
.* 02060000
.MTV99 ANOP . END INCLUDE TRANSFER VECTORS 02070000
SPACE 1 02080000
DC XL1'00' *** TABLE STOPPER *** 02090000
SPACE 1 02100000
.* 02110000
MEND 02120000