test.a51

让Keil 的 RTX51 运行在 P89C669 让Keil 的 RTX51 运行在 P89C669

STOP1:
PUSH DPL
PUSH DPH                ;占用 2 SP!!
MOV DPTR,#RETACC
MOVX @DPTR,A
MOV A,PSW
INC DPTR
MOVX @DPTR,A
CLR A
MOV PSW,A
;************************* IE处理！！
XCH A,IE
INC DPTR
MOVX @DPTR,A
;*************************
POP ACC
INC DPTR
MOVX @DPTR,A ;DPL
POP ACC
INC DPTR
MOVX @DPTR,A ;DPH
;************************** IE弹出 2003-4-30
LCALL DECDPTR
LCALL DECDPTR
POP ACC
ANL A,#0EFH ;ES=0关闭RS232
INC DPTR
INC DPTR
;**************************
POP ACC
INC DPTR
MOVX @DPTR,A
POP ACC
INC DPTR
MOVX @DPTR,A ;RETPC
;*****************************
INC DPTR
MOVX A,@DPTR
XCH A,SP
MOVX @DPTR,A
MOV A,B
INC DPTR
MOVX @DPTR,A
MOV A,R0
INC DPTR
MOVX @DPTR,A
;**********************************************
; 保护USER的数据，MON51的数据换出！
;**********************************************
MOV R0,#DEF_PC_VAL
St1:
INC R0
INC DPTR
MOVX A,@DPTR
XCH A,@R0
MOVX @DPTR,A
MOV A,R0
CJNE A,#RETMEMLEN-1,St1 ;;GoToRETPC HuBu !
;**********************************************
LCALL AFTER_GO
LCALL RESETBPS
LCALL GetPcAdr;!!!!!
LCALL XCHR0R1
LCALL DECDPTR
LCALL DECDPTR
LCALL DECDPTR
SaveRETPC:
LCALL XCHR0R1
MOV DPTR,#RETPCH
MOV A,R0
MOVX @DPTR,A
INC DPTR
MOV A,R1
MOVX @DPTR,A
LJMP SET_TI