-
Notifications
You must be signed in to change notification settings - Fork 82
/
hdsstest
60 lines (60 loc) · 1.14 KB
/
hdsstest
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
;*********************************
;* SSTST: TEST GRPNUM SSNUM & SSIND FOR
;* RESIDENCE & RANGE. *
;* VARS: GRPNUM 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
;
; <BIG FILES CHANGE>
;
LDA GRPNUM ;GROUP NUMBER
JSR RDSS1 ;BE SURE RIGHT GROUP
BEQ ST50 ;BR IF LOADED
BIT ER3 ;SET WAY OUT OF RANGE
RTS ;EXIT
ST50
;
JSR SSSET ;SET POINTER & SS #
CMP SSNUM
BNE ST20 ;NOT THIS SS
;
LDY SSIND
INY ;<HD>
LDA (DIRBUF)Y
CMP #255 ;<HD>
BEQ ST10
DEY ;<HD>
BIT ER0 ;OK, RESIDENT
RTS
ST10
DEY ;<HD>
BIT ER2 ;OUT OF RANGE, RES
RTS
ST20
LDA SSNUM
CMP #NSSL
BCS ST30
ASL A
TAY
LDA #4
STA DIRBUF
INY ;<HD>
LDA (DIRBUF)Y
CMP #255 ;<HD>
BNE ST40
ST30
DEY ;<HD>
BIT ER3 ;WAY OUT OF RANGE
RTS
ST40
DEY ;<HD>
BIT ER1 ;NOT RES, RANGE???
RTS
.END