home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / retinasource.lha / RBO_SCode.lha / Include / bk-decrunch.i < prev    next >
Encoding:
Text File  |  1993-05-03  |  1.1 KB  |  76 lines
  1.     
  2. DeCr00:    move.l    loadbuffer,a0
  3.     move.l    newcmap,a1
  4.     move.l    (a0)+,d0
  5.     move.l    (a0)+,d1
  6.     add.l    d0,a0
  7.     move.l    (a0),d0
  8.     move.l    a1,a2
  9.     add.l    d1,a2
  10.     moveq    #3,d5
  11.     moveq    #2,d6
  12.     moveq    #$10,d7
  13. DeCr01:    lsr.l    #1,d0
  14.     bne.b    DeCr02
  15.     bsr.b    DeCr14
  16. DeCr02:    bcs.b    DeCr09
  17.     moveq    #8,d1
  18.     moveq    #1,d3
  19.     lsr.l    #1,d0
  20.     bne.b    DeCr03
  21.     bsr.b    DeCr14
  22. DeCr03:    bcs.b    DeCr11
  23.     moveq    #3,d1
  24.     moveq    #0,d4
  25. DeCr04:    bsr.b    DeCr15
  26.     move.w    d2,d3
  27.     add.w    d4,d3
  28. DeCr05:    moveq    #7,d1
  29. DeCr06:    lsr.l    #1,d0
  30.     bne.b    DeCr07
  31.     bsr.b    DeCr14
  32. DeCr07:    roxl.l    #1,d2
  33.     dbf    d1,DeCr06
  34.     move.b    d2,-(a2)
  35.     dbf    d3,DeCr05
  36.     bra.b    DeCr13
  37. DeCr08:    moveq    #8,d1
  38.     moveq    #8,d4
  39.     bra.b    DeCr04
  40. DeCr09:    moveq    #2,d1
  41.     bsr.b    DeCr15
  42.     cmp.b    d6,d2
  43.     blt.b    DeCr10
  44.     cmp.b    d5,d2
  45.     beq.b    DeCr08
  46.     moveq    #8,d1
  47.     bsr.b    DeCr15
  48.     move.w    d2,d3
  49.     moveq    #$c,d1
  50.     bra.b    DeCr11
  51. DeCr10:    moveq    #9,d1
  52.     add.w    d2,d1
  53.     addq.w    #2,d2
  54.     move.w    d2,d3
  55. DeCr11:    bsr.b    DeCr15
  56. DeCr12:    subq.w    #1,a2
  57.     move.b    0(a2,d2.w),(a2)
  58.     dbf    d3,DeCr12
  59. DeCr13:    cmpa.l    a2,a1
  60.     blt.b    DeCr01
  61.     rts    
  62. DeCr14:    move.l    -(a0),d0
  63.     move.w    d7,ccr
  64.     roxr.l    #1,d0
  65.     rts    
  66. DeCr15:    subq.w    #1,d1
  67.     moveq    #0,d2
  68. DeCr16:    lsr.l    #1,d0
  69.     bne.b    DeCr17
  70.     move.l    -(a0),d0
  71.     move.w    d7,ccr
  72.     roxr.l    #1,d0
  73. DeCr17:    roxl.l    #1,d2
  74.     dbf    d1,DeCr16
  75.     rts    
  76.