VOID half_ms_pause (USHORT half_ms)
{
  USHORT index;

  
  while (half_ms--)
  {
    /* just waste time */
    for (index = 0; index < PAUSE_SCALE_FACTOR33; index++)
    {
    }
  }
  
}  /*- end half_ms_pause -*/



; FUNCTION _half_ms_pause (BEGIN)
?C0001:
      MOV     A,R7
      DEC     R7
      MOV     R2,AR6
      JNZ     ?C0015
      DEC     R6
?C0015:
      ORL     A,R2
      JZ      ?C0006
      CLR     A
      MOV     R4,A
      MOV     R5,A
?C0003:
      CLR     C
      MOV     A,R5
      SUBB    A,#070H
      MOV     A,R4
      SUBB    A,#00H
      JNC     ?C0001
      INC     R5
      CJNE    R5,#00H,?C0016
      INC     R4
?C0016:
      SJMP    ?C0003
?C0006:
      RET     
             ; FUNCTION _half_ms_pause (END)