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

📄 mj.asm

📁 可运行的麻将机控制程序,用C51编译机HEX文件后写入单片机即可
💻 ASM
📖 第 1 页 / 共 5 页
字号:
        SETB   14H
        LJMP   L0CAAH
L0DD4H:
        MOV    A, 31H
        CJNE   A, #02H, L0DE3H
        CLR    14H
        LCALL  L1F20H
        SETB   15H
        LJMP   L0CAAH
L0DE3H:
        CLR    A
        MOV    31H, A
        CLR    14H
        CLR    15H
        LJMP   L0CAAH
L0DEDH:
        CLR    A
        MOV    3EH, A
        LJMP   L0CAAH
L0DF3H:
        LCALL  L184CH
        JNC    L0DFBH
        LJMP   L0F1CH
L0DFBH:
        CLR    A
        MOV    51H, A
        MOV    A, 4CH
        XRL    A, 38H
        JNZ    L0E07H
        MOV    57H, A
        RET
L0E07H:
        MOV    C, 12H
        MOV    5BH, C
        SETB   14H
        CLR    16H
        LCALL  L1F27H
        MOV    A, 57H
        XRL    A, #01H
        JZ     L0E1BH
        LJMP   L0E9CH
L0E1BH:
        MOV    67H, A
        MOV    A, 50H
        XRL    A, #02H
        JNZ    L0E3FH
L0E23H:
        LCALL  L1F2EH
        MOV    A, 67H
        SETB   C
        SUBB   A, #78H
        JC     L0E35H
        MOV    66H, #01H
        MOV    57H, #01H
L0E33H:
        SJMP   L0E33H
L0E35H:
        MOV    C, 24H
        JC     L0E3CH
        SETB   C
        SJMP   L0E3DH
L0E3CH:
        CLR    C
L0E3DH:
        JNC    L0E23H
L0E3FH:
        MOV    A, 50H
        XRL    A, #08H
        JZ     L0E4AH
        MOV    A, 50H
        CJNE   A, #01H, L0E53H
L0E4AH:
        ANL    4CH, #0FEH
        LCALL  L1C3DH
        INC    4CH
        RET
L0E53H:
        MOV    A, 50H
        CJNE   A, #06H, L0E62H
        ANL    4CH, #0FEH
        INC    4CH
        LCALL  L1BB1H
        SJMP   L0E6FH
L0E62H:
        MOV    A, 50H
        CJNE   A, #04H, L0E72H
        LCALL  L1BD5H
        JNC    L0E6FH
        LJMP   L0F1CH
L0E6FH:
        LJMP   L1DE7H
L0E72H:
        MOV    R7, #0CH
        LCALL  L188DH
        MOV    A, 50H
        CJNE   A, #08H, L0E84H
        MOV    A, 64H
        ANL    A, #03H
        XRL    A, #03H
        JZ     L0E95H
L0E84H:
        ANL    4CH, #0FEH
        LCALL  L1BD5H
        JC     L0E95H
        MOV    A, 4CH
        XRL    A, 38H
        JZ     L0E95H
        LCALL  L1DE7H
L0E95H:
        CLR    A
        MOV    50H, A
        MOV    57H, A
        SJMP   L0ED6H
L0E9CH:
        MOV    A, 50H
        CJNE   A, #08H, L0EA6H
        MOV    R7, #0CH
        LCALL  L188DH
L0EA6H:
        MOV    A, 50H
        CJNE   A, #01H, L0EBEH
        LCALL  L1DE7H
        ANL    4CH, #0FEH
        INC    4CH
        MOV    A, 64H
        ANL    A, #03H
        MOV    R7, A
        CJNE   R7, #03H, L0EBEH
        MOV    51H, #01H
L0EBEH:
        MOV    A, 50H
        CJNE   A, #06H, L0ED6H
        CLR    A
        MOV    45H, A
L0EC6H:
        LCALL  L1F0BH
        JNB    25H, L0ED3H
        MOV    A, 45H
        SETB   C
        SUBB   A, #02H
        JC     L0EC6H
L0ED3H:
        LCALL  L1BB1H
