Nie jesteś zalogowany. Proszę się zalogować lub zarejestrować.
Zmarł twórca języka BASIC Zmarł Thomas E. Kurtz twórca języka BASIC
Zmiana serwera atari.area Serwis przeszedł właśnie ważną aktualizację infrastruktury
4th Atari ASCII Compo - wyniki Dostępne są już wyniki tegorocznego ATASCII Compo.
thing neo 1.60 Olivier Landemarre wydał nową wersję desktopu Thing.
VIII. Basque Tournament of Atari 2600 Kolejna relacja, wśród otrzymywanych od naszego przyjaciela Egoitza z Kraju Basków.
atari.area forum » Programowanie - 8 bit » SDX 4.4x - bieżący dysk / katalog
Strony 1
Zaloguj się lub zarejestruj by napisać odpowiedź
... otóż po wstępnej lekturze manuala, oraz analizie stanu pamięci nie jestem w stanie znaleźć informacji jak zmienić z poziomu TurboBasic domyślny "D:", czyli jak ustalić bieżący dysk / katalog. Chcę po prostu dokonać poprawek w TRSdesktop - wspomniany nie współpracuje poprawnie z aktualną wersją systemu SDX.
Ktoś pomoże? - Draco? ;)-
U_SFAIL smb 'U_SFAIL'
U_XFAIL smb 'U_XFAIL'
CURDEV smb 'CURDEV'
PATH = $7a0
lda CURDEV
and #$f
ora #'A'
sta cwd
lda #<?err
ldx #>?err
jsr U_SFAIL
lda #<cwd
ldx #>cwd
sta FILE_P
stx FILE_P+1
jsr GETCWD
jsr U_XFAIL
ldy #-1
?loop:
iny
lda PATH,y
sta cwd+2,y
bne ?loop
?err:
rts
cwd .db '?:',0
.ds 63W cwd masz ścieżkę z nazwą urządzenia.
Mono - chodzi o ustawienie ścieżki z poziomu TBXL ;)- .. a nie o program legalnie operujący na bibliotekach SDX.
XIO 44,#n,0,0,"Dx:path"?
.... czyli XIO działa, chodzi o CURDEV ustawiony na wspomnianego hardcore'a. Zaczynam to rozumieć, pytanie tylko jak namierzyć w desktopie stary rejestr i zmienić to "po nowemu" ;)-
Heh. Cały ten kawał kodu, co spłodziłem można zawrzeć jednym prostym XIO: http://atariki.krap.pl/index.php/GET_CURRENT_DIRECTORY (niestety nie da się użyć z BASICa).
Okazało się natomiast, że problem pina nie polega na zmianie bieżącego KATALOGU, ale że chciałby on jakoś zmienić bieżący DYSK. A do tego nie ma funkcji... Może w przyszłości dałoby się to robić XIO 44 z jakimś parametrem w icaux?
A tymczasem można to chyba osiągnąć za pomocą:
lda #numer dysku
sta CURDEVKod zwracający adres dowolnego symbolu:
fr0 = $d4
FSYMBOL = $7eb
pla
pla
tax
pla
jsr FSYMBOL
sta fr0
stx fr0+1
rtsoczywiście symbol MUSI istnieć, MUSI być w pamięci podstawowej, bo ignorowane są wszystkie błędy.
Wywołanie z BASICa za pomocą:
X=USR(ADR("kodprogramu"),ADR("CURDEV "))Edit: Załącznik
widzę ciemność, ciemność widzę :) -
(po odpaleniu w/w załącznika) :)
EDIT:
działa.
W przypadku braku symbolu zwraca zero.
jak wspomniałem na priv, po kompilacji procka zwraca zły adres CurDev. Program niekompilowany działa 100% bezbłędnie. Dziwne toto :)
To nic nowego.
Funkcja USR() niewłaściwie przekazuje wynik z procedury użytkownika.
Rozwiązanie: zamiast zapisywać wynik w słowie $D4/$D5 i pobierać go bezpośrednio z funkcji, wykorzystujemy dowolne nieużywane miejsce pamięci i funkcje PEEK() lub DPEEK().
Dzięki epi.
Wynik jest zwracany przez USR lub może być odczytany z 203..204.
To powinno wystarczyć w takim razie. Jutro to sprawdzę. Tnx Mono za prockę a Epi - szczególnie za info o USR ;)-
ok - mogę śmiało powiedzieć, iż TRS Desktop zadziałał mi poprawnie na SDX 4.45 ;)- problem CurDev rozwiązany. Dzięki Mono / Epi za wsparcie!
Strony 1
Zaloguj się lub zarejestruj by napisać odpowiedź
atari.area forum » Programowanie - 8 bit » SDX 4.4x - bieżący dysk / katalog
Wygenerowano w 0.035 sekund, wykonano 51 zapytań