TITLE F2P
	LIST    P=16F84A, F=INHX8M
	#INCLUDE "P16F84A.INC"
;	__CONFIG        _XT_OSC	& _WDT_OFF
;*******************************************************
;
;       Program         
;
;       Version         
;
;       Creator         
;       Created         
;
;*******************************************************
;
; Initialize the Forth system
;
;	RSIZE	Allocate this amount (in bytes) for return stack.
;		This is only needed if return stack is used.
;		See manual for details.
;
;
MAXRAM	EQU	0x4f
TMP1	EQU	0x4e
TMP2	EQU	0x4d
TMP3	EQU	0x4c
RSIZE	EQU	0x04		; 4 bytes return stack. See Manual.
;
; Set up return and parameter stack. In register bank 1 if possible
;
RZERO	EQU	TMP3		; 1 'Below' Start of return stack. See Manual.		
SZERO	EQU	RZERO-RSIZE	; 1 'Below' of Parameter Stack. See Manual.
RSP	EQU	MAXRAM		; Last byte of BANK0

; Start of code area
;
	ORG     0x00
	goto    __MAIN		; Goto Main Program

	nop			; Add Your Favourite Three Mnemonics Here
	nop			;
	nop			;

	ORG     0x04
        retfie                  ; Add Interrupt Service Routine Here
;
; Do not add anything below this line
; -----------------------------------