#lang scheme/base
(provide (all-defined-out))

(define	reqLen	64)			;; PICkit 2 always uses 64-byte transfers



;; Standard script IDs
(define-syntax-rule (enum name ...)
  (define-values
    (name ...)
    (apply values
           (build-list
            (length '(name ...))
            (lambda (x) x)))))

(enum
 SCR_PROG_ENTRY
 SCR_PROG_EXIT
 SCR_RD_DEVID
 SCR_PROGMEM_RD
 SCR_ERASE_CHIP_PREP
 SCR_PROGMEM_ADDRSET
 SCR_PROGMEM_WR_PREP
 SCR_PROGMEM_WR
 SCR_EE_RD_PREP
 SCR_EE_RD
 SCR_EE_WR_PREP
 SCR_EE_WR
 SCR_CONFIG_RD_PREP
 SCR_CONFIG_RD
 SCR_CONFIG_WR_PREP
 SCR_CONFIG_WR
 SCR_USERID_RD_PREP
 SCR_USERID_RD
 SCR_USERID_WR_PREP
 SCR_USERID_WR
 SCR_OSCCAL_RD
 SCR_OSCCAL_WR
 SCR_ERASE_CHIP
 SCR_ERASE_PROGMEM
 SCR_ERASE_EE
 SCR_INVALID_1
 SCR_ROW_ERASE
 SCR_TESTMEM_RD
 SCR_EEROW_ERASEy
 SCR_INVALID_2)