Add qemu 2.4.0

[kvmfornfv.git] / qemu / roms / SLOF / slof / fs / exception.fs

diff --git a/qemu/roms/SLOF/slof/fs/exception.fs b/qemu/roms/SLOF/slof/fs/exception.fs
new file mode 100644 (file)
index 0000000..dbf11fb
--- /dev/null
+++ b/qemu/roms/SLOF/slof/fs/exception.fs
@@ -0,0 +1,154 @@
+\ *****************************************************************************
+\ * Copyright (c) 2004, 2008 IBM Corporation
+\ * All rights reserved.
+\ * This program and the accompanying materials
+\ * are made available under the terms of the BSD License
+\ * which accompanies this distribution, and is available at
+\ * http://www.opensource.org/licenses/bsd-license.php
+\ *
+\ * Contributors:
+\ *     IBM Corporation - initial implementation
+\ ****************************************************************************/
+
+STRUCT
+   cell FIELD >r0   cell FIELD >r1   cell FIELD >r2   cell FIELD >r3
+   cell FIELD >r4   cell FIELD >r5   cell FIELD >r6   cell FIELD >r7
+   cell FIELD >r8   cell FIELD >r9   cell FIELD >r10  cell FIELD >r11
+   cell FIELD >r12  cell FIELD >r13  cell FIELD >r14  cell FIELD >r15
+   cell FIELD >r16  cell FIELD >r17  cell FIELD >r18  cell FIELD >r19
+   cell FIELD >r20  cell FIELD >r21  cell FIELD >r22  cell FIELD >r23
+   cell FIELD >r24  cell FIELD >r25  cell FIELD >r26  cell FIELD >r27
+   cell FIELD >r28  cell FIELD >r29  cell FIELD >r30  cell FIELD >r31
+   cell FIELD >cr   cell FIELD >xer  cell FIELD >lr   cell FIELD >ctr
+   cell FIELD >srr0 cell FIELD >srr1 cell FIELD >dar  cell FIELD >dsisr
+CONSTANT ciregs-size
+
+
+
+: .16  10 0.r 3 spaces ;
+: .8   8 spaces 8 0.r 3 spaces ;
+: .4regs  cr 4 0 DO dup @ .16 8 cells+ LOOP drop ;
+: .fixed-regs
+   cr ."     R0 .. R7           R8 .. R15         R16 .. R23         R24 .. R31"
+   dup 8 0 DO dup .4regs cell+ LOOP drop
+;
+
+: .special-regs
+   cr ."     CR / XER           LR / CTR          SRR0 / SRR1        DAR / DSISR"
+   cr dup >cr  @ .8   dup >lr  @ .16  dup >srr0 @ .16  dup >dar @ .16
+   cr dup >xer @ .16  dup >ctr @ .16  dup >srr1 @ .16    >dsisr @ .8
+;
+
+: .regs
+   cr .fixed-regs
+   cr .special-regs
+   cr cr
+;
+
+: .hw-exception ( reason-code exception-nr -- )
+   ." ( " dup . ." ) "
+   CASE
+      200 OF ." Machine Check" ENDOF
+      300 OF ." Data Storage" ENDOF
+      380 OF ." Data Segment" ENDOF
+      400 OF ." Instruction Storage" ENDOF
+      480 OF ." Instruction Segment" ENDOF
+      500 OF ." External" ENDOF
+      600 OF ." Alignment" ENDOF
+      700 OF ." Program" ENDOF
+      800 OF ." Floating-point unavailable" ENDOF
+      900 OF ." Decrementer" ENDOF
+      980 OF ." Hypervisor Decrementer" ENDOF
+      C00 OF ." System Call" ENDOF
+      D00 OF ." Trace" ENDOF
+      F00 OF ." Performance Monitor" ENDOF
+      F20 OF ." VMX Unavailable" ENDOF
+      1200 OF ." System Error" ENDOF
+      1600 OF ." Maintenance" ENDOF
+      1800 OF ." Thermal" ENDOF
+      dup OF ." Unknown" ENDOF
+   ENDCASE
+   ."  Exception [ " . ." ]"
+;
+
+: .sw-exception ( exception-nr -- )
+   ."  Exception [ " . ." ] triggered by boot firmware."
+;
+
+\ this word gets also called for non-hardware exceptions.
+: be-hw-exception ( [reason-code] exception-nr -- )
+   cr cr
+   dup 0> IF .hw-exception ELSE .sw-exception THEN
+   cr eregs .regs
+;
+' be-hw-exception to hw-exception-handler
+
+: (boot-exception-handler) ( x1...xn exception-nr -- x1...xn)
+   dup IF
+      dup 0 > IF
+        negate cp 9 emit ." : " type
+      ELSE
+        CASE
+           -6d OF cr ." W3411: Client application returned." cr ENDOF
+           -6c OF cr ." E3400: It was not possible to boot from any device "
+               ." specified in the VPD." cr
+           ENDOF
+           -6b OF cr ." E3410: Boot list successfully read from VPD "
+               ." but no useful information received." cr
+           ENDOF
+           -6a OF cr ." E3420: Boot list could not be read from VPD." cr
+           ENDOF
+           -69 OF
+               cr ." E3406: Client application returned an error"
+               abort"-str @ count dup IF
+                  ." :    " type cr
+               ELSE
+                  ." ." cr
+                  2drop
+               THEN
+           ENDOF
+           -68 OF cr ." E3405: No such device" cr ENDOF
+           -67 OF cr ." E3404: Not a bootable device!" cr ENDOF
+           -66 OF cr ." E3408: Failed to claim memory for the executable" cr
+           ENDOF
+           -65 OF cr ." E3407: Load failed" cr ENDOF
+           -64 OF cr ." E3403: Bad executable:   " abort"-str @ count type cr
+           ENDOF
+           -63 OF cr ." E3409: Unknown FORTH Word" cr ENDOF
+           -2 OF cr ." E3401: Aborting boot,  " abort"-str @ count type cr
+           ENDOF
+           dup OF ." E3402: Aborting boot, internal error" cr ENDOF
+        ENDCASE
+      THEN
+   ELSE
+      drop
+   THEN
+;
+
+' (boot-exception-handler) to boot-exception-handler
+
+: throw-error ( error-code "error-string" -- )
+   skipws 0a parse rot throw
+;
+
+\ Enable external interrupt in msr
+
+: enable-ext-int ( -- )
+   msr@ 8000 or msr!
+;
+
+\ Disable external interrupt in msr
+
+: disable-ext-int ( -- )
+   msr@ 8000 not and msr!
+;
+
+\ Generate external interrupt through Internal Interrupt Controller of BE
+
+: gen-ext-int ( -- )
+   7fffffff dec!               \ Reset decrementer
+   enable-ext-int              \ Enable interrupt
+   FF 20000508418 rx!          \ Interrupt priority mask
+   10 20000508410 rx!          \ Interrupt priority
+;
+