Lookup Tabelle in ASM30 (dsPIC)

[Ge E. (re_n)]

Guten Abend. Kennt sich einer mit besagten Thema aus und kann mir ein 
konkretes Beispiel Posten, ich finde im Netz leider nix 
aussagekräftiges, das meiste ist in C..

Folgendes es soll sich um eine Sinus Tabelle handeln, in der einen 
Spalte die Grad und in der anderen der dazugehörige Tastgrad der PWM. 
Die Grad gebe ich inkrementell vor, der PIC soll dann ohne viel zu 
rechnen den dazu Passenden PWM Wert finden und in den RAM laden.

[Max H. (hartl192)]

Ich würde es so machen:

LUT:
  bra W1
  retlw #PwmWert0,W1
  retlw #PwmWert1,W1
  retlw #PwmWert2,W1
  retlw #PwmWert3,W1
  retlw #PwmWert4,W1
  retlw #PwmWert5,W1
  ....
  retlw #PwmWertN,W1

In W1 schreibst du die Stelle in der Tabelle, dann rufst du mit call LUT 
auf und dann steht der Wert in W1. Das sollte 6 Maschinenzyklen lang 
dauern.


Edit: Man könnte auch mit TBLRD was machen, damit habe ich aber noch nie 
gearbeitet.

[Maik W. (werner01)]

hier die Hälfte verrate ich dir....

   .org(0xd00)
    sinetable:
.word  0x0000,0x0006,0x000D,0x0013
.word  0x0065,0x006B,0x0071,0x0077

So mach ich das und retlw gibts bei dspic nicht.

[Max H. (hartl192)]

Maik Werner schrieb:
> retlw gibts bei dspic nicht.
Das sieht Microchip anders:
http://ww1.microchip.com/downloads/en/DeviceDoc/70000657H.pdf
Seite 395

Max H. schrieb:
> Das sollte 6 Maschinenzyklen lang
> dauern.
Ich sehe gearede, dass sprünge beim dsPIC länger brauchen, das mit den 6 
Zyklen stimmt also nicht.

Wie groß soll die Tabelle eigentlich werden? Wenn sie nur ganz klein 
wird könnte man sie in der RAM legen

[Ge E. (re_n)]

Maik Werner schrieb:
> hier die Hälfte verrate ich dir....
>
>    .org(0xd00)
>     sinetable:
> .word  0x0000,0x0006,0x000D,0x0013
> .word  0x0065,0x006B,0x0071,0x0077
>
> So mach ich das und retlw gibts bei dspic nicht.

Danke Maik, aber so weit war ich auch schon, was ich gern wissen würde 
wie kann ich mit der Tabelle interagieren und woher weis der PIC welchen 
Wert er nehemn soll?

[Ge E. (re_n)]

Bei mir sieht die Tabelle im Moment so aus:

     .section sine_tab, code, address(0xAA00)

    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222
    .word 
0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x 
1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x1111,0x2222,0x11 
11,0x2222

Die Werte sind nur Platzhalter ich muss erstmal das Printip verstehen. 
Spätere Größe 200x200 bzw würde beim Silus mit Umrechnung aja auch ein 
viertel der Größe reichen. Ich brauche 100/Grad Auflösung. Also nein die 
Tabelle würde ich lieber im Speicher ablegen. RETLW geht übrigens noch 
beim dsPIC

[Maik W. (werner01)]

Hallo,

Ich lese die Tabellen aus dem ROM mit der TBLRD(L,H) Anweisung diese 
benötigt 2 Zyklen...
RAM Tabellen gehen sehr gut mit einer indirekten Adressierung.

vieleicht hilft es Dir weiter...

[Maik W. (werner01)]

Also ich verstehe das so, wenn deine Tabelle eine halbe Schwingung 
enthält
so entspricht das 180° .Dies teilst Du durch die Anzahl deiner 
"Stützstellen" o. Einträge....

[Ge E. (re_n)]

Wie ruft man den einen speziellen Wert aus der Tabelle ab?

[Maik W. (werner01)]

Indem Du die Gradzahl kennst?

[Ge E. (re_n)]

Maik Werner schrieb:
> Indem Du die Gradzahl kennst?

Die kenne ich ;) Wie speziell arbeite ich mit dem TBLRD H und L Befehl? 
Am besten währe es wenn ich den Grad Wert einfach in eine Adresse für 
die Tabelle umwandle.

Beispiel:

INT:             ; wird zB alle 1µs aufgerufen

  mov    GRAD_PRO_STEP,W0   ; fester vorberechneter Wert
  ADD    GPS  ; Vortlaufende Addierung bis zum Überlauf usw..

        ; Jetzt möchte ich den "GPS" Wert in eine Addresse umrechnen die 
mir den passenden PWM Wert nach W0 kopiert, wie genau siehen die Befehle 
aus?
        mov    -PWM WERT aus TABELLE-,W0
        mov      W0,MDC

        bclr  IFS5,#PWM1IF
  bclr  PWMCON1,#TRGSTAT
  retfie

[Ge E. (re_n)]

habe mal bissl rumexperimentiert:  so geht es:

MOV   #0xAA00,W0

TBLRDH [W0],W3                 ; Read high byte to W3

TBLRDL [W0],W4                 ; Read low word to W4
mov  W4,F_DAT16

[Ge E. (re_n)]

Wofür ist eigentlich der "TBLPAG" Befehl?

[Maik W. (werner01)]

z.B. so:

     TBLRDL [w5],w2        -->


hiermit liest du die unteren 16b deiner 24b Romspeicherstelle aus. in W5 
steht die Adresse (indirekt) und in W2 der entsprechende 
Tabelleneintrag. Das alles dauert 2 Zyklen!
   viel Erfolg

[Ge E. (re_n)]

OK danke ihr alle wart sehr hilfreich. Ich fuche jetzt mal ein bisschen 
rum :)

[Ge E. (re_n)]

Wie schreibe ich hier Dezimal Zahlen? Eine Raute nimmt er leider nicht

.word 0x3333,0x4444,0x1111,0x2222

[(prx) A. K. (prx)]

Re Né schrieb:
> Wofür ist eigentlich der "TBLPAG" Befehl?

Ein 8-Bit Register, das die 16 Bits aus dem Register im TBLxxx Befehl zu 
einer 24-Bit Adresse verlängert. Wären sonst ja nur 96KB ROM 
adressierbar. Bank-Switching in guter alter Microchip-Tradition.

[Ge E. (re_n)]

Re Né schrieb:
> Wie schreibe ich hier Dezimal Zahlen? Eine Raute nimmt er leider nicht
>
> .word 0x3333,0x4444,0x1111,0x2222

OK habe es herausgefudnen bei Dezimalzahlen lässt man einfach das 0x weg 
also:

.word 3333,4444,1111,2222

[Ge E. (re_n)]

So habe jetzt eine LTB mit 36.000 Werten generiert (Excel) und im 
Programm eingebunden. Sind gleich mal 41% vom PIC Speicher ^^  Am Montag 
setze ich das dann in die Praxis um

[Ge E. (re_n)]

Für die die es Interessiert hier ist der Code. Was noch nicht enthalten 
ist, ist die Steuerung per SPI. Das möchte ich gerne über DMA lösen. Im 
Anhang befindet sich die Sinus Tabelle mit 36.000 Stützen. Range (0-300) 
Das ist der PWM Wert.

;RA0
;RA1
;RA2
;RA3

;RB0
;RB1
;RB2
;RB3
;RB4
;RB5
;RB6
;RB7  SCK1
;RB8  SDO1
;RB9  SDI1
;RB10
;RB11
;RB12 PWM2H
;RB13 PWM2L
;RB14 PWM1H
;RB15 PWM1L

  

.title "MFG DDS"
.sbttl ""              ; Firmware Version

 .equ __33EP256MC202, 1         ; Define the type of MCU
 .include "P33EP256MC202.inc"      ; Include the definitions for the
                        ; selected MCU

; CONFIG
    ;config __FPOR, PWRT_128          ; PWRT 128ms
    ;config __FOSC, CSW_FSCM_OFF & FRC_LO_RANGE  ; LOW RANGE
    ;config __FWDT, FWDTEN_OFF & WINDIS_OFF  ; WDT OFF
    ;config __FOSCSEL,FRC_PLL        ; FRC PLL 
    ;config __FGS, CODE_PROT_OFF
    ;config __FICD, ICS_NONE          ; kein ICS
    ;config __FBS, NO_BOOT_CODE


.global __reset
__reset:                ; hier setzt der PIC nach einem Reset ein



.text                  ; hier geht der asm code weiter!

      mov     #__SP_init,w15          ; Initalize the Stack Pointer
     ;  mov     #0x2AFEA,W0          ; Initialize the Stack Pointer Limit Register
     ;  mov     W0,SPLIM            ; (__SP_init & __SPLIM_init values are calculated by linker)
       ;nop                        ; Add NOP to follow SPLIM initialization


;#########################################################################################################  

; Ports config (alle unbenutzten Pins sollten auf Out und low sein)
      
    clr    TRISA
    ;bset  TRISA,#0
    clr    TRISB
    ;bset  TRISA,#1
    CLR    LATA        ; alle Ausgänge löschen
    CLR    LATB

; ################################################################## 
  
    ;.global  __INT0Interrupt
    ;.global  __INT1Interrupt
    ;.global  __INT2Interrupt
    ;.global  __IC1Interrupt
    ;.global  __OC1Interrupt
    .global    __T1Interrupt
    ;.global  __IC2Interrupt
    .global    __T2Interrupt
    .global    __T3Interrupt
    .global    __T4Interrupt
    .global    __T5Interrupt
    .global      __PWM1Interrupt
    ;.global  __SPI1ErrInterrupt
    ;.global  __SPI1Interrupt
    ;.global  __CNInterrupt
    ;.global  __CMP1Interrupt
    ;.global  __CMP2Interrupt
    ;.global  __U1RXInterrupt
    ;.global  __U1TXInterrupt  


; Labelmacros
    ;  .macro HF_AN bit_operation
   ;  \bit_operation PTCON,#15
    ;  .endm

     .section sine_tab, code, address(0x200)  ; 0x200

   .include "SINE_TAB.S"          ; Include SINE TAB


 
.text                  ; hier beginnt das Assembler Programm

    .section .nbss, bss, near    ;Register festlegen
    .align 2
    FQ:        .space 2
    .align 2
    USK:      .space 2
    .align 2
    GRAD_PRO_STEP:  .space 2
    .align 2
    GPS:      .space 2
    .align 2
    GPS_L:      .space 2
    .align 2
    GPS_H:      .space 2
    .text              ; hier geht der asm code weiter!


    MOV     #0b0000000000000000,W0  ;  
    MOV   W0,CLKDIV

    mov    #511,W0          ; 511
    mov    W0,PLLFBD        ; PLL multiplier

    MOV     #0b1000000000000000,W0  ;   
    MOV   W0,T1CON

    mov    #100,W0          ; 
    mov    W0,PR1

    MOV     #0b1100000000000000,W0  ;  
    MOV   W0,IOCON1

    MOV     #0b1100000000000010,W0  ; SWAP Low High
    MOV   W0,IOCON2

    bset  PWMCON2,#8        ; MDC
    bset  PWMCON1,#8        ; MDC
    bset  PWMCON1,#TRGIEN      ; TRGIEN

    MOV     #0b1000000000000000,W0  ;
    MOV   W0,PTCON

    mov    #300,W0          ; 300=800kHz
    mov    W0,PTPER        ; Frequenz

    mov    #150,W0
    mov    W0,MDC          ; Pulse Breite

    mov    #5,W0
    mov    W0,DTR1          ; Dead Time Links

    mov    #5,W0
    mov    W0,ALTDTR1        ; Dead Time Links

    mov    #5,W0
    mov    W0,DTR2          ; Dead Time Rechts

    mov    #5,W0
    mov    W0,ALTDTR2        ; Dead Time Rechts


; ############ FQ nach Grad pro Step wandeln (auf anderem PIC berechnen und GRAD_PRO_STEP per SPI schicken.)################
    mov    #1001,W0          ; Hz/100
    mov    W0,FQ

    mov    #0x98,W1        ; 0b10111110101    #10.000.000
    mov    #0x9680,W0        ; 0b1110000100000000

    mov    FQ,W2          ; FQ -> W2
    repeat   #18-1
    div.ud  W0,W2          ; 100.000.000 / FQ -> W0
    mov    W0,USK

    mov    #100,W0
    MUL    USK            ; 100 x USK = W3:W2

    mov    W3,W1          ; W3:W2 nach W1:W0
    mov    W2,W0
    mov    #625,W2          ; 625ns (Sampelrate) -> W2
    repeat   #18-1
    div.ud  W0,W2          ; X / 100 -> W0
    mov    W0,USK          ; ns der Periode

    mov    #0x36,W1        ; 3.600.000 nach W1:W0
    mov    #0xEE80,W0
    mov    USK,W2          ; USK -> W2
    repeat   #18-1
    div.ud  W0,W2          ; 3.600.000 / USK -> W0
    mov    W0,GRAD_PRO_STEP    ; (Grad x 1000)
; #######################################################################

; RAM
    clr    GPS

; Interrupt
    bset  IEC0,#T1IE      ; Interrupt Enable
    bset   IPC0,#T1IP2      ; Interrupt Priority 4
  ;  bset  IEC5,#PWM1IE      ; Interrupt Enable
  ;  bset   IPC23,#PWM1IP2      ; Interrupt Priority 4
    ; SPI per DMA!!!
  

MAIN:

    goto  MAIN




;__PWM1Interrupt:        ; 32 cycles max.

__T1Interrupt:

    mov    GRAD_PRO_STEP,WREG
    ADD    GPS

    mov    #36000,W0
    mov    #36000,W1
    mov    GPS,W2
    CPSGT  W1,W2      ; skip if N > GPS
    SUB    GPS        ; if N < GPS

    mov    #2,W0
    MUL    GPS        ; GPS x 2 = W3:W2

    mov    W3,GPS_H
    mov    W2,GPS_L

    mov    #512,W0
    ADD    GPS_L

    mov    GPS_H,W0
    mov    W0,TBLPAG
    
    MOV   GPS_L,W0 
                
  ;  TBLRDH [W0],W3                 ; Read high byte to W3 (Kann gelöscht werden wenn keine Fehler auftreten)
    TBLRDL [W0],W4                 ; Read low word to W4
    mov    W4,MDC  
    
    bclr  IFS0,#T1IF
  ;  bclr  IFS5,#PWM1IF
  ;  bclr  PWMCON1,#TRGSTAT
    retfie


switch:

    btss  LATB,#6
    goto  setB6

    btsc  LATB,#6
    goto  clrB6

setB6:
    bset  LATB,#6
    return

clrB6:
    bclr  LATB,#6
    return


    .end                ; Programm Ende