''TITLE, TEST12B
''HEAD, LINKER COMMON ALLOCATION TEST
''LIST
  /////////////////////////////////////////////////////////
  //                                                     //
  // DATE   : SEP 18,1978                                //
  //                                                     //
  // AUTHOR : T. CHENG                                   //
  //                                                     //
  // TEST # : TEST12B                                    //
  //                                                     //
  // PURPOSE :   TEST MEMORY ALLOCATION FOR BLANK        //
  //              AND NAMED COMMONS.                     //
  //                                                     //
  // NOTE :      LINK WITH TEST12A,TEST12C AND           //
  //              TEST12D FOR TESTING.                   //
  //                                                     //
  /////////////////////////////////////////////////////////
''EJECT
     'LBR' BA, BB[3], BC 'RBR',                           // BLANK COMMON
     COM1 : 'LBR' BFLAG1, BUF1[100], 'DP' BPTR1 'RBR',    // #1 NAMED COMMON
     COM2 : 'LBR' BFLAG2, BUF2[100], 'DP' BPTR2 'RBR',    // #2 NAMED COMMON
     COM3 : 'LBR' BFLAG3, BUF3[100], 'DP' BPTR3 'RBR',    // #3 NAMED COMMON
   ;;TEST12B::                                            // FLOWCHART NAME
     SUB123:: 'LBR'                                       // ENTRY POINT
       0 -> BA,                                           //
       4 -> BFLAG1,                                       //
       5 -> BFLAG2,                                       //
       6 -> BFLAG3,                                       //
       BPTR1 -> 'DP' BB,                                  //
       BUF1[1] -> BUF2[2],                                //
       BUF2[2] -> BUF3[2],                                //
       'RBR'
   .....
''END