PIC18F24J10汇编参考

#include
#define X1 PORTA, 0
#DEFINE X2 PORTA, 1
#DEFINE X3 PORTA, 2
#DEFINE X4 PORTA, 3
#DEFINE X5 PORTA, 5
#DEFINE X6 PORTC, 0
#DEFINE X7 PORTC, 1
#DEFINE X8 PORTC, 3
#DEFINE X9 PORTC, 2
#DEFINE X10 PORTC, 4
#DEFINE X11 PORTC, 5
#DEFINE Y1 PORTB, 0
#DEFINE Y2 PORTB, 1
#DEFINE Y3 PORTB, 2
#DEFINE Y4 PORTB, 3
#DEFINE Y5 PORTB, 4
#DEFINE Y6 PORTB, 5
#DEFINE Y7 PORTB, 6
#DEFINE Y8 PORTB, 7



ORG 00H
NOP
GOTO INTI
ORG 08H
NOP

INTI
MOVLW 7H
MOVWF CMCON, 0
CLRF PORTA, 0 ;端口A初始化设置
CLRF LATA, 0
MOVLW 0FH
MOVWF ADCON1, 0
MOVLW 3FH
MOVWF TRISA, 0

SETF PORTB, 0 ;端口B初始化设置
SETF LATB, 0
MOVLW 0H
MOVWF TRISB, 0

MOVLW 00H ;PORT C INTIAL SETTING
MOVWF PORTC, 0
MOVWF LATC, 0
MOVLW 0FFH
MOVWF TRISC, 0

BCF BAUDCON, 3, 0
BSF TXSTA, 2, 0
MOVLW 0H
MOVWF SPBRGH, 0
MOVLW 19H ;设置波特率9600
MOVWF SPBRG,0
BSF TRISC,7,0 ;通讯端口设置为输入
BSF TRISC,6,0
BCF TXSTA,4,0 ;使能异步串行端口
BSF RCSTA,7,0
; BSF INTCON,7,0
; BSF INTCON,6,0
; BSF PIE1, 5, 0
BSF RCSTA,4,0 ;使能异步接收
BSF TXSTA,5,0 ;使能发送
BCF RCSTA,6,0 ;接收八位数据
BCF TXSTA,6,0 ;发送控制器设置
MOVLW 4FH
MOVWF 0H, 0
MOVLW 4BH
MOVWF 1H, 0

Ju_X1
BTFSS X1, 0
GOTO Ju_X1
CALL DELAY10MS
MOVLW 54H
MOVWF 0H, 0
MOVLW 45H
MOVWF 1H, 0
CALL TX_0
NOP
REC_1
BTFSS PIR1, 5, 0
GOTO REC_1
MOVF RCREG, 0, 0
MOVWF 2H, 0
REC_2
BTFSS PIR1, 5, 0
GOTO REC_2
MOVF RCREG, 0, 0
MOVWF 3H, 0


Ju_PA
MOVLW 50H
CPFSEQ 2H, 0
GOTO Ju_FA
NOP
MOVLW 41H
CPFSEQ 3H, 0
GOTO Ju_FA
NOP
BCF Y1, 0
NOP
CALL DELAY100MS
BSF Y1, 0
NOP



Ju_FA
MOVLW 46H
CPFSEQ 2H, 0
GOTO REC_1
NOP
MOVLW 41H
CPFSEQ 3H, 0
GOTO REC_1
NOP
BCF Y2, 0
NOP
CALL DELAY100MS
BSF Y2, 0
NOP
CALL DELAY100MS
GOTO Ju_X1


TX_0
BTFSS PIR1, 4, 0
GOTO TX_0
MOVF 0H, 0
MOVWF TXREG, 0

TX_1
BTFSS PIR1, 4, 0
GOTO TX_1
MOVF 1H, 0
MOVWF TXREG, 0
NOP
RETURN

DELAY50MS

MOVLW 5H
MOVWF 10H,0
DL1
MOVLW 30H
MOVWF 11H,0
DL2
MOVLW 30H
MOVWF 12H,0

DL3 DECFSZ 12H,1,0
GOTO DL3
DECFSZ 11H,1,0
GOTO DL2
DECFSZ 10H,1,0
GOTO DL1
RETURN

DELAY100MS
MOVLW 7H
MOVWF 13H,0
DL4
MOVLW 40H
MOVWF 14H,0
DL5
MOVLW 64H
MOVWF 15H,0
DL6
DECFSZ 15H,1,0
GOTO DL6
DECFSZ 14H,1,0

GOTO DL5
DECFSZ 13H,1,0
GOTO DL4
RETURN
;DELAY2S
; MOVLW 13H
; MOVWF 16H,0
;DL7
; MOVLW 64H
; MOVWF 17H,0
;DL8
; MOVLW 0C8H
; MOVWF 18H,0
;DL9
; DECFSZ 18H,1,0
; GOTO DL9
; DECFSZ 17H,1,0
; GOTO DL8
; DECFSZ 16H,1,0
; GOTO DL7
; RETURN
DELAY10MS
MOVLW 50H
MOVWF 19H, 0
DL10
MOVLW 50H
MOVWF 20H, 0
;DL11
; MOVLW 64H
; MOVWF 21H
DL12
DECFSZ 20H, 1, 0
GOTO DL12
; DECFSZ 20H,1,0
; GOTO DL10
DECFSZ 19H, 1, 0
GOTO DL10
RETURN
END