\------------------------------------------------------
\	Forth Script for IceCube Flasher Board
\	N. Kitamura
\	University of Wisconsin-Madison
\	Space Science and Engineering Center
\
\	created: 8/11/2003
\	fl_test.txt
\-------------------------------------------------------

FL_base			constant $60000000
addr_status			constant &0
addr_reset			constant &1
addr_cpld_id		constant &2
addr_mode_select		constant &3
addr_spi			constant &4
addr_dcdc_ctrl		constant &5
addr_delay_adjust		constant &8
addr_delay_config0	constant &9
addr_delay_config1	constant &10
addr_delay_config2	constant &11
addr_mux			constant &12

\ Turn on the Flasher Board
: enableFL 2 $500000f9 c!;

\ Turn off the Flasher Board
: disableFL 0 $500000f9 c!;

\ Reset the Flasher Board
: resetFL 1 fl_base addr_reset + c!;

\ Turn on the DC/DC converter
: onDCDC 1 fl_base addr_dcdc_ctrl + c!;

 \ Turn off the DC/DC converter
: offDCDC 0 fl_base addr_dcdc_ctrl + c!;
 
\ Turn on and enable the DC/DC converter
: enableDCDC 3 fl_base addr_dcdc_ctrl + c!;

\ Disable without turning off the DC/DC converter
: disableDCDC onDCDC;

\ Read the Flasher Board CPLD firmware version number
: flfver fl_base addr_cpld_id + c@ . drop;

\ Write a byte to the programmable delay line
\ value setDelay
: setDelay fl_base addr_delay_adjust + c!;

\ Write to L[3..0]
\ value setConfig0
: setConfig0 fl_base addr_delay_config0 + c!;

\ Write to L[7..4]
\ value setConfig1
: setConfig1 fl_base addr_delay_config1 + c!;

\ Write to L[11..8]
\ value setConfig2
: setConfig2 fl_base addr_delay_config2 + c!;

\ Write to the mux enable byte
\ value setflmux
: setflmux fl_base addr_mux + c!;