/* $Header:lps.s 12.0$ */
/* $ACIS:lps.s 12.0$ */
/* $Source: /ibm/acis/usr/sys/standca/RCS/lps.s,v $ */

	.data
rcsid:	.asciz	"$Header:lps.s 12.0$"
	.text

/*
 * 5799-WZQ (C) COPYRIGHT IBM CORPORATION 1986
 * LICENSED MATERIALS - PROPERTY OF IBM
 * REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083
 */
#include "asm.h"
 #
 # routine to do a lps to get off of program check or 
 # machine check level
 #
eye_profil(lps):
	bali	r3,1f		 # establish addressing
1:	.using	1b,r3
	st	r15,do_lps
	mfs	r14,r0		 # get current ics
	oi	r0,r0,0x180	 # make sure interrupts inhibited etc.
	sth	r0,do_lps+4	 # so that lps will restore it
	lps	0,do_lps

	.align	2
do_lps:
	.int	0
	.int	0x0180, 0x0000
