How can I write a DPLIB's module like 2P2Z.asm?

Jiao Jiao,

You have an error somewhere in "CNTL_FDB.asm".  If you can post the macro code I'll try to help you find it.

Regarding the linker question (#4), you can do that but it seems a lot of effort to explicitly place each individual macro in memory.  You could just place them in the same section and let the linker sort it out.  For example:

In MEMORY...

L1RAM   : origin = 0x009000, length = 0x000400

In SECTIONS...

ADCDRVRAM     :> L1RAM          PAGE = 1
PFCICMDRAM    :> L1RAM          PAGE = 1
GENSINCOS       :> L1RAM          PAGE = 1
PWMDRVRAM    :> L1RAM          PAGE = 1
CNTL2P2ZRAM   :> L1RAM          PAGE = 1
dataRAM1             :> L1RAM          PAGE = 1
CNTL2P2ZBUFF  :> L1RAM          PAGE = 1
DLOG                      :> L1RAM          PAGE = 1
dataRAM                :> L1RAM          PAGE = 1

Regards,

Richard

Hi, Richard,

Thank you for your reply! I just copied the code of 2P2Z.asm to test if it works. I only changed the name. Please help me check it! Thank you!

;FILE: CNTL_FDB.asm

CNTL_FDB_INIT .macro n
;=============================
; allocate memory space for data & terminal pointers
_CNTL_FDB_Ref:n: .usect "CNTL_FDB_Section",2,1,1 ; reference input terminal
_CNTL_FDB_Fdbk:n: .usect "CNTL_FDB_Section",2,1,1 ; feedback input terminal
_CNTL_FDB_Out:n: .usect "CNTL_FDB_Section",2,1,1 ; output terminal
_CNTL_FDB_Coef:n: .usect "CNTL_FDB_Section",2,1,1 ; coefficients & saturation limits (14 words)
_CNTL_FDB_DBUFF:n: .usect "CNTL_FDB_InternalData",10,1,1 ; internal Data BUFF

; publish terminal pointers for access from the C environment
.def _CNTL_FDB_Ref:n:
.def _CNTL_FDB_Fdbk:n:
.def _CNTL_FDB_Out:n:
.def _CNTL_FDB_Coef:n:
.def _CNTL_FDB_DBUFF:n:

; set terminal pointers to ZeroNet
MOVL XAR2, #ZeroNet
MOVW DP, #_CNTL_FDB_Ref:n:
MOVL @_CNTL_FDB_Ref:n:, XAR2
MOVW DP, #_CNTL_FDB_Fdbk:n:
MOVL @_CNTL_FDB_Fdbk:n:, XAR2
MOVW DP, #_CNTL_FDB_Out:n:
MOVL @_CNTL_FDB_Out:n:, XAR2

; zero data buffer
MOVW DP, #_CNTL_FDB_DBUFF:n:
MOVL XAR2,#_CNTL_FDB_DBUFF:n:
RPT #9 ; 10 times
|| MOV *XAR2++, #0

.endm

;====================================
CNTL_FDB_RESET .macro n
;====================================

; zero data buffer
MOVW DP, #_CNTL_FDB_DBUFF:n:
MOVL XAR2,#_CNTL_FDB_DBUFF:n:
RPT #9 ; 10 times
|| MOV *XAR2++, #0

.endm

;----------------------------------------------------------------------------------
;=============================
CNTL_FDB .macro n
;=============================
; set up address pointers
MOVW DP, #_CNTL_FDB_Ref:n:
MOVL XAR0, @_CNTL_FDB_Ref:n: ; net pointer to Ref (XAR0)
MOVW DP,#_CNTL_FDB_Fdbk:n:
MOVL XAR1, @_CNTL_FDB_Fdbk:n: ; net pointer to Fdbk (XAR1)
MOVW DP,#_CNTL_FDB_DBUFF:n:
MOVL XAR4, #_CNTL_FDB_DBUFF:n: ; pointer to the DBUFF array (used internally by the module)

; calculate error (Ref - Fdbk)
MOVL ACC, *XAR0 ; ACC = Ref (Q24) = Q(24)
SUBL ACC, *XAR1 ; ACC = Ref(Q24) - Fdbk(Q24)= error(Q24)
LSL ACC, #6 ; Logical left shift by 6, Q{24}<<6 -> Q{30}
;store error in DBUFF
;MOVL *+XAR4[4], ACC ; e(n) = ACC = error Q{30}
MOVL *+XAR4[6], ACC ; e(n) = ACC = error Q{30}
MOV AR0,#8
SUBL ACC, *+XAR4[AR0]
ADDL ACC, *+XAR4[6]
MOVL *+XAR4[4], ACC

MOVW DP,#_CNTL_FDB_Out:n:
MOVL XAR2, @_CNTL_FDB_Out:n: ; net pointer to Out (XAR2)
MOVW DP,#_CNTL_FDB_Coef:n:
MOVL XAR3, @_CNTL_FDB_Coef:n: ; net pointer to Coef (XAR3)
ZAPA
; compute 2P2Z filter
MOV AR0,#8
MOVL XT, *+XAR4[AR0] ; XT = e(n-2)
QMPYL P, XT, *XAR3++ ; P = e(n-2)Q30*B2{Q26} = I8Q24
MOVDL XT, *+XAR4[6] ; XT = e(n-1), e(n-2) = e(n-1)
QMPYAL P, XT, *XAR3++ ; P = e(n-1)Q30*B1{Q26} = Q24, ACC=e(n-2)*B2
;MOVDL XT, *+XAR4[4] ; XT = e(n), e(n-1) = e(n)
MOVL XT, *+XAR4[4] ; XT = e(n)
QMPYAL P, XT, *XAR3++ ; P = e(n)Q30*B0{Q26}= Q24, ACC = e(n-2)*B2 + e(n-1)*B1
MOVL XT,*+XAR4[2] ; XT = u(n-2)
QMPYAL P, XT, *XAR3++ ; P = u(n-2)*A2, ACC = e(n-2)*B2 + e(n-1)*B1 + e(n)*B0
MOVDL XT,*+XAR4[0] ; XT = u(n-1), u(n-2) = u(n-1)
QMPYAL P, XT, *XAR3++ ; P = u(n-1)*A1, ACC = e(n-2)*B2 + e(n-1)*B1 + e(n)*B0 + u(n-2)*A2
ADDL ACC, @P ; ACC = e(n-2)*B2 + e(n-1)*B1 + e(n)*B0 + u(n-2)*A2 + u(n-1)*A1

; scale u(n):Q24, saturate (max>u(n)>min0), and save history

MINL ACC, *XAR3++ ; saturate to < max (Q24)
MAXL ACC, *XAR3 ; saturate to > min (Q24)

; write controller result to output terminal (Q24)
MOVL *XAR2, ACC ; output control effort to terminal net

; Convert the u(n) to Q30 format and store in the data buffer
LSL ACC, #6 ; Logical left shift by 6, Q{24}<<6 -> Q{30}
MOVL *XAR4, ACC ; u(n-1) = u(n) = ACC

.endm

; end of file

Jiao Jiao,

Most likely the error is being caused because you have assembly mnemonics in column 1.  Unless you have a label or "||", you need to keep the first column as a whitespace character or the assembler will interpret it as a label (see section 4.5.2 in the user's guide, spru513j).

You can check this by putting a space at the start of every line in your code except the three lines with the ".macro" directive.

Regards,

Richard

Hi, Richard, 

I've tried but still have the error in ISR.asm. SolarHv_DCAC-ISR.asmCNTL_FDB.asmCNTL_2P2Z.asm. 

Richard,

Thanks a lot! It solves my problem! But when I initialize my macro in line 73, there is another error.    

I've tried to put a space at the start of every line(except .marcro) in CNTL_FDB.asm, but no help.

6557.SolarHv_DCAC-ISR.asm