38k.asm

38k频率作为红外遥控载波

;38KHz

            ORG    0000H
            AJMP   ABC
            ORG    000BH
            AJMP   TIMER
            ORG    0030H

ABC:        MOV    R0,#0FFH
ABC1:       DJNZ   R0,ABC1
            MOV    R0,#20H
ABC2:       MOV    @R0,#00H
            INC    R0     
            CJNE   R0,#80H,ABC2
            MOV    IE,#82H    ;INT OPEN
            ;MOV    SCON,#0F8H
            MOV    TMOD,#22H
            ;MOV    TH1, #0FDH
            ;MOV    TL1, #0FDH ;9K6
            ;SETB   TR1
            MOV    TH0,#0F4H
            MOV    TL0,#0F4H  ;38K4
            SETB   TR0

            MOV    SBUF,#99H
            JNB    TI,$
            CLR    TI

WAIT:       AJMP   WAIT

TIMER:      CPL    P1.0
            RETI

            END