Sie sind nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
CSEG at 0x8000
jmp main
sec:
inc R7
call anz
call delay
cjne R7,#0x3C,sec
mov R7,#0
call min
jmp sec
min:
inc R6
cjne R6,#0x3C,mback
mov R6,#0
call std
mback:
ret
std:
inc R5
cjne R5,#0x18,sback
mov R5,#0
sback:
ret
anz:
mov P3,R5
xrl P3,#11111111b
mov P2,R6
xrl P2,#11111111b
mov P1,R7
xrl P1,#11111111b
ret
delay:
mov R3,#10
Marke2:
mov R1,#200
Marke:
mov R2,#0xFF
djnz R2,$
djnz R1, Marke
djnz R3, Marke2
ret
main:
mov a,#0
mov R7,a
mov R6,a
mov R5,a
call sec
end
|
-