Trabalho-Senoide179pontos

ORG 5000H

INI:
MOV 0h,#66h
MOV 1h,#69h
MOV 2h,#6dh
MOV 3h,#71h
MOV 4h,#74h
MOV 5h,#78h
MOV 6h,#7bh
MOV 7h,#7fh
MOV 8h,#82h
MOV 9h,#86h
MOV 0ah,#89h
MOV 0bh,#8ch
MOV 0ch,#90h
MOV 0dh,#93h
MOV 0eh,#96h
MOV 0fh,#99h
MOV 10h,#9ch
MOV 11h,#9fh
MOV 12h,#0a2h
MOV 13h,#0a5h
MOV 14h,#0a8h
MOV 15h,#0aah
MOV 16h,#0adh
MOV 17h,#0b0h
MOV 18h,#0b2h
MOV 19h,#0b4h
MOV 1ah,#0b7h
MOV 1bh,#0b9h
MOV 1ch,#0bbh
MOV 1dh,#0bdh
MOV 1eh,#0bfh
MOV 1fh,#0c0h
MOV 20h,#0c2h
MOV 21h,#0c3h
MOV 22h,#0c5h
MOV 23h,#0c6h
MOV 24h,#0c7h
MOV 25h,#0c8h
MOV 26h,#0c9h
MOV 27h,#0cah
MOV 28h,#0cbh
MOV 29h,#0cbh
MOV 2ah,#0cch
MOV 2bh,#0cch
MOV 2ch,#0cch
MOV 2dh,#0cch
MOV 2eh,#0cch
MOV 2fh,#0cch
MOV 30h,#0cch
MOV 31h,#0cbh
MOV 32h,#0cbh
MOV 33h,#0cah
MOV 34h,#0c9h
MOV 35h,#0c8h
MOV 36h,#0c7h
MOV 37h,#0c6h
MOV 38h,#0c5h
MOV 39h,#0c3h
MOV 3ah,#0c2h
MOV 3bh,#0c0h
MOV 3ch,#0bfh
MOV 3dh,#0bdh
MOV 3eh,#0bbh
MOV 3fh,#0b9h
MOV 40h,#0b7h
MOV 41h,#0b4h
MOV 42h,#0b2h
MOV 43h,#0b0h
MOV 44h,#0adh
MOV 45h,#0aah
MOV 46h,#0a8h
MOV 47h,#0a5h
MOV 48h,#0a2h
MOV 49h,#9fh
MOV 4ah,#9ch
MOV 4bh,#99h
MOV 4ch,#96h
MOV 4dh,#93h
MOV 4eh,#90h
MOV 4fh,#8ch
MOV 50h,#89h
MOV 51h,#86h
MOV 52h,#82h
MOV 53h,#7fh
MOV 54h,#7bh
MOV 55h,#78h
MOV 56h,#74h
MOV 57h,#71h
MOV 58h,#6dh
MOV 59h,#69h
MOV 5ah,#66h
MOV 5bh,#62h
MOV 5ch,#5fh
MOV 5dh,#5bh
MOV 5eh,#58h
MOV 5fh,#54h
MOV 60h,#51h
MOV 61h,#4dh
MOV 62h,#4ah
MOV 63h,#46h
MOV 64h,#43h
MOV 65h,#40h
MOV 66h,#3ch
MOV 67h,#39h
MOV 68h,#36h
MOV 69h,#33h
MOV 6ah,#30h
MOV 6bh,#2dh
MOV 6ch,#2ah
MOV 6dh,#27h
MOV 6eh,#24h
MOV 6fh,#21h
MOV 70h,#1fh
MOV 71h,#1ch
MOV 72h,#1ah
MOV 73h,#17h
MOV 74h,#15h
MOV 75h,#13h
MOV 76h,#11h
MOV 77h,#0fh
MOV 78h,#0dh
MOV 79h,#0bh
MOV 7ah,#0ah
MOV 7bh,#8h
MOV 7ch,#7h
MOV 7dh,#6h
MOV 7eh,#5h
MOV 7fh,#3h
MOV 80h,#3h
MOV 81h,#2h
MOV 82h,#1h
MOV 83h,#0h
MOV 84h,#0h
MOV 85h,#0h
MOV 86h,#0h
MOV 87h,#0h
MOV 88h,#0h
MOV 89h,#0h
MOV 8ah,#0h
MOV 8bh,#0h
MOV 8ch,#1h
MOV 8dh,#2h
MOV 8eh,#3h
MOV 8fh,#3h
MOV 90h,#5h
MOV 91h,#6h
MOV 92h,#7h
MOV 93h,#8h
MOV 94h,#0ah
MOV 95h,#0bh
MOV 96h,#0dh
MOV 97h,#0fh
MOV 98h,#11h
MOV 99h,#13h
MOV 9ah,#15h
MOV 9bh,#17h
MOV 9ch,#1ah
MOV 9dh,#1ch
MOV 9eh,#1fh
MOV 9fh,#21h
MOV 0a0h,#24h
MOV 0a1h,#27h
MOV 0a2h,#2ah
MOV 0a3h,#2dh
MOV 0a4h,#30h
MOV 0a5h,#33h
MOV 0a6h,#36h
MOV 0a7h,#39h
MOV 0a8h,#3ch
MOV 0a9h,#40h
MOV 0aah,#43h
MOV 0abh,#46h
MOV 0ach,#4ah
MOV 0adh,#4dh
MOV 0aeh,#51h
MOV 0afh,#54h
MOV 0b0h,#58h
MOV 0b1h,#5bh
MOV 0b2h,#5fh
MOV 0b3h,#62h

    CLR P1.0
    CLR p1.1
    MOV R1,#00H
    MOV SCON, #01010000b
    MOV 87H, #80H
    MOV TMOD, #00100001B
    MOV IE, #10010000B
    MOV TH1, #0F4H
    MOV TL1, #0F4H
    setb tr1

LOOP:
    JB P1.1,LOOP    ;se ta desligado ele trava aqui
    JNB P1.0,EHZERO;verifica se foi 'S' ou 'Q'
    LCALL QUADRADA
    LJMP LOOP
EHZERO:
    LCALL SENOIDAL

    LJMP LOOP



        ORG 4270H ;----------------------INTERRUPCAO

SERIAL:
        JNB RI, SERIAL ;trava aqui
        MOV A, SBUF
        CJNE A, #'Q',TESTSEN
        SETB P1.0
        CLR P1.1;libera o conversor

        LJMP FIM

TESTSEN:
        CJNE A, #'S', DESLIGA
        CLR P1.0
        CLR P1.1;libera o conversor

        LJMP FIM

DESLIGA:
    CJNE A, #'D', FIM
    SETB P1.1   ;trava desligado o conversor


FIM:
        CLR RI
        RETI


QUADRADA:   MOV A, #0FFH
        LCALL DAL
        LCALL TEMPOQ
        MOV A, #00H
        LCALL DAL
        LCALL TEMPOQ
        RET

SENOIDAL:

        CJNE R1,#0B3h,pulo
        MOV R1,#00H
PULO:
        MOV A, @R1
        LCALL DAL
        LCALL TEMPOS
        INC R1

        RET

DAL:
        MOV DPTR, #0E400H
        MOVX @DPTR, A
        RET


TEMPOQ:
        MOV TH0, #79H
        MOV Tl0, #00H
        SETB TR0
TEMQ:
        JNB TF0, TEMQ
        CLR TF0
        CLR TR0
        RET

TEMPOS:
        MOV TH0, #0FFH
        MOV Tl0, #0ECH
        SETB TR0
TEMS:
        JNB TF0, TEMS
        CLR TF0
        CLR TR0
        RET

            END