Startsida Utforska Hjälp
Logga in
RISCI_ATOM
/
harvey
spegling av https://github.com/Harvey-OS/harvey.git
1
0
Fork 0
Filer Ärenden 0 Wiki
Träd: ba18c61f41
Grenar Taggar
harvey
/
sys
/
src
/
ape
/
lib
/
ap
/
68020
/
memmove.s

memmove.s 1.2 KB
Historik Rå

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 
  1. 	TEXT	memmove(SB), $0
    2. 

  2. move:
    3. 

  3. 

  4. 	MOVL	n+8(FP),R0
    5. 

  5. 	BEQ	return
    6. 

  6. 	BGT	ok
    7. 

  7. 	MOVL	0, R0
    8. 

  8. ok:
    9. 

  9. 	MOVL	s1+0(FP),A2
    10. 

  10. 	MOVL	s2+4(FP),A1
    11. 

  11. 

  12. 	CMPL	A2,A1
    13. 

  13. 	BHI	back
    14. 

  14. 

  15. /*
    16. 

  16.  * speed depends on source allignment
    17. 

  17.  * destination allignment is secondary
    18. 

  18.  * byte-at-a-time foreward copy to
    19. 

  19.  * get source (A1) alligned.
    20. 

  20.  */
    21. 

  21. f1:
    22. 

  22. 	MOVL	A1, R1
    23. 

  23. 	ANDL	$3, R1
    24. 

  24. 	BEQ	f2
    25. 

  25. 	SUBL	$1, R0
    26. 

  26. 	BLT	return
    27. 

  27. 	MOVB	(A1)+, (A2)+
    28. 

  28. 	BRA	f1
    29. 

  29. /*
    30. 

  30.  * quad-long-at-a-time forward copy
    31. 

  31.  */
    32. 

  32. f2:
    33. 

  33. 	SUBL	$16, R0
    34. 

  34. 	BLT	f3
    35. 

  35. 	MOVL	(A1)+, (A2)+
    36. 

  36. 	MOVL	(A1)+, (A2)+
    37. 

  37. 	MOVL	(A1)+, (A2)+
    38. 

  38. 	MOVL	(A1)+, (A2)+
    39. 

  39. 	BRA	f2
    40. 

  40. 

  41. /*
    42. 

  42.  * cleanup byte-at-a-time
    43. 

  43.  */
    44. 

  44. f3:
    45. 

  45. 	ADDL	$15, R0
    46. 

  46. 	BLT	return
    47. 

  47. f4:
    48. 

  48. 	MOVB	(A1)+, (A2)+
    49. 

  49. 	SUBL	$1, R0
    50. 

  50. 	BGE	f4
    51. 

  51. 	BRA	return
    52. 

  52. 

  53. return:
    54. 

  54. 	MOVL	s1+0(FP),R0
    55. 

  55. 	RTS
    56. 

  56. 

  57. /*
    58. 

  58.  * everything the same, but
    59. 

  59.  * copy backwards
    60. 

  60.  */
    61. 

  61. back:
    62. 

  62. 	ADDL	R0, A1
    63. 

  63. 	ADDL	R0, A2
    64. 

  64. 

  65. /*
    66. 

  66.  * byte-at-a-time backward copy to
    67. 

  67.  * get source (A1) alligned.
    68. 

  68.  */
    69. 

  69. b1:
    70. 

  70. 	MOVL	A1, R1
    71. 

  71. 	ANDL	$3, R1
    72. 

  72. 	BEQ	b2
    73. 

  73. 	SUBL	$1, R0
    74. 

  74. 	BLT	return
    75. 

  75. 	MOVB	-(A1), -(A2)
    76. 

  76. 	BRA	b1
    77. 

  77. /*
    78. 

  78.  * quad-long-at-a-time backward copy
    79. 

  79.  */
    80. 

  80. b2:
    81. 

  81. 	SUBL	$16, R0
    82. 

  82. 	BLT	b3
    83. 

  83. 	MOVL	-(A1), -(A2)
    84. 

  84. 	MOVL	-(A1), -(A2)
    85. 

  85. 	MOVL	-(A1), -(A2)
    86. 

  86. 	MOVL	-(A1), -(A2)
    87. 

  87. 	BRA	b2
    88. 

  88. 

  89. /*
    90. 

  90.  * cleanup byte-at-a-time backward
    91. 

  91.  */
    92. 

  92. b3:
    93. 

  93. 	ADDL	$15, R0
    94. 

  94. 	BLT	return
    95. 

  95. b4:
    96. 

  96. 	MOVB	-(A1), -(A2)
    97. 

  97. 	SUBL	$1, R0
    98. 

  98. 	BGE	b4
    99. 

  99. 	BRA	return
    100.