[#1]
Głęboki tester pamięci 4MB SRAM na PCMCIA
Lokalizacja: Korniaktów Północny
Na własną potrzebę napisałem sobie testerek do pamięci 4 MB SRAM na PCMCIA dla A600 i A1200.
Sposób użycia. Uruchamiamy program w
Amosie. Wkładamy kartę do PCMCIA i wciskamy dowolny przycisk.
Test może potrwać do kilku godzin. Jest bardzo dokładny - w
każdą komórkę pamięci wpisuje wartości od 0 do 255.
Program testuje linie adresowe oraz danych a następnie każdą komórkę pamięci z osobna.
Jeśli coś będzie nie tak zostanie pokazane na ekranie oraz opisane co jest nie tak.
Jest to wczesna wersja ale powinna działać prawidłowo. Wszelkie uwagi mile widziane.
Cls
L=0
P=0
Curs Off
Hide On
Print "Testing 4MB PCMCIA SRAM..."
Print "It can take a several minutes."
Print "Press any key to start."
Wait Key
Print "Press CTRL+C to break."
Poke $600000,$FF
Poke $600001,$FF
Poke $600002,$FF
Poke $600003,$FF
If Peek($600000)=$FF and Peek($600001)=$FF and Peek($600002)=$FF and Peek($600003)=$FF
Print "HI ok"
Else
Print "HI error or no 4MB PCMCIA SRAM inserted"
Goto _END
End If
Poke $600000,0
Poke $600001,0
Poke $600002,0
Poke $600003,0
If Peek($600000)=0 and Peek($600001)=0 and Peek($600002)=0 and Peek($600003)=0
Print "LO ok"
Else
Print "LO error"
Goto _END
End If
For I=0 To 21
Poke $600000+((2^I)-1),I
If Peek($600000+((2^I)-1))<>I
Print "Error line "+Hex$($600000+((2^I-1)))
Goto _END
End If
Next I
Print "0%"
For I=6291456 To 10485759
L=L+1
If L>41943
P=P+1
L=0
Print Hex$(I)
If P>100
P=100
End If
Print Str$(P)+"%"
End If
S=Peek(I)
For V=0 To 255
Poke I,V
C=Peek(I)
If C<>V Then Print "Error at:"+Hex$(I)+".Is"+Str$(C)+" - should be"+Str$(V)
Next V
Poke I,S
Next I
_END:
Print "End of test. Press any key to exit."
Wait Key