Skip to content

Commit c52e8ff

Browse files
bv73bv73
authored
Add files via upload
1 parent 9ccbdc3 commit c52e8ff

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

100 files changed

+48823
-0
lines changed

‎24C02.asm

+580
Large diffs are not rendered by default.

‎24C02_2.asm

+645
Large diffs are not rendered by default.

‎24C04-1.asm

+781
Large diffs are not rendered by default.

‎24C04.asm

+714
Large diffs are not rendered by default.

‎24C04_1.asm

+868
Large diffs are not rendered by default.

‎24C04_4.asm

+969
Large diffs are not rendered by default.

‎6216.asm

+220
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,220 @@
1+
ORG #8000
2+
;
3+
;-------------------------------------
4+
;Port A: Data FLASH
5+
;Port B: Set High & Low Byte of FLASH Address
6+
;Port C: 0 - BANK 0-1
7+
; 1 - BANK 2-3
8+
; 2 - /STROB (Latch Low Byte )
9+
; 3 - /WE (Write Enable)
10+
; 4 - /CS or /CE (Chip Select)
11+
; 5 - /OE
12+
; 6 - ---
13+
; 7 - ---
14+
;Mask #FC
15+
;=====================
16+
PORTA EQU #1F
17+
PORTB EQU #3F
18+
PORTC EQU #5F
19+
PORTSET EQU #7F
20+
BORDER EQU 0
21+
BORDER2 EQU 7
22+
;---------------------
23+
DI
24+
LD A,BORDER
25+
OUT (#FE),A
26+
LD A,#80
27+
OUT (PORTSET),A
28+
XOR A
29+
OUT (PORTA),A
30+
OUT (PORTB),A
31+
DEC A
32+
OUT (PORTC),A
33+
IN A,(PORTA)
34+
AND A
35+
JP NZ,ERREXIT
36+
LD C,PORTA
37+
CALL TESTP
38+
JP C,ERREXIT
39+
LD C,PORTB
40+
CALL TESTP
41+
JP C,ERREXIT
42+
LD C,PORTC
43+
CALL TESTP
44+
JP C,ERREXIT
45+
LD A,#FF
46+
OUT (PORTA),A
47+
OUT (PORTB),A
48+
OUT (PORTC),A
49+
;==========
50+
LD B,32
51+
LD IX,TABLEB
52+
LOOPTST
53+
PUSH BC
54+
LD HL,#D000
55+
LD A,(IX)
56+
CALL FILLPAGE
57+
LD A,2
58+
OUT (#FE),A
59+
LD DE,#D000 ;Write From
60+
CALL WRITE2K
61+
XOR A
62+
OUT (#FE),A
63+
LD HL,#C000
64+
CALL CLSPAGE
65+
LD DE,#C000 ;Read To
66+
CALL READ2K
67+
CALL COMPARE
68+
POP BC
69+
JP C,ERREXIT
70+
INC IX
71+
DJNZ LOOPTST
72+
EI
73+
RET
74+
ERREXIT
75+
LD A,BORDER2
76+
OUT (#FE),A
77+
EI
78+
RET
79+
;
80+
TABLEB
81+
DEFB #00,#FF,#0F,#F0,#AA,#55,#A5,#5A
82+
DEFB #01,#02,#04,#08,#10,#20,#40,#80
83+
DEFB #0A,#05,#A0,#50,#FA,#F5,#AF,#A5
84+
DEFB #00,#FF,#00,#FF,#00,#FF,#00,#FF
85+
;-------------------------
86+
TESTP
87+
LD B,0
88+
TESTP0 OUT (C),B
89+
IN A,(C)
90+
CP B
91+
JR NZ,TESTP1
92+
DJNZ TESTP0
93+
AND A
94+
RET
95+
TESTP1
96+
SCF
97+
RET
98+
;----- Read 2Kb RAM --------
99+
READ2K
100+
LD HL,0
101+
LD B,8
102+
READ2KL
103+
PUSH BC
104+
CALL READ256
105+
INC D
106+
INC H
107+
POP BC
108+
DJNZ READ2KL
109+
RET
110+
;------- Read 256 Bytes -------
111+
READ256
112+
LD C,PORTB
113+
SET 3,H ;A11=1 -> Read Mode
114+
OUT (C),H
115+
LD A,#FB
116+
OUT (PORTC),A ;Latch High Byte
117+
LD A,#FF
118+
OUT (PORTC),A
119+
;
120+
LD B,0 ;Read 256 Byte
121+
LD C,PORTC
122+
LOOP_256
123+
LD A,E
124+
OUT (PORTB),A ;Set Low Addr
125+
LD A,#CF
126+
OUT (C),A ;/CS & /OE = 0
127+
IN A,(PORTA) ;Read Byte
128+
LD (DE),A
129+
INC E
130+
LD A,#FF ;/CS & /OE = 1
131+
OUT (C),A
132+
DJNZ LOOP_256
133+
RET
134+
;------- Read 1 Byte ---------
135+
READ1
136+
LD C,PORTB ;Latch Addr
137+
SET 3,H ;A11=1 -> Read Mode
138+
OUT (C),H
139+
LD A,#FB
140+
OUT (PORTC),A ;Latch High Byte
141+
LD A,#FF
142+
OUT (PORTC),A
143+
OUT (C),L ;Set Low Byte
144+
;
145+
LD C,PORTC ;Read Byte
146+
LD A,#CF
147+
OUT (C),A
148+
IN A,(PORTA)
149+
LD B,#FF
150+
OUT (C),B
151+
RET
152+
;------- Write 2Kb RAM -------
153+
WRITE2K
154+
LD HL,0 ;ADR WRITE
155+
WRITE2KL
156+
LD A,(DE)
157+
CALL WRITE1
158+
INC DE
159+
INC HL
160+
BIT 3,H
161+
JR Z,WRITE2KL
162+
RET
163+
;----- Write 1 Byte ------
164+
WRITE1
165+
OUT (PORTA),A
166+
RES 3,H ;A11=0 -> Write Mode
167+
LD A,H
168+
OUT (PORTB),A
169+
LD A,#FB
170+
OUT (PORTC),A ;Latch High Byte
171+
LD A,#FF
172+
OUT (PORTC),A
173+
LD A,L
174+
OUT (PORTB),A ;Set Low Byte
175+
LD A,#CF
176+
OUT (PORTC),A
177+
LD A,#FF
178+
OUT (PORTC),A
179+
RET
180+
FILLPAGE
181+
LD E,L
182+
LD D,H
183+
INC DE
184+
INC DE
185+
LD (HL),A
186+
INC HL
187+
CPL
188+
LD (HL),A
189+
DEC HL
190+
LD BC,#0FFF
191+
LDIR
192+
RET
193+
CLSPAGE
194+
LD E,L
195+
LD D,H
196+
INC DE
197+
LD (HL),0
198+
LD BC,#0FFF
199+
LDIR
200+
RET
201+
COMPARE
202+
LD HL,#C000
203+
LD DE,#D000
204+
LD BC,#0800
205+
COMPARL
206+
LD A,(DE)
207+
CP (HL)
208+
JR NZ,COMPERR
209+
INC HL
210+
INC DE
211+
DEC BC
212+
LD A,C
213+
OR B
214+
JR NZ,COMPARL
215+
AND A
216+
RET
217+
COMPERR
218+
SCF
219+
RET
220+

0 commit comments

Comments
 (0)