Subversion Repositories NedoOS

Rev

Details | Last modification | View Log

Rev Author Line No. Line
228 demige 1 
;���� ���� 19.12.97
2 
TSTA    LD A,2
3 
        OUT (254),A
4 
        CALL MEM0
5 
;-----pM
6 
TST#0   XOR A
7 
        LD HL,#4050
8 
        LD BC,#3600
9 
tst00   SUB (HL)
10 
        INC HL
11 
        DEC C
12 
        JR NZ,tst00
13 
        DEC B
14 
        JR NZ,tst00
15 
        LD HL,#4002
16 
        CP (HL)
17 
        JR NZ,$
18 
;-----p0
19 
TST#1   XOR A
20 
        LD HL,#C000
21 
        LD BC,#3400
22 
tst10   ADD A,(HL)
23 
        INC HL
24 
        DEC C
25 
        JR NZ,tst10
26 
        DEC B
27 
        JR NZ,tst10
28 
        LD HL,#400C
29 
        CP (HL)
30 
        JR NZ,$
31 
;-----pM
32 
TST#2   XOR A
33 
        LD HL,#4050
34 
        LD BC,#3600
35 
tst20   ADD A,(HL)
36 
        RRCA
37 
        INC HL
38 
        DEC C
39 
        JR NZ,tst20
40 
        DEC B
41 
        JR NZ,tst20
42 
        LD HL,#4043
43 
        CP (HL)
44 
        JR NZ,$
45 
;-----pM
46 
TST#3   XOR A
47 
        LD HL,#4050
48 
        LD BC,#3600/2
49 
tst30   ADD A,(HL)
50 
        INC HL
51 
        XOR (HL)
52 
        INC HL
53 
        DEC C
54 
        JR NZ,tst30
55 
        DEC B
56 
        JR NZ,tst30
57 
        LD HL,#4045
58 
        CP (HL)
59 
        JR NZ,$
60 
;-----p0
61 
TST#4   XOR A
62 
        LD HL,#C000
63 
        LD BC,#3400
64 
tst40   ADD A,(HL)
65 
        RLCA
66 
        INC HL
67 
        DEC C
68 
        JR NZ,tst40
69 
        DEC B
70 
        JR NZ,tst40
71 
        LD HL,#7650
72 
        CP (HL)
73 
        JR NZ,$
74 
;=======================================
75 
;-----p0
76 
TST#5   XOR A
77 
        LD HL,#C000
78 
        LD BC,#3400
79 
tst50   SUB (HL)
80 
        RLCA
81 
        INC HL
82 
        DEC C
83 
        JR NZ,tst50
84 
        DEC B
85 
        JR NZ,tst50
86 
        LD HL,#F4AF
87 
        CP (HL)
88 
        JR NZ,$
89 
;-----pM
90 
        CALL MEM7 ;7!
91 
TST#6   XOR A
92 
        LD HL,#4080
93 
        LD BC,#3500
94 
tst60   ADD A,(HL)
95 
        INC HL
96 
        DEC C
97 
        JR NZ,tst60
98 
        DEC B
99 
        JR NZ,tst60
100 
        LD HL,#DB00
101 
        CP (HL)
102 
        JR NZ,$
103 
;-----pM
104 
        CALL MEM7 ;7!
105 
TST#7   XOR A
106 
        LD HL,#4060
107 
        LD BC,#3500
108 
tst70   XOR (HL)
109 
        INC HL
110 
        DEC C
111 
        JR NZ,tst70
112 
        DEC B
113 
        JR NZ,tst70
114 
        LD HL,#FFFE
115 
        CP (HL)
116 
        JR NZ,$
117 
;-----pM
118 
        CALL MEM4 ;4!
119 
TST#8   XOR A
120 
        LD HL,#4050
121 
        LD BC,#3600
122 
tst80   XOR (HL)
123 
        ADD A,(HL)
124 
        INC HL
125 
        DEC C
126 
        JR NZ,tst80
127 
        DEC B
128 
        JR NZ,tst80
129 
        LD HL,#FF00
130 
        CP (HL)
131 
        JR NZ,$
132 
;-----p0
133 
        CALL MEM0 ;0!
134 
TST#9   XOR A
135 
        LD HL,#C100
136 
        LD BC,#3300
137 
tst90   XOR (HL)
138 
        INC HL
139 
        DEC C
140 
        JR NZ,tst90
141 
        DEC B
142 
        JR NZ,tst90
143 
        LD HL,#F4AE
144 
        CP (HL)
145 
        JR NZ,$
146 
        LD A,6
147 
        OUT (254),A
148 
        JR $