Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/lunpak.mac
There are no other files named lunpak.mac in the archive.
TITLE LUNPAK
ENTRY LUNPAK
INTERN LUNPAK
LUNPAK: 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
IMULI 3,7 ;AC3=NR*7
ADDI 3,1 ;AC3=NR*7+1
MOVN 4,3 ;AC4=-(NR*7+1)
HRRZS 4 ;AC4=0,-(NR*7+1)
LSH 0,@4 ;SHIFT RIGHT,END OFF-ZERO FILL
IMULI 2,7 ;AC2=NL*7
ADD 2,3 ;AC2=7*(NL+NR)+1
MOVE 1,BLANKS ;AC1=ALL BLANKS
ROTC 0,@2 ;ROTATE LEFT,END OFF-BLKFILL
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