| \ Load file for application-specific Forth extensions |
| |
| \ fl ../arm-xo-cl4/gpiopins.fth |
| fl ../arm-mmp2/mfprbits.fth |
| fl mfprtable.fth |
| fl ../arm-mmp2/mmp2drivers.fth |
| fl boardgpio.fth |
| |
| fl ../arm-mmp3-thunderstone/basics.fth |
| fl ../arm-xo-1.75/memtest.fth |
| |
| : board-config ( -- ) |
| \ Add board-revision-specific setup as necessary |
| ; |
| |
| : late-init |
| init-dram ." DRAM initialized" cr |
| ; |
| |
| : release-main-cpu ( -- ) |
| \ 0 h# 050020 io! |
| |
| \ h# 18 h# 282988 +io bitset \ TIMER_CLKEN + TIMER_SW_RST(_N) |
| h# 02 h# 050020 +io bitclr \ Release reset for PJ4 |
| \ h# 0200.0000 h# 282950 +io bitset \ PMUA_CC2_PJ - MPCRE2_SW_RSTN |
| \ h# 0400.0000 h# 282950 +io bitset \ PMUA_CC2_PJ - MMCRE_SW_RSTN |
| ; |
| |
| fl ../arm-mmp3-thunderstone/ofw.fth |
| : .mfprs ( -- ) |
| hex |
| d# 172 0 do |
| decimal i 3 u.r hex i 8 bounds do i af@ 5 u.r loop cr |
| 8 +loop |
| ; |
| |
| \ Run this at startup |
| : app ( -- ) |
| init-mfprs |
| init-drivers |
| board-config |
| late-init |
| \ early-activate-cforth? 0= if ofw then |
| ." Skipping OFW" cr |
| hex quit |
| ; |
| |
| " app.dic" save |
