home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Mint / pcosbind.zoo / source.zoo / egetpale.s < prev    next >
Text File  |  1992-09-20  |  237b  |  17 lines
  1.     .TEXT
  2.  
  3.           .globl EgetPalette
  4. EgetPalette:
  5.     move.l    A2,-(A7)
  6.     move.l    A0,-(A7)
  7.     move.w    D1,-(A7)
  8.     move.w    D0,-(A7)
  9.     move.w    #$0055,-(A7)
  10.     trap    #14
  11.     lea.l     $000A(A7),A7
  12.     movea.l   (A7)+,A2
  13.     rts
  14.  
  15.     .END
  16.  
  17.