📄 hardware.lst
字号:
00008F2F 09 23 40 00 r1 -= 0x40;
00008F31 19 D3 17 70 [P_DAC1] = r1;
00008F33 4A 4E jnz L_RD_Loop;
L_RD_End:
00008F34 90 90 pop r1,r2 from [sp];
00008F35 90 9A retf;
.ENDP
///////////////////////////////////////
_SP_RampUpDAC2: .PROC
F_SP_RampUpDAC2:
00008F36 90 D4 push r1,r2 to [sp];
00008F37 11 93 16 70 r1=[P_DAC2];
00008F39 09 B3 C0 FF r1 &= ~0x003f;
00008F3B 09 43 00 80 cmp r1,0x8000
00008F3D 0E 0E jb L_RU_NormalUp_;
00008F3E 5D 5E je L_RU_End;
L_RU_DownLoop_:
00008F3F 40 F0 6C 8F call F_Delay;
00008F41 41 94 r2 = 0x0001;
00008F42 1A D5 12 70 [P_Watchdog_Clear] = r2;
00008F44 09 23 40 00 r1 -= 0x40;
00008F46 19 D3 16 70 [P_DAC2] = r1;
00008F48 09 43 00 80 cmp r1,0x8000;
00008F4A 4C 4E jne L_RU_DownLoop_;
L_RD_DownEnd_:
00008F4B 0C EE jmp L_RU_End_;
L_RU_NormalUp_:
L_RU_Loop_:
00008F4C 40 F0 6C 8F call F_Delay;
00008F4E 41 94 r2 = 0x0001;
00008F4F 1A D5 12 70 [P_Watchdog_Clear] = r2;
00008F51 09 03 40 00 r1 += 0x40;
00008F53 19 D3 16 70 [P_DAC2] = r1;
00008F55 09 43 00 80 cmp r1, 0x8000;
00008F57 4C 4E jne L_RU_Loop_;
L_RU_End_:
00008F58 90 90 pop r1,r2 from [sp];
00008F59 90 9A retf;
.ENDP
///////////////////////////////////////
_SP_RampDnDAC2: .PROC
F_SP_RampDnDAC2:
//int off;
00008F5A 90 D4 push r1,r2 to [sp];
00008F5B 11 93 16 70 r1 = [P_DAC2];
00008F5D 09 B3 C0 FF r1 &= ~0x003F;
00008F5F 0A 5E jz L_RD_End_;
L_RD_Loop_:
00008F60 40 F0 6C 8F call F_Delay;
00008F62 41 94 r2 = 0x0001;
00008F63 1A D5 12 70 [P_Watchdog_Clear] = r2;
00008F65 09 23 40 00 r1 -= 0x40;
00008F67 19 D3 16 70 [P_DAC2] = r1;
00008F69 4A 4E jnz L_RD_Loop_;
L_RD_End_:
00008F6A 90 90 pop r1,r2 from [sp];
00008F6B 90 9A retf;
.ENDP
////////////////////////////////////////
F_Delay:
00008F6C 88 D2 push r1 to [sp];
00008F6D 48 92 r1 = 8;
L_D_Loop:
00008F6E 41 22 r1 -= 1;
00008F6F 42 4E jnz L_D_Loop;
00008F70 88 90 pop r1 from [sp];
00008F71 90 9A retf;
///////////////////////////////////////////
// Function: Initial Queue
// Destory: R1,R2
///////////////////////////////////////////
F_SP_InitQueue:
00008F72 09 93 FE 02 R1 = R_Queue;
00008F74 40 94 R2 = 0;
L_ClearQueueLoop:
00008F75 D1 D4 [R1++] = R2;
00008F76 09 43 30 03 cmp R1, R_Queue+C_QueueSize;
00008F78 44 4E jne L_ClearQueueLoop;
00008F79 40 92 R1 = 0;
00008F7A 19 D3 30 03 [R_ReadIndex] = R1;
00008F7C 19 D3 31 03 [R_WriteIndex] = R1;
00008F7E 90 9A retf;
///////////////////////////////////////////
// Function: Get a data form Queue
// Output: R1: Data
// R2: return value
// Destory: R1,R2
///////////////////////////////////////////
F_SP_ReadQueue:
00008F7F 12 95 30 03 R2 = [R_ReadIndex];
00008F81 12 45 31 03 cmp R2,[R_WriteIndex];
00008F83 0C 5E je L_RQ_QueueEmpty;
00008F84 0A 05 FE 02 R2 += R_Queue; // get queue data address
00008F86 C2 92 R1 = [R2];
00008F87 12 95 30 03 R2 = [R_ReadIndex];
00008F89 41 04 R2 += 1;
00008F8A 72 44 cmp R2, C_QueueSize;
00008F8B 01 4E jne L_RQ_NotQueueBottom;
00008F8C 40 94 R2 = 0;
L_RQ_NotQueueBottom:
00008F8D 1A D5 30 03 [R_ReadIndex] = R2;
//r2 = 0x0000; // get queue data
00008F8F 90 9A retf;
L_RQ_QueueEmpty:
//r2 = 0x8000; // queue empty
00008F90 90 9A retf;
///////////////////////////////////////////
// Function: Put a data to Queue
// R1: Input
// Destory: R1,R2,R3
///////////////////////////////////////////
F_SP_WriteQueue:
00008F91 12 95 31 03 R2 = [R_WriteIndex]; // put data to queue
00008F93 0A 05 FE 02 R2 += R_Queue;
00008F95 C2 D2 [R2] = R1;
00008F96 12 95 31 03 R2 = [R_WriteIndex];
00008F98 41 04 R2 += 1;
00008F99 72 44 cmp R2, C_QueueSize;
00008F9A 01 4E jne L_WQ_NotQueueBottom;
00008F9B 40 94 R2 = 0;
L_WQ_NotQueueBottom:
00008F9C 1A D5 31 03 [R_WriteIndex] = R2;
00008F9E 90 9A retf;
//..........................................
F_SP_TestQueue:
//... Test Queue Empty ...
00008F9F 11 93 30 03 R1 = [R_ReadIndex];
00008FA1 11 43 31 03 cmp R1,[R_WriteIndex];
00008FA3 11 5E je L_TQ_QueueEmpty;
//... Test Queue Full ...
00008FA4 11 93 30 03 R1 = [R_ReadIndex]; // For N Queue Full: 1. W=R-1 2.R=0/W=N-1
00008FA6 04 4E jnz L_TQ_JudgeCond2;
00008FA7 11 93 31 03 R1 = [R_WriteIndex];
00008FA9 71 42 cmp R1, C_QueueSize-1; // Cond1
00008FAA 08 5E je L_TQ_QueueFull;
L_TQ_JudgeCond2:
00008FAB 11 93 30 03 R1 = [R_ReadIndex];
00008FAD 41 22 R1 -=1;
00008FAE 11 43 31 03 cmp R1,[R_WriteIndex];
00008FB0 02 5E je L_TQ_QueueFull;
00008FB1 40 92 r1 = 0; // not Full, not empty
00008FB2 90 9A retf;
L_TQ_QueueFull:
00008FB3 41 92 r1 = 1; // full
00008FB4 90 9A retf;
L_TQ_QueueEmpty:
00008FB5 42 92 r1 = 2; // empty
00008FB6 90 9A retf;
//.........................................
//////////////////////////////////////////////////////
// SACM_GetResource(Address,Page,offset);
//////////////////////////////////////////////////////
_SP_GetResource: .PROC
00008FB7 88 DA push bp to [sp];
00008FB8 08 0B 01 00 bp = sp + 1;
//push r2 to [sp];
00008FBA 03 92 r1 = [bp+3]; // address
00008FBB 04 94 r2 = [bp+4]; // bank
00008FBC 5A 95 r2 = r2 lsl 4;
00008FBD 5A 95 r2 = r2 lsl 4;
00008FBE 4A 95 r2 = r2 lsl 2;
00008FBF 7F BC sr &= 0x03f;
00008FC0 06 A5 r2 |=sr;
00008FC1 02 9D sr = r2;
00008FC2 E1 92 r1 = D:[r1];
//pop r2 from [sp];
00008FC3 88 98 pop bp from [sp];
00008FC4 90 9A retf;
.ENDP
_SP_Delay: .PROC
F_SP_Delay:
00008FC5 90 9A retf;
.ENDP
//========================================================================================
// End of hardware.asm
//========================================================================================
0 error(s), 0 warning(s).
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -