[pdp8.git] / sw / f4 / FRTSRC / realtm.ra

/ A-D CLOCKED, BUFFERED SAMPLING ROUTINE
/
/ VERSION 5A 4-27-77  PT
/
	ADSK=6534
	ADRB=6533
	ADST=6532
	ADLM=6531
	ADLE=6536
	ADCL=6530
	CLZE=6130
	ESF=4
	LINC=6141
	PDP=2
	SAM=100
	CLEN=6134
	FIELD1	SAMPLE
	0			/INTERRUPT TIME AD SAMPLER
	IFNSW	8 <
	JMS	LNCSAM		/INITIATE SAMPLE
NEXTCH,	ISZ	SAMINS		/UPDATE SAM INST FOR NEXT CHAN
	JMS	LNCSAM		/SAM AND INITIATE NEXT CHANNEL
	>
	TAD	SAMPTR		/SAVE THE OLD SAM BUFFER POINTER
	DCA	OLDPTR
	TAD	BUFFLD		/AND THE FIELD
	DCA	OLDFLD
	ISZ	SAMPTR		/BUMP BUFFER POINTER
	JMP	FLDOK		/FIELD IS OK
	TAD	BUFFLD		/BUMP FIELD
	TAD	L10
	DCA	BUFFLD
FLDOK,	ISZ	SAMCNT		/BUMP BUFFER COUNT
	JMP	BUFFLD		/NOT END OF BUFFER
	TAD	ARRAY+2		/RESET POINTER TO START OF BUFFER
	DCA	SAMPTR
	TAD	FLDBUF		/RESET BUFFER FIELD
	DCA	BUFFLD
	TAD	BUFSIZ		/RESET COUNT
	DCA	SAMCNT
BUFFLD,	HLT			/GET FIELD OF NEW ADB STOP CODE
	TAD%	SAMPTR		/IS THIS THE SAM STOP CODE ?
	TAD	M3776		/(ILLEGAL AS A SAMPLE)
	SZA CLA
	JMP	NOERR
	ISZ	TOOFAS		/SET TOO FAST SWITCH
SAMPLD,	CDF	10
	DCA%	XCLINT+1	/STOP SAMPLING
	JMP%	SAMPLE
NOERR,	CLL CMA RAR		/SET ADB STOP CODE
	DCA%	SAMPTR
OLDFLD,	HLT			/GET TO FIELD OF SAMPLE
	IFSW	8 <
	ADRB			/READ SAMPLE
	>
	IFNSW	8 <
	TAD	SAMTMP		/GET PREVIOUSLY READ SAMPLE
	>
	DCA%	OLDPTR		/INTO BUFFER
	ISZ	NPOINT+2	/ANY MORE SAMPLES
	SKP			/YES
	ISZ	NPOINT+1	/MORE THAN 7777 ?
	SKP			/YES
	JMP	SAMPLD		/NO
	ISZ	NCHANL+1	/ANY MORE CHANNELS TO SAMPLE ?
	JMP	NEXTCH		/YES GO START SAMPLING
	TAD	CSTART+2	/STARTING CHANNEL
	IFSW	8 <
	ADLM
	>
	IFNSW	8 <
	DCA	SAMINS
	JMS	LNCSAM		/SET CHANNEL TO START
				/IN CASE CLOCK INITIATED
	>
	TAD	NCHANL+2	/NUMBER OF CHANNELS
	DCA	NCHANL+1	/INTO COUNTER
	CDF	10
	JMP%	SAMPLE
	IFSW	8 <
NEXTCH,	ADST			/SAMPLE NEXT CHANNEL
	ADSK			/WAIT FOR SAMPLE
	JMP	.-1
	JMP	SAMPLE+1
	>
	IFNSW	8 <
LNCSAM,	0			/LINC SAM SUBROUTINE
	LINC
SAMINS,	SAM	0		/SAMPLE AND SELECT NEXT CHANNEL
	PDP
	DCA	SAMTMP		/SAVE IT
	JMP%	LNCSAM
	>
