aboutsummaryrefslogtreecommitdiff
path: root/src/test/z80.1
diff options
context:
space:
mode:
authorIan C <ianc@noddybox.co.uk>2016-03-07 15:00:21 +0000
committerIan C <ianc@noddybox.co.uk>2016-03-07 15:00:21 +0000
commit77e8708934c5c792b1435fa11dfe3c0a6f636a8c (patch)
tree8c68ecddaf2c2c0730ba310b8d1b9e0f1bd16132 /src/test/z80.1
parent6e9c9c9205d6eec1ff1cfb3fa407c6714854145a (diff)
Updated README and copied latest version in.
Diffstat (limited to 'src/test/z80.1')
-rw-r--r--src/test/z80.1447
1 files changed, 447 insertions, 0 deletions
diff --git a/src/test/z80.1 b/src/test/z80.1
new file mode 100644
index 0000000..d41828e
--- /dev/null
+++ b/src/test/z80.1
@@ -0,0 +1,447 @@
+ option -list
+ option +list-hex
+ option +list-pc
+ option list-macros,off
+ option list-labels,off
+
+ ;output file,a.tap
+ ;output format,spectrum
+
+ cpu z80
+
+ org $8000
+
+ ;
+ ; Simple comments
+ ;
+
+ld8test:macro reg
+ LD @reg,A ; Comment?
+ LD @reg,B
+ LD @reg,C
+ LD @reg,D
+ LD @reg,E
+ LD @reg,H
+ LD @reg,L
+.test
+ LD @reg,(HL)
+ LD @reg,(IX+127)
+ LD @reg,(IY-128)
+ LD (hl),@reg
+ LD (IX+127),@reg
+ LD (IY-128),@reg
+ ld @reg,$e5
+ ld @reg,ixh
+ ld @reg,ixl
+ ld @reg,iyh
+ ld @reg,iyl
+ endm
+
+ld8test_undoc:macro
+ LD \1,A ; Comment?
+ LD \1,B
+ LD \1,C
+ LD \1,D
+ LD \1,E
+ LD \1,\1
+ LD \1,\1
+ ld \1,$e5
+ endm
+
+ld_tests:
+.value
+ ld (hl),$e5
+ ld (ix+127),$e5
+ ld (iy-128),$e5
+.a
+ ld8test a
+ LD a,(BC)
+ LD a,(DE)
+ LD a,(word)
+ ld a,i
+ ld a,r
+ ld r,a
+ ld i,a
+
+.b
+ ld8test b
+.c
+ ld8test c
+.d
+ ld8test d
+.e
+ ld8test e
+.h
+ ld8test h
+.l
+ ld8test l
+.ixl
+ ld8test_undoc ixl
+.ixh
+ ld8test_undoc ixh
+.iyl
+ ld8test_undoc iyl
+.iyh
+ ld8test_undoc iyh
+
+.bit16
+ ld bc,word
+ ld de,word
+ ld hl,word
+ ld sp,word
+ ld ix,word
+ ld iy,word
+
+ ld bc,(word)
+ ld de,(word)
+ ld hl,(word)
+ ld sp,(word)
+ ld ix,(word)
+ ld iy,(word)
+
+alu: macro
+ \1 a,a
+ \1 a
+ \1 a,b
+ \1 b
+ \1 a,c
+ \1 a,d
+ \1 a,e
+ \1 a,h
+ \1 a,l
+ \1 a,ixh
+ \1 a,ixl
+ \1 a,iyh
+ \1 a,iyl
+ \1 a,(hl)
+ \1 a,(ix+100)
+ \1 a,(iy-100)
+ endm
+
+alutest:
+ alu add
+ alu adc
+ alu sub
+ alu sbc
+ alu and
+ alu or
+ alu xor
+ alu eor
+ alu cp
+
+ inc a
+ inc b
+ inc c
+ inc d
+ inc e
+ inc h
+ inc l
+ inc ixh
+ inc ixl
+ inc iyh
+ inc iyl
+ inc (hl)
+ inc (ix-64)
+ inc (iy+64)
+ inc bc
+ inc de
+ inc hl
+ inc sp
+ inc ix
+ inc iy
+
+ dec a
+ dec b
+ dec c
+ dec d
+ dec e
+ dec h
+ dec l
+ dec ixh
+ dec ixl
+ dec iyh
+ dec iyl
+ dec (hl)
+ dec (ix-64)
+ dec (iy+64)
+ dec bc
+ dec de
+ dec hl
+ dec sp
+ dec ix
+ dec iy
+
+ im 0
+ im 1
+ im 2
+
+alu16:
+ add hl,bc
+ add hl,de
+ add hl,hl
+ add hl,sp
+
+ add ix,bc
+ add ix,de
+ add ix,ix
+ add ix,sp
+
+ add iy,bc
+ add iy,de
+ add iy,iy
+ add iy,sp
+
+ adc hl,bc
+ adc hl,de
+ adc hl,hl
+ adc hl,sp
+
+ sbc hl,bc
+ sbc hl,de
+ sbc hl,hl
+ sbc hl,sp
+
+stack:
+ push af
+ push bc
+ push de
+ push hl
+ push ix
+ push iy
+ pop af
+ pop bc
+ pop de
+ pop hl
+ pop ix
+ pop iy
+
+exchange:
+ ex de,hl
+ ex af,af'
+ ex (sp),hl
+ ex (sp),ix
+ ex (sp),iy
+ ldi
+ ldir
+ ldd
+ lddr
+ cpi
+ cpir
+ cpdr
+
+bitm: macro
+ \1 a
+ \1 b
+ \1 c
+ \1 d
+ \1 e
+ \1 h
+ \1 l
+ \1 (hl)
+ \1 (ix+1)
+ \1 (iy-1)
+ \1 (ix+1),a
+ \1 (iy-1),a
+ \1 (ix+1),b
+ \1 (iy-1),b
+ \1 (ix+1),c
+ \1 (iy-1),c
+ \1 (ix+1),d
+ \1 (iy-1),d
+ \1 (ix+1),e
+ \1 (iy-1),e
+ \1 (ix+1),h
+ \1 (iy-1),h
+ \1 (ix+1),l
+ \1 (iy-1),l
+ endm
+
+set_res:macro
+ \1 0,a
+ \1 1,b
+ \1 2,c
+ \1 3,d
+ \1 4,e
+ \1 5,h
+ \1 6,l
+ \1 7, (hl)
+ \1 0, (ix+1)
+ \1 0, (iy-1)
+ \1 1, (ix+1),a
+ \1 1, (iy-1),a
+ \1 2, (ix+1),b
+ \1 2, (iy-1),b
+ \1 3, (ix+1),c
+ \1 3, (iy-1),c
+ \1 4, (ix+1),d
+ \1 4, (iy-1),d
+ \1 5, (ix+1),e
+ \1 5, (iy-1),e
+ \1 6, (ix+1),h
+ \1 6, (iy-1),h
+ \1 7, (ix+1),l
+ \1 7, (iy-1),l
+ endm
+
+bits:
+ RLCA
+ RRCA
+ RLA
+ RRA
+
+ bitm rlc
+ bitm rl
+ bitm rrc
+ bitm rr
+ bitm sla
+ bitm SRA
+ bitm srl
+ bitm sll
+
+ set_res set
+ set_res res
+
+ bit 0,a
+ bit 1,b
+ bit 2,c
+ bit 3,d
+ bit 4,e
+ bit 5,h
+ bit 6,l
+ bit 7, (hl)
+ bit 0, (ix+1)
+ bit 0, (iy-1)
+
+jtest: macro
+ \1 endjmp
+ \1 nz,endjmp
+ \1 z,endjmp
+ \1 nc,endjmp
+ \1 c,endjmp
+ \1 po,endjmp
+ \1 pe,endjmp
+ \1 p,endjmp
+ \1 m,endjmp
+.endjmp
+ endm
+
+jump:
+ jtest jp
+ jtest call
+
+ jp (hl)
+ jp (ix)
+ jp (iy)
+
+.jrjump1
+ jr jrjump1
+ jr nz,jrjump1
+ jr z,jrjump1
+ jr nc,jrjump1
+ jr c,jrjump1
+ djnz jrjump1
+
+ jr jrjump2
+ jr nz,jrjump2
+ jr z,jrjump2
+ jr nc,jrjump2
+ jr c,jrjump2
+ djnz jrjump2
+.jrjump2
+ call 0
+
+ ret
+ ret nz
+ ret z
+ ret nc
+ ret c
+ ret po
+ ret pe
+ ret p
+ ret m
+ reti
+ retn
+
+ rst 0
+ rst 0h
+ rst 8
+ rst 8h
+ rst 10
+ rst 10h
+ rst 18
+ rst 18h
+ rst 20
+ rst 20h
+ rst 28
+ rst 28h
+ rst 30
+ rst 30h
+ rst 38
+ rst 38h
+
+
+io:
+ in (c)
+ in a,(255)
+ in a,(c)
+ in b,(c)
+ in c,(c)
+ in d,(c)
+ in e,(c)
+ in h,(c)
+ in l,(c)
+ in f,(c)
+ ini
+ inir
+ ind
+ indr
+
+ out (c),0
+ out (255),a
+ out (c),a
+ out (c),b
+ out (c),c
+ out (c),d
+ out (c),e
+ out (c),h
+ out (c),l
+ out (c),f
+ out (c),255
+ out (c),123456789
+ outi
+ otir
+ outd
+ otdr
+
+implied:
+ NOP
+ DI
+ EI
+ HALT
+ HLT
+ EXX
+ DAA
+ CPL
+ SCF
+ CCF
+ NEG
+ CPI
+ CPIR
+ CPD
+ CPDR
+ INI
+ INIR
+ IND
+ INDR
+ OUTI
+ OTIR
+ OUTD
+ OTDR
+ LDI
+ LDIR
+ LDD
+ LDDR
+
+word: defs 2
+
+string: db "Hello World",0