Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0003/pasold.mac
There are 4 other files named pasold.mac in the archive. Click here to see a list.
	title PASOLD - contains out of date routines, for old programs

	search pasunv

	twoseg

	reloc 400000

	entry get,newpag,retpag

	extern getpag,relpag,get.

get==get.  		;name was changed to avoid conflict at Wharton

;procedure newpage(var pagenum:integer;var page:^realpage);
;b - place to put page no.; c - place to put addr.
newpag:	move d,c		;call getpages for one page
	move c,b
	movei b,1
	jrst getpag

;procedure retpage(pagenum:integer);
retpag:	move c,b		;call relpages for one page
	movei b,1
	jrst relpag

	prgend

	title PASONM - contains out of date number readers

	search pasunv

	twoseg

	reloc 400000

	entry readc,readi,readr

	extern .readc,.readi,.readr

readc:	push p,c
	pushj p,.readc
	pop p,a
	movem c,(a)
	popj p,

readi:	push p,c
	pushj p,.readi
	pop p,a
	movem c,(a)
	popj p,

readr:	push p,c
	pushj p,.readr
	pop p,a
	movem c,(a)
	popj p,

	end