home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / Rm Cobol V2.2 / LNKTST.CBL < prev    next >
Encoding:
Text File  |  1985-12-19  |  961 b   |  33 lines
  1.     IDENTIFICATION DIVISION.
  2.     PROGRAM-ID.        ASMTST.
  3.       *        CP/M, MP/M & DOS Release 2.0 RMCOBOL
  4.       *            Testing Linked assembly routines.
  5.       *            Date Revised    01 APRIL 1984
  6.     AUTHOR. Ryan-Mcfarland
  7.     DATE-WRITTEN. 19 OCTOBER 1983
  8.     SECURITY. NONE
  9.     ENVIRONMENT DIVISION.
  10.     CONFIGURATION SECTION.
  11.     SOURCE-COMPUTER. RMCOBOL.
  12.     OBJECT-COMPUTER. RMCOBOL.
  13.       *
  14.     DATA DIVISION.
  15.     WORKING-STORAGE SECTION.
  16.     77    CHARACTER-STRING    PIC    X(20) VALUE SPACES.
  17.     77    STRING-LENGTH        PIC    99999 COMP-1.
  18.     77    LENGTH-VALUE        PIC XXXXX.
  19.     PROCEDURE DIVISION.
  20.     MAIN-PROC.
  21.         PERFORM INITIALIZATION.
  22.         CALL "ASMTST" USING CHARACTER-STRING, STRING-LENGTH.
  23.         MOVE STRING-LENGTH TO LENGTH-VALUE.
  24.         DISPLAY " PARAMETERS PASSED FROM COMMAND LINE >" 
  25.                 CHARACTER-STRING "< LENGTH OF " LENGTH-VALUE.
  26.         GO TO STOP-PARA.
  27.     INITIALIZATION.
  28.         DISPLAY "  TESTING CP/M, MP/M & DOS ASSEMBLY LANGUAGE LINKS"
  29.                 LINE 5 POSITION 5 ERASE.
  30.     STOP-PARA.
  31.         STOP RUN.
  32.     END PROGRAM.
  33.