|
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: 5334 (0x14d6)
Types: s3xseg
Names: »S$EBEG«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EBEG«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 8 * 00030000
.* * 00040000
.* NAME: $EBEG * 00050000
.* * 00060000
.* FUNCTION: THE $EBEG MACRO IS USED BY CCP TRANSIENTS TO DEFINE * 00070000
.* THE FIXED FORMAT OF THE BEGINNING OF THE TRANSIENT. IT * 00080000
.* GENERATES THE START CARD WITH THE NAME FIELD AND THE START * 00090000
.* ADDRESS FOR ALL TRANSIENTS. CREATES A TWO-BYTE ID(LAST TWO * 00100000
.* CHARACTERS OF THE TRANSIENT'S NAME) AND A ONE-BYTE LEVEL * 00110000
.* NUMBER). GENERATES A JUMP AROUND THE C/S/N TABLE OF ALL * 00120000
.* TRANSIENTS CALLED. THIS MACRO MUST BE THE FIRST STATEMENT THAT * 00130000
.* PRODUCES CODE IN ANY TRANSIENT. BY CONVENTION THE TRANSIENT * 00140000
.* AREA SCHEDULER WILL ENTER AT OFFSET ZERO WHENEVER PASSING * 00150000
.* CONTROL TO A NEW TRANSIENT. * 00160000
.* * 00170000
.* INPUT OPERANDS: * 00180000
.* * N- LAST TWO CHARACTERS OF THE TRANSIENT'S NAME. * 00190000
.* * TID-1 TRANSIENT AREA 1. GENERAL TRANSIENT AREA. * 00200000
.* 2 TRANSIENT AREA 2. CM'S TRANSIENT AREA. * 00210000
.* * TR-Y/N ONLY GENERATES OFFSET DEFINITIONS IF Y. * 00220000
.* DEFAULT IS N. * 00230000
.* * JUMP- A LABEL CAN BE SUPPLIED TO MODIFY THE DEFAULT * 00240000
.* JUMP DISPLACEMENT. * 00250000
.* * XN- UPTO FIFTEEN TRANSIENT ID'S CAN BE PLACED * 00260000
.* IN A TABLE BY THIS MACRO. 'N' IS SUBSTITUTED * 00270000
.* BY THE NUMBERS 1-15. * 00280000
.* * MOD- MODIFICATION LEVEL OF THIS MODULE. CAUSES A * 00290000
.* ONE-BYTE DC TO BE GENERATED, THE VALUE IN THE * 00300000
.* DC BEING THE DATA SPECIFIED. * 00310000
.* * 00320000
.* NOTES: * 00330000
.* * ALL $CC4 TRANSIENTS MUST USE THIS MACRO. STARTUP WILL USE * 00340000
.* THE $ DELIMITER TO DETERMINE THE NUMBER OF TRANSIENTS * 00350000
.* FOR WHICH HE MUST FIND C/S/N VALUES. THE ASSIGNMENT OF * 00360000
.* THE N-VALUE WILL ASSURE THAT ONLY THE NUMBER OF SECTORS * 00370000
.* ACTUALLY NEEDED BY A TRANSIENT ARE LOADED. * 00380000
.* * THE FIELD TAXPRM IS STILL PRESENT. IN ADDITION, SV1TAX * 00390000
.* FOR TRANSIENT AREA ONE, AND SV2TAX FOR CM'S TRANSIENT * 00400000
.* AREA HAVE BEEN DEFINED IN THE $ECOM MACRO. * 00410000
.********************************************************************** 00420000
$EBEG &N-,&TID-1,&TR-N,&JUMP-,&X1-,&X2-,&X3-,&X4-,&X5-,&X6-, X00430000
&X7-,&X8-,&X9-,&X10-,&X11-,&X12-,&X13-,&X14-,&X15-,&MOD-N 00440000
TABLE &TID 00450000
1 TABDF 16384 00460000
2 TABDF 16896 00470000
TEXT 00480000
AIF (&TR EQ 'Y').TR 00490000
$CC4&N START &TID TRANSIENT START DEFINITION 00500000
$CC4$$ EQU * $CC4$$ DEFINITION 00510000
LEVEL 08 00520000
RLD N 00530000
SPACE 2 00540000
AIF (T'&JUMP EQ 'O').BEG10 00550000
J &JUMP GO EXECUTE 1ST INSTRUCTION 00560000
AGO .XN 00570000
.BEG10 ANOP 00580000
J &N.GO BYPASS PHASE ID'S, C/S'S 00590000
.XN ANOP 00600000
USING $CC4&N.,1 DEFINE BASE ON TRANSIENT ENTRY 00610000
TAXPRM DC XL2'0000' TRANSIENT COMMUNICATION AREA 00620000
AIF (T'&X1 NE 'O').TID 00630000
TAXTID DC XL2'0000' POSITION HOLDER 00640000
AGO .BYXN 00650000
.TID ANOP 00660000
TAXTID DC AL2(&N&X1) INITIALLY 1ST CSN DISPLACEMENT 00670000
&N&X1 DC CL5'&X1 ' PHASE ID, SPACE FOR C/S/N 00680000
AIF (T'&X2 EQ 'O').BYXN 00690000
&N&X2 DC CL5'&X2 ' PHASE ID, SPACE FOR C/S/N 00700000
AIF (T'&X3 EQ 'O').BYXN 00710000
&N&X3 DC CL5'&X3 ' PHASE ID, SPACE FOR C/S/N 00720000
AIF (T'&X4 EQ 'O').BYXN 00730000
&N&X4 DC CL5'&X4 ' PHASE ID, SPACE FOR C/S/N 00740000
AIF (T'&X5 EQ 'O').BYXN 00750000
&N&X5 DC CL5'&X5 ' PHASE ID, SPACE FOR C/S/N 00760000
AIF (T'&X6 EQ 'O').BYXN 00770000
&N&X6 DC CL5'&X6 ' PHASE ID, SPACE FOR C/S/N 00780000
AIF (T'&X7 EQ 'O').BYXN 00790000
&N&X7 DC CL5'&X7 ' PHASE ID, SPACE FOR C/S/N 00800000
AIF (T'&X8 EQ 'O').BYXN 00810000
&N&X8 DC CL5'&X8 ' PHASE ID, SPACE FOR C/S/N 00820000
AIF (T'&X9 EQ 'O').BYXN 00830000
&N&X9 DC CL5'&X9 ' PHASE ID, SPACE FOR C/S/N 00840000
AIF (T'&X10 EQ 'O').BYXN 00850000
&N&X10 DC CL5'&X10 ' PHASE ID, SPACE FOR C/S/N 00860000
AIF (T'&X11 EQ 'O').BYXN 00870000
&N&X11 DC CL5'&X11 ' PHASE ID, SPACE FOR C/S/N 00880000
AIF (T'&X12 EQ 'O').BYXN 00890000
&N&X12 DC CL5'&X12 ' PHASE ID, SPACE FOR C/S/N 00900000
AIF (T'&X13 EQ 'O').BYXN 00910000
&N&X13 DC CL5'&X13 ' PHASE ID, SPACE FOR C/S/N 00920000
AIF (T'&X14 EQ 'O').BYXN 00930000
&N&X14 DC CL5'&X14 ' PHASE ID, SPACE FOR C/S/N 00940000
AIF (T'&X15 EQ 'O').BYXN 00950000
&N&X15 DC CL5'&X15 ' PHASE ID, SPACE FOR C/S/N 00960000
.BYXN ANOP 00970000
DC CL3'$&N' EYECATCHER CONSTANT 00980000
DC XL1'08' RELEASE LEVEL 00990000
AIF (&MOD EQ 'N').GO 01000000
DC AL1(&MOD) MODIFICATION LEVEL 01010000
.GO ANOP 01020000
&N.GO EQU * END OF $EBEG CONSTANTS 01030000
AGO .END 01040000
.TR ANOP 01050000
TAXPRM EQU 4 TRANSIENT COMMUNICATION AREA 01060000
TAXTID EQU 6 OFFSET TO CSN VALUE OF THE 01070000
* TRANSIENT BEING CALLED. 01080000
* DEFAULTED TO FIRST IN TABLE 01090000
TAXCID EQU 7 OFFSET TO START OF CSN TABLE 01100000
TAXNCS EQU 11 OFFSET TO FIRST CSN PARAMETER 01110000
TAXCLN EQU 5 LENGTH OF A CSN TABLE ENTRY 01120000
.END ANOP 01130000
MEND 01140000