*****************************************************************       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