Retro1.org codex

*DECK KOVDIS
USETEXT NIPDEF
USETEXT PARAMS
PRGM KOVDIS;    # OVERLAY BOOTSTRAP FOR KDISLN #
 STARTIMS;
# 
*1DC  KOVDIS
* 
*     1.PROC NAME       AUTHOR      DATE
*       KOVDIS          M.GIBIAN    84/01/20
* 
*     2.FUNCTIONAL DESCRIPTION
* 
*       TRANSFER CONTROL TO KDISLN IN SECONDARY OVERLAY 
* 
*     3.METHOD USED 
* 
*       CALL KDISLN WITH PARAMETERS PASSED VIA PARAMS 
* 
*     4.ENTRY PARAMETERS
* 
*       PARAMS1 - RELATIVE LINE TO DISPLAY
*       PARAMS2 - ADDRESS OF STRUCTURE TO BE DISPLAYED
*       PARAMS3 - TYPE OF STRUCTURE TO DISPLAY
* 
*     5.OUTPUT PARAMETERS 
* 
*     6.COMDECKS AND TEXTS USED 
* 
*     NIPDEF      PARAMS
* 
*     7.ROUTINES CALLED 
* 
*       KDISLN  - DISPLAY K STATUS LINE 
*       XTRACE  - RECORD PROCESSOR CALLS
* 
*     8.DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION
* 
# 
 STOPIMS; 
 
# 
    EXTERNAL CALLS
# 
 
    XREF BEGIN
       PROC KDISLN; 
       PROC XTRACE; 
       LABEL RJMAIN;
       END
 
 
    BEGIN 
       CONTROL IFEQ DEBUG,1;
       XTRACE("KOVDI"); 
       CONTROL FI;
 
    KDISLN(PARAMS1,PARAMS2,PARAMS3);
    GOTO RJMAIN;
    END 
TERM