From:	HENRY::IN%"BUCLIN%clsepf51.bitnet%wiscvm.wisc.edu%kl.sri.com%csnet-relay.CSNET%relay.cs.net@RCA.COM"  3-JUN-1987 18:24
To:	INFO-VAX@sri-kl.arpa
Subj:	


     Since many people mailed me that they have got problems  with  my
     program SYMBOLS under VMS 4.4, I post here the correct values for
     the DCL link offsets. The values I gave before was  those  I  got
     from the micro-fiches. At the moment I developped the  program  I
     did not have a VMS 4.4 system to test it, I found one since and I
     have tested the values I give here. These values only  apply  for
     VMS 4.4. Those which are given in the source  program  correspond
     to VMS 4.5 and micro-VMS 4.5 (I haven't test them on VMS 4.5A,  B
     or C).

DCL$PURGE_SYM:          .long   ^X2319
DCL$RESTORE_SYM:        .long   ^X223B
DCL$RESTORE_ABBREV:     .long   ^X2270
DCL$DEALLOCSYM:         .long   ^X1FE6

     The technique to get new values for other versions of VMS is  the
     following :

     1. With the micro-fiches determine  the  offset  inside  the  DCL
     image of the required sub-routine. Use the DCL.MAP file for this.

     2. Using SDA (ANALYZE/SYSTEM) verify that the offset you got from
     the micro-fiche is correct. To perform this, proceed as follow :

     o Define a symbol which correspond to the base address of DCL :
     SDA> DEFINE DCL=CTL$AG_CLIMAGE

     o Then deassemble a portion of  code  beggining  at  the  guessed
     offset :
     SDA> EXAM/INSTR DCL+offset;20
     and compare the listing with the corresponding source code  given
     in the micro-fiche. The source code is in the  SYMBOL  module  of
     facility DCL. If the  code  does  not  correspond,  examine  some
     instruction before the starting address or extend  the  range  of
     instruction to decode. With a bit of  luck,  you  will  find  the
     correct address...

                             Bertrand Buclin
                             Service Informatique
                             Departement de Mathematiques
                             Ecole Polytechnique Federale de Lausanne
                             CH-1015 Lausanne (Switzerland)

          Electronic Mail addresses:

          BITNET/EARN:  BUCLIN@CLSPEF51
          DECnet     :  ELMA::BUCLIN (node 20.34 on Span/PhysNet/CHadNet)
          PSI/VAX    :  PSI%022846911008::ELMA::BUCLIN


