大家看看，这段检查非0的程序还能简化或者优化么？

VAR_INPUT
NoOfDWords : INT ;
StartAddress : INT ;
Q_DB : BLOCK_DB ;
END_VAR
VAR_OUTPUT
NotZero : BOOL ;
END_VAR
VAR_TEMP
Count : INT ;
END_VAR
BEGIN
NETWORK
TITLE =

CLR ;
= #NotZero;
OPN #Q_DB;
L #NoOfDWords;
Next: T #Count;
DEC 1;
L 4;
*I ;
L #StartAddress;
+I ;
SLW 3;
LAR1 ;
L DBD [AR1,P#0.0];
L L#0;
<>D ;
S #NotZero;
L #Count;
LOOP Next;

END_FUNCTION