.s
print	1000
stop	1001
half 	100
temp 	101
temp2 	102
base	2
.a  0
.c
	lda #15
	sta half
	cla
	add #1
	com
	and half
	ora #128
	sta temp
	xor temp
	lda half
	cla
	jz next
	jmp next
:next 	ldx #257
	inx
	dex
	stx temp2
	adc +3
	ora +base
	jsr  print
	jsr  stop
:data
.b 1 2 3
.e


