[#1] Głęboki tester pamięci 4MB SRAM na PCMCIA
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
Na stronie www.PPA.pl, podobnie jak na wielu innych stronach internetowych, wykorzystywane są tzw. cookies (ciasteczka). Służą ona m.in. do tego, aby zalogować się na swoje konto, czy brać udział w ankietach. Ze względu na nowe regulacje prawne jesteśmy zobowiązani do poinformowania Cię o tym w wyraźniejszy niż dotychczas sposób. Dalsze korzystanie z naszej strony bez zmiany ustawień przeglądarki internetowej będzie oznaczać, że zgadzasz się na ich wykorzystywanie.
OK, rozumiem