1/*
2 *  arch/s390/kernel/reipl.S
3 *
4 *  S390 version
5 *    Copyright (C) 2000 IBM Deutschland Entwicklung GmbH, IBM Corporation
6 *    Author(s): Holger Smolinski (Holger.Smolinski@de.ibm.com)
7 */
8
9#include <asm/lowcore.h>
10
11		.globl	do_reipl
12do_reipl:	basr	%r13,0
13.Lpg0:		lpsw	.Lnewpsw-.Lpg0(%r13)
14.Lpg1:		lctl	%c6,%c6,.Lall-.Lpg0(%r13)
15                stctl   %c0,%c0,.Lctlsave-.Lpg0(%r13)
16                ni      .Lctlsave-.Lpg0(%r13),0xef
17                lctl    %c0,%c0,.Lctlsave-.Lpg0(%r13)
18                lr      %r1,%r2
19        	mvc     __LC_PGM_NEW_PSW(8),.Lpcnew-.Lpg0(%r13)
20                stsch   .Lschib-.Lpg0(%r13)
21	        oi      .Lschib+5-.Lpg0(%r13),0x84
22.Lecs:  	xi      .Lschib+27-.Lpg0(%r13),0x01
23        	msch    .Lschib-.Lpg0(%r13)
24                lhi     %r0,5
25.Lssch:		ssch	.Liplorb-.Lpg0(%r13)
26		jz	.L001
27                brct    %r0,.Lssch
28		bas	%r14,.Ldisab-.Lpg0(%r13)
29.L001:		mvc	__LC_IO_NEW_PSW(8),.Lionew-.Lpg0(%r13)
30.Ltpi:		lpsw	.Lwaitpsw-.Lpg0(%r13)
31.Lcont:		c	%r1,__LC_SUBCHANNEL_ID
32		jnz	.Ltpi
33		clc	__LC_IO_INT_PARM(4),.Liplorb-.Lpg0(%r13)
34		jnz	.Ltpi
35		tsch	.Liplirb-.Lpg0(%r13)
36		tm	.Liplirb+9-.Lpg0(%r13),0xbf
37                jz      .L002
38                bas     %r14,.Ldisab-.Lpg0(%r13)
39.L002:		tm	.Liplirb+8-.Lpg0(%r13),0xf3
40                jz      .L003
41                bas     %r14,.Ldisab-.Lpg0(%r13)
42.L003:		spx	.Lnull-.Lpg0(%r13)
43		st 	%r1,__LC_SUBCHANNEL_ID
44                lpsw 	0
45		sigp    0,0,0(6)
46.Ldisab:	st      %r14,.Ldispsw+4-.Lpg0(%r13)
47		lpsw	.Ldispsw-.Lpg0(%r13)
48                .align 	8
49.Lall:		.long	0xff000000
50.Lnull:		.long   0x00000000
51.Lctlsave:      .long   0x00000000
52                .align 	8
53.Lnewpsw:	.long   0x00080000,0x80000000+.Lpg1
54.Lpcnew:  	.long   0x00080000,0x80000000+.Lecs
55.Lionew:	.long   0x00080000,0x80000000+.Lcont
56.Lwaitpsw:	.long	0x020a0000,0x00000000+.Ltpi
57.Ldispsw:	.long   0x000a0000,0x00000000
58.Liplccws:	.long   0x02000000,0x60000018
59		.long   0x08000008,0x20000001
60.Liplorb:	.long	0x0049504c,0x0040ff80
61		.long	0x00000000+.Liplccws
62.Lschib:        .long   0x00000000,0x00000000
63		.long   0x00000000,0x00000000
64		.long   0x00000000,0x00000000
65		.long   0x00000000,0x00000000
66		.long   0x00000000,0x00000000
67		.long   0x00000000,0x00000000
68.Liplirb:	.long	0x00000000,0x00000000
69		.long	0x00000000,0x00000000
70		.long	0x00000000,0x00000000
71		.long	0x00000000,0x00000000
72		.long	0x00000000,0x00000000
73		.long	0x00000000,0x00000000
74		.long	0x00000000,0x00000000
75		.long	0x00000000,0x00000000
76
77
78
79