Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0003/usedef.unv
There are 4 other files named usedef.unv in the archive. Click here to see a list.
x
,5E^yP KK|@ %h"Z
ifl opsy&s,<
	OUTSTR	[ASC&(IZ/?
? A
/]
i&Hfn .sat,<
	EXIT	&h1,
	POPJ	P,
> ;'ifn .sat
ife .sa'(t,<
	HRRZ	0,-1(P'H)	;get return pc
	PUSHJ	P,RUNER.#(#
> ;ife .sat
>(( ;ifl opsys

if(Hge OPSYS,<
ifn .(hsat,<	PUSH	P,1>
)	HRROI	1,[ASCIZ/?)(
? A
/]
	PSOU)HT
ifn .sat,<
	H)hALTF
	POP	P,1
	*POPJ	P,
> ;ifn .*(sat
ife .sat,<
*H	HRRZ	0,-1(P)	;ge*ht return pc
	PUS+HJ	P,RUNER.##
> +(;ife .sat
> ;ifge opsys
o(utS7\R "h"ifn ..loc,<	reloc>
S:H ("	title A HB
params
ife ohpsys,<	search ste nex>
ifg opsys,< (	search monsym>
 Hifn .twseg,<
	tw hoseg
	reloc 0
	!reloc 400000
	..!(loc==:1
>
ife .!Htwseg,<..loc==:0>!h
	pure
entry	A
A::]&`@#_C`P `@ a>:=@ a9 @ d.twseg==:1`		; set =0 for oneseg version
sea rch pasunv
.sat=@=:00		; 1= stand `alone test version
			; -1 for qu iet test
ifn top@s10,<opsys==:-1>
ife tops10,<
	ifn tenex,<opsys== :0>
	ife tenex,<@opsys==:1>
> ;if`e tops10
			; -1= tops10 version
			; 0 = tenex
@			; 1 = tops20
`bakwd==:1		; 1= allocate from top  down, 0=bottom up@
			;with bakwd `on, uses GETNEW in PASIO, with it  off,
			;convent@ional allocation `at .JBFF.
xsize==:1		; 1= insist  on allocating EXA@CT size requested`.
			; 0= otherwise, can be a few  words bigger.
	@		; and therefore` doesn't check size of returned ob jects.
nil=37777@7		; representati`on of NIL
pagsiz	=777		;should use	  1777 for tops10&	@kacpu, since that	` uses K
			; ins
tead of pages.  H
 owever since they
@ also don't do
	
`		; auto-expansion but allocate in  a fixed space, I@
			; want to mi`nimize the use of
 their space.
.c
 lear==:0		;if non
@zero, clear the area
aWP "("ife ..loc,<	reloc>
hD@ hH@ hL@ hP@ hT@ it^P i?4(P ig #(" ifge opsys#H,<
	hrroi	1,A
#h	psout
>
ifl op$sys,<
	outstr	A
>
ig0 $H"*ifl opsys,$h<
	outchr	A
>%
ifge opsys,<
	m%(ove	1,A
	pbout
>
qNO) P dX9P S@P N@P S>93P >}{woP