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

📄 mj.asm

📁 可运行的麻将机控制程序,用C51编译机HEX文件后写入单片机即可
💻 ASM
📖 第 1 页 / 共 5 页
字号:
L121BH:
        MOV    A, 55H
        JNZ    L1228H
        JNB    5BH, L1228H
        INC    31H
        CPL    58H
        CLR    5BH
L1228H:
        JNB    21H, L122EH
        JB     20H, L1230H
L122EH:
        SETB   5BH
L1230H:
        MOV    6AH, #02H
        MOV    R7, 6FH
        LCALL  L1DCFH
        JB     23H, L11F3H
        SETB   0CH
        SETB   56H
        SJMP   L11F3H
L1241H:
        MOV    54H, #01H
L1244H:
        MOV    53H, #0FFH
        RET
L1248H:
        MOV    C, 40H
        JNB    25H, L124EH
        CPL    C
L124EH:
        JNC    L1255H
        CLR    A
        MOV    30H, A
        MOV    40H, A
L1255H:
        MOV    C, 25H
        MOV    40H, C
        MOV    A, 69H
        CLR    C
        SUBB   A, #96H
        JC     L1270H
        MOV    A, 69H
        SETB   C
        SUBB   A, #0AFH
        JNC    L1270H
        MOV    A, 40H
        CLR    C
        SUBB   A, #0AH
        JC     L1281H
        SJMP   L1291H
L1270H:
        JB     25H, L12A4H
        MOV    A, 40H
        CLR    C
        SUBB   A, #12H
        JC     L128AH
        MOV    A, 40H
        SETB   C
        SUBB   A, #13H
        JNC    L128AH
L1281H:
        CLR    16H
        CLR    14H
        SETB   17H
        SETB   15H
        RET
L128AH:
        MOV    A, 40H
        CLR    C
        SUBB   A, #0AH
        JC     L1294H
L1291H:
        LJMP   L1B8BH
L1294H:
        MOV    A, 40H
        CLR    C
        SUBB   A, #01H
        JC     L12D6H
        CLR    17H
        CLR    15H
        CLR    16H
        SETB   14H
        RET
L12A4H:
        CLR    A
        MOV    69H, A
        CLR    17H
        CLR    15H
        SETB   16H
        SETB   14H
L12AFH:
        MOV    A, 30H
        CJNE   A, #1EH, L12B6H
        SJMP   L12BBH
L12B6H:
        MOV    A, 30H
        CJNE   A, #3CH, L12C2H
L12BBH:
        CLR    16H
        SETB   17H
        LJMP   L1F20H
L12C2H:
        MOV    A, 30H
        SETB   C
        SUBB   A, #78H
        JC     L12D6H
        CLR    16H
        CLR    14H
        CLR    17H
        CLR    15H
        MOV    66H, #01H
L12D4H:
        SJMP   L12D4H
L12D6H:
        RET
L12D7H:
        MOV    R0, #7FH
        CLR    A
L12DAH:
        MOV    @R0, A
        DJNZ   R0, L12DAH
        MOV    SP, #7CH
        LJMP   L131EH
L12E3H:
        LJMP   L02E5H
L12E6H:
        CLR    A
        MOVC   A, @A+DPTR
        INC    DPTR
        MOV    R0, A
L12EAH:
        CLR    A
        MOVC   A, @A+DPTR
        INC    DPTR
        JC     L12F2H
        MOV    @R0, A
        SJMP   L12F3H
L12F2H:
        MOVX   @R0, A
L12F3H:
        INC    R0
        DJNZ   R7, L12EAH
        SJMP   L1321H
L12F8H:
        CLR    A
        MOVC   A, @A+DPTR
        INC    DPTR
        MOV    R0, A
        ANL    A, #07H
        ADD    A, #0CH
        XCH    A, R0
        CLR    C
        RLC    A
        SWAP   A
        ANL    A, #0FH
        ORL    A, #20H
        XCH    A, R0
        MOVC   A, @A+PC
        JC     L1310H
        CPL    A
        ANL    A, @R0
        SJMP   L1311H
