@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