mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-19 07:30:41 +00:00
Kernel 0.94
This commit is contained in:
parent
ba1bb3996e
commit
ba4d2a9379
Binary file not shown.
Binary file not shown.
@ -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)
|
||||
|
Loading…
x
Reference in New Issue
Block a user