#lang scheme/base

;; Setup a namespace with the serial monitor for PIC18F1220 loaded.
(require
 "../tools.ss"
 scheme/runtime-path)
(require/provide
 "pic18.ss") ;; re-export PIC18 compiler in a namespace

(define-runtime-path mon "../pic18/monitor-p18f1220.f")
(forth-load/compile mon)

;; To simplify the examples this changes the default to start
;; compiling next at the application boot block. This means no extra
;; install step necessary like in pic18/synth.f which starts compiling
;; at the next block, reserving the application boot block so it can
;; be erased and reprogrammed.

;; FIXME: empty code is not allowed..
;; (forth-compile "app-boot 2 - org -1 ,,")
(forth-compile "app-boot org")