Hallo Forengemeinde,
hab mal nach einer etwas längeren Zeit mal wieder mit Bascom beschäftigt und hab mich daher wieder hier beim Forum angemeldet (das alte gibts ja nicht mehr).
Zu meinem heutigen Problem:
Ich möchte eine PS/2 Tastatur simulieren die den befehl FTP sendet und mit enter bestätigt, habe mir dazu extra die LIB von MCS Seite gekauft...soweit alles I.O. allerdings sendet mein Atmega den Befehl erst gar nicht, da er bei der "Config Atemu ..." stecken bleibt. Weder mit INT0 noch mit INT1 komme ich weiter. Habe auch die Stacks mal Testweise hochgesetzt, da ich die Vermutung hatte, das sich der CPU evtl deswegen aufgehangen hat...ich hoffe ihr könnt mir helfen und evtl weiß jemand rat der das selbe Problem hatte. Benutze noch die Version 2.0.7.6 .
Lasse mir die Printausgaben geben wo der ATMega derzeit im Programm ist und bis Abschnitt "2" in der Konsole läuft das Programm, "3" wird schon gar nicht mehr geschickt.
Gruß Kai
Alles anzeigen
hab mal nach einer etwas längeren Zeit mal wieder mit Bascom beschäftigt und hab mich daher wieder hier beim Forum angemeldet (das alte gibts ja nicht mehr).
Zu meinem heutigen Problem:
Ich möchte eine PS/2 Tastatur simulieren die den befehl FTP sendet und mit enter bestätigt, habe mir dazu extra die LIB von MCS Seite gekauft...soweit alles I.O. allerdings sendet mein Atmega den Befehl erst gar nicht, da er bei der "Config Atemu ..." stecken bleibt. Weder mit INT0 noch mit INT1 komme ich weiter. Habe auch die Stacks mal Testweise hochgesetzt, da ich die Vermutung hatte, das sich der CPU evtl deswegen aufgehangen hat...ich hoffe ihr könnt mir helfen und evtl weiß jemand rat der das selbe Problem hatte. Benutze noch die Version 2.0.7.6 .
Lasse mir die Printausgaben geben wo der ATMega derzeit im Programm ist und bis Abschnitt "2" in der Konsole läuft das Programm, "3" wird schon gar nicht mehr geschickt.
Gruß Kai
BASCOM-Quellcode
- '$regfile = "attiny45.dat" ' specify the used micro
- $regfile = "m16def.dat" ' specify the used micro
- $crystal = 8000000 ' used crystal frequency
- $baud = 19200 ' use baud rate
- $hwstack = 100 ' default use 32 for the hardware stack
- $swstack = 100 ' default use 10 for the SW stack
- $framesize = 100 ' default use 40 for the frame space
- '$lib "mcsbyteint.lbx" ' use optional lib since we use only bytes
- Print "1"
- V7 Alias Portb.4 : Ddrb.4 = 1 : Portb.4 = 1 'LED zur überwachung der Aktivität
- S1 Alias Pind.5 : Ddrd.5 = 0 : Portd.5 = 1 'Taste [S] (Eingang)
- 'configure PS2 AT pins
- Enable Interrupts ' you need to turn on interrupts yourself since an INT is used
- Print "2"
- 'Config Atemu = Int0 , Data = PinB.2 , Clock = PinB.1
- Config Atemu = Int1 , Data = Pind.3 , Clock = PinD.4
- ' ^------------------------ used interrupt
- ' ^----------- pin connected to DATA
- ' ^-- pin connected to clock
- 'Note that the DATA must be connected to the used interrupt pin
- Print "3"
- Waitms 500 ' 13-15 Sek im fertigen Anwendungsfall
- 'rcall _AT_KBD_INIT
- Sendscankbd Mark
- Do
- V7 = not V7
- waitms 800
- Loop
- '-----------------------------------------------------------------------------
- Mark: ' send mark
- Data 12 , &H2B , &HF0 , &H2B , &H2C , &HF0 , &H2C , &H4D , &HF0 , &H4D , &H5A , &HF0 , &H5A
- ' ^ send 12 bytes
- ' f t p enter