电子音乐
看不见视频,请直接点击我
汇编代码:
SONG BIT 00H
CHANGE BIT 01H
ORG 0000H
JMP START
ORG 0003H
JMP AINT0
ORG 000BH
JMP EXT0
ORG 0013H
JMP AINT1
START:
MOV TCON,#00000000B
MOV TMOD,#00000001B
MOV IE,#10000111B
MOV IP,#00000101B
REPEAT:
CLR CHANGE
JB SONG, S2
S1:
MOV DPTR,#TABLE0
JMP LOOP
S2:
MOV DPTR,#TABLE1
LOOP:
CLR A
MOVC A,@A+DPTR
MOV R1,A
INC DPTR
CLR A
MOVC A,@A+DPTR
MOV R0,A
ORL A,R1
JZ NEXT0
MOV A,R0
ANL A,R1
CJNE A,#0FFH,NEXT
JMP START
NEXT:
MOV TH0,R1
MOV TL0,R0
SETB TR0
JMP NEXT1
NEXT0:
CLR TR0
NEXT1:
CLR A
INC DPTR
MOVC A,@A+DPTR
MOV R2,A
JB CHANGE,REPEAT
LOOP1:
ACALL DELAY
DJNZ R2,LOOP1
INC DPTR
JMP LOOP
EXT0:
MOV TH0,R1
MOV TL0,R0
CPL P1.5
RETI
AINT0:
SETB SONG
SETB CHANGE
RETI
AINT1:
CLR SONG
SETB CHANGE
RETI
DELAY:
MOV R7,#02
D2:
MOV R6,#187
D3:
MOV R5,#248
DJNZ R5,$
DJNZ R6,D3
DJNZ R7,D2
RET
TABLE0:
DB 0FDH,80H,03H, 0FDH,80H,01H
DB 0FDH,0C6H,04H, 0FDH,80H,04H
DB 0FEH,2AH,04H, 0FEH,02H,04H
DB 00H,00H,04H
DB 0FDH,80H,03H, 0FDH,80H,01H
DB 0FDH,0C6H,04H, 0FDH,80H,04H
DB 0FEH,5CH,04H, 0FEH,2AH,04H
DB 00H,00H,04H
DB 0FDH,80H,03H, 0FDH,80H,01H
DB 0FEH,0C0H,04H, 0FEH,84H,04H
DB 0FEH,2AH,04H, 0FEH,02H,04H
DB 0FDH,0C6H,04H
DB 0FEH,98H,03H, 0FEH,98H,01H
DB 0FEH,84H,04H, 0FEH,2AH,04H
DB 0FEH,5CH,04H, 0FEH,2AH,04H
DB 0FFH,0FFH
TABLE1:
DB 0FEH,2AH,02H, 0FEH,2AH,02H
DB 0FEH,2AH,04H, 0FDH,80H,04H
DB 0FEH,84H,02H, 0FEH,84H,02H
DB 0FEH,84H,04H, 0FEH,2AH,04H
DB 0FEH,2AH,02H, 0FEH,84H,02H
DB 0FEH,0C0H,04H, 0FEH,0C0H,04H
DB 0FEH,98H,02H, 0FEH,84H,02H
DB 0FEH,5CH,08H
DB 00H,00H,02H
DB 0FEH,54H,02H
DB 0FEH,84H,02H, 0FEH,98H,04H
DB 0FEH,98H,04H, 0FEH,84H,02H
DB 0FEH,5CH,02H, 0FEH,84H,04H
DB 0FEH,2AH,04H
DB 0FEH,2AH,02H, 0FEH,84H,02H
DB 0FEH,54H,04H, 0FDH,80H,04H
DB 0FEH,02H,02H, 0FEH,5CH,02H
DB 0FEH,2AH,08H
DB 0FFH,0FFH
END
转载请注明作者和出处,并添加本页链接。
原文链接: 139.196.92.124/post/53
评论列表
http://imrdsoacha.gov.co/silvitra-120mg-qrms
johnanz 在 2022-04-19 09:13:21.0
http://imrdsoacha.gov.co/silvitra-120mg-qrms
johnansaz 在 2022-04-19 11:24:01.0