Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/junpak.mac
There are no other files named junpak.mac in the archive.
TITLE JUNPAK
;IWO= JUNPAK(NL,NR,IW)--- IW IS ASCII WORD.RETURNS WITH
;OCTAL WORD IWO RIGHT JUSTIFIED AFTER
;DELETING NL CHARACTERS AT LEFT OF IW AND NR CHARACTERS AT RIGHT
;OF IW.
INTERN JUNPAK
JUNPAK: 0
MOVSI 2 ;SAVE AC2 TO AC4
HRRI ACSAV
BLT ACSAV+2
MOVE 2,@(16) ;AC2=NL
MOVE 3,@1(16) ;AC3=NR
MOVE 0,@2(16) ;AC0=IW
MOVE 4,2
IMULI 4,7
LSH 0,@4
IMULI 3,7 ;AC3=NR*7
ADDI 3,1 ;AC3=NR*7+1
IMULI 2,7 ;AC2=NL*7
ADD 2,3 ;AC2=7*(NL+NR)+1
MOVN 2,2
HRRZS 2
LSH 0,@2
MOVSI 1,ACSAV ;RESTORE AC'S
HRRI 1,2
BLT 1,4
JRA 16,3(16)
BLANKS: BYTE(7) 040,040,040,040,040
ACSAV: BLOCK 3
END