20 lines
188 B
Text
20 lines
188 B
Text
|
Lbl SUB1
|
||
|
|
0→{r₁+r₂+r₃}
|
||
|
|
r₁+r₂
|
||
|
|
Return
|
||
|
|
|
||
|
|
Lbl SUB2
|
||
|
|
r₁+r₂
|
||
|
|
Return
|
||
|
|
|
||
|
|
Lbl SUB3
|
||
|
|
0→{r₁+length(r₁)-1}
|
||
|
|
r₁
|
||
|
|
Return
|
||
|
|
|
||
|
|
Lbl SUB4
|
||
|
|
inData(r₂,r₁)-1→I
|
||
|
|
0→{r₁+I+r₃}
|
||
|
|
r₁+I
|
||
|
|
Return
|