363 lines
13 KiB
Plaintext
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. │
|
||
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
||
|
|
}}
|