home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / gfx / piccon-2.20.lha / PicCon / Sources / 5planespic.s < prev    next >
Text File  |  1994-04-13  |  1KB  |  56 lines
  1. ; Simple sourcecode that shows a 5 bitplanes 320x256 picture.
  2. ;
  3. ; Save a 320x256 32 colors picture as raw bitplanes (binary) to the file
  4. ; '5plpic.raw', and it's palette as a binary 4 bit copperlist to the file
  5. ; '5plpic.pal'.
  6.  
  7.     include    init.i
  8.  
  9. main    moveq    #0,d0
  10.     rts                ; return to CLI
  11.  
  12. ;***
  13. init
  14.     move.l    #pic,d0
  15.     lea    bplp,a0
  16.     moveq    #5-1,d1
  17. lup2    move.w    d0,6(a0)        ; insert BPLPTR LOW
  18.     swap    d0
  19.     move.w    d0,2(a0)        ; insert BPLPTR HIGH
  20.     swap    d0
  21.     add.l    #10240,d0        ; (320/8)*256 = 10240
  22.     addq    #8,a0
  23.     dbra    d1,lup2
  24.     rts
  25. ;***
  26.     Section    copper,DATA_C
  27. copper
  28.     incbin    5plpic.pal        ; insert the picture's
  29.                     ; 4 bits palette copperlist here
  30.     dc.w    $010c,$0011 
  31.     dc.w    $008e,$2c81
  32.     dc.w    $0100,$5200
  33.     dc.w    $0104,$0224 
  34.     dc.w    $0106,$0c40 
  35.     dc.w    $0090,$2cc1 
  36.     dc.w    $0092,$0038 
  37.     dc.w    $0094,$00d0
  38.     dc.w    $0102,$0000 
  39.     dc.w    $0108,$0000
  40.     dc.w    $010a,$0000 
  41.  
  42. bplp    dc.w    $00e0,$0000,$00e2,$0000
  43.     dc.w    $00e4,$0000,$00e6,$0000
  44.     dc.w    $00e8,$0000,$00ea,$0000
  45.     dc.w    $00ec,$0000,$00ee,$0000
  46.     dc.w    $00f0,$0000,$00f2,$0000 
  47.  
  48.     dc.w    $01fc,$0000
  49.     dc.w    $ffff,$fffe
  50.  
  51. ;***
  52.     Section    picture,DATA_C
  53.     
  54. pic    incbin    5plpic.raw        ; insert path to 5 planes 320x256
  55.                     ; picture here
  56.