+++ /dev/null
-MAIN START BEGIN
-BEGIN LD GR1,X
- LD GR2,Y
- LAD GR3,0
- LAD GR4,1
-LOOP CPA GR4,GR2
- JPL FIN
- AND GR2,GR4
- JZE NEXT
- ADDA GR3,GR1
- JOV FIN
-NEXT SLA GR1,1
- JOV FIN
- LD GR2,Y
- SLA GR4,1
- JUMP LOOP
-FIN ST GR3,A
- RET
-X DC 6
-Y DC 5
-A DS 1
- END