.area text
long_prolog::
  st    -y,r8
  st    -y,r9
  st    -y,r10
  st    -y,r11
  st    -y,r30
  st    -y,r24
  st    -y,r25
  st    -y,r26
  st    -y,r27
  ldd   r24,y+9
  ldd   r25,y+10
  ldd   r26,y+11
  ldd   r27,y+12
  ret
long_epilog::
  ld    r27,y+
  ld    r26,y+
  ld    r25,y+
  ld    r24,y+
  ld    r30,y+
  ld    r11,y+
  ld    r10,y+
  ld    r9,y+
  ld    r8,y+
  adiw  r28,4
  ret
tstzero1::
  clr   r30
  or    r30,r16
  or    r30,r17
  or    r30,r18
  or    r30,r19
  ret
tstzero2::
  clr   r30
  or    r30,r24
  or    r30,r25
  or    r30,r26
  or    r30,r27
  ret