Don't add a mode when opening files for reading

git-svn-id: svn://svn.cc65.org/cc65/trunk@2014 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2003-03-13 23:09:53 +00:00
parent c8d76046cb
commit e39b1c963e
2 changed files with 25 additions and 25 deletions

View File

@@ -13,7 +13,7 @@
.import SETLFS, OPEN, CLOSE
.import addysp, popax
.import scratch, fnparse, fncomplete, fnset
.import scratch, fnparse, fnaddmode, fncomplete, fnset
.import opencmdchannel, closecmdchannel, readdiskerror
.import __oserror
.import fnunit
@@ -109,7 +109,7 @@ notrunc:
bne append ; Branch if yes
ldx #'w'
append: txa
jsr fncomplete
jsr fncomplete ; Add type and mode to the name
; Setup the real open flags
@@ -119,7 +119,7 @@ append: txa
; Read bit is set. Add an 'r' to the name
doread: lda #'r'
jsr fncomplete
jsr fnaddmode ; Add the mode to the name
lda #LFN_READ
; Common read/write code. Flags in A, handle in tmp2