lc72131.asm

LC72131完整程序

        ajmp    bb1101

bb1100: clr     04h
        ljmp    aa7c9
bB108:  CJNE    A,#26H,BB109  ;6/16
        jb      12h,bb1100
        lcall   aa0bc
        jnz      bb108c
        cpl     65h
        jb      65h,bb108d
        mov     dptr,#0066h
        ajmp    bb108b
bb108d: mov     dptr,#0069h
        ajmp    bb108b
bb108c: cpl     45h
        jb      45h,bb108a
        mov     dptr,#0027h
        ajmp    bb108b
bb108a: mov     dptr,#002ah
bb108b: lcall   aa044
        ajmp    bb1101

BB109:  CJNE    A,#27H,BB10A  ;7/17
        jb      12h,bb1100
        lcall   aa0bc
        jnz      bb109c
        cpl     66h
        jb      66h,bb109d
        mov     dptr,#006ch
        ajmp    bb109b
bb109d: mov     dptr,#006fh
        ajmp    bb109b
bb109c: cpl     46h
        jb      46h,bb109a
        mov     dptr,#002dh
        ajmp    bb109b
bb109a: mov     dptr,#0030h
bb109b: lcall   aa044
        ajmp    bb1101

BB10A:  CJNE    A,#1DH,BB10B  ;8/18
        jb      12h,bb1100
        lcall   aa0bc
        jnz      bb10ac
        cpl     67h
        jb      67h,bb10ad
        mov     dptr,#0072h
        ajmp    bb10ab
bb10ad: mov     dptr,#0075h
        ajmp    bb10ab
bb10ac: cpl     47h
        jb      47h,bb10aa
        mov     dptr,#0033h
        ajmp    bb10ab
bb10aa: mov     dptr,#0036h
bb10ab: lcall   aa044
        ajmp    bb1101

bb10be: ljmp    bb1100 
BB10B:  CJNE    A,#20H,BB10C  ;9/19
        jb      12h,bb10be
        lcall   aa0bc
        jnz      bb10bc
        cpl     68h
        jb      68h,bb10bd
        mov     dptr,#0078h
        ajmp    bb10bb
bb10bd: mov     dptr,#007bh
        ajmp    bb10bb
bb10bc: cpl     48h
        jb      48h,bb10ba
        mov     dptr,#0039h
        ajmp    bb10bb
bb10ba: mov     dptr,#003ch
bb10bb: lcall   aa044
        ajmp    bb1101

bb10ce: ljmp    bb1100
BB10C:  CJNE    A,#1EH,BB110  ;10/20  
        jb      12h,bb10ce
        lcall   aa0bc
        jnz      bb10cc
        cpl     69h
        jb      69h,bb10cd
        mov     dptr,#007eh
        ajmp    bb10cb
bb10cd: mov     dptr,#0082h
        ajmp    bb10cb
bb10cc: cpl     49h
        jb      49h,bb10ca
        mov     dptr,#003fh
        ajmp    bb10cb
bb10ca: mov     dptr,#0042h
bb10cb: lcall   aa044
        ajmp    bb1101

BB110:  CJNE    A,#09H,BB10E  ;DOWN
        lcall   aa0bd
        mov     dptr,#0000h
        lcall   aa05f
bb111:  mov     a,5fh
        cjne    a,#07h,bb112
        mov     a,5eh
        cjne    a,#0ach,bb112
        mov     5eh,#48h
        mov     5fh,#09h
bb112:  mov     a,17h
        anl     a,#10h
        jz      bb112a
        lcall   ppp2
        lcall   qqqq
        mov     a,5dh
        jz      bb111
        ljmp    aa7c9
bb112a: lcall   qqqq
        ljmp    aa7c9
        

BB10E:  CJNE    A,#0FH,BB10F  ;UP
        lcall   aa0bd
        mov     dptr,#0000h
        lcall   aa05f
bb114:  mov     a,5fh    
        cjne    a,#09h,bb115
        mov     a,5eh
        cjne    a,#48h,bb115
        mov     5eh,#0ach
        mov     5fh,#07h   
bb115:  mov     a,17h
        anl     a,#10h
        jz      bb115a
        lcall   ppp2
        lcall   tttt
        mov     a,5dh
        jz      bb114
        ljmp    aa7c9
bb115a: lcall   tttt
        ljmp    aa7c9
        

bb10fe: ajmp    bb1d4
bb10d:  ljmp    aa7c9
bb10ff: ajmp    bb1b4

BB10F:  CJNE    A,#14H,bb10fe;BB1d4  ;MEMORY
        jB      12H,BB10D
        jnb     54h,bb10d
                                        clr     04h
        MOV     12H,#02H
        LCALL   AAD48
        LCALL   AABA9
        acall   aa0bd    
BB181:  MOV     A,12H
        JZ      bb10ff;BB1B4      
        JNB     01H,BB181
        CLR     01H
        MOV     A,08H
        CJNE    A,#25H,BB194        ;1/11
        lcall   aa0bc
        jnz      bb181c
        cpl     6ah
        jb      6ah,bb181d
        mov     dptr,#0048h
        ajmp    bb1b2
bb181d: mov     dptr,#004bh
        ajmp    bb1b2
bb181c: cpl     4ah
        jb      4ah,bb181a
        MOV     DPTR,#0009H
        ajmp    bb181b
bb181a: mov     dptr,#000ch
bb181b: aJMP    BB1B2

BB194:  CJNE    A,#23H,BB19C         ;2/12
        lcall   aa0bc
        jnz      bb194c
        cpl     6bh
        jb      6bh,bb194d
        mov     dptr,#004eh
        ajmp    bb1b2
bb194d: mov     dptr,#0051h
        ajmp    bb1b2
bb194c: cpl     4bh
        jb      4bh,bb194a
        MOV     DPTR,#000fH
        ajmp    bb194b
bb194a: mov     dptr,#0012h
bb194b: aJMP    BB1B2

BB19C:  CJNE    A,#21H,BB1A4          ;3/13
        lcall   aa0bc
        jnz      bb19cc
        cpl     6ch
        jb      6ch,bb19cd
        mov     dptr,#0054h
        ajmp    bb1b2
bb19cd: mov     dptr,#0057h
        ajmp    bb1b2
bb19cc: cpl     4ch
        jb      4ch,bb19ca
        MOV     DPTR,#0015H
        ajmp    bb19cb
bb19ca: mov     dptr,#0018h
bb19cb: aJMP    BB1B2

BB1A4:  CJNE    A,#20H,BB1AC          ;4/14
        lcall   aa0bc
        jnz      bb1a4c
        cpl     6dh
        jb      6dh,bb1a4d
        mov     dptr,#005ah
        ajmp    bb1b2
bb1a4d: mov     dptr,#005dh
        ajmp    bb1b2
bb1a4c: cpl     4dh
        jb      4dh,bb1a4a
        MOV     DPTR,#001bH
        ajmp    bb1a4b
bb1a4a: mov     dptr,#001eh
bb1a4b: aJMP    BB1B2
bb1ace: ajmp    bb1ad0

BB1AC:  CJNE    A,#22H,bb1ace;BB11ad0    ;5/15
        lcall   aa0bc
        jnz      bb1acc
        cpl     6eh
        jb      6eh,bb1acd
        mov     dptr,#0060h
        ajmp    bb1b2
bb1acd: mov     dptr,#0063h
        ajmp    bb1b2
bb1acc: cpl     4eh
        jb      4eh,bb1aca
        MOV     DPTR,#0021H
        ajmp    bb1acb
bb1aca: mov     dptr,#0024h
bb1acb: ajmp    bb1b2
bb1ad0e:ajmp    bb1ad3
bb1ad0: cjne    a,#26h,bb1ad0e;bb11ad3   ;6/16
        lcall   aa0bc
        jnz      bb1ad0a
        cpl     6fh
        jb      6fh,bb1ad0b
        mov     dptr,#0066h
        ajmp    bb1b2
bb1ad0b:mov     dptr,#0069h
        ajmp    bb1b2
bb1ad0a:cpl     4fh
        jb      4fh,bb1ad1
        mov     dptr,#0027h
        ajmp    bb1ad2
bb1ad1: mov     dptr,#002ah
bb1ad2: ajmp    bb1b2
bb1ad3e:ajmp    bb1ad6

bb1ad3: cjne    a,#27h,bb1ad3e;bb11ad6    ;7/17
        lcall   aa0bc
        jnz      bb1ad3c
        cpl     70h
        jb      70h,bb1ad3d
        mov     dptr,#006ch
        ajmp    bb1b2
bb1ad3d:mov     dptr,#006fh
        ajmp    bb1b2
bb1ad3c:cpl     50h
        jb      50h,bb1ad4
        mov     dptr,#002dh
        ajmp    bb1ad5
bb1ad4: mov     dptr,#0030h
bb1ad5: ajmp    bb1b2

bb1ad6: cjne    a,#1dh,bb1ad9      ;8/18
        lcall   aa0bc
        jnz      bb1ad6c
        cpl     71h
        jb      71h,bb1ad6d
        mov     dptr,#0072h
        ajmp    bb1b2
bb1ad6d:mov     dptr,#0075h
        ajmp    bb1b2
bb1ad6c:cpl     51h
        jb      51h,bb1ad7
        mov     dptr,#0033h
        ajmp    bb1ad8
bb1ad7: mov     dptr,#0036h
bb1ad8: ajmp    bb1b2

bb1ad9: cjne    a,#24h,bb1adc       ;9/19
        lcall   aa0bc
        jnz      bb1ad9c
        cpl     72h
        jb      72h,bb1ad9d
        mov     dptr,#0078h
        ajmp    bb1b2
bb1ad9d:mov     dptr,#007bh
        ajmp    bb1b2
bb1ad9c:cpl     52h
        jb      52h,bb1ada
        mov     dptr,#0039h
        ajmp    bb1adb
bb1ada: mov     dptr,#003ch
bb1adb: ajmp    bb1b2

bb1adc: cjne    a,#1eh,bb1b4        ;10/20
        lcall   aa0bc
        jnz      bb1adcc
        cpl     73h
        jb      73h,bb1adcd
        mov     dptr,#007eh
        ajmp    bb1b2
bb1adcd:mov     dptr,#0082h
        ajmp    bb1b2
bb1adcc:cpl     53h
        jb      53h,bb1add
        mov     dptr,#003fh
        ajmp    bb1b2
bb1add: mov     dptr,#0042h

BB1B2:  lcall   aa061
        mov     dptr,#0000h
        ACALL   AA05F
BB1B4:  MOV     12H,#00H
        LJMP    AA7C9

BB1C2:  MOV     DPTR,#0000H
        ACALL   AA05F
        ljmp    aa7c9

BB1D4:  CJNE    A,#05H,BB1DF;09h            ;AUX
                                         CLR     04H
                                         clr    54h
        ANL     18H,#1FH
        ORL     18H,#0A0H
        SJMP    BB1C2
BB1DF:  CJNE    A,#01H,BB1EA;0ah            ;LD
                                        CLR     04H
                                        setb    54h
        ANL     18H,#1FH
        ORL     18H,#80H
        SJMP    BB1C2
BB1EA:  CJNE    A,#06H,BB1F5;0bh            ;AV      vcd
                                        CLR     04H
                                        clr     54h
        ANL     18H,#1FH
        ORL     18H,#60H
        SJMP    BB1C2
BB1F5:  CJNE    A,#0CH,BB1FC            ;TAPE         tape1
                                        CLR     04H
                                        clr     54h
        ANL     18H,#1FH
        SJMP    BB1C2
BB1FC:  CJNE    A,#0EH,BB1FD
        CLR     04H
        ANL     18H,#1FH
        ORL     18H,#0C0H
        SJMP    BB1C2
BB1FD:  CJNE    A,#0DH,BB208            ;CD
                                        CLR     04H
                                        clr     54h
        ANL     18H,#1FH
        ORL     18H,#20H
        SJMP    BB1C2
BB208:  CJNE    A,#0bH,BB213;0eh            ;TUNER
                                        CLR     04H
                                        setb    54h
        ANL     18H,#1FH
        ORL     18H,#40H
        SJMP    BB1C2

BB213:  CJNE    A,#1cH,BB234;0fh            ;MUTE
                                        CLR     04H
        SETB    86H
        MOV     12H,#04H
        ANL     31H,#0F9H
        LCALL   AAD48
        CLR     81H
        CLR     82H
        LCALL   AABC0
BB228:  JNB     01H,BB228
        CLR     01H
        MOV     12H,#00H
        CLR     86H
BB232:  LJMP    AA7C9

