;Entry_ADFPause
;--------------
;Pause for N centiseconds
;
;Entry:
; R0 - Command tail
; R12 - pointer to module private word

.Entry_ADFPause
 STMFD   R13!, {R1-R3, R14}

 MOV     R1, R0				;command tail
 MOV     R0, #10			;assume base 10 number
 SWI     XOS_ReadUnsigned		;read the value PRM1-460
 LDMVSFD R13!, {R1-R3, PC}		;exit on error

 SWI     XOS_ReadMonotonicTime
 ADD     R3, R0, R2			;timeout
 ._L1
   MOV     R0, #121			;debounce
   MOV     R1, #0
   SWI     XOS_Byte
   TEQ     R1, #&FF
   BEQ     _L2
   SWI     XOS_ReadMonotonicTime
   CMP     R0, R3
 BLO     _L1
 ._L2
   MOV     R0, #121			;keyboard scan
   MOV     R1, #0
   SWI     XOS_Byte
   TEQ     R1, #&FF
   MOVNE   R0, R3
   SWIEQ   XOS_ReadMonotonicTime
   CMP     R0, R3
 BLO     _L2
 MOV     R0, #129			;clear the keypress
 MOV     R1, #1
 MOV     R2, #0
 SWI     XOS_Byte			;PRM1-899
LDMFD   R13!, {R1-R3, PC}
