Weihnachtsstern :Muster aus Tabelle auslesen

Ich liebe es, wenn ich meine Threads selbst beantworte *G*
Ich habe weiter mit einigen Sachen rumexperimentiert und es scheint nun zu einem guten Ergebnis geführt zu haben. Ich verwende jetzt eine einfache Tabelle und den Befehl ADDWF PCL um auf Tabelleneinträge zuzugreifen, wie es auch oft bei der Decodierung von SiebenSegmentAnzeigen gemacht wird. In Verbindung mit einigen Sicherungen, damit diese Tabelle nicht aus dem Ruder läuft, hab ich jetzt eine im MPLAB Simulator laufende Version gebaut. Das Timing klappt, und wenn man die Muster richtig eingibt (mit länge in der definition statt im separaten byte) bekommt man auch soweit ich das sehe richtige ergebnisse. nun muss ich noch den code "Play_PatternX" so umschreiben, dass er universell benutzbar ist, statt ihn für jedes muster zu kopieren und anzupassen. ich bin sehr gespannt ob der code auch in der echten anwendung funktioniert, das ist ja meistens der knackpunkt und das, was die sache so deprimierend macht. Ich poste hier mal den code und werde bei updates immer mal aktualisieren. vielleicht hilfts ja irgendwem. ich hab mich angestrengt alles in englisch und mit guter kommentierung zu versehen. vielleicht findet ja jemand ein paar worte die es zu sagen gibt, ein "mhm sieht gut aus" ist gern gehört *G* aber ist schon spät geworden, deswegen erstmal schluss für heute

achja, das programm ist noch nicht vollständig, zb fehlt noch die möglichkeit einzelne muster per taster auszuwählen. tricky wirds noch einen modus zu schreiben, in dem er alle muster durchgeht. aber da hab ich schon eine idee.

Code:

