|
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$EEQU«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EEQU«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 2 * 00030000
.* * 00040000
.* NAME: $EEQU * 00050000
.* * 00060000
.* FUNCTION: DEFINE COMMON SYMBOLS USED IN CCP * 00070000
.* * 00080000
.* INPUT OPERANDS: * 00090000
.* * BIT-Y/N GENERATE THE BIT EQUATES. DEFAULT IS Y. * 00100000
.* * REG-Y/N GENERATE THE REGISTER EQUATES. DEFAULT IS Y. * 00110000
.* * BRQ-Y/N GENERATE THE BRANCH Q-CODE EQUATES. DEFAULT * 00120000
.* IS Y. * 00130000
.* * CCDE-Y/N GENERATE THE CONDITION REGISTER EQUATES. * 00140000
.* DEFAULT IS Y. * 00150000
.* * MODE-Y/N GENERATE THE PROGRAM MODE REGISTER EQUATES. * 00160000
.* DEFAULT IS Y. * 00170000
.* * TRACE-Y/N GENERATE THE TRACE ENTRY EQUATES. DEFAULT IS * 00180000
.* Y. * 00190000
.********************************************************************** 00200000
$EEQU &BIT-Y,®-Y,&BRQ-Y,&CCDE-Y,&MODE-Y,&TRACE-Y 00210000
TEXT 00220000
*********************************************************************** 00230000
* C O M M O N S Y M B O L S * 00240000
*********************************************************************** 00250000
AIF (&BIT EQ 'N').REG 00260000
SPACE 2 00270000
* EQUATES FOR BITS WITHIN A BYTE 00280000
BIT0 EQU X'80' BIT X... .... 00290000
BIT1 EQU X'40' BIT .X.. .... 00300000
BIT2 EQU X'20' BIT ..X. .... 00310000
BIT3 EQU X'10' BIT ...X .... 00320000
BIT4 EQU X'08' BIT .... X... 00330000
BIT5 EQU X'04' BIT .... .X.. 00340000
BIT6 EQU X'02' BIT .... ..X. 00350000
BIT7 EQU X'01' BIT .... ...X 00360000
SPACE 1 00370000
NOBIT EQU X'00' *NO* BITS ON WITHIN BYTE 00380000
ALLBIT EQU X'FF' *ALL* BITS WITHIN BYTE 00390000
SPACE 00400000
* SYSTEM DETECTED ERROR CONDITIONS * 00410000
TIFE EQU 0 FREEMAIN ERROR 00420000
TIBC EQU TIFE+1 BAD START CODE 00430000
TIRC EQU TIBC+1 BAD RETURN CODE 00440000
TITR EQU TIRC+1 TRANSLATE ERROR 00450000
TIYA EQU TITR+1 NO USER SECURITY 00460000
TIAC EQU TIYA+1 ADAPTER CHECK 00470000
TISS EQU TIAC+1 BAD SENSE STATUS 00480000
SPACE 1 00490000
WAIT EQU BIT0 WAIT BIT IN ECB 00500000
POST EQU BIT1 POST BIT IN ECB 00510000
SKIP EQU BIT2 SKIP BIT IN ECB 00520000
.REG AIF (® EQ 'N').BRQ 00530000
SPACE 2 00540000
* REGISTER EQUATES 00550000
XR1 EQU 1 INDEX REGISTER ONE 00560000
XR2 EQU 2 INDEX REGISTER TWO 00570000
PSR EQU 4 PROGRAM STATUS REGISTER 00580000
ARR EQU 8 ADDRESS RECALL REGISTER 00590000
IAR EQU 16 PROGRAM LEVEL IAR 00600000
PMR EQU 48 PROGRAM MODE REGISTER 00610000
SPACE 1 00620000
LVIIAR EQU X'80' DPF INTERRUPT LEVEL IAR 00630000
LVMIAR EQU X'90' MLTA INTERRUPT LEVEL IAR 00640000
LVBIAR EQU X'A0' BSCA INTERRUPT LEVEL IAR 00650000
LVCIAR EQU X'C0' CONSOLE INTERRUPT LEVEL IAR 00660000
.BRQ AIF (&BRQ EQ 'N').CCDE 00670000
SPACE 2 00680000
* Q-BYTE EQUATES FOR BRANCH/NOP 00690000
NOP EQU X'07' NO-OP 00700000
NOOP EQU X'80' NO-OP 00710000
UNCON EQU X'FF' ALWAYS BRANCH 00720000
BRNOP EQU X'80' BRANCH NO-OP 00730000
BR EQU X'87' ALWAYS BRANCH 00740000
BR97 EQU X'97' BRANCH AND RESET FALSE BIT 00750000
SPACE 1 00760000
* EQUATES FOR MODIFIED FIELDS IN AN INSTRUCTION 00770000
SPACE 1 00780000
# EQU X'00' ANY FIELD 00790000
## EQU X'00' SINGLE-BYTE FIELD 00800000
### EQU X'00' ONE- OR TWO-BYTE FIELD 00810000
#### EQU X'0000' TWO-BYTE FIELD 00820000
.CCDE AIF (&CCDE EQ 'N').MODE 00830000
SPACE 2 00840000
* CONDITION CODE EQUATES 00850000
ANY EQU X'80' IF *ANY* CONDITION HOLDS 00860000
NONE EQU X'00' IF *NO* CONDITION HOLDS 00870000
BOVFL EQU X'20' BINARY OVERFLOW 00880000
FALSE EQU X'10' FALSE 00890000
DOVFL EQU X'08' DECIMAL OVERFLOW 00900000
HI EQU X'04' FIRST OPERAND HIGH 00910000
LO EQU X'02' FIRST OPERAND LOW 00920000
EQ EQU X'01' OPERANDS EQUAL 00930000
.MODE AIF (&MODE EQ 'N').TRACE 00940000
PMRI12 EQU 112 OP2,OP1,I-CYCLE TRANSLATE 00950000
PMROP2 EQU 64 OPERAND 2 E-CYCLES TRANSLATION 00960000
PMROP1 EQU 32 OPERAND 1 E-CYCLES TRANSLATION 00970000
PMRINS EQU 16 INSTRUCTION-CYCLES TRANSLATION 00980000
PMRPRV EQU 8 PRIVELEGED 00990000
PMRPRT EQU 2 STORAGE PROTECT 01000000
PMRINT EQU 1 MASK INTERRUPTS 01010000
.TRACE AIF (&TRACE EQ 'N').END 01020000
SPACE 2 01030000
* EQUATES FOR TYPES OF CCP TRACE ENTRIES 01040000
TTTRAN EQU X'E7' TRACE ID FOR TRANSIENT CALLS 01050000
TTGETM EQU X'E8' TRACE ID FOR GETMAIN 01060000
TTFREE EQU X'E9' TRACE ID FOR FREEMAIN 01070000
TTMOPN EQU X'EA' TRACE ID FOR TP CHECK ROUTINE 01080000
TTMSIO EQU X'EB' TRACE ID FOR MLTA START IO 01090000
TTBSIO EQU X'FB' TRACE ID FOR BSCA START IO 01100000
TTII EQU X'EC' TRACE ID FOR $CC4II 01110000
TTIS EQU X'ED' TRACE ID FOR $CC4IS 01120000
TTIIRT EQU X'EE' RETURN FROM $CC4II TO USER 01130000
TTDFEN EQU X'FC' TRACE ID FOR ENTRY TO DFF TASK 01140000
TTDFEX EQU X'FE' TRACE ID FOR EXIT FROM DFF TASK 01150000
.END ANOP 01160000
MEND 01170000