PBPSTACKTOP EQU 0FFFFH+1; 将堆栈顶设置为最高地址+1.
;
;------------------------------------------------------------------------------
;
; 使用COMPACT存储器模式时64K字节XDATA存储器空间的分页定义
;
; 以下用EQU指令定义PDATA类型变量在XDATA存储器空间的页地址
; 使用EQU指令定义PFAGE时必须与L51连接定位器PDATA指令的控制参数一致
;
PPAGEENABLE EQU 0 ; 使用PDATA类型变量时将其设置成1.
PPAGE EQU 0 ; 定义页号.
;
;------------------------------------------------------------------------------
NAME ?C_STARTUP; 模块名为 ?C_STAUTUP
?C_C51STARTUP SEGMENT CODE ; 代码
?STACK SEGMENT IDATA ; 堆栈
RSEG ?STACK ; 堆栈
DS 1
EXTRNEXTRN CODE ((?C_START)) ; 程序开始地址
PUBLIC ?C_STARTUP
CSEG AT 0x8000 ; 定义用户程序的起始地址,用MON51仿真器时可能有用
?C_STARTUP: LJMP STARTUP1
RSEG ?C_C51STARTUP
STARTUP1::
;
; 初始化串口
MOV SCON,#40H
MOV TMOD,#20H
MOV TH1,#0fdH
SETB TR1
CLR TI
; 单片机上电IDATA内存清零 如果不需要上电清零IDATA 可以注销IF到IFEDN之间的话句
; 或者修改IDTALEN的长度 为了具有掉电保护功能 不知IDTALEN多长为好
IF IDATALEN <> 0
MOV R0,#IDATALEN - 1
CLR A
IDATALOOP: MOV @R0,A
DJNZ R0,IDATALOOP
ENDIF
;
; 单片机上电XDATA内存清零 如果不需要上电清零XDATA 可以注销IF到IFEDN之间的话句
; 或者修改XDATALEN的长度
IF XDATALEN <> 0
MOV DPTR,#XDATASTART
MOV R7,#LOW ((XDATALEN)
IF (LOW (XDATALEN) <> 0
MOV R6,#(HIGH (XDATALEN) +1
ELSE
MOV R6,,#HIGH ((XDATALEN)
ENDIF
CLR A
XDATALOOP: MOVX @DPTR,A
INC DPTR
DJNZ R7,XDATALOOP
DJNZ R6,XDATALOOP
ENDIF
;
; 送PDATA存储器页面高位地址
IF PAGEENABLE <> 0
MOV P2,#PPAGE
ENDIF
;
; 单片机上电PDATA内存清零 如果不需要上电清零XDATA 可以注销IF到IFEDN之间的话句
; 或者修改PDATALEN的长度
IF PDATALEN <> 0
MOV R0,#PDATASTART
MOV R7,#LOW (PDATALEN)
CLR A
PDATALOOP: MOVX @R0,A
INC R0
DJNZ R7,PDATALOOP
ENDIF
;
; 设置使用SMALL存储器模式时再入函数的堆栈空间.
IF IBPSTACK <> 0
EXTRN DATA (?C_IBP)
MOV ?C_IBP,#LOW IBPSTACKTOP
ENDIF
;
; 设置使用LARGE存储器模式时再入函数的堆栈空间.
IF XBPSTACK <> 0
EXTRN DATA (?C_XBP)
MOV ?C_XBP,#HIGH XBPSTACKTOP
MOV ?C_XBP+1,#LOW XBPSTACKTOP
ENDIF
;
; 设置使用COMPACT存储器模式时再入函数的堆栈空间.
IF PBPSTACK <> 0
EXTRN DATA (C_PBP)
MOV ?C_PBP,#LOW PBPSTACKTOP
ENDIF
;
; 设置堆栈的起始地址
MOV SP,#?STACK-1 ; 例如 MOV SP,#4FH;
; This code is required if you use L51_BANK.A51 with Banking Mode 4
; 如果你的程序使用了Mode 4 程序分组技术 请启动下面的程序,不会吧你的程序超过64K 利害
; EXTRN CODE (?B_SWITCH0)
; CALL ?B_SWITCH0 ; init bank mechanism to code bank 0
;; 程序从第一组bank 0 块开始执行
; 跳转到用户程序MAIN函数
LJMP ?C_START
END
;lINSHENGFENG
