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