L1310H:
        ORL    A, @R0
L1311H:
        MOV    @R0, A
        DJNZ   R7, L12F8H
        SJMP   L1321H
        AJMP   L1002H
        INC    A
        INC    R0
        JBC    20H, L135DH
        DB     80H
L131EH:
        MOV    DPTR, #1F12H
L1321H:
        CLR    A
        MOV    R6, #01H
        MOVC   A, @A+DPTR
        JZ     L12E3H
        INC    DPTR
        MOV    R7, A
        ANL    A, #3FH
        JNB    ACC.5, L1337H
        ANL    A, #1FH
        MOV    R6, A
        CLR    A
        MOVC   A, @A+DPTR
        INC    DPTR
        JZ     L1337H
        INC    R6
L1337H:
        XCH    A, R7
        ANL    A, #0C0H
        ADD    A, ACC
        JZ     L12E6H
        JC     L12F8H
        CLR    A
        MOVC   A, @A+DPTR
        INC    DPTR
        MOV    R2, A
        CLR    A
        MOVC   A, @A+DPTR
        INC    DPTR
        MOV    R0, A
L1348H:
        CLR    A
        MOVC   A, @A+DPTR
        INC    DPTR
        XCH    A, R0
        XCH    A, DPL
        XCH    A, R0
        XCH    A, R2
        XCH    A, DPH
        XCH    A, R2
        MOVX   @DPTR, A
        INC    DPTR
        XCH    A, R0
        XCH    A, DPL
        XCH    A, R0
        XCH    A, R2
        XCH    A, DPH
        XCH    A, R2
L135DH:
        DJNZ   R7, L1348H
        DJNZ   R6, L1348H
        SJMP   L1321H
L1363H:
        CJNE   R3, #01H, L136CH
        MOV    DPL, R1
        MOV    DPH, R2
        MOVX   A, @DPTR
        RET
L136CH:
        JNC    L1370H
        MOV    A, @R1
        RET
L1370H:
        CJNE   R3, #0FEH, L1375H
        MOVX   A, @R1
        RET
L1375H:
        MOV    DPL, R1
        MOV    DPH, R2
        CLR    A
        MOVC   A, @A+DPTR
        RET
L137CH:
        CJNE   R3, #01H, L138BH
        MOV    A, DPL
        ADD    A, R1
        MOV    DPL, A
        MOV    A, DPH
        ADDC   A, R2
        MOV    DPH, A
        MOVX   A, @DPTR
        RET
L138BH:
        JNC    L1393H
        MOV    A, R1
        ADD    A, DPL
        MOV    R0, A
        MOV    A, @R0
        RET
L1393H:
        CJNE   R3, #0FEH, L139CH
        MOV    A, R1
        ADD    A, DPL
        MOV    R0, A
        MOVX   A, @R0
        RET
L139CH:
        MOV    A, DPL
        ADD    A, R1
        MOV    DPL, A
        MOV    A, DPH
        ADDC   A, R2
        MOV    DPH, A
        CLR    A
        MOVC   A, @A+DPTR
        RET
L13A9H:
        CJNE   R3, #01H, L13B2H
        MOV    DPL, R1
        MOV    DPH, R2
        MOVX   @DPTR, A
        RET
L13B2H:
        JNC    L13B6H
        MOV    @R1, A
        RET
L13B6H:
        CJNE   R3, #0FEH, L13BAH
        MOVX   @R1, A
L13BAH:
        RET
L13BBH:
        POP    DPH
        POP    DPL
        MOV    R0, A
L13C0H:
        CLR    A
        MOVC   A, @A+DPTR
        JNZ    L13D6H
        MOV    A, #01H
        MOVC   A, @A+DPTR
        JNZ    L13D6H
        INC    DPTR
        INC    DPTR
L13CBH:
        MOVC   A, @A+DPTR
        MOV    R0, A
        MOV    A, #01H
        MOVC   A, @A+DPTR
        MOV    DPL, A
        MOV    DPH, R0
        CLR    A
        JMP    @A+DPTR
