Posts by Hucky

Reaktionsschnell musst du sein

Kommt natürlich drauf an was du genau mit Hardcore-Arcade-Games meinst.

"Strategie" und Schnelligkeit !

Hilft zwar nicht überall - wichtig für Ballerspiele ist für mich die Geschwindigkeit vom eigenen Raumschiff/Flugzeug, oder sonst was.

Wenn das nicht gegeben ist hat sich das für mich recht schnell erledigt, bzw. kein Interesse mehr dran, da man eh keine Chance hat das ganze etwas länger zu spielen.

Quote from Superingo

Mit dem Schaltregler Umbau finde ich ja sinnvoll.

Aber wozu der restliche Aufwand ?

Nur um Energiesparen kann es ja nicht mehr gehen,oder ?

Ist das so eine Art Wettbewerb ?

viele Sachen muss man nicht verstehen 🤷‍♂️

Es gibt Leute, die haben halt komische Hobbies

ich habe keine 1581 (mehr) ☺️

Ich denke SYS64738 hilft jetzt am besten ☺️

Quote from kinzi

Das ist wie mit gekochten Spaghetti Mikado spielen - es sieht zwar so aus, aber es geht nicht ...

..

Quote from Joystick

Siehe hier

Das ist Entenhausen !

ich probier das die Tage mal aus ☺️

Quote from Jood

Quote from Hucky

PinChange Interrupt klingt interessant.

Hast du aber nur auf PA0, oder ?

Den interrupt habe ich auf PA0 und PA7, war eigentlich so gedacht das ich das Ende eine Keyboard Scans mitbekomme.

Letztlich habe ich das aber recht primitiv gelöst, bei jedem Interrupt (Spalten) werte ich die Spalte aus und lese die Reihen ein.

Interessant sind die Zeilen mit GIMSK und PCMSK1, der Kram danach ist nur Timerprogrammierung für die LED PWM,

