15.03.2026, 21:08
Change Language
Register
Login
You are not logged in.
Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
- 1
- 2
Quoted from "karahara" 
maZzE
Full Member
Re: Binäruhr
Wednesday, December 15th 2004, 12:08pm
Ich weiß nicht ob des schon die optimale Lösung ist, aber müsst schon stimmen. Was noch schlecht gelöst ist ist des Delay, aber ich kann des mit Timer noch nicht, drum ist die Uhr atm ungenau.
Bei mir werden die Ausgänge noch invertiert, da in meiner Schaltung die extern noch invertiert werden. Des ganze funktioniert auch nur bei 1MHz Maschinentakt
Bei mir werden die Ausgänge noch invertiert, da in meiner Schaltung die extern noch invertiert werden. Des ganze funktioniert auch nur bei 1MHz Maschinentakt
|
Source code |
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
|
- 1
- 2