''TITLE, TEST12D
''HEAD, LINKER COMMON ALLOCATION TEST
''LIST
  /////////////////////////////////////////////////////////
  //                                                     //
  // DATE   : SEP 19,1978                                //
  //                                                     //
  // AUTHOR : T. CHENG                                   //
  //                                                     //
  // TEST # : TEST12D                                    //
  //                                                     //
  // PURPOSE :   TEST MEMORY ALLOCATION FOR BLANK        //
  //              AND NAMED COMMONS.                     //
  //                                                     //
  // NOTE :      LINK WITH TEST12A,TEST12B AND           //
  //              TEST12C FOR TESTING.                   //
  //                                                     //
  /////////////////////////////////////////////////////////
''EJECT
     'LBR' DA, DB[3], DD 'RBR',                           // BLANK COMMON
     COM4 : 'LBR' DFLAG4, BUF4[100], 'DP' BPTR4 'RBR',    // #4 NAMED COMMON
     COM7 : 'LBR' DFLAG7, BUF7[100], 'DP' BPTR7 'RBR',    // #7 NAMED COMMON
     COM8 : 'LBR' DFLAG8, BUF8[100], 'DP' BPTR8 'RBR',    // #8 NAMED COMMON
     COM9 : 'LBR' DFLAG9, BUF9[100], 'DP' BPTR9 'RBR',    // #9 NAMED COMMON
   ;;TEST12D::                                            // FLOWCHART NAME
     SUB789:: 'LBR'                                       // ENTRY POINT
       0 -> DA,                                           //
       4 -> DFLAG4,                                       //
       7 -> DFLAG7,                                       //
       8 -> DFLAG8,                                       //
       9 -> DFLAG9,                                       //
       BPTR4 -> 'DP' DB,                                  //
       BPTR7 -> 'DP' DB,                                  //
       BUF4[1] -> BUF7[2],                                //
       BUF8[2] -> BUF9[2],                                //
       'RBR'
   .....
''END