📄 spi_led6.asm
字号:
PCAN4:
LDP #4
; LACL DARW23 ;#59
B PPDTA11_0
PCAN5:
LDP #4
; LACL DARW24 ;#60
PPDTA11_0:
; LDP #4
; SACL LCD_DAT
CALL PPDTA5_1
B P_0
PPDTA11:
; LDP #4
; SACL LCD_DAT
CALL PPDTA5_1
CALL CLRC_DTA5_1
P_0:
LAR AR6,#5
LAR AR7,#DTA1
MAR *,AR7
P_1: LACC #SPITABLE
ADD *
TBLR *+,AR6
BANZ P_1,AR7
LDP #6
LACL S2
BCND PP4,NEQ
LACL INNK
SUB #6
BCND PP1,NEQ
PP0:
LDP #225
BIT PEDATDIR,15-0
BCND PP4,NTC
LDP #6
LACL DTA3
XOR #0200H
SACL DTA3
B PP4
PP1:
LDP #6
LACL INNK
SUB #7
BCND PP2,NEQ
BIT CTT0,15-0
BCND PP4,NTC
SPLK #0FF00H,DTA5
SPLK #0FF00H,DTA4
SPLK #0FD00H,DTA3
B PP4
PP2:
LDP #6
LACL INNK
SUB #8
BCND PP3,NEQ
BIT CTT0,15-0
BCND PP4,NTC
SPLK #0FD00H,DTA3
SPLK #0FF00H,DTA2
SPLK #0FF00H,DTA1
B PP4
PP3:
LDP #6
BIT CTT0,15-0
BCND PP4,TC
LACL DTA6
XOR #0100H
SACL DTA6
PP4:
LDP #224
SPLK #007H,SPICCR ;#007H
SPLK #0C7H,SPICCR ;#0C7H
LAR AR6,#5 ;#23
LAR AR7,#DTA1 ;#DTA19
MAR *,AR7
LACL *+,AR6
LDP #224
SACL SPITXBUF
SPLK #07H,SPICTL ;#07H
RET
*******************************************
PPDTA4_1:
LDP #7
LACC DAT2
LDP #6
SPLK #10,TEMP
RPT #15
SUBC TEMP
SACL DTA5
SACH DTA4
LACL DTA5
BCND PPDTA4_10,NEQ
SPLK #17,DTA5
PPDTA4_10:
SPLK #17,DTA3
LDP #7
LACC DAT1
LDP #6
SPLK #10,TEMP
RPT #15
SUBC TEMP
SACL DTA2
SACH DTA1
LACL DTA2
BCND PPDTA4_11,NEQ
SPLK #17,DTA2
PPDTA4_11:
RET
*******************************************
PPDTA4_2:
LDP #7
LACC DAT2
LDP #6
SPLK #10,TEMP
RPT #15
SUBC TEMP
SACL DTA5
SACH DTA4
LACL DTA5
BCND PPDTA4_20,NEQ
SPLK #17,DTA5
PPDTA4_20:
LDP #7
LACC DAT1
LDP #6
SPLK #10,TEMP
RPT #15
SUBC TEMP
SACL DTA2
SACH DTA1
LACL DTA2
BCND PPDTA4_21,NEQ
SPLK #17,DTA2
PPDTA4_21:
LDP #7
LACL DAT2
SUB #12
BCND PPDTA4_22,GT
LDP #6
SPLK #23,DTA6
SPLK #17,DTA3
RET
PPDTA4_22:
LDP #6
SPLK #17,DTA6
SPLK #17,DTA3
RET
*******************************************
PPDTA5_1:
LDP #6
SPLK #10000,TEMP
RPT #15
SUBC TEMP
SACL DTA5
SACH TEMP1
LACC #1000
SACL TEMP
LACL TEMP1
RPT #15
SUBC TEMP
SACL DTA4
SACH TEMP1
LACC #100
SACL TEMP
LACL TEMP1
RPT #15
SUBC TEMP
SACL DTA3
SACH TEMP1
LACC #10
SACL TEMP
LACL TEMP1
RPT #15
SUBC TEMP
SACL DTA2
SACH DTA1
CALL CLEAR_DTA5
RET
*******************************************
CLRC_DTA5_1:
LDP #6
BIT CTT0,15-0
BCND CLRC_END,NTC
LACL #17
SACL DTA5
SACL DTA4
SACL DTA3
SACL DTA2
SACL DTA1
CLRC_END:
RET
*******************************************
PP_0:
LDP #6
LACL #0FF00H
SACL DTA1
SACL DTA2
SACL DTA3
SACL DTA4
SACL DTA5
SACL DTA6
B PP4
PP_8:
LDP #6
LACC #SPI_JS
ADD IN15
TBLR IN16
LACL IN16
SACL DTA1
SACL DTA2
SACL DTA3
SACL DTA4
SACL DTA5
SACL DTA6
B PP4
**********************************************
ERRSP:
LDP #6
BIT S2,15-0
BCND ER0,TC
BIT S2,15-1
BCND ER1,TC
BIT S2,15-2
BCND ER2,TC
BIT S2,15-3
BCND ER3,TC
BIT S2,15-4
BCND ER4,TC
BIT S2,15-5
BCND ER5,TC
BIT S2,15-6
BCND ER6,TC
BIT S2,15-7
BCND ER7,TC
RET
ER0: LACL #1
SACL DTA1 ;Err-01 **起动失败
; LDP #4
; SACL LCD_ERR
B ERR
ER1: LACL #2
SACL DTA1 ;Err-02 **电源电压<150VDC
; LDP #4
; SACL LCD_ERR
B ERR
ER2: LACL #3
SACL DTA1 ;Err-03 **过流
; LDP #4
; SACL LCD_ERR
B ERR
ER3: LACL #4
SACL DTA1 ;Err-04 **电源电压>350VDC
; LDP #4
; SACL LCD_ERR
B ERR
ER4: LACL #5
SACL DTA1 ;Err-05 **24LC16B W/R错误
; LDP #4
; SACL LCD_ERR
LDP #6
LACL IN1
ADD #1
SACL IN1
SUB #40 ;750
BCND ER4_1,LT
SPLK #0,IN1
SPLK #0,S2
ER4_1:
LDP #0
SPLK #0,WRITEDAT
B ERR
ER5: LACL #6
SACL DTA1 ;Err-06 转头设置错误
; LDP #4
; SACL LCD_ERR
B ERR
ER6: LACL #7
SACL DTA1 ;Err-07 没有负载
; LDP #4
; SACL LCD_ERR
B ERR
ER7: LACL #8
SACL DTA1 ;Err-08
; LDP #4
; SACL LCD_ERR
ERR:
LDP #6
BIT CTT0,15-0
BCND ERR0,NTC
SPLK #14,DTA6
SPLK #20,DTA5
SPLK #20,DTA4
SPLK #19,DTA3
SPLK #19,DTA2
RET
ERR0:
LDP #6
SPLK #14,DTA6
SPLK #20,DTA5
SPLK #20,DTA4
SPLK #17,DTA3
SPLK #17,DTA2
; SPLK #17,DTA1
RET
********************************
CLEAR_DTA5:
LDP #6
LACL DTA5
BCND CLEAR_5END,NEQ
SPLK #011h,DTA5
LACL DTA4
BCND CLEAR_5END,NEQ
SPLK #011h,DTA4
LACL DTA3
BCND CLEAR_5END,NEQ
SPLK #011h,DTA3
LACL DTA2
BCND CLEAR_5END,NEQ
SPLK #011h,DTA2
CLEAR_5END:
RET
********************************************
CLEAR_DTA4:
LDP #6
LACL DTA4
BCND CLEAR_4END,NEQ
SPLK #011h,DTA4
LACL DTA3
BCND CLEAR_4END,NEQ
SPLK #011h,DTA3
LACL DTA2
BCND CLEAR_4END,NEQ
SPLK #011h,DTA2
CLEAR_4END:
RET
*****************************************************
*****************************************************
SPI_JS: ;调试板码
.word 07F00H,0BF00H,0DF00H,0EF00H
.word 0F700H,0FB00H,0FD00H,0FE00H
.word 00300H,09F00H,02500H,00D00H ;0,1,2,3
.word 09900H,04900H,04100H,01F00H ;4,5,6,7
.word 00100H,00900H,01100H,0C100H ;8,9,A,B
.word 06300H,08500H,06100H,07100H ;C,D,E,F
***************通用显示码***********************
SPITABLE: ;6LED调试板码
.word 00300H,09F00H,02500H,00D00H ;0,1,2,3
.word 09900H,04900H,04100H,01F00H ;4,5,6,7
.word 00100H,00900H,01100H,0C100H ;8,9,A,B
.word 06300H,08500H,06100H,07100H ;C,D,E,F
.word 00900H,0FF00H,0D500H,0FD00H ;G,黑,n,-
.word 09D00H,09100H,0E300H,03100H ;r,H,L,P
.word 03100H,08500H,0FF00H,0FF00H ;P,D,
******************************************************************************
PDATTXXX:
.word PDAT3,PDATT12,PDATT13,PDATT14,PDATT15,PDATT16, PDATT17, PDATT18,PDATT19, PDA20,PDATT22
.word PDATT23,PDATT24,PDATT25,PDATT26,PDATT27,PDATT28, PDATT29, PDA21, PDATT5, PDATT6
.word PDATT7, PDATT8, PDATT9,PDATT10, PV_MAX,PDATT11, PDATT20, PDATT30,PDATT31,PDATT32
.word PDATT33,PDATT34,PDATT35,PDATT36,PDATT37,PDATT38, PDATT39, PDATT40,PDATT41,PDATT42
.word PDATT43,PDATT44,PDATT45,PDATT46,PDATT47,PDATT21,PDAT21 ,PSPEEDA , PIN7, PIN5
.word PVA,PVB,PVC,PVM,PIDD,PCAN1,PCAN2,PCAN3,PCAN4,PCAN5,PCAN5,PCAN5,PCAN5,PCAN5,PCAN5
******************************************************************************
.end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -