Table of Contents

1VP

Table Of Contents

  • [00009] VIRTUAL PP.

Source Code

1VP.txt 
  1.           IDENT  1VP,VPA 
  2.           PERIPH
  3.           BASE   MIXED
  4.           SST
  5.           SYSCOM
  6. *COMMENT  1VP - VIRTUAL PP.
  7.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  8.           SPACE  4,10
  9. ***       1VP -  VIRTUAL PP.
  10. *         K. H. BOSSARD.     81/03/16.
  11.           SPACE  4,10
  12. ***              *1VP* IS A HELPER PP PROGRAM TO BE USED BY
  13. *         *VER* TO RESERVE A PP FOR NOS/VE.
  14.           SPACE  4,10
  15. ***       CALL.
  16. *
  17. *
  18. *T        18/   *1VP*, 42/0.
  19.           SPACE  4,10
  20. *CALL     COMPMAC
  21.           SPACE  4,10
  22.           ORG    PPFW
  23.  
  24.  VPA      LDN    NCPL        GET SYSTEM CONTROL POINT NUMBER
  25.           CRD    CM
  26.           AOD    CM+1
  27.           MONITOR  CCAM      CHANGE TO SYSTEM CONTROL POINT
  28.           LDD    IA          SET IR TO INDICATE READY TO *VER*
  29.           CRD    CM
  30.           LDC    2R*V
  31.           STD    CM
  32.           LDD    CM+1
  33.           LPN    77
  34.           LMC    1RP*100
  35.           STD    CM+1
  36.           LDD    IA
  37.           CWD    CM
  38.           UJN    *
  39.  
  40.           END