NETWORK1
TAR1 #tAR1_MEM
// LAR1 P#0.0 VERSIONE CON IL DB PROPRIO, CHE NON FUNZIONA CON LE MULTIISTANZE

TAR2 #tAR_BASE

L P##inMODE
L DW#16#7FFFF
AD
T #tAR_OFFSET

L #tAR_OFFSET
L #tAR_BASE
+D
LAR1

CDB
L 0
T DBD [AR1,P#4.0]
CDB
NETWORK2
L 32
NXT: T #tINDEX

L 32
L #tINDEX
-I

L 1
SLD
T #tMODE_CHECK

L #inMODE
L #tMODE_CHECK
AD
JZ JMP1
CDB
SET
S DBX [AR1,P#4.0]
CDB

JMP1: +AR1 P#0.1
L #tINDEX
LOOP NXT
NETWORK3
LAR1 #tAR1_MEM