Radio Shack EC-293 Technical Information Page 22

  • Download
  • Add to my manuals
  • Print
  • Page
    / 42
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 21
TECHNICAL INFORMATION
50
REM
•.•
PROGRAM
TO
LOAD
CLOCK
CODE
INTO
RAM
100
FOR
I%
= 1
TO
88
110
READ
D%:
POKE
32679+I%,
D%
120
NEXT
130
POKE
16526,
168
'LSB
OF
ISR
START
ADDRESS
140
POKE
16527,
127
'MSB
OF
ISR
START
ADDRESS
150
DATA
243, 205,
127,
10,
175, 181,
40,
14
160
DATA
237,
86,
62,
195,
50,
18,
64,
33
170
DATA
193,
127,34,
19,64,251,
195,
154
180
DATA
10,
229, 245,
58,
224,
55,
203,
119
190
DATA
32,
49,
203,
127,
40,
38, 33,
94
200
DATA
64,
52,
126,
254,
40,
56,
29,
175
210
DATA
119,
35,
52,
126,
254,
60,
56,
20
220
DATA
175, 119,
35,
52,
126,
254,
60,
56
230
DATA
11,
175,
119,
35,
52,
126,
254,
24
240
DATA
56,
2,
175, 119,
58,
224,
55,
241
250
DATA
225, 251,
201,
58,
236,
55,
24,
244
After YOY have run the preceding program, run
the
following
program
to
execute the code, turn on and use the real-time clock.
10
'INITIALIZE
CLOCK
20
CX
= USR(O)
'MAKE
SURE
CLOCK
IS
OFF
30
POKE
16478,
0
'SET
TICKER
TO
ZERO
40 INPUT "ENTER
THE
TIME
(HR,MIN,SEC)"i
CH%,CM%,CS%
50
POKE
16481,CH%:
POKE
16480,
CM%:
POKE
16479,
CS%
60
CX
=
USR(1)
'TURN
ON
CLOCK
100
'YOUR
PROGRAM
GOES
HERE
110
'WHEN
YOU
WANT
THE
TIME,
INSERT
"GOSUB
10000"
120
'TIME
WILL
BE
RETURNED
IN
CT$.
FOR
EXAMPLE--
130
GOSUB
10000
140
PRINT@56, CT$
150
GOTO
130
10000
'READ
THE
CLOCK
AND
FORM
CT$
10010
CH%=PEEK(16481):
CM%=PEEK(16480):
CS%=PEEK(16479)
10020
CC$=STR$(CH%):
GOSUB
10100:
CH$=CC$
'2-DIGIT
HOUR
10030
CC$=STR$(CM%):
GOSUB
10100:
CM$=CC$
'2-DIGIT
MINUTES
10040
CC$=STR$(CS%):
GOSUB
10100:
CS$=CC$
'2-DIGIT
SECONDS
10050
CT$=CH$+":"+CM$+":"+CS$
10060
RETURN
'TO
MAIN
PROGRAM
WITH
CT$
10100
'MAKE
INTO
2-DIGIT
STRING
10110
IF
LEN(CC$)=3
THEN
CC$=RIGHT$(CC$,2):
RETURN
'W/STRING
10120
CC$="0"+RIGHT$(CC$,1):
RETURN
'WITH
2-DIGIT
STRING
Note:
To
turn
off
the
clock, execute the statement, CX = USR(O).
BE SURE TO TURN
OFF
THE CLOCK before performing
any cassette
input/output.
21
Page view 21
1 2 ... 17 18 19 20 21 22 23 24 25 26 27 ... 41 42

Comments to this Manuals

No comments