1/*
  2 *  arch/s390/kernel/base.S
  3 *
  4 *    Copyright IBM Corp. 2006, 2007
  5 *    Author(s): Heiko Carstens <heiko.carstens@de.ibm.com>
  6 *		 Michael Holzheu <holzheu@de.ibm.com>
  7 */
  8
  9#include <linux/linkage.h>
 10#include <asm/asm-offsets.h>
 11#include <asm/ptrace.h>
 12#include <asm/sigp.h>
 13
 14#ifdef CONFIG_64BIT
 15
 16ENTRY(s390_base_mcck_handler)
 17	basr	%r13,0
 180:	lg	%r15,__LC_PANIC_STACK	# load panic stack
 19	aghi	%r15,-STACK_FRAME_OVERHEAD
 20	larl	%r1,s390_base_mcck_handler_fn
 21	lg	%r1,0(%r1)
 22	ltgr	%r1,%r1
 23	jz	1f
 24	basr	%r14,%r1
 251:	la	%r1,4095
 26	lmg	%r0,%r15,__LC_GPREGS_SAVE_AREA-4095(%r1)
 27	lpswe	__LC_MCK_OLD_PSW
 28
 29	.section .bss
 30	.align 8
 31	.globl	s390_base_mcck_handler_fn
 32s390_base_mcck_handler_fn:
 33	.quad	0
 34	.previous
 35
 36ENTRY(s390_base_ext_handler)
 37	stmg	%r0,%r15,__LC_SAVE_AREA_ASYNC
 38	basr	%r13,0
 390:	aghi	%r15,-STACK_FRAME_OVERHEAD
 40	larl	%r1,s390_base_ext_handler_fn
 41	lg	%r1,0(%r1)
 42	ltgr	%r1,%r1
 43	jz	1f
 44	basr	%r14,%r1
 451:	lmg	%r0,%r15,__LC_SAVE_AREA_ASYNC
 46	ni	__LC_EXT_OLD_PSW+1,0xfd	# clear wait state bit
 47	lpswe	__LC_EXT_OLD_PSW
 48
 49	.section .bss
 50	.align 8
 51	.globl s390_base_ext_handler_fn
 52s390_base_ext_handler_fn:
 53	.quad	0
 54	.previous
 55
 56ENTRY(s390_base_pgm_handler)
 57	stmg	%r0,%r15,__LC_SAVE_AREA_SYNC
 58	basr	%r13,0
 590:	aghi	%r15,-STACK_FRAME_OVERHEAD
 60	larl	%r1,s390_base_pgm_handler_fn
 61	lg	%r1,0(%r1)
 62	ltgr	%r1,%r1
 63	jz	1f
 64	basr	%r14,%r1
 65	lmg	%r0,%r15,__LC_SAVE_AREA_SYNC
 66	lpswe	__LC_PGM_OLD_PSW
 671:	lpswe	disabled_wait_psw-0b(%r13)
 68
 69	.align	8
 70disabled_wait_psw:
 71	.quad	0x0002000180000000,0x0000000000000000 + s390_base_pgm_handler
 72
 73	.section .bss
 74	.align 8
 75	.globl s390_base_pgm_handler_fn
 76s390_base_pgm_handler_fn:
 77	.quad	0
 78	.previous
 79
 80#
 81# Calls diag 308 subcode 1 and continues execution
 82#
 83# The following conditions must be ensured before calling this function:
 84# * Prefix register = 0
 85# * Lowcore protection is disabled
 86#
 87ENTRY(diag308_reset)
 88	larl	%r4,.Lctlregs		# Save control registers
 89	stctg	%c0,%c15,0(%r4)
 90	larl	%r4,.Lfpctl		# Floating point control register
 91	stfpc	0(%r4)
 92	larl	%r4,.Lcontinue_psw	# Save PSW flags
 93	epsw	%r2,%r3
 94	stm	%r2,%r3,0(%r4)
 95	larl	%r4,.Lrestart_psw	# Setup restart PSW at absolute 0
 96	lghi	%r3,0
 97	lg	%r4,0(%r4)		# Save PSW
 98	sturg	%r4,%r3			# Use sturg, because of large pages
 99	lghi	%r1,1
100	diag	%r1,%r1,0x308
101.Lrestart_part2:
102	lhi	%r0,0			# Load r0 with zero
103	lhi	%r1,2			# Use mode 2 = ESAME (dump)
104	sigp	%r1,%r0,SIGP_SET_ARCHITECTURE	# Switch to ESAME mode
105	sam64				# Switch to 64 bit addressing mode
106	larl	%r4,.Lctlregs		# Restore control registers
107	lctlg	%c0,%c15,0(%r4)
108	larl	%r4,.Lfpctl		# Restore floating point ctl register
109	lfpc	0(%r4)
110	larl	%r4,.Lcontinue_psw	# Restore PSW flags
111	lpswe	0(%r4)
112.Lcontinue:
113	br	%r14
114.align 16
115.Lrestart_psw:
116	.long	0x00080000,0x80000000 + .Lrestart_part2
117
118	.section .data..nosave,"aw",@progbits
119.align 8
120.Lcontinue_psw:
121	.quad	0,.Lcontinue
122	.previous
123
124	.section .bss
125.align 8
126.Lctlregs:
127	.rept	16
128	.quad	0
129	.endr
130.Lfpctl:
131	.long	0
132	.previous
133
134#else /* CONFIG_64BIT */
135
136ENTRY(s390_base_mcck_handler)
137	basr	%r13,0
1380:	l	%r15,__LC_PANIC_STACK	# load panic stack
139	ahi	%r15,-STACK_FRAME_OVERHEAD
140	l	%r1,2f-0b(%r13)
141	l	%r1,0(%r1)
142	ltr	%r1,%r1
143	jz	1f
144	basr	%r14,%r1
1451:	lm	%r0,%r15,__LC_GPREGS_SAVE_AREA
146	lpsw	__LC_MCK_OLD_PSW
147
1482:	.long	s390_base_mcck_handler_fn
149
150	.section .bss
151	.align 4
152	.globl	s390_base_mcck_handler_fn
153s390_base_mcck_handler_fn:
154	.long	0
155	.previous
156
157ENTRY(s390_base_ext_handler)
158	stm	%r0,%r15,__LC_SAVE_AREA_ASYNC
159	basr	%r13,0
1600:	ahi	%r15,-STACK_FRAME_OVERHEAD
161	l	%r1,2f-0b(%r13)
162	l	%r1,0(%r1)
163	ltr	%r1,%r1
164	jz	1f
165	basr	%r14,%r1
1661:	lm	%r0,%r15,__LC_SAVE_AREA_ASYNC
167	ni	__LC_EXT_OLD_PSW+1,0xfd	# clear wait state bit
168	lpsw	__LC_EXT_OLD_PSW
169
1702:	.long	s390_base_ext_handler_fn
171
172	.section .bss
173	.align 4
174	.globl	s390_base_ext_handler_fn
175s390_base_ext_handler_fn:
176	.long	0
177	.previous
178
179ENTRY(s390_base_pgm_handler)
180	stm	%r0,%r15,__LC_SAVE_AREA_SYNC
181	basr	%r13,0
1820:	ahi	%r15,-STACK_FRAME_OVERHEAD
183	l	%r1,2f-0b(%r13)
184	l	%r1,0(%r1)
185	ltr	%r1,%r1
186	jz	1f
187	basr	%r14,%r1
188	lm	%r0,%r15,__LC_SAVE_AREA_SYNC
189	lpsw	__LC_PGM_OLD_PSW
190
1911:	lpsw	disabled_wait_psw-0b(%r13)
192
1932:	.long	s390_base_pgm_handler_fn
194
195disabled_wait_psw:
196	.align	8
197	.long	0x000a0000,0x00000000 + s390_base_pgm_handler
198
199	.section .bss
200	.align 4
201	.globl	s390_base_pgm_handler_fn
202s390_base_pgm_handler_fn:
203	.long	0
204	.previous
205
206#endif /* CONFIG_64BIT */