DDRD	EQU	7
PTE	EQU	$08
DDRE	EQU	$0C
PTAPUE	EQU	$0D
PTCPUE	EQU	$0E
PTDPUE	EQU	$0F
SPCR	EQU	$10
SPSCR	EQU	$11
SCC1	EQU	$13
SCC2	EQU	$14
SCC3	EQU	$15
SCS1	EQU	$16
KBSCR	EQU	$1A
KBIER	EQU	$1B
INTSCR	EQU	$1D
CONFIG1	EQU	$1F
CONFIG2	EQU	$1E
T1SC	EQU	$20
T1CNTH	EQU	$21
T1CNTL	EQU	$22
T1SC0	EQU	$25
T1CH0H	EQU	$26
T1CH0L	EQU	$27
ADSCR	EQU	$3C
ADR	EQU	$3D
ADCLK	EQU	$3E
INT1	EQU	$FE04
INT2	EQU	$FE05
INT3	EQU	$FE06

FLAG	EQU	$50
DATA1	EQU	$51
DATA2	EQU	$52
ADRT	EQU	$53
DATA3	EQU	$54
        ORG     $F000
STRT:   RSP
	MOV	#$50,FLAG
	MOV	#$67,DATA1
	MOV	#$A5,DATA2
	MOV	#$0,DATA3
LP1:	INC	DATA1
        CLRH
LP2:    LDA     #$5A
        LDX     #$C0
LOOP:   STA     ,X
        INCX
        INCA
        CPX     #$F8
        BNE     LOOP
HERE:   INCA
	INC	   DATA2
        BRA     HERE

        ORG     $FFFE
        FDB     STRT
