?? lc72131.asm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -