2021-01-02 19:47:57 +00:00
|
|
|
(local asm (require :asm.asm))
|
|
|
|
|
(local Prodos (require :asm.prodos))
|
|
|
|
|
(local {: basic} (require :asm.tape))
|
|
|
|
|
|
|
|
|
|
(local prg (basic (asm.new)))
|
|
|
|
|
(local org (prg:org 0x801))
|
|
|
|
|
|
|
|
|
|
(org:append [:basic
|
|
|
|
|
[10 :print "\"HELLO FROM A GENERATED DISK IMAGE!\""]
|
|
|
|
|
[20 :goto :10]])
|
|
|
|
|
|
|
|
|
|
(prg:assemble)
|
|
|
|
|
|
2021-01-02 21:32:43 +00:00
|
|
|
(local disk (Prodos "ProDOS_Blank.dsk"))
|
|
|
|
|
(disk:validate-entries)
|
2021-01-02 19:47:57 +00:00
|
|
|
(disk:add-file "STARTUP" Prodos.file-type.BAS 0x801 org.block.bytes)
|
|
|
|
|
(disk:update-volume-header {:name "NEUT.TOWER"})
|
2021-01-02 21:32:43 +00:00
|
|
|
; (pp disk)
|
2021-01-02 19:47:57 +00:00
|
|
|
(disk:write "Test.dsk")
|
|
|
|
|
|
