| \ 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] |
| ; |
