.TITLE  VIPLTB
        .GLOBL  VIPLTB
        .PSECT  VPNTBF,RW,D,GBL,REL,OVR
RPSPP:  .BLKW   1
PNTBUF: .BLKW   1
        .PSECT  VPLTBF,RW,D,GBL,REL,OVR
PLTBUF: .BLKW   1
        .PSECT  VPLTYG,RW,D,GBL,REL,OVR
PLTYGB: .BLKW   1
        .PSECT
        .PSECT  VPDP,RW,D,GBL,REL,OVR
PSPP:   .BLKW   1
PBUFL:  .BLKW   1
PCY:    .BLKW   1
PCYSPP: .BLKW   1
PBY:    .BLKW   1
POFBY:  .BLKW   1
PBPIY:  .BLKW   2
PBPCY:  .BLKW   2
PBCIX:  .BLKW   2
        .PSECT
R0=%0
R1=%1
R2=%2
R3=%3
R4=%4
R5=%5
SP=%6
PC=%7
VIPLTB:
        MOV     PBUFL,R0
        ASR     R0            ;R0=LENGTH PLTBUF IN WORDS
        MOV     #PLTBUF,R1
        TSTB    (R5)
        BNE     GOTARG
;MOV 0'S TO PLTBUF
NXT0:   CLR     (R1)+
        DEC     R0
        BNE     NXT0
        RTS     PC
GOTARG: MOV     2(R5),R2
NXTMV:  MOV     (R2)+,(R1)+
        DEC     R0
        BNE     NXTMV
        RTS     PC
        .END