home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / extra / coproces.asm < prev    next >
Encoding:
Assembly Source File  |  1988-11-28  |  1.0 KB  |  27 lines
  1. * COPROCES.ASM
  2. * Coprocesse in LATTICE C
  3. * f. Motorola 68000
  4. * (C) Roland Mosler & TOOLBOX
  5. *
  6.           XDEF      transfer
  7.           XDEF      newproc
  8.  
  9.           Section   TEXT
  10.  
  11. newproc   MOVEA.L   $8(A7),A0           * buffer nach A0
  12.           ADDA.L    $C(A7),A0           * A0 = buffer + size
  13.           MOVE.L    $4(A7),-(A0)        * Rücksprung an Processanfang
  14.           MOVE.L    A7,D0               * A7 Sichern
  15.           MOVEA.L   $10(A7),A1          * proc nach A1
  16.           MOVEA.L   A0,A7               * A7 Neusetzen
  17.           MOVEM.L   D0-D7/A0-A7,(A1)    * Register Sichern
  18.           MOVEA.L   D0,A7               * A7 Rücksetzen
  19.           RTS                           * und zurück
  20.  
  21. transfer  MOVEA.L   $4(A7),A0           * old nach A0
  22.           MOVEM.L   D0-D7/A0-A7,(A0)    * Alte Register Sichern
  23.           MOVEA.L   $8(A7),A0           * new nach A0
  24.           MOVEM.L   (A0),D0-D7/A0-A7    * Neue Register Laden
  25.           RTS                           * und ab geht die Post
  26.           END
  27.