📄 sorcem.lst
字号:
ASEM-51 V1.2 Copyright (c) 1996 by W.W. Heinz PAGE 1
MCS-51 Family Cross Assembler A S E M - 5 1 V 1.2
=====================================================
Source File: SORCEM.ASM
Object File: SORCEM.HEX
List File: SORCEM.LST
Line I Addr Code Source
1:
2: N 0000 ORG 0000H
3: 0000 02 00 30 JMP START
4: N 0003 ORG 0003H
5: 0003 02 00 80 JMP INT
6: N 000B ORG 000BH
7: 000B 05 20 INC 0020H
8: 000D 75 8C D8 MOV TH0,#0D8H
9: 0010 75 8A EF MOV TL0,#0EFH
10: 0013 32 RETI ;10ms 中断，为拍定时，拍长RETI
11: N 0030 org 30h
12: 0030 START:
13: 0030 75 8C D8 MOV TH0,#0D8H
14: 0033 75 8A EF MOV TL0,#0EFH
15:
16: 0036 D2 AF SETB EA
17: 0038 D2 A9 SETB ET0
18: 003A D2 A8 SETB EX0
19: 003C D2 88 SETB IT0
20: 003E 75 89 01 MOV TMOD,#01H
21: 0041 85 00 90 mov p1,00h
22: 0044 85 00 A0 MOV P2,00H
23: 0047 A9 00 MOV R1,00H
24:
25: ;;;;;;;;;;;;;;;;;;;;;;;MOV DPTR,#M2
26: ;;;;;;;;;;;;;;;;;;;;;MOV 0022H,DPH
27: ;;;;;;;;;;;;;;;;;;;;;MOV 0021H,DPL
28: ;;;;;;;;;;;;;;;;;;;MOV DPTR,#M3
29: ;;;;;;;;;;;;;;;;;;;;MOV 0024,DPH
30: ;;;;;;;;;;;;;;;;;;MOV 0023,DPL
31: ;;;;;;;;;;;;;;;;;;;;;MOV DPTR,#M1
32: ;;;;;;;;;;;;;;;;;;;;MOV 0026,DPH
33: ;;;;;;;;;;;;;;;;;;;;;;;MOV 0025,DPL
34:
35: ;*********************************
36: 0049 C2 90 TEST:clr p1.0
37:
38: 004B A9 00 MOV R1,00H
39: 004D 85 00 F0 mov b,00h
40:
41: 0050 78 00 mov R0,#00h
42: 0052 D2 94 SETB P1.4
43: 0054 20 A0 4E JB P2.0,B3
ASEM-51 V1.2 Copyright (c) 1996 by W.W. Heinz PAGE 2
Line I Addr Code Source
44: 0057 20 A5 63 JB P2.5,B7
45: 005A C2 94 CLR P1.4
46: 005C D2 95 SETB P1.5
47: 005E 20 A0 3E JB P2.0,B2
48: 0061 20 A5 53 JB P2.5,B6
49: 0064 C2 95 CLR P1.5
50: 0066 D2 96 SETB P1.6
51: 0068 20 A0 2E JB P2.0,B1
52: 006B 20 A5 43 JB P2.5,B5
53: 006E C2 96 CLR P1.6
54: 0070 D2 97 SETB P1.7
55: 0072 20 A0 1C JB P2.0,BMUSIC
56: 0075 C2 97 CLR P1.7
57: 0077 D2 93 SETB P1.3
58: 0079 20 A0 2F JB P2.0,B4
59: 007C C2 93 CLR P1.3
60: 007E 80 C9 JMP TEST
61: ;************************************
62: ;===========================
63: 0080 78 00 INT: MOV R0,#00h
64: 0082 20 A4 03 JB P2.4,RES
65: 0085 20 A5 05 JB P2.5,NEXT
66: 0088 79 50 RES:MOV R1,#50H
67: 008A 02 00 8F JMP R
68: 008D NEXT:
69: 008D 79 05 MOV R1,#05H
70: 008F 00 R:NOP
71: 0090 32 RETI
72: ;===========================
73: 0091 D2 A1 BMUSIC: SETB P2.1
74: 0093 90 01 81 MOV DPTR,#M1
75: 0096 02 01 18 LJMP MUSIC0
76: 0099 B1:
77: 0099 90 02 68 MOV DPTR,#DAT1
78: 009C 02 01 1C LJMP MUSIC1
79: 009F B2:
80: 009F 90 02 6B MOV DPTR,#DAT2
81: 00A2 02 01 1C LJMP MUSIC1
82: 00A5 B3:
83: 00A5 90 02 6E MOV DPTR,#DAT3
84: 00A8 02 01 1C LJMP MUSIC1
85: 00AB 90 02 71 B4: MOV DPTR,#DAT4
86: 00AE 02 01 1C LJMP MUSIC1
87: 00B1 90 02 74 B5: MOV DPTR,#DAT5
88: 00B4 02 01 1C LJMP MUSIC1
89: 00B7 B6:
90: 00B7 90 02 77 MOV DPTR,#DAT6
91: 00BA 02 01 1C LJMP MUSIC1
92:
93: 00BD 90 02 7A B7: MOV DPTR,#DAT7
94: 00C0 02 01 1C LJMP MUSIC1
95: 00C3 RNEST: ;;;;;;;;;;;;;;;;MOV DPH,00H
96: ;;;;;;;;;;;;;;MOV DPL,#21H
97: ;;;;;;;;;;;;;;;;;;;MOV A,B
98: ;;;;;;;;;;;;;;;;;;;CJNE A,#06H,GOON
99: ;;;;;;;;;;;;;;MOV B,00H
ASEM-51 V1.2 Copyright (c) 1996 by W.W. Heinz PAGE 3
Line I Addr Code Source
100: ;;;;;;;;;;;;;;;;;;;;MOV A,B
101: ;;;;;;;;;;;;;;;GOON:NOP
102: ;;;;;;;;;;;;;;;MOVC A,@A+DPTR
103: ;;;;;;;;;;;;;;;;MOV 27H,A
104: ;;;;;;;;;;;;;;;INC B
105: ;;;;;;;;;;;;mov A,B
106: ;;;;;;;;;;;;;;;;MOVC A,@A+DPTR
107: ;;;;;;;;;;;;;;;;;;MOV 28H,A
108: ;;;;;;;;;;;;;;;;;;MOV DPL,27H
109: ;;;;;;;;;;;;;;;MOV DPH,28H
110: ;;;;;;;;;;;;;;;;MOV R1,00H
111: ;;;;;;;;;;;;;;;;;;;;;LJMP MUSIC0
112: 00C3 7B 1C mov r3,#1ch
113: 00C5 7A 64 mov r2,#64h
114: 00C7 12 01 77 loop:lcall del
115: 00CA DA FB djnz r2,loop
116: 00CC E5 F0 mov a,b
117: 00CE B4 00 03 cjne a,#00h,ji
118: 00D1 02 00 E3 jmp pm1
119: 00D4 B4 01 03 ji:cjne a,#01h,xu
120: 00D7 02 00 EB jmp pm2
121: 00DA B4 02 03 xu:cjne a,#02h,san
122: 00DD 02 00 F3 jmp pm3
123: 00E0 02 00 FB san:jmp pm4
124:
125:
126: 00E3 90 02 5A pm1:mov dptr,#m4
127: 00E6 05 F0 inc b
128: 00E8 02 01 18 jmp music0
129: 00EB 90 01 93 pm2:mov dptr,#m2
130: 00EE 05 F0 inc b
131: 00F0 02 01 18 jmp music0
132: 00F3 90 01 EF pm3:mov dptr,#m3
133: 00F6 05 F0 inc b
134: 00F8 02 01 18 jmp music0
135: 00FB 90 01 81 pm4:mov dptr,#m1
136: 00FE 75 F0 00 mov b,#00h
137: 0101 02 01 18 jmp music0
138:
139:
140: 0104 INTC:
141: 0104 D2 A1 SETB P2.1
142: 0106 B9 50 03 CJNE R1,#50H,CNN ; ;R1 中断功能选择
143: 0109 02 00 49 LJMP TEST
144: 010C 00 CNN:NOP
145: 010D B9 05 05 CJNE R1,#05H,CNNN
146: 0110 A9 00 mov r1,00h
147: 0112 02 00 C3 LJMP RNEST
148: 0115 00 CNNN:NOP
149: 0116 80 EC JMP INTC
150: ;++++++++++++++++++++++++++++++++
151: 0118 78 55 MUSIC0: MOV R0,#55H ;R0 音乐模块选择
152: 011A D2 A1 SETB P2.1
153: 011C MUSIC1:
154: 011C B9 50 03 CJNE R1,#50H,NN ; ;R1 中断功能选择
155: 011F 02 00 49 LJMP TEST
ASEM-51 V1.2 Copyright (c) 1996 by W.W. Heinz PAGE 4
Line I Addr Code Source
156: 0122 00 NN:NOP
157: 0123 B9 05 05 CJNE R1,#05H,NNN
158: 0126 A9 00 mov r1,00h
159: 0128 02 00 C3 LJMP RNEST
160: 012B 00 NNN:NOP
161: 012C 75 20 00 mov 20h,#00h
162: 012F E4 CLR A
163: 0130 93 MOVC A,@A+DPTR
164: 0131 FF MOV R7,A
165: 0132 60 2C JZ END0
166: 0134 B4 FF 03 CJNE A,#0ffH,MUSIC2
167: 0137 02 01 51 JMP MUSIC4 ;stop 100ms
168: 013A MUSIC2:
169: ;
170: 013A A3 INC DPTR
171: 013B E5 F0 MOV A,B
172: 013D 93 MOVC A,@A+DPTR
173: 013E FE MOV R6,A
174: 013F D2 8C SETB TR0
175: 0141 MUSIC3:
176:
177:
178:
179: 0141 B2 90 CPL P1.0
180: 0143 EF MOV A,R7
181: 0144 FB MOV R3,a
182: 0145 12 01 77 LCALL DEL
183: 0148 EE mov a,r6
184: 0149 B5 20 F5 CJNE A,20H,MUSIC3
185: 014C C2 8C CLR TR0
186: 014E A3 INC DPTR
187: 014F 80 CB JMP MUSIC1
188: 0151 00 MUSIC4: NOP
189:
190: 0152 7A 0D MOV R2,#0DH
191: 0154 MUSIC5:
192: 0154 00 NOP
193: 0155 7B FF MOV R3,#0FFH
194: 0157 12 01 77 LCALL DEL
195: 015A DA F8 DJNZ R2,MUSIC5
196: 015C A3 INC DPTR
197: 015D 02 01 1C LJMP MUSIC1
198:
199:
200: 0160 00 END0:NOP
201: 0161 7A 00 MOV R2,#00H
202: 0163 END1:
203: 0163 7B 00 MOV R3,#00H
204: 0165 12 01 77 LCALL DEL
205: 0168 DA F9 DJNZ R2,END1
206: 016A C2 90 clr p1.0 ;消除杂音
207: 016C C2 A1 clr p2.1
208: 016E E8 MOV A,R0
209: 016F B4 55 02 CJNE A,#55H,NNNN
210: 0172 80 90 jmp INTC
211: 0174 02 00 49 NNNN:LJMP TEST
ASEM-51 V1.2 Copyright (c) 1996 by W.W. Heinz PAGE 5
Line I Addr Code Source
212: ;++++++++++++++++++++++++++++++++++++
213:
214:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -