You are not logged in.
Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
.NOLIST.INCLUDE ;Include aus der Liste ausgeschlossen.LIST .org 0x000 ;Bei 0x0000 Interrupttabelle beginnen rjmp RESET ;Reset-Routine (Extern)rjmp INT_0_HANDLER ;INT 0 (Extern)reti ;INT 1 (Extern)reti ;INT 2 (Extern)reti ;INT 3 (Extern)reti ;INT 4 (Extern)reti ;INT 5 (Extern)reti ;INT 6 (Extern)reti ;INT 7 (Extern)reti ;TIMER2 COMPreti ;TIMER2 OVFreti ;TIMER1 CAPTreti ;TIMER1 COMPAreti ;TIMER1 COMPBreti ;TIMER1 OVFreti ;TIMER0 COMPreti ;TIMER0 OVFreti ;SPI, STCreti ;USART0, RXreti ;USART0, UDREreti ;USART0, TXreti ;ADCreti ;EE READYreti ;ANALOG COMPreti ;TIMER1 COMPCreti ;TIMER3 CAPTreti ;TIMER3 COMPAreti ;TIMER3 COMPBreti ;TIMER3 COMPCreti ;TIMER3 OVFreti ;USART1, RXreti ;USART1, UDREreti ;USART1, TXreti ;TWIreti ;SPM READY RESET:ldi r16, high(RAMEND) ;Stack-out SPH, r16 ;-ldi r16, low(RAMEND) ;-out SPL, r16 ;Pointer ;Eingänge konfigurieren ldi r16, 0b00000000 ;out DDRA, r16 ;Eingänge in "..."out PORTA, r16 ;Eingänge ausschalten ldi r16, 0b00000000 ;out DDRB, r16 ;Eingänge in "..."out PORTB, r16 ;Eingänge ausschalten ldi r16, 0b00000000 ;out DDRC, r16 ;Eingänge in "..."out PORTC, r16 ;Eingänge ausschalten ;Ausgänge konfigurieren ldi r16, 0b11111111 ;out DDRD, r16 ;Ausgänge in "..."ldi r16, 0b00000000 ;out PORTD, r16 ;Ausgänge ausschalten ldi r16, 0b11111111 ;out DDRE, r16 ;Ausgänge in "..."ldi r16, 0b00000000 ;out PORTE, r16 ;Ausgänge ausschalten ldi r16, 0b11111111 ;out DDRF, r16 ;Ausgänge in "..."ldi r16, 0b00000000 ;out PORTF, r16 ;Ausgänge ausschalten ;Interrupts einschalten ldi r16, (1<<isc01) |="" (1<<isc11)="" ;int0="" und="" int1="" auf="" fallende="" flanke="" konfigurierenout="" mcucr,="" r16="" ;="" ldi="" r16,="" (1<<int0)="" (1<<int1)="" aktivierenout="" gicr,="" ; sei ;Freigeben HAUPT:;-------------------------------------------------- ldi r16, PINA0 ;Prüfschleife--BRNE r16, 1 ;-------------- rjmp GLEICHS1 ;Schalter 1----UNGLEICHS1: ;-------------- rjmp WEITERS1 ;--------------GLEICHS1: ;--------------ldi r16, 0b00000001 ;--------------ldi r17, 1 ;--------------out PINF3, r17 ;PINF3 RDY-LED-rjmp RDY ;--------------WEITERS1: ;-------------- ;-------------------------------------------------- ldi r16, PINA1 ;Prüfschleife--BRNE r16, 1 ;-------------- rjmp GLEICHS2 ;Schalter 2----UNGLEICHS2: ;-------------- rjmp WEITERS2 ;--------------GLEICHS2: ;--------------ldi r16, 0b00000100 ;--------------ldi r17, 1 ;--------------out PINF3, r17 ;PINF3 RDY-LED-rjmp RDY ;--------------WEITERS2: ;-------------- ;-------------------------------------------------- ldi r16, PINA2 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS3 ;Schalter 3UNGLEICHS3: ; rjmp WEITERS3 ;GLEICHS3: ;ldi r16, 0b00010000 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDrjmp RDY ;WEITERS3: ; ;-------------------------------------------------- ldi r16, PINA3 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS4 ;Schalter 4UNGLEICHS4: ; rjmp WEITERS4 ;GLEICHS4: ;ldi r16, 0b01000000 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDrjmp RDY ;WEITERS4: ; ;-------------------------------------------------- ldi r16, PINA4 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS5 ;Schalter 5UNGLEICHS5: ; rjmp WEITERS5 ;GLEICHS5: ;ldi r16, 0b00000001 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 2 ;Routinenartrjmp RDY ;WEITERS5: ; ;-------------------------------------------------- ldi r16, PINA5 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS6 ;Schalter 6UNGLEICHS6: ; rjmp WEITERS6 ;GLEICHS6: ;ldi r16, 0b00000100 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 2rjmp RDY ;WEITERS6: ; ;-------------------------------------------------- ldi r16, PINA6 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS7 ;Schalter 7UNGLEICHS7: ; rjmp WEITERS7 ;GLEICHS7: ;ldi r16, 0b00010000 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 2rjmp RDY ;WEITERS7: ; ;-------------------------------------------------- ldi r16, PINA7 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS8 ;Schalter 8UNGLEICHS8: ; rjmp WEITERS8 ;GLEICHS8: ;ldi r16, 0b01000000 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 2rjmp RDY ;WEITERS8: ; ;-------------------------------------------------- ldi r16, PINB0 ;PrüfschleifeBRNE r16,1 ; rjmp GLEICHS9 ;Schalter 9UNGLEICHS9: ; rjmp WEITERS9 ;GLEICHS9: ;ldi r16, 0b00000001 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 3rjmp RDY ;WEITERS9: ; ;-------------------------------------------------- ldi r16, PINB1 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS10 ;Schalter 10UNGLEICHS10: ; rjmp WEITERS10 ;GLEICHS10: ;ldi r16, 0b00000011 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDrjmp RDY ;WEITERS10: ; ;-------------------------------------------------- ldi r16, PINB2 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS11 ;Schalter 11UNGLEICHS11: ; rjmp WEITERS11 ;GLEICHS11: ;ldi r16, 0b00001100 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDrjmp RDY ;WEITERS11: ; ;-------------------------------------------------- ldi r16, PINB3 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS12 ;Schalter 12UNGLEICHS12: ; rjmp WEITERS12 ;GLEICHS12: ;ldi r16, 0b00110000 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDrjmp RDY ;WEITERS12: ; ;-------------------------------------------------- ldi r16, PINB4 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS13 ;Schalter 13UNGLEICHS13: ; rjmp WEITERS13 ;GLEICHS13: ;ldi r16, 0b11000000 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDrjmp RDY ;WEITERS13: ; ;-------------------------------------------------- ldi r16, PINB5 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS14 ;Schalter 14UNGLEICHS14: ; rjmp WEITERS14 ;GLEICHS14: ;ldi r16, 0b00000011 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 2 ;rjmp RDY ;WEITERS14: ; ;-------------------------------------------------- ldi r16, PINB6 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS15 ;Schalter 15UNGLEICHS15: ; rjmp WEITERS15 ;GLEICHS15: ;ldi r16, 0b00001100 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 2 ;rjmp RDY ;WEITERS15: ; ;-------------------------------------------------- ldi r16, PINB7 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS16 ;Schalter 16UNGLEICHS16: ; rjmp WEITERS16 ;GLEICHS16: ;ldi r16, 0b00110000 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 2 ;WEITERS16: ; ;-------------------------------------------------- ldi r16, PINC0 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS17 ;Schalter 17UNGLEICHS17: ; rjmp WEITERS17 ;GLEICHS17: ;ldi r16, 0b11000000 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 2 ;WEITERS17: ; ;-------------------------------------------------- ldi r16, PINC1 ;PrüfschleifeBRNE r16, 1 ; rjmp GLEICHS18 ;Schalter 18UNGLEICHS18: ; rjmp WEITERS18 ;GLEICHS18: ;ldi r16, 0b00000011 ;ldi r17, 1 ;out PINF3, r17 ;PINF3 RDY-LEDldi r17, 3 ;WEITERS18: ; ;--------------------------------------------------rjmp HAUPT RDY:rjmp RDY <isc01) |="" (1<<isc11)="" ;int0="" und="" int1="" auf="" fallende="" flanke="" konfigurierenout="" mcucr,="" r16="" ;="" ldi="" r16,="" (1<<int0)="" (1<<int1)="" aktivierenout="" gicr,="" ; |
Source code |
|
1 |
H:\DreiGewinnt\DreiGewinnt.asm(2): Including file 'C:\Program Files (x86)\Atmel\AVR Tools\AvrAssembler2\Appnotes\m8def.inc' |
-