*PURPOSE: TO SCAN ALL OF REAL MEMORY, THROUGH EACH
*                 VIRTUAL PAGE AVAILABLE TO THE USER.
*METHOD:  THE REAL ADDRESSES ARE SET INTO EACH AVAIL-
*         ABLE PAGE BY THE CVM CAL. CVA'S AND LOAD MULTIPLES
*         ARE THEN USED TO CREATED MEMORY INTERFERRENCE
*OUTPUTS: 'MEMORY SCANNER HERE'
*                 START OF PROGRAM
*         'MEMORY SCANNER ONE PASS COMPLETE'
*                 ALL VIRTUAL USER PAGES HAVE BEEN USED
*                 TO SCAN MEMORY
*THIS PROGRAM REQUIRES AT LEAST A '80' PRIVLEDGE TO RUN.
         SYSTEM   BPM
         SYSTEM   SIG7
F:CPVCTL DSECT    1
F:CPVCTL M:DCB (FILE,'CPVEXCONTROL'),(CONSEC),(SEQUEN),;
         (IN),(RECL,80),(TRIES,10)
         CSECT    0
START    EQU      $
   M:TYPE (MESS,COREXHE)
     M:STIMER    (SEC,1),CPVCNTL
         M:TRAP   (IGNORE,FX)
         M:GP     1
         LW,1     9
         STW,1    STPAGE
         M:FP     1
CVAL1    LI,2     0
         LI,3     7
CVAL2    STW,1    GPAGE+1
         STW,1    GFPAGE
         STW,2    GPAGE
         STB,3    GPAGE
         CAL1,8   GPAGE
         BCS,8    DWAIT
         DO       2
         LI,9     -1
         LOCAL    CVAST
CVAST    EQU      $
         DO1      16
         CVA,8    32*ABSVAL($-CVAST),1
         LCI      8
         LOCAL    LMST
LMST     EQU      $
         DO1      64
         LM,8     8*ABSVAL($-LMST),1
         FIN
         M:FVP    *GFPAGE
         AI,2     512
         B        CVAL2
DWAIT    M:WAIT   0
         AI,1     512
         CI,1     X'20000'
         BL       $+2
         LW,1     STPAGE
         MTB,1    PASSER
         BCS,3    $+2
         M:TYPE   (MESS,MSPASS)
         B        CVAL1
STPAGE   DATA     0
COREXHE TEXTC '**MEMORY SCANNER HERE***'
MSPASS   TEXTC    'MEMORY SCANNER- ONE PASS'
GPAGE    DATA     0
         DATA     0
GFPAGE   DATA     0
PASSER   DATA     0
CPVCNTL  LI,1     0
         M:OPEN   F:CPVCTL,(ABN,CNTRLAB)
         M:READ   F:CPVCTL,(BUF,CBUFF),(SIZE,80),(WAIT),(ABN,CNTRLAB),;
         LW,1     CBUFF
         CW,1     ='WAIT'
         BCR,3    CWAITR
         M:CLOSE F:CPVCTL
CNTRLAB  M:STIMER (SEC,1),CPVCNTL
         M:TRTN
CWAITR   M:CLOSE F:CPVCTL
         M:WAIT   25
         B        CPVCNTL
CBUFF    RES      80
         END      START
