;:sys36864
	;.opt oo
	*= 49152
; eurocheque-karten-lese-software
; nikolaus heusler
; XXXXXXXXXXXX  XX
; XXXX XXXXXXXX XX
; april 92
par	=2
chr	=3
byt	=4
ztr	=5
;"lda $dd01:sta 53280:sta 1024:jmp 49152"
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
	dex
	lda #40
	sta ztr
zeich	lda #4
	sta chr
	lda #0
	sta par
	sta byt
weiter	inx
	lda 50000,x
	eor par
	sta par
	dec chr
	bmi endchr
	lda 50000,x
	lsr
	rol byt
	bpl weiter
endchr	lda byt
	cmp #10
	bcc hex
	adc #6
hex	adc #48
	and #63
	sta 1984,y
	lda par
	sta 1984+54272,y
	iny
	dec ztr
	bne zeich
	ldx #0
	ldy #0
d	dex
	bne d
	dey
	bne d
	jsr $e8ea
	lda #"?"
	sta 1984
	lda #1
	sta 1984+54272
	jmp sose