honeylisp/asm/tape.fnl

57 lines
2.2 KiB
Plaintext
Raw Permalink Normal View History

2020-11-02 00:39:31 +00:00
(local asm (require :asm.asm))
(local util (require :lib.util))
(local lume (require :lib.lume))
(local tokens {})
(each [i tok (ipairs [:end :for :next :data :input :del :dim :read :gr :text :pr# :in# :call :plot
:hlin :vlin :hgr2 :hgr :hcolor= :hplot :draw :xdraw :htab :home :rot= :scale=
:shload :trace :notrace :normal :inverse :flash :color= :pop :vtab :himem:
:lomem: :onerr :resume :recall :store :speed= :let :goto :run :if :restore
:& :gosub :return :rem :stop :on :wait :load :save :deffn :poke :print :cont
:list :clear :get :new :tab :to :fn :src :then :at :not :step :+ :- :* "/" ";"
:and :or :> := :< :sgn :int :abs :usr :fre :scrn :pdl :pos :sqr :rnd :log :exp
:cos :sin :tan :atn :peek :len :str$ :val :asc :chr$ :left$ :right$ :mid$])]
(tset tokens tok (+ i 0x7f)))
(fn basic [prg]
(fn parse-line [line]
(local block [:block [:ref :nextline] [:dw (. line 1)]])
(each [_ tok (ipairs (lume.slice line 2))]
(table.insert block
(if (= (type tok) :table) tok
(. tokens tok) [:db (. tokens tok)]
[:bytes (tostring tok)])))
(table.insert block [:db 0])
(table.insert block :nextline)
block)
(fn prg.dat-parser.basic [lines]
2021-04-18 04:09:31 +00:00
(local block (prg.new-block))
2020-11-02 00:39:31 +00:00
(each [_ line (ipairs (lume.slice lines 2))]
(prg:parse-dats block [(parse-line line)]))
(prg:parse-dats block [[:dw 0]])
block)
prg)
(fn loader [prg]
(local lprg (basic (asm.new prg)))
(local lorg (lprg:org 0x0801))
(lorg:append [:basic [10 :call :2061]])
(local generator
{:chunks []
:write
(fn [self addr bytes]
(local end (+ addr (bytes:len) -1)) ; end address inclusive
(lorg:append
[:lda #(util.lo addr)] [:sta :0x3c]
[:lda #(util.hi addr)] [:sta :0x3d]
[:lda #(util.lo end)] [:sta :0x3e]
[:lda #(util.hi end)] [:sta :0x3f]
[:jsr :0xfefd])
(table.insert self.chunks bytes))})
(prg:upload generator)
(lorg:append [:jmp prg.start-symbol])
(lprg:assemble)
(values lprg generator.chunks))
{: basic : loader}