home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / gfx / piccon-2.20.lha / PicCon / Sources / 8planespic.s < prev    next >
Text File  |  1994-04-13  |  1KB  |  60 lines
  1. ; Very simple sourcecode that shows an 8 bitplanes 320x256 AGA picture.
  2. ;
  3. ; Save a 320x256 256 colors picture as raw bitplanes (binary) to the file
  4. ; '8plpic.raw', and it's palette as a binary 8 bit copperlist to the file
  5. ; '8plpic.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    #8-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    8plpic.pal        ; insert the picture's
  29.                     ; 8 bits palette copperlist here
  30.     dc.w    $010c,$0011 
  31.     dc.w    $008e,$2c81
  32.     dc.w    $0100,$0210
  33.     dc.w    $0104,$0224 
  34.     dc.w    $0106,$0c40 
  35.     dc.w    $0090,$2cc1 
  36.     dc.w    $0092,$0038 
  37.     dc.w    $0094,$00d8 
  38.     dc.w    $0102,$0000 
  39.     dc.w    $0108,$fff8
  40.     dc.w    $010a,$fff8 
  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.     dc.w    $00f4,$0000,$00f6,$0000
  48.     dc.w    $00f8,$0000,$00fa,$0000
  49.     dc.w    $00fc,$0000,$00fe,$0000 
  50.  
  51.     dc.w    $01e4,$2100
  52.     dc.w    $01fc,$0003   
  53.     dc.w    $ffff,$fffe
  54.  
  55. ;***
  56.     Section    picture,DATA_C
  57.     
  58. pic    incbin    8plpic.raw        ; insert path to 8 planes 320x256
  59.                     ; picture here
  60.