LOOP ADDA GR3,GR1
SUBA GR1,=3
ADDA GR2,=1
CPA GR1,=0
JPL LOOP