L0ED6H:
        MOV    A, 4CH
        XRL    A, 37H
        JZ     L0F18H
        MOV    A, 4CH
        XRL    A, 38H
        JZ     L0F18H
        LCALL  L1BD5H
        JNC    L0F05H
        MOV    A, 64H
        ANL    A, #07H
        MOV    R7, A
        CJNE   R7, #05H, L0EF4H
        MOV    64H, #01H
        SJMP   L0EF7H
L0EF4H:
        MOV    64H, #02H
L0EF7H:
        CLR    14H
        SETB   15H
        CLR    16H
        CLR    17H
        CLR    15H
        CLR    12H
        SJMP   L0F18H
L0F05H:
        MOV    A, 50H
        CJNE   A, #04H, L0F18H
        LCALL  L1DE7H
        MOV    A, 64H
        ANL    A, #03H
        MOV    R7, A
        CJNE   R7, #03H, L0F18H
        MOV    51H, #01H
L0F18H:
        MOV    C, 5BH
        MOV    14H, C
L0F1CH:
        RET
L0F1DH:
        MOV    A, 35H
        JNZ    L0F24H
        LJMP   L1022H
L0F24H:
        MOV    A, 36H
        JNZ    L0F2BH
        LJMP   L1022H
L0F2BH:
        MOV    A, 37H
        JNZ    L0F32H
        LJMP   L1022H
L0F32H:
        JNB    42H, L0F38H
        LJMP   L0FB5H
L0F38H:
        CLR    A
        MOV    40H, A
        MOV    69H, A
        CLR    16H
        CLR    17H
        SETB   14H
        LCALL  L1F19H
        CLR    A
        MOV    67H, A
        CLR    5DH
L0F4BH:
        LCALL  L145DH
        JNB    43H, L0F56H
        CLR    10H
        CLR    A
        MOV    6BH, A
L0F56H:
        LCALL  L1F19H
        LCALL  L1B11H
        MOV    72H, R7
        JNB    13H, L0F64H
        CLR    A
        MOV    72H, A
L0F64H:
        MOV    A, 72H
        CJNE   A, #30H, L0F6DH
        SETB   5DH
        SJMP   L0F74H
L0F6DH:
        MOV    A, 67H
        CLR    C
        SUBB   A, #04H
        JC     L0F4BH
L0F74H:
        CLR    A
        MOV    67H, A
L0F77H:
        LCALL  L145DH
        JNB    43H, L0F82H
        CLR    10H
        CLR    A
        MOV    6BH, A
L0F82H:
        MOV    A, 67H
        SETB   C
        SUBB   A, #0AH
        JNC    L0FABH
        LCALL  L1F19H
        LCALL  L1B11H
        MOV    72H, R7
        JNB    13H, L0F97H
        CLR    A
        MOV    72H, A
L0F97H:
        JB     5DH, L0FABH
        MOV    A, 72H
        CJNE   A, #30H, L0FA3H
        SETB   5DH
        SJMP   L0FABH
L0FA3H:
        MOV    R7, 72H
        LCALL  L1D9CH
        JNB    25H, L0F77H
L0FABH:
        CLR    A
        MOV    67H, A
        MOV    40H, A
        CLR    14H
        SETB   42H
        RET
L0FB5H:
        JB     25H, L0FBDH
        SETB   14H
        CLR    A
        MOV    40H, A
L0FBDH:
        MOV    A, 40H
        CLR    C
        SUBB   A, #06H
        JC     L0FC6H
        CLR    14H
L0FC6H:
        LCALL  L145DH
        MOV    A, 40H
        CLR    C
        SUBB   A, #78H
        JC     L0FD5H
        MOV    66H, #05H
L0FD3H:
        SJMP   L0FD3H
L0FD5H:
        JNB    43H, L0FDDH
        CLR    10H
        CLR    A
        MOV    6BH, A
L0FDDH:
        CLR    16H
        CLR    17H
        LCALL  L1B11H
        MOV    72H, R7
        JNB    13H, L0FECH
        CLR    A
        MOV    72H, A
L0FECH:
        MOV    A, 72H
        XRL    A, #30H
        JZ     L0FF5H
        JNB    5DH, L101DH
