?? wr_cmd.asm
字號(hào):
; 子程序 write_command.asm
.global _write_command
.include MMRegs.h
.ref ms_delay , us_delay ,t_delay1,t_delay2
_write_command:
; CS=1 write "1 1 1 1 1 " ;IO2=CS IO1=ECLK IO0=SID
; ld #1,dp
stm #0x2900,ST1
nop
nop
stm #0005h,ar6
portw ar6,8007h
call t_delay1
stm #0007h,ar6
portw ar6,8007h
call t_delay1
stm #0005h,ar6
portw ar6,8007h
call t_delay1
stm #0007h,ar6
portw ar6,8007h
call t_delay1
stm #0005h,ar6
portw ar6,8007h
call t_delay1
stm #0007h,ar6
portw ar6,8007h
call t_delay1
stm #0005h,ar6
portw ar6,8007h
call t_delay1
stm #0007h,ar6
portw ar6,8007h
call t_delay1
stm #0005h,ar6
portw ar6,8007h
call t_delay1
stm #0007h,ar6
portw ar6,8007h
call t_delay1
;write "RW" =0
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
;write "RS" =0
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
;write "0"
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay2
;===================================================
;===================================================
;send D7-D4:
;send D7
ldm ar5,a
and #0080h,a
or #0200h,a
sftl a,-7
stl a ,AR6
portw AR6,8007h
call t_delay2
and #0001h,a
or #0006h,a
stl a,AR6
portw AR6,8007h
call t_delay2
;send D6
ldm ar5,a
and #0040h,a
or #0100h,a
sftl a,-6
stl a ,AR6
portw AR6,8007h
call t_delay2
and #0001h,a
or #0006h,a
stl a,AR6
portw AR6,8007h
call t_delay2
;send D5
ldm ar5,a
and #0020h,a
or #0080h,a
sftl a,-5
stl a ,AR6
portw AR6,8007h
call t_delay2
and #0001h,a
or #0006h,a
stl a,AR6
portw AR6,8007h
call t_delay2
;send D4
ldm ar5,a
and #0010h,a
or #0040h,a
sftl a,-4
stl a ,AR6
portw AR6,8007h
call t_delay2
and #0001h,a
or #0006h,a
stl a,AR6
portw AR6,8007h
call t_delay1
;=====================================================
;=====================================================
;send "0000"
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay2
;====================================================
;====================================================
;send D3-D0
;send D3
ldm ar5,a
and #0008h,a
or #0020h,a
sftl a,-3
stl a ,AR6
portw AR6,8007h
call t_delay2
and #0001h,a
or #0006h,a
stl a,AR6
portw AR6,8007h
call t_delay2
;send D2
ldm ar5,a
and #0004h,a
or #0010h,a
sftl a,-2
stl a ,AR6
portw AR6,8007h
call t_delay2
and #0001h,a
or #0006h,a
stl a,AR6
portw AR6,8007h
call t_delay2
;send D1
ldm ar5,a
and #0002h,a
or #0008h,a
sftl a,-1
stl a ,AR6
portw AR6,8007h
call t_delay2
and #0001h,a
or #0006h,a
stl a,AR6
portw AR6,8007h
call t_delay2
;send D0
ldm ar5,a
and #0001h,a
or #0004h,a
stl a ,AR6
portw AR6,8007h
call t_delay2
and #0001h,a
or #0006h,a
stl a,AR6
portw AR6,8007h
call t_delay1
;===================================================
;===================================================
;send "0000"
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
stm #0004h,ar6
portw ar6,8007h
call t_delay1
stm #0006h,ar6
portw ar6,8007h
call t_delay1
stm #1,ar3 ;delay 1ms
call ms_delay
stm #0004h,ar6
portw ar6,8007h
stm 0x6100,ST1
nop
nop
RET
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -