        .title  excvec
        .link   "sys$system:sys.stb"/se
        .psect  $CODE quad,pic,con,lcl,shr,exe,nowrt
        .entry  excvec,^m<>
        movL    #CTL$AQ_EXCVEC,r0
        movl    24(r0),@4(ap)
        movl    28(r0),@8(ap)
        movL    #CTL$AL_FINALEXC,r0
        movl    12(r0),@12(ap)
        ret
        .end
