l65/samples/scv_test.l65

166 lines
2.1 KiB
Plaintext

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')