INS 46/52 ;11C1
;**;[1242]Add 4 lines at GETO.0:+20L JCR 4/16/85
MOVX S2,OBSIBM ;[1242]Get the IBM object bit
LOAD S1,NETSTS(P2),NETIBM ;[1242]Get the IBM node bit
SKIPE S1 ;[1242]Is this an IBM node
IORM S2,OBJSCH(AP) ;[1242]Yes, lite the IBM object bit
SUM 258873