ADSETU,	0			/SET UP ROUTINE
	DCA	TOOFAS		/CLEAR TOO FAST SWITCH
	TAD	ARRAY+1		/GET FIELD OF BUFFER
	AND	L7
	CLL RTL
	RAL
	TAD	CDF0
	DCA	FLDBUF
	TAD	FLDBUF
	DCA	BUFFLD		/SAVE IN SAMPLER CODE
	TAD	ARRAY+2		/SET SAMPLER BUFFER POINTER
	IAC
	DCA	SAMPTR
	TAD	LENGTH+2	/SIZE OF BUFFER
	CLL RAL
	TAD	LENGTH+2	/TIMES THREE
	DCA	BUFSIZ		/SAVE IT
	TAD	BUFSIZ		/SET INITIAL COUNT
	IAC
	DCA	SAMCNT
	TAD	NCHANL+2	/SET CHANNEL COUNT
	DCA	NCHANL+1
	IFSW	8 <
	CLA CMA			/STOP THE CLOCK
	CLZE
	CLA
	ADCL			/CLEAR AD LOGIC JUST IN CASE
	TAD	L300		/SET AD ENABLE BITS
	ADLE
	TAD	CSTART+2	/STARTING CHANNEL NUMBER
	ADLM
	>
	IFNSW	8 <
	CLEN			/STOP THE CLOCK
	TAD	CSTART+2	/SET UP INITIAL SAM INSTRUCTION
	TAD	L100
	DCA	CSTART+2
	TAD	CSTART+2
	DCA	SAMST		/STARTING SAM
	TAD	SAMST		/ALSO INTERRUPT TIME SAM
	DCA	SAMINS
	TAD	L100		/SET FAST SAM BIT
	IOF			/TURN OFF INTERRUPTS IN LINC MODE
	LINC			/ENTER LINC MODE
	ESF
SAMST,	SAM	0		/SET INITIAL SAM CHANNEL
	PDP
	ION
	CLA
	>
	CIF CDF
	JMP%	ADSETU
BASEX,	FNOP
M3776,	-3776
L10,	10
SAMPTR,
ARRAY,	0;0;0
LENGTH,	0;0
BUFSIZ,	0
SAMCNT,
CSTART,	0
OLDPTR,	0;0
SAMTMP,
NCHANL,	0;0;0
NPOINT,	0;0;0
FLDBUF,
XCLINT,	ADDR	#CLINT
	IFSW	8 <
L300,	300
	>
	IFNSW	8 <
L100,	100
	>
SAMXR,	0;0
TOOFAS,	0
	ORG	10*3+BASEX
	0
	JA	NAME+3
	0
SAMRTN,	JA	.
CDF0,	CDF
L7,	7
\f	SECT	REALTM
	BASE	0
	STARTD
	FLDA	30		/GET RETURN ADDR
	FSTA	SAMRTN
	FLDA	0		/GET ARG POINTER
	BASE	BASEX
	SETB	BASEX
	SETX	SAMXR
	FSTA	NPOINT		/SAVE ARG POINTER
	FCLA
	EXTERN	#CLINT
	FSTA	#CLINT		/STOP ANY SAMPLING NOW!
	LDX	1,1
	FLDA%	NPOINT,1	/GET BUFFER ADDRESS
	FSTA	ARRAY
	FLDA%	NPOINT,1+	/GET ADDR OF LENGTH
	FSTA	LENGTH
	FLDA%	NPOINT,1+	/ADDR OFHANNEL START
	FSTA	CSTART
	FLDA%	NPOINT,1+	/ADDR OF # CHANNELS
	FSTA	NCHANL
	FLDA%	NPOINT,1+	/ADDR OF NUMBER OF POINTS
	FSTA	NPOINT
	FLDA	ARRAY		/CREATE SETX INS
	FADD	STXMJA
	FSTA	BUFSTX
	FSTA	ADBSTX		/AND SAVE IT IN TWO PLACES
	STARTF
	FLDA%	LENGTH		/INTEGERIZE AND NEGATE SOME ARGS
	FNEG
	ALN	0
	FSTA	LENGTH
	FNORM
	ATX	1		/SET BUFFER COUNT
	FLDA%	CSTART		/GET STARTING CHANNEL
	ALN	0
	FSTA	CSTART
	FLDA%	NCHANL
	FNEG
	ALN	0
	FSTA	NCHANL
	FLDA%	NPOINT
	FNEG
	ALN	0
	FSTA	NPOINT
	LDX	-1,2		/SET UP FOR BUFFER CLEAR
	FCLA