L0FF5H:
        MOV    A, 55H
        XRL    A, #01H
        JNZ    L101DH
        CLR    42H
        MOV    C, 25H
        CPL    C
        MOV    40H, C
L1002H:
        MOV    C, 25H
        CPL    C
        MOV    55H, C
        MOV    C, 23H
        MOV    45H, C
        MOV    3EH, A
        MOV    6AH, #02H
        SETB   13H
        LCALL  L1F19H
        CLR    4FH
        MOV    A, 37H
        JNZ    L101DH
        CLR    14H
L101DH:
        MOV    R7, 72H
        LCALL  L1D9CH
L1022H:
        RET
L1023H:
        ADD    A, #01H
        MOV    R5, A
        CLR    A
        RLC    A
        MOV    R4, A
        MOV    R3, #00H
        MOV    R7, #00H
        MOV    76H, R6
        MOV    77H, R7
        MOV    78H, R4
        MOV    79H, R5
        MOV    7AH, R3
        MOV    7BH, R2
        MOV    7CH, R1
        CLR    A
        MOV    R5, A
        MOV    R4, A
        MOV    R7, A
        SETB   C
        MOV    A, 79H
        SUBB   A, #20H
        MOV    A, 78H
        SUBB   A, #00H
        JC     L104BH
        RET
L104BH:
        MOV    A, 76H
        ANL    A, #01H
        MOV    R6, A
        MOV    R7, 77H
        MOV    A, 79H
        ADD    A, R7
        MOV    R7, A
        MOV    A, 78H
        ADDC   A, R6
        MOV    R6, A
        SETB   C
        MOV    A, R7
        SUBB   A, #20H
        MOV    A, R6
        SUBB   A, #00H
        JC     L1066H
        MOV    R7, #00H
        RET
L1066H:
        MOV    A, 76H
        ANL    A, #0FEH
        MOV    R2, A
        MOV    R3, #00H
        MOV    ISP_ADDRH, A
        CLR    A
        MOV    ISP_ADDRL, A
        ANL    ISP_CMD, #0F8H
        ORL    ISP_CMD, #03H
        LCALL  L1EC7H
        MOV    ISP_TRIG, #46H
        MOV    ISP_TRIG, #0B9H
        NOP
        MOV    R4, A
        MOV    R5, A
L1084H:
        CLR    C
        MOV    A, R5
        SUBB   A, 79H
        MOV    A, R4
        SUBB   A, 78H
        JNC    L10DCH
        MOV    A, 76H
        MOV    ISP_ADDRH, A
        MOV    A, 77H
L1093H:
        MOV    ISP_ADDRL, A
        MOV    R3, 7AH
        MOV    R2, 7BH
        MOV    R1, 7CH
        MOV    DPL, R5
        MOV    DPH, R4
        LCALL  L137CH
        MOV    R7, A
        MOV    ISP_DATA, A
        ANL    ISP_CMD, #0F8H
        ORL    ISP_CMD, #02H
        MOV    ISP_TRIG, #46H
        MOV    ISP_TRIG, #0B9H
        NOP
        CLR    A
        MOV    ISP_DATA, A
        ANL    ISP_CMD, #0F8H
        ORL    ISP_CMD, #01H
        MOV    ISP_TRIG, #46H
        MOV    ISP_TRIG, #0B9H
        NOP
        MOV    A, ISP_DATA
        XRL    A, R7
        JZ     L10CDH
        LCALL  L1EFAH
        MOV    R7, #00H
        RET
L10CDH:
        INC    77H
        MOV    A, 77H
        JNZ    L10D5H
        INC    76H
L10D5H:
        INC    R5
        CJNE   R5, #00H, L10DAH
        INC    R4
L10DAH:
        SJMP   L1084H
L10DCH:
        LCALL  L1EFAH
        MOV    R7, #01H
        RET
L10E2H:
        MOV    6EH, R7
        SETB   1BH
        SETB   18H
        SETB   19H
        SETB   1AH
        MOV    A, 6EH
        JNZ    L10FBH
        MOV    67H, #01H
        LCALL  L1F20H
        LCALL  L1F19H
        SJMP   L10FEH
L10FBH:
        CLR    A
        MOV    67H, A
L10FEH:
        MOV    58H, #03H
