MAIN
ETWORK 1
LD SM0.1
CALL SBR_0
NETWORK 2
LDN M0.0
TON T32, +1000
NETWORK 3
LD M0.1
DTR VD200, VD60
MOVR VD60, VD80
/R 500.0, VD80
MOVR VD80, VD100
*R 60.0, VD100
MOVR VD100, VD42
S V14.7, 1
R M0.1, 1

SBR0:
LD SM0.0
MOVB 16#FC, SMB37
MOVD +0, SMD38
HDEF 0, 9
ATCH INT_0, 21
ENI
HSC 0
R M0.0, 2

INT0:
NETWORK 1
LD SM0.0
S M0.0, 1
NETWORK 2
LDN M0.0
TON T32, +1000
NETWORK 3
LD SM0.0
MOVD HC0, VD200
MOVB 16#C0, SMB37
MOVD +0, SMD38
HSC 0
R M0.0, 1
S M0.1, 1