Hallo,
Nun werden überall die alten Casio Kassen entsorgt. Da wäre es nett die großen Displays zu recykeln.
Leider keine Chipbezeichnug zu erkennen. Es hat einen Grafikbereich 32x128 sichtbar mit 64x256 Speicher (Zeile 0-7))
sowie 10 7-Seg-Ziffern. Mit Speicher für 20 (80?) Zeile 8-15 reagieren gleich - nur ein Speicherbereich?
Das Init habe ich der alten Steuerung noch entnehmen können. Einige Anweisungen stimmen mit anderen Chips überein.
S1.jpgWandern.jpg
Alles anzeigen
Casio_demo.bas
Was noch fehlt sind u.a die Anweisung den Sichtbereich horizontal zu schieben?
Ob er eine Scroll Funktion hat?
Erkennt jemand den Chip?
Auffällig ist das auch das zugehörige Datenbyte als Command gesendet werden muß:
Z.B. Kontratst: Com $81 dann der Wert auch als Com ($24)
Nun werden überall die alten Casio Kassen entsorgt. Da wäre es nett die großen Displays zu recykeln.
Leider keine Chipbezeichnug zu erkennen. Es hat einen Grafikbereich 32x128 sichtbar mit 64x256 Speicher (Zeile 0-7))
sowie 10 7-Seg-Ziffern. Mit Speicher für 20 (80?) Zeile 8-15 reagieren gleich - nur ein Speicherbereich?
Das Init habe ich der alten Steuerung noch entnehmen können. Einige Anweisungen stimmen mit anderen Chips überein.
S1.jpgWandern.jpg
Quellcode
- 'Bildspeicher 9 (16?) * 256 Byte
- '$ 0 - 0F Lower Nibble
- '$10 - 1F Higher Nibble
- '$B0 - B8(F?) Reihe 8-F scheibt im sichtbaren 7Seg Bereich
- '$40 - 7F Start Line (Zeilenbegin der Grafik Anzeige)
- Const Pwrset = $2b 'Wichtig )Bereich von $28-2E nur 2b ok) '
- Const Kontr = $81 'dem muß ein Comando (0-3F) folgen normal $24 '
- Dim Kontrast As Byte : Kontrast = $24
- Const Revers = $a0 'Spiegelschrift (nach HW Reset/Pwr on) '
- Const Links = $a1 'Spaltenbeginn links (Normal)
- Const Pwrlow = $a2 '?? Normal
- 'Const Pwrhigh = $a3 '?? (wäre bei Kontrast $18 gleiche Anzeige)
- Const Showram = $a4 ' zeigt Speicherinhalt (normal)
- Const Lamptest = $a5 ' Alle Punkte/Segmete an
- Const Normal = $a6 'Ein High zeigt einen Punkt
- Const Invers = $a7 'Ein low zeigt den Punkt (ganzes Display)
- 'AD,03 ? Keine erkennbare Auswirkung, war im Orginal Init
- Const Dispoff = $ae 'Display off (sleep?)
- Const Dispon = $af 'Display on
- Const Normscan = $c0 'Start Oben links
- Const Revscan = $c8 'Kopfüber
- Const Lochome = $e2 'SW-Reset? (=Locate 0,0?)
Casio_demo.bas
Was noch fehlt sind u.a die Anweisung den Sichtbereich horizontal zu schieben?
Ob er eine Scroll Funktion hat?
Erkennt jemand den Chip?
Auffällig ist das auch das zugehörige Datenbyte als Command gesendet werden muß:
Z.B. Kontratst: Com $81 dann der Wert auch als Com ($24)