require 'scv'
location(0x8000, 0x8FFF)
section{"rom", org=0x8000}
    dc.b 'H'
@main
    block 
    calb
    ei
    daa
    di
    ex
    exx
    halt
    jb
    nop
    ret
    reti
    rets
    sio
    softi
    stm
    table
    dcr a
    dcr b
    dcr c
    inr a
    inr b
    inr c
    dcx sp
    inx sp
    mvi a,0xca
    mvi b,0xfe
    mvi c,0xbe
    mvi d,0xef
    mvi e,0xf0
    mvi h,0x0d
    mvi l,0x78
    mvi v,0x01
    aci a,0x0f
    adi a,0x1e
    adinc a,0x2d
    ani a,0x3c
    eqi a,0x4b
    gti a,0x5a
    lti a,0x69
    nei a,0x87
    offi a,0x96
    oni a,0xa5
    ori a,0xb4
    sbi a,0xc3
    sui a,0xd2
    suinb a,0xe1
    xri a,0xf0
    lxi bc,0xabcd
    lxi de,0xbeef
    lxi hl,0xcafe
    lxi sp,0xf00d
    call 0xd701
    jmp 0x8e07
    clc
    pen
    per
    pex
    rld
    rrd
    stc
    mov a,b
    mov a,c
    mov a,d
    mov a,e
    mov a,h
    mov a,l
    mov b,a
    mov c,a
    mov d,a
    mov e,a
    mov h,a
    mov l,a
@l0 jre l0
@l1 nop
    jre l1
@l2 nop nop
    jre l2
@l3 nop nop nop
    jre l3
@l4 nop nop nop nop
    jre l4
    jre l5
@l5 jre l6
    nop
@l6 jre l7
    nop nop
@l7 jre l8
    nop nop nop
@l8 jre l9
    nop nop nop nop
@l9
    ldax (bc) 
    ldax (de)
    ldax (hl)
    stax (bc)
    stax (de)
    stax (hl)
    inrw (v,0x01)
    ldaw (v,0x23)
    dcrw (v,0x45)
    staw (v,0x67)
    bit0 (v,0x89)
    bit1 (v,0xab)
    bit2 (v,0xcd)
    bit3 (v,0xef)
    bit4 (v,0xfe)
    bit5 (v,0xdc)
    bit6 (v,0xba)
    bit7 (v,0x98)
    dcx bc
    dcx de
    dcx hl
    inx bc
    inx de
    inx hl
    mvix (bc),0xf9
    mvix (de),0xe8
    mvix (hl),0xd7
    mviw (v,0x9a),0x3f
    eqiw (v,0xc5),0x1b
    ldaxd (de)
    ldaxi (de)
    ldaxd (hl)
    ldaxi (hl)
    staxd (de)
    staxi (de)
    staxd (hl)
    staxi (hl)
    push bc
    push de
    push hl
    pop hl
    pop de
    pop bc
    push va
    pop va
    rll a
    rlr a
    rll c
    rlr c
    sll a
    slr a
    sll c
    slr c
    skc
    skz
    sknc
    sknz
    skit f0
    skit ft
    skit f1
    skit f2
    skit fs
    sknit f0
    sknit ft
    sknit f1
    sknit f2
    sknit fs

writebin(filename .. '.bin')