⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sstdownload.a51

📁 常用子程序-61个-4.2M.rar
💻 A51
📖 第 1 页 / 共 3 页
字号:
LFAAC:  LCALL  LF099
        LCALL  LF0A5
        CJNE   A, #11H, LFAB8
        LJMP   LFABE
LFAB8:  CJNE   A, #1BH, LFABE
        LJMP   LFA3E
LFABE:  LCALL  LF09F
        POP    PSW
        POP    DPH
        POP    DPL
        POP    ACC
        RETI   

LFACA:  INC    DPTR
LFACB:  CLR    A
        MOVC   A, @A+DPTR
        MOV    R0, A
        INC    DPTR
        CLR    A
        MOVC   A, @A+DPTR
        MOV    R1, A
        INC    DPTR
        RET    
LFAD4:  XCH    A, R0
        XCH    A, DPH
        XCH    A, R0
        XCH    A, R1
        XCH    A, DPL
        XCH    A, R1
        RET    
LFADD:  CLR    A
        MOVC   A, @A+DPTR
LFADF:  MOV    R3, A
        LCALL  LFAD4
        CLR    A
        MOVC   A, @A+DPTR
        XCH    A, R3
        LCALL  LFAF0
        LCALL  LFAD4
        MOV    A, R3
        lcall writebyte
        INC    DPTR
        RET    
LFAF0:  LCALL  LF8F4
        INC    DPTR
        RET    
LFAF5:  MOV    28H, A
        MOV    R0, DPL
        MOV    R1, DPH
        MOV    DPTR, #7E03H
        MOV    A, 27H
        lcall writebyte
        INC    DPTR
        MOV    A, 26H
        lcall writebyte
        INC    DPTR
        MOV    A, R1
        lcall writebyte
        INC    DPTR
        MOV    A, R0
        lcall writebyte
        RET    
LFB0C:  MOV    A, R2
        MOV    B, #06H
        MUL    AB
        MOV    DPTR, #7E7BH
        LCALL  LF9E2
        CLR    A
        MOVC   A, @A+DPTR
        RET    
LFB1A:  MOV    R2, #00H
LFB1C:  INC    R2
        LCALL  LFB0C
        CJNE   A, 00H, LFB25
        CPL    C
        RET    
LFB25:  CJNE   R2, #0AH, LFB1C
        RET    
LFB29:  MOV    R6, DPH
        MOV    R7, DPL
        MOV    R2, #0AH
LFB2F:  LCALL  LFB0C
        JZ     LFB4F
        LCALL  LFACA
        CLR    C
        SUBB   A, R7
        MOV    R3, A
        MOV    A, R0
        SUBB   A, R6
        JNZ    LFB40
        SJMP   LFB49
LFB40:  CLR    C
        MOV    A, R7
        SUBB   A, R1
        MOV    R3, A
        MOV    A, R6
        SUBB   A, R0
        CLR    C
        JNZ    LFB4F
LFB49:  CJNE   R3, #02H, LFB4C
LFB4C:  JNC    LFB4F
        RET    
LFB4F:  DJNZ   R2, LFB2F
        RET    
LFB52:  LCALL  LFB29
        MOV    A, #04H
        JC     LFAF5
        MOV    R0, #00H
        LCALL  LFB1A
        MOV    A, #05H
        JNC    LFAF5
        DEC    R2
        MOV    27H, R2
LFB65:  MOV    A, #01H
LFB67:  lcall writebyte
        INC    DPTR
        MOV    A, R6
        lcall writebyte
        INC    DPTR
        MOV    A, R7
        lcall writebyte
        CLR    A
        LJMP   LFAF5
LFB72:  MOV    R5, #01H
        SJMP   LFB7C
LFB76:  MOV    R5, #02H
        SJMP   LFB7C
LFB7A:  MOV    R5, #00H
LFB7C:  MOV    A, 27H
        CJNE   A, #80H, LFB91
        MOV    R2, #0AH
LFB83:  LCALL  LFB0C
        JZ     LFB8A
        MOV    A, R5
        lcall writebyte
LFB8A:  DJNZ   R2, LFB83
        RET    
LFB8D:  MOV    A, R0
        LJMP   LFAF5
LFB91:  MOV    R0, #07H
        CJNE   A, #0AH, LFB96
LFB96:  JNC    LFB8D
        MOV    R2, A
        INC    R2
        LCALL  LFB0C
        MOV    R0, #06H
        JZ     LFB8D
        MOV    A, R5
        lcall writebyte
        CLR    A
        LJMP   LFAF5
LFBA7:  MOV    A, 27H
        MOV    R0, #07H
        CJNE   A, #0AH, LFBAE
