.title  imageinfo
        .library "SYS$LIBRARY:LIB"
        $SSDEF
        $EIHDDEF
        $EIHIDEF
        .psect  $CODE quad,pic,con,lcl,shr,exe,nowrt
;***************************************
;
;  IMAGEINFO ( NAME , NAMELEN , ID , IDLEN )
;
;  get image-information
;
;***************************************
        .entry  imageinfo,^m<r2,r3,r4,r5,r6>
        movl    @#CTL$GL_IMGHDRBF,r6    
        movl    (r6),r6                 ; address of image-header
        movl    B^EIHD$L_IMGIDOFF(r6),r0
        addl2   r0,r6                   ; address of image-ident
        movzbl  B^EIHI$T_IMGNAM(r6),@B^8(ap)
        movl    B^4(ap),r0
        movc3   @B^8(ap),B^EIHI$T_IMGNAM+1(r6),@B^4(r0)
        movzbl  B^EIHI$T_IMGID(r6),@B^16(ap)
        movl    B^12(ap),r0
        movc3   @B^16(ap),B^EIHI$T_IMGID+1(r6),@B^4(r0)
        ret
        .end