1VP 
          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 