LFBAE:  JNC    LFB8D
        MOV    B, #06H
        MUL    AB
        MOV    R7, A
        MOV    DPTR, #7E81H
        MOVC   A, @A+DPTR
        MOV    27H, A
        INC    R7
        MOV    A, R7
        MOVC   A, @A+DPTR
        MOV    R0, A
        INC    R7
        MOV    A, R7
        MOVC   A, @A+DPTR
        MOV    R1, A
        INC    R7
        MOV    A, R7
        MOVC   A, @A+DPTR
        MOV    26H, A
        MOV    DPH, R0
        MOV    DPL, R1
        CLR    A
        LJMP   LFAF5
LFBD0:  MOV    DPTR, #7E0DH
        LJMP   LFACB
LFBD6:  MOV    A, R4
        MOV    DPTR, #LF342 ;??????
        MOVC   A, @A+DPTR
        ANL    A, #0FCH
        MOV    DPTR, #LFBE1 ;??????!!!!!
        JMP    @A+DPTR
Lfbe1:  LJMP   LFE89
        NOP    
        LJMP   LFC47
        NOP    
        LJMP   LFC41
        NOP    
        LJMP   LFC3C
        NOP    
        LJMP   LFC36
        NOP    
        LJMP   LFC24
        NOP    
        LJMP   LFC20
        NOP    
        LJMP   LFE73
        NOP    
        LJMP   LFE77
        NOP    
        LJMP   LF31B
        NOP    
        MOV    A, #0E0H
        LCALL  LF2B8
        MOV    R0, A
        INC    DPTR
        INC    DPTR
        INC    DPTR
        CLR    A
        MOVC   A, @A+DPTR
        MOV    R1, A
        INC    DPTR
        CLR    A
        MOVC   A, @A+DPTR
        ADD    A, R0
        MOV    2CH, A
        CLR    A
        ADDC   A, R1
        MOV    2BH, A
        RET    
LFC20:  LCALL  LFC24
        RETI   
LFC24:  LCALL  LF2B6
        MOV    R1, A
        LCALL  LF998
        MOV    2BH, A
        LCALL  LF998
        MOV    2CH, A
        MOV    A, R1
        LJMP   LF2BD
LFC36:  JB     11H, LFC57
        LCALL  LF32C
LFC3C:  MOV    2BH, R5
        MOV    2CH, R6
        RET    
LFC41:  JB     11H, LFC57
        LCALL  LF32C
LFC47:  MOV    A, R4
        RR     A
        SWAP   A
        ANL    A, #07H
        XCH    A, 2BH
        ANL    A, #0F8H
        ORL    A, 2BH
        MOV    2BH, A
        MOV    2CH, R5
        RET    
LFC57:  MOV    R6, 2BH
        MOV    R7, 2CH
        MOV    R2, #0BH
        LCALL  LFB0C
        LCALL  LFB65
        MOV    A, 24H
        ANL    A, #04H
        JZ     LFC6C
        LJMP   LFC74
LFC6C:  MOV    R2, #0BH
        LCALL  LF262
        LJMP   LFEB1
LFC74:  LCALL  LF4CC
        SETB   12H
        CLR    11H
        SJMP   LFC80
LFC7D:  LCALL  LFDA2
LFC80:  LCALL  LFC96
        MOV    R2, #0AH
        LCALL  LFD86
        JNC    LFC7D
        RET    
LFC8B:  SETB   11H
LFC8D:  MOV    A, 24H
        ANL    A, #04H
        JZ     LFC96
        LCALL  LFDA2
LFC96:  LCALL  LFBD0
        MOV    2BH, R0
        MOV    2CH, R1
        LCALL  LFAD4
        CLR    A
        MOVC   A, @A+DPTR
        MOV    R4, A
        INC    DPTR
        CLR    A
        MOVC   A, @A+DPTR
        MOV    R5, A
        INC    DPTR
        CLR    A
        MOVC   A, @A+DPTR
        MOV    R6, A
        MOV    A, R4
        MOV    DPTR, #LF342 ;?????????!!!!!
        MOVC   A, @A+DPTR
        ANL    A, #03H
        MOV    R2, A
        ADD    A, 2CH
        MOV    2CH, A
        CLR    A
        ADDC   A, 2BH
        MOV    2BH, A
        LCALL  LFBD6
        MOV    DPL, 2CH
        MOV    DPH, 2BH
        LCALL  LF251
        RET    
LFCC9:  MOV    A, 26H
        JZ     LFCD8
        PUSH   00H
        PUSH   01H
        LCALL  LF251
        POP    01H
        POP    00H
LFCD8:  LCALL  LFAD4
        MOV    R5, #00H
        MOV    A, R2
        JZ     LFCE5
        LCALL  LFB29
        MOV    R5, #01H
LFCE5:  MOV    R2, #0BH
        LCALL  LFB0C
        MOV    A, R5
        LCALL  LFB67
        MOV    A, 24H
        ANL    A, #04H
        JZ     LFCF7
        LJMP   LFD0F
LFCF7:  LCALL  LF260
        MOV    A, 28H
        JZ     LFD0B
        XRL    A, #03H
        JNZ    LFD0B
        LCALL  LF2A0
        LCALL  LF4CC
        SETB   12H
        RET    
LFD0B:  LCALL  LFEB1
        RET    
LFD0F:  LCALL  LF4CC
        ANL    3AH, #00H
        MOV    DPTR, #7E07H
        CLR    A
        MOVC   A, @A+DPTR
        JNZ    LFD25
LFD1C:  LCALL  LFC8D
        LCALL  LFD84
        JNC    LFD1C
        RET    
LFD25:  LCALL  LF093
        JNC    LFD7B
        LCALL  LF890
        MOV    R0, A
        MOV    A, 3AH
        INC    3AH
        JZ     LFD3F
        DEC    A
        JZ     LFD4B
        DEC    A
        JZ     LFD52
        DEC    A
        JZ     LFD59
        SJMP   LFD78
LFD3F:  CJNE   R0, #1BH, LFD43
        RET    
LFD43:  CJNE   R0, #04H, LFD78
        LCALL  LF884
        SJMP   LFD7B
LFD4B:  MOV    26H, R0
        LCALL  LF884
        SJMP   LFD7B
LFD52:  MOV    3BH, R0
        LCALL  LF884
        SJMP   LFD7B
LFD59:  MOV    DPL, R0
        LCALL  LF884
        MOV    DPH, 3BH
        MOV    A, 26H
        JNZ    LFD72
        MOV    DPTR, #7E0DH
        CLR    A
        MOVC   A, @A+DPTR
        LCALL  LF884
        INC    DPTR
        CLR    A
        MOVC   A, @A+DPTR
        SJMP   LFD75
LFD72:  LCALL  LF96B
LFD75:  LCALL  LF884
LFD78:  ANL    3AH, #00H
LFD7B:  LCALL  LFC8D
        LCALL  LFD84
        JNC    LFD25
        RET    
LFD84:  MOV    R2, #00H
LFD86:  LCALL  LFBD0
LFD89:  INC    R2
        CJNE   R2, #0CH, LFD8E
        RET    
LFD8E:  LCALL  LFB0C
        CJNE   A, #01H, LFD89
        INC    DPTR
        CLR    A
        MOVC   A, @A+DPTR
        CJNE   A, 00H, LFD89
        INC    DPTR
        CLR    A
        MOVC   A, @A+DPTR
        CJNE   A, 01H, LFD89
        CPL    C
        RET    
LFDA2:  ret 
LFE64:  MOV    A, #12H
        LCALL  LFAF0
        MOV    A, #0F1H
        LCALL  LFAF0
        MOV    A, #00H
        LJMP   LFAF0
LFE73:  MOV    06H, R5
        MOV    R5, #03H
LFE77:  MOV    R7, #00H
        MOV    A, R6
        MOV    R6, #03H
        JNB    ACC.7, LFE80
        DEC    R7
LFE80:  ADD    A, 2CH
        MOV    2EH, A
        MOV    A, R7
        ADDC   A, 2BH
        MOV    2DH, A
LFE89:  MOV    DPTR, #7EC3H
        LCALL  LF251
        LCALL  LFAD4
        MOV    R0, #04H
LFE94:  MOV    A, @R0
        LCALL  LFAF0
        INC    R0
        DJNZ   R2, LFE94
        LCALL  LFE64
        MOV    2FH, DPL
        LCALL  LFE64
        LCALL  LFED9
        CJNE   A, 2FH, LFEB0
        MOV    2CH, 2EH
        MOV    2BH, 2DH
LFEB0:  RET    
LFEB1:  MOV    DPTR, #7E07H
        CLR    A
        MOVC   A, @A+DPTR
        JZ     LFED4
        LCALL  LF9F6
        JNC    LFECA
        LCALL  LF2A0
        MOV    A, #64H
        MOV    28H, A
        LCALL  LF4CC
        SETB   12H
        RET    
LFECA:  LCALL  LF4CC
        SETB   12H
        LCALL  LFA66
        SJMP   LFED9
LFED4:  LCALL  LF4CC
        SETB   12H
LFED9:  LCALL  LF09F
        LCALL  LF0AE
        MOV    DPTR, #7E80H
        MOV    R0, #6FH
LFEE4:  CLR    A
        MOVC   A, @A+DPTR
        XCH    A, @R0
        lcall writebyte
        INC    DPL
        DJNZ   DPL, LFEEF
        DEC    DPH
LFEEF:  DEC    DPL
        DJNZ   R0, LFEE4
        CLR    A
        MOVC   A, @A+DPTR
        MOV    R0, A
        MOV    DPTR, #7E10H
        CLR    A
        MOVC   A, @A+DPTR
        MOV    B, A
        MOV    DPTR, #7E0FH
        CLR    A
        MOVC   A, @A+DPTR
        XCH    A, SP
        lcall writebyte
        MOV    DPTR, #7E0EH
        CLR    A
        MOVC   A, @A+DPTR
        PUSH   ACC
        MOV    DPTR, #7E0DH
        CLR    A
        MOVC   A, @A+DPTR
        PUSH   ACC
        MOV    DPTR, #7E0CH
        CLR    A
        MOVC   A, @A+DPTR
        PUSH   ACC
        MOV    DPTR, #7E0BH
        CLR    A
        MOVC   A, @A+DPTR
        PUSH   ACC
        MOV    DPTR, #7E0AH
        CLR    A
        MOVC   A, @A+DPTR
        MOV    IE, A
        MOV    DPTR, #7E09H
        CLR    A
        MOVC   A, @A+DPTR
        MOV    DPTR, #7E08H
        MOV    PSW, A
        CLR    A
        MOVC   A, @A+DPTR
        POP    DPH
        POP    DPL
        RET    
   

LF026:  CLR    A ;//main
        MOV    0CBH, A
        MOV    0CAH, A
        MOV    0CCH, A
        MOV    0CDH, A
        MOV    0C9H, A
        MOV    0c8h, A
LF033:  JB     P3.0, LF033
LF036:  JNB    P3.0, LF036
        SETB   0c8h.2
LF03B:  JNB    P3.0, LF041
        JNB    0c8h.7, LF03B
LF041:  JNB    P3.0, LF041
LF044:  JNB    P3.0, LF04A
        JNB    0c8h.7, LF044
LF04A:  JNB    P3.0, LF04A
        CLR    0c8h.2
        JB     0c8h.7, LF026
        MOV    R7, 0CCH
        MOV    R6, 0CDH
        MOV    A, R6
        CLR    C
        RRC    A
        MOV    R4, A
        MOV    A, R7
        RRC    A
        ADD    A, R7
        MOV    R7, A
        MOV    A, R4
        ADDC   A, R6
        MOV    R6, A
        MOV    A, R7
        ADD    A, #10H
        MOV    R7, A
        CLR    A
        ADDC   A, R6
        MOV    R6, A
        MOV    A, R7
        MOV    R0, #05H
LF06B:  XCH    A, R6
        CLR    C
        RRC    A
        XCH    A, R6
        RRC    A
        DJNZ   R0, LF06B
        MOV    R7, A
        CLR    C
        CLR    A
        SUBB   A, R7
        MOV    0CAH, A
        MOV    0CCH, A
        CLR    A
        SUBB   A, R6
        MOV    0CBH, A
        MOV    0CDH, A
        MOV    0c8h, #34H
        MOV    SCON, #5AH
LF086:  clr    ri; SCON.RI
LF088:  JNB    ri,LF088
        MOV    A, SBUF
        CJNE   A, #11H, LF086
        LJMP   LF446 ;start

LF093:  MOV    C, ri;SCON.RI
        RET    
LF096:  MOV    C, ti;SCON.TI
        RET    
LF099:  MOV    A, SBUF
        RET    
LF09C:  MOV    SBUF, A
        RET    
LF09F:  CLR    ti;SCON.TI
        RET    
LF0A2:  SETB   ti;SCON.TI
        RET    
LF0A5:  CLR    ri;SCON.RI
        RET    
LF0A8:  CLR    ES
        RET    
LF0AB:  SETB   ES
        RET    
LF0AE:  RET    
LF0AF:  RET    
LF0B0:  lcall writebyte
        RET  

clearuser:mov r2,#0h
clear_0:mov sfal,#0 ;0000-7d00h
	mov sfah,r2
	mov sfcm,#0bh
clear_1:mov a,sfst
	jb acc.2,clear_1
	inc r2
	cjne r2,#7eh,clear_0
	mov r2,#0h
clear_2:mov sfal,#80h
	mov sfah,r2
	mov sfcm,#0bh
clear_3:mov a,sfst
	jb acc.2,clear_3
	inc r2
	cjne r2,#7eh,clear_2
	ret


        END

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -