@Don_Adan, post #181
@tukinem, post #182
@cholok, post #185
@Don_Adan, post #187
@Don_Adan, post #188
@tukinem, post #189
@Don_Adan, post #190
@tukinem, post #192
@Don_Adan, post #193
@tukinem, post #194
@Don_Adan, post #181
@tukinem, post #198
@Don_Adan, post #200
@tukinem, post #201
Section Buffer,BSS Buffy ds.b 600*1024
@Don_Adan, post #202
longwordy, czytane bajtami w PC-towym stylu
@tukinem, post #203
@Don_Adan, post #204
@tukinem, post #206
; tryb testowy #TEST = 0 NEWTYPE .fileOnDisk _size.l ; rozmiar _data.l ; wskaznik _name.s ; nazwa pliku End NEWTYPE DEFTYPE .fileOnDisk src,fts DEFTYPE .l offset ; ZMIENNE: ; src zmienna pliku odczytanego ; fts zmienna pliku do zapisu ; offset pozycja odczytu w pamieci ;-------------------------------------------------------------- ; nalezy uruchomic z dwoma parametrami ; BBSplit <PLIK> <KATALOG_WYJSCIOWY> CNIF #TEST=0 If NumPars<>2 Then End CEND ;-------------------------------------------------------------- ; wczytanie pliku CNIF #TEST=0 src\_name = Par$(1) DEST$=Par$(2) CELSE src\_name = "DH1:Unpacked/arc.lha" DEST$="RAM:" CEND src\_size = FileSize(src\_name) src\_data= AllocMem_(src\_size,0) BLoad src\_name,src\_data ;-------------------------------------------------------------- offset = 8 ; PETLA ZAPISU While offset<src\_size fts\_size = Peek.l(src\_data+offset) ; NAZWA PLIKU DO ZAPISU offset+14 a$ = "" While Peek.b(src\_data+offset)<>0 a$=a$+Chr$(Peek.b(src\_data+offset)) offset+1 Wend a$ = UnLeft$(a$,3) ; usuwam 3 ostatnie znaki fts\_name = a$ ; KOPIOWANIE DANYCH fts\_data = AllocMem_(fts\_size,0) offset+2 CopyMem_ src\_data+offset , fts\_data , fts\_size offset+fts\_size+8 BSave DEST$+fts\_name , fts\_data , fts\_size FreeMem_ fts\_data,fts\_size Wend FreeMem_ src\_data,src\_size End
@tukinem, post #206
move.b (A0)+,D0 ror.l #8, D0 ;obrot w prawo o 8 bitow, czyli o bajt move.b (A0)+,D0 ror.l #8, D0 ;obrot w prawo o 8 bitow, czyli o bajt move.b (A0)+,D0 ror.l #8, D0 ;obrot w prawo o 8 bitow, czyli o bajt move.b (A0)+,D0 ror.l #8, D0 ;obrot w prawo o 8 bitow, czyli o bajt
@Don_Adan, post #208
@tukinem, post #209