#lang racket/base
(require staapl/pic18)

;; Code for the USBPicStamp by Johannes Taelman.
;; http://www.flickr.com/photos/_-j/1350651639/

;; staaplc -u -d pk2 picstamp.f 



(words-org-flat
 (#x300000 ;; Address of configuration bits in code space.

  ;; FIXME: this is code, and not a data table -- add sugar.
  #x21 |,| #x02 |,| #x3A |,| #x1E |,|
  #x00 |,| #x81 |,| #x85 |,| #x00 |,|   ;; extended instruction set disabled
  #x0F |,| #xC0 |,| #x0F |,| #xE0 |,|
  #x0F |,| #x40 |,| ))

(require
 ; target code and macros
 staapl/pic18/shift
 ;staapl/pic18/interpreter
 staapl/pic18/route
 staapl/pic18/ramblock
 staapl/pic18/template
 )


(macros
 
 (fosc 48000000) ; MHz  ; 4 clock cycles per instruction cycle gives 12 MIPS.
 (baud 230400)

 )


; load monitor-serial.f \ boot block + serial monitor code (UART)

    

;; #sh# pk2cmd -I -M -R -p PIC18F2550 -f $1