|
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: 6350 (0x18ce)
Types: s3xseg
Names: »S$ECSV«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ECSV«
MACRO 00010000
.********************************************************************** 00010700
.* * 00011400
.* NAME: $ECSV 5704SC2 RELEASE 03 * 00012100
.* * 00012800
.* FUNCTIOC: DEFINES THE ENTRY POINT FOR RESIDENT BSCC $CCP#M. * 00013500
.* * 00014200
.* INPUT OPERANDS: * 00014900
.* . CON-Y/N Y-GENERATES CONSTANS, N-GENERATES EQUATES ONLY * 00015600
.* . SIOC-0/1 0-SIOC INTERCONECT NOT SUPPORTED, 1-SUPPORTED * 00016300
.* . BSCC-0/1 0-BSCC ENHANCMENT NOT SUPPORTED, 1-SUPPORTED * 00017000
.* * 00017700
.********************************************************************** 00018400
$ECSV &CON-N,&SIOC-0,&BSCC-1 00020000
TEXT 00030000
TITLE 'E N T R Y P O I N T S F O R B S C C' 00040000
*---------------------------------------------------------------------* 00050000
* 00060000
* THIS MACRO DEFINES THE ENTRY POINTS FOR THE RESIDENT BSCC LOAD 00070000
* MODULE ($CC4#M). IF THIS MACRO IS CHANGED,THEN START-UP MUST 00080000
* BE RE-ASSEMBLED TO PICK UP ANY CHANGES. 00090000
* 00100000
*---------------------------------------------------------------------* 00110000
EYECAT EQU * START OF LOAD MODULE 00120000
AIF (&CON NE 'Y').CS001 00130000
DC CL2'CS' EYE CATCHER AND ----| 00140000
DC CL2'05' RELEASE LEVEL <-----| 00150000
.CS001 ANOP 00160000
ACSFRE EQU EYECAT+5 RIGHTMOST BYTE OF CSFREE ADDR. 00170000
AIF (&CON NE 'Y').CS003 00180000
DC AL2(CSFREE) ADDRESS OF RESIDENT FREE SUBR. 00190000
.CS003 ANOP 00200000
ACSPST EQU ACSFRE+2 RIGHTMOST BYTE OF CSPSTE ADDR. 00210000
AIF (&CON NE 'Y').CS005 00220000
DC AL2(CSPSTE) ADDRESS OF RESIDENT POST SUBR. 00230000
.CS005 ANOP 00240000
ASTECB EQU ACSPST+2 RIGHTMOST BYTE OF ADDRESS OF 00250000
* TIMER ECB 00260000
AIF (&CON NE 'Y').CS007 00270000
DC AL2(CSTECB) TIMER ECB ADDRESS 00280000
.CS007 ANOP 00290000
ASTART EQU ASTECB+2 RIGHTMOST BYTE OF ADDRESS OF 00300000
* CS'S ENTRY POINT 00310000
AIF (&CON NE 'Y').CS009 00320000
DC AL2(CSSTRT) ADDRESS OF CS'S ENTRY POINT 00330000
.CS009 ANOP 00340000
ACC4UC EQU ASTART+2 RIGHTMOST BYTE OF ADDRESS OF 00350000
* INTERRUPT APPENDAGE 00360000
AIF (&CON NE 'Y').CS011 00370000
DC AL2($CC4UC) INTERRUPT APPENDAGE ADDRESS 00380000
.CS011 ANOP 00390000
ABSYM EQU ACC4UC+2 RIGHTMOST BYTE OF ADDRESS OF 00400000
* $$BSYM 00410000
AIF (&CON NE 'Y').CS013 00420000
DC AL2($$BSYM) ADDRESS OF BSCC DATA MANAGEMENT 00430000
.CS013 ANOP 00440000
ABSYI EQU ABSYM+2 RIGHTMOST BYTE OF ADDRESS OF 00450000
* $$BSYI 00460000
AIF (&CON NE 'Y').CS015 00470000
DC AL2($$BSYI) ADDRESS OF BSCC INTERRUPT HAND. 00480000
.CS015 ANOP 00490000
ABSYX EQU ABSYI+2 RIGHTMOST BYTE OF ADDRESS OF 00500000
* $$BSYX 00510000
AIF (&CON NE 'Y').CS017 00520000
DC AL2($$BSYX) ADDRESS OF BSCC IOS 00530000
.CS017 ANOP 00540000
AIF (&CON NE 'Y').CS020 00543000
ENTRY CSSTRT INITIAL START POINT FOR CS 00546000
AIF (&BSCC EQ '0').CS018 00550000
EXTRN $$BSYM BSCC DATA MANAGEMENT 00560000
EXTRN YMWAIT BSCC WAIT ROUTINE 00570000
EXTRN $$BSYX BSCC IOS ROUTINE 00590000
EXTRN $$BSYI BSCC INTERRUPT HANDLER 00600000
EXTRN $CC4UC INTERRUPT APPENDAGE 00605000
AGO .CS020 00611000
.CS018 ANOP 00612000
$$BSYM EQU 0 BSCC NOT SUPPORTED IN THIS 00613000
$$BSYX EQU 0 GENERATION. THESE EQUATES 00614000
$$BSYI EQU 0 ARE INCLUDED SO AS NOT TO 00615000
YMWAIT EQU 0 PRODUCE GENERATION ERRORS. 00616000
EXTRN $CC4UC INTERRUPT APPENDAGE 00617000
.CS020 ANOP 00620000
AIF (&SIOC EQ '0').CS200 . SKIP IF SIOC NOT SUPPORTED 00620100
SPACE 1 00620200
.* 00620300
.* THIS FOLLOWING CODE SUPPORTS SIOC. 00620400
.* 00620500
CSADDM EQU ABSYX+2 ADDRESS OF SIOC DM. 00620600
AIF (&CON NE 'Y').CS030 00620700
DC AL2($$SIDM) ADDRESS OF SIOC DM. 00620800
.CS030 ANOP 00620900
CSADCK EQU CSADDM+2 ADDRESS OF SIOC CHK. 00621000
AIF (&CON NE 'Y').CS031 00621100
DC AL2($$SICK) ADDRESS OF SIOC CHK. 00621200
.CS031 ANOP 00621300
.* 00621400
.* LABELS FOR STARTUP INITIALIZATION WHEN SIOC AND BSCC 00621500
.* ARE GENERATED. THE FOLLOWING CODE MUST NO CHANGE 00621600
.* WITHOUT ALSO CHANGING STARTUP ($CC3#M). 00621700
.* 00621800
AIF (&BSCC EQ '0').CS100 . SKIP IF BSCC NOT SUPPORTED 00621900
SPACE 1 00622000
CS@MSO EQU CSADCK+1+6+3+6+4 OFFSET TO MOVE SIOC ATR'S 00622100
CS@LD1 EQU CS@MSO+6 OFFSET TO LOAD SIOC ATR'S 00622200
CS@LD2 EQU CS@LD1+4 OFFSET TO LOAD SIOC ATR'S 00622300
CS@MCS EQU CS@LD2+4+4 OFFSET TO MOVE $CC4CS ATR'S 00622400
CS@RS1 EQU CS@MCS+6 OFFSET TO LOAD $CC4CS ATR'S 00622500
CS@RS2 EQU CS@RS1+4 OFFSET TO LOAD $CC4CS ATR'S 00622600
.CS100 ANOP 00622700
.* 00622800
.* TRANSFER VECTOR CODE GENERATED SIOC IS SUPPORTED 00622900
AIF (&CON NE 'Y').CS200 00623000
SPACE 2 00623100
* ENTRY POINT FOR VECTOR TO SIOC DATA MANAGEMENT. 00623200
CSENDM MVC CSSIOC+3(2),CSADDM ADDRESS OF SIOC DM 00623300
J CSSARR GO SAVE ARR 00623400
* ENTRY POINT FOR VECTOR TO SIOC CHECK ROUTINE. 00623500
CSENCK MVC CSSIOC+3(2),CSADCK ADDRESS OF SIOC CHECK RTN 00623600
CSSARR ST CSSRTN+3,ARR SAVE RETURN ADDRESS 00623700
AIF (&BSCC EQ '0').CS110 . SKIP IF BSCC NOT SUPPORTED. 00623800
CS#MSO MVC ####,####(2) MOVE SIOC ATR'S TO TCB ATR AREA 00623900
CS#LD1 LCP ####,## LOAD SIOC ATR 00624000
CS#LD2 LCP ####,## LOAD SIOC ATR 00624100
.CS110 ANOP 00624200
CSSIOC B #### GO TO SIOC 00624300
AIF (&BSCC EQ '0').CS120 . SKIP IF BSCC NOT SUPPORTED. 00624400
CS#MCS MVC ####,####(2) MOVE CS ATR'S TO TCB ATR AREA 00624500
CS#RS1 LCP ####,## LOAD $CC4CS ATR 00624600
CS#RS2 LCP ####,## LOAD $CC4CS ATR 00624700
.CS120 ANOP 00624800
CSSRTN B #### RETURN TO CALLER IN CS 00624900
AIF (&BSCC EQ '0').CS130 . SKIP IF BSCC NOT SUPPORTED. 00625000
$$SIDM EQU 0 ADDRESS FOR SIOC DM RTN 00625100
$$SICK EQU 0 ADDRESS FOR SIOC CHECK RTN 00625200
AGO .CS200 00625300
.CS130 ANOP 00625400
EXTRN $$SIDM 00625500
EXTRN $$SICK 00625600
ENTRY SIOCUC 00625700
SPACE 1 00625800
* CCP OPEND COUNTER ENTERFACE FOR SIOC DM,IOCS,IH ROUTINES. 00625900
* XR1 POINTS AT CLBECB OF THE SIOC CLB. 00626000
SIOCUC ST UCARR+3,ARR SAVE RETURN ADDRESS 00626100
ALC #CSOND(1),X$0001 ADD ONE TO OPEND COUNT 00626200
ALC CLBOPE-CLBECB(1,XR1),X$0001 ADD ONE TO CLB OPEND COUNT 00626300
UCARR B # RETURN TO CALLER 00626400
.CS200 ANOP 00626500
SPACE 1 00626600
MEND 00630000