;********************CSR1335********************
;本程序實現液晶顯示控制器SED1335塊狀光標的顯示。
;入口參數：光標左上角的X坐標在SOU中，Y坐標在SOUH中。
;出口參數：無。
;占用資源：W,STATUS,RB0~RB2,RC,023H,024H,025H,028H,029H,二重堆棧。
;說    明：1.顯示屏為320*240點陣。
;          2.光標的Y坐標以象素點為單位，X坐標以8象素點為單位。
;          3.與光標重合的漢字將反色顯示,光標閃動。
           
           IFNDEF       CSR13351
            #DEFINE     CSR13351
                     
WWR         EQU         0
RRD         EQU         1
A0          EQU         2
                 
            INCLUDE     "INIT1335.ASM"
             
;***********顯示塊狀光標************
SEND2       MOVLW       46H         ;CSRW
            CALL        CMDIN
            MOVF        SOU,W
            CALL        DATAIN
            MOVF        SOUH,W
            CALL        DATAIN     

            MOVLW       .16
            MOVWF       CNT
            MOVLW       42H         ;MWRITE
            CALL        CMDIN
LOOP101     MOVLW       0FFH                  
            CALL        DATAIN
            DECFSZ      CNT,F  
            GOTO        LOOP101
            RETURN            
;*************第一個字***********
CSR1335     MOVLW       5BH         ;OYLAY（合成方式）
            CALL        CMDIN
            MOVLW       05H         ;P（1區與2區異或顯示）
            CALL        DATAIN

            MOVLW       59H         ;DISP ON
            CALL        CMDIN
            MOVLW       64H         ;2區閃爍
            CALL        DATAIN

            MOVLW       01001111B   ;CSRDIR
            CALL        CMDIN       ;設置光標移動方向為縱向

            CLRF        TEMP1       ;TEMP1暫存移出位
            BCF         STATUS,C
            RLF         SOUH,F
            RLF         TEMP1,F
            RLF         SOUH,F
            RLF         TEMP1,F
            RLF         SOUH,F
            RLF         TEMP1,F
            RLF         SOUH,F
            RLF         TEMP1,F
            MOVF        TEMP1,W
            MOVWF       TEMP2
            MOVF        SOUH,W
            RLF         SOUH,F
            RLF         TEMP1,F
            ADDWF       SOUH,W
            BTFSC       STATUS,C
            INCF        TEMP1,F     ;TEMP1:SOUH=SOUH*48
            ADDWF       SOU,F
            BTFSC       STATUS,C
            INCF        TEMP1,F
            MOVF        TEMP2,W
            ADDWF       TEMP1,W           
            ADDLW       50H
            MOVWF       SOUH        ;SOUH:SOU=5000H+(SOUH*48+SOU)
            CALL        SEND2
            INCF        SOU,F
            CALL        SEND2
            RETURN
           ENDIF