|
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: 1016 (0x3f8)
Types: s3xseg
Names: »S$TRL«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$TRL«
MACRO 00010000
&NAME $TRL &TO-,&FROM-,&LEN-,&TRT- 00020000
GBLB &$MTRL,&$MG 00230000
TEXT 00240000
AIF (T'&NAME EQ 'O').PRINT 00250000
&NAME EQU * START OF PARAMETER LIST 00260000
.PRINT AIF (&$MG EQ '0').TEXT 00270000
PRINT OFF 00280000
.TEXT ANOP 00290000
*** $TRL START OF TRANSLATE PARAMETER LIST *** 00300000
.SEQ DC AL2(&TRT) TRANSLATE TABLE 00310000
DC AL2(&FROM) FROM DATA 00320000
DC AL2(&TO) TO FIELD 00330000
DC AL2(&LEN) LENGTH OF DATA 00340000
DC XL1'00' RETURN CODE 00350000
AIF (&$MTRL).MEND 00360000
&$MTRL SETB 1 00370000
$MTTAB EQU 1 OFFSET FOR TRANSLATE TABLE 00380000
$MTFRM EQU 3 OFFSET FOR FROM FIELD 00390000
$MTTO EQU 5 OFFSET FOR TO FIELD 00400000
$MTLEN EQU 7 OFFSET FOR LENGTH FIELD 00410000
$MTCMP EQU 8 OFFSET FOR RETURN CODE 00420000
.MEND ANOP 00430000
*** END OF $TRL EXPANSION *** 00440000
AIF (&$MG EQ '0').DONE 00450000
PRINT ON 00460000
.DONE MEND 00470000
L,&$MG 00230000 TEXT
00240000 AIF (T'&N
AME EQ 'O').PRINT IF NA