;LEDStern Progam ;Internal Oscillator without Pinout ; PortPin Directiom Function ; RA0 ; RA1 ; RA2 ; RA3 ; RA4 ; ---------------------------- ; RB0 ; RB1 Output Clock ; RB2 Output Load ; RB3 Output Din ; RB4 ; RB5 ; RB6 Input Next ; RB7 Input OK ; Shape of Pattern-Informations: LengthX -> lenght of the pattern in Byte ; list p=16f648A include "P16F648A.inc" __config _INTOSC_OSC_NOCLKOUT & _LVP_OFF & _WDT_OFF & _PWRTE_ON & _BOREN_OFF & _DATA_CP_OFF & _CP_OFF #define CLK PORTB,1 #define LOAD PORTB,2 #define DIN PORTB,3 #define NEXT PORTB,6 #define OK PORTB,7 DATAHIGH equ 0x20 ;register adress for max7219, used by "SEND" DATALOW equ 0x21 ;data for max7219, used by "SEND" counter equ 0x22 ;counter used by "send" W_TEMP equ 0x23 ;temporal storage while in interrupt service routine STATUS_TEMP equ 0x24 ;temporal storage while in interrupt service routine PCLATH_TEMP equ 0x25 ;temporal storage while in interrupt service routine Pattern_No equ 0x26 ;no of pattern to be played counter2 equ 0x27 ;multi purpose counter STEP equ 0x28 ;multi purpose counter for Pattern readout SEQUENCE equ 0x29 ;time keeping variable, cleared by interrupt, set by routine,prevents routine from running through more than once between interrupts ;MAX7219 register adresses NOOP equ 0x00 DIGIT0 equ 0x01 DIGIT1 equ 0x02 DIGIT2 equ 0x03 DIGIT3 equ 0x04 DIGIT4 equ 0x05 DIGIT5 equ 0x06 DIGIT6 equ 0x07 DIGIT7 equ 0x08 DECODE equ 0x09 INTENSITY equ 0x0A SCANLIMIT equ 0x0B SHUTDOWN equ 0x0C TEST equ 0x0F ; Length of Pattern Length1 equ 0x48 Length2 equ 0x48 ;Length3 equ 0x09 ;Length4 equ 0x09 ;Length5 equ 0x09 ;Length6 equ 0x09 ;Length7 equ 0x09 ;Length8 equ 0x09 ;Length9 equ 0x09 ;Length10 equ 0x09 ;Length11 equ 0x09 ;Length12 equ 0x09 ;Length13 equ 0x09 ;Length14 equ 0x09 ;Length15 equ 0x09 ;Length16 equ 0x09 ORG 0x00 GOTO MAIN ORG 0x04 INT_VEC ;save important registers MOVWF W_TEMP SWAPF STATUS,W CLRF STATUS MOVWF STATUS_TEMP MOVF PCLATH, W MOVWF PCLATH_TEMP CLRF PCLATH ; Bank 0 ISR ;interrupt service routine BTFSC INTCON,RBIF ;check source of interrupt GOTO BUTTON_PRESSED BTFSC PIR1,TMR1IF GOTO TMR1_OVERFLOW GOTO END_INT BUTTON_PRESSED BCF INTCON,RBIF ;clear interrupt flag BTFSC NEXT GOTO DO_NEXT BTFSC OK GOTO DO_OK GOTO END_INT TMR1_OVERFLOW BCF PIR1,TMR1IF ;clear interrupt flag MOVLW 0x0B ;set timer to 500ms delay MOVWF TMR1H MOVLW 0xDE MOVWF TMR1L CLRF SEQUENCE ;clear sequence to signal new timeslot GOTO END_INT END_INT ;restore important registers and leave interrupt MOVF PCLATH_TEMP, W MOVWF PCLATH SWAPF STATUS_TEMP,W MOVWF STATUS SWAPF W_TEMP,F SWAPF W_TEMP,W RETFIE DO_NEXT INCF Pattern_No GOTO END_INT DO_OK GOTO END_INT MAIN ;Setup MOVLW 0x07 MOVWF CMCON ;comparator off BSF STATUS,RP0 ;bank1 BSF PCON, OSCF ;internal oscillator @ 4MHz MOVLW 0xF1 MOVWF TRISB ;setting portb directions MOVLW B'00001000' MOVWF OPTION_REG ;setting timer0 and weak pullups MOVLW 0x01 MOVWF PIE1 ;configure peripherial interrupts BCF STATUS,RP0 ;bank0 MOVLW 0x31 ;prescaler 8 MOVWF T1CON ;configure Timer1 MOVLW 0x48 MOVWF INTCON ;configure interrupts CLRF PORTB BSF LOAD ;set LOAD high, inactive BSF INTCON,GIE ;enable global interrupt ;test CLRF Pattern_No ;setting up MAX7219 MOVLW TEST ;disable test-mode MOVWF DATAHIGH CLRF DATALOW CALL SEND MOVLW DECODE ;setting decode (no decoding) MOVWF DATAHIGH CLRF DATALOW CALL SEND MOVLW SCANLIMIT ;setting scan limit (number of leds) MOVWF DATAHIGH MOVLW 0x07 MOVWF DATALOW CALL SEND MOVLW SHUTDOWN ;setting shutdown (normal operation) MOVWF DATAHIGH MOVLW 0x01 MOVWF DATALOW CALL SEND CLRF STEP ;main loop MAINLOOP ; MOVLW 0x0F ;check if pattern_no > 15, then set to 0 ; SUBWF Pattern_No,w ; BTFSC STATUS,C ;CLRF Pattern_No MOVFW Pattern_No ADDWF PCL GOTO Play_Pattern1 GOTO Play_Pattern2 ; GOTO Pattern3 ; GOTO Pattern4 ; GOTO Pattern5 ; GOTO Pattern6 ; GOTO Pattern7 ; GOTO Pattern8 ; GOTO Pattern9 ; GOTO Pattern10 ; GOTO Pattern11 ; GOTO Pattern12 ; GOTO Pattern13 ; GOTO Pattern14 ; GOTO Pattern15 ; GOTO Pattern16 GOTO MAINLOOP Play_Pattern1 MOVF SEQUENCE,W ;check if pattern is running more than once between interrupts BTFSS STATUS,Z GOTO MAINLOOP MOVLW 0x08 ;preparing for a single sequence of 8byte MOVWF counter2 MOVLW DIGIT0 MOVWF DATAHIGH LOOP_P1 MOVFW STEP ;get byte CALL Pattern1 MOVWF DATALOW CALL SEND ;send byte INCF STEP ;preparing for next byte INCF DATAHIGH DECFSZ counter2 GOTO LOOP_P1 ;until 8 bytes were send MOVLW Length1 SUBWF STEP,W BTFSC STATUS,C CLRF STEP ;check if complete pattern was send, then reset step to restart pattern INCF SEQUENCE ;prohibit another execution of this code in this timeslot GOTO MAINLOOP Play_Pattern2 MOVF SEQUENCE,W ;check if pattern is running more than once between interrupts BTFSS STATUS,Z GOTO MAINLOOP MOVLW 0x08 ;preparing for a single sequence of 8byte MOVWF counter2 MOVLW DIGIT0 MOVWF DATAHIGH LOOP_P2 MOVFW STEP ;get byte CALL Pattern2 MOVWF DATALOW CALL SEND ;send byte INCF STEP ;preparing for next byte INCF DATAHIGH DECFSZ counter2 GOTO LOOP_P2 ;until 8 bytes were send MOVLW Length2 SUBWF STEP,W BTFSC STATUS,C CLRF STEP ;check if complete pattern was send, then reset step to restart pattern INCF SEQUENCE ;prohibit another execution of this code in this timeslot GOTO MAINLOOP ;************************************************************************************ ;Data Table for Different Pattern ;Pattern 2 -> Blink one LED of each row from outside to inside Pattern1 addwf PCL ;Number of Sequences for Pattern 1 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 DT 0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10 Pattern2 addwf PCL ;Number of Sequences for Pattern 2 DT 0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80 DT 0x40,0x40,0x40,0x40,0x40,0x40,0x40,0x40 DT 0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20 DT 0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10 DT 0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08 DT 0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x04 DT 0x02,0x02,0x02,0x02,0x02,0x02,0x02,0x02 DT 0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01 DT 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+++++++++++++++++++++++++++++++++Subroutines++++++++++++++++++++++++++++++++++++++++ ;***************************SEND TO MAX7219****************************************** SEND BCF LOAD ;LOAD is low, starting transfer MOVLW 0x08 MOVWF counter ;load with 8 loops HIGH_BYTE BCF CLK ;prepare clock RLF DATAHIGH,F ;rotate high byte through carry BTFSS STATUS,C GOTO HIGHBYTE_DIN_LOW ;set DIN low GOTO HIGHBYTE_DIN_HIGH ;set DIN high HIGHBIT_DONE BSF CLK ;raise clock to send bit DECFSZ counter GOTO HIGH_BYTE ;loopback RLF DATAHIGH MOVLW 0x08 MOVWF counter ;load with 8 loops LOW_BYTE BCF CLK ;prepare clock RLF DATALOW,F ;rotate low byte through carry BTFSS STATUS,C GOTO LOWBYTE_DIN_LOW ;set DIN low GOTO LOWBYTE_DIN_HIGH ;set DIN high LOWBIT_DONE BSF CLK ;raise clock to send bit DECFSZ counter GOTO LOW_BYTE ;loopback BSF LOAD ;LOAD is high, transfer completed RLF DATALOW RETURN HIGHBYTE_DIN_HIGH BSF DIN GOTO HIGHBIT_DONE HIGHBYTE_DIN_LOW BCF DIN GOTO HIGHBIT_DONE LOWBYTE_DIN_HIGH BSF DIN GOTO LOWBIT_DONE LOWBYTE_DIN_LOW BCF DIN GOTO LOWBIT_DONE END ;end program