lc72131.asm

LC72131完整程序

        ORG  0000H
START:  LJMP MAIN
        ORG  0003H          
        LJMP AA50D 
        ORG  000BH
        LJMP AAA53
TA00E:  DB 7EH,0CH,0B6H,9EH,0CCH
        DB 0DAH,0FAH,0EH,0FEH,0DEH

ppp2:   lcall   aad48
        clr     0afh
        mov     5ah,5eh
        mov     5bh,5fh
        mov     r0,#09h
ppp5:   mov     a,5ah
        clr     c
        subb    a,#0d6h        ;0d6h*9=1926
        mov     5ah,a
        mov     a,5bh
        jnc     ppp3
        dec     a
ppp3:   mov     5bh,a
        djnz    r0,ppp5

        mov     a,5ah
        clr     c
        subb    a,#26h         ;-38
        mov     5ah,a
        mov     a,5bh
        jnc     ppp6
        dec     a
ppp6:   mov     5bh,a          ;-98.2mhz=1964

ppp12:  mov     b,#00h
        mov     a,5bh
        cjne    a,#00h,ppp15
        sjmp    ppp14
ppp15:  clr     c
        mov     a,5ah
        subb    a,#14h
        mov     5ah,a
        mov     a,5bh
        jnc     ppp13
        dec     a
ppp13:  mov     5bh,a
        mov     a,b
        inc     a
        mov     b,a
        mov     a,5bh
        cjne    a,#00h,ppp15

ppp14:  clr     c
        mov     a,5ah
        subb    a,#14h
        jc      ppp17
        mov     5ah,a
        mov     a,b
        inc     a
        mov     b,a
        sjmp    ppp14

ppp17:  mov     a,b
        add     a,#57h
        mov     5bh,a
        mov     a,5ah
        mov     b,#05h
        mul     ab
        add     a,#32h
        mov     5ah,a
        clr     c
        subb    a,#64h
        jc      ppp19
        mov     5ah,a
        mov     a,5bh
        inc     a
ppp18:  mov     5bh,a

ppp19:  mov     dptr,#ta00e;pp00
        mov     a,5bh
        mov     b,#0ah
        div     ab
        xch     a,b
        cjne    a,#01h,yyy0
        orl     38h,#12h
        sjmp    yyy1
yyy0:   movc    a,@a+dptr
        orl     37h,a
yyy1:   orl     38h,#40h      ;.
        xch     a,b
        mov     b,#0ah
        div     ab
        xch     a,b
        cjne    a,#01h,yyy3
        orl     36h,#12h
        sjmp    yyy4
yyy3:   movc    a,@a+dptr
        orl     35h,a
yyy4:   xch     a,b
        cjne    a,#01h,ppp21
        orl     34h,#12h
        
ppp21:  mov     dptr,#ta00e;pp00
        mov     a,5ah
        mov     b,#0ah
        div     ab
        xch     a,b
        movc    a,@a+dptr
        orl     3bh,a
yyy7:   xch     a,b
        mov     b,#0ah
        div     ab
        xch     a,b
        cjne    a,#01h,yyy8
        orl     3ah,#12h
        ret
yyy8:   movc    a,@a+dptr
        orl     39h,a
        setb    0afh
        ret
pp00:   db 7eh,0ch,0b6h,9eh,0cch,0dah,0fah,0eh,0feh,0deh

send0:  mov     r0,#08h
send1:  rrc     a
        mov     96h,c
        setb    97h
        nop
        nop
        nop
        nop
        clr     97h
        nop
        nop
        nop
        nop
        djnz    r0,send1
        ret

send:   clr     0a5h
        clr     97h
        clr     96h
        setb    0a5h
        nop
        nop
        mov     a,5eh
        acall   send0
        mov     a,5fh
        acall   send0
        mov     a,5ch
        acall   send0
        clr     0a5h
        ret

tttt:   clr     0afh
        mov     a,5eh
        cjne    a,#0ffh,cccc1
        mov     5eh,#00h
        inc     5fh
        ajmp    cccc
cccc1:  inc     5eh
       
cccc:   lcall   send
        setb    0a6h
        lcall   dly120
        setb    0afh
        ret

qqqq:   clr     0afh
        clr     c
        mov     a,5eh
        cjne    a,#00h,qqq1
        mov     5eh,#0ffh
        mov     a,5fh
        dec     a
        mov     5fh,a
        ajmp    qqqq0
qqq1:   mov     a,5eh
        dec     a
        mov     5eh,a
qqqq0:  lcall   send
        setb    0a6h
        lcall   dly120
        setb    0afh
        ret

dly100: mov     r6,#14h
dly4:   mov     r7,#0ffh
dly3:   nop
        djnz    r7,dly3
        djnz    r6,dly4
        ret

