CIF is the customer information system written for banks and used to be run by Databank in the 70's/80's and parts of are written in IBM Assembler. And I think it's still used by at least BNZ and possibly Westpac as I saw ads for Assembler programmers a few months ago.

The Burroughs/Unisys system had a completely different architecture (stack based if I recall rather than registers like System 370)
 
But as usual we are getting way OT.