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

📄 lc72131.asm

📁 LC72131完整程序
💻 ASM
📖 第 1 页 / 共 5 页
字号:
        CLR     81H
        CLR     82H
        RET
BB744:  CJNE    A,#01H,BB752
        ANL     31H,#0F9H
        ORL     31H,#02H
        SETB    81H
        CLR     82H
        RET
BB752:  CJNE    A,#02H,BB760
        ANL     31H,#0F9H
        ORL     31H,#04H
        CLR     81H
        SETB    82H
        RET
BB760:  ORL     31H,#06H
        SETB    81H
        SETB    82H
        RET

AA768:  CLR     22H
        CLR     13H     
        ANL     41H,#0fch;0F0H
        ANL     40H,#0FDH
        ANL     3FH,#0feh;0FCH
                                       CLR      29H
        ;ANL     3DH,#0feh;0FCH
        anl    40h,#0feh
        MOV     A,17H
        SWAP    A
        RR      A
        ANL     A,#07H
        JNZ     BB789
                                        ANL     18H,#0FEH
                                        
        CLR     0A0H
        SETB    0A1H
        SETB    24H
        CLR     26H
        RET
BB789:  CJNE    A,#01H,BB795
                                        ANL     18H,#0FEH
        SETB    0A0H
        SETB    0A1H
        SETB    24H
        CLR     26H
        RET
BB795:  CJNE    A,#02H,BB7A4
                                        ORL     18H,#01H
                                        
        ORL     3FH,#01H                ;HALL
        SETB    0A0H
        CLR     0A1H
                                        lcall   bb2e0
                                        
BB796:  SETB    24H
        CLR     26H
        RET
BB7A4:  CJNE    A,#03H,BB7B5
                                        ORL     18H,#01H
                                        ;CLR     29H
                                        lcall   bb2e0
        ORL     40h,#01h;3DH,#01H       ;THEAER
        SETB    0A0H
        CLR     0A1H
        SETB    22H
        SETB    24H
        CLR     26H
                                        
BB7A5:  RET
BB7B5:  ORL     40H,#02H                ;LIN START
        anl     40h,#0fbh
        anl     3eh,#0fdh
        ;ANL     40H,#0E7H
                                        ANL     18H,#0FEH
                                        SETB    29H
        CLR     0A0H
        CLR     0A1H
        CLR     24H
        SETB    26H
        SETB    13H
        ORL     3eh,#02h;40H,#08H
        RET

AA7C9:  MOV     A,18H
        SWAP    A
        RR      A
        ANL     A,#07H
                        
        MOV     0AH,A
        LCALL   AA615
        LCALL   AA6E5
        ;LCALL   AACB5
        LCALL   AA72E
        LCALL   AA7E3
        LCALL   AA768
        LCALL   AA87C
        LJMP    AA85C

AA7E3:                       
        ANL     40H,#0fh;0BFH  
        ANL     41H,#03h;0FH
        MOV     A,17H
        ANL     A,#03H
        JNZ     BB7FA
        ORL     40H,#10h;40H       NORMAL
        ORL     41H,#04h;10H
        SETB    27H
        CLR     25H
        RET
BB7FA:  CJNE    A,#01H,BB805
        ORL     41H,#0ch;30H       WIDE
        CLR     27H
        SETB    25H
        RET
BB805:  CJNE    A,#02H,BB810
        ORL     41H,#14h;50H       PHANTOM

                                   ;SETB  13H
        CLR     27H
        CLR     25H
        RET
BB810:  CLR     27H
        CLR     25H
        RET

AA815:  JNB     04H,BB855           ;NOISE  TEST
        SETB    23H
        MOV     A,43H
        CJNE    A,#01H,BB828        ;l-ch
        ;SETB    0A6H
        ;SETB    0A5H
        CLR     21H
        CLR     20H
        RET
BB828:  CJNE    A,#02H,BB834         ;center
        setb    32h;SETB    0A6H
        setb    31h;SETB    0A5H
        CLR     21H
        SETB    20H
        RET
BB834:  CJNE    A,#03H,BB840         ;r-ch
        setb    32h;SETB    0A6H
        setb    31h;SETB    0A5H
        SETB    21H
        CLR     20H
        RET
BB840:  CJNE    A,#04H,BB84C         ;sur/l
        SETB    21H
        SETB    20H
        clr     32h;CLR     0A6H
        setb    31h;SETB    0A5H
        RET
BB84C:  SETB    21H                  ;sur/r
        SETB    20H
        setb    32h;SETB    0A6H
        clr     31h;CLR     0A5H
        RET
BB855:  CLR     23H
        clr     32h;CLR     0A6H
        clr     31h;CLR     0A5H
        RET

AA85C:  CLR     0AFH
        PUSH    00H
        MOV     A,1BH    
        MOV     B,#0CH
        DIV     AB
        JNB     12H,BB86B
        MOV     A,#07H
BB86B:  LCALL   AA8FA
        LCALL   AA815
        LCALL   AA8DE
;        LCALL   AA8B5
        POP     00H
        SETB    0AFH
        RET

