***************************************************************** 00050000 * THIS IQARIHOO MODULE IS A MODIFIED VERSION WHICH IS USED IN * 00100000 * SYSTEMS WHERE THE DSS FUNCTION IS REMOVED, I.E. WITH THE * 00150000 * FIRST RELEASE OF THE PLR (3.8). THIS MODIFIED VERSION IS * 00200000 * NEEDED TO ALLOW RE-INSTALLATION OF DSS. THE MODIFICATION * 00250000 * CONSISTS OF RESETTING LOC. X'279' IN THE NUCLEUS TO ZERO, * 00300000 * THEN RETURN WITH A BR14. * 00350000 * * 00400000 ***************************************************************** 00450000 IHAPSA 00500000 IQARIH00 CSECT 00550000 USING PSA,0 00600000 USING IQARIH00,15 00650000 MVI PSADSSGO,DSSGOCLR 00700000 SR 15,15 00750000 BR 14 00800000 DSSGOCLR EQU X'00' 00850000 END 00900000