L 12500
T #SafetySetp
L 5500
T #MinSetp




OPN DB 1

L 2#111100000
T #DBXPointer

L 1
T #DBWPointer

m000: L #DBWPointer
L 2
*I
L 42
+I
SLD 3
LAR1
A(
L #SafetySetp
L DBW [AR1,P#0.0]
>I
)
A(
L #MinSetp
>I
)
= DBX [#DBXPointer]

L #DBXPointer
L L#1
+D
T #DBXPointer

L #DBWPointer
L 1
+I
L 8
>I
JC m001
JU m000
m001: NOP 0