More work on understanding MVS 370 Assembler. Realize I've forgot much. Such as there's no Divide Halfword and with divide [D] the dividend requires even(Reminder)/odd(Quotient) pair of registers. If not for the SNAP macro, I would have probably spent way too much time trying to find out why "PACK PACK01,=P'67890'" doesn't work, "PACK PACK01,=C'67890'" is obviously correct…in hindsight. Now trying to remember how numeric overflows are handled.
If you can load F'32768' in a register it will show X'00008000'
If you can load H'32767' in a register then add H'1' it will show X'00008000'
If you can load H'32768' in a register it will show X'FFFF8000'
Started a LA Docker course.