''TITLE, TEST12C
''HEAD, LINKER COMMON ALLOCATION TEST
''LIST
  /////////////////////////////////////////////////////////
  //                                                     //
  // DATE   : SEP 19,1978                                //
  //                                                     //
  // AUTHOR : T. CHENG                                   //
  //                                                     //
  // TEST # : TEST12C                                    //
  //                                                     //
  // PURPOSE :   TEST MEMORY ALLOCATION FOR BLANK        //
  //              AND NAMED COMMONS.                     //
  //                                                     //
  // NOTE :      LINK WITH TEST12A,TEST12B AND           //
  //              TEST12D FOR TESTING.                   //
  //                                                     //
  /////////////////////////////////////////////////////////
''EJECT
     'LBR' CA, CB[3], CC 'RBR',                           // BLANK COMMON
     COM4 : 'LBR' CFLAG4, BUF4[100], 'DP' BPTR4 'RBR',    // #4 NAMED COMMON
     COM5 : 'LBR' CFLAG5, BUF5[100], 'DP' BPTR5 'RBR',    // #5 NAMED COMMON
     COM6 : 'LBR' CFLAG6, BUF6[100], 'DP' BPTR6 'RBR',    // #6 NAMED COMMON
   ;;TEST12C::                                            // FLOWCHART NAME
     SUB456:: 'LBR'                                       // ENTRY POINT
       0 -> CA,                                           //
       4 -> CFLAG4,                                       //
       5 -> CFLAG5,                                       //
       6 -> CFLAG6,                                       //
       BPTR4 -> 'DP' CB,                                  //
       BUF4[1] -> BUF5[2],                                //
       BUF5[2] -> BUF6[2],                                //
       'RBR'
   .....
''END