Compucolor.org – Virtual Media

Listing of file='FREQ.BAS;05' on disk='vmedia/ay-3-8910_programs-sector.ccvf'

10 REM  *** SINGLE FREQUENCY GENERATOR ***
20 REM
30 REM   THE CLOCK FREQUENCY FOR THE AY-3-8910 MUST BE
40 REM   ENTERED. USUALLY 2.000 MHZ OR 1.78977 MHZ.
50 DF= 1.7897725E06
55 REM
60 INPUT "CLOCK FREQUENCY FOR AY-3-8910 : ";FC
70 IF FC< = 0THEN FC= DF
75 REM
80 OUT  48,7:OUT  49,62:REM  CHANNEL 'A' ONLY
90 OUT  48,8:OUT  49,0:REM  ZERO AMPLITUDE
100 INPUT "TONE FREQUENCY : ";FQ
105 IF  FQ= 0 THEN  END
110 TP =  INT (FC/ (16* FQ)+ 0.5)
120 PH =  INT (TP/ 256)
130 PL =  TP- 256* PH
140 OUT  48,0:OUT  49,PL
150 OUT  48,1:OUT  49,PH
160 PRINT  "HIGH BYTE = ";PH,"LOW BYTE = ";PL
170 OUT  48,8:OUT  49,15
180 INPUT  "HIT <RETURN> TO STOP ";A$
190 OUT  49,0
200 GOTO  100