2018-11-09 18:04:44 +00:00
|
|
|
require 'scv'
|
|
|
|
|
location(0x8000, 0x8FFF)
|
|
|
|
|
section{"rom", org=0x8000}
|
|
|
|
|
dc.b 'H'
|
|
|
|
|
@main
|
|
|
|
|
di
|
|
|
|
|
lxi sp,0xFFD2
|
|
|
|
|
ei
|
2018-11-15 18:25:57 +00:00
|
|
|
calt 0x8C
|
2018-11-09 18:04:44 +00:00
|
|
|
|
2018-11-15 18:25:57 +00:00
|
|
|
lxi hl,vdc_data
|
|
|
|
|
lxi de,0x3400
|
|
|
|
|
mvi c,0x03
|
|
|
|
|
block
|
2018-11-09 18:04:44 +00:00
|
|
|
|
|
|
|
|
lxi hl,message
|
2018-11-10 11:50:03 +00:00
|
|
|
lxi de,0x3044
|
2018-11-15 18:25:57 +00:00
|
|
|
lxi bc,0x01ff
|
2018-11-09 18:04:44 +00:00
|
|
|
|
|
|
|
|
@loop_0
|
|
|
|
|
block
|
|
|
|
|
dcr b
|
2018-11-15 18:25:57 +00:00
|
|
|
jr loop_0
|
2018-11-09 18:04:44 +00:00
|
|
|
|
2018-11-15 18:25:57 +00:00
|
|
|
-- beep
|
2018-11-09 18:04:44 +00:00
|
|
|
lxi hl,0x3600
|
|
|
|
|
calf 0xfb0
|
|
|
|
|
|
|
|
|
|
@loop_1
|
|
|
|
|
nop
|
2018-11-15 18:25:57 +00:00
|
|
|
jr loop_1
|
2018-11-09 18:04:44 +00:00
|
|
|
|
|
|
|
|
section{"vdc_data", org=0x8030}
|
|
|
|
|
dc.b 0xC0,0x00,0x00,0xF2
|
|
|
|
|
|
|
|
|
|
section{"message", org=0x8040}
|
2018-11-10 11:50:03 +00:00
|
|
|
dc.b "\t\t\t\t Hello world! \t\t\t\t"
|
2018-11-09 18:04:44 +00:00
|
|
|
dc.b 0x00
|
|
|
|
|
|
2018-11-15 18:25:57 +00:00
|
|
|
writebin(filename .. '.bin')
|