CLRBUF,	FSTA%	ARRAY,2+
	JXN	CLRBUF,1+
	TRAP4	ADSETU		/SET UP AD STUFF
	FLDA	LENGTH		/RE-GET BUFFER SIZE
	FNORM
	ATX	1		/BUT NOW ITS TIMES THREE
	FLDA	STPCOD		/STORE STOP CODES
	FSTA%	ARRAY		/INTO FIRST 3 WORD
	STARTD
	FLDA	SAMADR		/SET UP SAMPLER INTERRUPT HANDLER
	FSTA	#CLINT
	STARTF
	JA	SAMRTN		/RETURN
NAME,	TEXT	+RTMADB+
SAMADR,	ADDR	SAMPLE
STPCOD,	3776;3777;0
STXMJA,	1100-1030;0
L2047,	F	2047.
L511,	F	511.
\f	ENTRY	ADB
ADB,	BASE	0		/FETCH SAMPLE FROM BUFFER
	STARTD
	FLDA	30		/SAVE REUTRN
	FSTA	SAMRTN
	SETB	BASEX
	SETX	SAMXR
	BASE	BASEX
	JXN	SPEEDK,2	/CLOCK TOO FAST
	FLDA	ADBSTX		/SAVE OLD SETX
	FSTA	OLDSTX
	FADD	L1		/ADD ONE TO IT
	FSTA	ADBSTX		/AND SAVE IT BACK
	JXN	NORINQ,1+	/END OF BUFFER ?
	FLDA	BUFSTX		/YES, RESTART
	FSTA	ADBSTX
	FLDA	LENGTH		/RESET COUNT
	ATX	1
NORINQ,	STARTF
ADBSTX,	SETX	0		/SET XR0 TO NEXT SAMPLE
WAIT,	XTA	0		/GET THE NEXT SAMPLE
	FSUB	L2047		/IS IT THE STOP CODE
	JEQ	WAIT		/YES
	XTA	0		/NO, FETCH THE SAMPLE
	LDX	3776,0		/SET SAMPLE STOP CODE
OLDSTX,	SETX	0		/SET XR0 TO PREVIOUS STOP CODE
	LDX	0,0		/NOW ZERO IT
	JA	SAMRTN		/RETURN
SPEEDK,	EXTERN	#WRITO		/USE FORTRAN I/O
	TRAP3	#WRITO		/TO WRITE A MESSAGE
	JA	TTYUNT		/ON THE TTY
	JA	MESSAG
	EXTERN	#RENDO
	TRAP3	#RENDO		/CLOSE THE RECORD
	LDX	0,2		/KILL TOO FAST SWITCH
	JA	SAMRTN		/RETURN FROM ADB
TTYUNT,	F	0.
MESSAG,	TEXT	'(" SAMPLING TOO FAST")'
BUFSTX,	SETX	0
L1,	0;1
	END