BB233:  LJMP    BB2C4;291
BB234:  CJNE    A,#04H,BB233;BB291    ;13h 
                                   
                                        ;C.S.D KEY
                                   JB     29H,BB265
        JB      12H,BB232
                                   MOV    58H,18H
                                   ANL    58H,#01H
                                   MOV    R5,58H
                                   CJNE   R5,#01H,BB248 
                                   MOV    1CH,#01H
                                   lJMP   BB24B
                          BB248:   MOV    A,12H
                                   CJNE   A,#05H,BB235
                                   MOV    A,1CH
                                   CJNE   A,#02H,BB236;00H,BB236
                                   SJMP   BB238
                          BB236:   CJNE   A,#01H,BB237;02H,BB237
                                   SJMP   BB238
                          BB237:   INC    1CH
                                   SJMP   BB24B
                          BB235:   MOV    A,1CH
                                   CJNE   A,#02H,BB24B;00H,BB24B
                          bb238:   MOV    1CH,#00H;01H

BB24B:  MOV     A,1CH               ;CENTER
BB24C:  JNZ     BB26E
        LCALL   AAD48
        LCALL   AAC4C               ;CENTER

BB260:  MOV     A,1AH                            

BB261:  ANL     40H,#0fbh;0EFH
        ORL     3eh,#02h ;40H,#08H
        MOV     1EH,A
        LCALL   AACB5
BB262:  MOV     DPTR,#0000H
        lCALL   AA05F
        MOV     1DH,#0C8H
        MOV     12H,#05H
        jnb      2ch,bb264
        ljmp    bb319

bb264:  jnb     2dh,bb265
        ljmp    bb390
BB265:  RET

BB26E:; CJNE    A,#01H,BB280
BB271:  LCALL   AAD48
        LCALL   AAC72              ;SURND
               
        MOV     A,19H
        MOV     1EH,A
        LCALL   AACB5
        SJMP    BB262

BB28F:  LJMP    AA7C9

BB2A9:  LCALL   AA7C9
        MOV     DPTR,#0000H
        LJMP    AA05F
BB2C2:  LJMP    AA7C9

BB2C4:  CJNE    A,#17H,bb2df;17h       ;SURROUND MODE
                                           CLR   04H
                                           CLR   2AH
                                           ANL   18H,#0FEH
        JB      12H,BB2C2
        CLR     07H
        ANL     17H,#1CH
        ORL     17H,#20H
        MOV     1BH,#12H
BB2DD:  JNB     30H,BB2DE
        CLR     30H
        MOV     1EH,59H
        LCALL   AACB5
BB2DE:  SJMP    BB2A9

BB2DF:  CJNE    A,#10h,bb2ed;10H,BB2ED
        clr     04h
        clr     2ah
        jb      12h,bb2c2
        clr     07h
        ANL     17H,#1FH
        ORL     17H,#43H
                                ORL     18H,#01H
                                acall   bb2e0
        MOV     1BH,#1EH
        SJMP    BB2DD
                           bb2e0:mov    a,1ch
                                cjne    a,#00h,bb2e1
                                mov     1ch,#01h
                                mov     1eh,19h
                                lcall   aacb5
                           bb2e1:ret

BB2ED:  CJNE    A,#18h,bb2fb;18H,BB2FB
        clr     2ah
        clr     04h
        clr     07h
        jb      12h,bb2c2
        ANL     17H,#1CH
        ORL     17H,#63H
                                ORL     18H,#01H
                                lcall   bb2e0
        MOV     1BH,#24H
        SJMP    BB2DD

BB2FB:  CJNE    A,#16h,bb30a;16H,BB30a   ;LINE START
        jb      12h,bb2c2
        clr     04h
        clr     2ah
        anl     18h,#0feh
AA2FE:  ANL     17H,#1FH
        ORL     17H,#83H
        SETB    07H
BB2EC:  MOV     1BH,#00H
                                MOV     59H,1EH
                                MOV     1EH,#00H
                                LCALL   AACB5
                                SETB    30H
        lJMP    BB2A9

BB30a:  cjne    a,#11h,bb317
        jb      12h,bb316
        clr     04h
        clr     2ah
        clr     07h
        anl     18h,#0feh
bb30b:  ANL     17H,#1CH
        MOV     1BH,#12H
        CLR     13H
        lJMP    BB2DD
bb316:  ljmp    bb2c2

BB317:  CJNE    A,#02H,BB318    ;+  10h
        sjmp    bb320