;w r4,#243
$mod842
org 0h
jmp start

licz:
INC R0
CJNE R0,#00001010b,return
mov R0,#00000000b
inc R1
CJNE R1,#00011010b,return
mov R0,#00010000b
inc r2
CJNE R2,#00101010b,return
mov R2,#00100000b
inc r3
CJNE R3,#00111010b,return
mov R3,#00110000b
return:
ret

start:
MOV R0,#00000000b
MOV R1,#00010000b
MOV R2,#00100000b
MOV R3,#00110000b

loop:
jmp licz
DJNZ R4,loop

wyswietl:
mov p2,r0
call delay
mov p2,r1
call delay
mov p2,r2
call delay
mov p2,r3
call delay
jmp $