L13D6H:
        MOV    A, #02H
        MOVC   A, @A+DPTR
        XRL    A, R0
        JZ     L13CBH
        INC    DPTR
        INC    DPTR
        INC    DPTR
        SJMP   L13C0H
L13E1H:
        CLR    A
        MOV    62H, A
        CLR    10H
        CLR    11H
        MOV    5CH, #01H
        JNB    22H, L141DH
        MOV    67H, A
        MOV    6EH, 67H
        SETB   10H
L13F5H:
        LCALL  L1F0BH
        CLR    A
        MOV    45H, A
        MOV    A, 67H
        SETB   C
        SUBB   A, #19H
        JC     L1409H
        MOV    66H, #05H
        CLR    10H
L1407H:
        SJMP   L1407H
L1409H:
        MOV    A, 6EH
        XRL    A, 67H
        JZ     L1415H
        LCALL  L1C5FH
        MOV    6EH, 67H
L1415H:
        JB     22H, L13F5H
        CLR    10H
        LCALL  L1C5FH
L141DH:
        SETB   11H
        LCALL  L1F20H
        CLR    A
        MOV    67H, A
        MOV    6EH, 67H
L1428H:
        LCALL  L1F0BH
        MOV    A, 67H
        CLR    C
        SUBB   A, #06H
        JC     L1439H
        MOV    66H, #05H
        CLR    11H
L1437H:
        SJMP   L1437H
L1439H:
        MOV    A, 6EH
        XRL    A, 67H
        JZ     L1445H
        LCALL  L1C5FH
        MOV    6EH, 67H
L1445H:
        JB     22H, L144FH
        MOV    66H, #04H
        CLR    11H
L144DH:
        SJMP   L144DH
L144FH:
        JB     23H, L1428H
        CLR    11H
        CLR    A
        MOV    5CH, A
        LCALL  L1C5FH
        LJMP   L14C9H
L145DH:
        LCALL  L184CH
        JC     L14C8H
        MOV    A, 4CH
        JB     ACC.0, L1496H
        JB     48H, L1491H
        JB     24H, L147BH
        MOV    R7, #0AH
        MOV    R6, #00H
        LCALL  L1D7FH
        MOV    R7, #32H
        LCALL  L188DH
        SJMP   L14C6H
L147BH:
        JNB    26H, L14C6H
        JB     27H, L14C6H
        JNB    42H, L14C6H
        LCALL  L1F19H
        MOV    R7, #32H
        LCALL  L188DH
        LCALL  L1BB1H
        SJMP   L14C3H
L1491H:
        LCALL  L1F20H
        SJMP   L14C6H
L1496H:
        JB     24H, L14ADH
        MOV    R7, #14H
        MOV    R6, #00H
        LCALL  L1D7FH
        JB     48H, L14A8H
        LCALL  L1BB1H
        SJMP   L14ABH
L14A8H:
        LCALL  L1F20H
L14ABH:
        SJMP   L14C3H
L14ADH:
        JNB    26H, L14C6H
        JB     27H, L14C6H
        JNB    42H, L14C6H
        JB     48H, L14C3H
        MOV    R7, #1EH
        MOV    R6, #00H
        LCALL  L1D7FH
        LCALL  L1BB1H
L14C3H:
        LCALL  L175FH
L14C6H:
        CLR    48H
L14C8H:
        RET
L14C9H:
        SETB   52H
        LCALL  L19F4H
        MOV    75H, #1DH
        MOV    R3, #00H
        MOV    R2, #00H
        MOV    R1, #47H
        CLR    A
        MOV    R7, A
        DEC    75H
        MOV    R6, 75H
