Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0014/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
; Converted to pushj/popj convention 11 Oct 1980
; by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20
TITLE INTO
INTO: 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
popj 17,
PNT1:350736000002
PNT2:000736000000
PNT3:POINT 6,PNT2,5
ENTRY INTO
END