;:sys36864
	;.opt oo
; eurocheque-karten-lese-software
; nikolaus heusler
; XXXXXXXXXXXX  XX
; XXXX XXXXXXXX XX
; april 92
sose	ldx #0
	stx $dd03	;alle leitungen eingang
	stx 2
	stx 3	;zaehler
cl1	lda 198
	beq cl01
	rts
cl01	lda $dd01
	bmi cl1	;auf clock warten
	inx
	and #64
	lsr
	lsr
	lsr
	lsr
	lsr
	lsr
	and #1
	sta 50000,x
	cpx #230
	bcs end
off	lda $dd01
	bpl off
	bmi cl1
end	ldx #10
such1	inx
	lda 50000,x
	beq such1
	ldy #0
weiter	lda 50000,x
	ora #48
	pha
	cmp 1024,y
	beq same
	lda #15
	.byt $2c
same	lda #1
	sta 55296,y
	pla
	sta 1024,y
	iny
	inx
	cpx #230
	bcc weiter
	lda #32
clr	sta 1024,y
	iny
	bne clr
	beq sose