L14DDH:
        LCALL  L1363H
        XCH    A, R7
        XRL    A, R7
        XCH    A, R7
        MOV    A, #01H
        ADD    A, R1
        MOV    R1, A
        CLR    A
        ADDC   A, R2
        MOV    R2, A
        DJNZ   75H, L14DDH
        MOV    75H, R6
        MOV    A, R7
        LCALL  L13A9H
        MOV    A, 75H
        MOV    R2, #00H
        MOV    R1, #47H
        MOV    R6, #20H
        LCALL  L1023H
        CLR    A
        ADD    A, 75H
        MOV    R7, A
        CLR    A
        ADDC   A, #20H
        MOV    R6, A
        LCALL  L1CC3H
        XCH    A, R6
        MOV    A, R7
        XCH    A, R6
        MOV    A, 75H
        MOV    R4, #00H
        MOV    R3, #00H
        ADD    A, #47H
        MOV    R1, A
        MOV    A, R4
        ADDC   A, #00H
        MOV    R2, A
        LCALL  L1363H
        XRL    A, R6
        JNZ    L1523H
        MOV    66H, A
        SJMP   L1528H
L1523H:
        MOV    66H, #0EH
L1526H:
        SJMP   L1526H
L1528H:
        CLR    52H
        RET
L152BH:
        CLR    A
        MOV    66H, A
        MOV    34H, #08H
        MOV    35H, #08H
        MOV    36H, #08H
        MOV    37H, #08H
        MOV    A, 39H
        ANL    A, #81H
        MOV    39H, A
        MOV    3AH, #01H
        ORL    A, #01H
        MOV    39H, A
        CLR    A
        MOV    4EH, A
        MOV    4FH, A
        MOV    53H, A
        MOV    50H, A
        MOV    51H, A
        MOV    52H, A
        MOV    54H, A
        MOV    55H, A
        MOV    57H, A
        MOV    58H, A
        MOV    5BH, A
        MOV    5CH, A
        MOV    5DH, A
        CLR    48H
        MOV    61H, #78H
        MOV    5EH, A
        MOV    4CH, A
        MOV    62H, A
        LCALL  L164BH
        LCALL  L14C9H
        MOV    11H, #05H
L1576H:
        MOV    R7, #64H
        MOV    R6, #00H
        LCALL  L0003H
        MOV    R7, #0C8H
        MOV    R6, #00H
        LCALL  L1D7FH
        DJNZ   11H, L1576H
L1587H:
        LCALL  L1F2EH
        SJMP   L1587H
L158CH:
        SETB   52H
        MOV    71H, #1DH
        MOV    72H, #20H
        MOV    73H, #00H
        MOV    R3, #00H
        MOV    R2, #00H
        MOV    R1, #47H
L159DH:
        MOV    R7, 73H
        MOV    R6, 72H
        LCALL  L1CC3H
        MOV    A, R7
        LCALL  L13A9H
        MOV    A, #01H
        ADD    A, R1
        MOV    R1, A
        CLR    A
        ADDC   A, R2
        MOV    R2, A
        INC    73H
        MOV    A, 73H
        JNZ    L15B7H
        INC    72H
L15B7H:
        DJNZ   71H, L159DH
        MOV    R3, #00H
        MOV    R2, #00H
        MOV    R1, #47H
        MOV    71H, #1DH
        CLR    A
        MOV    R7, A
        DEC    71H
L15C7H:
        LCALL  L1363H
        XCH    A, R7
        XRL    A, R7
        XCH    A, R7
        MOV    A, #01H
        ADD    A, R1
        MOV    R1, A
        CLR    A
        ADDC   A, R2
        MOV    R2, A
        DJNZ   71H, L15C7H
        LCALL  L1363H
        XRL    A, R7
        JNZ    L15E1H
        MOV    66H, A
        SJMP   L15E6H
L15E1H:
        MOV    66H, #0DH
L15E4H:
        SJMP   L15E4H
L15E6H:
        LCALL  L18CCH
        CLR    52H
        RET
L15ECH:
        MOV    A, 6FH
        CPL    A
L15EFH:
        ANL    A, #01H
        MOV    6FH, A
        MOV    R7, A
L15F4H:
        MOV    A, R7
        MOV    B, #05H
        DIV    AB
        MOV    11H, B
        ANL    21H, #0EFH
        ANL    

⌨️ 快捷键说明

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