.s
print	1000
stop	1001
half 	100
temp 	101
temp2 	102
base	2
.a  0
.c
:begin
	lds #300
	lds temp
	lda #30
	lda temp
	psh
	sta half
	jmp begin
 	jmp @begin
	jpz next
	jpc @begin
	jsr next
	and #20
	and temp2
	pop
	add #40
	add data
	rts
	rol
	ror 
:next 	
	jsr print
	
:data
.b 1 2 3
.e
