home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Mint / pcosbind.zoo / source.zoo / egetshif.s < prev    next >
Text File  |  1992-09-20  |  163b  |  14 lines
  1.     .TEXT
  2.  
  3.           .globl Egetshift
  4. Egetshift:
  5.     move.l    A2,-(A7)
  6.     move.w    #$0051,-(A7)
  7.     trap    #14
  8.     addq.l    #2,A7
  9.     movea.l   (A7)+,A2
  10.     rts
  11.  
  12.     .END
  13.  
  14.