Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

%IF NOT %DECLARED(BLT) %THEN
LITERAL
    BLT = %O'251'; %FI

MACRO
    $$BLT(ac, addr) =
        BEGIN
        BUILTIN
            MACHOP;
        REGISTER
            t;

        t = ac;
        MACHOP(blt,t,addr,0,0)
        END %,

    $$COPYVEC(src, dst, len) =
        BEGIN
        STACKLOCAL
            ad;
        ad = ((src) ^ 18) + (dst);
        $$BLT(ad, (src) + (len) - 1)
        END %,

    $$CLEARVEC(addr,len) =
        BEGIN
        addr = 0;
        $$COPYVEC(addr, addr + 1, len)
        END %;