lab5B

//extrn code((init_LED, LED_service)
org 8000h

    jmp program

//przerwania licznika

org 800BH // TF0

    ANL TCON, #10101111B //wylaczenie licznikow
    MOV TL0, #255
    RETI

org 801BH // TF1, mnozenie przez 3600 - odmierzanie 1s

    INC R5
    CJNE R5, #0, skok
    INC R4
    MOV R5, #0
skok:
    RETI

org 8100H //program

program:
    LCALL init
    LCALL init1
    //LCALL init_LED

    loop_prog:
        CJNE R6, #1, loop_prog
        MOV R5, #0
        MOV R4, #0
        //LCALL freq
        //LCALL LED_service

        JMP loop_prog

        jmp $

init:
    //konfiguracja TMOD, IE oraz IP

    ANL TMOD, #11110111B //wyzerowanie GATE
    ORL TMOD, #00000111B //ustawienie MODE3 i C/T0#
    ANL IE,   #11111010B //wyzerowanie EX0 i EX1
    ORL IE,   #00001010B //ustawienie ET0 i ET1 na '1'
    ANL IP,   #11110101B //jednakowy priorytet dla wszystkich przerwan

    RET
init1:

    ANL TCON, #10101111B //wylaczenie licznikow
    MOV TH0, #0H
    MOV TL0, #0H
    MOV R7, #100
    MOV R6, #36
    MOV TL0, #255
    MOV R5, #0
    MOV R4, #0


    ORL TCON, #01010000B //wlaczenie licznikow
    RET

end