SUBLR  START
       LAD GR0,1
       LAD GR1,1
       LAD GR2,2
       LAD GR3,3
       LAD GR4,4
       LAD GR5,5
       LAD GR6,6
       LAD GR7,2
       SUBL GR0,GR1
       SUBL GR2,GR3
       SUBL GR4,GR5
       SUBL GR6,GR7
       SUBL GR0,AD1,GR1
       SUBL GR2,AD1,GR3
       SUBL GR4,AD1,GR5
       SUBL GR6,AD1,GR7
       RET
AD1    DC 3
       DC 4
       DC 5
       DC 6
       DC 7
       DC 8
       DC 9
       END