New Micros NMIY-0031, Руководство пользователя

Страница: 165 / 188

2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2 1 6 5
N M I L - 5 0 0 0 1 - C H A N N E L S E R I A L C O M M U N I C A T I O N
F O R T H S A M P L E C O D E
: 5BITS-NO-PAR ( cmd -- cmd f )( subroutine to report stop bits )
DUP 60 AND 60 = CMMAND C@ 20 AND 0= AND DUP IF
." 1.5 stop bits" THEN
;
: .STOPBITS ( cmd -- cmd ) ( subroutine to report stop bits )
DUP 80 AND 0= IF ." one stop bit" ELSE
8BITS-PAR 0= IF 5BITS-NO-PAR 0= IF ." 2 stop bits" THEN THEN
THEN CR
;
CREATE BAUDS DECIMAL
0 , 100 , 150 , 220 , 269 , 300 , 600 , 1200 ,
2400 , 3600 , 4800 , 7200 , 9600 , 14400 , 19200 , 38400 ,
HEX
: #BITS ( x -- n ) ( subroutine to report bits/char )
60 AND >< 2/
( 0-3 ) 8 SWAP -
( 5-8 ) . ." bits" CR
;
: .CONTROL ( reports Control Register )
CNTROL C@
8 OVER 60 AND >< 2/ - . ." bits" CR .STOPBITS
DUP 10 AND 0= IF ." external clock" ELSE
0F AND 2* BAUDS + @ DECIMAL U. HEX ." Baud" THEN CR
;
: .? ( reports all registers )
.COMMAND .CONTROL .STATUS
;
( for testing )
: TEST-SEND ( send a test pattern )
1C CB INIT .?
BEGIN
FE 20 DO
BEGIN TDREADY? UNTIL ( wait until transmitter ready )
I DATA C! ( send new char )
200 0 DO LOOP ( wait in case remote is slow )
LOOP
0 UNTIL ( repeat until push reset button )
;
: TEST-GET1 ( receive with no RTS handshaking )
( RTS low )
1C CB INIT
BEGIN
BEGIN RDREADY? UNTIL
DATA C@ EMIT ( get char )
?TERMINAL ( stop if keypress )
UNTIL KEY DROP
;