          SPACE  1
*         COMMON DECK CMRW64.
          SPACE  1
************************************************************************
*         SUBROUTINE         CMR64
*
*         PURPOSE            READ DATA FROM CM IN 64-BIT FORMAT
*
*         ENTRY              A CONTAINS THE PPU INPUT BUFFER ADDRESS
*                            DADDR HOLDS THE ADDRESS OF THE CM ADDRESS
*                             OF THE CM BUFFER IN THE FORMAT --
*                                         DAU 00000000UUUU
*                                         DAM MMMMMMMMMMMM
*                                         DAL LLLLLLLLLLLL      WHERE
*                                      U, M, AND L ARE THE UPPER
*                                      MIDDLE AND LOWER BITS
                             CMXFR HOLDS THE NO. OF CM WORDS TO READ
*                            CMAI HOLDS AN OFFSET TO THE CM ADDRESS
*
*         EXIT               THE DATA HAS BEEN READ INTO THE PPU
*
************************************************************************
 CMR64    SUBR               ENTRY
          STM    CMR64.1     STORE PP ADDRESS IN READ
          LDD    DADDR
          RJM    CMADDR      FORMAT CM ADDRESS
          LDD    CMAI        GET ADDRESS INCREMENT (IF ANY)
          RJM    LINCMA      INCREMENT CM ADDRESS
          CRML   *,CMXFR     READ 64-BIT CM WORD INTO PP
          ORG    *-1
 CMR64.1  BSS    0           PP ADDRESS GOES HERE
          ORG    *+1
          ENDSUB CMR64       EXIT
          EJECT
          SPACE  1
************************************************************************
*         SUBROUTINE         CMW64
*
*         PURPOSE            WRITE DATA TO CM IN 64-BIT FORMAT
*
*         ENTRY              A CONTAINS THE PPU OUTPUT BUFFER ADDRESS
*                            DADDR HOLDS THE ADDRESS OF THE CM ADDRESS
*                             OF THE CM BUFFER IN THE FORMAT --
*                                         DAU 00000000UUUU
*                                         DAM MMMMMMMMMMMM
*                                         DAL LLLLLLLLLLLL      WHERE
*                                      U, M, AND L ARE THE UPPER
*                                      MIDDLE AND LOWER BITS
                             CMXFR HOLDS THE NO. OF CM WORDS TO WRITE
*                            CMAI HOLDS AN OFFSET TO THE CM ADDRESS
*
*         EXIT               THE DATA HAS BEEN WRITTEN TO CM
*
************************************************************************
 CMW64    SUBR               ENTRY
          STM    CMW64.1     STORE PP ADDRESS IN WRITE
          LDD    DADDR
          RJM    CMADDR      FORMAT CM ADDRESS
          LDD    CMAI        GET ADDRESS INCREMENT (IF ANY)
          RJM    LINCMA      INCREMENT CM ADDRESS
          CWML   *,CMXFR     WRITE 64-BIT CM WORD FROM PP
          ORG    *-1
 CMW64.1  BSS    0           PP ADDRESS GOES HERE
          ORG    *+1
          ENDSUB CMW64       EXIT
