z/OS assembler routines