This assembler program is a translation from a Pascal program, which is a
translation from a COBOL version I had written.  See the Pascal version for
more details.
