Let me try that again ...
WORK DS CL6
DS X , Slack byte
UNPK WORK(7),SDWACMPC(4)
NC WORK,=X'0F0F0F0F0F0F'
TR WORK,=C'0123456789ABCDEF'
--
Donald H. Blake
Ecclesiastes 12:1
<https://www.kingjamesbibleonline.org/Ecclesiastes-Chapter-12/>
