ICHUT4ZZ CSECT
STM 14,12,12(13)
LR 12,15
USING ICHUT4ZZ,12
MODESET KEY=ZERO
L 1,CVTPTR
USING CVT,1
L 1,CVTTCBP
L 1,12(1)
DROP 1
USING ASCB,1
L 1,ASCBASXB
DROP 1
USING ASXB,1
L 1,ASXBSENV
DROP 1
USING ACEE,1
OI ACEEFLG1,ACEESPEC
RETURN (14,12),RC=0
IHAACEE
IHAASCB
IHAASXB LIST=YES
CVT DSECT=YES
END
1 commentaire:
Euh oui, encore plus esotérique qu'un de mes textes, un peu Special à ce qu'on m'a dit
Enregistrer un commentaire