Table of Contents

KOVDIS

Table Of Contents

  • [00004] PRGM KOVDIS
  • [00047] PROC KDISLN
  • [00048] PROC XTRACE

Source Code

KOVDIS.txt 
  1. *DECK KOVDIS
  2. USETEXT NIPDEF
  3. USETEXT PARAMS
  4. PRGM KOVDIS;    # OVERLAY BOOTSTRAP FOR KDISLN #
  5.  STARTIMS;
  6. # 
  7. *1DC  KOVDIS
  8. * 
  9. *     1.PROC NAME       AUTHOR      DATE
  10. *       KOVDIS          M.GIBIAN    84/01/20
  11. * 
  12. *     2.FUNCTIONAL DESCRIPTION
  13. * 
  14. *       TRANSFER CONTROL TO KDISLN IN SECONDARY OVERLAY 
  15. * 
  16. *     3.METHOD USED 
  17. * 
  18. *       CALL KDISLN WITH PARAMETERS PASSED VIA PARAMS 
  19. * 
  20. *     4.ENTRY PARAMETERS
  21. * 
  22. *       PARAMS1 - RELATIVE LINE TO DISPLAY
  23. *       PARAMS2 - ADDRESS OF STRUCTURE TO BE DISPLAYED
  24. *       PARAMS3 - TYPE OF STRUCTURE TO DISPLAY
  25. * 
  26. *     5.OUTPUT PARAMETERS 
  27. * 
  28. *     6.COMDECKS AND TEXTS USED 
  29. * 
  30. *     NIPDEF      PARAMS
  31. * 
  32. *     7.ROUTINES CALLED 
  33. * 
  34. *       KDISLN  - DISPLAY K STATUS LINE 
  35. *       XTRACE  - RECORD PROCESSOR CALLS
  36. * 
  37. *     8.DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION
  38. * 
  39. # 
  40.  STOPIMS; 
  41.  
  42. # 
  43.     EXTERNAL CALLS
  44. # 
  45.  
  46.     XREF BEGIN
  47.        PROC KDISLN; 
  48.        PROC XTRACE; 
  49.        LABEL RJMAIN;
  50.        END
  51.  
  52.  
  53.     BEGIN 
  54.        CONTROL IFEQ DEBUG,1;
  55.        XTRACE("KOVDI"); 
  56.        CONTROL FI;
  57.  
  58.     KDISLN(PARAMS1,PARAMS2,PARAMS3);
  59.     GOTO RJMAIN;
  60.     END 
  61. TERM