.org 0
  jmp begin
half: 	0
temp: 	10 11
base:	0
data:       0
ea:          0
.org 100H
begin:
	lds #300
	lds temp
	lda #30
	lda temp
	lda (ea)
	psh
	sta half
	jmp begin
	jpz next
	jsr next
	and #20
	and temp
	pop
	add #40
	add data
	rts
	rol
	ror 
next:	
	jsr 1000
	jsr 1001
.end

