|
@@ -287,19 +287,7 @@ iplstart:
|
|
|
bz .Lagain1 # skip dateset trailer
|
|
|
la %r5,0(%r4,%r2)
|
|
|
lr %r3,%r2
|
|
|
-.Lidebc:
|
|
|
- tm 0(%r5),0x80 # high order bit set ?
|
|
|
- bo .Ldocv # yes -> convert from EBCDIC
|
|
|
- ahi %r5,-1
|
|
|
- bct %r3,.Lidebc
|
|
|
- b .Lnocv
|
|
|
-.Ldocv:
|
|
|
- l %r3,.Lcvtab
|
|
|
- tr 0(256,%r4),0(%r3) # convert parameters to ascii
|
|
|
- tr 256(256,%r4),0(%r3)
|
|
|
- tr 512(256,%r4),0(%r3)
|
|
|
- tr 768(122,%r4),0(%r3)
|
|
|
-.Lnocv: la %r3,COMMAND_LINE-PARMAREA(%r12) # load adr. of command line
|
|
|
+ la %r3,COMMAND_LINE-PARMAREA(%r12) # load adr. of command line
|
|
|
mvc 0(256,%r3),0(%r4)
|
|
|
mvc 256(256,%r3),256(%r4)
|
|
|
mvc 512(256,%r3),512(%r4)
|
|
@@ -383,7 +371,6 @@ iplstart:
|
|
|
.Linitrd:.long _end + 0x400000 # default address of initrd
|
|
|
.Lparm: .long PARMAREA
|
|
|
.Lstartup: .long startup
|
|
|
-.Lcvtab:.long _ebcasc # ebcdic to ascii table
|
|
|
.Lreset:.byte 0xc3,0xc8,0xc1,0xd5,0xc7,0xc5,0x40,0xd9,0xc4,0xd9,0x40
|
|
|
.byte 0xc1,0xd3,0xd3,0x40,0xd2,0xc5,0xc5,0xd7,0x40,0xd5,0xd6
|
|
|
.byte 0xc8,0xd6,0xd3,0xc4 # "change rdr all keep nohold"
|
|
@@ -416,13 +403,10 @@ start:
|
|
|
.sk8x8:
|
|
|
mvc 0(240,%r8),0(%r9) # copy iplparms into buffer
|
|
|
.gotr:
|
|
|
- l %r10,.tbl # EBCDIC to ASCII table
|
|
|
- tr 0(240,%r8),0(%r10)
|
|
|
slr %r0,%r0
|
|
|
st %r0,INITRD_SIZE+ARCH_OFFSET-PARMAREA(%r11)
|
|
|
st %r0,INITRD_START+ARCH_OFFSET-PARMAREA(%r11)
|
|
|
j startup # continue with startup
|
|
|
-.tbl: .long _ebcasc # translate table
|
|
|
.cmd: .long COMMAND_LINE # address of command line buffer
|
|
|
.parm: .long PARMAREA
|
|
|
.lowcase:
|