retro/native: ata:write appears to work
FossilOrigin-Name: a6bb32fde35c14599cd3663655b6c679be8babdaeca8cc24eebf883109d3ff4a
This commit is contained in:
parent
6f8f10e0ef
commit
f4668e05d0
2 changed files with 4 additions and 4 deletions
|
@ -678,8 +678,8 @@ int32_t ngaImage[] = { 1793,13833,55437,55457,201906,0,10,1,10,2,10,3,10,4,10,5,
|
||||||
16,2049,2908,10,1,13477,2049,2252,3,10,13406,13522,147,97,116,97,58,119,114,105,
|
16,2049,2908,10,1,13477,2049,2252,3,10,13406,13522,147,97,116,97,58,119,114,105,
|
||||||
116,101,0,1,224,1,502,2049,9285,1,0,1,497,2049,9285,1,1,1,498,2049,
|
116,101,0,1,224,1,502,2049,9285,1,0,1,497,2049,9285,1,1,1,498,2049,
|
||||||
9285,2,1,499,2049,9285,2,1,8,24,1,500,2049,9285,1,16,24,1,501,2049,
|
9285,2,1,499,2049,9285,2,1,8,24,1,500,2049,9285,1,16,24,1,501,2049,
|
||||||
9285,1,32,1,503,2049,9285,1,10000,1793,13571,10,1,13570,2049,2252,1,12893,1,256,
|
9285,1,48,1,503,2049,9285,1,10000,1793,13571,10,1,13570,2049,2252,1,12893,1,256,
|
||||||
1793,13601,2049,59,1793,13588,2049,59,10,1,13585,2049,2065,1,-8,24,17,1,496,2049,
|
1793,13601,2049,59,1793,13591,2049,59,1,-8,24,10,1,13585,2049,2065,17,1,496,2049,
|
||||||
9326,10,1,13581,2049,2252,3,10,13509,13615,147,101,111,108,63,0,1793,13621,1,13,
|
9326,10,1,13581,2049,2252,3,10,13509,13615,147,101,111,108,63,0,1793,13621,1,13,
|
||||||
11,10,1,13617,1793,13629,1,10,11,10,1,13625,1793,13637,1,32,11,10,1,13633,
|
11,10,1,13617,1793,13629,1,10,11,10,1,13625,1793,13637,1,32,11,10,1,13633,
|
||||||
2049,2129,22,22,10,13607,13654,147,118,97,108,105,100,63,0,2,2049,82,2049,2583,
|
2049,2129,22,22,10,13607,13654,147,118,97,108,105,100,63,0,2,2049,82,2049,2583,
|
||||||
|
|
|
@ -40,8 +40,8 @@
|
||||||
dup 0x1F3 pio:out-byte
|
dup 0x1F3 pio:out-byte
|
||||||
dup #8 shift 0x1F4 pio:out-byte
|
dup #8 shift 0x1F4 pio:out-byte
|
||||||
#16 shift 0x1F5 pio:out-byte
|
#16 shift 0x1F5 pio:out-byte
|
||||||
0x20 0x1F7 pio:out-byte
|
0x30 0x1F7 pio:out-byte
|
||||||
#10000 [ ] times
|
#10000 [ ] times
|
||||||
&Sector #256 [ fetch-next [ fetch-next ] dip #-8 shift + 0x1F0 pio:out-word ] times drop ;
|
&Sector #256 [ fetch-next [ fetch-next #-8 shift ] dip + 0x1F0 pio:out-word ] times drop ;
|
||||||
|
|
||||||
~~~
|
~~~
|
||||||
|
|
Loading…
Reference in a new issue