CP START
   LAD GR2,#0000
   LAD GR3,#0020 ; const, size
   LAD GR4,#0001 ; const, one
LL LD GR1,#0010,GR2
   ST GR1,#00E0,GR2
   ADDL GR2,GR4
   CPA GR2,GR3
   JMI LL
   RET
   END