8f458146bc
текст ошибки "Unknown Error". - исправлена ошибка приводящая к вылету при копировании нескольких файлов на уже существующие и выборе отмены от продолжения копирования.
161 lines
2.9 KiB
Plaintext
161 lines
2.9 KiB
Plaintext
|
||
; LAST UPDATE: 21.01.2026 savelij
|
||
|
||
MAKEWINDOW MACRO TYPE
|
||
CALL JUMPS.MakeWindow
|
||
DB TYPE
|
||
ENDM
|
||
|
||
; ®¯¨á â¥«ì ®ª
|
||
W_MAIN MACRO X,Y,H,V
|
||
DW X,Y,H,V
|
||
ENDM
|
||
|
||
; ⥪á⮢ ï áâப
|
||
; BUILDDATE - § 票¥ «î¡®¥, ¯à¨ «¨ç¨¨ ¢áâ ¢«ï¥âáï ¤ â ᡮન
|
||
W_TEXT MACRO OFFSETX,OFFSETY,COLOR,TXT,BUILDDATE
|
||
DB WINSUBOBJ.TEXT
|
||
DW OFFSETX,OFFSETY
|
||
DB COLOR,TXT
|
||
IFNB BUILDDATE
|
||
TEXTDATE
|
||
ENDIF
|
||
DB 0
|
||
ENDM
|
||
|
||
W_ADRTEXT MACRO OFFSETX,OFFSETY,COLOR,ADRTXT
|
||
DB WINSUBOBJ.ADRTEXT
|
||
DW OFFSETX,OFFSETY
|
||
DB COLOR
|
||
DW ADRTXT
|
||
ENDM
|
||
|
||
; § ¯®«¥¨¥ ¯àאַ㣮«ì®© ¯«®áª®áâ¨
|
||
W_FILL MACRO OFFSETX,OFFSETY,H,V,COLOR
|
||
DB WINSUBOBJ.FILL
|
||
DW OFFSETX,OFFSETY,H,V
|
||
DB COLOR
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª 㣫㡫ñ®© ¯àאַ㣮«ì®© ¯«®áª®áâ¨
|
||
W_BORDER MACRO OFFSETX,OFFSETY,H,V
|
||
DB WINSUBOBJ.BORDER
|
||
DW OFFSETX,OFFSETY,H,V
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª ¢ë¯ãª«®© ¯àאַ㣮«ì®© ¯«®áª®áâ¨
|
||
W_BUTTON MACRO OFFSETX,OFFSETY,H,V
|
||
DB WINSUBOBJ.BUTTON
|
||
DW OFFSETX,OFFSETY,H,V
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª ª®¯ª¨ á ⥪á⮬ (¯¥ç âì ⥪áâ ®áãé¥á⢫ï¥âáï á ¯®§¨æ¨© x + 4, y + 1)
|
||
W_BUTTONTEXT MACRO OFFSETX,OFFSETY,H,V,COLOR,TXT
|
||
DB WINSUBOBJ.BUTTONTEXT
|
||
DW OFFSETX,OFFSETY,H,V
|
||
DB COLOR,TXT,0
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª £®à¨§®â «ì®£® à §¤¥«¨â¥«ï
|
||
W_HORIZLINE MACRO OFFSETX,OFFSETY,SIZE
|
||
DB WINSUBOBJ.HORIZLINE
|
||
DW OFFSETX,OFFSETY,SIZE
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª ¢¥à⨪ «ì®£® à §¤¥«¨â¥«ï
|
||
W_VERTICLINE MACRO OFFSETX,OFFSETY,SIZE
|
||
DB WINSUBOBJ.VERTICLINE
|
||
DW OFFSETX,OFFSETY,SIZE
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª «¥¢®© ª®¯ª¨ áªà®«¡ à
|
||
W_ICONLEFTARROW MACRO OFFSETX,OFFSETY
|
||
DB WINSUBOBJ.ICONLEFTARROW
|
||
DW OFFSETX,OFFSETY
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª ¯à ¢®© ª®¯ª¨ áªà®«¡ à
|
||
W_ICONRIGHTARROW MACRO OFFSETX,OFFSETY
|
||
DB WINSUBOBJ.ICONRIGHTARROW
|
||
DW OFFSETX,OFFSETY
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª ¢¥à奩 ª®¯ª¨ áªà®«¡ à
|
||
W_ICONUPARROW MACRO OFFSETX,OFFSETY
|
||
DB WINSUBOBJ.ICONUPARROW
|
||
DW OFFSETX,OFFSETY
|
||
ENDM
|
||
|
||
; ®âà¨á®¢ª ¨¦¥© ª®¯ª¨ áªà®«¡ à
|
||
W_ICONDOWNARROW MACRO OFFSETX,OFFSETY
|
||
DB WINSUBOBJ.ICONDOWNARROW
|
||
DW OFFSETX,OFFSETY
|
||
ENDM
|
||
|
||
; ª®¥æ ®¯¨á â¥«ï ®ª
|
||
W_END MACRO
|
||
DB WINSUBOBJ.END
|
||
ENDM
|
||
|
||
; ¢®ááâ ®¢¨âì ¤ ë¥ ¯®¤ ®ª®¬
|
||
WINDOWCLOSE MACRO
|
||
MAKEWINDOW WINSUBOBJ.RESTOREWIN
|
||
W_END
|
||
ENDM
|
||
|
||
; ä®à¬¨à®¢ ⥫ì FLX § £®«®¢ª , ¯ à ¬¥âàë:
|
||
; STRING (¤® 5 ¡ ©â) - «î¡®© ⥪áâ ¤«ï § £®«®¢ª
|
||
; OFFSET (WORD) - ᬥ饨¥ ¢ áâà ¨æ¥ ¯ ¬ï⨠¤«ï § £à㧪¨ (0 - 0x3FFF)
|
||
; ENTRY (WORD) - ᬥ饨¥ ¢ áâà ¨æ¥ ¯ ¬ï⨠¤«ï § ¯ã᪠(0 - 0x3FFF)
|
||
; MODES (BYTE) - ०¨¬ à ¡®âë
|
||
HDR_FLX MACRO STRING,OFFSET,ENTRY,MODES
|
||
IFNB MODES
|
||
IF MODES & FLXMODES.M_ADRORG
|
||
ORG PluginOrgCPU1
|
||
ELSE
|
||
ORG PluginOrgCPU3
|
||
ENDIF
|
||
ELSE
|
||
ORG PluginOrgCPU3
|
||
ENDIF
|
||
DB "FLX"
|
||
IFB STRING
|
||
DB "-PLUG"
|
||
ELSE
|
||
IF STRLEN (STRING) = 5
|
||
DB STRING
|
||
ELSE
|
||
DB STRING
|
||
DB 5 - STRLEN (STRING) DUP " "
|
||
ENDIF
|
||
ENDIF
|
||
|
||
IFB OFFSET
|
||
DW 0
|
||
ELSE
|
||
DW OFFSET
|
||
ENDIF
|
||
|
||
IFB ENTRY
|
||
DW 0
|
||
ELSE
|
||
DW ENTRY
|
||
ENDIF
|
||
|
||
IFB MODES
|
||
DB 0
|
||
ELSE
|
||
DB MODES
|
||
ENDIF
|
||
DB 3 DUP 0
|
||
ENDM
|
||
|
||
; ¯®¤¬¥ LD A,0 XOR A, ¨ ç¥ ¢áâ ¢ª ª ª ¥áâì
|
||
LD_A MACRO NUM
|
||
IF NUM = 0
|
||
XOR A
|
||
ELSE
|
||
LD A,NUM
|
||
ENDIF
|
||
ENDM
|