Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-08-11 12:25:03 +00:00
Code Issues Projects Releases Wiki Activity

Set file perms to $C3 on all calls to CREATE.

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2021-09-15 17:23:30 -04:00
parent d5cbc3f085
commit dbb432dd6a
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

8
mainmem.svc.s
View File

@@ -58,6 +58,8 @@ MAKEDIR >>> ENTMAIN
STA CREATEPL+4 ; ->File type STA CREATEPL+4 ; ->File type
STZ CREATEPL+5 ; Aux type LSB STZ CREATEPL+5 ; Aux type LSB
STZ CREATEPL+6 ; Aux type MSB STZ CREATEPL+6 ; Aux type MSB
LDA #$C3 ; Default permissions
STA CREATEPL+3
JSR CRTFILE ; Create MOSFILE JSR CRTFILE ; Create MOSFILE
BCS :EXIT ; Failed, exit with ProDOS result BCS :EXIT ; Failed, exit with ProDOS result
JSR UPDFB ; Update FILEBLK JSR UPDFB ; Update FILEBLK
@@ -150,6 +152,8 @@ COPY1FILE STA :DESTTYPE ; TODO: USE THE DEST TYPE!!!!
STA GINFOPL+2 STA GINFOPL+2
LDA #$07 ; Fix num parms in PL LDA #$07 ; Fix num parms in PL
STA GINFOPL STA GINFOPL
LDA #$C3 ; Default permissions
STA GINFOPL+3
JSR MLI ; Call CREATE with .. JSR MLI ; Call CREATE with ..
DB CREATCMD ; .. PL from GET_FILE_INFO DB CREATCMD ; .. PL from GET_FILE_INFO
DW GINFOPL DW GINFOPL
@@ -240,6 +244,8 @@ OFILE >>> ENTMAIN
STA CREATEPL+5 STA CREATEPL+5
LDA #$00 LDA #$00
STA CREATEPL+6 STA CREATEPL+6
LDA #$C3 ; Default permissions
STA CREATEPL+3
JSR CRTFILE ; Create MOSFILE JSR CRTFILE ; Create MOSFILE
:S1 LDA #$00 ; Look for empty slot :S1 LDA #$00 ; Look for empty slot
JSR FINDBUF JSR FINDBUF
@@ -524,6 +530,8 @@ SAVEFILE >>> ENTMAIN
STA CREATEPL+5 STA CREATEPL+5
LDA FBLOAD+1 LDA FBLOAD+1
STA CREATEPL+6 STA CREATEPL+6
LDA #$C3 ; Default permissions
STA CREATEPL+3
JSR CRTFILE JSR CRTFILE
BCS :FWD1 ; :CANTOPEN error BCS :FWD1 ; :CANTOPEN error
JSR OPENFILE JSR OPENFILE