From f4668e05d0ee0ca1c37552489e0699869e853870 Mon Sep 17 00:00:00 2001 From: crc Date: Wed, 20 Feb 2019 20:07:20 +0000 Subject: [PATCH] retro/native: ata:write appears to work FossilOrigin-Name: a6bb32fde35c14599cd3663655b6c679be8babdaeca8cc24eebf883109d3ff4a --- interfaces/native/image.c | 4 ++-- interfaces/native/x86/ata.forth | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/interfaces/native/image.c b/interfaces/native/image.c index fc022a3..3ab8901 100644 --- a/interfaces/native/image.c +++ b/interfaces/native/image.c @@ -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, diff --git a/interfaces/native/x86/ata.forth b/interfaces/native/x86/ata.forth index c21df9a..67c9b68 100644 --- a/interfaces/native/x86/ata.forth +++ b/interfaces/native/x86/ata.forth @@ -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 ; ~~~