Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-09-27 16:55:31 +00:00
Code Issues Projects Releases Wiki Activity

Fix to *ACCESS permissions

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-06 17:15:07 -04:00
parent b89dae988f
commit 86f815461e
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

4
mainmem.s
View File

@ -1076,6 +1076,8 @@ SETPERM >>> ENTMAIN
JSR GETINFO ; GET_FILE_INFO
BCS :EXIT
LDA GINFOPL+3 ; Access byte
AND #$03 ; Start with R, W off
ORA #$C0 ; Start with dest/ren on
LDX :RFLAG
BEQ :S3
ORA #$01 ; Turn on read enable
@ -1084,7 +1086,7 @@ SETPERM >>> ENTMAIN
ORA #$02 ; Turn on write enable
:S4 LDX :LFLAG
BEQ :S5
AND #$C2 ; Turn off dest/ren/write
AND #$3D ; Turn off destroy/ren/write
:S5 STA GINFOPL+3 ; Access byte
JSR SETINFO ; SET_FILE_INFO
:EXIT >>> XF2AUX,ACCRET