Dialer equ $3701
Neg1	   equ $FF
Num    equ  7

	org $100 ; 0-$FFF is ROM
PN	dc.b 3,9,2,2,5,4,1

	org $1000 ; $1000-$1FFF is RAM
Cnt	ds.b 1

	org 0
	ldx #PN
	ldaa #Num

LOOP:
	ldab	0,X
	stab Dialer
	inx
	ldab #Neg1
;	sum_ba
	aba

	bne LOOP

HERE:
	beq HERE