und dann weiter unten der interrupt-Handler (ISR(PCINT1_vect).

Zumindestens in Arduino C ist das schnell genug!

Mfg Jood

C

1. //Tiny Reset 84 Rev.1c, Quad Kernalswitch for C64 (Blue)
2. //RGB-LED is NOT supported in ATTiny84 version
3. //press and hold RESTORE (3 sec.) performs a Reset
4. //RESTORE-F1 - Kernal 0 (e.g. Standard Kernal)
5. //RESTORE-F3 - Kernal 1 (e.g. Jiffy DOS)
6. //RESTORE-F5 - Kernal 2 (e.g. Dolphin DOS)
7. //RESTORE-F7 - Kernal 3 (e.g. Speed DOS)
9. #include <EEPROM.h>
10. #include <FastLED.h> //https://github.com/FastLED/FastLED
11. #include <ClickButton.h> //https://github.com/marcobrianza/ClickButton
13. //Constants
14. #define RESET_OUT PA6 //Ext. Reset (MOSI) - Emulate Open Collector
15. #define A13_KERNAL PA5 //A13 (MISO)
16. #define A14_KERNAL PA4 //A14 (SCK)
17. #define LED_GREEN PA7 //LED Grün
18. #define RESTORE_PIN 10 //C64 Restore
19. #define WAIT_TIME 100 //Delay for Reset
20. #define KERNALFLAG 80 //Flag for Kernalswitch (has been changed)
21. #define MEMORY 0 //Speicher - aktuelles Kernal
22. #define DUTYCYCLE 80 //LED Helligkeit in %
23. //grüne LED 250407 - 50%
24. //grüne LED 250466 - 80%
26. //Kernalswitch, Konstanten für Addressleitungen
27. const byte Switch[] = {B00000000, B00100000, B00010000, B00110000};
29. volatile byte Kernal = 0; //Current Kernal;
30. volatile boolean Toogle = false; //Toogle Flag für LED
31. ClickButton Restore(RESTORE_PIN, LOW); //Restore Button
33. void setup() {
34. PORTA = B00000000; //Port A, alle LED's u. Pullup's aus
35. DDRA = B10110000; //LED(PA7) - Output, Ext. Reset(PA6) - Input, A13(PA5), A14(PA4)- Output,CIA (PB3..PB6) - Input
36. PORTB = B00000000; //Port B, alle Pullup's aus
37. DDRB = B11111000; //Port B, CIA (Row PA7, PA0) - Input, Restore - Input
38. cli(); //Interrupts sperren
39. GIMSK |= (1 << PCIE1); // PORTB PinChange interrupt
40. PCMSK1 |= B00000110; // Rows: PB1(CIA PA0), PB2(CIA PA7)
41. //Timer 1 Setup, used for LED PWM
42. TCCR1A = 0; TCCR1B = 0; TCNT1 = 0; // Clear registers
43. OCR1A = 4; // 31,25 kHz (8000000/((4+1)*64))
44. TCCR1B |= (1 << WGM12); // CTC
45. TCCR1B |= (1 << CS11)|(1 << CS10); // Prescaler 64
46. TIMSK1 |= (1 << OCIE1A); // Output Compare Match A Interrupt Enable
47. sei(); //Interrupts freigeben;
48. Restore.debounceTime = 35; //Debounce timer in ms
49. Restore.multiclickTime = 250; //Time limit for multi clicks
50. Restore.longClickTime = 3000; //time until "held-down clicks" register
51. Kernal = EEPROM.read(MEMORY);
52. SetKernal(Kernal, false);
53. }
54. //wait ohne Delay. keine Ahnung ob das besser ist!
55. void wait(uint32_t period) {
56. uint32_t time_now = millis();
57. while(millis() < time_now + period){
58. //wait approx. [period] ms
59. }
60. }
61. //Kapselung für Schreibzugriff auf volatile Variable (Interrupt sperren)
62. void SetToogle(boolean Value) {
63. noInterrupts();
64. Toogle = Value;
65. interrupts();
66. }
67. //Setzen des neuen Kernal's, optionaler Reboot
68. void SetKernal(byte index, boolean reboot) {
69. noInterrupts();
70. if (reboot) {
71. pinMode(RESET_OUT, OUTPUT);
72. }
73. if ((index >= 0) && (index <= 3)){
74. Kernal = index;
75. } else Kernal = 0;
76. PORTA = Switch[Kernal];
77. interrupts();
78. }
79. //Soft-PWM für LED-Steuerung (Timer 1 Interupt)
80. ISR(TIMER1_COMPA_vect) {
81. static byte cnt = 0; byte Brightness = 0;
82. Brightness = map(DUTYCYCLE, 0, 100, 0, 255);
83. cnt++;
84. if (cnt <= dim8_raw(Brightness)) {
85. digitalWrite(LED_GREEN, !Toogle);
86. } else digitalWrite(LED_GREEN, LOW);
87. }
88. //C64 Tastaturabfrage, nur F-Tasten (PinChange Interrupt);
89. ISR(PCINT1_vect) {
90. //Wenn Restore gedrückt und nicht bereits ein Reset läuft)
91. if (!digitalRead(RESTORE_PIN)){
92. switch (PINB & B00000110) {
93. case B00000100: //Row 0
94. switch (PINA & B00001111) {
95. case B00000111: //F1 gedrückt
96. Kernal = (0 | KERNALFLAG);
97. break;
98. case B00001011: //F3 gedrückt
99. Kernal = (1 | KERNALFLAG);
100. break;
101. case B00001101: //F5 gedrückt
102. Kernal = (2 | KERNALFLAG);
103. break;
104. case B00001110: //F7 gedrückt
105. Kernal = (3 | KERNALFLAG);
106. break;
107. }
108. break;
109. }
110. }
111. }
112. void loop() {
113. SetToogle(false);
114. static byte Backup = Kernal;
115. if (Kernal != Backup) {
116. //Disable PORTB PinChange interrupt
117. GIMSK &= ~(1<<PCIE1);
118. Kernal &= ~(KERNALFLAG);
119. SetKernal(Kernal, true);
120. EEPROM.update(MEMORY, Kernal);
121. Backup = Kernal;
122. while (!digitalRead(RESTORE_PIN)) {
123. SetToogle(!Toogle);
124. wait(WAIT_TIME);
125. }
126. pinMode(RESET_OUT, INPUT);
127. GIMSK |= (1 << PCIE1);
128. }
129. Restore.Update();
130. switch (Restore.clicks) {
131. case -1: //Longpress (3000 ms)
132. //Disable PinChange interrupt
133. GIMSK &= ~(1<<PCIE1);
134. Restore.clicks = 0;
135. pinMode(RESET_OUT, OUTPUT);
136. while (!digitalRead(RESTORE_PIN)) {
137. SetToogle(!Toogle);
138. wait(WAIT_TIME);
139. }
140. pinMode(RESET_OUT, INPUT);
141. GIMSK |= (1 << PCIE1);
142. break;
143. }
144. }

Display More

Display More

Arduino 😱

Quote from 0xdeadbeef

Quote from Hucky

was heißt ohne Pull Device ? 🤔

Meinst du keine interne Pull up Widerstande setzrn ?

Habe schon seit zwanzig Jahren nichts mit mit Atmels gemacht, aber normalerweise kann man bei den meisten Mikrocontrollers Pull-Ups oder Pull-Downs konfigurieren, die aber im engeren Sinne keine echten Widerstände sind. Üblicherweise sind das sehr schwache Stromsenken/-quellen, aber sicherheitshalber sollte man sie trotzdem deaktivieren, damit sie den internen Keyscan o.ä. nicht stören können.

ah, ok.

Bei den Tiny und Atmega kann man interene Pullups setzen. Pull Down gibts da nicht.

Das heißt wenn ich den setze kann ich ohne Probleme auf L abfragen, da ich ja ohne L ein definiertes H Signal habe.

Ist bei der Tastaturmatrix dann ja Blödsinn, da ich über PB0 vom CIA das definierte H Signal habe. und auf L abfrage, da L vom PA0 kommt und über Taste durchgeschaltet wird. Richtig ? 🤔

Quote from Jood

Ich habe das bei mir auf dem Tiny mit PinChange Interrupt gelöst.

Mfg Jood

dein Plan schaut auf den ersten Blick so aus wie ich das jetzt machen würde.

PinChange Interrupt klingt interessant.

Hast du aber nur auf PA0, oder ?

Ich müsste mal schauen wie ich das gelöst bekomme.

Ich habe 3 PAs. Der Atmega 8 hat drei IRQs. Könnte gehen.

Für ein anderes Projekt musste ich feststellen, dass 8Mhz Taktung noch zu lahm ist. Zumindest für Bascom. Da wollte ich was mit PLA machen 🙄

Ich kann nur Bascom programmieren. Hatte mal mit Assembler versucht - aber da muss man ja das Rad neu erfinden.

Für das, was ich bisher gemacht habe, reichte Bascom.

Quote from 0xdeadbeef

Also wenn Du die Pins am ATMega auf Eingang ohne Pull Device konfigurierst, sehe ich da eigentlich keine Probleme. Das plane ich bei meinem Projekt auch so zu machen. Also nicht mit einem Atmel, aber direkt Eingangspins eines Mikrocontrollers an die CIA-Pins anschließen.

Ich glaube nicht, daß an dieser Stelle jemals jemand eine galvanische Trennung gemacht hat oder daß die nötig wäre. Der CIA ist ja nicht aus Zucker. Er hat halt nur wie die ganzen ICs aus dieser Zeit keine integrierten Klemmdioden und ist deshalb anfällig für elektrostatische Spannungen.

Wie gesagt habe ich sogar vor, einen Schritt weiterzugehen und PA0 aktiv gegen Masse zu ziehen, damit ich in fast jeder Situation die Tasten in der Spalte PA0 scannen kann.

Dir sollte aber klar sein, daß die Phasen, in denen PortA während des Scannens ein bestimmtes Bitmuster hat, nicht wahnsinnig lang sind. Habe das nicht ausgemessen, aber ich fürchte, daß das u.U. nur ein paar Dutzend (?) Mikrosekunden sind.

wenn das in einem Interrupthandler passieren soll, müßte der schon auf der höchsten Priorität laufen und nichts machen, als die Werte wegzuschreiben.

Display More

was heißt ohne Pull Device ? 🤔

Meinst du keine interne Pull up Widerstande setzrn ?

ich brauche 3 PA und 6 PB.

F1, F3, F5, die jeweils mit +/- reagieren und Shift (links)

0xdeadbeef

Meinst du ich könnte einfach jeweils parallel zu den PAs und PBs am CIA direkt auf den Atmega 8 gehen, ohne dass der CIA abraucht ?

Das wäre natürlich das einfachste.

Könnte dann die Ausgänge am Atmega galvanisch trennen - wenn ich es überhaupt benötige.

Quote from 0xdeadbeef

Quote from Hucky

Wie genau macht es denn das Kernal ?

Bei PA0 die Bits nacheinander auf HIGH ?

und bei PB0 auf 1 abfragen ?

oder wird auf 0 abgefragt ? Also all PAO die Bits nacheinander auf 0 ?

Ich hab irgendwo gelesen, das auf 1 abgefragt wird. Stimmt das ?

Der Keyscan des Kernals passiert im IRQ. PortA wird auf Ausgang und PortB auf Eingang konfiguriert, dann wird eine Null durch PortA geschoben und PortB nach jedem Schritt geprüft.

Die Ausgänge der CIAs können nur gegen Masse schalten (0). Im ausgeschalteten Zustand (1) wird der Pegel von einem Pullup hochgezogen. Wenn man eine Null auf PAx schreibt und eine Taste in dieser Spalte gedrückt ist, wird das entsprechende Bit PBx zu 0.

Am Ende des Keyscans wird wie vorher beschrieben eine 0x7f nach PortA geschrieben. Damit ist nur PA7 low und nur Tasten in dieser Spalte können erkannt werden.

Ich denke, das hier müßte der relevante Ausschnitt des Kernal-Keyscans sein:

Code

1. .,EAA3 A9 FE LDA #$FE set column 0 low
2. .,EAA5 8D 00 DC STA $DC00 save VIA 1 DRA, keyboard column drive
3. .,EAA8 A2 08 LDX #$08 set the row count
4. .,EAAA 48 PHA save the column
5. .,EAAB AD 01 DC LDA $DC01 read VIA 1 DRB, keyboard row port
6. .,EAAE CD 01 DC CMP $DC01 compare it with itself
7. .,EAB1 D0 F8 BNE $EAAB loop if changing
8. .,EAB3 4A LSR shift row to Cb
9. .,EAB4 B0 16 BCS $EACC if no key closed on this row go do next row
10. .,EAB6 48 PHA save row
11. .,EAB7 B1 F5 LDA ($F5),Y get character from decode table
12. .,EAB9 C9 05 CMP #$05 compare with $05, there is no $05 key but the control
13. keys are all less than $05
14. .,EABB B0 0C BCS $EAC9 if not shift/control/c=/stop go save key count
15. else was shift/control/c=/stop key
16. .,EABD C9 03 CMP #$03 compare with $03, stop
17. .,EABF F0 08 BEQ $EAC9 if stop go save key count and continue
18. character is $01 - shift, $02 - c= or $04 - control
19. .,EAC1 0D 8D 02 ORA $028D OR it with the keyboard shift/control/c= flag
20. .,EAC4 8D 8D 02 STA $028D save the keyboard shift/control/c= flag
21. .,EAC7 10 02 BPL $EACB skip save key, branch always
22. .,EAC9 84 CB STY $CB save key count
23. .,EACB 68 PLA restore row
24. .,EACC C8 INY increment key count
25. .,EACD C0 41 CPY #$41 compare with max+1
26. .,EACF B0 0B BCS $EADC exit loop if >= max+1

Display More

Display More

ok, danke 😀

Dann stimmt das nicht was ich gelesen habe.

Magic Disk CIA Kurs.

Ich hatte das auch so in Erinnerung wie du geschrieben hast. Zudem hatte ich es an anderer Stelle auch so gelesen.

Die Spalte, die man haben will wird auf 0 gesetzt und B-Register wird dann auf 0 abgefragt.

Dann muss ich meinen Kram nochmal überarbeiten....

mir würde es im Prinzip reichen wenn die Tastenabfrage im "Leerlauf" funktionieren würde. Also direkt nach einschalten, oder RESET.

Wie genau macht es denn das Kernal ?

Bei PA0 die Bits nacheinander auf HIGH ?

und bei PB0 auf 1 abfragen ?

oder wird auf 0 abgefragt ? Also all PAO die Bits nacheinander auf 0 ?

Ich hab irgendwo gelesen, das auf 1 abgefragt wird. Stimmt das ?

Mahlzeit....

Für ein Projekt möchte ich gerne z.B. die Tasten "F1", "F3" und "F5" unabhängig von einem laufenden Programm abfragen, bzw. mit einem Atmega8 auswerten.

Damit nichts hochgehen kann soll das ganze galvanisch getrennt funktionieren.

Ich hab mal was zusammengekritzelt.

Für diesen Fall soll "F1" abgefragt werden.

Da F1-F7 an PA0 dran hängt und die CIA Ports nicht großartig belastet werden dürfen soll das über ein 74LS241 IC laufen.

Wenn ich es richtig verstanden habe ist beim CIA, bzw. bei der Tastaturabfrage (Kernal) der PortA auf Ausgang und der PortB auf Eingang geschaltet.

Hat der PortB in diesem Fall interne Pullups ? Oder wie funktioniert das ?

Ich hab schiss den PortB so zu grillen bei dem was ich aufgemalt habe.

Theoretisch müsste es so aber funktionieren.

Die Tastatursbfrage im Kernal setzt - wenn ich es richtig verstanden habe - nacheinander jeweils PortA Bit 0-7 auf High und fragt gleichzeitig ab ob an PortB Bit 0-7 jeweils ein High Signal aufläuft, also quasi durch einen Tastendruck durchgeschaltet wird.

In meinem Fall wäre das für "F1" PA0 + PB4. Wenn beide High Signal haben schalter der Optokoppler durch und gibt mir ein Low Signal auf den Atmega8.

Funktionieren sollte das so, aber bleibt der CIA Baustein auf Dauer am leben 🤔

was läuft denn im Bereich $C000 ?

Endlosschleife, oder irgendwas im Interrupt ?

Quote from SamW

Quote from Hucky

Bei dem Gedudel klappen sich mir die Fußnägel hoch 🙄

Cool - will ich sehen!

ok.

Ich wasch mir vorher 4 Wochen nicht die Füße 😌

Quote from Der Retroluzzer

Quote from He-Man1982

Heeeeeeeeeeeeey Dorecooooo, alright!

Na, ob man die Leute dazu kriegt? Ich weiss ja nicht...

mich jedenfalls nicht !

Bei dem Gedudel klappen sich mir die Fußnägel hoch 🙄

Quote from BastetFurry

Quote from SamW

Vorsicht! Dünnes Eis!

Zumindest was Pils angeht ist alles außer Fiege eh Plörre... 😁

hä ?

Fliegenpilz ? 🤔

Der Retroluzzer

Quote from ZeHa

Bin grad bisschen am Fotos-gucken, kann mir jemand (z.B. Hucky) sagen, was das hier fuer ein Spiel ist?

Quote from ZeHa

Bin grad bisschen am Fotos-gucken, kann mir jemand (z.B. Hucky) sagen, was das hier fuer ein Spiel ist?

Pushman

https://www.arcade-museum.com/game_detail.php?game_id=9161