WebSVN – pentevo – Diff – /rom/mainmenu/src/main.a80

-; LAST UPDATE: 24.02.2023 savelij
+; LAST UPDATE: 16.02.2025 savelij
 PAGE
                 TITLE "main.a80"
-                include ../../macros.a80
+                include macros.a80
-                include ../../define.a80
+                include define.a80
-                include ../../global_vars.a80
+                include global_vars.a80
-                include ../../ports_ide.a80
+                include ports_ide.a80
-                include ../../basic_tokens.a80
+                include basic_tokens.a80
-                include ../../bas_trd_vars.a80
+                include bas_trd_vars.a80
-                include ../../tmpkeys.a80
+                include tmpkeys.a80
-                include ../../version.a80
+                include version.a80
-                include ../../nums_devices.a80
+                include nums_devices.a80
-                include ../../ports_ngs.a80
+                include ports_ngs.a80
+                include fat_dir.a80
 TO_DOS          EQU 0x3D2F
  INIT_VAR 0xC000
  SETVAR ADR_CAT,        0xC00           ; адрес буфера для дискеты или образа
 START3
         RST8 _COM_DEV,_CONTROL_SD
                 EI
                 HALT
                 DI
-                LD H,0
+                LD H,CMOS.SECOND
                 CALL READCMOS                   ; чтение секунд для определения наличия кмос
                 INC L
                 LD HL,ERS_FLAGS
                 JR NZ,START2                    ; если прочиталось 0xFF, то
                 RES B_CLOCK_ON,(HL)             ; кмос не найден
                 LD (ARXY),HL                    ; установка дефолтной позиции мыши при старте
                 CALL DISK_NONE
                 CALL SYSTEM
                 CALL RESET_VG                   ; сброс вгшки и установка перехватчика ошибок dos
 RESTART         DI
+                XOR A
+        RST8 _NMI_FB_BLOCK                      ; разблокировка File Browser на NMI
                 LD A,0x10
                 CALL SET_7FFD                   ; включили басик48 и страничку 0
                 CALL TURBO_7MHZ
                 CALL SYSTEM
                 RES 3,(IY+55)
                 LD (TEK_SP),SP
                 CALL S_FACE                     ; вывод на экран основного вида
                 LD IX,MAINMENU
         RST8 _WINW
                 RES 5,(IY+1)                    ; на клавиатуре ничего не нажато
-                LD H,HDD_TIMEOUT
+                LD H,CMOS.HDD_TIMEOUT
                 CALL READCMOS
                 RRCA
                 RRCA
                 RRCA
                 RRCA
         PEC_ON M_SHADOW_BF
         EVOPORT WIN_P2,RAM_DATARAMD
         EVOPORT WIN_P2,ZXSTD_CPU2
         PEC_OFF M_SHADOW_BF!0xFF
-                LD HL,VIRT_REAL_DRIVE << 8
+                LD HL,CMOS.VIRT_REAL_DRIVE << 8
                 CALL WRITECMOS
                 LD HL,ADR_TXT_BOOT
                 JP RUNFILE1
 ADR_TXT_BOOT    DB "boot    "
                 RLCA
                 RLCA
                 RLCA
                 OR L
                 LD C,A
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 CALL READCMOS
                 AND %01111100
                 OR C
 CHANGE_MODES    LD L,A
                 CALL WRITECMOS                  ; сохранили в кмос измененый режим
                 LD DE,0x1000
                 JR Z,CHNGTURBO2
                 DEC A
                 LD DE,0
                 JR Z,CHNGTURBO2
-                LD DE,0X10*0X100+M_TURBO14
+                LD DE,0x10 << 8 + CMOS_ED.M_TURBO14
 CHNGTURBO2      LD A,D
                 LD HL,SYSREG1
                 LD A,(HL)
                 AND %11101111                   ; инверсия бита турборежима
                 OR D
                 LD (HL),A
-                LD H,CMOS_BYTE_00
+                LD H,CMOS.BYTE_00
                 CALL READCMOS
-                AND M_TURBO14!0XFF
+                AND CMOS_ED.M_TURBO14 ! 0xFF
                 OR E
                 LD L,A
-                LD H,CMOS_BYTE_00
+                LD H,CMOS.BYTE_00
                 CALL WRITECMOS
                 JP CHNGMODEY
-CHNGTAPMODE     LD H,CMOS_BYTE_00
+CHNGTAPMODE     LD H,CMOS.BYTE_00
                 CALL READCMOS
-                XOR M_EMUL_TAPE
+                XOR CMOS_ED.M_EMUL_TAPE
                 JR CHANGE_MODES
-CHNGGLUKMOD     LD H,CMOS_BYTE_00
+CHNGGLUKMOD     LD H,CMOS.BYTE_00
                 CALL READCMOS
-                AND MKOL_MODES!0xFF
+                AND CMOS_EC.MKOL_MODES ! 0xFF
                 LD C,A
                 LD A,L
-                AND MKOL_MODES
+                AND CMOS_EC.MKOL_MODES
                 INC A
-                CP KOL_MODES
+                CP CMOS_EC.KOL_MODES
                 JR C,CHNGGLUKMOD1
                 XOR A
 CHNGGLUKMOD1    OR C
                 LD L,A
                 JR CHANGE_MODES
-EN_AUTOMNT      LD H,CMOS_BYTE_01
+EN_AUTOMNT      LD H,CMOS.BYTE_01
                 CALL READCMOS
-                XOR M_AUTOMOUNT
+                XOR CMOS_EC.M_AUTOMOUNT
                 JP CHANGE_MODES
-EN_LOADFONT     LD H,CMOS_BYTE_00
+EN_LOADFONT     LD H,CMOS.BYTE_00
                 CALL READCMOS
-                XOR M_RELOAD_FONT
+                XOR CMOS_ED.M_RELOAD_FONT
                 JP CHANGE_MODES
-SET_TYPEFONT    LD H,CMOS_BYTE_00
+SET_TYPEFONT    LD H,CMOS.BYTE_00
                 CALL READCMOS
-                XOR M_TYPE_FONT
+                XOR CMOS_ED.M_TYPE_FONT
                 PUSH AF
                 PUSH HL
-                AND M_TYPE_FONT
+                AND CMOS_ED.M_TYPE_FONT
                 JR Z,SETTYPEFONT
                 LD A,1
 SETTYPEFONT
         RST8 _SETUP_FONT
                 POP HL
 ; включение/выключениe отображения часов
 CMOS_ONOFF      LD A,(ERS_FLAGS)
                 AND M_CLOCK_ON                  ; проверка наличия кмоса
                 JP Z,MAINLOP
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 CALL READCMOS
-                XOR M_CLOCK_VIEW
+                XOR CMOS_EC.M_CLOCK_VIEW
                 LD L,A
                 PUSH AF
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 CALL WRITECMOS
                 POP AF
-                AND M_CLOCK_VIEW
+                AND CMOS_EC.M_CLOCK_VIEW
                 JP Z,MAINLOP
                 LD HL,TIME_OFF
         RST8 _PRINT_MESSAGE
                 JP MAINLOP
                 EX AF,AF'
                 RRA
                 RET
 E4E3            XOR A
-                IN A,(0XFE)
+                IN A,(0xFE)
                 CPL
                 AND 0x1F
                 JR NZ,E4E3
                 LD (LAST_K),A
                 RES 5,(IY+1)                    ; на клавиатуре ничего не нажато
 ; распечатка текущего виртуального дисковода
 PRT_VIRTDRV
         RST8 _MOUNTER,_GET_VIRT_BITS
                 LD D,A
-                LD H,VIRT_REAL_DRIVE
+                LD H,CMOS.VIRT_REAL_DRIVE
                 CALL READCMOS
                 AND 3
                 LD B,A
                 INC B
                 ADD A,'A'
 MEMORY48        CALL ON_BIT128
                 LD A,0x30
                 JR SET_7FFD
 ; чтение CMOS и изменение сообщений для вывода на экран об установленных режимах
-SET_MODES       LD H,0x0B                       ; читать режим счета часов
+SET_MODES       LD H,CMOS.REG_B                 ; читать режим счета часов
                 CALL READCMOS
-                RES 2,L                         ; принудительно включаем бинарный счет
+                RES CMOSREG.B_B_RW_DM,L         ; принудительно включаем бинарный счет
                 CALL WRITECMOS                  ; сохраняем изменения
-                LD H,CMOS_BYTE_01               ; читаем установки турбо и памяти
+                LD H,CMOS.BYTE_01               ; читаем установки турбо и памяти
                 CALL READCMOS
-                AND M_TURBO357
+                AND CMOS_EC.M_TURBO357
                 RRCA
                 RRCA
                 RRCA
                 LD (SYSREG1),A                  ; содержимое для записи в порт EFF7
                 LD B,A
                 LD A,L
-                AND _128K | _48K | _1MB
+                AND CMOS_EC._128K | CMOS_EC._48K | CMOS_EC._1MB
                 LD (MEMMODE),A                  ; выбранный режим памяти
-                LD H,CMOS_BYTE_00
+                LD H,CMOS.BYTE_00
                 CALL READCMOS                   ; читаем основные установки
                 LD C,A
