blob: f07b0c4d942143527b4ff79abb8f57be994dfc5e [file] [log] [blame]
\ Load file for application-specific Forth extensions
: alloc-mem drop 0 ; : free-mem 2drop ;
: basic-setup ;
\ fl clockset.fth
fl initdram.fth
fl ../arm-xo-1.75/addrs.fth
: wljoin ( w w -- l ) d# 16 lshift or ;
\ [ifdef] INCLUDE-DISPLAY
fl ../arm-mmp2/lcd.fth
fl panel.fth
\ [then]
: short-delay ;
fl ../arm-xo-1.75/ccalls.fth
fl ../arm-xo-1.75/banner.fth
: enable-interrupts ( -- ) psr@ h# 80 invert and psr! ;
: disable-interrupts ( -- ) psr@ h# 80 or psr! ;
[ifdef] use_mmp2_keypad_control
fl ../arm-mmp2/keypad.fth
[then]
\ Thunderstone
: early-activate-cforth? true ;
false constant activate-cforth?
false constant show-fb?
fl ../arm-xo-1.75/showfb.fth
: init-drivers
banner
basic-setup
init-timers
enable-wdt-clock
set-gpio-directions
init-mfprs
[ifdef] use_mmp2_keypad_control
keypad-on
8 keypad-direct-mode
[then]
;