https://www.temlib.org/AtariForumWiki/index.php?action=history&feed=atom&title=Fast_Degas_PC1_decompressor_code 2026-05-02T09:12:14Z Revision history for this page on the wiki MediaWiki 1.39.2 https://www.temlib.org/AtariForumWiki/index.php?title=Fast_Degas_PC1_decompressor_code&diff=13218&oldid=prev 2011-10-12T15:44:13Z

<p></p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="en"> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 11:44, 12 October 2011</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l72">Line 72:</td> <td colspan="2" class="diff-lineno">Line 72:</td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr> <tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;">[[Category:Programming]]</del>[[Category:Assembly Language]]</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[[Category:Assembly Language]]</div></td></tr> </table>

>Wongck https://www.temlib.org/AtariForumWiki/index.php?title=Fast_Degas_PC1_decompressor_code&diff=13217&oldid=prev 2011-08-30T15:20:03Z

<p>Created page with &quot;GT Turbo posted this source a while ago on the forum. As it works beautifully and is rather fast, here is his &#039;&#039;&#039;Degas PC1 file decompressor routine&#039;&#039;&#039; in 68000 assembler: ---- ...&quot;</p> <p><b>New page</b></p><div>GT Turbo posted this source a while ago on the forum. As it works beautifully and is rather fast, here is his '''Degas PC1 file decompressor routine''' in 68000 assembler:<br /> <br /> ----<br /> a0 points to the PC1 file, a1 to the intended destination screen.<br /> The palette is not extracted with this code but follows the Deags standard, e.q. simply move from 2(a0) 32 bytes into the Shifter color registers.<br /> <br /> ; code by GT Turbo / Cerebral Vortex<br /> Depack_PC1: movem.l d0-d7/a0-a6,-(a7) <br /> <br /> lea 34(a0),a0 ; Debut du pic<br /> <br /> move.w #199,d4 ; 199<br /> <br /> All_lines:<br /> move.l a1,a2 ; Destination<br /> moveq #3,d1 ; 4 Bit planes<br /> <br /> Debut_line:<br /> move.l a2,a3<br /> moveq #0,d3<br /> moveq #1,d5<br /> <br /> Recup_code:<br /> moveq #0,d0<br /> move.b (a0)+,d0<br /> bmi.s Repete_code<br /> <br /> add.b d0,d3<br /> addq.b #1,d3<br /> <br /> Copy:<br /> move.b (a0)+,(a2)<br /> add.w d5,a2<br /> eor.w #6,d5<br /> <br /> dbra d0,Copy<br /> <br /> bra.s End_line<br /> <br /> Repete_code:<br /> neg.b d0<br /> <br /> ; nop<br /> addq.b #1,d3<br /> add.b d0,d3<br /> <br /> move.b (a0)+,d2<br /> <br /> Recopy_code:<br /> move.b d2,(a2)<br /> <br /> add.w d5,a2<br /> eor.w #6,d5<br /> <br /> dbra d0,Recopy_code<br /> <br /> End_line:<br /> cmp.b #40,d3<br /> <br /> bne.s Recup_code<br /> move.l a3,a2<br /> <br /> addq.w #2,a2 ; Plan suivant<br /> <br /> dbra d1,Debut_line<br /> <br /> lea 160(a1),a1 ; Ligne suivante<br /> dbra d4,All_lines<br /> <br /> movem.l (a7)+,d0-d7/a0-a6<br /> rts<br /> <br /> <br /> [[Category:Programming]][[Category:Assembly Language]]</div>

>Wongck