📄 sleep.lst
字号:
4 00033 C CleanRam:
5 00033 1810 C MOV A,@0x10
6 00034 0044 C MOV R4,A
7 00035 C Loop:
8 C ; CLR R0 ==> [R4]=0
9 00035 00C0 C CLR R0
10 00036 0544 C INC R4
11 00037 0404 C MOV A,R4
12 00038 19C0 C OR A,@0B11000000
13 00039 0883 C BC FLAG,Z
14 0003A 1BF0 C XOR A,@0xF0
15 0003B 0E83 C JBS FLAG,Z
16 0003C 1435 C JMP Loop
17 0003D 0012 C RET
18 C
19 C ;===============================================
20 C ; Function:Init_Ioport()设置端口状态
21 C ;===============================================
22 0003E C Init_Ioport:
23 C
24 0003E 0080 C clra
25 0003F 0005 C iow P5CON
26 00040 1801 C mov a,@0x01
27 00041 0006 C iow P6CON
28 C
29 00042 1800 C mov a,@0x0
30 00043 0045 C mov P5,a
31 00044 1800 C mov a,@0x0
32 00045 0046 C mov P6,a
33 00046 0000 C nop
34 C
35 C ;P5 and P6 Pull Down.
36 00047 1800 C mov A, @0B00000000
37 00048 000B C iow IOCB
38 C
39 C ;P6 mask switch
40 00049 1800 C mov A, @0B00000000
41 0004A 000C C iow IOCC
42 0004B 1800 C mov A, @0x00
43 0004C 000D C iow IOCD
44 C
45 0004D 0012 C ret
46 C
47 C
48 C
49 C
50 C
51 C
52 C
53 C ;===============================================
54 C ; Function:Init_Con_reg()初始化控制寄存器
55 C ;===============================================
56 0004E C Init_Con_reg:
57 C ;禁止看门狗
58 0004E 0004 C wdtc
59 0004F 001E C ior WTDCON ;禁止持门狗
60 00050 0050 C mov A_buff,a
61 00051 09D0 C bc A_buff,@0x07
62 00052 0410 C mov a,A_buff
63 00053 000E C iow WTDCON
64 00054 180E C mov a,@0001110B ;f/4
65 00055 0002 C contw
66 00056 1800 C mov a,@0
67 00057 0041 C mov TIME_COUNT,a
68 C ;----------------------------------------------
69 C ;计数中断使能
70 00058 080F C bc INT_STATU,@TC_FLAG_BIT
71 00059 001F C ior INT_MAST
72 0005A 0050 C mov A_buff,a
73 0005B 0810 C bc A_buff,@TC_FLAG_BIT
74 C ;bs A_buff,@TC_FLAG_BIT
75 0005C 0410 C mov a,A_buff
76 0005D 000F C iow INT_MAST
77 C ;----------------------------------------------
78 C ;外部中断使能
79 0005E 088F C bc INT_STATU,@EX_FLAG_BIT
80 C ;bs INT_STATU,@EX_FLAG_BIT
81 0005F 001F C ior INT_MAST
82 00060 0050 C mov A_buff,a
83 00061 0890 C bc A_buff,@EX_FLAG_BIT
84 C ; bs A_buff,@EX_FLAG_BIT
85 00062 0410 C mov a,A_buff
86 00063 000F C iow INT_MAST
87 00064 001E C ior WTDCON
88 00065 0050 C mov A_buff,a
89 C ; bs A_buff,@0x06
90 00066 0990 C bc A_buff,@0x06
91 00067 0410 C mov a,A_buff
92 00068 000E C iow WTDCON
93 C ;----------------------------------------------
94 C ;脚位变化中断
95 00069 084F C bc INT_STATU,@P6_FLAG_BIT
96 0006A 001F C ior INT_MAST
97 0006B 0050 C mov A_buff,a
98 0006C 0A50 C bs A_buff,@P6_FLAG_BIT
99 C ;bc A_buff,@P6_FLAG_BIT
100 0006D 0410 C mov a,A_buff
101 0006E 000F C iow INT_MAST
102 C ;----------------------------------------------
103 C
104 0006F 0012 C ret
105 C
106 C
97 include "time.asm"
1 C ;===============================================
2 C ; Function:延迟25ms
3 C ;===============================================
4 C ;delay_25ms:
5 C ; clr Time_Int_Count
6 C ;con_delay_25ms:
7 C ; mov a,Time_Int_Count
8 C ; sub a,@0xfa
9 C ; jbs FLAG,@Z
10 C ; jmp con_delay_25ms
11 C ; ret
12 C
13 C ;===============================================
14 C ; Function:延迟2ms
15 C ;===============================================
16 00070 C delay_2ms:
17 00070 00DD C clr time_delay
18 C
19 00071 C con_delay_2ms:
20 00071 055D C inc time_delay
21 00072 0000 C nop
22 00073 0000 C nop
23 00074 0000 C nop
24 00075 0000 C nop
25 00076 041D C mov a,time_delay
26 00077 1DC8 C sub a,@0xc8
27 00078 0E83 C jbs FLAG,@Z
28 00079 1471 C jmp con_delay_2ms
29 0007A 0012 C ret
30 C
31 C ;===============================================
32 C ; Function:延迟500ms
33 C ;===============================================
34 0007B C delay_500ms:
35 0007B 18FA C mov a,@0xfa
36 0007C 005C C mov time_delay1,a
37 0007D C con_delay_500ms:
38 0007D 1070 C call delay_2ms
39 0007E 01DC C dec time_delay1
40 0007F 0E83 C jbs FLAG,@Z
41 00080 147D C jmp con_delay_500ms
42 00081 0012 C ret
43 C
44 C ;===============================================
45 C ; Function:延迟50ms
46 C ;===============================================
47 00082 C delay_50ms:
48 00082 1819 C mov a,@0x19
49 00083 005C C mov time_delay1,a
50 C
51 00084 C con_delay_50ms:
52 00084 0004 C wdtc
53 00085 1070 C call delay_2ms
54 00086 01DC C dec time_delay1
55 00087 0E83 C jbs FLAG,@Z
56 00088 1484 C jmp con_delay_50ms
57 00089 0012 C ret
58 C
59 C
98 ;include "i2cproc.asm"
99 ;include "5800.asm"
100 END
101 ;===============================================
102 ; End of file.
103 ;===============================================
104
0 Error(s), 0 Warning(s), 0 User Message(s)⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -