|
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: 762 (0x2fa)
Types: s3xseg
Names: »S$TRAN«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$TRAN«
MACRO 00010000
&NAME $TRAN &TRL- 00020000
GBLB &$MCC,&$MG 00220000
TEXT 00230000
AIF (T'&NAME EQ 'O').PRINT 00240000
&NAME EQU * 00250000
.PRINT AIF (&$MG EQ '0').TEXT 00260000
PRINT OFF 00270000
.TEXT ANOP 00280000
*** $TRAN TRANSLATE ROUTINE REQUEST RELEASE-7 *** 00290000
.JUMP AIF (T'&TRL EQ 'O').CALL 00300000
LA &TRL,$MTRL LOAD TRANSLATE PARM LIST ADDRESS 00310000
.CALL BC $$BMCC,X'FF' BRANCH TO THE TRANSLATE ROUTINE 00320000
AIF (&$MCC).MEND 00330000
&$MCC SETB 1 00340000
$MTRL EQU 1 REGISTER EQUATE FOR TRANS LIST 00350000
EXTRN $$BMCC TRANSLATE MODULE NAME 00360000
.MEND ANOP 00380000
*** END OF $TRAN EXPANSION *** 00390000
AIF (&$MG EQ '0').DONE 00400000
PRINT ON 00410000
.DONE MEND 00420000
.* * 00200000