;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

 MOV     R0, #129			;wait Ncs for key
 AND     R1, R2, #&FF			;low byte of time in cs
 MOV     R2, R2, LSR #8
 AND     R2, R2, #&3F			;high byte
 SWI     XOS_Byte			;PRM1-899

 SUBS    R0, R0, R0			;clear V
LDMFD   R13!, {R1-R3, PC}