;:open1,8,15,"s:busydir $500":close1
;:open2,8,2,"busydir $500,p,w
;:sys36864
	;.opt o2
	*= $500
anz	=$3b
sek	=7
trk	=6
job	=0
dir18	=$fe85
buff	=$300
tmp	=$14
cia	=$1c00
puf	=$24f
	lda puf
	ora #4
	sta puf
	lda dir18
	sta trk
	lda #0
	sta anz
	sta sek
	lda #$80
	sta job
	jsr w
waitrd	lda job
	bmi waitrd
	cmp #2
	bcc noerr
err	lda #-1
	sta anz
	rts
noerr	jsr w
	lda buff
	beq end
	sta trk
	lda buff+1
	sta sek
	lda #$80
	sta job
waitr2	lda job
	bmi waitr2
	cmp #2
	bcs err
	ldx #7
	ldy #2
	lda #<buff
	sta tmp
	lda #>buff
	sta tmp+1
loop	lda (tmp),y
	beq noentry
	inc anz
noentry	tya
	clc
	adc #32
	tay
	dex
	bpl loop
	bmi noerr
end	lda cia
	and #247
setcia	sta cia
	rts
w	lda cia
	eor #8
	jmp setcia