-                AND M_TURBO14
+                AND CMOS_ED.M_TURBO14
                 LD HL,TURBO_NUM                 ; номер турбо режима
                 LD (HL),2                       ; режим 14МГЦ
                 JR NZ,SETMODES04
                 LD A,B
                 DEC (HL)                        ; режим 7МГЦ
                 LDI
                 LDI
                 LDI
                 LDI                             ; перенесли для вывода экран
                 LD C,A
-                AND M_EMUL_TAPE
+                AND CMOS_ED.M_EMUL_TAPE
                 LD HL,EMTAPLOAD
                 CALL SET_ONOFF                  ; перенос символов для вывода на экран, ON или OFF
                 LD A,C
-                AND M_RELOAD_FONT
+                AND CMOS_ED.M_RELOAD_FONT
-                XOR M_RELOAD_FONT
+                XOR CMOS_ED.M_RELOAD_FONT
                 LD HL,EROMLOADFONT
                 CALL SET_ONOFF                  ; перенос символов для вывода на экран, ON или OFF
                 LD A,C
-                AND M_TYPE_FONT
+                AND CMOS_ED.M_TYPE_FONT
                 PUSH BC
                 LD HL,TXTMODTYPE
                 LD BC,5
                 JR Z,SET_FONT2
                 ADD HL,BC
 SET_FONT2       LD DE,ETYPESFONT
                 LDIR
                 POP BC
                 LD A,C
-                AND MKOL_MODES
+                AND CMOS_EC.MKOL_MODES
-                CP KOL_MODES
+                CP CMOS_EC.KOL_MODES
                 JR C,SETMODES03
                 XOR A
 SETMODES03      LD L,A
                 ADD A,A
                 ADD A,L
                 LD DE,TXT_RESET
                 LD A,C
                 LD BC,0x0C
                 LDIR
                 LD C,A
-                AND M_PRINTER_AY
+                AND CMOS_ED.M_PRINTER_AY
                 LD HL,ETXT_AYPRINTER
                 CALL SET_ONOFF                  ; перенос символов для вывода на экран, ON или OFF
 SETMODES02      LD A,(MEMMODE)
                 AND A
                 LD HL,T_ALL
                 LD HL,T_128                     ; 128K
 SETMODES01      LD DE,TXT_MEM                   ; режим памяти
                 LD A,C
                 LD BC,3
                 LDIR
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 CALL READCMOS
                 PUSH AF
-                AND M_AUTOMOUNT
+                AND CMOS_EC.M_AUTOMOUNT
                 LD HL,ETXT_AUTOMOUNT
                 CALL SET_ONOFF
                 POP AF
 ; для резидента HONEY COMANDER
-                AND M_REZIDENT
+                AND CMOS_EC.M_REZIDENT
                 LD HL,TXT_REZIDENT
                 CALL SET_ONOFF
-                LD H,CMOS_BYTE_03
+                LD H,CMOS.BYTE_03
                 CALL READCMOS
-                AND M_KILL_REZIDENT
+                AND CMOS_E9.M_KILL_REZIDENT
                 LD HL,TXT_KILLREZID
                 CALL SET_ONOFF
                 LD A,(ERS_FLAGS)
                 AND M_CLOCK_ON
                 RET Z
                 LD BC,EBAS_VAR-BAS_VAR
                 LDIR                            ; установка стандартных переменных BASIC и TR-DOS
 GET_DRV_SYM     LD A,(ERS_FLAGS)                ; проверяем наличие кмоса
                 AND M_CLOCK_ON
                 JR Z,SET_DRIVE
-                LD H,VIRT_REAL_DRIVE
+                LD H,CMOS.VIRT_REAL_DRIVE
                 CALL READCMOS
                 RRCA
                 RRCA
                 AND 3
 SETUP_DRIVE     LD (DRV_SYM),A                  ; установка выбранного реального дисковода
                 LD (TRD_5CF8),HL
                 OR 0x3C
                 LD (TRD_5D16),A
                 RET
-GLUDIN          LD H,CMOS_BYTE_01
+GLUDIN          LD H,CMOS.BYTE_01
                 CALL READCMOS
-                AND M_SOUNDKEYS
+                AND CMOS_EC.M_SOUNDKEYS
                 RET Z
                 LD HL,DIN+0x0D
                 LD A,0x0D
 GLUDIN1         LD BC,0xFFFD
                 OUT (C),A
                 OUTD
                 SUB 1
                 JR NC,GLUDIN1
                 RET
-SHUT2AY         LD H,CMOS_BYTE_01
+SHUT2AY         LD H,CMOS.BYTE_01
                 CALL READCMOS
-                AND M_SOUNDKEYS
+                AND CMOS_EC.M_SOUNDKEYS
                 RET Z
                 LD DE,0x0E00
 SHUT2AY1        DEC D
                 LD H,D
                 LD L,E

Subversion Repositories pentevo

(root)/rom/mainmenu/src/main.a80 – Rev 1067 → 1186