19 lines
188 B
Text
19 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
|