📄 sample.asm
字号:
; AR0 AR1 放 csa snb指针 AR2 AR3 放 采样点指针 AR5放故障指针 AR4,Adcount
;
.globl _SAMPLE_ASM
;ADjgpt_pt .set ff1ch
;ADDramDiZHi_pt .set 9288h
;ADD1ramDiZHi_pt .set 9293h
ADcount: .equ 6
Samplecount: .equ 25
BHcount: .equ 192
BHcount1: .equ 0
BHcount2: .equ 0
Qdb: .equ 0d7cH
BHrecord .equ 0D5cH
Samrecord .equ 0D5EH
REBU: .equ 0D60H
IMBU: .equ 0D62H
BHsample: .equ 0D64H
BHsamp: .equ 0D66H
BHsampbak: .equ 0D68H
ADresult: .equ 0D6AH
ADresult1: .equ 0D70H
ADCTRL2A: .equ 70A1H
IAR1: .equ 0D00H
IAI1: .equ 0D02H
EVBIFRA .set 752fH
_SAMPLE_ASM:
SST #0,60H
SST #1,62H
LDP #24
SAR AR0,0H
SAR AR1,2H
SAR AR2,4H
SAR AR3,6H
SAR AR4,8H
SAR AR5,0AH
SAR AR6,0CH
SAR AR7,0EH
SPH 10H,0
SPL 12H,0
SACH 14H,0
SACL 16H,0
;LDP #26 ;(DP=26:0D00-0D7f)
;SPLK #0,7ch
;SPLK #0D00H,60h
;SPLK #0D02H,62h ;sent iar iai adress
;SPLK #0,5ch ;sent sample record
;SPLK #0,5eh ;sent bhsample record
;LACL #Samplecount
;LAR AR7,#0D74H
;SACL *,0 ;0d74=25 Samplecount
;LACL #BHcount
;LAR AR7,#0D78H
;SACL *,0 ;0d78=192 BHcount
;LACL #BHcount1
;LAR AR7,#0D7AH
;SACL *,0 ;0d78=120 BHcount1
;LACL #BHcount1
;LAR AR7,#0D64H
;SACL *,0 ;0d64=0 BHSAMPLE1
;LAR AR0,#0980H ;a=csa[ptrcs]
;LAR AR1,#09A0H ;b=snb[ptrcs]
LAR AR4,#ADcount
;LAR AR5,#0E740H ;AD0BHRAM_SHOUDIZHI E800-288
;LAR AR6,#09C0H ;j=&cao[tempcao]-25
;LAR AR2,#07E7H ;j=0X800-25
;LAR AR3,#07E8H
;MAR *,AR3
;LACL #0080h
;MAR *,AR7
;LAR AR7,#752fH
SACL *,0 ;EVBIFRA = 0x0080
LDP #25
LAR AR0,0H
LAR AR1,2H
LAR AR2,4H
LAR AR3,6H
;LAR AR4,8H
LAR AR5,0AH
LAR AR6,0CH
; LAR AR7,0EH
LDP #26
ADC1:
MAR *,AR3
ADRK #Samplecount
MAR *,AR2
ADRK #Samplecount
MAR *,AR6
LACL *
LACC *,10,AR2 ;
SACH *,0 ;(**drampt_pt) = adresult
MAR *,AR7
LAR AR7,#ADresult
SACH *,0,AR2 ;0d6A=0 adresult
ZHOUBOJIAN:
LACL *,AR3
SUBS *
LAR AR7,#ADresult1
MAR *,AR7
SACL *,0,AR0 ;ADjgpt_pt
LT *,AR7
MPY *
LAR AR7,60H
LACC *+,0
ADD *,16 ;Iar sent ACC
APAC 0
SACH *-,0
SACL *,0,AR1 ;Iar+=ADjgpt_pt*a
LT *,AR7
LAR AR7,#ADresult1
MPY *
LAR AR7,62H
LACC *+,0
ADD *,16 ;IaI sent ACC
APAC 0
SACH *-,0
SACL *,0 ;Iai+=ADjgpt_pt*b
MAR *,AR7
LAR AR7,7ch
BANZ baohu2,*
MAR *,AR5
ADRK #BHcount
LAR AR7,6AH
SAR AR7,* ;(**baohupt_pt) = adresult
; SAR AR5,64H
SAR AR5,66H
SAR AR5,68H
B ADC2
baohu2:
MAR *,AR5
ADRK #BHcount
MAR *,AR7
LAR AR7,7AH ;
ADRK #1 ;0d78=120 BHcount1
SAR AR7,7AH
SBRK #120
BANZ BHMODIZHI2,*,AR5
B ADC2
BHMODIZHI2:
MAR *,AR7
LAR AR7,6AH
SAR AR7,AR5 ;(**baohupt_pt) = adresult
ADC2:
MAR *,AR7
LAR AR7,60H
ADRK #4
SAR AR7,60H
LAR AR7,62H
ADRK #4
SAR AR7,62H
MAR *,AR4
BANZ ADC1,*-
baohu1:
MAR *,AR5
SAR AR5,76H
LACC #0ED3FH,0
SUB 76H,0
MAR *,AR7
SACH *,0
BANZ BHMODIZHI1,*
LAR AR5,#0E740H ;j=&cao[tempcao]-25
B cos
BHMODIZHI1:
LT 78H
MPY #ADcount
MAR *,AR5
LACC *,0
SPAC 0
SACL *,0
ADRK #1
cos:
MAR *,AR0
SAR AR0,6cH
LACC #0997H,0
SUB 6cH,0
SACL 58H,0
;MAR *,AR7
;LAR AR7,58H
;BANZ cosMODIZHI1,*
BCND CAO1,EQ
;B 01D7H
cosMODIZHI1:
MAR *,AR0
ADRK #1
MAR *,AR1
ADRK #1
LDP #25
SAR AR0,0H
SAR AR1,2H
LDP #26
B CAO
CAO1:
LAR AR0,#0980H ;cos
LDP #25
SAR AR0,0H
LAR AR1,#09A0H ;SIN
SAR AR1,2H
LDP #26
CAO:
SAR AR6,7EH
MAR *,AR6
LACC #09D7H,0
SUB 7EH,0
SACL 58H,0
MAR *,AR7
LAR AR7,58H
; LAR AR7,58H
BANZ CA0MODIZHI1,*
LAR AR6,#09C0H ;CAO
B SAMPgaidizhi
CA0MODIZHI1:
MAR *,AR6
LAR AR6,7EH
ADRK #1
SAMPgaidizhi:
MAR *,AR7
;LACC #24,0
;SUB 5CH,0
; SACL 5AH,0
;LAR AR7,5AH
;BANZ AR2GAI,*
;SBRK #23
;BANZ AR3GAI,*
LAR AR7,5CH
SBRK #23
BANZ AR3normal,*
AR3GAI:
LAR AR7,5CH
ADRK #1
SAR AR7,5CH
LAR AR2,#07FFH
LAR AR3,#07E7H
B GAIWANdizhi
AR3normal:
LAR AR7,5CH
SBRK #24
BANZ AR2normal,*
AR2GAI:
LAR AR7,#0
SAR AR7,5CH
LAR AR2,#07E7H
LAR AR3,#07E8H
B GAIWANdizhi
AR2normal:
LAR AR7,5CH
ADRK #1 ;0d5C SAVE SAMPAL RECORD
SAR AR7,5CH
LACC 5CH,0
MAR *,AR2
LAR AR2,#07E7H
SAR AR2,5AH
ADD 5AH,0
SACL 58H,0 ; MODIFY AR2
LAR AR2,58H
MAR *,AR3
LAR AR3,#07E8H
SAR AR3,5AH
LACC 5CH,0
ADD 5AH,0
SACL 58H,0
LAR AR3,58H ; MODIFY AR3
; B GAIWANdizhi
GAIWANdizhi:
MAR *,AR7
LAR AR7,64H ;
ADRK #1 ;0d64=198 BHcount1
SAR AR7,64H
SBRK #192
;BANZ GAIWAN1,*
LAR AR7,#0
LAR AR7,64H
LAR AR5,#0E740H
GAIWAN1:
LDP #26
SPLK #0D00H,60h
SPLK #0D02H,62h
LDP #25
;SAR AR0,0H
;SAR AR1,2H
SAR AR2,4H
SAR AR3,6H
SAR AR4,8H
SAR AR5,0AH
SAR AR6,0CH
SAR AR7,0EH
LACL ADCTRL2A
OR #4200H
SACL ADCTRL2A ;ADCTRL2 |= 0x4200;
;SST #0,0H
;SST #1,2H
LDP #24
LAR AR0,0H
LAR AR1,2H
LAR AR2,4H
LAR AR3,6H
LAR AR4,8H
LAR AR5,0AH
LAR AR6,0CH
LAR AR7,0EH
LACC 16H,0
LACC 14H,16
;LPH 10H
;LPL 12H
;SPH 10H,0
;SPL 12H,0
;LACL 14H,0
;LACH 16H,0
;SACH 14H,0
;SACL 16H,0
LDP #0
LST #1,62H
LDP #0
LST #0,60H
MAR *,AR1
RET
.end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -