mirror of
https://github.com/ibm-s390-linux/s390-tools.git
synced 2026-08-05 02:14:52 +00:00
b627b8d8e1
This commit is based on the s390-tools-1.39.0 version. Changes on top of s390-tools-1.39.0: - Add MIT license to all source files - Add LICENSE file - Transform REAMDE to README.md (markdown) - Add AUTHORS.md file - Add CONTRIBUTING.md file - Move changelog from README to CHANGELOG.md file Reviewed-by: Stefan Haberland <sth@linux.vnet.ibm.com> Signed-off-by: Michael Holzheu <holzheu@linux.vnet.ibm.com>
21 lines
568 B
ArmAsm
21 lines
568 B
ArmAsm
/*
|
|
* Entry module for stage 2 stand-alone dump tools
|
|
*
|
|
* Copyright IBM Corp. 2001, 2017
|
|
*
|
|
* s390-tools is free software; you can redistribute it and/or modify
|
|
* it under the terms of the MIT license. See LICENSE for details.
|
|
*/
|
|
|
|
#define __LC_SAVE_AREA_SYNC 0x200 /* Save area for interrupts */
|
|
#define __LC_PGM_OLD_PSW 0x0150 /* Program check old PSW */
|
|
|
|
.globl pgm_check_handler
|
|
pgm_check_handler:
|
|
stmg %r0,%r15,__LC_SAVE_AREA_SYNC
|
|
aghi %r15,-200
|
|
larl %r14,pgm_check_handler_fn
|
|
basr %r14,%r14
|
|
lmg %r0,%r15,__LC_SAVE_AREA_SYNC
|
|
lpswe __LC_PGM_OLD_PSW(%r0)
|