;:sys36864
	;.opt oo
	*= 49152
p	=56577
	lda #63
	sta p+1
	lda #3
	sta 182
	sta p+2
	lda #251
	sta p-1
	lda #0
	sta p
	sta 2
	sta 3
	sta 4
	lda #<iq
	ldy #>iq
	sei
	sta 788
	sty 789
	lda #1
	sta 56325
	cli
	rts
	.byte "  nikolaus heusler, zwengauerweg 18,"
	.byte " 8000 muenchen 71  "
iq	lda 3
	and #1
	asl
	sta 3
	lda p
	and #253
	ora 3
	sta p
	lsr 3
	lda 2
	bne motan
	lda p
	and #254
	sta p
	jmp iq4
motan	inc 181
	beq motein
	lda 181
	cmp 4
	bcc iq4
nomot	lda p
	and #254
	sta p
	jmp iq4
motein	lda 4
	beq nomot
	lda #1
	ora p
	sta p
iq4	dec 182
	bne iq7
	lda #64
	sta 182
	jmp $ea31
iq7	jmp $ea7e
; modulplatine verwenden!
; ausgang 0 = motor
; ausgang 1 = richtung