hardware.lst
来自「利用凌阳61单片机实现输液的智能监控及语音报警」· LST 代码 · 共 1,052 行 · 第 1/4 页
LST
1,052 行
// F_SP_SACM_MS01_Init_:
// F_SP_SACM_DVR_Init_:
//////////////////////////////////////////////////
00000318 .IRAM
.PUBLIC R_InterruptStatus
00000318 00 00 .VAR R_InterruptStatus = 0 //
//////////////////////////////////////////////////
.DEFINE C_RampDelayTime 64
.DEFINE C_QueueSize 144
00000319 00 00 .VAR R_Queue
0000031A 00 00 00 00 .DW C_QueueSize-1 DUP(0)
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00 00 00
00 00
000003A9 00 00 .VAR R_ReadIndex
000003AA 00 00 .VAR R_WriteIndex
00008F56 .CODE
///////////////////////////////////////////
// Function: Initial Queue
// Destory: R1,r2
///////////////////////////////////////////
_SP_InitQueue: .PROC
_SP_InitQueue_A2000:
_SP_InitQueue_S480:
_SP_InitQueue_S240:
_SP_InitQueue_MS01:
_SP_InitQueue_DVR:
F_SP_InitQueue_A2000:
F_SP_InitQueue_S480:
F_SP_InitQueue_S240:
F_SP_InitQueue_MS01:
F_SP_InitQueue_DVR:
F_SP_InitQueue:
00008F56 09 93 19 03 r1 = R_Queue
00008F58 40 94 r2 = 0
L_ClearQueueLoop?:
00008F59 D1 D4 [r1++] = r2
00008F5A 09 43 A9 03 cmp r1, R_Queue+C_QueueSize
00008F5C 44 4E jne L_ClearQueueLoop?
00008F5D 40 92 r1 = 0
00008F5E 19 D3 A9 03 [R_ReadIndex] = r1
00008F60 19 D3 AA 03 [R_WriteIndex] = r1
00008F62 90 9A RETF
.ENDP
///////////////////////////////////////////
// Function: Get a data form Queue
// Output: R1: Data
// R2: return value
// Destory: R1,R2
///////////////////////////////////////////
F_SP_ReadQueue_A2000:
F_SP_ReadQueue_S480:
F_SP_ReadQueue_S240:
F_SP_ReadQueue_MS01:
F_SP_ReadQueue_DVR:
F_SP_ReadQueue:
00008F63 12 95 A9 03 r2 = [R_ReadIndex]
00008F65 12 45 AA 03 cmp r2,[R_WriteIndex]
00008F67 0D 5E je L_RQ_QueueEmpty
00008F68 0A 05 19 03 r2 += R_Queue // get queue data address
00008F6A C2 92 r1 = [r2]
00008F6B 12 95 A9 03 r2 = [R_ReadIndex]
00008F6D 41 04 r2 += 1
00008F6E 0A 45 90 00 cmp r2, C_QueueSize
00008F70 01 4E jne L_RQ_NotQueueBottom
00008F71 40 94 r2 = 0
L_RQ_NotQueueBottom:
00008F72 1A D5 A9 03 [R_ReadIndex] = r2
//r2 = 0x0000 // get queue data
00008F74 90 9A retf
L_RQ_QueueEmpty:
//r2 = 0x8000 // queue empty
00008F75 90 9A retf
///////////////////////////////////////////
// Function: Get a data from Queue but do
// not change queue index
// R1: output
// Destory: R1,R2
///////////////////////////////////////////
F_SP_ReadQueue_NIC:
F_SP_ReadQueue_NIC_A2000:
F_SP_ReadQueue_NIC_S480:
F_SP_ReadQueue_NIC_S240:
F_SP_ReadQueue_NIC_MS01:
F_SP_ReadQueue_NIC_DVR:
00008F76 12 95 A9 03 r2 = [R_ReadIndex]
00008F78 12 45 AA 03 cmp r2,[R_WriteIndex]
00008F7A 03 5E je L_RQ_QueueEmpty?
00008F7B 0A 05 19 03 r2 += R_Queue // get queue data index
00008F7D C2 92 r1 = [r2]
L_RQ_QueueEmpty?:
00008F7E 90 9A RETF
///////////////////////////////////////////
// Function: Put a data to Queue
// R1: Input
// Destory: R1,R2
///////////////////////////////////////////
F_SP_WriteQueue_A2000:
F_SP_WriteQueue_S480:
F_SP_WriteQueue_S240:
F_SP_WriteQueue_MS01:
F_SP_WriteQueue_DVR:
F_SP_WriteQueue:
00008F7F 12 95 AA 03 r2 = [R_WriteIndex] // put data to queue
00008F81 0A 05 19 03 r2 += R_Queue
00008F83 C2 D2 [r2] = r1
00008F84 12 95 AA 03 r2 = [R_WriteIndex]
00008F86 41 04 r2 += 1
00008F87 0A 45 90 00 cmp r2, C_QueueSize
00008F89 01 4E jne L_WQ_NotQueueBottom
00008F8A 40 94 r2 = 0
L_WQ_NotQueueBottom:
00008F8B 1A D5 AA 03 [R_WriteIndex] = r2
00008F8D 90 9A RETF
///////////////////////////////////////////
// Function: Test Queue Status
// o/p: R1
// Destory: R1
///////////////////////////////////////////
F_SP_TestQueue_A2000:
F_SP_TestQueue_S480:
F_SP_TestQueue_S240:
F_SP_TestQueue_MS01:
F_SP_TestQueue_DVR:
F_SP_TestQueue:
//... Test Queue Empty ...
00008F8E 11 93 A9 03 r1 = [R_ReadIndex]
00008F90 11 43 AA 03 cmp r1,[R_WriteIndex]
00008F92 12 5E je L_TQ_QueueEmpty
//... Test Queue Full ...
00008F93 11 93 A9 03 r1 = [R_ReadIndex] // For N Queue Full: 1.R=0 and W=N-1 2. R<>0 and W=R-1
00008F95 05 4E jnz L_TQ_JudgeCond2
00008F96 11 93 AA 03 r1 = [R_WriteIndex]
00008F98 09 43 8F 00 cmp r1, C_QueueSize-1 // Cond1
00008F9A 08 5E je L_TQ_QueueFull
L_TQ_JudgeCond2:
00008F9B 11 93 A9 03 r1 = [R_ReadIndex]
00008F9D 41 22 r1 -=1
00008F9E 11 43 AA 03 cmp r1,[R_WriteIndex]
00008FA0 02 5E je L_TQ_QueueFull
00008FA1 40 92 r1 = 0 // not Full, not empty
00008FA2 90 9A retf
L_TQ_QueueFull:
00008FA3 41 92 r1 = 1 // full
00008FA4 90 9A retf
L_TQ_QueueEmpty:
00008FA5 42 92 r1 = 2 // empty
00008FA6 90 9A retf
///////////////////////////////////////////////////////////////////////////////
// Function: The partial code of hardware setting of SACM_A2000_Initial()
// or F_SACM_A2000_Initial:
// Note: The following functions are the partial code of original
// initial subroutine. (H/W setting part)
//
// Ex: F_SACM_A2000_Initial:
// ...
// call F_SP_SACM_A2000_Init_ : S480/S240/MS01 is same
// ...
// retf
////////////////////////////////////////////////////////////////////////////////
F_SP_SACM_A2000_Init_:
00008FA7 40 92 r1=0x0000; // 24MHz, Fcpu=Fosc
00008FA8 19 D3 13 70 [P_SystemClock]=r1 // Frequency 20MHz
00008FAA 70 92 r1 = 0x0030 // TimerA CKA=Fosc/2 CKB=1 Tout:off
00008FAB 19 D3 0B 70 [P_TimerA_Ctrl] = r1 // Initial Timer A
00008FAD 09 93 00 FD r1 = 0xfd00 // 16K
00008FAF 19 D3 0A 70 [P_TimerA_Data] = r1
00008FB1 09 93 A8 00 r1 = 0x00A8 // Set the DAC Ctrl
00008FB3 19 D3 2A 70 [P_DAC_Ctrl] = r1
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?