ORG 0
JMP 100

ORG 100

delay:
mov r1,#0E1h   ;1 cykli rozkazowych
imer2:
mov r0,#0FFh    ;1
imer:
dec r0      ;1
mov A,r0    ;1
jnz imer    ;2
dec r1      ;1
mov A,r1    ;1
jnz imer2   ;2
ret

start:

MOV P2,#0FFh
lcall delay
MOV P2,#000h
lcall delay
JMP  start
END
;w jednej sekundzie wykona sie 921600 cykli
;w imer sa 4 cykle
;w imer2 sa 4 cykle plus imer
;imer wykonuje sie 255 razy -> 255*4=1020 [cykli]
;imer2 wykonuje sie 225 razy-? 225*4+225*1020=230400 [cykli]
;jest to opoznienie dajace diode migajaca co cwierc sekundy
;3.1 w wydruku nr 2 swiecily sie wszystkie diody a w wydruku nr 3 tylko jedna
;3.2.1 f=11,0592 MHz = 11 059 200 Hz, okres T=1/f=9,04^-8s
;3.2.2 na jeden cykl rozkazowy przypada 921600 cykli -> f/12
;3.2.3 program wykorzystuje petle opzoniajace zeby wytworzyc opoznienie rzedu 0.5s