new numbers for BC

This commit is contained in:
Anatoliy Belyanskiy 2023-11-11 01:08:47 +10:00
parent 8641b77d8e
commit b69773d50c

View File

@ -17,7 +17,7 @@ CLP_Parameters EQU 1 ;
; (CLP_CLLength) + 3 ; ­ ç «® ¯®«­®£® ¯ã⨠¤® § ¯ã᪠¥¬®£® ¯à¨«®¦¥­¨ï (¢¬¥áâ¥ á ¨¬¥­¥¬ EXE) ; (CLP_CLLength) + 3 ; ­ ç «® ¯®«­®£® ¯ã⨠¤® § ¯ã᪠¥¬®£® ¯à¨«®¦¥­¨ï (¢¬¥áâ¥ á ¨¬¥­¥¬ EXE)
;--------------------------------------- ;---------------------------------------
FAT_ATTR:; FAT_ATTR:
.ARCHIVE EQU %0010'0000 ; bit 5 .ARCHIVE EQU %0010'0000 ; bit 5
.DIRECTORY EQU %0001'0000 ; bit 4 .DIRECTORY EQU %0001'0000 ; bit 4
.VOLUME_ID EQU %0000'1000 ; bit 3 .VOLUME_ID EQU %0000'1000 ; bit 3
@ -42,8 +42,8 @@ Dss:
.RescanDrives EQU #08 .RescanDrives EQU #08
.BootDSK EQU #09 .BootDSK EQU #09
.BootDSK.Get EQU 0 .BootDSK.Get EQU #00*256 + .BootDSK
.BootDSK.Set EQU 1 .BootDSK.Set EQU #01*256 + .BootDSK
; ;
; File i/o ; File i/o
.Create EQU #0A .Create EQU #0A
@ -61,9 +61,9 @@ Dss:
.Read EQU #13 .Read EQU #13
.Write EQU #14 .Write EQU #14
.Move_FP EQU #15 .Move_FP EQU #15
.Move_FP.FrStart EQU 0*256 + .Move_FP .Move_FP.FrStart EQU #00*256 + .Move_FP
.Move_FP.FrCurrent EQU 1*256 + .Move_FP .Move_FP.FrCurrent EQU #01*256 + .Move_FP
.Move_FP.FrEnd EQU 2*256 + .Move_FP .Move_FP.FrEnd EQU #02*256 + .Move_FP
.Attrib EQU #16 .Attrib EQU #16
.Get_D_T EQU #17 .Get_D_T EQU #17
@ -121,26 +121,26 @@ Dss:
.DosName EQU #44 .DosName EQU #44
.EX_Path EQU #45 .EX_Path EQU #45
.EX_Path.GET_ALL EQU 0 ; <EFBFBD> §®¡à âì áâபã .EX_Path.GET_ALL EQU #00*256 + .EX_Path ; <20> §®¡à âì áâபã
.EX_Path.GET_DRIVE EQU 1 ; ‚뤥«¨âì ¨¬ï ¤¨áª  .EX_Path.GET_DRIVE EQU #01*256 + .EX_Path ; ‚뤥«¨âì ¨¬ï ¤¨áª 
.EX_Path.GET_PATH EQU 2 ; ‚뤥«¨âì ¤¨à¥ªâ®à¨î .EX_Path.GET_PATH EQU #02*256 + .EX_Path ; ‚뤥«¨âì ¤¨à¥ªâ®à¨î
.EX_Path.GET_NAME EQU 3 ; ‚뤥«¨âì ¨¬ï ä ©«  .EX_Path.GET_NAME EQU #03*256 + .EX_Path ; ‚뤥«¨âì ¨¬ï ä ©« 
.EX_Path.GET_TYPE EQU 4 ; ‚뤥«¨âì à áè¨à¥­¨¥ ä ©«  .EX_Path.GET_TYPE EQU #04*256 + .EX_Path ; ‚뤥«¨âì à áè¨à¥­¨¥ ä ©« 
.EX_Path.GET_ALL_EX EQU 5 ; ‚뤥«¨âì ¨¬ï ¤¨áª , ¯ãâì ª ä ©«ã, ¨¬ï ä ©«  ¨ à áè¨à¥­¨¥ ä ©«  .EX_Path.GET_ALL_EX EQU #05*256 + .EX_Path ; ‚뤥«¨âì ¨¬ï ¤¨áª , ¯ãâì ª ä ©«ã, ¨¬ï ä ©«  ¨ à áè¨à¥­¨¥ ä ©« 
.EX_Path.RESR EQU 6 ; ‡ à¥§¥à¢¨à®¢ ­® .EX_Path.RESR EQU #06*256 + .EX_Path ; ‡ à¥§¥à¢¨à®¢ ­®
.EX_Path.GSWITCH EQU 7 ; ‚뤥«¨âì ¯ à ¬¥âà ª®¬ ­¤­®© áâப¨ .EX_Path.GSWITCH EQU #07*256 + .EX_Path ; ‚뤥«¨âì ¯ à ¬¥âà ª®¬ ­¤­®© áâப¨
.EX_Path.GETNAME EQU 8 ; <EFBFBD>८¡à §®¢ âì ¨§ 11 ᨬ¢®«ì­®£® ä®à¬ â  ¢ ä®à¬ â „Ž‘ .EX_Path.GETNAME EQU #08*256 + .EX_Path ; <20>८¡à §®¢ âì ¨§ 11 ᨬ¢®«ì­®£® ä®à¬ â  ¢ ä®à¬ â „Ž‘
.EX_Path.MASK EQU 9 ; <EFBFBD>८¡à §®¢ âì ¨§ ä®à¬ â  „Ž‘ ¢ 11 ᨬ¢®«ì­ë© ä®à¬ â .EX_Path.MASK EQU #09*256 + .EX_Path ; <20>८¡à §®¢ âì ¨§ ä®à¬ â  „Ž‘ ¢ 11 ᨬ¢®«ì­ë© ä®à¬ â
.Environ EQU #46 .Environ EQU #46
.Environ.Init EQU #FF .Environ.Init EQU 255*256 + .Environ
.Environ.Read EQU #0 .Environ.Read EQU #00*256 + .Environ
.Environ.Get EQU #1 .Environ.Get EQU #01*256 + .Environ
.Environ.Set EQU #2 .Environ.Set EQU #02*256 + .Environ
.AppInfo EQU #47 .AppInfo EQU #47
.AppInfo.CMD_Param EQU 0*256 + .AppInfo .AppInfo.CMD_Param EQU #00*256 + .AppInfo
.AppInfo.EXE_HomeDir EQU 1*256 + .AppInfo .AppInfo.EXE_HomeDir EQU #01*256 + .AppInfo
.AppInfo.EXE_FullPath EQU 2*256 + .AppInfo .AppInfo.EXE_FullPath EQU #02*256 + .AppInfo
; EQU #48 ; EQU #48
; EQU #49 ; EQU #49
; EQU #4A ; EQU #4A