include reg_51.pdf


initialisierung:
clr P3.7
setb P3.6
mov R0,(6dezi xx hex)
mov R1,00h

anfang:
jb (TasterPort),anfang2
sjmp anfang

anfang2:

acall countup
acall switchseg
acall checktenth
sjmp anfang

count:
DJNZ R0,speicherausgabe
ret

switchseg:
(check zahl größer 9)
clr P3.6
setb P3.7
ret

checktenth:
setb P3.6
(check zahl (P3.6) größer 9)
(check zahl (P3.6) kleiner 11)
inc R1
ret