|
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: 4826 (0x12da)
Types: s3xseg
Names: »S$ECSE«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ECSE«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* TITLE: $ECSE - EQUATES AND DC'S FOR RESIDENT CS LINKAGE. * 00040000
.* * 00050000
.* STATUS: V2M0 * 00060000
.* * 00070000
.* KEYWORDS DC-Y = DC'S WILL BE GENERATED * 00080000
.* * 00090000
.* * 00100000
.* * 00110000
.* * 00120000
.* * 00130000
.********************************************************************** 00140000
$ECSE &DC-N 00150000
TEXT 00160000
AIF (&DC NE 'Y').A100 00170000
ORG X'4C00' 00180000
.A100 ANOP 00190000
CSSTS3 EQU X'4C00' RESERVED STATUS AREA - LINE 3 00200000
AIF (&DC NE 'Y').A110 00210000
DC XL7'0' 00220000
.A110 ANOP 00230000
CSSTS4 EQU CSSTS3+7 RESERVED STATUS AREA - LINE 4 00240000
AIF (&DC NE 'Y').A120 00250000
DC XL7'0' 00260000
.A120 ANOP 00270000
CSOUT3 EQU CSSTS4+7 SYS MSG OUTPUT AREA - LINE 3 00280000
AIF (&DC NE 'Y').A130 00290000
DC XL96'03' 00300000
.A130 ANOP 00310000
CSOUT4 EQU CSOUT3+96 SYS MSG OUTPUT AREA - LINE 4 00320000
AIF (&DC NE 'Y').A140 00330000
DC XL96'04' 00340000
.A140 ANOP 00350000
$CSFRE EQU CSOUT4+96 LOAD IAR INST. FOR RES. FREEMAIN 00360000
* SUBROUTINE 00370000
AIF (&DC NE 'Y').A150 00380000
L @CSFRE,IAR 00390000
.A150 ANOP 00400000
$CSPST EQU $CSFRE+4 LOAD IAR INST. FOR RESIDENT 00410000
* POST AND FREE ROUTINE 00420000
AIF (&DC NE 'Y').A160 00430000
L @CSPST,IAR 00440000
.A160 ANOP 00450000
$@$@$@ EQU $CSPST+4 RESERVED 00460000
AIF (&DC NE 'Y').A170 00470000
L X'0000',IAR 00480000
.A170 ANOP 00490000
@CSFRE EQU $@$@$@+4+1 ADDRESS OF CSFREE(PLUGGED BY 00500000
* * STARTUP) 00510000
AIF (&DC NE 'Y').A180 00520000
DC AL2(0) 00530000
.A180 ANOP 00540000
@CSPST EQU @CSFRE+2 ADDRESS OF CSPSTE(PLUGGED BY 00550000
* * STARTUP) 00560000
AIF (&DC NE 'Y').A190 00570000
DC AL2(0) 00580000
.A190 ANOP 00590000
CSLIST EQU @CSPST+1 CS'S WAIT LIST 00600000
@CSECB EQU CSLIST+1 ADDRESS OF $CSECB (GENERAL ECB) 00610000
AIF (&DC NE 'Y').A200 00620000
DC AL2($CSECB) 00630000
.A200 ANOP 00640000
@CSFM EQU @CSECB+2 ADDRESS OF $CSFM (FREEMAIN ECB) 00650000
AIF (&DC NE 'Y').A210 00660000
DC AL2($CSFM) 00670000
.A210 ANOP 00680000
@CSTEB EQU @CSFM+2 ADDRESS OF CS'S TIMER 00690000
* * ECB (PLUGGED BY STARTUP) 00700000
AIF (&DC NE 'Y').A220 00710000
DC XL2'FFFF' 00720000
.A220 ANOP 00730000
@CLBE3 EQU @CSTEB+2 ADDRESS OF LINE 3 ECB (CLBECB) 00740000
AIF (&DC NE 'Y').A230 00750000
DC XL2'FFFF' 00760000
.A230 ANOP 00770000
@CLBE4 EQU @CLBE3+2 ADDRESS OF LINE 4 ECB (CLBECB) 00772000
AIF (&DC NE 'Y').A240 00774000
DC XL2'FFFF' 00776000
.A240 ANOP 00778000
@CLBES EQU @CLBE4+2 ADDRESS OF SIOC ECB (CLBECB) 00780000
AIF (&DC NE 'Y').A245 00790000
DC XL2'FFFF' 00800000
DC XL2'FFFF' END OF LIST DELIMITER 00810000
.A245 ANOP 00820000
@CSTS3 EQU @CLBES+4 ADDRESS OF LINE 3 STATUS AREA 00830000
AIF (&DC NE 'Y').A250 00840000
DC AL2(CSSTS3) 00850000
.A250 ANOP 00860000
@CSTS4 EQU @CSTS3+2 ADDRESS OF LINE 4 STATUS AREA 00870000
AIF (&DC NE 'Y').A260 00880000
DC AL2(CSSTS4) 00890000
.A260 ANOP 00900000
@CSBK1 EQU @CSTS4+2 OPERATOR ERROR ID FOR $CC4UL 00910000
AIF (&DC NE 'Y').A270 00920000
DC XL2'0000' 00930000
.A270 ANOP 00940000
@CSBK2 EQU @CSBK1+1 MESSAGE ID FOR $CC4UL - PART 1 00950000
AIF (&DC NE 'Y').A280 00960000
DC XL1'00' 00970000
.A280 ANOP 00980000
@CSBK3 EQU @CSBK2+1 MESSAGE ID FOR $CC4UL - PART 2 00981000
AIF (&DC NE 'Y').A290 00982000
DC XL1'00' 00983000
.A290 ANOP 00984000
UGSCLB EQU @CSBK3+2 SAVE AREA FOR UG'S CLB ADDRESS 00985000
AIF (&DC NE 'Y').A300 00986000
DC AL2(0) * 00987000
.A300 ANOP 00988000
SPACE 2 00990000
* COMMON EQUATES FOR COMMUNICATIONS SUPERVISOR LINE(S) 3 AND 4 01000000
SPACE 1 01010000
CC4U0 EQU X'4D00' RESIDENT FORMAT ROUTINE 01020000
PL EQU 1 PARM LIST (XR1) 01030000
CLB EQU 2 COM. LINE BLOCK (XR2) 01040000
TUB EQU 2 TERM. UNIT BLOCK (XR2) 01050000
SPACE 2 01053000
* EQUATES USED TO DEFINE THE MESSAGE ID'S FOR @CSBK2 01056000
SPACE 1 01060000
#CSBL1 EQU X'01' MESSAGE ID FOR $CC4UL - TYPE 1 01070000
#CSBL2 EQU X'02' MESSAGE ID FOR $CC4UL - TYPE 2 01080000
#CSBL3 EQU X'04' MESSAGE ID FOR $CC4UL - TYPE 3 01090000
#CSBL4 EQU X'08' MESSAGE ID FOR $CC4UL - TYPE 4 01100000
#CSBL5 EQU X'10' MESSAGE ID FOR $CC4UL - TYPE 5 01110000
#CSBL6 EQU X'20' MESSAGE ID FOR $CC4UL - TYPE 6 01120000
#CSBL7 EQU X'40' MESSAGE ID FOR $CC4UL - TYPE 7 01130000
#CSBL8 EQU X'80' MESSAGE ID FOR $CC4UL - TYPE 8 01140000
SPACE 2 01142000
* EQUATES USED TO DEFINE THE MESSAGE ID'S FOR @CSBK3 01144000
SPACE 1 01146000
#CSBL9 EQU X'01' MESSAGE ID FOR $CC4UL - TYPE 9 01148000
MEND 01190000