: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