File: ADC.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/ANALOG-DIGITAL ROUTINES
/
/
/ VERSION 50A 29-MAY-80 WVDM
/
/
ADSK=6534
ADRB=6533
ADST=6532
ADLM=6531
ADCL=6530
SAM=100
LINC=6141
ESF=4
PDP=2
/
SECT8 ADC /AD SAMPLER (UNBUFFERED, UNCOLCKED)
BASE 0
00000 0006 STARTD
00001 0200 FLDA 0 /GET RETURN ADDRESS
00002 6400 FSTA ADCRET
00003 0025
00004 1400 FADD L2 /GET ADDR OF ARG POINTER
00005 0027
00006 6200 FSTA 0
00007 0600 FLDA% 0 /GET ADDR OF CHANNEL NUMBER
00010 6200 FSTA 0
00011 0005 STARTF
00012 0600 FLDA% 0 /GET THE CHANNEL NUMBER
00013 0010 ALN 0 /FIX IT
00014 6400 FSTA CHANEL /STORE IT FOR ADC8
00015 0037
00016 4000 TRAP4 ADC8 /GO TO PDP8 CODE TO DO THE SAMPLING
00017 0042
00020 0400 FLDA SAMPLE
00021 0034
00022 0004 FNORM /GET THE SAMPLE AND NORMALIZE IT
00023 3400 FDIV L511 /SCALE BETWEEN -1 AND +1
00024 0031
00025 1030 ADCRET, JA .
00026 0025
/
00027 0000 L2, 0;2
00030 0002
00031 0011 L511, F 511.
00032 3774
00033 0000
00034 0013 SAMPLE, 13;0;0
00035 0000
00036 0000
00037 0000 CHANEL, 0;0;0
00040 0000
00041 0000
/
00042 0000 ADC8, 0 /PDP8 MODE END OF ADC
IFSW 8 <
RALF V50A 8-APR-92 PAGE 1-1
ADCL /CLEAR AD LOGIC
TAD CHANEL+2 /SET MULTIPLEXOR CHANNEL
ADLM
ADST /START CONVERSION
ADSK /WAIT FOR IT
JMP .-1
ADRB /READ CONVERTOR BUFFER>
IFNSW 8 <
00043 1241 TAD CHANEL+2 /CREATE FIRST SAM
00044 1257 TAD SAM0
00045 3251 DCA DOSAM
00046 6002 IOF
00047 6141 LINC /ENTER LINC MODE WITHOUT INTERRUPTS
00050 0004 ESF /DISABLE FAST SAM
00051 0000 DOSAM, 0
00052 0002 PDP
00053 6001 ION /BACK IN 8 MODE, TURN ON INTERRUPTS>
00054 3235 DCA SAMPLE+1 /SAVE SAMPLE
00055 6203 CIF CDF
00056 5642 JMP% ADC8
/
IFNSW 8 <
00057 0100 SAM0, SAM 0>
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
18 SYMBOLS, NO ABS REFS
# C 00000 #MAIN S 00000 ADC 8 00060 ADCL 06530
ADCRET 00025 ADC8 00042 ADLM 06531 ADRB 06533
ADSK 06534 ADST 06532 CHANEL 00037 DOSAM 00051
ESF 00004 LINC 06141 L2 00027 L511 00031
PDP 00002 SAM 00100 SAMPLE 00034 SAM0 00057