Publicité
Fonctions de communication du CPM2A/CPM2C
1080 *REPEAT
1090
---Transmission data input-----------------------------------------------
1100 INPUT
" send
1110 ' ---FCS Calculation-----------------------------------------------
1120 FCS=0
1130 FOR
IFCS = 1
1140
FCS = FCS
XOR
1150 NEXT
1160 FCS$ = RIGHT$ ( "0" + HEX$ ( FCS ) , 2 )
1170 ' ---Communications execute-----------------------------------------------
1180 ZZZ$ = SEND$ + SCS$ + "*" + CHR$(13)
1190 PRINT
#1 , ZZZ$ ;
1200 ' ---réponse check-----------------------------------------------
1210 RECCNT = 0 : TMP$ - ""
1220 *DRECLOOP
1230 IF
LOC ( 1 ) < > 0
1240 RECCNT = RECCNT + 1
1250 IF
RECCNT = 5000
1260 *DREC1
1270 TMP$ = TMP$ + INPUT$ ( LOC (1 ) , #1 )
1280 IF
RIGHT$ ( TMP$ , 1 ) = CHR$ (13)
DRECLOOP
1290 *DRECERR
1300 TMP$ = " No response !! " + CHR$ ( 13 )
1310 *DRECEND
1320 PRINT " receive data
1340 ' ---Go à transmission data input----------------------------------------
1350 GOTO *REPEAT
1360 ' ---Processing complete-----------------------------------------------
1370 CLOSE
#1
1380 END
Programme à contacts
(Mnémoniques)
D3E Electronique Parc du Grand TROYES 3 Rond Point Winston CHURCHILL 10302 SAINTE SAVINE
204
Tél: 03 25 71 31 65 Fax: 03 25 74 38 82 Email: electronique@d3e.fr www.d3e.fr
data
: ",send$
TO
LEN ( send$ )
ASC( MID$ ( SEND$ , IFCS , 1 ) )
THEN *DREC1
THEN *DRECERR ELSE
: " ; RECV$
Les communications à l'ordinateur inattendues sont exécutées en utilisant
TXD(48).
Mnémo-
nique
(@)TXD(48) Sortie du port de
communications
*DRECLOOP
THEN *DRECEND ELSE RECCNT = 0 : GOTO *
Contrôle
Lit les données depuis la mémoire E/S et
les transmet dans le format de trame
spécifié.
Chapitre
4-3
Contenu
Publicité
Chapitres
