File ABKLSI.2

Directory of image this file is from
This file as a plain text file

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. DER ERG. IN FELD2


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
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
	MAXX
AB4,	TERM2

	ISZ PN
	SKP
	ISZ PN+1
	JMP I ABKLSI

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

PSIN,	5;0
PEXP,	25;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
MAXX,	5;2400;0


*4000

/CIF 20
/JMS SRFIX
/ADR. OF FLOAT. NUMBER IN FIELD 2
/ADR. OF MAX. FLOAT. NUMBER IN FIELD 2
/ADR. OF FIXED 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

	CDF 20

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

P3777,	13;3777;0
SRFP1,	0
SRFP2,	0
SRFP3,	0




Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search