; LAST UPDATE: 24.03.2025 savelij

;//                DEVICE ZXSPECTRUM128
;[]=======================================================================[]
;
; test.z80 -- test plugin for Flex Navigator v1.xx
;
; Created by Anton Enin 08-June-2002
;
; Last update 08-June-2002
;
; Copyright (C) 2002 R-lab
;
; This program should be compiled using z80asm
; http://www.zxasm.narod.ru/
;
;[]=======================================================================[]

;//		include '../fplugin.inc'
		include macros.a80
		include fn_const.a80
		include fn_macros.a80
		include macros_sp.a80
		include dss_sp.a80

		org	PluginOrg		; #C000 - Header lenght
PluginStart:					; Flex Navigator plugin header
		db	"FLX-PLUG"		; Id
		dw	0x0000			; LoadOffset
		dw	PluginEntry		; EntryOffset
		db	0x00			; PluginMode
		db	0x00, 0x00, 0x00	; Reserved

PluginEntry:
	MAKEWINDOW WINSUBOBJ.STORE
	W_MAIN 224,80,192,96
	W_FILL 4,2,184,10,COLORI.BLACK
	W_TEXT 82,3,COLORI.WHITE,"Plugin"
	W_TEXT 16,20,COLORI.BLUE + COLORP.HIGHGRAY,"Flex Navigator v1.xx Plugin Test"
	W_TEXT 46,38,COLORP.HIGHGRAY,"Written by Enin Anton"
	W_TEXT 64,48,COLORP.HIGHGRAY,"June, 8 2002"
	W_TEXT 52,58,COLORP.HIGHGRAY,"Copyright (c) 2002"
	W_BUTTON 60,74,72,14
	W_TEXT 88,77,COLORP.HIGHGRAY,"Ok"
	W_END
		call	JUMPS.ResFire
.plugin_loop:
		ld	ix, PluginMouseTab
		call	JUMPS.TestCoords
	SPDSS DSSF.SCANKEY
		jr	z, .plugin_loop
		ld	a, b
		or	a
		jr	nz, .plugin_loop
		ld	a, e
		cp	0x1B
		jr	z, PluginExit
		cp	0x0D
		jr	nz, .plugin_loop
PluginExit:
	WINDOWCLOSE
		or	a			; cf = 0
		ret

;[]=======================================================================[]
PluginMouseTab:
		dw	0x011C, 0x0164, 0x009A, 0x00A8, 0x0021, 0x0000, PluginExit, 0x0000
		dw	0x0000, 0x00E0, 0x0000, 0x0100, 0x0020, 0x0000, PluginExit, 0x0000
		dw	0x01A0, 0x0280, 0x0000, 0x0100, 0x0020, 0x0000, PluginExit, 0x0000
		dw	0x0000, 0x0280, 0x0000, 0x0050, 0x0020, 0x0000, PluginExit, 0x0000
		dw	0x0000, 0x0280, 0x00B0, 0x0100, 0x0020, 0x0000, PluginExit, 0x0000
		dw	0x8000
PluginEnd:
;//                savebin	'Build/FN/Plugins/test.flx',PluginStart,PluginEnd-PluginStart