📄 s6b0108.a30
字号:
._type 262,'x',261,1
._type 262,'m','Reg_Code',0,3
._func 'Write_0108_Reg','G',2,262,$Write_0108_Reg,0
._inspect 'F', 's', "Write_0108_Reg", "$Write_0108_Reg", 'G', 7
.align
._line 117
.glb $Write_0108_Reg
$Write_0108_Reg:
enter #02H
mov.b R1L,-1[FB] ; Reg_Code Reg_Code
._block
._var 'Reg_Code','A',3,-1
._var 'bus_low','A',3,-2
._var 'bus_high','A',3,-1
._line 121
mov.b -1[FB],R1L ; Reg_Code
._inspect 'S', 'c', "Data_Convert", "$Data_Convert", 'G', 0, 121
jsr $Data_Convert
mov.b R0L,-1[FB] ; bus_high
mov.b R0L,-2[FB] ; bus_low
._line 123
mov.b -2[FB],A0 ; bus_low
and.w #000fH,A0
mov.b A0,-2[FB] ; bus_low
._line 124
mov.b -1[FB],A0 ; bus_high
and.w #00f0H,A0
mov.b A0,-1[FB] ; bus_high
._line 126
shl.b #-4,-1[FB] ; bus_high
._line 128
bclr 2,_p6_addr
._line 130
mov.w #_p0_addr,A0
mov.b [A0],A1
and.w #00f0H,A1
mov.b A1,[A0]
._line 131
mov.w #_p1_addr,A0
mov.b [A0],A1
and.w #00f0H,A1
mov.b A1,[A0]
._line 132
mov.w #_p0_addr,A0
or.b -2[FB],[A0] ; bus_low
._line 133
mov.w #_p1_addr,A0
or.b -1[FB],[A0] ; bus_high
._line 134
bset 4,_p0_addr
._line 135
bclr 4,_p0_addr
._eblock
._line 136
exitd
E4:
M4:
._efunc M4
._inspect 'F', 'd', "Write_0108_Reg", "$Write_0108_Reg", 'G', 117, 0, 00h, 0
._inspect 'F', 't', "Write_0108_Reg", 'G', 262
._inspect 'F', 'r', "Data_Convert", "$Data_Convert", 'G', 121, 0, 00h, 0
._inspect 'V', 'r', "p6_addr", 'G', 128, 1, 1, 0, 04h
._inspect 'V', 'r', "p0_addr", 'G', 130, 1, 1, 0, 00h
._inspect 'V', 'r', "p1_addr", 'G', 131, 1, 1, 0, 00h
._inspect 'V', 'r', "p0_addr", 'G', 132, 1, 1, 0, 00h
._inspect 'V', 'r', "p1_addr", 'G', 133, 1, 1, 0, 00h
._inspect 'V', 'r', "p0_addr", 'G', 134, 1, 1, 0, 010h
._inspect 'V', 'r', "p0_addr", 'G', 135, 1, 1, 0, 010h
._inspect 'F', 'e', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 0
;## # FUNCTION Write_0108_Data
;## # FRAME AUTO ( bus_low) size 1, offset -2
;## # FRAME AUTO (bus_high) size 1, offset -1
;## # FRAME AUTO (Bus_Data) size 1, offset -1
;## # REGISTER ARG (Bus_Data) size 1, REGISTER R1L
;## # ARG Size(0) Auto Size(2) Context Size(5)
._type 263,'v'
._type 264,'x',263,1
._type 264,'m','Bus_Data',0,3
._func 'Write_0108_Data','G',2,264,$Write_0108_Data,0
._inspect 'F', 's', "Write_0108_Data", "$Write_0108_Data", 'G', 7
.align
._line 147
.glb $Write_0108_Data
$Write_0108_Data:
enter #02H
mov.b R1L,-1[FB] ; Bus_Data Bus_Data
._block
._var 'Bus_Data','A',3,-1
._var 'bus_low','A',3,-2
._var 'bus_high','A',3,-1
._line 151
mov.b -1[FB],R1L ; Bus_Data
._inspect 'S', 'c', "Data_Convert", "$Data_Convert", 'G', 0, 151
jsr $Data_Convert
mov.b R0L,-1[FB] ; bus_high
mov.b R0L,-2[FB] ; bus_low
._line 153
mov.b -2[FB],A0 ; bus_low
and.w #000fH,A0
mov.b A0,-2[FB] ; bus_low
._line 154
mov.b -1[FB],A0 ; bus_high
and.w #00f0H,A0
mov.b A0,-1[FB] ; bus_high
._line 156
shl.b #-4,-1[FB] ; bus_high
._line 158
bset 2,_p6_addr
._line 161
mov.w #_p0_addr,A0
mov.b [A0],A1
and.w #00f0H,A1
mov.b A1,[A0]
._line 162
mov.w #_p1_addr,A0
mov.b [A0],A1
and.w #00f0H,A1
mov.b A1,[A0]
._line 163
mov.w #_p0_addr,A0
or.b -2[FB],[A0] ; bus_low
._line 164
mov.w #_p1_addr,A0
or.b -1[FB],[A0] ; bus_high
._line 165
bset 4,_p0_addr
._line 167
bclr 4,_p0_addr
._eblock
._line 168
exitd
E5:
M5:
._efunc M5
._inspect 'F', 'd', "Write_0108_Data", "$Write_0108_Data", 'G', 147, 0, 00h, 0
._inspect 'F', 't', "Write_0108_Data", 'G', 264
._inspect 'F', 'r', "Data_Convert", "$Data_Convert", 'G', 151, 0, 00h, 0
._inspect 'V', 'r', "p6_addr", 'G', 158, 1, 1, 0, 04h
._inspect 'V', 'r', "p0_addr", 'G', 161, 1, 1, 0, 00h
._inspect 'V', 'r', "p1_addr", 'G', 162, 1, 1, 0, 00h
._inspect 'V', 'r', "p0_addr", 'G', 163, 1, 1, 0, 00h
._inspect 'V', 'r', "p1_addr", 'G', 164, 1, 1, 0, 00h
._inspect 'V', 'r', "p0_addr", 'G', 165, 1, 1, 0, 010h
._inspect 'V', 'r', "p0_addr", 'G', 167, 1, 1, 0, 010h
._inspect 'F', 'e', "Write_0108_Data", "$Write_0108_Data", 'G', 0, 0
;## # FUNCTION Read_0108_Data
;## # FRAME AUTO (Bus_Data_0) size 1, offset -2
;## # FRAME AUTO (Bus_Data_1) size 1, offset -1
;## # ARG Size(0) Auto Size(2) Context Size(5)
._type 265,'x',3,0
._func 'Read_0108_Data','G',2,265,_Read_0108_Data,0
._inspect 'F', 's', "Read_0108_Data", "_Read_0108_Data", 'G', 7
.align
._line 179
.glb _Read_0108_Data
_Read_0108_Data:
enter #02H
._block
._var 'Bus_Data_0','A',3,-2
._var 'Bus_Data_1','A',3,-1
._line 183
bset 2,_p6_addr
._line 185
mov.w #_p0_addr,A0
mov.b [A0],A1
and.w #00f0H,A1
mov.b A1,[A0]
._line 186
mov.w #_p1_addr,A0
mov.b [A0],A1
and.w #00f0H,A1
mov.b A1,[A0]
._line 187
bset 4,_p0_addr
._line 188
mov.b _p1_addr,-1[FB] ; Bus_Data_1
._line 189
mov.b _p0_addr,-2[FB] ; Bus_Data_0
._line 190
bclr 4,_p0_addr
._line 192
shl.b #04H,-1[FB] ; Bus_Data_1
._line 193
mov.b -2[FB],A0 ; Bus_Data_0
and.w #00f0H,A0
mov.b A0,-2[FB] ; Bus_Data_0
._line 194
or.b -1[FB],-2[FB] ; Bus_Data_1 Bus_Data_0
._line 196
mov.b -2[FB],R0L ; Bus_Data_0
exitd
E6:
._eblock
M6:
._efunc M6
._inspect 'F', 'd', "Read_0108_Data", "_Read_0108_Data", 'G', 179, 0, 00h, 0
._inspect 'F', 't', "Read_0108_Data", 'G', 265
._inspect 'V', 'r', "p6_addr", 'G', 183, 1, 1, 0, 04h
._inspect 'V', 'r', "p0_addr", 'G', 185, 1, 1, 0, 00h
._inspect 'V', 'r', "p1_addr", 'G', 186, 1, 1, 0, 00h
._inspect 'V', 'r', "p0_addr", 'G', 187, 1, 1, 0, 010h
._inspect 'V', 'r', "p1_addr", 'G', 188, 1, 1, 0, 00h
._inspect 'V', 'r', "p0_addr", 'G', 189, 1, 1, 0, 00h
._inspect 'V', 'r', "p0_addr", 'G', 190, 1, 1, 0, 010h
._inspect 'F', 'e', "Read_0108_Data", "_Read_0108_Data", 'G', 0, 0
;## # FUNCTION Set_XY
;## # FRAME AUTO (X_Column) size 1, offset -1
;## # FRAME ARG ( Y_Page) size 1, offset 5
;## # REGISTER ARG (X_Column) size 1, REGISTER R1L
;## # ARG Size(1) Auto Size(1) Context Size(5)
._type 266,'v'
._type 267,'x',266,2
._type 267,'m','X_Column',0,3
._type 267,'m','Y_Page',0,3
._func 'Set_XY','G',1,267,$Set_XY,0
._inspect 'F', 's', "Set_XY", "$Set_XY", 'G', 6
.align
._line 209
.glb $Set_XY
$Set_XY:
enter #01H
mov.b R1L,-1[FB] ; X_Column X_Column
._block
._var 'X_Column','A',3,-1
._var 'Y_Page','A',3,5
._line 210
mov.b 5[FB],A0 ; Y_Page
add.w #00b8H,A0
mov.b A0,R1L
._inspect 'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 210
jsr $Write_0108_Reg
._line 211
mov.b -1[FB],A0 ; X_Column
add.w #0040H,A0
mov.b A0,R1L
._inspect 'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 211
jsr $Write_0108_Reg
._eblock
._line 212
exitd
E7:
M7:
._efunc M7
._inspect 'F', 'd', "Set_XY", "$Set_XY", 'G', 209, 0, 00h, 0
._inspect 'F', 't', "Set_XY", 'G', 267
._inspect 'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 210, 0, 00h, 0
._inspect 'F', 'r', "Write_0108_Reg", "$Write_0108_Reg", 'G', 211, 0, 00h, 0
._inspect 'F', 'e', "Set_XY", "$Set_XY", 'G', 0, 0
;## # FUNCTION Init_0108
;## # ARG Size(0) Auto Size(0) Context Size(3)
._type 268,'v'
._type 269,'x',268,0
._func 'Init_0108','G',0,269,_Init_0108,0
._inspect 'F', 's', "Init_0108", "_Init_0108", 'G', 3
.align
._line 223
.glb _Init_0108
_Init_0108:
._block
._line 224
mov.w #0064H,R1
._inspect 'S', 'c', "Delay", "$Delay", 'G', 0, 224
jsr $Delay
._line 225
bclr 5,_p0_addr
._line 226
bclr 1,_p6_addr
._line 227
mov.w #0064H,R1
._inspect 'S', 'c', "Delay", "$Delay", 'G', 0, 227
jsr $Delay
._line 228
mov.b #3eH,R1L
._inspect 'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 228
jsr $Write_0108_Reg
._line 229
mov.b #0c0H,R1L
._inspect 'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 229
jsr $Write_0108_Reg
._line 230
mov.b #0b8H,R1L
._inspect 'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 230
jsr $Write_0108_Reg
._line 231
mov.b #40H,R1L
._inspect 'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 231
jsr $Write_0108_Reg
._line 232
mov.b #3fH,R1L
._inspect 'S', 'c', "Write_0108_Reg", "$Write_0108_Reg", 'G', 0, 232
jsr $Write_0108_Reg
._line 233
mov.w #0064H,R1
._inspect 'S', 'c', "Delay", "$Delay", 'G', 0, 233
jsr $Delay
._line 234
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -