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