EvoTools (ROM)

ZX evolution software and hardware

Postby DimkaM » 08 Oct 2010, 20:05

вот что перед сном успел смастрячить, косяков наверно не меренно:
Code: Select all
summ3216   ;сложение U32bit+U16bit=U32bit bcde+hl->bcde
      add hl,de
      ex hl,de
      ld a,c
      adc a,0
      ld c,a
      ld a,b
      adc a,0
      ld b,a
      ret


mul16x8   ;умножение 16bit*8bit=24bit de*a->ahl
      ld hl,0
      ld c,0
      add a,a
      jr nc,$+4
      ld   h,d
      ld   l,e
      dup 7
      add   hl,hl      
      rla         
      jr   nc,$+4      
      add   hl,de      
      adc   a,c      
      edup
      ret
   

;вычисляем адреса основных секторов
   

Init      ld bc,0,de,0      ;читаем нулевой сектор
      ld hl,SectorBuffer
      call Sdspi.RDSINGL
      
      ld  de,(SectorBuffer+0x01c6)   ;получаем адрес первого раздела
      ld (Tabl+0),de
      ld  bc,(SectorBuffer+0x01c8)
      ld (Tabl+2),bc
      ld hl,SectorBuffer
      call Sdspi.RDSINGL   ;читаем сектор с FATrec
      ld de,(Tabl+0)
      ld bc,(Tabl+2)
            ;вычесляем начальный сектор с 
      ld hl,(SectorBuffer+0x0e)   ;таблицей кластеров
      call summ3216
      ld (Tabl+0),de
      ld (Tabl+2),bc
      ld de,(SectorBuffer+0x16)   ;вычисляем адрес корневой
      ld a,(SectorBuffer+0x10)   ;директории
      call mul16x8
      ld de,(Tabl+0)
      ld bc,(Tabl+2)
      exa
      call summ3216
      exa
      ld h,0
      ld l,a
      add hl,bc
      ld (DirKor+1),de
      ld (DirKor+4),hl
      ret
ZX-Evo rev B, ZX-Evo rev C, ZXNetUsb rev A, ZXNetUsb rev С
http://nedoos.ru/ http://ti6.zxevo.ru/
DimkaM
 
Posts: 1387
Joined: 24 Mar 2010, 13:42
Location: джунгли Амазонки
Group: Registered users

Postby deathsoft » 08 Oct 2010, 21:45

TS-Labs wrote:100 точно нет, это не быдлописюк, но штук 10 - лёхко.

Ну вон, то, что изложено в посте со списком функций работает с любым числом файлов и любым числом устройств. Т.ч. можно будет открыть сколько угодно, пока память не кончится.
User avatar
deathsoft
 
Posts: 358
Joined: 07 Apr 2007, 01:58
Group: Registered users

Postby 3ASOFT » 09 Oct 2010, 06:20

Абсолютно не понимаю, о чем идет речь, но мне и не дано. Единственная просьба от обычных (не программиских) юзеров:

после создания очередного шедевра генной инженерии проверьте, чтобы с:

HD, SD загружалась программа:

UNREAL KSA и INSULT CODE BUSTERS.
[url]zxaaa.net[/url]
User avatar
3ASOFT
 
Posts: 38
Joined: 05 Mar 2008, 01:04
Location: Россия
Group: Registered users

Postby DimkaM » 09 Oct 2010, 06:45

блин, проснулся и понял, что накосячил с кодом. Последние несколько строк относятся к фат16, который нам нафиг не нужен. завтра перепишу и проверю под унреалом.
ZX-Evo rev B, ZX-Evo rev C, ZXNetUsb rev A, ZXNetUsb rev С
http://nedoos.ru/ http://ti6.zxevo.ru/
DimkaM
 
Posts: 1387
Joined: 24 Mar 2010, 13:42
Location: джунгли Амазонки
Group: Registered users

Postby нолька » 13 Nov 2010, 10:13

add hl,de
ex hl,de
ld a,c
adc a,0
ld c,a
ld a,b
adc a,0
ld b,a
ret

xor a
add hl.de
ex de,hl
adc a,c
ld c,a
adc a,b
sub c
ld b,a
ret
я проснулся среди ночи и понял, что всё...
всё идет по плану
User avatar
нолька
рОвный
 
Posts: 264
Joined: 08 Apr 2007, 21:12
Group: Registered users

Postby breeze » 13 Nov 2010, 14:43

…и тишинааа… ;)
User avatar
breeze
 
Posts: 764
Joined: 07 Feb 2009, 17:19
Location: Оттуда
Group: Registered users

Previous

Return to Пентева - софт и железо

Who is online

Users browsing this forum: Google [Bot] and 1 guest