:FindAllFiles lda r5H
pha
lda r5L
pha
LoadB r0L,17
lda r7L
pha
MoveB r7H,r1L
ldx #r0L
ldy #r1L
jsr BBMult
pla
sta r7L
MoveW r6,r1
jsr ClearRam
jsr ReadFirstEntry
txa
bne TabelleFertig
::60 ldy #0
lda (r5),y
beq :10
ldy #$16
lda (r5),y
tax
AddVW 3,r5
lda nonGeosToo
beq :20
txa
beq :30
::20 ldy #0
::50 lda (r5),y
cmp #$a0
beq :40
sta (r6),y
iny
cpy #16
bne :50
::40 AddVW 17,r6
dec r7H
beq TabelleFertig
::30 SubVW 3,r5
::10 jsr ReadNextEntry
txa
bne TabelleFertig
tya
beq :60
:TabelleFertig pla
sta r5L
pla
sta r5H
rts
:ReadFirstEntry lda version
cmp #$12
bne :10
jmp $c9f7
::10 jmp Get1stDirEntry
:ReadNextEntry lda version
cmp #$12
bne :10
jmp $ca10
::10 jmp GetNxtDirEntry