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

*20
/// ONESET SUBROUTINE.
/ONE CHANNEL VERSION OF CHSET.
/ROUTINE TO SET UP MULTIPLE SAMPLING
/COMMANDS. CALL IS:
/
/          SET I 2
/          DATCH(DATA) OR CONCH(TM)
/          LDA I
/          P1(DAT CHAN) OR P5(CON CHAN)
/
/          JMP CHSET
/HANDLES UP TO 24 CHANNELS WHICH HAVE BEEN
/SET UP IN PBLOCK (P1-2,P5-6,P15-16) BY PARAM.
/
/
CHSET,	STC PWRD	/IST PWRD
	ADD 0
	STC CHSETX
	STC 14		/NUM CHAN USED
	SET I 4		/START CHAN - 1
	7
	SET I 12	/BITS PER WRD
	-14
	SET I 15	/2 WRD CNTR
	-2
	LDA
	P15		/INVERT WRD
BKC,	STC INVCH
	LDA
PWRD,	0		/1ST OR 2ND PWORD
	STC CHTST
	 
/INVERT TEST.
TS,	LDA I
	16		/NOP
	SRO I
INVCH,	0
	ADD KP1
	STC INVT
	 
/CHANNEL TEST.
	ADD 4	
	ADD KP1
	STC 4
	SRO I
CHTST,	0
	JMP GOTCH	/FOUND ONE
	XSK I 12	/A PWRD DUN?
	JMP TS		/NO
	 
/ROUTINE TO CHECK SECOND PWRD OR TO EXIT.
SECWRD,	LDA
	PWRD
	ADD KP1
	STC PWRD	/SEC PWRD
	SET I 12
	-14
	LDA
	P16		/2ND INVT WRD
	XSK I 15	/DUN 2 ALREADY?
	JMP BKC		/NO
CHSETX,	0		/YES, LEAVE
	 
/ROUTINE TO SET UP SAM COMMAND.
GOTCH,	LDA
	4
	BSE I
	SAM
	STA 2
	LDA I
INVT,	0
	STA I 2
	XSK I 14	/BUMP NUM CHAN
	JMP CHSETX	/YES, LEAVE CHSET
/END SUBROUTINE ONESET.