76 lines
2.1 KiB
Plaintext
76 lines
2.1 KiB
Plaintext
|
|
; 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
|