Mitsubishi Electric AJ71QC24 Manual page 54

4. COMMUNICATIONS USING A DEDICATED PROTOCOL MELSEC QnA
1540 NEXT
1%
1550 GOTO *FIN
1560
I , !
- - - - - - _ - _ - - - - _ - - _ _ - _
Data display when error data received----------------------!
1570 *ERFIN
1580 LOCATE 25,lO
:
PRINT "Data cannot be received. Stop."
1590 GOTO *FIN
1600
1610 *ERCODE
1620
LOCATE 27,4
:
PRINT "Batch read abnormal end"
1630 ERCD$=MID$(BUF$,12,4j
1640 LOCATE 2 7 , 8
:
PRINT "Error code=";ERCD$
1650 GOTO *FIN
1660
1670 *ERDISP
1680 LOCATE 25,lO :PRINT "Receive data
is
abnormal. Stop."
1690 GOTO *FIN
1700
1710
I
- _ _ - _ _ - - _ - - - _ - - _ _ - - _ - - - - - - - - - - - -
RS-232C close----------------------------------
!
1720 *FIN
1730 CLOSE #CH%
1740
1750 END
1760 '
1770
!
! _ - _ _ - - - - - - - - - - _ _ - - - - - - - - -
Data reception subroutine-----_----------------------
i
1780 *JYUSIN
1790 FOR I%=l TO WTCNT%
1800 FOR J%=l TO DLCNT% :'Data receive wait
1810
NEXT J%
1820 IF LOC(CH%)
+
RVCNT% THEN *BUFIN :'Jump if designated number of cha.racters,
or more, received.
1830 NEXT I%
1840 ERFLG%=99 :RETURN :'Data not received error
1850
1860 *BUFIN
1870
RCV$=INPUT$ (RVCNT% , CH%
j
:'Read receive data
1880 RETURN
1890
*
BASIC commands must be changed according to BASIC software.
4
-
21