Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-05 22:45:55 +02:00
parent ba1bb3996e
commit ba4d2a9379
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.woz
View File

Binary file not shown.

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

11
ProDOS.FX/ProDOS.S.XRW.txt
View File

@ -389,11 +389,16 @@ L596F ldy #$FF index to last byte of data to write.
* on exit: carry set if error (write protect violation).
* if no error, acc=uncertain, x=unchanged, y=0, carry clear.
*--------------------------------------
XRW.Write lda nbuf2
XRW.Write lda IO.D2.ReadProt,x test for write protected
lda IO.D2.ReadMode,x
bpl .1
sec
rts
.1 lda nbuf2
sta pcl
ldx A2L
lda #$FF sync data.
sta IO.D2.WriteMode,x (5) goto write mode
ora IO.D2.WShift,x (4)