Weihnachtsstern :Muster aus Tabelle auslesen

[the_Ghost666]

Moin zusammen.
erstmal zum Thema: ich weiß , dass es langsam etwas spät dafür ist, aber das projekt liegt schon seit oktober rum und wartet auf vollendung.
Ich schreibe den Code in Assembler (und dabei würde ich auch gerne bleiben)

Bei http://www.hanf-elektrotechnik.de/ gibt es einen Weihnachtsstern unter Projekte. Dort wird ein MAX 7219 LED-Treiber seriell angesteuert. Für die Ansteuerung hab ich bereits eine Routine fertig, die auch klappen sollte. Jetzt sollen Leuchtmuster ausgegeben werden.
Jedes Muster kann man in Sequenzen aufteilen je 8Byte, was einem Einzelbild entspricht. Interruptgesteuert wird nun alle 500ms das nächste Einzelbild gezeigt.
Als Controller nehme ich einen PIC 16F648A, mit 4kB Programmspeicher

Nun zum Problem: Wie lege ich die Muster ab, sodass ich sie ohne großen aufwand verwalten kann?

Ich möchte es folgendermaßen organisieren:
Ein Muster besteht aus max 24 Sequenzen. Jede Sequenz aus 8Byte, eins für jeden Ast des Sterns (siehe URL oben). Vor jedem dieser Musterblöcke ist ein Byte, dass die Länge des Musters angibt (ich will ja manchmal auch kürzere Muster mit nur 4 Sequenzen). Das macht also pro Muster 192Byte Daten + vorne weg ein Infobyte zur länge der Muster.

Es gibt die DT anweisung, mit der man ein oder mehrere Byte hintereinander im Programmspeicher als RTWL Befehl(Return with Literal in Work Register) ablegen kann.

Aber wie lese ich nun diese Stellen mit den Blöcken richtig aus?
Und wo muss ich diese platzieren, damit genug platz ist?
Muss ich indirekte adressierung benutzen?

Ich hoffe jemand kann mir helfen. Bei interesse poste ich den Quellcode

[the_Ghost666]

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.


;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