Arkivpacker f|r ABC80X V 4.0 1992.12.05 ---------------------------- Filer: ARKPACK7.BAC Packar ihop program till en file av typ (.ARK) ARKR[KN7.Z80 Assembler rutiner till ARK programen. UNARKIV1.BAC Packar upp filerna till valfri Enhet. UNARKIV2.ABS Packar upp filerna till valfri Enhet, fr}n dos. ARKLIST2.ABS Listar inneh}llet i ett Arkiv, fr}n dos. I ver 4.0 {r en stor bug bortagen f|r i de {ldre versionerna s} kunde programet tappa bortimot 254 tecken p} slutet av infilen. Tack vare Jan-Olof (6057) som uppt{ckte felet. Nu fungerar procent utr{kningarna {ven p} filer st|rre {n 32768 bytes. Och s} {r det en ny smartare packnings algoritm {n i version 3.3. Nu fungerar * funktionen {ven p} Ufd:. Skillnaden mellan Version 3 och 1 {r att i 3an kan man forts{tta att packa filer till ett redan existerande arkiv. Och s} kan man anv{nda jokertecket * enligt f|ljande. *.* Packar ner alla filer fr}n den angivna Enheten. A*.* Packar ner alla filer som b|rjar med ett A. *K.* Packar ner alla filer som slutar p} K. *.BAC Packar alla filer som har filetyp .BAC. *.A* Packar ner de filer vars filtyp b|rjar med A. OBS! alla bokst{ver i filenamnet m}ste var stora. Gl|m ej bort att alla .ARK filer {r bin{rfiler. Anv{nd g{rna detta program n{r du skickar upp filer till ABC monitor s} kan man h{mta allt som en Bin{rfil. De h{r programmen f}r kopieras fritt hur mycket som helst. Avsluta programmet genom att ange ENhet och sedan bara trycka return n{r datorn fr}gar efter filer som ska packas. Skillnaden mellan unarkiv v1.0 och v1.1 {r att 1.1 skriver ut hur stora filerna blir efter uppackning och sedan g}r den lite snabbare pga att jag anv{nt heltal i st{llet f|r flyttal i n}gra FOR loopar. Och s} har jag bytt ut ett RED som troligen inte fungerat p} ABC800M, mot CHR$ ist{llet. s} om texten "klar" efter uppackning kommer upp med gr|nt s} har allt g}tt bra, men om den kommer med r|tt s} betyder det att error 34 eller 38 har uppst}tt under uppackning. --- UNARKIV2.ABS --- Det h{r {r ett program f|r att packa upp filerna fr}n ett arkiv. Programmet anropas fr}n DOS med f|ljande kommando. UNARKIV2 Enhet:Namn.ark Enhet: D{r det f|rsta {r arkivfilen och den sista Enhet {r till vilken enhet som filerna ska packas upp till. ex UNARKIV2 MF0:TEST.ARK HD0: Vilket kommer att resultera i att arkivet MF0:TEST.ARK packas upp p} HD0:. --- ARKLIST2 --- Det h{r {r en rutin f|r att lista inneh}llet i ett arkiv p} sk{rmen. Programmet anropas fr}n DOS med kommandot. ARKLIST2 Enhet:Namn.ARK Packning algoritmen i ARKPACKERN {r inte den b{sta, s} man kan komplettera .ARK filerna med n}got annat packnings program som HFM.BAC. F|ruts{ttningen f|r att ARK ska kunna packa n}got {r att det finns block med flera lika bytes i f|ljd. S} bilder med stora enf{rgade f{lt blir ganska bra packade, en helt enf{rgad 131 blocks bild borde bli p} ca 2 block. Programmet {r skrivet p} en ABC806 i LUX-NET och testat p} en ABC802 med UFD-dos. Magnus Nilsson <8042> TELE: 08/7426945