home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / archive / sys / kowin14s.lzh / corlib / SCut.s < prev    next >
Encoding:
Text File  |  1991-04-08  |  940 b   |  73 lines
  1. *    SheetCut    Ko-Window ライブラリ  1991 小笠原博之
  2.  
  3. *        SPS-NET: SPS0783 COR.
  4.  
  5.  
  6. ROX4    macro
  7.         roxl.w    -(a1)
  8.         roxl.w    -(a1)
  9.         roxl.w    -(a1)
  10.         roxl.w    -(a1)
  11.     endm
  12. ROX16    macro
  13.         ROX4
  14.         ROX4
  15.         ROX4
  16.         ROX4
  17.     endm
  18. ROX64    macro
  19.         ROX16
  20.         ROX16
  21.         ROX16
  22.         ROX16
  23.     endm
  24.  
  25. ******
  26. ******
  27. ******
  28.         .xdef    _memcpyW
  29. _memcpyW:
  30.         movem.l    4(sp),d0/a0/a1
  31.         subq.w    #1,d0
  32.     loopM0:
  33.         move.w    (a1)+,(a0)+
  34.         dbra    d0,loopM0
  35.         rts
  36. ******
  37. ******
  38. ******
  39.         .xdef    _shiftL
  40. _shiftL:
  41.         movem.l    4(sp),d0-d1/a0
  42.  
  43.         subq.w    #1,d0
  44.         add.w    d1,a0
  45.         lea    roxend(pc),a2
  46.         sub.w    d1,a2
  47.         moveq.l    #0,d2
  48.  
  49.     loopS0:
  50.         addq.w    #1,d2
  51.         move.l    a0,a1
  52.         jmp    (a2)
  53.         ROX64
  54.     roxend:
  55.         dbra    d0,loopS0
  56.         rts
  57. ******
  58. ******
  59. ******
  60.         .xdef    _Scpy
  61. _Scpy:
  62.         movem.l    4(sp),d1-d2/a0-a2    *dy, y, wp, rp, hword
  63.         subq.w    #1,d2
  64.         subq.w    #1,a2
  65.     loop0:
  66.         move.l    a2,d0
  67.     loop:
  68.         move.w    (a1)+,(a0)+
  69.         dbra    d0,loop
  70.         add.w    d1,a1        * add dy
  71.         dbra    d2,loop0
  72.         rts
  73.