.title  verify
        .link   "sys$system:sys.stb"/selective_search
        .link   "sys$system:dcldef.stb"/selective_search
        .library "SYS$LIBRARY:LIB"
        .psect  $CODE long,pic,con,lcl,shr,exe,nowrt
        .entry  verify,^m<>
        movl    #CTL$AG_CLIDATA,r0
        movl    W^PPD$L_PRC(r0),r0
        moval   W^PRC_W_FLAGS(r0),r0
        movzwl  (r0),r0
        bbs     #PRC_V_VERIFY,r0,100$
        movl    #0,@B^4(ap)
        ret
100$:   movl    #-1,@B^4(ap)
        ret
        .end