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