IDENT  1VP,VPA 
          PERIPH
          BASE   MIXED
          SST
          SYSCOM
*COMMENT  1VP - VIRTUAL PP.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
          SPACE  4,10
***       1VP -  VIRTUAL PP.
*         K. H. BOSSARD.     81/03/16.
          SPACE  4,10
***              *1VP* IS A HELPER PP PROGRAM TO BE USED BY
*         *VER* TO RESERVE A PP FOR NOS/VE.
          SPACE  4,10
***       CALL.
*
*
*T        18/   *1VP*, 42/0.
          SPACE  4,10
*CALL     COMPMAC
          SPACE  4,10
          ORG    PPFW

 VPA      LDN    NCPL        GET SYSTEM CONTROL POINT NUMBER
          CRD    CM
          AOD    CM+1
          MONITOR  CCAM      CHANGE TO SYSTEM CONTROL POINT
          LDD    IA          SET IR TO INDICATE READY TO *VER*
          CRD    CM
          LDC    2R*V
          STD    CM
          LDD    CM+1
          LPN    77
          LMC    1RP*100
          STD    CM+1
          LDD    IA
          CWD    CM
          UJN    *

          END