''TITLE, TEST12A
''HEAD, LINKER COMMON ALLOCATION TEST
''LIST
  /////////////////////////////////////////////////////////
  //                                                     //
  // DATE   : SEP 18,1978                                //
  //                                                     //
  // AUTHOR : T. CHENG                                   //
  //                                                     //
  // TEST # : TEST12A                                    //
  //                                                     //
  // PURPOSE :   TEST MEMORY ALLOCATION FOR BLANK        //
  //              AND NAMED COMMONS.                     //
  //                                                     //
  // NOTE :      LINK WITH TEST12B,TEST12C AND           //
  //              TEST12D FOR TESTING.                   //
  //                                                     //
  /////////////////////////////////////////////////////////
''EJECT
     'LBR' A, B[3], C 'RBR',                           // BLANK COMMON
     COM1 : 'LBR' FLAG1, BUFFER1[100], 'DP' BUFPTR1 'RBR',  // #1 NAMED COMMON
     COM2 : 'LBR' FLAG2, BUFFER2[100], 'DP' BUFPTR2 'RBR',  // #2 NAMED COMMON
     COM3 : 'LBR' FLAG3, BUFFER3[100], 'DP' BUFPTR3 'RBR',  // #3 NAMED COMMON
     COM4 : 'LBR' FLAG4, BUFFER4[100], 'DP' BUFPTR4 'RBR',  // #4 NAMED COMMON
     COM5 : 'LBR' FLAG5, BUFFER5[100], 'DP' BUFPTR5 'RBR',  // #5 NAMED COMMON
     COM6 : 'LBR' FLAG6, BUFFER6[100], 'DP' BUFPTR6 'RBR',  // #6 NAMED COMMON
     COM7 : 'LBR' FLAG7, BUFFER7[100], 'DP' BUFPTR7 'RBR',  // #7 NAMED COMMON
     COM8 : 'LBR' FLAG8, BUFFER8[100], 'DP' BUFPTR8 'RBR',  // #8 NAMED COMMON
     COM9 : 'LBR' FLAG9, BUFFER9[100], 'DP' BUFPTR9 'RBR',  // #9 NAMED COMMON
   ;;TEST12A::                                              // FLOWCHART NAME
    'LOC' BUFFER1 -> BUFPTR1,                               // BUF PTR1
    'LOC' BUFFER2 -> BUFPTR2,                               // BUF PTR2
    'LOC' BUFFER3 -> BUFPTR3,                               // BUF PTR3
    'LOC' BUFFER4 -> BUFPTR4,                               // BUF PTR4
    'LOC' BUFFER5 -> BUFPTR5,                               // BUF PTR5
    'LOC' BUFFER6 -> BUFPTR6,                               // BUF PTR6
    'LOC' BUFFER7 -> BUFPTR7,                               // BUF PTR7
    'LOC' BUFFER8 -> BUFPTR8,                               // BUF PTR8
    'LOC' BUFFER9 -> BUFPTR9,                               // BUF PTR9
     0 -> FLAG1 -> FLAG2 -> FLAG3 -> B[0],               // INIT FLAGS
     SUB123,                                             // CALL SUB IN TEST12B
     0 -> FLAG4 -> FLAG5 -> FLAG6 -> B[1],               // INIT FLAGS
     SUB456,                                             // CALL SUB IN TEST12C
     0 -> FLAG7 -> FLAG8 -> FLAG9 -> B[2],               // INIT FLAGS
     SUB789,                                             // CALL SUB IN TEST12D
     5 -> A,
     8 -> C,
   .....
''END