From b69773d50cb2c0e1da44f7f20c7daa32871f2308 Mon Sep 17 00:00:00 2001 From: Anatoliy Belyanskiy Date: Sat, 11 Nov 2023 01:08:47 +1000 Subject: [PATCH] new numbers for BC --- constants/dss_equ.inc | 46 +++++++++++++++++++++---------------------- 1 file changed, 23 insertions(+), 23 deletions(-) diff --git a/constants/dss_equ.inc b/constants/dss_equ.inc index 974455e..9047288 100644 --- a/constants/dss_equ.inc +++ b/constants/dss_equ.inc @@ -17,7 +17,7 @@ CLP_Parameters EQU 1 ; ; (CLP_CLLength) + 3 ; начало полного пути до запускаемого приложения (вместе с именем EXE) ;--------------------------------------- -FAT_ATTR:; +FAT_ATTR: .ARCHIVE EQU %0010'0000 ; bit 5 .DIRECTORY EQU %0001'0000 ; bit 4 .VOLUME_ID EQU %0000'1000 ; bit 3 @@ -42,8 +42,8 @@ Dss: .RescanDrives EQU #08 .BootDSK EQU #09 -.BootDSK.Get EQU 0 -.BootDSK.Set EQU 1 +.BootDSK.Get EQU #00*256 + .BootDSK +.BootDSK.Set EQU #01*256 + .BootDSK ; ; File i/o .Create EQU #0A @@ -61,9 +61,9 @@ Dss: .Read EQU #13 .Write EQU #14 .Move_FP EQU #15 -.Move_FP.FrStart EQU 0*256 + .Move_FP -.Move_FP.FrCurrent EQU 1*256 + .Move_FP -.Move_FP.FrEnd EQU 2*256 + .Move_FP +.Move_FP.FrStart EQU #00*256 + .Move_FP +.Move_FP.FrCurrent EQU #01*256 + .Move_FP +.Move_FP.FrEnd EQU #02*256 + .Move_FP .Attrib EQU #16 .Get_D_T EQU #17 @@ -121,26 +121,26 @@ Dss: .DosName EQU #44 .EX_Path EQU #45 -.EX_Path.GET_ALL EQU 0 ; Разобрать строку -.EX_Path.GET_DRIVE EQU 1 ; Выделить имя диска -.EX_Path.GET_PATH EQU 2 ; Выделить директорию -.EX_Path.GET_NAME EQU 3 ; Выделить имя файла -.EX_Path.GET_TYPE EQU 4 ; Выделить расширение файла -.EX_Path.GET_ALL_EX EQU 5 ; Выделить имя диска, путь к файлу, имя файла и расширение файла -.EX_Path.RESR EQU 6 ; Зарезервировано -.EX_Path.GSWITCH EQU 7 ; Выделить параметр командной строки -.EX_Path.GETNAME EQU 8 ; Преобразовать из 11 символьного формата в формат ДОС -.EX_Path.MASK EQU 9 ; Преобразовать из формата ДОС в 11 символьный формат +.EX_Path.GET_ALL EQU #00*256 + .EX_Path ; Разобрать строку +.EX_Path.GET_DRIVE EQU #01*256 + .EX_Path ; Выделить имя диска +.EX_Path.GET_PATH EQU #02*256 + .EX_Path ; Выделить директорию +.EX_Path.GET_NAME EQU #03*256 + .EX_Path ; Выделить имя файла +.EX_Path.GET_TYPE EQU #04*256 + .EX_Path ; Выделить расширение файла +.EX_Path.GET_ALL_EX EQU #05*256 + .EX_Path ; Выделить имя диска, путь к файлу, имя файла и расширение файла +.EX_Path.RESR EQU #06*256 + .EX_Path ; Зарезервировано +.EX_Path.GSWITCH EQU #07*256 + .EX_Path ; Выделить параметр командной строки +.EX_Path.GETNAME EQU #08*256 + .EX_Path ; Преобразовать из 11 символьного формата в формат ДОС +.EX_Path.MASK EQU #09*256 + .EX_Path ; Преобразовать из формата ДОС в 11 символьный формат .Environ EQU #46 -.Environ.Init EQU #FF -.Environ.Read EQU #0 -.Environ.Get EQU #1 -.Environ.Set EQU #2 +.Environ.Init EQU 255*256 + .Environ +.Environ.Read EQU #00*256 + .Environ +.Environ.Get EQU #01*256 + .Environ +.Environ.Set EQU #02*256 + .Environ .AppInfo EQU #47 -.AppInfo.CMD_Param EQU 0*256 + .AppInfo -.AppInfo.EXE_HomeDir EQU 1*256 + .AppInfo -.AppInfo.EXE_FullPath EQU 2*256 + .AppInfo +.AppInfo.CMD_Param EQU #00*256 + .AppInfo +.AppInfo.EXE_HomeDir EQU #01*256 + .AppInfo +.AppInfo.EXE_FullPath EQU #02*256 + .AppInfo ; EQU #48 ; EQU #49 ; EQU #4A