.title  imageinfo
        .link   "sys$system:sys.stb"/selective_search
        .library "SYS$LIBRARY:LIB"
        $SSDEF
        $IHDDEF
        $IHIDEF
        .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
        movzwl  B^IHD$W_IMGIDOFF(r6),r0
        addl2   r0,r6                   ; address of image-ident
        movzbl  B^IHI$T_IMGNAM(r6),@B^8(ap)
        movl    B^4(ap),r0
        movc3   @B^8(ap),B^IHI$T_IMGNAM+1(r6),@B^4(r0)
        movzbl  B^IHI$T_IMGID(r6),@B^16(ap)
        movl    B^12(ap),r0
        movc3   @B^16(ap),B^IHI$T_IMGID+1(r6),@B^4(r0)
        ret
        .end