Category

Development Platform
Home > SourceCode/Document > Embeded-SCM Develop > View Code
sto_res.s
Package: vxWorks_src.rar　[view]
Upload User: baixin
Upload Date: 2008-03-13
Package Size: 4795k
Code Size: 2k
Category:

Embeded-SCM Develop

Development Platform:

MultiPlatform

sto_res.s：Code Content
  1. /* sto_res.s - Motorola 68040 FP result storage routines (EXC) */
  3. /* Copyright 1991-1993 Wind River Systems, Inc. */
  4. .data
  5. .globl _copyright_wind_river
  6. .long _copyright_wind_river
  8. /*
  9. modification history
  10. --------------------
  11. 01e,21jul93,kdl  added .text (SPR #2372).
  12. 01d,23aug92,jcf  changed bxxx to jxx.
  13. 01c,26may92,rrr  the tree shuffle
  14. 01b,10jan92,kdl  added modification history; general cleanup.
  15. 01a,15aug91,kdl  original version, from Motorola FPSP v2.0.
  16. */
  18. /*
  19. DESCRIPTION
  21. sto_ressa 3.1 12/10/90
  23. Takes the result and puts it in where the user expects it.
  24. Library functions return result in fp0. If fp0 is not the
  25. users destination register then fp0 is moved to the the
  26. correct floating-point destination register.  fp0 and fp1
  27. are then restored to the original contents.
  29. Input: result in fp0,fp1
  31. d2 # a0 should be kept unmodified
  33. Output: moves the result to the true destination reg or mem
  35. Modifies: destination floating point register
  38. Copyright (C) Motorola, Inc. 1990
  39. All Rights Reserved
  41. THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA
  42. The copyright notice above does not evidence any
  43. actual or intended publication of such source code.
  45. STO_RES idnt 2,1 Motorola 040 Floating Point Software Package
  48. section 8
  50. NOMANUAL
  51. */
  53. #include "fpsp040E.h"
  56. .text
  58. .globl __x_sto_cos
  59. __x_sto_cos:
  60. bfextu a6@(CMDREG1B){#13:#3},d0 | extract cos destination
  61. cmpib #3,d0 | check for fp0/fp1 cases
  62. jle  c_fp0123
  63. fmovemx fp1-fp1,a7@-
  64. moveql #7,d1
  65. subl d0,d1 | d1 = 7- (dest. reg. no.)
  66. clrl d0
  67. bset d1,d0 | d0 is dynamic register mask
  68. fmovemx a7@+,d0
  69. rts
  70. c_fp0123:
  71. cmpib #0,d0
  72. jeq  c_is_fp0
  73. cmpib #1,d0
  74. jeq  c_is_fp1
  75. cmpib #2,d0
  76. jeq  c_is_fp2
  77. c_is_fp3:
  78. fmovemx fp1-fp1,a6@(USER_FP3)
  79. rts
  80. c_is_fp2:
  81. fmovemx fp1-fp1,a6@(USER_FP2)
  82. rts
  83. c_is_fp1:
  84. fmovemx fp1-fp1,a6@(USER_FP1)
  85. rts
  86. c_is_fp0:
  87. fmovemx fp1-fp1,a6@(USER_FP0)
  88. rts
  91. .globl __x_sto_res
  92. __x_sto_res:
  93. bfextu a6@(CMDREG1B){#6:#3},d0 | extract destination register
  94. cmpib #3,d0 | check for fp0/fp1 cases
  95. jle  fp0123
  96. fmovemx fp0-fp0,a7@-
  97. moveql #7,d1
  98. subl d0,d1 | d1 = 7- (dest. reg. no.)
  99. clrl d0
  100. bset d1,d0 | d0 is dynamic register mask
  101. fmovemx a7@+,d0
  102. rts
  103. fp0123:
  104. cmpib #0,d0
  105. jeq  is_fp0
  106. cmpib #1,d0
  107. jeq  is_fp1
  108. cmpib #2,d0
  109. jeq  is_fp2
  110. is_fp3:
  111. fmovemx fp0-fp0,a6@(USER_FP3)
  112. rts
  113. is_fp2:
  114. fmovemx fp0-fp0,a6@(USER_FP2)
  115. rts
  116. is_fp1:
  117. fmovemx fp0-fp0,a6@(USER_FP1)
  118. rts
  119. is_fp0:
  120. fmovemx fp0-fp0,a6@(USER_FP0)
  121. rts
  123. | end