tcc_test.dt

Elan eKTP8733N单片机开发程序

; 
;;      % ************************************************************* %
;;      %     Company  : ELAN  Microelectronics(SH)  Corporation        %
;;      %   File name  : tcc_test.dt                                    %
;;      %      Author  : huger                                          %
;;      %        Date  : 24,Dec,2007                                    %
;;      %   Processor  : ELAN  eKTP8733N                                %
;;      %     Options  : WDT=Off; IRC (4 MHz);                          %
;;      %    Function  :  TCC TEST 				        %
;;      % ************************************************************* %
; 
INCLUDE "eKTP8733N.H"
;
;;         --- <<  User register defined  >> ---
;
TCC_CNT	   EQU	   0x10
;
;;	   ***	   POWER ON RESET *** 
;
           ORG     0x0000           ; Reset vector
           JMP     MAIN

           ORG     0x000F           ; TCC interrupt vector
           JMP     TCC_INT

           ORG     0x0050
TCC_INT:			    ; T = 1/4 * ( 255 - 130 ) * 256 * 125
	   BANK    3                ;   = 1 S
	   MOV     A,@130
	   MOV     TCC,A           ; TCC Preset value
	   BANK    0
	   INC	   TCC_CNT
	   MOV	   A,TCC_CNT
	   XOR	   A,@125
	   JBS	   STATUS,Z
	   JMP	   TCC_INT_RET
	   CLR	   TCC_CNT
           BANK    0
           COM     PORT8		; CONTECT LED
TCC_INT_RET:
           BC      ISR1,4          ; Clear TCC interrupt flag
           RETI

MAIN:
	   BANK    3
           MOV     A, @0x1F        ; Select ekt8733, IRC: 1*F
           MOV     COBS1, A
           MOV     A, @0x30        ; Select IRC 4MHz
           MOV     COBS2, A
	   MOV     A,@130
	   MOV     TCC,A           ; TCC Preset value
           BANK    0
           MOV     A,@0x00
	   MOV     PORT8,A
	   CLR	   TCC_CNT	   ; Clear TCC_CNT register
	   BANK	   1
           MOV     A,@0x00         ; P8 as output
           MOV     IOC8,A
	   
;
TCC_TEST:	                   ; Normal mode
	   BANK    2
           MOV     A,@0x0F
           MOV	   TCCCR,A         ; Prescaler 1:256 / TCC clock source: fm
           BANK	   1
           MOV	   A,@0x10         ; Enable TCC interrupt
           MOV	   IMR1,A
	   BANK    0
           BC      ISR1,4          ; Clear TCC interrupt flag
           ENI			   ; Enable global interrupt
           JMP     $
;
;===================================================================
           END