Step7 STL KOD

L P#0.0                // Acc1 := P#0.0
LAR1                              // AR1 := P#0.0
M002: OPN DB 13         // DB13 açıldıdı
L DBB [AR1,P#0.0]        // DB13'teki AR1+P#0.0 bytı yüklendi (DB13'ün ilk Bytına denk geliyor DB13.DBX0.0 BYTE1 )
L 0                                 // 0 değeri yüklendi
<>I                                 // DB13'ün ilk bytı 0 ile karşılaştırdı eğer eşit değillerse RLO = 1;
JC M001                        // RLO :=1 ise M001'e atla
L P#1.0                        // Acc1 := P#1.0
+AR1                          // AR1 := AR1 + Acc1
TAR1                            // ACC1 := AR1
L P#17.0                      //  P#17.0
<=D                             // AR1(P#1.0) ile P#17.0 karşılaştırılıyor(double int şeklinde). P#17.0 büyükse RLO := 1
                                     //DB13'de 1.0 ofsetli adres ile DB13'teki 17.0 ofsetli adresten sonraki değerlr karşılaştırılıyor, yukarıda DB13 açıldı.
                                      // DB13.DBX1.0 WORD2 <=D DB13DBX17.0 WORD2 ??

JC M002                          // RLO == 1 ise M002'ye atla
SET                                    // RLO := 1
R M 99.0                           // M99.0 := 0
JU M003                           // M003'e git
M001: SET                        // RLO := 1
S M 99.0                        // M99.0 := 1
M003: NOP 0