home *** CD-ROM | disk | FTP | other *** search
/ Dream 48 / Amiga_Dream_48.iso / Atari / c / libs / smlaes12.lzh / CRYSTAL.S next >
Text File  |  1993-04-09  |  1KB  |  43 lines
  1. ****************************************************************************
  2. *
  3. *    The Smaller AES-Binding    V1.2    (c) 1991-93 by Oliver Scheel
  4. *
  5. *    crystal.s
  6. *
  7. ****************************************************************************
  8.  
  9. ****************************************************************************
  10. * Dieses Binding ist Public Domain. Änderungen sind genau zu dokumentieren!
  11. ****************************************************************************
  12. * This Binding is public domain. Changes have to be documented!
  13. ****************************************************************************
  14. *    Autor:    Oliver Scheel
  15. *        Rothehausstr. 28
  16. *        W-5000 Köln 30 (West-Geramny)
  17. *    Net:     Oliver_Scheel@k2.maus.de
  18. ****************************************************************************
  19.  
  20.         .globl    _crystal
  21.  
  22. ****************************************************************************
  23.  
  24. __TC__        equ    1            ; Turbo-C switch
  25.  
  26. ****************************************************************************
  27.  
  28.         .text
  29.  
  30. _crystal:
  31. .if __TC__
  32.         move.l    a0,d1            ; AESPB
  33. .else
  34.         move.l    4(sp),d1        ; AESPB
  35. .endif
  36.         movem.l    d2-d3/a0-a3,-(sp)    ; save regs
  37.         move.w    #200,d0            ; we want AES
  38.         trap    #2
  39.         movem.l    (sp)+,d2-d3/a0-a3    ; restore regs
  40.         rts
  41.  
  42.         .end
  43.