SWITCH EQU P3.4

CSEG AT 00h
LJMP MAIN

MAIN:

MOV TH0, #76
MOV TL0, #01
MOV TMOD, #1
MOV R0, #0
MOV A, #0FEh
MOV P2, A

JB SWITCH, $

SETB TR0

PETLA:

JNB TF0, DRUGA
MOV TH0, #76
MOV TL0, #01
CLR TF0
INC R0
CJNE R0, #20, DRUGA
MOV R0, #0
RL A
MOV P2, A

DRUGA:

JNB SWITCH, PETLA
CLR TR0
AJMP MAIN

END






CSEG AT 0
AJMP reset

CSEG AT 03h
AJMP INT0service ; skok do procedury obsługi przerwania

CSEG AT 13h
AJMP INT1service
; zewnętrznego INT0
CSEG AT 30h
reset:
SETB EX0 ; wlaczenie przerwania INT0
SETB EA ; odblokowanie wszystkich przerwan
loop:
ACALL delay ; przykładowy program główny
CPL P2.7
SJMP loop

INT0service: ; procedura obslugi przerwania INT0
;PUSH ACC ; zapamiętanie akumulatora
;PUSH PSW ; i rejestru stanu
CPL P2.0
;POP PSW
;POP ACC
RETI ; powrót z przerwania

INT1service:

CPL P2.1

RETI


delay:
MOV R0,#100
del2:
MOV R1,#255
del1:
NOP
NOP
DJNZ R1,del1
DJNZ R0,del2
RET

END