;Entry_ADFScreenBorders
;----------------------
;Turns screen caching off on RO4 / SA
;
;Entry:
; R0 - command line
;      OFF - force off
;      ON - force on
; R12 - pointer to module private word

.Entry_ADFScreenBorders
 STR     R14, [R13, #-4]!
 LDR     R12, [R12, #0]

 BL      On_Off_Option			;Read the On/Off option
 ADD     R0, R0, #1			;reverse value
 MOV     R0, R0, LSL #5			;0=ON 32=OFF
 STRB    R0, [R12, #display_V_border - VARS]
 TEMP    R0
 STR     R13, HAL_vidc_list_dirty
 LOCK    R0

 SUBS    R0, R0, R0			;clear V
LDR     PC, [R13], #4
