2 / VERSION 5A 4-27-77 PT
13 SECT8 ADC /AD SAMPLER (UNBUFFERED, UNCOLCKED)
16 FLDA 0 /GET RETURN ADDRESS
18 FADD L2 /GET ADDR OF ARG POINTER
20 FLDA% 0 /GET ADDR OF CHANNEL NUMBER
23 FLDA% 0 /GET THE CHANNEL NUMBER
25 FSTA CHANEL /STORE IT FOR ADC8
26 TRAP4 ADC8 /GO TO PDP8 CODE TO DO THE SAMPLING
28 FNORM /GET THE SAMPLE AND NORMALIZE IT
29 FDIV L511 /SCALE BETWEEN -1 AND +1
35 ADC8, 0 /PDP8 MODE END OF ADC
38 TAD CHANEL+2 /SET MULTIPLEXOR CHANNEL
40 ADST /START CONVERSION
43 ADRB /READ CONVERTOR BUFFER>
45 TAD CHANEL+2 /CREATE FIRST SAM
49 LINC /ENTER LINC MODE WITHOUT INTERRUPTS
53 ION /BACK IN 8 MODE, TURN ON INTERRUPTS>
54 DCA SAMPLE+1 /SAVE SAMPLE