Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-25 15:29:37 +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
Show Stats 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
STZ CREATEPL+5 ; Aux type LSB
STZ CREATEPL+6 ; Aux type MSB
LDA #$C3 ; Default permissions
STA CREATEPL+3
JSR CRTFILE ; Create MOSFILE
BCS :EXIT ; Failed, exit with ProDOS result
JSR UPDFB ; Update FILEBLK
@ -150,6 +152,8 @@ COPY1FILE STA :DESTTYPE ; TODO: USE THE DEST TYPE!!!!
STA GINFOPL+2
LDA #$07 ; Fix num parms in PL
STA GINFOPL
LDA #$C3 ; Default permissions
STA GINFOPL+3
JSR MLI ; Call CREATE with ..
DB CREATCMD ; .. PL from GET_FILE_INFO
DW GINFOPL
@ -240,6 +244,8 @@ OFILE >>> ENTMAIN
STA CREATEPL+5
LDA #$00
STA CREATEPL+6
LDA #$C3 ; Default permissions
STA CREATEPL+3
JSR CRTFILE ; Create MOSFILE
:S1 LDA #$00 ; Look for empty slot
JSR FINDBUF
@ -524,6 +530,8 @@ SAVEFILE >>> ENTMAIN
STA CREATEPL+5
LDA FBLOAD+1
STA CREATEPL+6
LDA #$C3 ; Default permissions
STA CREATEPL+3
JSR CRTFILE
BCS :FWD1 ; :CANTOPEN error
JSR OPENFILE