josch/keenectl
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
keenectl/PRG/QN8072SUB.LST

141 lines
7.2 KiB
Text
Raw Normal View History

initial commit
2014-06-26 07:38:06 +00:00
<EFBFBD>ļ<EFBFBD><EFBFBD><EFBFBD>QN8072SUB.ASM ʢȺ<CAA2><C8BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>汾 2.86 ҳ<><D2B3>1
1 0000 ;;-----------------------------------------------
2 0000 ;;function: QN8072Init
3 0000 ;;in: mFreqL,mFreqH
4 0000 ;;out: NULL
5 0000 ;;description: Initial QN8027 Configer
6 0000 ;;-----------------------------------------------
7 0000 QN8072Init:
8 0000 ;;
9 0000 0F04 MOV A,04H
10 0001 0000 MOV mFMAddr,a ;;VGA
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 10 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
11 0002 0F00 MOV A,mQNReg[4] ;;58H
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 11 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'mQNReg'
12 0003 0000 MOV mFMData,A ;;12M/101/2db/5k
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 12 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
13 0004 2000 CALL QN8027_I2C_Write_Data
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 13 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'QN8027_I2C_Write_Data'
14 0005
15 0005 2000 R CALL Delay20ms
16 0006 ;;
17 0006 0F00 MOV A,00H
18 0007 0000 MOV mFMAddr,a ;;SYSTEM
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 18 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
19 0008 0F00 MOV A,mQNReg[0] ;;51H
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 19 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'mQNReg'
20 0009 0000 MOV mFMData,A ;;MONO/NO MUTE
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 20 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
21 000A 2000 CALL QN8027_I2C_Write_Data
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 21 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'QN8027_I2C_Write_Data'
22 000B
23 000B 2000 R CALL Delay20ms
24 000C ;;
25 000C 0000 CLR mQNReg[0].6
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 25 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
26 000D 0F00 MOV A,00H
27 000E 0000 MOV mFMAddr,a ;;SYSTEM
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 27 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
28 000F 0F00 MOV A,mQNReg[0] ;;51H
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 28 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'mQNReg'
29 0010 0000 MOV mFMData,A ;;MONO/NO MUTE
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 29 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
30 0011 2000 CALL QN8027_I2C_Write_Data
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 30 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'QN8027_I2C_Write_Data'
31 0012
32 0012 0F18 MOV A,18H
33 0013 0000 MOV mFMAddr,A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 33 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
34 0014 0FE4 MOV A,0E4H
35 0015 0000 MOV mFMData,A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 35 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
36 0016 2000 CALL QN8027_I2C_Write_Data
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 36 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'QN8027_I2C_Write_Data'
37 0017
38 0017 0F1B MOV A,1bH
39 0018 0000 MOV mFMAddr,A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 39 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
40 0019 0FF0 MOV A,0f0H
41 001A 0000 MOV mFMData,A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 41 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
<0C>ļ<EFBFBD><C4BC><EFBFBD>QN8072SUB.ASM ʢȺ<CAA2><C8BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>汾 2.86 ҳ<><D2B3>2
42 001B 2000 CALL QN8027_I2C_Write_Data
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 42 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'QN8027_I2C_Write_Data'
43 001C
44 001C 0000 SET mQNReg[0].5 ;;Enter transmit mode
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 44 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
45 001D 2000 R CALL QN8072FreqSet ;;Set fre
46 001E
47 001E 0F02 MOV A,02H
48 001F 0000 MOV mFMAddr,A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 48 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
49 0020 0FE9 MOV A,0e9H
50 0021 0000 MOV mFMData,A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 50 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
51 0022 2000 CALL QN8027_I2C_Write_Data
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 51 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'QN8027_I2C_Write_Data'
52 0023
53 0023 0F04 MOV A,04H
54 0024 0000 MOV mFMAddr,A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 54 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
55 0025 0F42 MOV A,42H
56 0026 0000 MOV mFMData,A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 56 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
57 0027 2000 CALL QN8027_I2C_Write_Data
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 57 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'QN8027_I2C_Write_Data'
58 0028
59 0028 0003 RET
60 0029
61 0029 ;;-----------------------------------------------
62 0029 ;;function: QN8072FreqSet
63 0029 ;;in: mFreqL,mFreqH
64 0029 ;;out: NULL
65 0029 ;;description: Set QN8072 Freq
66 0029 ;; Frf = (76 + 0.05*Channel) -> Channel = (Frf-76)/0.05
67 0029 ;;-----------------------------------------------
68 0029 QN8072FreqSet:
69 0029 ;; CLR INTC0.@INTC0_EMI ;Global interrupt
70 0029 ;; CLR data0
71 0029 ;; CLR data1
72 0029 ;;
73 0029 ;; MOV A,mFreqL
74 0029 ;; SUB A,0B0H
75 0029 ;; MOV data0,A
76 0029 ;; MOV A,mFreqH
77 0029 ;; SBC A,1DH
78 0029 ;; MOV data1,A ;;(Freq - 7600)
79 0029 ;;
80 0029 ;; MOV A,05H
81 0029 ;; MOV data5,A
82 0029 ;; CLR data4
83 0029 ;; CALL unbin_div_16 ;;(Freq - 7600)/5 -> to1to0
84 0029 ;;
85 0029 ;; MOV A,03H
86 0029 ;; ANDM A,to1
87 0029 ;; MOV A,0FCH
88 0029 ;; ANDM A,mQNReg[0]
89 0029 ;; MOV A,to1
90 0029 ;; ORM A,mQNReg[0]
91 0029 ;; MOV A,to0
92 0029 ;; MOV mQNReg[1],A
93 0029 ;;
<0C>ļ<EFBFBD><C4BC><EFBFBD>QN8072SUB.ASM ʢȺ<CAA2><C8BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>汾 2.86 ҳ<><D2B3>3
94 0029
95 0029 0F00 MOV A,cFreqDefL
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 95 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'cFreqDefL'
96 002A 0000 MOV mQNReg[1],A
Error(A0024) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 96 : <20>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD>
97 002B 0F00 MOV A,mQNReg[0]
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 97 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'mQNReg'
98 002C 0EFC AND A,0FCH
99 002D 0D00 OR A,cFreqDefH
Error(A0005) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM 99 : δ<><CEB4><EFBFBD><EFBFBD><EFBFBD>ķ<EFBFBD><C4B7><EFBFBD> 'cFreqDefH'
Error(A0052) E:\<5C><>Ŀ\USB <20><>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>\USB AUDIO(PC)\COD\PRG\QN8072SUB.ASM : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
31 Errors
Reference in a new issue Copy permalink