home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8602.d64
/
echtzeituhr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
64 lines
110 REM * BEISPIELPROGRAMM ZUR *
120 REM * NUTZUNG DER ECHTZEITUHR *
140 CIA = 56576:REM BASISADRESSE CIA #2
150 REM 50 HERTZ NETZFREQUENZ
160 POKE CIA+15,PEEK(CIA+15) OR 128
170 PRINT "ALARMZEIT SETZEN"
180 GOSUB 1000
190 GOSUB 2000
200 REM ALARMZEITFLAG
210 POKE CIA + 15,PEEK (CIA+15) OR 128
220 GOSUB 3000
230 PRINT "UHRZEIT SETZEN"
240 GOSUB 1000
250 GOSUB 2000
260 REM UHRZEITFLAG
270 POKE CIA + 15,PEEK (CIA+15) AND 127
280 GOSUB 3000
290 GOSUB 4000
300 PRINT CHR$ (147)
310 PRINT H;":";M;":";S;",";Z
320 REM ALARM ?
330 A = PEEK (CIA+13)
340 POKE CIA+13,A
350 IF (A AND 4) = 0 GOTO 290
360 FOR I=0 TO 20:PRINT "ALARM":NEXT
370 END
1000 REM EINGABE
1010 INPUT"0 = AM 1 = PM ";FL
1020 IF FL <> 0 AND FL <> 1 THEN 1010
1030 INPUT"STD.,MIN.,SEK.,1/10 SEK";H,M,S,Z
1040 RETURN
1050 RETURN
2000 REM UMRECHNUNG IN BCD-FORMAT
2010 H1=INT (H/10)
2020 H2 = H - H1*10
2030 H = H1*16 + H2
2040 M1 = INT (M/10)
2050 M2 = M - M1*10
2060 M = M1*16 + M2
2070 S1 = INT (S/10)
2080 S2 = S - S1*10
2090 S = S1*16 + S2
2100 RETURN
3000 REM REGISTER SETZEN
3010 H = H + FL * 128:REM AM/PM
3020 POKE CIA + 11,H
3030 POKE CIA + 10,M
3040 POKE CIA + 9,S
3050 POKE CIA + 8,Z
3060 RETURN
4000 REM REGISTER LESEN
4010 H = PEEK (CIA+11)
4020 FL = (H AND 128)/ 128 * 12
4030 H1 = (H AND 16) / 16 * 10
4040 H = H1 + FL + (H AND 15)
4050 M = PEEK (CIA+10)
4060 M1 = (M AND 112) / 16 * 10
4070 M = M1 + (M AND 15)
4080 S = PEEK (CIA+9)
4090 S1 = (S AND 112) / 16 * 10
4100 S = S1 + (S AND 15)
4110 Z = PEEK (CIA+8) AND 15
4120 RETURN