New Micros NMIY-0031, Manual

Page: 47 / 188

2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2 4 7
N M I Y - 0 0 3 1 P R O G R A M S E G M E N T S
: (D.) ( d -- addr # )
SWAP OVER DABS <# #S SIGN #> ;
: DSP-D. ( d -- )
(D.) DSP-TYPE BL DSP-EMIT ;
: DSP-D.R ( d n -- )
>R (D.) R> OVER - 0 MAX DSP-SPACES DSP-TYPE ;
: DSP-. ( n -- ) S->D DSP-D. ;
: TEST
DSP-ON
DSP-CLEAR " THIS IS A TEST " DSP-TYPE ;
: 2** ( input X 0-F --- OUT 2**X
1
BEGIN
OVER ( 0= NOT
WHILE
SWAP
1-
SWAP
2*
REPEAT
SWAP DROP
;
( read keypad latch
: KPAD? ( -- n ) KPAD C@ FF XOR ;
( write to keypad latch
: KPAD! ( n-- ) KPAD C! ;
( detect keypress
: ?KPAD ( -- row# ) 0 KPAD! BEGIN KPAD? UNTIL KPAD? ;
( determine which row and column are pressed
( values are saved in variables ROW and COL
: SCAN
0FFFF ROW !
0FFFF COL !
TOT-COL 0
DO
I 2** 0FF XOR
KPAD!
TOT-ROW 0
DO
KPAD? I 2** AND IF I ROW ! J COL ! THEN
LOOP
LOOP
;
: CONVERT-KPAD ( ROW COL -- n ) (map key coordinates to single ASCII character
ROW @ TOT-COL * COL @ +
DUP 04 = IF DROP 017 ELSE ( convert unlabeled keys
DUP 09 = IF DROP 018 ELSE
DUP 0E = IF DROP 019 ELSE
DUP 013 =
IF DROP 01A THEN THEN THEN THEN ( bias #s and letters
DUP 017 <
IF DUP 03 > IF 1- DUP 07 > IF 1- DUP 0B > IF 1- THEN THEN THEN THEN
DUP 09 > OVER 017 < AND
IF 07 + THEN
030 +
;