From:	SMTP%"everhart@star.zko.dec.com" 11-OCT-1996 19:10:33.53
To:	EVERHART
CC:	
Subj:	FP save/restore for alpha, example.

Date: Fri, 11 Oct 1996 16:44:36 -0400
Message-Id: <96101116443635@star.zko.dec.com>
From: everhart@star.zko.dec.com (Glenn C. Everhart 603 881 1497)
To: everhart@gce.com
Subject: FP save/restore for alpha, example.
X-Vms-To: SMTP%"everhart@gce.com"

              <<< VAXAXP::NOTES$:[NOTES$LIBRARY]VMSNOTES.NOTE;1 >>>
               -< VAX and Alpha VMS - Digital Internal Use Only >-
================================================================================
Note 1499.9            Floating Point exception examples?                9 of 13
ZIMBRA::BERNARDO "Dave Bernardo, VMS Engineering"    72 lines   8-OCT-1996 14:06
                            -< will the stack do? >-
--------------------------------------------------------------------------------
SAVE_FLOAT:
          
	LDA	SP,-<32*8>(SP)		; Reserve aligned storage

	STT	F0,<0*8>(SP)
	STT	F1,<1*8>(SP)
	STT	F2,<2*8>(SP)
	STT	F3,<3*8>(SP)
	STT	F4,<4*8>(SP)
	STT	F5,<5*8>(SP)
	STT	F6,<6*8>(SP)
	STT	F7,<7*8>(SP)
	STT	F8,<8*8>(SP)
	STT	F9,<9*8>(SP)
	STT	F10,<10*8>(SP)
	STT	F11,<11*8>(SP)
	STT	F12,<12*8>(SP)
	STT	F13,<13*8>(SP)
	STT	F14,<14*8>(SP)
	STT	F15,<15*8>(SP)
	STT	F16,<16*8>(SP)
	STT	F17,<17*8>(SP)
	STT	F18,<18*8>(SP)
	STT	F19,<19*8>(SP)
	STT	F20,<20*8>(SP)
	STT	F21,<21*8>(SP)
	STT	F22,<22*8>(SP)
	STT	F23,<23*8>(SP)
	STT	F24,<24*8>(SP)
	STT	F25,<25*8>(SP)
	STT	F26,<26*8>(SP)
	STT	F27,<27*8>(SP)
	STT	F28,<28*8>(SP)
	STT	F29,<29*8>(SP)
	STT	F30,<30*8>(SP)

RESTORE_FLOAT:

	LDT	F0,<0*8>(SP)
	LDT	F1,<1*8>(SP)
	LDT	F2,<2*8>(SP)
	LDT	F3,<3*8>(SP)
	LDT	F4,<4*8>(SP)
	LDT	F5,<5*8>(SP)
	LDT	F6,<6*8>(SP)
	LDT	F7,<7*8>(SP)
	LDT	F8,<8*8>(SP)
	LDT	F9,<9*8>(SP)
	LDT	F10,<10*8>(SP)
	LDT	F11,<11*8>(SP)
	LDT	F12,<12*8>(SP)
	LDT	F13,<13*8>(SP)
	LDT	F14,<14*8>(SP)
	LDT	F15,<15*8>(SP)
	LDT	F16,<16*8>(SP)
	LDT	F17,<17*8>(SP)
	LDT	F18,<18*8>(SP)
	LDT	F19,<19*8>(SP)
	LDT	F20,<20*8>(SP)
	LDT	F21,<21*8>(SP)
	LDT	F22,<22*8>(SP)
	LDT	F23,<23*8>(SP)
	LDT	F24,<24*8>(SP)
	LDT	F25,<25*8>(SP)
	LDT	F26,<26*8>(SP)
	LDT	F27,<27*8>(SP)
	LDT	F28,<28*8>(SP)
	LDT	F29,<29*8>(SP)
	LDT	F30,<30*8>(SP)

	LDA	SP,<32*8>(SP)		; Restore stack pointer

