home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / gfx / piccon-2.20.lha / PicCon / Sources / 8planesHAMpic.s < prev    next >
Text File  |  1994-04-13  |  1KB  |  53 lines
  1. ; Very simple sourcecode that shows a HAM8 320x256 AGA picture.
  2. ;
  3. ; Save a 320x256 HAM8 picture as raw bitplanes (binary) to the file 'HAM8.RAW',
  4. ; and it's palette as a binary 8 bits copperlist to the file 'HAM8.pal'.
  5.  
  6.     include    init.i
  7.     
  8. main    moveq    #0,d0
  9.     rts                ; return to CLI
  10.  
  11. ;***
  12. init
  13.     move.l    #pic,d0
  14.     lea    bplp,a0
  15.     moveq    #8-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    HAM8.pal        ; insert the picture's
  28.                     ; 8 bits palette copperlist here
  29.  
  30.     DC.B    $01,$0C,$00,$11,$00,$8E,$2C,$81
  31.     DC.B    $01,$00,$0A,$10,$01,$04,$02,$24
  32.     DC.B    $01,$06,$0C,$40,$00,$90,$2C,$C1
  33.     DC.B    $00,$92,$00,$38,$00,$94,$00,$D8
  34.     DC.B    $01,$02,$00,$00,$01,$08,$FF,$F8
  35.     DC.B    $01,$0A,$FF,$F8
  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.     dc.w    $00f8,$0000,$00fa,$0000
  44.     dc.w    $00fc,$0000,$00fe,$0000 
  45.  
  46.     dc.b    $01,$E4,$21,$00
  47.     DC.B    $01,$FC,$00,$03,$FF,$FF,$FF,$FE
  48. ;***
  49.     Section    picture,DATA_C
  50.     
  51. pic    incbin    HAM8.RAW        ; insert path to 8 planes 320x256
  52.                     ; picture here
  53.