Hi an euch,
ich habe den 8 Fach Kernal umschalter über Restore (http://www.theadams.de.vu). Hat vielleicht jemand dern Source Code dazu? Würde gerne an der Software ein paa änderungen machen.
Die Webseite geht leider nicht mehr.
Hallo Besucher, der Thread wurde 899 mal aufgerufen und enthält 1 Antwort
letzter Beitrag von KiWi am
C64 8 Fach kernal umschalter mit Atmega 8 Source Code
- cmc1976scs
- Erledigt
-
Ist nicht mehr das Original, aber möglicherweise kompatibel. Besser wäre ein SuperKernal
Alles anzeigenC: 8x Kernal Restore Final1- $regfile = "m8def.dat"
- $crystal = 1000000
- Declare Sub Reset64
- Declare Sub Setkernalbits
- Declare Sub Nextkernal
- Declare Sub Ledgreen
- Declare Sub Ledred
- Declare Sub Ledyellow
- Dim Kernalnummer As Byte
- Dim A As Integer
- Dim Romsize As Integer
- Dim Keytime As Integer
- Config Pinc.1 = Output 'RESET'
- Portc.1 = 0
- Config Pinc.2 = Output 'Exrom OUT
- Portc.2 = 0
- Config Pinc.5 = Output 'LED GROUND'
- Portc.5 = 0
- Config Pind.0 = Output 'ADRESS SELECT'
- Portd.0 = 0
- Config Pind.1 = Output 'ADRESS SELECT'
- Portd.1 = 0
- Config Pind.2 = Output 'ADRESS SELECT'
- Portd.2 = 0
- Config Pind.3 = Output 'LED GREEN ON'
- Portd.3 = 0
- Config Pind.4 = Output 'LED RED ON'
- Portd.4 = 0
- Config Pinc.3 = Input 'RESTORE IN'
- Portc.3 = 1
- Config Pinb.5 = Input 'Jumper IN 4/8 Kernals'
- Portb.5 = 1
- '''' Wenn Jumper gesetzt, 8 Kernals - Sonst 4
- Romsize = 8
- If Pinb.5 = 1 Then
- Romsize = 8
- End If
- '''' LED Einschalten
- Gosub Ledgreen
- ''''Byte aus Speicherzelle 1 lesen
- Readeeprom Kernalnummer , 1
- If Kernalnummer > 7 Then 'Jumper nicht gesetzt und mehr als 4 Kernal ?
- 'Falscher Wert im Eprom - auf 0 Setzten
- Kernalnummer = 7
- Writeeeprom Kernalnummer , 1
- End If
- Gosub Setkernalbits
- Gosub Reset64
- Tastaturabfrage:
- A = 0
- Keytime = 0
- Loop:
- Waitms 10
- If Pinc.3 = 0 Then
- Keytime = Keytime + 1
- End If
- If Pinc.3 = 1 Then
- A = Keytime
- Keytime = 0
- End If
- If A > 70 Then
- A = 0
- Gosub Nextkernal
- Gosub Reset64
- End If
- If A > 30 Then
- A = 0
- Gosub Reset64
- End If
- Goto Loop
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Sub Nextkernal:
- Gosub Ledyellow
- Kernalnummer = Kernalnummer + 1
- If Kernalnummer > 7 Then
- Kernalnummer = 0
- End If
- If Romsize = 4 And Kernalnummer > 3 Then
- Kernalnummer = 0
- End If
- Writeeeprom Kernalnummer , 1
- Gosub Setkernalbits
- End Sub
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Sub Reset64:
- Gosub Ledred
- Portc.2 = 1 'RESET HIGH
- Portc.1 = 1 'EXROM HIGH
- Waitms 10
- Portc.1 = 0 'RESET
- Waitus 30
- Portc.2 = 0 'EXROM
- Waitms 500
- End Sub
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Sub Ledgreen:
- Portd.3 = 1
- Portd.4 = 0 'Betrieb (LED grün)
- End Sub
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Sub Ledred:
- Portd.3 = 0
- Portd.4 = 1 'Betrieb (LED rot)
- End Sub
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Sub Ledyellow:
- Portd.3 = 1
- Portd.4 = 1 'Betrieb (LED gelb)
- End Sub
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Sub Setkernalbits
- If Kernalnummer = 0 Then
- Portd.0 = 0
- Portd.1 = 0
- Portd.2 = 0
- End If
- If Kernalnummer = 1 Then
- Portd.0 = 0
- Portd.1 = 1
- Portd.2 = 0
- End If
- If Kernalnummer = 2 Then
- Portd.0 = 0
- Portd.1 = 0
- Portd.2 = 1
- End If
- If Kernalnummer = 3 Then
- Portd.0 = 0
- Portd.1 = 1
- Portd.2 = 1
- End If
- If Kernalnummer = 4 Then
- Portd.0 = 1
- Portd.1 = 0
- Portd.2 = 0
- End If
- If Kernalnummer = 5 Then
- Portd.0 = 1
- Portd.1 = 1
- Portd.2 = 0
- End If
- If Kernalnummer = 6 Then
- Portd.0 = 1
- Portd.1 = 0
- Portd.2 = 1
- End If
- If Kernalnummer = 7 Then
- Portd.0 = 1
- Portd.1 = 1
- Portd.2 = 1
- End If
- End Sub
