another post-rework fix
This commit is contained in:
1 parent
fd76edf800
commit
9c6e6b0372
1 file changed
+9
-5
@@ -120,14 +120,17 @@ fs_hvsr_read_dir:
|
|||||||
|
|
||||||
@lp3:
|
@lp3:
|
||||||
|
|
||||||
lda #' '
|
|
||||||
sta XX_DIR_ENTRY, x
|
|
||||||
inx
|
|
||||||
|
|
||||||
dey
|
dey
|
||||||
lda PAR_FNAME, y
|
lda PAR_FNAME, y
|
||||||
cmp #$A0
|
cmp #$A0
|
||||||
beq @lp3
|
bne @lp3_done
|
||||||
|
|
||||||
|
lda #' '
|
||||||
|
sta XX_DIR_ENTRY, x
|
||||||
|
inx
|
||||||
|
bra @lp3
|
||||||
|
|
||||||
|
@lp3_done:
|
||||||
|
|
||||||
lda PAR_FTYPE ; put 'damaged' mark if needed
|
lda PAR_FTYPE ; put 'damaged' mark if needed
|
||||||
bmi @damaged
|
bmi @damaged
|
||||||
@@ -161,6 +164,7 @@ fs_hvsr_read_dir:
|
|||||||
lda PAR_FTYPE ; read-only mark (if needed)
|
lda PAR_FTYPE ; read-only mark (if needed)
|
||||||
and #$40
|
and #$40
|
||||||
beq @skipro
|
beq @skipro
|
||||||
|
lda #'<'
|
||||||
sta XX_DIR_ENTRY, x
|
sta XX_DIR_ENTRY, x
|
||||||
inx
|
inx
|
||||||
|
|
||||||
|
|||||||
Reference in new issue
Block a user