home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.src.lha / src / sp68000.mit.d < prev    next >
Text File  |  1996-04-15  |  510b  |  17 lines
  1. ! Kleine Routine, die den Wert des Maschinenstacks zurückliefert.
  2.  
  3.            .text
  4.  
  5.            .globl getSP
  6.            .globl setSP
  7.  
  8. !    extern void* getSP (void);
  9. getSP:     lea sp@(4),d0   ! aktueller Wert von SP + 4 wegen Unterprogrammaufruf
  10.            rts             ! in D0 = Ergebnisregister
  11.  
  12. !    extern void setSP (void* sp_init_address);
  13. setSP:     movel sp@+,a0   ! Returnadresse nach A0
  14.            movel sp@,sp    ! SP auf den übergebenen Wert setzen
  15.            jmp a0@         ! zurückspringen
  16.  
  17.