# HG changeset patch # User Josef 'Jeff' Sipek # Date 1301939795 14400 # Node ID 039a93c48889610293ec10f7e84b8ec8982841bf # Parent d24d69066fc024d4e80533e96bfdcaeb53b45d60 ipl: wait for unit exception to indicate end of medium diff -r d24d69066fc0 -r 039a93c48889 hercules/herc.cnf --- a/hercules/herc.cnf Sun Mar 13 21:10:35 2011 -0400 +++ b/hercules/herc.cnf Mon Apr 04 13:56:35 2011 -0400 @@ -15,4 +15,4 @@ # V V V #--- ---- -------------------- 0009 3215 -000C 3505 ../loader.bin ../sarpn ebcdic multifile intrq +000C 3505 ../loader.bin ../sarpn ebcdic multifile eof diff -r d24d69066fc0 -r 039a93c48889 ipl/loader_asm.S --- a/ipl/loader_asm.S Sun Mar 13 21:10:35 2011 -0400 +++ b/ipl/loader_asm.S Mon Apr 04 13:56:35 2011 -0400 @@ -58,9 +58,9 @@ 13) If device end : I/O Completed.. Perform post I/O stuff (like advancing your pointers) and back to step 3 */ - # unit check? (end of media?) + # unit exception? (end of media?) L %r1,IRB+5(%r4) - LA %r0,0x02 + LA %r0,0x01 NR %r0,%r1 LA %r2,1 # return 1 - end of medium BCR 4,%r14 # unit chk => return