testrom

@echo off

"../../tools/sjasmplus" --nologo --msg=war testrom.asm
copy /Y /B testrom.rom+testrom.rom+testrom.rom+testrom.rom "testrom64.rom" > nul
copy /Y /B testrom64.rom+testrom64.rom+testrom64.rom+testrom64.rom "testrom.rom" > nul
copy /Y /B testrom.rom+testrom.rom "../../us/testrom.rom" > nul
pause

	DEVICE ZXSPECTRUM48

	ORG 0x0000
START:
        di
        xor a
        out (0xfe),a
		ld sp,0
		im 1
		ld hl,memconf
		ld bc,0xbc77
		ld a,0x02
		out (c),a
		ld de,0x103f
m3
		ld bc,0x7ffd
		out (c),d
		ld bc,0x00f7
m2
		outi
		ld a,b
		sub e
		ld b,a
		jr nz,m2
		ld bc,0x7ffd
		ld a,d
		xor 0x10
		ld d,a
		jr z,m3
		out (c),a
		ld bc,0xff77
		ld a,0xa3
		out (c),a
		ld hl,movtest
		ld de,inirtest
		ld bc,movsize
		ldir
		jp inirtest
		halt
movtest
		disp 0x4000
inirtest
		ld bc,0xeff7
		ld a,0x14
		out (c),a
		ld bc,0x0077
		ld a,1
		out (c),a
		ld bc,0057
inirreloop
		ld hl,0x4200
inirloop
		inir
		bit 7,h
		jr z,inirloop
		jr inirreloop
		ent
movsize=$-movtest
memconf
		defb 0xff,0x7d,0x7a,0x83
		defb 0xff,0x7d,0x7a,0x81
		defs 0x4000 - $,0xff
ENDPROG:
	SAVEBIN  "testrom.rom",START,0x4000