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