crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

retro/native: ata:write appears to work

Browse source 
FossilOrigin-Name: a6bb32fde35c14599cd3663655b6c679be8babdaeca8cc24eebf883109d3ff4a
This commit is contained in:
crc 2019-02-20 20:07:20 +00:00
parent 6f8f10e0ef
commit f4668e05d0
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
interfaces/native/image.c
View file

@ -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,
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,1,32,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,
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,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,
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,

4
interfaces/native/x86/ata.forth
View file

@ -40,8 +40,8 @@
dup 0x1F3 pio:out-byte
dup #8 shift 0x1F4 pio:out-byte
#16 shift 0x1F5 pio:out-byte
0x20 0x1F7 pio:out-byte
0x30 0x1F7 pio:out-byte
#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 ;
~~~