Text preview for : 19790403_DACTest_ls.pdf part of xerox 19790403 DACTest ls xerox notetaker memos 19790403_DACTest_ls.pdf
Back to : 19790403_DACTest_ls.pdf | Home
dactest.ls 3-Apr-79 17:24:12 Page 1
1 BCA/L/E DACTEST.BCA; RESUME SMALl.BOOT
2 Authors: Bruce Horn and Kim McCall
3 Last changed: February 6, 1979 10:53 PM by BH
4 This test uses the DAC to produce tones
5 Waveform = Sine, with Sampling technique
6 by Saunders
7
8
9
10 .predefine "8086Predefs.sr"
11
12 :Ports:
OOCO 13 dacout = OCO
0044 14 dacstatus 044
0060 15 dacsamplese1ect = 060
16
17 ;constants:
0004 18 fifo ready = 4 ;FIFO input ready--output rdy=
0000 19 UseChannelA COOO
8000 20 UseChannelB 8000 ;Must OR all arguments for output to 60H
0200 21 TableLength 200 ;# of values in the table (512 decimal)
00B2 22 Du rMult = 178. ;cycles per sixtieth of quarter note
23
24 ;DAC clock rate:
0000 25 S16Khz = 0
0400 26 S8Khz 0400
0800 27 SaKhz 0800
OCOO 28 SbKhz OCOO
1000 29 ScKhz 1000
1400 30 SdKhz 1400
1800 31 SeKhz 1800
lCOO 32 SlKhz lCOO
3E80 33 ClockedAt= 16000. ;16000 samples/sec is clock rate
34
35 ;Output levels:
7FFF 36 Low = 07FFF ;Lowest level (a volts out)
4000 37 MidLevel = 04000 ;Midlevel, i.e. zero line (5v)
0000 38 High = 00000 ;Highest level (10 volts out)
39
1000 40 .Loc 1000
41 DacTest:
1000 E9 FE 04 42 jmp Beep
43
1003 44 duration: .blk 2 :in units of 1 sixtieth of a quarter note
1005 45 pitch: .blk 2 ;a code # saying what pitch this is
1007 46 intDelt: .blk 2 ;for holding the whole part of the delta
1009 47 fracOelt: .blk 2 ;for holding the fractional part of the
48
49 ValueTable: .GetNoList "SineWaveTbl.bca"
50
51 DeltaTable: .GetNoList "DeltaTable.bca"
52
53
54 Beep:
1501 B8 00 00 59 mov aX,#S16k.h.z; select 16khz sampl il;9
lsn 4'.