BuzzRequP2.4
Keyequp3.7
ORG00H; main program start address
Jumping the main program
ORG0BH; TIMER0 interrupt start address
JMPTIM0; jumping to Timer0 in MODE1
Start: Mov TMOD, # 00000001B; Set Timer0 in Mode1
MOV IE, # 10000010b; Interrupt enable
JBKEY, $; press to?
CallDelay1; eliminate jitter
JNBKEY, $; Do you let go?
MOV 31H, # 00; count the number of pointers at the beginning value of 00H
START0:
Mov 30h, # LOWSONG; Take a notation code pointer (1st)
NEXT: MOV A, 30H
Mov dptr, # TABLE
MOV CA, @ A + DPTR; to related page number, high 4 bits of notes
MOV R2, A; low 4-bit beats
JZEND0; check if the spectrum is over (now?)
Anla, # 0fh; Take a tape (low 4)
MOV R5, A; deposit of R5, beats
Mov A, R2
Swapa
Anla, # 0fh; taking sound frequency value (high 4)
Jnzsing; is it 0, it is 0
CLRTR0
JMPD1
Sing: Deca; due to 0 is not included
MOV 22H, A; deposit (22h)
RLA; multiplication
Mov dptr, # TABLE
MOV CA, @ A + DPTR; to Table Take Code, take the value of T
MOV TH0, A; take the high byte deposits in TH0
MOV 21H, A; high bytes taken (21h)
MOV A, 22H; Re-loaded note
RLA; multiplication
INCA; plus 1
MOV CA, @ A + DPTR; to Table Take the relative low byte count value
MOV TL0, A; take the low byte deposits TL0
MOV 20H, A; take the low byte deposit (20h)
SetBTR0; start Timer0
D1: CallDelay
INC30H; Take a scorepoint pointer plus 1
JmpNext
END0: CLRTR0; Stop Counter
MOV A, 31H; Loading the counting pointer
XRLA, # 00H; Is it a first time?
Jnzend1; not jumping to end1
JBKEY, $; press the second time?
CallDelay1; eliminate jitter
JNBKEY, $;
INC31H; Times Address (31H) plus 1
Mov 30h, # LOWSONG1; 2nd song pointer
JmpNext
END1:
MOV A, 31H; Loading the counting pointer
XRLA, # 01H; Whether is the second?
JNZEND2; not jumping to end2
JBKEY, $; press 3?
CallDelay1; eliminate jitter
JNBKEY, $;
INC31H; Times Address (31H) plus 1
Mov 30H, # LOWSONG2; 3rd song pointer
JmpNext
END2:
MOV A, 31H; Loading the counting pointer
XRLA, # 02H; Whether is the third time?
JNZEND3; not jumping to end3
JBKEY, $; press 4th?
CallDelay1; eliminate jitter
JNBKEY, $;
INC31H; Times Address (31H) plus 1
Mov 30h, # LOWSONG3; 4th song pointer
JmpNext
END3:
MOV A, 31H; Loading the counting pointer
XRLA, # 03H; Whether is the 4th?
Jnzend4; not jumping to end4
JBKEY, $; press the 5th?
CallDelay1; eliminate jitter
JNBKEY, $;
INC31H; Times Address (31H) plus 1
Mov 30h, # LOWSONG4; 5th song pointer
JmpNext
END4:
MOV A, 31H; Loading the counting pointer
XRLA, # 01H; Is it possible according to the 5th?
Jnzend5; not jumping to end2
JBKEY, $; press 6th?
CallDelay1; eliminate jitter
JNBKEY, $;
INC31H; Times Address (31H) plus 1
Mov 30h, # LOWSONG5; 6th song pointer
JmpNext
END5:
JMPStart; return to the first position
TIM0: PUSHACC; temporarily sale the value of a
Pushpsw; Tempoose the value of the PSW to the stack
SetBRS0; set work register library 1, RS0 = 1, RS1 = 0
CLRRS1
MOV TL0, 20H; redesigned value
MOV TH0, 21H
CPLbuzzer; inverted P10
CLRRS0
POPPSW; to the stack to retrieve the value of the PSW
POPACC; to the stack retrieve a value
Reti; return to the main program
DELAY: MOV R7, # 02; 125 seconds
D2: MOV R4, # 125
D3: MOV R3, # 248
DJNZR3, $
Djnzr4, D3
DJNZR7, D2
Djnzr5, delay; decision beat
RET
Delay1: MOV R4, # 20
D4: MOV R3, # 248
DJNZR3, $
Djnzr4, D4
RET
ORG300H
TABLE:
DW64260, 64400, 64524, 64580
DW64684, 64777, 64820, 64898
DW64968, 65030, 65058, 65110
DW65157, 65178, 65217
Song :; First Song Pug
;1
DB42H, 42H, 42H, 52H, 62H, 04H
DB62H, 62H, 62H, 72H, 84H, 04H
DB92H, 92H, 82H, 72H, 64H, 04H
DB82H, 82H, 52H, 62H, 44H, 04H
;2
DB42H, 42H, 42H, 52H, 62H, 04H
DB62H, 62H, 62H, 72H, 84H, 04H
DB92H, 92H, 82H, 72H, 64H, 04H
DB82H, 82H, 52H, 62H, 44H, 04H
DB00H
Song1 :; Happy birthday to the 2nd song
;1
DB82H, 01H, 81H, 94H, 84H
DB0B4H, 0A4H, 04H
DB82H, 01H, 81H, 94H, 84H
DB0C4H, 0B4H, 04H
;2
DB82H, 01H, 81H, 0F4H, 0D4H
DB0B4H, 0A4H, 94H
DB0E2H, 01H, 0E1H, 0D4H, 0B4H
DB0C4H, 0B4H, 04H
DB00H
Song2 :; 3rd song
;1
DB84H, 94H, 88H
DB64H, 54H, 68H
DB84H, 64H, 54H, 44H
DB52H, 42H, 52H, 62H, 48H
;2
DB84H, 94H, 88H
DB64H, 54H, 68H
DB84H, 64H, 54H, 44H
DB52H, 42H, 52H, 62H, 48H
DB00H
Song3 :; 4th song sister carrying a doll
;1
DB84H, 02H, 82H, 64H, 54H
DB64H, 54H, 48H
DB64H, 02H, 52H, 44H, 24h
DB14H, 24h, 18h
;2
DB24H, 02H, 22H, 42H, 24h
DB44H, 54H, 68H
DB54H, 02H, 52H, 84H, 84H
DB54H, 64H, 48H
DB00H
Song4 :; Two tigers of the 5th song
;1
DB44H, 54H, 64H, 44H
DB44H, 54H, 64H, 44H
DB64H, 74H, 88H
DB64H, 74H, 88H
;2
DB82H, 92H, 82H, 72H, 64H, 44H
DB82H, 92H, 82H, 72H, 64H, 44H
DB44H, 84H, 48H
DB44H, 14H, 48H, 00h
Song5 :; three kittens 6 songs
;1
DB62H, 82H, 82H, 62H, 98H
DB92H, 0B2H, 0B2H, 82H, 98H
DB62H, 82H, 82H, 52H, 68H
DB92H, 0B2H, 0B2H, 82H, 98H
;2
DB62H, 82H, 82H, 62H, 92H, 92H, 94H
DB92H, 0B2H, 0B2H, 92H, 84H, 94H
DB0B8H, 0B4H, 04H
DB00H
End, read full text
Our other product:
