;*********************************
;* SSTST: 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 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