dly50:  mov     r6,#14h
dly1a:  mov     r7,#0ffh
dly1b:  jb      86h,dlyc
        djnz    r7,dly1b
        djnz    r6,dly1a
        mov     5dh,#01h
        ret
dlyc:   mov     5dh,#00h
        ret

dly120: mov     r6,#40h
dly1:   mov     r7,#0ffh
dly0:   jnb     86h,dly5
        nop
        djnz    r7,dly0
        djnz    r6,dly1
        mov     5dh,#00h
        sjmp    dly8
dly5:   acall   dly50
dly8:   ret

AA018:  LCALL   AA85C
        MOV     31H,#19H
        MOV     R0,#07H
BB020:  CPL     95H
BB022:  SETB    02H
BB024:  JB      02H,BB024
        DJNZ    R0,BB020
        MOV     DPTR,#0000H
        ACALL   AA043
        MOV     A,17H         
        SWAP    A        
        RR      A 
        ANL     A,#07H
        CJNE    A,#04H,BB03B                             
        SETB    07H
        SJMP    BB03D
BB03B:  CLR     07H
BB03D:  LCALL   AA0BC
        JZ      BB03E
        MOV     dptr,#0006h
        ajmp    bb03f
bb03e:  mov     dptr,#0045h
bb03f:  acall   aa044
        ;CLR     86H
        SETB    15H
        LJMP    AA7C9

AA043:  CLR     0AFH
        MOV     R0,#05H
        MOV     R1,#17H
        LCALL   AADE7
        MOV     A,0FH
        CJNE    A,#55H,BB05C
BB051:  INC     DPTR
        LCALL   AADE7
        MOV     @R1,0FH
        INC     R1
        DJNZ    R0,BB051
        lcall   aa7c9
bb05c:  setb    0afh
        ret

aa044:  clr     0afh
        lcall   aade7
        mov     a,0fh
        cjne    a,#55h,bb05d
        inc     dptr
        lcall   aade7
        mov     5eh,0fh
        inc     dptr
        lcall   aade7
        mov     5fh,0fh
        LCALL   AA7C9
BB05d:  SETB    0AFH
        RET

AA05F:  MOV     R0,#06H
        MOV     R1,#16H
        MOV     0FH,#55H
BB060:  ACALL   AA080
        INC     DPTR
        INC     R1
        MOV     0FH,@R1
        DJNZ    R0,BB060
        ret

aa061:  mov     0fh,#55h
        acall   aa080
        inc     dptr
        mov     0fh,5eh
        acall   aa080
        inc     dptr
        mov     0fh,5fh
        acall   aa080
        RET

AA080:  CLR     0AFH
        PUSH    00H
        LCALL   AADE9
        MOV     A,0FH
        LCALL   AAE29
        LCALL   AAE57
        MOV     R0,#06H
BB0BB:  LCALL   AAE74
        DJNZ    R0,BB0BB
        SETB    0AFH
        POP     00H
        RET

aa0bc:  mov     a,17h
        anl     a,#04h
        ret

aa0bd:  setb    54h
        ORL     35H,#01H
        anl     18h,#1fh        ;tuner
        orl     18h,#40h
        ret

AA0BE:  CLR     3BH
        JNB     39H,BB0D1
        LCALL   AAD48
        LCALL   AAC41
        JB      3AH,BB0CF
        LCALL   AAC28
BB0CF:  SETB    02H
BB0D1:  JB      38H,BB0DE
        JB      01H,BB0F0
        JB      02H,BB0D1
        CPL     3AH
        SJMP    AA0BE
BB0DE:  JB      01H,BB0F0
        JB      39H,AA0BE
        CLR     0AFH
        LCALL   AAD48
        LCALL   AAC15
        SETB    0AFH
        SJMP    BB0DE
BB0F0:  JB      12H,BB0F5
        CLR     14H
BB0F5:  CLR     3CH
        CLR     39H
        CLR     38H
        SETB    3EH
        CLR     01H
        MOV     53H,#0F0H
        MOV     42H,#0C8H
        MOV     A,08H

BB100:  CJNE    A,#13H,BB101  ;FM/AM
        acall   aa0bd         ;tuner
        mov     a,17h         ;17h,2
        anl     a,#04h
        jz      bb100a         ;am
        anl     17h,#0fbh
        MOV     5CH,#0C4H
        mov     dptr,#0045h
        ajmp    bb100b
bb100a: orl     17h,#04h       ;fm
        MOV     5CH,#0C4H
        mov     dptr,#0006h
bb100b: lcall   aa044
        mov     dptr,#0000h
        lcall   aa05f
        ;lcall   aa0bc
        ;jz      bb100ba
        ;mov     dptr,#0006h
        ;ajmp    bb100bb
;bb100ba:mov     dptr,#00045h
;bb100bb:lcall   aa061
        mov     dptr,#0000h
        lcall   aa043
        lcall   send
        ljmp    AA7C9
        
BB101:  CJNE    A,#15H,BB102  ;STERO
        acall   aa0bd         ;tuner
        mov     a,17h
        anl     a,#08h
        jz      bb101a
        anl     17h,#0f7h
        setb    35h           ;mono
        ajmp    bb101b
bb101a: orl     17h,#08h
        clr     35h           ;stero
bb101b:; lcall   aa0bc   
;        jz      bb101ba
;        mov     dptr,#0006h   ;fm
;        ajmp    bb101bb
;bb101ba:mov     dptr,#0045h   ;am
;bb101bb:lcall   aa061
        mov     dptr,#0000h
        lcall   aa05f
bb101bh:lcall   aa0bc
        jz      bb101bf
        mov     dptr,#0006h
        ajmp    bb101bg
bb101bf:mov     dptr,#0045h
bb101bg:lcall   aa044
        mov     dptr,#0000h
        lcall   aa043
        mov     5ch,#0c4h
        lcall   send
        ljmp    aa7c9
        
        
BB102:  CJNE    A,#1FH,BB103  ;PREST SCAN
        acall   aa0bd
        mov     a,17h
        anl     a,#10h
        jnz      bb102a
        orl     17h,#10h      ;auto
        ajmp    bb102b
bb102a: anl     17h,#0efh
        
bb102b: mov     dptr,#0000h
        lcall   aa05f
        ljmp    bb101bh

bb1101: lcall   aa0bd
        lcall   send
        lcall   ppp2
        clr     04h
        mov     dptr,#0000h
        lcall   aa05f
        mov     dptr,#0000h
        lcall   aa043
        setb    16h
        mov     1ch,#02h
        lcall   aa0bc
        jz      bb1102
        mov     dptr,#0006h   ;am
        ajmp    bb1103
bb1102: mov     dptr,#0045h   ;fm
bb1103: lcall   aa061
        ljmp    aa7c9

bb103e: ljmp    bb1100
BB103:  CJNE    A,#25H,BB104  ;1/11   ;87.8
        jb      12h,bb103e
        lcall   aa0bc
        jnz      bb103c
        cpl     60h
        jb      60h,bb103d
        mov     dptr,#0048h
        ajmp    bb103b
bb103d: mov     dptr,#004bh
        ajmp    bb103b
bb103c: cpl     40h
        jb      40h,bb103a
        mov     dptr,#0009h
        ajmp    bb103b
bb103a: mov     dptr,#00ch
bb103b: lcall   aa044
        ajmp    bb1101

bb104e: ljmp    bb1100
BB104:  CJNE    A,#23H,BB105  ;2/12   ;89.8
        jb      12h,bb104e
        lcall   aa0bc
        jnz      bb104c
        cpl     61h
        jb      61h,bb104d
        mov     dptr,#004eh
        ajmp    bb104b
bb104d: mov     dptr,#0051
        ajmp    bb104b
bb104c: cpl     41h
        jb      41h,bb104a
        mov     dptr,#000fh
        ajmp    bb104b
bb104a: mov     dptr,#0012h
bb104b: lcall   aa044
        ajmp    bb1101

bb105e: ljmp    bb1100
BB105:  CJNE    A,#21H,BB106  ;3/13   ;91.8
        jb      12h,bb105e
        lcall   aa0bc
        jnz      bb105c
        cpl     62h
        jb      62h,bb105d
        mov     dptr,#0054h
        ajmp    bb105b
bb105d: mov     dptr,#0057h
        ajmp    bb105b
bb105c: cpl     42h
        jb      42h,bb105a
        mov     dptr,#0015h
        ajmp    bb105b
bb105a: mov     dptr,#0018h
bb105b: lcall   aa044
        ajmp    bb1101

BB106:  CJNE    A,#24H,BB107  ;4/14   ;97.1
        jb      12h,bb1100
        lcall   aa0bc
        jnz      bb106c
        cpl     63h
        jb      63h,bb106d
        mov     dptr,#005ah
        ajmp    bb106b
bb106d: mov     dptr,#005d
        ajmp    bb106b
bb106c: cpl     43h
        jb      43h,bb106a
        mov     dptr,#001bh
        ajmp    bb106b
bb106a: mov     dptr,#001eh
bb106b: lcall   aa044
        ajmp    bb1101

bb107e: ljmp    bb1100
BB107:  CJNE    A,#22H,BB108  ;5/15   ;104.9
        jb      12h,bb107e
        lcall   aa0bc
        jnz      bb107c
        cpl     64h
        jb      64h,bb107d
        mov     dptr,#0060h
        ajmp    bb107b
bb107d: mov     dptr,#0063h
        ajmp    bb107b
bb107c: cpl     44h
        jb      44h,bb107a
        mov     dptr,#0021h
        ajmp    bb107b
bb107a: mov     dptr,#0024h
bb107b: lcall   aa044