sstest

.PAGE 'SSTEST'
;
;*********************************
;* SSTEST: TEST SSNUM & SSIND FOR*
;*         RESIDENCE & RANGE.    *
;*   VARS:  SSNUM,SSIND,DIRBUF   *
;*                               *
;*   FLAGS: .N RNG  .V RES  ER   *
;*           0  OK   0 YES  ER0  *
;*           0 MAYBE 1 NO   ER1  *
;*           1 NO    0 YES  ER2  *
;*           1 NO    1 NO   ER3  *
;*********************************
;
SSTEST
	JSR BIGREL      ; BIG RELATIVE FILE?
	BNE ST50        ; NO
	LDA GRPNUM
	JSR RDSS1
	BEQ ST50
	BIT ER3
	RTS
ST50
	JSR SSSET       ; SET POINTER & SS #
	CMP SSNUM
	BNE ST20        ; NOT THIS SS
	LDY SSIND
	LDA (DIRBUF),Y
	BEQ ST10
	BIT ER0         ;OK, RESIDENT
	RTS
ST10
	BIT ER2         ; OUT OF RANGE, RES
	RTS
ST20
	LDA SSNUM
	CMP #NSSL
	BCS ST30
	ASL A
	TAY
	LDA #4
	STA DIRBUF
	LDA (DIRBUF),Y
	BNE ST40
ST30
	BIT ER3         ; WAY OUT OF RANGE
	RTS
ST40
	BIT ER1         ; NOT RES, RANGE???
	RTS
.END