;*******************************************************************************
; FILENAME	: 1602_TEMPLATE.ASM
; AUTHOR	: SONiX
; PURPOSE	: Template Code for SN8P1602
; REVISION	: 28/01/2003 V1.0	First issue
;*******************************************************************************
;*  (c) Copyright 2003, SONiX TECHNOLOGY CO., LTD.
;*******************************************************************************

CHIP	SN8P1602					; Select the CHIP
//{{SONIX_CODE_OPTION
	.Code_Option	OSG		Enable
	.Code_Option	High_Clk	4M_X'tal
	.Code_Option	High_Clk/2	Enable
	.Code_Option	Security	Enable
	.Code_Option	LVD		Enable
	.Code_Option	Watch_Dog	Enable
//}}SONIX_CODE_OPTION

;-------------------------------------------------------------------------------
;			Include Files
;-------------------------------------------------------------------------------
.nolist							; do not list the macro file

	INCLUDESTD		MACRO1.H
	INCLUDESTD		MACRO2.H
	INCLUDESTD		MACRO3.H

.list							; Enable the listing function
	
;-------------------------------------------------------------------------------
;			Constants Definition
;-------------------------------------------------------------------------------
;	ONE		EQU	1

;-------------------------------------------------------------------------------
;			Variables Definition
;-------------------------------------------------------------------------------
.DATA
			org	0h			;Data section start from RAM address 0
	Wk00		DS	1			;Temporary buffer for main loop
	Iwk00		DS	1			;Temporary buffer for ISR
	AccBuf		DS	1			;Accumulater buffer
	PflagBuf	DS	1			;PFLAG buffer

;-------------------------------------------------------------------------------
;			Bit Variables Definition
;-------------------------------------------------------------------------------

	Wk00B0	    	EQU     Wk00.0 		     	;Bit 0 of Wk00
	Iwk00B1		EQU     Iwk00.1  	   	;Bit 1 of Iwk00
 
;-------------------------------------------------------------------------------
;			Code section
;-------------------------------------------------------------------------------
.CODE								

		ORG	0				;Code section start
	jmp		Reset				;Reset vector
							;Address 4 to 7 are reserved
		ORG	8				
	jmp		Isr				;Interrupt vector

		ORG	10h
;-------------------------------------------------------------------------------
; 			Program reset section
;-------------------------------------------------------------------------------
Reset:
	mov 	    	A,#07Fh				;Initial stack pointer and
   	b0mov 		STKP,A				;disable global interrupt
    	b0mov		PFLAG,#00h			;pflag = x,x,x,x,x,c,dc,z
	mov     	A,#40h				;Clear watchdog timer and initial system mode
	b0mov   	OSCM,A

    	call    	ClrRAM				;Clear RAM
    	call    	SysInit				;System initial
    	b0bset  	FGIE				;Enable global interrupt

;-------------------------------------------------------------------------------
; 			Main routine
;-------------------------------------------------------------------------------
Main:
	b0bset		FWDRST				;Clear watchdog timer

     	call		MnApp

	jmp		Main

;-------------------------------------------------------------------------------
; 			Main application
;-------------------------------------------------------------------------------
MnApp:

	; Put your main program here

	ret

;-----------------------------------
; Jump table routine
;-----------------------------------
		ORG	0x0100				;The jump table should start from the head 
							;of boundary.
	b0mov		A,Wk00              
	and		A,#3
	ADD         	PCL,A
	jmp         	JmpSub0
	jmp         	JmpSub1
	jmp         	JmpSub2
;----------------------------------- 

JmpSub0:
	; Subroutine 1
	jmp		JmpExit

JmpSub1:
	; Subroutine 2
	jmp		JmpExit

JmpSub2:
	; Subroutine 3
	jmp		JmpExit

JmpExit:
	ret						;Return Main

;-------------------------------------------------------------------------------
; Isr (Interrupt Service Routine)
; Arguments	:
; Returns	:
; Reg Change:
;-------------------------------------------------------------------------------
Isr:
;-----------------------------------
; Save ACC
;-----------------------------------

	b0xch	  	A,AccBuf			;B0xch instruction do not change C,Z flag
	b0mov       	A,PFLAG
   	b0mov       	PflagBuf,A

;-----------------------------------
; Interrupt service routine  
;-----------------------------------
		
INTP00CHK:						; Check INT0 interrupt request
	B0BTS1	FP00IEN					; Check P00IEN
	JMP	INTTC0CHK				; Jump check to next interrupt
	B0BTS0	FP00IRQ					; Check P00IRQ
	JMP	INTP00					; Jump to INT0 interrupt service routine
INTTC0CHK:						; Check TC0 interrupt request
	B0BTS1	FTC0IEN					; Check TC0IEN
	JMP	INT_EXIT				; Jump to exit of IRQ
	B0BTS0	FTC0IRQ					; Check TC0IRQ
	JMP	INTTC0					; Jump to TC0 interrupt service routine

;-----------------------------------
; Exit interrupt service routine
;-----------------------------------

INT_EXIT:

   	b0mov       	A, PflagBuf
	b0mov       	PFLAG, A			;Restore the PFlag
	b0xch		A,AccBuf			;Restore the Reg. A
							;B0xch instruction do not change C,Z flag
	reti						;Exit the interrupt routine

;-------------------------------------------------------------------------------
;	INT0 interrupt service routine
;-------------------------------------------------------------------------------
INTP00:
	b0bclr	FP00IRQ

	;Process P0.0 external interrupt here

	jmp	INT_EXIT
;-------------------------------------------------------------------------------
;	TC0 interrupt service routine
;-------------------------------------------------------------------------------
INTTC0:
	b0bclr	FTC0IRQ

	;Process TC0 timer interrupt here

	jmp	INT_EXIT
;-------------------------------------------------------------------------------
; SysInit
; System initial to define Register, RAM, I/O, Timer......
;-------------------------------------------------------------------------------
SysInit:

	ret

;-------------------------------------------------------------------------------
; ClrRAM
; Use index @YZ to clear RAM (00h~2Fh)
;-------------------------------------------------------------------------------

ClrRAM:

	clr 		Y		 
	b0mov		Z,#0x2f				;Set @YZ address from 2fh

ClrRAM10:
	clr 		@YZ				;Clear @YZ content
	decms		Z   				;z = z - 1 , skip next if z=0
	jmp 		ClrRAM10 
	clr 		@YZ				;Clear address $00

	ret

;-------------------------------------------------------------------------------
	ENDP