home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / mov.asm < prev    next >
Assembly Source File  |  1989-06-20  |  1KB  |  34 lines
  1. **************************************************************************
  2. *
  3. *                  MOV  by Jim Locker, SofTech Inc.
  4. *                          19 June, 1989
  5. *
  6. *                  called from AbSoft Fortran
  7. *                  calls system MOVE routine
  8. *                  Needed because Amiga.sub is too slow.
  9. *
  10. *                  USAGE:
  11. *
  12. *                    Call MOV(GFXBASE,RastPort,X,Y)
  13. *
  14. ***************************************************************************
  15.  
  16. _LVOMOVE  EQU  -240
  17.  
  18. MOV:
  19.          MOVE.L  4(A7),A3        *LOAD POINTER TO Y POSITION
  20.          MOVE.L  (A3),D1         *LOAD Y POSITION
  21.          MOVE.L  8(A7),A3        *LOAD POINTER TO X POSITION
  22.          MOVE.L (A3),D0         *LOAD X POSITION
  23.          MOVE.L  12(A7),A3       *LOAD POINTER TO RP POINTER
  24.          MOVEA.L (A3),A1         *LOAD RP POINTER
  25.          MOVE.L  16(A7),A3       *LOAD POINTER TO GFXBASE
  26.          MOVEM.L A0/A4-A6,-(A7)  *SAVE EVERYTHING WE NEED
  27.          MOVEA.L (A3),A6         *MOVE IN GRAPHICS LIB POINTER
  28. *         move.l  d0,-(a7)
  29. *         move.l  #0,d0
  30. *         JSR     -114(a6)
  31.          JSR     _LVOMOVE(A6)    *CALL MOVE
  32.          MOVEM.L (A7)+,A0/A4-A6  *RESTORE EVERYTHING
  33.          RTS
  34.