Subversion Repositories pentevo

; LAST UPDATE: 09.11.2022 savelij

; LAST UPDATE: 15.02.2025 savelij

MAIN_MENU       DB 0x04,0x04,LOW ((EMAINMENU1-MAINMENU1)/2)+2,0x20,0x0F,0x1F,%00100000,0x80

 WINHDR 0x04,0x04,.NUMS+2,0x20,0x0F,0x1F,%00100000,0x80, \

                DW DAT_MAIN_MENU,((EMAINMENU1-MAINMENU1)/2)

        DAT_MAIN_MENU,.NUMS, \

                DW TXT_MAINMENU,MAINMENU1,MOUSE_MAINMENU,MAINMKEYS

        .TXT_MAINMENU,.MAINMENU1,.MOUSE_MAINMENU,.MAINMKEYS

TXT_MAINMENU    DB 0x17,0xFF,"MAGIC Service"

.TXT_MAINMENU   DB "\x17\xFFMAGIC Service"

                DB 0x0D," 0.Continue program"

                DB "\r 0.Continue program"

                DB 0x0D," S.Setup"

                DB "\r S.Setup"

                DB 0x0D," D.Debugger STS"

                DB "\r D.Debugger STS"

MAINMKEYS       DB LOW (MAINMENU1-$-1),"0sdf"

                DB "0sfd"

MAINMKEYS       DB LOW (MAINMENU1-$-1),"0s"

                DB "0sf"

MAINMENU1       DW CONTINUE_PROG

.MAINMENU1      DW CONTINUE_PROG

EMAINMENU1

.EMAINMENU1

MOUSE_MAINMENU  DB 0xFF

.MOUSE_MAINMENU DB 0xFF

SETUP_MENU      DB 0x06,0x06,((ESETUPMENU1-SETUPMENU1)/2)+2,0x20,0x0F,0x1F,%00100000,0x80

 WINHDR 0x06,0x06,.NUMS+2,0x20,0x0F,0x1F,%00100000,0x80, \

                DW DAT_SETUP_MENU,((ESETUPMENU1-SETUPMENU1)/2)

        DAT_SETUP_MENU,.NUMS, \

                DW TXT_SETUPMENU,SETUPMENU1,MOUSE_SETUPMENU,SETUPKEYS

        .TXT_SETUPMENU,.SETUPMENU1,.MOUSE_SETUPMENU,.SETUPKEYS

TXT_SETUPMENU   DB 1,0x17,0xFF,"Setup"

.TXT_SETUPMENU  DB "\x01\x17\xFFSetup"

                DB 0x0D," 0.Main menu"

                DB "\r 0.Main menu"

                DB 0x0D," W.Turbo  \x2"

                DB "\r W.Turbo  \x2"

                DW TURBO_MODE

                DW TXT_TURBO_MODE

                DB 0x0D," M.Memory  \x2"

                DB "\r M.Memory  \x2"

                DW MEMORY_MODE

                DW TXT_MEMORY_MODE

                DW REZIDENT_MODE

                DW TXT_REZIDENT_MODE

SETUPKEYS       DB LOW (SETUPMENU1-$-1),"0wmrk"

.NUMS := LOW ($ - .SETUPKEYS) - 1

SETUPMENU1      DW RESTART_MAIN

.SETUPMENU1     DW RESTART_MAIN

ESETUPMENU1

.ESETUPMENU1

MOUSE_SETUPMENU DB 0xFF

.MOUSE_SETUPMENU        DB 0xFF

DEV_NOTFOUND    DB 0x15,0x08,0x05,0x18,0x17,0x1F,%00000000,0x00

 WINHDR 0x15,0x08,0x05,0x18,0x17,0x1F,%00000000,0x00, \

                DW TXT_DEVNOTFOUND,0,0,0

        0,0,.TXT_DEVNOTFOUND,0,0,0

TXT_DEVNOTFOUND DB 0x0D,"   Device not found"

                DB "\r   Device not found"

                DB 0x0D,0x0D,"   Press any key ...",0

                DB "\r\r   Press any key ...",0

