mirror of https://github.com/g012/l65.git
41 lines
605 B
Plaintext
41 lines
605 B
Plaintext
require 'scv'
|
|
location(0x8000, 0x8FFF)
|
|
section{"rom", org=0x8000}
|
|
dc.b 'H'
|
|
@main
|
|
di
|
|
lxi sp,0xFFD2
|
|
ei
|
|
calt 0x8C
|
|
|
|
lxi hl,vdc_data
|
|
lxi de,0x3400
|
|
mvi c,0x03
|
|
block
|
|
|
|
lxi hl,message
|
|
lxi de,0x3044
|
|
lxi bc,0x01ff
|
|
|
|
@loop_0
|
|
block
|
|
dcr b
|
|
jr loop_0
|
|
|
|
-- beep
|
|
lxi hl,0x3600
|
|
calf 0xfb0
|
|
|
|
@loop_1
|
|
nop
|
|
jr loop_1
|
|
|
|
section{"vdc_data", org=0x8030}
|
|
dc.b 0xC0,0x00,0x00,0xF2
|
|
|
|
section{"message", org=0x8040}
|
|
dc.b "\t\t\t\t Hello world! \t\t\t\t"
|
|
dc.b 0x00
|
|
|
|
writebin(filename .. '.bin')
|