sub_cursor_control.s

来自「此为Microchip的试验程序」· S 代码 · 共 80 行

;START_HEADER
;
; dsPIC30F6014 Demo Source File
; (c) Copyright 2005 Microchip Technology, All rights reserved
;
; --------------------------------------------------------------------------
; File Revision History:
; --------------------------------------------------------------------------
;
; $Log: sub_cursor_control.s,v $
; Revision 1.1  2006/07/07 15:32:07  c13075
; initial rev
;
; Revision 1.3  2005/04/04 23:39:09  VasukiH
; Updated comments in header
;
; Revision 1.2  2005/04/04 23:14:45  VasukiH
; Updates for MPLAB C30 v1.30 compatiblity
;
; Revision 1.1.1.1  2003/08/23 00:38:33  VasukiH
; First import of demo source into CVS Repository
;
;
;
; --------------------------------------------------------------------------
;
; Software and Development Tools Info:
; --------------------------------------------------------------------------
; Tool                          Version
; --------------------------------------------------------------------------
; MPLAB IDE                     7.0
; MPLAB C30 Toolsuite           1.30
; dsPICDEM(TM) Processor Board  1.10
; --------------------------------------------------------------------------
;
; File Notes:
; 1. This routine is called only when the curently selected screen =5 (DTMF)
; 2. This routine sends command and data bytes relevant to moving a cursor on
;    the LCD screen.
;
;END_HEADER


.include "p30fxxxx.inc"


.global _sub_cursor_control
.section .text
_sub_cursor_control:
        push    w0

        cp0     CursorChanged
        bra     z, exit_rtn

        bclr    SPI2STAT, #SPIROV       ;Clear overflow flag
        bset    LATG, #LATG9            ;Deselect Slave LCD controller
        bclr    LATG, #LATG9            ;Select Slave LCD controller

        mov     #2, w0
        mov     WREG, LcdCharCnt

        mov     #CursorPos, w0
        mov     w0, LCDDataPtr

        setm    BypassCtrl

        mov.b   SPI2BUF, WREG
        mov.b   #0xC5, w0

        mov.b   WREG, SPI2BUF

        clr     CursorChanged           ;Clear the flag, indicating updates to the
                                        ;cursor position have been made.
exit_rtn:
        pop     w0
        return


.end