New Micros NMIY-0031, Manual

Page: 182 / 188

2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2 1 8 2
N M I L - 7 0 5 6 S E R V O M O T O R D R I V E R
S E C O N D F O R T H S A M P L E C O D E
:CASE FIGURE
ZERO
ONE
TWO
THREE
FOUR
;
: CALC
DUP 2B = IF 1 CHANGE C! THEN ( 2B = + key )
DUP 2D = IF 0 CHANGE C! THEN ( 2D = - key )
DUP 2F > IF DUP 35 < IF 30 - FIGURE 0 THEN THEN
DROP
;
: KPX
." KP = " KP @ U. D EMIT
BEGIN
BEGIN
?TERMINAL
UNTIL
KEY DUP KP @ SWAP CALC DUP KP ! DUP ." KP = " U. ." " D EMIT
LFIL
DS @ 100 * 08 OR W!
W!
UDF
20 =
UNTIL
KEY DUP KI @ SWAP CALC DUP KI ! DUP ." KI = " U. ." " D EMIT
." KD = " KD @ U. D EMIT
;
: KIX
." KI = " KI @ U. D EMIT
BEGIN
BEGIN
?TERMINAL
UNTIL
LFIL
DS @ 100 * 04 OR W!
W!
UDF
20 =
UNTIL
;
: KDX
BEGIN
BEGIN
?TERMINAL
UNTIL
KEY DUP KD @ SWAP CALC DUP KD ! DUP ." KD = " U. ." " D EMIT
LFIL
DS @ 100 * 02 OR W!
W!
UDF
20 =
UNTIL
;