| 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 |