home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / src / sp68000.mit.d < prev    next >
Encoding:
Text File  |  1992-11-19  |  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.