home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / src / sp68000.mit.d < prev    next >
Encoding:
Text File  |  1996-04-15  |  510 b   |  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.