Ustawienie banku ext, load w $4000, zmiana banku, goto początek :)

Poczytaj sobie format pliku binarnego, a w szczególności o obszarach specjalnych.

przeciez napisal, ze dane maja znalezc sie w osobnym pliku. na jednej stronie dyskietki miesci sie ok 180kb wiec pewnie dane beda miescic sie na 3 stronach.

tak przygotowany program nie jest idiotoodporny ( potrzeba cos wpisac ;-) ), moze lepszym rozwiazaniem jest ladowanie danych z pliku nie pocietego na 16kb tylko np. na ok.90? 180? (zeby miescily sie na jednej stronie) - w archiwum madsa jest taki loader z tego co pamietam - i upychanie ich w odpowiednim miejscu po czym komunikat zmien dyskietke czy cos i jazda dalej.

ale ludziki!
dlaczego ciac dane? przeciez sa dyskotki ktore maja 720kb, czy obrazy "dyskow twardych" po 16mb?
sparta dos czy mydos tez sie bawi w takie pitu pitu z dzieleniem plikow??
nie mam fopen, fseek, fread, fclose?

rozwiazanie tebego jest bardzo naturalne, ale kurde... cos mi sie robi :/

xxl, nie wiem jak ty, ale ja dyskietke 5.25" to mam, zeby nie zapomniec jak wyglada
a sio2pc to raczej ma kazdy
argumentowac sobie w ten sposob bylo mozna, ale w latach 80-90
przeciez mozna program rozpowszechniac w postaci 16mb obrazu dysku atr...

zywe stacje sa teraz na ojomie i pod kroplowka

przy vbxe czy turbo nie masz szans na ladowanie czegokolwiek z nosnika ktory ma 180kb

tyle ile do niej wody wlejesz
ja wszystko rozumiem, ale zauwaz, ze monkey island jest z ilus plikow, pocieta logicznie na lokacje i wczytuje sobie te pliki nie jako include...
ba! nawet w koncu dodali ta dyskietke do MI I, ktorej brakuje w orginale

Jeśli chodzi o rozmiar pliku na dyskietce to nie ma tu żadnych ograniczeń prócz fizycznych możliwości nośnika.
Program ładujący do kolejnych banków może wyglądać np tak (wyjęty z jakiegoś mojego kodu i zmodyfikowany, ale nie przetestowany):

load equ *
  ldx #$10
  lda #4    ;read
  sta icaux1,x
  lda #3    ;open
  sta iccmd,x
  lda <filename
  sta icbufa,x
  lda >filename
  sta icbufa+1,x
  lda #filenamelength
  sta icbufl,x
  lda #0
  sta icbufl+1,x
  jsr ciov
  bmi err
  
  ldy #0
  sty bankindex
loadloop equ *
  lda banks,y
  sta portb
  ;zaladowanie bloku do banku
  lda #4   ;read
  sta icaux1,x
  lda #7    ;getbyte
  sta iccmd,x
  lda <$4000
  sta icbufa,x
  lda >$4000
  sta icbufa+1,x
  lda <$4000
  sta icbufl,x
  lda >$4000
  sta icbufl+1,x
  jsr ciov
  bmi doclose

  inc bankindex
  ldy bankindex
  cpy #bankscount
  bcc loadloop
  
doclose equ *
  php

  ;na końcu włączamy podstawowy bank
  lda #$ff
  sta portb

  lda #12    ;close
  sta iccmd,x
  jsr ciov
  plp
err equ *
  rts

filename dta c'D1:DOWOL.DTA'
filenamelength equ *-filename

;tu są wartości dla portb włączające odpowiednie banki - system powinien być włączony!
banks dta b($c3),b($c7)
bankscount equ *-banks

To Ci pozwoli ładować strumieniowo plik (nie musisz go dzielić fizycznie na ileś tam plików, bo nie ma takiej potrzeby) do kilku banków zdefiniowanych w tablicy banks.
Na wyjściu w Y masz kod błędu, rejestr F nienaruszony w tym sensie, że po jsr load możesz zrobić bmi obsługabłędu.

Ostatnio edytowany przez mono (2009-04-14 16:18:27)

wersja z dzieleniem na 16KB bloki ma tą zaletę że można te 16KB bloki spakować, blok INIT będzie wówczas wzbogacony o wywołanie depakera, wówczas coś co zajmuje 700KB może zająć 180KB

w sumie można się pokusić aby zrealizować to tylko przy użyciu samego Exomizera bez potrzeby asemblacji

Ostatnio edytowany przez tebe (2009-04-14 17:24:45)

Tak. Na pewno działa dla Sparta DOS 3.2d (ścieżka np. "D1:KAT1>KAT2>PLIK.EXT"). Nie wiem jak jest w SDX i MyDOS, ale nie sądzę żeby było inaczej.

To taki specjalny ficzer, żeby się dłużej ładowało. Nostalgia za XC12 itd.

Co do ściezki, nie potrzeba podawać pełnej, jeśli egzek ładujący i plik danych są w tym samym katalogu, to wystarczy podać "D:nazwapliku".

Ostatnio edytowany przez drac030 (2009-04-15 15:21:35)