This is code from the 60s/70s running on IBM mainframes.

It should not be surprising that it is written in Assembler, given those factors and the performance advantages over the alternatives.

I was writing new 370 Assembler in the 90s for high throughput electronic pre-press systems.