NOFILES         DB 0x00,0x00,0x03,0x1A,0x17,0x1F,%00000000,0x00

 WINHDR 0x00,0x00,0x03,0x1A,0x17,0x1F,%00000000,0x00, \

                DW TXT_NOFILES,0,0,0

        0,0,.TXT_NOFILES,0,0,0

TXT_NOFILES     DB 0x0D," Files or DIR not found",0

.TXT_NOFILES    DB "\r Files or DIR not found",0

TXT_SELDRIVES   DB 0x17,0xFF,"Select drives"

TXT_SELDRIVES   DB "\x17\xFFSelect drives"

FILESBROWSER    DB 0x00,0x00,V_FILES,H_FILES,BLUE<<3+WHITE,BLUE<<3+BR_PAPER,%10101000,0xC0

 WINHDR 0x00,0x00,TXT.V_FILES,TXT.H_FILES,BLUE<<3+WHITE,BLUE<<3+BR_PAPER,%10101000,0xC0, \

                DW DAT_FILEBROWS,0

        DAT_FILEBROWS,0, \

                DW TXT_FILEBROWS,SEL_FILEBROWS,MOUS_FILEBROWS,KEYS_FILEBROWS

        .TXT_FILEBROWS,.SEL_FILEBROWS,.MOUS_FILEBROWS,.KEYS_FILEBROWS

TXT_FILEBROWS   DB 0x17,0xFF,"File browser"

.TXT_FILEBROWS  DB "\x17\xFFFile browser"

                DB 0x16,V_FILES-1,2,"D.Drive select  ENTER.Select",0;  V.SCL/TRD view",0

                DB "\x16",TXT.V_FILES-1,"\x02D.Drive select  ENTER.Select",0;  V.SCL/TRD view",0

KEYS_FILEBROWS  DB LOW (SEL_FILEBROWS-$-1)

.KEYS_FILEBROWS DB LOW (.SEL_FILEBROWS-$-1)

                REPT V_FILES-2

        REPT TXT.V_FILES-2

                DB 0x0D

                DB "\r"

                DB "dv"

                DB "d"

SEL_FILEBROWS   REPT V_FILES-2

        REPT TXT.V_FILES-2

                DW SCLTRD_VIEW

;               DW SCLTRD_VIEW

MOUS_FILEBROWS  DB 0,0x00,V_FILES-1,0x01,H_FILES/2-1,"d"

.MOUS_FILEBROWS DB 0,0x00,TXT.V_FILES-1,0x01,TXT.H_FILES/2-1,"d"

                DB 0,H_FILES/2-1,V_FILES-1,0x01,H_FILES/2,0x0D

                DB 0,TXT.H_FILES/2-1,TXT.V_FILES-1,0x01,TXT.H_FILES/2,0x0D

LDFDIERROR      DB (H_FILES-0x14)/2,0x08,0x04,0x14,0x17,0x00,%00000000,0

 WINHDR (TXT.H_FILES-0x14)/2,0x08,0x04,0x14,0x17,0x00,%00000000,0, \

                DW TXT_LDFDIERR,0,0,0

        0,0,.TXT_LDFDIERR,0,0,0

TXT_LDFDIERR    DB 0x17,0xFF,0x0D," FDI image error",0x0D," Press any key",0

.TXT_LDFDIERR   DB "\x17\xFF\r FDI image error\r Press any key",0

LEGEND_EXT      DB 0x3E,0x06,0x08,0x09,BLACK<<3+WHITE,0,0,0

 WINHDR 0x3E,0x06,0x08,0x09,BLACK<<3+WHITE,0,0,0, \

                DW TXT_LEGENDEXT,0,0,0

        0,0,.TXT_LEGENDEXT,0,0,0

TXT_LEGENDEXT   DB 0x0D,0x17,BR_INK+BLACK<<3+WHITE,"  DIR"

