home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-0497 / AMOSLIST / littleexamples.lha / Planar2Chunky.s < prev    next >
Encoding:
Text File  |  1995-09-08  |  561 b   |  38 lines
  1.     output    dh1:P2C.o
  2.     move.l    (a3)+,a1    ;Target chunky
  3.     addq.l    #8,a1
  4.     move.l    (a3)+,a0    ;Startaddress
  5.     move.b    7*512(a0),d0
  6.     move.b    6*512(a0),d1
  7.     move.b    5*512(a0),d2
  8.     move.b    4*512(a0),d3
  9.     move.b    3*512(a0),d4
  10.     move.b    2*512(a0),d5
  11.     move.b    1*512(a0),d6
  12.     swap    d6
  13.     move.b    (a0),d6
  14.     swap    d6
  15.     REPT    8
  16.     moveq.l    #0,d7
  17.     lsr.w    #1,d0
  18.     addx.w    d7,d7
  19.     lsr.w    #1,d1
  20.     addx.w    d7,d7
  21.     lsr.w    #1,d2
  22.     addx.w    d7,d7
  23.     lsr.w    #1,d3
  24.     addx.w    d7,d7
  25.     lsr.w    #1,d4
  26.     addx.w    d7,d7
  27.     lsr.w    #1,d5
  28.     addx.w    d7,d7
  29.     lsr.w    #1,d6
  30.     addx.w    d7,d7
  31.     swap    d6
  32.     lsr.w    #1,d6
  33.     addx.w    d7,d7
  34.     swap    d6
  35.     move.b    d7,-(a1)
  36.     ENDR
  37.     rts
  38.