*COMDECK  PFDIO 
          TITLE                  PFDIO- READS+WRITES PRU OF INFO. 
**
* 
* 
**        PFDIO-READS ONE PRU OF THE PFD
*         ENTER - A = ADDRESS OF 4 BYTE PFD POINTER 
*                        FLAGS  = NO FET AND/OR NO FNT FLAGS+EXACT BIT
*                        ORDER= O.RDP, OR O.WRP 
*                        BUFFER = STARTING ADDRESS OF PP BUFFER 
*                        BUFERLIM = LENGTH OF PP BUFFER TO BE FILLED
*                        OR WRITTEN 
*                         RBTA= RBTA OF FILE
          SPACE  2
PFDIO     ENM    X
          STD    TEMP 
          LDI    TEMP              GET RBTA 
          STD    STACKRE1+C.STPRBA
          AOD    TEMP              GET RBTO 
          LDI    TEMP 
          STD    STACKRE1+C.STPRBN GET PRU NUMBER 
          AOD    TEMP 
          LDI    TEMP 
          STD    STACKRE1+C.STPPRU
          LDM    ORDER
          STD    STACKRE1+C.STO    STORE READ ORDER 
          LDN    0
          STD    STACKRE1+C.STCPU  STORE THE DST ORDINAL
          LDM    BUFFER            BEGINNING OF PP BUFFER 
          STD    STACKRE2+C.STPFW 
          ADM    BUFERLIM 
          STD    STACKRE2+C.STPLW 
          LDM    FLAGS             NO FET AND/OR NO NO FNT FLAG+EXACT BI
          SHN    6
          STD    STACKRE2+C.STFB
          LDM    ORDER
          SHN    15                CHECK IF READ DESIRED
          MJN  WRITE
          LDN    STACKRE1 
          RJM  R.READP
          RJM  SRSTAT 
PFDIOXX   LJM  PFDIOX 
  
WRITE     LDN    STACKRE1 
          RJM  R.WRITEP 
          RJM  SRSTAT 
          UJN  PFDIOXX
