*DECK TVFRECV 
          IDENT TVFRECV 
          ENTRY  TVFRECV
          ENTRY  RPVPBLK
          EXT    NETOFF 
          EXT    SYS= 
 TVFRECV  BSSZ   1
          REPRIEVE RPVPBLK,SET,77B
          EQ     TVFRECV
 RPVPBLK  VFD    36/0,12/25,12/0
          VFD    30/0,30/RPVADDR
          BSSZ   23 
 RPVADDR  BSS    0
          SB1    1
          SA0    =C*  TVF REPRIEVED.* 
          MESSAGE  A0,0,R 
          SYSTEM DMB,R,0,037B 
          RJ     NETOFF 
          REPRIEVE RPVPBLK,RESET,77B
          END