PDP-10 Archive: 43,50071/sub1.mac from decuslib10-01

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50071/sub1.mac

There are 2 other files named sub1.mac in the archive. Click here to see a list.

;     MACRO SUBROUTINE INTO
;     PACKS LETTERS INTO WORDS
      TITLE INTO
 INTO:   0
 MOVEM 3,SAV3#
 MOVEM 4,SAV4#
 MOVEI 3,44
 MOVE  4,@1(16)
 IMULI 4,7
 SUB   3,4
 LDB   4,PNT1
 DPB   3,PNT3
 DPB   4,PNT2
 MOVE  3,SAV3
 MOVE  4,SAV4
 JRA   16,3(16)
 PNT1:350736000002
 PNT2:000736000000
 PNT3:POINT 6,PNT2,5
      ENTRY INTO
      END