;org 0
;st:
;mov a,P0
;cpl a
;mov p2,a

;sjmp st

;END

ORG 0H
jmp start

;ORG 13H


start:

setb IE.7
setb IE.0
setb IE.2
setb TCON.0

loop:
MOV P0,#11111111B


jnb p2.1, jeden
jnb p2.2, dwa
jnb p2.3, trzy
jnb p2.4, cztery
jnb p2.5, piec
jnb p2.6, szesc
jmp loop

jeden:
MOV P0,#01111001B
JMP loop

dwa:
MOV P0,#00100100B
JMP loop

trzy:
MOV P0,#00110000B
JMP loop

cztery:
MOV P0,#00111000B
JMP loop

piec:
MOV P0,#00010010B
JMP loop

szesc:
MOV P0,#00000010B
JMP loop

END