|
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: 1524 (0x5f4)
Types: s3xseg
Names: »S$ETML«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ETML«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ETML * 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
.* EQUATES FOR THE OFFSETS OF FIELDS IN: * 00110000
.* * 00120000
.* . 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 TARGET FIELD 00320000
TLTOA EQU TLTOL+2 ADDRESS OF THE TARGET FIELD 00330000
TLFRMA EQU TLTOA+2 ADDRESS OF THE SOURCE FIELD 00340000
TLFRML EQU TLFRMA+2 LENGTH OF THE SOURCE FIELD 00350000
TLRTC EQU TLFRML+1 TRANSLATE RETURN CODE 00360000
SPACE 1 00370000
* MOVE PARAMETER LIST 00380000
SPACE 1 00390000
MVLCCP EQU 0 BEGINNING OF MOVE LIST SEGMENT 00400000
* OF THE TRANSLATE LIST 00410000
MVLTOL EQU MVLCCP+2-1 LENGTH OF THE TARGET FIELD 00420000
MVLTOA EQU MVLTOL+2 ADDRESS OF THE TARGET FIELD 00430000
MVLFRA EQU MVLTOA+2 ADDR OF THE SOURCE FIELD 00440000
MVLFRL EQU MVLFRA+2 LENGTH OF THE TARGET FIELD 00450000
SPACE 00460000
MEND 00470000