PAGE
FIELD 1

*7400

/JMS ABKLSI	/ERZEUGUNG EINES ABKLINGENDEN SINUS
/ADR. DER ZEITKONST. DES SINUS
/ADR. DER ZEITKONST. DER EXP.FUNKTION
/ADR. DES AMPLITUDENFAKTORS
/ADR. DES ERG.


ABKLSI,	0
	CLA
	TAD I ABKLSI
	DCA AB1
	ISZ ABKLSI
	TAD I ABKLSI
	DCA AB2
	ISZ ABKLSI
	TAD I ABKLSI
	DCA AB3
	ISZ ABKLSI
	TAD I ABKLSI
	DCA AB4
	ISZ ABKLSI

	INBLIP
	BLOTNT
	ABKLNT

	CIF 20
	JMS NORMD
	PN
	PN3

	CIF 20
	JMS NORMD
AB1,	PSIN
	PSIN3

	CIF 20
	JMS NORMD
AB2,	PEXP
	PEXP3

	CIF 20
	JMS NORMD
AB3,	PAMP
	PAMP3

	CIF 20
	JMS DIVIDR
	PN3
	PSIN3
	ARG1

	CIF 20
	JMS DIVIDR
	PN3
	PEXP3
	ARG2

	CIF 20
	JMS FUNCSR
	FSIN
	ARG1
	ARG1

	CIF 20
	JMS FUNCSR
	FEXP
	ARG2
	ARG2

	CIF 20
	JMS DIVIDR
	PAMP3
	ARG2
	TERM1

	CIF 20
	JMS SRMUY
	TERM1
	ARG1
	TERM1

	CIF 20
	JMS SRFIX
	TERM1
	PAMP3
	PAMP3
AB5,	TERM2

	CDF 20
	TAD I AB5
	CDF 10
	DCA I AB4

	ISZ PN
	SKP
	ISZ PN+1
	JMP I ABKLSI

ABKLNT,	CLA
	DCA PN
	DCA PN+1
	JMP I ABKLSI

AB4,	0
PSIN,	5;0
PEXP,	31;0
PAMP,	14;0
PN,	0;0




FIELD 2
*140

PN3,	0;0;0
PSIN3,	0;0;0
PEXP3,	0;0;0
PAMP3,	0;0;0
ARG1,	0;0;0
ARG2,	0;0;0
TERM1,	0;0;0
TERM2,	0;0;0


*4000

/CIF 20
/JMS SRFIX
/ADR. OF FLOAT. NUMBER IN FIELD 2
/ADR. OF MAX. FLOAT. NUMBER IN FIELD 2
/ADR. OF SCALE-FACTOR IN FIELD 2
/ADR. OF FIXED AND SCALED NUMBER IN FIELD 2


SRFIX,	0
	CLA
	TAD I SRFIX
	DCA SRFP1
	ISZ SRFIX
	TAD I SRFIX
	DCA SRFP2
	ISZ SRFIX
	TAD I SRFIX
	DCA SRFP3
	ISZ SRFIX
	TAD I SRFIX
	DCA SRFP4
	ISZ SRFIX

	CDF 20

	ENTF
	FGET I SRFP1
	FDIV I SRFP2
	FMPY I SRFP3
	FFIX
	FPUT I SRFP4
	FEXT
	
	CDF CIF 10
	JMP I SRFIX

SRFP4,	0
SRFP1,	0
SRFP2,	0
SRFP3,	0