#lang scheme/load
(begin
  (require (planet zwizwa/staapl/live)
           (planet zwizwa/staapl/code)
           (planet zwizwa/staapl/port/ihex)
           (planet zwizwa/staapl/pic18)
           (file "/home/tom/staapl/app/1220-8.fm"))
  (code-clear!)
  (begin
    (target-words-set!
     '((stacksize code 178)
       (chkblk code 166)
       (ldf code 160)
       (lda code 154)
       (n!a+ code 144)
       (n!f+ code 133)
       (n@a+ code 123)
       (n@f+ code 112)
       (receive-dup-transmit code 109)
       (interpret-msg code 100)
       (receive/ack code 96)
       (ack1 code 92)
       (receive2 code 90)
       (interpret-cmd code 72)
       (fprog code 68)
       (ferase code 64)
       (ack code 61)
       (jsr code 54)
       (boot code 0)
       (application code 288)
       (interpreter code 107)
       (jsr/ack code 98)
       (warm code 257)
       (icd.>tx code 239)
       (icd.rx> code 219)
       (icd.1/2bit code 211)
       (icd.1bit code 210)
       (async.>tx code 48)
       (async.rx> code 33)
       (boot-40 code 32)
       (_route code 204)
       (_route/e code 201)
       (program code 195)
       (erase code 192)
       (engage code 182)))
    (code-pointers-set! '((data 0) (code 320))))
  (console '("/dev/staapl0" 4800)))
(run)