2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2
1 8 5
N M I L - 9 0 0 3 R E A L T I M E C L O C K
F O R T H S A M P L E C O D E
COLD
HEX
: IS CONSTANT ;
FFE0 IS BASE-ADDRESS
VARIABLE RAM-POINTER
A000 RAM-POINTER !
: RAM RAM-POINTER @ SWAP RAM-P! ;
2 RAM IS CR-AM/PM
2 RAM IS CR-MONTH
2 RAM IS CR-DAY
2 RAM IS CR-YEAR
2 RAM IS CR-HOUR
2 RAM IS CR-MINUTE
2 RAM IS CR-SECOND
2 RAM IS CR-DOW
BASE-ADDRESS 3 + IS 10-MIN-DIG
BASE-ADDRESS A + IS 1-YRS-DIG
5 IS FRI
BASE-ADDRESS 0 + IS 1-SEC-DIG
BASE-ADDRESS 1 + IS 10-SEC-DIG
BASE-ADDRESS 2 + IS 1-MIN-DIG
BASE-ADDRESS 4 + IS 1-HRS-DIG
BASE-ADDRESS 5 + IS 10-HRS-DIG
BASE-ADDRESS 6 + IS 1-DAY-DIG
BASE-ADDRESS 7 + IS 10-DAY-DIG
BASE-ADDRESS 8 + IS 1-MON-DIG
BASE-ADDRESS 9 + IS 10-MON-DIG
BASE-ADDRESS B + IS 10-YRS-DIG
BASE-ADDRESS C + IS 1-DOW-DIG
BASE-ADDRESS D + IS REG-D
BASE-ADDRESS E + IS REG-E
BASE-ADDRESS F + IS REG-F
0 IS SUN
1 IS MON
2 IS TUE
3 IS WED
4 IS THU
6 IS SAT
VARIABLE DAY$ -2 ALLOT
0A EMIT KEY DUP EMIT C, KEY DUP EMIT C, KEY DUP EMIT C,
SUN
0A EMIT KEY DUP EMIT C, KEY DUP EMIT C, KEY DUP EMIT C,
MON
0A EMIT KEY DUP EMIT C, KEY DUP EMIT C, KEY DUP EMIT C,
TUE
0A EMIT KEY DUP EMIT C, KEY DUP EMIT C, KEY DUP EMIT C,
WED
0A EMIT KEY DUP EMIT C, KEY DUP EMIT C, KEY DUP EMIT C,
THU
0A EMIT KEY DUP EMIT C, KEY DUP EMIT C, KEY DUP EMIT C,
FRI
0A EMIT KEY DUP EMIT C, KEY DUP EMIT C, KEY DUP EMIT C,
SAT
: TEN* A * ;
: TEN/MOD A /MOD ;
Содержание NMIY-0031
Страница 1: ...2 2 6 2 0 0 2 2 0 6 P M 1 NMIY 0031 Single Board Computer Covers NMIY 0031 V1 0 4 22 96 ...
Страница 2: ...2 2 6 2 0 0 2 2 0 6 P M 2 ...
Страница 6: ...2 2 6 2 0 0 2 2 0 6 P M 6 ...
Страница 8: ...2 2 6 2 0 0 2 2 0 6 P M 8 ...
Страница 14: ...2 2 6 2 0 0 2 2 0 6 P M 1 4 ...
Страница 30: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 3 0 ...
Страница 32: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 3 2 ...
Страница 50: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 0 ...
Страница 52: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 2 ...
Страница 54: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 4 ...
Страница 56: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 6 ...
Страница 58: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 8 ...
Страница 60: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 6 0 ...
Страница 62: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 6 2 ...
Страница 68: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 6 8 ...
Страница 70: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 7 0 ...
Страница 72: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 7 2 ...
Страница 76: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 7 6 ...
Страница 82: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 8 2 ...
Страница 84: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 8 4 ...
Страница 86: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 8 6 ...
Страница 88: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 8 8 ...
Страница 90: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 9 0 ...
Страница 102: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 0 2 ...
Страница 108: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 0 8 ...
Страница 110: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 1 0 ...
Страница 114: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 1 4 ...
Страница 118: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 1 8 ...
Страница 126: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 2 6 ...
Страница 128: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 2 8 ...
Страница 134: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 3 4 ...
Страница 148: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 4 8 ...
Страница 150: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 5 0 ...
Страница 152: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 5 2 ...
Страница 154: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 5 4 ...
Страница 156: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 5 6 ...
Страница 168: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 6 8 ...
Страница 170: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 7 0 ...
Страница 172: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 7 2 ...
Страница 174: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 7 4 ...
Страница 178: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 7 8 ...