Specifications
The
following
BASIC
orogram:
CONTINUOUSLY
SAVES,
INPUTS,
ANO
PRINTS
THE
CONTENTS
OF
THE
TIME
OF
DAY
REGISTERS
61
500
OUT(30)=167
167
D
=A7
H
"
Save
Counters
I,
2, 3
510
OUT(30)=17
Set
Data
Pointer to
Counter
11,
HOLD
Register
520
A=IN(28)
INPUT
Tenths
and
Hundreths-Seconds
530
B=IN(28)
INPUT
Tens
and
Ones-Seconds
540
IF
(A#O)+(B#O)
GOTO
560
Check
for Possible Ripple
Carry
Error
550
OUT(30)=166
166=A6H.
IF
error
possible.
Resave
counters 2. 3
560
OUT(30)=18
Set
Data
Pointer to
Counter
12.
HOLD
Register
570
C=IN(28)
INPUT
Tens
and
Ones-Minutes
580
D=IN(28)
INPUT
Tens
and
Ones-HoufS
590
OUT(30)=19
Set
Data
Pointer
to
Counter
#3
600
E=IN(28)
INPUT
Tens
and
Ones-Days
610
F=IN(28)
INPUT
Thousand
and
Hundreds-Days
620
PRINT#%.F.E
••O,.C ••
8.
,A
Print out values in
HEX
630
GOTO
500
Jump
Back
to
Beginning