Google
 
Trailing-Edge - PDP-10 Archives - BB-H138F-BM_1988 - 7-sources/blt.r36
Click 7-sources/blt.r36 to see without markup as text/plain
There are 19 other files named blt.r36 in the archive. Click here to see a list.
%IF NOT %DECLARED(BLT) %THEN
LITERAL
    BLT = %O'251'; %FI

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

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

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

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