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