*   FILE: A2407.ASM                日期：2002年7月19日*
* FUNCTION: MAIN PROGRAM FOR 100KW SRM USED ON EVIHICLE*
         .VERSION 29
         .INCLUDE "A2407.H"
         .TEXT
KICK_DOG		.MACRO
		LDP		#224
		SPLK		#05555H,WDKEY
		SPLK		#0AAAAH,WDKEY
;		SPLK		#0007H,RTICR
		.ENDM

***********************************************
		B		BEGIN
		B		BEGIN
		B		TIINT1
		B		BEGIN
		B		BEGIN
		B		BEGIN 






BEGIN: 	CLRC		CNF                 ;B0可配置的雙口RAM映射到數(shù)據(jù)存儲(chǔ)空間
		LDP 		#224
		SPLK		#002BH,WDCR
;		KICK_DOG
		SETC		INTM				;關(guān)中
;-----------------------------清RAM ----------
CLEAR1:	MAR 		*,AR6
		LAR 		AR6,#60H
		LACL		#0
		RPT 		#01FH
		SACL		*+,0,AR6
		LAR 		AR7,#0FFH
		LAR 		AR6,#300H
		MAR 		*,AR6
CLEAR:	SPLK		#0000H,*+,AR7
		BANZ		CLEAR,AR6
;----------------------------- 初始化----------
INIT:	LDP 		#0
		SPLK		#0FFFFH,IFR
		SPLK		#001EH,IMR

		LDP 		#6
		SPLK		#0FFFEH,TEMP
		OUT 		TEMP,0FFFFH		;WSGR

		LDP 		#224
		SPLK		#02ACH,7018H		;PLL=*2, SPI,CAN,EVB,EVA
;		SPLK		#002BH,7019H		;復(fù)位值

		LDP 		#225
		SPLK		#0000H,7090H		;除INT1外置為I/O方式
		SPLK		#00F4H,7092H		;除CAN/SPI外置為I/O方式
		SPLK		#0000H,7094H		;置為I/O方式
		SPLK		#0FF00H,PADA		;PA輸入，低
		SPLK		#0FF00H,PBDA		;PB輸出，低
		SPLK		#0FF00H,PCDA		;PC輸出，低
		SPLK		#00000H,PDDA		;PD輸入，低
		SPLK		#00000H,PEDA 		;PE輸入，
		SPLK		#0FF0FH,PFDA 		;PF輸出,高

		LDP 		#232
		SPLK		#0E000H,GPTCON
		SPLK		#0000H,T1CNT
		SPLK		#499,T1PR    ; =25US
;		SPLK		#0000H,DBTCON
		SPLK		#0FFFH,ACTR		;全關(guān)斷
		SPLK		#50,COMPR1	;？？？？
		SPLK		#450,COMPR2
		SPLK		#50,COMPR3
		SPLK		#40,T1COM				;????????????????????
		SPLK		#9040H,T1CON    ;#1048H,#104AH ??????????????
		SPLK		#2607H,COMCON				; #4A07H 
		SPLK		#0A607H,COMCON				; #0CA07H 
		SPLK		#0FFFFH,EVIFRA	;清中斷標(biāo)志
		SPLK		#0FFFFH,EVIFRB
		SPLK		#0FFFFH,EVIFRC
		SPLK		#0080H,EVIMRA	;允許T1周期中斷，其余屏蔽
		SPLK		#0011H,EVIMRB	;允許T2\T3周期中斷，其余屏蔽
		SPLK		#0000H,EVIMRC

		LDP 		#234
		SPLK		#0E000H,7500H	;GPTCONB
		SPLK		#0FFFFH,752FH	;EVBIFRA清中斷標(biāo)志
		SPLK		#0FFFFH,7530H	;EVBIFRB
		SPLK		#0FFFFH,7531H	;EVBIFRC
		SPLK		#0000H,752CH	;EVBIMRA不允許T3周期中斷，其余屏蔽
		SPLK		#0001H,752DH	;EVBIMRB	;允許T4周期中斷，其余屏蔽
		SPLK		#0000H,752EH	;EVBIMRC


		CLRC		INTM
	;	CALL		HELLO
        B			TEST
;------------------------------- T1中斷-------------
TIINT1:	SST 		#0,INT1
		LDP 		#0
		SST 		#1,INT2
		SACL		INT3
		SACH		INT4
		LDP 		#6
		LACL		COUNT1			;計(jì)時(shí)
		ADD 		#1
		SACL		COUNT1
		LACL		COUNT2
		ADD 		#1
		SACL		COUNT2
		SUB 		#80			;80*25US=2MS

		BCND		TR,LT 		;TR 

		SPLK		#0,COUNT2
		LACL		S1
		OR  		#0001H
		SACL		S1


TR:		LDP 		#232		;T1中斷返回
		SPLK		#0080H,EVIFRA
		LDP 		#0
		LACL		INT3
		ADD 		INT4,16
		LST 		#1,INT2
		LST 		#0,INT1
		CLRC		INTM
		RET
;----------------------------- 送HELLO.----


;------------------------------ 數(shù)碼顯示輸出--------
SPI_SEND:
		
  
		RET
;---------------------------- SPI中斷------
SPIINT:	
		RET

;----------------------------------------------------
;****************************** 1MS主程序*******
TEST:
		LDP 		#6
		BIT 		S1,15-0
		BCND		TEST,NTC
		LACL		S1
		AND 		#0FFFEH
		SACL		S1
		KICK_DOG


		CALL		BLINKPL		;閃燈
;		CALL		INA			;輸入

		CALL		SPI_SEND	;顯示
		B   		TEST
****************************************

;----------------------------閃電源燈-----------
BLINKPL:LDP 		#6
		LACL		COUNT4
		ADD 		#1
		SACL		COUNT4
		SUB 		#300		;1MS*2*500=1S
		RETC		LT
		SPLK		#0,COUNT4

		LACL		#01h
		LDP 		#225
		XOR 		PADA
		SACL		PADA
		
		RET
;-----------------------------------
*************************************
*TABLE                              *
*************************************
;SPITABLE:			;機(jī)箱板碼
        .WORD  0300H, 0F300H,2500H,0D00H	;0,1,2,3
        .WORD  9900H,04900H,04100H,1F00H	;4,5,6,7, 
        .WORD  0100H,0900H,01100H,0C100H	;8,9,A,B
        .WORD  6300H,08500H, 6100H,7100H	;C,D,E,F,
        .WORD  9100H, 3100H, 0D500H,7100H	;H,P,n,-,

SPITABLE:			;調(diào)試板碼
        .WORD  090FFH,0DBFFH,085FFH,083FFH	;0,1,2,3
        .WORD  0CA00H,0A200H,0A000H,09B00H	;4,5,6,7, 
        .WORD  08000H,08200H,08800H,0E000H	;8,9,A,B
        .WORD  0B400H,0C100H,0A400H,0AC00H	;C,D,E,F,
        .WORD  0C800H,08C00H,09800H,0EF00H	;H,P,n,-,