Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0003/power.mac
There are 4 other files named power.mac in the archive. Click here to see a list.
title power - ** for pascal
search monsym,pasunv
.request sys:forlib.rel
entry power,ipower,mpower
extern exp3.2,exp1.2,exp2.2
power: push p,15
push p,16
pushj p,exp3.2
pop p,16
pop p,15
movem b,1(p)
popj p,
ipower: push p,15
push p,16
pushj p,exp1.2
pop p,16
pop p,15
movem b,1(p)
popj p,
mpower: push p,15
push p,16
pushj p,exp2.2
pop p,16
pop p,15
movem b,1(p)
popj p,
end