.TXT_LEGENDEXT  DB "\r\x17",BR_INK+BLACK<<3+WHITE,"  DIR"

                DB 0x0D,0x17,BR_INK+BLACK<<3+GREEN,"  TRD"

                DB "\r\x17",BR_INK+BLACK<<3+GREEN,"  TRD"

                DB 0x0D,0x17,BR_INK+BLACK<<3+YELLOW,"  SCL"

                DB "\r\x17",BR_INK+BLACK<<3+YELLOW,"  SCL"

                DB 0x0D,0x17,BR_INK+BLACK<<3+YELLOW,"  FDI"

                DB "\r\x17",BR_INK+BLACK<<3+YELLOW,"  FDI"

                DB 0x0D,0x17,BR_INK+BLACK<<3+RED,"  TAP"

                DB "\r\x17",BR_INK+BLACK<<3+RED,"  TAP"

                DB 0x0D,0x17,BR_INK+BLACK<<3+CYAN,"Unknown",0

                DB "\r\x17",BR_INK+BLACK<<3+CYAN,"Unknown",0

SEL_MOUNT       DB (H_FILES-0x0E)/2,0x07,LOW ((SELMOUNT2-SELMOUNT1)/2)+2,0x0E,BLACK<<3+WHITE,BLUE<<3+BR_PAPER,%00100000,0x80

 WINHDR (TXT.H_FILES-0x0E)/2,0x07,.NUMS+2,0x10,BLACK<<3+WHITE,BLUE<<3+BR_PAPER,%00100000,0x80, \

                DW DAT_MOUNT,((SELMOUNT2-SELMOUNT1)/2)

        DAT_MOUNT,.NUMS, \

                DW SELMOUNTTXT,SELMOUNT1,0,SELMOUNTKEYS

        .SELMOUNTTXT,.SELMOUNT1,0,.SELMOUNTKEYS

SELMOUNTTXT     DB 0x17,0xFF,"Mounter"

.SELMOUNTTXT    DB "\x17\xFFImages\r"

                DB 0x0D," L.Ramdisk"

                DB " 0.Only load\r"

                DB 0x0D," 1.Mount A:"

                DB " 1.Ramdisk A:\r"

                DB 0x0D," 2.Mount B:"

                DB " 2.Ramdisk B:\r"

                DB 0x0D," 3.Mount C:"

                DB " 3.Ramdisk C:\r"

                DB 0x0D," 4.Mount D:",0

                DB " 4.Ramdisk D:\r"

SELMOUNTKEYS    DB LOW (SELMOUNT1-$-1),"l1234"

.NUMS := LOW ($ - .SELMOUNTKEYS) - 1

SELMOUNT1       DW LOADIMAGES

.SELMOUNT1      DW LOADIMAGES

SELMOUNT2

.SELMOUNT2

;==================монтировать или загружать в рамдиск===================

;===============выбор TRD образа=========================================

;                    1  2  3  4

                DB "SCL"        ; 2

FILES_EXT       DB "TRDSCLFDITAP",0

                DB "FDI"        ; 3

FILES_EXT_ALL   EQU $-1

                DB "TAP"        ; 4

MAIN_KEYS       DB LOW (EMAIN_KEYS-$-1)," ",0x07,0x08,0x09,0x0A,0x0B,0x0D

                DB " ",0x07,0x08,0x09,0x0A,0x0B,0x0D

EMAIN_KEYS

.NUMS := LOW ($ - MAIN_KEYS) - 1

                DB ".ZContr  SDCard:"           ;4

                DB ".HDDNemo   MAST:"

                DB ".NeoGS   SDCard:"           ;5

                DB ".HDDNemo   SLAV:"

                DB ".HDDNemo MASTER:"           ;6-MASTER

                DB ".HDDSmuc   MAST:"

                DB ".HDDSmuc MASTER:"           ;7-SLAVE

                DB ".HDDSmuc   SLAV:"

                DB ".HDDNemo  SLAVE:"           ;6-MASTER

                DB ".HDDDivIDE SLAV:"

                DB ".HDDSmuc  SLAVE:"           ;7-SLAVE

                DB ".HDDProfi  SLAV:"