C C C P A C K C C PACK ASCII CHARACTERS C C THIS ROUTINE RECEIVES 12 BYTES , EACH OF WHICH CONTAINS ONE ASCII C CHARACTER AND PACKS THIS INTO A 6 C WORD ARRAY. THE SOURCE LINES ARE READ IN UNDER AN 80A1 FORMAT C THIS ROUTINE IS USED TO PACK SYMBOLS C INTO TWO CHARACTER PER WORD FORMAT SO THAT THEY ARE COMPATABLE WITH C THE PACKED FORMAT OF THE VARIOUS SYMBOL TABLES.THE CALLING SEQUENCE C IS AS FOLLOWS: C C CALL PACK ( ASCI12 , PCKASC ) C C WHERE: C ASCI12- INTEGER ARRAY CONTAINING THE SIX ASCII CHARACTERS RIGHT C JUSTIFIED AND BLANK FILLED C PCKASC- INTEGER ARRAY WHICH, UPON RETURN , WILL CONTAIN THE 12 C ASCII CHARACTERS PACKED TWO PER WORD C SUBROUTINE PACK ( ASCI12 , PCKASC ) INTEGER ASCI12(12) , PCKASC(6) DO 10 I = 1 , 6 J = I * 2 PCKASC(I)= ( ( ASCI12(J) -"020000 ) * 256 ) + * ( ASCI12(J-1) - "020000 ) 10 CONTINUE D WRITE (4,1) PCKASC D 1 FORMAT (' PACK PACKED SYMBOL ',6A2) RETURN END