INS 5/2 ;05C1 ;017 1025 JEH If CORPT. zero, don't try to free core INS 16/23 ;05C2 SKIPN CORPT. ;[1025] IS THERE ANY FREE CORE? JRST FUNST0 ;[1025] NO SUM 15781