📄 usart_rx_irda2.asm
字号:
;
; ASM code generated by mikroVirtualMachine for PIC - V. 2.0.0.0
; Date/Time: 21.10.2004 17:55:19
; Info: http://www.mikroelektronika.co.yu
;
GOTO main
;--- procedure delays_delay_1us ---
delays_delay_1us:
nop
RETURN
;---endproc---
;--- procedure delays_delay_50us ---
delays_delay_50us:
MOVLW 16
BCF STATUS,RP1
BCF STATUS,RP0
MOVWF STACK_0
DECFSZ STACK_0,F
GOTO $-1
nop
RETURN
;---endproc---
;--- procedure delays_delay_5500us ---
delays_delay_5500us:
MOVLW 8
BCF STATUS,RP1
BCF STATUS,RP0
MOVWF STACK_0
MOVLW 255
MOVWF STACK_1
DECFSZ STACK_0,F
GOTO $+2
GOTO $+4
DECFSZ STACK_1,F
GOTO $-1
GOTO $-5
MOVLW 30
MOVWF STACK_0
DECFSZ STACK_0,F
GOTO $-1
RETURN
;---endproc---
;--- procedure delays_delay_8ms ---
delays_delay_8ms:
MOVLW 11
BCF STATUS,RP1
BCF STATUS,RP0
MOVWF STACK_0
MOVLW 255
MOVWF STACK_1
DECFSZ STACK_0,F
GOTO $+2
GOTO $+4
DECFSZ STACK_1,F
GOTO $-1
GOTO $-5
MOVLW 91
MOVWF STACK_0
DECFSZ STACK_0,F
GOTO $-1
nop
RETURN
;---endproc---
;--- procedure lcd_lcd_cmd ---
lcd_lcd_cmd:
BCF STATUS,RP1
BCF STATUS,RP0
MOVF lcd_main_global_portaddress,W
BCF STATUS,IRP
MOVWF FSR
MOVF lcd_lcd_cmd_param_out_char,W
MOVWF lcd_lcd_cmd_param_out_char
CLRF INDF
BTFSC lcd_lcd_cmd_param_out_char,7
BSF INDF,___DB7
BTFSC lcd_lcd_cmd_param_out_char,6
BSF INDF,___DB6
BTFSC lcd_lcd_cmd_param_out_char,5
BSF INDF,___DB5
BTFSC lcd_lcd_cmd_param_out_char,4
BSF INDF,___DB4
MOVLW 1
SUBWF lcd_main_global_cmd,W
BTFSS STATUS,Z
GOTO L_lcd_1
L_lcd_0:
BCF INDF,___RS
GOTO L_lcd_2
L_lcd_1:
BSF INDF,___RS
L_lcd_2:
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CLRF INDF
BTFSC lcd_lcd_cmd_param_out_char,3
BSF INDF,___DB7
BTFSC lcd_lcd_cmd_param_out_char,2
BSF INDF,___DB6
BTFSC lcd_lcd_cmd_param_out_char,1
BSF INDF,___DB5
BTFSC lcd_lcd_cmd_param_out_char,0
BSF INDF,___DB4
MOVLW 1
SUBWF lcd_main_global_cmd,W
BTFSS STATUS,Z
GOTO L_lcd_5
L_lcd_4:
BCF INDF,___RS
GOTO L_lcd_6
L_lcd_5:
BSF INDF,___RS
L_lcd_6:
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
MOVLW 1
SUBWF lcd_main_global_cmd,W
BTFSS STATUS,Z
GOTO L_lcd_9
L_lcd_8:
CALL delays_delay_5500us
GOTO L_lcd_10
L_lcd_9:
CALL delays_delay_50us
L_lcd_10:
RETURN
;---endproc---
;--- procedure lcd_lcd_init ---
lcd_lcd_init:
CALL delays_delay_5500us
CALL delays_delay_5500us
CALL delays_delay_5500us
BCF STATUS,RP1
BCF STATUS,RP0
MOVF lcd_lcd_init_param_port,W
MOVWF FSR
MOVLW 0
MOVWF INDF
MOVF lcd_lcd_init_param_port,w
MOVWF lcd_main_global_portaddress
MOVWF FSR
BSF FSR,7
CLRF INDF
BCF FSR,7
CALL delays_delay_8ms
BSF INDF,___DB5
BSF INDF,___DB4
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CALL delays_delay_8ms
BSF INDF,___DB5
BSF INDF,___DB4
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CALL delays_delay_50us
CALL delays_delay_50us
BSF INDF,___DB5
BSF INDF,___DB4
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CALL delays_delay_8ms
BSF INDF,___DB5
BCF INDF,___DB4
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CALL delays_delay_50us
BSF INDF,___DB5
BCF INDF,___DB4
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
BSF INDF,___DB7
BCF INDF,___DB6
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CALL delays_delay_50us
MOVLW 0
MOVWF INDF
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
BSF INDF,___DB7
BSF INDF,___DB6
BSF INDF,___DB5
BSF INDF,___DB4
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CALL delays_delay_50us
MOVLW 0
MOVWF INDF
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
BSF INDF,___DB4
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CALL delays_delay_8ms
MOVLW 0
MOVWF INDF
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
BSF INDF,___DB6
BSF INDF,___DB5
BSF INDF,___ENABLE
CALL delays_delay_1us
BCF INDF,___ENABLE
CALL delays_delay_50us
MOVLW 1
MOVWF lcd_main_global_cmd
RETURN
;---endproc---
;--- procedure lcd_lcd_out ---
lcd_lcd_out:
MOVLW 1
BCF STATUS,RP1
BCF STATUS,RP0
SUBWF lcd_lcd_out_param_row,W
BTFSS STATUS,Z
GOTO L_lcd_21
MOVLW 128
MOVWF lcd_lcd_out_param_row
GOTO L_lcd_20
L_lcd_21:
MOVLW 2
SUBWF lcd_lcd_out_param_row,W
BTFSS STATUS,Z
GOTO L_lcd_22
MOVLW 192
MOVWF lcd_lcd_out_param_row
GOTO L_lcd_20
L_lcd_22:
MOVLW 3
SUBWF lcd_lcd_out_param_row,W
BTFSS STATUS,Z
GOTO L_lcd_23
MOVLW 148
MOVWF lcd_lcd_out_param_row
GOTO L_lcd_20
L_lcd_23:
MOVLW 4
SUBWF lcd_lcd_out_param_row,W
BTFSS STATUS,Z
GOTO L_lcd_24
MOVLW 212
MOVWF lcd_lcd_out_param_row
GOTO L_lcd_20
L_lcd_24:
MOVLW 128
MOVWF lcd_lcd_out_param_row
L_lcd_20:
MOVF lcd_lcd_out_param_column,W
ADDWF lcd_lcd_out_param_row,W
MOVWF STACK_0
MOVLW 1
SUBWF STACK_0,F
MOVF STACK_0,W
MOVWF lcd_lcd_out_param_row
MOVF lcd_lcd_out_param_row,W
MOVWF lcd_lcd_cmd_param_out_char
CALL lcd_lcd_cmd
CLRF lcd_main_global_cmd
MOVLW 1
MOVWF lcd_lcd_out_local_i
L_lcd_25:
MOVF lcd_lcd_out_param_text,W
MOVWF FSR
MOVF INDF,W
MOVWF STACK_1
MOVF lcd_lcd_out_local_i,W
SUBWF STACK_1,W
BTFSS STATUS,C
GOTO L_lcd_26
MOVF lcd_lcd_out_param_text,W
MOVWF FSR
MOVF lcd_lcd_out_local_i,W
ADDWF FSR,F
MOVF INDF,W
MOVWF lcd_lcd_cmd_param_out_char
CALL lcd_lcd_cmd
L_lcd_27:
CLRF STACK_2
INCF STACK_2,F
MOVF lcd_lcd_out_local_i,W
ADDWF STACK_2,W
MOVWF lcd_lcd_out_local_i
GOTO L_lcd_25
L_lcd_26:
MOVLW 1
MOVWF lcd_main_global_cmd
RETURN
;---endproc---
;--- function USARTlib_U_A_usart_data_ready ---
USARTlib_U_A_usart_data_ready:
BCF STATUS,RP1
BCF STATUS,RP0
CLRF USARTlib_U_A_usart_data_ready_result
BTFSC pir1,5
INCF USARTlib_U_A_usart_data_ready_result,F
RETURN
;---endproc---
;--- procedure USARTlib_U_A_usart_init ---
USARTlib_U_A_usart_init:
BCF STATUS,RP1
BSF STATUS,RP0
BSF txsta,5
MOVLW 144
BCF STATUS,RP0
MOVWF RCSTA
BSF STATUS,RP0
BSF trisc,7
BCF trisc,6
L_USARTlib_U_A_1:
CLRF STACK_0
BCF STATUS,RP0
BTFSC pir1,5
INCF STACK_0,F
MOVLW 1
SUBWF STACK_0,W
BTFSS STATUS,Z
GOTO L_USARTlib_U_A_2
L_USARTlib_U_A_0:
MOVF RCREG,W
MOVWF USARTlib_U_A_usart_init_local_i
GOTO L_USARTlib_U_A_1
L_USARTlib_U_A_2:
RETURN
;---endproc---
;--- function USARTlib_U_A_usart_read ---
USARTlib_U_A_usart_read:
BCF STATUS,RP1
BCF STATUS,RP0
MOVF RCREG,W
MOVWF USARTlib_U_A_usart_read_result
CLRF STACK_0
BTFSC rcsta,1
INCF STACK_0,F
MOVLW 1
SUBWF STACK_0,W
BTFSS STATUS,Z
GOTO L_USARTlib_U_A_7
L_USARTlib_U_A_6:
BCF rcsta,4
BSF rcsta,4
GOTO L_USARTlib_U_A_8
L_USARTlib_U_A_7:
L_USARTlib_U_A_8:
RETURN
;---endproc---
;--- procedure USART_Rx_IrDA2_initall ---
USART_Rx_IrDA2_initall:
BCF STATUS,RP1
BCF STATUS,RP0
CLRF main_global_ind
MOVLW 1
MOVWF main_global_rxIndex
CLRF main_global_rxDone
BSF STATUS,RP0
CLRF TRISB
BCF STATUS,RP0
MOVLW PORTB,W
MOVWF lcd_lcd_init_param_port
CALL lcd_lcd_init
MOVLW 1
MOVWF lcd_lcd_cmd_param_out_char
CALL lcd_lcd_cmd
MOVLW 12
MOVWF lcd_lcd_cmd_param_out_char
CALL lcd_lcd_cmd
MOVLW 12
BSF STATUS,RP0
MOVWF SPBRG
BSF TXSTA, BRGH ; HI speed
CALL USARTlib_U_A_usart_init
RETURN
;---endproc---
;--- procedure USART_Rx_IrDA2_rxin ---
USART_Rx_IrDA2_rxin:
BCF STATUS,RP1
BCF STATUS,RP0
CLRF main_global_rxData
MOVLW 1
MOVWF main_global_rxIndex
CLRF main_global_rxDone
MOVLW 16
MOVWF main_global_inTxt_0
MOVLW 32
MOVWF main_global_inTxt_1
MOVLW 32
MOVWF main_global_inTxt_2
MOVLW 32
MOVWF main_global_inTxt_3
MOVLW 32
MOVWF main_global_inTxt_4
MOVLW 32
MOVWF main_global_inTxt_5
MOVLW 32
MOVWF main_global_inTxt_6
MOVLW 32
MOVWF main_global_inTxt_7
MOVLW 32
MOVWF main_global_inTxt_8
MOVLW 32
MOVWF main_global_inTxt_9
MOVLW 32
MOVWF main_global_inTxt_10
MOVLW 32
MOVWF main_global_inTxt_11
MOVLW 32
MOVWF main_global_inTxt_12
MOVLW 32
MOVWF main_global_inTxt_13
MOVLW 32
MOVWF main_global_inTxt_14
MOVLW 32
MOVWF main_global_inTxt_15
MOVLW 32
MOVWF main_global_inTxt_16
CALL USARTlib_U_A_usart_data_ready
MOVLW 1
SUBWF USARTlib_U_A_usart_data_ready_result,W
BTFSS STATUS,Z
GOTO L_USART_Rx_IrDA2_3
L_USART_Rx_IrDA2_2:
CALL USARTlib_U_A_usart_read
MOVF USARTlib_U_A_usart_read_result,W
MOVWF main_global_rxData
GOTO L_USART_Rx_IrDA2_4
L_USART_Rx_IrDA2_3:
L_USART_Rx_IrDA2_4:
L_USART_Rx_IrDA2_7:
MOVLW 0
SUBWF main_global_rxDone,W
BTFSS STATUS,Z
GOTO L_USART_Rx_IrDA2_8
L_USART_Rx_IrDA2_6:
CALL USARTlib_U_A_usart_data_ready
MOVLW 1
SUBWF USARTlib_U_A_usart_data_ready_result,W
BTFSS STATUS,Z
GOTO L_USART_Rx_IrDA2_10
L_USART_Rx_IrDA2_9:
CALL USARTlib_U_A_usart_read
MOVF USARTlib_U_A_usart_read_result,W
MOVWF main_global_rxData
MOVLW main_global_inTxt_0
MOVWF FSR
MOVF main_global_rxIndex,W
ADDWF FSR,F
MOVF FSR,W
MOVWF STACK_3
MOVWF FSR
MOVF main_global_rxData,W
MOVWF INDF
MOVLW 64
SUBWF main_global_rxData,W
BTFSS STATUS,Z
GOTO L_USART_Rx_IrDA2_14
GOTO L_USART_Rx_IrDA2_13
L_USART_Rx_IrDA2_14:
MOVF main_global_rxIndex,W
SUBLW 15
BTFSC STATUS,C
GOTO L_USART_Rx_IrDA2_17
L_USART_Rx_IrDA2_13:
MOVLW 1
MOVWF main_global_rxDone
GOTO L_USART_Rx_IrDA2_15
L_USART_Rx_IrDA2_17:
L_USART_Rx_IrDA2_15:
INCF main_global_rxIndex,F
GOTO L_USART_Rx_IrDA2_11
L_USART_Rx_IrDA2_10:
L_USART_Rx_IrDA2_11:
GOTO L_USART_Rx_IrDA2_7
L_USART_Rx_IrDA2_8:
MOVLW 1
SUBWF main_global_rxIndex,F
RETURN
;---endproc---
;--- procedure USART_Rx_IrDA2_updatelcd_rx ---
USART_Rx_IrDA2_updatelcd_rx:
MOVLW 1
BCF STATUS,RP1
BCF STATUS,RP0
MOVWF lcd_lcd_out_param_row
MOVLW 1
MOVWF lcd_lcd_out_param_column
MOVLW 9
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_0
MOVLW 82
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_1
MOVLW 101
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_2
MOVLW 99
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_3
MOVLW 101
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_4
MOVLW 105
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_5
MOVLW 118
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_6
MOVLW 101
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_7
MOVLW 100
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_8
MOVLW 58
MOVWF USART_Rx_IrDA2_updatelcd_rx_global_temp_string_9
MOVLW USART_Rx_IrDA2_updatelcd_rx_global_temp_string_0
MOVWF lcd_lcd_out_param_text
CALL lcd_lcd_out
MOVLW 1
SUBWF main_global_rxDone,W
BTFSS STATUS,Z
GOTO L_USART_Rx_IrDA2_19
L_USART_Rx_IrDA2_18:
MOVLW 2
MOVWF lcd_lcd_out_param_row
MOVLW 1
MOVWF lcd_lcd_out_param_column
MOVLW main_global_inTxt_0,W
MOVWF lcd_lcd_out_param_text
CALL lcd_lcd_out
CLRF main_global_rxDone
GOTO L_USART_Rx_IrDA2_20
L_USART_Rx_IrDA2_19:
L_USART_Rx_IrDA2_20:
RETURN
;---endproc---
;--- procedure main ---
main:
CALL USART_Rx_IrDA2_initall
L_USART_Rx_IrDA2_23:
L_USART_Rx_IrDA2_22:
CALL USART_Rx_IrDA2_rxin
CALL USART_Rx_IrDA2_updatelcd_rx
GOTO L_USART_Rx_IrDA2_23
L_USART_Rx_IrDA2_24:
GOTO $
;---endproc---
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -