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