INSTALLATION MANUAL User Manual

Chapter 6
Slave Mode Operation / Examples
6–28
DL50 Response Variables
If the message is sent to a slave address other than 255, the DL50 will send
back a reply packet. The subroutine which starts on line 5900 stores these
reply bytes into the integer array RESP() and prints them to the console
device.
Figure 6.5
Basic Program: To Trigger Messages on a DL50 Display
1 REM DL50 DUPLEX FOR 1746-BAS
10 MODE(PRT2,9600,N,8,,,)
15 STRING 3000,254
20 CTBT = 2 :REM DEFAULT CONTROL BYTE
25 SLADD = 255 :REM DEFAULT SLAVE ADDRESS
30 TD = 10 :REM DEFAULT TIME DELAY
35 LINO = 1 :REM DEFAULT LINE NUMBER
40 DSPEED = 0 :REM DEFAULT DISPLAY SPEED
45 MDE = 0 :REM DEFAULT DISPLAY MODE
50 RELAY = 0 :REM DEFAULT RELAY MODE
55 HEIGHT = 0 :REM DEFAULT CHARACTER HEIGHT
60 CLR = 0 :REM DEFAULT COLOR CODE
65 TMOUT = 100 :REM DEFAULT TIMEOUT
70 RTMOUT = 100 :REM RESPONSE TIMEOUT
100 REM *************START USER PROGRAM
110 INPUT “ENTER MESSAGE TEXT”$(0)
120 INPUT “ENTER DISPLAY MODE”MDE
130 INPUT “ENTER RELAY STATUS”RELAY
140 INPUT “ENTER LINE NUMBER”LINO
150 INPUT “ENTER HEIGHT CODE”HEIGHT
160 INPUT “ENTER COLOR CODE”CLR
170 INPUT “ENTER DISP SPEED”DSPEED
180 GOSUB 5000 :REM SEND MESSAGE
190 GOTO 110
200 END
4999 REM *************END USER PROGRAM
5000 REM CREATE AND SEND OUTPUT ROUTINE
5010 GOSUB 5100 :REM ASSIGN FIELD 6 BYTE 1
5020 GOSUB 5200 :REM ASSIGN FIELD 6 BYTE 2
5030 GOSUB 5300 :REM ASSIGN FIELD 6 BYTE 3
5040 GOSUB 5400 :REM CALCULATE CHECKSUM
5050 GOSUB 5700 :REM SEND OUTPUT
5060 GOSUB 5900 :REM GET DL50 RESPONSE
5070 RETURN
5080 END
5100 REM ASSIGN FIELD 6 BYTE 1
5110 SPV=2**5*DSPEED
5120 MV=MDE
5130 F6=128+SPV+MV
5140 RETURN
5150 END
5200 REM ASSIGN FIELD 6 BYTE 2
5210 RLV = 2**6*RELAY
5220 HTV = 2**3*HEIGHT
5230 F62=128+RLV+HTV
5240 RETURN
5250 END
(More on next page)