AA87C:  MOV     23H,#00H
        MOV     A,17H
        ANL     A,#03H
        JNZ     BB889
        SETB    19H                ;normal
        SJMP    BB895
BB889:  CJNE    A,#01H,BB890
        SETB    1FH                ;wide
        SJMP    BB895
BB890:  CJNE    A,#02H,BB895
        SETB    1EH                ;phaton
BB895:  MOV     A,17H
        SWAP    A
        RR      A
        ANL     A,#07H
        JNZ     BB8A0
        SETB    18H                ;pro logic
        RET
BB8A0:  CJNE    A,#01H,BB8A6       ;3-stero
        SETB    1BH
        RET
BB8A6:  CJNE    A,#02H,BB8AC       ;hall
        SETB    1DH
        RET
BB8AC:  CJNE    A,#03H,BB8B2       ;simal
        SETB    1CH
        RET
BB8B2:  SETB    1AH                ;off
        RET

;AA8B5:  MOV     A,1AH
;        MOV     B,#0AH
;        DIV     AB
;        MOV     47H,B       
;        INC     A
;        MOV     R0,A
;        MOV     A,#01H
;BB8C2:  DJNZ    R0,BB8C6
;        SJMP    BB8C9
;BB8C6:  RL      A
;        SJMP    BB8C2
;BB8C9:  MOV     46H,A
;        MOV     A,47H
;        RR      A
;        ANL     A,#1FH
;        INC     A
;        MOV     R0,A
;        MOV     A,#01H
;BB8D4:  DJNZ    R0,BB8D8
;        SJMP    BB8DB
;BB8D8:  RL      A
;        SJMP    BB8D4
;BB8DB:  MOV     47H,A
;        RET

AA8DE:  MOV     A,24H
        MOV     R0,#08
        ACALL   AA8EF
        MOV     A,23H
        MOV     R0,#08H
        ACALL   AA8EF
        MOV     A,26H
        MOV     R0,#08H
        acall   aa8ef
        CLR     0A7H
        SETB    0A7H
        RET

AA8EF:  clr     0afh
        RLC     A
        MOV     93H,C
        nop
        CLR     94H
        NOP     
        nop
        nop
        SETB    94H
        nop
        nop
        nop
        DJNZ    R0,AA8EF
        setb    0afh
        RET

AA8FA: SETB    94H
        NOP
        CLR     0A4H
        CLR     0A3H
        CLR     94H
        NOP
        SETB    94H
        ORL     A,#40H
        MOV     R0,#08H
BB90A:  RRC     A
        MOV     0A3H,C
        CLR     94H
        NOP
        SETB    94H
        DJNZ    R0,BB90A
        CLR     0A3H
        CLR     94H
        NOP
        SETB    94H
        SETB    0A4H
        RET

AA91E:  MOV     A,19H
        CJNE    A,46h,BB924 ;48h
        RET
BB924:  MOV     46h,A       ;48h
        MOV     52H,#04H
        SJMP    AA936
AA92B:  MOV     A,1AH  
        CJNE    A,47h,BB931 ;49h
        RET
BB931:  MOV     47H,A       ;49h
        MOV     52H,#02H
AA936:  CLR     0AFH
        PUSH    83H
        PUSH    82H
        PUSH    00H
        MOV     DPTR,#TA971
        MOV     51H,A
        MOVC    A,@A+DPTR
        MOV     R0,#08H
        ACALL   AA964
        MOV     A,51H
        INC     A
        MOVC    A,@A+DPTR
        ORL     A,52H
        MOV     R0,#0AH
        ACALL   AA964
        NOP
        NOP
        SETB    0B5H
        NOP
        NOP
        NOP
        CLR     0B5H
        POP     00H
        POP     82H
        POP     83H
        SETB    0AFH
        RET

AA964:  RLC     A
        MOV     96H,C
        NOP
        SETB    97H
        NOP
        CLR     97H
        CLR     C
        DJNZ    R0,AA964
        RET

TA971:  DB 02H,10H,02H,20H,02H,40H,02H,80H
        DB 03H,00H,04H,10H,04H,20H,04H,40H
        DB 04H,80H,05H,00H
        DB 08H,10H,08H,20H,08H,40H,08H,80H
        DB 09H,00H,10H,10H,10H,20H,10H,40H
        DB 10H,80H,11H,00H,20H,10H,20H,20H
        DB 20H,40H,20H,80H,21H,00H,40H,10H
        DB 40H,20H,40H,40H,40H,80H,41H,00H
        DB 80H,10H,80H,20H,80H,40H,80H,80H
        DB 81H,00H
        
AA9B7:  JB      03H,BB9BB
        RET
BB9BB:  CLR     03H
        MOV     A,21H
        CJNE    A,#60H,BB9C8
        MOV     08H,#09H
BB9C5:  SETB    01H
        RET
BB9C8:  CJNE    A,#50H,BB9D0
        MOV     08H,#0CH
        SJMP    BB9C5
BB9D0:  CJNE    A,#0A0H,BB9D8
        MOV     08H,#13H
        SJMP    BB9C5
BB9D8:  CJNE    A,#90H,BB9E0
        MOV     08H,#16H
        SJMP    BB9C5
BB9E0:  CJNE    A,#82H,BB9E8
        MOV     08H,#0EH
        SJMP    BB9C5           
BB9E8:  CJNE    A,#81H,BB9F0
        MOV     08H,#0DH
        SJMP    BB9C5
BB9F0:  CJNE    A,#44H,BB9F8
        MOV     08H,#0FH
        SJMP    BB9C5
BB9F8:  CJNE    A,#42H,BBA00
        MOV     08H,#18H
        SJMP    BB9C5
BBA00:  CJNE    A,#10H,BBA08
        MOV     08H,#11H
        SJMP    BB9C5
BBA08:  CJNE    A,#20H,BBA10
        MOV     08H,#10H
        SJMP    BB9C5
BBA10:  CJNE    A,#88H,BBA18
        MOV     08H,#12H
        SJMP    BB9C5
BBA18:  CJNE    A,#48H,BBA20
        MOV     08H,#15H
        SJMP    BB9C5
BBA20:  CJNE    A,#41H,BBA28
        MOV     08H,#17H
        SJMP    BB9C5
BBA28:  CJNE    A,#84H,BBA30
        MOV     08H,#14H
        SJMP    BB9C5
BBA30:  CJNE    A,#08H,BBA38
        MOV     08H,#1AH
        SJMP    BB9C5
BBA38:  CJNE    A,#04H,BBA40
        MOV     08H,#1BH
        SJMP    BB9C5
BBA40:  CJNE    A,#02H,BBA49
        MOV     08H,#0AH
        LJMP    BB9C5
BBA49:  CJNE    A,#01H,BBA52
        MOV     08H,#0BH
        LJMP    BB9C5
BBA52:  RET

AAA53:  MOV     08AH,#0B3H
        MOV     08CH,#0E9H
        PUSH    00H   
        PUSH    01H   
        PUSH    06H   
        PUSH    07H   
        PUSH    0E0H 
        PUSH    0D0H   
        lCALL   AAB49
        JNB     15H,BBA90
        lCALL   AAD57
        lCALL   AAAFD
        lCALL   AA9B7
        lCALL   AAB80
        lCALL   AAB69
        lCALL   AAB99
        lCALL   AAB55
        lCALL   AAB07
        DJNZ    53H,BBA84
        JNB     3EH,BBA84
        CLR     14H
        CLR     3EH
BBA84:  DJNZ    50H,BBA8C
        MOV     50H,#02H
        LCALL   AAA9D
BBA8C:  LCALL   AA92B
        LCALL   AA91E
BBA90:  POP     0D0H      
        POP     0E0H
        POP     07H
        POP     06H
        POP     01H
        POP     00H
        RETI

AAA9D:  JB      3BH,BBACB
        JNB     0B4H,BBADE
        CLR     12H
        CLR     14H
        JB      3CH,BBAAB
        RET
BBAAB:  SETB    01H
        MOV     A,0AH
        PUSH    83H
        PUSH    82H
        MOV     DPTR,#TAFF8
        MOVC    A,@A+DPTR
        MOV     08H,A
        POP     82H
        POP     83H
        CLR     3CH
        MOV     1CH,#02H
BBAC2:  RET
BBAC3:  MOV     C,0A2H
        RLC     A
        ANL     A,#01H
        CJNE    A,45h,BBACC ;4fh
BBACB:  RET

BBACC:  MOV     45h,a;4FH,A
        JNZ     BBAD5
        CLR     39H
        SETB    38H
        RET
BBAD5:  SETB    39H
        CLR     38H
        RET

AAADA:  SETB    39H
        SJMP    AAAEA
BBADE:  SETB    12H
        SETB    3CH
        JB      14H,BBAC3
        JB      0A2H,AAADA
        SETB    38H
AAAEA:  SETB    14H
        CLR     3EH
        LCALL   AA2FE
        CLR     12H
        MOV     A,#07H
        lCALL   AA8FA
        SETB    12H
        LCALL   BB6ED
        RET

AAAFD:  JNB     87H,BBB01
        RET
BBB01:  MOV     08H,#19H
        SETB    01H
        RET

AAB07:  JNB     04H,BBB45       ;NOISE TEST DISPLAY
        DJNZ    42H,BBB48
        INC     43H
        MOV     A,43H
        CJNE    A,#06H,BBB17
        MOV     43H,#01H
BBB17:  MOV     A,43H
        CJNE    A,#01H,BBB23
        lCALL   AAD44
        LCALL   AACEE         ;R\CH
        SJMP    BBB45
BBB23:  CJNE    A,#02H,BBB2C
        lCALL   AAD44
        ACALL   AAC4C         ;CENTER
        SJMP    BBB45
BBB2C:  CJNE    A,#03H,BBB36
        lCALL   AAD44
        LCALL   AACFF          ;L\CH
        SJMP    BBB45
BBB36:  CJNE    A,#04H,BBB40
        lCALL   AAD44
        LCALL   AAD13          ;SUR\R
        SJMP    BBB45
BBB40:  lCALL   AAD44
        LCALL   AAD2D          ;SUR\L

⌨️ 快捷键说明

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