5045.asm

Small RTOS51是为51系列单片机而编写的。它是完全免费的、源代码公开的多任务实时操作系统。它可在无任何外部数据存储器的单片80C51系统上运行

    POP     PSW
    POP     ACC
    RETI

DISPTAB:    DB 28H,7EH,0A4H,64H,72H,61H,21H,7CH,20H,60H,30H,23H,0A9H,26H,0A1H,0B1H,0FFH 


;******************************************************************************************
;名称：写数据，将数据缓冲区的数据写入指定的地址
;描述：MTD指定数据缓冲区首地址，NUMBYT指定字节数，DATAADDR及DATAADDR+1指定被写器件地址
;不允许跨页
;使用资源：R0,R1,A,B
;数据写完，全部存储单元处于保护状V态
;******************************************************************************************
WRITE_DATA:
    MOV     R0,#DATAADDR    ;地址单元的高8位
    MOV     A,@R0
    MOV     DPH,A
    INC     R0
    MOV     A,@R0
    MOV     DPL,A
    MOV     R1,NUMBYT       ;从传送字节数存元中获取待写字节数   
    MOV     R0,#MTD         ;待写数据缓冲区
W_L:
    SETB    WP;
    CALL    WREN_CMD        ;写允许
    CLR     SCK             ;将SCK拉低
    CLR     CS              ;将/CS拉低
    MOV     A, #WRITE_INST
    MOV     B, DPH
    MOV     C, B.0
    MOV     ACC.3, C
    LCALL   OUTBYT          ;送出含有地址最高位的写指令
    MOV     A, DPL
    LCALL   OUTBYT          ;送出地址的低8位
    MOV     A, @R0
    LCALL   OUTBYT          ;送出数据
    CLR     SCK             ;将SCK拉低
    SETB    CS              ;升高/CS
    LCALL   WIP_POLL        ;测试是否已器件内部是否写完
    INC     DPL
    INC     R0
    DJNZ    R1,W_L
    MOV     STATBYT,#PROALL ;状态存放单元
    CALL    SET_STATUS  ;整个存储器均被保护
    RET

;******************************************************************************************
;名称：读数据，把指定地址单元中的数据读入数据缓冲区
;描述：MRD指定数据缓冲区首地址，NUMBYT指定字节数，DATAADDR及DATAADDR+1指定被写器件地址
;使用资源：B,R0,DPTR
;不允许跨页
;******************************************************************************************
READ_DATA:
    MOV     R0,#DATAADDR    ;地址单元的高8位
    MOV     A,@R0
    MOV     DPH,A
    INC     R0
    MOV     A,@R0
    MOV     DPL,A
    MOV     R1,NUMBYT       ;从传送字节数存元中获取待写字节数   
    MOV     R0,#MRD         ;待读数据缓冲区
R_L:    
    CLR     SCK             ; 将SCK拉低
    CLR     CS              ; 将/CS拉低
    MOV     A, #READ_INST
    MOV     B, DPH
    MOV     C, B.0
    MOV     ACC.3, C
    LCALL   OUTBYT          ; 送出含有地址最高位的读指令
    MOV     A, DPL  
    LCALL   OUTBYT          ;送出低8位地址
    LCALL   INBYT           ; 读数据
    CLR     SCK             ; 将SCK拉低
    SETB    CS              ;升高/CS
    MOV     @R0,A
    INC     R0
    INC     DPL
    DJNZ    R1,R_L
    RET

;*******************************************************************************************
;名称；SET_STATUS　　
;7  6   5   4   3   2   1   0
;0  0   WD1 WD0 BL1 BL0 WEL WIP
;如果需要设置保护和看门狗，需分两次进行
;STATBYT传递参数,共8个预定义常量
;资源使用：R0,R1,A,B
;*******************************************************************************************
SET_STATUS:
    CALL    RDSR_CMD        ;读当前寄存器的状态，在A中
    MOV     B,A             ;存入B
    MOV     A,STATBYT       ;读入参数
    JB      ACC.7,SET_WDT   ;如果最高位是1则转设置看门狗
    MOV     C,ACC.2         ;否则是设置保护区域
    MOV     B.2,C
    MOV     C,ACC.3
    MOV     B.3,C
    JMP     WRITE_STATUS
SET_WDT:
    MOV     C,ACC.4
    MOV     B.4,C
    MOV     C,ACC.5
    MOV     B.5,C
WRITE_STATUS:       
    CLR     SCK             ;将SCK拉低
    CLR     CS              ;将/CS拉低
    MOV     A, #WRSR_INST
    LCALL   OUTBYT          ;送出 WRSR 指令
    MOV     A, B
    LCALL   OUTBYT          ;送出状态寄存器的状态
    CLR     SCK             ;将SCK拉低
    SETB    CS              ;升高/CS
    LCALL   WIP_POLL        ;测试是否已器件内部是否写完
    RET

;*******************************************************************************************
;名称：WREN_CMD
;描述：写允许
;功能：这段程序发送命令允许写存储器单元和状态寄存器
;调用子程序： OUTBYT
;输入：没有
;输出：没有
;寄存器使用：A
;*******************************************************************************************
WREN_CMD:
    CLR     SCK         ;将SCK拉低
    CLR     CS          ;将 /CS 拉低
    MOV     A, #WREN_INST
    LCALL   OUTBYT      ;送出WREN_INST指令
    CLR     SCK         ;将SCK拉低
    SETB    CS          ;将 /CS 升高
    RET
;*******************************************************************************************
;名称：WRDI_CMD
;描述：写禁止
;功能：这段程序发送命令禁止对存储单元和状态寄存器写
;调用子程序：OUTBYT
;输入：无
;输出：无
;寄存器使用：A
;*******************************************************************************************
WRDI_CMD:
    CLR     SCK         ;将SCK拉低
    CLR     CS          ;将/CS拉低
    MOV     A, #WRDI_INST
    LCALL   OUTBYT      ;送出WRDI指令
    CLR     SCK         ;将SCK拉低
    SETB    CS          ;升高/CS
    RET
;*******************************************************************************************
;名称：RDSR_CMD
;描述：读状态寄存器
;功能：本程序发送命令用以读状态寄存器
;调用子程序：OUTBYT, INBYT
;输入：无
;输出：A= 状态寄存器
;寄存器使用：A
;*******************************************************************************************
RDSR_CMD:
    CLR     SCK         ;将SCK拉低
    CLR     CS          ;将/CS拉低
    MOV     A, #RDSR_INST
    LCALL   OUTBYT      ;发送 RDSR 指令
    LCALL   INBYT       ;读状态寄存器
    CLR     SCK         ;将SCK拉低
    SETB    CS          ;升高/CS
    RET
;*******************************************************************************************
;名称：RST_WDOG
;描述：复位看门狗定时器
;功能：这段程序用来复位看门狗定时器，不发送命令
;调用子程序：无
;输入：无
;输出：无
;寄存器使用：无
;*******************************************************************************************
RST_WDOG:
    CLR     CS          ;将 /CS 拉低
    SETB    CS          ;将 /CS 升高
RET
;*******************************************************************************************
;名称： WIP_POLL
;描述： 器件内部编程检查
;功能：本程序通过检查WIP位来确定X5045内部编程是否结束
;子程序调用： RDSR_CMD
;输入：无
;输出：无
;寄存器使用： R3, A
;*******************************************************************************************
WIP_POLL:
    MOV     R3, #MAX_POLL   ;设置用于偿试的最大次数
WIP_POLL1:
    LCALL   RDSR_CMD        ;读状态寄存器
    JNB     ACC.0, WIP_POLL2;如果WIP 位是 '0' 说明内部的写周期完成了
    DJNZ    R3, WIP_POLL1   ;如果WIP 位是 '1'说明内部写周期还没有完成
WIP_POLL2:
    RET
;*******************************************************************************************
;名称： OUTBYT
;描述：将一个字节送到EEPROM
;功能：本段程序移位送出一个字节，从最高位开始送PROM
;调用子程序：无
;输入：A = 待送的字节
;输出：无
;寄存器使用： R2, A
;*******************************************************************************************
OUTBYT:
    MOV     R2, #08     ;设置位计数（共8位）
OUTBYT1:
    CLR     SCK         ;将SCK拉低
    RLC     A           ;带进位位的左移位
    MOV     SI, C       ;送出进位位
    SETB    SCK         ;将 SCK 升高
    DJNZ    R2, OUTBYT1 ;循环8次
    CLR     SI          ;将SI置于已知的状态
    RET
;*******************************************************************************************
;名称： INBYT
;描述：从EEPROM中接收数据
;功能：这段程序从EEPROM中接收数据，高位在先
;调用子程序：无
;输入：无
;输出：A = 接收到的数据
;寄存器使用：R2, A
;*******************************************************************************************
INBYT:
    MOV     R2, #08     ;设置计数（共8位）
INBYT1:
    SETB    SCK         ;将 SCK 升高
    CLR     SCK         ;将SCK拉低
    MOV     C, SO       ;将输出线的状态读到进位位
    RLC     A           ;带进位位的循环左移
    DJNZ    R2, INBYT1  ;循环8次
    RET
END