L1101H:
        LCALL  L1F0BH
        MOV    A, 67H
        CLR    C
        SUBB   A, #0AH
        JC     L1117H
        MOV    A, 6EH
        JNZ    L1117H
        MOV    66H, #03H
        MOV    58H, #01H
L1115H:
        SJMP   L1115H
L1117H:
        JB     2BH, L111CH
        CLR    18H
L111CH:
        JB     2AH, L1121H
        CLR    19H
L1121H:
        JB     29H, L1126H
        CLR    1AH
L1126H:
        JB     28H, L112BH
        CLR    1BH
L112BH:
        MOV    A, 6EH
        JNZ    L115CH
        LCALL  L1B11H
        MOV    A, R7
        CLR    C
        SUBB   A, #01H
        JC     L1141H
        MOV    A, R7
        SETB   C
        SUBB   A, #08H
        JNC    L1141H
        LCALL  L1DCFH
L1141H:
        MOV    A, 67H
        SETB   C
        SUBB   A, #02H
        JNC    L117AH
        JNB    2BH, L1154H
        JNB    2AH, L1154H
        JNB    29H, L1154H
        JB     28H, L117AH
L1154H:
        MOV    66H, #03H
        MOV    58H, #02H
L115AH:
        SJMP   L115AH
L115CH:
        MOV    A, 67H
        CLR    C
        SUBB   A, #0AH
        JC     L116BH
        MOV    66H, #03H
        MOV    58H, #01H
L1169H:
        SJMP   L1169H
L116BH:
        MOV    A, 6FH
        XRL    A, 67H
        JZ     L117AH
        JNB    4BH, L1177H
        LCALL  L1C5FH
L1177H:
        MOV    6FH, 67H
L117AH:
        JB     2BH, L1101H
        JB     29H, L1101H
        JNB    2AH, L1186H
        LJMP   L1101H
L1186H:
        JNB    28H, L118CH
        LJMP   L1101H
L118CH:
        CLR    A
        MOV    58H, A
        CLR    18H
        CLR    1AH
        CLR    19H
        CLR    1BH
        RET
L1198H:
        MOV    6FH, 34H
        MOV    A, 35H
        SETB   C
        SUBB   A, 6FH
        JC     L11A7H
        MOV    6FH, 35H
        SJMP   L11BDH
L11A7H:
        MOV    A, 36H
        SETB   C
        SUBB   A, 6FH
        JC     L11B3H
        MOV    6FH, 36H
        SJMP   L11BDH
L11B3H:
        MOV    A, 37H
        SETB   C
        SUBB   A, 6FH
        JC     L11BDH
        MOV    6FH, 37H
L11BDH:
        MOV    A, 6FH
        CLR    C
        RRC    A
        ANL    A, #1FH
        MOV    6FH, A
        MOV    A, 53H
        JNZ    L11E0H
        MOV    A, 3BH
        ANL    A, #0F0H
        MOV    R7, A
        MOV    A, 6FH
        CJNE   R7, #80H, L11D8H
        MOV    DPTR, #1B51H
        SJMP   L11DBH
L11D8H:
        MOV    DPTR, #1B3BH
L11DBH:
        MOVC   A, @A+DPTR
        MOV    53H, A
        SJMP   L11EAH
L11E0H:
        MOV    A, 53H
        SETB   C
        SUBB   A, #05H
        JNC    L11EAH
        CLR    A
        MOV    53H, A
L11EAH:
        CLR    58H
        SETB   5BH
        MOV    A, 53H
        CPL    A
        JZ     L1244H
L11F3H:
        MOV    R7, 53H
        DEC    53H
        MOV    A, R7
        JZ     L1241H
        SETB   10H
        MOV    R7, #13H
        MOV    R6, #00H
        LCALL  L1D7FH
        JB     13H, L120DH
        LCALL  L1B11H
        MOV    6FH, R7
        SJMP   L1210H
L120DH:
        CLR    A
        MOV    6FH, A
L1210H:
        MOV    A, 6FH
        XRL    A, #20H
        JZ     L121BH
        MOV    A, 6FH
        CJNE   A, #10H, L1228H

⌨️ 快捷键说明

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