X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=device%2Flib%2Fz80%2Fcrt0.s;h=9f21f26b1d52a31b77264a967e2d9aba07ad13ce;hb=dc2b6e2e3714b59e4780a12741b339900ea04ea0;hp=5aa3991d315bc0b3ec33db66401ad7604a2e1ae0;hpb=b75e8929c91c765ecea2b27742958c142d645308;p=fw%2Fsdcc

diff --git a/device/lib/z80/crt0.s b/device/lib/z80/crt0.s
index 5aa3991d..9f21f26b 100644
--- a/device/lib/z80/crt0.s
+++ b/device/lib/z80/crt0.s
@@ -54,57 +54,6 @@ _exit::
 	halt
 	jr	1$
 
-        ;; Special RLE decoder used for initing global data
-__initrleblock::
-        ;; Pop the return address
-        pop     hl
-        ;; Save registers
-        push    bc
-        push    de
-
-        ;; Pull the destination address out
-        ld      c,(hl)
-        inc     hl
-        ld      b,(hl)
-        inc     hl
-1$:
-        ;; Fetch the run
-        ld      e,(hl)
-        inc     hl
-        ;; Negative means a run
-        bit     7,e
-        jp      z,2$
-        ;; Code for expanding a run
-        ld      a,(hl)
-        inc     hl
-3$:
-        ld      (bc),a
-        inc     bc
-        inc     e
-        jp      nz,3$
-        jp      1$
-2$:
-        ;; Zero means end of a block
-        xor     a
-        or      e
-        jp      z,4$
-        ;; Code for expanding a block
-5$:     
-        ld      a,(hl)        
-        inc     hl
-        ld      (bc),a
-        inc     bc
-        dec     e
-        jp      nz,5$
-        jp      1$
-4$:     
-        pop     de
-        pop     bc
-
-        ;; Push the return address back onto the stack
-        push    hl
-        ret
-
         .area   _GSINIT
 gsinit::