;Entry_ADFForceVSync
;-------------------
;Alter the amount of OS_Byte 19's to issue when OS_Byte 113 is called
;
;Entry:
; R0 - Command tail
; R12 - pointer to module private word

.Entry_ADFForceVSync
 STMFD   R13!, {R1-R3, R14}
 LDR     R12, [R12, #0]

 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

 CMP     R2, #50			;cap at 2 FPS
 MOVHI   R2, #50
 STRB    R2, [R12, #force_vsync - VARS]

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