       IDENTIFICATION DIVISION.
       PROGRAM-ID. ASMTST.
      *        CP/M, MP/M Release 2.0 RMCOBOL
      *           Testing Linked assembly routines.
      *           Date Revised  01 APRIL 1984
       AUTHOR. Ryan-Mcfarland
       DATE-WRITTEN. 19 OCTOBER 1983
       SECURITY. ZIPPY
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. RMCOBOL.
       OBJECT-COMPUTER. RMCOBOL.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77  CHARACTER-STRING    PIC  X(20) VALUE SPACES.
       77  STRING-LENGTH       PIC  99999 COMP-1.
       77  LENGTH-VALUE        PIC  XXXXX.
       PROCEDURE DIVISION.
       MAIN-PROC.
           PERFORM INITIALIZATION.
           CALL "ASMTST" USING CHARACTER-STRING, STRING-LENGTH.
           MOVE STRING-LENGTH TO LENGTH-VALUE.
           DISPLAY " PARAMETERS PASSED FROM COMMAND LINE >" 
                   CHARACTER-STRING  "< LENGTH OF " LENGTH-VALUE.
           GO TO STOP-PARA.
       INITIALIZATION.
           DISPLAY "  TESTING CP/M, MP/M ASSEMBLY LANGUAGE LINKS"
                   LINE 5 POSITION 5 ERASE.
       STOP-PARA.
           STOP RUN.
       END PROGRAM.
