EUCHNER CIS3(A) User Manual
Page 17

EUCHNER
Identsystem
CIS3
071652-01-8/99
Subject to technical modifications
page 17 / 23
'
*
'*************************** Datenträger lesen *****************************
'*
FUNCTION Lesebefehl$ (Start!, Anzahl%, Kopfnr%)
Starthi% = Start \ 256 'Startadresse in high und low Teil aufteilen
Startlo% = Start MOD 256
Telegramm$ = CHR$(7) + "TL" + CHR$(Kopfnr%) + CHR$(Starthi%) + CHR$(Startlo%) + CHR$(Anzahl%)
IF Telegrammsenden(Telegramm$, 6) <> 0 THEN GOTO ende1
A$ = Antworttelegramm(6) 'Antworttelegramm einlesen
PRINT "Antworttelegramm auswerten"
'Antworttelegramm auswerten
IF MID$(A$, 3, 1) = "F" THEN Fehleranzeigen (A$): Lesebefehl$ = "0"
IF MID$(A$, 3, 1) = "L" THEN Lesebefehl$ = Datenauswerten(A$)
IF MID$(A$, 3, 1) = "K" THEN Lesebefehl$ = Datenauswerten(A$)
ende1:
END FUNCTION
'*
'****************** Daten auf Datenträger schreiben ************************
'*
FUNCTION Schreibbefehl (Start!, Anzahl%, Kopfnr%, Daten$)
Starthi% = Start \ 256 'Startadresse in high und low Teil aufteilen
Startlo% = Start MOD 256
Telegramm$ = CHR$(LEN(Daten$) + 7) + "TP" + CHR$(Kopfnr%) + CHR$(Starthi%) + CHR$(Startlo%) +
CHR$(Anzahl%) + Daten$
A = Telegrammsenden(Telegramm$, 6)
IF A <> 0 THEN GOTO ende
PRINT "Programmiertelegramm gesendet"
A$ = Antworttelegramm(6) 'Antworttelegramm einlesen
PRINT "Antworttelegramm auswerten"
'Antworttelegramm auswerten
IF MID$(A$, 3, 1) = "F" THEN Fehleranzeigen (A$)
Schreibbefehl = 0
ende:
END FUNCTION
'*
'********************* 3964R Telegramm senden ******************************
'*
FUNCTION Telegrammsenden (Telegramm$, AnVersu!)
END$ = CHR$(&H10) + CHR$(&H3)
STX$ = CHR$(2)
DLE$ = CHR$(&H10)