\f
Commit	Line	Data
	1	/ A-D CLOCKED, BUFFERED SAMPLING ROUTINE
	2	/
	3	/ VERSION 5A 4-27-77 PT
	4	/
	5	ADSK=6534
	6	ADRB=6533
	7	ADST=6532
	8	ADLM=6531
	9	ADLE=6536
	10	ADCL=6530
	11	CLZE=6130
	12	ESF=4
	13	LINC=6141
	14	PDP=2
	15	SAM=100
	16	CLEN=6134
	17	FIELD1 SAMPLE
	18	0 /INTERRUPT TIME AD SAMPLER
	19	IFNSW 8 <
	20	JMS LNCSAM /INITIATE SAMPLE
	21	NEXTCH, ISZ SAMINS /UPDATE SAM INST FOR NEXT CHAN
	22	JMS LNCSAM /SAM AND INITIATE NEXT CHANNEL
	23	>
	24	TAD SAMPTR /SAVE THE OLD SAM BUFFER POINTER
	25	DCA OLDPTR
	26	TAD BUFFLD /AND THE FIELD
	27	DCA OLDFLD
	28	ISZ SAMPTR /BUMP BUFFER POINTER
	29	JMP FLDOK /FIELD IS OK
	30	TAD BUFFLD /BUMP FIELD
	31	TAD L10
	32	DCA BUFFLD
	33	FLDOK, ISZ SAMCNT /BUMP BUFFER COUNT
	34	JMP BUFFLD /NOT END OF BUFFER
	35	TAD ARRAY+2 /RESET POINTER TO START OF BUFFER
	36	DCA SAMPTR
	37	TAD FLDBUF /RESET BUFFER FIELD
	38	DCA BUFFLD
	39	TAD BUFSIZ /RESET COUNT
	40	DCA SAMCNT
	41	BUFFLD, HLT /GET FIELD OF NEW ADB STOP CODE
	42	TAD% SAMPTR /IS THIS THE SAM STOP CODE ?
	43	TAD M3776 /(ILLEGAL AS A SAMPLE)
	44	SZA CLA
	45	JMP NOERR
	46	ISZ TOOFAS /SET TOO FAST SWITCH
	47	SAMPLD, CDF 10
	48	DCA% XCLINT+1 /STOP SAMPLING
	49	JMP% SAMPLE
	50	NOERR, CLL CMA RAR /SET ADB STOP CODE
	51	DCA% SAMPTR
	52	OLDFLD, HLT /GET TO FIELD OF SAMPLE
	53	IFSW 8 <
	54	ADRB /READ SAMPLE
	55	>
	56	IFNSW 8 <
	57	TAD SAMTMP /GET PREVIOUSLY READ SAMPLE
	58	>
	59	DCA% OLDPTR /INTO BUFFER
	60	ISZ NPOINT+2 /ANY MORE SAMPLES
	61	SKP /YES
	62	ISZ NPOINT+1 /MORE THAN 7777 ?
	63	SKP /YES
	64	JMP SAMPLD /NO
	65	ISZ NCHANL+1 /ANY MORE CHANNELS TO SAMPLE ?
	66	JMP NEXTCH /YES GO START SAMPLING
	67	TAD CSTART+2 /STARTING CHANNEL
	68	IFSW 8 <
	69	ADLM
	70	>
	71	IFNSW 8 <
	72	DCA SAMINS
	73	JMS LNCSAM /SET CHANNEL TO START
	74	/IN CASE CLOCK INITIATED
	75	>
	76	TAD NCHANL+2 /NUMBER OF CHANNELS
	77	DCA NCHANL+1 /INTO COUNTER
	78	CDF 10
	79	JMP% SAMPLE
	80	IFSW 8 <
	81	NEXTCH, ADST /SAMPLE NEXT CHANNEL
	82	ADSK /WAIT FOR SAMPLE
	83	JMP .-1
	84	JMP SAMPLE+1
	85	>
	86	IFNSW 8 <
	87	LNCSAM, 0 /LINC SAM SUBROUTINE
	88	LINC
	89	SAMINS, SAM 0 /SAMPLE AND SELECT NEXT CHANNEL
	90	PDP
	91	DCA SAMTMP /SAVE IT
	92	JMP% LNCSAM
	93	>
	94	ADSETU, 0 /SET UP ROUTINE
	95	DCA TOOFAS /CLEAR TOO FAST SWITCH
	96	TAD ARRAY+1 /GET FIELD OF BUFFER
	97	AND L7
	98	CLL RTL
	99	RAL
	100	TAD CDF0
	101	DCA FLDBUF
	102	TAD FLDBUF
	103	DCA BUFFLD /SAVE IN SAMPLER CODE
	104	TAD ARRAY+2 /SET SAMPLER BUFFER POINTER
	105	IAC
	106	DCA SAMPTR
	107	TAD LENGTH+2 /SIZE OF BUFFER
	108	CLL RAL
	109	TAD LENGTH+2 /TIMES THREE
	110	DCA BUFSIZ /SAVE IT
	111	TAD BUFSIZ /SET INITIAL COUNT
	112	IAC
	113	DCA SAMCNT
	114	TAD NCHANL+2 /SET CHANNEL COUNT
	115	DCA NCHANL+1
	116	IFSW 8 <
	117	CLA CMA /STOP THE CLOCK
	118	CLZE
	119	CLA
	120	ADCL /CLEAR AD LOGIC JUST IN CASE
	121	TAD L300 /SET AD ENABLE BITS
	122	ADLE
	123	TAD CSTART+2 /STARTING CHANNEL NUMBER
	124	ADLM
	125	>
	126	IFNSW 8 <
	127	CLEN /STOP THE CLOCK
	128	TAD CSTART+2 /SET UP INITIAL SAM INSTRUCTION
	129	TAD L100
	130	DCA CSTART+2
	131	TAD CSTART+2
	132	DCA SAMST /STARTING SAM
	133	TAD SAMST /ALSO INTERRUPT TIME SAM
	134	DCA SAMINS
	135	TAD L100 /SET FAST SAM BIT
	136	IOF /TURN OFF INTERRUPTS IN LINC MODE
	137	LINC /ENTER LINC MODE
	138	ESF
	139	SAMST, SAM 0 /SET INITIAL SAM CHANNEL
	140	PDP
	141	ION
	142	CLA
	143	>
	144	CIF CDF
	145	JMP% ADSETU
	146	BASEX, FNOP
	147	M3776, -3776
	148	L10, 10
	149	SAMPTR,
	150	ARRAY, 0;0;0
	151	LENGTH, 0;0
	152	BUFSIZ, 0
	153	SAMCNT,
	154	CSTART, 0
	155	OLDPTR, 0;0
	156	SAMTMP,
	157	NCHANL, 0;0;0
	158	NPOINT, 0;0;0
	159	FLDBUF,
	160	XCLINT, ADDR #CLINT
	161	IFSW 8 <
	162	L300, 300
	163	>
	164	IFNSW 8 <
	165	L100, 100
	166	>
	167	SAMXR, 0;0
	168	TOOFAS, 0
	169	ORG 10*3+BASEX
	170	0
	171	JA NAME+3
	172	0
	173	SAMRTN, JA .
	174	CDF0, CDF
	175	L7, 7
	176	\f SECT REALTM
	177	BASE 0
	178	STARTD
	179	FLDA 30 /GET RETURN ADDR
	180	FSTA SAMRTN
	181	FLDA 0 /GET ARG POINTER
	182	BASE BASEX
	183	SETB BASEX
	184	SETX SAMXR
	185	FSTA NPOINT /SAVE ARG POINTER
	186	FCLA
	187	EXTERN #CLINT
	188	FSTA #CLINT /STOP ANY SAMPLING NOW!
	189	LDX 1,1
	190	FLDA% NPOINT,1 /GET BUFFER ADDRESS
	191	FSTA ARRAY
	192	FLDA% NPOINT,1+ /GET ADDR OF LENGTH
	193	FSTA LENGTH
	194	FLDA% NPOINT,1+ /ADDR OFHANNEL START
	195	FSTA CSTART
	196	FLDA% NPOINT,1+ /ADDR OF # CHANNELS
	197	FSTA NCHANL
	198	FLDA% NPOINT,1+ /ADDR OF NUMBER OF POINTS
	199	FSTA NPOINT
	200	FLDA ARRAY /CREATE SETX INS
	201	FADD STXMJA
	202	FSTA BUFSTX
	203	FSTA ADBSTX /AND SAVE IT IN TWO PLACES
	204	STARTF
	205	FLDA% LENGTH /INTEGERIZE AND NEGATE SOME ARGS
	206	FNEG
	207	ALN 0
	208	FSTA LENGTH
	209	FNORM
	210	ATX 1 /SET BUFFER COUNT
	211	FLDA% CSTART /GET STARTING CHANNEL
	212	ALN 0
	213	FSTA CSTART
	214	FLDA% NCHANL
	215	FNEG
	216	ALN 0
	217	FSTA NCHANL
	218	FLDA% NPOINT
	219	FNEG
	220	ALN 0
	221	FSTA NPOINT
	222	LDX -1,2 /SET UP FOR BUFFER CLEAR
	223	FCLA
	224	CLRBUF, FSTA% ARRAY,2+
	225	JXN CLRBUF,1+
	226	TRAP4 ADSETU /SET UP AD STUFF
	227	FLDA LENGTH /RE-GET BUFFER SIZE
	228	FNORM
	229	ATX 1 /BUT NOW ITS TIMES THREE
	230	FLDA STPCOD /STORE STOP CODES
	231	FSTA% ARRAY /INTO FIRST 3 WORD
	232	STARTD
	233	FLDA SAMADR /SET UP SAMPLER INTERRUPT HANDLER
	234	FSTA #CLINT
	235	STARTF
	236	JA SAMRTN /RETURN
	237	NAME, TEXT +RTMADB+
	238	SAMADR, ADDR SAMPLE
	239	STPCOD, 3776;3777;0
	240	STXMJA, 1100-1030;0
	241	L2047, F 2047.
	242	L511, F 511.
	243	\f ENTRY ADB
	244	ADB, BASE 0 /FETCH SAMPLE FROM BUFFER
	245	STARTD
	246	FLDA 30 /SAVE REUTRN
	247	FSTA SAMRTN
	248	SETB BASEX
	249	SETX SAMXR
	250	BASE BASEX
	251	JXN SPEEDK,2 /CLOCK TOO FAST
	252	FLDA ADBSTX /SAVE OLD SETX
	253	FSTA OLDSTX
	254	FADD L1 /ADD ONE TO IT
	255	FSTA ADBSTX /AND SAVE IT BACK
	256	JXN NORINQ,1+ /END OF BUFFER ?
	257	FLDA BUFSTX /YES, RESTART
	258	FSTA ADBSTX
	259	FLDA LENGTH /RESET COUNT
	260	ATX 1
	261	NORINQ, STARTF
	262	ADBSTX, SETX 0 /SET XR0 TO NEXT SAMPLE
	263	WAIT, XTA 0 /GET THE NEXT SAMPLE
	264	FSUB L2047 /IS IT THE STOP CODE
	265	JEQ WAIT /YES
	266	XTA 0 /NO, FETCH THE SAMPLE
	267	LDX 3776,0 /SET SAMPLE STOP CODE
	268	OLDSTX, SETX 0 /SET XR0 TO PREVIOUS STOP CODE
	269	LDX 0,0 /NOW ZERO IT
	270	JA SAMRTN /RETURN
	271	SPEEDK, EXTERN #WRITO /USE FORTRAN I/O
	272	TRAP3 #WRITO /TO WRITE A MESSAGE
	273	JA TTYUNT /ON THE TTY
	274	JA MESSAG
	275	EXTERN #RENDO
	276	TRAP3 #RENDO /CLOSE THE RECORD
	277	LDX 0,2 /KILL TOO FAST SWITCH
	278	JA SAMRTN /RETURN FROM ADB
	279	TTYUNT, F 0.
	280	MESSAG, TEXT '(" SAMPLING TOO FAST")'
	281	BUFSTX, SETX 0
	282	L1, 0;1
	283	END
	284	\f