Manual

Page 32 120-200-350 © 1993 (Rev 5/97) Max Machinery, Inc.
HP ROCKY MOUNTAIN BASIC PROGRAM
12 !
13 ! EQUIPMENT:
14 !
15 ! HP9000 MODEL 310 COMPUTER
16 !
18 ! HP98626 SERIAL INTERFACE, SELECT CODE = 9
19 !
21 ! RS-232 TO RS-485 COMMUNICATIONS CONVERTER
22 ! RS-232 CONFORMING TO EIA RS-232-D STANDARD
23 ! RS-485 CONFORMING TO EIA RS-485 STANDARD, DIFFERENTIAL, HALF DUPLEX,
24 ! MULTI-DROP PROTOCOL REQUIRING A TOTAL OF TWO WIRES.
25 !
26 ! THIS SERIAL INTERFACE PROGRAMMING TECHNIQUE IS SIMILAR TO MOST GENERAL
27 ! I/O APPLICATIONS, WITH THE EXCEPTION OF THE RS-232 TO RS-485
28 ! COMMUNICATIONS CONVERTER. THE DIRECTION OF THIS CONVERTER IS
29 ! CONTROLLED BY THE RS-232 RTS SIGNAL.
30 !
32 DIM Id number$[2],Command$[20],Unit_parity$[4],Return dat$(50)[1]
33 DIM Send more$[1],Variable$[160]
34 INTEGER Baud_rate,Id number
35 PRINTER IS CRT
36 KEY LABELS OFF
38 Id_number$=”01"
39 Command$=”RSTl’’
40 Unit_parity$=”EVEN”
41 Baud_rate=9600
42 Error=0
44 CLEAR SCREEN
45 ON ERROR CALL Message
46 Change port:DISP “ENTER UNIT ID NUMBER, RANGE 00-FF HEX, DEFAULT = “;Id number$;
47 LINPUT “”,Variable$
48 IF LEN(Variable$) THEN
49 Id_number$=Variable$
50 END IF
51 DISP “ENTER UNIT BAUD RATE 300,600,1200,2400,4800,9600,19200, DEFAULT = “;Baud_rate;
52 LINPUT “ “,Variable$
53 IF LEN(Variable$) THEN
54 Baud_rate=VAL(Variable$)
55 END IF
56 DISP “ENTER UNIT PARITY ODD OR EVEN, DEFAULT = “;Unit parity$;
57 LINPUT “ “,Variable$
58 IF LEN(Variable$) THEN
59 Unit_parity$=Variable$
60 END IF
61 New send:DISP “ENTER UNIT COMMAND, DEFAULT = “;Command$;
62 LINPUT “ “,Variable$
63 IF LEN(Variable$) THEN
64 Command$=Variable$
65 END IF
68 CALL RS485(Id_number$,Command$,Unitt_parity$,Baud rate,Return dat$(*))
71 PRINT “RETURN DATA FROM RS485 = “;
72 I=0
73 REPEAT
HP ROCKY MOUNTAIN BASIC PROGRAM