#lang racket/base


(require staapl/pic18/sim
         staapl/pic18/sim-tools
         staapl/pic18/double-math
         staapl/target/rep
         staapl/tools
         staapl/code
         racket/dict
         racket/pretty
         racket/generator
         (file "dtc.fm")
         )

(define *out* '())

(define (stack->string s)
  (apply string-append
         (for/list ((n (reverse s)))
           (pad-string
            (if (number? n)
                (hex->string 2 n)
                ".") 3))))

(define (reload)
  (reg-defaults!)     ;; initializes registers and ram
  (flash-from-code!)  ;; initialize flash from the compiler's code output
  (flash (flash-extend (flash) #x8000 (make-vector #x4000 #f)))
  (eusart-write (lambda (v) (push! *out* v)))
  ;; (trace '()) ;; reset tracing
  (trace-post
   (lambda (addr) ;; use trace function instead of list
     (let ((asm
            (with-output-to-string
              (lambda ()
                (print-trace-item addr)))))
       (printf "~a~a\n"
               (pad-string (substring asm 0 (sub1 (string-length asm))) 54)
               (stack->string (ds))))))
  )
  

(define *ram* (vector-memory (make-vector #x1000 (make-empty))))
(define (dump) (memory-dump *ram* #x200 #x300))

;; Note that on PIC the RCIF flag is cleared after reading the buffer.
;; In the sim this doesn't happen, so we set it just once.
(define (send-string line)
  (RCIF #t)
  (rcsta 0)
  (txsta 0)
  (TRMT #t)
  (eusart-read
   (sequence->generator
    (map char->integer
         (string->list line)))))


(define (test0)
  (reload)
  (ram *ram*)
  (trace-post print-trace-item) ;; use immediate trace instead of list
  (send-string "hello\r")
  (call-word target/serial>io)
  (call-word target/line-editor))


(define (test1)
  (reload)
  (call-word target/test1)
  (pretty-print (ds)))

(define (test3 x)
  (reload)
  (>d x)
  (>d 0)
  (call-word target/test3)
  (pretty-print (ds)))

(define (test4)
  (reload)
  (call-word target/test4)
  (pretty-print (ds)))

;; (current-directory "/home/tom/staapl/app") (enter! (file "dtc-sim.rkt")) (test1)