📄 sorcem.sdi
字号:
,,,
,,,ORG 0000H
0000,02 00 30,,JMP START
,,,ORG 0003H
0003,02 00 80,,JMP INT
,,, ORG 000BH
000B,05 20,,INC 0020H
000D,75 8C D8,,MOV TH0,#0D8H
0010,75 8A EF,,MOV TL0,#0EFH
0013,32,,RETI ;10ms 中断，为拍定时，拍长RETI
,,,org 30h
0030,,START,START:
0030,75 8C D8,,MOV TH0,#0D8H
0033,75 8A EF,,MOV TL0,#0EFH
,,,
0036,D2 AF,,SETB EA
0038,D2 A9,,SETB ET0
003A,D2 A8,,SETB EX0
003C,D2 88,,SETB IT0
003E,75 89 01,,MOV TMOD,#01H
0041,85 00 90,,mov p1,00h
0044,85 00 A0,,MOV P2,00H
0047,A9 00,,MOV R1,00H
,,,
,,,;;;;;;;;;;;;;;;;;;;;;;;MOV DPTR,#M2
,,,;;;;;;;;;;;;;;;;;;;;;MOV 0022H,DPH
,,,;;;;;;;;;;;;;;;;;;;;;MOV 0021H,DPL
,,,;;;;;;;;;;;;;;;;;;;MOV DPTR,#M3
,,,;;;;;;;;;;;;;;;;;;;;MOV 0024,DPH
,,,;;;;;;;;;;;;;;;;;;MOV 0023,DPL
,,,;;;;;;;;;;;;;;;;;;;;;MOV DPTR,#M1
,,,;;;;;;;;;;;;;;;;;;;;MOV 0026,DPH
,,,;;;;;;;;;;;;;;;;;;;;;;;MOV 0025,DPL
,,,
,,,;*********************************
0049,C2 90,TEST,TEST:clr p1.0
,,,
004B,A9 00,,MOV R1,00H
004D,85 00 F0,,mov b,00h
,,,
0050,78 00,,mov R0,#00h
0052,D2 94,,SETB P1.4
0054,20 A0 4E,,JB P2.0,B3
0057,20 A5 63,,JB P2.5,B7
005A,C2 94,, CLR P1.4
005C,D2 95,,SETB P1.5
005E,20 A0 3E,,JB P2.0,B2
0061,20 A5 53,,JB P2.5,B6
0064,C2 95,,CLR P1.5
0066,D2 96,,SETB P1.6
0068,20 A0 2E,,JB P2.0,B1
006B,20 A5 43,,JB P2.5,B5
006E,C2 96,,CLR P1.6
0070,D2 97,,SETB P1.7
0072,20 A0 1C,,JB P2.0,BMUSIC
0075,C2 97,,CLR P1.7
0077,D2 93,,SETB P1.3
0079,20 A0 2F,,JB P2.0,B4
007C,C2 93,,CLR P1.3
007E,80 C9,,JMP TEST
,,,;************************************
,,,;===========================
0080,78 00,INT,INT: MOV R0,#00h
0082,20 A4 03,, JB P2.4,RES
0085,20 A5 05,, JB P2.5,NEXT
0088,79 50,RES, RES:MOV R1,#50H
008A,02 00 8F,, JMP R
008D,,NEXT, NEXT:
008D,79 05,, MOV R1,#05H
008F,00,R, R:NOP
0090,32,,RETI
,,,;===========================
0091,D2 A1,BMUSIC,BMUSIC: SETB P2.1
0093,90 01 81,, MOV DPTR,#M1
0096,02 01 18,, LJMP MUSIC0
0099,,B1,B1:
0099,90 02 68,, MOV DPTR,#DAT1
009C,02 01 1C,, LJMP MUSIC1
009F,,B2,B2:
009F,90 02 6B,, MOV DPTR,#DAT2
00A2,02 01 1C,, LJMP MUSIC1
00A5,,B3,B3:
00A5,90 02 6E,, MOV DPTR,#DAT3
00A8,02 01 1C,, LJMP MUSIC1
00AB,90 02 71,B4,B4: MOV DPTR,#DAT4
00AE,02 01 1C,, LJMP MUSIC1
00B1,90 02 74,B5,B5: MOV DPTR,#DAT5
00B4,02 01 1C,, LJMP MUSIC1
00B7,,B6,B6:
00B7,90 02 77,, MOV DPTR,#DAT6
00BA,02 01 1C,, LJMP MUSIC1
,,,
00BD,90 02 7A,B7,B7: MOV DPTR,#DAT7
00C0,02 01 1C,, LJMP MUSIC1
00C3,,RNEST,RNEST: ;;;;;;;;;;;;;;;;MOV DPH,00H
,,, ;;;;;;;;;;;;;;MOV DPL,#21H
,,, ;;;;;;;;;;;;;;;;;;;MOV A,B
,,, ;;;;;;;;;;;;;;;;;;;CJNE A,#06H,GOON
,,, ;;;;;;;;;;;;;;MOV B,00H
,,, ;;;;;;;;;;;;;;;;;;;;MOV A,B
,,, ;;;;;;;;;;;;;;;GOON:NOP
,,, ;;;;;;;;;;;;;;;MOVC A,@A+DPTR
,,, ;;;;;;;;;;;;;;;;MOV 27H,A
,,, ;;;;;;;;;;;;;;;INC B
,,, ;;;;;;;;;;;;mov A,B
,,, ;;;;;;;;;;;;;;;;MOVC A,@A+DPTR
,,, ;;;;;;;;;;;;;;;;;;MOV 28H,A
,,, ;;;;;;;;;;;;;;;;;;MOV DPL,27H
,,, ;;;;;;;;;;;;;;;MOV DPH,28H
,,, ;;;;;;;;;;;;;;;;MOV R1,00H
,,, ;;;;;;;;;;;;;;;;;;;;;LJMP MUSIC0
00C3,7B 1C,, mov r3,#1ch
00C5,7A 64,, mov r2,#64h
00C7,12 01 77,loop, loop:lcall del
00CA,DA FB,, djnz r2,loop
00CC,E5 F0,, mov a,b
00CE,B4 00 03,, cjne a,#00h,ji
00D1,02 00 E3,, jmp pm1
00D4,B4 01 03,ji, ji:cjne a,#01h,xu
00D7,02 00 EB,, jmp pm2
00DA,B4 02 03,xu, xu:cjne a,#02h,san
00DD,02 00 F3,, jmp pm3
00E0,02 00 FB,san, san:jmp pm4
,,,
,,,
00E3,90 02 5A,pm1, pm1:mov dptr,#m4
00E6,05 F0,, inc b
00E8,02 01 18,, jmp music0
00EB,90 01 93,pm2, pm2:mov dptr,#m2
00EE,05 F0,, inc b
00F0,02 01 18,, jmp music0
00F3,90 01 EF,pm3, pm3:mov dptr,#m3
00F6,05 F0,, inc b
00F8,02 01 18,, jmp music0
00FB,90 01 81,pm4, pm4:mov dptr,#m1
00FE,75 F0 00,, mov b,#00h
0101,02 01 18,, jmp music0
,,,
,,,
0104,,INTC,INTC:
0104,D2 A1,, SETB P2.1
0106,B9 50 03,, CJNE R1,#50H,CNN ; ;R1 中断功能选择
0109,02 00 49,, LJMP TEST
010C,00,CNN, CNN:NOP
010D,B9 05 05,, CJNE R1,#05H,CNNN
0110,A9 00,, mov r1,00h
0112,02 00 C3,, LJMP RNEST
0115,00,CNNN, CNNN:NOP
0116,80 EC,, JMP INTC
,,,;++++++++++++++++++++++++++++++++
0118,78 55,MUSIC0,MUSIC0: MOV R0,#55H ;R0 音乐模块选择
011A,D2 A1,, SETB P2.1
011C,,MUSIC1,MUSIC1:
011C,B9 50 03,, CJNE R1,#50H,NN ; ;R1 中断功能选择
011F,02 00 49,, LJMP TEST
0122,00,NN, NN:NOP
0123,B9 05 05,, CJNE R1,#05H,NNN
0126,A9 00,, mov r1,00h
0128,02 00 C3,, LJMP RNEST
012B,00,NNN, NNN:NOP
012C,75 20 00,, mov 20h,#00h
012F,E4,, CLR A
0130,93,, MOVC A,@A+DPTR
0131,FF,, MOV R7,A
0132,60 2C,, JZ END0
0134,B4 FF 03,, CJNE A,#0ffH,MUSIC2
0137,02 01 51,, JMP MUSIC4 ;stop 100ms
013A,,MUSIC2,MUSIC2:
,,, ;
013A,A3,, INC DPTR
013B,E5 F0,, MOV A,B
013D,93,, MOVC A,@A+DPTR
013E,FE,, MOV R6,A
013F,D2 8C,, SETB TR0
0141,,MUSIC3,MUSIC3:
,,,
,,,
,,,
0141,B2 90,, CPL P1.0
0143,EF,, MOV A,R7
0144,FB,, MOV R3,a
0145,12 01 77,, LCALL DEL
0148,EE,, mov a,r6
0149,B5 20 F5,, CJNE A,20H,MUSIC3
014C,C2 8C,, CLR TR0
014E,A3,, INC DPTR
014F,80 CB,, JMP MUSIC1
0151,00,MUSIC4,MUSIC4: NOP
,,,
0152,7A 0D,, MOV R2,#0DH
0154,,MUSIC5,MUSIC5:
0154,00,, NOP
0155,7B FF,, MOV R3,#0FFH
0157,12 01 77,, LCALL DEL
015A,DA F8,, DJNZ R2,MUSIC5
015C,A3,, INC DPTR
015D,02 01 1C,, LJMP MUSIC1
,,,
,,,
0160,00,END0,END0:NOP
0161,7A 00,,MOV R2,#00H
0163,,END1,END1:
0163,7B 00,, MOV R3,#00H
0165,12 01 77,, LCALL DEL
0168,DA F9,, DJNZ R2,END1
016A,C2 90,,clr p1.0 ;消除杂音
016C,C2 A1,,clr p2.1
016E,E8,,MOV A,R0
016F,B4 55 02,,CJNE A,#55H,NNNN
0172,80 90,, jmp INTC
0174,02 00 49,NNNN,NNNN:LJMP TEST
,,,;++++++++++++++++++++++++++++++++++++
,,,
,,,
,,,
0177,,DEL,DEL:
0177,00,, NOP
0178,,DEL3,DEL3:
0178,7C 02,, MOV R4,#02H ;20us
017A,,DEL4,DEL4:
017A,00,, NOP
017B,DC FD,, DJNZ R4,DEL4
017D,00,, NOP
017E,DB F8,, DJNZ R3,DEL3
0180,22,, RET
,,,
,,,
0181,,M1,M1:
0181,26 30 26 30,, DB 26h,30h, 26h,30h, 2bh,30h, 30h,30h, 30h,30h, 30h,30h, 39h,40h, 0FFH,40h,30h, 00h
0193,,m2,m2:
0193,20 40 1C 10,, DB 20H, 40H, 1CH, 10H
0197,18 10 20 10,, DB 18H, 10H, 20H, 10H
019B,1C 10 18 40,, DB 1CH, 10H, 18H, 40H
019F,1C 20 20 20,, DB 1CH, 20H, 20H, 20H
01A3,1C 20 18 20,, DB 1CH, 20H, 18H, 20H
01A7,20 80 FF,, DB 20H, 80H, 0FFH
01AA,20 20 1C 10,, DB 20H, 20H, 1CH , 10H
01AE,18 10 20 20,, DB 18H, 10H, 20H , 20H
01B2,26 20 2B 20,, DB 26H, 20H , 2BH , 20H
01B6,30 20 2B 40,, DB 30H, 20H , 2BH , 40H
01BA,20 20 1C 10,, DB 20H, 20H , 1CH , 10H
01BE,18 10 20 20,, DB 18H, 10H, 20H, 20H
01C2,26 20 2B 20,, DB 26H, 20H , 2BH, 20H
01C6,30 20 2B 40,, DB 30H, 20H, 2BH , 40H
01CA,20 30 1C 10,, DB 20H, 30H, 1CH , 10H
01CE,18 20 15 20,, DB 18H, 20H , 15H , 20H
01D2,1C 20 20 20,, DB 1CH, 20H , 20H , 20H
01D6,26 40 20 20,, DB 26H, 40H, 20H , 20H
01DA,2B 20 26 20,, DB 2BH, 20H, 26H , 20H
01DE,20 20 30 80,, DB 20H, 20H, 30H , 80H
01E2,20 30 1C 10,, DB 20H, 30H, 1CH , 10H
01E6,20 10 1C 10,, DB 20H, 10H, 1CH , 10H
01EA,20 20 26 20,, DB 20H, 20H, 26H , 20H,00h
,,,
01EF,,M3,M3:
01EF,26 20 20 20,, db 26h,20h,20h,20h,20h,20h,26h,10h,20h,10h,20h,80h,26h,20h,30h,20h
01FF,30 20 39 10,, db 30h,20h,39h,10h,30h,10h,30h,80h,26h,20h,20h,20h,20h,20h,1ch,20h
020F,20 80 2B 20,, db 20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20h
021F,30 20 30 20,, db 30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20h
022F,30 20 30 20,, db 30h,20h,30h,20h,39h,10h,26h,10h,26h,80h
0239,26 20 30 10,, db 26h,20h,30h,10h,30h,10h,30h,20h
0241,39 20 26 10,, db 39h,20h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,10h,40h,10h,20h,10h
0251,20 10 2B 10,, db 20h,10h,2bh,10h,26h,30h,30h,80h,00H
025A,,m4,m4:
025A,30 1C 2B 1C,,db 30h,1ch,2bh,1ch,26h,1ch,23h,1ch,20h,1ch,1ch,1ch,19h,1ch
,,,
0268,30 1C 00,DAT1,DAT1: DB 30H,1CH,00h
026B,2B 1C 00,DAT2,DAT2: DB 2BH,1CH,00h
026E,26 1C 00,DAT3,DAT3: DB 26H,1CH,00h
0271,23 1C 00,DAT4,DAT4: DB 23H,1CH,00h
0274,20 1C 00,DAT5,DAT5: DB 20H,1CH,00h
0277,1C 1C 00,DAT6,DAT6: DB 1CH,1CH,00h
027A,19 1C 00,DAT7,DAT7: DB 19H,1CH,00H
,,,
,,,
000E,,,END
,,,
,,,
,,,
,,,
,,,
,,,
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -