/NAME: "DA"  "D^100+"A&3777
/J.M.SCHIPPER,EMG.
/DIJKZIGT,ROTTERDAM
/DATE:04/07/75

/THIS MODULE DISPLAYS SOME ANALOGE SIGNALS
/ON THE 603 X-Y SCOPE

/ "DA" IS ONLY CALLED FROM THE BACKGROUND BY:
/	CDF TO ARRAY FIELD
/	TAD (6	INDICATES "DA"
/	6770	GIANT IOT
/****	RETURN HERE!!
/ARG1,	FUNC.WORD
/ARG2,	OFFSET		-777<OFFSET<777
/ARG3,	BUFF. ADDRESS	OR X-OFFSET

/FUNC.WORD:
/BITS	3-5	PAGES TO DISPLAYED  0=8 PAGES
/BITS	9-11	FUNCTIONS

/FUNCTIONS:
/0=	DISPLAY AN ARRAY WITH A LENGTH OF N PAGES
/	N=MAX 8 (BITS 3-5=0) THIS ARRAY IS SPREAD OVER 2000 PTS
/	THE INTERVALS ARE INTERPOLATED. BUF.ADDRESS IN ARG3
/1=	X-MARK	0<X<2000	IN ARG3; ARG2=Y-OFFSET
/2=	Y-MARK	0<Y<2000	IN ARG3; ARG2=XOFFSET
/3=	BASE LINE X =ARG2
/4=	BASE LINE Y= ARG2
/5=	TIMEHISTOGRAM
/THE BG TAKES CARE OF ERASE STORE AND NONSTORE SETTING

DILX=6053
DILY=6054
DIXY=6055
DILE=6056

XINCR=ZTEM1
FUNCT=ZTEM2
OFFST=ZTEM3
CNT=ZTEM4
DAUPC=ZTEM5
XREG=ZTEM6
T
/DEFINE:
EAE=1

SWBA1
DVI=7407
*200
	"D^00		/ 2 PAGES
FTABLE,	.ARK
	XLINE
	YLINE
	TIMHIS
	SWAP
DASWAP,	SWAP
INTSFY,	INTENS
PNT,	0

ENTRY,	SMA		/AC=BJOB
	 JMP I DASWAP	/SOMEONE TRIES TO RUN THIS MODULE
	TAD C3
	DCA DAUPC	/POINTS TO USER SAVE TABLE
	TAD DAUPC
	DCA PN
	AND C70
	TAD C6201	/MNG INSTR FIELD
	DCA DAF FROM THE CALL FIELD
	TRAL
	RTL
	TAD C6201	/GET ARRAY FIELD
	DCA DABFLD
	ISZ PNT
	DCA I PNT	/CLEAR USER AC
	TAD I DAUPC
	IAC
	DCA FUNCT	/FUNC ADDRESS
	TAD FUNCT
	IAC
	DCA OFFST	/OFFSET ADDRESS
	TAD OFFST	/ARRAY ADDRESS
	IAC
DAFFLD,	  HLT		/OVERLAYED BY CDF CALL FIELD
	JMS DEFER	/MEANS: DCA X;TAD I X _ ARRAY POINTER
	DCA PNT
	TAD I FUNCT
	DCA FUNCT	/FUNC.WORD
	TAD I OFFST
	DCA OFFST	/OFFSET
	TAD FUNCT
	AND C7
	TAD FTABLE	/MASK  FUNC ADD TABLE POINTER
	CDTOIF
	JMS DEFER
	DCA ZTEM1	/FUNC ADDRESS
	JMP I ZTEM1	/GO
DASIGN,	TAD FUNCT
	AND (700	/MASK # OF PAGES
	SNA		/ ZERO ?
	TAD (1000	/YES - SET 8 PAGES
	CLL CIA RAL		/-WORDS*2
	DCA CNT		/BUFFER LENGTH IN WORDS
IFNDEF EAE<
	DCA XINCR
	STL RTR		/2000 POINTS MAX
	TAD CNT		/DIV BY LENGTH = XINCREMENTS
	SPA
	 JMP .+3
	ISZ XINCR
	 JMP .-4
	CLA	>
IFDEF EAE<
	SWBA
	STL RTR
	MQL
	TAD CNT
	CIA
	DCA DIVDR1
	DVI
DIVDR1,	 0
	ACL
	DCA XINCR	>
	TAD XINCR
	CIA
	DCA XINCR	/XINCR:=-XINCR
	TAD C7000	/-1000
	DLD,	  HLT		/OVERLAYED BY1,	TAD I PNT	/GET FIRST  TO NEXT ONE
	DCA S1		/NCR
	DCA INPCNT	/# OF INTERVALS BETWEEN ARRAY POINTS
	TAD S1		/DISPLAY OLD POINT
	TAD OFFST	/ Y SHIFT ON DISPLAY
	JMS I INTSFY	/WRITE A POINT
	TAD I PNT	/GET NEXT POINT, A NEW ONE
	CIA
	TAD S1		/S2-S1 DIFFEREN	DCA S2MS1
	TAD S2MS1	/
	ACM1		/YES SET AC=-1C=0 AND STORE IN TEMP
I/CLEAR YINCR
	TAD S2MS1
	SPA
	 CIA		/ /S2-S1/
	TAD XINCR	/YINCR:=ENT[(/S2-S1/)/XINCR]
	SPA
	 JMP .+3
	ISZ YINCR
	 JMP .-4
	CLA	>
IFDEF EAE<
	TAD S2MS1
	SPA
	 CIA
	MQL
	TAD XINCR
	CIA
	DCA DIVDR2
	DVI
DIVDR2,	 0
	ACL
	DCA YINCR
	TAD YINCR	/YINCR:=-YINCR IF S2-S1<0
	ISZ TEMP
	CIA
	DCA YINCR
	JMP DAS2
DAS3,	TAD YREG	/DISPLAY INTERVAL POINTS
	TAD YINCR
	JMS I INTSFY
DAS2,	ISZ INPCNT
	  JMP DAS3
DAS4,	ISZ CNT
	  JMP DAS1	/BUFFER NOT DONE
DAEXIT,	JMS MONITOR
	 EXIT RELEASE

INPCNT,	0
S1,	0
S2MS1,	0
YINCR,	0
PAGE
DAEXT,	DAEXIT		/INDIRECT REFERENS TABLE
DAPNT,	PNT
IDABFLD,DABFLD
CNT1,	0

XLINE,	TAD (DILX	/DISPLAY A ZERO LINE Y=OFFSET
	DCA DIL1
	TAD (DILY
	DCA DIL2
	JMP LINE
YLINE,	TAD (DILY	/DISPLAY A ZERO LINE X=OFFSET
	DCA DIL1
	TAD (DILX
	DCA DIL2
LINE,	TAD M400
	DCA CNT
	TAD M1000	/-1000
	DCA XREG
	TAD OFFST
DIL1,	DILY
	CLA
XLIN,	TAD XREG
	TAD C4
DIL2,	DILX
	DCA XREG
	JMS WACHT
	DIXY
	JMS WACHT
	ISZ CNTT

XMARK,	TAD (DILX
	MP MARK
YMARK,	TAD (DIL
MARK,	DCA MRK2
	TAD I0
MRK1,	DILY
	CLA
	TAD (-20
	DCA CNT
	TAD (-20
	TAD OFFST
	DCA XREG
MRK,	AC0002
	TAD XREG
MRK2,	DILX
	DCA XREG
	JMS WACHT
	DIXY
	JMS WACHT
	ISZ CNT	/END OF BUFFER ?
	JMP MRK
	JMP I DAEXT

INTENS,	D XREG
	DILX
	IAC
	DCY
	JMS WACHT
	JMP I IN10
	DCA ZTEM7
	ISZ ZTEHT

EJECT
TIMHIS,	TAD FUNCT
	AND (700
	SNA
	 TAD (1000
	CLL CIA RAL
	DCA CNT1
IFNDEF EAE<
	DCA XINCR
	STL RTR
	TAD CNT1
	SPA
	 JMP .+3
	ISZ XINCR
	JMP .-4
	CLA	>
IFDEF EAE<
	STL RTR
	MQL
	TAD CNT1
	CIA
	DCA DIVDR3
	DVI
DIVDR3,	 0
	ACL
	DCA XINCR	>
	TAD I DAPNT
	DCA AUTO10
	TAD I IDABFLD
	DCA .+1
	0
	TAD M1000
	DCA XREG
TIMH1,	TAD OFFST
	DCA YREG
	TAD XINCR
	TAD XREG
	DILX
	DCA XREG
	TAD I AUTO10
	CMA
	DCA CNT
	TAD YREG
	IAC
	DILY
	DCA YREG
	DIXY
	JMS WACHT
	ISZ CNT
	  JMP .-7
	ISZ CNT1
	  JMP TIMH1
	JMP I DAEXT

SWAP,	JMS MONITOR
	   RETURN+CLEAR+SWPOUT

	$-$-$