18 lines
561 B
Plaintext
18 lines
561 B
Plaintext
|
(local tapegen (require :link.tapegen))
|
||
|
|
(local tape (require :asm.tape))
|
||
|
|
|
||
|
|
(local machine
|
||
|
|
{:source (love.audio.newQueueableSource tapegen.samplerate 16 1 32)
|
||
|
|
:play (fn [self sound] (self.source:queue sound))
|
||
|
|
:stop (fn [self] (love.audio.stop))
|
||
|
|
:upload
|
||
|
|
(fn [self prg]
|
||
|
|
(local (loader chunks) (tape.loader prg))
|
||
|
|
(self:play (tapegen.gen-basic (. loader.org-to-block 0x801 :bytes)))
|
||
|
|
(each [_ chunk (ipairs chunks)]
|
||
|
|
(self:play (tapegen.gen-bin chunk))
|
||
|
|
(love.audio.play self.source)))
|
||
|
|
:connected? (fn [self] true)})
|
||
|
|
|
||
|
|
machine
|