|
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: 3810 (0xee2)
Types: s3xseg
Names: »S$EEQU«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$EEQU«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $EEQU * 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
.* COMMON SYMBOLS USED IN CCP * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . NONE * 00150000
.* * 00160000
.********************************************************************** 00170000
$EEQU 00180000
TEXT 00190000
.* 00200000
*********************************************************************** 00210000
* C O M M O N S Y M B O L S * 00220000
*********************************************************************** 00230000
SPACE 2 00240000
* EQUATES FOR BITS WITHIN A BYTE 00250000
SPACE 1 00260000
BIT0 EQU X'80' BIT X... .... 00270000
BIT1 EQU X'40' BIT .X.. .... 00280000
BIT2 EQU X'20' BIT ..X. .... 00290000
BIT3 EQU X'10' BIT ...X .... 00300000
BIT4 EQU X'08' BIT .... X... 00310000
BIT5 EQU X'04' BIT .... .X.. 00320000
BIT6 EQU X'02' BIT .... ..X. 00330000
BIT7 EQU X'01' BIT .... ...X 00340000
SPACE 1 00350000
NOBIT EQU X'00' *NO* BITS ON WITHIN BYTE 00360000
ALLBIT EQU X'FF' *ALL* BITS WITHIN BYTE 00370000
SPACE 1 00380000
* REGISTER EQUATES 00390000
SPACE 1 00400000
XR1 EQU X'01' INDEX REGISTER ONE 00410000
XR2 EQU X'02' INDEX REGISTER TWO 00420000
PSR EQU X'04' PROGRAM STATUS REGISTER 00430000
ARR EQU X'08' ADDRESS RECALL REGISTER 00440000
IAR EQU X'10' PROGRAM LEVEL IAR 00450000
IAR1 EQU X'20' PROGRAM LEVEL ONE IAR 00460000
IAR2 EQU X'40' PROGRAM LEVEL TWO IAR 00470000
SPACE 1 00480000
LVIIAR EQU X'80' DPF INTERRUPT LEVEL IAR 00490000
LVMIAR EQU X'90' MLTA INTERRUPT LEVEL IAR 00500000
LVBIAR EQU X'A0' BSCA INTERRUPT LEVEL IAR 00510000
LVCIAR EQU X'C0' CONSOLE INTERRUPT LEVEL IAR 00520000
SPACE 1 00530000
* Q-BYTE EQUATES FOR BRANCH/NOP 00540000
SPACE 1 00550000
NOP EQU X'07' NO-OP 00560000
NOOP EQU X'80' NO-OP 00570000
UNCON EQU X'FF' ALWAYS BRANCH 00580000
BRNOP EQU X'80' BRANCH NO-OP 00590000
BR EQU X'87' ALWAYS BRANCH 00600000
BR97 EQU X'97' BRANCH AND RESET FALSE BIT 00610000
SPACE 1 00620000
* EQUATES FOR MODIFIED FIELDS IN AN INSTRUCTION 00630000
SPACE 1 00640000
# EQU X'00' ANY FIELD 00650000
## EQU X'00' SINGLE-BYTE FIELD 00660000
### EQU X'00' ONE- OR TWO-BYTE FIELD 00670000
#### EQU X'0000' TWO-BYTE FIELD 00680000
SPACE 1 00690000
* CONDITION CODE EQUATES 00700000
SPACE 1 00710000
ANY EQU X'80' IF *ANY* CONDITION HOLDS 00720000
NONE EQU X'00' IF *NO* CONDITION HOLDS 00730000
BOVFL EQU X'20' BINARY OVERFLOW 00740000
FALSE EQU X'10' FALSE 00750000
DOVFL EQU X'08' DECIMAL OVERFLOW 00760000
HI EQU X'04' FIRST OPERAND HIGH 00770000
LO EQU X'02' FIRST OPERAND LOW 00780000
EQ EQU X'01' OPERANDS EQUAL 00790000
SPACE 1 00800000
* EQUATES FOR CCP RIB AND COMMON SUB-RIB 00810000
SPACE 1 00820000
CCPRIB EQU 1 RIB FOR CCP FUNCTION 00830000
IISRIB EQU 0 SUB-RIB FOR COMMUNICATIONS I/O 00840000
SPACE 1 00850000
* EQUATES FOR TYPES OF CCP TRACE ENTRIES 00860000
SPACE 1 00870000
TTDPA EQU 1 $CC4DP INITIAL ENTRY TRACE ID 00880000
TTIOD EQU 2 TRACE ID FOR $CC4DP $CC4IO ENT 00890000
TTIOW EQU 3 TRACE ID FOR $CC4DP I/O WAIT ENT 00900000
TTDPW EQU 4 TRACE ID FOR $CC4DP WAIT EX 00910000
TTIOS EQU 6 TRACE ID FOR $CC4DP TO DIODSP 00920000
TTPOST EQU 7 TRACE ID FOR POST TRACE--CPEQU 00930000
TTGETM EQU 8 TRACE ID FOR GETMAIN 00940000
TTFREE EQU 9 TRACE ID FOR FREEMAIN 00950000
TTMOPN EQU 10 TRACE ID FOR MLTA OP END 00960000
TTMSIO EQU 11 TRACE ID FOR MLTA START IO 00970000
TTII EQU 12 TRACE ID FOR $CC4II 00980000
TTIS EQU 13 TRACE ID FOR $CC4IS 00990000
TTIIRT EQU 14 RETURN FROM $CC4II TO USER 01000000
SPACE 1 01010000
MEND 01020000