New Micros NMIY-0031, Manual

Page: 184 / 188

2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2 1 8 4
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
: TUNER
CR
." -------BE SURE NUM-LOCK IS ON !!!------------ "
CR
." -------BE SURE CAPS-LOCK IS OFF !!!---------- "
CR
TUNER-INIT
FILTER
BEGIN
." DISTANCE = " DISTANCE @ . CR
." VELOCITY = " VELOCITY @ . CR
." ACCELERA = " ACCELERA @ . CR
." Kp = " KP @ U.
." Ki = " KI @ U.
." Kd = " KD @ U.
." Il = " IL @ U.
." Ds = " DS @ U. CR
BEGIN
?TERMINAL
UNTIL
KEY
DUP 70 = IF KPX THEN
DUP 69 = IF KIX THEN
DUP 64 = IF KDX THEN
DUP 6C = IF ILX THEN
DUP 73 = IF DSX THEN
DUP 37 = IF MOV+ THEN
DUP 39 = IF MOV- THEN
DUP 34 = IF DISTANCE @ 10 - DISTANCE !
DISTANCE @ ." DISTANCE = " . CR THEN
DUP 36 = IF DISTANCE @ 10 + DISTANCE !
DISTANCE @ ." DISTANCE = " . CR THEN
DUP 31 = IF VELOCITY @ 10 - VELOCITY !
VELOCITY @ ." VELOCITY = " . CR THEN
DUP 33 = IF VELOCITY @ 10 + VELOCITY !
VELOCITY @ ." VELOCITY = " . CR THEN
03 = ( CTRL-C )
UNTIL
;