Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | / |
2 | / VERSION 5A 4-27-77 PT | |
3 | / | |
4 | ADSK=6534 | |
5 | ADRB=6533 | |
6 | ADST=6532 | |
7 | ADLM=6531 | |
8 | ADCL=6530 | |
9 | SAM=100 | |
10 | LINC=6141 | |
11 | ESF=4 | |
12 | PDP=2 | |
13 | SECT8 ADC /AD SAMPLER (UNBUFFERED, UNCOLCKED) | |
14 | BASE 0 | |
15 | STARTD | |
16 | FLDA 0 /GET RETURN ADDRESS | |
17 | FSTA ADCRET | |
18 | FADD L2 /GET ADDR OF ARG POINTER | |
19 | FSTA 0 | |
20 | FLDA% 0 /GET ADDR OF CHANNEL NUMBER | |
21 | FSTA 0 | |
22 | STARTF | |
23 | FLDA% 0 /GET THE CHANNEL NUMBER | |
24 | ALN 0 /FIX IT | |
25 | FSTA CHANEL /STORE IT FOR ADC8 | |
26 | TRAP4 ADC8 /GO TO PDP8 CODE TO DO THE SAMPLING | |
27 | FLDA SAMPLE | |
28 | FNORM /GET THE SAMPLE AND NORMALIZE IT | |
29 | FDIV L511 /SCALE BETWEEN -1 AND +1 | |
30 | ADCRET, JA . | |
31 | L2, 0;2 | |
32 | L511, F 511. | |
33 | SAMPLE, 13;0;0 | |
34 | CHANEL, 0;0;0 | |
35 | ADC8, 0 /PDP8 MODE END OF ADC | |
36 | IFSW 8 < | |
37 | ADCL /CLEAR AD LOGIC | |
38 | TAD CHANEL+2 /SET MULTIPLEXOR CHANNEL | |
39 | ADLM | |
40 | ADST /START CONVERSION | |
41 | ADSK /WAIT FOR IT | |
42 | JMP .-1 | |
43 | ADRB /READ CONVERTOR BUFFER> | |
44 | IFNSW 8 < | |
45 | TAD CHANEL+2 /CREATE FIRST SAM | |
46 | TAD SAM0 | |
47 | DCA DOSAM | |
48 | IOF | |
49 | LINC /ENTER LINC MODE WITHOUT INTERRUPTS | |
50 | ESF /DISABLE FAST SAM | |
51 | DOSAM, 0 | |
52 | PDP | |
53 | ION /BACK IN 8 MODE, TURN ON INTERRUPTS> | |
54 | DCA SAMPLE+1 /SAVE SAMPLE | |
55 | CIF CDF | |
56 | JMP% ADC8 | |
57 | IFNSW 8 < | |
58 | SAM0, SAM 0> | |
59 | \f |