Retro1.org codex

*DECK DLWRITC 
USETEXT DLFPDEF 
USETEXT DLONEL
USETEXT OCIOBB
USETEXT OFETB 
USETEXT OUTCDA
PROC DLWRITC(LINE, LSIZE);          # MOVE LINE TO CIO BUFFER          #
 
*IF DEF,IMS 
 #
*1DC  DLWRITC 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLWRITC             P.C.TAM             78/10/03 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        MOVE LINE TO OUTPUT BUFFER, ADD HEADER INFORMATION.
* 
*     3. METHOD USED. 
*        SAME AS 2. 
* 
*     4. ENTRY PARAMETERS.
*        LINE                ARRAY CONTAINING THE LINE
*        LSIZE               SIZE OF LINE IN CM WORDS 
*        LINE$COUNT          LINE COUNT OF THE CURRENT PAGE 
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED.
*        DLFPDEF   OCIOBB    OFETB     OUTCDA 
* 
*     7. ROUTINES CALLED. 
*        DLDISDE             CONVERT BINARY TO DISPLAY DECIMAL
*        DLWRT               WRITE LINE TO CIO BUFFER 
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
 #
*ENDIF
 
# 
      EXTERNAL VARIABLES
# 
      XREF
        BEGIN 
        PROC DLDISDE;        # CONVERT BINARY TO DISPLAY DECIMAL       #
        PROC DLWRT;          # WRITE LINE TO CIO BUFFER                #
        END 
# 
      LOCAL VARIABLES 
# 
      ARRAY LINE S(1);
        BEGIN 
        ITEM LINEX           U(0,0,WL); 
        END 
 
      ITEM
      LSIZE      I,          # SIZE OF LINE IN CM WORDS                #
      LINE$INC   I,          # NO OF LINES ADDED TO REPORT             #
      TEMP       C(WC);      # TEMPORAY VARIABLE                       #
 
# *********************************************************************#
 
      BEGIN 
 
      IF LINE$COUNT GQ MAXNO
      THEN
        BEGIN                # WRITE PAGE HEADER                       #
        DLWRT(OFET,ONEL,1) ;
        DLWRT(OFET, L1, 12);
        PAGE$COUNT = PAGE$COUNT + 1;
        DLDISDE(PAGE$COUNT, 5, TEMP); 
        L2PGNO[0] = TEMP; 
        DLWRT(OFET, L2, 12);
#       DLWRT(OFET, L3, 6)                                             #
        DLWRT(OFET, THRL, 1); 
        LINE$COUNT = 6; 
        END 
 
      DLWRT(OFET, LINE, LSIZE); 
      IF NOT OUPART 
      THEN                   # OUTPUT A COMPLETE LINE                  #
        LINE$COUNT = LINE$COUNT + 1;
      END 
TERM