20 lines
471 B
Plaintext
20 lines
471 B
Plaintext
|
(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)
|
||
|
|
|
||
|
|
(local disk (Prodos "ProDOS_2_4_2.dsk"))
|
||
|
|
(disk:add-file "STARTUP" Prodos.file-type.BAS 0x801 org.block.bytes)
|
||
|
|
(disk:update-volume-header {:name "NEUT.TOWER"})
|
||
|
|
(pp disk)
|
||
|
|
(disk:write "Test.dsk")
|
||
|
|
|