Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - 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