.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 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