mirror of
https://github.com/g012/l65.git
synced 2024-06-17 19:29:46 +00:00
40 lines
557 B
Plaintext
40 lines
557 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,0x3043
|
|
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 "hello world"
|
|
dc.b 0x00
|
|
|
|
writebin(filename .. '.bin') |