;-*-MIDAS-*-
TITLE PUREP/WRITEABLEP
.insrt sys:.fasl defs
.fasl

; This is a file with two primitives, WRITEABLEP and PUREP

.entry PUREP SUBR 002
	hrrz tt,a		   ;find the entry in the segment table
	lsh tt,-seglog
	move tt,st(tt)		   ;(we want the left half too)
	tlnn tt,st.pur
	  jrst false
true:	movei a,.atom T
	popj p,

.entry WRITEABLEP SUBR 002
	hrrz tt,a
	lsh tt,-12
	.call [setz ? sixbit /CORTYP/ ? tt ? %clout,,tt ((SETZ)) ]
	  caia
	jumpl tt,true
false:	setz a,
	popj p,

FASEND