hardware.lst
来自「结合"61板"的三个按键完成带有语音播报功能的电子钟:、KEY1－－按一下播放年」· LST 代码 · 共 660 行 · 第 1/3 页
LST
660 行
00009507 09 23 40 00 r1 -= 0x40;
00009509 19 D3 17 70 [P_DAC1] = r1;
0000950B 4A 4E jnz L_RD_Loop;
L_RD_End:
0000950C 90 90 pop r1,r2 from [sp];
0000950D 90 9A retf;
.ENDP
///////////////////////////////////////
_SP_RampUpDAC2: .PROC
F_SP_RampUpDAC2:
0000950E 90 D4 push r1,r2 to [sp];
0000950F 11 93 16 70 r1=[P_DAC2];
00009511 09 B3 C0 FF r1 &= ~0x003f;
00009513 09 43 00 80 cmp r1,0x8000
00009515 0E 0E jb L_RU_NormalUp_;
00009516 5D 5E je L_RU_End;
L_RU_DownLoop_:
00009517 40 F0 44 95 call F_Delay;
00009519 41 94 r2 = 0x0001;
0000951A 1A D5 12 70 [P_Watchdog_Clear] = r2;
0000951C 09 23 40 00 r1 -= 0x40;
0000951E 19 D3 16 70 [P_DAC2] = r1;
00009520 09 43 00 80 cmp r1,0x8000;
00009522 4C 4E jne L_RU_DownLoop_;
L_RD_DownEnd_:
00009523 0C EE jmp L_RU_End_;
L_RU_NormalUp_:
L_RU_Loop_:
00009524 40 F0 44 95 call F_Delay;
00009526 41 94 r2 = 0x0001;
00009527 1A D5 12 70 [P_Watchdog_Clear] = r2;
00009529 09 03 40 00 r1 += 0x40;
0000952B 19 D3 16 70 [P_DAC2] = r1;
0000952D 09 43 00 80 cmp r1, 0x8000;
0000952F 4C 4E jne L_RU_Loop_;
L_RU_End_:
00009530 90 90 pop r1,r2 from [sp];
00009531 90 9A retf;
.ENDP
///////////////////////////////////////
_SP_RampDnDAC2: .PROC
F_SP_RampDnDAC2:
//int off;
00009532 90 D4 push r1,r2 to [sp];
00009533 11 93 16 70 r1 = [P_DAC2];
00009535 09 B3 C0 FF r1 &= ~0x003F;
00009537 0A 5E jz L_RD_End_;
L_RD_Loop_:
00009538 40 F0 44 95 call F_Delay;
0000953A 41 94 r2 = 0x0001;
0000953B 1A D5 12 70 [P_Watchdog_Clear] = r2;
0000953D 09 23 40 00 r1 -= 0x40;
0000953F 19 D3 16 70 [P_DAC2] = r1;
00009541 4A 4E jnz L_RD_Loop_;
L_RD_End_:
00009542 90 90 pop r1,r2 from [sp];
00009543 90 9A retf;
.ENDP
////////////////////////////////////////
F_Delay:
00009544 88 D2 push r1 to [sp];
00009545 48 92 r1 = 8;
L_D_Loop:
00009546 41 22 r1 -= 1;
00009547 42 4E jnz L_D_Loop;
00009548 88 90 pop r1 from [sp];
00009549 90 9A retf;
///////////////////////////////////////////
// Function: Initial Queue
// Destory: R1,R2
///////////////////////////////////////////
F_SP_InitQueue:
0000954A 09 93 FA 02 R1 = R_Queue;
0000954C 40 94 R2 = 0;
L_ClearQueueLoop:
0000954D D1 D4 [R1++] = R2;
0000954E 09 43 2C 03 cmp R1, R_Queue+C_QueueSize;
00009550 44 4E jne L_ClearQueueLoop;
00009551 40 92 R1 = 0;
00009552 19 D3 2C 03 [R_ReadIndex] = R1;
00009554 19 D3 2D 03 [R_WriteIndex] = R1;
00009556 90 9A retf;
///////////////////////////////////////////
// Function: Get a data form Queue
// Output: R1: Data
// R2: return value
// Destory: R1,R2
///////////////////////////////////////////
F_SP_ReadQueue:
00009557 12 95 2C 03 R2 = [R_ReadIndex];
00009559 12 45 2D 03 cmp R2,[R_WriteIndex];
0000955B 0C 5E je L_RQ_QueueEmpty;
0000955C 0A 05 FA 02 R2 += R_Queue; // get queue data address
0000955E C2 92 R1 = [R2];
0000955F 12 95 2C 03 R2 = [R_ReadIndex];
00009561 41 04 R2 += 1;
00009562 72 44 cmp R2, C_QueueSize;
00009563 01 4E jne L_RQ_NotQueueBottom;
00009564 40 94 R2 = 0;
L_RQ_NotQueueBottom:
00009565 1A D5 2C 03 [R_ReadIndex] = R2;
//r2 = 0x0000; // get queue data
00009567 90 9A retf;
L_RQ_QueueEmpty:
//r2 = 0x8000; // queue empty
00009568 90 9A retf;
///////////////////////////////////////////
// Function: Put a data to Queue
// R1: Input
// Destory: R1,R2,R3
///////////////////////////////////////////
F_SP_WriteQueue:
00009569 12 95 2D 03 R2 = [R_WriteIndex]; // put data to queue
0000956B 0A 05 FA 02 R2 += R_Queue;
0000956D C2 D2 [R2] = R1;
0000956E 12 95 2D 03 R2 = [R_WriteIndex];
00009570 41 04 R2 += 1;
00009571 72 44 cmp R2, C_QueueSize;
00009572 01 4E jne L_WQ_NotQueueBottom;
00009573 40 94 R2 = 0;
L_WQ_NotQueueBottom:
00009574 1A D5 2D 03 [R_WriteIndex] = R2;
00009576 90 9A retf;
//..........................................
F_SP_TestQueue:
//... Test Queue Empty ...
00009577 11 93 2C 03 R1 = [R_ReadIndex];
00009579 11 43 2D 03 cmp R1,[R_WriteIndex];
0000957B 11 5E je L_TQ_QueueEmpty;
//... Test Queue Full ...
0000957C 11 93 2C 03 R1 = [R_ReadIndex]; // For N Queue Full: 1. W=R-1 2.R=0/W=N-1
0000957E 04 4E jnz L_TQ_JudgeCond2;
0000957F 11 93 2D 03 R1 = [R_WriteIndex];
00009581 71 42 cmp R1, C_QueueSize-1; // Cond1
00009582 08 5E je L_TQ_QueueFull;
L_TQ_JudgeCond2:
00009583 11 93 2C 03 R1 = [R_ReadIndex];
00009585 41 22 R1 -=1;
00009586 11 43 2D 03 cmp R1,[R_WriteIndex];
00009588 02 5E je L_TQ_QueueFull;
00009589 40 92 r1 = 0; // not Full, not empty
0000958A 90 9A retf;
L_TQ_QueueFull:
0000958B 41 92 r1 = 1; // full
0000958C 90 9A retf;
L_TQ_QueueEmpty:
0000958D 42 92 r1 = 2; // empty
0000958E 90 9A retf;
//.........................................
//////////////////////////////////////////////////////
// SACM_GetResource(Address,Page,offset);
//////////////////////////////////////////////////////
_SP_GetResource: .PROC
0000958F 88 DA push bp to [sp];
00009590 08 0B 01 00 bp = sp + 1;
//push r2 to [sp];
00009592 03 92 r1 = [bp+3]; // address
00009593 04 94 r2 = [bp+4]; // bank
00009594 5A 95 r2 = r2 lsl 4;
00009595 5A 95 r2 = r2 lsl 4;
00009596 4A 95 r2 = r2 lsl 2;
00009597 7F BC sr &= 0x03f;
00009598 06 A5 r2 |=sr;
00009599 02 9D sr = r2;
0000959A E1 92 r1 = D:[r1];
//pop r2 from [sp];
0000959B 88 98 pop bp from [sp];
0000959C 90 9A retf;
.ENDP
_SP_Delay: .PROC
F_SP_Delay:
0000959D 90 9A retf;
.ENDP
//========================================================================================
// End of hardware.asm
//========================================================================================
0 error(s), 0 warning(s).
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?