**********************************************************************
*	Example 1
**********************************************************************

* Version 1.00, written by Kenrick Chin, 1999 Jun 24
* Demonstrates how to toggle PD5 output
* using extended addressing mode for I/O addresses

*---------------------------------------------------------------------
* Define hardware constants
*---------------------------------------------------------------------

EEPROM	EQU	$F800		;start of EEPROM
PORTD	EQU	$1008		;address of portD
DDRD	EQU	$1009		;Data Direction Register for portD
PD5	EQU	%00100000	;bit mask for PD5

**********************************************************************
*	CODE SEGMENT
**********************************************************************

	ORG	EEPROM

start	LDA	#PD5		;get bit pattern for PD5
	STA	DDRD		;and set PD5 as output port

main	STA	PORTD		;send high signal on PD5
	CLR	PORTD		;and set it low again
	BRA	main		;loop forever

**********************************************************************
*	Interrupt Vectors
**********************************************************************

	ORG	$FFFE
	FDB	start		;reset vector
	END