SUBAR  START
       LAD GR0,1
       LAD GR1,1
       LAD GR2,8
       LAD GR3,2
       LAD GR4,5
       LAD GR5,2
       LAD GR6,-20000
       LAD GR7,-24000
       SUBA GR0,GR1
       SUBA GR2,GR3
       SUBA GR4,GR5
       SUBA GR6,GR7
       SUBA GR0,AD1,GR1
       SUBA GR2,AD1,GR3
       SUBA GR4,AD1,GR5
       SUBA GR6,AD1
       RET
AD1    DC 3
       DC 4
       DC 5
       DC 6
       DC 7
       END