Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50531/usedef.unv
There are 4 other files named usedef.unv in the archive. Click here to see a list.
x
,5

@P E^yP KK|@ P")
ifl opsyps,<
	OUTSTR	[ASC IZ/?
? A
/]
i 0fn .sat,<
	EXIT	 P1,
	POPJ	P,
> ; pifn .sat
ife .sa!t,<
	HRRZ	0,-1(P!0)	;get return pc
	PUSHJ	P,RUNER.#!p#
> ;ife .sat
>" ;ifl opsys

if"0ge OPSYS,<
ifn ."Psat,<	PUSH	P,1>
"p	HRROI	1,[ASCIZ/?#
? A
/]
	PSOU#0T
ifn .sat,<
	H#PALTF
	POP	P,1
	#pPOPJ	P,
> ;ifn .$sat
ife .sat,<
$0	HRRZ	0,-1(P)	;ge$Pt return pc
	PUS$pHJ	P,RUNER.##
> %;ife .sat
> ;ifge opsys
S7\R P!eifn ..loc,<	reloc>
M&d-S:H !]	title A 0B
params
ife oPpsys,<	search stepnex>
ifg opsys,<	search monsym>
0ifn .twseg,<
	twPoseg
	reloc 0
	preloc 400000
	..loc==:1
>
ife .0twseg,<..loc==:0>P
	pure
entry	A
A:: L]&`@#_C`Q `@ 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 !aife ..loc,<	reloc>
M&d)XhD@ hH@ hL@ hP@ hT@ i?4(P ig !oifge opsys0,<
	hrroi	1,A
P	psout
>
ifl oppsys,<
	outstr	A
>
@ M&d[sig0 0!yifl opsys,P<
	outchr	A
>p
ifge opsys,<
	move	1,A
	pbout
>
v@$M&eKYqNO) P dX9P S@P N@P S>93P >}{woP