TriOS/system/regnatix/ramtest.spin

363 lines
13 KiB
Plaintext

{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ Autor: Ingo Kripahle │
│ Copyright (c) 2010 Ingo Kripahle │
│ See end of file for terms of use. │
│ Die Nutzungsbedingungen befinden sich am Ende der Datei. │
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
Informationen : hive-project.de
Kontakt : drohne235@googlemail.com
System : TriOS
Name : ramtest
Chip : Regnatix
Typ : Programm
Version :
Subversion :
Funktion : Testroutinen für die externen RAM-Bänke
Komponenten :
COG's :
Logbuch :
Kommandoliste :
Notizen :
}}
OBJ
ios: "reg-ios"
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
VAR
word cnt_err 'gesamtzähler
word cnt_test1
word cnt_test2
word cnt_test3
word cnt_testx
word cnt_loop
PUB main | tast
ios.start
'ios.startram 'nur für test im ram
ios.print(string("RAMTest - 10-06-2010-dr235"))
ios.printnl
ios.print(string("ACHTUNG: Endlostest - Alle Daten im eRam werden komplett überschrieben!"))
ios.printnl
ios.print(string("Eingabe */<a>bbruch : "))
tast := ios.keywait
repeat
if tast <> "a"
statistik
ramtest1 '1:1 random
statistik
ramtestx(0) '1:1, 0
statistik
ramtestx($FF) '1:1, 255
statistik
ramtestx($55) '1:1, $55
statistik
ramtestx($AA) '1:1, $AA
statistik
ramtest2 'test adresskontinuität
statistik
ramtest3 '1:1 negierte bänke
statistik
' ios.printnl
' ios.print(string("Fertig. "))
' ios.stop
PUB statistik 'ausgabe der fehlerstatistik
cnt_err := cnt_err + cnt_test1 + cnt_test2 + cnt_test3 + cnt_testx
ios.setcolor(4)
ios.printcls
ios.printnl
ios.print(string("Statistik eRAM-Test:", $0d, $0d))
ios.print(string("Testdurchläufe : "))
ios.printdec(cnt_loop)
ios.printnl
ios.print(string("Fehler Gesamt : "))
ios.printdec(cnt_err)
ios.printnl
ios.print(string("Fehler Test 1:1, Random : "))
ios.printdec(cnt_test1)
ios.printnl
ios.print(string("Fehler Test Adresskontinuität : "))
ios.printdec(cnt_test2)
ios.printnl
ios.print(string("Fehler Test 1:1, Negierte Bänke : "))
ios.printdec(cnt_test3)
ios.printnl
ios.print(string("Fehler Test Div. Testmuster : "))
ios.printdec(cnt_testx)
ios.printnl
ios.printnl
ios.print(string("Aktueller Test:", $0d))
ios.printnl
ios.printnl
cnt_test1 := 0
cnt_test2 := 0
cnt_test3 := 0
cnt_testx := 0
cnt_loop++
ios.setcolor(0)
PUB ramtest1 | adr,wert1,a
{{ramtest2 - zufallswerte werden gleichzeitig in beide rambänke geschrieben und im zweiten
schritt miteinander verglichen}}
ios.print(string("RAMTest - 1:1 Random",$0D))
ios.print(string("Speicher beschreiben...",$0D))
adr := 0
a := 0
ios.printhex(adr,6)
ios.printchar("-")
repeat ios#ERAM/2-1
wert1?
ram_write1(wert1,adr)
ram_write2(wert1,adr)
if a++ == (ios#ERAM/2-1)/16
a := 0
ios.printhex(adr,6)
ios.printchar("-")
adr++
ios.print(string("ok",$0d,"Speicher vergleichen...",$0D))
adr := 0
a := 0
ios.printhex(adr,6)
ios.printchar("-")
repeat ios#ERAM/2-1
if ram_read1(adr) <> ram_read2(adr)
ios.setcolor(3)
ios.printchar($0d)
ios.print(string("Ramfehler : "))
ios.printhex(adr,6)
ios.printchar(":")
ios.printhex(ram_read1(adr),2)
ios.printchar(":")
ios.printhex(ram_read2(adr),2)
ios.printchar(" ")
ios.sfx_fire($f3,0)
cnt_test1++
ios.setcolor(0)
if a++ == (ios#ERAM/2-1)/16
a := 0
ios.printhex(adr,6)
ios.printchar("-")
adr++
ios.print(string("ok",$0d))
PUB ramtest2 | adr,wert1,a
{{ramtest2 - adresswert wird long in den speicher geschrieben und verglichen}}
ios.print(string("RAMTest - Test Adresskontinuität",$0D))
ios.print(string("Speicher beschreiben...",$0D))
adr := 0
a := 0
ios.printhex(adr,6)
ios.printchar("-")
repeat (ios#ERAM)/4
ios.ram_wrlong(ios#sysmod,adr,adr)
if a == ios#ERAM/64
a := 1
ios.printhex(adr,6)
ios.printchar("-")
else
a++
adr := adr + 4
ios.print(string("ok",$0d,"Speicher vergleichen...",$0D))
adr := 0
a := 0
ios.printhex(adr,6)
ios.printchar("-")
repeat (ios#ERAM)/4
if ios.ram_rdlong(ios#sysmod,adr) <> adr
ios.setcolor(3)
ios.printchar($0d)
ios.print(string("Ramfehler : "))
ios.printhex(adr,8)
ios.printchar(":")
ios.printhex(ios.ram_rdlong(ios#sysmod,adr),8)
ios.printchar(" ")
ios.sfx_fire($f3,0)
cnt_test2++
ios.setcolor(0)
if a == ios#ERAM/64
a := 1
ios.printhex(adr,6)
ios.printchar("-")
else
a++
adr := adr + 4
ios.print(string("ok",$0d))
PUB ramtest3 | adr,wert1,wert2,a
{{ramtest3 - }}
ios.print(string("RAMTest - Random/Negierte Bänke",$0D))
ios.print(string("Speicher beschreiben...",$0D))
adr := 0
a := 0
ios.printhex(adr,6)
ios.printchar("-")
repeat ios#ERAM/2-1
wert1?
wert2 := !wert1
ram_write1(wert1,adr)
ram_write2(wert2,adr)
if a++ == (ios#ERAM/2-1)/16
a := 0
ios.printhex(adr,6)
ios.printchar("-")
adr++
ios.print(string("ok",$0d,"Speicher vergleichen...",$0D))
adr := 0
a := 0
ios.printhex(adr,6)
ios.printchar("-")
repeat ios#ERAM/2-1
wert1 := ram_read1(adr)
wert2 := !ram_read2(adr) & $0ff
if wert1 <> wert2
ios.setcolor(3)
ios.printchar($0d)
ios.print(string("Ramfehler : "))
ios.printhex(adr,6)
ios.printchar(":")
ios.printhex(wert1,2)
ios.printchar(":")
ios.printhex(wert2,2)
ios.printchar(" ")
ios.sfx_fire($f3,0)
cnt_test3++
ios.setcolor(0)
if a++ == (ios#ERAM/2-1)/16
a := 0
ios.printhex(adr,6)
ios.printchar("-")
adr++
ios.print(string("ok",$0d))
PUB ramtestx(wert) | adr,a
{{ramtest2 - zufallswerte werden gleichzeitig in beide ramb?nke geschrieben und im zweiten
schritt miteinander verglichen}}
ios.print(string("RAMTest - 1:1 Testwert: $"))
ios.printhex(wert,2)
ios.printnl
ios.print(string("Speicher beschreiben...",$0D))
adr := 0
a := 0
ios.printhex(adr,6)
ios.printchar("-")
repeat ios#ERAM/2-1
ram_write1(wert,adr)
ram_write2(wert,adr)
if a++ == (ios#ERAM/2-1)/16
a := 0
ios.printhex(adr,6)
ios.printchar("-")
adr++
ios.print(string("ok",$0d,"Speicher vergleichen...",$0D))
adr := 0
a := 0
ios.printhex(adr,6)
ios.printchar("-")
repeat ios#ERAM/2-1
if ram_read1(adr) <> ram_read2(adr)
ios.setcolor(3)
ios.printchar($0d)
ios.print(string("Ramfehler : "))
ios.printhex(adr,6)
ios.printchar(":")
ios.printhex(ram_read1(adr),2)
ios.printchar(":")
ios.printhex(ram_read2(adr),2)
ios.printchar(" ")
ios.sfx_fire($f3,0)
cnt_testx++
ios.setcolor(0)
if a++ == (ios#ERAM/2-1)/16
a := 0
ios.printhex(adr,6)
ios.printchar("-")
adr++
ios.print(string("ok",$0d))
PUB ram_read1(adresse):wert
{{ein byte aus rambank1 lesen}}
outa[15..8] := adresse >> 11 'höherwertige adresse setzen
set_latch
outa[18..8] := adresse 'niederwertige adresse setzen
outa[ios#reg_ram1] := 0 'ram1 selektieren (wert wird geschrieben)
wert := ina[7..0] 'speicherzelle einlesen
outa[ios#reg_ram1] := 1 'ram1 deselektieren
PUB ram_read2(adresse):wert
{{ein byte aus rambank2 lesen}}
outa[15..8] := adresse >> 11 'höherwertige adresse setzen
set_latch
outa[18..8] := adresse 'niederwertige adresse setzen
outa[ios#reg_ram2] := 0 'ram2 selektieren (wert wird geschrieben)
wert := ina[7..0] 'speicherzelle einlesen
outa[ios#reg_ram2] := 1 'ram2 deselektieren
PUB ram_write1(wert,adresse)
{{ein byte in rambank1 schreiben}}
outa[ios#bus_wr] := 0 'schreiben aktivieren
dira := ios#db_out 'datenbus --> ausgang
outa[7..0] := wert 'wert --> datenbus
outa[15..8] := adresse >> 11 'höherwertige adresse setzen
set_latch
outa[18..8] := adresse 'niederwertige adresse setzen
outa[ios#reg_ram1] := 0 'ram1 selektieren (wert wird geschrieben)
outa[ios#reg_ram1] := 1 'ram1 deselektieren
dira := ios#db_in 'datenbus --> eingang
outa[ios#bus_wr] := 1 'schreiben deaktivieren
PUB ram_write2(wert,adresse)
{{ein byte in rambank2 schreiben}}
outa[ios#bus_wr] := 0 'schreiben aktivieren
dira := ios#db_out 'datenbus --> ausgang
outa[7..0] := wert 'wert --> datenbus
outa[15..8] := adresse >> 11 'höherwertige adresse setzen
set_latch
outa[18..8] := adresse 'niederwertige adresse setzen
outa[ios#reg_ram2] := 0 'ram2 selektieren (wert wird geschrieben)
outa[ios#reg_ram2] := 1 'ram2 deselektieren
dira := ios#db_in 'datenbus --> eingang
outa[ios#bus_wr] := 1 'schreiben deaktivieren
PRI set_latch
{{set_latch - übernimmt a0..a7 in adresslatch (obere adresse a11..18)}}
outa[23] := 1
outa[23] := 0
DAT
{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ TERMS OF USE: MIT License │
├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤
│Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation │
│files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, │
│modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software│
│is furnished to do so, subject to the following conditions: │
│ │
│The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.│
│ │
│THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE │
│WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR │
│COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, │
│ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}