home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / showpic.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.0 KB  |  49 lines
  1. ;ShowPic-routine written by NoLimits in 1988,could
  2. ;be used together with the SetColor program.
  3. ;
  4.  
  5.  
  6. picplanes:    dc.w    5    ;bitplns in piccy
  7. picwith:    dc.w    36    ;picwith in bytes,rounded up
  8. pichigh:    dc.w    175    ;pichigh in lines
  9. lineofset:    dc.w    0    ;calulated by the routine
  10. picadr:        dc.l    0    ;the adress where the piccy is
  11.                 ;should be label PICCY
  12. showadr:    dc.l    0    ;the adr where you want the 
  13.                 ;piccy to be shown
  14. picsize:    dc.l    0    ;calced by the routine
  15. highofset:    dc.l    0    ;  «»   «»  «»   «»
  16. PICCY:        blk.b    19314    ;reserve mem for piccy(load it here)
  17. piccyend:
  18.     even
  19.  
  20. showpic:
  21.     clr.l    d0
  22.     move    #planewith,d0
  23.     muls    pichigh,d0
  24.     move.l    d0,picsize
  25.     move.l    #planesize,highofset
  26.     move.l    picsize,d0
  27.     sub.l    d0,highofset
  28.     sub    #1,picplanes
  29.     sub    #1,picwith
  30.     sub    #1,pichigh
  31.     move    #planewith,lineofset
  32.     move    picwith,d0
  33.     add    #1,d0
  34.     sub    d0,lineofset
  35.     move.l    showadr,a0
  36.     move.l    picadr,a1
  37.     move    picwith,d0
  38.     move    pichigh,d1
  39.     move    picplanes,d2
  40. sp1:    move.b    (a1)+,(a0)+
  41.     dbf    d0,sp1    
  42.     move    picwith,d0
  43.     add    lineofset,a0
  44.     dbf    d1,sp1
  45.     move    pichigh,d1
  46.     add.l    highofset,a0
  47.     dbf    d2,sp1
  48.     rts
  49.