|
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: 2032 (0x7f0)
Types: s3xseg
Names: »S$ETML«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ETML«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ETML«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ETML * 00040000
.* * 00050000
.* MODIFICATION LEVEL: MOD 15 RELEASE 2. * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* EQUATES FOR THE OFFSETS OF FIELDS IN: * 00110000
.* * 00120000
.* . TRANSLATE PARAMETER LIST * 00130000
.* . MOVE PARAMETER LIST * 00140000
.* * 00150000
.* INPUT OPERANDS: * 00160000
.* * 00170000
.* . NONE * 00180000
.* * 00190000
.********************************************************************** 00200000
$ETML 00210000
.* 00220000
TEXT 00230000
.* 00240000
*********************************************************************** 00250000
* T R A N S L A T E / M O V E L I S T S * 00260000
*********************************************************************** 00270000
SPACE 2 00280000
* TRANSLATE PARAMETER LIST 00290000
SPACE 1 00300000
TLCCP EQU 0 BEGINNING OF TRANSLATE LIST 00310000
TLTOL EQU TLCCP-1+2 LENGTH OF TO FIELD 00320000
TLTOA EQU TLTOL+2 ADDRESS OF THE TO FIELD 00330000
TLFRMA EQU TLTOA+2 ADDRESS OF THE FROM FIELD 00340000
TLFRML EQU TLFRMA+2 LENGTH OF THE FROM FIELD 00350000
TLRTC EQU TLFRML+1 TRANSLATE RETURN CODE 00360000
SPACE 2 00370000
* MOVE PARAMETER LIST 00380000
SPACE 1 00390000
MVLCCP EQU 0 BEGINNING OF MOVE LIST 00400000
MVLTOL EQU MVLCCP+2-1 LENGTH OF THE TO FIELD 00410000
MVLTOA EQU MVLTOL+2 ADDRESS OF THE TO FIELD 00420000
MVLFRA EQU MVLTOA+2 ADDR OF THE FROM FIELD 00430000
MVLFRL EQU MVLFRA+2 LENGTH OF THE FROM FIELD 00440000
MVLTYP EQU MVLFRL+1 TYPE OF MOVE REQUEST 00450000
* * X'00' - NO ATR SWAP NECESSARY 00460000
* * (NEITHER FIELD IN UPA) 00470000
* * X'01' - FROM FIELD IN UPA 00480000
* * X'02' - TO FIELD IN UPA 00490000
* * X'03' - BOTH FIELDS IN UPA 00500000
* * (SWAP ATRS). 00510000
MVLTCB EQU MVLTYP+2 ADDRESS OF TCB FOR USER TASK 00520000
* * IF EITHER TO OR FROM FIELD 00530000
* * IS IN A USER PROGRAM. 00540000
* * FIELD NOT NEEDED IF MVLTYP 00550000
* * IS X'00'. 00560000
SPACE 00570000
MEND 00580000