;:poke56,32:clr
;:sys36864
	;.opt oo
	*= 20000
tmp	=2
tmp2	=4
frmnum	=$ad8a
integer	=$b7f7
byte	=$14
komma	=$aefd
esc	=123
konf	=1
	jmp start
	jmp decode
anz	.byt 0
wert	.byt 0
merk	.byt 0
getadr	jsr komma
	jsr frmnum
	jsr integer
	lda byte
	ldy byte+1
	rts
get	ldy #0
	lda (tmp),y
	inc tmp
	bne l1
	inc tmp+1
l1	rts
put	ldy #0
	sta (tmp2),y
	inc tmp2
	bne l2
	inc tmp2+1
l2	rts
back	lda tmp
	sec
	sbc #1
	sta tmp
	lda tmp+1
	sbc #0
	sta tmp+1
	rts
testend	lda tmp+1
	cmp byte+1
	bne l5
	lda tmp
	cmp byte
	bne l5
	sec
	rts
l5	clc
	rts
safety	inc byte
	bne l8
	inc byte+1
l8	rts
start	jsr getadr
	sta tmp
	sty tmp+1
	jsr getadr
	pha
	tya
	pha
	jsr getadr
	sta tmp2
	sty tmp2+1
	pla
	tay
	pla
	sta byte
	sty byte+1
	jsr safety
	jsr disable
l4	lda #0
	sta anz
	jsr testend
	bcs l6
	inc anz
	jsr get
	sta wert
l3	jsr testend
	bcs l6
	jsr get
	cmp wert
	bne neu
	inc anz
	bne l3
	lda #esc
	jsr put
	lda #-1
	jsr put
	lda wert
	jsr put
	jsr back
	jmp l4
neu	jsr back
	ldx anz
	cpx #4
	bcs l9
	lda wert
	cmp #esc
	beq l9
la	jsr put
	dex
	bne la
	jmp l4
l9	lda #esc
	jsr put
	lda anz
	jsr put
	lda wert
	jsr put
	jmp l4
l6	ldx anz
	beq l7
	cpx #4
	bcc lb
ld	lda #esc
	jsr put
	lda anz
	jsr put
	lda wert
	jsr put
	jmp l7
lb	lda wert
	cmp #esc
	beq ld
lc	jsr put
	dex
	bne lb
l7	lda #esc
	jsr put
	lda #0
	jsr put
	jmp enable
decode	jsr getadr
	sta tmp
	sty tmp+1
	jsr getadr
	sta tmp2
	sty tmp2+1
	jsr disable
m1	jsr get
	cmp #esc
	beq m2
	jsr put
	jmp m1
m2	jsr get
	tax
	beq enable
	jsr get
m3	jsr put
	dex
	bne m3
	beq m1
disable	lda konf
	sta merk
	sei
	lda #48
	sta konf
	rts
enable	lda merk
	sta konf
	cli
	rts