;; PIC18 SPECIFIC

(module pic18-console mzscheme
  (require "composite.ss"
           "badnop.ss")

(compositions (badnop) badnop:

 ;; configuration bits

 (save-config-ihex (config-sheepsint '() cons chunks->ihex
                    (display) for-each) "config.hex" with-output-to-file)
   

 ;; data stack
;; (target-stack 128 4073) ;; top element is zero
 (target-stack
  `(,('stack-data eval-macro check
      'FSR0L      eval-macro check)
    ,('(data-stack-not-defined) throw))
  attempts)
  
 
 ;; monitor relocation
 
 (pfm  8 kb)
 
 (mon>list  0 f! '() 8 (64 fbytes>list append) for)
 (copy-mon  #x1E00 mon>list '() cons cons upload-chunk)

 ;; to relocate, simply define a function : rh+ rh +! ;
)           
)