📄 function.lst
字号:
Sat Sep 20 2008 11:08 Page 1
***************************************
** Zardoz 65C816 Macro Assembler **
** **
** Version 3.01 - Apr 20 1997 **
***************************************
1 .PW 128
2 .CHIP W65C02S
3 .GLOBALS ON
4 .INCLUDE SYSTEM.CFG
5
6
7
8 ;***************************************************************************
9 ;* global label definition
10 ;*
11 ;***************************************************************************
12 .PUBLIC Write_EPP128
13 .PUBLIC Verify_EPP128
14 ;PUBLIC DelayTime
15
16
17 ;***************************************************************************
18 .XDEF PC
19 .XDEF PCC
20 ;***************************************************************************
21 ;SYSRAM .SECTION REF_ONLY
22 ;***************************************************************************
23 00:0000: SDBuff .DS 1
24 00:0001: RDBuff .DS 1
25 00:0002: EPPAddH .DS 1
26 00:0003: EPPAddL .DS 1
27 00:0004: WriteBuff .DS 1
28 ;***************************************************************************
29 ;* Description: Section PS0
30 ;*
31 ;***************************************************************************
32 ;PS0 .SECTION
33 ;***************************************************************************
34 ;======================================================
35 ;Function: write 24CL128
36 ;Input: EppAdd,
37 ;PC0->SDA,PC1->SCL,PC2->WP
38 ;======================================================
39 Write_EPP128:
40
41
42
43 00:0005: 60 RTS
44
45
46 ;======================================================
47 ;Function: Verify 24CL128
48 ;Input: EppAdd,
49 ;PC0->SDA,PC1->SCL,PC2->WP;
50 ;======================================================
51 Verify_EPP128:
52
Sat Sep 20 2008 11:08 Page 2
53
54
55 00:0006: 60 RTS
56
57
58
59 ;======================================================
60 ;Function: Read a byte from EPPROM
61 ;
62 ;PC0->SDA,PC1->SCL,PC2->WP
63 ;======================================================
64 ReadByteEpp128:
65 00:0007: 20 xx xx JSR StartEpp
66 00:000A: A9 A0 LDA #10100000B
67 00:000C: 8D xx xx STA SDBuff
68 00:000F: 20 xx xx JSR SendData
69
70 00:0012: 20 xx xx JSR CheckAck
71 00:0015: C9 00 CMP #0
72 00:0017: F0 4D BEQ ReadByteError
73
74 00:0019: AD xx xx LDA EPPAddH
75 00:001C: 8D xx xx STA SDBuff
76 00:001F: 20 xx xx JSR SendData
77
78 00:0022: 20 xx xx JSR CheckAck
79 00:0025: C9 00 CMP #0
80 00:0027: F0 3D BEQ ReadByteError
81
82 00:0029: AD xx xx LDA EPPAddL
83 00:002C: 8D xx xx STA SDBuff
84 00:002F: 20 xx xx JSR SendData
85
86 00:0032: 20 xx xx JSR CheckAck
87 00:0035: C9 00 CMP #0
88 00:0037: F0 2D BEQ ReadByteError
89
90 00:0039: 87 xx SMB0 <PC
91 00:003B: 97 xx SMB1 <PC
92
93 00:003D: 20 xx xx JSR StartEpp
94
95 00:0040: A9 A1 LDA #10100001B
96 00:0042: 8D xx xx STA SDBuff
97 00:0045: 20 xx xx JSR SendData
98
99 00:0048: 20 xx xx JSR CheckAck
100 00:004B: C9 00 CMP #0
101 00:004D: F0 17 BEQ ReadByteError
102
103 00:004F: A9 10 LDA #11111110H ;PC0 as input
104 00:0051: 8D xx xx STA PCC
105 00:0054: 87 xx SMB0 <PC ;enable PC0 pull high
106 00:0056: EA NOP
107 00:0057: EA NOP
108 00:0058: EA NOP
109
110 00:0059: 20 xx xx JSR InceptData
Sat Sep 20 2008 11:08 Page 3
111
112 00:005C: A9 FF LDA #FFH
113 00:005E: 8D xx xx STA PCC
114 00:0061: 07 xx RMB0 <PC
115 00:0063: 20 xx xx JSR DelayTime
116 ReadByteError:
117 00:0066: 20 xx xx JSR StopEpp
118 00:0069: 60 RTS
119 ;======================================================
120 ;Function: Write a byte from EPPROM
121 ;
122 ;PC0->SDA,PC1->SCL,PC2->WP
123 ;======================================================
124 WriteByteEpp128:
125 00:006A: 20 xx xx JSR StartEpp
126
127 00:006D: A9 A0 LDA #10100000B
128 00:006F: 8D xx xx STA SDBuff
129 00:0072: 20 xx xx JSR SendData
130
131 00:0075: 20 xx xx JSR CheckAck
132 00:0078: C9 00 CMP #0
133 00:007A: F0 32 BEQ WriteByteError
134
135 00:007C: AD xx xx LDA EPPAddH
136 00:007F: 8D xx xx STA SDBuff
137 00:0082: 20 xx xx JSR SendData
138
139 00:0085: 20 xx xx JSR CheckAck
140 00:0088: C9 00 CMP #0
141 00:008A: F0 22 BEQ WriteByteError
142
143 00:008C: AD xx xx LDA EPPAddL
144 00:008F: 8D xx xx STA SDBuff
145 00:0092: 20 xx xx JSR SendData
146
147 00:0095: 20 xx xx JSR CheckAck
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -