pic18.ss
#lang scheme/base
(require
 scheme/control
;; scheme/runtime-path
 "tools.ss"
 "forth/lexer.ss")

(require/provide
 "forth.ss"
 "purrr.ss"
 "pic18/asm.ss"
 "pic18/macro.ss"
 "pic18/const.ss"
 "pic18/parsing-words.ss"
 "pic18/geo.ss" ;; FIXME
 "port/ihex.ss"
 "live.ss"
 )
(provide (all-defined-out))


(target-code-unit 2) ;; a code word is 2 bytes
(target-code-bits 16)
(target-address-size 24)
(asm-on!)

(define prog piklab-prog)

;; FIXME: this should go somewhere else

(loading "pic18")