Merge branch 'devel' of master.kernel.org:/home/rmk/linux-2.6-serial
[linux-2.6] / arch / s390 / kernel / head.S
1 /*
2  *  arch/s390/kernel/head.S
3  *
4  * Copyright (C) IBM Corp. 1999,2006
5  *
6  *    Author(s): Hartmut Penner <hp@de.ibm.com>
7  *               Martin Schwidefsky <schwidefsky@de.ibm.com>
8  *               Rob van der Heij <rvdhei@iae.nl>
9  *               Heiko Carstens <heiko.carstens@de.ibm.com>
10  *
11  * There are 5 different IPL methods
12  *  1) load the image directly into ram at address 0 and do an PSW restart
13  *  2) linload will load the image from address 0x10000 to memory 0x10000
14  *     and start the code thru LPSW 0x0008000080010000 (VM only, deprecated)
15  *  3) generate the tape ipl header, store the generated image on a tape
16  *     and ipl from it
17  *     In case of SL tape you need to IPL 5 times to get past VOL1 etc
18  *  4) generate the vm reader ipl header, move the generated image to the
19  *     VM reader (use option NOH!) and do a ipl from reader (VM only)
20  *  5) direct call of start by the SALIPL loader
21  *  We use the cpuid to distinguish between VM and native ipl
22  *  params for kernel are pushed to 0x10400 (see setup.h)
23  *
24  */
25
26 #include <asm/setup.h>
27 #include <asm/lowcore.h>
28 #include <asm/asm-offsets.h>
29 #include <asm/thread_info.h>
30 #include <asm/page.h>
31
32 #ifdef CONFIG_64BIT
33 #define ARCH_OFFSET     4
34 #else
35 #define ARCH_OFFSET     0
36 #endif
37
38 #ifndef CONFIG_IPL
39         .org   0
40         .long  0x00080000,0x80000000+startup   # Just a restart PSW
41 #else
42 #ifdef CONFIG_IPL_TAPE
43 #define IPL_BS 1024
44         .org   0
45         .long  0x00080000,0x80000000+iplstart  # The first 24 bytes are loaded
46         .long  0x27000000,0x60000001           # by ipl to addresses 0-23.
47         .long  0x02000000,0x20000000+IPL_BS    # (a PSW and two CCWs).
48         .long  0x00000000,0x00000000           # external old psw
49         .long  0x00000000,0x00000000           # svc old psw
50         .long  0x00000000,0x00000000           # program check old psw
51         .long  0x00000000,0x00000000           # machine check old psw
52         .long  0x00000000,0x00000000           # io old psw
53         .long  0x00000000,0x00000000
54         .long  0x00000000,0x00000000
55         .long  0x00000000,0x00000000
56         .long  0x000a0000,0x00000058           # external new psw
57         .long  0x000a0000,0x00000060           # svc new psw
58         .long  0x000a0000,0x00000068           # program check new psw
59         .long  0x000a0000,0x00000070           # machine check new psw
60         .long  0x00080000,0x80000000+.Lioint   # io new psw
61
62         .org   0x100
63 #
64 # subroutine for loading from tape
65 # Paramters:    
66 #  R1 = device number
67 #  R2 = load address
68 .Lloader:       
69         st    %r14,.Lldret
70         la    %r3,.Lorbread                    # r3 = address of orb 
71         la    %r5,.Lirb                        # r5 = address of irb
72         st    %r2,.Lccwread+4                  # initialize CCW data addresses
73         lctl  %c6,%c6,.Lcr6               
74         slr   %r2,%r2
75 .Lldlp:
76         la    %r6,3                            # 3 retries
77 .Lssch:
78         ssch  0(%r3)                           # load chunk of IPL_BS bytes
79         bnz   .Llderr
80 .Lw4end:
81         bas   %r14,.Lwait4io
82         tm    8(%r5),0x82                      # do we have a problem ?
83         bnz   .Lrecov
84         slr   %r7,%r7
85         icm   %r7,3,10(%r5)                    # get residual count
86         lcr   %r7,%r7
87         la    %r7,IPL_BS(%r7)                  # IPL_BS-residual=#bytes read
88         ar    %r2,%r7                          # add to total size
89         tm    8(%r5),0x01                      # found a tape mark ?
90         bnz   .Ldone
91         l     %r0,.Lccwread+4                  # update CCW data addresses
92         ar    %r0,%r7
93         st    %r0,.Lccwread+4                
94         b     .Lldlp
95 .Ldone:
96         l     %r14,.Lldret
97         br    %r14                             # r2 contains the total size
98 .Lrecov:
99         bas   %r14,.Lsense                     # do the sensing
100         bct   %r6,.Lssch                       # dec. retry count & branch
101         b     .Llderr
102 #
103 # Sense subroutine
104 #
105 .Lsense:
106         st    %r14,.Lsnsret
107         la    %r7,.Lorbsense              
108         ssch  0(%r7)                           # start sense command
109         bnz   .Llderr
110         bas   %r14,.Lwait4io
111         l     %r14,.Lsnsret
112         tm    8(%r5),0x82                      # do we have a problem ?
113         bnz   .Llderr
114         br    %r14
115 #
116 # Wait for interrupt subroutine
117 #
118 .Lwait4io:
119         lpsw  .Lwaitpsw                 
120 .Lioint:
121         c     %r1,0xb8                         # compare subchannel number
122         bne   .Lwait4io
123         tsch  0(%r5)
124         slr   %r0,%r0
125         tm    8(%r5),0x82                      # do we have a problem ?
126         bnz   .Lwtexit
127         tm    8(%r5),0x04                      # got device end ?
128         bz    .Lwait4io
129 .Lwtexit:
130         br    %r14
131 .Llderr:
132         lpsw  .Lcrash              
133
134         .align 8
135 .Lorbread:
136         .long  0x00000000,0x0080ff00,.Lccwread
137         .align 8
138 .Lorbsense:
139         .long  0x00000000,0x0080ff00,.Lccwsense
140         .align 8
141 .Lccwread:
142         .long  0x02200000+IPL_BS,0x00000000
143 .Lccwsense:
144         .long  0x04200001,0x00000000
145 .Lwaitpsw:
146         .long  0x020a0000,0x80000000+.Lioint
147
148 .Lirb:  .long  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
149 .Lcr6:  .long  0xff000000
150         .align 8
151 .Lcrash:.long  0x000a0000,0x00000000
152 .Lldret:.long  0
153 .Lsnsret: .long 0
154 #endif  /* CONFIG_IPL_TAPE */
155
156 #ifdef CONFIG_IPL_VM
157 #define IPL_BS 0x730
158         .org   0
159         .long  0x00080000,0x80000000+iplstart  # The first 24 bytes are loaded
160         .long  0x02000018,0x60000050           # by ipl to addresses 0-23.
161         .long  0x02000068,0x60000050           # (a PSW and two CCWs).
162         .fill  80-24,1,0x40                    # bytes 24-79 are discarded !!
163         .long  0x020000f0,0x60000050           # The next 160 byte are loaded
164         .long  0x02000140,0x60000050           # to addresses 0x18-0xb7
165         .long  0x02000190,0x60000050           # They form the continuation
166         .long  0x020001e0,0x60000050           # of the CCW program started
167         .long  0x02000230,0x60000050           # by ipl and load the range
168         .long  0x02000280,0x60000050           # 0x0f0-0x730 from the image
169         .long  0x020002d0,0x60000050           # to the range 0x0f0-0x730
170         .long  0x02000320,0x60000050           # in memory. At the end of
171         .long  0x02000370,0x60000050           # the channel program the PSW
172         .long  0x020003c0,0x60000050           # at location 0 is loaded.
173         .long  0x02000410,0x60000050           # Initial processing starts
174         .long  0x02000460,0x60000050           # at 0xf0 = iplstart.
175         .long  0x020004b0,0x60000050
176         .long  0x02000500,0x60000050
177         .long  0x02000550,0x60000050
178         .long  0x020005a0,0x60000050
179         .long  0x020005f0,0x60000050
180         .long  0x02000640,0x60000050
181         .long  0x02000690,0x60000050
182         .long  0x020006e0,0x20000050
183
184         .org   0xf0
185 #
186 # subroutine for loading cards from the reader
187 #
188 .Lloader:       
189         la    %r3,.Lorb                        # r2 = address of orb into r2
190         la    %r5,.Lirb                        # r4 = address of irb
191         la    %r6,.Lccws              
192         la    %r7,20
193 .Linit:
194         st    %r2,4(%r6)                       # initialize CCW data addresses
195         la    %r2,0x50(%r2)
196         la    %r6,8(%r6)
197         bct   7,.Linit
198
199         lctl  %c6,%c6,.Lcr6                    # set IO subclass mask
200         slr   %r2,%r2
201 .Lldlp:
202         ssch  0(%r3)                           # load chunk of 1600 bytes
203         bnz   .Llderr
204 .Lwait4irq:
205         mvc   0x78(8),.Lnewpsw                 # set up IO interrupt psw
206         lpsw  .Lwaitpsw              
207 .Lioint:
208         c     %r1,0xb8                         # compare subchannel number
209         bne   .Lwait4irq
210         tsch  0(%r5)
211
212         slr   %r0,%r0
213         ic    %r0,8(%r5)                       # get device status
214         chi   %r0,8                            # channel end ?
215         be    .Lcont
216         chi   %r0,12                           # channel end + device end ?
217         be    .Lcont
218
219         l     %r0,4(%r5)
220         s     %r0,8(%r3)                       # r0/8 = number of ccws executed
221         mhi   %r0,10                           # *10 = number of bytes in ccws
222         lh    %r3,10(%r5)                      # get residual count
223         sr    %r0,%r3                          # #ccws*80-residual=#bytes read
224         ar    %r2,%r0
225         
226         br    %r14                             # r2 contains the total size
227
228 .Lcont:
229         ahi   %r2,0x640                        # add 0x640 to total size
230         la    %r6,.Lccws             
231         la    %r7,20
232 .Lincr:
233         l     %r0,4(%r6)                       # update CCW data addresses
234         ahi   %r0,0x640
235         st    %r0,4(%r6)
236         ahi   %r6,8
237         bct   7,.Lincr
238
239         b     .Lldlp
240 .Llderr:
241         lpsw  .Lcrash              
242
243         .align 8
244 .Lorb:  .long  0x00000000,0x0080ff00,.Lccws
245 .Lirb:  .long  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
246 .Lcr6:  .long  0xff000000
247 .Lloadp:.long  0,0
248         .align 8
249 .Lcrash:.long  0x000a0000,0x00000000
250 .Lnewpsw:
251         .long  0x00080000,0x80000000+.Lioint
252 .Lwaitpsw:
253         .long  0x020a0000,0x80000000+.Lioint
254
255         .align 8
256 .Lccws: .rept  19
257         .long  0x02600050,0x00000000
258         .endr
259         .long  0x02200050,0x00000000
260 #endif  /* CONFIG_IPL_VM */
261
262 iplstart:
263         lh    %r1,0xb8                         # test if subchannel number
264         bct   %r1,.Lnoload                     #  is valid
265         l     %r1,0xb8                         # load ipl subchannel number
266         la    %r2,IPL_BS                       # load start address
267         bas   %r14,.Lloader                    # load rest of ipl image
268         l     %r12,.Lparm                      # pointer to parameter area
269         st    %r1,IPL_DEVICE+ARCH_OFFSET-PARMAREA(%r12) # save ipl device number
270
271 #
272 # load parameter file from ipl device
273 #
274 .Lagain1:
275         l     %r2,INITRD_START+ARCH_OFFSET-PARMAREA(%r12) # ramdisk loc. is temp
276         bas   %r14,.Lloader                    # load parameter file
277         ltr   %r2,%r2                          # got anything ?
278         bz    .Lnopf
279         chi   %r2,895
280         bnh   .Lnotrunc
281         la    %r2,895
282 .Lnotrunc:
283         l     %r4,INITRD_START+ARCH_OFFSET-PARMAREA(%r12)
284         clc   0(3,%r4),.L_hdr                  # if it is HDRx
285         bz    .Lagain1                         # skip dataset header
286         clc   0(3,%r4),.L_eof                  # if it is EOFx
287         bz    .Lagain1                         # skip dateset trailer
288         la    %r5,0(%r4,%r2)
289         lr    %r3,%r2
290 .Lidebc:
291         tm    0(%r5),0x80                      # high order bit set ?
292         bo    .Ldocv                           #  yes -> convert from EBCDIC
293         ahi   %r5,-1
294         bct   %r3,.Lidebc
295         b     .Lnocv
296 .Ldocv:
297         l     %r3,.Lcvtab
298         tr    0(256,%r4),0(%r3)                # convert parameters to ascii
299         tr    256(256,%r4),0(%r3)
300         tr    512(256,%r4),0(%r3)
301         tr    768(122,%r4),0(%r3)
302 .Lnocv: la    %r3,COMMAND_LINE-PARMAREA(%r12)  # load adr. of command line
303         mvc   0(256,%r3),0(%r4)
304         mvc   256(256,%r3),256(%r4)
305         mvc   512(256,%r3),512(%r4)
306         mvc   768(122,%r3),768(%r4)
307         slr   %r0,%r0
308         b     .Lcntlp
309 .Ldelspc:
310         ic    %r0,0(%r2,%r3)
311         chi   %r0,0x20                         # is it a space ?
312         be    .Lcntlp
313         ahi   %r2,1
314         b     .Leolp
315 .Lcntlp:
316         brct  %r2,.Ldelspc
317 .Leolp:
318         slr   %r0,%r0
319         stc   %r0,0(%r2,%r3)                   # terminate buffer
320 .Lnopf:
321
322 #
323 # load ramdisk from ipl device
324 #       
325 .Lagain2:
326         l     %r2,INITRD_START+ARCH_OFFSET-PARMAREA(%r12) # addr of ramdisk
327         bas   %r14,.Lloader                    # load ramdisk
328         st    %r2,INITRD_SIZE+ARCH_OFFSET-PARMAREA(%r12) # store size of ramdisk
329         ltr   %r2,%r2
330         bnz   .Lrdcont
331         st    %r2,INITRD_START+ARCH_OFFSET-PARMAREA(%r12) # no ramdisk found
332 .Lrdcont:
333         l     %r2,INITRD_START+ARCH_OFFSET-PARMAREA(%r12)
334
335         clc   0(3,%r2),.L_hdr                  # skip HDRx and EOFx 
336         bz    .Lagain2
337         clc   0(3,%r2),.L_eof
338         bz    .Lagain2
339
340 #ifdef CONFIG_IPL_VM
341 #
342 # reset files in VM reader
343 #
344         stidp __LC_CPUID                       # store cpuid
345         tm    __LC_CPUID,0xff                  # running VM ?
346         bno   .Lnoreset
347         la    %r2,.Lreset              
348         lhi   %r3,26
349         diag  %r2,%r3,8
350         la    %r5,.Lirb
351         stsch 0(%r5)                           # check if irq is pending
352         tm    30(%r5),0x0f                     # by verifying if any of the
353         bnz   .Lwaitforirq                     # activity or status control
354         tm    31(%r5),0xff                     # bits is set in the schib
355         bz    .Lnoreset
356 .Lwaitforirq:
357         mvc   0x78(8),.Lrdrnewpsw              # set up IO interrupt psw
358 .Lwaitrdrirq:
359         lpsw  .Lrdrwaitpsw
360 .Lrdrint:
361         c     %r1,0xb8                         # compare subchannel number
362         bne   .Lwaitrdrirq
363         la    %r5,.Lirb
364         tsch  0(%r5)
365 .Lnoreset:
366         b     .Lnoload
367
368         .align 8
369 .Lrdrnewpsw:
370         .long  0x00080000,0x80000000+.Lrdrint
371 .Lrdrwaitpsw:
372         .long  0x020a0000,0x80000000+.Lrdrint
373 #endif
374
375 #
376 # everything loaded, go for it
377 #
378 .Lnoload:
379         l     %r1,.Lstartup
380         br    %r1
381
382 .Lparm: .long  PARMAREA
383 .Lstartup: .long startup
384 .Lcvtab:.long  _ebcasc                         # ebcdic to ascii table
385 .Lreset:.byte  0xc3,0xc8,0xc1,0xd5,0xc7,0xc5,0x40,0xd9,0xc4,0xd9,0x40
386         .byte  0xc1,0xd3,0xd3,0x40,0xd2,0xc5,0xc5,0xd7,0x40,0xd5,0xd6
387         .byte  0xc8,0xd6,0xd3,0xc4             # "change rdr all keep nohold"
388 .L_eof: .long  0xc5d6c600       /* C'EOF' */
389 .L_hdr: .long  0xc8c4d900       /* C'HDR' */
390
391 #endif  /* CONFIG_IPL */
392
393 #
394 # SALIPL loader support. Based on a patch by Rob van der Heij.
395 # This entry point is called directly from the SALIPL loader and
396 # doesn't need a builtin ipl record.
397 #
398         .org  0x800
399         .globl start
400 start:
401         stm   %r0,%r15,0x07b0           # store registers
402         basr  %r12,%r0
403 .base:
404         l     %r11,.parm
405         l     %r8,.cmd                  # pointer to command buffer
406
407         ltr   %r9,%r9                   # do we have SALIPL parameters?
408         bp    .sk8x8
409
410         mvc   0(64,%r8),0x00b0          # copy saved registers
411         xc    64(240-64,%r8),0(%r8)     # remainder of buffer
412         tr    0(64,%r8),.lowcase        
413         b     .gotr
414 .sk8x8:
415         mvc   0(240,%r8),0(%r9)         # copy iplparms into buffer
416 .gotr:
417         l     %r10,.tbl                 # EBCDIC to ASCII table
418         tr    0(240,%r8),0(%r10)
419         stidp __LC_CPUID                # Are we running on VM maybe
420         cli   __LC_CPUID,0xff
421         bnz   .test
422         .long 0x83300060                # diag 3,0,x'0060' - storage size
423         b     .done
424 .test:
425         mvc   0x68(8),.pgmnw            # set up pgm check handler
426         l     %r2,.fourmeg
427         lr    %r3,%r2
428         bctr  %r3,%r0                   # 4M-1
429 .loop:  iske  %r0,%r3
430         ar    %r3,%r2
431 .pgmx:
432         sr    %r3,%r2
433         la    %r3,1(%r3)
434 .done:
435         l     %r1,.memsize
436         st    %r3,ARCH_OFFSET(%r1)
437         slr   %r0,%r0
438         st    %r0,INITRD_SIZE+ARCH_OFFSET-PARMAREA(%r11)
439         st    %r0,INITRD_START+ARCH_OFFSET-PARMAREA(%r11)
440         j     startup                   # continue with startup
441 .tbl:   .long _ebcasc                   # translate table
442 .cmd:   .long COMMAND_LINE              # address of command line buffer
443 .parm:  .long PARMAREA
444 .memsize: .long memory_size
445 .fourmeg: .long 0x00400000              # 4M
446 .pgmnw: .long 0x00080000,.pgmx
447 .lowcase:
448         .byte 0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07 
449         .byte 0x08,0x09,0x0a,0x0b,0x0c,0x0d,0x0e,0x0f
450         .byte 0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17 
451         .byte 0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f
452         .byte 0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27 
453         .byte 0x28,0x29,0x2a,0x2b,0x2c,0x2d,0x2e,0x2f
454         .byte 0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37 
455         .byte 0x38,0x39,0x3a,0x3b,0x3c,0x3d,0x3e,0x3f
456         .byte 0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47 
457         .byte 0x48,0x49,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f
458         .byte 0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57 
459         .byte 0x58,0x59,0x5a,0x5b,0x5c,0x5d,0x5e,0x5f
460         .byte 0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67 
461         .byte 0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f
462         .byte 0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77 
463         .byte 0x78,0x79,0x7a,0x7b,0x7c,0x7d,0x7e,0x7f
464
465         .byte 0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87 
466         .byte 0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8e,0x8f
467         .byte 0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97 
468         .byte 0x98,0x99,0x9a,0x9b,0x9c,0x9d,0x9e,0x9f
469         .byte 0xa0,0xa1,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7 
470         .byte 0xa8,0xa9,0xaa,0xab,0xac,0xad,0xae,0xaf
471         .byte 0xb0,0xb1,0xb2,0xb3,0xb4,0xb5,0xb6,0xb7 
472         .byte 0xb8,0xb9,0xba,0xbb,0xbc,0xbd,0xbe,0xbf
473         .byte 0xc0,0x81,0x82,0x83,0x84,0x85,0x86,0x87   # .abcdefg 
474         .byte 0x88,0x89,0xca,0xcb,0xcc,0xcd,0xce,0xcf   # hi
475         .byte 0xd0,0x91,0x92,0x93,0x94,0x95,0x96,0x97   # .jklmnop
476         .byte 0x98,0x99,0xda,0xdb,0xdc,0xdd,0xde,0xdf   # qr
477         .byte 0xe0,0xe1,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7   # ..stuvwx
478         .byte 0xa8,0xa9,0xea,0xeb,0xec,0xed,0xee,0xef   # yz
479         .byte 0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7 
480         .byte 0xf8,0xf9,0xfa,0xfb,0xfc,0xfd,0xfe,0xff
481
482 .macro GET_IPL_DEVICE
483 .Lget_ipl_device:
484         l     %r1,0xb8                  # get sid
485         sll   %r1,15                    # test if subchannel is enabled
486         srl   %r1,31
487         ltr   %r1,%r1
488         bz    2f-.LPG1(%r13)            # subchannel disabled
489         l     %r1,0xb8
490         la    %r5,.Lipl_schib-.LPG1(%r13)
491         stsch 0(%r5)                    # get schib of subchannel
492         bnz   2f-.LPG1(%r13)            # schib not available
493         tm    5(%r5),0x01               # devno valid?
494         bno   2f-.LPG1(%r13)
495         la    %r6,ipl_parameter_flags-.LPG1(%r13)
496         oi    3(%r6),0x01               # set flag
497         la    %r2,ipl_devno-.LPG1(%r13)
498         mvc   0(2,%r2),6(%r5)           # store devno
499         tm    4(%r5),0x80               # qdio capable device?
500         bno   2f-.LPG1(%r13)
501         oi    3(%r6),0x02               # set flag
502
503         # copy ipl parameters
504
505         lhi   %r0,4096
506         l     %r2,20(%r0)               # get address of parameter list
507         lhi   %r3,IPL_PARMBLOCK_ORIGIN
508         st    %r3,20(%r0)
509         lhi   %r4,1
510         cr    %r2,%r3                   # start parameters < destination ?
511         jl    0f
512         lhi   %r1,1                     # copy direction is upwards
513         j     1f
514 0:      lhi   %r1,-1                    # copy direction is downwards
515         ar    %r2,%r0
516         ar    %r3,%r0
517         ar    %r2,%r1
518         ar    %r3,%r1
519 1:      mvc   0(1,%r3),0(%r2)           # finally copy ipl parameters
520         ar    %r3,%r1
521         ar    %r2,%r1
522         sr    %r0,%r4
523         jne   1b
524         b     2f-.LPG1(%r13)
525
526         .align 4
527 .Lipl_schib:
528         .rept 13
529         .long 0
530         .endr
531
532         .globl ipl_parameter_flags
533 ipl_parameter_flags:
534         .long 0
535         .globl ipl_devno
536 ipl_devno:
537         .word 0
538 2:
539 .endm
540
541 #ifdef CONFIG_64BIT
542 #include "head64.S"
543 #else
544 #include "head31.S"
545 #endif