summaryrefslogtreecommitdiff
path: root/pc-bios/s390-ccw/start.S
diff options
context:
space:
mode:
authorChristian Borntraeger <borntraeger@de.ibm.com>2015-06-19 15:40:45 +0200
committerCornelia Huck <cornelia.huck@de.ibm.com>2015-06-30 09:34:58 +0200
commitbdc7fe3638fa7693eed5886b5b2afe0858d875fc (patch)
treef8e5f0682c9b9fde00162b0d65f2c8e6f058428d /pc-bios/s390-ccw/start.S
parentec7353a146bb39c3bb3e5ccc50ca585aed97b7cf (diff)
downloadqemu-bdc7fe3638fa7693eed5886b5b2afe0858d875fc.tar.gz
s390-ccw.img: Consume service interrupts
We have to consume the outstanding service interrupt after each service call, otherwise a correct implementation will return CC=2 on subsequent service calls. Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com> Reviewed-by: David Hildenbrand <dahi@linux.vnet.ibm.com> Signed-off-by: Cornelia Huck <cornelia.huck@de.ibm.com>
Diffstat (limited to 'pc-bios/s390-ccw/start.S')
-rw-r--r--pc-bios/s390-ccw/start.S32
1 files changed, 32 insertions, 0 deletions
diff --git a/pc-bios/s390-ccw/start.S b/pc-bios/s390-ccw/start.S
index 5d5df0d616..b6dd8c2fbe 100644
--- a/pc-bios/s390-ccw/start.S
+++ b/pc-bios/s390-ccw/start.S
@@ -28,6 +28,38 @@ disabled_wait:
larl %r1,disabled_wait_psw
lpswe 0(%r1)
+
+/*
+ * void consume_sclp_int(void)
+ *
+ * eats one sclp interrupt
+ */
+ .globl consume_sclp_int
+consume_sclp_int:
+ /* enable service interrupts in cr0 */
+ stctg 0,0,0(15)
+ oi 6(15), 0x2
+ lctlg 0,0,0(15)
+ /* prepare external call handler */
+ larl %r1, external_new_code
+ stg %r1, 0x1b8
+ larl %r1, external_new_mask
+ mvc 0x1b0(8),0(%r1)
+ /* load enabled wait PSW */
+ larl %r1, enabled_wait_psw
+ lpswe 0(%r1)
+
+external_new_code:
+ /* disable service interrupts in cr0 */
+ stctg 0,0,0(15)
+ ni 6(15), 0xfd
+ lctlg 0,0,0(15)
+ br 14
+
.align 8
disabled_wait_psw:
.quad 0x0002000180000000,0x0000000000000000
+enabled_wait_psw:
+ .quad 0x0302000180000000,0x0000000000000000
+external_new_mask:
+ .quad 0x0000000180000000