![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rtas.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof|
Return to rtas.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof |
1.1 ! root 1: \ ***************************************************************************** ! 2: \ * Copyright (c) 2011 IBM Corporation ! 3: \ * All rights reserved. ! 4: \ * This program and the accompanying materials ! 5: \ * are made available under the terms of the BSD License ! 6: \ * which accompanies this distribution, and is available at ! 7: \ * http://www.opensource.org/licenses/bsd-license.php ! 8: \ * ! 9: \ * Contributors: ! 10: \ * IBM Corporation - initial implementation ! 11: \ ****************************************************************************/ ! 12: ! 13: \ KVM/qemu RTAS ! 14: ! 15: \ rtas control block ! 16: ! 17: 4d0 cp ! 18: ! 19: STRUCT ! 20: /l field rtas>token ! 21: /l field rtas>nargs ! 22: /l field rtas>nret ! 23: /l field rtas>args0 ! 24: /l field rtas>args1 ! 25: /l field rtas>args2 ! 26: /l field rtas>args3 ! 27: /l field rtas>args4 ! 28: /l field rtas>args5 ! 29: /l field rtas>args6 ! 30: /l field rtas>args7 ! 31: /l C * field rtas>args ! 32: /l field rtas>bla ! 33: CONSTANT /rtas-control-block ! 34: ! 35: CREATE rtas-cb /rtas-control-block allot ! 36: rtas-cb /rtas-control-block erase ! 37: ! 38: 0 VALUE rtas-base ! 39: 0 VALUE rtas-size ! 40: 0 VALUE rtas-entry ! 41: 0 VALUE rtas-node ! 42: ! 43: \ Locate qemu RTAS, remove the linux,... properties we really don't ! 44: \ want them to stick around ! 45: ! 46: 4d1 cp ! 47: ! 48: : find-qemu-rtas ( -- ) ! 49: " /rtas" find-device get-node to rtas-node ! 50: ! 51: " linux,rtas-base" rtas-node get-package-property IF ! 52: device-end EXIT THEN ! 53: drop l@ to rtas-base ! 54: " linux,rtas-base" delete-property ! 55: ! 56: " rtas-size" rtas-node get-package-property IF ! 57: device-end EXIT THEN ! 58: drop l@ to rtas-size ! 59: ! 60: " linux,rtas-entry" rtas-node get-package-property IF ! 61: rtas-base to rtas-entry ! 62: ELSE ! 63: drop l@ to rtas-entry ! 64: " linux,rtas-entry" delete-property ! 65: THEN ! 66: ! 67: \ ." RTAS found, base=" rtas-base . ." size=" rtas-size . cr ! 68: ! 69: device-end ! 70: ; ! 71: find-qemu-rtas ! 72: ! 73: 4d2 cp ! 74: ! 75: : enter-rtas ( -- ) ! 76: rtas-cb rtas-base 0 rtas-entry call-c drop ! 77: ; ! 78: ! 79: : rtas-get-token ( str len -- token | 0 ) ! 80: rtas-node get-package-property IF 0 ELSE drop l@ THEN ! 81: ; ! 82: ! 83: : rtas-start-cpu ( pid loc r3 -- status ) ! 84: " start-cpu" rtas-get-token rtas-cb rtas>token l! ! 85: 3 rtas-cb rtas>nargs l! ! 86: 1 rtas-cb rtas>nret l! ! 87: rtas-cb rtas>args2 l! ! 88: rtas-cb rtas>args1 l! ! 89: rtas-cb rtas>args0 l! ! 90: 0 rtas-cb rtas>args3 l! ! 91: enter-rtas ! 92: rtas-cb rtas>args3 l@ ! 93: ; ! 94: ! 95: : rtas-set-tce-bypass ( unit enable -- ) ! 96: " ibm,set-tce-bypass" rtas-get-token rtas-cb rtas>token l! ! 97: 2 rtas-cb rtas>nargs l! ! 98: 0 rtas-cb rtas>nret l! ! 99: rtas-cb rtas>args1 l! ! 100: rtas-cb rtas>args0 l! ! 101: enter-rtas ! 102: ; ! 103: ! 104: : rtas-quiesce ( -- ) ! 105: " quiesce" rtas-get-token rtas-cb rtas>token l! ! 106: 0 rtas-cb rtas>nargs l! ! 107: 0 rtas-cb rtas>nret l! ! 108: enter-rtas ! 109: ; ! 110: ! 111: : of-start-cpu rtas-start-cpu ; ! 112: ! 113: \ Methods of the rtas node proper ! 114: rtas-node set-node ! 115: ! 116: : open true ; ! 117: : close ; ! 118: ! 119: : instantiate-rtas ( adr -- entry ) ! 120: dup rtas-base swap rtas-size move ! 121: rtas-entry rtas-base - + ! 122: ; ! 123: ! 124: device-end ! 125: ! 126: 4d8 cp
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.