开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Linux/Unix编程 > 查看源码
perf_asm.S
资源名称：linux-2.4.20.tar.gz　[点击查看]
上传用户：jlfgdled
上传日期：2013-04-10
资源大小：33168k
文件大小：26k
源码类别：

Linux/Unix编程

开发平台：

Unix_Linux

perf_asm.S：源码内容
  1. ; 
  2. ;   Purpose:
  3. ; This file has the overall purpose of suppyling low-level
  4. ;   assembly to program the intrigue portion of the cpu.
  5. ; 
  7. #include <linux/config.h>
  8. #include <asm/assembly.h>
  10. #ifdef __LP64__
  11. .level 2.0w
  12. #endif /* __LP64__ */
  14. #define MTDIAG_1(gr)    .word 0x14201840 + gr*0x10000
  15. #define MTDIAG_2(gr)    .word 0x14401840 + gr*0x10000
  16. #define MFDIAG_1(gr)    .word 0x142008A0 + gr
  17. #define MFDIAG_2(gr)    .word 0x144008A0 + gr
  18. #define STDIAG(dr)      .word 0x14000AA0 + dr*0x200000
  19. #define SFDIAG(dr)      .word 0x14000BA0 + dr*0x200000
  20. #define DR2_SLOW_RET    53
  23. ;
  24. ; Enable the performance counters
  25. ;
  26. ; The coprocessor only needs to be enabled when
  27. ; starting/stopping the coprocessor with the pmenb/pmdis.
  28. ;
  29. .text
  30. .align 32
  32. .export perf_intrigue_enable_perf_counters,code
  33. perf_intrigue_enable_perf_counters:
  34. .proc
  35. .callinfo  frame=0,NO_CALLS
  36. .entry
  38. ldi     0x20,%r25                ; load up perfmon bit
  39. mfctl   ccr,%r26                 ; get coprocessor register
  40. or      %r25,%r26,%r26             ; set bit
  41. mtctl   %r26,ccr                 ; turn on performance coprocessor
  42. pmenb                           ; enable performance monitor
  43. ssm     0,0                     ; dummy op to ensure completion
  44. sync                            ; follow ERS
  45. andcm   %r26,%r25,%r26             ; clear bit now 
  46. mtctl   %r26,ccr                 ; turn off performance coprocessor
  47. nop                             ; NOPs as specified in ERS
  48. nop
  49. nop
  50. nop
  51. nop
  52. nop
  53. nop
  54. bve    (%r2)
  55. nop
  56. .exit
  57. .procend
  59. .export perf_intrigue_disable_perf_counters,code
  60. perf_intrigue_disable_perf_counters:
  61. .proc
  62. .callinfo  frame=0,NO_CALLS
  63. .entry
  64. ldi     0x20,%r25                ; load up perfmon bit
  65. mfctl   ccr,%r26                 ; get coprocessor register
  66. or      %r25,%r26,%r26             ; set bit
  67. mtctl   %r26,ccr                 ; turn on performance coprocessor
  68. pmdis                           ; disable performance monitor
  69. ssm     0,0                     ; dummy op to ensure completion
  70. andcm   %r26,%r25,%r26             ; clear bit now 
  71. bve    (%r2)
  72. mtctl   %r26,ccr                 ; turn off performance coprocessor
  73. .exit
  74. .procend
  76. ;************************************************************************
  77. ;* *
  78. ;* Name: perf_rdr_shift_in_W *
  79. ;* *
  80. ;* Description: *
  81. ;* This routine shifts data in from the RDR in arg0 and returns *
  82. ;* the result in ret0.  If the RDR is <= 64 bits in length, it *
  83. ;* is shifted shifted backup immediately.  This is to compensate *
  84. ;* for RDR10 which has bits that preclude PDC stack operations *
  85. ;* when they are in the wrong state. *
  86. ;* *
  87. ;* Arguments: *
  88. ;* arg0 : rdr to be read *
  89. ;* arg1 : bit length of rdr *
  90. ;* *
  91. ;* Returns: *
  92. ;* ret0 = next 64 bits of rdr data from staging register *
  93. ;* *
  94. ;* Register usage: *
  95. ;* arg0 : rdr to be read *
  96. ;* arg1 : bit length of rdr *
  97. ;* %r24  - original DR2 value *
  98. ;* %r1   - scratch *
  99. ;*  %r29  - scratch *
  100. ;* *
  101. ;* Returns: *
  102. ;* ret0 = RDR data (right justified) *
  103. ;* *
  104. ;************************************************************************
  106. .export perf_rdr_shift_in_W,code
  107. perf_rdr_shift_in_W:
  108. .proc
  109. .callinfo frame=0,NO_CALLS
  110. .entry
  111. ;
  112. ; read(shift in) the RDR.
  113. ;
  115. ; NOTE: The PCX-W ERS states that DR2_SLOW_RET must be set before any
  116. ; shifting is done, from or to, remote diagnose registers.
  117. ;
  119. depdi,z 1,DR2_SLOW_RET,1,%r29
  120. MFDIAG_2 (24)
  121. or     %r24,%r29,%r29
  122. MTDIAG_2 (29) ; set DR2_SLOW_RET
  124. nop
  125. nop
  126. nop
  127. nop
  129. ;
  130. ; Cacheline start (32-byte cacheline)
  131. ;
  132. nop
  133. nop
  134. nop
  135. extrd,u arg1,63,6,%r1    ; setup shift amount based on bits to move 
  137. mtsar %r1
  138. shladd arg0,2,%r0,%r1 ; %r1 = 4 * RDR number
  139. blr   %r1,%r0     ; branch to 8-instruction sequence
  140. nop
  142. ;
  143. ; Cacheline start (32-byte cacheline)
  144. ;
  146. ;
  147. ; RDR 0 sequence
  148. ;
  149. SFDIAG (0)
  150. ssm     0,0
  151. MFDIAG_1 (28)
  152. shrpd ret0,%r0,%sar,%r1
  153. MTDIAG_1 (1) ; mtdiag %dr1, %r1 
  154. STDIAG (0)
  155. ssm     0,0
  156. b,n         perf_rdr_shift_in_W_leave
  158. ;
  159. ; RDR 1 sequence
  160. ;
  161. sync
  162. ssm     0,0
  163. SFDIAG (1)
  164. ssm     0,0
  165. MFDIAG_1 (28)
  166. ssm     0,0
  167. b,n         perf_rdr_shift_in_W_leave
  168. nop
  170. ;
  171. ; RDR 2 read sequence
  172. ;
  173. SFDIAG (2)
  174. ssm     0,0
  175. MFDIAG_1 (28)
  176. shrpd ret0,%r0,%sar,%r1
  177. MTDIAG_1 (1)
  178. STDIAG (2)
  179. ssm     0,0
  180. b,n         perf_rdr_shift_in_W_leave
  182. ;
  183. ; RDR 3 read sequence
  184. ;
  185. b,n         perf_rdr_shift_in_W_leave
  186. nop
  187. nop
  188. nop
  189. nop
  190. nop
  191. nop
  192. nop
  194. ;
  195. ; RDR 4 read sequence
  196. ;
  197. sync
  198. ssm 0,0
  199. SFDIAG (4)
  200. ssm 0,0
  201. MFDIAG_1 (28)
  202. b,n         perf_rdr_shift_in_W_leave
  203. ssm 0,0
  204. nop
  206. ; 
  207. ; RDR 5 read sequence
  208. ;
  209. sync
  210. ssm 0,0
  211. SFDIAG (5)
  212. ssm 0,0
  213. MFDIAG_1 (28)
  214. b,n         perf_rdr_shift_in_W_leave
  215. ssm 0,0
  216. nop
  218. ;
  219. ; RDR 6 read sequence
  220. ;
  221. sync
  222. ssm 0,0
  223. SFDIAG (6)
  224. ssm 0,0
  225. MFDIAG_1 (28)
  226. b,n         perf_rdr_shift_in_W_leave
  227. ssm 0,0
  228. nop
  230. ;
  231. ; RDR 7 read sequence
  232. ;
  233. b,n         perf_rdr_shift_in_W_leave
  234. nop
  235. nop
  236. nop
  237. nop
  238. nop
  239. nop
  240. nop
  242. ;
  243. ; RDR 8 read sequence
  244. ;
  245. b,n         perf_rdr_shift_in_W_leave
  246. nop
  247. nop
  248. nop
  249. nop
  250. nop
  251. nop
  252. nop
  254. ;
  255. ; RDR 9 read sequence
  256. ;
  257. b,n         perf_rdr_shift_in_W_leave
  258. nop
  259. nop
  260. nop
  261. nop
  262. nop
  263. nop
  264. nop
  266. ;
  267. ; RDR 10 read sequence
  268. ;
  269. SFDIAG (10)
  270. ssm 0,0
  271. MFDIAG_1 (28)
  272. shrpd ret0,%r0,%sar,%r1
  273. MTDIAG_1 (1)
  274. STDIAG (10)
  275. ssm 0,0
  276. b,n         perf_rdr_shift_in_W_leave
  278. ;
  279. ; RDR 11 read sequence
  280. ;
  281. SFDIAG (11)
  282. ssm 0,0
  283. MFDIAG_1 (28)
  284. shrpd ret0,%r0,%sar,%r1
  285. MTDIAG_1 (1)
  286. STDIAG (11)
  287. ssm 0,0
  288. b,n         perf_rdr_shift_in_W_leave
  290. ;
  291. ; RDR 12 read sequence
  292. ;
  293. b,n         perf_rdr_shift_in_W_leave
  294. nop
  295. nop
  296. nop
  297. nop
  298. nop
  299. nop
  300. nop
  302. ;
  303. ; RDR 13 read sequence
  304. ;
  305. sync
  306. ssm 0,0
  307. SFDIAG (13)
  308. ssm 0,0
  309. MFDIAG_1 (28)
  310. b,n         perf_rdr_shift_in_W_leave
  311. ssm 0,0
  312. nop
  314. ;
  315. ; RDR 14 read sequence
  316. ;
  317. SFDIAG (14)
  318. ssm 0,0
  319. MFDIAG_1 (28)
  320. shrpd ret0,%r0,%sar,%r1
  321. MTDIAG_1 (1)
  322. STDIAG (14)
  323. ssm 0,0
  324. b,n         perf_rdr_shift_in_W_leave
  326. ;
  327. ; RDR 15 read sequence
  328. ;
  329. sync ; RDR 15 read sequence
  330. ssm 0,0
  331. SFDIAG (15)
  332. ssm 0,0
  333. MFDIAG_1 (28)
  334. ssm 0,0
  335. b,n         perf_rdr_shift_in_W_leave
  336. nop
  338. ;
  339. ; RDR 16 read sequence
  340. ;
  341. sync ; RDR 16 read sequence
  342. ssm 0,0
  343. SFDIAG (16)
  344. ssm 0,0
  345. MFDIAG_1 (28)
  346. b,n         perf_rdr_shift_in_W_leave
  347. ssm 0,0
  348. nop
  350. ;
  351. ; RDR 17 read sequence
  352. ;
  353. SFDIAG (17)
  354. ssm 0,0
  355. MFDIAG_1 (28)
  356. shrpd ret0,%r0,%sar,%r1
  357. MTDIAG_1 (1)
  358. STDIAG (17)
  359. ssm 0,0
  360. b,n         perf_rdr_shift_in_W_leave
  362. ;
  363. ; RDR 18 read sequence
  364. ;
  365. SFDIAG (18)
  366. ssm 0,0
  367. MFDIAG_1 (28)
  368. shrpd ret0,%r0,%sar,%r1
  369. MTDIAG_1 (1)
  370. STDIAG (18)
  371. ssm 0,0
  372. b,n         perf_rdr_shift_in_W_leave
  374. ;
  375. ; RDR 19 read sequence
  376. ;
  377. b,n         perf_rdr_shift_in_W_leave
  378. nop
  379. nop
  380. nop
  381. nop
  382. nop
  383. nop
  384. nop
  386. ;
  387. ; RDR 20 read sequence
  388. ;
  389. sync
  390. ssm 0,0
  391. SFDIAG (20)
  392. ssm 0,0
  393. MFDIAG_1 (28)
  394. b,n         perf_rdr_shift_in_W_leave
  395. ssm 0,0
  396. nop
  398. ;
  399. ; RDR 21 read sequence
  400. ;
  401. sync
  402. ssm 0,0
  403. SFDIAG (21)
  404. ssm 0,0
  405. MFDIAG_1 (28)
  406. b,n         perf_rdr_shift_in_W_leave
  407. ssm 0,0
  408. nop
  410. ;
  411. ; RDR 22 read sequence
  412. ;
  413. sync
  414. ssm 0,0
  415. SFDIAG (22)
  416. ssm 0,0
  417. MFDIAG_1 (28)
  418. b,n         perf_rdr_shift_in_W_leave
  419. ssm 0,0
  420. nop
  422. ;
  423. ; RDR 23 read sequence
  424. ;
  425. sync
  426. ssm 0,0
  427. SFDIAG (23)
  428. ssm 0,0
  429. MFDIAG_1 (28)
  430. b,n         perf_rdr_shift_in_W_leave
  431. ssm 0,0
  432. nop
  434. ;
  435. ; RDR 24 read sequence
  436. ;
  437. sync
  438. ssm 0,0
  439. SFDIAG (24)
  440. ssm 0,0
  441. MFDIAG_1 (28)
  442. b,n         perf_rdr_shift_in_W_leave
  443. ssm 0,0
  444. nop
  446. ;
  447. ; RDR 25 read sequence
  448. ;
  449. sync
  450. ssm 0,0
  451. SFDIAG (25)
  452. ssm 0,0
  453. MFDIAG_1 (28)
  454. b,n         perf_rdr_shift_in_W_leave
  455. ssm 0,0
  456. nop
  458. ;
  459. ; RDR 26 read sequence
  460. ;
  461. SFDIAG (26)
  462. ssm 0,0
  463. MFDIAG_1 (28)
  464. shrpd ret0,%r0,%sar,%r1
  465. MTDIAG_1 (1)
  466. STDIAG (26)
  467. ssm 0,0
  468. b,n         perf_rdr_shift_in_W_leave
  470. ;
  471. ; RDR 27 read sequence
  472. ;
  473. SFDIAG (27)
  474. ssm 0,0
  475. MFDIAG_1 (28)
  476. shrpd ret0,%r0,%sar,%r1
  477. MTDIAG_1 (1)
  478. STDIAG (27)
  479. ssm 0,0
  480. b,n         perf_rdr_shift_in_W_leave
  482. ;
  483. ; RDR 28 read sequence
  484. ;
  485. sync
  486. ssm 0,0
  487. SFDIAG (28)
  488. ssm 0,0
  489. MFDIAG_1 (28)
  490. b,n         perf_rdr_shift_in_W_leave
  491. ssm 0,0
  492. nop
  494. ;
  495. ; RDR 29 read sequence
  496. ;
  497. sync
  498. ssm 0,0
  499. SFDIAG (29)
  500. ssm 0,0
  501. MFDIAG_1 (28)
  502. b,n         perf_rdr_shift_in_W_leave
  503. ssm 0,0
  504. nop
  506. ;
  507. ; RDR 30 read sequence
  508. ;
  509. SFDIAG (30)
  510. ssm 0,0
  511. MFDIAG_1 (28)
  512. shrpd ret0,%r0,%sar,%r1
  513. MTDIAG_1 (1)
  514. STDIAG (30)
  515. ssm 0,0
  516. b,n         perf_rdr_shift_in_W_leave
  518. ;
  519. ; RDR 31 read sequence
  520. ;
  521. sync
  522. ssm 0,0
  523. SFDIAG (31)
  524. ssm 0,0
  525. MFDIAG_1 (28)
  526. nop
  527. ssm 0,0
  528. nop
  530. ;
  531. ; Fallthrough
  532. ;
  534. perf_rdr_shift_in_W_leave:
  535. bve     (%r2)
  536. .exit
  537. MTDIAG_2 (24) ; restore DR2
  538. .procend
  541. ;************************************************************************
  542. ;* *
  543. ;* Name: perf_rdr_shift_out_W *
  544. ;* *
  545. ;* Description: *
  546. ;* This routine moves data to the RDR's.  The double-word that *
  547. ;* arg1 points to is loaded and moved into the staging register. *
  548. ;* Then the STDIAG instruction for the RDR # in arg0 is called *
  549. ;* to move the data to the RDR. *
  550. ;* *
  551. ;* Arguments: *
  552. ;* arg0 = rdr number *
  553. ;* arg1 = 64-bit value to write *
  554. ;* %r24 - DR2 | DR2_SLOW_RET *
  555. ;* %r23 - original DR2 value *
  556. ;* *
  557. ;* Returns: *
  558. ;* None *
  559. ;* *
  560. ;* Register usage: *
  561. ;* *
  562. ;************************************************************************
  564. .export perf_rdr_shift_out_W,code
  565. perf_rdr_shift_out_W:
  566. .proc
  567. .callinfo frame=0,NO_CALLS
  568. .entry
  569. ;
  570. ; NOTE: The PCX-W ERS states that DR2_SLOW_RET must be set before any
  571. ; shifting is done, from or to, the remote diagnose registers.
  572. ;
  574. depdi,z 1,DR2_SLOW_RET,1,%r24
  575. MFDIAG_2 (23)
  576. or      %r24,%r23,%r24
  577. MTDIAG_2 (24) ; set DR2_SLOW_RET
  579. MTDIAG_1 (25) ; data to the staging register
  580. shladd arg0,2,%r0,%r1 ; %r1 = 4 * RDR number
  581. blr     %r1,%r0     ; branch to 8-instruction sequence
  582. nop
  584. ;
  585. ; RDR 0 write sequence
  586. ;
  587. sync ; RDR 0 write sequence
  588. ssm 0,0
  589. STDIAG (0)
  590. ssm 0,0
  591. b,n         perf_rdr_shift_out_W_leave
  592. nop
  593. ssm 0,0
  594. nop
  596. ;
  597. ; RDR 1 write sequence
  598. ;
  599. sync
  600. ssm 0,0
  601. STDIAG (1)
  602. ssm 0,0
  603. b,n         perf_rdr_shift_out_W_leave
  604. nop
  605. ssm 0,0
  606. nop
  608. ;
  609. ; RDR 2 write sequence
  610. ;
  611. sync
  612. ssm 0,0
  613. STDIAG (2)
  614. ssm 0,0
  615. b,n         perf_rdr_shift_out_W_leave
  616. nop
  617. ssm 0,0
  618. nop
  620. ;
  621. ; RDR 3 write sequence
  622. ;
  623. sync
  624. ssm 0,0
  625. STDIAG (3)
  626. ssm 0,0
  627. b,n         perf_rdr_shift_out_W_leave
  628. nop
  629. ssm 0,0
  630. nop
  632. ;
  633. ; RDR 4 write sequence
  634. ;
  635. sync
  636. ssm 0,0
  637. STDIAG (4)
  638. ssm 0,0
  639. b,n         perf_rdr_shift_out_W_leave
  640. nop
  641. ssm 0,0
  642. nop
  644. ;
  645. ; RDR 5 write sequence
  646. ;
  647. sync
  648. ssm 0,0
  649. STDIAG (5)
  650. ssm 0,0
  651. b,n         perf_rdr_shift_out_W_leave
  652. nop
  653. ssm 0,0
  654. nop
  656. ;
  657. ; RDR 6 write sequence
  658. ;
  659. sync
  660. ssm 0,0
  661. STDIAG (6)
  662. ssm 0,0
  663. b,n         perf_rdr_shift_out_W_leave
  664. nop
  665. ssm 0,0
  666. nop
  668. ;
  669. ; RDR 7 write sequence
  670. ;
  671. sync
  672. ssm 0,0
  673. STDIAG (7)
  674. ssm 0,0
  675. b,n         perf_rdr_shift_out_W_leave
  676. nop
  677. ssm 0,0
  678. nop
  680. ;
  681. ; RDR 8 write sequence
  682. ;
  683. sync
  684. ssm 0,0
  685. STDIAG (8)
  686. ssm 0,0
  687. b,n         perf_rdr_shift_out_W_leave
  688. nop
  689. ssm 0,0
  690. nop
  692. ;
  693. ; RDR 9 write sequence
  694. ;
  695. sync
  696. ssm 0,0
  697. STDIAG (9)
  698. ssm 0,0
  699. b,n         perf_rdr_shift_out_W_leave
  700. nop
  701. ssm 0,0
  702. nop
  704. ;
  705. ; RDR 10 write sequence
  706. ;
  707. sync
  708. ssm 0,0
  709. STDIAG (10)
  710. STDIAG (26)
  711. ssm 0,0
  712. b,n         perf_rdr_shift_out_W_leave
  713. ssm 0,0
  714. nop
  716. ;
  717. ; RDR 11 write sequence
  718. ;
  719. sync
  720. ssm 0,0
  721. STDIAG (11)
  722. STDIAG (27)
  723. ssm 0,0
  724. b,n         perf_rdr_shift_out_W_leave
  725. ssm 0,0
  726. nop
  728. ;
  729. ; RDR 12 write sequence
  730. ;
  731. sync
  732. ssm 0,0
  733. STDIAG (12)
  734. ssm 0,0
  735. b,n         perf_rdr_shift_out_W_leave
  736. nop
  737. ssm 0,0
  738. nop
  740. ;
  741. ; RDR 13 write sequence
  742. ;
  743. sync
  744. ssm 0,0
  745. STDIAG (13)
  746. ssm 0,0
  747. b,n         perf_rdr_shift_out_W_leave
  748. nop
  749. ssm 0,0
  750. nop
  752. ;
  753. ; RDR 14 write sequence
  754. ;
  755. sync
  756. ssm 0,0
  757. STDIAG (14)
  758. ssm 0,0
  759. b,n         perf_rdr_shift_out_W_leave
  760. nop
  761. ssm 0,0
  762. nop
  764. ;
  765. ; RDR 15 write sequence
  766. ;
  767. sync
  768. ssm 0,0
  769. STDIAG (15)
  770. ssm 0,0
  771. b,n         perf_rdr_shift_out_W_leave
  772. nop
  773. ssm 0,0
  774. nop
  776. ;
  777. ; RDR 16 write sequence
  778. ;
  779. sync
  780. ssm 0,0
  781. STDIAG (16)
  782. ssm 0,0
  783. b,n         perf_rdr_shift_out_W_leave
  784. nop
  785. ssm 0,0
  786. nop
  788. ;
  789. ; RDR 17 write sequence
  790. ;
  791. sync
  792. ssm 0,0
  793. STDIAG (17)
  794. ssm 0,0
  795. b,n         perf_rdr_shift_out_W_leave
  796. nop
  797. ssm 0,0
  798. nop
  800. ;
  801. ; RDR 18 write sequence
  802. ;
  803. sync
  804. ssm 0,0
  805. STDIAG (18)
  806. ssm 0,0
  807. b,n         perf_rdr_shift_out_W_leave
  808. nop
  809. ssm 0,0
  810. nop
  812. ;
  813. ; RDR 19 write sequence
  814. ;
  815. sync
  816. ssm 0,0
  817. STDIAG (19)
  818. ssm 0,0
  819. b,n         perf_rdr_shift_out_W_leave
  820. nop
  821. ssm 0,0
  822. nop
  824. ;
  825. ; RDR 20 write sequence
  826. ;
  827. sync
  828. ssm 0,0
  829. STDIAG (20)
  830. ssm 0,0
  831. b,n         perf_rdr_shift_out_W_leave
  832. nop
  833. ssm 0,0
  834. nop
  836. ;
  837. ; RDR 21 write sequence
  838. ;
  839. sync
  840. ssm 0,0
  841. STDIAG (21)
  842. ssm 0,0
  843. b,n         perf_rdr_shift_out_W_leave
  844. nop
  845. ssm 0,0
  846. nop
  848. ;
  849. ; RDR 22 write sequence
  850. ;
  851. sync
  852. ssm 0,0
  853. STDIAG (22)
  854. ssm 0,0
  855. b,n         perf_rdr_shift_out_W_leave
  856. nop
  857. ssm 0,0
  858. nop
  860. ;
  861. ; RDR 23 write sequence
  862. ;
  863. sync
  864. ssm 0,0
  865. STDIAG (23)
  866. ssm 0,0
  867. b,n         perf_rdr_shift_out_W_leave
  868. nop
  869. ssm 0,0
  870. nop
  872. ;
  873. ; RDR 24 write sequence
  874. ;
  875. sync
  876. ssm 0,0
  877. STDIAG (24)
  878. ssm 0,0
  879. b,n         perf_rdr_shift_out_W_leave
  880. nop
  881. ssm 0,0
  882. nop
  884. ;
  885. ; RDR 25 write sequence
  886. ;
  887. sync
  888. ssm 0,0
  889. STDIAG (25)
  890. ssm 0,0
  891. b,n         perf_rdr_shift_out_W_leave
  892. nop
  893. ssm 0,0
  894. nop
  896. ;
  897. ; RDR 26 write sequence
  898. ;
  899. sync
  900. ssm 0,0
  901. STDIAG (10)
  902. STDIAG (26)
  903. ssm 0,0
  904. b,n         perf_rdr_shift_out_W_leave
  905. ssm 0,0
  906. nop
  908. ;
  909. ; RDR 27 write sequence
  910. ;
  911. sync
  912. ssm 0,0
  913. STDIAG (11)
  914. STDIAG (27)
  915. ssm 0,0
  916. b,n         perf_rdr_shift_out_W_leave
  917. ssm 0,0
  918. nop
  920. ;
  921. ; RDR 28 write sequence
  922. ;
  923. sync
  924. ssm 0,0
  925. STDIAG (28)
  926. ssm 0,0
  927. b,n         perf_rdr_shift_out_W_leave
  928. nop
  929. ssm 0,0
  930. nop
  932. ;
  933. ; RDR 29 write sequence
  934. ;
  935. sync
  936. ssm 0,0
  937. STDIAG (29)
  938. ssm 0,0
  939. b,n         perf_rdr_shift_out_W_leave
  940. nop
  941. ssm 0,0
  942. nop
  944. ;
  945. ; RDR 30 write sequence
  946. ;
  947. sync
  948. ssm 0,0
  949. STDIAG (30)
  950. ssm 0,0
  951. b,n         perf_rdr_shift_out_W_leave
  952. nop
  953. ssm 0,0
  954. nop
  956. ;
  957. ; RDR 31 write sequence
  958. ;
  959. sync
  960. ssm 0,0
  961. STDIAG (31)
  962. ssm 0,0
  963. b,n         perf_rdr_shift_out_W_leave
  964. nop
  965. ssm 0,0
  966. nop
  968. perf_rdr_shift_out_W_leave:
  969. bve (%r2)
  970. .exit
  971. MTDIAG_2 (23) ; restore DR2
  972. .procend
  975. ;**************************** CHRIS ***********************************
  977. ;************************************************************************
  978. ;* *
  979. ;* Name: rdr_shift_in_U *
  980. ;* *
  981. ;* Description: *
  982. ;* This routine shifts data in from the RDR in arg0 and returns *
  983. ;* the result in ret0.  If the RDR is <= 64 bits in length, it *
  984. ;* is shifted shifted backup immediately.  This is to compensate *
  985. ;* for RDR10 which has bits that preclude PDC stack operations *
  986. ;* when they are in the wrong state. *
  987. ;* *
  988. ;* Arguments: *
  989. ;* arg0 : rdr to be read *
  990. ;* arg1 : bit length of rdr *
  991. ;* *
  992. ;* Returns: *
  993. ;* ret0 = next 64 bits of rdr data from staging register *
  994. ;* *
  995. ;* Register usage: *
  996. ;* arg0 : rdr to be read                         *
  997. ;* arg1 : bit length of rdr                         *
  998. ;* %r24 - original DR2 value *
  999. ;* %r23 - DR2 | DR2_SLOW_RET *
  1000. ;* %r1  - scratch *
  1001. ;* *
  1002. ;************************************************************************
  1004. .export perf_rdr_shift_in_U,code
  1005. perf_rdr_shift_in_U:
  1006. .proc
  1007. .callinfo frame=0,NO_CALLS
  1008. .entry
  1010. ; read(shift in) the RDR.
  1011. ;
  1012. ; NOTE: The PCX-U ERS states that DR2_SLOW_RET must be set before any
  1013. ; shifting is done, from or to, remote diagnose registers.
  1015. depdi,z 1,DR2_SLOW_RET,1,%r29
  1016. MFDIAG_2 (24)
  1017. or %r24,%r29,%r29
  1018. MTDIAG_2 (29) ; set DR2_SLOW_RET
  1020. nop
  1021. nop
  1022. nop
  1023. nop
  1025. ;
  1026. ; Start of next 32-byte cacheline
  1027. ;
  1028. nop
  1029. nop
  1030. nop
  1031. extrd,u arg1,63,6,%r1
  1033. mtsar %r1
  1034. shladd arg0,2,%r0,%r1 ; %r1 = 4 * RDR number
  1035. blr  %r1,%r0 ; branch to 8-instruction sequence
  1036. nop
  1038. ;
  1039. ; Start of next 32-byte cacheline
  1040. ;
  1041. SFDIAG (0) ; RDR 0 read sequence
  1042. ssm 0,0
  1043. MFDIAG_1 (28)
  1044. shrpd ret0,%r0,%sar,%r1
  1045. MTDIAG_1 (1)
  1046. STDIAG (0)
  1047. ssm 0,0
  1048. b,n         perf_rdr_shift_in_U_leave
  1050. SFDIAG (1) ; RDR 1 read sequence
  1051. ssm 0,0
  1052. MFDIAG_1 (28)
  1053. shrpd ret0,%r0,%sar,%r1
  1054. MTDIAG_1 (1)
  1055. STDIAG (1)
  1056. ssm 0,0
  1057. b,n         perf_rdr_shift_in_U_leave
  1059. sync ; RDR 2 read sequence
  1060. ssm 0,0
  1061. SFDIAG (4)
  1062. ssm 0,0
  1063. MFDIAG_1 (28)
  1064. b,n         perf_rdr_shift_in_U_leave
  1065. ssm 0,0
  1066. nop
  1068. sync ; RDR 3 read sequence
  1069. ssm 0,0
  1070. SFDIAG (3)
  1071. ssm 0,0
  1072. MFDIAG_1 (28)
  1073. b,n         perf_rdr_shift_in_U_leave
  1074. ssm 0,0
  1075. nop
  1077. sync ; RDR 4 read sequence
  1078. ssm 0,0
  1079. SFDIAG (4)
  1080. ssm 0,0
  1081. MFDIAG_1 (28)
  1082. b,n         perf_rdr_shift_in_U_leave
  1083. ssm 0,0
  1084. nop
  1086. sync ; RDR 5 read sequence
  1087. ssm 0,0
  1088. SFDIAG (5)
  1089. ssm 0,0
  1090. MFDIAG_1 (28)
  1091. b,n         perf_rdr_shift_in_U_leave
  1092. ssm 0,0
  1093. nop
  1095. sync ; RDR 6 read sequence
  1096. ssm 0,0
  1097. SFDIAG (6)
  1098. ssm 0,0
  1099. MFDIAG_1 (28)
  1100. b,n         perf_rdr_shift_in_U_leave
  1101. ssm 0,0
  1102. nop
  1104. sync ; RDR 7 read sequence
  1105. ssm 0,0
  1106. SFDIAG (7)
  1107. ssm 0,0
  1108. MFDIAG_1 (28)
  1109. b,n         perf_rdr_shift_in_U_leave
  1110. ssm 0,0
  1111. nop
  1113. b,n         perf_rdr_shift_in_U_leave
  1114. nop
  1115. nop
  1116. nop
  1117. nop
  1118. nop
  1119. nop
  1120. nop
  1122. SFDIAG (9) ; RDR 9 read sequence
  1123. ssm 0,0
  1124. MFDIAG_1 (28)
  1125. shrpd ret0,%r0,%sar,%r1
  1126. MTDIAG_1 (1)
  1127. STDIAG (9)
  1128. ssm 0,0
  1129. b,n         perf_rdr_shift_in_U_leave
  1131. SFDIAG (10) ; RDR 10 read sequence
  1132. ssm 0,0
  1133. MFDIAG_1 (28)
  1134. shrpd ret0,%r0,%sar,%r1
  1135. MTDIAG_1 (1)
  1136. STDIAG (10)
  1137. ssm 0,0
  1138. b,n         perf_rdr_shift_in_U_leave
  1140. SFDIAG (11) ; RDR 11 read sequence
  1141. ssm 0,0
  1142. MFDIAG_1 (28)
  1143. shrpd ret0,%r0,%sar,%r1
  1144. MTDIAG_1 (1)
  1145. STDIAG (11)
  1146. ssm 0,0
  1147. b,n         perf_rdr_shift_in_U_leave
  1149. SFDIAG (12) ; RDR 12 read sequence
  1150. ssm 0,0
  1151. MFDIAG_1 (28)
  1152. shrpd ret0,%r0,%sar,%r1
  1153. MTDIAG_1 (1)
  1154. STDIAG (12)
  1155. ssm 0,0
  1156. b,n         perf_rdr_shift_in_U_leave
  1158. SFDIAG (13) ; RDR 13 read sequence
  1159. ssm 0,0
  1160. MFDIAG_1 (28)
  1161. shrpd ret0,%r0,%sar,%r1
  1162. MTDIAG_1 (1)
  1163. STDIAG (13)
  1164. ssm 0,0
  1165. b,n         perf_rdr_shift_in_U_leave
  1167. SFDIAG (14) ; RDR 14 read sequence
  1168. ssm 0,0
  1169. MFDIAG_1 (28)
  1170. shrpd ret0,%r0,%sar,%r1
  1171. MTDIAG_1 (1)
  1172. STDIAG (14)
  1173. ssm 0,0
  1174. b,n         perf_rdr_shift_in_U_leave
  1176. SFDIAG (15) ; RDR 15 read sequence
  1177. ssm 0,0
  1178. MFDIAG_1 (28)
  1179. shrpd ret0,%r0,%sar,%r1
  1180. MTDIAG_1 (1)
  1181. STDIAG (15)
  1182. ssm 0,0
  1183. b,n         perf_rdr_shift_in_U_leave
  1185. sync ; RDR 16 read sequence
  1186. ssm 0,0
  1187. SFDIAG (16)
  1188. ssm 0,0
  1189. MFDIAG_1 (28)
  1190. b,n         perf_rdr_shift_in_U_leave
  1191. ssm 0,0
  1192. nop
  1194. SFDIAG (17) ; RDR 17 read sequence
  1195. ssm 0,0
  1196. MFDIAG_1 (28)
  1197. shrpd ret0,%r0,%sar,%r1
  1198. MTDIAG_1 (1)
  1199. STDIAG (17)
  1200. ssm 0,0
  1201. b,n         perf_rdr_shift_in_U_leave
  1203. SFDIAG (18) ; RDR 18 read sequence
  1204. ssm 0,0
  1205. MFDIAG_1 (28)
  1206. shrpd ret0,%r0,%sar,%r1
  1207. MTDIAG_1 (1)
  1208. STDIAG (18)
  1209. ssm 0,0
  1210. b,n         perf_rdr_shift_in_U_leave
  1212. b,n         perf_rdr_shift_in_U_leave
  1213. nop
  1214. nop
  1215. nop
  1216. nop
  1217. nop
  1218. nop
  1219. nop
  1221. sync ; RDR 20 read sequence
  1222. ssm 0,0
  1223. SFDIAG (20)
  1224. ssm 0,0
  1225. MFDIAG_1 (28)
  1226. b,n         perf_rdr_shift_in_U_leave
  1227. ssm 0,0
  1228. nop
  1230. sync ; RDR 21 read sequence
  1231. ssm 0,0
  1232. SFDIAG (21)
  1233. ssm 0,0
  1234. MFDIAG_1 (28)
  1235. b,n         perf_rdr_shift_in_U_leave
  1236. ssm 0,0
  1237. nop
  1239. sync ; RDR 22 read sequence
  1240. ssm 0,0
  1241. SFDIAG (22)
  1242. ssm 0,0
  1243. MFDIAG_1 (28)
  1244. b,n         perf_rdr_shift_in_U_leave
  1245. ssm 0,0
  1246. nop
  1248. sync ; RDR 23 read sequence
  1249. ssm 0,0
  1250. SFDIAG (23)
  1251. ssm 0,0
  1252. MFDIAG_1 (28)
  1253. b,n         perf_rdr_shift_in_U_leave
  1254. ssm 0,0
  1255. nop
  1257. sync ; RDR 24 read sequence
  1258. ssm 0,0
  1259. SFDIAG (24)
  1260. ssm 0,0
  1261. MFDIAG_1 (28)
  1262. b,n         perf_rdr_shift_in_U_leave
  1263. ssm 0,0
  1264. nop
  1266. sync ; RDR 25 read sequence
  1267. ssm 0,0
  1268. SFDIAG (25)
  1269. ssm 0,0
  1270. MFDIAG_1 (28)
  1271. b,n         perf_rdr_shift_in_U_leave
  1272. ssm 0,0
  1273. nop
  1275. SFDIAG (26) ; RDR 26 read sequence
  1276. ssm 0,0
  1277. MFDIAG_1 (28)
  1278. shrpd ret0,%r0,%sar,%r1
  1279. MTDIAG_1 (1)
  1280. STDIAG (26)
  1281. ssm 0,0
  1282. b,n         perf_rdr_shift_in_U_leave
  1284. SFDIAG (27) ; RDR 27 read sequence
  1285. ssm 0,0
  1286. MFDIAG_1 (28)
  1287. shrpd ret0,%r0,%sar,%r1
  1288. MTDIAG_1 (1)
  1289. STDIAG (27)
  1290. ssm 0,0
  1291. b,n         perf_rdr_shift_in_U_leave
  1293. sync ; RDR 28 read sequence
  1294. ssm 0,0
  1295. SFDIAG (28)
  1296. ssm 0,0
  1297. MFDIAG_1 (28)
  1298. b,n         perf_rdr_shift_in_U_leave
  1299. ssm 0,0
  1300. nop
  1302. b,n         perf_rdr_shift_in_U_leave
  1303. nop
  1304. nop
  1305. nop
  1306. nop
  1307. nop
  1308. nop
  1309. nop
  1311. SFDIAG (30) ; RDR 30 read sequence
  1312. ssm 0,0
  1313. MFDIAG_1 (28)
  1314. shrpd ret0,%r0,%sar,%r1
  1315. MTDIAG_1 (1)
  1316. STDIAG (30)
  1317. ssm 0,0
  1318. b,n         perf_rdr_shift_in_U_leave
  1320. SFDIAG (31) ; RDR 31 read sequence
  1321. ssm 0,0
  1322. MFDIAG_1 (28)
  1323. shrpd ret0,%r0,%sar,%r1
  1324. MTDIAG_1 (1)
  1325. STDIAG (31)
  1326. ssm 0,0
  1327. b,n         perf_rdr_shift_in_U_leave
  1328. nop
  1330. perf_rdr_shift_in_U_leave:
  1331. bve     (%r2)
  1332. .exit
  1333. MTDIAG_2 (24) ; restore DR2
  1334. .procend
  1336. ;************************************************************************
  1337. ;* *
  1338. ;* Name: rdr_shift_out_U *
  1339. ;* *
  1340. ;* Description: *
  1341. ;* This routine moves data to the RDR's.  The double-word that *
  1342. ;* arg1 points to is loaded and moved into the staging register. *
  1343. ;* Then the STDIAG instruction for the RDR # in arg0 is called *
  1344. ;* to move the data to the RDR. *
  1345. ;* *
  1346. ;* Arguments: *
  1347. ;* arg0 = rdr target *
  1348. ;* arg1 = buffer pointer *
  1349. ;* *
  1350. ;* Returns: *
  1351. ;* None *
  1352. ;* *
  1353. ;* Register usage: *
  1354. ;* arg0 = rdr target *
  1355. ;* arg1 = buffer pointer *
  1356. ;* %r24 - DR2 | DR2_SLOW_RET *
  1357. ;* %r23 - original DR2 value *
  1358. ;* *
  1359. ;************************************************************************
  1361. .export perf_rdr_shift_out_U,code
  1362. perf_rdr_shift_out_U:
  1363. .proc
  1364. .callinfo frame=0,NO_CALLS
  1365. .entry
  1367. ;
  1368. ; NOTE: The PCX-U ERS states that DR2_SLOW_RET must be set before any
  1369. ; shifting is done, from or to, the remote diagnose registers.
  1370. ;
  1372. depdi,z 1,DR2_SLOW_RET,1,%r24
  1373. MFDIAG_2 (23)
  1374. or %r24,%r23,%r24
  1375. MTDIAG_2 (24) ; set DR2_SLOW_RET
  1377. MTDIAG_1 (25) ; data to the staging register
  1378. shladd  arg0,2,%r0,%r1 ; %r1 = 4 * RDR number
  1379. blr     %r1,%r0     ; branch to 8-instruction sequence
  1380. nop
  1382. ;
  1383. ; 32-byte cachline aligned
  1384. ;
  1386. sync ; RDR 0 write sequence
  1387. ssm 0,0
  1388. STDIAG (0)
  1389. ssm 0,0
  1390. b,n         perf_rdr_shift_out_U_leave
  1391. nop
  1392. ssm 0,0
  1393. nop
  1395. sync ; RDR 1 write sequence
  1396. ssm 0,0
  1397. STDIAG (1)
  1398. ssm 0,0
  1399. b,n         perf_rdr_shift_out_U_leave
  1400. nop
  1401. ssm 0,0
  1402. nop
  1404. sync ; RDR 2 write sequence
  1405. ssm 0,0
  1406. STDIAG (2)
  1407. ssm 0,0
  1408. b,n         perf_rdr_shift_out_U_leave
  1409. nop
  1410. ssm 0,0
  1411. nop
  1413. sync ; RDR 3 write sequence
  1414. ssm 0,0
  1415. STDIAG (3)
  1416. ssm 0,0
  1417. b,n         perf_rdr_shift_out_U_leave
  1418. nop
  1419. ssm 0,0
  1420. nop
  1422. sync ; RDR 4 write sequence
  1423. ssm 0,0
  1424. STDIAG (4)
  1425. ssm 0,0
  1426. b,n         perf_rdr_shift_out_U_leave
  1427. nop
  1428. ssm 0,0
  1429. nop
  1431. sync ; RDR 5 write sequence
  1432. ssm 0,0
  1433. STDIAG (5)
  1434. ssm 0,0
  1435. b,n         perf_rdr_shift_out_U_leave
  1436. nop
  1437. ssm 0,0
  1438. nop
  1440. sync ; RDR 6 write sequence
  1441. ssm 0,0
  1442. STDIAG (6)
  1443. ssm 0,0
  1444. b,n         perf_rdr_shift_out_U_leave
  1445. nop
  1446. ssm 0,0
  1447. nop
  1449. sync ; RDR 7 write sequence
  1450. ssm 0,0
  1451. STDIAG (7)
  1452. ssm 0,0
  1453. b,n         perf_rdr_shift_out_U_leave
  1454. nop
  1455. ssm 0,0
  1456. nop
  1458. sync ; RDR 8 write sequence
  1459. ssm 0,0
  1460. STDIAG (8)
  1461. ssm 0,0
  1462. b,n         perf_rdr_shift_out_U_leave
  1463. nop
  1464. ssm 0,0
  1465. nop
  1467. sync ; RDR 9 write sequence
  1468. ssm 0,0
  1469. STDIAG (9)
  1470. ssm 0,0
  1471. b,n         perf_rdr_shift_out_U_leave
  1472. nop
  1473. ssm 0,0
  1474. nop
  1476. sync ; RDR 10 write sequence
  1477. ssm 0,0
  1478. STDIAG (10)
  1479. ssm 0,0
  1480. b,n         perf_rdr_shift_out_U_leave
  1481. nop
  1482. ssm 0,0
  1483. nop
  1485. sync ; RDR 11 write sequence
  1486. ssm 0,0
  1487. STDIAG (11)
  1488. ssm 0,0
  1489. b,n         perf_rdr_shift_out_U_leave
  1490. nop
  1491. ssm 0,0
  1492. nop
  1494. sync ; RDR 12 write sequence
  1495. ssm 0,0
  1496. STDIAG (12)
  1497. ssm 0,0
  1498. b,n         perf_rdr_shift_out_U_leave
  1499. nop
  1500. ssm 0,0
  1501. nop
  1503. sync ; RDR 13 write sequence
  1504. ssm 0,0
  1505. STDIAG (13)
  1506. ssm 0,0
  1507. b,n         perf_rdr_shift_out_U_leave
  1508. nop
  1509. ssm 0,0
  1510. nop
  1512. sync ; RDR 14 write sequence
  1513. ssm 0,0
  1514. STDIAG (14)
  1515. ssm 0,0
  1516. b,n         perf_rdr_shift_out_U_leave
  1517. nop
  1518. ssm 0,0
  1519. nop
  1521. sync ; RDR 15 write sequence
  1522. ssm 0,0
  1523. STDIAG (15)
  1524. ssm 0,0
  1525. b,n         perf_rdr_shift_out_U_leave
  1526. nop
  1527. ssm 0,0
  1528. nop
  1530. sync ; RDR 16 write sequence
  1531. ssm 0,0
  1532. STDIAG (16)
  1533. ssm 0,0
  1534. b,n         perf_rdr_shift_out_U_leave
  1535. nop
  1536. ssm 0,0
  1537. nop
  1539. sync ; RDR 17 write sequence
  1540. ssm 0,0
  1541. STDIAG (17)
  1542. ssm 0,0
  1543. b,n         perf_rdr_shift_out_U_leave
  1544. nop
  1545. ssm 0,0
  1546. nop
  1548. sync ; RDR 18 write sequence
  1549. ssm 0,0
  1550. STDIAG (18)
  1551. ssm 0,0
  1552. b,n         perf_rdr_shift_out_U_leave
  1553. nop
  1554. ssm 0,0
  1555. nop
  1557. sync ; RDR 19 write sequence
  1558. ssm 0,0
  1559. STDIAG (19)
  1560. ssm 0,0
  1561. b,n         perf_rdr_shift_out_U_leave
  1562. nop
  1563. ssm 0,0
  1564. nop
  1566. sync ; RDR 20 write sequence
  1567. ssm 0,0
  1568. STDIAG (20)
  1569. ssm 0,0
  1570. b,n         perf_rdr_shift_out_U_leave
  1571. nop
  1572. ssm 0,0
  1573. nop
  1575. sync ; RDR 21 write sequence
  1576. ssm 0,0
  1577. STDIAG (21)
  1578. ssm 0,0
  1579. b,n         perf_rdr_shift_out_U_leave
  1580. nop
  1581. ssm 0,0
  1582. nop
  1584. sync ; RDR 22 write sequence
  1585. ssm 0,0
  1586. STDIAG (22)
  1587. ssm 0,0
  1588. b,n         perf_rdr_shift_out_U_leave
  1589. nop
  1590. ssm 0,0
  1591. nop
  1593. sync ; RDR 23 write sequence
  1594. ssm 0,0
  1595. STDIAG (23)
  1596. ssm 0,0
  1597. b,n         perf_rdr_shift_out_U_leave
  1598. nop
  1599. ssm 0,0
  1600. nop
  1602. sync ; RDR 24 write sequence
  1603. ssm 0,0
  1604. STDIAG (24)
  1605. ssm 0,0
  1606. b,n         perf_rdr_shift_out_U_leave
  1607. nop
  1608. ssm 0,0
  1609. nop
  1611. sync ; RDR 25 write sequence
  1612. ssm 0,0
  1613. STDIAG (25)
  1614. ssm 0,0
  1615. b,n         perf_rdr_shift_out_U_leave
  1616. nop
  1617. ssm 0,0
  1618. nop
  1620. sync ; RDR 26 write sequence
  1621. ssm 0,0
  1622. STDIAG (26)
  1623. ssm 0,0
  1624. b,n         perf_rdr_shift_out_U_leave
  1625. nop
  1626. ssm 0,0
  1627. nop
  1629. sync ; RDR 27 write sequence
  1630. ssm 0,0
  1631. STDIAG (27)
  1632. ssm 0,0
  1633. b,n         perf_rdr_shift_out_U_leave
  1634. nop
  1635. ssm 0,0
  1636. nop
  1638. sync ; RDR 28 write sequence
  1639. ssm 0,0
  1640. STDIAG (28)
  1641. ssm 0,0
  1642. b,n         perf_rdr_shift_out_U_leave
  1643. nop
  1644. ssm 0,0
  1645. nop
  1647. sync ; RDR 29 write sequence
  1648. ssm 0,0
  1649. STDIAG (29)
  1650. ssm 0,0
  1651. b,n         perf_rdr_shift_out_U_leave
  1652. nop
  1653. ssm 0,0
  1654. nop
  1656. sync ; RDR 30 write sequence
  1657. ssm 0,0
  1658. STDIAG (30)
  1659. ssm 0,0
  1660. b,n         perf_rdr_shift_out_U_leave
  1661. nop
  1662. ssm 0,0
  1663. nop
  1665. sync ; RDR 31 write sequence
  1666. ssm 0,0
  1667. STDIAG (31)
  1668. ssm 0,0
  1669. b,n         perf_rdr_shift_out_U_leave
  1670. nop
  1671. ssm 0,0
  1672. nop
  1674. perf_rdr_shift_out_U_leave:
  1675. bve (%r2)
  1676. .exit
  1677. MTDIAG_2 (23) ; restore DR2
  1678. .procend