TAR1 #AR1_STORE
TAR2 #AR2_STORE

L 0
T #STATUS
SET
R #ERROR
R #DONE
R #STATIC
R #GEN_DS_LESEN
R #SEND_BUSY
R #SEND_CONF
R #SEND_IN_PROGRESS
R #OFFSETTING
R #READING


L 1
L #ID
>I
JC NKO
L 16
<=I
JC NOK

NKO: L W#16#8186
JU ERRS

NOK: L #LADDR
SLD 3

LAR1
L PIW [AR1,P#4.0]
SRW 7
JZ STAA
SRW 1
JZ GEN1

STAA: SET
S #STATIC

L #ID
DEC 1
SRW 2
SLW 1
L #LADDR
+I
INC 8
SLD 3
LAR1

L #ID
DEC 1
SRW 2
L PIW [AR1,P#0.0]
JZ UG
JU M5

UG: SRW 8
M5: L #ID
SRW 1
JP UGR

TAK
SRW 6

JU GER

UGR: TAK
SRW 2

GER: L B#16#3
AW
L 1
==I
JC BUSY
TAK
L 2
==I
JC ABG
TAK
L 0
==I
JC CONT


A #ACT
L W#16#8183
JC ERRS
SET
SAVE
L 0
JU END

GEN1: L #ID
DEC 1
L 1
SLW
L PID [AR1,P#10.0]
T #TEMP_DATA
AW
JP SBSY
JU NXT
SBSY: S #SEND_BUSY
NXT: TAK
L #TEMP_DATA
SRD 16
AW

JP SCNF
JU NXTT
SCNF: S #SEND_CONF


NXTT: A #SEND_BUSY
A #SEND_CONF
S #SEND_IN_PROGRESS

JC CNT

A #SEND_BUSY
JC BUSY

A #SEND_CONF
JC ABG

CONT: A #ACT
JC CNT
SET
SAVE
L 0
JU END

CNT: L #ID
L 15
+I
T #DS_NR