x5045.asm

来自「51单片机操作X5045的汇编源程序」· 汇编 代码 · 共 97 行

NAME	X5045
;------------ --------- --------------------------------
MYP     BIT     PSW.1
CSX     BIT     P1.1
XCK     BIT     P1.3
SI      BIT     P1.2
SO      BIT     P1.0
;------------ --------- --------------------------------
?PR?_xrb?XRB        SEGMENT CODE
;------------ --------- --------------------------------
	PUBLIC	_xrb
	RSEG  ?PR?_xrb?XRB
;------------------------------------------------
;-------读取rom的数据地址放在A内，读取的数据放在A-----------------------------------------
_xrb:
XRB:    MOV     P0,#0FFH
        CLR     P2.0
        CLR     P2.1
        CLR     EA
        CLR     XCK
        CLR     CSX
        CLR     MYP
        MOV     A,#00000011B
        JNB     MYP,XRB1
        SETB    ACC.3
XRB1:   LCALL   XWBC
        MOV     A,R7
        LCALL   XWBC
        LCALL   XRBC
        SETB    CSX
        SETB    EA
        MOV     R7,A
        RET
;------------------------------------------------
?PR?_xwb?XWB        SEGMENT CODE
;------------ --------- --------------------------------
	PUBLIC	_xwb
	RSEG  ?PR?_xwb?XWB
;------------------------------------------------
;--------R7为地址，R5存放数据----------------------------------------
_xwb:
XWB:    MOV     P0,#0FFH
        CLR     EA
        SETB    P3.5
        CLR     P2.0
        CLR     P2.1
        LCALL   XRSAT
        JB      ACC.0,XWB
        CLR     CSX
        MOV     A,#00000110B
        LCALL   XWBC
        SETB    CSX
        CLR     CSX
        CLR     MYP
        MOV     A,#00000010B
        JNB     MYP,XWB1
        SETB    ACC.3
XWB1:   LCALL   XWBC
        MOV     A,R7
        LCALL   XWBC
        MOV     A,R5
        LCALL   XWBC
        SETB    CSX
XWB2:   LCALL   XRSAT
        JB      ACC.0,XWB2
        SETB    EA
        CLR     P3.5
        RET
;------------------------------------------------
XRSAT:  CLR     XCK
        CLR     CSX
        MOV     A,#00000101B
        LCALL   XWBC
        LCALL   XRBC
        SETB    CSX
        RET
;-------读取参数------------
XWBC:   MOV     R0,#8
XWBC1:  RLC     A
        MOV     SI,C
        SETB    XCK
        CLR     XCK
        DJNZ    R0,XWBC1
        RET
;------------------------------------------------
XRBC:   MOV     C,SO
        RLC     A
        MOV     R0,#7
XRBC1:  SETB    XCK
        CLR     XCK
        MOV     C,SO
        RLC     A
        DJNZ    R0,XRBC1
        RET
;------------------------------------------------
end