spelling fixes
[linux-2.6] / arch / s390 / kernel / reipl.S
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
12 do_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