Teledyne SyriXus 65x Installation And Operation Manual page 151

Example of BASIC Program to Demonstrate Conversion of Pump Commands to DASNET Frames
1 CLS : Z$ = "": PRINT "INPUT ALL ENTRIES IN CAPITAL LETTERS"
5 INPUT "INPUT UNIT ID >> ", UNITNUM'GET UNIT NUMBER
30 REM OPEN COM PORT SET FOR COM2 EDIT TO COM1 IF NEED
40 OPEN "COM2:1200,N,8,1,ASC" FOR RANDOM AS #2
50 PRINT : INPUT "ENTER STRING (HIT Q TO EXIT) >> ", I$'GET OUTPUT STRING FROM USER
65 IF I$ = "" THEN GOTO 50
70 IF I$ = "Q" THEN GOTO 200
80 GOSUB 10000
90 GOSUB 20000
120 PRINT "DASNET FORMATTED CMD >> "; O$
124 PRINT : PRINT ">>>> PRESS CTRL-C IF NO RESPONSE FROM PUMP <<<<"
125 LINE INPUT #2, Z$
127 PRINT "DASNET RESPONSE >> "; Z$
128 Z$ = ""
130 GOTO 50
200 CLOSE #2
210 SYSTEM
10000 REM this SUBROUTINE will convert a string (I$) into a string (O$)
10005 REM in DASNET protocol
10015 REM UNITNUM=UNIT NUMBER OF PUMP
10020 REM AFTER THE STRING IS SENT TO PUMP A CR IS REQUIRED TO TERMINATE MESSAGE
10030 REM VAR USED O$,I$,IL,Y$,LI,SUM,CSUM,UNITNUM
10100 O$ = CHR$(ASC("0") + UNITNUM)
10110 IL = LEN(I$)
10115 REM IF INPUT IS JUST "R" ADD SPACE AND JMP BY # CHAR
10120 IF I$ = "R" THEN I$ = I$ + " ": GOTO 10180
10130 O$ = O$ + "R"
10140 Y$ = HEX$(IL)
10150 IF IL < 16 THEN Y$ = "00" + Y$
10160 IF IL >= 16 THEN Y$ = "0" + Y$
10170 O$ = O$ + Y$
10180 O$ = O$ + I$
10190 IL = LEN(O$): SUM =
10200 FOR LI = 1 TO IL
10210 SUM = SUM + ASC(MID$(O$, LI, 1))
10220 NEXT LI
10230 REM THIS FINDS THE CHECKSUM
10235 REM THE # IS FIRST SUBTRACTED FROM 256
10236 REM THEN ANDED WITH 255 TO AND OFF EXTRA BITS
10240 CSUM = (256 - SUM) AND 255
10245 IF CSUM < 16 THEN O$ = O$ + "0"
10250 O$ = O$ + HEX$(CSUM)
10270 RETURN
20000 REM THIS SUBROUTINE SENDS O$ TO THE COM PORT
20010 PRINT #2,
20020 PRINT #2, O$;
20030 PRINT #2, 'CR';
20040 RETURN
Note: Polling is part of the DASNET definition but is not required and is not shown in this example. If this program is
run on a PC as is, the commands entered at the keypad will be output on serial port 2. This code was written in QBa-
sic, version 4.5. QBasic is an integrated BASIC language interpreter created by Microsoft Corp, Redmond, WA,
included in MSDOS version 5.0 and later, and in Windows 95, 98, NT 3.x and NT4. For later versions of Windows™,
it can be downloaded from the Microsoft™ store.
EAR99 Technology Subject to Restrictions Contained on the Cover Page
SyriXus Series Pumps Installation and Operation Guide
'IF BLANK INPUT THEN GO BACK
'IF "Q" INPUT THEN QUIT
'CONVERT STRING TO DASNET FORMAT
'OUT DASNET STRING TO COM 2
'OUTPUT FORMATTED CMD TO USER
'GET RESPONSE FROM PUMP 'CR' ENDS STRING
'PRINT RESPONSE
'CLEAR BUFFER
'GO BACK
'CLOSE COM2
'END PROGRAM AND EXIT TO DOS
'PUT UNIT ID FIRST IN OUTPUT STRING
'GET LENGTH OF INPUT STRING
'ADD "R" TO OUTPUT STRING
'GET # OF CHAR IN INPUT STRING IN HEX
'PAD OUT # CHAR IN STRING IF NEED
'IF MORE THAN 16 THEN ONLY ONE PAD
'ADD # CHAR TO OUTPUT STRING
'ADD INPUT STRING TO OUTPUT STRING
'GET NEW LENGTH AND CLEAR SUM OUT
'TO ADD ALL ASCII FOR SUM
'GET THE ASCII # OF (LI) ASCII CHAR
'GET CHECK SUM
'PAD OUT CSUM IF NEED
'PUT AT END OF OUTPUT STRING
'DONE RETURN
'CR'; 'SEND CR TO COM PORT
'SEND O$ TO COM PORT
'SEND CR TO COM PORT
'DONE
Section 8 Serial Interface
8-9